workbench/c/Decoration/newimagefuncs.c

   1 /*
   2     Copyright © 2011-2018, The AROS Development Team.
   3     $Id$
   4 */
   5
   6 #include <datatypes/pictureclass.h>
   7 #include <libraries/cybergraphics.h>
   8
   9 #include <proto/alib.h>
  10 #include <proto/datatypes.h>
  11 #include <proto/dos.h>
  12 #include <proto/graphics.h>
  13 #include <proto/exec.h>
  14 #include <proto/intuition.h>
  15 #include <proto/cybergraphics.h>
  16
  17 #include <string.h>
  18
  19 #include <aros/debug.h>
  20
  21 #include "newimage.h"
  22
  23 #if AROS_BIG_ENDIAN
  24 #define GET_A(rgb) (((rgb) >> 24) & 0xff)
  25 #else
  26 #define GET_A(rgb) ((rgb) & 0xff)
  27 #endif
  28
  29 /* Code taken from BM__Hidd_BitMap__BitMapScale */
  30 /* srcdata point directly to (0,0) point of subbuffer to be read from */
  31 ULONG * ScaleBuffer(ULONG * srcdata, LONG widthBuffer /* stride */, LONG widthSrc, LONG heightSrc, LONG widthDest, LONG heightDest)
  32 {
  33     ULONG * scaleddata = (ULONG *) AllocVec(sizeof(ULONG) * widthDest * heightDest, MEMF_ANY);
  34     LONG srcline = -1;
  35     UWORD * linepattern = (UWORD *) AllocVec(sizeof(UWORD) * widthDest, MEMF_ANY);
  36     ULONG count = 0;
  37     UWORD ys = 0;
  38     ULONG xs = 0;
  39     ULONG dyd = heightDest;
  40     ULONG dxd = widthDest;
  41     LONG accuys = dyd;
  42     LONG accuxs = dxd;
  43     ULONG dxs = widthSrc;
  44     ULONG dys = heightSrc;
  45     LONG accuyd = - (dys >> 1);
  46     LONG accuxd = - (dxs >> 1);
  47     ULONG x;
  48     ULONG * lastscaledlineptr = scaleddata + ((heightDest - 1) * widthDest);
  49
  50     count = 0;
  51     while (count < widthDest) {
  52         accuxd += dxs;
  53         while (accuxd > accuxs) {
  54             xs++;
  55             accuxs += dxd;
  56         }
  57
  58         linepattern[count] = xs;
  59
  60         count++;
  61     }
  62
  63     count = 0;
  64     while (count < heightDest) {
  65         accuyd += dys;
  66         while (accuyd > accuys) {
  67             ys++;
  68             accuys += dyd;
  69         }
  70
  71         if (srcline != ys) {
  72             //HIDD_BM_GetImage(msg->src, (UBYTE *) srcbuf, bsa->bsa_SrcWidth * sizeof(ULONG), bsa->bsa_SrcX, bsa->bsa_SrcY + ys, bsa->bsa_SrcWidth, 1, vHidd_StdPixFmt_Native32);
  73             ULONG * srcptr = srcdata + (ys * widthBuffer);
  74             srcline = ys;
  75
  76             /* New: use last line as temp buffer */
  77             for (x = 0; x < widthDest; x++)
  78                 lastscaledlineptr[x] = srcptr[linepattern[x]];
  79
  80         }
  81
  82         //HIDD_BM_PutImage(msg->dst, msg->gc, (UBYTE *) dstbuf, bsa->bsa_DestWidth * sizeof(ULONG), bsa->bsa_DestX, bsa->bsa_DestY + count, bsa->bsa_DestWidth, 1, vHidd_StdPixFmt_Native32);
  83         CopyMem(lastscaledlineptr, scaleddata + (count * widthDest), widthDest * sizeof(ULONG));
  84
  85         count++;
  86     }
  87
  88     FreeVec(linepattern);
  89
  90     return scaleddata;
  91 }
  92
  93 void DisposeImageContainer(struct NewImage *ni)
  94 {
  95     if (ni)
  96     {
  97         FreeVec(ni->data);
  98
  99         if (ni->o)
 100         {
 101             DisposeDTObject(ni->o);
 102             ni->o = NULL;
 103             ni->bitmap = NULL;
 104             ni->mask = NULL;
 105         }
 106
 107         FreeVec(ni->filename);
 108
 109         FreeVec(ni->subimageinbm);
 110         FreeBitMap(ni->bitmap2);
 111
 112         FreeVec(ni);
 113     }
 114 }
 115
 116 void DisposeLUT8ImageContainer(struct NewLUT8Image *ni)
 117 {
 118     if (ni)
 119     {
 120         FreeVec(ni->data);
 121         FreeVec(ni);
 122     }
 123 }
 124
 125 struct NewLUT8Image *NewLUT8ImageContainer(UWORD w, UWORD h)
 126 {
 127     struct      NewLUT8Image *ni;
 128
 129     ni = AllocVec(sizeof(struct NewLUT8Image), MEMF_ANY | MEMF_CLEAR);
 130     if (ni)
 131     {
 132         ni->w = w;
 133         ni->h = h;
 134         ni->data = AllocVec(w * h, MEMF_ANY | MEMF_CLEAR);
 135         if (ni->data == NULL)
 136         {
 137             FreeVec(ni);
 138             ni = NULL;
 139         }
 140     }
 141     return ni;
 142 }
 143
 144 struct NewImage *NewImageContainer(UWORD w, UWORD h)
 145 {
 146     struct      NewImage *ni;
 147
 148     ni = AllocVec(sizeof(struct NewImage), MEMF_ANY | MEMF_CLEAR);
 149     if (ni)
 150     {
 151         ni->w = w;
 152         ni->h = h;
 153         ni->subimagescols = 1;
 154         ni->subimagesrows = 1;
 155         ni->data = AllocVec(w * h * sizeof (ULONG), MEMF_ANY | MEMF_CLEAR);
 156         if (ni->data == NULL)
 157         {
 158             FreeVec(ni);
 159             ni = NULL;
 160         }
 161     }
 162     return ni;
 163 }
 164
 165 struct NewImage *ScaleNewImage(struct NewImage * oni, UWORD neww, UWORD newh)
 166 {
 167     struct  NewImage *ni;
 168
 169     ni = AllocVec(sizeof(struct NewImage), MEMF_ANY | MEMF_CLEAR);
 170     if (ni)
 171     {
 172         ni->w = neww;
 173         ni->h = newh;
 174         ni->subimagescols = oni->subimagescols;
 175         ni->subimagesrows = oni->subimagesrows;
 176         ni->ok = TRUE;
 177         ni->data = ScaleBuffer(oni->data, oni->w, oni->w, oni->h, ni->w, ni->h);
 178         if (ni->data == NULL)
 179         {
 180             FreeVec(ni);
 181             ni = NULL;
 182         }
 183     }
 184     return ni;
 185 }
 186
 187 struct NewImage *GetImageFromFile(STRPTR path, STRPTR name,
 188     ULONG expectedsubimagescols, ULONG expectedsubimagesrows)
 189 {
 190     struct BitMapHeader        *bmhd = NULL;
 191     struct NewImage            *ni = NULL;
 192     struct BitMap              *map = NULL;
 193     struct RastPort            *rp = NULL;
 194     Object                     *pic;
 195     struct pdtBlitPixelArray    pa;
 196     STRPTR                      buffer;
 197     UWORD                       w, h, x, y;
 198     UBYTE                       mask;
 199     ULONG                      *dst;
 200     LONG                        len;
 201
 202     len = strlen(path) + strlen(name) + 2;
 203     buffer = AllocVec(len, MEMF_CLEAR | MEMF_ANY);
 204     strncpy(buffer, path, len);
 205     AddPart(buffer, name, len);
 206
 207     pic = NewDTObject(buffer,  DTA_SourceType,  DTST_FILE,
 208                                DTA_GroupID,     GID_PICTURE,
 209                                PDTA_Remap,      FALSE,
 210                                PDTA_DestMode,   PMODE_V43,
 211                                TAG_DONE);
 212     if (pic)
 213     {
 214         GetAttr(PDTA_BitMapHeader, pic, (APTR)&bmhd);
 215         if(bmhd)
 216         {
 217
 218             w = bmhd->bmh_Width;
 219             h = bmhd->bmh_Height;
 220             mask = bmhd->bmh_Masking;
 221             ni = NewImageContainer(w, h);
 222             if (ni)
 223             {
 224                 ni->filename = AllocVec(len, MEMF_CLEAR | MEMF_ANY);
 225                 strncpy(ni->filename, buffer, len);
 226                 ni->subimagescols = expectedsubimagescols;
 227                 ni->subimagesrows = expectedsubimagesrows;
 228                 pa.MethodID = PDTM_READPIXELARRAY;
 229                 pa.pbpa_PixelData = (APTR) ni->data;
 230                 pa.pbpa_PixelFormat = PBPAFMT_ARGB;
 231                 pa.pbpa_PixelArrayMod = w*4;
 232                 pa.pbpa_Left = 0;
 233                 pa.pbpa_Top = 0;
 234                 pa.pbpa_Width = w;
 235                 pa.pbpa_Height = h;
 236                 DoMethodA(pic, (Msg) &pa);
 237                 ni->ok = TRUE;
 238                 if (bmhd->bmh_Depth <= 8)
 239                 {
 240                     GetAttr(PDTA_BitMap, pic, (APTR)&map);
 241                     if (map && (mask == mskHasTransparentColor))
 242                     {
 243                         rp = CreateRastPort();
 244                         if (rp) rp->BitMap = map;
 245                     }
 246                 }
 247
 248                 if (rp)
 249                 {
 250                     dst = ni->data;
 251                     for (y = 0; y < h; y++)
 252                     {
 253                         for (x = 0; x < w; x++)
 254                         {
 255 #if !AROS_BIG_ENDIAN
 256                         if (ReadPixel(rp, x, y) == 0) dst[x+y*w] &= 0xffffff00; else dst[x+y*w] |= 0x000000ff;
 257 #else
 258                         if (ReadPixel(rp, x, y) == 0) dst[x+y*w] &= 0x00ffffff; else dst[x+y*w] |= 0xff000000;
 259 #endif
 260                         }
 261                     }
 262                     FreeRastPort(rp);
 263                 }
 264             }
 265         }
 266         DisposeDTObject(pic);
 267     }
 268
 269     FreeVec(buffer);
 270
 271     return ni;
 272 }
 273
 274 static Object * LoadPicture(CONST_STRPTR filename, struct Screen *scr)
 275 {
 276     Object *o;
 277
 278     o = NewDTObject((APTR)filename,
 279                     DTA_GroupID          , GID_PICTURE,
 280                     OBP_Precision        , PRECISION_EXACT,
 281                     PDTA_Screen          , (IPTR)scr,
 282                     PDTA_FreeSourceBitMap, TRUE,
 283                     PDTA_DestMode        , PMODE_V43,
 284                     PDTA_UseFriendBitMap , TRUE,
 285                     TAG_DONE);
 286
 287     if (o)
 288     {
 289         struct FrameInfo fri = {0};
 290
 291         D(bug("DTM_FRAMEBOX\n", o));
 292         DoMethod(o,DTM_FRAMEBOX,NULL,(IPTR)&fri,(IPTR)&fri,sizeof(struct FrameInfo),0);
 293
 294         if (fri.fri_Dimensions.Depth > 0)
 295         {
 296             D(bug("DTM_PROCLAYOUT\n", o));
 297             if (DoMethod(o,DTM_PROCLAYOUT,NULL,1))
 298             {
 299                 return o;
 300             }
 301         }
 302         DisposeDTObject(o);
 303     }
 304
 305     return NULL;
 306 }
 307
 308 /* This function must never return NULL, because logic in drawing code
 309    checks img->ok instead of img != NULL to make decisions */
 310 struct NewImage * CreateNewImageContainerMatchingScreen(struct NewImage *in, BOOL truecolor, struct Screen* scr)
 311 {
 312     struct NewImage * out = AllocVec(sizeof(struct NewImage), MEMF_ANY | MEMF_CLEAR);
 313     out->ok = FALSE;
 314
 315     if (in != NULL)
 316     {
 317         out->w = in->w;
 318         out->h = in->h;
 319         out->subimagescols = in->subimagescols;
 320         out->subimagesrows = in->subimagesrows;
 321         out->filename = NULL;
 322         out->bitmap = NULL;
 323         out->bitmap2 = NULL;
 324         out->mask = NULL;
 325         out->o = NULL;
 326         if (in->data != NULL)
 327         {
 328             out->data = AllocVec(out->w * out->h * sizeof(ULONG), MEMF_ANY | MEMF_CLEAR);
 329             if (out->data != NULL) CopyMem(in->data, out->data, out->w * out->h * sizeof(ULONG));
 330         }
 331         out->ok = (out->data != NULL) ? TRUE : FALSE;
 332         /* Allocate decision table, all values are set to FALSE (MEMF_CLEAR) */
 333         out->subimageinbm = AllocVec(in->subimagescols * in->subimagesrows * sizeof(BOOL), MEMF_ANY | MEMF_CLEAR);
 334
 335         out->filename = AllocVec(strlen(in->filename) + 5, MEMF_ANY | MEMF_CLEAR); /* size + 5 -> covers all */
 336         strcpy(out->filename, in->filename);
 337
 338         if (!truecolor)
 339         {
 340             /* If this is LUT screen, try to load LUT version of image */
 341             out->ok = FALSE;
 342             strcat(out->filename, "_LUT");
 343
 344             out->o = LoadPicture(out->filename, scr);
 345             if (out->o == NULL)
 346             {
 347                 /* Load the original image with conversion */
 348                 out->o = LoadPicture(in->filename, scr);
 349                 if (out->o != NULL)
 350                     strcpy(out->filename, in->filename);
 351             }
 352
 353             if (out->o)
 354             {
 355                 GetDTAttrs(out->o, PDTA_DestBitMap, (IPTR)&out->bitmap, TAG_DONE);
 356                 if (out->bitmap == NULL)
 357                     GetDTAttrs(out->o, PDTA_BitMap, (IPTR)&out->bitmap, TAG_DONE);
 358
 359                 if (out->bitmap != NULL)
 360                 {
 361                     GetDTAttrs(out->o, PDTA_MaskPlane, (IPTR)&out->mask, TAG_DONE);
 362                     out->ok = TRUE;
 363                 }
 364                 else
 365                 {
 366                     DisposeDTObject(out->o);
 367                     out->o = NULL;
 368                 }
 369             }
 370         }
 371
 372         if (out->data != NULL)
 373         {
 374             ULONG subimagewidth = out->w / out->subimagescols;
 375             ULONG subimageheight = out->h / out->subimagesrows;
 376             ULONG col = 0, row = 0, x = 0, y = 0;
 377             out->mask = NULL;
 378             out->o = NULL;
 379             BOOL atleastone = FALSE;
 380
 381             /* It is possible that some subimage do not have alpha channel.
 382                If that is true, we could create a bitmap that can be later used
 383                for blitting instead of alpha drawing */
 384
 385             /* Scan subimages and detect which don't have alpha channel */
 386             for (row = 0; row < out->subimagesrows; row++)
 387             {
 388                 for (col = 0; col < out->subimagescols; col++)
 389                 {
 390                     /* Assume image can be put to bitmap */
 391                     out->subimageinbm[col + (row * out->subimagescols)] = TRUE;
 392                     /* Place pointer at beginning of subimage */
 393                     ULONG * ptr = out->data + (row * out->w * subimageheight) + (col * subimagewidth);
 394                     for (y = 0; y < subimageheight; y++)
 395                     {
 396                         for (x = 0; x < subimagewidth; x++)
 397                         {
 398                             if (GET_A(*ptr) != 0xFF)
 399                                out->subimageinbm[col + (row * out->subimagescols)] = FALSE;
 400                             ptr++;
 401                         }
 402                         ptr += (subimagewidth * (out->subimagescols - 1)); /* Advance to next subimage line */
 403                     }
 404                 }
 405             }
 406
 407             /* Check if there was at least one subimage without alpha channel */
 408             D(bug("File: %s : ", out->filename));
 409             for (row = 0; row < out->subimagesrows; row++)
 410             {
 411                 for (col = 0; col < out->subimagescols; col++)
 412                 {
 413                     D(bug("sb(%d,%d):", col, row));
 414                     if (out->subimageinbm[col + (row * out->subimagescols)])
 415                     {
 416                         D(bug("YES, "));
 417                         atleastone = TRUE;
 418                     }
 419                     else
 420                     {
 421                         D(bug("NO, "));
 422                     }
 423                 }
 424             }
 425             D(bug("\n"));
 426
 427             /* If yes, generate a bitmap */
 428             if (atleastone)
 429             {
 430                 struct RastPort * rp = CreateRastPort();
 431                 out->bitmap2 = AllocBitMap(out->w, out->h, 1, 0, scr->RastPort.BitMap);
 432                 rp->BitMap = out->bitmap2;
 433                 WritePixelArray(out->data, 0, 0, out->w * 4, rp, 0, 0, out->w, out->h, RECTFMT_ARGB);
 434                 FreeRastPort(rp);
 435             }
 436         }
 437     }
 438
 439     return out;
 440 }
 441
 442 struct Region *RegionFromLUT8Image(int w, int h, struct NewLUT8Image *s)
 443 {
 444     struct Region  *shape;
 445     int             x, y;
 446     BOOL            transp, transpstate;
 447     BOOL            failed = FALSE;
 448
 449     if (s == NULL) return NULL;
 450
 451     UBYTE   *src = s->data;
 452
 453     shape = NewRegion();
 454
 455     if (shape) {
 456         struct Rectangle rect = {0, s->h, w-1, h-1};
 457         if (!OrRectRegion(shape, &rect)) failed = TRUE;
 458         for(y = 0; y < s->h; y++)
 459         {
 460             struct Rectangle rect = {0, y, 0, y};
 461             transpstate = TRUE;
 462             for(x = 0; x < s->w; x++)
 463             {
 464                 transp = src[y * s->w + x] == 0;
 465                 if (transpstate)
 466                 {
 467                     if (!transp)
 468                     {
 469                         rect.MaxX = rect.MinX = x;
 470                         transpstate = FALSE;
 471                     }
 472                 } else {
 473                     if (transp)
 474                     {
 475                         OrRectRegion(shape, &rect);
 476                         transpstate = TRUE;
 477                     }
 478                     else
 479                     {
 480                         rect.MaxX++;
 481                     }
 482                 }
 483             }
 484             if (!transpstate) if (!OrRectRegion(shape, &rect)) failed = TRUE;
 485         }
 486         if (failed)
 487         {
 488             DisposeRegion(shape);
 489             shape = NULL;
 490         }
 491     }
 492     return shape;
 493 }