|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: P T
Length: 2634 (0xa4a)
Types: TextFile
Names: »PS-ExecPs.pfd«
└─⟦52210d11f⟧ Bits:30007239 EUUGD2: TeX 3 1992-12
└─⟦af5ba6c8e⟧ »unix3.0/DVIWARE.tar.Z«
└─⟦ca79c7339⟧
└─⟦this⟧ »DVIware/laser-setters/dvi-to-ps/TeXPS/doc/PS-ExecPs.pfd«
% % PostScript font which contains ExecPsCode. % StartPfd; BaseFontName "Times-Roman"; % Base font is Times-Roman % Code '0: print "emdash" and "paragraphsign" on top of each other. ExecPsCode 0 8#000 500 673 17 "currentpoint % This is the way PS procedures % normally start for ExecPsCode. currentpoint (\174) show moveto (\266) show moveto % This is the way these procedures Move-X 0 rmoveto"; % normally end. Move-X is loaded by % the driver! % Code '1: print a small square. ExecPsCode 0 1 500 400 000 "currentpoint 100 Convert-Afm-To-Pixels 0 rmoveto % 100 to the right currentpoint newpath moveto 300 Convert-Afm-To-Pixels 0 rlineto % 300 right 0 -300 Convert-Afm-To-Pixels rlineto % 300 up -300 Convert-Afm-To-Pixels 0 rlineto % 300 left closepath fill % makes square moveto Move-X 0 rmoveto"; % Code '2: print bigger square. ExecPsCode 0 8#002 700 500 000 "currentpoint 100 Convert-Afm-To-Pixels 0 rmoveto % 100 to the right currentpoint newpath moveto 500 Convert-Afm-To-Pixels 0 rlineto % 500 right 0 -500 Convert-Afm-To-Pixels rlineto % 500 up -500 Convert-Afm-To-Pixels 0 rlineto % 500 left closepath fill % makes square moveto Move-X 0 rmoveto"; % Code '3: print triangle (small). ExecPsCode 0 8#003 500 150 000 "currentpoint 100 Convert-Afm-To-Pixels 0 rmoveto % 100 to the right currentpoint newpath moveto 150 Convert-Afm-To-Pixels -150 Convert-Afm-To-Pixels rlineto 150 Convert-Afm-To-Pixels 150 Convert-Afm-To-Pixels rlineto closepath fill % makes triangle moveto Move-X 0 rmoveto"; % Code '4: print triangle (quite tall). ExecPsCode 0 8#004 500 400 000 "currentpoint 100 Convert-Afm-To-Pixels 0 rmoveto % 100 to the right currentpoint newpath moveto 150 Convert-Afm-To-Pixels -400 Convert-Afm-To-Pixels rlineto 150 Convert-Afm-To-Pixels 400 Convert-Afm-To-Pixels rlineto closepath fill % makes triangle moveto Move-X 0 rmoveto"; % Code '5: print triangle (quite tall). ExecPsCode 0 8#005 500 000 -200 "currentpoint 100 Convert-Afm-To-Pixels 0 rmoveto % 100 to the right currentpoint newpath moveto 150 Convert-Afm-To-Pixels 200 Convert-Afm-To-Pixels rlineto 150 Convert-Afm-To-Pixels -200 Convert-Afm-To-Pixels rlineto closepath fill % makes triangle moveto Move-X 0 rmoveto"; % Code '100 (position of "@"): print another triangle. ExecPsCode 0 8#100 600 400 000 "currentpoint 100 Convert-Afm-To-Pixels 0 rmoveto % 100 to the right currentpoint newpath moveto 0 -400 Convert-Afm-To-Pixels rlineto 400 Convert-Afm-To-Pixels 400 Convert-Afm-To-Pixels rlineto closepath fill % makes triangle moveto Move-X 0 rmoveto"; EndPfd;