?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Updated PCI IDs to latest snapshot.
[tangerine.git] / workbench / libs / reqtools / palettereq.c
blob4a022a83e5e2506828d03ff25298b0a8046360ed
1
2 /* INCLUDES */
3
4 #include <exec/types.h>
5 #include <exec/memory.h>
6 #include <libraries/dos.h>
7 #include <libraries/dosextens.h>
8 #include <libraries/gadtools.h>
9 #include <intuition/icclass.h>
10 #include <intuition/intuition.h>
11 #include <intuition/gadgetclass.h>
12 #include <intuition/intuitionbase.h>
13 #include <intuition/gadgetclass.h>
14 #include <gadgets/colorwheel.h>
15 #include <gadgets/gradientslider.h>
16 #include <graphics/gfxbase.h>
17 #include <proto/graphics.h>
18 #include <proto/exec.h>
19 #include <proto/intuition.h>
20 #include <proto/dos.h>
21 #include <proto/gadtools.h>
22 #include <proto/utility.h>
23 #include <proto/alib.h>
24 #include <proto/colorwheel.h>
25 #include <clib/macros.h>
26 #include <string.h>
27
28 #include <libraries/reqtools.h>
29 #include <proto/reqtools.h>
30
31 #include "general.h"
32 #include "gadstub.h"
33 #include "boopsigads.h"
34
35 #include "rtlocale.h"
36
37 /****************************************************************************************/
38
39 extern struct ReqToolsBase *ReqToolsBase;
40
41 /****************************************************************************************/
42
43 #define COLORWHEEL
44 #define GRADIENT
45
46 /****************************************************************************************/
47
48 extern ULONG ASM LoopReqHandler (ASM_REGPARAM(a1, struct rtHandlerInfo *,));
49 extern ULONG ASM myGetDisplayInfoData (
50 OPT_REGPARAM(a1, UBYTE *,),
51 OPT_REGPARAM(d0, unsigned long,),
52 OPT_REGPARAM(d1, unsigned long,),
53 OPT_REGPARAM(d2, unsigned long,));
54
55 /****************************************************************************************/
56
57 #define RED_ID 0 /* DO NOT CHANGE !!! */
58 #define GREEN_ID 1 /* DO NOT CHANGE !!! */
59 #define BLUE_ID 2 /* DO NOT CHANGE !!! */
60
61 #define PALETTE_ID 3
62 #define COPY_ID 4
63 #define SWAP_ID 5
64 #define SPREAD_ID 6
65 #define OK_ID 7
66 #define UNDO_ID 8
67 #define CANCEL_ID 9
68 #define SLIDER_ID 10
69 #define WHEEL_ID 11
70
71 /****************************************************************************************/
72
73 STRPTR ModeTitles[] =
74 {
75 MSG_COPY_TITLE,
76 MSG_SWAP_TITLE,
77 MSG_SPREAD_TITLE
78 };
79
80 /****************************************************************************************/
81
82 #define MODE_TITLE_OFFSET COPY_ID
83
84
85 #define LOWGRADPENS 4
86 #define HIGHGRADPENS 8
87 #define FREEFORHIGH 32
88
89 #define NO_TITLE ( ( STRPTR ) ~0 )
90
91 /****************************************************************************************/
92
93 extern struct Library *GadToolsBase;
94 extern struct IntuitionBase *IntuitionBase;
95 extern struct GfxBase *GfxBase;
96
97 extern struct TextAttr topaz80;
98
99 /****************************************************************************************/
100
101 typedef struct RealHandlerInfo GlobData;
102
103 struct RealHandlerInfo
104 {
105 LONG (*func)(); /* private */
106 ULONG rthi_WaitMask;
107 ULONG rthi_DoNotWait;
108
109 /* PRIVATE */
110 ULONG cols[3]; /* DO NOT MOVE, see cols offset in misc.asm */
111 struct ViewPort *vp; /* DO NOT MOVE, see vp offset in misc.asm */
112 union
113 { /* DO NOT MOVE, see offsets in misc.asm */
114 struct
115 {
116 ULONG red, green, blue;
117 } bits;
118 ULONG colbits[3];
119 } col;
120 struct NewWindow newpalwin;
121 struct KeyButtonInfo buttoninfo;
122 struct Screen *scr, *frontscr;
123 struct Gadget *colgad[3], *palgad;
124 struct Window *palwin, *win, *prwin;
125 struct ColorMap *cm;
126 struct TextAttr font;
127 struct TextFont *reqfont;
128 struct DrawInfo *drinfo;
129 struct Image labelimages;
130 struct rtReqInfo *reqinfo;
131 struct Hook *imsghook, backfillhook;
132 struct Catalog *catalog;
133 struct IntuiText itxt;
134 long color, coldepth, colcount, reqpos, leftedge, topedge;
135 int waitpointer, lockwindow, shareidcmp, noscreenpop;
136 int fontwidth, fontheight, mode, os30, maxcolval[3];
137 char key[3], palettekey;
138 APTR colormap, undomap;
139 APTR visinfo, winlock;
140 WORD zoom[4];
141
142 #ifdef COLORWHEEL
143 /* Color wheel */
144 struct Library *ColorWheelBase;
145 struct Library *GradientSliderBase;
146 struct ColorWheelRGB wheel_rgb;
147 struct ColorWheelHSB wheel_hsb;
148 struct Gadget *wheel;
149 struct Gadget *wheel_slider;
150 ULONG wheel_colortable[3];
151
152 #ifdef GRADIENT
153 UWORD wheel_pens[ HIGHGRADPENS + 1 ];
154 UWORD numgradpens;
155 #endif
156 WORD dowheel, fancywheel;
157 Point screenres;
158 #endif
159 };
160
161 /****************************************************************************************/
162
163 #define redbits col.bits.red
164 #define greenbits col.bits.green
165 #define bluebits col.bits.blue
166
167 #define ThisProcess() ( ( struct Process * ) FindTask( NULL ) )
168
169 /****************************************************************************************/
170
171 extern ULONG ASM MakeColVal (ASM_REGPARAM(d0, ULONG,), ASM_REGPARAM(d4, ULONG,));
172 extern void REGARGS SpreadColors (GlobData *, int, int, ULONG *);
173
174 static int REGARGS SetupPalWindow (GlobData *, char *);
175 static void REGARGS SelectColor (GlobData *, int);
176 static void REGARGS FreeAll (GlobData *);
177 static void REGARGS SetColor (GlobData *, int, ULONG *);
178 static void REGARGS SetWheelColor (GlobData *, struct TagItem * );
179 static void REGARGS UpdateWheel( GlobData *, ULONG * );
180 static void REGARGS RestorePaletteFreeAll (GlobData *);
181 static void REGARGS DoColorShortcut (GlobData *, int, int, int);
182 static LONG ASM SAVEDS PalReqHandler (
183 REGPARAM(a1, struct RealHandlerInfo *,),
184 REGPARAM(d0, ULONG,),
185 REGPARAM(a0, struct TagItem *,));
186
187 /****************************************************************************************/
188
189 #ifdef COLORWHEEL
190 #define ColorWheelBase glob->ColorWheelBase
191 #define GradientSliderBase glob->GradientSliderBase
192 #endif
193
194
195 /****************************************************************************************/
196
197 #if !USE_ASM_FUNCS
198
199 /****************************************************************************************/
200
201 ULONG MakeColVal(ULONG val, ULONG bits)
202 {
203 ULONG val2;
204
205 val2 = val << (32 - bits);
206 val = val2;
207 do
208 {
209 val2 >>= bits;
210 val |= bits;
211 } while(val2);
212
213 return val;
214 }
215
216 /****************************************************************************************/
217
218 void REGARGS SpreadColors (GlobData *glob, int from, int to, ULONG *rgb2)
219 {
220 LONG colstep;
221 LONG step[3];
222 LONG rgb[3];
223 WORD actcol, steps, gun;
224
225 colstep = 1;
226
227 steps = to - from;
228 if (!steps) return;
229
230 if (steps < 0)
231 {
232 steps = -steps;
233 colstep = -1;
234 }
235
236 for(gun = 0; gun < 3; gun++)
237 {
238 LONG diff = rgb2[gun] - glob->cols[gun];
239 step[gun] = (diff << 16L) / steps;
240 rgb[gun] = glob->cols[gun] << 16;
241 }
242
243 actcol = from;
244
245 for(actcol = from;
246 actcol != to;
247 actcol += colstep, rgb[0] += step[0], rgb[1] += step[1], rgb[2] += step[2])
248 {
249 ULONG red = (((ULONG)rgb[0]) + 0x8000) >> 16;
250 ULONG green = (((ULONG)rgb[1]) + 0x8000) >> 16;
251 ULONG blue = (((ULONG)rgb[2]) + 0x8000) >> 16;
252
253 if (GfxBase->LibNode.lib_Version >= 39)
254 {
255 SetRGB32(glob->vp, actcol, MakeColVal(red, glob->col.colbits[0]),
256 MakeColVal(green, glob->col.colbits[1]),
257 MakeColVal(blue, glob->col.colbits[2]));
258 }
259 else
260 {
261 SetRGB4(glob->vp, actcol, red, green, blue);
262 }
263
264 }
265
266 }
267
268 /****************************************************************************************/
269
270 #endif /* !USE_ASM_FUNCS */
271
272 /****************************************************************************************/
273
274 #ifdef DO_CM_DEPTH
275 static int
276 ColBits( int num )
277 {
278 int i, j;
279
280 if( num < 2 )
281 {
282 return( 1 );
283 }
284
285 for( i = 1, j = 4; i <= 8; ++i, j <<= 1 )
286 {
287 if( j > num )
288 {
289 return( i );
290 }
291 }
292
293 return( 8 );
294 }
295 #endif
296
297 /****************************************************************************************/
298
299 LONG ASM SAVEDS PaletteRequestA (
300 REGPARAM(a2, char *, title),
301 REGPARAM(a3, struct rtReqInfo *, reqinfo),
302 REGPARAM(a0, struct TagItem *, taglist))
303 {
304 GlobData *glob;
305 struct DisplayInfo displayinfo;
306 struct TagItem *tag;
307 const struct TagItem *tstate = taglist;
308 struct TextFont *deffont = NULL;
309 struct TextAttr *fontattr = NULL;
310 struct Locale *locale = NULL;
311 char *pubname = NULL;
312 ULONG tagdata, reqhandler = FALSE;
313
314 if (!(glob = AllocVec (sizeof(GlobData), MEMF_PUBLIC|MEMF_CLEAR)))
315 return (-1);
316
317 glob->os30 = (GfxBase->LibNode.lib_Version >= 39);
318 glob->color = 1;
319 glob->reqpos = REQPOS_DEFAULT;
320
321 if ((glob->reqinfo = reqinfo))
322 {
323 glob->reqpos = reqinfo->ReqPos;
324 glob->leftedge = reqinfo->LeftOffset;
325 glob->topedge = reqinfo->TopOffset;
326 deffont = reqinfo->DefaultFont;
327 glob->waitpointer = reqinfo->WaitPointer;
328 glob->lockwindow = reqinfo->LockWindow;
329 glob->shareidcmp = reqinfo->ShareIDCMP;
330 glob->imsghook = reqinfo->IntuiMsgFunc;
331 }
332
333 /* parse tags */
334 while ((tag = NextTagItem (&tstate)))
335 {
336 tagdata = tag->ti_Data;
337 if (tag->ti_Tag > RT_TagBase)
338 {
339 switch (tag->ti_Tag)
340 {
341 case RT_Window: glob->prwin = (struct Window *)tagdata; break;
342 case RT_ReqPos: glob->reqpos = tagdata; break;
343 case RT_LeftOffset: glob->leftedge = tagdata; break;
344 case RT_TopOffset: glob->topedge = tagdata; break;
345 case RT_PubScrName: pubname = (char *)tagdata; break;
346 case RT_Screen: glob->scr = (struct Screen *)tagdata; break;
347 case RT_ReqHandler: *(APTR *)tagdata = glob;
348 reqhandler = TRUE;
349 break;
350 case RT_DefaultFont: deffont = (struct TextFont *)tagdata; break;
351 case RT_WaitPointer: glob->waitpointer = tagdata; break;
352 case RT_ShareIDCMP: glob->shareidcmp = tagdata; break;
353 case RT_LockWindow: glob->lockwindow = tagdata; break;
354 case RT_ScreenToFront: glob->noscreenpop = !tagdata; break;
355 case RT_TextAttr: fontattr = (struct TextAttr *)tagdata; break;
356 case RT_IntuiMsgFunc: glob->imsghook = (struct Hook *)tagdata; break;
357 case RT_Locale: locale = (struct Locale *)tagdata; break;
358 case RTPA_Color: glob->color = tagdata; break;
359 }
360 }
361 }
362
363 glob->catalog = RT_OpenCatalog (locale);
364
365 if (!glob->prwin || !glob->prwin->UserPort ||
366 (glob->prwin->UserPort->mp_SigTask != ThisProcess()))
367 glob->shareidcmp = FALSE;
368
369 if (!(glob->scr = GetReqScreen (&glob->newpalwin, &glob->prwin, glob->scr, pubname)))
370 {
371 FreeAll (glob);
372 return (-1);
373 }
374 glob->vp = &glob->scr->ViewPort;
375 glob->cm = glob->vp->ColorMap;
376
377 if (!(glob->coldepth = GetVpCM (glob->vp, &glob->colormap)) ||
378 !GetVpCM (glob->vp, &glob->undomap))
379 {
380 FreeAll (glob);
381 return (-1);
382 }
383
384 glob->colcount = (1 << glob->coldepth);
385 glob->newpalwin.Screen = glob->scr;
386
387 if (fontattr)
388 glob->font = *fontattr;
389 else
390 glob->font = *glob->scr->Font;
391
392 glob->redbits = glob->greenbits = glob->bluebits = 4;
393 if (glob->os30)
394 {
395 if (myGetDisplayInfoData ((UBYTE *)&displayinfo, sizeof (struct DisplayInfo),
396 DTAG_DISP, GetVPModeID (glob->vp)) > 0)
397 {
398 glob->redbits = displayinfo.RedBits;
399 glob->greenbits = displayinfo.GreenBits;
400 glob->bluebits = displayinfo.BlueBits;
401 #ifdef COLORWHEEL
402
403 #ifdef __AROS__
404 #warning DisplayInfo.Resolution does not seem to have correct/any values yet in AROS
405 glob->screenres.x = glob->screenres.y = 22;
406 #else
407 glob->screenres = displayinfo.Resolution;
408 #endif
409
410 #endif
411 }
412 }
413
414 glob->maxcolval[RED_ID] = (1 << glob->redbits) - 1;
415 glob->maxcolval[GREEN_ID] = (1 << glob->greenbits) - 1;
416 glob->maxcolval[BLUE_ID] = (1 << glob->bluebits) - 1;
417
418 if (!(glob->visinfo = GetVisualInfoA (glob->scr, NULL)) ||
419 !(glob->drinfo = GetScreenDrawInfo (glob->scr)))
420 {
421 FreeAll (glob);
422 return (-1);
423 }
424
425 #ifdef COLORWHEEL
426 {
427 struct ReqToolsPrefs *prefs;
428
429 prefs = rtLockPrefs();
430 glob->dowheel = ( prefs->Flags & RTPRF_DOWHEEL ) && glob->os30;
431 glob->fancywheel = glob->dowheel && ( prefs->Flags & RTPRF_FANCYWHEEL );
432 rtUnlockPrefs();
433 }
434
435 if( glob->dowheel )
436 {
437 if ((ColorWheelBase = OpenLibrary ("gadgets/colorwheel.gadget", 39)))
438 {
439 GradientSliderBase = OpenLibrary ("gadgets/gradientslider.gadget", 39);
440 }
441 }
442 #endif
443
444 SelectColor (glob, glob->color);
445
446 retryopenwin:
447 if (!(glob->reqfont = GetReqFont (&glob->font, deffont, &glob->fontheight,
448 &glob->fontwidth, glob->os30)))
449 {
450 FreeAll (glob);
451 return (-1);
452 }
453
454 if (!SetupPalWindow (glob, title))
455 {
456 if( glob->dowheel )
457 {
458 glob->dowheel = FALSE;
459 #ifdef COLORWHEEL
460 DisposeObject( glob->wheel );
461 DisposeObject( glob->wheel_slider );
462 glob->wheel = NULL;
463 glob->wheel_slider = NULL;
464 CloseLibrary( ColorWheelBase );
465 CloseLibrary( GradientSliderBase );
466 ColorWheelBase = NULL;
467 GradientSliderBase = NULL;
468 #endif
469 goto retryopenwin;
470 }
471
472 if (glob->font.ta_YSize > 8)
473 {
474 glob->font = topaz80;
475 CloseFont (glob->reqfont);
476 goto retryopenwin;
477 }
478
479 FreeAll (glob);
480 return (-1);
481 }
482
483 #ifdef COLORWHEEL
484 if( glob->fancywheel )
485 {
486 /* Try to get a fresh undo color map (in case the wheel allocates some) */
487 RefreshVpCM( glob->vp, glob->undomap );
488
489 /* And make sure selected color still is correct */
490 SelectColor( glob, glob->color );
491 }
492 #endif
493
494 glob->winlock = DoLockWindow (glob->prwin, glob->lockwindow, NULL, TRUE);
495 DoWaitPointer (glob->prwin, glob->waitpointer, TRUE);
496
497 glob->frontscr = IntuitionBase->FirstScreen;
498 DoScreenToFront (glob->scr, glob->noscreenpop, TRUE);
499
500 /* fill in RealHandlerInfo */
501 glob->func = (LONG (*)())PalReqHandler;
502 glob->rthi_WaitMask = (1 << glob->palwin->UserPort->mp_SigBit);
503
504 if (reqhandler) return (CALL_HANDLER);
505
506 return ((LONG)LoopReqHandler ((struct rtHandlerInfo *)glob));
507 }
508
509 /****************************************************************************************/
510
511 static LONG ASM SAVEDS PalReqHandler (
512 REGPARAM(a1, struct RealHandlerInfo *, glob),
513 REGPARAM(d0, ULONG, sigs),
514 REGPARAM(a0, struct TagItem *, taglist))
515 {
516 struct IntuiMessage *palmsg;
517 struct Gadget *gad;
518 struct TagItem *tag;
519 const struct TagItem *tstate = taglist;
520 ULONG rgb[3], rgbcol;
521 ULONG tagdata, class;
522 UWORD code, qual;
523 int i, gadid, shifted, alt;
524 char key;
525
526 /* uncomment if sigs is no longer ignored */
527 //if (glob->rthi_DoNotWait) sigs = 0;
528
529 /* parse tags */
530 while ((tag = NextTagItem (&tstate)))
531 {
532 tagdata = tag->ti_Data;
533 if (tag->ti_Tag > RT_TagBase)
534 {
535 switch (tag->ti_Tag)
536 {
537 case RTRH_EndRequest:
538 if (tagdata == REQ_OK)
539 {
540 FreeAll (glob);
541 return (0);
542 }
543 RestorePaletteFreeAll (glob);
544 return (-1);
545 }
546 }
547 }
548
549 while ((palmsg = GetWin_GT_Msg (glob->palwin, glob->imsghook, glob->reqinfo)))
550 {
551 class = palmsg->Class;
552 code = palmsg->Code;
553 qual = palmsg->Qualifier;
554 gad = (struct Gadget *)palmsg->IAddress;
555 Reply_GT_Msg (palmsg);
556
557 switch (class)
558 {
559 case IDCMP_REFRESHWINDOW:
560 GT_BeginRefresh (glob->palwin);
561 GT_EndRefresh (glob->palwin, TRUE);
562 break;
563
564 case IDCMP_CLOSEWINDOW:
565 RestorePaletteFreeAll (glob);
566 return (-1);
567
568 case IDCMP_MOUSEMOVE:
569 case IDCMP_GADGETDOWN:
570 if (gad->GadgetID <= BLUE_ID)
571 {
572 glob->cols[gad->GadgetID] = code;
573 SetColor (glob, glob->color, glob->cols);
574 #ifdef COLORWHEEL
575 UpdateWheel( glob, glob->cols );
576 #endif
577 }
578 break;
579
580 case IDCMP_RAWKEY:
581 case IDCMP_GADGETUP:
582 if (class == IDCMP_RAWKEY)
583 {
584 if (!(gadid = CheckGadgetKey (code, qual, &key, &glob->buttoninfo)))
585 {
586 /* key press was not for gadget, so check other cases */
587 shifted = qual & (IEQUALIFIER_LSHIFT|IEQUALIFIER_RSHIFT);
588 alt = qual & (IEQUALIFIER_LALT|IEQUALIFIER_RALT);
589 if (key == glob->key[RED_ID])
590 DoColorShortcut (glob, RED_ID, shifted, alt);
591 else if (key == glob->key[GREEN_ID])
592 DoColorShortcut (glob, GREEN_ID, shifted, alt);
593 else if (key == glob->key[BLUE_ID])
594 DoColorShortcut (glob, BLUE_ID, shifted, alt);
595 else if (key == glob->palettekey)
596 {
597 code = glob->color;
598 if (!shifted)
599 {
600 code++;
601 if (code >= glob->colcount) code = 0;
602 }
603 else
604 {
605 if (code <= 0) code = glob->colcount;
606 code--;
607 }
608 myGT_SetGadgetAttrs (glob->palgad, glob->palwin, NULL,
609 GTPA_Color, code, TAG_END);
610 gadid = PALETTE_ID;
611 glob->mode = 0;
612 }
613
614 }
615
616 } /* if (class == IDCMP_RAWKEY) */
617 else gadid = gad->GadgetID;
618
619 if (gadid) switch (gadid)
620 {
621 case CANCEL_ID:
622 RestorePaletteFreeAll (glob);
623 return (-1);
624
625 case OK_ID:
626 code = glob->color;
627 FreeAll (glob);
628 return ((LONG)code);
629
630 case PALETTE_ID:
631 RefreshVpCM (glob->vp, glob->undomap);
632
633 if (!glob->os30)
634 {
635 rgbcol = GetRGB4 (glob->cm, code);
636 for (i = 2; i >= 0; i--)
637 {
638 rgb[i] = rgbcol & 0xf;
639 rgbcol >>= 4;
640 }
641 }
642 else
643 {
644 GetRGB32 (glob->cm, code, 1, rgb);
645 rgb[0] >>= (32 - glob->redbits);
646 rgb[1] >>= (32 - glob->greenbits);
647 rgb[2] >>= (32 - glob->bluebits);
648 }
649
650 switch (glob->mode)
651 {
652 case SWAP_ID:
653 SetColor (glob, glob->color, rgb);
654 case COPY_ID:
655 SetColor (glob, code, glob->cols);
656 break;
657 case SPREAD_ID:
658 SpreadColors (glob, glob->color, code, rgb);
659 break;
660 }
661
662 SelectColor (glob, code);
663 glob->mode = 0;
664 SetWindowTitles( glob->palwin, glob->newpalwin.Title, NO_TITLE );
665 #ifdef COLORWHEEL
666 UpdateWheel( glob, glob->cols );
667 #endif
668 break;
669
670 case UNDO_ID:
671 LoadCMap (glob->vp, glob->undomap);
672 SelectColor (glob, glob->color);
673 #ifdef COLORWHEEL
674 UpdateWheel( glob, glob->cols );
675 #endif
676 break;
677
678 default:
679 if( ( gadid == SWAP_ID ) || ( gadid == COPY_ID ) || ( gadid == SPREAD_ID ) )
680 {
681 glob->mode = gadid;
682 SetWindowTitles( glob->palwin, GetStr( glob->catalog, ModeTitles[ gadid - MODE_TITLE_OFFSET ] ), NO_TITLE );
683 }
684
685 break;
686
687 } /* if (gadid) switch (gadid) */
688 break;
689
690 #ifdef COLORWHEEL
691 case IDCMP_IDCMPUPDATE:
692 SetWheelColor( glob, ( struct TagItem * ) gad );
693 break;
694 #endif
695 }
696
697 } /* while ((palmsg = GetWin_GT_Msg (glob->palwin, glob->imsghook, glob->reqinfo))) */
698
699 return (CALL_HANDLER);
700 }
701
702 /****************************************************************************************/
703
704 static void REGARGS DoColorShortcut (GlobData *glob, int id, int shifted, int alt)
705 {
706 int t = glob->cols[id];
707
708 if (shifted)
709 {
710 if (alt) t -= 8; else t--;
711 if (t < 0) t = 0;
712 }
713 else
714 {
715 if (alt) t += 8; else t++;
716 if (t >= glob->maxcolval[id]) t = glob->maxcolval[id];
717 }
718
719 glob->cols[id] = t;
720 SetColor (glob, glob->color, glob->cols);
721 SelectColor (glob, glob->color);
722 }
723
724 /****************************************************************************************/
725
726 static void REGARGS SetColor (GlobData *glob, int col, ULONG *rgb)
727 {
728 if( !glob->os30 )
729 {
730 SetRGB4( glob->vp, col, rgb[ 0 ], rgb[ 1 ], rgb[ 2 ] );
731 }
732 else
733 {
734 SetRGB32( glob->vp, col,
735 MakeColVal( rgb[ 0 ], glob->redbits ),
736 MakeColVal( rgb[ 1 ], glob->greenbits ),
737 MakeColVal( rgb[ 2 ], glob->bluebits) );
738 }
739 }
740
741 /****************************************************************************************/
742
743 #ifdef COLORWHEEL
744
745 /****************************************************************************************/
746
747 #ifdef GRADIENT
748
749 /****************************************************************************************/
750
751 static void REGARGS
752 UpdateGrad( GlobData *glob )
753 {
754 if( glob->numgradpens )
755 {
756 LONG i;
757
758 GetAttr( WHEEL_HSB, (Object *)glob->wheel, ( IPTR * ) &glob->wheel_hsb );
759
760 for( i = 0; i < glob->numgradpens; ++i )
761 {
762 glob->wheel_hsb.cw_Brightness = 0xffffffff - ( ( 0xffffffff / ( glob->numgradpens - 1 ) ) * i );
763 ConvertHSBToRGB( &glob->wheel_hsb, &glob->wheel_rgb );
764 SetRGB32( &glob->scr->ViewPort, glob->wheel_pens[ i ],
765 glob->wheel_rgb.cw_Red, glob->wheel_rgb.cw_Green,
766 glob->wheel_rgb.cw_Blue );
767 }
768 }
769 }
770
771 /****************************************************************************************/
772
773 #endif
774
775 /****************************************************************************************/
776
777 static void REGARGS
778 UpdateWheel( GlobData *glob, ULONG *cols )
779 {
780 if( glob->wheel )
781 {
782 glob->wheel_rgb.cw_Red = MakeColVal( cols[ 0 ], glob->redbits );
783 glob->wheel_rgb.cw_Green = MakeColVal( cols[ 1 ], glob->greenbits );
784 glob->wheel_rgb.cw_Blue = MakeColVal( cols[ 2 ], glob->bluebits );
785
786 SetGadgetAttrs( glob->wheel, glob->palwin, NULL, WHEEL_RGB, (IPTR) &glob->wheel_rgb,
787 TAG_DONE );
788
789 #ifdef GRADIENT
790 UpdateGrad( glob );
791 #endif
792 }
793 }
794
795 /****************************************************************************************/
796
797 static void REGARGS
798 SetWheelColor( GlobData *glob, struct TagItem *tag )
799 {
800 if( glob->wheel )
801 {
802 ULONG i;
803
804 GetAttr( WHEEL_HSB, (Object *)glob->wheel, ( IPTR * ) &glob->wheel_hsb );
805 ConvertHSBToRGB( &glob->wheel_hsb, &glob->wheel_rgb );
806 glob->cols[ RED_ID ] = glob->wheel_rgb.cw_Red >> ( 32 - glob->redbits );
807 glob->cols[ GREEN_ID ] = glob->wheel_rgb.cw_Green >> ( 32 - glob->greenbits );
808 glob->cols[ BLUE_ID ] = glob->wheel_rgb.cw_Blue >> ( 32 - glob->bluebits );
809 SetColor( glob, glob->color, glob->cols );
810
811 for( i = 0; i < 3; ++i )
812 {
813 if( glob->colgad[ i ] )
814 {
815 myGT_SetGadgetAttrs( glob->colgad[ i ], glob->palwin, NULL, GTSL_Level, glob->cols[ i ],
816 TAG_END );
817 }
818 }
819
820 #ifdef GRADIENT
821 UpdateGrad( glob );
822 #endif
823 }
824 }
825
826 /****************************************************************************************/
827
828 #endif
829
830 /****************************************************************************************/
831
832 static void REGARGS SelectColor (GlobData *glob, int col)
833 {
834 ULONG rgb[3], rgbcol = 0;
835 int i;
836
837 if (!glob->os30) rgbcol = GetRGB4 (glob->cm, col);
838 else GetRGB32 (glob->cm, col, 1, rgb);
839
840 for (i = 2; i >= 0; i--)
841 {
842 if (!glob->os30)
843 {
844 glob->cols[i] = rgbcol & 0xF;
845 rgbcol >>= 4;
846 }
847 else glob->cols[i] = rgb[i] >> (32 - glob->col.colbits[i]);
848
849 if (glob->colgad[i])
850 myGT_SetGadgetAttrs (glob->colgad[i], glob->palwin, NULL,
851 GTSL_Level, glob->cols[i], TAG_END);
852 }
853
854 glob->color = col;
855 }
856
857 /****************************************************************************************/
858
859 static void REGARGS RestorePaletteFreeAll (GlobData *glob)
860 {
861 LoadCMap (glob->vp, glob->colormap);
862 FreeAll (glob);
863 }
864
865 /****************************************************************************************/
866
867 static void REGARGS FreeAll (GlobData *glob)
868 {
869 #ifdef COLORWHEEL
870 #ifdef GRADIENT
871 LONG i;
872 #endif
873 #endif
874 if (glob->newpalwin.Type == PUBLICSCREEN) UnlockPubScreen (NULL, glob->scr);
875 DoScreenToFront (glob->frontscr, glob->noscreenpop, FALSE);
876
877 if (glob->palwin)
878 {
879 DoLockWindow (glob->prwin, glob->lockwindow, glob->winlock, FALSE);
880 DoWaitPointer (glob->prwin, glob->waitpointer, FALSE);
881 DoCloseWindow (glob->palwin, glob->shareidcmp);
882 }
883
884 RT_CloseCatalog (glob->catalog);
885 my_FreeGadgets (glob->buttoninfo.glist);
886 my_FreeLabelImages (&glob->labelimages);
887
888 #ifdef COLORWHEEL
889 DisposeObject (glob->wheel);
890 DisposeObject (glob->wheel_slider);
891
892 #ifdef GRADIENT
893 if( glob->numgradpens )
894 {
895 for( i = 0; glob->wheel_pens[ i ] != (UWORD)~0; i++ )
896 {
897 ReleasePen( glob->scr->ViewPort.ColorMap, glob->wheel_pens[ i ] );
898 }
899 }
900 #endif
901
902 CloseLibrary (GradientSliderBase);
903 CloseLibrary (ColorWheelBase);
904 #endif
905
906 FreeVisualInfo (glob->visinfo);
907
908 if (glob->drinfo) FreeScreenDrawInfo (glob->scr, glob->drinfo);
909 if (glob->reqfont) CloseFont (glob->reqfont);
910
911 FreeVpCM (glob->vp, glob->colormap, FALSE);
912 FreeVpCM (glob->vp, glob->undomap, FALSE);
913 FreeVec (glob);
914 }
915
916 /****************************************************************************************/
917
918 char *colstr[] = { MSG_RED, MSG_GREEN, MSG_BLUE };
919 char *gadtxt[] = { MSG_COPY, MSG_SWAP, MSG_SPREAD, MSG_OK, MSG_UNDO, MSG_CANCEL };
920
921 /****************************************************************************************/
922
923 static int REGARGS SetupPalWindow (GlobData *glob, char *title)
924 {
925 struct NewGadget ng;
926 struct Gadget *gad;
927 struct Image *img;
928 int val, i, top, buttonheight, winheight;
929 int spacing, scrwidth, scrheight, maxwidth;
930 int winwidth, width1, width2, reqpos, levelwidth;
931 #ifdef COLORWHEEL
932 int wheelwidth = 0, wheelheight = 0, wheeltopoff;
933 #endif
934 int wheeloff = 0;
935 int leftoff, rightoff;
936 ULONG gadlen[6], gadpos[6];
937 char *str, *string[6];
938
939
940 spacing = rtGetVScreenSize (glob->scr, (ULONG *)&scrwidth, (ULONG *)&scrheight);
941 leftoff = glob->scr->WBorLeft + 5;
942 rightoff = glob->scr->WBorRight + 5;
943
944 top = (glob->scr->WBorTop + glob->scr->Font->ta_YSize + 1) + spacing / 2 + 1;
945 glob->itxt.ITextFont = &glob->font;
946
947 #ifdef COLORWHEEL
948 wheeltopoff = top;
949 #endif
950
951 width1 = width2 = 0;
952
953 for (i = 0; i < 6; i++)
954 {
955 string[i] = GetStr (glob->catalog, gadtxt[i]);
956 val = StrWidth_noloc (&glob->itxt, string[i]) + 16;
957 if (i < 3)
958 {
959 if (val > width1) width1 = val;
960 }
961 else
962 {
963 if (val > width2) width2 = val;
964 }
965 }
966
967 for (i = 0; i < 3; i++) gadlen[i] = width1;
968 for (i = 3; i < 6; i++) gadlen[i] = width2;
969
970 width1 *= 3;
971 width2 *= 3;
972
973 winwidth = (leftoff + rightoff) + 25 + width1 + 2 * 8;
974 val = (leftoff + rightoff) + width2 + 2 * 8;
975 if (val > winwidth) winwidth = val;
976 if (winwidth < 256) winwidth = 256;
977
978 val = glob->fontheight * 2 + 4;
979 #ifdef __AROS__
980 val += 5;
981 #endif
982
983 if (glob->colcount >= 64) val *= 2;
984 if (glob->colcount >= 128) val *= 2;
985
986
987 #ifdef COLORWHEEL
988 if( glob->dowheel && glob->screenres.x && glob->screenres.y && ColorWheelBase && GradientSliderBase )
989 {
990 LONG maxheight = 120;
991
992 if( scrheight > 600 )
993 {
994 maxheight = 160;
995 }
996 else if( scrheight < 300 )
997 {
998 maxheight = 75;
999 }
1000
1001 wheelheight = val + glob->fontheight * 4 + 6 + 3 + spacing * 3;
1002
1003 if( wheelheight > maxheight )
1004 {
1005 wheelheight = maxheight;
1006 }
1007
1008 #ifndef __AROS__
1009 #warning Changed, because gcc produced wrong code! gcc 2.95.1 compiled under UAE JIT for Linux!?
1010 wheelwidth = glob->screenres.y;
1011 wheelwidth *= wheelheight;
1012 wheelwidth /= glob->screenres.x;
1013 #else
1014 wheelwidth = wheelheight * glob->screenres.y / glob->screenres.x;
1015 #endif
1016
1017 if( ( scrwidth - winwidth > wheelwidth + 8 ) &&
1018 ( scrheight > 200 ) )
1019 {
1020 wheeloff = wheelwidth + 8;
1021 winwidth += wheeloff;
1022 }
1023 else
1024 {
1025 glob->dowheel = FALSE;
1026 }
1027
1028 } /* if( glob->dowheel && glob->screenres.x && glob->screenres.y && ColorWheelBase && GradientSliderBase ) */
1029 else
1030 {
1031 glob->dowheel = FALSE;
1032 }
1033 #endif
1034
1035
1036 rtSpread (gadpos, gadlen, width1, leftoff + wheeloff + 25, winwidth - rightoff, 3);
1037 rtSpread (gadpos + 3, gadlen + 3, width2, leftoff, winwidth - rightoff, 3);
1038
1039
1040 gad = (struct Gadget *)CreateContext (&glob->buttoninfo.glist);
1041 img = &glob->labelimages;
1042 ng.ng_Flags = 0;
1043 ng.ng_VisualInfo = glob->visinfo;
1044 ng.ng_TextAttr = &glob->font;
1045
1046 str = GetStr (glob->catalog, MSG_PALETTE_COLORS);
1047 glob->palettekey = KeyFromStr (str, '_');
1048
1049 i = leftoff + 25 + ( winwidth - ( leftoff + rightoff + 25 ) -
1050 StrWidth_noloc( &glob->itxt, str ) ) / 2;
1051
1052 #ifdef COLORWHEEL
1053 if( i < wheeloff )
1054 {
1055 i = wheeloff;
1056 }
1057 #endif
1058
1059 img = my_CreateGadgetLabelImage (img, &ng, str, i, top, HIGHLIGHTTEXTPEN);
1060 top += glob->fontheight + 1 + spacing / 2;
1061
1062 InitNewGadget (&ng, leftoff + wheeloff + 25, top, winwidth - ( wheeloff + leftoff + rightoff + 25),
1063 val, NULL, PALETTE_ID);
1064
1065 gad = glob->palgad = myCreateGadget (PALETTE_KIND, gad, &ng,
1066 GTPA_Depth, (IPTR)glob->coldepth,
1067 GTPA_IndicatorWidth, 38,
1068 GTPA_Color, (IPTR)glob->color, TAG_END);
1069
1070 if (glob->os30) top += gad->Height + spacing;
1071 else top += val + spacing;
1072
1073 buttonheight = glob->fontheight + 6;
1074
1075 for (i = 0; i < 3; i++)
1076 {
1077 InitNewGadget (&ng, gadpos[i], top, gadlen[i],
1078 buttonheight, string[i], COPY_ID + i);
1079
1080 gad = my_CreateButtonGadget (gad, '_', &ng);
1081 }
1082
1083 top += buttonheight + spacing;
1084
1085 ng.ng_Flags |= NG_HIGHLABEL;
1086
1087 maxwidth = 0;
1088
1089 for (i = 0; i < 3; i++)
1090 {
1091 string[i] = GetStr (glob->catalog, colstr[i]);
1092 glob->key[i] = KeyFromStr (string[i], '_');
1093 val = StrWidth_noloc (&glob->itxt, string[i]);
1094 if (val > maxwidth) maxwidth = val;
1095 }
1096
1097 levelwidth = StrWidth_noloc (&glob->itxt, "000 ");
1098 maxwidth += levelwidth;
1099
1100
1101 for (i = 0; i < 3; i++)
1102 {
1103
1104 val = leftoff + wheeloff + 2 + maxwidth + 8;
1105 InitNewGadget (&ng, val, top, winwidth - val - rightoff,
1106 glob->fontheight + 6, NULL, RED_ID + i);
1107
1108 glob->colgad[i] = gad = myCreateGadget (SLIDER_KIND, gad, &ng,
1109 GTSL_LevelFormat, (IPTR) "%3ld",
1110 GTSL_LevelPlace, PLACETEXT_LEFT,
1111 GTSL_MaxLevelLen, 3, GA_RelVerify, TRUE, GA_Immediate, TRUE,
1112 GTSL_Level, glob->cols[i],
1113 GTSL_Max, glob->maxcolval[i],
1114 ((GfxBase->LibNode.lib_Version >= 40) ? GTSL_Justification : TAG_IGNORE), GTJ_RIGHT,
1115 GTSL_MaxPixelLen, levelwidth,
1116 TAG_END);
1117
1118 img = my_CreateGadgetLabelImage (img, &ng, string[i],
1119 leftoff + wheeloff + 2, top + 2, HIGHLIGHTTEXTPEN);
1120 top += glob->fontheight + 6 + spacing / 2;
1121
1122 }
1123
1124 top += spacing / 2;
1125 ng.ng_Flags &= ~NG_HIGHLABEL;
1126
1127
1128 #ifdef COLORWHEEL
1129 if( glob->dowheel )
1130 {
1131 int wheeltop = top - ( wheelheight + glob->fontheight + 3 + spacing * 2 );
1132
1133 if( wheeltop < wheeltopoff )
1134 {
1135 top += wheeltopoff - wheeltop;
1136 wheeltop = wheeltopoff;
1137 }
1138
1139 #ifdef GRADIENT
1140
1141 if( glob->fancywheel )
1142 {
1143
1144 glob->numgradpens = LOWGRADPENS;
1145
1146 if( glob->scr->ViewPort.ColorMap
1147 && glob->scr->ViewPort.ColorMap->PalExtra
1148 && ( glob->scr->ViewPort.ColorMap->PalExtra->pe_NFree > FREEFORHIGH ) )
1149 {
1150 glob->numgradpens = HIGHGRADPENS;
1151 }
1152
1153 /* get the RGB components of active color */
1154 glob->wheel_rgb.cw_Red = glob->cols[ RED_ID ];
1155 glob->wheel_rgb.cw_Green = glob->cols[ GREEN_ID ];
1156 glob->wheel_rgb.cw_Blue = glob->cols[ BLUE_ID ];
1157
1158 /* now convert the RGB values to HSB, and max out B component */
1159 ConvertRGBToHSB( &glob->wheel_rgb, &glob->wheel_hsb );
1160 glob->wheel_hsb.cw_Brightness = 0xffffffff;
1161
1162
1163 /* Set up colors for gradient slider */
1164 for( i = 0; i < glob->numgradpens; i++ )
1165 {
1166 glob->wheel_hsb.cw_Brightness = 0xffffffff
1167 - ( ( 0xffffffff / ( glob->numgradpens - 1 ) ) * ( ULONG ) i );
1168 ConvertHSBToRGB( &glob->wheel_hsb, &glob->wheel_rgb );
1169 glob->wheel_pens[ i ] = ObtainPen( glob->scr->ViewPort.ColorMap,
1170 -1, glob->wheel_rgb.cw_Red, glob->wheel_rgb.cw_Green,
1171 glob->wheel_rgb.cw_Blue, PEN_EXCLUSIVE );
1172
1173 if( glob->wheel_pens[ i ] == (UWORD)~0 )
1174 {
1175 break;
1176 }
1177 }
1178
1179
1180 glob->wheel_pens[ i ] = ( UWORD ) ~0;
1181
1182 if( i != glob->numgradpens )
1183 {
1184 for( i = 0; glob->wheel_pens[ i ] != (UWORD)~0; i++ )
1185 {
1186 ReleasePen( glob->scr->ViewPort.ColorMap, glob->wheel_pens[ i ] );
1187 }
1188
1189 glob->numgradpens = 0;
1190 }
1191
1192 } /* if( glob->fancywheel ) */
1193 #endif
1194
1195 {
1196 struct TagItem slider_tags[] =
1197 {
1198 {GA_ID , SLIDER_ID },
1199 {GA_Top , wheeltop + wheelheight + spacing },
1200 {GA_Left , leftoff },
1201 {GA_Width , wheelwidth },
1202 {GA_Height , glob->fontheight + 3 },
1203 #ifdef GRADIENT
1204 {glob->numgradpens ?
1205 GRAD_PenArray :
1206 TAG_IGNORE , (IPTR)glob->wheel_pens },
1207 #endif
1208 {GRAD_KnobPixels , 8 },
1209 {PGA_Freedom , LORIENT_HORIZ },
1210 {ICA_TARGET , ICTARGET_IDCMP },
1211 {TAG_END }
1212 };
1213
1214 glob->wheel_slider = (struct Gadget *)NewObjectA(NULL, "gradientslider.gadget", slider_tags);
1215
1216 }
1217
1218 if( glob->wheel_slider )
1219 {
1220 struct TagItem wheel_tags[] =
1221 {
1222 {GA_Top , wheeltop },
1223 {GA_Left , leftoff },
1224 {GA_Width , wheelwidth },
1225 {GA_Height , wheelheight },
1226 {GA_ID , WHEEL_ID },
1227 {WHEEL_Screen , (IPTR)glob->scr },
1228 {glob->fancywheel ?
1229 TAG_IGNORE :
1230 WHEEL_MaxPens , 0 },
1231 {WHEEL_GradientSlider , (IPTR)glob->wheel_slider },
1232 #ifdef __AROS__
1233 /* Need this, because without BevelBox AROS colorwheel gadget renders through mask
1234 which because of bugs in gfx library functions (!?) does not work yet and instead
1235 causes mem trashes/crashes/etc (in AmigaOS the AROS colorwheel gadget works fine
1236 even without BevelBox, that is: with mask rendering) */
1237 {WHEEL_BevelBox , TRUE },
1238 #endif
1239 {GA_Previous , (IPTR)glob->wheel_slider },
1240 {ICA_TARGET , ICTARGET_IDCMP },
1241 {TAG_END }
1242 };
1243
1244 glob->wheel = (struct Gadget *)NewObjectA(NULL, "colorwheel.gadget", wheel_tags);
1245
1246 }
1247
1248 } /* if( glob->dowheel )*/
1249 #endif
1250
1251
1252 for (i = 3; i < 6; i++)
1253 {
1254 InitNewGadget (&ng, gadpos[i], top, gadlen[i],
1255 buttonheight, string[i], COPY_ID + i);
1256
1257 gad = my_CreateButtonGadget (gad, '_', &ng);
1258 }
1259
1260 top += buttonheight + spacing;
1261
1262 winheight = top + glob->scr->WBorBottom;
1263 glob->newpalwin.Height = winheight;
1264 glob->newpalwin.Width = winwidth;
1265 glob->newpalwin.IDCMPFlags = glob->shareidcmp ? 0 :
1266 SLIDERIDCMP|PALETTEIDCMP|BUTTONIDCMP|IDCMP_CLOSEWINDOW|IDCMP_RAWKEY
1267 |IDCMP_REFRESHWINDOW|IDCMP_IDCMPUPDATE;
1268 glob->newpalwin.Flags = WFLG_DEPTHGADGET|WFLG_DRAGBAR|WFLG_ACTIVATE
1269 |WFLG_SIMPLE_REFRESH|WFLG_RMBTRAP|WFLG_CLOSEGADGET;
1270 glob->newpalwin.DetailPen = glob->drinfo->dri_Pens[BACKGROUNDPEN];
1271 glob->newpalwin.BlockPen = glob->drinfo->dri_Pens[SHADOWPEN];
1272 glob->newpalwin.Title = title;
1273 glob->newpalwin.LeftEdge = glob->leftedge;
1274 glob->newpalwin.TopEdge = glob->topedge;
1275
1276 reqpos = CheckReqPos (glob->reqpos, RTPREF_PALETTEREQ, &glob->newpalwin);
1277
1278 if (reqpos == REQPOS_POINTER)
1279 {
1280 glob->newpalwin.LeftEdge = -winwidth / 2;
1281 glob->newpalwin.TopEdge = -winheight / 2;
1282 }
1283
1284 rtSetReqPosition (reqpos, &glob->newpalwin, glob->scr, glob->prwin);
1285
1286 ng.ng_LeftEdge = ng.ng_TopEdge = ng.ng_Width = ng.ng_Height = 0;
1287 ng.ng_GadgetText = NULL;
1288 gad = myCreateGadget (GENERIC_KIND, gad, &ng, TAG_END);
1289
1290 if( gad )
1291 {
1292 gad->GadgetType |= GTYP_BOOLGADGET;
1293 gad->Flags |= GFLG_GADGIMAGE|GFLG_GADGHNONE;
1294 gad->GadgetRender = ( APTR ) glob->labelimages.NextImage;
1295 }
1296
1297
1298 glob->zoom[ 2 ] = glob->newpalwin.Width;
1299 glob->zoom[ 3 ] = glob->scr->WBorTop + glob->scr->Font->ta_YSize + 1;
1300
1301 if( ( glob->dowheel && !glob->wheel ) || !img || !gad ||
1302 !(glob->palwin = OpenWindowBF( &glob->newpalwin,
1303 &glob->backfillhook, glob->drinfo->dri_Pens, NULL, glob->zoom, FALSE ) ) )
1304 {
1305 my_FreeGadgets( glob->buttoninfo.glist );
1306 glob->buttoninfo.glist = NULL;
1307 my_FreeLabelImages( &glob->labelimages );
1308 glob->labelimages.NextImage = NULL;
1309 DisposeObject( glob->wheel );
1310 glob->wheel = NULL;
1311 DisposeObject( glob->wheel_slider );
1312 glob->wheel_slider = NULL;
1313 return( 0 );
1314 }
1315
1316 glob->buttoninfo.win = glob->palwin;
1317
1318 if( glob->shareidcmp )
1319 {
1320 glob->palwin->UserPort = glob->prwin->UserPort;
1321 ModifyIDCMP( glob->palwin,
1322 SLIDERIDCMP | PALETTEIDCMP | BUTTONIDCMP | IDCMP_CLOSEWINDOW |
1323 IDCMP_RAWKEY | IDCMP_REFRESHWINDOW | IDCMP_IDCMPUPDATE );
1324 }
1325
1326 #ifdef COLORWHEEL
1327 if( glob->wheel )
1328 {
1329 AddGList( glob->palwin, glob->wheel_slider, -1, -1, NULL );
1330 RefreshGList( glob->wheel_slider, glob->palwin, NULL, -1 );
1331 }
1332 #endif
1333
1334 AddGList( glob->palwin, glob->buttoninfo.glist, -1, -1, NULL );
1335 RefreshGList( glob->buttoninfo.glist, glob->palwin, NULL, -1 );
1336 GT_RefreshWindow( glob->palwin, NULL );
1337 UpdateWheel( glob, glob->cols );
1338
1339 return( 1 );
1340 }
1341
1342 /****************************************************************************************/
A totally sweet operating system