%!PS-Adobe-3.0 EPSF-3.0 INFIE05:PIIEA33C.TXT 12.11.98 %%BoundingBox: 70 70 780 206 %ANFA PDFIE01 /pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put } if [ /Title (ISO-test charts no. 1 to 4: Pictures of no. 1) /Author (goto: http://o2.ps.bam.de or http://trappist.kb.bam.de/ps) /Subject (specifying image reproduction of colour devices) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@bam.de) /CreationDate (D:1998111212000) /ModDate (D:1998111212000) /DOCINFO pdfmark [ /View [ /Fit ] /DOCVIEW pdfmark %ENDE PDFIE01 %%Creator: K. Richter, BAM und TU Berlin 1997.03.15 % vergleiche K. Richter: Computergrafik und Farbmetrik: % Farbsysteme, PostScript, geraeteunabhaengige CIE-Farben % VDE-Verlag, Berlin, 1996, ISBN 3-8007-1775-1 mit CD-ROM % Buch und 500 Bilder in Formaten PS und PDF auf CD-ROM % /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /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 /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-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 /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-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 /proz1 {pop} bind def /proz2 {sqrt} bind def /setgc {pop pop pop 1 exch sub setgray} bind def /setgm {pop pop 1 exch sub setgray pop} bind def /setgy {pop 1 exch sub setgray pop pop} bind def /setgn {1 exch sub setgray pop pop pop} bind def /setgf {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def 0 ccolor eq 0 mcolor eq and 0 ycolor eq and {1 ncolor sub setgray} {1 ccolor sub 0.71 mul 1 mcolor sub 0.22 mul add 1 ycolor sub 0.07 mul add setgray} ifelse } bind def /setsc {075 135 {proz1} setscreen } bind def /setsm {075 090 {proz1} setscreen } bind def /setsy {075 000 {proz1} setscreen } bind def /setsn {075 045 {proz1} setscreen } bind def /setsf {075 135 {proz1} 075 090 {proz1} 075 000 {proz1} 075 045 {proz1} setcolorscreen } bind def /setcmykcolorf {setcmykcolor setsf} bind def %fuer PSL1/2-Farbgeraet %ANFA HALBTON /Halbt { %wrbie:HALBTOA0.eps } bind def %ANFA CMYKDEF %CMYKDEA0 (A0=Standard-Drucker-CMYKDEF) 15.3.97 /tzac [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 /tzam [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 /tzay [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 /tzan [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 /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 CMYKD %ANFA SETCMYK /setcmyknew { %Ersatz setcolornew durch setcmykcolor1 ausz 1 eq {setgc half 0 eq {setsc} if} if %C ausz 2 eq {setgm half 0 eq {setsm} if} if %M ausz 3 eq {setgy half 0 eq {setsy} if} if %Y ausz 4 eq {pop pop pop /ccolor exch def ccolor 0 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgc setsc} %PSL1-SW-Geraet ifelse } if %Cbunt ausz 5 eq {pop pop /mcolor exch def pop 0 mcolor 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgm setsm} %PSL1-SW-Geraet ifelse } if %Mbunt ausz 6 eq {pop /ycolor exch def pop pop 0 0 ycolor 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgy setsy} %PSL1-SW-Geraet ifelse } if %Ybunt ausz 7 eq {setgn half 0 eq {setsn} if} if %N ausz 8 ge { /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgf setsn} %PSL1-SW-Geraet ifelse } if %bei ausz=8: Farb- oder SW-Ausdruck je nach Drucker } bind 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 /colrecfi %x y width heigth c m y n {setcmyknew rec fill} bind def /colrecst %x y width heigth c m y n {setcmyknew rec stroke} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tza {1.0 1.0 1.0 1.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmyknew} bind def /tfl {tzl setcmyknew} bind def /tfv {tzv setcmyknew} bind def /tfc {tzc setcmyknew} bind def /tfm {tzm setcmyknew} bind def /tfy {tzy setcmyknew} bind def /tfa {tzy setcmyknew} bind def /tfn {tzn setcmyknew} bind def /tfd {tzd setcmyknew} bind def /tfz {tzz setcmyknew} bind def /tfh {tzh setcmyknew} bind def /tfw {tzw setcmyknew} bind def /tfr {tzr setcmyknew} bind def /tfg {tzg setcmyknew} bind def /tfb {tzb setcmyknew} bind def /tfj {tzj setcmyknew} bind def /tfrz {tzrz setcmyknew} bind def /tfgz {tzgz setcmyknew} bind def /tfbz {tzbz setcmyknew} bind def /tfjz {tzjz setcmyknew} bind def %ANFA OUTLINO0 951204 /pixf 1.0 def /ueg {1.6 pixf mul} bind def /uek {0.8 pixf mul} bind def /ues {0.7 pixf mul} bind def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /outxshowf {show} bind def /outxshow {show} bind def /SK {250 16.67 div 1 sub pixf mul /Symbol FS} bind def /SM {300 16.67 div 1 sub pixf mul /Symbol FS} bind def /SG {350 16.67 div 1 sub pixf mul /Symbol FS} bind def /outSK {250 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSM {300 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSG {350 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outshowf {setcmyknew show} bind def /outrecfi { %x y width heigth c m y k setcmyknew rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmyknew lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmyknew stroke} bind def /A4quer {595 0 translate 90 rotate} def %%EndProlog gsave %!3A4quer 8 /Times-ISOL1 FS 72 73 moveto (INFIE05:PIIEA33C.TXT) show 72 83 moveto %xybiltd(Bild A3: 16 visuell gleichabst\344ndige ) show (Picture A3: 16 visual equidistant ) show 8 /TimesI-ISOL1 FS (L*) show 8 /Times-ISOL1 FS %xybiltd(\255Graustufen) show (\255grey steps) show 72 90 translate /pixf 16.67 def 0.1667 pixf div MM 0.1667 pixf div MM scale /ausz 8 def /half 0 def Halbt %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F 15 setlinewidth /iz 18 def /tfz {0.0 0.0 0.0 tzan iz get setcmyknew} bind def tfz 0 0 moveto 24500 0 rlineto 0 4000 rlineto -24500 0 rlineto closepath fill tfn 0 0 moveto 24500 0 rlineto 0 4000 rlineto -24500 0 rlineto closepath stroke %%%%%%%%%%% oberer Schriftzug 1. Testbild %%%%%%%%%%%%%%%% tfw 100 3600 moveto TBIG (L*) show -50 -100 rmoveto TBIK (CIELAB) show 100 3200 moveto TBIK %xybiltd((absolut)) show ((absolute)) show 100 1750 moveto TBIG %xybiltd(Hex\255Code) show (Hex code) show 100 600 moveto TBIG (l*) show -50 -100 rmoveto TBIK (CIELAB, r) show 100 200 moveto TBIK %xybiltd((relativ)) show ((relative)) show 1900 600 translate %untere Reihe um +200, +200 verschoben bei dx=1000 von 1400 tfn /ntu [(0.000) (0.067) (0.133) (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 /nto [(10.0) (15.6) (21.2) (26.8) (32.4) (38.0) (43.6) (49.2) (54.8) (60.4) (66.0) (71.6) (77.2) (82.8) (88.4) (94.0) (10.0) (31.0) (52.0) (73.0) (94.0)] def /n* [(F) (E) (D) (C) (B) (A) (9) (8) (7) (6) (5) (4) (3) (2) (1) (0) (F) (B) (7) (3) (0)] def TBM tfw /iy0 0 def 0 1 15 {/j exch def /ix0 j 1400 mul def ix0 100 add iy0 300 sub moveto ntu j get show } for %j /iy0 3050 def 0 1 15 {/j exch def /ix0 300 j 1400 mul add def ix0 iy0 moveto nto j get show } for %j TBG tfn /iy0 0 def 0 1 15 {/j exch def /ix0 400 j 1400 mul add def ix0 iy0 1150 add moveto n* j get show } for %j /s 1000 def 0 1 15 {/j exch def /ix0 j 1400 mul def ix0 iy0 s s 0.0 0.0 0.0 tzan j get outrecfi j 7 eq j 8 eq or { %mittele Grau ix0 iy0 s s 0.0 0.0 0.0 0.0 colrecst} if } for %j /s 1400 def /iy0 1500 def 0 1 15 {/j exch def /ix0 j 1400 mul 200 sub def ix0 iy0 s s 0.0 0.0 0.0 tzan j get outrecfi } for %j -1900 -600 translate grestore showpage %%Trailer