/* *** color.h ************************************************************** * * ColorWindow Routine -- Include File * from Book 1 of the Amiga Programmers' Suite by RJ Mical * * Copyright (C) 1986, 1987, Robert J. Mical * All Rights Reserved. * * Created for Amiga developers. * Any or all of this code can be used in any program as long as this * entire copyright notice is retained, ok? Thanks. * * The Amiga Programmer's Suite Book 1 is copyrighted but freely distributable. * All copyright notices and all file headers must be retained intact. * The Amiga Programmer's Suite Book 1 may be compiled and assembled, and the * resultant object code may be included in any software product. However, no * portion of the source listings or documentation of the Amiga Programmer's * Suite Book 1 may be distributed or sold for profit or in a for-profit * product without the written authorization of the author, RJ Mical. * * HISTORY NAME DESCRIPTION * ----------- -------------- -------------------------------------------- * 20 Oct 87 - RJ Make the window draggable * 3 Jan 87 RJ >:-{)* Clean-up for release * 27 Feb 86 =RJ Mical= Modified these routines for Zaphod * January 86 =RJ= Modified the originals for Mandelbrot * Late 85 =RJ= Created the color window for Graphicraft * * *********************************************************************** */ #include "prosuite.h" /* === The definitions for ColorWindow =================================*/ #define COLOR_LEFT 0 #define COLOR_TOP 9 #define COLOR_KNOB_BODY 0x1000 /* Extra width to make room for numeric readout */ #define NEW_EXTRALEFT 24 #define COLORWINDOW_WIDTH (208 + NEW_EXTRALEFT + COLOR_LEFT) #define COLORWINDOW_HEIGHT (91 + COLOR_TOP) #define CHARACTER_WIDTH 8 #define CHARACTER_HEIGHT 8 #define COLOR_BOX_LEFT (COLOR_LEFT + 7) #define COLOR_BOX_TOP (COLOR_TOP + 6) #define COLOR_BOX_RIGHT (COLOR_BOX_LEFT + 15) #define COLOR_BOX_BOTTOM (COLOR_BOX_TOP + 29) #define COLOR_COLOR_TOP (COLOR_TOP + 45) #define COLOR_PROP_LEFT (COLOR_LEFT + 41) #define COLOR_PROP_TOP (COLOR_TOP + 4) #define COLOR_PROP_WIDTH 165 #define COLOR_PROP_HEIGHT 10 #define COLOR_CLUSTER_LEFT (COLOR_LEFT + 144) #define COLOR_CLUSTER_TOP (COLOR_TOP + 41) #define COLOR_CLUSTER_WIDTH (CHARACTER_WIDTH * 6 + 10 + NEW_EXTRALEFT) #define COLOR_CLUSTER_HEIGHT 9 #define COLOR_HSL_TOP COLOR_PROP_TOP #define COLOR_HSL_LEFT (COLOR_PROP_LEFT - 14) #define COLOR_VALUE_X (COLOR_PROP_LEFT + COLOR_PROP_WIDTH + 4) #define COLOR_VALUE_REDY (COLOR_PROP_TOP + 1 + 6) #define COLOR_VALUE_GREENY (COLOR_VALUE_REDY + COLOR_PROP_HEIGHT + 1) #define COLOR_VALUE_BLUEY (COLOR_VALUE_GREENY + COLOR_PROP_HEIGHT + 1) /* GREEN and RED are out of order to facilitate the color cycle window sharing * these gadgets with the color palette window (color cycle uses the gadgets * only down to the COLOR_GREEN gadget) * (And that's why, in case you have always been wondering. Now the * next mystery is: why didn't I explain this before?) */ #define COLOR_COPY 0 #define COLOR_RANGE 1 #define COLOR_OK 2 #define COLOR_CANCEL 3 #define COLOR_GREEN 4 #define COLOR_RED 5 #define COLOR_BLUE 6 #define COLOR_HSL_RGB 7 #define COLOR_GADGETS_COUNT 8 #define RGBHSL_SIZE 29 /* Number of words per image */ /* *** colordat.c *********************************************************** * * ColorWindow Routine -- The ColorWindow Data * from Book 1 of the Amiga Programmers' Suite by RJ Mical * * Copyright (C) 1986, 1987, Robert J. Mical * All Rights Reserved. * * Created for Amiga developers. * Any or all of this code can be used in any program as long as this * entire copyright notice is retained, ok? Thanks. * * The Amiga Programmer's Suite Book 1 is copyrighted but freely distributable. * All copyright notices and all file headers must be retained intact. * The Amiga Programmer's Suite Book 1 may be compiled and assembled, and the * resultant object code may be included in any software product. However, no * portion of the source listings or documentation of the Amiga Programmer's * Suite Book 1 may be distributed or sold for profit or in a for-profit * product without the written authorization of the author, RJ Mical. * * HISTORY NAME DESCRIPTION * ----------- -------------- -------------------------------------------- * 20 Oct 87 - RJ Make the window draggable * 3 Jan 87 RJ >:-{)* Clean-up for release * 27 Feb 86 =RJ Mical= Modified these routines for Zaphod * January 86 =RJ= Modified the originals for Mandelbrot * Late 85 =RJ= Created the color window for Graphicraft * * *********************************************************************** */ struct TextAttr SafeFont = { (UBYTE *)"topaz.font", TOPAZ_EIGHTY, 0, FS_NORMAL }; /* If this image data isn't in chip memory, it will have to be moved there */ USHORT chip RGBData[RGBHSL_SIZE] = { 0xFC00, 0x6600, 0x6600, 0x7800, 0x6C00, 0x6600, 0xE300, 0x0000, 0x0000, 0x0000, 0x0000, 0x3C00, 0x6600, 0xC000, 0xCE00, 0xC600, 0x6600, 0x3E00, 0x0000, 0x0000, 0x0000, 0x0000, 0xFC00, 0x6600, 0x6600, 0x7C00, 0x6600, 0x6600, 0xFC00, }; USHORT chip HSLData[RGBHSL_SIZE] = { 0xC600, 0xC600, 0xC600, 0xFE00, 0xC600, 0xC600, 0xC600, 0x0000, 0x0000, 0x0000, 0x0000, 0x7C00, 0xC600, 0xC000, 0xFE00, 0x0600, 0xC600, 0x7C00, 0x0000, 0x0000, 0x0000, 0x0000, 0xF000, 0x6000, 0x6000, 0x6000, 0x6200, 0x6200, 0xFE00, }; struct Image ColorRGBImage = { 3, 1, 8, 29, 1, &RGBData[0], 0x1, 0x0, NULL, }; struct Image ColorHSLImage = { 3, 1, 8, 29, 1, &HSLData[0], 0x1, 0x0, NULL, }; SHORT ClusterBorderVectors[] = { -1, -1, -1, COLOR_CLUSTER_HEIGHT, COLOR_CLUSTER_WIDTH, COLOR_CLUSTER_HEIGHT, COLOR_CLUSTER_WIDTH, -1, -1, -1, }; struct Border ColorClusterBorder = { 0, 0, 1, 0, JAM1, 5, &ClusterBorderVectors[0], NULL, }; struct IntuiText ColorClusterText[4] = { /* "COPY" */ { 1, 0, JAM2, 5 + CHARACTER_WIDTH + (NEW_EXTRALEFT >> 1), 1, &SafeFont, (UBYTE *)"COPY", NULL, }, /* "RANGE" */ { 1, 0, JAM2, 5 + (CHARACTER_WIDTH >> 1) + (NEW_EXTRALEFT >> 1), 1, &SafeFont, (UBYTE *)"RANGE", NULL, }, /* "OK" */ { 1, 0, JAM2, 5 + (CHARACTER_WIDTH << 1) + (NEW_EXTRALEFT >> 1), 1, &SafeFont, (UBYTE *)"OK", NULL, }, /* "CANCEL" */ { 1, 0, JAM2, 5 + (NEW_EXTRALEFT >> 1), 1, &SafeFont, (UBYTE *)"CANCEL", NULL, }, }; /* ======================================================================== */ /* ======================================================================== */ /* ======================================================================== */ struct Image ColorPropsImages[3]; struct PropInfo ColorPropsInfos[3] = { { /* COLOR_GREEN */ AUTOKNOB | FREEHORIZ, 0, 0, COLOR_KNOB_BODY, 0, 0, 0, 0, 0, 0, 0, }, { /* COLOR_RED */ AUTOKNOB | FREEHORIZ, 0, 0, COLOR_KNOB_BODY, 0, 0, 0, 0, 0, 0, 0, }, { /* COLOR_BLUE */ AUTOKNOB | FREEHORIZ, 0, 0, COLOR_KNOB_BODY, 0, 0, 0, 0, 0, 0, 0, }, }; struct Gadget ColorTemplateGadgets[COLOR_GADGETS_COUNT] = { { /* COLOR_COPY */ NULL, COLOR_CLUSTER_LEFT, COLOR_CLUSTER_TOP + (00 * (COLOR_CLUSTER_HEIGHT + 3)), COLOR_CLUSTER_WIDTH, COLOR_CLUSTER_HEIGHT, GADGHCOMP, RELVERIFY, BOOLGADGET, (APTR)&ColorClusterBorder, NULL, &ColorClusterText[00], NULL, NULL, COLOR_COPY, NULL, }, { /* COLOR_RANGE */ &ColorTemplateGadgets[COLOR_COPY], COLOR_CLUSTER_LEFT, COLOR_CLUSTER_TOP + (01 * (COLOR_CLUSTER_HEIGHT + 3)), COLOR_CLUSTER_WIDTH, COLOR_CLUSTER_HEIGHT, GADGHCOMP, RELVERIFY, BOOLGADGET, (APTR)&ColorClusterBorder, NULL, &ColorClusterText[01], NULL, NULL, COLOR_RANGE, NULL, }, { /* COLOR_OK */ &ColorTemplateGadgets[COLOR_RANGE], COLOR_CLUSTER_LEFT, COLOR_CLUSTER_TOP + (02 * (COLOR_CLUSTER_HEIGHT + 3)), COLOR_CLUSTER_WIDTH, COLOR_CLUSTER_HEIGHT, GADGHCOMP, RELVERIFY, BOOLGADGET, (APTR)&ColorClusterBorder, NULL, &ColorClusterText[02], NULL, NULL, COLOR_OK, NULL, }, { /* COLOR_CANCEL */ &ColorTemplateGadgets[COLOR_OK], COLOR_CLUSTER_LEFT, COLOR_CLUSTER_TOP + (03 * (COLOR_CLUSTER_HEIGHT + 3)), COLOR_CLUSTER_WIDTH, COLOR_CLUSTER_HEIGHT, GADGHCOMP, RELVERIFY, BOOLGADGET, (APTR)&ColorClusterBorder, NULL, &ColorClusterText[03], NULL, NULL, COLOR_CANCEL, NULL, }, { /* COLOR_GREEN */ &ColorTemplateGadgets[COLOR_CANCEL], COLOR_PROP_LEFT, COLOR_PROP_TOP + (01 * (COLOR_PROP_HEIGHT + 1)), COLOR_PROP_WIDTH, COLOR_PROP_HEIGHT, GADGHCOMP | GADGIMAGE, FOLLOWMOUSE, PROPGADGET, (APTR)&ColorPropsImages[01], NULL, NULL, NULL, (APTR)&ColorPropsInfos[01], COLOR_GREEN, NULL, }, { /* COLOR_RED */ &ColorTemplateGadgets[COLOR_GREEN], COLOR_PROP_LEFT, COLOR_PROP_TOP + (00 * (COLOR_PROP_HEIGHT + 1)), COLOR_PROP_WIDTH, COLOR_PROP_HEIGHT, GADGHCOMP | GADGIMAGE, FOLLOWMOUSE, PROPGADGET, (APTR)&ColorPropsImages[00], NULL, NULL, NULL, (APTR)&ColorPropsInfos[00], COLOR_RED, NULL, }, { /* COLOR_BLUE */ &ColorTemplateGadgets[COLOR_RED], COLOR_PROP_LEFT, COLOR_PROP_TOP + (02 * (COLOR_PROP_HEIGHT + 1)), COLOR_PROP_WIDTH, COLOR_PROP_HEIGHT, GADGHCOMP | GADGIMAGE, FOLLOWMOUSE, PROPGADGET, (APTR)&ColorPropsImages[02], NULL, NULL, NULL, (APTR)&ColorPropsInfos[02], COLOR_BLUE, NULL, }, { /* COLOR_HSL_RGB */ &ColorTemplateGadgets[COLOR_BLUE], COLOR_HSL_LEFT, COLOR_HSL_TOP, CHARACTER_WIDTH + 5, COLOR_BOX_BOTTOM - COLOR_BOX_TOP + 1, GADGHIMAGE | GADGIMAGE, TOGGLESELECT | GADGIMMEDIATE, BOOLGADGET, (APTR)&ColorRGBImage, (APTR)&ColorHSLImage, NULL, NULL, NULL, COLOR_HSL_RGB, NULL, }, };