if (plottype eq 'ps') then begin ;set up for landscape Postscript plotting set_plot, 'ps' !p.font=-1 device, filename= psfile, /landscape fsub = psfile ;filename to be written at bottom of plot !x.minor = 10 !y.minor = 10 !y.margin=[6,2] !x.margin=[14,4] ; set line and text characteristics for publication quality !P.CHARSIZE=1.2 !P.CHARTHICK=4. !X.THICK=8. !Y.THICK=8. !P.THICK=8. !P.MULTI=0 !P.TICKLEN=0.03 symsize=1.5 filenamecharsize=1.1 endif if (plottype eq 'jpg') then begin ;set up to plot to memory buffer. This plot will later be written from memory to a JPEG file. set_plot, 'z' device, set_resolution=[8000,6000] device, set_font='Courier' fsub = jpgfile ;filename to be written at bottom of plot ;set plot margin & tick marks !Y.MINOR=10 !x.minor=10 !y.margin=[6,4] !x.margin=[14,4] ; set line and text characteristics for publication quality !P.CHARSIZE=10 !P.CHARTHICK=15. !X.THICK=20. !Y.THICK=20. !P.THICK=20. symsize=10. filenamecharsize=8. endif ; make plot axes plot,[0],[0],/nodata,xrange=[xlo,xhi],xstyle=1,ystyle=1, $ xtitle='Time (hours)',ytitle='Dark Current (ADU/s)', title='Dark Current for '+scaname, $ color=black, background=white,charsize=!P.CHARSIZE*1.4,/ylog,yrange=[1e-4,(1 > (ymax*2))] ; ,yrange=[ylo,yhi] ; add line through zero oplot,[!X.CRANGE(0),!X.CRANGE(1)],[0,0],linestyle=0,color=black ; write JPG image file if (plotcount eq 1) then begin xyouts, 1.0, 0.0, '_', /device jpgimg = tvrd() write_jpeg, jpgfile, congrid(jpgimg, 1600, 1200, /interp, /center), quality=100 endif device, /close