rom/graphics/setbpen.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$    $Log
   4
   5     Desc: Graphics function SetBPen()
   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, SetBPen,
  19
  20 /*  SYNOPSIS */
  21         AROS_LHA(struct RastPort *, rp, A1),
  22         AROS_LHA(ULONG            , pen, D0),
  23
  24 /*  LOCATION */
  25         struct GfxBase *, GfxBase, 58, Graphics)
  26
  27 /*  FUNCTION
  28         Set secondary pen for rastport.
  29
  30     INPUTS
  31         rp  - RastPort
  32         pen - pen number (0...255)
  33
  34     RESULT
  35
  36     NOTES
  37
  38     EXAMPLE
  39
  40     BUGS
  41
  42     SEE ALSO
  43
  44     INTERNALS
  45
  46     HISTORY
  47         29-10-95    digulla automatically created from
  48                             graphics_lib.fd and clib/graphics_protos.h
  49
  50 *****************************************************************************/
  51 {
  52     AROS_LIBFUNC_INIT
  53
  54     struct gfx_driverdata *dd;
  55
  56     if (OBTAIN_DRIVERDATA(rp, GfxBase))
  57     {
  58
  59         struct TagItem col_tags[]=
  60         {
  61             { aHidd_GC_Background, 0},
  62             { TAG_DONE              }
  63         };
  64
  65         col_tags[0].ti_Data = rp->BitMap ? BM_PIXEL(rp->BitMap, pen & PEN_MASK) : pen;
  66
  67         dd = GetDriverData(rp);
  68         if (dd)
  69         {
  70             OOP_SetAttrs( dd->dd_GC, col_tags );
  71         }
  72         RELEASE_DRIVERDATA(rp, GfxBase);
  73     }
  74
  75     /* Do it after the driver to allow it to inspect the previous value */
  76     rp->BgPen = pen;
  77     rp->linpatcnt = 15;
  78
  79     AROS_LIBFUNC_EXIT
  80 } /* SetBPen */