%!EZP-Keung
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
/xl -0.5 def /xo 1.5 def
/yo -0.6 def /yl 0.6 def

/ig 2 def
frame
[0 0 0 ] databar %% Center of Sun

[2 3]   0    setdash  % dash dot pattern

/circ {currentpoint  gsave newpath 3 0 360 arc stroke  grestore} def
/pointshape {circ} def

[
%< awk  '{print $1,$2}' kepler.data
]  datapoint
dataset dataline


pstack
showpage