-
Notifications
You must be signed in to change notification settings - Fork 0
/
dsloadct.pro
45 lines (39 loc) · 964 Bytes
/
dsloadct.pro
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
PRO dsloadct, index, NCOLORS=ncolors, XYTHICK=xyThick
;!X.MINOR=1 & !Y.MINOR=1
;!X.STYLE=1 & !Y.STYLE=1
;IF NOT Keyword_Set(index) THEN BEGIN
;index=33
;ENDIF
IF Keyword_Set(xyThick) THEN BEGIN
IF KeyWord_Set(xyThick) EQ 1 THEN BEGIN
SET_PLOT, 'x'
DEVICE, DECOMPOSED = 0
!X.THICK=xyThick & !Y.THICK=xyThick
ENDIF ELSE IF N_Elements(xyThick) EQ 2 THEN BEGIN
SET_PLOT, 'x'
DEVICE, DECOMPOSED = 0
!X.THICK=xyThick[0] & !Y.THICK=xyThick[1]
ENDIF
ENDIF else begin
!X.THICK=1 & !Y.THICK=1
ENDELSE
;IF index EQ 20 THEN BEGIN
;TVLCT,r,g,b,/GET
;r_=CONGRID(r[100:255],255)
;g_=CONGRID(g[100:255],255)
;b_=CONGRID(b[100:255],255)
;TVLCT,r_,g_,b_
;ENDIF
;@@ define black and white color
If Keyword_Set(ncolors) Then BEGIN
nc=ncolors
ENDIF Else BEGIN
nc=254
ENDelse
LOADCT, index, NCOLORS=nc, /SI
TVLCT, 0,0,0, 255 ; Drawing color.
TVLCT, 255,255,255, 254 ; Background color.
!p.color = 255
!p.background = 254
RETURN
END