;TVFLAG - Keyword used in scripts and functions ; 0 - Don't Plot ; 1 - Plot in the XWindow ; 2 - Plot postscript ; 3 - Plot a .png file ; ; If TvFlag eq 1 then begin If stregex(!version.os, 'Win', /boolean) then begin set_plot,'WIN' EndIf else begin set_plot,'X' EndElse device,decompose=1 ;Disable R+256*G+256^2*B loadct,39 ;Load Rainbow+White Color Table resetplt ;Reset all the settings !p.charsize=1 !p.charthick=1 !x.thick=1 !y.thick=1 !p.thick=.75 !p.noerase=0 ;These work better !p.charsize =1.25 !p.charthick=1.75 !p.thick=2.0 Endif else if TvFlag eq 2 then begin set_plot,'ps' loadct, 39 device, /color ;allow color on the postscript device,ysize=8.5,/inches ;Height of plot in y device,xsize=14.0,/inches ;Width of plot in x device,yoffset=0.50,/inches ;Y position of lower left corner device,xoffset=0.00,/inches ;!p.multi=[0,1,1] !p.charsize = 1.4 !x.charsize = 1.4 !y.charsize = 1.4 !p.charthick = 4.0 !x.thick = 8.0 !y.thick = 8.0 !p.thick = 8.0 !x.minor = 10 !y.minor = 5 Endif Else if TvFlag eq 3 then begin Set_plot,'z', /copy device,set_resolution=[800,600] device, z_buffer=0 !p.charsize=1.5 !p.charthick=1.5 !x.thick=3.25 !y.thick=3.25 !p.thick=1.250 !p.noerase=0 loadct, 39 !p.font = 1 device, font = 'Helvetica Bold' EndIf Else Begin If stregex(!version.os, 'Win', /boolean) then begin set_plot,'WIN' EndIf else begin set_plot,'X' EndElse device,decompose=1 ;Disable R+256*G+256^2*B loadct,39 ;Load Rainbow+White Color Table resetplt ;Reset all the settings !p.charsize=1 !p.charthick=1 !x.thick=1 !y.thick=1 !p.thick=.75 !p.noerase=0 EndElse ;Different Color Schemes from X Window and .ps Common ColorStr, Color, ColorNum, ColorTri, ColorNumTri Color = {$ White : fsc_color('white'),$ Black : fsc_color('black'),$ Red : fsc_color('red'), $ Green : fsc_color('green'), $ Blue : fsc_color('blue'), $ Purple : fsc_color('purple'), $ Orange : fsc_color('orange'), $ Brown : fsc_color('brown'), $ Yellow : fsc_color('deep pink'), $ Turquoise : fsc_color('turquoise'), $ Forest : fsc_color('forestgreen')} ColorNum = {$ ColorNums : [[Color.White] ,[Color.Black],[Color.Red],$ [Color.Green] ,[Color.Blue ],[Color.Purple],$ [Color.Orange],[Color.Brown],[Color.Yellow],$ [Color.Turquoise], [Color.Forest]]} ColorTri = {$ White : fsc_color('white',/triple,/row),$ Black : fsc_color('black',/triple,/row),$ Red : fsc_color('red',/triple,/row), $ Green : fsc_color('green',/triple,/row), $ Blue : fsc_color('blue',/triple,/row), $ Purple : fsc_color('purple',/triple,/row), $ Orange : fsc_color('orange',/triple,/row), $ Brown : fsc_color('brown',/triple,/row), $ Yellow : fsc_color('yellow',/triple,/row) } ColorNumTri = {$ ColorNums : [[ColorTri.White] ,[ColorTri.Black],[ColorTri.Red],$ [ColorTri.Green] ,[ColorTri.Blue ],[ColorTri.Purple],$ [ColorTri.Orange],[ColorTri.Brown],[ColorTri.Yellow]]}