pro plotLakeShoreTemps,TvFlag=TvFlag

if not (keyword_set(TvFlag)) then TvFlag=1
TempFile='/afs/slac/u/ki/lances/idl_temperature/LakeShoreTemps2'
readcol,TempFile,Time,ColdPlate,SecStage,TempStage,format='f,f,f,f'
TempI=294.0
TempF=43
k=0.75
if TvFlag eq 1 then begin
 set_plot,'x'
 device,decompose=1
 loadct,29
 white='FFFFFF'x
 black='000000'x
 red='FF0000'x
 green='00FF00'x
endif else begin
 set_plot,'ps'
 device,/color
 loadct,39
 device,xsize=11,/inches
 device,ysize=8.5,/inches
 device,filename='/afs/slac/u/ki/lances/idl_temperature/LakeShoreTemps_1_30.ps'
 white='FFFFFF'x
 black='000000'x
 red=100
 green=200
endelse

plot,Time,ColdPlate,background=white,color=black,$
	xtitle='Hours',ytitle='Temperature (Kelvin)'
oplot,Time,SecStage,color=red
oplot,Time,TempStage,color=green
items_temp=['Cold Plate','Second Stage','Moly Table']
sym_temp=[0,0,0]
colors_temp=[black,red,green]
text_temp=[black,black,black]
legend,items_temp,colors=colors_temp,psym=sym_temp,textcolors=text_temp,$
	position=[.6,.8],/normal
if TvFlag ne 1 then begin
  device,/close
endif

stop

end