%/dx 2.88 def /dy 2 def /ox 33 def /oy 27 def 
/dx 2.8 def /dy 2 def /ox 10 def /oy 12 def 
.4 setlinewidth 0 setgray

/Helvetica findfont 7 scalefont setfont
/myscale { dy mul oy add exch dx mul ox add exch } def
/point { myscale lineto
         gsave currentpoint newpath moveto currentpoint
         1 0 360 arc 0 setcolor fill grestore
         } def
/ptr { gsave
       /Courier findfont 7 scalefont setfont
       dup 6 myscale moveto 0 6 rlineto stroke 
       dup 6 myscale moveto 0 6 rmoveto 
                            -1 -3 rlineto 
                            1 .5 rlineto 
                            1 -.5 rlineto
                            -1 3 rlineto 
                            0 setgray fill
       2 myscale moveto dup stringwidth pop 2 div neg 0 rmoveto show
       grestore } def
/bar { gsave dup 12 myscale moveto 18 myscale lineto stroke grestore } def

/box {/TT exch def /BB exch def /RR exch def /LL exch def
     LL BB  myscale moveto
     RR BB myscale lineto
     RR TT myscale lineto
     LL TT myscale lineto
     LL BB myscale lineto
     } def

gsave 0 100 12 18 box .2 setlinewidth stroke grestore
gsave 44 56 13 17 box .9 setgray fill grestore

(l) 1.4 ptr
(ll) 20 ptr
(i) 44 ptr
(j) 56 ptr
(rr) 76 ptr
(r) 98.6 ptr
5.5 13.5 myscale moveto (equal) show
28 13.5 myscale moveto (less) show
62.5 13.5 myscale moveto (greater) show
83 13.5 myscale moveto (equal) show
97.7 13.5 myscale moveto (v) show
19 bar 43 bar 57 bar 77 bar 97 bar
--------------------
Inline 4pc null