home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / misc / emu / AROSdev.lha / AROS / rom / graphics / getapen.c < prev    next >
Encoding:
C/C++ Source or Header  |  1997-01-27  |  924 b   |  53 lines
  1. /*
  2.     (C) 1995 AROS - The Amiga Replacement OS
  3.     $Id: getapen.c,v 1.5 1997/01/27 00:36:10 ldp Exp $    $Log
  4.  
  5.     Desc: Graphics function GetAPen()
  6.     Lang: english
  7. */
  8. #include "graphics_intern.h"
  9.  
  10. /*****************************************************************************
  11.  
  12.     NAME */
  13. #include <graphics/rastport.h>
  14. #include <proto/graphics.h>
  15.  
  16.     AROS_LH1(ULONG, GetAPen,
  17.  
  18. /*  SYNOPSIS */
  19.     AROS_LHA(struct RastPort *, rp, A0),
  20.  
  21. /*  LOCATION */
  22.     struct GfxBase *, GfxBase, 143, Graphics)
  23.  
  24. /*  FUNCTION
  25.  
  26.     INPUTS
  27.  
  28.     RESULT
  29.  
  30.     NOTES
  31.  
  32.     EXAMPLE
  33.  
  34.     BUGS
  35.  
  36.     SEE ALSO
  37.  
  38.     INTERNALS
  39.  
  40.     HISTORY
  41.     29-10-95    digulla automatically created from
  42.                 graphics_lib.fd and clib/graphics_protos.h
  43.  
  44. *****************************************************************************/
  45. {
  46.     AROS_LIBFUNC_INIT
  47.     AROS_LIBBASE_EXT_DECL(struct GfxBase *,GfxBase)
  48.  
  49.     return rp->FgPen;
  50.  
  51.     AROS_LIBFUNC_EXIT
  52. } /* GetAPen */
  53.