rom/graphics/getrpattrsa.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Graphics function GetRPAttrsA()
   6     Lang: english
   7 */
   8 #include <graphics/rpattr.h>
   9 #include <graphics/rastport.h>
  10 #include <graphics/gfx.h>
  11 #include "graphics_intern.h"
  12 #include <proto/utility.h>
  13
  14 #include "gfxfuncsupport.h"
  15
  16 /*****************************************************************************
  17
  18     NAME */
  19 #include <proto/graphics.h>
  20
  21         AROS_LH2(void, GetRPAttrsA,
  22
  23 /*  SYNOPSIS */
  24         AROS_LHA(struct RastPort *, rp  , A0),
  25         AROS_LHA(struct TagItem  *, tags, A1),
  26
  27 /*  LOCATION */
  28         struct GfxBase *, GfxBase, 174, Graphics)
  29
  30 /*  FUNCTION
  31
  32         Read the current settings of a RastPort into variables.
  33         The ti_Tag field specifies the attribute to read and the
  34         ti_Data field points to an address where to store the result.
  35         All results are stored as IPTRs!
  36
  37     INPUTS
  38         rp   = pointer to a RastPort structure
  39         tags = pointer to a taglist specifying the attributes to read and
  40                the addresses to store the results
  41
  42     TAGS
  43         RPTAG_Font (UBYTE)              - Font for Text()
  44         RPTAG_APen (UBYTE)              - Primary rendering pen
  45         RPTAG_BPen (UBYTE)              - Secondary rendering pen
  46         RPTAG_DrMd (UBYTE)              - Drawing mode (graphics/rastport.h)
  47         RPTAG_OutlinePen (UBYTE)        - Area Outline pen
  48         RPTAG_WriteMask (ULONG)         - Bit Mask for writing
  49         RPTAG_MaxPen (ULONG)            - Maximum pen to render (see SetMaxPen())
  50
  51         AROS extensions
  52         RPTAG_FgColor (ULONG)           - Primary rendering color in A8R8G8B8 format.
  53                                           Only working on hicolor/truecolor bitmaps/screens.
  54         RPTAG_BgColor (ULONG)           - Secondary rendering color in A8R8G8B8 format.
  55                                           Only working on hicolor/truecolor bitmaps/screens.
  56         RPTAG_PatternOriginX (WORD)     - X Origin of fill pattern.
  57         RPTAG_PatternOriginY (WORD)     - Y Origin of fill pattern.
  58         RPTAG_ClipRectangle (struct Rectangle *) - Rectangle to clip rendering to. Rectangle will
  59                                                    be cloned.
  60         RPTAG_ClipRectangleFlags (LONG) - RPCRF_RELRIGHT | RPCRF_RELBOTTOM (see <graphics/rpattr.h>)
  61         RPTAG_RemapColorFonts (BOOL)    - Automatically remap colorfonts to their color
  62                                           on hicolor/truecolor screens.
  63
  64     RESULT
  65
  66     NOTES
  67         RPTAG_ClipRectangle and RPTAG_ClipRectangleFlags must not be
  68         used on manually inited or cloned rastports. Instead the rastport
  69         must have been created with CreateRastPort() or CloneRastPort().
  70
  71     EXAMPLE
  72
  73     BUGS
  74         RPTAG_SoftStyle not supported, yet.
  75
  76     SEE ALSO
  77         SetRPAttrsA(), GetAPen(), GetBPen(), GetOutLinePen(), graphics/rpattr.h
  78
  79     INTERNALS
  80
  81     HISTORY
  82
  83 *****************************************************************************/
  84 {
  85     AROS_LIBFUNC_INIT
  86
  87     struct TagItem *tag, *tstate = tags;
  88     ULONG           MaxPen, z;
  89     BOOL            havedriverdata = FALSE;
  90
  91     while ((tag = NextTagItem ((const struct Tagitem **)&tstate)))
  92     {
  93         switch(tag->ti_Tag)
  94         {
  95             case RPTAG_Font :
  96                 *((IPTR *)tag->ti_Data) = (IPTR)rp->Font;
  97                 break;
  98
  99             case RPTAG_APen :
 100                 *((IPTR *)tag->ti_Data) = (IPTR)GetAPen(rp);
 101                 break;
 102
 103             case RPTAG_BPen :
 104                 *((IPTR *)tag->ti_Data) = (IPTR)GetBPen(rp);
 105                 break;
 106
 107             case RPTAG_DrMd :
 108                 *((IPTR *)tag->ti_Data) = (IPTR)GetDrMd(rp);
 109                 break;
 110
 111             case RPTAG_OutlinePen :
 112                 *((IPTR *)tag->ti_Data) = (IPTR)GetOutlinePen(rp);
 113                 break;
 114
 115             case RPTAG_WriteMask :
 116                 *((IPTR *)tag->ti_Data) = (IPTR)rp->Mask;
 117                 break;
 118
 119             case RPTAG_MaxPen :
 120                 MaxPen = 0x01;
 121                 z = (LONG)rp->Mask;
 122                 if (0 == z)
 123                     MaxPen = 0x100;
 124                 else
 125                     while (z != 0)
 126                     {
 127                         z >>= 1;
 128                         MaxPen <<= 1;
 129                     }
 130                 *((IPTR *)tag->ti_Data) = MaxPen;
 131                 break;
 132
 133             case RPTAG_DrawBounds :
 134                 ((struct Rectangle *)tag->ti_Data)->MinX = 0;
 135                 ((struct Rectangle *)tag->ti_Data)->MinY = 0;
 136                 ((struct Rectangle *)tag->ti_Data)->MaxX = 0;
 137                 ((struct Rectangle *)tag->ti_Data)->MaxY = 0;
 138                 break;
 139
 140             case RPTAG_FgColor:
 141                 *((IPTR *)tag->ti_Data) = RP_FGCOLOR(rp);
 142                 break;
 143
 144             case RPTAG_BgColor:
 145                 *((IPTR *)tag->ti_Data) = RP_BGCOLOR(rp);
 146                 break;
 147
 148             case RPTAG_PatternOriginX:
 149                 *((IPTR *)tag->ti_Data) = RP_PATORIGINX(rp);
 150                 break;
 151
 152             case RPTAG_PatternOriginY:
 153                 *((IPTR *)tag->ti_Data) = RP_PATORIGINY(rp);
 154                 break;
 155
 156             case RPTAG_ClipRectangle:
 157                 if (!havedriverdata)
 158                 {
 159                     havedriverdata = OBTAIN_DRIVERDATA(rp, GfxBase);
 160                 }
 161
 162                 if (havedriverdata)
 163                 {
 164                     if (RP_DRIVERDATA(rp)->dd_ClipRectangleFlags & RPCRF_VALID)
 165                     {
 166                         *((struct Rectangle **)tag->ti_Data) = &(RP_DRIVERDATA(rp)->dd_ClipRectangle);
 167                     }
 168                     else
 169                     {
 170                         *((struct Rectangle **)tag->ti_Data) = NULL;
 171                     }
 172                 }
 173                 else
 174                 {
 175                     *((IPTR *)tag->ti_Data) = 0;
 176                 }
 177                 break;
 178
 179             case RPTAG_ClipRectangleFlags:
 180                 if (!havedriverdata)
 181                 {
 182                     havedriverdata = OBTAIN_DRIVERDATA(rp, GfxBase);
 183                 }
 184
 185                 if (havedriverdata)
 186                 {
 187                     *((IPTR *)tag->ti_Data) = RP_DRIVERDATA(rp)->dd_ClipRectangleFlags;
 188                 }
 189                 else
 190                 {
 191                     *((IPTR *)tag->ti_Data) = 0;
 192                 }
 193                 break;
 194
 195             case RPTAG_RemapColorFonts:
 196                 *((IPTR *)tag->ti_Data) = (rp->Flags & RPF_REMAP_COLORFONTS) ? TRUE : FALSE;
 197                 break;
 198
 199         } /* switch(tag->ti_Tag) */
 200
 201     } /* while ((tag = NextTagItem ((const struct TagItem **)&tstate))) */
 202
 203     if (havedriverdata)
 204     {
 205         RELEASE_DRIVERDATA(rp, GfxBase);
 206     }
 207
 208     AROS_LIBFUNC_EXIT
 209 } /* GetRPAttrsA */