%!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