rom/graphics/setrast.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$    $Log
   4
   5     Desc: Graphics function SetRast()
   6     Lang: english
   7 */
   8 #include <graphics/rastport.h>
   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, SetRast,
  19
  20 /*  SYNOPSIS */
  21         AROS_LHA(struct RastPort *, rp, A1),
  22         AROS_LHA(ULONG            , pen, D0),
  23
  24 /*  LOCATION */
  25         struct GfxBase *, GfxBase, 39, Graphics)
  26
  27 /*  FUNCTION
  28
  29     Set the entire contents of a specified RastPort to a specific colour.
  30
  31     INPUTS
  32
  33     rp   --  pointer to the RastPort in question
  34     pen  --  pen number to set the bitmap pixels to
  35
  36     RESULT
  37
  38     All pixels are set to the colour corresponding to the specified pen
  39     number.
  40
  41     NOTES
  42
  43     EXAMPLE
  44
  45     BUGS
  46
  47     SEE ALSO
  48
  49     RectFill(), <graphics/rastport.h>
  50
  51     INTERNALS
  52
  53     HISTORY
  54         29-10-95    digulla automatically created from
  55                             graphics_lib.fd and clib/graphics_protos.h
  56
  57 *****************************************************************************/
  58 {
  59     AROS_LIBFUNC_INIT
  60
  61     /* We have to use layers to perform clipping */
  62     struct BitMap *bm = rp->BitMap;
  63     HIDDT_Pixel    pixval;
  64
  65     ULONG width, height;
  66
  67     width  = GetBitMapAttr(bm, BMA_WIDTH);
  68     height = GetBitMapAttr(bm, BMA_HEIGHT);
  69     pixval = BM_PIXEL(bm, pen);
  70
  71     fillrect_pendrmd(rp, 0, 0, width  - 1, height - 1, pixval,
  72                      vHidd_GC_DrawMode_Copy, GfxBase);
  73
  74     AROS_LIBFUNC_EXIT
  75 } /* SetRast */