rom/graphics/clearscreen.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Graphics function ClearScreen()
   6     Lang: English
   7 */
   8 #include <aros/debug.h>
   9 #include <graphics/rastport.h>
  10 #include "graphics_intern.h"
  11
  12
  13 /*****************************************************************************
  14
  15     NAME */
  16 #include <proto/graphics.h>
  17
  18         AROS_LH1(void, ClearScreen,
  19
  20 /*  SYNOPSIS */
  21         AROS_LHA(struct RastPort *, rp, A1),
  22
  23 /*  LOCATION */
  24         struct GfxBase *, GfxBase, 8, Graphics)
  25
  26 /*  FUNCTION
  27
  28     Clear from the current position to the end of the rastport. Clearing
  29     means setting the colour to 0 (or to BgPen if the drawmode is JAM2).
  30     This includes a ClearEOL().
  31
  32     INPUTS
  33
  34     rp   --  pointer to rastport
  35
  36     RESULT
  37
  38     NOTES
  39
  40     EXAMPLE
  41
  42     BUGS
  43
  44     SEE ALSO
  45
  46     Text(), ClearEOL(), SetRast(), graphics/text.h, graphics/rastport.h
  47
  48     INTERNALS
  49
  50     HISTORY
  51
  52     24.7.98  SDuvan  implemented
  53
  54 *****************************************************************************/
  55 {
  56     AROS_LIBFUNC_INIT
  57
  58     ULONG ymin   = rp->cp_y - rp->TxBaseline + rp->Font->tf_YSize;
  59     ULONG height = GetBitMapAttr(rp->BitMap, BMA_HEIGHT);
  60     ULONG width  = GetBitMapAttr(rp->BitMap, BMA_WIDTH);
  61
  62     ClearEOL(rp);
  63
  64     if(height >= ymin)
  65     {
  66         ULONG      oldDrMd = GetDrMd(rp);
  67
  68         SetDrMd(rp, oldDrMd ^ INVERSVID);
  69         RectFill(rp, 0, ymin, width - 1, height - 1);
  70         SetDrMd(rp, oldDrMd);
  71     }
  72
  73     AROS_LIBFUNC_EXIT
  74 } /* ClearScreen */