;$Id: psketch.pro,v 1.2 2026/05/14 01:01:44 brandenb Exp $
if !d.name eq 'PS' then begin
  device,xsize=18,ysize=12,yoffset=3
  !p.charthick=3 & !p.thick=3 & !x.thick=3 & !y.thick=3
end
;
!p.charsize=1.7
!x.margin=[9.4,.5]
!y.margin=[3.2,.3]
;
xr=[1.,100]
xr=[.4,200]
yr=[1e-4,2.2e-2]
!x.title='!7n!6!dM!n(!8t!6)'
!y.title='!8v!6!dA!n(!8t!6)'
;
dvA=5.
dxiM=5.
circ_sym,1.3,1
xiM=[1.,10.,10.]
vA=[.01,.01,.001]
plot_oo,xiM,vA,ps=8,xr=xr,yr=yr
for j=0,2 do arrow,/data,xiM[j],vA[j],xiM[j]*dxiM,vA[j]/dvA
;
siz=2.0
xyouts,1.08,.012,siz=siz,'!6A'
xyouts,10.8,.012,siz=siz,'!6B'
xyouts,10.8,.0012,siz=siz,'!6C'
print,"$mv idl.ps ~/Overleaf/Mattia/Isochrones/fig/psketch.eps"
END