rom/graphics/setapen.c

   1 /*
   2     Copyright © 1995-2011, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Graphics function SetAPen()
   6     Lang: english
   7 */
   8
   9 #include "graphics_intern.h"
  10 #include "gfxfuncsupport.h"
  11
  12 /*****************************************************************************
  13
  14     NAME */
  15 #include <graphics/rastport.h>
  16 #include <proto/graphics.h>
  17
  18         AROS_LH2(void, SetAPen,
  19
  20 /*  SYNOPSIS */
  21         AROS_LHA(struct RastPort *, rp, A1),
  22         AROS_LHA(ULONG            , pen, D0),
  23
  24 /*  LOCATION */
  25         struct GfxBase *, GfxBase, 57, Graphics)
  26
  27 /*  FUNCTION
  28         Set primary pen for rastport
  29
  30     INPUTS
  31         rp  - RastPort
  32         pen - pen number (0...255)
  33
  34     RESULT
  35
  36     NOTES
  37         This functions turns on PenMode for the RastPort.
  38
  39     EXAMPLE
  40
  41     BUGS
  42
  43     SEE ALSO
  44
  45     INTERNALS
  46
  47     HISTORY
  48         29-10-95    digulla automatically created from
  49                             graphics_lib.fd and clib/graphics_protos.h
  50
  51 *****************************************************************************/
  52 {
  53     AROS_LIBFUNC_INIT
  54
  55     rp->FgPen     = pen;
  56     rp->linpatcnt = 15;
  57     rp->Flags    &= ~RPF_NO_PENS;
  58
  59     AROS_LIBFUNC_EXIT
  60 } /* SetAPen */