rom/graphics/clearscreen.c

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