pro S_colours

;+
; S_COLOURS
;	Sets up the colour table for graffer.
;
; Usage:
;	s_colours	; Not indended for use by the user.
;
; Side Effects:
;	The colour table is updated.
;	Table is W, Bla, R, G, B, Cy, Ma, Ye, Or, (G+Ye), (G+Cy),
;	(B+Cy), (B+Ma), (R+Ma), Dark Grey, Light Grey.
;
; History:
;	Original: 2/8/95; SJT
;-

red = [255b, 0b, 255b, 0b, 0b, 0b, 255b, 255b, 255b, 127b, 0b, 0b, $
       127b, 255b, 85b, 170b] 
gre = [255b, 0b, 0b, 255b, 0b, 255b, 0b, 255b, 127b, 255b, 255b, 127b, $
       0b, 0b, 85b, 170b]
blu = [255b, 0b, 0b, 0b, 255b, 255b, 255b, 0b, 0b, 0b, 127b, 255b, $
       255b, 127b, 85b, 170b] 
tvlct, red, gre, blu

!P.color = 1

end