rom/graphics/setapen.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Graphics function SetAPen()
   6     Lang: english
   7 */
   8 #include "graphics_intern.h"
   9 #include <proto/oop.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
  29     INPUTS
  30
  31     RESULT
  32
  33     NOTES
  34
  35     EXAMPLE
  36
  37     BUGS
  38
  39     SEE ALSO
  40
  41     INTERNALS
  42
  43     HISTORY
  44         29-10-95    digulla automatically created from
  45                             graphics_lib.fd and clib/graphics_protos.h
  46
  47 *****************************************************************************/
  48 {
  49     AROS_LIBFUNC_INIT
  50     AROS_LIBBASE_EXT_DECL(struct GfxBase *,GfxBase)
  51
  52     struct gfx_driverdata *dd;
  53
  54     if (OBTAIN_DRIVERDATA(rp, GfxBase))
  55     {
  56         dd = GetDriverData(rp);
  57         if (dd)
  58         {
  59             struct TagItem col_tags[]=
  60             {
  61                 { aHidd_GC_Foreground, 0},
  62                 { TAG_DONE              }
  63             };
  64
  65             col_tags[0].ti_Data = rp->BitMap ? BM_PIXEL(rp->BitMap, pen & PEN_MASK) : pen;
  66             OOP_SetAttrs( dd->dd_GC, col_tags );
  67
  68         }
  69         RELEASE_DRIVERDATA(rp, GfxBase);
  70     }
  71
  72     rp->FgPen = pen;
  73     rp->linpatcnt = 15;
  74
  75     AROS_LIBFUNC_EXIT
  76 } /* SetAPen */