%!PS-Adobe-3.0 EPSF-3.0 AG280-7N %%BoundingBox: 70 82 785 585 %START PDFDE011.EPS /pdfmark07 where {pop} {userdict /pdfmark07 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: http://farbe.li.tu-berlin.de/AG28/AG28.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2016040112000) /ModDate (D:20160401112000) /DOCINFO pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 %END PDFDE011 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /A4querL {598 0 translate 90 rotate} def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse } forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse } forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse } forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse } forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /TS {200 /Times-ISOL1 FS} bind def /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /CS {200 /Courier-ISOL1 FS} bind def /CK {250 /Courier-ISOL1 FS} bind def /CM {300 /Courier-ISOL1 FS} bind def /CG {350 /Courier-ISOL1 FS} bind def /CBS {200 /CourierB-ISOL1 FS} bind def /CBK {250 /CourierB-ISOL1 FS} bind def /CBM {300 /CourierB-ISOL1 FS} bind def /CBG {350 /CourierB-ISOL1 FS} bind def %***************************************************************************** %ANFA /tzNW [0.000 0.067 0.132 0.200 0.267 0.333 0.400 0.467 0.533 0.600 0.667 0.733 0.800 0.867 0.933 1.000 0.000 0.250 0.500 0.750 1.000] def /tzWN [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzZW [0.500 0.533 0.567 0.600 0.633 0.667 0.700 0.733 0.767 0.800 0.833 0.867 0.900 0.933 0.967 1.000 0.500 0.625 0.750 0.875 1.000] def /tzWZ [1.000 0.967 0.933 0.900 0.867 0.833 0.800 0.767 0.733 0.700 0.667 0.633 0.600 0.567 0.533 0.500 1.000 0.875 0.750 0.625 0.500] def /tzNZ [0.000 0.033 0.067 0.100 0.133 0.167 0.200 0.233 0.267 0.300 0.333 0.367 0.400 0.433 0.467 0.500 0.000 0.125 0.250 0.375 0.500] def /tzZN [0.500 0.467 0.433 0.400 0.367 0.333 0.300 0.267 0.233 0.200 0.167 0.133 0.100 0.067 0.033 0.000 0.500 0.375 0.250 0.125 0.000] def /tza0 [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000] def /tza1 [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000] def %ENDE %*********************************************************************************** %*********************************************************************************** /proc_rosette { %BEG procedure rosette %requires 0<=iout<=5 %requires deintp=0,1 deintp 0 eq {%deintp=0,1 /tefaolvN [(N-R) (N-G) (N-B) (N-W) (N-Z)] def /tefaolvZ [(Z-R) (Z-G) (Z-B) (Z-W) (Z-N)] def /tefaolvW [(W-R) (W-G) (W-B) (W-N) (W-Z)] def /tefacmyN [(N-C) (N-M) (N-Y) (N-W) (N-Z)] def /tefacmyZ [(Z-C) (Z-M) (Z-Y) (Z-W) (Z-N)] def /tefacmyW [(W-C) (W-M) (W-Y) (W-N) (W-Z)] def } %deintp=0 { %deintp=1 /tefaolvN [(N-R) (N-G) (N-B) (N-W) (N-Z)] def /tefaolvZ [(Z-R) (Z-G) (Z-B) (Z-W) (Z-N)] def /tefaolvW [(W-R) (W-G) (W-B) (W-N) (W-Z)] def /tefacmyN [(N-C) (N-M) (N-J) (N-W) (N-Z)] def /tefacmyZ [(Z-C) (Z-M) (Z-J) (Z-W) (Z-N)] def /tefacmyW [(W-C) (W-M) (W-J) (W-N) (W-Z)] def } ifelse /colaolvN [{tgo} {tgl} {tgv} {tgw} {tgz}] def /colaolvZ [{tgo} {tgl} {tgv} {tgw} {tgn}] def /colaolvW [{tgo} {tgl} {tgv} {tgn} {tgz}] def /colacmyN [{tgc} {tgm} {tgy} {tgw} {tgz}] def /colacmyZ [{tgc} {tgm} {tgy} {tgw} {tgn}] def /colacmyW [{tgc} {tgm} {tgy} {tgn} {tgz}] def /colbolvN [{tgc} {tgm} {tgy} {tgo} {tgo}] def /colbolvZ [{tgc} {tgm} {tgy} {tgo} {tgo}] def /colbolvW [{tgc} {tgm} {tgy} {tgo} {tgo}] def /colbcmyN [{tgo} {tgl} {tgv} {tgo} {tgo}] def /colbcmyZ [{tgo} {tgl} {tgv} {tgo} {tgo}] def /colbcmyW [{tgo} {tgl} {tgv} {tgo} {tgo}] def /tefa 5 array def /cola 5 array def /colb 5 array def 0 1 4 {/ncol exch def %ncol=0,4 iout 0 eq {tefa ncol tefaolvN ncol get put cola ncol colaolvN ncol get put colb ncol colbolvN ncol get put } if iout 1 eq {tefa ncol tefaolvZ ncol get put cola ncol colaolvZ ncol get put colb ncol colbolvZ ncol get put } if iout 2 eq {tefa ncol tefaolvW ncol get put cola ncol colaolvW ncol get put colb ncol colbolvW ncol get put } if iout 3 eq {tefa ncol tefacmyN ncol get put cola ncol colacmyN ncol get put colb ncol colbcmyN ncol get put } if iout 4 eq {tefa ncol tefacmyZ ncol get put cola ncol colacmyZ ncol get put colb ncol colbcmyZ ncol get put } if iout 5 eq {tefa ncol tefacmyW ncol get put cola ncol colacmyW ncol get put colb ncol colbcmyW ncol get put } if } for %ncol=0,4 iout 0 eq iout 3 eq or {/TYP (N) def} if iout 1 eq iout 4 eq or {/TYP (Z) def} if iout 2 eq iout 5 eq or {/TYP (W) def} if %W 0 0 0 setrgbcolor TK 0 -230 moveto (AG280-5, ) show (Bild ) showde (Picture ) showen (Fig. ) showes (Fig. ) showfr (Fig. ) showit (Picture ) showjp iout 3 ge {(B2) show}{(D2) show} ifelse TYP show Txx show (: ) show (Radialgitter ) showde (radial gratings ) showen (rejillas radial ) showes (radial callebotis ) showfr (reticoli radiali ) showit (radial gratings ) showjp 0 1 3 {/ncol exch def TIK tefa ncol get show ncol 2 le { TK 00 -50 rmoveto Fxx show 00 50 rmoveto } if TIK (; ) show } for TIK (PS) show TK (\255Operator) showde ( operator) showea TIK ( rgb->rgb) show TS 00 -50 rmoveto Txx show 00 50 rmoveto TIK ( setrgbcolor ) show iout 0 eq iout 3 eq or {0 0 0 setrgbcolor} if iout 1 eq iout 4 eq or {0.5 0.5 0.5 setrgbcolor} if iout 2 eq iout 5 eq or {1 1 1 setrgbcolor} if 0 0 moveto 13000 0 rlineto 0 3700 rlineto -13000 0 rlineto closepath fill 0 0 0 setrgbcolor 0 0 moveto 13000 0 rlineto 0 3700 rlineto -13000 0 rlineto closepath stroke /xab 2500 def 0 1 4 {/ncol exch def %ncol=0,4 xab ncol mul 0 translate %neuer Rastermittelpunkt und Nullpunkt fuer Rosette, Radius 1,0 cm 1250 2100 translate iout 0 eq iout 3 eq or {1 1 1}{0 0 0} ifelse setrgbcolor newpath 0 0 0500 0 360 arc closepath stroke newpath 0 0 1000 0 360 arc closepath stroke cola ncol get exec 0 10 350 {newpath 0 0 moveto 0 0 1200 4 -1 roll dup 5 add arc closepath fill} for colb ncol get exec newpath 0 0 0300 0 360 arc closepath stroke -1250 -2100 translate %Text Rosette (Siemensstern) iout 0 eq iout 3 eq or {1 1 1} {0 0 0} ifelse setrgbcolor TBK 200 0100 moveto (Radialgitter ) showde (radial gratings ) showen (rejillas radial ) showes (radial callebotis ) showfr (reticoli radiali ) showit (radial gratings ) showjp TBIK tefa ncol get show ncol 2 le { TBK 00 -50 rmoveto Fxx show 00 50 rmoveto } if tgz TBM 1250 500 add 2300 moveto (10) show 1250 1000 add 2300 moveto (20) show xab ncol mul neg 0 translate } for %ncol=0,4 } def %END proc_rosette %********************************************************** /proc_16step {%BEG proc_16step %requires 0<=iout<=5 %requires deintp=0,1 /tefaolvN (N-R, N-G, N-B, W-N) def /tefaolvZ (Z-R, Z-G, Z-B, W-N) def /tefaolvW (W-R, W-G, W-B, W-N) def /tefacmyN (N-C, N-M, N-J, W-N) def /tefacmyZ (Z-C, Z-M, Z-J, W-N) def /tefacmyW (W-C, W-M, W-J, W-N) def /tenaolvN [(N-R)(N-G)(N-B)(W-N)] def /tenaolvZ [(Z-R)(Z-G)(Z-B)(W-N)] def /tenaolvW [(W-R)(W-G)(W-B)(W-N)] def /tenacmyN [(N-C)(N-M)(N-J)(W-N)] def /tenacmyZ [(Z-C)(Z-M)(Z-J)(W-N)] def /tenacmyW [(W-C)(W-M)(W-J)(W-N)] def /tenfolvN [(R) (G) (B) (N)] def /tenfolvZ [(R) (G) (B) (N)] def /tenfolvW [(R) (G) (B) (N)] def /tenfcmyN [(C) (M) (Y) (N)] def /tenfcmyZ [(C) (M) (Y) (N)] def /tenfcmyW [(C) (M) (Y) (N)] def /colaolvN [{tgw} {tgo} {tgl} {tgv} {tgz}] def /colaolvZ [{tgn} {tgo} {tgl} {tgv} {tgw}] def /colaolvW [{tgn} {tgo} {tgl} {tgv} {tgz}] def /colacmyN [{tgw} {tgc} {tgm} {tgy} {tgz}] def /colacmyZ [{tgn} {tgc} {tgm} {tgy} {tgw}] def /colacmyW [{tgn} {tgc} {tgm} {tgy} {tgz}] def /tzo3N 48 array def /tzl3N 48 array def /tzv3N 48 array def /tzn3N 48 array def 0 1 15 {/nfar exch def /nfar3 nfar 3 mul def %N-OLV tzo3N nfar3 tzNW nfar get put tzo3N nfar3 1 add 0.0 put tzo3N nfar3 2 add 0.0 put tzl3N nfar3 0.0 put tzl3N nfar3 1 add tzNW nfar get put tzl3N nfar3 2 add 0.0 put tzv3N nfar3 0.0 put tzv3N nfar3 1 add 0.0 put tzv3N nfar3 2 add tzNW nfar get put tzn3N nfar3 tzWN nfar get put tzn3N nfar3 1 add tzWN nfar get put tzn3N nfar3 2 add tzWN nfar get put} for /tzo3Z 48 array def /tzl3Z 48 array def /tzv3Z 48 array def /tzn3Z 48 array def 0 1 15 {/nfar exch def /nfar3 nfar 3 mul def %Z-OLV tzo3Z nfar3 tzZW nfar get put tzo3Z nfar3 1 add tzZN nfar get put tzo3Z nfar3 2 add tzZN nfar get put tzl3Z nfar3 tzZN nfar get put tzl3Z nfar3 1 add tzZW nfar get put tzl3Z nfar3 2 add tzZN nfar get put tzv3Z nfar3 tzZN nfar get put tzv3Z nfar3 1 add tzZN nfar get put tzv3Z nfar3 2 add tzZW nfar get put tzn3Z nfar3 tzWN nfar get put tzn3Z nfar3 1 add tzWN nfar get put tzn3Z nfar3 2 add tzWN nfar get put} for /tzo3W 48 array def /tzl3W 48 array def /tzv3W 48 array def /tzn3W 48 array def 0 1 15 {/nfar exch def /nfar3 nfar 3 mul def %W-OLV tzo3W nfar3 1.0 put tzo3W nfar3 1 add tzWN nfar get put tzo3W nfar3 2 add tzWN nfar get put tzl3W nfar3 tzWN nfar get put tzl3W nfar3 1 add 1.0 put tzl3W nfar3 2 add tzWN nfar get put tzv3W nfar3 tzWN nfar get put tzv3W nfar3 1 add tzWN nfar get put tzv3W nfar3 2 add 1.0 put tzn3W nfar3 tzWN nfar get put tzn3W nfar3 1 add tzWN nfar get put tzn3W nfar3 2 add tzWN nfar get put} for /tzc3N 48 array def /tzm3N 48 array def /tzy3N 48 array def /tzn3N 48 array def 0 1 15 {/nfar exch def /nfar3 nfar 3 mul def %N-CMY tzc3N nfar3 0.0 put tzc3N nfar3 1 add tzNW nfar get put tzc3N nfar3 2 add tzNW nfar get put tzm3N nfar3 tzNW nfar get put tzm3N nfar3 1 add 0.0 put tzm3N nfar3 2 add tzNW nfar get put tzy3N nfar3 tzNW nfar get put tzy3N nfar3 1 add tzNW nfar get put tzy3N nfar3 2 add 0.0 put tzn3N nfar3 tzWN nfar get put tzn3N nfar3 1 add tzWN nfar get put tzn3N nfar3 2 add tzWN nfar get put} for /tzc3Z 48 array def /tzm3Z 48 array def /tzy3Z 48 array def /tzn3Z 48 array def 0 1 15 {/nfar exch def /nfar3 nfar 3 mul def %Z-CMY tzc3Z nfar3 tzZN nfar get put tzc3Z nfar3 1 add tzZW nfar get put tzc3Z nfar3 2 add tzZW nfar get put tzm3Z nfar3 tzZW nfar get put tzm3Z nfar3 1 add tzZN nfar get put tzm3Z nfar3 2 add tzZW nfar get put tzy3Z nfar3 tzZW nfar get put tzy3Z nfar3 1 add tzZW nfar get put tzy3Z nfar3 2 add tzZN nfar get put tzn3Z nfar3 tzWN nfar get put tzn3Z nfar3 1 add tzWN nfar get put tzn3Z nfar3 2 add tzWN nfar get put} for /tzc3W 48 array def /tzm3W 48 array def /tzy3W 48 array def /tzn3W 48 array def 0 1 15 {/nfar exch def /nfar3 nfar 3 mul def %W-CMY tzc3W nfar3 tzWN nfar get put tzc3W nfar3 1 add 1.0 put tzc3W nfar3 2 add 1.0 put tzm3W nfar3 1.0 put tzm3W nfar3 1 add tzWN nfar get put tzm3W nfar3 2 add 1.0 put tzy3W nfar3 1.0 put tzy3W nfar3 1 add 1.0 put tzy3W nfar3 2 add tzWN nfar get put tzn3W nfar3 tzWN nfar get put tzn3W nfar3 1 add tzWN nfar get put tzn3W nfar3 2 add tzWN nfar get put} for /tenf 5 array def /tena 5 array def /cola 5 array def /tza3 48 array def iout 0 eq {/tefa tefaolvN def} if iout 1 eq {/tefa tefaolvZ def} if iout 2 eq {/tefa tefaolvW def} if iout 3 eq {/tefa tefacmyN def} if iout 4 eq {/tefa tefacmyZ def} if iout 5 eq {/tefa tefacmyW def} if 0 1 3 {/ncol exch def %ncol=0,3 iout 0 eq {cola ncol colaolvN ncol get put tenf ncol tenfolvN ncol get put tena ncol tenaolvN ncol get put } if iout 1 eq {cola ncol colaolvZ ncol get put tenf ncol tenfolvZ ncol get put tena ncol tenaolvZ ncol get put } if iout 2 eq {cola ncol colaolvW ncol get put tenf ncol tenfolvW ncol get put tena ncol tenaolvW ncol get put } if iout 3 eq {cola ncol colacmyN ncol get put tenf ncol tenfcmyN ncol get put tena ncol tenacmyN ncol get put } if iout 4 eq {cola ncol colacmyZ ncol get put tenf ncol tenfcmyZ ncol get put tena ncol tenacmyZ ncol get put } if iout 5 eq {cola ncol colacmyW ncol get put tenf ncol tenfcmyW ncol get put tena ncol tenacmyW ncol get put } if } for %ncol=0,3 iout 0 eq iout 3 eq or {INW 0 eq {/TYP (N) def} {/TYP (W) def} ifelse } if iout 1 eq iout 4 eq or {INW 0 eq {/TYP (Z) def} {/TYP (N) def} ifelse } if iout 2 eq iout 5 eq or {/TYP (W) def} if %W 0 0 0 setrgbcolor TK 0 -230 moveto INW 0 eq {(AG281-1, ) show} {(AG280-7, ) show} ifelse (Bild ) showde (Picture ) showen (Fig. ) showes (Fig. ) showfr (Fig. ) showit (Picture ) showjp iout 3 ge {(B4) show}{(D4) show} ifelse TYP show Txx show (: ) show (16 gleichabst\344ndige Stufen ) showde (16 equidistant steps ) showen (16 equidistante pasos ) showes (16 \351quidistants \351tapes ) showfr (16 equidistante passi ) showit (16 equidistant steps ) showjp 0 1 3 {/ncol exch def TIK tena ncol get show ncol 2 le { TK 00 -50 rmoveto Fxx show 00 50 rmoveto } if TK (; ) show } for TIK (rgb/cmy0->rgb) show TS 00 -50 rmoveto Txx show 00 50 rmoveto TIK ( setrgbcolor ) show TK iout 0 eq iout 3 eq or {%iout=0,3 INW 0 eq {0 0 0 setrgbcolor} {1 1 1 setrgbcolor} ifelse } if %iout=0,3 iout 1 eq iout 4 eq or {INW 0 eq {0.5 0.5 0.5 setrgbcolor} {0 0 0 setrgbcolor} ifelse } if iout 2 eq iout 5 eq or {1 1 1 setrgbcolor} if 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath fill 0 0 0 setrgbcolor 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath stroke /yab -850 def 000 3950 translate /n* [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def iout 0 eq iout 3 eq or {1 1 1} {0 0 0} ifelse setrgbcolor INW 1 eq {0 0 0 setrgbcolor} if iout 1 eq iout 4 eq or INW 1 eq and {1 1 1 setrgbcolor} if 0 1 16 {/j exch def /ix0 j 700 mul def /iy0 -850 def %j=0,16 ix0 25 add iy0 3100 sub moveto 000 4000 rlineto -50 000 rlineto 000 -4000 rlineto closepath fill } for %j=0,16 0 1 3 {/ncol exch def %=0,3 fuer O,L,V,N, or C,M,Y,N iout 0 eq {%iout=0 0 1 47 {/n exch def ncol 0 eq {tza3 n tzo3N n get put} if ncol 1 eq {tza3 n tzl3N n get put} if ncol 2 eq {tza3 n tzv3N n get put} if ncol 3 eq {tza3 n tzn3N n get put} if } for } if %iout=0 iout 1 eq {%iout=1 INW 0 eq {%INW=0,1 0 1 47 {/n exch def ncol 0 eq {tza3 n tzo3Z n get put} if ncol 1 eq {tza3 n tzl3Z n get put} if ncol 2 eq {tza3 n tzv3Z n get put} if ncol 3 eq {tza3 n tzn3Z n get put} if } for }%INW=0 {%INW=1 0 1 47 {/n exch def ncol 0 eq {tza3 n tzo3W n get put} if ncol 1 eq {tza3 n tzl3W n get put} if ncol 2 eq {tza3 n tzv3W n get put} if ncol 3 eq {tza3 n tzn3W n get put} if } for } ifelse %INW=0,1 } if %iout=1 iout 2 eq {%iout=2 0 1 47 {/n exch def ncol 0 eq {tza3 n tzo3W n get put} if ncol 1 eq {tza3 n tzl3W n get put} if ncol 2 eq {tza3 n tzv3W n get put} if ncol 3 eq {tza3 n tzn3W n get put} if } for } if %iout=2 iout 3 eq {%iout=3 0 1 47 {/n exch def ncol 0 eq {tza3 n tzc3N n get put} if ncol 1 eq {tza3 n tzm3N n get put} if ncol 2 eq {tza3 n tzy3N n get put} if ncol 3 eq {tza3 n tzn3N n get put} if } for } if %iout=3 iout 4 eq {%iout=4 0 1 47 {/n exch def ncol 0 eq {tza3 n tzc3Z n get put} if ncol 1 eq {tza3 n tzm3Z n get put} if ncol 2 eq {tza3 n tzy3Z n get put} if ncol 3 eq {tza3 n tzn3Z n get put} if } for } if %iout=4 iout 5 eq {%iout=5 0 1 47 {/n exch def ncol 0 eq {tza3 n tzc3W n get put} if ncol 1 eq {tza3 n tzm3W n get put} if ncol 2 eq {tza3 n tzy3W n get put} if ncol 3 eq {tza3 n tzn3W n get put} if } for } if %iout=5 0 yab translate %square test samples /l 0 def 0 1 15 {/j exch def /j3 j 3 mul def /ix0 j 700 mul def /iy0 0 def tza3 j3 get tza3 j3 1 add get tza3 j3 2 add get setrgbcolor l 0 eq {/ixd 700 def /iyd 700 def %ixd,iyd ix0 iy0 moveto ixd 000 rlineto 000 iyd rlineto ixd neg 000 rlineto closepath fill } if %ixd,iyd } for %j %iout 0 eq iout 3 eq or {1 1 1} {0 0 0} ifelse setrgbcolor 0 0 0 setrgbcolor TBIG 11310 300 moveto tenf ncol get show ncol 2 le { TBM 00 -50 rmoveto Fxx show 00 50 rmoveto } if iout 0 eq iout 3 eq or {1 1 1} {0 0 0} ifelse setrgbcolor INW 1 eq {0 0 0 setrgbcolor} if iout 1 eq iout 4 eq or INW 1 eq and {1 1 1 setrgbcolor} if TBM ncol 3 eq { %N 0 1 15 {/j exch def /ix0 250 j 700 mul add def /iy0 -350 def ix0 iy0 moveto n* j get show } for %j } if %N } for %ncol=0,1,2,3 fuer O, L, V, N 000 -550 translate 25 setlinewidth 0 0 0 setrgbcolor -25 0 moveto 11250 0 rlineto 0 4000 rlineto -11250 0 rlineto closepath stroke } def %END porc_16stepOLV %********************************************************** /proc_lettersize {%BEG proc_lettersize %requires 0<=iout<=5 %requires deintp=0,1 deintp 0 eq {%deintp=0,1 /tefaolvN (W, R, G, B, Z) def /tefaolvZ (N, R, G, B, W) def /tefaolvW (N, R, G, B, Z) def /tefacmyN (W, C, M, Y, Z) def /tefacmyZ (N, C, M, Y, W) def /tefacmyW (N, C, M, Y, Z) def /tenfolvN [(W) (R) (G) (B) (Z)] def /tenfolvZ [(N) (R) (G) (B) (W)] def /tenfolvW [(N) (R) (G) (B) (Z)] def /tenfcmyN [(W) (C) (M) (Y) (Z)] def /tenfcmyZ [(N) (C) (M) (Y) (W)] def /tenfcmyW [(N) (C) (M) (Y) (Z)] def } %deintp=0 { %deintp=1 /tefaolvN (W, R, G, B, Z) def /tefaolvZ (N, R, G, B, W) def /tefaolvW (N, R, G, B, Z) def /tefacmyN (W, C, M, J, Z) def /tefacmyZ (N, C, M, J, W) def /tefacmyW (N, C, M, J, Z) def /tenfolvN [(W) (R) (G) (B) (Z)] def /tenfolvZ [(N) (R) (G) (B) (W)] def /tenfolvW [(N) (R) (G) (B) (Z)] def /tenfcmyN [(W) (C) (M) (Y) (Z)] def /tenfcmyZ [(N) (C) (M) (Y) (W)] def /tenfcmyW [(N) (C) (M) (Y) (Z)] def } ifelse /colaolvN [{tgw} {tgo} {tgl} {tgv} {tgz}] def /colaolvZ [{tgn} {tgo} {tgl} {tgv} {tgw}] def /colaolvW [{tgn} {tgo} {tgl} {tgv} {tgz}] def /colacmyN [{tgw} {tgc} {tgm} {tgy} {tgz}] def /colacmyZ [{tgn} {tgc} {tgm} {tgy} {tgw}] def /colacmyW [{tgn} {tgc} {tgm} {tgy} {tgz}] def /na [(+-:.) (xyz;) (tuvw) (pqrs) (lmno) (hijk) (defg) (!abc) (lmno) (hijk) (defg) (!abc) (+-:.) (xyz;) (tuvw) (pqrs) (pqrs) (lmno) (hijk) (+-:.) (xyz;) (tuvw) (defg) (!abc) (tuvw) (pqrs) (lmno) (hijk) (+-:.) (!abc) (xyz;) (defg)] def /ar 72 def /ak [4 3 2 8 7 1 5 6 8 5 3 7 2 1 4 6 6 3 5 4 3 7 2 8 4 1 6 7 8 2 3 5 1 5 4 8 7 2 3 6 8 1 7 6 2 5 4 3 1 2 5 8 4 3 6 7 5 3 2 8 7 6 1 4 6 4 1 2 7 3 5 8 7 1 8 5 2 6 3 4 7 6 3 4 8 5 2 1 7 6 1 4 5 3 2 8 4 3 2 8 7 1 5 6 2 1 4 6 8 5 3 7 8 2 7 1 4 5 3 6 6 7 8 2 5 3 1 4 2 1 5 4 8 3 6 7 8 2 4 6 7 5 3 1 8 3 7 5 2 6 1 4 6 1 4 8 2 5 7 3] def /ng [(10) ( 8) ( 6) ( 4)] def /xtransl [0 3500 6500 9000] def /tenf 5 array def /cola 5 array def iout 0 eq {/tefa tefaolvN def} if iout 1 eq {/tefa tefaolvZ def} if iout 2 eq {/tefa tefaolvW def} if iout 3 eq {/tefa tefacmyN def} if iout 4 eq {/tefa tefacmyZ def} if iout 5 eq {/tefa tefacmyW def} if 0 1 4 {/ncol exch def %ncol=0,4 iout 0 eq {cola ncol colaolvN ncol get put tenf ncol tenfolvN ncol get put } if iout 1 eq {cola ncol colaolvZ ncol get put tenf ncol tenfolvZ ncol get put } if iout 2 eq {cola ncol colaolvW ncol get put tenf ncol tenfolvW ncol get put } if iout 3 eq {cola ncol colacmyN ncol get put tenf ncol tenfcmyN ncol get put } if iout 4 eq {cola ncol colacmyZ ncol get put tenf ncol tenfcmyZ ncol get put } if iout 5 eq {cola ncol colacmyW ncol get put tenf ncol tenfcmyW ncol get put } if } for %ncol=0,4 iout 0 eq iout 3 eq or {/TYP (N) def} if iout 1 eq iout 4 eq or {/TYP (Z) def} if iout 2 eq iout 5 eq or {/TYP (W) def} if %W 0 0 0 setrgbcolor TK 0 -230 moveto %iout 0 eq iout 3 eq or {(AG280-3, ) show}{(AG281-3, ) show} ifelse (AG281-3, ) show (Bild ) showde (Picture ) showen (Fig. ) showes (Fig. ) showfr (Fig. ) showit (Picture ) showjp iout 3 ge {(B5) show}{(D5) show} ifelse TYP show Txx show (: ) show (Schrift und Landoltringe ) showde (Sript and Landolt\255rings ) showen (codigo y Landolt annilos) showes (code et Landolt anneau) showfr (codice i Landolt anelli ) showit (Script Landolt\255rings ) showjp 0 1 4 {/ncol exch def TIK tenf ncol get show ncol 1 ge ncol 3 le and { TK 00 -50 rmoveto Fxx show 00 50 rmoveto } if TK (; ) show } for TIK (PS) show TK (\255Operator) showde ( operator) showea TIK ( rgb->rgb) show TS 00 -50 rmoveto Txx show 00 50 rmoveto TIK ( setrgbcolor ) show TK iout 0 eq iout 3 eq or {0 0 0 setrgbcolor} if iout 1 eq iout 4 eq or {0.5 0.5 0.5 setrgbcolor} if iout 2 eq iout 5 eq or {1 1 1 setrgbcolor} if 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath fill 0 0 0 setrgbcolor 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath stroke 200 000 translate %200 trans /igroe -1 def /mg -1 def 10 -2 04 {/n exch def /mg mg 1 add def /igroe igroe 1 add def /n480 40 n mul def /n600 45 n mul def /n300 25 n mul def /n150 15 n mul def /n200 20 n mul def /n050 05 n mul def /n360 30 n mul def /nar 6 n mul def /n6000 480 n mul def /n5000 400 n mul def xtransl mg get 0 translate /ix0 0 def n480 /Times-Roman FS 0 1 07 {/j exch def /iy0 3500 j n600 mul sub def iout 0 eq iout 3 eq or {1 1 1} {0 0 0} ifelse setrgbcolor ix0 100 add iy0 200 add moveto na j igroe 8 mul add get exec show j 7 eq { %Zusatz Schriftgroesse 10, 8, 6, 4 ix0 100 add iy0 200 add n600 sub moveto ng mg get exec show} if } for 0 1 04 {/ncol exch def /ix0 n600 2 mul ncol n600 mul add def /iy0 3500 8 n600 mul sub 0 1 07 {/j exch def /iy0 3500 j n600 mul sub def /k ncol 8 mul j add igroe 32 mul add def n setlinewidth cola ncol get exec newpath nar setlinewidth ix0 300 add iy0 300 add nar 2.5 mul 0 360 arc closepath fill iout 0 eq iout 3 eq or {0 0 0 setrgbcolor} if iout 1 eq iout 4 eq or {0.5 0.5 0.5 setrgbcolor} if iout 2 eq iout 5 eq or {1 1 1 setrgbcolor} if ix0 300 add iy0 300 add nar 1.5 mul 0 360 arc closepath fill ix0 300 add iy0 300 add moveto /m ak k get exec def m 1 eq {nar 2.6 mul 0 rlineto closepath stroke} if %0 m 2 eq {nar 2.6 mul 45 sin mul nar 2.6 mul 45 cos mul rlineto closepath stroke} if %45 m 3 eq {0 nar 2.6 mul rlineto closepath stroke} if %90 m 4 eq {nar 2.6 mul 135 sin mul nar 2.6 mul 135 cos mul rlineto closepath stroke} if %135 m 5 eq {nar 2.6 mul neg 0 rlineto closepath stroke} if %0 m 6 eq {nar 2.6 mul 235 sin mul nar 2.6 mul 235 cos mul rlineto closepath stroke} if %45 m 7 eq {0 nar 2.6 mul neg rlineto closepath stroke} if %0 m 8 eq {nar 2.6 mul 315 sin mul nar 2.6 mul 315 cos mul rlineto closepath stroke} if %45 } for %j acht Orientierungen iout 0 eq iout 3 eq or {1 1 1} {0 0 0} ifelse setrgbcolor ix0 400 add n200 sub iy0 300 add n600 sub n050 sub moveto /n480 40 n mul def n480 /Times-Roman FS tenf ncol get show ncol 1 ge ncol 3 le and { /n400 30 n mul def n400 /Times-Roman FS 00 -10 n mul rmoveto Fxx show 00 10 n mul rmoveto } if } for %ncol=0,4 xtransl mg get neg 0 translate } for %n vier Schrift-Groessen -200 000 translate %200 trans } def %END proc_lettersize %********************************************************** /proc_Landolt { %BEG proc_Landolt %requires 0<=iout<=5 %requires deintp=0,1 %requires ncol=0,1 or 2,3 deintp 0 eq {%deintp=0,1 ncol1 0 eq { %ncol1=0,#0 /tefaolvN (N-R, N-G) def /tefaolvZ (Z-R, Z-G) def /tefaolvW (W-R, W-G) def /tefacmyN (N-C, N-M) def /tefacmyZ (Z-C, Z-M) def /tefacmyW (W-C, W-M) def /tefaolvN1 (N-R) def /tefaolvZ1 (Z-R) def /tefaolvW1 (W-R) def /tefacmyN1 (N-C) def /tefacmyZ1 (Z-C) def /tefacmyW1 (W-C) def /tefaolvN2 (N-G) def /tefaolvZ2 (Z-G) def /tefaolvW2 (W-G) def /tefacmyN2 (N-M) def /tefacmyZ2 (Z-M) def /tefacmyW2 (W-M) def } %ncol1=0 { %ncol1#0 /tefaolvN (N-B, W-N) def /tefaolvZ (Z-B, W-N) def /tefaolvW (W-B, W-N) def /tefacmyN (N-Y, W-N) def /tefacmyZ (Z-Y, W-N) def /tefacmyW (W-Y, W-N) def /tefaolvN1 (N-B) def /tefaolvZ1 (Z-B) def /tefaolvW1 (W-B) def /tefacmyN1 (N-Y) def /tefacmyZ1 (Z-Y) def /tefacmyW1 (W-Y) def /tefaolvN2 (W-N) def /tefaolvZ2 (W-N) def /tefaolvW2 (W-N) def /tefacmyN2 (W-N) def /tefacmyZ2 (W-N) def /tefacmyW2 (W-N) def } ifelse %ncol1=0,#0 }%deintp=0 {%deintp=1 ncol1 0 eq { %ncol1=0,#0 /tefaolvN (N-R, N-G) def /tefaolvZ (Z-R, Z-G) def /tefaolvW (W-R, W-G) def /tefacmyN (N-C, N-M) def /tefacmyZ (Z-C, Z-M) def /tefacmyW (W-C, W-M) def /tefaolvN1 (N-R) def /tefaolvZ1 (Z-R) def /tefaolvW1 (W-R) def /tefacmyN1 (N-C) def /tefacmyZ1 (Z-C) def /tefacmyW1 (W-C) def /tefaolvN2 (N-G) def /tefaolvZ2 (Z-G) def /tefaolvW2 (W-G) def /tefacmyN2 (N-M) def /tefacmyZ2 (Z-M) def /tefacmyW2 (W-M) def } %ncol1=0 { %ncol1=#0 /tefaolvN (N-B, W-N) def /tefaolvZ (Z-B, W-N) def /tefaolvW (W-B, W-N) def /tefacmyN (N-J, W-N) def /tefacmyZ (Z-J, W-N) def /tefacmyW (W-J, W-N) def /tefaolvN1 (N-B) def /tefaolvZ1 (Z-B) def /tefaolvW1 (W-B) def /tefacmyN1 (N-J) def /tefacmyZ1 (Z-J) def /tefacmyW1 (W-J) def /tefaolvN2 (W-N) def /tefaolvZ2 (W-N) def /tefaolvW2 (W-N) def /tefacmyN2 (W-N) def /tefacmyZ2 (W-N) def /tefacmyW2 (W-N) def } ifelse %ncol1=0,#0 } ifelse %deintp=0,1 /tzo3N 48 array def /tzl3N 48 array def /tzv3N 48 array def /tzn3N 48 array def 0 1 15 {/nfar exch def /nfar3 nfar 3 mul def %N-OLV tzo3N nfar3 tzWN nfar get put tzo3N nfar3 1 add 1.0 put tzo3N nfar3 2 add 1.0 put tzl3N nfar3 1.0 put tzl3N nfar3 1 add tzWN nfar get put tzl3N nfar3 2 add 1.0 put tzv3N nfar3 1.0 put tzv3N nfar3 1 add 1.0 put tzv3N nfar3 2 add tzNW nfar get put tzn3N nfar3 tzWN nfar get put tzn3N nfar3 1 add tzWN nfar get put tzn3N nfar3 2 add tzWN nfar get put} for /tzo3Z 48 array def /tzl3Z 48 array def /tzv3Z 48 array def /tzn3Z 48 array def 0 1 15 {/nfar exch def /nfar3 nfar 3 mul def %Z-OLV tzo3Z nfar3 tzNZ nfar get put tzo3Z nfar3 1 add tzWZ nfar get put tzo3Z nfar3 2 add tzWZ nfar get put tzl3Z nfar3 tzWZ nfar get put tzl3Z nfar3 1 add tzNZ nfar get put tzl3Z nfar3 2 add tzWZ nfar get put tzv3Z nfar3 tzWZ nfar get put tzv3Z nfar3 1 add tzWZ nfar get put tzv3Z nfar3 2 add tzNZ nfar get put tzn3Z nfar3 tzWN nfar get put tzn3Z nfar3 1 add tzWN nfar get put tzn3Z nfar3 2 add tzWN nfar get put} for /tzo3W 48 array def /tzl3W 48 array def /tzv3W 48 array def /tzn3W 48 array def 0 1 15 {/nfar exch def /nfar3 nfar 3 mul def %W-OLV tzo3W nfar3 0.0 put tzo3W nfar3 1 add tzWN nfar get put tzo3W nfar3 2 add tzWN nfar get put tzl3W nfar3 tzWN nfar get put tzl3W nfar3 1 add 0.0 put tzl3W nfar3 2 add tzWN nfar get put tzv3W nfar3 tzWN nfar get put tzv3W nfar3 1 add tzWN nfar get put tzv3W nfar3 2 add 0.0 put tzn3W nfar3 tzWN nfar get put tzn3W nfar3 1 add tzWN nfar get put tzn3W nfar3 2 add tzWN nfar get put} for /tzc3N 48 array def /tzm3N 48 array def /tzy3N 48 array def /tzn3N 48 array def 0 1 15 {/nfar exch def /nfar3 nfar 3 mul def %N-CMY tzc3N nfar3 1.0 put tzc3N nfar3 1 add tzNW nfar get put tzc3N nfar3 2 add tzNW nfar get put tzm3N nfar3 tzNW nfar get put tzm3N nfar3 1 add 1.0 put tzm3N nfar3 2 add tzNW nfar get put tzy3N nfar3 tzNW nfar get put tzy3N nfar3 1 add tzNW nfar get put tzy3N nfar3 2 add 1.0 put tzn3N nfar3 tzWN nfar get put tzn3N nfar3 1 add tzWN nfar get put tzn3N nfar3 2 add tzWN nfar get put} for /tzc3Z 48 array def /tzm3Z 48 array def /tzy3Z 48 array def /tzn3Z 48 array def 0 1 15 {/nfar exch def /nfar3 nfar 3 mul def %Z-CMY tzc3Z nfar3 tzWZ nfar get put tzc3Z nfar3 1 add tzNZ nfar get put tzc3Z nfar3 2 add tzNZ nfar get put tzm3Z nfar3 tzNZ nfar get put tzm3Z nfar3 1 add tzWZ nfar get put tzm3Z nfar3 2 add tzNZ nfar get put tzy3Z nfar3 tzNZ nfar get put tzy3Z nfar3 1 add tzNZ nfar get put tzy3Z nfar3 2 add tzWZ nfar get put tzn3Z nfar3 tzWN nfar get put tzn3Z nfar3 1 add tzWN nfar get put tzn3Z nfar3 2 add tzWN nfar get put} for /tzc3W 48 array def /tzm3W 48 array def /tzy3W 48 array def /tzn3W 48 array def 0 1 15 {/nfar exch def /nfar3 nfar 3 mul def %W-CMY tzc3W nfar3 tzWN nfar get put tzc3W nfar3 1 add 0.0 put tzc3W nfar3 2 add 0.0 put tzm3W nfar3 0.0 put tzm3W nfar3 1 add tzWN nfar get put tzm3W nfar3 2 add 0.0 put tzy3W nfar3 0.0 put tzy3W nfar3 1 add 0.0 put tzy3W nfar3 2 add tzWN nfar get put tzn3W nfar3 tzWN nfar get put tzn3W nfar3 1 add tzWN nfar get put tzn3W nfar3 2 add tzWN nfar get put} for /tza3 48 array def iout 0 eq {/tefa tefaolvN def /tefa1 tefaolvN1 def /tefa2 tefaolvN2 def} if iout 1 eq {/tefa tefaolvZ def /tefa1 tefaolvZ1 def /tefa2 tefaolvZ2 def} if iout 2 eq {/tefa tefaolvW def /tefa1 tefaolvW1 def /tefa2 tefaolvW2 def} if iout 3 eq {/tefa tefacmyN def /tefa1 tefacmyN1 def /tefa2 tefacmyN2 def} if iout 4 eq {/tefa tefacmyZ def /tefa1 tefacmyZ1 def /tefa2 tefacmyZ2 def} if iout 5 eq {/tefa tefacmyW def /tefa1 tefacmyW1 def /tefa2 tefacmyW2 def} if iout 0 eq iout 3 eq or {/TYP (N) def} if iout 1 eq iout 4 eq or {/TYP (Z) def} if iout 2 eq iout 5 eq or {/TYP (W) def} if %W old number 0 0 0 setrgbcolor TK 0 -230 moveto %iout 0 eq iout 3 eq or {(AG280-) show}{(AG281-) show} ifelse (AG281-) show ncol1 0 eq {(5, ) show} {(7, ) show} ifelse (Bild ) showde (Picture ) showen (Fig. ) showes (Fig. ) showfr (Fig. ) showit (Picture ) showjp ncol1 0 eq {iout 3 ge {(B6) show}{(D6) show} ifelse} {iout 3 ge {(B7) show}{(D7) show} ifelse} ifelse TYP show Txx show (: ) show (Landoltringe ) showde (Landolt\255rings ) showen (anillos de Landolt ) showes (anneaux Landolt ) showfr (anelli di Landolt ) showit (Landolt\255rings ) showjp TIK tefa1 show TK 00 -50 rmoveto Fxx show 00 50 rmoveto TIK (; ) show tefa2 show ncol1 0 eq { TK 00 -50 rmoveto Fxx show 00 50 rmoveto } if TIK (; ) show TIK (PS) show TK (\255Operator ) showde ( operator ) showea TIK (rgb->rgb) show TS 00 -50 rmoveto Txx show 00 50 rmoveto TIK ( setrgbcolor ) show TK iout 0 eq iout 3 eq or {0 0 0 setrgbcolor} if iout 1 eq iout 4 eq or {0.5 0.5 0.5 setrgbcolor} if iout 2 eq iout 5 eq or {1 1 1 setrgbcolor} if 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath fill 0 0 0 setrgbcolor 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath stroke /xab 5450 def 50 0 translate /ar 80 def ar setlinewidth ncol1 1 ncol2 {/ncol exch def %=0,1,2,3 O,L,V,N xab ncol ncol1 sub mul 0 translate ncol 0 eq { %O 0 1 47 {/n exch def iout 0 eq {tza3 n tzo3N n get put} if iout 1 eq {tza3 n tzo3Z n get put} if iout 2 eq {tza3 n tzo3W n get put} if iout 3 eq {tza3 n tzc3N n get put} if iout 4 eq {tza3 n tzc3Z n get put} if iout 5 eq {tza3 n tzc3W n get put} if } for /nc [(F-D) (8-6) (2-0) (E-F) (7-8) (0-1)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [4 3 2 8 7 1 5 6 8 5 3 7 2 1 4 6 6 3 5 4 3 7 2 8 4 1 6 7 8 2 3 5 1 5 4 8 7 2 3 6 8 1 7 6 2 5 4 3] def /ndif1 2 def /ndif2 -1 def } if %C ncol 1 eq { %L 0 1 47 {/n exch def iout 0 eq {tza3 n tzl3N n get put} if iout 1 eq {tza3 n tzl3Z n get put} if iout 2 eq {tza3 n tzl3W n get put} if iout 3 eq {tza3 n tzm3N n get put} if iout 4 eq {tza3 n tzm3Z n get put} if iout 5 eq {tza3 n tzm3W n get put} if } for /nc [(F-D) (8-6) (2-0) (E-F) (7-8) (0-1)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [6 7 8 2 3 5 4 1 7 2 3 6 1 5 4 8 6 4 8 5 3 7 2 1 7 2 8 6 3 5 4 3 8 1 7 5 2 6 4 3 4 3 2 8 7 1 5 6] def /ndif1 2 def /ndif2 -1 def } if %M ncol 2 eq { %V 0 1 47 {/n exch def iout 0 eq {tza3 n tzv3N n get put} if iout 1 eq {tza3 n tzv3Z n get put} if iout 2 eq {tza3 n tzv3W n get put} if iout 3 eq {tza3 n tzy3N n get put} if iout 4 eq {tza3 n tzy3Z n get put} if iout 5 eq {tza3 n tzy3W n get put} if } for /nc [(F-D) (8-6) (2-0) (E-F) (7-8) (0-1)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [8 5 3 7 2 1 4 6 6 3 5 4 3 7 2 8 4 3 2 8 7 1 5 6 5 3 2 8 7 6 1 4 8 4 5 1 6 3 2 7 7 6 5 2 3 4 1 8] def /ndif1 2 def /ndif2 -1 def } if %V ncol 3 eq { %N 0 1 47 {/n exch def iout 0 eq {tza3 n tzn3N n get put} if iout 1 eq {tza3 n tzn3Z n get put} if iout 2 eq {tza3 n tzn3W n get put} if iout 3 eq {tza3 n tzn3N n get put} if iout 4 eq {tza3 n tzn3Z n get put} if iout 5 eq {tza3 n tzn3W n get put} if } for /nc [(F-D) (8-6) (2-0) (E-F) (7-8) (0-1)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [6 7 8 2 3 5 4 1 7 2 3 6 1 5 4 8 6 4 8 5 3 7 2 1 7 2 8 6 3 5 4 3 8 1 7 5 2 6 4 3 4 3 2 8 7 1 5 6] def /ndif1 2 def /ndif2 -1 def } if %N iout 0 eq iout 3 eq or {1 1 1 setrgbcolor}{0 0 0 setrgbcolor} ifelse 250 /Times-Roman FS 0 1 5 {/j exch def /iy0 500 j 600 mul add def 5000 iy0 moveto nc j get show } for %j TK 0 1 07 {/j exch def /ix0 0100 j 600 mul add def 0 1 05 {/l exch def /iy0 0300 l 600 mul add def /k l 8 mul j add def /i1 nl l get def /j3 i1 3 mul def 1 tza3 j3 get sub 1 tza3 j3 1 add get sub 1 tza3 j3 2 add get sub setrgbcolor /ixd 600 def ix0 iy0 moveto ixd 000 rlineto 000 ixd rlineto ixd neg 000 rlineto closepath fill l 2 le {/i1 nl l get ndif1 add def} {/i1 nl l get ndif2 add def} ifelse /j3 i1 3 mul def 1 tza3 j3 get sub 1 tza3 j3 1 add get sub 1 tza3 j3 2 add get sub setrgbcolor ix0 300 add iy0 300 add ar 2.5 mul 0 360 arc closepath fill /i1 nl l get def /j3 i1 3 mul def 1 tza3 j3 get sub 1 tza3 j3 1 add get sub 1 tza3 j3 2 add get sub setrgbcolor ix0 300 add iy0 300 add ar 1.5 mul 0 360 arc closepath fill /i1 nl l get def /j3 i1 3 mul def 1 tza3 j3 get sub 1 tza3 j3 1 add get sub 1 tza3 j3 2 add get sub setrgbcolor ix0 300 add iy0 300 add moveto /m ak k get exec def m 1 eq {ar 2.6 mul 0 rlineto closepath stroke} if %0 m 2 eq {ar 2.6 mul 45 sin mul ar 2.6 mul 45 cos mul rlineto closepath stroke} if %45 m 3 eq {0 ar 2.6 mul rlineto closepath stroke} if %90 m 4 eq {ar 2.6 mul 135 sin mul ar 2.6 mul 135 cos mul rlineto closepath stroke} if %135 m 5 eq {ar 2.6 mul neg 0 rlineto closepath stroke} if %0 m 6 eq {ar 2.6 mul 235 sin mul ar 2.6 mul 235 cos mul rlineto closepath stroke} if %45 m 7 eq {0 ar 2.6 mul neg rlineto closepath stroke} if %0 m 8 eq {ar 2.6 mul 315 sin mul ar 2.6 mul 315 cos mul rlineto closepath stroke} if %45 } for %l } for %j iout 0 eq iout 3 eq or {1 1 1 setrgbcolor}{0 0 0 setrgbcolor} ifelse 250 /Times-Bold FS 1500 80 moveto (Landoltringe ) showde (Landolt\255rings ) showen (anillos de Landolt ) showes (anneaux Landolt ) showfr (anelli di Landolt ) showit (Landolt\255rings ) showjp TBIK ncol ncol1 eq {tefa1 show} {tefa2 show} ifelse ncol 2 le {TBS 00 -50 rmoveto Fxx show 00 50 rmoveto } if TK 5000 50 moveto (Code) show xab ncol ncol1 sub mul neg 0 translate } for %ncol=ncol1,ncol2 50 neg 0 translate 15 setlinewidth } def %END proc_Landolt %********************************************************** %********************************************************** /proc_CIEColor {%BEG proc_CIEColor 0 0 0 setrgbcolor TK 0 -230 moveto (AG280-7, ) show %colorm 0 eq {(0, ) show} {(F, ) show} ifelse iout 0 eq iout 3 eq or {/TYP (N) def} if iout 1 eq iout 4 eq or {/TYP (Z) def} if iout 2 eq iout 5 eq or {/TYP (W) def} if %W (Bild ) showde (Picture ) showen (Fig. ) showes (Fig. ) showfr (Fig. ) showit (Picture ) showjp iout 3 ge {(B3) show}{(D3) show} ifelse TYP show Txx show (: ) show (14 CIE\255Pr\374ffarben ) showde (14 CIE\255test colours ) showen (CIE 14 colores del test ) showes (14 CIE test couleurs ) showfr (14 prova colori CIE ) showit (14 CIE\255test colours ) showjp (sowie 2 + 16 Graustufen) showde (and 2 + 16 grey steps) showen (y 2 + 16 pasos de gris) showes (et 2 + 16 gris \351tapes) showfr (i 2 + 16 grigio passi) showit (and 2 + 16 grey steps) showjp TK ( (sf); ) show TIK (rgb/cmy0->rgb) show TS 00 -50 rmoveto Txx show 00 50 rmoveto TIK ( setrgbcolor ) show TK /adl_olv* [ %BEGin adl_olv*; L=Linear model data 16 grey and 16 CIE-TC 00 0.0 0.0 0.0 %L 0.0000 olv*PR18/TV18 01 17.0 17.0 17.0 %L 0.0667 olv*PR18/TV18 02 34.0 34.0 34.0 %L 0.1333 olv*PR18/TV18 03 51.0 51.0 51.0 %L 0.2000 olv*PR18/TV18 04 68.0 68.0 68.0 %L 0.2667 olv*PR18/TV18 05 85.0 85.0 85.0 %L 0.3333 olv*PR18/TV18 06 102.0 102.0 102.0 %L 0.4000 olv*PR18/TV18 07 117.0 119.0 119.0 %L 0.4667 olv*PR18/TV18 08 136.0 136.0 136.0 %L 0.5333 olv*PR18/TV18 09 153.0 153.0 153.0 %L 0.6000 olv*PR18/TV18 10 170.0 170.0 170.0 %L 0.6667 olv*PR18/TV18 11 187.0 187.0 187.0 %L 0.7333 olv*PR18/TV18 12 204.0 204.0 204.0 %L 0.8000 olv*PR18/TV18 13 221.0 221.0 221.0 %L 0.8667 olv*PR18/TV18 14 238.0 238.0 238.0 %L 0.9333 olv*PR18/TV18 15 255.0 255.0 255.0 %L 1.0000 olv*PR18/TV18 16 184.2 117.1 134.5 %L no. 01 olv*PR18/CIETC 17 152.4 140.3 73.3 %L no. 02 olv*PR18/CIETC 18 122.3 189.6 31.5 %L no. 03 olv*PR18/CIETC 19 80.9 221.9 95.9 %L no. 04 olv*PR18/CIETC 20 89.6 203.0 174.5 %L no. 05 olv*PR18/CIETC 21 87.9 177.0 263.9 %L no. 06 olv*PR18/CIETC 22 130.2 124.4 284.1 %L no. 07 olv*PR18/CIETC 23 176.2 115.8 257.8 %L no. 08 olv*PR18/CIETC 24 205.8 -12.2 58.0 %L no. 09 olv*PR18/CIETC 25 231.9 212.4 34.8 %L no. 10 olv*PR18/CIETC 26 24.4 220.9 72.8 %L no. 11 olv*PR18/CIETC 27 -40.6 89.8 226.5 %L no. 12 olv*PR18/CIETC 28 237.1 186.9 166.5 %L no. 13 olv*PR18/CIETC 29 57.2 105.9 11.4 %L no. 14 olv*PR18/CIETC 30 0.0 0.0 0.0 %L 0.0000 olv*PR18/N 31 255.0 255.0 255.0 %L 1.0000 olv*PR18/W ] def %END adl_olv*' /s 700 def /xw 755 def /yw 1150 def % Quadratseite und Abstaende %%%% Def. eines Quadrates fuer die Ausgabe der Farbflaechen %%% /colRec {moveto s 0 rlineto 0 s rlineto s neg 0 rlineto %Quadrat closepath} bind def /iz7 7 def /iz74 iz7 4 mul def /iz741 iz74 1 add def /iz742 iz74 2 add def /iz743 iz74 3 add def /iz8 8 def /iz84 iz8 4 mul def /iz841 iz84 1 add def /iz842 iz84 2 add def /iz843 iz84 3 add def /tfz {adl_olv* iz741 get adl_olv* iz841 get add 0.5 mul 255 div adl_olv* iz742 get adl_olv* iz842 get add 0.5 mul 255 div adl_olv* iz743 get adl_olv* iz843 get add 0.5 mul 255 div setrgbcolor} def /tfn {0.001 0.001 0.001 setrgbcolor} def % Schriftfarbe = Schwarz /tfw {1.000 1.000 1.000 setrgbcolor} def % Schriftfarbe = Weiss tfz 0 0 moveto 13000 0 rlineto 0 4000 rlineto -13000 0 rlineto closepath fill 0 setgray 0 0 moveto 13000 0 rlineto 0 4000 rlineto -13000 0 rlineto closepath stroke 350 150 translate /n* [(16) (15) (14) (13) (12) (11) (10) ( 9) ( 8) ( 7) ( 6) ( 5) ( 4) ( 3) ( 2) ( 1)] def TBM 25 setlinewidth /s 770 def /s1 770 def /s2 670 def 0 setgray 0 1 16 {/j exch def /ix0 j s1 mul def %j ix0 1600 moveto 0 500 rlineto stroke } for %j 15 setlinewidth 0 1 15 {/j exch def /ix00 j s1 mul def /s s2 def /ix0 ix00 50 add def /iy0 2900 def /j4a j 4 mul def /j4c j 16 add 4 mul def adl_olv* j4c 1 add get 255 div adl_olv* j4c 2 add get 255 div adl_olv* j4c 3 add get 255 div setrgbcolor ix0 iy0 colRec fill /s s1 def /ix0 ix00 def /iy0 2050 def adl_olv* j4c 1 add get 255 div adl_olv* j4c 2 add get 255 div adl_olv* j4c 3 add get 255 div setrgbcolor ix0 iy0 colRec fill 0 setgray /ix0 ix00 def /iy0 1750 def ix0 250 add iy0 moveto n* 15 j sub get show /s s1 def /ix0 ix00 def /iy0 850 def adl_olv* j4a 1 add get 255 div adl_olv* j4a 2 add get 255 div adl_olv* j4a 3 add get 255 div setrgbcolor ix0 iy0 colRec fill /s s2 def /ix0 ix00 50 add def /iy0 100 def adl_olv* j4a 1 add get 255 div adl_olv* j4a 2 add get 255 div adl_olv* j4a 3 add get 255 div setrgbcolor ix0 iy0 colRec fill } for %j -350 -150 translate } def %END proc_CIEColor %*********************************************************************************** %*********************************************************************************** /tro {1.0 0.0 0.0} def %Reproduktionsfarben olv*+NW /trl {0.0 1.0 0.0} def /trv {0.0 0.0 1.0} def /trc {0.0 1.0 1.0} def /trm {1.0 0.0 1.0} def /try {1.0 1.0 0.0} def /trn {0.0 0.0 0.0} def /trz {0.5 0.5 0.5} def /trw {1.0 1.0 1.0} def /tgo {tro setrgbcolor} def /tgl {trl setrgbcolor} def /tgv {trv setrgbcolor} def /tgc {trc setrgbcolor} def /tgm {trm setrgbcolor} def /tgy {try setrgbcolor} def /tgn {trn setrgbcolor} def /tgz {trz setrgbcolor} def /tgw {trw setrgbcolor} def %********************************************************** /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /rem %x0, y0 width heigth {/heigth exch def /width exch def /y0 exch def /x0 exch def x0 width 0.5 mul add y0 heigth 0.5 mul add moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /cviht {dup 0 ge {0.49 add}{0.49 sub} ifelse cvi} def /cvishow {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def /cvsshow1 {dup 0 ge {0.05 add} {0.05 sub} ifelse 10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {dup 0 ge {0.005 add} {0.005 sub} ifelse 100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {dup 0 ge {0.0005 add} {0.0005 sub} ifelse 1000 mul cvi 0.001 mul 7 string cvs show} def %%ENDProlog gsave /lanind 0 def /lantex [(G) (E) (S) (N) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /lanind1 0 def /lanind2 0 def /lanindd 01 def /colorm1 01 def /colorm2 01 def /colormd 01 def /deintp1 00 def /deintp2 00 def /deintpd 01 def /xcolor1 03 def /xcolor2 03 def /xcolord 01 def /xchart1 00 def /xchart2 00 def /xchartd 01 def /pchart1 00 def /pchart2 00 def /pchartd 01 def /colsep1 00 def /colsep2 00 def /colsepd 01 def /pmetam1 00 def /pmetam2 00 def /pmetamd 01 def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} if /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} if /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} if /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} if /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchartmf def} {/xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 1 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 2 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def /pchartm pchartmf def} {/pchartm 1 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} if /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} if /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES where {pop %/IMES IMES def } {/IMES 0 def} ifelse /colorml colorm def %0 1 1 {/colorml exch def %colorml=0,1 /xcolorl xcolor def %0 1 3 {/xcolorl exch def %xcolorl=0,3 /xchartl xchart def %0 1 7 {/xchartl exch def %xchartl=0,7 /pchartl pchart def %0 1 2 {/pchartl exch def %pchartl=0,2 colorml 0 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if colorml 0 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if colorml 1 eq deintp 0 eq and {/Txx (*dd) def /Fxx (d) def} if colorml 1 eq deintp 1 eq and {/Txx (*de) def /Fxx (e) def} if gsave %A4querL xcolorl 0 eq {/tfnx* {0 0 0 1 setcmykcolor} def /tfwx* {0 0 0 0 setcmykcolor} def /colrecfix* {setcmykcolor rec fill} bind def /colrecstx* {setcmykcolor rec stroke} bind def } if xcolorl 1 eq {/tfnx* {0 setgray} def /tfwx* {1 setgray} def /colrecfix* {setgray rec fill} bind def /colrecstx* {setgray rec stroke} bind def } if xcolorl 2 eq {/tfnx* {1 1 1 0 setcmykcolor} def /tfwx* {0 0 0 0 setcmykcolor} def /colrecfix* {setcmykcolor rec fill} bind def /colrecstx* {setcmykcolor rec stroke} bind def } if xcolorl 3 eq {/tfnx* {0 0 0 setrgbcolor} def /tfwx* {1 1 1 setrgbcolor} def /colrecfix* {setrgbcolor rec fill} bind def /colrecstx* {setrgbcolor rec stroke} bind def } if pchartl 0 eq {%pchartl=0 68 90 translate 0.01 MM dup scale 15 setlinewidth /iout 5 def /INW 0 def TK %0 setgray %200 -200 moveto (AG280-7) show colorm 0 eq {(0) show} {(F) show} ifelse %(\255) show colorml cvishow xcolorl cvishow %xchartl xchartl 8 idiv 8 mul sub cvishow %(\255) show xchartl 8 idiv cvishow %(Page ) showen (Seite ) showde %pchartl 1 add cvishow (/3) show 0 setgray 15 setlinewidth %********************************************************** 1 1 1 setrgbcolor 0 0 moveto 25200 0 rlineto 0 17500 rlineto %picture larger -25200 0 rlineto closepath fill 0 0 0 setrgbcolor 0 0 moveto 25200 0 rlineto 0 17500 rlineto %picture larger -25200 0 rlineto closepath stroke %no. 0 1 2 3 4 5 6 7 framef image /xtr [ 0200 13400 200 13400 200 13400 200 13400 -2400 200] def /ytr [13400 13400 9050 9050 4700 4700 0350 0350 -2000 8750] def %gsave %Names: %proc_CIEColor %proc_rosette: iout=2,5 for CMY and OLV %proc_16step: iout=2,5 for CMY and OLV %proc_lettersize: iout=2,5 for CMY and OLV %proc_Landolt: iout=2,5 for CMY and OLV %********************************************************** %xtr 0 get ytr 0 get translate %/iout 3 def %proc_rosette %xtr 0 get neg ytr 0 get neg translate %********************************************************** xtr 1 get ytr 1 get translate %/iout 0 def proc_16step xtr 1 get neg ytr 1 get neg translate %********************************************************** %line 4235: OLV- or CMY0-Picture to be included %********************************************************** xtr 3 get ytr 3 get translate %/iout 0 def proc_lettersize xtr 3 get neg ytr 3 get neg translate %********************************************************** xtr 4 get ytr 4 get translate %/iout 0 def proc_rosette xtr 4 get neg ytr 4 get neg translate %********************************************************** xtr 5 get ytr 5 get translate %/iout 0 def /ncol1 0 def /ncol2 1 def proc_Landolt xtr 5 get neg ytr 5 get neg translate %********************************************************** xtr 6 get ytr 6 get translate iout 2 eq iout 5 eq or {proc_CIEColor} {/INW 1 def proc_16step} ifelse xtr 6 get neg ytr 6 get neg translate %********************************************************** xtr 7 get ytr 7 get translate %/iout 0 def /ncol1 2 def /ncol2 3 def proc_Landolt xtr 7 get neg ytr 7 get neg translate %********************************************************** xtr 8 get ytr 8 get translate xtr 8 get neg ytr 8 get neg translate %********************************************************* } if %pchartl=0 /L*Nl 18.01 def %standard lightness black /L*Wl 95.41 def %standard lightness white /L*ND where {pop /L*Nl L*ND def} if /L*WD where {pop /L*Wl L*WD def} if /L*Dl L*Wl L*Nl sub def %range between white and black /cvishow {cvi 6 string cvs show} def %pchartl 1 eq {%pchartl=1 72 90 translate 0.01 MM dup scale 20 setlinewidth 1.0 setgray 0 0 moveto 12000 0 rlineto 0 8300 rlineto -12000 0 rlineto closepath fill 0.0 setgray 0 0 moveto 12000 0 rlineto 0 8300 rlineto -12000 0 rlineto closepath stroke TM 0 setgray 0 -260 moveto (part 3) showen (Teil 3) showde 9000 -260 moveto (AG280-7N) show Txx show (\255) show deintp cvishow colorml cvishow xcolorl cvishow xchartl cvishow pchartl cvishow /x20 100 def /y20 7200 def /yd 320 def TBG x20 y20 yd 2.3 mul add moveto (Documentation of file format, hardware and software) showea ( for this test:) showea (Dokumentation von Dateiformat, Hard\255 und Software) showde ( f\374r diese Pr\374fung:) showde TBM x20 y20 yd add moveto (PDF\255File:) showea (PDF\255Datei:) showde TM x20 1500 add y20 yd add moveto (http://farbe.li.tu\255berlin.de/AG28/AG28) show (F0N) show (X) show % (_CY) show 8 xchart xchartd idiv sub cvishow (_) show 1 cvishow (.PDF) show x20 8900 add y20 yd add moveto TBM (underline Yes/No) showea (unterstreiche Ja/Nein) showde %TK %x20 1500 add y20 yd 0 mul add moveto %( or http://farbe.li.tu\255berlin.de/AG28/AG28P0NP.PDF) showea %( oder http://farbe.li.tu\255berlin.de/AG28/AG28P0NP.PDF) showde %TBM %x20 8400 add y20 yd 0 mul add moveto %( or underline Yes/No) showea %(oder unterstreiche Ja/Nein) showde x20 y20 yd 1 mul sub moveto (PS\255File:) showea (PS\255Datei:) showde TM x20 1500 add y20 yd 1 mul sub moveto (http://farbe.li.tu\255berlin.de/AG28/AG28) show (F0N) show (X) show % (_CY) show 8 xchart xchartd idiv sub cvishow (_) show 1 cvishow (.PS) show x20 8400 add y20 yd 1 mul sub moveto TBM ( or underline Yes/No) showea (oder unterstreiche Ja/Nein) showde %TK %x20 1500 add y20 yd 2 mul sub moveto %( or http://farbe.li.tu\255berlin.de/AG28/AG28P0NA.PS) showea %( oder http://farbe.li.tu\255berlin.de/AG28/AG28P0NA.PS) showde %TBM %x20 8400 add y20 yd 2 mul sub moveto %( or underline Yes/No) showea %(oder unterstreiche Ja/Nein) showde TBM x20 y20 yd 3.25 mul sub moveto (Used computer operating system:) showea (benutztes Rechner\255Betriebssystem:) showde TM x20 y20 yd 4.25 mul sub moveto (either one of Windows/Mac/Unix/other and version:) showea (nur eines von Windows/Mac/Unix/anderes und Version:) showde (.................................) show TBM x20 y20 yd 5.50 mul sub moveto (This evaluation is for the device output:) showea (Die Beurteilung ist f\374r die Ger\344teausgabe:) showde x20 5800 add y20 yd 5.50 mul sub moveto (underline monitor/data projector/printer) showea (unterstreiche Monitor/Datenprojektor/Drucker) showde TM x20 y20 yd 6.50 mul sub moveto (Device model, driver and version:) showea (Ger\344te\255Modell, \255Treiber und \255Version:) showde (......................) show TBM x20 y20 yd 7.75 mul sub moveto (Device output with PDF/PS\255file:) showea (Ger\344teausgabe mit PDF/PS\255Datei:) showde x20 8000 add y20 yd 7.75 mul sub moveto (underline PDF/PS\255file) showea (unterstreiche PDF\255/PS\255Datei) showde x20 y20 yd 8.75 mul sub moveto (For device output with PDF\255file AG28) showea (F\374r Ger\344teausgabe mit PDF\255Datei AG28) showde (F0N) show (X) show % (_CY) show 8 xchart xchartd idiv sub cvishow (_) show 1 cvishow (.PDF) show /xshif 500 def x20 xshif add y20 yd 9.75 mul sub moveto TM (either PDF\255file transfer "download, copy" to PDF device) showea (entweder PDF\255Dateitransfer "download, copy" nach PDF\255Ger\344t) showde (.................................) show x20 xshif add y20 yd 10.75 mul sub moveto (or with computer system interpretation by "Display\255PDF":) showea (oder mit Rechnersystem\255Interpretation durch "Display\255PDF":) showde (.................................) show x20 xshif add y20 yd 11.75 mul sub moveto (or with software. e. g. Adobe\255Reader/\255Acrobat and version:) showea (oder mit Software, z. B. Adobe\255Reader/\255Acrobat und Version:) showde (.................................) show x20 xshif add y20 yd 12.75 mul sub moveto (or with software e. g. Ghostscript and version:) showea (oder mit Software, z. B. Ghostscript und Version:) showde (.................................) show TBM x20 y20 yd 13.75 mul sub moveto (For device output with PS\255file AG28) showea (F\374r Ger\344teausgabe mit PS\255Datei AG28) showde (F0N) show (X) show % (_CY) show 8 xchart xchartd idiv sub cvishow (_) show 1 cvishow (.PS) show x20 xshif add y20 yd 14.75 mul sub moveto TM (either PS\255file transfer "download, copy" to PS device) showea (entweder PS\255Dateitransfer "download, copy" nach PS\255Ger\344t) showde (.................................) show x20 xshif add y20 yd 15.75 mul sub moveto (or with computer system interpretation by "Display\255PS":) showea (oder mit Rechnersystem\255Interpretation durch "Display\255PS":) showde (.................................) show x20 xshif add y20 yd 16.75 mul sub moveto (or with software e. g. Ghostscript and version:) showea (oder mit Software, z. B. Ghostscript und Version:) showde (.................................) show x20 xshif add y20 yd 17.75 mul sub moveto (or with software e. g. Mac\255Yap and version:) showea (oder mit Software, z. B. Mac\255Yap und Version:) showde (.................................) show x20 y20 yd 19 mul sub moveto (Special remarks:) showea (Spezielle Anmerkungen:) showde (Special remarks, e. g. output of Landscape (L)) showea %( file AG28L0NA.PS was cutted,) showea %(Spezielle Anmerkungen, z. B. Ausgabe von Landschaftsdatei (L)) showde %( AG28L0NA.PS wurde abge\255) showde x20 y20 yd 20 mul sub moveto %(Portrait (P) file AG28P0NA.PS was used:.............................) showea %(schnitten, Portr\344tdatei (P) AG28P0NA.PS wurde benutzt:.............) showde (......................................................................) show x20 y20 yd 21 mul sub moveto (......................................................................) show x20 y20 yd 22 mul sub moveto (......................................................................) show %} if pchartl=1 %} for %xchartl=0,7 %} for %xcolorl=0,3 %} for %colorml=0,1 %%Trailer