; (c) 2002 Javier G Corripio
;	jgc@geo.ed.ac.uk
;+
; NAME:
;	COLOURS
;
; PURPOSE:
;	create a system variable with color names and RGB values
;
; CATEGORY:
;	graphic displays
;	
; CALLING SEQUENCE:
;	COLOURS
;	 
;
; SIDE EFFECTS:
;	WARNING defined for geography mixed up computer colour guns 
; it may change on properly set up computer displays
;
;
; EXAMPLE:
;
;		
;
; MODIFICATION HISTORY:
; 	Written by:	Javier G. Corripio August, 2002
;
;-


PRO colours

;see for example http://www.brobstsystems.com/colors1.htm for color names
; or type more /usr/openwin/lib/rgb.txt

; create a system variable with predefined colour names

   defsysv,'!clr',exists=i

   if (i eq 1) then return    ; already defined
   
    ; define sample structure 

defsysv,'!clr', $
      { white:'ffffff'x,	$
	black:'000000'x,	$
	grey:'909090'x,		$
	red: '0000ff'x , 	$
	green:'009000'x , 	$
	blue:'ff0000'x , 	$
	cian:'ffff00'x ,	$
	yellow:'00ffff'x , 	$
	gold:'00ccff'x,		$
	lime:'00ff00'x , 	$
	magenta:'ff00ff'x,	$
	olive:'009090'x ,	$
	orange:'006fff'x,	$
	pink:'f99cf9'x,		$
	purple:'900090'x , 	$
	quartz:'f3c9c9'x,	$
	sienna:'336c9f'x ,	$
	silver:'c0c0c0'x ,	$
	teal:'909000'x , 	$	
	violet:'ff0099'x 	}

print,'system variable !CLR created'

END