rom/graphics/getapen.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$    $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         Return the current value of the A pen for the rastport.
  26
  27     INPUTS
  28         rp - RastPort.
  29
  30     RESULT
  31
  32     NOTES
  33
  34     EXAMPLE
  35
  36     BUGS
  37
  38     SEE ALSO
  39
  40     INTERNALS
  41
  42     HISTORY
  43         29-10-95    digulla automatically created from
  44                             graphics_lib.fd and clib/graphics_protos.h
  45
  46 *****************************************************************************/
  47 {
  48     AROS_LIBFUNC_INIT
  49
  50     return (UBYTE)rp->FgPen;
  51
  52     AROS_LIBFUNC_EXIT
  53 } /* GetAPen */