%!PS-Adobe-3.0 EPSF-3.0 AE590-3N.EPS Y10-3N_AL39_JSO_1P2S.EPS %%BoundingBox: 70 82 430 360 %START PDFDE011.EPS /pdfmark03 where {pop} {userdict /pdfmark03 /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 pdfmark03 [ /View [ /FitB ] /DOCVIEW pdfmark03 %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 Y10-3N_AL49_JSO_1P2S.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 de 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 {TBIM ( 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 21000 def /x4 22000 def /y0i 4 array def /y0i [ 14000 11000 8000 4000 ] def 0 setgray x1 y00 moveto TBG2 (Unterscheidbarkeit von chromatischen Farben) showde (Discriminability of chromatic colours) showen (Discriminability de los colores chrom\341ticos) showes (Discriminability des couleurs chromatiques) showfr (Discriminability dei colori chromatici) showit (Discriminability av kromatisk farger) showjp x1 y00 yd0 2 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 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 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.5 y1d mul sub moveto TBG1 (Unterscheidbarkeit von 81 chromatischen Farben) showde (Discriminability of 81 chromatic colours) showen (Discriminability de 81 colores crom\341ticos) showes (Discriminability de 81 couleurs chromatiques) showfr (Discriminability di 81 colori cromatici) showit (Discriminability av 81 kromatiske farger) showjp x1 y0i i get 2.8 y1d mul sub moveto TG1 (Sind alle 81 Farben verschieden?) showde (Are all the 81 colours different?) showen (Sont todos los 81 colores differentes?) showes (Sont toutes les 81 couleurs diff\351rentes?) showfr (Sono tutti i 81 colori diversi?) showit (Er alle 81 fargene annerledes?) showjp x4 y0i i get 2.8 y1d mul sub moveto TBG1 (Ja/Nein) showde (Yes/No) showen (Si/No) showes (Qui/Non) showfr (Si/No) showit (Ja/Nei) showjp x1 100 add y0i i get 4.0 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 (Wie viele sind verschieden?) showde ( Von den 81 sind ...... verschieden.) showde (How many are different?) showen ( Of the 81 are ...... different) showen (?Cu\341tos son diferentes?) showes ( De los 81 hay different ...... ) showes RG1 (Combien sont-elles ) showfr TG1 (diff\351rentes?) showfr ( de 81 il existe diff\351rentes ......) showfr (Quanti sono diversi?) showit ( Del 81 vi sono diverse ......) showit (Hvor mange er forskjellige?) showjp ( Av de 81 er det ulike ......) showjp %**************************************************** } for %i=0,2 x1 y0i i get 6.0 y1d mul sub moveto TBG1 (Ergebnis:) showde (Result:) showen (Resultdo:) showes (R\351sultat:) showfr (Risultato:) showit (Resultat:) showjp TG1 ( ) show TG1 ( ) show (Von den 243 (=3x81) Farben sind ...... verschieden.) showde (Of the 243 (=3x81) colours are ...... different) showen (De los 243 (=3x81) colores hay different ...... ) showes (De 243 (=3x81) couleurs il existe diff\351rentes ......) showfr (Del 243 (=3x81) colori vi sono diverse ......) showit (Av de 243 (=3x81) farger er det ulike ......) showjp %**************************************************** %**************************************************** /i 3 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.0 y1d mul sub moveto (..................................................................................) show (............................................................) show x1 y0i i get 4.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 5.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 6.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 8.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 9.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 Y10-3N_AL49_JSO_1P2S.EPS pchartl 2 eq {%pchartl=2; Y10-3N_AL09_JSO_1P3A.EPS; table colour rendering %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 /xchartn xchartl xchartd idiv def colorml 0 eq {/ilx 0 def } {%colorml=1 xchartn 2 le {/ilx xchartn def} if xchartn 3 eq {/ilx 4 def} if xchartn 4 eq {/ilx 8 def} if xchartn 5 eq {/ilx 16 def} if xchartn 6 eq {/ilx 32 def} if xchartn 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 72 90 translate 0.023 MM dup scale %attention different scale 15 setlinewidth 0 setgray RV 4100 -120 moveto (AE590-3) show Txx show (: ) show deintp cvishow colorml cvishow xcolorl cvishow xchartl cvishow pchartl cvishow 50 -120 moveto (Teil 1, ) showde (part 1, ) showen (parte 1, ) showes (la part 1, ) showfr (la parte 1, ) showit (artikkelen 1, ) showjp %(; ) show %CMeasSxl show (; ) show %CDeviceSxl show (; ) show %CDateSxl show /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 1 setgray 20 20 moveto 5400 0 rlineto 0 4000 rlineto %relatives Bildfeld 54 x 40mm -5400 0 rlineto closepath fill 0 setgray 20 20 moveto 5400 0 rlineto 0 4000 rlineto %relatives Bildfeld 54 x 40mm -5400 0 rlineto closepath stroke /x0 050 def /y0 3700 def /yd 170 def /xpos 18 array def /xtex 18 array def /xtexi 18 array def /xpos [ 10 150 450 750 %i, LAB*refi(ikor) 1000 %d 1300 1600 1900 %LAB*outi(ikor) 2200 2500 2800 %dLABTO(ikor,ikor), dE* 3050 3350 3850 % 4200 4500 4800 5100] def % /xtex [(i) (LAB*) ( ) ( ) (l*) (LAB*) ( ) ( ) (LAB*) ( ) ( ) (E*) ( ) ( ) ( ) ( ) ( ) ( )] def /xtexi [() (ref) ( ) ( ) (out) (out) ( ) ( ) (out-ref) ( ) ( ) () ( ) ( ) ( ) ( ) ( ) ( )] def 0 1 16 { /j exch def RIV x0 xpos j get add y0 yd add moveto j 11 eq {SV (D) show RIV} if xtex j get show xtexi j get ishowRV } for %j=0,1,...,16 colorml 1 eq {/xchartNl xchartl 8 idiv def /xchartPl xchartl xchartl 8 idiv 8 mul sub def /gammaNl 1 xchartNl 0.18 mul add def /gammaPl 1 1 xchartPl 0.18 mul add 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 /sumdL* 0 def /sumda* 0 def /sumdb* 0 def /sumdE* 0 def /sumdNL* 0 def /sumdNa* 0 def /sumdNb* 0 def /sumdNE* 0 def /sumdBL* 0 def /sumdBa* 0 def /sumdBb* 0 def /sumdBE* 0 def /sumdRL* 0 def /sumdFL* 0 def 0 1 20 {/i exch def %21 colours 0 1 12 {/j exch def %17 Positionen RW x0 xpos j get add y0 yd i mul sub moveto j 0 eq {i 1 add cvishow } if j 1 eq {L*i i get cvsshow2x} if j 2 eq {a*i i get cvsshow2x} if j 3 eq {b*i i get cvsshow2x} if j 4 eq {l*gi i get cvsshow2x} if j 5 eq {L*gi i get cvsshow2x} if j 6 eq {a*gi i get cvsshow2x} if j 7 eq {b*gi i get cvsshow2x} if j 8 eq {L*gi i get dup L*i i get sub cvsshow2x L*i i get sub abs /sumdL* exch sumdL* add def } if %j=8 j 9 eq {a*gi i get dup a*i i get sub cvsshow2x a*i i get sub abs /sumda* exch sumda* add def } if %j=9 j 10 eq {b*gi i get dup b*i i get sub cvsshow2x b*i i get sub abs /sumdb* exch sumdb* add def } if %j=10 j 11 eq {L*gi i get L*i i get sub dup mul a*gi i get a*i i get sub dup mul add b*gi i get b*i i get sub dup mul add 0.0001 add sqrt dup cvsshow2x /sumdE* exch sumdE* add def } if %j=11 i 15 lt {%16 Stufen j 11 eq {L*gi i get L*i i get sub dup mul a*gi i get a*i i get sub dup mul add b*gi i get b*i i get sub dup mul add 0.0001 add sqrt /sumdBE* exch sumdBE* add def } if %j=11 } if %16 Stufen i 16 ge {%5 Unbunt=Noir j 11 eq {L*gi i get L*i i get sub dup mul a*gi i get a*i i get sub dup mul add b*gi i get b*i i get sub dup mul add 0.0001 add sqrt /sumdNE* exch sumdNE* add def } if %j=11 } if %5 Unbunt=Noir 12 j eq {%j=12 i 00 eq {TBV (Kennzeichnung nach) showde (Specification according to) showen (Especificati\363n de acuerdo) showes (Selon la sp\351cification \340 la) showfr (Specificatione secondo) showit (Spesifikasjion i henhold) showjp x0 xpos j get add y0 yd add moveto TBV (Startausgabe S1) showde (Start output S1) showen (a la salida S1) showes (la sortie S1) showfr (all'usica S1) showit (til utgang S1) showjp } if %i=0 i 01 eq {TBV (ISO/IEC 15775 Anhang G) showde (ISO/IEC 15775 Annex G) showen (ISO/IEC 15775 Anexo G) showes (ISO/IEC 15775 Annexe G) showfr (ISO/IEC 15775 Allegato G) showit (ISO/IEC 15775 Anneks G) showjp } if %i=1 i 02 eq {RBV (und DIN 33866-1 Anhang G) showde (and DIN 33866-1 Annex G) showen (y DIN 33866-1 Anexo G) showes (et DIN 33866-1 Annexe G) showfr (e DIN 33866-1 Allegato G) showit (og DIN 33866-1 Anneks G) showjp } if %i=2 i 13 eq {TBV (Mittlerer Helligkeitsabstand) showde (Mean lightness difference) showen (Diferencia de luminosidad) showes (Difference moyenne de clart\351) showfr (Significa differenza di) showit (Gjennomsnittlig skryt) showjp } if i%=13 i 14 eq {TBV ((16 Stufen)) showde ((16 steps)) showen (media (16 escalones)) showes ((16 palier)) showfr (luminosit\340 (16 passi)) showit (forskjellen (16 trinn)) showjp } if i%=14 i 15 eq {SV (D) show TBIV (E*) show (CIELAB) jshowTV ( = ) show sumdBE* 16 div cvsshow1x } if %i=15 i 18 eq {TBV (Mittlerer Helligkeitsabstand) showde (Mean lightness difference) showen (Diferencia de luminosidad) showes (Difference moyenne de clart\351) showfr (Significa differenza di) showit (Gjennomsnittlig skryt) showjp } if i%=18 i 19 eq {TBV ((5 Stufen)) showde ((5 steps)) showen (media (5 escalones)) showes ((5 palier)) showfr (luminosit\340 (5 passi)) showit (forskjellen (5 trinn)) showjp } if i%=19 i 20 eq {SV (D) show TBIV (L*) show (CIELAB) jshowTV ( = ) show sumdNE* 05 div cvsshow1x } if %i=20 } if %j=12 } for %j=0,12 } for %i=0,20 /j 1 def x0 xpos j get add 000 add y0 yd 21 mul sub moveto RBV (Mittlerer Farbwiedergabe-Index:) showde TBV (Mean colour reproduction index:) showen (Media del indice de reproducti\363n de color:) showes (Moyenne de l'indice de reproduction de couleur:) showfr (Colore medio indice di riproduzione:) showit (Gjennomsmittlig fargegjengivelse indeks:) showjp TBIV ( R*) show (ab,m) jshowTV ( = ) show 100 sumdBE* 21 div sumdNE* 21 div add 4.6 mul sub cvsshow1x } if %pchartl=2; Y10-3N_AL09_JSO_1P3A.EPS; table colour rendering showpage grestore %} for %pchartl=0,2 %} for %xchartl=0,7 %} for %xcolorl=0,3 %} for %colorml=0,1 %%Trailer