workbench/classes/gadgets/arospalette/support.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Support functions for the palette class
   6     Lang: English
   7 */
   8
   9 #include <string.h>
  10
  11 #include <proto/graphics.h>
  12 #include <proto/intuition.h>
  13 #include <graphics/gfxmacros.h>
  14 #include <intuition/classes.h>
  15 #include <intuition/cghooks.h>
  16 #include <intuition/gadgetclass.h>
  17 #include <intuition/imageclass.h>
  18 #include <intuition/screens.h>
  19 #include <intuition/intuition.h>
  20
  21 #include "arospalette_intern.h"
  22
  23 #define SDEBUG 0
  24 #define DEBUG 0
  25 #include <aros/debug.h>
  26
  27 /**********************
  28 **  GetGadgetIBox()  **
  29 **********************/
  30
  31 VOID GetGadgetIBox(Object *o, struct GadgetInfo *gi, struct IBox *ibox)
  32 {
  33     ibox->Left   = EG(o)->LeftEdge;
  34     ibox->Top    = EG(o)->TopEdge;
  35     ibox->Width  = EG(o)->Width;
  36     ibox->Height = EG(o)->Height;
  37
  38     if (gi)
  39     {
  40         if (EG(o)->Flags & GFLG_RELRIGHT)
  41             ibox->Left   += gi->gi_Domain.Width - 1;
  42
  43         if (EG(o)->Flags & GFLG_RELBOTTOM)
  44             ibox->Top    += gi->gi_Domain.Height - 1;
  45
  46         if (EG(o)->Flags & GFLG_RELWIDTH)
  47             ibox->Width  += gi->gi_Domain.Width;
  48
  49         if (EG(o)->Flags & GFLG_RELHEIGHT)
  50             ibox->Height += gi->gi_Domain.Height;
  51     }
  52 }
  53
  54
  55 /**********************
  56 **  GetPalettePen()  **
  57 **********************/
  58
  59 UWORD GetPalettePen(struct PaletteData *data, UWORD idx)
  60 {
  61     UWORD pen;
  62
  63     if (data->pd_ColorTable)
  64         pen = data->pd_ColorTable[idx];
  65     else
  66         pen = idx + data->pd_ColorOffset;
  67
  68     return (pen);
  69 }
  70
  71
  72 /*********************
  73 **  Colors2Depth()  **
  74 *********************/
  75
  76 UBYTE Colors2Depth(UWORD numcolors)
  77 {
  78     UBYTE depth = 0;
  79
  80     while ((1 << depth) < numcolors)
  81         depth ++;
  82
  83     return (depth);
  84 }
  85
  86
  87 /********************
  88 **  InsidePalette  **
  89 ********************/
  90
  91 BOOL InsidePalette(struct PaletteData *data, WORD x, WORD y)
  92 {
  93     /* stegerg */
  94
  95     return TRUE;
  96
  97 #if 0
  98     BOOL inside = FALSE;
  99     struct IBox *pbox = &(data->pd_PaletteBox);
 100
 101     /* Inside palette bounding box ? */
 102
 103     if (    (x > pbox->Left)
 104          && (x < pbox->Left + pbox->Width - 1)
 105          && (y > pbox->Top)
 106          && (y < pbox->Top + pbox->Height - 1)
 107          )
 108     {
 109         /* Must do additional testing, since we might
 110         ** not have 2^n number of colors
 111         */
 112
 113         if (data->pd_NumColors > ComputeColor(data, x, y))
 114         {
 115             inside = TRUE;
 116         }
 117     }
 118     return (inside);
 119 #endif
 120
 121 }
 122
 123
 124 /*********************
 125 **  ComputeColor()  **
 126 *********************/
 127
 128 UWORD ComputeColor(struct PaletteData *data, WORD x, WORD y)
 129 {
 130      UWORD row, col;
 131
 132      WORD color;
 133
 134      col = (x - data->pd_PaletteBox.Left)       / data->pd_ColWidth;
 135      row = (y - data->pd_PaletteBox.Top)        / data->pd_RowHeight;
 136
 137      color = data->pd_NumCols * row + col;
 138
 139      if (color < 0)
 140      {
 141          color = 0;
 142      }
 143      else if (color >= data->pd_NumColors)
 144      {
 145          color = data->pd_NumColors - 1;
 146      }
 147
 148      return (UWORD)color;
 149 }
 150
 151
 152 /********************
 153 **  RenderPalette  **
 154 ********************/
 155
 156 #define MIN(a, b) (( a < b) ? a : b)
 157 VOID RenderPalette(struct PaletteData *data, struct RastPort *rp,
 158                    struct PaletteBase_intern *AROSPaletteBase)
 159 {
 160     UWORD currentcolor = data->pd_ColorOffset, colors_left;
 161     WORD left, top;
 162     register UWORD col, row;
 163     struct IBox *pbox = &(data->pd_PaletteBox);
 164
 165     EnterFunc(bug("RenderPalette(data=%p, rp=%p)\n", data, rp));
 166
 167     top  = pbox->Top;
 168
 169     colors_left = data->pd_NumColors;
 170     SetDrMd(rp, JAM1);
 171
 172     for (row = data->pd_NumRows; row; row --)
 173     {
 174         left = pbox->Left;
 175         for (col = MIN(data->pd_NumCols, colors_left); col; col --)
 176         {
 177
 178             SetAPen(rp, GetPalettePen(data, currentcolor));
 179
 180             RectFill(rp, left, top,
 181                 left + data->pd_ColWidth - VSPACING - 1,
 182                 top + data->pd_RowHeight - HSPACING - 1 );
 183
 184             D(bug("Rectfilling area (%d, %d, %d, %d)\n with color %d", left, top,
 185             left + data->pd_ColWidth - VSPACING - 1, top + data->pd_RowHeight - HSPACING,
 186             currentcolor));
 187
 188             currentcolor ++;
 189
 190             left += data->pd_ColWidth;
 191
 192         } /* for (each row) */
 193         top += data->pd_RowHeight;
 194
 195         colors_left -= data->pd_NumCols;
 196
 197     } /* for (each column) */
 198
 199     ReturnVoid("RenderPalette");
 200 }
 201
 202
 203 /************************
 204 **  UpdateActiveColor  **
 205 ************************/
 206
 207 VOID UpdateActiveColor( struct PaletteData      *data,
 208                         struct DrawInfo         *dri,
 209                         struct RastPort         *rp,
 210                         struct PaletteBase_intern *AROSPaletteBase)
 211 {
 212
 213     WORD left, top, right, bottom;
 214
 215     struct IBox framebox;
 216
 217     EnterFunc(bug("UpdateActiveColor(data=%p, dri=%p, rp=%p)\n",
 218                         data, dri, rp));
 219
 220     SetAPen(rp, dri->dri_Pens[BACKGROUNDPEN]);
 221     SetDrMd(rp, JAM1);
 222
 223     if (data->pd_OldColor != data->pd_Color)
 224     {
 225
 226         left = data->pd_PaletteBox.Left + (data->pd_OldColor % data->pd_NumCols) * data->pd_ColWidth;
 227         top  = data->pd_PaletteBox.Top  + (data->pd_OldColor / data->pd_NumCols) * data->pd_RowHeight;
 228
 229         D(bug("clearing old selected: (%d, %d, %d, %d) oldcolor=%d\n",
 230                 left, top, left + data->pd_ColWidth, top + data->pd_RowHeight, data->pd_OldColor));
 231
 232         /* Clear area with BACKGROUNDPEN */
 233         RectFill(rp,
 234             left - VBORDER,
 235             top - HBORDER,
 236             left + data->pd_ColWidth - 1,
 237             top  + data->pd_RowHeight - 1);
 238
 239         /* Rerender in original color */
 240         SetAPen(rp, GetPalettePen(data, data->pd_OldColor + data->pd_ColorOffset));
 241
 242         RectFill(rp, left, top,
 243             left + data->pd_ColWidth  - VSPACING - 1,
 244             top  + data->pd_RowHeight - HSPACING - 1);
 245
 246     }
 247
 248     left  = data->pd_PaletteBox.Left + (data->pd_Color % data->pd_NumCols) * data->pd_ColWidth;
 249     top   = data->pd_PaletteBox.Top  + (data->pd_Color / data->pd_NumCols) * data->pd_RowHeight;
 250
 251     /* Right & bottom of *colored* area */
 252     right  = left + data->pd_ColWidth  - VSPACING - 1;
 253     bottom = top  + data->pd_RowHeight - HSPACING - 1;
 254
 255     /* Render new active entry */
 256     D(bug("rendering new selected: (%d, %d, %d, %d), color=%d\n",
 257         left, top, right, bottom, data->pd_Color));
 258
 259
 260     if ((right - left >= 6) && (bottom - top >= 6))
 261     {
 262         /* Draw some borders */
 263
 264         SetAPen(rp, dri->dri_Pens[BACKGROUNDPEN]);
 265
 266         /* We draw left & right from top to bottom, but draw top & bottom
 267         ** so they don't overlap with what's allready drawn
 268         */
 269
 270         /* left */
 271         RectFill(rp, left, top,
 272             left + 1, bottom);
 273
 274         /* right */
 275         RectFill(rp, right - 1, top,
 276             right, bottom);
 277
 278         /* top */
 279         RectFill(rp, left + 2, top,
 280             right - 2, top + 1);
 281
 282         /* bottom */
 283         RectFill(rp, left + 2, bottom - 1,
 284             right - 2, bottom);
 285     }
 286
 287     /* Draw recessed frame around selected color */
 288     framebox.Left   = left - VBORDER;
 289     framebox.Top    = top  - HBORDER;
 290     framebox.Width  = data->pd_ColWidth  + VBORDER;
 291     framebox.Height = data->pd_RowHeight + HBORDER;
 292
 293     RenderFrame(data, rp, &framebox, dri, TRUE, TRUE, AROSPaletteBase);
 294
 295     /* The newly update color becomes the new OldColor */
 296     data->pd_OldColor = data->pd_Color;
 297
 298     ReturnVoid("UpdateActiveColor");
 299 }
 300
 301
 302 /****************************
 303 **  DrawDisabledPattern()  **
 304 ****************************/
 305
 306 /* draws a disabled pattern */
 307 void DrawDisabledPattern(struct RastPort *rport, struct IBox *gadbox, UWORD pen,
 308                          struct PaletteBase_intern *AROSPaletteBase)
 309 {
 310     UWORD pattern[] = { 0x8888, 0x2222 };
 311
 312     EnterFunc(bug("DrawDisabledPattern(rp=%p, gadbox=%p, pen=%d)\n",
 313                 rport, gadbox, pen));
 314
 315     SetDrMd( rport, JAM1 );
 316     SetAPen( rport, pen );
 317     SetAfPt( rport, pattern, 1);
 318
 319     /* render disable pattern */
 320     RectFill( rport, gadbox->Left,
 321                      gadbox->Top,
 322                      gadbox->Left + gadbox->Width - 1,
 323                      gadbox->Top + gadbox->Height -1 );
 324
 325     SetAfPt ( rport, NULL, 0);
 326
 327     ReturnVoid("DrawDisabledPattern");
 328 }
 329
 330
 331 /******************
 332 **  PrepareFont  **
 333 ******************/
 334 struct TextFont *PrepareFont(struct RastPort *rport, struct IntuiText *itext,
 335                              struct TextFont **oldfont,
 336                              struct PaletteBase_intern *AROSPaletteBase)
 337 {
 338     struct TextFont *font;
 339
 340     EnterFunc(bug("PrepareFont(rp=%p, itext=%p)\n", rport, itext));
 341
 342     if (itext->ITextFont)
 343     {
 344         *oldfont = rport->Font;
 345         font = OpenFont(itext->ITextFont);
 346         if (font)
 347         {
 348             SetFont(rport, font);
 349             SetSoftStyle(rport, itext->ITextFont->ta_Style, 0xffffffff);
 350         } else
 351             font = rport->Font;
 352     } else
 353     {
 354         *oldfont = NULL;
 355         font = rport->Font;
 356     }
 357     SetABPenDrMd(rport, itext->FrontPen, itext->BackPen, itext->DrawMode);
 358
 359     ReturnPtr("PrepareFont", struct TextFont *, font);
 360 }
 361
 362
 363 /********************
 364 **  DisposeFont()  **
 365 ********************/
 366 void DisposeFont(struct RastPort *rport,
 367                struct TextFont *font, struct TextFont *oldfont,
 368                struct PaletteBase_intern *AROSPaletteBase)
 369 {
 370     EnterFunc(bug("DisposeFont(rp=%p, font=%p, oldofnt=%p)\n",
 371                 rport, font, oldfont));
 372     if (oldfont)
 373     {
 374         SetFont(rport, oldfont);
 375         CloseFont(font);
 376     }
 377
 378     ReturnVoid("DisposeFont");
 379 }
 380
 381
 382 /********************
 383 **  RenderLabel()  **
 384 ********************/
 385 BOOL RenderLabel( struct Gadget *gad, struct IBox *gadbox,
 386                 struct RastPort *rport, LONG labelplace,
 387                 struct PaletteBase_intern *AROSPaletteBase)
 388 {
 389     struct TextFont *font = NULL, *oldfont;
 390     struct TextExtent te;
 391     STRPTR text;
 392     int len = 0, x, y;
 393     UWORD width, height;
 394
 395     EnterFunc(bug("RenderLabel(gad=%p, gadbox=%p, rp=%p, labelplace=%ld)\n",
 396         gad, gadbox, rport, labelplace));
 397
 398     if (gad->GadgetText)
 399     {
 400         /* Calculate offsets. */
 401         if ((gad->Flags & GFLG_LABELSTRING))
 402             text = (STRPTR)gad->GadgetText;
 403         else if ((gad->Flags & GFLG_LABELIMAGE))
 404             text = NULL;
 405         else
 406         {
 407             /* GFLG_LABELITEXT */
 408             text = gad->GadgetText->IText;
 409             font = PrepareFont(rport, gad->GadgetText, &oldfont, AROSPaletteBase);
 410             if (!font)
 411                 return FALSE;
 412         }
 413
 414         if (text)
 415         {
 416             len = strlen(text);
 417             TextExtent(rport, text, len, &te);
 418             width  = te.te_Width;
 419             height = te.te_Height;
 420         }
 421         else
 422         {
 423             width  = ((struct Image *)gad->GadgetText)->Width;
 424             height = ((struct Image *)gad->GadgetText)->Height;
 425         }
 426
 427         if (labelplace == GV_LabelPlace_Right)
 428         {
 429             x = gadbox->Left + gadbox->Width + 5;
 430             y = gadbox->Top + (gadbox->Height - height) / 2 + 1;
 431         }
 432         else if (labelplace == GV_LabelPlace_Above)
 433         {
 434             x = gadbox->Left - (width - gadbox->Width) / 2;
 435             y = gadbox->Top - height - 2;
 436         }
 437         else if (labelplace == GV_LabelPlace_Below)
 438         {
 439             x = gadbox->Left - (width - gadbox->Width) / 2;
 440             y = gadbox->Top + gadbox->Height + 3;
 441         }
 442         else if (labelplace == GV_LabelPlace_In)
 443         {
 444             x = gadbox->Left - (width - gadbox->Width) / 2;
 445             y = gadbox->Top + (gadbox->Height - height) / 2 + 1;
 446         }
 447         else /* GV_LabelPlace_Left */
 448         {
 449             x = gadbox->Left - width - 4;
 450             y = gadbox->Top + (gadbox->Height - height) / 2 + 1;
 451         }
 452
 453         if (gad->Flags & GFLG_LABELSTRING)
 454         {
 455             SetABPenDrMd(rport, 1, 0, JAM1);
 456             Move(rport, x, y);
 457             Text(rport, text, len);
 458         }
 459         else if (gad->Flags & GFLG_LABELIMAGE)
 460             DrawImage(rport, (struct Image *)gad->GadgetText, x, y);
 461         else
 462         {
 463             PrintIText(rport, gad->GadgetText, x, y);
 464             DisposeFont(rport, font, oldfont, AROSPaletteBase);
 465         }
 466     }
 467     ReturnBool("RenderLabel", TRUE);
 468 }
 469
 470
 471 /********************
 472 **  RenderFrame()  **
 473 ********************/
 474 VOID RenderFrame(struct PaletteData *data, struct RastPort *rp, struct IBox *gadbox,
 475         struct DrawInfo *dri, BOOL recessed, BOOL edgesonly, struct PaletteBase_intern *AROSPaletteBase)
 476 {
 477     WORD left, top;
 478
 479     EnterFunc(bug("RenderFrame(rp=%p, gadbox=%p, dri=%p)\n",
 480                 rp, gadbox, dri));
 481
 482     left = gadbox->Left; top = gadbox->Top;
 483
 484     if (!data->pd_Frame)
 485     {
 486         struct TagItem frame_tags[] =
 487         {
 488             {IA_Resolution      , (dri->dri_Resolution.X << 16) +  dri->dri_Resolution.Y},
 489             {IA_FrameType       , FRAME_BUTTON                                          },
 490             {IA_EdgesOnly       , edgesonly                                             },
 491             {TAG_DONE                                                                   }
 492         };
 493
 494         data->pd_Frame = NewObjectA(NULL, FRAMEICLASS, frame_tags);
 495     }
 496
 497     if (data->pd_Frame)
 498     {
 499         struct TagItem frameset_tags[] =
 500         {
 501             {IA_Width           , gadbox->Width         },
 502             {IA_Height          , gadbox->Height        },
 503             {IA_Recessed        , recessed              },
 504             {IA_EdgesOnly       , edgesonly             },
 505             {TAG_DONE                                   }
 506         };
 507
 508         SetAttrsA(data->pd_Frame, frameset_tags);
 509
 510         DrawImageState(rp,
 511                        (struct Image *)data->pd_Frame,
 512                        left,
 513                        top,
 514                        IDS_NORMAL,
 515                        dri);
 516
 517     }
 518
 519     ReturnVoid("RenderFrame");
 520 }
 521