* version 1.01 of marks.plusminus 2000 June 7 * : make + and - marks for makelogo or lister u /plusminus{% radius doplus plusminus % if doplus is (+), do a plus % if doplus is (-), do a minus % radius is in character widths gsave % /radius exch cm def % radius in cm /doplus exch (+) eq def /radius exch charwidth mul def % radius in character widths /y2 exch def /x2 exch def /y1 exch def /x1 exch def 2 setlinewidth x1 y1 translate doplus { 0 radius neg moveto 0 radius lineto } if radius neg 0 moveto radius 0 lineto stroke grestore } def ! * examples: * enhancement + * U 5 -0.20 5 -0.4 0.3 (+) plusminus * * protection - * cf 7 -0.20 0.5 * U 5 -0.30 5 -0.4 0.3 (-) plusminus