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