%!PS-Adobe-3.0 EPSF-3.0 AE591-3N.EPS Y11-3N_AL59_JSO.EPS %%BoundingBox: 70 82 430 360 %START PDFDE011.EPS /pdfmark13 where {pop} {userdict /pdfmark13 /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/AE59/AE59.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:2017040112000) /ModDate (D:20170401112000) /DOCINFO pdfmark13 [ /View [ /FitB ] /DOCVIEW pdfmark13 %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 %***************************************************************************** %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 %*********************************************************************************** /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 /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show ( ) show} def /cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show ( ) show} def /cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show ( ) show} def %******************************************************************* %%EndProlog gsave /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showfr {2 lanind eq {show} {pop} ifelse} bind def /showes {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 /nr1 27 array def /tx1 52 array def /nr1 [(01) (02) (03) (04) (05) (06) (07) (08) (09) (10) (11) (12) (13) (14) (15) (16) (17) (18) (19) (20) (21) (22) (23) (24) (25) (26) (27)] def /tx1 [(A) (B) (C) (D) (E) (F) (G) (H) (I) (J) (K) (L) (M) (N) (O) (P) (Q) (R) (S) (T) (U) (V) (W) (X) (Y) (Z) (a) (b) (c) (d) (e) (f) (g) (h) (i) (j) (k) (l) (m) (n) (o) (p) (q) (r) (s) (t) (u) (v) (w) (x) (y) (z)] def /lanind1 1 def /lanind2 1 def /lanindd 01 def /lanindm 01 def /colorm1 00 def /colorm2 00 def /colormd 01 def /colormm 01 def /deintp1 00 def /deintp2 00 def /deintpd 01 def /deintpm 01 def /xcolor1 03 def /xcolor2 03 def /xcolord 01 def /xcolorm 01 def /xchart1 00 def /xchart2 00 def /xchartd 01 def /xchartm 01 def /pchart1 01 def /pchart2 01 def /pchartd 01 def /pchartm 03 def /colsep1 00 def /colsep2 00 def /colsepd 01 def /colsepm 01 def /pmetam1 00 def /pmetam2 00 def /pmetamd 01 def /pmetamm 01 def /xchart3 00 def %free /xchart4 00 def %test charts ISO/IEC 3, 2, 4; CIE R8-09 G, O, H /xchart5 00 def %free /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def /lanindm lanindmf def} if /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def /colormm colormmf def} if /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def /deintpm deintpmf def} if /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def /xcolorm xcolormf def} if /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchartmf def} if /xchart3f where {pop /xchart3 xchart3f def} if /xchart4f where {pop /xchart4 xchart4f def} if /xchart5f where {pop /xchart5 xchart5f def} if /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def /pchartm pchartmf def} if /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def /colsepm colsepmf def} if /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def /pmetamm pmetamf 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 /xcharx 1 def %fix page 1 of test chart /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 {/TxS () def /Txx (dd) def /Fxx (d) def} if colorml 0 eq deintp 1 eq and {/TxS () def /Txx (de) def /Fxx (e) def} if colorml 1 eq deintp 0 eq and {/TxS () def /Txx (dd) def /Fxx (d) def} if colorml 1 eq deintp 1 eq and {/TxS () def /Txx (de) def /Fxx (e) def} if %xchart 0 eq {/Txx (-) def /Fxx (-) def} if gsave 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 1 eq {%pchartl=1 Y11-3N_AL49_JSO_2P2S.EPS %font0309.ps*********************************************** /CW {100 /Courier-ISOL1 FS} bind def /CV {150 /Courier-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 /CBW {100 /CourierB-ISOL1 FS} bind def /CBV {150 /CourierB-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 /RW {100 /Times-Roman FS} bind def /RV {150 /Times-Roman FS} bind def /RS {200 /Times-Roman FS} bind def /RK {250 /Times-Roman FS} bind def /RM {300 /Times-Roman FS} bind def /RG {350 /Times-Roman FS} bind def /RIW {100 /Times-Italic FS} bind def /RIV {150 /Times-Italic FS} bind def /RIS {200 /Times-Italic FS} bind def /RIK {250 /Times-Italic FS} bind def /RIM {300 /Times-Italic FS} bind def /RIG {350 /Times-Italic FS} bind def /RBW {100 /Times-Bold FS} bind def /RBV {150 /Times-Bold FS} bind def /RBS {200 /Times-Bold FS} bind def /RBK {250 /Times-Bold FS} bind def /RBM {300 /Times-Bold FS} bind def /RBG {350 /Times-Bold FS} bind def /RBIW {100 /Times-BoldItalic FS} bind def /RBIV {150 /Times-BoldItalic FS} bind def /RBIS {200 /Times-BoldItalic FS} bind def /RBIK {250 /Times-BoldItalic FS} bind def /RBIM {300 /Times-BoldItalic FS} bind def /RBIG {350 /Times-BoldItalic FS} bind def /TW {100 /Times-ISOL1 FS} bind def /TV {150 /Times-ISOL1 FS} bind def /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 /TIW {100 /TimesI-ISOL1 FS} bind def /TIV {150 /TimesI-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 /TBW {100 /TimesB-ISOL1 FS} bind def /TBV {150 /TimesB-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 /TBIW {100 /TimesBI-ISOL1 FS} bind def /TBIV {150 /TimesBI-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 /SW {100 /Symbol FS} bind def /SV {150 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SK {250 /Symbol FS} bind def /SM {300 /Symbol FS} bind def /SG {350 /Symbol FS} bind def /ishowRV {RW -00 -30 rmoveto show 00 30 rmoveto RV} def /jshowRV {RBW -00 -30 rmoveto show 00 30 rmoveto RBV} def /ishowTV {TW -00 -30 rmoveto show 00 30 rmoveto TV} def /jshowTV {TBW -00 -30 rmoveto show 00 30 rmoveto TBV} def /ishowRS {RV -00 -40 rmoveto show 00 40 rmoveto RS} def /jshowRS {RBV -00 -40 rmoveto show 00 40 rmoveto RBS} def /ishowTS {TV -00 -40 rmoveto show 00 40 rmoveto TS} def /jshowTS {TBV -00 -40 rmoveto show 00 40 rmoveto TBS} def /ishowRK {RS -00 -50 rmoveto show 00 50 rmoveto RK} def /jshowRK {RBS -00 -50 rmoveto show 00 50 rmoveto RBK} def /ishowTK {TS -00 -50 rmoveto show 00 50 rmoveto TK} def /jshowTK {TBS -00 -50 rmoveto show 00 50 rmoveto TBK} def /ishowRM {RK -00 -60 rmoveto show 00 60 rmoveto RM} def /jshowRM {RBK -00 -60 rmoveto show 00 60 rmoveto RBM} def /ishowTM {TK -00 -60 rmoveto show 00 60 rmoveto TM} def /jshowTM {TBK -00 -60 rmoveto show 00 60 rmoveto TBM} def /ishowRG {RM -00 -70 rmoveto show 00 70 rmoveto RG} def /jshowRG {RBM -00 -70 rmoveto show 00 70 rmoveto RBG} def /ishowTG {TM -00 -70 rmoveto show 00 70 rmoveto TG} def /jshowTG {TBM -00 -70 rmoveto show 00 70 rmoveto TBG} def %font0309.ps*********************************************** /RG1 {400 /Times-Roman FS} bind def /RG2 {450 /Times-Roman FS} bind def /RG3 {500 /Times-Roman FS} bind def /RIG1 {400 /Times-Italic FS} bind def /RIG2 {450 /Times-Italic FS} bind def /RIG3 {500 /Times-Italic FS} bind def /RBG1 {400 /Times-Bold FS} bind def /RBG2 {450 /Times-Bold FS} bind def /RBG3 {500 /Times-Bold FS} bind def /RBIG1 {400 /Times-BoldItalic FS} bind def /RBIG2 {450 /Times-BoldItalic FS} bind def /RBIG3 {500 /Times-BoldItalic FS} bind def /TG1 {400 /Times-ISOL1 FS} bind def /TG2 {450 /Times-ISOL1 FS} bind def /TG3 {500 /Times-ISOL1 FS} bind def /TIG1 {400 /TimesI-ISOL1 FS} bind def /TIG2 {450 /TimesI-ISOL1 FS} bind def /TIG3 {500 /TimesI-ISOL1 FS} bind def /TBG1 {400 /TimesB-ISOL1 FS} bind def /TBG2 {450 /TimesB-ISOL1 FS} bind def /TBG3 {500 /TimesB-ISOL1 FS} bind def /TBIG1 {400 /TimesBI-ISOL1 FS} bind def /TBIG2 {450 /TimesBI-ISOL1 FS} bind def /TBIG3 {500 /TimesBI-ISOL1 FS} bind def /ishowTG1 {TG -00 -80 rmoveto show 00 80 rmoveto TG1} def /jshowTG1 {TBG -00 -80 rmoveto show 00 80 rmoveto TBG} def /ishowTG2 {TG1 -00 -90 rmoveto show 00 90 rmoveto TG2} def /jshowTG2 {TBG1 -00 -90 rmoveto show 00 90 rmoveto TBG2} def /ishowTG3 {TG2 -00 -100 rmoveto show 00 100 rmoveto TG3} def /jshowTG3 {TBG2 -00 -100 rmoveto show 00 100 rmoveto TBG3} def 4 /Times-ISOL1 FS 370 86 moveto lanind cvishow 4 /Times-Roman FS (-) show 4 /Times-ISOL1 FS colorm cvishow deintp cvishow xcolor cvishow xcharx cvishow pchartl cvishow colsep cvishow 4 /Times-Roman FS (-L) show 4 /Times-ISOL1 FS pmetam cvishow ( ) show colsep 0 eq {(cmyn6) show} if colsep 1 eq {(cmy0) show} if colsep 2 eq {(cmyn4) show} if colsep 3 eq {(cmyn5) show} if colsep 4 eq {(rgb) show} if colorm 1 eq {(*) show} if 80 86 moveto 4 /Times-Roman FS (AE590-7) show 4 /Times-ISOL1 FS xcharx cvishow 72 90 translate 0.0100 0.5 mul MM dup scale /xchart3P5 xchart3 4 add def %pages with separation exept colsep=4 (RGB) pmetam 0 eq {%pmetam=0 40 setlinewidth 1 setgray 0 0 moveto 24000 0 rlineto 0 16800 rlineto -24000 0 rlineto closepath fill xcharx xchart3P5 le {0.5 setgray} {1 setgray} ifelse 0 0 moveto 09000 0 rlineto 0 16800 rlineto -09000 0 rlineto closepath fill 0 setgray 0 0 moveto 24000 0 rlineto 0 16800 rlineto -24000 0 rlineto closepath stroke } if %pmetam=0 /fakt 1 def /iyt 32 fakt mul def %text size /iyd 35 fakt mul def %line difference xcharx 1 le {%xcharx<=1 0 0 0 setrgbcolor 2300 -280 moveto TK %shorter description for separation data (Teil von Pr\374fvorlage AE59 mit 1080 Farben) showde (Part of test chart AE59 with 1080 colours) showen (Parte del graphico de prueba AE59 con 1080 colores) showes (La partie de graphique AE59 de test avec 1080 couleurs) showfr (Parte del grafico de prova AE59 con 1080 colori) showit (Del av Test grafisk AE59 med 1080 farger) showjp (; 9 or 16 step colour scales;) showen (; 9 oder 16stufige Farbreihen;) showde (; escales de colores de 9 o 16 pasos;) showes (; paliers de 9 ou 16 couleurs;) showfr (; scale di colori di 9 o 16 passi;) showit (; farger vekten av 9 eller 16 trin;) showjp TK ( Daten in Spalte) showde ( data in column) showen ( los datos en la columna) showes ( les donn\351es de la colonne) showfr ( i dati nella colonna) showit ( data i kolonnn) showjp RK ( (b-n):) show RBK %xcharx 0 eq {( rgb + cmy0 (A-j + k26-n27)) show % (, 000n (k), w (l), nnn0 (m), www (n)) show} if %xcharx 1 eq {( rgb (A-n)) show} if xcharx 1 eq {TBIK ( rgb) show} if } if %xcharx<=1 /xs 900 3 div 2 mul def /ys xs def /d2 xs 2 div def /d8 xs 8 div def /xmin 650 3 div 2.2 mul def /ymax 15800 def /xd 900 3 div 2 mul def /yd 900 3 div 2 mul def /xsd xs xd sub 0.5 mul def /ysd xs xd sub 0.5 mul def /xd2 xd 0.50 mul def /xd4 xd 0.25 mul def 20 setlinewidth 500 3 div 2 mul /Times-ISOL1 FS 1 setgray RM 1 1 27 {/i exch def %i=1,27 /x xs 0.15 mul def /y 27.6 ys mul ys i mul sub def x y moveto nr1 i 1 sub get show } for %i=1,27 28 1 40 {/i exch def %i=1,36 /x xs i 27 sub mul 000 add def /y 27.5 ys mul def x y moveto tx1 i 1 sub get show } for %i=1,36 %( # ) show 0 setgray /RGB*R0 1080 array def /RGB*G0 1080 array def /RGB*B0 1080 array def /rgbcmyk 10000 array def %8640=8*1080: n rgb, cmyk /n00 -1 def TS /iout729 0 def iout729 1 eq {%iout729=1 /IMODE 0 def %input rgb for output LAB* %row no.1 and 2: 9xrgb /imax 08 def /jmax 08 def /kmax 08 def /TKK2 {200 3 div 2 mul /Times-ISOL1 FS} bind def TKK2 0 1 kmax {/k exch def %beg k=0,08 /k0 k 3 idiv def /k1 k k0 3 mul sub def /xadd k1 xs 9 mul mul def /yadd k0 xs 9 mul mul def 0 1 jmax {/j exch def %beg j=0,jmax 0 1 imax {/i exch def %beg i=0,imax /n1079 i j 9 mul add k 81 mul add def /xa xmin j xs mul add xadd add xsd add def /ya ymax i ys mul sub yadd sub ysd add def /r k kmax div def /g j jmax div def /b i imax div def RGB*R0 n1079 r put RGB*G0 n1079 g put RGB*B0 n1079 b put xcharx 0 eq {%xcharx=0 r g b setrgbcolor xa ya xd dup rec fill 1 r sub 1 g sub 1 b sub 0 setcmykcolor xa xd4 add ya xd4 add xd2 dup rec fill } if %xcharx=0 xcharx 1 eq {%xcharx=1 r g b setrgbcolor xa ya xd dup rec fill } if %xcharx=1 } for %end i=0,jmax } for %end j=0,jmax } for %end k=0,kmax } if %iout729=1 %3x rgbcmy /id 1 8 div def /rijn 81 array def %for intermediate storage /gijn 81 array def /bijn 81 array def /lmax 2 def /n1079 728 def 0 1 lmax {/l exch def %beg k=0,kmax % /xadd 3 xs 9 mul mul def /xadd 0 def /yadd l ys 9 mul mul def %for intermediate storage of l=0,lmax 0 1 01 {/jchart exch def %jchart=0,1 /xcharxj l jchart 3 mul add def 0 1 08 {/j exch def %j=0,7 /im 8 j sub def jchart 1 im {/i exch def %i=0,8 /ia 1 id j mul sub def /argb ia def /brgb ia i id mul sub def xcharxj 0 eq {/r argb def /g brgb def /b brgb def} if xcharxj 1 eq {/r argb def /g argb def /b brgb def} if xcharxj 2 eq {/r brgb def /g argb def /b brgb def} if xcharxj 3 eq {/r brgb def /g argb def /b argb def} if xcharxj 4 eq {/r brgb def /g brgb def /b argb def} if xcharxj 5 eq {/r argb def /g brgb def /b argb def} if jchart 0 eq {/in i j add def /jn j def} {/in j def /jn i j add def} ifelse rijn in 9 mul jn add r put gijn in 9 mul jn add g put bijn in 9 mul jn add b put } for %i=0,7 } for %j=0,8 } for %jchart=0,1 %for output of l=0,lmax 0 1 08 {/j exch def %j=0,8 0 1 08 {/i exch def %i=0,8 /n1079 n1079 1 add def /r rijn i j 9 mul add get def /g gijn i j 9 mul add get def /b bijn i j 9 mul add get def /xa xmin xs j mul add xadd add xsd add def /ya ymax xs i mul sub yadd sub ysd add def xcharx 0 eq {%xcharx=0 r g b setrgbcolor xa ya xd dup rec fill 1 r sub 1 g sub 1 b sub 0 setcmykcolor xa xd4 add ya xd4 add xd2 dup rec fill } if %xcharx=0 xcharx 1 eq {%xcharx=1 r g b setrgbcolor xa ya xd dup rec fill } if %xcharx=1 } for %i=0,7 } for %j=0,8 } for %end l=0,lmax %6wrgbcmy /n1079 971 def /lmax 03 def %4 rows with geys /kmax 1 def %9 or 16 steps 0 1 kmax {/k exch def % k 0 eq {/jmax 08 def} {/jmax 15 def} ifelse 0 1 lmax {/l exch def %beg l=0,lmax % /xadd 36 l add xs mul def /xadd 9 l add xs mul def /yadd k 9 xs mul mul def /j1 l 36 add def /j1$ tx1 j1 get def 0 1 jmax {/j exch def %j=0,08 /n1079 n1079 1 add def /i1 j k 9 mul add 1 add def %9 steps, 16 steps /argb j jmax div def /xa xmin xadd add xsd add def /ya ymax xs j mul sub yadd sub ysd add def /r argb def /g argb def /b argb def xcharx 0 eq {%xcharx=0 l 0 eq {0 0 0 1 r sub setcmykcolor} if l 1 eq {r setgray} if l 2 eq {1 r sub 1 g sub 1 b sub 0 setcmykcolor} if l 3 eq {r g b setrgbcolor} if xa ya xd dup rec fill 1 r sub 1 g sub 1 b sub 0 setcmykcolor xa xd4 add ya xd4 add xd2 dup rec fill } if %xcharx=0 xcharx 1 eq {%xcharx=1 r g b setrgbcolor xa ya xd dup rec fill } if %xcharx=1 } for %j=0,jmax } for %l=0,lmax } for %k=0,kmax %basic colours 1072 - 1080 /basrgb 24 array def /basrgb [0 0 0 1 1 1 1 0 0 0 1 1 1 1 0 0 0 1 0 1 0 1 0 1 ] def /n1079 1071 def 0 1 07 {/i exch def %i=0,7 /n1079 n1079 1 add def /i3 i 3 mul def % /xadd 36 xs mul def /xadd 9 xs mul def /yadd 25 xs mul def i 0 eq {/l 0 def /j 0 def /j1$ (k) def /i1 26 def} if i 1 eq {/l 0 def /j 1 def /j1$ (k) def /i1 27 def} if i 2 eq {/l 1 def /j 0 def /j1$ (l) def /i1 26 def} if i 3 eq {/l 1 def /j 1 def /j1$ (l) def /i1 27 def} if i 4 eq {/l 2 def /j 0 def /j1$ (m) def /i1 26 def} if i 5 eq {/l 2 def /j 1 def /j1$ (m) def /i1 27 def} if i 6 eq {/l 3 def /j 0 def /j1$ (n) def /i1 26 def} if i 7 eq {/l 3 def /j 1 def /j1$ (n) def /i1 27 def} if /xa xmin xs l mul add xadd add xsd add def /ya ymax xs j mul sub yadd sub ysd add def /r basrgb i3 get def /g basrgb i3 1 add get def /b basrgb i3 2 add get def xcharx 0 eq {%xcharx=0 r g b setrgbcolor xa ya xd dup rec fill 1 r sub 1 g sub 1 b sub 0 setcmykcolor xa xd4 add ya xd4 add xd2 dup rec fill } if %xcharx=0 xcharx 1 eq {%xcharx=1 r g b setrgbcolor xa ya xd dup rec fill } if %xcharx=1 } for %i=0,7 %*************************************************************************** %} for %pmetam=0,1 0 setgray /y00 16200 def /yd0 400 def /x1 09500 def /y0 14000 def /y0d 04000 def /yd 00320 def /x2 11500 def /xd 00300 def /y1 07200 def /y1d 00380 def /x3 20800 def /x4 22000 def /y0i 5 array def %hue R-C Y-B G-M 9Grey 16grey artif /y0i [ 14200 12300 9400 6100 4700 3300] def 0 setgray x1 y00 moveto TBG2 (\334bereinstimmung mit Elementarfarben) showde (Agreement with elementary colours) showen (Acuerdo con los colores elementales) showes (Accord avec les couleurs \351lemenentaires) showfr (Accordo con i colori elementari) showit (Avtale med barnetrinnet farger) showjp x1 y00 yd0 1.5 mul sub moveto TIG1 (Anmerkungen:) showde (Remarks:) showen (Comentarios:) showes (Remarques:) showfr (Commento:) showit (Kommentarer:) showjp TG1 ( ) show (Dieser Test benutzt viele Farbskalen von 9 Stufen) showde (This test uses many colour scales of 9 steps) showen (Esta prueba utiliza los colores chrom\341ticos de 9 pasos) showes (Ce test utilese les couleur chromatique de 9 paliers) showfr (Questo test utilizza i colori cromatici di 9 passaggi) showit (Denne testen bruker kromatiske farger p\345 9 trin) showjp x1 y00 yd0 2.5 mul sub moveto TG1 (Rot) showde (Red) showen (Rojo) showes (Rouge) showfr (Rosso) showit (R\370d) showjp TBIG1 ( R) show (e) jshowTG1 TG1 ( und ) showde ( and ) showen ( y ) showes ( et ) showfr ( e ) showit ( og ) showjp TG1 (Gr\374n) showde (Green) showen (Verde) showes (Vert) showfr (Verde) showit (Gr\370nn) showjp TBIG1 ( G) show (e) jshowTG1 TG1 ( ) show (sind durch visuelle Kriterien definiert:) showde (are defined by the visual criteria:) showen (son definidos por los criterios visuales:) showes (sont d\351finis par les crit\350res visuels:) showfr (sono definiti dai criteri visivi:) showit (er definert av visuelle kriterier:) showjp ( ) show TBIG1 (weder gelblich noch bl\344ulich) showde (neither yellowish nor blueish) showen (ni amarillento no azulado) showes (ni jaun\342tre ni bleu\342tre) showfr (n\351 giallastro n\351 bluastro) showit (hverken gullig eller bl\345lig) showjp (.) show x1 y00 yd0 3.5 mul sub moveto TG1 (Gelb) showde (Yellow) showen (Amarillo) showes (Jaune) showfr (Giallo) showit (Gul) showjp TBIG1 ( Y) show (e) jshowTG1 TG1 ( und ) showde ( and ) showen ( y ) showes ( et ) showfr ( e ) showit ( og ) showjp TG1 (Blau) showde (Blue) showen (Azul) showes (Bleu) showfr (Blu) showit (Bl\345) showjp TBIG1 ( B) show (e) jshowTG1 TG1 ( ) show (sind durch visuelle Kriterien definiert:) showde (are defined by the visual criteria:) showen (son definidos por los criterios visuales:) showes (sont d\351finis par les crit\350res visuels:) showfr (sono definiti dai criteri visivi:) showit (er definert av visuelle kriterier:) showjp ( ) show TBIG1 (weder r\366tlich noch gr\374nlich) showde (neither reddish nor greenish) showen (ni rojizo ni verdoso) showes (ni rouge\342tre ni verd\342tre) showfr (n\351 rossastro n\351 verdastro) showit (heverken r\370dlig eller gr\370nnlig) showjp (.) show 0 setgray /i 0 def 0 1 2 {/i exch def %i=0,2 x1 y0i i get 0.0 y1d mul sub moveto TBG1 (Hue plane) showen (Bunttonbene) showde (Tono plano) showes (Au niveau de couleur) showfr (Piano di tinta) showit (Kul\370 plan) showjp %**************************************************** i 0 eq {%i=0 TBG1 ( ) show (Rot) showde (Red) showen (Rojo) showes (Rouge) showfr (Rosso) showit (R\370d) showjp RBG1 ( - ) show TBG1 (Cyanblau) showde (Cyan blue) showen (Azul cyan) showes (Bleu cyan) showfr (Blu ciano) showit (Cyan bl\345) showjp TG1 ( ) show ((Reihen 01 bis 09, Spalten b bis j)) showde ((rows 01 to 09, column b to j)) showen ((filas 01 a 09, columna de la b a la j)) showes ((lines 01 \340 09, colonnes b \340 j)) showfr ((ridhe da 01 a 09, colonne de b a j)) showit ((radene 01 til 09, kolonnene b til j)) showjp } if %i=0 %**************************************************** i 1 eq {%i=1 TBG1 ( ) show (Gelb) showde (Yellow) showen (Amarillo) showes (Jaune) showfr (Giallo) showit (Gul) showjp RBG1 ( - ) show TBG1 (Blau) showde (Blue) showen (Azul) showes (Bleu) showfr (Blu) showit (Bl\345) showjp TBIM ( B) show (e) jshowTM TG1 ( ) show ((Reihen 10 bis 18, Spalten b bis j)) showde ((rows 10 to 18, column b to j)) showen ((filas 10 a 18, columna de la b a la j)) showes ((lines 10 \340 18, colonnes b \340 j)) showfr ((ridhe da 10 a 18, colonne de b a j)) showit ((radene 10 til 18, kolonnene b til j)) showjp } if %i=1 %**************************************************** i 2 eq {%i=2 TBG1 ( ) show (Gr\374n) showde (Green) showen (Verde) showes (Vert) showfr (Verde) showit (Gr\370nn) showjp RBG1 ( - ) show TBG1 (Magentarot) showde (Magenta red) showen (Rojo magenta) showes (Rouge magenta) showfr (Rosso magenta) showit (Magenta r\370d) showjp TG1 ( ) show ((Reihen 19 bis 27, Spalten b bis j)) showde ((rows 19 to 27, column b to j)) showen ((filas 19 a 27, columna de la b a la j)) showes ((lines 19 \340 27, colonnes b \340 j)) showfr ((ridhe da 19 a 27, colonne de b a j)) showit ((radene 19 til 27, kolonnene b til j)) showjp } if %i=2 %**************************************************** x1 y0i i get 1.2 y1d mul sub moveto TBG1 (\334bereinstimmung mit Elementarfarben) showde (Agreement with elementary colours) showen (Acuerdo con los colores elementales) showes (Accord avec les couleurs \351lemenentaires) showfr (Accordo con i colori elementari) showit (Avtale med element\345rfarge) showjp %************************************************ i 0 eq {%i=0 x1 y0i i get 2.4 y1d mul sub moveto TG1 (Ist die Farbe an der Position (j,01) die Elementarfarbe) showde (Is the colour at the position (j,01) the elementary colour) showen (Es el color en la posici\363n (j,01) el color elemental) showes (Est la couleur \340 la position (j,01) la couleur elementaire) showfr (\310 il colore nelle posizione (j,01) il colore elementari) showit (Er fargen p\345 posisjon (j,01) p\345 element\345rfarge) showjp TG1 ( ) show (Rot) showde (Red) showen (Rojo) showes (Rouge) showfr (Rosso) showit (R\370d) showjp TBIG1 ( R) show (e) jshowTG2 TG1 (?) show } if %i=0 %************************************************ i 1 eq {%i=1 x1 y0i i get 2.4 y1d mul sub moveto TG1 (Ist die Farbe an der Position (j,10) die Elementarfarbe) showde (Is the colour at the position (j,10) the elementary colour) showen (Es el color en la posici\363n (j,10) el color elemental) showes (Est la couleur \340 la position (j,10) la couleur elementaire) showfr (\310 il colore nelle posizione (j,10) il colore elementari) showit (Er fargen p\345 posisjon (j,10) p\345 element\345rfarge) showjp TG1 ( ) show (Gelb) showde (Yellow) showen (Amarillo) showes (Jaune) showfr (Giallo) showit (Gul) showjp TBIG1 ( Y) show (e) jshowTG2 TG1 (?) show } if %i=1 %************************************************ i 2 eq {%i=2 x1 y0i i get 2.4 y1d mul sub moveto TG1 (Ist die Farbe an der Position (j,19) die Elementarfarbe) showde (Is the colour at the position (j,19) the elementary colour) showen (Es el color en la posici\363n (j,19) el color elemental) showes (Est la couleur \340 la position (j,19) la couleur elementaire) showfr (\310 il colore nelle posizione (j,19) il colore elementari) showit (Er fargen p\345 posisjon (j,19) p\345 element\345rfarge) showjp TG1 ( ) show (Gr\374n) showde (Green) showen (Verde) showes (Vert) showfr (Verde) showit (Gr\370nn) showjp TBIG1 ( G) show (e) jshowTG2 TG1 (?) show } if %i=2 %***************************************************** x4 y0i i get 2.4 y1d mul sub moveto TBG1 ( ) show (Ja/Nein) showde (Yes/No) showen (Si/No) showes (Qui/Non) showfr (Si/No) showit (Ja/Nei) showjp x1 200 add y0i i get 3.4 y1d mul sub moveto TG1 (Nur bei "Nein":) showde (Only in case of "No":) showen (Solo en casa de "No":) showes (Seulement en cas de "No":) showfr (Solo nel caso del "No":) showit (Bare i tilfelle av "Nei":) showjp TG1 ( ) show (Die Farbe an dieser Position erscheint:) showde (The colour at this position appears:) showen (El color en la posici\363n aparece:) showes (La couleur \340 la position appara\355t:) showfr (Il colore nella posizione appare:) showit (Fargen p\345 posisjonen ser:) showjp i 0 eq i 2 eq or {%i=0&2 x3 y0i i get 3.4 y1d mul sub moveto TG1 ( gelblich/bl\344ulich) showde ( yellowish/blueish) showen (amarillento/azulado) showes ( jaun\342tre/bleu\342tre) showfr ( giallastro/bluastro) showit ( gullig/bl\345lig) showjp } if %i=0&2 i 1 eq {%i=1 x3 y0i i get 3.4 y1d mul sub moveto TG1 ( r\366tlich/gr\374nlich) showde ( reddish/greenish) showen ( rojizo/verdoso) showes (rouge\342tre/verd\342tre) showfr (rossastro/verdastro) showit ( r\370dlig/gr\370nnlig) showjp } if %i=1 } for %i=0,2 %************************************************ /i 1 def x1 y0i i get 4.9 y1d mul sub moveto TG1 (Ist die Farbe an der Position (b,18) die Elementarfarbe) showde (Is the colour at the position (b,18) the elementary colour) showen (Es el color en la posici\363n (b,18) el color elemental) showes (Est la couleur \340 la position (b,18) la couleur elementaire) showfr (\310 il colore nelle posizione (b,18) il colore elementari) showit (Er fargen p\345 posisjon (b,18) p\345 element\345rfarge) showjp TG1 ( ) show (Blau) showde (Blue) showen (Azul) showes (Bleu) showfr (Blu) showit (Bl\345) showjp TBIG1 ( B) show (e) jshowTG2 TG1 (?) show x4 y0i i get 4.9 y1d mul sub moveto TBG1 ( ) show (Ja/Nein) showde (Yes/No) showen (Si/No) showes (Qui/Non) showfr (Si/No) showit (Ja/Nei) showjp x1 200 add y0i i get 5.9 y1d mul sub moveto TG1 (Nur bei "Nein":) showde (Only in case of "No":) showen (Solo en casa de "No":) showes (Seulement en cas de "No":) showfr (Solo nel caso del "No":) showit (Bare i tilfelle av "Nei":) showjp TG1 ( ) show (Die Farbe an dieser Position erscheint:) showde (The colour at this position appears:) showen (El color en la posici\363n aparece:) showes (La couleur \340 la position appara\355t:) showfr (Il colore nella posizione appare:) showit (Fargen p\345 posisjonen ser:) showjp x3 y0i i get 5.9 y1d mul sub moveto TG1 ( r\366tlich/gr\374nlich) showde ( reddish/greenish) showen ( rojizo/verdoso) showes (rouge\342tre/verd\342tre) showfr (rossastro/verdastro) showit ( r\370dlig/gr\370nnlig) showjp %**************************************************** /i 2 def x1 y0i i get 5.0 y1d mul sub moveto TBG1 (Ergebnis:) showde (Result:) showen (Resultdo:) showes (R\351sultat:) showfr (Risultato:) showit (Resultat:) showjp TG1 ( ) show (Von den 4 Elementarfarben (z. B. 3) sind .... als Elementarfarben akzeptierbar.) showde (Of the 4 elementary colours (e. g. 3) are ...... acceptable as elementary colours.) showen (De los 4 colores elementales ...... son aceptables como colores elementales.) showes (De 4 couleurs elementaires sont ...... acceptable comme couleurs elementaires.) showfr (Dei 4 colori elementari (e. g. 3) sono ...... accettabile come colori elementari.) showit (Av 4 element\345rfarge (e. g. 3) er ...... akseptable som element\345rfarge.) showjp %**************************************************** /i 3 def x1 y0i i get 1.5 y1d mul add moveto TBG2 (Unterscheidbarkeit von 9 und 16 Graustufen) showde (Discriminability of 9 and 16 grey steps) showen (Discriminability del 9 y 16 colores acrom\341ticos) showes (Discriminability des 9 et 16 couleurs achromatiques) showfr (Discriminability del 9 e 16 colori acromatici) showit (Discriminability av 9 og 16 akromatisk farger) showjp x1 y0i i get 0.0 y1d mul sub moveto TBG1 (Unterscheidbarkeit von 9 Graustufen) showde (Discriminability of 9 steps) showen (Discriminability del 9 colores acrom\341ticos) showes (Discriminability des 9 couleurs achromatiques) showfr (Discriminability del 9 colori acromatici) showit (Discriminability av 9 akromatisk farger) showjp TG1 ( ) show ((Reihen 01 bis 09, Spalten k bis n)) showde ((rows 01 to 09, column k to n)) showen ((filas 01 a 09, columna de la k a la n)) showes ((lines 01 \340 09, colonnes k \340 n)) showfr ((ridhe da 01 a 09, colonne de k a n)) showit ((radene 01 til 09, kolonnene k til n)) showjp x1 y0i i get 1.2 y1d mul sub moveto TG1 (Sind die 9 Stufen unterscheidbar?) showde (Are the 9 steps distinguishable?) showen (Sont los 9 pasos discriminable?) showes (Sont les 9 paliers discriminable?) showfr (Sono le 9 fasi separable?) showit (Er de 9 trinnene discriminable?) showjp x4 y0i i get 1.2 y1d mul sub moveto TBG1 ( ) show (Ja/Nein) showde (Yes/No) showen (Si/No) showes (Qui/Non) showfr (Si/No) showit (Ja/Nei) showjp x1 100 add y0i i get 2.2 y1d mul sub moveto TG1 (Wenn Nein: Wieviele sind unterscheidbar?) showde (If No: How many can be distinguished?) showen (Si No: ?Qu\341ntos pasos discriminable?) showes (If Non: Combien sont discriminable?) showfr (Se No: quanti sono discriminabile?) showit (Hvis Nei: Hvor er discriminable?) showjp TG1 ( ) show (von 9 Graus sind ...... unterscheidbar.) showde (of 9 greys ...... are distinguishable.) showen (de los 9 grises ...... son distinguibles.) showes (des 9 couleurs gris ...... peut \352tre distingu\351.) showfr (del dato 9 grigi ...... sono distiguibili.) showit (av git 9 grafarger ...... er lette\345.) showjp %**************************************************** /i 4 def x1 y0i i get 0.0 y1d mul sub moveto TBG1 (Unterscheidbarkeit von 16 Graustufen) showde (Discriminability of 16 steps) showen (Discriminability del 16 colores acrom\341ticos) showes (Discriminability des 16 couleurs achromatiques) showfr (Discriminability del 16 colori acromatici) showit (Discriminability av 16 akromatisk farger) showjp TG1 ( ) show ((Reihen 10 bis 27, Spalten k bis n)) showde ((rows 10 to 27, column k to n)) showen ((filas 10 a 27, columna de la k a la n)) showes ((lines 10 \340 27, colonnes k \340 n)) showfr ((ridhe da 10 a 27, colonne de k a n)) showit ((radene 10 til 27, kolonnene k til n)) showjp x1 y0i i get 1.2 y1d mul sub moveto TG1 (Sind die 16 Stufen unterscheidbar?) showde (Are the 16 steps distinguishable?) showen (Sont los 16 pasos discriminable?) showes (Sont les 16 paliers discriminable?) showfr (Sono le 16 fasi separable?) showit (Er de 16 trinnene discriminable?) showjp x4 y0i i get 1.2 y1d mul sub moveto TBG1 ( ) show (Ja/Nein) showde (Yes/No) showen (Si/No) showes (Qui/Non) showfr (Si/No) showit (Ja/Nei) showjp x1 100 add y0i i get 2.2 y1d mul sub moveto TG1 (Wenn Nein: Wieviele sind unterscheidbar?) showde (If No: How many can be distinguished?) showen (Si No: ?Qu\341ntos pasos discriminable?) showes (If Non: Combien sont discriminable?) showfr (Se No: quanti sono discriminabile?) showit (Hvis Nei: Hvor er discriminable?) showjp TG1 ( ) show (von 16 Graus sind ...... unterscheidbar.) showde (of 16 greys ...... are distinguishable.) showen (de los 16 grises ...... son distinguibles.) showes (des 16 couleurs gris ...... peut \352tre distingu\351.) showfr (del dato 16 grigi ...... sono distiguibili.) showit (av git 16 grafarger ...... er lette\345.) showjp %**************************************************** /i 5 def x1 y0i i get 0.0 y1d mul sub moveto TIG1 (Besonderheiten, bitte beschreiben falls sichtbar:) showde (Artifacts, please describe if visible:) showen (Los artefactos, por favor especifique si est\341 visible:) showes (Artefacts, veuillez sp\351cifier si visible:) showfr (Artefatti, si prega spesify se visibile:) showit (Artifakter, vennligst angir hvis synlig:) showjp x1 y0i i get 1.0 y1d mul sub moveto (..................................................................................) show (............................................................) show x1 y0i i get 2.0 y1d mul sub moveto (..................................................................................) show (............................................................) show x1 y0i i get 3.2 y1d mul sub moveto RIG1 (Bemerkungen zur Erzeugung und dem Inhalt der PDF-Dateien:) showde TIG1 (Remarks about the creation and content of the PDF files:) showen (Commentarios acerca de la creaci\363 y la contenido de los archivos PDF:) showes (Remarques sur la cr\351ation et le contenu des fichier PDF:) showfr (Commento circa la creazione et il contenuto dei file PDF:) showit RIG1 (Merknader om ooprettelsen og innholdet i PDF-filer:) showjp TIG1 x1 y0i i get 4.7 y1d mul sub moveto (Manchmal ist "Farbgl\344ttung" die Voreinstellung.) showde (Sometimes "colour smoothing" is a default setting.) showen (A veces "Suaviyado de colores" est una configuration predeterminada.) showes (Parfois "lissage des couleurs" est un param\350tre par d\351faut.) showfr (A volte "lisciatura di colori" \350 l'impostazione predefinita.) showit (Noen ganger "utjevning av farger" er standardinnstillingen.) showjp x1 y0i i get 5.7 y1d mul sub moveto (In diesem Fall sind 9 Stufen oft nicht sichtbar und k\366nnen als eine Stufe gez\344hlt werden.) showde (In this case the 9 steps are often not visible and may be counted as one step.) showen (En esta caso los 9 pasos a menudo no son visibles y pueden ser contanos como un paso.) showes (Dans ce cas, 9 paliers sont souvent pas visible ey peut \352tre consid\351r\351e comme un palier.) showfr (In questo caso i 9 passaggi non sono visibili e possono essere conteggiate come un passo.) showit (I dette tilfellet 9 trinn er ofte ikke synlig og kan telles som ett trinn.) showjp x1 y0i i get 7.1 y1d mul sub moveto RIG1 (Manchmal ist "Optimierung der PDF-Ausgabe ) showde TIG1 (f\374r das Web" die Voreinstellung.) showde (Sometimes "optimizing the PDF output for the web" is a default setting.) showen (A veces "la optimizaci\363n de PDF para la web" est una configuration predeterminada.) showes (Somtimes "optimisation de la sortie PDF pour le web" est un param\350tre par d\351faut.) showfr (A volte "oitimizzare l'output in formado PDF per il web" \350 l'impostazione predefinita.) showit (Noen ganger "optimalisering av PDF-utskrift for web" er standardinnstillingen.) showjp x1 y0i i get 8.1 y1d mul sub moveto (Zum Beispiel kann die Voreinstellung die 1080 Farben auf einer Seite auf 256 reduzieren.) showde (For example this setting may reduce the 1080 colours on a page to 256 colours.) showen (Por ejemplo, esta opci\363n puede reduci el 1080 colores en una p\341gina de 256 colores.) showes (Par exemple ce param\350tre peut r\351duire le 1080 couleurs sur une page \340 256 couleurs.) showfr (Par esempio questa impostazione pu\362 ridurre la 1080 colori su una pagina a 256 colori.) showit (For eksempel denne innstillingen kan redusere 1080 farger p\345 en side till 256 farger.) showjp %**************************************************** } if %pchartl=1 Y11-3N_AL49_JSO_2P2S.EPS pchartl 2 eq {%pchartl=2; 'AL0X'Y11-3N_AL09_JSO_2P3A.EPS; graphic in-out %font0309A.ps*********************************************** %only T*V, R*V, T*W, R*W, jshowTV, jshowTR with T*W, R*W /RW {100 /Times-Roman FS} bind def /RV {150 /Times-Roman FS} bind def /RIW {100 /Times-Italic FS} bind def /RIV {150 /Times-Italic FS} bind def /RBW {100 /Times-Bold FS} bind def /RBV {150 /Times-Bold FS} bind def /RBIW {100 /Times-BoldItalic FS} bind def /RBIV {150 /Times-BoldItalic FS} bind def /TW {100 /Times-ISOL1 FS} bind def /TV {150 /Times-ISOL1 FS} bind def /TIW {100 /TimesI-ISOL1 FS} bind def /TIV {150 /TimesI-ISOL1 FS} bind def /TBW {100 /TimesB-ISOL1 FS} bind def /TBV {150 /TimesB-ISOL1 FS} bind def /TBIW {100 /TimesBI-ISOL1 FS} bind def /TBIV {150 /TimesBI-ISOL1 FS} bind def /SW {100 /Symbol FS} bind def /SV {150 /Symbol FS} bind def /ishowRV {RW -00 -30 rmoveto show 00 30 rmoveto RV} def /jshowRV {RBW -00 -30 rmoveto show 00 30 rmoveto RBV} def /ishowTV {TW -00 -30 rmoveto show 00 30 rmoveto TV} def /jshowTV {TBW -00 -30 rmoveto show 00 30 rmoveto TBV} def %font0309A.ps*********************************************** /CMeasSxl (Measure: unknown) def /CDeviceSxl (Device: unknown) def /CDateSxl (Date: unknown) def /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def colorml 0 eq {/ilx 0 def } {%colorml=1 xchartl xchartd idiv 2 le {/ilx xchartl def} if xchartl xchartd idiv 3 eq {/ilx 4 def} if xchartl xchartd idiv 4 eq {/ilx 8 def} if xchartl xchartd idiv 5 eq {/ilx 16 def} if xchartl xchartd idiv 6 eq {/ilx 32 def} if xchartl xchartd idiv 7 eq {/ilx 64 def} if } ifelse /Xnref 0.63 ilx mul 0.9505 mul def /Ynref 0.63 ilx mul def /Znref 0.63 ilx mul 1.0890 mul def /XQ Xnref 95.05 div def /YQ Ynref 100.00 div def /ZQ Znref 108.90 div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if /L*ref YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse def /a*ref XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul def /b*ref YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul def /L*N L*ref def /L*W 95.41 def /L*i 21 array def %different for xchartl=0,7 /a*i 21 array def /b*i 21 array def /l*i 21 array def /Yi 21 array def %equal distance between L*N and L*W 0 1 20 {/i exch def %steps from black to white i 15 le {/i0 0 def /istep 15 def} {/i0 16 def /istep 4 def} ifelse L*i i L*N L*W L*N sub i i0 sub istep div mul add put a*i i 0 put b*i i 0 put l*i i L*i i get L*N sub L*W L*N sub div put /Y* {L*i i get 16 add 116 div} bind def Yi i Y* DecodeXYZ* 100.00 mul put } for /cvishow {cvi 6 string cvs show} def /cvsshow0 {10 mul 0.5 add cvi 0.1 mul 10 string cvs show} def /cvsshow1 {10 mul 0.5 add cvi 0.1 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow2 {100 mul 0.5 add cvi 0.01 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow3 {1000 mul 0.5 add cvi 0.001 mul 10 string cvs show} def /cvsshow1x {/nxx exch def %example nxx=99.1/99.0 nxx 10 mul cvi /nxi exch def %nxi=991/990 nxi 10 idiv /nxa exch def %nxa=99 nxi nxa 10 mul sub /nxb exch def %nxb=1/0 nxa cvishow (,) show %nxa=99 nxb cvishow %nxb=1/0 } def /cvsshow2x {/nxx exch def %example nxx=99.12/99,02/99,00 nxx 100 mul cvi /nxi exch def %nxi=9912/9902/00 nxi 100 idiv /nxa exch def %nxa=99 nxi nxa 100 mul sub /nxb exch def %nxb=12/02/00 nxa cvishow (,) show %nxb=99, nxb 10 ge {nxb cvishow} if %nxb=12 nxb 1 ge nxb 9 le and {(0) show nxb cvishow} if %nxb=02 nxb 0 eq {(00) show} if %nxb=00 } def /cvsshow3x {/nxx exch def %example nxx=99.123/99.012/99.001/99.000 nxx 1000 mul cvi /nxi exch def %nxi=99123/99012/99001/99000 nxi 1000 idiv /nxa exch def %nxa=99 nxi nxa 1000 mul sub /nxb exch def %nxb=123/012/001/000 nxa cvishow (,) show %nxb=99, nxb 100 ge {nxb cvishow} if %nxb=123/012/001/000 nxb 10 ge nxb 99 le and {(0) show nxb cvishow} if %nxb=012 nxb 1 ge nxb 9 le and {(00) show nxb cvishow} if %nxb=001 nxb 0 eq {(000) show} if %nxb=000 } def 72 90 translate 0.023 MM dup scale %attention different scale 15 setlinewidth 0 setgray RV 4100 -110 moveto (AE591-3) show Txx show (: ) show deintp cvishow colorml cvishow xcolorl cvishow xchartl cvishow pchartl cvishow 50 -130 moveto (Teil 2, ) showde (part 2, ) showen (parte 2, ) showes (la part 2, ) showfr (la parte 2, ) showit (artikkelen 2, ) showjp %(; ) show %CMeasSxl show (; ) show %CDeviceSxl show (; ) show %CDateSxl show 1 setgray 0 0 moveto 5400 0 rlineto 0 4000 rlineto %relatives Bildfeld 54 x 40mm -5400 0 rlineto closepath fill 0 setgray 0 0 moveto 5400 0 rlineto 0 4000 rlineto %relatives Bildfeld 54 x 40mm -5400 0 rlineto closepath stroke 0 setgray 0800 0400 translate %Nullpunkt Zeichnung 0 0 moveto 4000 0 rlineto stroke 0 0 moveto 0 3200 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten TV 0 -50 moveto 0 100 rlineto stroke 800 -50 moveto 0 100 rlineto stroke 1600 -50 moveto 0 100 rlineto stroke 2400 -50 moveto 0 100 rlineto stroke 3200 -50 moveto 0 100 rlineto stroke 4000 -50 moveto 0 100 rlineto stroke -300 -300 moveto (N 0,0) show 700 -300 moveto (0,25) show 1500 -300 moveto (0,50) show 2300 -300 moveto (0,75) show 3100 -300 moveto (1,00 W) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 800 moveto 100 0 rlineto stroke -50 1600 moveto 100 0 rlineto stroke -50 2400 moveto 100 0 rlineto stroke -50 3200 moveto 100 0 rlineto stroke -530 -60 moveto (N 0,00) show -350 740 moveto (0,25) show -350 1540 moveto (0,50) show -350 2340 moveto (0,75) show -530 3140 moveto (W 1,00) show -700 2900 moveto TIV (w*') show (output) ishowTV -700 2700 moveto TIV (w'*) show (output) ishowTV 3000 200 moveto TIV (w*) show (input) ishowTV 0 setgray 0 0 moveto 3200 3200 lineto stroke [100] 0 setdash 0 3200 0.133 mul moveto 3200 3200 3200 0.0333 mul add lineto stroke 0 3200 0.133 mul neg moveto 3200 3200 3200 0.0333 mul sub lineto stroke colorml 1 eq {/xchartNl xchartl 8 idiv def /xchartPl xchartl xchartl 8 idiv 8 mul sub def /gammaNl 1 2.4 xchartNl 0.18 mul sub 2.4 div div def /gammaPl 2.4 xchartPl 0.18 mul sub 2.4 div def /gammal gammaNl gammaPl mul def } if /L*gi 21 array def %different for xchartl=0,7 /a*gi 21 array def /b*gi 21 array def /l*gi 21 array def /Ygi 21 array def %distance between L*N and L*W using gamma 0 1 20 {/i exch def %steps from black to white l*gi i l*i i get colorm 1 eq {gammal exp} if put L*gi i L*W L*N sub l*gi i get mul L*N add put a*gi i 0 put b*gi i 0 put /Y* {L*gi i get 16 add 116 div} bind def Ygi i Y* DecodeXYZ* 100.00 mul put } for 0 0 1 setrgbcolor 40 setlinewidth [100] 0 setdash 0 1 15 {/i exch def /xw l*i i get def /yw l*i i get colorml 1 eq {gammal exp} if def xw 3200 mul yw 3200 mul i 0 eq { moveto} {lineto} ifelse } for stroke %i 0 0 1 setrgbcolor 40 setlinewidth [100] 0 setdash 0 1 15 {/i exch def /xw l*i i get def /yw l*i i get colorml 1 eq {1 gammal div exp} if def xw 3200 mul yw 3200 mul i 0 eq { moveto} {lineto} ifelse } for stroke %i 1 0 0 setrgbcolor 25 setlinewidth [50] 0 setdash 0 1 15 {/i exch def /xw i 15 div def /yw xw colorml 1 eq {gammal exp} if def xw 3200 mul yw 3200 mul i 0 eq { moveto} {lineto} ifelse } for stroke %i 0 1 15 {/i exch def /xw i 15 div def /yw xw colorml 1 eq {1 gammal div exp} if def xw 3200 mul yw 3200 mul i 0 eq { moveto} {lineto} ifelse } for stroke %i 0 setgray -00 3450 moveto TV (F\374r linearisierte Ausgabe der 16 Graustufen von ) showde (For linearized output of the 16 grey steps of ) showen (Para salida linealizada de los 16 pasos de gris de ) showes (Pour la linearized output de la 16 palier de gris in ) showfr (Per l'uscita linearizzada dei 16 passaggi di gridio nella ) showit (For linearized utgang av 16 gra tinnene i ) showjp (Bild) showde (Picture) showen (fig.) showes (Fig.) showfr (Fig.) showit (Figur) showjp ( A7) show TxS show Txx ishowTV 0 0 1 setrgbcolor 100 3200 moveto RBIV ('* (Strich-Stern)-Koordinaten um die) showde ('* (dash-star) coordinates to reach) showen ('* (dash-star) coordenadas para illegar a la) showes ('* (dash-star) coordonne pour atteindre la) showfr ('* (dash-stelle) coordinates per raggiungere) showit ('* (dash-sterners) koordinater for linearized) showjp 100 3000 moveto RBIV (linearisierte Ausgabe mit realer Display-) showde TBIV (the linearized output with the real) showen (salida linealizada con la pandala real) showes (sortie linearized output avec reflet) showfr (l'uscita linearizzato con il display) showit (linearized utgang med ekte vise refleksjon) showjp 100 2800 moveto TBIV (Reflexion im B\374roraum zu erreichen;) showde (display reflection in office room;) showen (reflexi\363n en la sala de la oficina;) showes (r\351el dans la chambre bureau;) showfr (reale riflesso in ufficio;) showit RBIV (refleksjon i office-rommet;) showjp 100 2600 moveto TBIV (hellere (positive P) Ausgabe) showde (lighter (positiv P) output) showen (salida (positiv P) encendedor) showes (plus claire sortie (positiv P)) showfr (uscita (positiv P) accendisigari) showit (lettere (positiv P) utgang) showjp 1 0 0 setrgbcolor 100 2350 moveto TBIV (w'*) show (output) jshowTV TBV ( = [) show TBIV (w*) show (input) jshowTV TBV (] ) show 0 60 rmoveto colorml 0 eq {(1,00) show} {xchartd 1 eq {gammaPl}{1 gammaNl div} ifelse cvsshow3x } ifelse 0 -60 rmoveto 0 0 1 setrgbcolor 2200 1400 moveto RBIV (*' (Stern-Strich)-Koordinaten) showde (*' (star-dash) coordinates) showen (*' (star-dash) coordenadas) showes (*' (star-dash)) showfr TBIV ( coordonn\351es) showfr RBIV (*' (stelle-dash) coordinate) showit (*' (sterners-dash) koordinatene) showjp 2200 1200 moveto TBIV (von realer Ausgabe mit realer) showde (of real output with real) showen (de la producci\363n real con pantalla) showes (de la production r\351el reflet) showfr (della produzione reale con display) showit (of real output with real til real\255) showjp 2200 1000 moveto TBIV (Displayreflexion im B\374roraum;) showde (display reflection in office room;) showen (real reflexi\363n en la sala de la oficina;) showes (dans la chambe de bureau;) showfr (reale riflessione in ufficio stanzza;) showit RBIV (utgang med virkelig vise refleksjon) showjp 2200 0800 moveto TBIV (dunklere (negative N) Ausgabe) showde (darker (negativ N) output) showen (m\341s oscuro (negativo N) salida) showes (plus fonc\351s sortie (n\351gative N)) showfr (pi\371 scuro (negativo N) output) showit (morkere (negativ N) utgang) showjp 1 0 0 setrgbcolor 2200 0550 moveto TBIV (w*') show (output) jshowTV TBV ( = [) show TBIV (w*) show (input) jshowTV TBV (] ) show 0 60 rmoveto colorml 0 eq {(1,00) show} {xchartd 1 eq {1 gammaPl div}{gammaNl} ifelse cvsshow3x } ifelse 0 -60 rmoveto -0800 -0400 translate %Nullpunkt Zeichnung } if %pchartl=2; 'AL0X'Y11-3N_AL09_JSO_2P3A.EPS; graphic in-out showpage grestore %} for %pchartl=0,2 %} for %xchartl=0,7 %} for %xcolorl=0,3 %} for %colorml=0,1 %%Trailer