AG fuer technische Informatik Meystre www.agtim.ch

PostScript Übersetzer/Umsetzer

PostScript ist eine spezielle Sprache zur Steuerung der Darstellung auf Drucker, Plotter und Belichter in der graphischen Industrie. PostScript Übersetzer wurden zur Umsetzung von IBM-Druckdateien EBCDIC-Format auf DEC LN03 PS angewendet.
//              IBM38xx via VAX  to PostScript-Printer
//
// The width of Characters are not the Points Value of the Font !              
//
// FONTs: GT15  Gothic normal Pitch 15 use: 8 scalefont
//              GB15  Gothic bold   Pitch 15 use: 8 scalefont
//              GI15  Gothic italic Pitch 15 use: 8 scalefont
//
// PAGEDEFs:            Characters/line
//              Pitch    10    12    15
//              P A4H    75    90   112
//              L A4Q   100   120   150
//              
//                     Lines / Page
//              LPI    P A4H   L A4Q    mm    Points
//                6      60      44    4.23     12 
//                8      80      60    3.18      9
//               10     100      74    2.54      7.2
//               12     120      90    2.12      6
//               15                    1.69      4.8 
Eine weitere Applikation ist die Nachverarbeitung der PostScript Ausgabedateien von Dia-Graphiken, welche mit den verschiedenen Werkzeugen wie Harvard Graphics, FreeLance, Windows PSCRIPT... erstellt worden sind, damit einheitliche, bildfüllende Dias entstehen. Achtung das folgende Farnblatt-Beispiel ist kein JavaScript, sondern PostScript
%!PS Kennung
%%% Random Farn

1.42 1.42 scale  % mm * 0.5
1 setlinewidth
/XVal 0 def /YVal 0 def
25000 {
       /RVal { rand 1000 mod } def

       RVal 10 le
       {
        /XNeu 0 def
        /YNeu { YVal 0.16 mul } def
       }{
         RVal 80 le
         {
          /XNeu { XVal 0.2  mul YVal 0.26 mul sub } def
          /YNeu { XVal 0.23 mul YVal 0.22 mul add 1.6 add } def
         }{
           RVal 160 le
           {
            /XNeu { YVal 0.28 mul XVal 0.15 mul sub } def
            /YNeu { YVal 0.24 mul XVal 0.26 mul add 0.44 add } def
           }{
             /XNeu { YVal 0.04 mul XVal 0.85 mul add } def
             /YNeu { YVal 0.85 mul XVal 0.04 mul sub 1.6 add } def
            } ifelse
          } ifelse
        } ifelse
       /XVal XNeu def  /YVal YNeu def
       XVal 32 mul 100 add  290 YVal 18 mul sub moveto 1 0 rlineto stroke

      } repeat 
showpage 

mehr Informationen durch: © 2005 by André Meystre , CH-4132 Muttenz, Switzerland
back to Projektuebersicht or AGTIM Homepage