/xo .1 def    /yo 0.001 def 
/xl 6  def    /yl 2     def 
/lgx {log}  def    % Or,use " /lgx {} def " for linear x scale
/lgy {log}  def 
/ig 1 def

380 459 moveto
(White Dwarf) text


267 47 moveto
( R \(radius of the dwarf\)  ) text


61 317 moveto 
90 rotate 
($r$ \(density\)) text
-90 rotate 


frame
[30 5 15 5] 0 setdash
[
%< awk '{print $0}'  dwarf.data
] dataline 
0.3 xpos 0.1 ypos moveto (Chadrandsechar Limit) text

pstack showpage