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 #include <aros/debug.h>
  10 #include <graphics/rastport.h>
  11 #include "graphics_intern.h"
  12
  13
  14 /*****************************************************************************
  15
  16     NAME */
  17 #include <proto/graphics.h>
  18
  19         AROS_LH1(void, ClearEOL,
  20
  21 /*  SYNOPSIS */
  22         AROS_LHA(struct RastPort *, rp, A1),
  23
  24 /*  LOCATION */
  25         struct GfxBase *, GfxBase, 7, Graphics)
  26
  27 /*  FUNCTION
  28
  29     Clear a rectangular area from the current position to the end of the
  30     rastport, the height of which is the height of the current text font.
  31
  32     INPUTS
  33
  34     pr   --  pointer to rastport
  35
  36     RESULT
  37
  38     NOTES
  39
  40     EXAMPLE
  41
  42     BUGS
  43
  44     SEE ALSO
  45
  46     Text(), ClearScreen(), 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 oldDrMd = GetDrMd(rp);;
  59     ULONG width = GetBitMapAttr(rp->BitMap, BMA_WIDTH);
  60
  61     SetDrMd(rp, oldDrMd ^ INVERSVID);
  62     RectFill(rp, rp->cp_x, rp->cp_y - rp->TxBaseline, width - 1,
  63              rp->cp_y - rp->TxBaseline + rp->Font->tf_YSize - 1);
  64     SetDrMd(rp, oldDrMd);
  65
  66     AROS_LIBFUNC_EXIT
  67 } /* ClearEOL */