home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Database / X!-V330.LHA / VCArchive / filters / PostScript.PH < prev    next >
Encoding:
Text File  |  1997-02-27  |  1.8 KB  |  59 lines
  1. /***************************************************************/
  2. /* PostScript Phono Cover                                      */
  3. /* Harald Zottmann                                             */
  4. /***************************************************************/
  5.  
  6. @VER 1.0
  7.  
  8. @TXT%!PS-Adobe-3.0 EPSF-3.0
  9. @TXT%%BoundingBox 28 368 324 623
  10.  
  11. @TXT/cm {28.3465 mul} def
  12. @TXT/home {1 cm 22 cm moveto} def
  13.  
  14. @TXTgsave
  15.  
  16. @TXT/Courier findfont 7.2 scalefont setfont
  17.  
  18. @TXTnewpath
  19.  
  20. @TXThome
  21.  
  22. @TXT  5.2 cm   0   cm rlineto
  23. @TXT  0   cm  -8.4 cm rlineto
  24. @TXT -5.2 cm   0   cm rlineto
  25. @TXT  0   cm   8.4 cm rlineto
  26. @TXT  0   cm  -0.4 cm rlineto
  27. @TXT  5.2 cm   0   cm rlineto
  28. @TXT  0   cm  -0.8 cm rlineto
  29. @TXT -5.2 cm   0   cm rlineto
  30.  
  31. @TXTstroke
  32.  
  33. @TXThome  0.1  cm  -0.3 cm rmoveto (@%s@00@00@TXT) show
  34. @TXThome  0.1  cm  -0.7 cm rmoveto (@%s@00@01@TXT) show
  35. @TXThome  0.1  cm  -1.1 cm rmoveto (@%s@00@02@TXT) show
  36. @TXThome  0.1  cm  -1.5 cm rmoveto (@%s@00@03@TXT) show
  37.  
  38. @TXThome  0.1  cm  -1.9 cm rmoveto (@%s@00@04@TXT) show
  39. @TXThome  0.1  cm  -2.3 cm rmoveto (@%s@00@05@TXT) show
  40. @TXThome  0.1  cm  -2.7 cm rmoveto (@%s@00@06@TXT) show
  41. @TXThome  0.1  cm  -3.1 cm rmoveto (@%s@00@07@TXT) show
  42. @TXThome  0.1  cm  -3.5 cm rmoveto (@%s@00@08@TXT) show
  43. @TXThome  0.1  cm  -3.9 cm rmoveto (@%s@00@09@TXT) show
  44. @TXThome  0.1  cm  -4.3 cm rmoveto (@%s@00@10@TXT) show
  45. @TXThome  0.1  cm  -4.7 cm rmoveto (@%s@00@11@TXT) show
  46. @TXThome  0.1  cm  -5.1 cm rmoveto (@%s@00@12@TXT) show
  47. @TXThome  0.1  cm  -5.5 cm rmoveto (@%s@00@13@TXT) show
  48. @TXThome  0.1  cm  -5.9 cm rmoveto (@%s@00@14@TXT) show
  49. @TXThome  0.1  cm  -6.3 cm rmoveto (@%s@00@15@TXT) show
  50. @TXThome  0.1  cm  -6.7 cm rmoveto (@%s@00@16@TXT) show
  51. @TXThome  0.1  cm  -7.1 cm rmoveto (@%s@00@17@TXT) show
  52. @TXThome  0.1  cm  -7.5 cm rmoveto (@%s@00@18@TXT) show
  53. @TXThome  0.1  cm  -7.9 cm rmoveto (@%s@00@19@TXT) show
  54.  
  55.  
  56. @TXTgrestore
  57.  
  58. @TXTshowpage
  59.