source: trunk/procs/overlay_type.pro @ 170

;+
;
; overlay color line types COL1D=col1d,STY1D=sty1d
;
; @uses
; <propost_it>com_eg</propost_it>
;
; @version
; $Id$
;
;-
FUNCTION overlay_type, iover, dimplot
;
  compile_opt idl2, strictarrsubs
;
@com_eg

; overlay switch

   overc = ',ov1d='+strtrim(string((iover-1) < 1), 2)

   IF iover EQ 1 THEN overc = ',ov1d=0'

; overlay color

   colov = ''

   IF dimplot EQ 1 THEN index_over = index_over + 1
   IF index_over EQ 1 THEN BEGIN
 ;     index_over = 2
 ;     make palette
      red = [0, 255,   0,   0, 0, 255]
      green = [0,   0, 255,   0, 0,   0]
      blue = [0,   0,   0, 255, 0, 255]
      red = [0, red, red, red, red, red, red, red ]
      green = [0, green, green, green, green, green, green, green]
      blue = [0, blue, blue, blue, blue, blue, blue, blue ]
      tvlct, red, green, blue
   ENDIF 

   IF pal_type EQ 'col' AND index_over GE 1 THEN colov = ',COLOR='+string(line_color(index_over-1))

; overlay thickness

   line_thick_txt = ', thick='+string(line_thick(iover-1))

; overlay style

   line_style_txt = ', linestyle='+string(line_style(iover-1)-1)

; result

   IF dimplot EQ 1 THEN overc = overc+colov+line_thick_txt+line_style_txt
;   IF dimplot EQ 2 THEN overc = overc+line_thick_txt+line_style_txt
   IF dimplot EQ 2 THEN overc = overc+line_style_txt

   return, overc
END