1 | ; |
---|
2 | ; overlay color line types COL1D=col1d,STY1D=sty1d |
---|
3 | ; |
---|
4 | FUNCTION overlay_type, iover, dimplot |
---|
5 | |
---|
6 | @com_eg |
---|
7 | |
---|
8 | ; overlay switch |
---|
9 | |
---|
10 | overc = ',ov1d='+strtrim(string((iover-1) < 1), 2) |
---|
11 | |
---|
12 | IF iover EQ 1 THEN overc = ',ov1d=0' |
---|
13 | |
---|
14 | ; overlay color |
---|
15 | |
---|
16 | colov = '' |
---|
17 | |
---|
18 | IF dimplot EQ 1 THEN index_over = index_over + 1 |
---|
19 | IF index_over EQ 1 THEN BEGIN |
---|
20 | ; index_over = 2 |
---|
21 | ; make palette |
---|
22 | red = [0, 255, 0, 0, 0, 255] |
---|
23 | green = [0, 0, 255, 0, 0, 0] |
---|
24 | blue = [0, 0, 0, 255, 0, 255] |
---|
25 | red = [0, red, red, red, red, red, red, red ] |
---|
26 | green = [0, green, green, green, green, green, green, green] |
---|
27 | blue = [0, blue, blue, blue, blue, blue, blue, blue ] |
---|
28 | tvlct, red, green, blue |
---|
29 | ENDIF |
---|
30 | |
---|
31 | IF pal_type EQ 'col' AND index_over GE 1 THEN colov = ',COLOR='+string(line_color(index_over-1)) |
---|
32 | |
---|
33 | ; overlay thickness |
---|
34 | |
---|
35 | line_thick_txt = ', thick='+string(line_thick(iover-1)) |
---|
36 | |
---|
37 | ; overlay style |
---|
38 | |
---|
39 | line_style_txt = ', STY1D='+string(line_style(iover-1)-1) |
---|
40 | |
---|
41 | ; result |
---|
42 | |
---|
43 | IF dimplot EQ 1 THEN overc = overc+colov+line_thick_txt+line_style_txt |
---|
44 | ; IF dimplot EQ 2 THEN overc = overc+line_thick_txt+line_style_txt |
---|
45 | IF dimplot EQ 2 THEN overc = overc+line_style_txt |
---|
46 | |
---|
47 | return, overc |
---|
48 | END |
---|