home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 077.lha / Postscript / Examples / gothic-g < prev    next >
Encoding:
Text File  |  1986-11-20  |  786 b   |  40 lines
  1.  
  2. 2 pencolor
  3. save
  4. /gg {
  5.    -5 3 moveto -5 -6 lineto -7 -7 lineto -6 -7 lineto
  6.    -4 -8 lineto -3 -9 lineto -2 -8 lineto 0 -7 lineto
  7.    3 -6 lineto
  8.  
  9.    -4 2 moveto -4 -7 lineto -2 -8 lineto
  10.  
  11.    -3 3 moveto -3 -6 lineto -1 -7 lineto 0 -7 lineto
  12.  
  13.    -5 3 moveto -3 3 lineto 0 4 lineto 2 5 lineto 3 4 lineto
  14.    5 3 lineto 7 3 lineto 5 2 lineto 5 -10 lineto
  15.    4 -13 lineto 2 -15 lineto 0 -16 lineto -1 -15 lineto
  16.    -3 -14 lineto -5 -14 lineto
  17.  
  18.    1 4 moveto 4 2 lineto 4 -10 lineto
  19.  
  20.    1 -15 moveto -1 -14 lineto -2 -14 lineto
  21.  
  22.    0 4 moveto 1 3 lineto 3 2 lineto 3 -8 lineto
  23.    4 -11 lineto 4 -13 lineto
  24.  
  25.    2 -15 moveto 1 -14 lineto -1 -13 lineto -3 -13 lineto
  26.    -5 -14 lineto
  27.  
  28.    } def
  29.  
  30. 50 180 translate
  31.  
  32.  gg stroke
  33.  
  34. 10 {
  35.     50 0 translate 1.2 1.2 scale gg stroke
  36.   } repeat
  37.  
  38. restore
  39.  
  40.