rom/intuition/drawborder.c

   1 /*
   2     Copyright © 1995-2011, The AROS Development Team. All rights reserved.
   3     Copyright © 2001-2003, The MorphOS Development Team. All Rights Reserved.
   4     $Id$
   5 */
   6
   7 #include <proto/graphics.h>
   8 #include <proto/layers.h>
   9 #include <graphics/rpattr.h>
  10 #include "intuition_intern.h"
  11
  12 /*****************************************************************************
  13
  14     NAME */
  15 #include <graphics/rastport.h>
  16 #include <intuition/intuition.h>
  17 #include <proto/intuition.h>
  18
  19     AROS_LH4(void, DrawBorder,
  20
  21 /*  SYNOPSIS */
  22          AROS_LHA(struct RastPort *, rp, A0),
  23          AROS_LHA(struct Border   *, border, A1),
  24          AROS_LHA(LONG             , leftOffset, D0),
  25          AROS_LHA(LONG             , topOffset, D1),
  26
  27 /*  LOCATION */
  28          struct IntuitionBase *, IntuitionBase, 18, Intuition)
  29
  30 /*  FUNCTION
  31     Draws one or more borders in the specified RastPort. Rendering
  32     will start at the position which you get when you add the offsets
  33     leftOffset and topOffset to the LeftEdge and TopEdge specified
  34     in the Border structure. All coordinates are relative to that point.
  35
  36     INPUTS
  37     rp - The RastPort to render into
  38     border - Information what and how to render
  39     leftOffset, topOffset - Initial starting position
  40
  41     RESULT
  42     None.
  43
  44     NOTES
  45
  46     EXAMPLE
  47     // Draw a house with one stroke
  48     // The drawing starts at the lower left edge
  49     WORD XY[] =
  50     {
  51         10, -10,
  52         10,   0,
  53          0, -10,
  54         10, -10,
  55          5, -15,
  56          0, -10,
  57          0,   0,
  58         10,   0,
  59     };
  60     struct Border demo =
  61     {
  62         100, 100,   // Position
  63         1, 2,   // Pens
  64         JAM1,   // Drawmode
  65         8,      // Number of pairs in XY
  66         XY,     // Vector offsets
  67         NULL    // No next border
  68     };
  69
  70     // Render the house with the bottom left edge at 150, 50
  71     DrawBorder (rp, &demo, 50, -50);
  72
  73     BUGS
  74
  75     SEE ALSO
  76
  77     INTERNALS
  78
  79     HISTORY
  80     29-10-95    digulla automatically created from
  81                 intuition_lib.fd and clib/intuition_protos.h
  82
  83 *****************************************************************************/
  84 {
  85     AROS_LIBFUNC_INIT
  86
  87     struct GfxBase *GfxBase = GetPrivIBase(IntuitionBase)->GfxBase;
  88     struct LayersBase *LayersBase = GetPrivIBase(IntuitionBase)->LayersBase;
  89     IPTR   apen;
  90     IPTR   bpen;
  91     IPTR   drmd;
  92 #ifdef __MORPHOS__
  93     IPTR   penmode;
  94 #endif
  95     WORD  *ptr;
  96     WORD   x, y;
  97     WORD   xoff, yoff;
  98     int    t;
  99
 100     EXTENDWORD(leftOffset);EXTENDWORD(topOffset);
 101
 102     DEBUG_DRAWBORDER(dprintf("DrawBorder: rp %p border %p Left %ld Top %ld\n",
 103                              rp, border, leftOffset, topOffset));
 104
 105     SANITY_CHECK(rp)
 106     SANITY_CHECK(border)
 107
 108     if (rp->Layer) LockLayer(0,rp->Layer);
 109
 110     /* Store important variables of the RastPort */
 111 #ifdef __MORPHOS__
 112     GetRPAttrs(rp, RPTAG_PenMode, &penmode, RPTAG_APen, &apen,
 113                RPTAG_BPen, &bpen, RPTAG_DrMd, &drmd, TAG_DONE);
 114 #else
 115     GetRPAttrs(rp, RPTAG_APen, &apen,
 116                RPTAG_BPen, &bpen, RPTAG_DrMd, &drmd, TAG_DONE);
 117 #endif
 118
 119     /* For all borders... */
 120     for ( ; border; border = border->NextBorder)
 121     {
 122         /* Change RastPort to the colors/mode specified */
 123         SetAPen (rp, border->FrontPen);
 124         SetBPen (rp, border->BackPen);
 125         SetDrMd (rp, border->DrawMode);
 126
 127         /* Get base coords */
 128
 129         x = border->LeftEdge + leftOffset;
 130         y = border->TopEdge + topOffset;
 131
 132         /* Start of vector offsets */
 133         ptr = border->XY;
 134
 135         for (t = 0; t < border->Count; t++)
 136         {
 137             /* Add vector offset to current position */
 138             xoff = *ptr ++;
 139             yoff = *ptr ++;
 140
 141             if (t == 0)
 142             {
 143                 Move (rp, x + xoff, y + yoff);
 144             }
 145             else
 146             {
 147                 /* Stroke */
 148                 Draw (rp, x + xoff, y + yoff);
 149             }
 150         }
 151
 152     } /* for ( ; border; border = border->NextBorder) */
 153
 154     /* Restore RastPort */
 155 #ifdef __MORPHOS__
 156     SetRPAttrs(rp,RPTAG_APen,apen,RPTAG_BPen,bpen,RPTAG_DrMd,drmd,RPTAG_PenMode,penmode,TAG_DONE);
 157 #else
 158     SetRPAttrs(rp,RPTAG_APen,apen,RPTAG_BPen,bpen,RPTAG_DrMd,drmd,TAG_DONE);
 159 #endif
 160
 161     if (rp->Layer) UnlockLayer(rp->Layer);
 162
 163     AROS_LIBFUNC_EXIT
 164 } /* DrawBorder */