home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / apps / tex / lametex_.z / lametex_ / lametex / page / wigglies.ps < prev   
Encoding:
Text File  |  1992-09-02  |  380 b   |  27 lines
  1. formatdict begin
  2.  
  3. /BIG 1073741824 def
  4.  
  5. % Gives a random number between 0 and N
  6. %   N   Random  random-number
  7. /Random
  8. {
  9.    rand BIG div mul 2 div
  10. } bind def 
  11.  
  12. /foo 0 def
  13.  
  14. /SHOWIT
  15. {
  16.   dup stringwidth pop dup 2 div
  17.   gsave
  18.      dup 0 rmoveto
  19.      /foo foo 1 add def
  20.      foo 15 div dup Random exch 2 div sub rotate
  21.      neg 0 rmoveto exch show
  22.   grestore
  23.   0 rmoveto
  24. } bind def
  25.  
  26. end
  27.