LINOFSET.PS

%!PS-Adobe-2.0
%%Title: linofset.ps
%%Creator: Rhea Myers
%%EndComments

%Basic variables and operations for redefining drawing commands
      %/moveto load { %def 2modify *moveto }  ne { %if
      /n 42949672940 def         %the number to divide rand by to get 0-.20
          /modify { %def
          dup 0 eq { pop 1 } if
               rand n div .975 add mul cvi %multiplies integer by 90-110%
          } bind def
          /2modify { %def
           2 { modify 1 2 roll } repeat  %modifies top 2 numbers on stack
          } bind def
     /5modify { %def
          5 { modify 1 5 roll } repeat  %modifies top 5 numbers on stack
     } bind def
     /6modify { %def
          6 { modify 1 6 roll } repeat  %modifies top 6 numbers on stack
     } bind def

 %Rename drawing functions

     /*moveto /moveto load def
     /*lineto /lineto load def
        /*rmoveto /rmoveto load def
     /*rlineto /rlineto load def
      %Redefine drawing functions

     /moveto { %def
          2modify
          *moveto        
     } bind def
     /lineto { %def
          2modify
          *lineto
     } bind def
      /rmoveto { %def
          2modify
          *rmoveto
     } bind def
     /rlineto { %def
          2modify
          *rlineto
     } bind def
     /rcurveto { %def
          2modify
          *rcurveto
     } bind def
  
    %Rename text commands

     /*show /show load def    %rename show

    %Redefine text commands

     /show { %def             %redefine show for filled characters only
                { %forall
                    /charcode exch def
                    /thischar ( ) dup 0 charcode put def
                    
                    gsave
                         currentpoint   %save starting point
                         /currenty exch def
                         /currentx exch def
                         thischar false charpath  %get character outline
                         /thispath [
                         { /moveto cvx } { /lineto cvx } { /curveto cvx }
                         { /closepath cvx } pathforall
                         ] cvx def
                         newpath
                         currentx currenty moveto
                         thispath
%level2                       flattenpath pathbbox setbbox
                         currentfont begin
                         PaintType 2 eq { %ifelse
                              stroke
                         }{ %else
                              fill
                         
                         } ifelse
                         end
                    grestore
               
                    thischar stringwidth pop 0 *rmoveto
                    currentpoint pop currenty *moveto
                } forall
     } bind def
%%EndProlog

/Helvetica findfont
96 scalefont setfont
50 700 *moveto
(viral) show
showpage

cleardictstack