Pro gd_dimensions, xmax, nxsize, nysize,col

checkvar,nysize,16
checkvar,nxsize, 22
edxmax = 10000
xmark = [xmax+600,xmax+600]

;Vertical markers for Sun's Radius, flare extent, footpoint sep. & diam.
oplot,xmark,[900.,980.],thick=20,/noclip,color=col.black
oplot,xmark,[50.,100.],thick=20,/noclip,color=col.black
oplot,xmark,[9.,30.],thick=20,/noclip,color=col.black
oplot,xmark,[1.,5.],thick=20,/noclip,color=col.black

xyouts,/data,xmark(0)+3800,2200.,'   Typical!cDimensions',charthick=2,$
   charsize=1.2,color=col.black
xyouts,/data,xmark(0)+3700,1600.,'__________',charthick=2,charsize=1.2,color=col.black
xyouts,/data,xmark(0)+4000,870.,'Sun'+"'"+'s Radius',charthick=1.5,color=col.black
xyouts,/data,xmark(0)+4000,2.5,'Footpoint!cDiameter',charthick=1.5,color=col.black
xyouts,/data,xmark(0)+4000,20,'Footpoint!cSeparation',charthick=1.5,color=col.black
xyouts,/data,xmark(0)+4000,75,'Flare!cExtent',charthick=1.5,color=col.black

;Plot lines and arrows for Thermal, Gammaray, and nonthermal ranges

xdev = [1,10,35,400,1000,8000,10000]
;ycords = [1,1,1,1,1,1]
;xycords =[xcords,ycords]
;xdev = convert_coord(xcords,ycords,/data,/to_normal)
ylev1 = .20
ylev2 = .15

oplot,[xdev(0),xdev(2)],[ylev1,ylev1],thick=3,/noclip,color=col.black  ; Thermal + Superhot
oplot,[xdev(3),xdev(5)],[ylev1,ylev1],thick=3,/noclip,color=col.black ; Gamma-ray
oplot,[xdev(1),xdev(6)],[ylev2,ylev2],thick=3,/noclip,color=col.black  ; nonthermal

usersym,[0,1,1,0],[0,1,-1,0],thick=3,/fill,color=col.black ;left arrow
oplot,[xdev(0)],[ylev1],psym=8,/noclip,thick=3,color=col.black
usersym,[0,-1,-1,0],[0,1,-1,0],thick=3,/fill,color=col.black ;right arrow
oplot,[xdev(2)],[ylev1],psym=8,/noclip,thick=3,color=col.black

usersym,[0,1,1,0],[0,1,-1,0],thick=3,/fill,color=col.black ;left arrow
oplot,[xdev(3)],[ylev1],psym=8,/noclip,thick=3,color=col.black
usersym,[0,-1,-1,0],[0,1,-1,0],thick=2,/fill,color=col.black ;right arrow
oplot,[xdev(5)],[ylev1],psym=8,/noclip,thick=3,color=col.black

usersym,[0,1,1,0],[0,1,-1,0],thick=3,/fill,color=col.black ;left arrow
oplot,[xdev(1)],[ylev2],psym=8,/noclip,thick=3,color=col.black
usersym,[0,-1,-1,0],[0,1,-1,0],thick=3,/fill,color=col.black ;right arrow
oplot,[xdev(6)],[ylev2],psym=8,/noclip,thick=3,color=col.black

; labels for lines above
xyouts,[xdev(0)+.1],[ylev1+.03],'Thermal Plasma   (Superhot)',charthick=1.5,color=col.black
xyouts,[xdev(3)+400],[ylev1+.03],'Gamma-ray lines',charthick=1.5,color=col.black
xyouts,[100.],[ylev2-.04],'Nonthermal electrons',charthick=1.5,color=col.black

return
end