;
; _cs.vars.sh
;
; Colour selector variables and workspace
;
; © 1994-1998 Straylight
;

;----- Licensing note -------------------------------------------------------
;
; This file is part of Straylight's Sapphire library.
;
; Sapphire is free software; you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation; either version 2, or (at your option)
; any later version.
;
; Sapphire is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
; GNU General Public License for more details.
;
; You should have received a copy of the GNU General Public License
; along with Sapphire.  If not, write to the Free Software Foundation,
; 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.

;----- Overview -------------------------------------------------------------
;
; Functions provided:
;
;   None.

;----- Internal event codes -------------------------------------------------

csEvent__close	EQU	&C0000001		;Kernel wants to close pane
csEvent__newRes	EQU	&C0000002		;User changed diag resolution
csEvent__reset	EQU	&C0000003		;Reset pane from cs__colour
csEvent__read	EQU	&C0000004		;Write data to cs__colour

;----- Data structures ------------------------------------------------------

		^	0
col_rgb		#	4			;RGB palette entry for colour
col_model	#	4			;Colour model for colour
col_data	#	4			;Colour data for model
col_size	#	0

;----- Workspace layout -----------------------------------------------------

		^	0,R10
cs__dStart	#	0

		; --- Colour selector kernel ---

cs__frameDb	#	4			;Main colour selector dbox
cs__modelDb	#	4			;Current model pane dbox
cs__resolution	#	4			;Current display resolution
cs__address	#	4			;The address of his colour
cs__colour	#	col_size		;The actual colour (packed)

		; --- Colour selector model data ---

cs__modelData	#	52			;Working data for models

cs__dSize	EQU	{VAR}-cs__dStart


		; --- RGB model data ---

		^	:INDEX: cs__modelData,R10

rgb__sl1Val	#	8			;Value/colour of x slider
rgb__xPos	#	4			;Cached x position
rgb__sl2Val	#	8			;Value/colour of y slider
rgb__yPos	#	4			;Cached y position
rgb__sl3Val	#	8			;Value/colour of z slider
rgb__zPos	#	4			;Cached z position

rgb__mapping	#	4			;The current mapping
rgb__red	#	4			;Address of red value
rgb__green	#	4			;Address of green value
rgb__blue	#	4			;Address of blue value

;----- That's all, folks ----------------------------------------------------

		END