%!PS
%%BoundingBox: 10 40 550 500
/doos { newpath dup 3 2 roll dup 6 1 roll exch moveto
        3 2 roll dup 4 1 roll exch lineto
        dup 4 1 roll lineto  exch lineto  closepath stroke } def
%
0.002 setlinewidth
% 10 40 550 500 doos
%
0 20 translate  1000 1000 scale
0.001 setlinewidth
%
% X-axis and Y-axis:
newpath 0.07 0.10 moveto 0.45 0 rlineto
        0.19 0.03 moveto 0 0.45 rlineto  stroke
%
0.19 0.10 translate
0.003 setlinewidth newpath
%
% Start & increments:
/x -0.15 def   /dx { x /x x 0.0075 add def } def
%
/fun { dup 0.5 eq { pop 1000 } { dup  1 exch 2 mul sub dup mul
                                 exch dup mul exch div } ifelse } def
newpath dx dup fun moveto
  55 { dx dup fun dup 0.5 gt { moveto }{ lineto } ifelse } repeat stroke
%
0.001 setlinewidth newpath
%
/Times-Roman findfont 0.030 scalefont setfont
%
0.1 -0.02 moveto (x) show
-0.02 0.1 moveto (y) show
-0.03 -0.03 moveto (O) show
%
newpath -0.17 0.25 moveto 0.5 0 rlineto stroke
-0.04 0.26 moveto (1/4) show
newpath 0.25 0 moveto 0 0.25 rlineto stroke
0.255 0.01 moveto (1/4) show
%
% SAFE POINTS
%
/lijnen { x dup fun lineto  0 x sub 0 rlineto } def
/vervolgens { /x x fun def x 0 lineto lijnen } def
newpath
/x 0.245 def x 0 moveto lijnen 6 { vervolgens } repeat
stroke
0.20 -0.03 moveto (0.245) show
%
showpage