rom/graphics/setoutlinepen.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$         $Log
   4
   5     Desc: Graphics function SetOutlinePen()
   6     Lang: english
   7 */
   8 #include "graphics_intern.h"
   9 #include <graphics/rastport.h>
  10
  11 /*****************************************************************************
  12
  13     NAME */
  14 #include <graphics/rastport.h>
  15 #include <proto/graphics.h>
  16
  17         AROS_LH2(ULONG, SetOutlinePen,
  18
  19 /*  SYNOPSIS */
  20         AROS_LHA(struct RastPort *, rp, A0),
  21         AROS_LHA(ULONG,             pen, D0),
  22
  23 /*  LOCATION */
  24         struct GfxBase *, GfxBase, 163, Graphics)
  25
  26 /*  FUNCTION
  27         Set the outline pen and turn on area outline mode.
  28
  29     INPUTS
  30         rp  - RastPort
  31         pen - pen
  32
  33     RESULT
  34         Previous outline pen.
  35
  36     NOTES
  37
  38     EXAMPLE
  39
  40     BUGS
  41
  42     SEE ALSO
  43
  44     INTERNALS
  45
  46     HISTORY
  47         29-10-95    digulla automatically created from
  48                             graphics_lib.fd and clib/graphics_protos.h
  49
  50 *****************************************************************************/
  51 {
  52     AROS_LIBFUNC_INIT
  53     AROS_LIBBASE_EXT_DECL(struct GfxBase *,GfxBase)
  54
  55     ULONG oldPen;
  56
  57     oldPen = rp->AOlPen;
  58
  59     rp->AOlPen = pen;
  60     rp->Flags |= AREAOUTLINE;
  61
  62     return oldPen;
  63
  64     AROS_LIBFUNC_EXIT
  65
  66 } /* SetOutlinePen */