rom/graphics/cleareol.c

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