home *** CD-ROM | disk | FTP | other *** search
/ Fifty: Elektronik / FIFTY Elektronik (PS_Computer_Vertrieb).iso / ps8 / fty1017 / gepackt.exe / DISK2 / GFLASH.PSP < prev    next >
Encoding:
Text File  |  1993-11-25  |  2.5 KB  |  82 lines
  1. % PrologBeginn
  2. /gr   /grestore load def
  3. /gs   /gsave load def
  4. /np   /newpath load def
  5. /cp   /closepath load def
  6. /lto  /lineto load def
  7. /mto  /moveto load def
  8. /rlto /rlineto load def
  9. /rmto /rmoveto load def
  10. /cup  /currentpoint load def
  11. /slw  /setlinewidth load def
  12. /sgr  /setgray load def
  13. /slc  /setlinecap load def
  14. /tra  /translate load def
  15. /rot  /rotate load def
  16. /x    /pop load def
  17. %
  18. /bd      {bind def } bind def
  19. %
  20. /spi     {-1 1 scale } bd
  21. /coera   {copypage erasepage } bd
  22. %
  23. /setlin {/lst exch lsplus add def
  24.           lst 0 eq {linien0 slw }
  25.                    {lst slw} ifelse } bd
  26. %
  27. % Quadratisches Auge
  28. /AQ      {/ad exch lsplus add def
  29.          np mto gs ad 2 div neg dup rmto
  30.          0 ad rlto ad 0 rlto 0 ad neg rlto cp fill
  31.          gr lmitte } bd
  32. % Rundes Auge
  33. /AR     {/ad exch lsplus add def
  34.          np mto gs cup ad 2 div 0 360 arc fill
  35.          gr lmitte} bd
  36. % Ovales Auge
  37. /OV     {/wy exch lsplus add def /wx exch lsplus add def /my exch def /mx exch def
  38.          wy wx gt
  39.          {/ad wx def
  40.              np mx my wy wx sub 2 div sub wx 2 div 180 360 arc
  41.              mx my wy wx sub 2 div add wx 2 div 0 180 arc }
  42.          {/ad wy def
  43.              np mx wx wy sub 2 div sub my wy 2 div 90 270 arc
  44.              mx wx wy sub 2 div add my wy 2 div -90 90 arc } ifelse
  45.          cp fill mx my mto lmitte } bd
  46. % Achteckiges Auge
  47. /AO     {/ad exch lsplus add 1.082 mul 2 div def
  48.          /my exch def
  49.          /mx exch def
  50.          gs
  51.            mx my tra -22.5 rot np ad 0 mto 45 rot ad 0 lto 45 rot ad 0 lto
  52.            45 rot ad 0 lto 45 rot ad 0 lto 45 rot ad 0 lto 45 rot ad 0 lto
  53.            45 rot ad 0 lto cp fill
  54.          gr mx my mto lmitte } bd
  55. /lmitte {innen ad lt {gs grmit sgr cup innen 2 div 0 360 arc fill gr} if } bd
  56. % Linie
  57. /lin    {np setlin 4 2 roll mto lto stroke } bd
  58. % gefuelltes Rechteck
  59. /fbox   {gs
  60.           /br exch lsplus add def
  61.           /ho exch lsplus add def
  62.           np mto lsplus 2 div neg dup rmto 0 ho rlto br 0 rlto 0 ho neg rlto cp fill
  63.          gr } bd
  64. % Kreis(bogen)
  65. /lcirc  {gs setlin np arc stroke gr } bd
  66. %
  67. /PageFormat {statusdict /setpageparams known
  68.                { statusdict begin
  69.                  Film 297 lt {exch} if
  70.                  0 Film 297 ge {0} {1} ifelse setpageparams end korrektur
  71.                 }
  72.                 { pop pop }
  73.              ifelse } bd
  74. /A4quer {0 297 tra -90 rot} bd
  75. /A4hoch {0 0 tra } bd
  76. /A3quer {0 0 tra } bd
  77. /A3hoch {0 297 tra -90 rot} bd
  78. /FIquer {0 0 tra } bd
  79. /FIhoch {0 Film tra -90 rot} bd
  80. %
  81. % PrologEnde
  82.