compiler/coolimages/imageclass.c

   1 /*
   2     Copyright © 1995-2013, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 /****************************************************************************************/
   7
   8 #define USE_BOOPSI_STUBS
   9
  10 #include <exec/execbase.h>
  11 #include <exec/memory.h>
  12 #include <intuition/intuition.h>
  13 #include <intuition/classes.h>
  14 #include <intuition/classusr.h>
  15 #include <intuition/imageclass.h>
  16 #include <graphics/gfx.h>
  17 #include <cybergraphx/cybergraphics.h>
  18 #include <proto/exec.h>
  19 #include <proto/intuition.h>
  20 #include <proto/graphics.h>
  21 #include <proto/cybergraphics.h>
  22 #include <proto/utility.h>
  23 #include <aros/asmcall.h>
  24 #include <clib/boopsistubs.h>
  25
  26 #include "coolimages.h"
  27
  28 /****************************************************************************************/
  29
  30 struct CoolImageData
  31 {
  32     struct CoolImage *image;
  33     ULONG            *pal;
  34     ULONG            bgcol;
  35 };
  36
  37 /****************************************************************************************/
  38
  39 extern struct IntuitionBase *IntuitionBase;
  40 extern struct GfxBase       *GfxBase;
  41 extern struct UtilityBase   *UtilityBase;
  42
  43 struct IClass               *cool_imageclass;
  44
  45 /****************************************************************************************/
  46
  47 #define CyberGfxBase        cool_cybergfxbase
  48 #define IM(x)               ((struct Image *)(x))
  49
  50 /****************************************************************************************/
  51
  52 static struct Library       *cool_cybergfxbase;
  53
  54 /****************************************************************************************/
  55
  56 static IPTR coolimage_new(Class * cl, Object * o, struct opSet * msg)
  57 {
  58     struct CoolImageData *data;
  59
  60     o = (Object *)DoSuperMethodA(cl, o, (Msg)msg);
  61
  62     if (o)
  63     {
  64         data = INST_DATA(cl, o);
  65
  66         data->image = (struct CoolImage *)GetTagData(COOLIM_CoolImage, 0, msg->ops_AttrList);
  67
  68         if (!data->image)
  69         {
  70             CoerceMethod(cl, o, OM_DISPOSE);
  71             o = NULL;
  72         } else {
  73             data->bgcol = GetTagData(COOLIM_BgColor,
  74                                      (data->image->pal[0] << 16) | (data->image->pal[1] << 8) | data->image->pal[2],
  75                                      msg->ops_AttrList);
  76             if (CyberGfxBase)
  77             {
  78                 if ((data->pal = AllocVec(data->image->numcolors * sizeof(ULONG), MEMF_PUBLIC)))
  79                 {
  80                     ULONG *p = data->pal;
  81                     WORD  i;
  82
  83                     for(i = 0; i < data->image->numcolors; i++)
  84                     {
  85                         *p++ = (data->image->pal[i * 3] << 16) |
  86                                (data->image->pal[i * 3 + 1] << 8) |
  87                                (data->image->pal[i * 3 + 2]);
  88                     }
  89
  90                 } else {
  91                     data->image = NULL;
  92                 }
  93             }
  94         }
  95
  96     } /* if (o) */
  97
  98     return (IPTR)o;
  99 }
 100
 101 /****************************************************************************************/
 102
 103 static IPTR coolimage_dispose(Class * cl, Object * o, Msg msg)
 104 {
 105     struct CoolImageData *data;
 106
 107     data = INST_DATA(cl, o);
 108
 109     FreeVec(data->pal);
 110
 111     return DoSuperMethodA(cl, o, msg);
 112 }
 113
 114 /****************************************************************************************/
 115
 116 static IPTR coolimage_draw(Class *cl, Object *o, struct impDraw *msg)
 117 {
 118     struct CoolImageData    *data;
 119     WORD                    x, y;
 120
 121     data = INST_DATA(cl, o);
 122
 123     x = IM(o)->LeftEdge + msg->imp_Offset.X;
 124     y = IM(o)->TopEdge  + msg->imp_Offset.Y;
 125
 126     if (CyberGfxBase && (GetBitMapAttr(msg->imp_RPort->BitMap, BMA_DEPTH) >= 15))
 127     {
 128         data->pal[0] = data->bgcol;
 129
 130         WriteLUTPixelArray((APTR)data->image->data,
 131                             0,
 132                             0,
 133                             data->image->width,
 134                             msg->imp_RPort,
 135                             data->pal,
 136                             x,
 137                             y,
 138                             data->image->width,
 139                             data->image->height,
 140                             CTABFMT_XRGB8);
 141
 142     }
 143
 144     return 0;
 145 }
 146
 147 /****************************************************************************************/
 148 /****************************************************************************************/
 149 /****************************************************************************************/
 150
 151 AROS_UFH3S(IPTR, cool_imageclass_dispatcher,
 152           AROS_UFHA(Class *, cl, A0),
 153           AROS_UFHA(Object *, obj, A2),
 154           AROS_UFHA(Msg, msg, A1))
 155 {
 156     AROS_USERFUNC_INIT
 157
 158     IPTR retval;
 159
 160     switch (msg->MethodID)
 161     {
 162         case OM_NEW:
 163             retval = coolimage_new(cl, obj, (struct opSet *)msg);
 164             break;
 165
 166         case OM_DISPOSE:
 167             retval = coolimage_dispose(cl, obj, msg);
 168             break;
 169
 170         case IM_DRAW:
 171             retval = coolimage_draw(cl, obj, (struct impDraw *)msg);
 172             break;
 173
 174         default:
 175             retval = DoSuperMethodA(cl, obj, msg);
 176             break;
 177
 178     } /* switch (msg->MethodID) */
 179
 180     return retval;
 181
 182     AROS_USERFUNC_EXIT
 183 }
 184
 185 /****************************************************************************************/
 186
 187 #undef CyberGfxBase
 188
 189 /****************************************************************************************/
 190
 191 BOOL InitCoolImageClass(struct Library *CyberGfxBase)
 192 {
 193     BOOL retval = FALSE;
 194
 195     cool_cybergfxbase = CyberGfxBase;
 196
 197     if (IntuitionBase && GfxBase && UtilityBase) // && SysBase)
 198     {
 199         if (!cool_imageclass)
 200         {
 201             cool_imageclass = MakeClass(NULL, IMAGECLASS, NULL, sizeof(struct CoolImageData), 0UL);
 202         }
 203
 204         if (cool_imageclass)
 205         {
 206             cool_imageclass->cl_Dispatcher.h_Entry = (HOOKFUNC)cool_imageclass_dispatcher;
 207             retval = TRUE;
 208         }
 209     }
 210
 211     return retval;
 212 }
 213
 214 /****************************************************************************************/
 215
 216 void CleanupCoolImageClass(void)
 217 {
 218     if (cool_imageclass)
 219     {
 220         FreeClass(cool_imageclass);
 221         cool_imageclass = NULL;
 222     }
 223 }
 224
 225 /****************************************************************************************/