rom/intuition/drawimagestate.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 "intuition_intern.h"
  10 #include <intuition/classusr.h>
  11 #include <proto/alib.h>
  12
  13 #include <aros/macros.h>
  14
  15 #undef DEBUG
  16 #define DEBUG 0
  17 #   include <aros/debug.h>
  18 //#include <proto/arossupport.h>
  19
  20 #define USE_BLTBITMAPRASTPORT 1
  21 #define USE_FASTPLANEPICK0    1
  22
  23 /*****************************************************************************
  24
  25     NAME */
  26 #include <graphics/rastport.h>
  27 #include <graphics/rpattr.h>
  28 #include <intuition/intuition.h>
  29 #include <intuition/imageclass.h>
  30 #include <proto/intuition.h>
  31
  32     AROS_LH6(void, DrawImageState,
  33
  34 /*  SYNOPSIS */
  35          AROS_LHA(struct RastPort *, rp,         A0),
  36          AROS_LHA(struct Image    *, image,      A1),
  37          AROS_LHA(LONG             , leftOffset, D0),
  38          AROS_LHA(LONG             , topOffset,  D1),
  39          AROS_LHA(ULONG            , state,      D2),
  40          AROS_LHA(struct DrawInfo *, drawInfo,   A2),
  41
  42 /*  LOCATION */
  43          struct IntuitionBase *, IntuitionBase, 103, Intuition)
  44
  45 /*  FUNCTION
  46     This function renders an image in a certain state.
  47
  48     INPUTS
  49     rp - Render in this RastPort
  50     image - Render this image
  51     leftOffset, topOffset - Add this offset to the position stored in the
  52         image.
  53     state - Which state (see intuition/imageclass.h for possible
  54         values).
  55     drawInfo - The DrawInfo from the screen.
  56
  57     RESULT
  58     None.
  59
  60     NOTES
  61     DrawImageState(), handles both boopsi and conventional images.
  62
  63     EXAMPLE
  64
  65     BUGS
  66
  67     SEE ALSO
  68
  69     INTERNALS
  70
  71     HISTORY
  72     29-10-95    digulla automatically created from
  73                 intuition_lib.fd and clib/intuition_protos.h
  74
  75 *****************************************************************************/
  76 {
  77     AROS_LIBFUNC_INIT
  78
  79     struct GfxBase *GfxBase = GetPrivIBase(IntuitionBase)->GfxBase;
  80     struct LayersBase *LayersBase = GetPrivIBase(IntuitionBase)->LayersBase;
  81     IPTR apen, bpen, drmd;
  82 #ifdef __MORPHOS__
  83     IPTR penmode;
  84 #endif
  85
  86     EXTENDWORD(leftOffset);
  87     EXTENDWORD(topOffset);
  88
  89     SANITY_CHECK(rp)
  90     SANITY_CHECK(image)
  91
  92     if (rp->Layer) LockLayer(0,rp->Layer);
  93
  94     /* Store important variables of the RastPort */
  95 #ifdef __MORPHOS__
  96     GetRPAttrs(rp, RPTAG_PenMode, &penmode, RPTAG_APen, &apen,
  97                RPTAG_BPen, &bpen, RPTAG_DrMd, &drmd, TAG_DONE);
  98 #else
  99     GetRPAttrs(rp, RPTAG_APen, &apen,
 100                RPTAG_BPen, &bpen, RPTAG_DrMd, &drmd, TAG_DONE);
 101 #endif
 102
 103     while(image)
 104     {
 105         if (image->Depth == CUSTOMIMAGEDEPTH)
 106         {
 107             struct impDraw method;
 108
 109             method.MethodID = IM_DRAW;
 110             method.imp_RPort = rp;
 111             method.imp_Offset.X = leftOffset;
 112             method.imp_Offset.Y = topOffset;
 113             method.imp_State = state;
 114             method.imp_DrInfo = drawInfo;
 115             DoMethodA ((Object *)image, (Msg)&method);
 116         }
 117         else
 118         {
 119             WORD    x, y, d;
 120             UWORD   shift;
 121             ULONG   planeonoff, planepick;
 122
 123         #if !USE_BLTBITMAPRASTPORT
 124
 125             ULONG   lastPen = 0;
 126             ULONG   pen = 0;
 127             UWORD   offset;
 128             UWORD   bitmask;
 129             UWORD * bits[8];
 130             WORD    xoff, yoff, plane;
 131
 132         #define START_BITMASK   0x8000
 133
 134             /* Change RastPort to the mode I need */
 135             SetDrMd (rp, JAM1);
 136
 137         #endif
 138
 139             /*  kprintf("*** Drawing Image %x. Next Image = %x\n widht = %d  height = %d  depth = %d  planepick = %d  planeonoff = %d\n",
 140             image,image->NextImage,
 141             image->Width,image->Height,image->Depth,image->PlanePick,image->PlaneOnOff);*/
 142
 143
 144             planepick  = image->PlanePick;
 145             planeonoff = image->PlaneOnOff & ~planepick;
 146
 147         #if USE_FASTPLANEPICK0
 148
 149             if (planepick == 0)
 150             {
 151                 SetAPen(rp, planeonoff);
 152                 RectFill(rp, leftOffset + image->LeftEdge,
 153                          topOffset  + image->TopEdge,
 154                          leftOffset + image->LeftEdge + image->Width  - 1,
 155                          topOffset  + image->TopEdge  + image->Height - 1);
 156
 157                 image = image->NextImage;
 158                 continue;
 159             }
 160
 161         #endif
 162
 163             /* Use x to store size of one image plane */
 164             x = ((image->Width + 15) >> 4) * image->Height;
 165             y = 0;
 166
 167             shift = 1;
 168
 169         #if USE_BLTBITMAPRASTPORT
 170             {
 171                 struct BitMap bitmap;
 172                 int depth;
 173                 int imagedepth = image->Depth;
 174
 175             #if 0
 176                 /* The "8" (instead of image->Depth) seems to be correct,
 177                    as for example DOpus uses prop gadget knob images with
 178                    a depth of 0 (planepick 0, planeonoff color) */
 179
 180                 depth = 8;
 181             #else
 182                 /* That makes far more sense than just a 8
 183                 * R.Schmidt...still doesn`t resolve some weird icon problem i have
 184                 */
 185                 //depth = rp->BitMap->Depth;
 186
 187                 /*
 188                 ** Be system friendly. - Piru
 189                 */
 190                 depth = GetBitMapAttr(rp->BitMap, BMA_DEPTH);
 191                 if (depth > 8)
 192                     depth = 8;
 193             #endif
 194                 InitBitMap(&bitmap, depth, image->Width, image->Height);
 195
 196                 for(d = 0; d < depth; d++)
 197                 {
 198                     /* Don't use more planes than image->depth. This solves
 199                        corrupt images of Garshneblanker's FlyingToaster which
 200                        uses a PlanePick of 0xff. */
 201                     if ((imagedepth > 0) && (planepick & shift))
 202                     {
 203                         imagedepth--;
 204                         bitmap.Planes[d] = (PLANEPTR)(image->ImageData + (y++) * x);
 205                     }
 206                     else
 207                     {
 208                         bitmap.Planes[d] = (planeonoff & shift) ? (PLANEPTR)-1 : NULL;
 209                     }
 210                     shift <<= 1;
 211                 }
 212
 213                 BltBitMapRastPort(&bitmap,
 214                                   0, 0,
 215                                   rp,
 216                                   leftOffset + image->LeftEdge, topOffset + image->TopEdge,
 217                                   image->Width, image->Height,
 218                                   (state == IDS_SELECTED) ? 0x30 : 0xC0);
 219             }
 220
 221         #else
 222
 223
 224             for(d = 0; d < image->Depth;d++)
 225             {
 226                 bits[d] = (planepick & shift) ? image->ImageData + (y++) * x : NULL;
 227                 shift <<= 1;
 228             }
 229
 230             offset  = 0;
 231
 232             yoff = image->TopEdge + topOffset;
 233
 234             for (y=0; y < image->Height; y++, yoff++)
 235             {
 236
 237                 bitmask = START_BITMASK;
 238
 239                 xoff = image->LeftEdge + leftOffset;
 240
 241                 for (x=0; x < image->Width; x++, xoff++)
 242                 {
 243                     pen = planeonoff;
 244                     shift = 1;
 245                     plane = 0;
 246
 247                     for(d = 0; d < image->Depth; d++)
 248                     {
 249                         if (planepick & shift)
 250                         {
 251                             UWORD dat;
 252
 253                             dat = bits[d][offset];
 254                             dat = AROS_WORD2BE(dat);
 255
 256                             if (dat & bitmask)
 257                             {
 258                                 pen |= shift;
 259                             }
 260                         }
 261
 262                         shift <<= 1;
 263                     }
 264
 265                     if (!x)
 266                     {
 267                         lastPen = pen;
 268                         Move (rp, xoff, yoff);
 269                     }
 270
 271                     if (pen != lastPen)
 272                     {
 273                         SetAPen (rp, lastPen);
 274                         Draw (rp, xoff, yoff);
 275                         lastPen = pen;
 276                     }
 277
 278                     bitmask >>= 1;
 279
 280                     if (!bitmask)
 281                     {
 282                         bitmask = START_BITMASK;
 283                         offset ++;
 284                     }
 285
 286                 } /* for (x=0; x < image->Width; x++, xoff++) */
 287
 288                 SetAPen (rp, pen);
 289                 Draw (rp, xoff-1, yoff);
 290
 291                 if (bitmask != START_BITMASK)
 292                     offset ++;
 293
 294             } /* for (y=0; y < image->Height; y++, yoff++) */
 295
 296         #endif
 297         }
 298
 299         image = image->NextImage;
 300     }
 301
 302 #ifdef __MORPHOS__
 303     SetRPAttrs(rp,RPTAG_APen,apen,RPTAG_BPen,bpen,RPTAG_DrMd,drmd,RPTAG_PenMode,penmode,TAG_DONE);
 304 #else
 305     SetRPAttrs(rp,RPTAG_APen,apen,RPTAG_BPen,bpen,RPTAG_DrMd,drmd,TAG_DONE);
 306 #endif
 307
 308     if (rp->Layer) UnlockLayer(rp->Layer);
 309
 310     AROS_LIBFUNC_EXIT
 311 } /* DrawImageState */