rom/intuition/getdrawinfoattr.c

   1 /*
   2     Copyright © 2013, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <intuition/diattr.h>
   7 #include <proto/graphics.h>
   8
   9 #include "intuition_intern.h"
  10
  11 #define ARG_MASK 0x0000000F
  12
  13 #define SetResult(x) if (resultPtr) *resultPtr = x;
  14
  15 /*****************************************************************************
  16
  17     NAME */
  18 #include <proto/intuition.h>
  19
  20         AROS_LH3(ULONG, GetDrawInfoAttr,
  21
  22 /*  SYNOPSIS */
  23         AROS_LHA(struct DrawInfo *, drawInfo, A0),
  24         AROS_LHA(ULONG            , attrID, D0),
  25         AROS_LHA(IPTR *           , resultPtr, A1),
  26
  27 /*  LOCATION */
  28         struct IntuitionBase *, IntuitionBase, 156, Intuition)
  29
  30 /*  FUNCTION
  31          Gets value of the specified attribute from DrawInfo object, or
  32          system default value (for some attributes).
  33
  34     INPUTS
  35          drawInfo - an object pointer to query. It is possible to set this
  36                     argument to NULL when querying GDIA_Color or GDIA_Pen
  37                     attributes. In this case values will be retrieved from
  38                     system preferences.
  39          attrID   - ID of the attribute you want. The following IDs are
  40                     currently defined:
  41
  42            GDIA_Color       - 0RGB value of the color corresponding to a given pen.
  43                               It is possible to retrieve these values only from
  44                               DrawInfos belonging to direct-color screens. Pen ID
  45                               should be ORed with attribute ID.
  46            GDIA_Pen         - LUT color number corresponding to a given pen.
  47            GDIA_Version     - Version number of the DrawInfo object.
  48            GDIA_DirectColor - TRUE if the DrawInfo belongs to direct-color screen. Note
  49                               that in case of failure it also sets success indicator to
  50                               FALSE.
  51            GDIA_NumPens     - Number of pens or colors defined in this DrawInfo object.
  52            GDIA_Font        - Font specified in this DrawInfo.
  53            GDIA_Depth       - Depth of this DrawInfo. Note that this attribute will
  54                               return real depth of DrawInfo's screen, however dri_Depth
  55                               member will contain 8 for AmigaOS(tm) compatibility.
  56            GDIA_ResolutionX - X resolution in ticks
  57            GDIA_ResolutionY - Y resolution in ticks
  58            GDIA_CheckMark   - A pointer to CheckMark image object for the menu.
  59            GDIA_MenuKey     - A pointer to Menu (Amiga) key image object for the menu.
  60
  61          resultPtr - an optional storage area for success indicator. You
  62                      can set this parameter to NULL.
  63
  64     RESULT
  65          A value of the specified attribute. resultPtr, if supplied, gets
  66          TRUE for success and FALSE for failure.
  67
  68     NOTES
  69          This function is compatible with MorphOS
  70
  71     EXAMPLE
  72
  73     BUGS
  74
  75     SEE ALSO
  76
  77     INTERNALS
  78
  79 *****************************************************************************/
  80
  81 /*
  82  * MorphOS (as of v2.6) quirks which are intentionally not reproduced in this
  83  * implementation:
  84  *
  85  * 1. MorphOS implementation does not accept struct DrawInfo with version
  86       different from OS own number.
  87  * 2. MorphOS implementation does not check dri_NumPens when reading dri_Pens,
  88  *    this is clearly a bug.
  89  * 3. In MorphOS GDIA_DirectColor and GDIA_Depth work only if DrawInfo has
  90  *    attached screen, consequently returning failure with handmade DrawInfos.
  91  */
  92
  93 {
  94     AROS_LIBFUNC_INIT
  95
  96     struct GfxBase *GfxBase = GetPrivIBase(IntuitionBase)->GfxBase;
  97     ULONG pen;
  98
  99     SetResult(TRUE);
 100
 101     if (drawInfo)
 102     {
 103         /* Most of IDs make sense only with nonzero DrawInfo */
 104         switch (attrID)
 105         {
 106         case GDIA_Version:
 107             return drawInfo->dri_Version;
 108
 109         case GDIA_DirectColor:
 110             return (drawInfo->dri_Flags & DRIF_DIRECTCOLOR) ? TRUE : FALSE;
 111
 112         case GDIA_NumPens:
 113             return drawInfo->dri_NumPens;
 114
 115         case GDIA_Font:
 116             return (IPTR)drawInfo->dri_Font;
 117
 118         case GDIA_Depth:
 119             return (drawInfo->dri_Version < 3) ? drawInfo->dri_Depth :
 120                     GetPrivScreen(drawInfo->dri_Screen)->realdepth;
 121
 122         case GDIA_CheckMark:
 123             if (drawInfo->dri_Version < 2)
 124             {
 125                 SetResult(FALSE);
 126                 return 0;
 127             }
 128             return (IPTR)drawInfo->dri_CheckMark;
 129
 130         case GDIA_MenuKey:
 131             if (drawInfo->dri_Version < 2)
 132             {
 133                 SetResult(FALSE);
 134                 return 0;
 135             }
 136             return (IPTR)drawInfo->dri_AmigaKey;
 137
 138         case GDIA_ResolutionX:
 139             return drawInfo->dri_Resolution.X;
 140
 141         case GDIA_ResolutionY:
 142             return drawInfo->dri_Resolution.Y;
 143         }
 144
 145         /*
 146          * If we are here, this should be GDIA_Color or GDIA_Pen.
 147          * First we need to extract pen ID.
 148          */
 149         pen = attrID & ARG_MASK;
 150         if (pen < drawInfo->dri_NumPens)
 151         {
 152             switch (attrID & ~ARG_MASK)
 153             {
 154             case GDIA_Color:
 155                 /*
 156                  * According to original MorphOS semantics we return RGB colors
 157                  * only for direct-color screens.
 158                  */
 159                 if (drawInfo->dri_Flags & DRIF_DIRECTCOLOR)
 160                 {
 161                     ULONG col[3];
 162
 163                     GetRGB32(drawInfo->dri_Screen->ViewPort.ColorMap, drawInfo->dri_Pens[pen], 1, col);
 164                     return ((col[0] & 0xFF000000) >>  8) |
 165                            ((col[1] & 0xFF000000) >> 16) |
 166                             (col[2]               >> 24);
 167                 }
 168                 break;
 169
 170             case GDIA_Pen:
 171                 return drawInfo->dri_Pens[pen];
 172             }
 173         }
 174     }
 175     else
 176     {
 177         /*
 178          * No DrawInfo supplied.
 179          * In this case we return only default colors/pens from our preferences.
 180          */
 181         pen = attrID & ARG_MASK;
 182         if (pen < NUMDRIPENS)
 183         {
 184             struct Color32 *col;
 185
 186             /* Extract color number corresponding to the pen */
 187             pen = GetPrivIBase(IntuitionBase)->DriPens8[pen];
 188
 189             switch (attrID & ~ARG_MASK)
 190             {
 191             case GDIA_Color:
 192                 /*
 193                  * In AROS we don't have separate preferences for direct-color
 194                  * screens. So we now decode color number into its RGB representation
 195                  * according to system palette.
 196                  */
 197                 if (pen < 4)
 198                 {
 199                     /* First 4 colors */
 200                     col = &GetPrivIBase(IntuitionBase)->Colors[pen];
 201                 }
 202                 else if ((pen > 16) && (pen < 20))
 203                 {
 204                     /* These are pointer colors, indexes 8...10 in system palette */
 205                     col = &GetPrivIBase(IntuitionBase)->Colors[pen - 17 + 8];
 206                 }
 207                 else
 208                 {
 209                     /*
 210                      * There's no known color value for other pens.
 211                      * We also have 4 last colors defined, however we don't know which
 212                      * pens correspond to them, because this depends on screen depth.
 213                      * Well, after all, we are not MOS. :)
 214                      */
 215                     break;
 216                 }
 217
 218                 return ((col->red   & 0xFF000000) >>  8) |
 219                        ((col->green & 0xFF000000) >> 16) |
 220                        ( col->blue                >> 24);
 221
 222             case GDIA_Pen:
 223                 return pen;
 224             }
 225         }
 226     }
 227
 228     /*
 229      * Unknown IDs as well as failed conditions end up here.
 230      * Report error and return zero.
 231      */
 232     SetResult(FALSE);
 233     return 0;
 234
 235     AROS_LIBFUNC_EXIT
 236 }