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 #include "graphics_intern.h"
  16
  17 #ifdef DEBUG
  18 #undef DEBUG
  19 #endif
  20
  21 #define DEBUG 0
  22 #include <aros/debug.h>
  23
  24         AROS_LH1(void, ClearEOL,
  25
  26 /*  SYNOPSIS */
  27         AROS_LHA(struct RastPort *, rp, A1),
  28
  29 /*  LOCATION */
  30         struct GfxBase *, GfxBase, 7, Graphics)
  31
  32 /*  FUNCTION
  33
  34     Clear a rectangular area from the current position to the end of the
  35     rastport, the height of which is the height of the current text font.
  36
  37     INPUTS
  38
  39     pr   --  pointer to rastport
  40
  41     RESULT
  42
  43     NOTES
  44
  45     EXAMPLE
  46
  47     BUGS
  48
  49     SEE ALSO
  50
  51     Text(), ClearScreen(), SetRast(), graphics/text.h, graphics/rastport.h
  52
  53     INTERNALS
  54
  55     HISTORY
  56
  57     24.7.98  SDuvan  implemented
  58
  59 *****************************************************************************/
  60 {
  61     AROS_LIBFUNC_INIT
  62
  63     ULONG oldDrMd = GetDrMd(rp);;
  64     ULONG width = GetBitMapAttr(rp->BitMap, BMA_WIDTH);
  65
  66     SetDrMd(rp, oldDrMd ^ INVERSVID);
  67     RectFill(rp, rp->cp_x, rp->cp_y - rp->TxBaseline, width - 1,
  68              rp->cp_y - rp->TxBaseline + rp->Font->tf_YSize - 1);
  69     SetDrMd(rp, oldDrMd);
  70
  71     AROS_LIBFUNC_EXIT
  72 } /* ClearEOL */