4 ; Colour selector variables and workspace
6 ; © 1994-1998 Straylight
9 ;----- Licensing note -------------------------------------------------------
11 ; This file is part of Straylight's Sapphire library.
13 ; Sapphire is free software; you can redistribute it and/or modify
14 ; it under the terms of the GNU General Public License as published by
15 ; the Free Software Foundation; either version 2, or (at your option)
18 ; Sapphire is distributed in the hope that it will be useful,
19 ; but WITHOUT ANY WARRANTY; without even the implied warranty of
20 ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
21 ; GNU General Public License for more details.
23 ; You should have received a copy of the GNU General Public License
24 ; along with Sapphire. If not, write to the Free Software Foundation,
25 ; 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
27 ;----- Overview -------------------------------------------------------------
33 ;----- Internal event codes -------------------------------------------------
35 csEvent__close EQU &C0000001 ;Kernel wants to close pane
36 csEvent__newRes EQU &C0000002 ;User changed diag resolution
37 csEvent__reset EQU &C0000003 ;Reset pane from cs__colour
38 csEvent__read EQU &C0000004 ;Write data to cs__colour
40 ;----- Data structures ------------------------------------------------------
43 col_rgb # 4 ;RGB palette entry for colour
44 col_model # 4 ;Colour model for colour
45 col_data # 4 ;Colour data for model
48 ;----- Workspace layout -----------------------------------------------------
53 ; --- Colour selector kernel ---
55 cs__frameDb # 4 ;Main colour selector dbox
56 cs__modelDb # 4 ;Current model pane dbox
57 cs__resolution # 4 ;Current display resolution
58 cs__address # 4 ;The address of his colour
59 cs__colour # col_size ;The actual colour (packed)
61 ; --- Colour selector model data ---
63 cs__modelData # 52 ;Working data for models
65 cs__dSize EQU {VAR}-cs__dStart
68 ; --- RGB model data ---
70 ^ :INDEX: cs__modelData,R10
72 rgb__sl1Val # 8 ;Value/colour of x slider
73 rgb__xPos # 4 ;Cached x position
74 rgb__sl2Val # 8 ;Value/colour of y slider
75 rgb__yPos # 4 ;Cached y position
76 rgb__sl3Val # 8 ;Value/colour of z slider
77 rgb__zPos # 4 ;Cached z position
79 rgb__mapping # 4 ;The current mapping
80 rgb__red # 4 ;Address of red value
81 rgb__green # 4 ;Address of green value
82 rgb__blue # 4 ;Address of blue value
84 ;----- That's all, folks ----------------------------------------------------