%!PS-Adobe-3.0 EPSF-3.0 http://130.149.60.45/~farbmetrik/XE39/XE39L00XX.PS 20160701 %%BoundingBox: 00 00 414 292 /pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: www.ps.bam.de/XE39/XE39.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:2016070112000) /ModDate (D:20160710112000) /DOCINFO pdfmark [ /View [ /Fit ] /DOCVIEW pdfmark /sfgray {setgray} bind def %Early Frame File (f) definition /sfrgbcolor {setrgbcolor} bind def /sfcmykcolor {setcmykcolor} bind def %line 20****************************************************** %BEG XE39/OUTLIN10.PS Output Linearization (OL) olv*->olv'* 20110301 %Early Binding: needed for colour separation %/sgcmykcolor {setcmykcolor} bind def %/sggray {setgray} bind def %/sgrgbcolor {setrgbcolor} bind def %FILE PREPARED FOR MIXED MODE, e. g. input ORS18 and output TLS00 /IMES 0 def %0=LAB* used, no reflection factor necessary %/IMES 1 def /Yre 2.52 def %1=XYZ measurement and standard device reflection %/i*ptrsc 0 def %LAB* setcolor to cmy0* / 000n* setcmykcolor /i*ptrsc 1 def %LAB* setcolor to olv* setrgbcolor / w* setgray %/i*ptrsc 2 def %LAB* setcolor to cmy0* / nnn0* setcmykcolor %/i*ptrsc 3 def %LAB* setcolor to olv* / www* setrgbcolor %/i*ptrsc 4 def %LAB* setcolor to lab* setcolor %/i*ptrsc 5 def %LAB* setcolor to LAB* setcolor %/i*ptrsc 6 def %LAB* setcolor to 000n* setcmykcolor %/i*ptrsc 7 def %LAB* setcolor to w* setgray %/ISIN*ioG 0 def %default input for Offset Reflective System (ORS18/FRS09) %/ISOU*ioG 0 def %default output dto. /ISIN*ioG 1 def %input for Television Luminous System (TLS00) /ISOU*ioG 1 def %output dto. %/ISIN*ioG 2 def %input for Device Reflective measurement system (FRS09) %/ISOU*ioG 2 def %output dto. %/ISIN*ioG 3 def %input for Television Luminous Reflection System (TLS18) %/ISOU*ioG 3 def %output dto. %/ISIN*ioG 4 def %input for Natural Luminous System (NLS00) %/ISOU*ioG 4 def %output dto. %/ISIN*ioG 5 def %input for Natural Reflective System (NRS11) %/ISOU*ioG 5 def %output dto. %/ISIN*ioG 6 def %input for Standard Reflective System (CIE18) %/ISOU*ioG 6 def %output dto. %/ISIN*ioG 7 def %input for Standard Reflective System (TLS70) %/ISOU*ioG 7 def %output dto. /iLAB 0 def %/colormg 0 def %END XE39/OUTLIN10.PS Output Linearization (OL) olv*->olv'* 20110301 %BEG XE39/OUTLIN1X.PS 20110801 %EMPTY %END XE39/OUTLIN1X.PS 20110801 %BEG XE39/OUTLIN1Y2.PS Emty 20101101 %END XE39/OUTLIN1Y2.PS Emty 20101101 /BeginEPSF {% def % Prepare for EPS file /b4_Inc_state save def % Save state for cleanup /dict_count countdictstack def /op_count count 1 sub def % Count objects on op stack userdict begin % Make userdict current dict /showpage {} def 0 setgray 0 setlinecap 1 setlinewidth 0 setlinejoin 10 setmiterlimit [] 0 setdash newpath /languagelevel where % If level not equal to 1 then {pop languagelevel where % If level not equal to 1 then 1 ne {false setstrokeadjust false setoverprint } if } if } bind def /EndEPSF {% def % End for EPS file count op_count sub {pop} repeat countdictstack dict_count sub {end} repeat % Clean up dict stack b4_Inc_state restore } bind def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def %ANFA CMYKDEF %CMYKDEA0 (A0=Standard-Drucker-CMYKDEF) 15.3.97 /tzac [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzam [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzay [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzan [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tza0 [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000] def /tza1 [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000] def %ENDE CMYKD /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 /colrecfiLAB* %x y width heigth LAB* { setcolor rec fill} bind def /colrecstLAB* %x y width heigth LAB* { setcolor rec stroke} bind def /colrecficmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec fill} bind def /colrecstcmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec stroke} bind def /colrecfiw* %x y width heigth w* { setgray rec fill} bind def /colrecstw* %x y width heigth w* { setgray rec stroke} bind def /colrecfiolv* %x y width heigth olv* { setrgbcolor rec fill} bind def /colrecstolv* %x y width heigth olv* { setrgbcolor rec stroke} bind def /tzocmy0* {0.0 1.0 1.0 0.0} bind def %Reproduction colours /tzlcmy0* {1.0 0.0 1.0 0.0} bind def %cmyn* setcmykcolor /tzvcmy0* {1.0 1.0 0.0 0.0} bind def /tzccmy0* {1.0 0.0 0.0 0.0} bind def /tzmcmy0* {0.0 1.0 0.0 0.0} bind def /tzycmy0* {0.0 0.0 1.0 0.0} bind def /tzoolv* {1.0 0.0 0.0} bind def %Reproduction colours /tzlolv* {0.0 1.0 0.0} bind def %olv* setrgbcolor /tzvolv* {0.0 0.0 1.0} bind def /tzcolv* {0.0 1.0 1.0} bind def /tzmolv* {1.0 0.0 1.0} bind def /tzyolv* {1.0 1.0 0.0} bind def /tzoLAB* [53.34 72.46 50.66] def %Reproduction colours /tzlLAB* [84.93 -79.83 74.80] def %LAB* setcolor /tzvLAB* [32.20 24.88 -37.89] def /tzcLAB* [88.10 -44.88 -13.36] def /tzmLAB* [59.66 90.32 -19.65] def /tzyLAB* [93.76 -20.24 85.93] def /tzncmy0* {1.00 1.00 1.00 0.00} bind def %grey series /tzdcmy0* {0.75 0.75 0.75 0.00} bind def %cmy0* setcmykcolor /tzzcmy0* {0.50 0.50 0.50 0.00} bind def /tzhcmy0* {0.25 0.25 0.25 0.00} bind def /tzwcmy0* {0.00 0.00 0.00 0.00} bind def /tzn000n* {0.00 0.00 0.00 1.00} bind def %grey series 000n* /tzd000n* {0.00 0.00 0.00 0.75} bind def %000n* setcmykcolor /tzz000n* {0.00 0.00 0.00 0.50} bind def /tzh000n* {0.00 0.00 0.00 0.25} bind def /tzw000n* {0.00 0.00 0.00 0.00} bind def /tznw* {0.00} bind def %grey series /tzdw* {0.25} bind def %w* setgray /tzzw* {0.50} bind def /tzhw* {0.75} bind def /tzww* {1.00} bind def /tznolv* {0.00 0.00 0.00} bind def %grey series /tzdolv* {0.25 0.25 0.25} bind def %olv* setrgbcolor /tzzolv* {0.50 0.50 0.50} bind def /tzholv* {0.75 0.75 0.75} bind def /tzwolv* {1.00 1.00 1.00} bind def /tznLAB* [18.01 0.00 0.00] def %grey series /tzdLAB* [37.36 0.00 0.00] def %LAB* setcolor /tzzLAB* [56.71 0.00 0.00] def /tzhLAB* [76.06 0.00 0.00] def /tzwLAB* [95.41 0.00 0.00] def /tfn {0 setgray} bind def /tfw {1 setgray} bind def /A4quer {598 0 translate 90 rotate} def /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def %%EndProlog %*********************************************************** %%BeginPageSetup /#copies 1 def %A4querF 0.5 0.5 scale /pgsave save def %%EndPageSetup /SS$ [(G) (E) (S) (F) (I) (J) (M)] def /SC$ [(N) (F) (S) (D) (T) (E) (C)] def /SX$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def /SY$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def % 0 1 2 3 4 5 % 6 7 8 /EX$ [(1.TXT /.PS) (B.BMP /.PS) (G.GIF /.PS) (H.HTM /.PS) (I.HTM /.PS) (J.JPE /.PS) (P.PDF /.PS) (T.TIF /.PS)] def /EY$ [(1.DAT) (B.DAT) (G.DAT) (H.DAT) (I.DAT) (J.DAT) (P.DAT) (T.DAT)] def %******************************************************************* /lanind1f 01 def /lanind2f 01 def /laninddf 01 def /colorm1f 00 def /colorm2f 00 def /colormdf 01 def /deintp1f 00 def /deintp2f 00 def /deintpdf 01 def /xcolor1f 00 def /xcolor2f 00 def /xcolordf 01 def /xchart1f 00 def /xchart2f 00 def /xchartdf 01 def /xchart3f 01 def /xchart4f 01 def /xchart5f 00 def /pchart1f 03 def /pchart2f 03 def /pchartdf 01 def %=3 for sRGB, Lr=0 /colsep1f 00 def /colsep2f 00 def /colsepdf 01 def /pmetam1f 00 def /pmetam2f 00 def /pmetamdf 01 def %/lanindf lanind1f def % /lanindf lanind1f def %lanind1f laninddf lanind2f {/lanindf exch def %/colormf colorm1f def % /colormf colorm1f def %colorm1f colormdf colorm2f {/colormf exch def %/deintpf deintp1f def % /deintpf deintp1f def %deintp1f deintpdf deintp2f {/deintpf exch def %/xcolorf xcolor1f def % /xcolorf xcolor1f def %xcolor1f xcolordf xcolor2f {/xcolorf exch def %/xchartf xchart1f def % /xchartf xchart1f def %xchart1f xchartdf xchart2f {/xchartf exch def %/pchartf pchart1f def % /pchartf pchart1f def %/pchartf pchart1f def %pchart1f pchartdf pchart2f {/pchartf exch def %/colsepf colsep1f def % /colsepf colsep1f def %colsep1f colsepdf colsep2f {/colsepf exch def /lanind lanindf def /colorm colormf def /deintp deintpf def /xcolor xcolorf def /xchart xchartf def /xchartm xchart2f xchart1f sub 1 add def /xchart3 xchart3f def /xchart4 xchart4f def /pchart pchartf def /colsep colsepf def %/pmetamf pmetam1f def % /pmetamf pmetam1f def %pmetam1f pmetamdf pmetam2f {/pmetamf exch def /pmetam pmetamf def %************************************************************* /setgray {sfgray} bind def /setrgbcolor {sfrgbcolor} bind def /setcmykcolor {sfcmykcolor} bind def %72 90 translate %0.01 MM dup scale %0 0 moveto 24600 0 rlineto 0 17220 rlineto % -24600 0 rlineto closepath stroke %000 -240 moveto %240 /Times-ISOL1 FS %lanindf cvishow (-) show %colormf cvishow %deintpf cvishow %xcolorf cvishow %xchartf cvishow %pchartf cvishow %colsepf cvishow (-F) show pmetamf cvishow %grestore gsave /GSS$ SS$ lanind get def /GSC$ SC$ colorm get def /GSX$ SX$ xcolor xcolor 16 idiv 16 mul sub get def /GSY$ SY$ xchart xchart 16 idiv 16 mul sub get def /GEX$ EX$ 0 get def /GEY$ EY$ 0 get def %01 %02 %03 %04 %05 %06 %07 %08 %09 %10 %11 %12 %13 %14 %15 %16 %17 %18 %gsave BeginEPSF 28 MM 197 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto 1 1 scale -77 -91 translate %%BeginDocument: Bild 10 %line 329 %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 03 MM sub 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto 1 1 scale -77 -91 translate %%BeginDocument: Bild 11 %line 339 %!PS-Adobe-3.0 EPSF-3.0 XE390-1N %%BoundingBox: 70 83 400 190 %START PDFDE011.EPS /pdfmark01 where {pop} {userdict /pdfmark01 /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://130.149.60.45/~farbmetrik/SE25/) /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, colour vision) /Creator (klaus.richter@mac.com) /CreationDate (D:2015110112000) /ModDate (D:2015110112000) /DOCINFO pdfmark01 [ /View [ /FitB ] /DOCVIEW pdfmark01 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /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 /TV {160 /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 /TIV {160 /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 /TBV {160 /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 /TBIV {160 /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 %%EndProlog gsave /nshow {TS show} bind def /kshow {TIS show} bind def /bshow {TBS show} bind def /jshow {TBIS show} bind def /ibshown {TBS -50 -50 rmoveto show 0 50 rmoveto TBS} bind def /ibshow0 {TBS -00 -50 rmoveto show 0 50 rmoveto TBS} bind def /ishown {TS -50 -50 rmoveto show 0 50 rmoveto TS } bind def /ishow0 {TS -00 -50 rmoveto show 0 50 rmoveto TS } bind def %40% kleiner /ns4 {250 /Times-ISOL1 FS show TK} bind def /ks4 {250 /TimesI-ISOL1 FS show TK} bind def /bs4 {250 /TimesB-ISOL1 FS show TK} bind def /js4 {250 /TimesBI-ISOL1 FS show TK} bind def /ss4 {250 /Symbol FS show TK} bind def /is4 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /es4 {200 /Times-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ib4 {200 /TimesB-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /eb4 {200 /TimesB-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ip4 {200 /Times-ISOL1 FS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def %60% kleiner /ns6 {200 /Times-ISOL1 FS show TS} bind def /ks6 {200 /TimesI-ISOL1 FS show TS} bind def /bs6 {200 /TimesB-ISOL1 FS show TS} bind def /js6 {200 /TimesBI-ISOL1 FS show TS} bind def /ss6 {200 /Symbol FS show TS} bind def /is6 {160 /Times-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /es6 {160 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ib6 {160 /TimesB-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /eb6 {160 /TimesB-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ip6 {160 /Times-ISOL1 FS 24 24 rmoveto (\267) show 24 -24 rmoveto TS} bind /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show} def %%EndProlog gsave /lanind 0 def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind le {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind le {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind le {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /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 /xchartl 0 def /xchart4 0 def %0 1 5 {/xchartl exch def %xchartl=0,5 gsave 5 /Times-ISOL1 FS 360 85 moveto (XE390-1N) show 72 90 translate /ytit 550 def /yhoe 4000 def /yhoet yhoe ytit sub def /xwide 11500 def /ishow {-50 -100 rmoveto 200 /Times-ISOL1 FS show 0 100 rmoveto TM} bind def 0.01 MM 0.01 MM scale 15 setlinewidth 0.0 0.0 0.0 0.0 setcmykcolor 0 0 moveto xwide 0 rlineto 0 yhoet rlineto xwide neg 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmykcolor 0 0 moveto xwide 0 rlineto 0 yhoet rlineto xwide neg 0 rlineto closepath stroke /yt 300 def %y-Zeilenabstand for text /yd 400 def %y-Zeilenabstand for formula %Spalten /S1 100 def /S2 1500 def /S3 2300 def /S4 5900 def /S5 7700 def /S6 8500 def /yz 400 def /yu5 7600 def /yu4 7100 def /yu3 5800 def /yu2 5800 def /yu1 5800 def /OXYZ 30 array def /OXYZ [ (18,74) (26,62) (68,54) %C (33,06) (16,90) (22,01) %M (68,06) (77,10) ( 9,03) %Y (33,13) (16,75) ( 2,68) %O ( 8,71) (19,18) ( 6,62) %L ( 7,17) ( 4,65) (21,41) %V (83,69) (88,60) (89,47) %W ( 2,42) ( 2,52) ( 2,81) %N (94,44) (100,00) (100,84) %W1 ( 0,02) ( 0,00) ( 0,12) %N0 ] def /OLAB 30 array def /OLAB [ (58,62) (-30,63) (-42,75) %C (48,13) ( 75,20) ( -6,80) %M (90,37) (-11,16) ( 96,17) %Y (47,94) ( 65,31) ( 52,07) %O (50,90) (-62,96) ( 36,71) %L (25,72) ( 31,35) (-44,36) %V (95,41) ( -0,98) ( 4,76) %W (18,01) ( 0,50) ( -0,46) %N (100,0) ( -1,07) ( 5,06) %W1 ( 0,01) ( 0,84) ( -1,68) %N0 ] def /DLAB 30 array def /DLAB [ (58,09) (-32,78) (-44,14) %C (46,88) ( 75,30) ( -8,74) %M (88,56) ( -6,91) ( 95,35) %Y (50,78) ( 66,45) ( 53,75) %O (49,24) (-60,02) ( 37,66) %L (28,18) ( 32,61) (-42,38) %V (94,50) ( -1,38) ( 5,57) %W (19,14) ( 4,32) ( 0,26) %N (100,0) ( 0,00) ( 0,00) %W1 ( 0,00) ( 0,00) ( 0,00) %N0 ] def /DELAB 10 array def /DELAB [ (2,62) %C (2,31) %M (4,69) %Y (3,49) %O (3,51) %L (3,40) %V (1,28) %W (4,05) %N (0,00) %W1 (0,00) %N0 ] def /OLABn 30 array def /OLABn [ 58.62 -30.63 -42.75 %C 25.72 31.35 -44.36 %V 48.13 75.20 -6.80 %M 47.94 65.31 52.07 %O 90.37 -11.16 96.17 %Y 50.90 -62.96 36.71 %L 95.41 -0.98 4.76 %W 18.01 0.50 -0.46 %N 100.0 -1.07 5.06 %W1 0.01 0.84 -1.68 %N0 ] def /DLABn 30 array def /DLABn [ 58.09 -32.78 -44.14 %C 28.18 32.61 -42.38 %V 46.88 75.30 -8.74 %M 50.78 66.45 53.75 %O 88.56 -6.91 95.35 %Y 49.24 -60.02 37.66 %L 94.50 -1.38 5.57 %W 19.14 4.32 0.26 %N 100.0 0.00 0.00 %W1 0.00 0.00 0.00 %N0 ] def /OLABa 50 array def /DLABa 50 array def /L*Wio OLABn 6 3 mul get def /a*Wio OLABn 6 3 mul 1 add get def /b*Wio OLABn 6 3 mul 2 add get def /L*Nio OLABn 7 3 mul get def /a*Nio OLABn 7 3 mul 1 add get def /b*Nio OLABn 7 3 mul 2 add get def 0 1 7 {/i exch def %i=0,7 /i3 i 3 mul def /i5 i 5 mul def /L*Xio OLABn i3 get def /a*Xio OLABn i3 1 add get def /b*Xio OLABn i3 2 add get def /l*CIE L*Xio L*Nio sub L*Wio L*Nio sub div def /a*s a*Wio a*Nio sub l*CIE mul def /b*s b*Wio b*Nio sub l*CIE mul def OLABa i5 OLABn i3 get put OLABa i5 1 add OLABn i3 1 add get a*Nio sub a*s sub put OLABa i5 2 add OLABn i3 2 add get b*Nio sub b*s sub put OLABa i5 3 add OLABa i5 1 add get dup mul OLABa i5 2 add get dup mul add 0.000001 add sqrt put OLABa i5 4 add OLABa i5 2 add get OLABa i5 1 add get 0.0000001 add atan put } for %i=0,7 /L*Wid DLABn 6 3 mul get def /a*Wid DLABn 6 3 mul 1 add get def /b*Wid DLABn 6 3 mul 2 add get def /L*Nid DLABn 7 3 mul get def /a*Nid DLABn 7 3 mul 1 add get def /b*Nid DLABn 7 3 mul 2 add get def 0 1 7 {/i exch def %i=0,7 /i3 i 3 mul def /i5 i 5 mul def /L*Xid DLABn i3 get def /a*Xid DLABn i3 1 add get def /b*Xid DLABn i3 2 add get def /l*CIE L*Xid L*Nid sub L*Wid L*Nid sub div def /a*s a*Wid a*Nid sub l*CIE mul def /b*s b*Wid b*Nid sub l*CIE mul def DLABa i5 DLABn i3 get put DLABa i5 1 add DLABn i3 1 add get a*Nid sub a*s sub put DLABa i5 2 add DLABn i3 2 add get b*Nid sub b*s sub put DLABa i5 3 add DLABa i5 1 add get dup mul DLABa i5 2 add get dup mul add 0.000001 add sqrt put DLABa i5 4 add DLABa i5 2 add get DLABa i5 1 add get 0.000001 add atan put } for %i=0,7 /LCh*O 24 array def %O=offset /LCh*O [59 54 236 %C 26 54 304 %V 48 76 353 %M 48 83 037 %O 90 92 096 %Y 51 72 150 %L 95 00 000 %W 18 00 000 %N ] def /LCh*D 24 array def %D=device /LCh*D [58 58 234 %C 28 52 303 %V 47 74 351 %M 51 82 038 %O 89 90 093 %Y 49 71 150 %L 95 00 000 %W 19 00 000 %N ] def /rgb*X 24 array def /rgb*X [0 1 1 0 0 1 1 0 1 1 0 0 1 1 0 0 1 0 1 1 1 0 0 0 ] def /rgb*Y 84 def %7x12=21x4 /rgb*Y [0.00 1.00 1.00 %C 0.00 0.75 1.00 0.00 0.50 1.00 0.00 0.25 1.00 0.00 0.00 1.00 %V 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 1.00 1.00 0.00 1.00 %M 1.00 0.00 0.75 1.00 0.00 0.50 1.00 0.00 0.25 1.00 0.00 0.00 %O 1.00 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 1.00 1.00 0.00 %Y 0.75 1.00 0.00 0.50 1.00 0.00 0.25 1.00 0.00 0.00 1.00 0.00 %L 0.00 1.00 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 1.00 1.00 %C ] def /tex*X 24 array def /tex*X [(cyan blue) (cyan) (C=C) (violet blue) (blue) (V=B) (magenta red) (magenta) (M=M) (orange red) (red) (O=R) (yellow) () (Y=Y) (leaf green) (green) (L=G) (white) () (W) (black) () (N) ] def /tex*B 8 array def /tex*B [(C) (V) (M) (O) (Y) (L) (W) (N)] def /LCh*X 24 array def 0 1 23 {/i exch def %i=0,23 xchart4 0 eq {LCh*X i LCh*O i get put} if xchart4 1 eq {LCh*X i LCh*D i get put} if } for %i=0,23 %definition of A for xchartl=0,1,2 /LCh*A 3 array def /rgb*A 3 array def /tex*A 3 array def /LCh*N 3 array def /rgb*N 3 array def /tex*N 3 array def /LCh*W 3 array def /rgb*W 3 array def /tex*W 3 array def 0 1 2 {/i exch def %i=0,2 /j3 xchartl 3 mul def LCh*A i LCh*X i j3 add get put rgb*A i rgb*X i j3 add get put tex*A i tex*X i j3 add get put } for %i=0,2 0 1 2 {/i exch def %i=0,2 LCh*N i LCh*X i 21 add get put rgb*N i rgb*X i 21 add get put tex*N i tex*X i 21 add get put LCh*W i LCh*X i 18 add get put rgb*W i rgb*X i 18 add get put tex*W i tex*X i 18 add get put } for %i=0,2 %Titeltext /xt1 0 def /yt1 300 def xt1 yt1 translate 100 2800 moveto TBIK (rgb) show (d) is4 TBK ( input and) showen (\255Ein-Ausgabe) showde TBIK ( LCh*) show (da) is4 TBK ( output of) showen (von) showde TBIK xchart4 0 eq {( Offset) show} if xchart4 1 eq {( BAM) show} if TBK ( colours) showen (\255Farben) showde /S10 100 def /S11 800 def /S20 3250 def /S30 4000 def /Z10 2500 def /Z1C 2200 def /Z1V 1900 def /Z1M 1600 def /Z1O 1300 def /Z1Y 1000 def /Z1L 0700 def /Z1N 0400 def /Z1W 0100 def S10 Z10 moveto TBK (Device colour) showen (Ger\344tefarbe) showde S20 Z10 moveto TBIK (rgb) show (d) is4 S30 Z10 moveto TBIK (LCh*) show (d) is4 %Z1C**************************** S10 Z1C moveto TBIK (C=C) show (d) is4 S11 Z1C moveto TK (Cyanblau (Cyan)) showde (cyan blue (cyan)) showen S20 Z1C moveto TBK (0 1 1) show S30 Z1C moveto TK LCh*X 0 get cvishow (, ) show LCh*X 1 get cvishow (, ) show TBK LCh*X 2 get cvishow TK %Z1V**************************** S10 Z1V moveto TBIK (V=B) show (d) ishow S11 Z1V moveto TK (Violetblau (Blau)) showde (violet blue (blue)) showen S20 Z1V moveto TBK (0 0 1) show S30 Z1V moveto TK LCh*X 3 get cvishow (, ) show LCh*X 4 get cvishow (, ) show TBK LCh*X 5 get cvishow TK %Z1M**************************** S10 Z1M moveto TBIK (M=M) show (d) is4 S11 Z1M moveto TK (Magentarot) showde (magenta red (magenta)) showen S20 Z1M moveto TBK (1 0 1) show S30 Z1M moveto TK LCh*X 6 get cvishow (, ) show LCh*X 7 get cvishow (, ) show TBK LCh*X 8 get cvishow %Z1O**************************** S10 Z1O moveto TBIK (O=R) show (d) is4 S11 Z1O moveto TK (Orangerot (Rot)) showde (orange red (red)) showen S20 Z1O moveto TBK (1 0 0) show S30 Z1O moveto TK LCh*X 09 get cvishow (, ) show LCh*X 10 get cvishow (, ) show TBK LCh*X 11 get cvishow TK %Z1Y**************************** S10 Z1Y moveto TBIK (Y=Y) show (d) is4 S11 Z1Y moveto TK (Gelb) showde (yellow) showen S20 Z1Y moveto TBK (1 1 0) show S30 Z1Y moveto TK LCh*X 12 get cvishow (, ) show LCh*X 13 get cvishow (, ) show TBK LCh*X 14 get cvishow TK %Z1O**************************** S10 Z1L moveto TBIK (L=G) show (d) is4 S11 Z1L moveto TK (Laubgr\374n (Gr\374n)) showde (leaf green (green)) showen S20 Z1L moveto TBK (0 1 0) show S30 Z1L moveto TK LCh*X 15 get cvishow (, ) show LCh*X 16 get cvishow (, ) show TBK LCh*X 17 get cvishow TK %Z1N**************************** S10 Z1N moveto TBIK (N) show S11 Z1N moveto TK (Schwarz) showde (black) showen S20 Z1N moveto TBK (0 0 0) show S30 Z1N moveto TK LCh*X 18 get cvishow (, ) show LCh*X 19 get cvishow (, ) show 0 cvishow TK %Z1W**************************** S10 Z1W moveto TBIK (W) show S11 Z1W moveto TK (Wei\337) showde (white) showen S20 Z1W moveto TBK (1 1 1) show S30 Z1W moveto TK LCh*X 21 get cvishow (, ) show LCh*X 22 get cvishow (, ) show 0 cvishow TK xt1 neg yt1 neg translate %HUE CIRCLE /xd 1550 def /yd 5000 def /xp 1550 def /yp 5000 def /xdN xd def /ydN yd 2000 sub def /xdW xd def /ydW yd def /xdR xd 2000 add def /ydR yd 1000 sub def /xm 2000 4 div def /xip xd xm 2 mul add def /yip ydN xm 2 mul add def /xi1 xd xm 1 mul sub def /yi1 ydW xm 0.5 mul sub def /xi2 xd xm 2 mul add def /yi2 ydN 400 sub def %************************************************************************* %RJGB /xt2 5550 def /yt2 -2670 def xt2 yt2 translate [ 100 ] 100 setdash xp 1750 sub yp 950 add moveto 0 -3000 rlineto stroke [ ] 0 setdash 0 setgray xp 1450 sub yp 0750 add moveto TBIK xchart4 0 eq {(Offset) show} if xchart4 1 eq {(BAM) show} if TBK (\2555stufige Farbreihen im \255CIELAB\255Farbraum) showde ( 5 step colour series in CIELAB colour space) showen /L*Xd LCh*A 0 get def /C*Xd LCh*A 1 get def /L*Nd LCh*N 0 get def /L*Wd LCh*W 0 get def /xfact 15 def /yfact 15 def /xp0 xp 0400 add def /yp0 yp 1000 sub def /xpN xp0 1000 sub def /ypN yp0 1000 sub def xp0 1750 sub yp0 0 sub moveto 3500 0 rlineto stroke %horizontal axis xp0 0000 add yp0 1250 sub moveto 0 3000 rlineto stroke %vertical axis xp0 1500 sub yp0 70 sub moveto 0 140 rlineto stroke %vertical marks xp0 0750 sub yp0 70 sub moveto 0 140 rlineto stroke xp0 0750 add yp0 70 sub moveto 0 140 rlineto stroke xp0 1500 add yp0 70 sub moveto 0 140 rlineto stroke TS xp0 1800 sub yp0 220 sub moveto (-100) show %horizontal scale xp0 1100 sub yp0 220 sub moveto (-50) show xp0 0550 add yp0 220 sub moveto ( 50) show xp0 1300 add yp0 220 sub moveto (100) show xp0 70 sub yp0 1500 add moveto 140 0 rlineto stroke %horizontal marks xp0 70 sub yp0 0750 add moveto 140 0 rlineto stroke xp0 70 sub yp0 0750 sub moveto 140 0 rlineto stroke xp0 400 sub yp0 1500 add moveto (100) show %vertical scale xp0 300 sub yp0 0700 add moveto (50) show xp0 400 sub yp0 0900 sub moveto (-50) show xp0 0100 add yp0 1550 add moveto TBIK (b*) show xp0 1800 add yp0 0050 sub moveto TBIK (a*) show %xp0 yp0 0750 0 360 arc stroke %xp0 yp0 1500 0 360 arc stroke 30 setlinewidth 0 1 5 {/i exch def %i=0,5 0 setgray /i5 i 5 mul def /xi xp0 OLABa i5 1 add get xfact mul add def /yi yp0 OLABa i5 2 add get yfact mul add def i 0 eq {/xi0 xi def /yi0 yi def xi0 yi0 moveto} if i 1 ge {xi yi lineto} if i 5 eq {xi0 yi0 lineto stroke} if } for %i=0,5 0 1 5 {/i exch def %i=0,5 1 1 3 {/k exch def %k=1,3 0 setgray /i34 i 12 mul k 3 mul add def /i5 i 5 mul def /xi0 xp0 OLABa i5 1 add get xfact mul add def /yi0 yp0 OLABa i5 2 add get yfact mul add def i 4 le {%i<=4 /i51 i5 5 add def /xi1 xp0 OLABa i51 1 add get xfact mul add def /yi1 yp0 OLABa i51 2 add get yfact mul add def } {%i=5 /i51 0 def /xi1 xp0 OLABa i51 1 add get xfact mul add def /yi1 yp0 OLABa i51 2 add get yfact mul add def } ifelse /xiM xi0 xi1 xi0 sub k 0.25 mul mul add def /yiM yi0 yi1 yi0 sub k 0.25 mul mul add def /r rgb*Y i34 3 add get def /g rgb*Y i34 4 add get def /b rgb*Y i34 5 add get def r g b setrgbcolor xiM yiM 0050 0 360 arc fill } for %k=1,3 } for %i=0,5 newpath /xshift 6 array def /yshift 6 array def /xshift [-300 100 000 -050 -300 -300] def /yshift [-200 -200 -300 120 -100 -100] def 0 1 5 {/i exch def %i=0,5 0 setgray /i3 i 3 mul def /i5 i 5 mul def /xi xp0 OLABa i5 1 add get xfact mul add def /yi yp0 OLABa i5 2 add get yfact mul add def xi yi 0100 0 360 arc fill /r rgb*X i3 0 add get def /g rgb*X i3 1 add get def /b rgb*X i3 2 add get def r g b setrgbcolor xi yi 0050 0 360 arc fill newpath 0 setgray xi xshift i get add yi yshift i get add moveto tex*B i get show newpath } for %i=0,5 20 setlinewidth 0 setgray xpN 2300 add ypN 2550 add moveto (6 Anker\255Farbpaare) showde (6 anker colour pairs) showen 0 1 5 {/i exch def %i=0,5 %six colours /i3 i 3 mul def /i5 i 5 mul def i 2 le {/ix i def /n 0 def} {/ix i 3 sub def /n 1 def} ifelse 0 setgray [40] 40 setdash /xpNj xpN 2300 add 100 add ix 900 mul add def /ypNj ypN 2400 add n 300 mul sub def xpNj ypNj moveto 0600 0 rlineto stroke [ ] 0 setdash 0 0 0 setrgbcolor xpNj ypNj 100 0 360 arc fill xpNj 600 add ypNj 100 0 360 arc fill /r rgb*X i3 0 add get def /g rgb*X i3 1 add get def /b rgb*X i3 2 add get def r g b setrgbcolor xpNj ypNj 050 0 360 arc fill i 4 le {/i31 i3 3 add def} {/i31 0 def} ifelse /r rgb*X i31 0 add get def /g rgb*X i31 1 add get def /b rgb*X i31 2 add get def r g b setrgbcolor xpNj 600 add ypNj 050 0 360 arc fill } for %i=0,5 0 setgray xpN 2300 add ypN 1800 add moveto (6 Triplet\255Farbserien) showde (6 triplet colour series) showen 0 1 5 {/i exch def %i=0,5 %six colours /i3 i 3 mul def /i5 i 5 mul def i 2 le {/ix i def /n 0 def} {/ix i 3 sub def /n 1 def} ifelse 0 setgray [40] 40 setdash /xpNj xpN 2300 add 100 add ix 900 mul add def /ypNj ypN 1650 add n 300 mul sub def xpNj ypNj moveto 0600 0 rlineto stroke [ ] 0 setdash 0 0 0 setrgbcolor xpNj ypNj 100 0 360 arc fill xpNj 600 add ypNj 100 0 360 arc fill /r rgb*X i3 0 add get def /g rgb*X i3 1 add get def /b rgb*X i3 2 add get def r g b setrgbcolor xpNj ypNj 050 0 360 arc fill newpath i 4 le {/i31 i3 3 add def} {/i31 0 def} ifelse i 3 eq {%i=3 40 setlinewidth 0 setgray xpNj 300 add 70 sub ypNj moveto 140 0 rlineto stroke xpNj 300 add ypNj 70 sub moveto 0 140 rlineto stroke 20 setlinewidth } if %i=3 /r rgb*X i31 0 add get def /g rgb*X i31 1 add get def /b rgb*X i31 2 add get def r g b setrgbcolor xpNj 300 add 70 sub ypNj moveto 140 0 rlineto stroke xpNj 300 add ypNj 70 sub moveto 0 140 rlineto stroke newpath i 3 le {/i31 i3 6 add def} {/i31 0 def} ifelse i 4 eq {/i31 0 def} if i 5 eq {/i31 3 def} if /r rgb*X i31 0 add get def /g rgb*X i31 1 add get def /b rgb*X i31 2 add get def r g b setrgbcolor xpNj 600 add ypNj 050 0 360 arc fill } for %i=0,5 showpage grestore %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 12 %line 349 %!PS-Adobe-3.0 EPSF-3.0 XE390-2, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (XE390-2,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 03 MM sub 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 13 %line 359 %!PS-Adobe-3.0 EPSF-3.0 XE390-3N %%BoundingBox: 70 83 245 190 %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://130.149.60.45/~farbmetrik/SE25/) /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, colour vision) /Creator (klaus.richter@mac.com) /CreationDate (D:2016070112000) /ModDate (D:2016070112000) /DOCINFO pdfmark03 [ /View [ /FitB ] /DOCVIEW pdfmark03 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /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 /TV {160 /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 /TIV {160 /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 /TBV {160 /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 /TBIV {160 /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 /SV {160 /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 %%EndProlog gsave /nshow {TS show} bind def /kshow {TIS show} bind def /bshow {TBS show} bind def /jshow {TBIS show} bind def /ibshown {TBS -50 -50 rmoveto show 0 50 rmoveto TBS} bind def /ibshow0 {TBS -00 -50 rmoveto show 0 50 rmoveto TBS} bind def /ishown {TS -50 -50 rmoveto show 0 50 rmoveto TS } bind def /ishow0 {TS -00 -50 rmoveto show 0 50 rmoveto TS } bind def %40% kleiner /ns4 {250 /Times-ISOL1 FS show TK} bind def /ks4 {250 /TimesI-ISOL1 FS show TK} bind def /bs4 {250 /TimesB-ISOL1 FS show TK} bind def /js4 {250 /TimesBI-ISOL1 FS show TK} bind def /ss4 {250 /Symbol FS show TK} bind def /is4 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /es4 {200 /Times-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ib4 {200 /TimesB-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /eb4 {200 /TimesB-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ip4 {200 /Times-ISOL1 FS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def %60% kleiner /ns6 {200 /Times-ISOL1 FS show TS} bind def /ks6 {200 /TimesI-ISOL1 FS show TS} bind def /bs6 {200 /TimesB-ISOL1 FS show TS} bind def /js6 {200 /TimesBI-ISOL1 FS show TS} bind def /ss6 {200 /Symbol FS show TS} bind def /is6 {160 /Times-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /es6 {160 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ib6 {160 /TimesB-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /eb6 {160 /TimesB-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ip6 {160 /Times-ISOL1 FS 24 24 rmoveto (\267) show 24 -24 rmoveto TS} bind /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show} def %************************************************************* %Aus Kittelmann_CD_DA/Daten der Ausertung/ %Farbwerte der Farbfelder und Reihen.xls/CIELAB_1 %siehe auch Dipl-Arbeit Seite 31 ff /LAB_KIi 3100 array def %310x10 /LAB_KIi [ %n L*r a*r b*r L*t a*t b*t E*r-t C*r h*r % L*r a*r b*r CIELAB data of 310 printel samples, see page 34 % 95.410 -0.980 4.760 ISO 15775 Papierweiss Tab. 2.2 1 94.806 -1.832 6.977 95.410 -0.980 4.760 2.450 7.213 104.710 2 76.937 -16.536 -18.248 77.015 -15.805 -18.995 1.048 24.626 227.818 3 59.410 -30.942 -42.455 58.620 -30.630 -42.750 0.899 52.534 233.915 4 94.807 -1.883 7.035 95.410 -0.980 4.760 2.520 7.282 104.985 5 76.919 -16.503 -18.327 77.015 -15.805 -18.995 0.971 24.663 227.998 6 59.468 -30.964 -42.431 58.620 -30.630 -42.750 0.966 52.528 233.880 7 94.796 -1.848 7.051 95.410 -0.980 4.760 2.526 7.289 104.684 8 60.143 15.422 -18.907 60.565 15.185 -19.800 1.016 24.399 309.204 9 27.166 31.237 -43.580 25.720 31.350 -44.360 1.646 53.619 305.632 10 94.811 -1.797 6.812 95.410 -0.980 4.760 2.288 7.045 104.775 11 60.039 15.614 -19.124 60.565 15.185 -19.800 0.958 24.689 309.231 12 27.145 31.257 -43.757 25.720 31.350 -44.360 1.550 53.774 305.539 13 94.813 -1.742 6.702 95.410 -0.980 4.760 2.170 6.925 104.573 14 71.354 37.382 -0.087 71.770 37.110 -1.020 1.057 37.382 359.867 15 48.299 74.762 -6.470 48.130 75.200 -6.800 0.573 75.042 355.054 16 94.862 -1.790 6.808 95.410 -0.980 4.760 2.269 7.039 104.734 17 71.430 37.531 -0.146 71.770 37.110 -1.020 1.028 37.531 359.777 18 48.348 75.034 -6.602 48.130 75.200 -6.800 0.338 75.324 354.972 19 94.829 -1.679 6.457 95.410 -0.980 4.760 1.925 6.672 104.576 20 71.895 30.271 30.198 71.675 32.165 28.415 2.611 42.758 44.931 21 48.389 65.379 52.900 47.940 65.310 52.070 0.946 84.100 38.977 22 94.841 -1.727 6.563 95.410 -0.980 4.760 2.033 6.787 104.743 23 71.834 30.282 30.495 71.675 32.165 28.415 2.810 42.976 45.200 24 48.373 65.160 52.576 47.940 65.310 52.070 0.683 83.726 38.899 25 94.856 -1.811 6.930 95.410 -0.980 4.760 2.389 7.163 104.645 26 91.995 -9.864 53.175 92.890 -6.070 50.465 4.747 54.082 100.509 27 88.831 -7.617 100.643 90.370 -11.160 96.170 5.910 100.931 94.328 28 94.840 -1.857 6.961 95.410 -0.980 4.760 2.437 7.204 104.938 29 91.969 -9.864 53.060 92.890 -6.070 50.465 4.688 53.969 100.532 30 88.822 -7.585 99.964 90.370 -11.160 96.170 5.438 100.251 94.339 31 94.843 -1.831 6.986 95.410 -0.980 4.760 2.450 7.223 104.689 32 72.670 -33.310 23.706 73.155 -31.970 20.735 3.296 40.885 144.561 33 52.763 -62.634 40.725 50.900 -62.960 36.710 4.438 74.710 146.968 34 94.844 -1.844 6.940 95.410 -0.980 4.760 2.413 7.181 104.883 35 72.659 -33.330 23.584 73.155 -31.970 20.735 3.195 40.830 144.717 36 52.751 -62.659 40.456 50.900 -62.960 36.710 4.189 74.585 147.152 37 59.858 -30.723 -42.299 58.620 -30.630 -42.750 1.321 52.279 234.008 38 39.512 -15.438 -20.098 38.315 -15.065 -21.605 1.960 25.343 232.471 39 20.439 0.604 1.879 18.010 0.500 -0.460 3.374 1.974 72.184 40 59.843 -30.628 -42.217 58.620 -30.630 -42.750 1.334 52.157 234.039 41 39.472 -15.216 -20.290 38.315 -15.065 -21.605 1.759 25.361 233.132 42 20.596 0.834 1.790 18.010 0.500 -0.460 3.444 1.975 65.031 43 28.050 31.224 -43.592 25.720 31.350 -44.360 2.457 53.621 305.613 44 24.428 16.573 -21.290 21.865 15.925 -22.410 2.871 26.980 307.898 45 20.775 1.062 1.849 18.010 0.500 -0.460 3.646 2.132 60.115 46 27.951 31.592 -43.586 25.720 31.350 -44.360 2.374 53.831 305.935 47 24.413 16.789 -21.558 21.865 15.925 -22.410 2.822 27.324 307.911 48 20.742 1.238 1.780 18.010 0.500 -0.460 3.609 2.168 55.193 49 47.685 75.265 -6.106 48.130 75.200 -6.800 0.827 75.513 355.362 50 34.058 36.976 -1.848 33.070 37.850 -3.630 2.217 37.022 357.138 51 19.828 0.759 1.618 18.010 0.500 -0.460 2.773 1.787 64.874 52 47.770 75.333 -6.073 48.130 75.200 -6.800 0.823 75.577 355.391 53 34.024 36.746 -1.841 33.070 37.850 -3.630 2.308 36.792 357.131 54 19.895 0.766 1.713 18.010 0.500 -0.460 2.889 1.877 65.917 55 48.084 65.391 53.701 47.940 65.310 52.070 1.639 84.616 39.394 56 33.902 32.769 28.182 32.975 32.905 25.805 2.555 43.221 40.696 57 20.096 0.689 1.832 18.010 0.500 -0.460 3.105 1.958 69.398 58 48.093 65.240 53.510 47.940 65.310 52.070 1.449 84.377 39.358 59 33.983 32.963 28.200 32.975 32.905 25.805 2.599 43.379 40.547 60 20.045 0.703 1.815 18.010 0.500 -0.460 3.059 1.946 68.836 61 88.969 -7.916 99.202 90.370 -11.160 96.170 4.656 99.517 94.562 62 54.202 -4.710 50.539 54.190 -5.330 47.855 2.755 50.758 95.324 63 20.513 1.218 2.043 18.010 0.500 -0.460 3.612 2.379 59.195 64 88.968 -7.927 98.732 90.370 -11.160 96.170 4.357 99.050 94.591 65 54.261 -4.648 50.299 54.190 -5.330 47.855 2.539 50.514 95.279 66 20.641 0.847 1.666 18.010 0.500 -0.460 3.401 1.869 63.062 67 53.549 -61.840 40.746 50.900 -62.960 36.710 4.956 74.057 146.619 68 35.886 -31.821 20.383 34.455 -31.230 18.125 2.738 37.790 147.359 69 20.920 1.315 2.010 18.010 0.500 -0.460 3.903 2.401 56.801 70 53.497 -62.212 40.195 50.900 -62.960 36.710 4.410 74.067 147.134 71 35.953 -31.500 20.084 34.455 -31.230 18.125 2.481 37.358 147.479 72 20.895 1.150 1.709 18.010 0.500 -0.460 3.667 2.059 56.060 73 94.784 -1.844 6.954 95.410 -0.980 4.760 2.440 7.194 104.855 74 57.474 -0.187 4.308 56.710 -0.240 2.150 2.290 4.312 92.481 75 19.853 0.660 2.057 18.010 0.500 -0.460 3.124 2.160 72.205 76 94.850 -1.803 6.917 95.410 -0.980 4.760 2.376 7.148 104.613 77 57.492 -0.158 4.396 56.710 -0.240 2.150 2.380 4.399 92.060 78 19.840 0.774 1.873 18.010 0.500 -0.460 2.978 2.026 67.556 79 94.712 -1.740 6.671 95.410 -0.980 4.760 2.171 6.894 104.624 80 75.767 -1.256 4.576 76.060 -0.610 3.455 1.327 4.745 105.346 81 57.770 -0.029 4.084 56.710 -0.240 2.150 2.215 4.084 90.406 82 38.879 0.418 3.397 37.360 0.130 0.845 2.983 3.422 82.988 83 20.500 0.760 1.906 18.010 0.500 -0.460 3.445 2.052 68.276 84 94.746 -1.749 6.752 95.410 -0.980 4.760 2.236 6.975 104.522 85 75.784 -1.036 4.321 76.060 -0.610 3.455 1.004 4.443 103.478 86 57.797 0.122 4.078 56.710 -0.240 2.150 2.243 4.080 88.280 87 38.909 0.429 3.229 37.360 0.130 0.845 2.859 3.258 82.432 88 20.404 0.745 1.681 18.010 0.500 -0.460 3.221 1.839 66.098 89 94.821 -1.758 6.747 95.410 -0.980 4.760 2.214 6.973 104.604 90 86.389 -9.074 -6.237 86.213 -8.393 -7.118 1.128 11.011 214.502 91 76.787 -16.568 -18.756 77.015 -15.805 -18.995 0.832 25.026 228.543 92 68.577 -23.637 -30.298 67.818 -23.218 -30.873 1.041 38.427 232.040 93 59.128 -30.875 -42.876 58.620 -30.630 -42.750 0.578 52.835 234.243 94 94.810 -1.748 6.756 95.410 -0.980 4.760 2.221 6.978 104.505 95 86.419 -8.953 -6.387 86.213 -8.393 -7.118 0.943 10.998 215.505 96 76.820 -16.491 -18.789 77.015 -15.805 -18.995 0.742 25.000 228.727 97 68.658 -23.582 -30.348 67.818 -23.218 -30.873 1.056 38.433 232.151 98 59.211 -30.905 -42.735 58.620 -30.630 -42.750 0.652 52.739 234.127 99 94.672 -1.678 6.502 95.410 -0.980 4.760 2.016 6.715 104.470 100 78.300 7.067 -7.013 77.988 7.103 -7.520 0.597 9.956 315.220 101 60.293 15.348 -19.582 60.565 15.185 -19.800 0.385 24.880 308.089 102 44.203 22.986 -31.712 43.143 23.268 -32.080 1.157 39.167 305.936 103 27.016 31.165 -43.974 25.720 31.350 -44.360 1.365 53.898 305.325 104 94.830 -1.783 6.928 95.410 -0.980 4.760 2.383 7.154 104.433 105 78.257 7.039 -7.270 77.988 7.103 -7.520 0.373 10.119 314.077 106 60.155 15.718 -20.231 60.565 15.185 -19.800 0.798 25.619 307.845 107 44.111 23.540 -32.017 43.143 23.268 -32.080 1.008 39.740 306.324 108 26.626 33.169 -44.169 25.720 31.350 -44.360 2.042 55.237 306.905 109 94.830 -1.701 6.558 95.410 -0.980 4.760 2.022 6.775 104.543 110 83.971 17.488 2.916 83.590 18.065 1.870 1.254 17.729 9.468 111 71.531 37.398 -0.616 71.770 37.110 -1.020 0.550 37.403 359.056 112 60.110 56.166 -3.810 59.950 56.155 -3.910 0.189 56.295 356.120 113 48.082 74.995 -6.574 48.130 75.200 -6.800 0.309 75.282 354.990 114 94.878 -1.729 6.630 95.410 -0.980 4.760 2.084 6.852 104.617 115 83.935 17.501 2.928 83.590 18.065 1.870 1.247 17.744 9.497 116 71.513 37.496 -0.695 71.770 37.110 -1.020 0.566 37.502 358.938 117 60.110 56.159 -3.719 59.950 56.155 -3.910 0.249 56.282 356.211 118 48.182 74.902 -6.412 48.130 75.200 -6.800 0.492 75.176 355.107 119 94.804 -1.818 7.199 95.410 -0.980 4.760 2.649 7.425 104.176 120 82.777 14.554 17.861 83.543 15.593 16.588 1.812 23.040 50.825 121 71.216 31.512 29.973 71.675 32.165 28.415 1.750 43.490 43.566 122 59.233 49.560 42.426 59.808 48.738 40.243 2.403 65.239 40.565 123 47.901 65.572 53.795 47.940 65.310 52.070 1.745 84.815 39.365 124 94.772 -1.833 6.825 95.410 -0.980 4.760 2.324 7.067 105.036 125 82.720 14.616 17.563 83.543 15.593 16.588 1.607 22.849 50.232 126 71.256 31.437 30.263 71.675 32.165 28.415 2.030 43.636 43.910 127 59.267 49.547 42.334 59.808 48.738 40.243 2.306 65.169 40.511 128 47.815 65.383 53.061 47.940 65.310 52.070 1.001 84.204 39.061 129 94.840 -1.780 6.905 95.410 -0.980 4.760 2.359 7.131 104.455 130 93.112 -6.364 28.580 94.150 -3.525 27.613 3.174 29.280 102.554 131 92.030 -9.686 51.982 92.890 -6.070 50.465 4.014 52.877 100.555 132 90.731 -10.442 77.889 91.630 -8.615 73.318 5.005 78.586 97.636 133 88.925 -7.755 98.630 90.370 -11.160 96.170 4.442 98.935 94.496 134 94.750 -1.706 6.774 95.410 -0.980 4.760 2.240 6.985 104.140 135 93.456 -6.983 29.551 94.150 -3.525 27.613 4.024 30.365 103.295 136 91.762 -9.588 54.588 92.890 -6.070 50.465 5.536 55.424 99.962 137 90.523 -9.923 78.975 91.630 -8.615 73.318 5.912 79.596 97.161 138 88.450 -7.383 99.721 90.370 -11.160 96.170 5.528 99.994 94.234 139 94.774 -1.701 6.618 95.410 -0.980 4.760 2.092 6.833 104.419 140 84.620 -17.161 14.272 84.283 -16.475 12.748 1.706 22.320 140.250 141 72.841 -32.934 22.138 73.155 -31.970 20.735 1.731 39.683 146.092 142 63.629 -47.768 31.268 62.028 -47.465 28.723 3.022 57.091 146.792 143 53.074 -62.749 39.986 50.900 -62.960 36.710 3.938 74.407 147.493 144 94.824 -1.732 6.644 95.410 -0.980 4.760 2.111 6.866 104.611 145 84.610 -17.132 14.251 84.283 -16.475 12.748 1.673 22.284 140.245 146 72.795 -32.837 21.866 73.155 -31.970 20.735 1.470 39.451 146.341 147 63.609 -47.604 30.857 62.028 -47.465 28.723 2.660 56.730 147.049 148 53.068 -62.538 39.758 50.900 -62.960 36.710 3.764 74.106 147.554 149 59.304 -30.836 -42.453 58.620 -30.630 -42.750 0.774 52.471 234.007 150 48.835 -23.073 -32.162 48.468 -22.848 -32.178 0.431 39.582 234.345 151 38.544 -15.514 -20.880 38.315 -15.065 -21.605 0.883 26.012 233.387 152 28.577 -8.727 -9.949 28.163 -7.283 -11.033 1.853 13.234 228.743 153 19.400 0.578 1.071 18.010 0.500 -0.460 2.069 1.217 61.645 154 59.283 -30.812 -42.644 58.620 -30.630 -42.750 0.696 52.611 234.150 155 49.013 -23.128 -32.035 48.468 -22.848 -32.178 0.630 39.512 234.172 156 38.632 -15.429 -21.396 38.315 -15.065 -21.605 0.526 26.379 234.205 157 28.626 -9.032 -10.165 28.163 -7.283 -11.033 2.007 13.598 228.377 158 19.526 0.414 1.083 18.010 0.500 -0.460 2.165 1.159 69.068 159 26.747 31.469 -43.910 25.720 31.350 -44.360 1.128 54.022 305.628 160 25.010 24.152 -33.934 23.793 23.638 -33.385 1.431 41.651 305.440 161 23.199 16.450 -22.261 21.865 15.925 -22.410 1.441 27.680 306.463 162 21.560 8.223 -9.882 19.938 8.213 -11.435 2.246 12.856 309.764 163 19.767 0.771 1.400 18.010 0.500 -0.460 2.573 1.598 61.142 164 26.466 33.265 -43.952 25.720 31.350 -44.360 2.096 55.121 307.121 165 24.531 25.256 -34.061 23.793 23.638 -33.385 1.903 42.403 306.557 166 22.532 17.348 -22.759 21.865 15.925 -22.410 1.610 28.617 307.317 167 21.297 9.116 -10.038 19.938 8.213 -11.435 2.148 13.559 312.243 168 20.241 1.362 2.421 18.010 0.500 -0.460 3.745 2.778 60.648 169 47.954 75.045 -6.124 48.130 75.200 -6.800 0.715 75.294 355.335 170 39.935 56.633 -5.204 40.600 56.525 -5.215 0.674 56.872 354.750 171 34.317 37.076 -2.591 33.070 37.850 -3.630 1.798 37.166 356.003 172 27.113 19.906 0.097 25.540 19.175 -2.045 2.756 19.906 0.279 173 20.282 0.865 1.650 18.010 0.500 -0.460 3.122 1.863 62.340 174 48.114 74.940 -6.437 48.130 75.200 -6.800 0.447 75.216 355.091 175 40.005 56.475 -5.385 40.600 56.525 -5.215 0.621 56.731 354.553 176 34.340 37.261 -2.923 33.070 37.850 -3.630 1.569 37.376 355.515 177 27.115 19.691 -0.318 25.540 19.175 -2.045 2.394 19.694 359.076 178 20.357 0.721 1.317 18.010 0.500 -0.460 2.952 1.501 61.306 179 47.885 65.560 53.596 47.940 65.310 52.070 1.548 84.680 39.267 180 40.159 49.175 39.907 40.458 49.108 38.938 1.017 63.331 39.061 181 33.458 32.557 27.471 32.975 32.905 25.805 1.770 42.598 40.158 182 26.575 18.004 15.031 25.493 16.703 12.673 2.904 23.454 39.858 183 19.509 0.349 1.149 18.010 0.500 -0.460 2.205 1.201 73.119 184 47.899 65.372 53.449 47.940 65.310 52.070 1.381 84.441 39.270 185 40.193 49.025 39.636 40.458 49.108 38.938 0.752 63.043 38.955 186 33.443 32.649 27.569 32.975 32.905 25.805 1.843 42.732 40.179 187 26.586 17.967 15.189 25.493 16.703 12.673 3.021 23.527 40.209 188 19.559 0.718 1.107 18.010 0.500 -0.460 2.214 1.319 57.028 189 88.855 -7.734 98.558 90.370 -11.160 96.170 4.442 98.861 94.487 190 72.418 -8.190 74.514 72.280 -8.245 72.013 2.506 74.962 96.272 191 53.856 -5.000 49.618 54.190 -5.330 47.855 1.824 49.869 95.755 192 37.368 -2.171 26.048 36.100 -2.415 23.698 2.682 26.138 94.764 193 19.741 0.588 1.403 18.010 0.500 -0.460 2.544 1.521 67.252 194 88.335 -7.243 99.966 90.370 -11.160 96.170 5.821 100.228 94.144 195 72.521 -8.080 74.951 72.280 -8.245 72.013 2.953 75.385 96.153 196 54.041 -4.892 50.769 54.190 -5.330 47.855 2.951 51.005 95.504 197 37.291 -2.102 27.349 36.100 -2.415 23.698 3.854 27.430 94.394 198 20.047 1.076 1.865 18.010 0.500 -0.460 3.144 2.153 60.022 199 52.992 -62.907 39.847 50.900 -62.960 36.710 3.771 74.466 147.649 200 44.029 -47.586 30.202 42.678 -47.095 27.418 3.134 56.361 147.598 201 35.211 -32.267 19.159 34.455 -31.230 18.125 1.648 37.526 149.301 202 26.980 -16.066 9.803 26.233 -15.365 8.833 1.411 18.821 148.611 203 20.466 0.704 1.621 18.010 0.500 -0.460 3.225 1.767 66.517 204 52.908 -62.721 39.980 50.900 -62.960 36.710 3.845 74.379 147.486 205 43.965 -47.550 30.261 42.678 -47.095 27.418 3.154 56.362 147.527 206 35.087 -31.927 19.339 34.455 -31.230 18.125 1.536 37.328 148.796 207 26.972 -15.836 9.697 26.233 -15.365 8.833 1.232 18.569 148.519 208 20.294 0.770 1.635 18.010 0.500 -0.460 3.111 1.808 64.791 209 94.809 -1.830 6.976 95.410 -0.980 4.760 2.449 7.212 104.699 210 58.984 -30.966 -42.837 58.620 -30.630 -42.750 0.503 52.858 234.137 211 19.349 0.469 1.318 18.010 0.500 -0.460 2.226 1.398 70.426 212 94.944 -1.846 7.105 95.410 -0.980 4.760 2.543 7.341 104.567 213 58.971 -30.882 -42.895 58.620 -30.630 -42.750 0.456 52.855 234.248 214 19.176 0.272 0.555 18.010 0.500 -0.460 1.563 0.618 63.872 215 94.790 -1.802 6.934 95.410 -0.980 4.760 2.405 7.164 104.566 216 26.440 31.213 -44.153 25.720 31.350 -44.360 0.762 54.072 305.257 217 19.441 0.489 1.328 18.010 0.500 -0.460 2.290 1.415 69.769 218 94.798 -1.798 6.914 95.410 -0.980 4.760 2.385 7.145 104.579 219 26.313 31.108 -44.083 25.720 31.350 -44.360 0.697 53.954 305.210 220 19.377 0.342 0.924 18.010 0.500 -0.460 1.951 0.985 69.704 221 94.819 -1.802 6.895 95.410 -0.980 4.760 2.363 7.127 104.645 222 47.850 74.956 -6.176 48.130 75.200 -6.800 0.726 75.210 355.289 223 19.840 0.541 1.276 18.010 0.500 -0.460 2.523 1.386 67.045 224 94.770 -1.747 6.714 95.410 -0.980 4.760 2.194 6.937 104.589 225 47.821 75.208 -5.965 48.130 75.200 -6.800 0.890 75.444 355.465 226 19.694 0.611 1.037 18.010 0.500 -0.460 2.255 1.203 59.503 227 94.825 -1.776 6.746 95.410 -0.980 4.760 2.218 6.976 104.750 228 48.028 65.260 53.084 47.940 65.310 52.070 1.019 84.124 39.126 229 19.876 0.685 0.983 18.010 0.500 -0.460 2.366 1.198 55.119 230 94.757 -1.745 6.631 95.410 -0.980 4.760 2.124 6.857 104.740 231 48.025 65.348 52.692 47.940 65.310 52.070 0.629 83.945 38.880 232 19.948 0.440 0.952 18.010 0.500 -0.460 2.398 1.049 65.224 233 94.873 -1.904 7.232 95.410 -0.980 4.760 2.693 7.478 104.749 234 88.844 -7.513 99.977 90.370 -11.160 96.170 5.488 100.259 94.298 235 19.166 0.454 1.197 18.010 0.500 -0.460 2.021 1.280 69.252 236 94.774 -1.875 7.051 95.410 -0.980 4.760 2.540 7.296 104.892 237 88.796 -7.519 99.400 90.370 -11.160 96.170 5.115 99.684 94.326 238 19.338 0.352 0.841 18.010 0.500 -0.460 1.865 0.912 67.297 239 94.804 -1.889 7.199 95.410 -0.980 4.760 2.672 7.443 104.699 240 52.200 -63.279 39.813 50.900 -62.960 36.710 3.380 74.762 147.823 241 19.336 0.468 1.313 18.010 0.500 -0.460 2.214 1.394 70.403 242 94.841 -1.856 7.078 95.410 -0.980 4.760 2.542 7.317 104.693 243 52.201 -63.318 39.205 50.900 -62.960 36.710 2.837 74.473 148.235 244 19.327 0.532 0.810 18.010 0.500 -0.460 1.830 0.969 56.705 245 59.110 -30.725 -42.847 58.620 -30.630 -42.750 0.508 52.725 234.357 246 26.841 31.207 -43.931 25.720 31.350 -44.360 1.209 53.887 305.389 247 47.998 74.766 -5.917 48.130 75.200 -6.800 0.993 74.999 355.475 248 59.180 -30.727 -42.860 58.620 -30.630 -42.750 0.579 52.736 234.363 249 26.918 30.963 -43.680 25.720 31.350 -44.360 1.431 53.541 305.332 250 47.960 74.748 -5.974 48.130 75.200 -6.800 0.957 74.987 355.431 251 47.932 74.957 -6.193 48.130 75.200 -6.800 0.683 75.213 355.277 252 47.999 65.290 53.196 47.940 65.310 52.070 1.127 84.217 39.172 253 88.840 -7.715 98.748 90.370 -11.160 96.170 4.567 99.049 94.467 254 47.938 74.793 -6.065 48.130 75.200 -6.800 0.862 75.039 355.364 255 47.995 65.199 52.614 47.940 65.310 52.070 0.558 83.781 38.902 256 88.992 -7.768 98.150 90.370 -11.160 96.170 4.162 98.457 94.525 257 88.806 -7.564 99.378 90.370 -11.160 96.170 5.066 99.666 94.353 258 52.054 -63.456 39.583 50.900 -62.960 36.710 3.136 74.790 148.045 259 58.953 -30.907 -42.839 58.620 -30.630 -42.750 0.442 52.824 234.190 260 88.799 -7.554 99.130 90.370 -11.160 96.170 4.923 99.418 94.358 261 52.114 -63.302 39.247 50.900 -62.960 36.710 2.833 74.482 148.202 262 59.070 -30.873 -42.721 58.620 -30.630 -42.750 0.513 52.709 234.145 263 26.607 31.110 -43.675 25.720 31.350 -44.360 1.146 53.622 305.462 264 58.916 -30.902 -42.852 58.620 -30.630 -42.750 0.414 52.832 234.204 265 52.088 -63.025 39.540 50.900 -62.960 36.710 3.070 74.401 147.897 266 26.722 30.906 -43.822 25.720 31.350 -44.360 1.220 53.624 305.194 267 59.121 -30.882 -42.788 58.620 -30.630 -42.750 0.562 52.769 234.181 268 52.256 -63.141 39.105 50.900 -62.960 36.710 2.758 74.269 148.229 269 52.510 -62.813 39.840 50.900 -62.960 36.710 3.523 74.382 147.615 270 88.821 -7.677 99.211 90.370 -11.160 96.170 4.876 99.507 94.425 271 47.854 65.422 53.179 47.940 65.310 52.070 1.118 84.309 39.106 272 52.472 -62.907 39.443 50.900 -62.960 36.710 3.153 74.250 147.912 273 88.911 -7.687 98.611 90.370 -11.160 96.170 4.488 98.910 94.458 274 48.184 65.048 53.192 47.940 65.310 52.070 1.177 84.027 39.274 275 47.989 65.268 53.085 47.940 65.310 52.070 1.017 84.130 39.122 276 47.951 74.898 -5.916 48.130 75.200 -6.800 0.951 75.131 355.484 277 26.916 31.080 -43.714 25.720 31.350 -44.360 1.386 53.637 305.412 278 48.097 65.075 52.962 47.940 65.310 52.070 0.936 83.903 39.141 279 47.899 75.065 -6.424 48.130 75.200 -6.800 0.461 75.339 355.109 280 26.923 31.161 -44.194 25.720 31.350 -44.360 1.229 54.075 305.188 281 59.056 -30.846 -42.596 58.620 -30.630 -42.750 0.510 52.592 234.090 282 42.393 -0.024 -43.358 42.170 0.360 -43.555 0.485 43.358 269.969 283 26.201 31.341 -43.878 25.720 31.350 -44.360 0.681 53.922 305.538 284 35.879 52.754 -25.625 36.925 53.275 -25.580 1.170 58.649 334.092 285 47.697 75.104 -5.768 48.130 75.200 -6.800 1.123 75.325 355.608 286 59.077 -30.803 -42.830 58.620 -30.630 -42.750 0.495 52.757 234.277 287 42.530 0.124 -43.449 42.170 0.360 -43.555 0.443 43.449 270.163 288 26.456 31.114 -43.949 25.720 31.350 -44.360 0.875 53.848 305.297 289 36.149 53.085 -25.997 36.925 53.275 -25.580 0.901 59.109 333.908 290 47.813 74.760 -5.930 48.130 75.200 -6.800 1.026 74.995 355.465 291 47.681 75.057 -5.678 48.130 75.200 -6.800 1.217 75.271 355.674 292 48.009 70.346 23.542 48.035 70.255 22.635 0.912 74.181 18.503 293 47.948 65.385 53.204 47.940 65.310 52.070 1.137 84.297 39.135 294 69.043 27.507 75.803 69.155 27.075 74.120 1.742 80.640 70.055 295 88.877 -7.732 98.861 90.370 -11.160 96.170 4.607 99.162 94.472 296 47.708 75.078 -5.934 48.130 75.200 -6.800 0.971 75.312 355.481 297 48.137 70.269 23.468 48.035 70.255 22.635 0.839 74.085 18.468 298 47.993 65.415 53.124 47.940 65.310 52.070 1.060 84.269 39.080 299 69.008 27.609 75.411 69.155 27.075 74.120 1.405 80.306 69.892 300 88.950 -7.638 98.601 90.370 -11.160 96.170 4.509 98.897 94.429 301 88.888 -7.777 98.464 90.370 -11.160 96.170 4.348 98.770 94.516 302 69.977 -37.776 67.450 70.635 -37.060 66.440 1.402 77.308 119.251 303 52.753 -62.962 39.380 50.900 -62.960 36.710 3.250 74.263 147.976 304 56.064 -46.601 -2.263 54.760 -46.795 -3.020 1.520 46.656 182.780 305 59.454 -30.783 -42.623 58.620 -30.630 -42.750 0.858 52.577 234.163 306 88.698 -7.654 98.411 90.370 -11.160 96.170 4.484 98.708 94.447 307 69.890 -37.662 67.446 70.635 -37.060 66.440 1.389 77.249 119.179 308 52.671 -62.821 38.863 50.900 -62.960 36.710 2.791 73.870 148.258 309 55.892 -46.803 -2.516 54.760 -46.795 -3.020 1.239 46.871 183.077 310 59.528 -30.492 -42.511 58.620 -30.630 -42.750 0.949 52.316 234.349 ] def %LAB_KIi %************************************************************* /D57SERWi 2000 array def %max 57 series of 15 data (100x20) /D57SERWi [%BEG D57SERWi top data WANG_ELCD scaling data %0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %N S N1 N2 N3 N4 N5 NA1 NA2 NA3 NA4 NA5 DV*1i DV*2i WANG1 WANG2 %Serie 1, BAM test chart order 1:25 001 003 001 002 003 000 000 (W) (CW) (C) (0) (0) 26.45 26.39 (W03) (W04) 002 003 007 008 009 000 000 (W) (VW) (V) (0) (0) 29.54 41.95 (W13) (W14) 003 003 013 014 015 000 000 (W) (MW) (M) (0) (0) 31.00 32.74 (W23) (W24) 004 003 019 020 021 000 000 (W) (OW) (O) (0) (0) 28.01 37.64 (W33) (W34) 005 003 025 026 027 000 000 (W) (YW) (Y) (0) (0) 16.99 11.01 (W43) (W44) 006 003 031 032 033 000 000 (W) (LW) (L) (0) (0) 25.44 28.39 (W53) (W54) %Serie 2, BAM test chart order 1:25 007 003 037 038 039 000 000 (C) (CN) (N) (0) (0) 25.80 35.47 (W06) (W05) 008 003 043 044 045 000 000 (V) (VN) (N) (0) (0) 9.30 16.62 (W16) (W15) 009 003 049 050 051 000 000 (M) (MN) (N) (0) (0) 26.80 29.68 (W26) (W25) 010 003 055 056 057 000 000 (O) (ON) (N) (0) (0) 30.62 34.58 (W36) (W35) 011 003 061 062 063 000 000 (Y) (YN) (N) (0) (0) 29.85 41.77 (W46) (W45) 012 003 067 068 069 000 000 (L) (LN) (N) (0) (0) 18.79 35.12 (W56) (W55) %Serie 3, BAM test chart order 3:27 013 003 209 210 211 000 000 (W) (C) (N) (0) (0) 64.17 61.50 (W01) (W02) 014 003 215 216 217 000 000 (W) (V) (N) (0) (0) 67.03 32.91 (W11) (W12) 015 003 221 222 223 000 000 (W) (M) (N) (0) (0) 74.48 61.26 (W21) (W22) 016 003 227 228 229 000 000 (W) (O) (N) (0) (0) 71.77 67.21 (W31) (W32) 017 003 233 234 235 000 000 (W) (Y) (N) (0) (0) 37.26 86.10 (W41) (W42) 018 003 239 240 241 000 000 (W) (L) (N) (0) (0) 50.89 56.11 (W51) (W52) %Serie 4, BAM test chart order 3:27 019 003 245 246 247 000 000 (C) (V) (M) (0) (0) 41.67 45.01 (W09) (W19) 020 003 251 252 253 000 000 (M) (O) (Y) (0) (0) 28.41 72.32 (W29) (W39) 021 003 257 258 259 000 000 (Y) (L) (C) (0) (0) 64.80 40.72 (W49) (W59) 022 003 263 264 265 000 000 (V) (C) (L) (0) (0) 41.67 40.72 (W09) (W59) 023 003 269 270 271 000 000 (L) (Y) (O) (0) (0) 64.80 72.32 (W49) (W39) 024 003 275 276 277 000 000 (O) (M) (V) (0) (0) 28.41 45.01 (W29) (W19) %Serie 5, BAM test chart order 2:26 %values are missing 025 004 089 090 091 000 000 (W) (Wc) (CW) (0) (0) 26.45 0.00 (W03) (W00) 026 004 099 100 101 102 103 (W) (Wv) (VW) (0) (0) 29.54 0.00 (W13) (W00) 027 004 109 110 111 112 113 (W) (Wm) (MW) (0) (0) 31.00 0.00 (W23) (W00) 028 004 119 120 121 122 123 (W) (Wo) (OW) (0) (0) 28.01 0.00 (W33) (W00) 029 004 129 130 131 132 133 (W) (Wy) (YW) (0) (0) 16.99 0.00 (W43) (W00) 030 004 139 140 141 142 143 (W) (Wl) (LW) (0) (0) 25.44 0.00 (W53) (W00) %Serie 6, BAM test chart order 2:26 031 004 091 092 093 000 000 (CW) (Cw) (C) (0) (0) 26.39 0.00 (W04) (W00) 032 004 101 102 103 000 000 (VW) (Vw) (V) (0) (0) 41.95 0.00 (W14) (W00) 033 004 111 112 113 000 000 (MW) (Mw) (M) (0) (0) 32.74 0.00 (W24) (W00) 034 004 121 122 123 000 000 (OW) (Ow) (O) (0) (0) 37.64 0.00 (W34) (W00) 035 004 131 132 133 000 000 (YW) (Yw) (Y) (0) (0) 110.1 0.00 (W44) (W00) 036 004 141 142 143 000 000 (LW) (Lw) (L) (0) (0) 28.39 0.00 (W54) (W00) %Serie 7, BAM test chart order 2:26 037 004 149 150 151 000 000 (C) (Cn) (CN) (0) (0) 25.80 0.00 (W06) (W00) 038 004 159 160 161 000 000 (V) (Vn) (VN) (0) (0) 9.30 0.00 (W16) (W00) 039 004 169 170 171 000 000 (M) (Mn) (MN) (0) (0) 26.80 0.00 (W26) (W00) 040 004 179 180 181 000 000 (O) (On) (ON) (0) (0) 30.62 0.00 (W36) (W00) 041 004 189 190 191 000 000 (Y) (Yn) (YN) (0) (0) 29.85 0.00 (W46) (W00) 042 004 199 200 201 000 000 (L) (Ln) (LN) (0) (0) 18.79 0.00 (W56) (W00) %Serie 8, BAM test chart order 2:26 043 004 151 152 153 000 000 (CN) (Nc) (N) (0) (0) 61.50 0.00 (W02) (W00) 044 004 161 162 163 000 000 (VN) (Nv) (N) (0) (0) 32.91 0.00 (W12) (W00) 045 004 171 172 173 000 000 (MN) (Nm) (N) (0) (0) 61.26 0.00 (W22) (W00) 046 004 181 182 183 000 000 (ON) (No) (N) (0) (0) 67.21 0.00 (W32) (W00) 047 004 191 192 193 000 000 (YN) (Ny) (N) (0) (0) 86.10 0.00 (W42) (W00) 048 004 201 202 203 000 000 (LN) (Nl) (N) (0) (0) 56.11 0.00 (W52) (W00) %Serie 2N, BAM test chart order 1:25, 1 triplet 049 003 073 074 075 000 000 (W) (WN) (N) (0) (0) 10.00 9.00 (W61) (W62) %Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets 050 004 281 282 283 000 000 (C) (CV) (V) (0) (0) 41.67 0.00 (W09) (W00) 051 004 283 284 285 000 000 (V) (MV) (M) (0) (0) 45.01 0.00 (W19) (W00) 052 004 291 292 293 000 000 (M) (MO) (O) (0) (0) 28.41 0.00 (W29) (W00) 053 004 293 294 295 000 000 (O) (YO) (Y) (0) (0) 72.32 0.00 (W39) (W00) 054 004 301 302 303 000 000 (Y) (YL) (L) (0) (0) 64.80 0.00 (W49) (W00) 055 004 303 304 305 000 000 (L) (CL) (C) (0) (0) 40.72 0.00 (W59) (W00) %Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets 056 004 079 080 081 000 000 (W) (Wn) (WN) (0) (0) 10.00 0.00 (W61) (W00) 057 004 081 082 083 000 000 (WN) (Nw) (N) (0) (0) 9.00 0.00 (W62) (W00) ] def %END D57SERWi %************************************************************* /D57SERVia 2000 array def %max 57 series of 15 data (100x20) /D57SERVia [%BEG D57SERVia top data VIK_ELCD scaling data %0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %N S N1 N2 N3 N4 N5 NA1 NA2 NA3 NA4 NA5 DV*1i DV*2i VIK1 VIK2 %Serie 1, BAM test chart order 1:25 001 003 001 002 003 000 000 (W) (CW) (C) (0) (0) 25.24 39.23 (V01) (V02) 002 003 007 008 009 000 000 (W) (VW) (V) (0) (0) 33.11 46.66 (V03) (V04) 003 003 013 014 015 000 000 (W) (MW) (M) (0) (0) 30.92 45.35 (V05) (V06) 004 003 019 020 021 000 000 (W) (OW) (O) (0) (0) 26.55 46.66 (V07) (V08) 005 003 025 026 027 000 000 (W) (YW) (Y) (0) (0) 22.62 23.06 (V09) (V10) 006 003 031 032 033 000 000 (W) (LW) (L) (0) (0) 29.18 40.98 (V11) (V12) %Serie 2, BAM test chart order 1:25 007 003 037 038 039 000 000 (C) (CN) (N) (0) (0) 38.35 42.73 (V13) (V14) 008 003 043 044 045 000 000 (V) (VN) (N) (0) (0) 21.75 31.36 (V15) (V16) 009 003 049 050 051 000 000 (M) (MN) (N) (0) (0) 40.98 44.47 (V17) (V18) 010 003 055 056 057 000 000 (O) (ON) (N) (0) (0) 34.86 43.16 (V19) (V20) 011 003 061 062 063 000 000 (Y) (YN) (N) (0) (0) 35.73 47.97 (V21) (V22) 012 003 067 068 069 000 000 (L) (LN) (N) (0) (0) 36.17 42.29 (V23) (V24) %Serie 3, BAM test chart order 3:27 013 003 209 210 211 000 000 (W) (C) (N) (0) (0) 53.65 55.40 (V26) (V25) 014 003 215 216 217 000 000 (W) (V) (N) (0) (0) 65.02 29.61 (V28) (V27) 015 003 221 222 223 000 000 (W) (M) (N) (0) (0) 60.21 53.22 (V30) (V29) 016 003 227 228 229 000 000 (W) (O) (N) (0) (0) 58.46 48.84 (V32) (V31) 017 003 233 234 235 000 000 (W) (Y) (N) (0) (0) 37.38 61.52 (V34) (V33) 018 003 239 240 241 000 000 (W) (L) (N) (0) (0) 55.84 45.35 (V36) (V35) %Serie 4, BAM test chart order 3:27 019 003 245 246 247 000 000 (C) (V) (M) (0) (0) 44.47 42.29 (V37) (V38) 020 003 251 252 253 000 000 (M) (O) (Y) (0) (0) 22.62 47.97 (V40) (V39) 021 003 257 258 259 000 000 (Y) (L) (C) (0) (0) 46.22 31.36 (V41) (V42) 022 003 263 264 265 000 000 (V) (C) (L) (0) (0) 48.41 30.49 (V44) (V43) 023 003 269 270 271 000 000 (L) (Y) (O) (0) (0) 51.03 53.65 (V46) (V45) 024 003 275 276 277 000 000 (O) (M) (V) (0) (0) 23.49 48.84 (V47) (V48) %Serie 5, BAM test chart order 2:26 %dummy 26.00: values are missing 025 003 089 090 091 000 000 (W) (Wc) (CW) (0) (0) 25.24 26.00 (V01) (V00) 026 003 099 100 101 000 000 (W) (Wv) (VW) (0) (0) 33.11 26.00 (V03) (V00) 027 003 109 110 111 000 000 (W) (Wm) (MW) (0) (0) 30.92 26.00 (V05) (V00) 028 003 119 120 121 000 000 (W) (Wo) (OW) (0) (0) 26.55 26.00 (V07) (V00) 029 003 129 130 131 000 000 (W) (Wy) (YW) (0) (0) 22.62 26.00 (V09) (V00) 030 003 139 140 141 000 000 (W) (Wl) (LW) (0) (0) 29.18 26.00 (V11) (V00) %Serie 6, BAM test chart order 2:26 031 003 091 092 093 000 000 (CW) (Cw) (C) (0) (0) 22.62 27.87 (V62) (V61) 032 003 101 102 103 000 000 (VW) (Vw) (V) (0) (0) 26.99 33.98 (V64) (V63) 033 003 111 112 113 000 000 (MW) (Mw) (M) (0) (0) 28.30 35.73 (V66) (V65) 034 003 121 122 123 000 000 (OW) (Ow) (O) (0) (0) 24.37 33.98 (V68) (V67) 035 003 131 132 133 000 000 (YW) (Yw) (Y) (0) (0) 18.25 20.00 (V70) (V69) 036 003 141 142 143 000 000 (LW) (Lw) (L) (0) (0) 23.49 32.24 (V72) (V71) %Serie 7, BAM test chart order 2:26 037 003 149 150 151 000 000 (C) (Cn) (CN) (0) (0) 29.61 28.74 (V74) (V73) 038 003 159 160 161 000 000 (V) (Vn) (VN) (0) (0) 19.56 18.25 (V76) (V75) 039 003 169 170 171 000 000 (M) (Mn) (MN) (0) (0) 35.73 27.87 (V78) (V77) 040 003 179 180 181 000 000 (O) (On) (ON) (0) (0) 37.48 26.12 (V80) (V79) 041 003 189 190 191 000 000 (Y) (Yn) (YN) (0) (0) 38.35 30.49 (V82) (V81) 042 003 199 200 201 000 000 (L) (Ln) (LN) (0) (0) 33.11 26.99 (V84) (V83) %Serie 8, BAM test chart order 2:26 043 003 151 152 153 000 000 (CN) (Nc) (N) (0) (0) 37.48 26.12 (V86) (V85) 044 003 161 162 163 000 000 (VN) (Nv) (N) (0) (0) 20.43 18.25 (V88) (V87) 045 003 171 172 173 000 000 (MN) (Nm) (N) (0) (0) 34.86 28.30 (V90) (V89) 046 003 181 182 183 000 000 (ON) (No) (N) (0) (0) 33.98 27.87 (V92) (V91) 047 003 191 192 193 000 000 (YN) (Ny) (N) (0) (0) 39.67 34.86 (V94) (V93) 048 003 201 202 203 000 000 (LN) (Nl) (N) (0) (0) 32.24 26.12 (V96) (V95) %Serie 2N, BAM test chart order 1:25, 1 triplet 049 003 073 074 075 000 000 (W) (WN) (N) (0) (0) 40.10 36.61 (V97) (V98) %Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets 050 004 281 282 283 000 000 (C) (CV) (V) (0) (0) 44.47 0.00 (V37) (V00) 051 004 283 284 285 000 000 (V) (MV) (M) (0) (0) 42.29 0.00 (V38) (V00) 052 004 291 292 293 000 000 (M) (MO) (O) (0) (0) 22.62 0.00 (V40) (V00) 053 004 293 294 295 000 000 (O) (YO) (Y) (0) (0) 47.97 0.00 (V39) (V00) 054 004 301 302 303 000 000 (Y) (YL) (L) (0) (0) 46.22 0.00 (V41) (V00) 055 004 303 304 305 000 000 (L) (CL) (C) (0) (0) 31.36 0.00 (V42) (V00) %Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets 056 004 079 080 081 000 000 (W) (Wn) (WN) (0) (0) 40.10 0.00 (V97) (V00) 057 004 081 082 083 000 000 (WN) (Nw) (N) (0) (0) 36.61 0.00 (V98) (V00) ] def %END D57SERVia %************************************************************* /D57SERVi 2000 array def %max 57 series of 15 data (100x20) /D57SERVi [%BEG D57SERVi top data VIK_ELCD scaling data %0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %N S N1 N2 N3 N4 N5 NA1 NA2 NA3 NA4 NA5 DV*1i DV*2i VIK1 VIK2 %Serie 1, BAM test chart order 1:25 001 003 001 002 003 000 000 (W) (CW) (C) 6.06 7.92 25.24 39.23 (V01) (V02) 002 003 007 008 009 000 000 (W) (VW) (V) 3.03 7.44 33.11 46.66 (V03) (V04) 003 003 013 014 015 000 000 (W) (MW) (M) 4.15 7.21 30.92 45.35 (V05) (V06) 004 003 019 020 021 000 000 (W) (OW) (O) 6.27 5.35 26.55 46.66 (V07) (V08) 005 003 025 026 027 000 000 (W) (YW) (Y) 5.39 10.8 22.62 23.06 (V09) (V10) 006 003 031 032 033 000 000 (W) (LW) (L) 4.58 7.82 29.18 40.98 (V11) (V12) %Serie 2, BAM test chart order 1:25 007 003 037 038 039 000 000 (C) (CN) (N) 12.1 5.67 38.35 42.73 (V13) (V14) 008 003 043 044 045 000 000 (V) (VN) (N) 6.42 9.50 21.75 31.36 (V15) (V16) 009 003 049 050 051 000 000 (M) (MN) (N) 9.08 7.82 40.98 44.47 (V17) (V18) 010 003 055 056 057 000 000 (O) (ON) (N) 10.7 9.31 34.86 43.16 (V19) (V20) 011 003 061 062 063 000 000 (Y) (YN) (N) 10.0 6.88 35.73 47.97 (V21) (V22) 012 003 067 068 069 000 000 (L) (LN) (N) 9.87 10.7 36.17 42.29 (V23) (V24) %Serie 3, BAM test chart order 3:27 013 003 209 210 211 000 000 (W) (C) (N) 7.29 5.77 53.65 55.40 (V26) (V25) 014 003 215 216 217 000 000 (W) (V) (N) 6.27 11.1 65.02 29.61 (V28) (V27) 015 003 221 222 223 000 000 (W) (M) (N) 8.91 6.30 60.21 53.22 (V30) (V29) 016 003 227 228 229 000 000 (W) (O) (N) 8.56 9.81 58.46 48.84 (V32) (V31) 017 003 233 234 235 000 000 (W) (Y) (N) 17.1 8.41 37.38 61.52 (V34) (V33) 018 003 239 240 241 000 000 (W) (L) (N) 7.62 10.8 55.84 45.35 (V36) (V35) %Serie 4, BAM test chart order 3:27 019 003 245 246 247 000 000 (C) (V) (M) 11.2 13.7 44.47 42.29 (V37) (V38) 020 003 251 252 253 000 000 (M) (O) (Y) 6.30 11.1 22.62 47.97 (V40) (V39) 021 003 257 258 259 000 000 (Y) (L) (C) 10.3 8.29 46.22 31.36 (V41) (V42) 022 003 263 264 265 000 000 (V) (C) (L) 9.87 11.3 48.41 30.49 (V44) (V43) 023 003 269 270 271 000 000 (L) (Y) (O) 10.2 9.52 51.03 53.65 (V46) (V45) 024 003 275 276 277 000 000 (O) (M) (V) 10.6 11.3 23.49 48.84 (V47) (V48) %Serie 5, BAM test chart order 2:26 %dummy 26.00: values are missing 025 004 089 090 091 000 000 (W) (Wc) (CW) 6.06 6.06 25.24 0.481 (V01) (V00) 026 004 099 100 101 000 000 (W) (Wv) (VW) 7.44 7.44 33.11 0.497 (V03) (V00) 027 004 109 110 111 000 000 (W) (Wm) (MW) 4.15 4.15 30.92 0.492 (V05) (V00) 028 004 119 120 121 000 000 (W) (Wo) (OW) 6.27 6.27 26.55 0.493 (V07) (V00) 029 004 129 130 131 000 000 (W) (Wy) (YW) 5.39 5.39 22.62 0.358 (V09) (V00) 030 004 139 140 141 000 000 (W) (Wl) (LW) 4.58 4.58 29.18 0.492 (V11) (V00) %Serie 6, BAM test chart order 2:26 031 003 091 092 093 000 000 (CW) (Cw) (C) 6.30 12.2 22.62 27.87 (V62) (V61) 032 003 101 102 103 000 000 (VW) (Vw) (V) 7.21 11.3 26.99 33.98 (V64) (V63) 033 003 111 112 113 000 000 (MW) (Mw) (M) 8.76 10.0 28.30 35.73 (V66) (V65) 034 003 121 122 123 000 000 (OW) (Ow) (O) 7.31 10.8 24.37 33.98 (V68) (V67) 035 003 131 132 133 000 000 (YW) (Yw) (Y) 3.27 7.10 18.25 20.00 (V70) (V69) 036 003 141 142 143 000 000 (LW) (Lw) (L) 6.06 11.2 23.49 32.24 (V72) (V71) %Serie 7, BAM test chart order 2:26 037 003 149 150 151 000 000 (C) (Cn) (CN) 8.29 8.48 29.61 28.74 (V74) (V73) 038 003 159 160 161 000 000 (V) (Vn) (VN) 4.58 3.27 19.56 18.25 (V76) (V75) 039 003 169 170 171 000 000 (M) (Mn) (MN) 9.50 12.2 35.73 27.87 (V78) (V77) 040 003 179 180 181 000 000 (O) (On) (ON) 5.10 11.2 37.48 26.12 (V80) (V79) 041 003 189 190 191 000 000 (Y) (Yn) (YN) 12.1 8.65 38.35 30.49 (V82) (V81) 042 003 199 200 201 000 000 (L) (Ln) (LN) 10.3 10.3 33.11 26.99 (V84) (V83) %Serie 8, BAM test chart order 2:26 043 003 151 152 153 000 000 (CN) (Nc) (N) 7.62 9.08 37.48 26.12 (V86) (V85) 044 003 161 162 163 000 000 (VN) (Nv) (N) 6.69 3.27 20.43 18.25 (V88) (V87) 045 003 171 172 173 000 000 (MN) (Nm) (N) 9.08 6.27 34.86 28.30 (V90) (V89) 046 003 181 182 183 000 000 (ON) (No) (N) 9.73 9.73 33.98 27.87 (V92) (V91) 047 003 191 192 193 000 000 (YN) (Ny) (N) 6.74 12.6 39.67 34.86 (V94) (V93) 048 003 201 202 203 000 000 (LN) (Nl) (N) 10.2 9.08 32.24 26.12 (V96) (V95) %Serie 2N, BAM test chart order 1:25, 1 triplet 049 003 073 074 075 000 000 (W) (WN) (N) (0) (0) 40.10 36.61 (V97) (V98) %not used %Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets 050 004 281 282 283 000 000 (C) (CV) (V) (0) (0) 44.47 0.00 (V37) (V00) 051 004 283 284 285 000 000 (V) (MV) (M) (0) (0) 42.29 0.00 (V38) (V00) 052 004 291 292 293 000 000 (M) (MO) (O) (0) (0) 22.62 0.00 (V40) (V00) 053 004 293 294 295 000 000 (O) (YO) (Y) (0) (0) 47.97 0.00 (V39) (V00) 054 004 301 302 303 000 000 (Y) (YL) (L) (0) (0) 46.22 0.00 (V41) (V00) 055 004 303 304 305 000 000 (L) (CL) (C) (0) (0) 31.36 0.00 (V42) (V00) %Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets 056 004 079 080 081 000 000 (W) (Wn) (WN) (0) (0) 40.10 0.00 (V97) (V00) 057 004 081 082 083 000 000 (WN) (Nw) (N) (0) (0) 36.61 0.00 (V98) (V00) ] def %END D57SERVi /d_CIELABi 2800 array def /d_CIELCHi 2800 array def /d_C94LCHi 2800 array def /d_CMCLCHi 2800 array def /d_CM2LCHi 2800 array def /d_C00LCHi 2800 array def /d_C85LCHi 2800 array def /d_C77LCHi 2800 array def /d_C78LCHi 2800 array def /d_C79LCHi 2800 array def /d_CIELABmi 2800 array def /d_CIELCHmi 2800 array def /d_C94LCHmi 2800 array def /d_CMCLCHmi 2800 array def /d_CM2LCHmi 2800 array def /d_C00LCHmi 2800 array def /d_C85LCHmi 2800 array def /d_C77LCHmi 2800 array def /d_C78LCHmi 2800 array def /d_C79LCHmi 2800 array def /D13 1 3 div def /D841_108 841 108 div def /D4_29 4 29 div def /D6_29 6 29 div 3 exp def /proc_coldiff {%BEG procedure proc_coldiff proc_coldiff_WK58.PS 150529 %calculates CIE colour data and differences for 10 colour spaces %BEG CIELAB/CIELCH /FL 0.000001 def X0 XW div D6_29 gt {/FXXN0 X0 XW div 0.0001 add D13 exp def} {/FXXN0 D841_108 X0 XW div mul D4_29 add def} ifelse Y0 YW div D6_29 gt {/FYYN0 Y0 YW div 0.0001 add D13 exp def} {/FYYN0 D841_108 Y0 YW div mul D4_29 add def} ifelse Z0 ZW div D6_29 gt {/FZZN0 Z0 ZW div 0.0001 add D13 exp def} {/FZZN0 D841_108 Z0 ZW div mul D4_29 add def} ifelse /CIEL*0 116. FYYN0 mul 16. sub def /CIEa*0 500. FXXN0 FYYN0 sub mul def /CIEb*0 200. FYYN0 FZZN0 sub mul def /CIEC*ab0 CIEa*0 dup mul CIEb*0 dup mul add 0.0001 add sqrt def /CIEhab0 CIEb*0 CIEa*0 0.0001 add atan def X1 XW div D6_29 gt {/FXXN1 X1 XW div 0.0001 add D13 exp def} {/FXXN1 D841_108 X1 XW div mul D4_29 add def} ifelse Y1 YW div D6_29 gt {/FYYN1 Y1 YW div 0.0001 add D13 exp def} {/FYYN1 D841_108 Y1 YW div mul D4_29 add def} ifelse Z1 ZW div D6_29 gt {/FZZN1 Z1 ZW div 0.0001 add D13 exp def} {/FZZN1 D841_108 Z1 ZW div mul D4_29 add def} ifelse /CIEL*1 116. FYYN1 mul 16. sub def /CIEa*1 500. FXXN1 FYYN1 sub mul def /CIEb*1 200. FYYN1 FZZN1 sub mul def /CIEC*ab1 CIEa*1 dup mul CIEb*1 dup mul add 0.0001 add sqrt def /CIEhab1 CIEb*1 CIEa*1 0.0001 add atan def %mixed terms with *0 sn *1: /d_CIEL* CIEL*1 CIEL*0 sub def /d_CIEa* CIEa*1 CIEa*0 sub def /d_CIEb* CIEb*1 CIEb*0 sub def d_CIELABi i d_CIEL* dup mul d_CIEa* dup mul add d_CIEb* dup mul add 0.00000001 add sqrt put /a_CIELAB 1.26 def /b_CIELAB 0.55 def d_CIELABmi i d_CIELABi i get b_CIELAB exp a_CIELAB mul put /d_CIEh CIEhab1 CIEhab0 sub def %see CIEDE2000 page 4 CIEC*ab1 CIEC*ab0 mul 0 eq {/d_CIEh 0 def} if %CIEC*ab1 x CIEC*ab0 =0 CIEC*ab1 CIEC*ab0 mul 0 ne d_CIEh 180 gt and {/d_CIEh d_CIEh 360 sub def} if CIEC*ab1 CIEC*ab0 mul 0 ne d_CIEh -180 lt and {/d_CIEh d_CIEh 360 add def} if /d_CIEL CIEL*1 CIEL*0 sub def /d_CIECab CIEC*ab1 CIEC*ab0 sub def /d_CIEHab CIEC*ab1 CIEC*ab0 mul 0.000001 add sqrt 2 mul d_CIEh 0.5 mul sin mul def d_CIELCHi i d_CIEL dup mul d_CIECab dup mul add d_CIEHab dup mul add 0.000001 add sqrt put %alternative: %for 2 an 10 degree observer, see Richter (1996) %a'=0,2191 b'=-0,08376 a'10=0,2193, b'10=-0,08417 %a'2 and a'10 used for both 12 and 190 degree observer %BEG LABD65_1976=C76 /S76L 1 def /S76A 1 def /S76B 1 def /K76L 1 def /K76A 1 def /K76B 1 def /AS2 0.2191 def /BS2 -0.08376 def %C76a'=AS2*(x/y)**(1/3) %C76b'=BS2*(z/y)**(1/3) %C76L*=L*CIE %C76a*=500*[C76a'-C76a'n]*Y**(1/3) %C76b*=500*[C76b'-C76b'n]*Y**(1/3) /C76a'0 X0 Y0 FL add div 0.3333 exp AS2 mul def /C76a'1 X1 Y1 FL add div 0.3333 exp AS2 mul def /C76a'n XW YW FL add div 0.3333 exp AS2 mul def /C76b'0 Z0 Y0 FL add div 0.3333 exp BS2 mul def /C76b'1 Z1 Y1 FL add div 0.3333 exp BS2 mul def /C76b'n ZW YW FL add div 0.3333 exp BS2 mul def /C76a*0 C76a'0 C76a'n sub 500 mul Y0 1 3 div exp mul def /C76a*1 C76a'1 C76a'n sub 500 mul Y1 1 3 div exp mul def /C76b*0 C76b'0 C76b'n sub 500 mul Y0 1 3 div exp mul def /C76b*1 C76b'1 C76b'n sub 500 mul Y1 1 3 div exp mul def %name d_CIELCHi instead of d_LABD65i 1976 d_CIELCHi i CIEL*1 CIEL*0 sub K76L div S76L div dup mul C76a*1 C76a*0 sub K76A div S76A div dup mul add C76b*1 C76b*0 sub K76B div S76B div dup mul add 0.00000001 add sqrt put %END LABD65_1976=C76 /a_CIELCH 1.26 def /b_CIELCH 0.55 def d_CIELCHmi i d_CIELCHi i get b_CIELCH exp a_CIELCH mul put %BEG CIELAB/CIELCH %BEG CIE94 /S94L 1 def /S94C 1 0.045 CIEC*ab0 mul add def /S94H 1 0.015 CIEC*ab0 mul add def /K94L 1 def /K94C 1 def /K94H 1 def /LC94*0 CIEL*0 K94L div S94L div def /LC94*1 CIEL*1 K94L div S94L div def /CC94*ab0 CIEC*ab0 K94C div S94C div def /CC94*ab1 CIEC*ab1 K94C div S94C div def d_C94LCHi i CIEL*1 CIEL*0 sub K94L div S94L div dup mul CIEC*ab1 CIEC*ab0 sub K94C div S94C div dup mul add d_CIEHab K94H div S94H div dup mul add 0.00000001 add sqrt put /a_C94LCH 1.41 def /b_C94LCH 0.70 def d_C94LCHmi i d_C94LCHi i get b_C94LCH exp a_C94LCH mul put %END CIE94 %BEG CMC(l:c=1:1) %special mean m of two samples for SCML, SCMC, TCMC /CIEL*0m CIEL*0 CIEL*1 add 0.5 mul def /CMCC0S CIEC*ab0 def /CMCC1S CIEC*ab1 def /CIEC*ab0m CMCC0S CMCC1S add 0.5 mul def CIEC*ab0 0 eq {/CMCh0S 0 def} {/CMCh0S CIEb*0 CIEa*0 0.0001 add atan def } ifelse CIEC*ab1 0 eq {/CMCh1S 0 def} {/CMCh1S CIEb*1 CIEa*1 0.0001 add atan def } ifelse %beg special EQUATION (11) TO (14) /d_CMChS0 CMCh1S CMCh0S sub def %see CIEDE2000 page 4 CMCC1S CMCC0S mul 0 eq {/d_CMChS 0 def} if %CIEC*ab1 x CIEC*ab0 =0 CMCC1S CMCC0S mul 0 ne d_CMChS0 abs 180 le and {/d_CMChSm d_CMChS0 def} if CMCC1S CMCC0S mul 0 ne d_CMChS0 180 gt and {/d_CMChSm d_CMChS0 360 sub def} if CMCC1S CMCC0S mul 0 ne d_CMChS0 -180 lt and {/d_CMChSm d_CMChS0 360 add def} if %end special EQUATION (11) TO (14) %beg special EQUATION (23) TO (26) /a_CMChsm CMCh0S CMCh1S add 0.5 mul def /m_CMCCSm CMCC0S CMCC1S mul def d_CMChSm abs 180 le m_CMCCSm 0 ne and {/CMChSqm a_CMChsm def} if d_CMChSm abs 180 gt a_CMChsm 360 le and m_CMCCSm 0 ne and {/CMChSqm CMCh0S CMCh1S add 360 add 0.5 mul def} if d_CMChSm abs 180 gt a_CMChsm 360 ge and m_CMCCSm 0 ne and {/CMChSqm CMCh0S CMCh1S add 360 sub 0.5 mul def} if m_CMCCSm 0 eq {/CMChSqm CMCh0S CMCh1S add def } if %end special EQUATION (23) TO (26) CIEL*0m 16 lt {/SCMLm 0.511 def} {/SCMLm 0.040975 CIEL*0m mul 0.01765 CIEL*0m mul 1 add div def } ifelse /SCMCm 0.0638 CIEC*ab0m mul 0.0131 CIEC*ab0m mul 1 add div 0.638 add def %beg special /FCMCm CIEC*ab0m dup mul dup mul CIEC*ab0m dup mul dup mul 1900 add div sqrt def CMChSqm 164 lt CMChSqm 345 gt or {/TCMCm CMChSqm 35 add cos 0.4 mul abs 0.36 add def} {/TCMCm CMChSqm 168 add cos 0.2 mul abs 0.56 add def} ifelse %end special /SCMHm TCMCm FCMCm mul 1 add FCMCm sub SCMCm mul def /KCML 1 def %=l /KCMC 1 def %=c /KCMH 1 def %1 /CMCL*0m CIEL*0 KCML div SCMLm div def /CMCL*1m CIEL*1 KCML div SCMLm div def /CMCC*ab0m CIEC*ab0 KCMC div SCMCm div def /CMCC*ab1m CIEC*ab1 KCMC div SCMCm div def d_CMCLCHi i CIEL*1 CIEL*0 sub KCML div SCMLm div dup mul CIEC*ab1 CIEC*ab0 sub KCMC div SCMCm div dup mul add d_CIEHab KCMH div SCMHm div dup mul add 0.00000001 add sqrt put /a_CMCLCH 1.34 def /b_CMCLCH 0.66 def d_CMCLCHmi i d_CMCLCHi i get b_CMCLCH exp a_CMCLCH mul put %END CMC(m:l:c=m:1:1)=CMC %BEG CM2(m:l:c=m:1:2)=CM2 /KM2L 1 def %=l /KM2C 2 def %=c /KM2H 1 def %1 /CM2L*0 CIEL*0 KM2L div SCMLm div def /CM2L*1 CIEL*1 KM2L div SCMLm div def /CM2C*ab0 CIEC*ab0 KM2C div SCMCm div def /CM2C*ab1 CIEC*ab1 KM2C div SCMCm div def d_CM2LCHi i CIEL*1 CIEL*0 sub KM2L div SCMLm div dup mul CIEC*ab1 CIEC*ab0 sub KM2C div SCMCm div dup mul add d_CIEHab KM2H div SCMHm div dup mul add 0.00000001 add sqrt put %END CM2(m:l:c=m:1:2)=CM2 %BEG CIEDE2000=C00 %beg special equation (7) /CIEC*ab CIEC*ab0 CIEC*ab1 add 0.5 mul def /DEG 1 CIEC*ab 7 exp CIEC*ab 7 exp 25 7 exp add div 0.000001 add sqrt sub 0.5 mul def %end special equation (7) %beg special EQUATION (1) TO (6) %0 /C00L0S CIEL*0 def /C00a0S 1 DEG add CIEa*0 mul def /C00b0S CIEb*0 def /C00C0S C00a0S dup mul C00b0S dup mul add 0.000001 add sqrt def C00C0S 0 eq {/C00h0S 0 def} {/C00h0S C00b0S C00a0S 0.0001 add atan def } ifelse %1 /C00L1S CIEL*1 def /C00a1S 1 DEG add CIEa*1 mul def /C00b1S CIEb*1 def /C00C1S C00a1S dup mul C00b1S dup mul add 0.000001 add sqrt def C00C1S 0 eq {/C00h1S 0 def} {/C00h1S C00b1S C00a1S 0.0001 add atan def } ifelse %end special EQUATION (1) TO (6) %beg special EQUATION (11) TO (14) /d_C00hS0 C00h1S C00h0S sub def %see CIEDE2000 page 4 C00C1S C00C0S mul 0 eq {/d_C00hS 0 def} if %CIEC*ab1 x CIEC*ab0 =0 C00C1S C00C0S mul 0 ne d_C00hS0 abs 180 le and {/d_C00hS d_C00hS0 def} if C00C1S C00C0S mul 0 ne d_C00hS0 180 gt and {/d_C00hS d_C00hS0 360 sub def} if C00C1S C00C0S mul 0 ne d_C00hS0 -180 lt and {/d_C00hS d_C00hS0 360 add def} if %end special EQUATION (11) TO (14) %beg special EQUATION (8) TO (10) /d_C00LS C00L1S C00L0S sub def /d_C00aS C00a1S C00a0S sub def /d_C00bS C00b1S C00b0S sub def /d_C00CS C00C1S C00C0S sub def /d_C00HS C00C0S C00C1S mul 0.000001 add sqrt 2 mul d_C00hS 0.5 mul sin mul def %end special EQUATION (8) TO (10) %beg special EQUATION (23) TO (26) /a_C00hs C00h0S C00h1S add 0.5 mul def /m_C00CS C00C0S C00C1S mul def d_C00hS abs 180 le m_C00CS 0 ne and {/C00hSq a_C00hs def} if d_C00hS abs 180 gt a_C00hs 360 le and m_C00CS 0 ne and {/C00hSq C00h0S C00h1S add 360 add 0.5 mul def} if d_C00hS abs 180 gt a_C00hs 360 ge and m_C00CS 0 ne and {/C00hSq C00h0S C00h1S add 360 sub 0.5 mul def} if m_C00CS 0 eq {/C00hSq C00h0S C00h1S add def } if %end special EQUATION (23) TO (26) %beg special EQUATIONS (16) TO (22) /C00LSq C00L0S C00L1S add 0.5 mul def /C00CSq C00C0S C00C1S add 0.5 mul def /C00SL C00LSq 50 sub dup mul 0.015 mul C00LSq 50 sub dup mul 20 add sqrt div 1 add def /C00SC 0.045 C00CSq mul 1 add def %beg special T, RT, d_D, RC /C00T C00hSq 30 sub cos -0.17 mul C00hSq 2 mul cos 0.24 mul add C00hSq 3 mul 6 add cos 0.32 mul add C00hSq 4 mul 63 sub cos 0.20 mul sub 1 add def /C00SH 0.015 C00CSq mul C00T mul 1 add def /C00RC C00CSq 7 exp C00CSq 7 exp 25 7 exp add 0.000001 add div 0.000001 add sqrt 2 mul def /expDT C00hSq 275 sub 25 div dup mul def /econst 2.718281 def /C00DT 30 econst expDT neg exp mul def /C00RT C00DT 2 mul sin neg C00RC mul def %end special T, RT, d_D, RC %end special EQUATIONS (16) TO (22) %beg special EQUATION (15) /C00KL 1.0 def /C00KC 1.0 def /C00KH 1.0 def /d_C00LSN d_C00LS C00KL div C00SL div def /d_C00CSN d_C00CS C00KC div C00SC div def /d_C00HSN d_C00HS C00KH div C00SH div def d_C00LCHi i d_C00LSN dup mul d_C00CSN dup mul add d_C00HSN dup mul add d_C00CSN d_C00HSN mul C00RT mul add 0.000001 add sqrt put /a_C00LCH 1.43 def /b_C00LCH 0.70 def d_C00LCHmi i d_C00LCHi i get b_C00LCH exp a_C00LCH mul put %end special EQUATION (15) %END CIEDE2000=C00 %BEG LABJND=C85 /Yq Y0 Y1 add 0.5 mul def /d_Y Y1 Y0 sub def /a085 X0 Y0 0.000001 add div def /b085 Z0 Y0 0.000001 add div 0.4 mul neg def /a185 X1 Y1 0.000001 add div def /b185 Z1 Y1 0.000001 add div 0.4 mul neg def /an85 XW YW 0.000001 add div def /bn85 ZW YW 0.000001 add div 0.4 mul neg def /d_a085 a085 an85 sub def /d_b085 b085 bn85 sub def /d_a185 a185 an85 sub def /d_b185 b185 bn85 sub def /a0"85 d_a085 d_a085 abs 0.5 mul 1 add div an85 add def /b0"85 d_b085 d_b085 abs 0.5 mul 1 add div bn85 add def /a1"85 d_a185 d_a185 abs 0.5 mul 1 add div an85 add def /b1"85 d_b185 d_b185 abs 0.5 mul 1 add div bn85 add def /d_Y Y1 Y0 sub def /d_a"85 a1"85 a0"85 sub def /d_b"85 b1"85 b0"85 sub def /s85 0.0170 def /q85 0.0058 def /g85 1.0000 def %not used /a0085 1.0 def /b0085 1.8 def /Y0085 1.5 def d_C85LCHi i d_Y dup mul a0085 d_a"85 mul Yq mul dup mul add b0085 d_b"85 mul Yq mul dup mul add 0.000001 add sqrt Y0085 mul q85 Yq mul s85 add div put /a_C85LCH 1.17 def /b_C85LCH 0.35 def d_C85LCHmi i d_C85LCHi i get b_C85LCH exp a_C85LCH mul put %END LABJND=C85 %BEG LABHNU_1977=C77 /S77L 1 def /S77A 1 def /S77B 1 def /K77L 1 def /K77A 1 def /K77B 1 def %C77a'=(x/y+1/6)**(1/3)/4 %C77b'=-(z/y+1/6)**(1/3)/12 %C77L*=L*CIE %C77a*=500*[C77a'-C77a'n]*Y**(1/3) %C77b*=500*[C77b'-C77b'n]*Y**(1/3) /C77a'0 X0 Y0 FL add div 1 6 div add 0.3333 exp 4 div def /C77a'1 X1 Y1 FL add div 1 6 div add 0.3333 exp 4 div def /C77a'n XW YW FL add div 1 6 div add 0.3333 exp 4 div def /C77b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def /C77b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def /C77b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def /C77a*0 C77a'0 C77a'n sub 500 mul Y0 1 3 div exp mul def /C77a*1 C77a'1 C77a'n sub 500 mul Y1 1 3 div exp mul def /C77b*0 C77b'0 C77b'n sub 500 mul Y0 1 3 div exp mul def /C77b*1 C77b'1 C77b'n sub 500 mul Y1 1 3 div exp mul def d_C77LCHi i CIEL*1 CIEL*0 sub K77L div S77L div dup mul C77a*1 C77a*0 sub K77A div S77A div dup mul add C77b*1 C77b*0 sub K77B div S77B div dup mul add 0.00000001 add sqrt put %END LABHNU_1977=C77 %BEG LABHNU1=C78 /S78L 1 def /S78A 1 def /S78B 1 def /K78L 1 def /K78A 1 def /K78B 1 def %C78a'=(x/y+1)/15 %C78b'=-(z/y+1/6)**(1/3)/12 %C78L*=L*CIE %C78a*=500*[C78a'-C78a'n]*Y**(1/3) %C78b*=500*[C78b'-C78b'n]*Y**(1/3) /C78a'0 X0 Y0 FL add div 1 add 15 div def /C78a'1 X1 Y1 FL add div 1 add 15 div def /C78a'n XW YW FL add div 1 add 15 div def /C78b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def /C78b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def /C78b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def /C78a*0 C78a'0 C78a'n sub 500 mul Y0 1 3 div exp mul def /C78a*1 C78a'1 C78a'n sub 500 mul Y0 1 3 div exp mul def /C78b*0 C78b'0 C78b'n sub 500 mul Y0 1 3 div exp mul def /C78b*1 C78b'1 C78b'n sub 500 mul Y0 1 3 div exp mul def d_C78LCHi i CIEL*1 CIEL*0 sub K78L div S78L div dup mul C78a*1 C78a*0 sub K78A div S78A div dup mul add C78b*1 C78b*0 sub K78B div S78B div dup mul add 0.00000001 add sqrt put %END LABHNU1_1978-C78 %BEG LABHNU2_1979=C79 /S79L 1 def /S79A 1 def /S79B 1 def /K79L 1 def /K79A 1 def /K79B 1 def %C79a'=(x/y+1/6)**(2/3)/15 %C79b'=-(z/y+1/6)**(1/3)/12 %C79L*=L*CIE %C79a*=500*[C79a'-C79a'n]*Y**(1/3) %C79b*=500*[C79b'-C79b'n]*Y**(1/3) /C79a'0 X0 Y0 FL add div 1 6 div add 0.6667 exp 15 div def /C79a'1 X1 Y1 FL add div 1 6 div add 0.6667 exp 15 div def /C79a'n XW YW FL add div 1 6 div add 0.6667 exp 15 div def /C79b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def /C79b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def /C79b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def /C79a*0 C79a'0 C79a'n sub 500 mul Y0 1 3 div exp mul def /C79a*1 C79a'1 C79a'n sub 500 mul Y1 1 3 div exp mul def /C79b*0 C79b'0 C79b'n sub 500 mul Y0 1 3 div exp mul def /C79b*1 C79b'1 C79b'n sub 500 mul Y1 1 3 div exp mul def d_C79LCHi i CIEL*1 CIEL*0 sub K79L div S79L div dup mul C79a*1 C79a*0 sub K79A div S79A div dup mul add C79b*1 C79b*0 sub K79B div S79B div dup mul add 0.00000001 add sqrt put %END LABHNU2_1979=C79 } bind def %END procedure proc_coldiff %%EndProlog gsave /lanind 0 def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind le {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind le {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind le {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /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 %see Kittelmann DWORK, page 9 /XWD6502 95.05 def /YWD6502 100.00 def /ZWD6502 108.90 def /XW XWD6502 def /YW YWD6502 def /ZW ZWD6502 def /FL 0.000001 def /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /CIEL*0i 310 array def /CIEa*0i 310 array def /CIEb*0i 310 array def /X0i 310 array def /Y0i 310 array def /Z0i 310 array def %calculate XYZ-values for 310 colours 0 1 309 {/i exch def %i=0,309 /i10 i 10 mul def CIEL*0i i LAB_KIi i10 1 add get put CIEa*0i i LAB_KIi i10 2 add get put CIEb*0i i LAB_KIi i10 3 add get put /X* {CIEL*0i i get 16 add 116 div CIEa*0i i get 500 div add} bind def /Y* {CIEL*0i i get 16 add 116 div} bind def /Z* {CIEL*0i i get 16 add 116 div CIEb*0i i get 200 div sub} bind def X0i i X* DecodeXYZ* XW mul put Y0i i Y* DecodeXYZ* YW mul put Z0i i Z* DecodeXYZ* ZW mul put } for %i=0,309 %************************************************************* /Wdata1 3500 array def %max 350x10 data /Wdata2 3500 array def /IM 056 def %(max IM=056; IM=46=without series C-V- and W-Wn-WN-Nw-N /IM0 113 def %(max IM=057)*2-1 = 057 X 2-1 %default data 0 1 IM0 {/i exch def %i=0,IM0 /i10 i 10 mul def 0 1 9 {/j exch def %j=0,9 Wdata1 i10 j add 1. put Wdata2 i10 j add 1. put } for %j=0,9 } for %i=0,IM0 /D57xSERi 2000 array def /xchart4 0 def %xchart4=0 and 1: calculation for WANG or VIK pair comparison data 0 1 IM {/ii exch def %ii=0,IM /i16 ii 16 mul def 0 1 15 {/j exch def %j=0,15 xchart4 0 eq {D57xSERi i16 j add D57SERWi i16 j add get put} if xchart4 1 eq {D57xSERi i16 j add D57SERVi i16 j add get put} if } for %j=0,15 } for %ii=0,IM /DV*1 200 array def /DV*2 200 array def /DVS1 200 array def /DVS2 200 array def %default data 0 1 IM {/ii exch def %ii=0,IM /i16 ii 16 mul def DV*1 ii 1. put %default DV*2 ii 1. put } for %ii=0,IM %for WANG and VIK 0 1 IM {/ii exch def %ii=0,IM /D57xSER12 D57xSERi i16 12 add get def /D57xSER13 D57xSERi i16 13 add get def DV*1 ii D57xSER12 put DV*2 ii D57xSER13 put xchart4 0 eq {%xchart4=0 %corection for WANG only D57xSER12 0 ne {%D57xSER12#0 DV*1 ii D57xSER12 42.62 div 1. 1.1322 div exp 10 mul put } if %D57xSER12#0 D57xSER13 0 ne {%D57xSER13#0 DV*2 ii D57xSER13 42.62 div 1. 1.1322 div exp 10 mul put } if %D57xSER13#0 } if %xchart4=0 %corection for WANG only } for %ii=0,IM /xchartl 0 def %0 1 5 {/xchartl exch def %xchartl=0,5 gsave 5 /Times-ISOL1 FS 215 85 moveto (XE390-3N) show 72 90 translate /ytit 550 def /yhoe 4000 def /yhoet yhoe ytit sub def /xwide 06000 def /ishow {-50 -100 rmoveto 200 /Times-ISOL1 FS show 0 100 rmoveto TM} bind def 0.01 MM 0.01 MM scale 15 setlinewidth 0.0 0.0 0.0 0.5 setcmykcolor 0 0 moveto xwide 0 rlineto 0 yhoet rlineto xwide neg 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmykcolor 0 0 moveto xwide 0 rlineto 0 yhoet rlineto xwide neg 0 rlineto closepath stroke /yt 300 def %y-Zeilenabstand for text /yd 400 def %y-Zeilenabstand for formula %Titeltext /xt1 0 def /yt1 300 def /S10 100 def /S11 800 def /S20 3250 def /S30 4000 def /Z10 2500 def /Z1C 2200 def /Z1V 1900 def /Z1M 1600 def /Z1O 1300 def /Z1Y 1000 def /Z1L 0700 def /Z1N 0400 def /Z1W 0100 def %HUE CIRCLE /xd 1550 def /yd 5000 def /xp 1550 def /yp 5000 def /xdN xd def /ydN yd 2000 sub def /xdW xd def /ydW yd def /xdR xd 2000 add def /ydR yd 1000 sub def /xm 600 def /xip xd xm 2 mul add def /yip ydN xm 2 mul add def /xi1 xd xm 1 mul sub def /yi1 ydW xm 0.5 mul sub def /xi2 xd xm 2 mul add def /yi2 ydN 400 sub def %************************************************************************* %constant hue planes /xt1 -1000 def /yt1 -2670 def xt1 yt1 translate /xpp xp 350 sub def 0 setgray xpp yp 0850 add moveto /xshift 3200 def TBIK (BAM) show TBK (\2555stufige Farbreihen gleichabst\344ndig in CIELAB) showde ( 5 step colour series equally spaced in CIELAB) showen TBS xpp yp 0600 add moveto xchart4 0 eq {%xchart4=0 (CIELAB Farbdifferenzen ) showde (CIELAB colour differences ) showen SS (D) show TBIS (E*) show TBV 0 -50 rmoveto (ab) show 0 50 rmoveto } if %xchart4=0 xchart4 1 eq {%xchart4=1 (visuelle Farbdifferenzen ) showde (visual colour differences ) showen SS (D) show TBIS (V*) show TBV 0 -50 rmoveto (Vik) show 0 50 rmoveto } if %xchart4=1 /xfact 2000 100 div def /yfact 2000 100 div def /yshift 0800 def /xpW xpp def /ypW yp 200 sub def /ym 0 def /ix -1 def /cwdif4 7 array def /cwdif2 7 array def /cwdif1 7 array def /cndif4 7 array def /cndif2 7 array def /cndif1 7 array def /cwdifx 7 array def /cndifx 7 array def /cwstd4 7 array def /cwstd2 7 array def /cwstd1 7 array def /cnstd4 7 array def /cnstd2 7 array def /cnstd1 7 array def /cwstdx 7 array def /cnstdx 7 array def /wName 7 array def /nName 7 array def /DLAB21ik 7 array def /DLAB32ik 7 array def /DV*1ik 7 array def /DV*2ik 7 array def /DVS1ik 7 array def /DVS2ik 7 array def %default 0 1 6 {/i exch def cwdif4 i 4 put cwdif2 i 2 put cwdif1 i 1 put cndif4 i 40 put cndif2 i 20 put cndif1 i 10 put wName i (W) put nName i (N) put } for /ik 0 def 0 1 6 {/ik exch def %ik=0,6 %7 series %025 W-Wc-CW 089-090-091 %031 CW-Cw-C 091-092-093 %037 C-Cn-CN 149-150-151 %043 CN-Nc-N 151-152-153 %001 W-CW-C 001-002-003 %007 C-CN-N 037-038-039 %013 W-C-N 209-210-211 ik 0 eq {/ii 025 1 sub def} if ik 1 eq {/ii 031 1 sub def} if ik 2 eq {/ii 037 1 sub def} if ik 3 eq {/ii 043 1 sub def} if ik 4 eq {/ii 001 1 sub def} if ik 5 eq {/ii 007 1 sub def} if ik 6 eq {/ii 013 1 sub def} if %6 series/figures /ii ii xchartl add def /i16 ii 16 mul def /S D57xSERi i16 1 add get def S 4 eq {%S=4 /DREL D57xSERi i16 13 add get def DV*1ik ik D57xSERi i16 12 add get DREL mul put DV*2ik ik D57xSERi i16 12 add get 1 DREL sub mul put } if %S=4 S 3 eq {%S=3 DV*1ik ik D57xSERi i16 12 add get put DV*2ik ik D57xSERi i16 13 add get put } if %S=3 %always standard deviation DVS1ik ik D57xSERi i16 10 add get put DVS2ik ik D57xSERi i16 11 add get put /N1 D57xSERi i16 2 add get 1 sub def %Nx-count STARTs at "1" /N2 D57xSERi i16 3 add get 1 sub def /N3 D57xSERi i16 4 add get 1 sub def ik 0 eq {wName 0 D57xSERi i16 7 add get put wName 1 D57xSERi i16 8 add get put wName 2 D57xSERi i16 9 add get put} if ik 1 eq {wName 3 D57xSERi i16 8 add get put wName 4 D57xSERi i16 9 add get put} if ik 2 eq {nName 0 D57xSERi i16 7 add get put nName 1 D57xSERi i16 8 add get put nName 2 D57xSERi i16 9 add get put} if ik 3 eq {nName 3 D57xSERi i16 8 add get put nName 4 D57xSERi i16 9 add get put} if /X10 X0i N1 get def /Y10 Y0i N1 get def /Z10 Z0i N1 get def /X20 X0i N2 get def /Y20 Y0i N2 get def /Z20 Z0i N2 get def /X30 X0i N3 get def /Y30 Y0i N3 get def /Z30 Z0i N3 get def 0 1 1 {/i exch def %i=0,1 i 0 eq {%i=0,1 /X0 X20 def /Y0 Y20 def /Z0 Z20 def /X1 X10 def /Y1 Y10 def /Z1 Z10 def } if %i=0 i 1 eq {%i=1 /X0 X20 def /Y0 Y20 def /Z0 Z20 def /X1 X30 def /Y1 Y30 def /Z1 Z30 def } if %i=1 proc_coldiff } for %i=0,1 DLAB21ik ik d_CIELABi 0 get put DLAB32ik ik d_CIELABi 1 get put %025 ik=0 W-Wc-CW 089-090-091 %031 ik=1 CW-Cw-C 091-092-093 %037 ik=2 C-Cn-CN 149-150-151 %043 ik=3 CN-Nc-N 151-152-153 %001 ik=4 W-CW-C 001-002-003 %007 ik=5 C-CN-N 037-038-039 %013 ik=6 W-C-N 209-210-211 %/ioutk 1 def %ioutk 0 eq {%ioutk=0 xchart4 0 eq {%xchart4=0 ik 0 eq {cwdifx 0 DLAB21ik ik get put %W-Wc-CW cwdifx 1 DLAB32ik ik get put} if ik 1 eq {cwdifx 2 DLAB21ik ik get put %CW-Cw-C cwdifx 3 DLAB32ik ik get put} if ik 2 eq {cndifx 0 DLAB21ik ik get put %C-Cn-CN cndifx 1 DLAB32ik ik get put} if ik 3 eq {cndifx 2 DLAB21ik ik get put %CN-Nc-N cndifx 3 DLAB32ik ik get put} if ik 4 eq {cwdifx 4 DLAB21ik ik get put %W-CW-C cwdifx 5 DLAB32ik ik get put} if ik 5 eq {cndifx 4 DLAB21ik ik get put %C-CN-N cndifx 5 DLAB32ik ik get put} if ik 6 eq {cwdifx 6 DLAB21ik ik get put %W-C-N cndifx 6 DLAB32ik ik get put} if } if %xchart4=0 %} if %ioutk=0 %ioutk 1 eq {%ioutk=1 xchart4 1 eq {%xchart4=1 ik 0 eq {cwdifx 0 DV*1ik ik get put %W-Wc-CW cwdifx 1 DV*2ik ik get put} if ik 1 eq {cwdifx 2 DV*1ik ik get put %CW-Cw-C cwdifx 3 DV*2ik ik get put} if ik 2 eq {cndifx 0 DV*1ik ik get put %C-Cn-CN cndifx 1 DV*2ik ik get put} if ik 3 eq {cndifx 2 DV*1ik ik get put %CN-Nc-N cndifx 3 DV*2ik ik get put} if ik 4 eq {cwdifx 4 DV*1ik ik get put %W-CW-C cwdifx 5 DV*2ik ik get put} if ik 5 eq {cndifx 4 DV*1ik ik get put %C-CN-N cndifx 5 DV*2ik ik get put} if ik 6 eq {cwdifx 6 DV*1ik ik get put %W-C-N cndifx 6 DV*2ik ik get put} if ik 0 eq {cwstdx 0 DVS1ik ik get put %W-Wc-CW cwstdx 1 DVS2ik ik get put} if ik 1 eq {cwstdx 2 DVS1ik ik get put %CW-Cw-C cwstdx 3 DVS2ik ik get put} if ik 2 eq {cnstdx 0 DVS1ik ik get put %C-Cn-CN cnstdx 1 DVS2ik ik get put} if ik 3 eq {cnstdx 2 DVS1ik ik get put %CN-Nc-N cnstdx 3 DVS2ik ik get put} if ik 4 eq {cwstdx 4 DVS1ik ik get put %W-CW-C cwstdx 5 DVS2ik ik get put} if ik 5 eq {cnstdx 4 DVS1ik ik get put %C-CN-N cnstdx 5 DVS2ik ik get put} if ik 6 eq {cwstdx 6 DVS1ik ik get put %W-C-N cnstdx 6 DVS2ik ik get put} if } if %xchart4=1 %} if %ioutk=1 } for %ik=0,6 %7 series 0 1 3 {/ik exch def %ik=0,3 cwdif4 ik cwdifx ik get 0.49 add cvi put cndif4 ik cndifx ik get 0.49 add cvi put } for %ik=0,3 0 1 1 {/ik exch def %ik=0,1 cwdif2 ik cwdifx ik 4 add get 0.49 add cvi put cndif2 ik cndifx ik 4 add get 0.49 add cvi put } for %ik=0,1 cwdif1 0 cwdifx 6 get 0.49 add cvi put cndif1 0 cndifx 6 get 0.49 add cvi put xchart4 1 eq {%xchart4=1 0 1 3 {/ik exch def %ik=0,3 cwstd4 ik cwstdx ik get 0.49 add cvi put cnstd4 ik cnstdx ik get 0.49 add cvi put } for %ik=0,3 0 1 1 {/ik exch def %ik=0,1 cwstd2 ik cwstdx ik 4 add get 0.49 add cvi put cnstd2 ik cnstdx ik 4 add get 0.49 add cvi put } for %ik=0,1 cwstd1 0 cwstdx 6 get 0.49 add cvi put cnstd1 0 cnstdx 6 get 0.49 add cvi put } if %xchart4=1 %STOP5 newpath /k 0 def /j 0 def /i 0 def 0 1 2 {/k exch def %k=0,2 %three rows /ys yshift k mul def 0 1 1 {/j exch def %j=0,1 %left, right /xs xshift j mul def k 0 eq {TBS j 0 eq {%j=0 1 1 1 setrgbcolor xpp yp 0300 add moveto (helle Serie ) showde (light series ) showen wName 4 get show ( nach W) showde ( to W) showen } if %j=0 j 1 eq {%j=1 0 0 0 setrgbcolor xp 450 sub xshift add yp 0300 add moveto (dunkle Serie ) showde (dark series ) showen nName 0 get show ( nach N) showde ( to N) showen } if %j=1 } if %k=0 TS 0 0 0 setrgbcolor 0 1 4 {/i exch def %i=0,4 %five colours /xi xpW xm i mul add xs add def %NW /yi ypW ym i mul add ys sub def % xpW ypW moveto (START, i, wName) show % i cvishow % wName i get show k 0 eq {xi 100 sub yi 200 add moveto j 0 eq {wName 4 i sub get show} if j 1 eq {nName i get show} if newpath } if k 0 eq i 3 le and {xi 100 add yi 350 sub moveto j 0 eq {cwdif4 3 i sub get cvishow} if j 1 eq {cndif4 i get cvishow} if xchart4 1 eq {%xchart4=1 (\261) show %+/- j 0 eq {cwstd4 3 i sub get cvishow} if j 1 eq {cnstd4 i get cvishow} if } if %xchart4=1 newpath } if k 0 eq i 1 le and {xi 400 add i 500 mul add yi 1150 sub moveto j 0 eq {cwdif2 1 i sub get cvishow} if j 1 eq {cndif2 i get cvishow} if xchart4 1 eq {%xchart4=1 (\261) show %+/- j 0 eq {cwstd2 1 i sub get cvishow} if j 1 eq {cnstd2 i get cvishow} if } if %xchart4=1 newpath } if k 0 eq i 0 le and {xi 1000 add i 500 mul add yi 2000 sub moveto j 0 eq {cwdif1 0 get cvishow} if j 1 eq {cndif1 0 get cvishow} if xchart4 1 eq {%xchart4=1 (\261) show %+/- j 0 eq {cwstd1 0 get cvishow} if j 1 eq {cnstd1 0 get cvishow} if } if %xchart4=1 newpath } if i 0 eq i 4 eq or {0 0 0 setrgbcolor xi yi 140 0 360 arc fill } if j 0 eq {%j=0 /w i 4 div def xchartl 0 eq {w 1 1 setrgbcolor} if %C-W xchartl 1 eq {w w 1 setrgbcolor} if %V-W xchartl 2 eq {1 w 1 setrgbcolor} if %M-W xchartl 3 eq {1 w w setrgbcolor} if %O-W xchartl 4 eq {1 1 w setrgbcolor} if %Y-W xchartl 5 eq {w 1 w setrgbcolor} if %L-W } if %j=0 j 1 eq {%j=1 /w 1 i 4 div sub def xchartl 0 eq {0 w w setrgbcolor} if %C-N xchartl 1 eq {0 0 w setrgbcolor} if %V-N xchartl 2 eq {w 0 w setrgbcolor} if %M-N xchartl 3 eq {w 0 0 setrgbcolor} if %O-N xchartl 4 eq {w w 0 setrgbcolor} if %Y-N xchartl 5 eq {0 w 0 setrgbcolor} if %L-N } if %j=1 xi yi 070 0 360 arc fill i 0 eq i 4 eq or {0 0 0 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if k 0 eq {%k=0 i 1 ge i 3 le and {%k=0 and all i 0 0 0 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if %i=2 and k<2 } if %k=0 k 1 eq i 2 eq and {%k=1 and i=2 0 0 0 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if %k=1 and i=2 i 4 eq j 1 eq and {%i=4 and j=1 %cross in black N 1 1 1 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if %i=4 and j=1 } for %i=0,4 } for %j=0,1 } for %k=0,2 xt1 neg yt1 neg translate %************************************************************************* showpage grestore %} for %xchartl=0,5 %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 14 %line 369 %!PS-Adobe-3.0 EPSF-3.0 XE390-4N %%BoundingBox: 70 83 245 190 %START PDFDE011.EPS /pdfmark04 where {pop} {userdict /pdfmark04 /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://130.149.60.45/~farbmetrik/SE25/) /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, colour vision) /Creator (klaus.richter@mac.com) /CreationDate (D:2016070112000) /ModDate (D:2016070112000) /DOCINFO pdfmark04 [ /View [ /FitB ] /DOCVIEW pdfmark04 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /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 /TV {160 /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 /TIV {160 /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 /TBV {160 /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 /TBIV {160 /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 /SV {160 /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 %%EndProlog gsave /nshow {TS show} bind def /kshow {TIS show} bind def /bshow {TBS show} bind def /jshow {TBIS show} bind def /ibshown {TBS -50 -50 rmoveto show 0 50 rmoveto TBS} bind def /ibshow0 {TBS -00 -50 rmoveto show 0 50 rmoveto TBS} bind def /ishown {TS -50 -50 rmoveto show 0 50 rmoveto TS } bind def /ishow0 {TS -00 -50 rmoveto show 0 50 rmoveto TS } bind def %40% kleiner /ns4 {250 /Times-ISOL1 FS show TK} bind def /ks4 {250 /TimesI-ISOL1 FS show TK} bind def /bs4 {250 /TimesB-ISOL1 FS show TK} bind def /js4 {250 /TimesBI-ISOL1 FS show TK} bind def /ss4 {250 /Symbol FS show TK} bind def /is4 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /es4 {200 /Times-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ib4 {200 /TimesB-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /eb4 {200 /TimesB-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ip4 {200 /Times-ISOL1 FS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def %60% kleiner /ns6 {200 /Times-ISOL1 FS show TS} bind def /ks6 {200 /TimesI-ISOL1 FS show TS} bind def /bs6 {200 /TimesB-ISOL1 FS show TS} bind def /js6 {200 /TimesBI-ISOL1 FS show TS} bind def /ss6 {200 /Symbol FS show TS} bind def /is6 {160 /Times-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /es6 {160 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ib6 {160 /TimesB-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /eb6 {160 /TimesB-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ip6 {160 /Times-ISOL1 FS 24 24 rmoveto (\267) show 24 -24 rmoveto TS} bind /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show} def %************************************************************* %Aus Kittelmann_CD_DA/Daten der Ausertung/ %Farbwerte der Farbfelder und Reihen.xls/CIELAB_1 %siehe auch Dipl-Arbeit Seite 31 ff /LAB_KIi 3100 array def %310x10 /LAB_KIi [ %n L*r a*r b*r L*t a*t b*t E*r-t C*r h*r % L*r a*r b*r CIELAB data of 310 printel samples, see page 34 % 95.410 -0.980 4.760 ISO 15775 Papierweiss Tab. 2.2 1 94.806 -1.832 6.977 95.410 -0.980 4.760 2.450 7.213 104.710 2 76.937 -16.536 -18.248 77.015 -15.805 -18.995 1.048 24.626 227.818 3 59.410 -30.942 -42.455 58.620 -30.630 -42.750 0.899 52.534 233.915 4 94.807 -1.883 7.035 95.410 -0.980 4.760 2.520 7.282 104.985 5 76.919 -16.503 -18.327 77.015 -15.805 -18.995 0.971 24.663 227.998 6 59.468 -30.964 -42.431 58.620 -30.630 -42.750 0.966 52.528 233.880 7 94.796 -1.848 7.051 95.410 -0.980 4.760 2.526 7.289 104.684 8 60.143 15.422 -18.907 60.565 15.185 -19.800 1.016 24.399 309.204 9 27.166 31.237 -43.580 25.720 31.350 -44.360 1.646 53.619 305.632 10 94.811 -1.797 6.812 95.410 -0.980 4.760 2.288 7.045 104.775 11 60.039 15.614 -19.124 60.565 15.185 -19.800 0.958 24.689 309.231 12 27.145 31.257 -43.757 25.720 31.350 -44.360 1.550 53.774 305.539 13 94.813 -1.742 6.702 95.410 -0.980 4.760 2.170 6.925 104.573 14 71.354 37.382 -0.087 71.770 37.110 -1.020 1.057 37.382 359.867 15 48.299 74.762 -6.470 48.130 75.200 -6.800 0.573 75.042 355.054 16 94.862 -1.790 6.808 95.410 -0.980 4.760 2.269 7.039 104.734 17 71.430 37.531 -0.146 71.770 37.110 -1.020 1.028 37.531 359.777 18 48.348 75.034 -6.602 48.130 75.200 -6.800 0.338 75.324 354.972 19 94.829 -1.679 6.457 95.410 -0.980 4.760 1.925 6.672 104.576 20 71.895 30.271 30.198 71.675 32.165 28.415 2.611 42.758 44.931 21 48.389 65.379 52.900 47.940 65.310 52.070 0.946 84.100 38.977 22 94.841 -1.727 6.563 95.410 -0.980 4.760 2.033 6.787 104.743 23 71.834 30.282 30.495 71.675 32.165 28.415 2.810 42.976 45.200 24 48.373 65.160 52.576 47.940 65.310 52.070 0.683 83.726 38.899 25 94.856 -1.811 6.930 95.410 -0.980 4.760 2.389 7.163 104.645 26 91.995 -9.864 53.175 92.890 -6.070 50.465 4.747 54.082 100.509 27 88.831 -7.617 100.643 90.370 -11.160 96.170 5.910 100.931 94.328 28 94.840 -1.857 6.961 95.410 -0.980 4.760 2.437 7.204 104.938 29 91.969 -9.864 53.060 92.890 -6.070 50.465 4.688 53.969 100.532 30 88.822 -7.585 99.964 90.370 -11.160 96.170 5.438 100.251 94.339 31 94.843 -1.831 6.986 95.410 -0.980 4.760 2.450 7.223 104.689 32 72.670 -33.310 23.706 73.155 -31.970 20.735 3.296 40.885 144.561 33 52.763 -62.634 40.725 50.900 -62.960 36.710 4.438 74.710 146.968 34 94.844 -1.844 6.940 95.410 -0.980 4.760 2.413 7.181 104.883 35 72.659 -33.330 23.584 73.155 -31.970 20.735 3.195 40.830 144.717 36 52.751 -62.659 40.456 50.900 -62.960 36.710 4.189 74.585 147.152 37 59.858 -30.723 -42.299 58.620 -30.630 -42.750 1.321 52.279 234.008 38 39.512 -15.438 -20.098 38.315 -15.065 -21.605 1.960 25.343 232.471 39 20.439 0.604 1.879 18.010 0.500 -0.460 3.374 1.974 72.184 40 59.843 -30.628 -42.217 58.620 -30.630 -42.750 1.334 52.157 234.039 41 39.472 -15.216 -20.290 38.315 -15.065 -21.605 1.759 25.361 233.132 42 20.596 0.834 1.790 18.010 0.500 -0.460 3.444 1.975 65.031 43 28.050 31.224 -43.592 25.720 31.350 -44.360 2.457 53.621 305.613 44 24.428 16.573 -21.290 21.865 15.925 -22.410 2.871 26.980 307.898 45 20.775 1.062 1.849 18.010 0.500 -0.460 3.646 2.132 60.115 46 27.951 31.592 -43.586 25.720 31.350 -44.360 2.374 53.831 305.935 47 24.413 16.789 -21.558 21.865 15.925 -22.410 2.822 27.324 307.911 48 20.742 1.238 1.780 18.010 0.500 -0.460 3.609 2.168 55.193 49 47.685 75.265 -6.106 48.130 75.200 -6.800 0.827 75.513 355.362 50 34.058 36.976 -1.848 33.070 37.850 -3.630 2.217 37.022 357.138 51 19.828 0.759 1.618 18.010 0.500 -0.460 2.773 1.787 64.874 52 47.770 75.333 -6.073 48.130 75.200 -6.800 0.823 75.577 355.391 53 34.024 36.746 -1.841 33.070 37.850 -3.630 2.308 36.792 357.131 54 19.895 0.766 1.713 18.010 0.500 -0.460 2.889 1.877 65.917 55 48.084 65.391 53.701 47.940 65.310 52.070 1.639 84.616 39.394 56 33.902 32.769 28.182 32.975 32.905 25.805 2.555 43.221 40.696 57 20.096 0.689 1.832 18.010 0.500 -0.460 3.105 1.958 69.398 58 48.093 65.240 53.510 47.940 65.310 52.070 1.449 84.377 39.358 59 33.983 32.963 28.200 32.975 32.905 25.805 2.599 43.379 40.547 60 20.045 0.703 1.815 18.010 0.500 -0.460 3.059 1.946 68.836 61 88.969 -7.916 99.202 90.370 -11.160 96.170 4.656 99.517 94.562 62 54.202 -4.710 50.539 54.190 -5.330 47.855 2.755 50.758 95.324 63 20.513 1.218 2.043 18.010 0.500 -0.460 3.612 2.379 59.195 64 88.968 -7.927 98.732 90.370 -11.160 96.170 4.357 99.050 94.591 65 54.261 -4.648 50.299 54.190 -5.330 47.855 2.539 50.514 95.279 66 20.641 0.847 1.666 18.010 0.500 -0.460 3.401 1.869 63.062 67 53.549 -61.840 40.746 50.900 -62.960 36.710 4.956 74.057 146.619 68 35.886 -31.821 20.383 34.455 -31.230 18.125 2.738 37.790 147.359 69 20.920 1.315 2.010 18.010 0.500 -0.460 3.903 2.401 56.801 70 53.497 -62.212 40.195 50.900 -62.960 36.710 4.410 74.067 147.134 71 35.953 -31.500 20.084 34.455 -31.230 18.125 2.481 37.358 147.479 72 20.895 1.150 1.709 18.010 0.500 -0.460 3.667 2.059 56.060 73 94.784 -1.844 6.954 95.410 -0.980 4.760 2.440 7.194 104.855 74 57.474 -0.187 4.308 56.710 -0.240 2.150 2.290 4.312 92.481 75 19.853 0.660 2.057 18.010 0.500 -0.460 3.124 2.160 72.205 76 94.850 -1.803 6.917 95.410 -0.980 4.760 2.376 7.148 104.613 77 57.492 -0.158 4.396 56.710 -0.240 2.150 2.380 4.399 92.060 78 19.840 0.774 1.873 18.010 0.500 -0.460 2.978 2.026 67.556 79 94.712 -1.740 6.671 95.410 -0.980 4.760 2.171 6.894 104.624 80 75.767 -1.256 4.576 76.060 -0.610 3.455 1.327 4.745 105.346 81 57.770 -0.029 4.084 56.710 -0.240 2.150 2.215 4.084 90.406 82 38.879 0.418 3.397 37.360 0.130 0.845 2.983 3.422 82.988 83 20.500 0.760 1.906 18.010 0.500 -0.460 3.445 2.052 68.276 84 94.746 -1.749 6.752 95.410 -0.980 4.760 2.236 6.975 104.522 85 75.784 -1.036 4.321 76.060 -0.610 3.455 1.004 4.443 103.478 86 57.797 0.122 4.078 56.710 -0.240 2.150 2.243 4.080 88.280 87 38.909 0.429 3.229 37.360 0.130 0.845 2.859 3.258 82.432 88 20.404 0.745 1.681 18.010 0.500 -0.460 3.221 1.839 66.098 89 94.821 -1.758 6.747 95.410 -0.980 4.760 2.214 6.973 104.604 90 86.389 -9.074 -6.237 86.213 -8.393 -7.118 1.128 11.011 214.502 91 76.787 -16.568 -18.756 77.015 -15.805 -18.995 0.832 25.026 228.543 92 68.577 -23.637 -30.298 67.818 -23.218 -30.873 1.041 38.427 232.040 93 59.128 -30.875 -42.876 58.620 -30.630 -42.750 0.578 52.835 234.243 94 94.810 -1.748 6.756 95.410 -0.980 4.760 2.221 6.978 104.505 95 86.419 -8.953 -6.387 86.213 -8.393 -7.118 0.943 10.998 215.505 96 76.820 -16.491 -18.789 77.015 -15.805 -18.995 0.742 25.000 228.727 97 68.658 -23.582 -30.348 67.818 -23.218 -30.873 1.056 38.433 232.151 98 59.211 -30.905 -42.735 58.620 -30.630 -42.750 0.652 52.739 234.127 99 94.672 -1.678 6.502 95.410 -0.980 4.760 2.016 6.715 104.470 100 78.300 7.067 -7.013 77.988 7.103 -7.520 0.597 9.956 315.220 101 60.293 15.348 -19.582 60.565 15.185 -19.800 0.385 24.880 308.089 102 44.203 22.986 -31.712 43.143 23.268 -32.080 1.157 39.167 305.936 103 27.016 31.165 -43.974 25.720 31.350 -44.360 1.365 53.898 305.325 104 94.830 -1.783 6.928 95.410 -0.980 4.760 2.383 7.154 104.433 105 78.257 7.039 -7.270 77.988 7.103 -7.520 0.373 10.119 314.077 106 60.155 15.718 -20.231 60.565 15.185 -19.800 0.798 25.619 307.845 107 44.111 23.540 -32.017 43.143 23.268 -32.080 1.008 39.740 306.324 108 26.626 33.169 -44.169 25.720 31.350 -44.360 2.042 55.237 306.905 109 94.830 -1.701 6.558 95.410 -0.980 4.760 2.022 6.775 104.543 110 83.971 17.488 2.916 83.590 18.065 1.870 1.254 17.729 9.468 111 71.531 37.398 -0.616 71.770 37.110 -1.020 0.550 37.403 359.056 112 60.110 56.166 -3.810 59.950 56.155 -3.910 0.189 56.295 356.120 113 48.082 74.995 -6.574 48.130 75.200 -6.800 0.309 75.282 354.990 114 94.878 -1.729 6.630 95.410 -0.980 4.760 2.084 6.852 104.617 115 83.935 17.501 2.928 83.590 18.065 1.870 1.247 17.744 9.497 116 71.513 37.496 -0.695 71.770 37.110 -1.020 0.566 37.502 358.938 117 60.110 56.159 -3.719 59.950 56.155 -3.910 0.249 56.282 356.211 118 48.182 74.902 -6.412 48.130 75.200 -6.800 0.492 75.176 355.107 119 94.804 -1.818 7.199 95.410 -0.980 4.760 2.649 7.425 104.176 120 82.777 14.554 17.861 83.543 15.593 16.588 1.812 23.040 50.825 121 71.216 31.512 29.973 71.675 32.165 28.415 1.750 43.490 43.566 122 59.233 49.560 42.426 59.808 48.738 40.243 2.403 65.239 40.565 123 47.901 65.572 53.795 47.940 65.310 52.070 1.745 84.815 39.365 124 94.772 -1.833 6.825 95.410 -0.980 4.760 2.324 7.067 105.036 125 82.720 14.616 17.563 83.543 15.593 16.588 1.607 22.849 50.232 126 71.256 31.437 30.263 71.675 32.165 28.415 2.030 43.636 43.910 127 59.267 49.547 42.334 59.808 48.738 40.243 2.306 65.169 40.511 128 47.815 65.383 53.061 47.940 65.310 52.070 1.001 84.204 39.061 129 94.840 -1.780 6.905 95.410 -0.980 4.760 2.359 7.131 104.455 130 93.112 -6.364 28.580 94.150 -3.525 27.613 3.174 29.280 102.554 131 92.030 -9.686 51.982 92.890 -6.070 50.465 4.014 52.877 100.555 132 90.731 -10.442 77.889 91.630 -8.615 73.318 5.005 78.586 97.636 133 88.925 -7.755 98.630 90.370 -11.160 96.170 4.442 98.935 94.496 134 94.750 -1.706 6.774 95.410 -0.980 4.760 2.240 6.985 104.140 135 93.456 -6.983 29.551 94.150 -3.525 27.613 4.024 30.365 103.295 136 91.762 -9.588 54.588 92.890 -6.070 50.465 5.536 55.424 99.962 137 90.523 -9.923 78.975 91.630 -8.615 73.318 5.912 79.596 97.161 138 88.450 -7.383 99.721 90.370 -11.160 96.170 5.528 99.994 94.234 139 94.774 -1.701 6.618 95.410 -0.980 4.760 2.092 6.833 104.419 140 84.620 -17.161 14.272 84.283 -16.475 12.748 1.706 22.320 140.250 141 72.841 -32.934 22.138 73.155 -31.970 20.735 1.731 39.683 146.092 142 63.629 -47.768 31.268 62.028 -47.465 28.723 3.022 57.091 146.792 143 53.074 -62.749 39.986 50.900 -62.960 36.710 3.938 74.407 147.493 144 94.824 -1.732 6.644 95.410 -0.980 4.760 2.111 6.866 104.611 145 84.610 -17.132 14.251 84.283 -16.475 12.748 1.673 22.284 140.245 146 72.795 -32.837 21.866 73.155 -31.970 20.735 1.470 39.451 146.341 147 63.609 -47.604 30.857 62.028 -47.465 28.723 2.660 56.730 147.049 148 53.068 -62.538 39.758 50.900 -62.960 36.710 3.764 74.106 147.554 149 59.304 -30.836 -42.453 58.620 -30.630 -42.750 0.774 52.471 234.007 150 48.835 -23.073 -32.162 48.468 -22.848 -32.178 0.431 39.582 234.345 151 38.544 -15.514 -20.880 38.315 -15.065 -21.605 0.883 26.012 233.387 152 28.577 -8.727 -9.949 28.163 -7.283 -11.033 1.853 13.234 228.743 153 19.400 0.578 1.071 18.010 0.500 -0.460 2.069 1.217 61.645 154 59.283 -30.812 -42.644 58.620 -30.630 -42.750 0.696 52.611 234.150 155 49.013 -23.128 -32.035 48.468 -22.848 -32.178 0.630 39.512 234.172 156 38.632 -15.429 -21.396 38.315 -15.065 -21.605 0.526 26.379 234.205 157 28.626 -9.032 -10.165 28.163 -7.283 -11.033 2.007 13.598 228.377 158 19.526 0.414 1.083 18.010 0.500 -0.460 2.165 1.159 69.068 159 26.747 31.469 -43.910 25.720 31.350 -44.360 1.128 54.022 305.628 160 25.010 24.152 -33.934 23.793 23.638 -33.385 1.431 41.651 305.440 161 23.199 16.450 -22.261 21.865 15.925 -22.410 1.441 27.680 306.463 162 21.560 8.223 -9.882 19.938 8.213 -11.435 2.246 12.856 309.764 163 19.767 0.771 1.400 18.010 0.500 -0.460 2.573 1.598 61.142 164 26.466 33.265 -43.952 25.720 31.350 -44.360 2.096 55.121 307.121 165 24.531 25.256 -34.061 23.793 23.638 -33.385 1.903 42.403 306.557 166 22.532 17.348 -22.759 21.865 15.925 -22.410 1.610 28.617 307.317 167 21.297 9.116 -10.038 19.938 8.213 -11.435 2.148 13.559 312.243 168 20.241 1.362 2.421 18.010 0.500 -0.460 3.745 2.778 60.648 169 47.954 75.045 -6.124 48.130 75.200 -6.800 0.715 75.294 355.335 170 39.935 56.633 -5.204 40.600 56.525 -5.215 0.674 56.872 354.750 171 34.317 37.076 -2.591 33.070 37.850 -3.630 1.798 37.166 356.003 172 27.113 19.906 0.097 25.540 19.175 -2.045 2.756 19.906 0.279 173 20.282 0.865 1.650 18.010 0.500 -0.460 3.122 1.863 62.340 174 48.114 74.940 -6.437 48.130 75.200 -6.800 0.447 75.216 355.091 175 40.005 56.475 -5.385 40.600 56.525 -5.215 0.621 56.731 354.553 176 34.340 37.261 -2.923 33.070 37.850 -3.630 1.569 37.376 355.515 177 27.115 19.691 -0.318 25.540 19.175 -2.045 2.394 19.694 359.076 178 20.357 0.721 1.317 18.010 0.500 -0.460 2.952 1.501 61.306 179 47.885 65.560 53.596 47.940 65.310 52.070 1.548 84.680 39.267 180 40.159 49.175 39.907 40.458 49.108 38.938 1.017 63.331 39.061 181 33.458 32.557 27.471 32.975 32.905 25.805 1.770 42.598 40.158 182 26.575 18.004 15.031 25.493 16.703 12.673 2.904 23.454 39.858 183 19.509 0.349 1.149 18.010 0.500 -0.460 2.205 1.201 73.119 184 47.899 65.372 53.449 47.940 65.310 52.070 1.381 84.441 39.270 185 40.193 49.025 39.636 40.458 49.108 38.938 0.752 63.043 38.955 186 33.443 32.649 27.569 32.975 32.905 25.805 1.843 42.732 40.179 187 26.586 17.967 15.189 25.493 16.703 12.673 3.021 23.527 40.209 188 19.559 0.718 1.107 18.010 0.500 -0.460 2.214 1.319 57.028 189 88.855 -7.734 98.558 90.370 -11.160 96.170 4.442 98.861 94.487 190 72.418 -8.190 74.514 72.280 -8.245 72.013 2.506 74.962 96.272 191 53.856 -5.000 49.618 54.190 -5.330 47.855 1.824 49.869 95.755 192 37.368 -2.171 26.048 36.100 -2.415 23.698 2.682 26.138 94.764 193 19.741 0.588 1.403 18.010 0.500 -0.460 2.544 1.521 67.252 194 88.335 -7.243 99.966 90.370 -11.160 96.170 5.821 100.228 94.144 195 72.521 -8.080 74.951 72.280 -8.245 72.013 2.953 75.385 96.153 196 54.041 -4.892 50.769 54.190 -5.330 47.855 2.951 51.005 95.504 197 37.291 -2.102 27.349 36.100 -2.415 23.698 3.854 27.430 94.394 198 20.047 1.076 1.865 18.010 0.500 -0.460 3.144 2.153 60.022 199 52.992 -62.907 39.847 50.900 -62.960 36.710 3.771 74.466 147.649 200 44.029 -47.586 30.202 42.678 -47.095 27.418 3.134 56.361 147.598 201 35.211 -32.267 19.159 34.455 -31.230 18.125 1.648 37.526 149.301 202 26.980 -16.066 9.803 26.233 -15.365 8.833 1.411 18.821 148.611 203 20.466 0.704 1.621 18.010 0.500 -0.460 3.225 1.767 66.517 204 52.908 -62.721 39.980 50.900 -62.960 36.710 3.845 74.379 147.486 205 43.965 -47.550 30.261 42.678 -47.095 27.418 3.154 56.362 147.527 206 35.087 -31.927 19.339 34.455 -31.230 18.125 1.536 37.328 148.796 207 26.972 -15.836 9.697 26.233 -15.365 8.833 1.232 18.569 148.519 208 20.294 0.770 1.635 18.010 0.500 -0.460 3.111 1.808 64.791 209 94.809 -1.830 6.976 95.410 -0.980 4.760 2.449 7.212 104.699 210 58.984 -30.966 -42.837 58.620 -30.630 -42.750 0.503 52.858 234.137 211 19.349 0.469 1.318 18.010 0.500 -0.460 2.226 1.398 70.426 212 94.944 -1.846 7.105 95.410 -0.980 4.760 2.543 7.341 104.567 213 58.971 -30.882 -42.895 58.620 -30.630 -42.750 0.456 52.855 234.248 214 19.176 0.272 0.555 18.010 0.500 -0.460 1.563 0.618 63.872 215 94.790 -1.802 6.934 95.410 -0.980 4.760 2.405 7.164 104.566 216 26.440 31.213 -44.153 25.720 31.350 -44.360 0.762 54.072 305.257 217 19.441 0.489 1.328 18.010 0.500 -0.460 2.290 1.415 69.769 218 94.798 -1.798 6.914 95.410 -0.980 4.760 2.385 7.145 104.579 219 26.313 31.108 -44.083 25.720 31.350 -44.360 0.697 53.954 305.210 220 19.377 0.342 0.924 18.010 0.500 -0.460 1.951 0.985 69.704 221 94.819 -1.802 6.895 95.410 -0.980 4.760 2.363 7.127 104.645 222 47.850 74.956 -6.176 48.130 75.200 -6.800 0.726 75.210 355.289 223 19.840 0.541 1.276 18.010 0.500 -0.460 2.523 1.386 67.045 224 94.770 -1.747 6.714 95.410 -0.980 4.760 2.194 6.937 104.589 225 47.821 75.208 -5.965 48.130 75.200 -6.800 0.890 75.444 355.465 226 19.694 0.611 1.037 18.010 0.500 -0.460 2.255 1.203 59.503 227 94.825 -1.776 6.746 95.410 -0.980 4.760 2.218 6.976 104.750 228 48.028 65.260 53.084 47.940 65.310 52.070 1.019 84.124 39.126 229 19.876 0.685 0.983 18.010 0.500 -0.460 2.366 1.198 55.119 230 94.757 -1.745 6.631 95.410 -0.980 4.760 2.124 6.857 104.740 231 48.025 65.348 52.692 47.940 65.310 52.070 0.629 83.945 38.880 232 19.948 0.440 0.952 18.010 0.500 -0.460 2.398 1.049 65.224 233 94.873 -1.904 7.232 95.410 -0.980 4.760 2.693 7.478 104.749 234 88.844 -7.513 99.977 90.370 -11.160 96.170 5.488 100.259 94.298 235 19.166 0.454 1.197 18.010 0.500 -0.460 2.021 1.280 69.252 236 94.774 -1.875 7.051 95.410 -0.980 4.760 2.540 7.296 104.892 237 88.796 -7.519 99.400 90.370 -11.160 96.170 5.115 99.684 94.326 238 19.338 0.352 0.841 18.010 0.500 -0.460 1.865 0.912 67.297 239 94.804 -1.889 7.199 95.410 -0.980 4.760 2.672 7.443 104.699 240 52.200 -63.279 39.813 50.900 -62.960 36.710 3.380 74.762 147.823 241 19.336 0.468 1.313 18.010 0.500 -0.460 2.214 1.394 70.403 242 94.841 -1.856 7.078 95.410 -0.980 4.760 2.542 7.317 104.693 243 52.201 -63.318 39.205 50.900 -62.960 36.710 2.837 74.473 148.235 244 19.327 0.532 0.810 18.010 0.500 -0.460 1.830 0.969 56.705 245 59.110 -30.725 -42.847 58.620 -30.630 -42.750 0.508 52.725 234.357 246 26.841 31.207 -43.931 25.720 31.350 -44.360 1.209 53.887 305.389 247 47.998 74.766 -5.917 48.130 75.200 -6.800 0.993 74.999 355.475 248 59.180 -30.727 -42.860 58.620 -30.630 -42.750 0.579 52.736 234.363 249 26.918 30.963 -43.680 25.720 31.350 -44.360 1.431 53.541 305.332 250 47.960 74.748 -5.974 48.130 75.200 -6.800 0.957 74.987 355.431 251 47.932 74.957 -6.193 48.130 75.200 -6.800 0.683 75.213 355.277 252 47.999 65.290 53.196 47.940 65.310 52.070 1.127 84.217 39.172 253 88.840 -7.715 98.748 90.370 -11.160 96.170 4.567 99.049 94.467 254 47.938 74.793 -6.065 48.130 75.200 -6.800 0.862 75.039 355.364 255 47.995 65.199 52.614 47.940 65.310 52.070 0.558 83.781 38.902 256 88.992 -7.768 98.150 90.370 -11.160 96.170 4.162 98.457 94.525 257 88.806 -7.564 99.378 90.370 -11.160 96.170 5.066 99.666 94.353 258 52.054 -63.456 39.583 50.900 -62.960 36.710 3.136 74.790 148.045 259 58.953 -30.907 -42.839 58.620 -30.630 -42.750 0.442 52.824 234.190 260 88.799 -7.554 99.130 90.370 -11.160 96.170 4.923 99.418 94.358 261 52.114 -63.302 39.247 50.900 -62.960 36.710 2.833 74.482 148.202 262 59.070 -30.873 -42.721 58.620 -30.630 -42.750 0.513 52.709 234.145 263 26.607 31.110 -43.675 25.720 31.350 -44.360 1.146 53.622 305.462 264 58.916 -30.902 -42.852 58.620 -30.630 -42.750 0.414 52.832 234.204 265 52.088 -63.025 39.540 50.900 -62.960 36.710 3.070 74.401 147.897 266 26.722 30.906 -43.822 25.720 31.350 -44.360 1.220 53.624 305.194 267 59.121 -30.882 -42.788 58.620 -30.630 -42.750 0.562 52.769 234.181 268 52.256 -63.141 39.105 50.900 -62.960 36.710 2.758 74.269 148.229 269 52.510 -62.813 39.840 50.900 -62.960 36.710 3.523 74.382 147.615 270 88.821 -7.677 99.211 90.370 -11.160 96.170 4.876 99.507 94.425 271 47.854 65.422 53.179 47.940 65.310 52.070 1.118 84.309 39.106 272 52.472 -62.907 39.443 50.900 -62.960 36.710 3.153 74.250 147.912 273 88.911 -7.687 98.611 90.370 -11.160 96.170 4.488 98.910 94.458 274 48.184 65.048 53.192 47.940 65.310 52.070 1.177 84.027 39.274 275 47.989 65.268 53.085 47.940 65.310 52.070 1.017 84.130 39.122 276 47.951 74.898 -5.916 48.130 75.200 -6.800 0.951 75.131 355.484 277 26.916 31.080 -43.714 25.720 31.350 -44.360 1.386 53.637 305.412 278 48.097 65.075 52.962 47.940 65.310 52.070 0.936 83.903 39.141 279 47.899 75.065 -6.424 48.130 75.200 -6.800 0.461 75.339 355.109 280 26.923 31.161 -44.194 25.720 31.350 -44.360 1.229 54.075 305.188 281 59.056 -30.846 -42.596 58.620 -30.630 -42.750 0.510 52.592 234.090 282 42.393 -0.024 -43.358 42.170 0.360 -43.555 0.485 43.358 269.969 283 26.201 31.341 -43.878 25.720 31.350 -44.360 0.681 53.922 305.538 284 35.879 52.754 -25.625 36.925 53.275 -25.580 1.170 58.649 334.092 285 47.697 75.104 -5.768 48.130 75.200 -6.800 1.123 75.325 355.608 286 59.077 -30.803 -42.830 58.620 -30.630 -42.750 0.495 52.757 234.277 287 42.530 0.124 -43.449 42.170 0.360 -43.555 0.443 43.449 270.163 288 26.456 31.114 -43.949 25.720 31.350 -44.360 0.875 53.848 305.297 289 36.149 53.085 -25.997 36.925 53.275 -25.580 0.901 59.109 333.908 290 47.813 74.760 -5.930 48.130 75.200 -6.800 1.026 74.995 355.465 291 47.681 75.057 -5.678 48.130 75.200 -6.800 1.217 75.271 355.674 292 48.009 70.346 23.542 48.035 70.255 22.635 0.912 74.181 18.503 293 47.948 65.385 53.204 47.940 65.310 52.070 1.137 84.297 39.135 294 69.043 27.507 75.803 69.155 27.075 74.120 1.742 80.640 70.055 295 88.877 -7.732 98.861 90.370 -11.160 96.170 4.607 99.162 94.472 296 47.708 75.078 -5.934 48.130 75.200 -6.800 0.971 75.312 355.481 297 48.137 70.269 23.468 48.035 70.255 22.635 0.839 74.085 18.468 298 47.993 65.415 53.124 47.940 65.310 52.070 1.060 84.269 39.080 299 69.008 27.609 75.411 69.155 27.075 74.120 1.405 80.306 69.892 300 88.950 -7.638 98.601 90.370 -11.160 96.170 4.509 98.897 94.429 301 88.888 -7.777 98.464 90.370 -11.160 96.170 4.348 98.770 94.516 302 69.977 -37.776 67.450 70.635 -37.060 66.440 1.402 77.308 119.251 303 52.753 -62.962 39.380 50.900 -62.960 36.710 3.250 74.263 147.976 304 56.064 -46.601 -2.263 54.760 -46.795 -3.020 1.520 46.656 182.780 305 59.454 -30.783 -42.623 58.620 -30.630 -42.750 0.858 52.577 234.163 306 88.698 -7.654 98.411 90.370 -11.160 96.170 4.484 98.708 94.447 307 69.890 -37.662 67.446 70.635 -37.060 66.440 1.389 77.249 119.179 308 52.671 -62.821 38.863 50.900 -62.960 36.710 2.791 73.870 148.258 309 55.892 -46.803 -2.516 54.760 -46.795 -3.020 1.239 46.871 183.077 310 59.528 -30.492 -42.511 58.620 -30.630 -42.750 0.949 52.316 234.349 ] def %LAB_KIi %************************************************************* /D57SERWi 2000 array def %max 57 series of 15 data (100x20) /D57SERWi [%BEG D57SERWi top data WANG_ELCD scaling data %0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %N S N1 N2 N3 N4 N5 NA1 NA2 NA3 NA4 NA5 DV*1i DV*2i WANG1 WANG2 %Serie 1, BAM test chart order 1:25 001 003 001 002 003 000 000 (W) (CW) (C) (0) (0) 26.45 26.39 (W03) (W04) 002 003 007 008 009 000 000 (W) (VW) (V) (0) (0) 29.54 41.95 (W13) (W14) 003 003 013 014 015 000 000 (W) (MW) (M) (0) (0) 31.00 32.74 (W23) (W24) 004 003 019 020 021 000 000 (W) (OW) (O) (0) (0) 28.01 37.64 (W33) (W34) 005 003 025 026 027 000 000 (W) (YW) (Y) (0) (0) 16.99 11.01 (W43) (W44) 006 003 031 032 033 000 000 (W) (LW) (L) (0) (0) 25.44 28.39 (W53) (W54) %Serie 2, BAM test chart order 1:25 007 003 037 038 039 000 000 (C) (CN) (N) (0) (0) 25.80 35.47 (W06) (W05) 008 003 043 044 045 000 000 (V) (VN) (N) (0) (0) 9.30 16.62 (W16) (W15) 009 003 049 050 051 000 000 (M) (MN) (N) (0) (0) 26.80 29.68 (W26) (W25) 010 003 055 056 057 000 000 (O) (ON) (N) (0) (0) 30.62 34.58 (W36) (W35) 011 003 061 062 063 000 000 (Y) (YN) (N) (0) (0) 29.85 41.77 (W46) (W45) 012 003 067 068 069 000 000 (L) (LN) (N) (0) (0) 18.79 35.12 (W56) (W55) %Serie 3, BAM test chart order 3:27 013 003 209 210 211 000 000 (W) (C) (N) (0) (0) 64.17 61.50 (W01) (W02) 014 003 215 216 217 000 000 (W) (V) (N) (0) (0) 67.03 32.91 (W11) (W12) 015 003 221 222 223 000 000 (W) (M) (N) (0) (0) 74.48 61.26 (W21) (W22) 016 003 227 228 229 000 000 (W) (O) (N) (0) (0) 71.77 67.21 (W31) (W32) 017 003 233 234 235 000 000 (W) (Y) (N) (0) (0) 37.26 86.10 (W41) (W42) 018 003 239 240 241 000 000 (W) (L) (N) (0) (0) 50.89 56.11 (W51) (W52) %Serie 4, BAM test chart order 3:27 019 003 245 246 247 000 000 (C) (V) (M) (0) (0) 41.67 45.01 (W09) (W19) 020 003 251 252 253 000 000 (M) (O) (Y) (0) (0) 28.41 72.32 (W29) (W39) 021 003 257 258 259 000 000 (Y) (L) (C) (0) (0) 64.80 40.72 (W49) (W59) 022 003 263 264 265 000 000 (V) (C) (L) (0) (0) 41.67 40.72 (W09) (W59) 023 003 269 270 271 000 000 (L) (Y) (O) (0) (0) 64.80 72.32 (W49) (W39) 024 003 275 276 277 000 000 (O) (M) (V) (0) (0) 28.41 45.01 (W29) (W19) %Serie 5, BAM test chart order 2:26 %values are missing 025 004 089 090 091 000 000 (W) (Wc) (CW) (0) (0) 26.45 0.00 (W03) (W00) 026 004 099 100 101 102 103 (W) (Wv) (VW) (0) (0) 29.54 0.00 (W13) (W00) 027 004 109 110 111 112 113 (W) (Wm) (MW) (0) (0) 31.00 0.00 (W23) (W00) 028 004 119 120 121 122 123 (W) (Wo) (OW) (0) (0) 28.01 0.00 (W33) (W00) 029 004 129 130 131 132 133 (W) (Wy) (YW) (0) (0) 16.99 0.00 (W43) (W00) 030 004 139 140 141 142 143 (W) (Wl) (LW) (0) (0) 25.44 0.00 (W53) (W00) %Serie 6, BAM test chart order 2:26 031 004 091 092 093 000 000 (CW) (Cw) (C) (0) (0) 26.39 0.00 (W04) (W00) 032 004 101 102 103 000 000 (VW) (Vw) (V) (0) (0) 41.95 0.00 (W14) (W00) 033 004 111 112 113 000 000 (MW) (Mw) (M) (0) (0) 32.74 0.00 (W24) (W00) 034 004 121 122 123 000 000 (OW) (Ow) (O) (0) (0) 37.64 0.00 (W34) (W00) 035 004 131 132 133 000 000 (YW) (Yw) (Y) (0) (0) 110.1 0.00 (W44) (W00) 036 004 141 142 143 000 000 (LW) (Lw) (L) (0) (0) 28.39 0.00 (W54) (W00) %Serie 7, BAM test chart order 2:26 037 004 149 150 151 000 000 (C) (Cn) (CN) (0) (0) 25.80 0.00 (W06) (W00) 038 004 159 160 161 000 000 (V) (Vn) (VN) (0) (0) 9.30 0.00 (W16) (W00) 039 004 169 170 171 000 000 (M) (Mn) (MN) (0) (0) 26.80 0.00 (W26) (W00) 040 004 179 180 181 000 000 (O) (On) (ON) (0) (0) 30.62 0.00 (W36) (W00) 041 004 189 190 191 000 000 (Y) (Yn) (YN) (0) (0) 29.85 0.00 (W46) (W00) 042 004 199 200 201 000 000 (L) (Ln) (LN) (0) (0) 18.79 0.00 (W56) (W00) %Serie 8, BAM test chart order 2:26 043 004 151 152 153 000 000 (CN) (Nc) (N) (0) (0) 61.50 0.00 (W02) (W00) 044 004 161 162 163 000 000 (VN) (Nv) (N) (0) (0) 32.91 0.00 (W12) (W00) 045 004 171 172 173 000 000 (MN) (Nm) (N) (0) (0) 61.26 0.00 (W22) (W00) 046 004 181 182 183 000 000 (ON) (No) (N) (0) (0) 67.21 0.00 (W32) (W00) 047 004 191 192 193 000 000 (YN) (Ny) (N) (0) (0) 86.10 0.00 (W42) (W00) 048 004 201 202 203 000 000 (LN) (Nl) (N) (0) (0) 56.11 0.00 (W52) (W00) %Serie 2N, BAM test chart order 1:25, 1 triplet 049 003 073 074 075 000 000 (W) (WN) (N) (0) (0) 10.00 9.00 (W61) (W62) %Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets 050 004 281 282 283 000 000 (C) (CV) (V) (0) (0) 41.67 0.00 (W09) (W00) 051 004 283 284 285 000 000 (V) (MV) (M) (0) (0) 45.01 0.00 (W19) (W00) 052 004 291 292 293 000 000 (M) (MO) (O) (0) (0) 28.41 0.00 (W29) (W00) 053 004 293 294 295 000 000 (O) (YO) (Y) (0) (0) 72.32 0.00 (W39) (W00) 054 004 301 302 303 000 000 (Y) (YL) (L) (0) (0) 64.80 0.00 (W49) (W00) 055 004 303 304 305 000 000 (L) (CL) (C) (0) (0) 40.72 0.00 (W59) (W00) %Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets 056 004 079 080 081 000 000 (W) (Wn) (WN) (0) (0) 10.00 0.00 (W61) (W00) 057 004 081 082 083 000 000 (WN) (Nw) (N) (0) (0) 9.00 0.00 (W62) (W00) ] def %END D57SERWi %************************************************************* /D57SERVia 2000 array def %max 57 series of 15 data (100x20) /D57SERVia [%BEG D57SERVia top data VIK_ELCD scaling data %0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %N S N1 N2 N3 N4 N5 NA1 NA2 NA3 NA4 NA5 DV*1i DV*2i VIK1 VIK2 %Serie 1, BAM test chart order 1:25 001 003 001 002 003 000 000 (W) (CW) (C) (0) (0) 25.24 39.23 (V01) (V02) 002 003 007 008 009 000 000 (W) (VW) (V) (0) (0) 33.11 46.66 (V03) (V04) 003 003 013 014 015 000 000 (W) (MW) (M) (0) (0) 30.92 45.35 (V05) (V06) 004 003 019 020 021 000 000 (W) (OW) (O) (0) (0) 26.55 46.66 (V07) (V08) 005 003 025 026 027 000 000 (W) (YW) (Y) (0) (0) 22.62 23.06 (V09) (V10) 006 003 031 032 033 000 000 (W) (LW) (L) (0) (0) 29.18 40.98 (V11) (V12) %Serie 2, BAM test chart order 1:25 007 003 037 038 039 000 000 (C) (CN) (N) (0) (0) 38.35 42.73 (V13) (V14) 008 003 043 044 045 000 000 (V) (VN) (N) (0) (0) 21.75 31.36 (V15) (V16) 009 003 049 050 051 000 000 (M) (MN) (N) (0) (0) 40.98 44.47 (V17) (V18) 010 003 055 056 057 000 000 (O) (ON) (N) (0) (0) 34.86 43.16 (V19) (V20) 011 003 061 062 063 000 000 (Y) (YN) (N) (0) (0) 35.73 47.97 (V21) (V22) 012 003 067 068 069 000 000 (L) (LN) (N) (0) (0) 36.17 42.29 (V23) (V24) %Serie 3, BAM test chart order 3:27 013 003 209 210 211 000 000 (W) (C) (N) (0) (0) 53.65 55.40 (V26) (V25) 014 003 215 216 217 000 000 (W) (V) (N) (0) (0) 65.02 29.61 (V28) (V27) 015 003 221 222 223 000 000 (W) (M) (N) (0) (0) 60.21 53.22 (V30) (V29) 016 003 227 228 229 000 000 (W) (O) (N) (0) (0) 58.46 48.84 (V32) (V31) 017 003 233 234 235 000 000 (W) (Y) (N) (0) (0) 37.38 61.52 (V34) (V33) 018 003 239 240 241 000 000 (W) (L) (N) (0) (0) 55.84 45.35 (V36) (V35) %Serie 4, BAM test chart order 3:27 019 003 245 246 247 000 000 (C) (V) (M) (0) (0) 44.47 42.29 (V37) (V38) 020 003 251 252 253 000 000 (M) (O) (Y) (0) (0) 22.62 47.97 (V40) (V39) 021 003 257 258 259 000 000 (Y) (L) (C) (0) (0) 46.22 31.36 (V41) (V42) 022 003 263 264 265 000 000 (V) (C) (L) (0) (0) 48.41 30.49 (V44) (V43) 023 003 269 270 271 000 000 (L) (Y) (O) (0) (0) 51.03 53.65 (V46) (V45) 024 003 275 276 277 000 000 (O) (M) (V) (0) (0) 23.49 48.84 (V47) (V48) %Serie 5, BAM test chart order 2:26 %dummy 26.00: values are missing 025 003 089 090 091 000 000 (W) (Wc) (CW) (0) (0) 25.24 26.00 (V01) (V00) 026 003 099 100 101 000 000 (W) (Wv) (VW) (0) (0) 33.11 26.00 (V03) (V00) 027 003 109 110 111 000 000 (W) (Wm) (MW) (0) (0) 30.92 26.00 (V05) (V00) 028 003 119 120 121 000 000 (W) (Wo) (OW) (0) (0) 26.55 26.00 (V07) (V00) 029 003 129 130 131 000 000 (W) (Wy) (YW) (0) (0) 22.62 26.00 (V09) (V00) 030 003 139 140 141 000 000 (W) (Wl) (LW) (0) (0) 29.18 26.00 (V11) (V00) %Serie 6, BAM test chart order 2:26 031 003 091 092 093 000 000 (CW) (Cw) (C) (0) (0) 22.62 27.87 (V62) (V61) 032 003 101 102 103 000 000 (VW) (Vw) (V) (0) (0) 26.99 33.98 (V64) (V63) 033 003 111 112 113 000 000 (MW) (Mw) (M) (0) (0) 28.30 35.73 (V66) (V65) 034 003 121 122 123 000 000 (OW) (Ow) (O) (0) (0) 24.37 33.98 (V68) (V67) 035 003 131 132 133 000 000 (YW) (Yw) (Y) (0) (0) 18.25 20.00 (V70) (V69) 036 003 141 142 143 000 000 (LW) (Lw) (L) (0) (0) 23.49 32.24 (V72) (V71) %Serie 7, BAM test chart order 2:26 037 003 149 150 151 000 000 (C) (Cn) (CN) (0) (0) 29.61 28.74 (V74) (V73) 038 003 159 160 161 000 000 (V) (Vn) (VN) (0) (0) 19.56 18.25 (V76) (V75) 039 003 169 170 171 000 000 (M) (Mn) (MN) (0) (0) 35.73 27.87 (V78) (V77) 040 003 179 180 181 000 000 (O) (On) (ON) (0) (0) 37.48 26.12 (V80) (V79) 041 003 189 190 191 000 000 (Y) (Yn) (YN) (0) (0) 38.35 30.49 (V82) (V81) 042 003 199 200 201 000 000 (L) (Ln) (LN) (0) (0) 33.11 26.99 (V84) (V83) %Serie 8, BAM test chart order 2:26 043 003 151 152 153 000 000 (CN) (Nc) (N) (0) (0) 37.48 26.12 (V86) (V85) 044 003 161 162 163 000 000 (VN) (Nv) (N) (0) (0) 20.43 18.25 (V88) (V87) 045 003 171 172 173 000 000 (MN) (Nm) (N) (0) (0) 34.86 28.30 (V90) (V89) 046 003 181 182 183 000 000 (ON) (No) (N) (0) (0) 33.98 27.87 (V92) (V91) 047 003 191 192 193 000 000 (YN) (Ny) (N) (0) (0) 39.67 34.86 (V94) (V93) 048 003 201 202 203 000 000 (LN) (Nl) (N) (0) (0) 32.24 26.12 (V96) (V95) %Serie 2N, BAM test chart order 1:25, 1 triplet 049 003 073 074 075 000 000 (W) (WN) (N) (0) (0) 40.10 36.61 (V97) (V98) %Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets 050 004 281 282 283 000 000 (C) (CV) (V) (0) (0) 44.47 0.00 (V37) (V00) 051 004 283 284 285 000 000 (V) (MV) (M) (0) (0) 42.29 0.00 (V38) (V00) 052 004 291 292 293 000 000 (M) (MO) (O) (0) (0) 22.62 0.00 (V40) (V00) 053 004 293 294 295 000 000 (O) (YO) (Y) (0) (0) 47.97 0.00 (V39) (V00) 054 004 301 302 303 000 000 (Y) (YL) (L) (0) (0) 46.22 0.00 (V41) (V00) 055 004 303 304 305 000 000 (L) (CL) (C) (0) (0) 31.36 0.00 (V42) (V00) %Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets 056 004 079 080 081 000 000 (W) (Wn) (WN) (0) (0) 40.10 0.00 (V97) (V00) 057 004 081 082 083 000 000 (WN) (Nw) (N) (0) (0) 36.61 0.00 (V98) (V00) ] def %END D57SERVia %************************************************************* /D57SERVi 2000 array def %max 57 series of 15 data (100x20) /D57SERVi [%BEG D57SERVi top data VIK_ELCD scaling data %0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %N S N1 N2 N3 N4 N5 NA1 NA2 NA3 NA4 NA5 DV*1i DV*2i VIK1 VIK2 %Serie 1, BAM test chart order 1:25 001 003 001 002 003 000 000 (W) (CW) (C) 6.06 7.92 25.24 39.23 (V01) (V02) 002 003 007 008 009 000 000 (W) (VW) (V) 3.03 7.44 33.11 46.66 (V03) (V04) 003 003 013 014 015 000 000 (W) (MW) (M) 4.15 7.21 30.92 45.35 (V05) (V06) 004 003 019 020 021 000 000 (W) (OW) (O) 6.27 5.35 26.55 46.66 (V07) (V08) 005 003 025 026 027 000 000 (W) (YW) (Y) 5.39 10.8 22.62 23.06 (V09) (V10) 006 003 031 032 033 000 000 (W) (LW) (L) 4.58 7.82 29.18 40.98 (V11) (V12) %Serie 2, BAM test chart order 1:25 007 003 037 038 039 000 000 (C) (CN) (N) 12.1 5.67 38.35 42.73 (V13) (V14) 008 003 043 044 045 000 000 (V) (VN) (N) 6.42 9.50 21.75 31.36 (V15) (V16) 009 003 049 050 051 000 000 (M) (MN) (N) 9.08 7.82 40.98 44.47 (V17) (V18) 010 003 055 056 057 000 000 (O) (ON) (N) 10.7 9.31 34.86 43.16 (V19) (V20) 011 003 061 062 063 000 000 (Y) (YN) (N) 10.0 6.88 35.73 47.97 (V21) (V22) 012 003 067 068 069 000 000 (L) (LN) (N) 9.87 10.7 36.17 42.29 (V23) (V24) %Serie 3, BAM test chart order 3:27 013 003 209 210 211 000 000 (W) (C) (N) 7.29 5.77 53.65 55.40 (V26) (V25) 014 003 215 216 217 000 000 (W) (V) (N) 6.27 11.1 65.02 29.61 (V28) (V27) 015 003 221 222 223 000 000 (W) (M) (N) 8.91 6.30 60.21 53.22 (V30) (V29) 016 003 227 228 229 000 000 (W) (O) (N) 8.56 9.81 58.46 48.84 (V32) (V31) 017 003 233 234 235 000 000 (W) (Y) (N) 17.1 8.41 37.38 61.52 (V34) (V33) 018 003 239 240 241 000 000 (W) (L) (N) 7.62 10.8 55.84 45.35 (V36) (V35) %Serie 4, BAM test chart order 3:27 019 003 245 246 247 000 000 (C) (V) (M) 11.2 13.7 44.47 42.29 (V37) (V38) 020 003 251 252 253 000 000 (M) (O) (Y) 6.30 11.1 22.62 47.97 (V40) (V39) 021 003 257 258 259 000 000 (Y) (L) (C) 10.3 8.29 46.22 31.36 (V41) (V42) 022 003 263 264 265 000 000 (V) (C) (L) 9.87 11.3 48.41 30.49 (V44) (V43) 023 003 269 270 271 000 000 (L) (Y) (O) 10.2 9.52 51.03 53.65 (V46) (V45) 024 003 275 276 277 000 000 (O) (M) (V) 10.6 11.3 23.49 48.84 (V47) (V48) %Serie 5, BAM test chart order 2:26 %dummy 26.00: values are missing 025 004 089 090 091 000 000 (W) (Wc) (CW) 6.06 6.06 25.24 0.481 (V01) (V00) 026 004 099 100 101 000 000 (W) (Wv) (VW) 7.44 7.44 33.11 0.497 (V03) (V00) 027 004 109 110 111 000 000 (W) (Wm) (MW) 4.15 4.15 30.92 0.492 (V05) (V00) 028 004 119 120 121 000 000 (W) (Wo) (OW) 6.27 6.27 26.55 0.493 (V07) (V00) 029 004 129 130 131 000 000 (W) (Wy) (YW) 5.39 5.39 22.62 0.358 (V09) (V00) 030 004 139 140 141 000 000 (W) (Wl) (LW) 4.58 4.58 29.18 0.492 (V11) (V00) %Serie 6, BAM test chart order 2:26 031 003 091 092 093 000 000 (CW) (Cw) (C) 6.30 12.2 22.62 27.87 (V62) (V61) 032 003 101 102 103 000 000 (VW) (Vw) (V) 7.21 11.3 26.99 33.98 (V64) (V63) 033 003 111 112 113 000 000 (MW) (Mw) (M) 8.76 10.0 28.30 35.73 (V66) (V65) 034 003 121 122 123 000 000 (OW) (Ow) (O) 7.31 10.8 24.37 33.98 (V68) (V67) 035 003 131 132 133 000 000 (YW) (Yw) (Y) 3.27 7.10 18.25 20.00 (V70) (V69) 036 003 141 142 143 000 000 (LW) (Lw) (L) 6.06 11.2 23.49 32.24 (V72) (V71) %Serie 7, BAM test chart order 2:26 037 003 149 150 151 000 000 (C) (Cn) (CN) 8.29 8.48 29.61 28.74 (V74) (V73) 038 003 159 160 161 000 000 (V) (Vn) (VN) 4.58 3.27 19.56 18.25 (V76) (V75) 039 003 169 170 171 000 000 (M) (Mn) (MN) 9.50 12.2 35.73 27.87 (V78) (V77) 040 003 179 180 181 000 000 (O) (On) (ON) 5.10 11.2 37.48 26.12 (V80) (V79) 041 003 189 190 191 000 000 (Y) (Yn) (YN) 12.1 8.65 38.35 30.49 (V82) (V81) 042 003 199 200 201 000 000 (L) (Ln) (LN) 10.3 10.3 33.11 26.99 (V84) (V83) %Serie 8, BAM test chart order 2:26 043 003 151 152 153 000 000 (CN) (Nc) (N) 7.62 9.08 37.48 26.12 (V86) (V85) 044 003 161 162 163 000 000 (VN) (Nv) (N) 6.69 3.27 20.43 18.25 (V88) (V87) 045 003 171 172 173 000 000 (MN) (Nm) (N) 9.08 6.27 34.86 28.30 (V90) (V89) 046 003 181 182 183 000 000 (ON) (No) (N) 9.73 9.73 33.98 27.87 (V92) (V91) 047 003 191 192 193 000 000 (YN) (Ny) (N) 6.74 12.6 39.67 34.86 (V94) (V93) 048 003 201 202 203 000 000 (LN) (Nl) (N) 10.2 9.08 32.24 26.12 (V96) (V95) %Serie 2N, BAM test chart order 1:25, 1 triplet 049 003 073 074 075 000 000 (W) (WN) (N) (0) (0) 40.10 36.61 (V97) (V98) %not used %Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets 050 004 281 282 283 000 000 (C) (CV) (V) (0) (0) 44.47 0.00 (V37) (V00) 051 004 283 284 285 000 000 (V) (MV) (M) (0) (0) 42.29 0.00 (V38) (V00) 052 004 291 292 293 000 000 (M) (MO) (O) (0) (0) 22.62 0.00 (V40) (V00) 053 004 293 294 295 000 000 (O) (YO) (Y) (0) (0) 47.97 0.00 (V39) (V00) 054 004 301 302 303 000 000 (Y) (YL) (L) (0) (0) 46.22 0.00 (V41) (V00) 055 004 303 304 305 000 000 (L) (CL) (C) (0) (0) 31.36 0.00 (V42) (V00) %Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets 056 004 079 080 081 000 000 (W) (Wn) (WN) (0) (0) 40.10 0.00 (V97) (V00) 057 004 081 082 083 000 000 (WN) (Nw) (N) (0) (0) 36.61 0.00 (V98) (V00) ] def %END D57SERVi /d_CIELABi 2800 array def /d_CIELCHi 2800 array def /d_C94LCHi 2800 array def /d_CMCLCHi 2800 array def /d_CM2LCHi 2800 array def /d_C00LCHi 2800 array def /d_C85LCHi 2800 array def /d_C77LCHi 2800 array def /d_C78LCHi 2800 array def /d_C79LCHi 2800 array def /d_CIELABmi 2800 array def /d_CIELCHmi 2800 array def /d_C94LCHmi 2800 array def /d_CMCLCHmi 2800 array def /d_CM2LCHmi 2800 array def /d_C00LCHmi 2800 array def /d_C85LCHmi 2800 array def /d_C77LCHmi 2800 array def /d_C78LCHmi 2800 array def /d_C79LCHmi 2800 array def /D13 1 3 div def /D841_108 841 108 div def /D4_29 4 29 div def /D6_29 6 29 div 3 exp def /proc_coldiff {%BEG procedure proc_coldiff proc_coldiff_WK58.PS 150529 %calculates CIE colour data and differences for 10 colour spaces %BEG CIELAB/CIELCH /FL 0.000001 def X0 XW div D6_29 gt {/FXXN0 X0 XW div 0.0001 add D13 exp def} {/FXXN0 D841_108 X0 XW div mul D4_29 add def} ifelse Y0 YW div D6_29 gt {/FYYN0 Y0 YW div 0.0001 add D13 exp def} {/FYYN0 D841_108 Y0 YW div mul D4_29 add def} ifelse Z0 ZW div D6_29 gt {/FZZN0 Z0 ZW div 0.0001 add D13 exp def} {/FZZN0 D841_108 Z0 ZW div mul D4_29 add def} ifelse /CIEL*0 116. FYYN0 mul 16. sub def /CIEa*0 500. FXXN0 FYYN0 sub mul def /CIEb*0 200. FYYN0 FZZN0 sub mul def /CIEC*ab0 CIEa*0 dup mul CIEb*0 dup mul add 0.0001 add sqrt def /CIEhab0 CIEb*0 CIEa*0 0.0001 add atan def X1 XW div D6_29 gt {/FXXN1 X1 XW div 0.0001 add D13 exp def} {/FXXN1 D841_108 X1 XW div mul D4_29 add def} ifelse Y1 YW div D6_29 gt {/FYYN1 Y1 YW div 0.0001 add D13 exp def} {/FYYN1 D841_108 Y1 YW div mul D4_29 add def} ifelse Z1 ZW div D6_29 gt {/FZZN1 Z1 ZW div 0.0001 add D13 exp def} {/FZZN1 D841_108 Z1 ZW div mul D4_29 add def} ifelse /CIEL*1 116. FYYN1 mul 16. sub def /CIEa*1 500. FXXN1 FYYN1 sub mul def /CIEb*1 200. FYYN1 FZZN1 sub mul def /CIEC*ab1 CIEa*1 dup mul CIEb*1 dup mul add 0.0001 add sqrt def /CIEhab1 CIEb*1 CIEa*1 0.0001 add atan def %mixed terms with *0 sn *1: /d_CIEL* CIEL*1 CIEL*0 sub def /d_CIEa* CIEa*1 CIEa*0 sub def /d_CIEb* CIEb*1 CIEb*0 sub def d_CIELABi i d_CIEL* dup mul d_CIEa* dup mul add d_CIEb* dup mul add 0.00000001 add sqrt put /a_CIELAB 1.26 def /b_CIELAB 0.55 def d_CIELABmi i d_CIELABi i get b_CIELAB exp a_CIELAB mul put /d_CIEh CIEhab1 CIEhab0 sub def %see CIEDE2000 page 4 CIEC*ab1 CIEC*ab0 mul 0 eq {/d_CIEh 0 def} if %CIEC*ab1 x CIEC*ab0 =0 CIEC*ab1 CIEC*ab0 mul 0 ne d_CIEh 180 gt and {/d_CIEh d_CIEh 360 sub def} if CIEC*ab1 CIEC*ab0 mul 0 ne d_CIEh -180 lt and {/d_CIEh d_CIEh 360 add def} if /d_CIEL CIEL*1 CIEL*0 sub def /d_CIECab CIEC*ab1 CIEC*ab0 sub def /d_CIEHab CIEC*ab1 CIEC*ab0 mul 0.000001 add sqrt 2 mul d_CIEh 0.5 mul sin mul def d_CIELCHi i d_CIEL dup mul d_CIECab dup mul add d_CIEHab dup mul add 0.000001 add sqrt put %alternative: %for 2 an 10 degree observer, see Richter (1996) %a'=0,2191 b'=-0,08376 a'10=0,2193, b'10=-0,08417 %a'2 and a'10 used for both 12 and 190 degree observer %BEG LABD65_1976=C76 /S76L 1 def /S76A 1 def /S76B 1 def /K76L 1 def /K76A 1 def /K76B 1 def /AS2 0.2191 def /BS2 -0.08376 def %C76a'=AS2*(x/y)**(1/3) %C76b'=BS2*(z/y)**(1/3) %C76L*=L*CIE %C76a*=500*[C76a'-C76a'n]*Y**(1/3) %C76b*=500*[C76b'-C76b'n]*Y**(1/3) /C76a'0 X0 Y0 FL add div 0.3333 exp AS2 mul def /C76a'1 X1 Y1 FL add div 0.3333 exp AS2 mul def /C76a'n XW YW FL add div 0.3333 exp AS2 mul def /C76b'0 Z0 Y0 FL add div 0.3333 exp BS2 mul def /C76b'1 Z1 Y1 FL add div 0.3333 exp BS2 mul def /C76b'n ZW YW FL add div 0.3333 exp BS2 mul def /C76a*0 C76a'0 C76a'n sub 500 mul Y0 1 3 div exp mul def /C76a*1 C76a'1 C76a'n sub 500 mul Y1 1 3 div exp mul def /C76b*0 C76b'0 C76b'n sub 500 mul Y0 1 3 div exp mul def /C76b*1 C76b'1 C76b'n sub 500 mul Y1 1 3 div exp mul def %name d_CIELCHi instead of d_LABD65i 1976 d_CIELCHi i CIEL*1 CIEL*0 sub K76L div S76L div dup mul C76a*1 C76a*0 sub K76A div S76A div dup mul add C76b*1 C76b*0 sub K76B div S76B div dup mul add 0.00000001 add sqrt put %END LABD65_1976=C76 /a_CIELCH 1.26 def /b_CIELCH 0.55 def d_CIELCHmi i d_CIELCHi i get b_CIELCH exp a_CIELCH mul put %BEG CIELAB/CIELCH %BEG CIE94 /S94L 1 def /S94C 1 0.045 CIEC*ab0 mul add def /S94H 1 0.015 CIEC*ab0 mul add def /K94L 1 def /K94C 1 def /K94H 1 def /LC94*0 CIEL*0 K94L div S94L div def /LC94*1 CIEL*1 K94L div S94L div def /CC94*ab0 CIEC*ab0 K94C div S94C div def /CC94*ab1 CIEC*ab1 K94C div S94C div def d_C94LCHi i CIEL*1 CIEL*0 sub K94L div S94L div dup mul CIEC*ab1 CIEC*ab0 sub K94C div S94C div dup mul add d_CIEHab K94H div S94H div dup mul add 0.00000001 add sqrt put /a_C94LCH 1.41 def /b_C94LCH 0.70 def d_C94LCHmi i d_C94LCHi i get b_C94LCH exp a_C94LCH mul put %END CIE94 %BEG CMC(l:c=1:1) %special mean m of two samples for SCML, SCMC, TCMC /CIEL*0m CIEL*0 CIEL*1 add 0.5 mul def /CMCC0S CIEC*ab0 def /CMCC1S CIEC*ab1 def /CIEC*ab0m CMCC0S CMCC1S add 0.5 mul def CIEC*ab0 0 eq {/CMCh0S 0 def} {/CMCh0S CIEb*0 CIEa*0 0.0001 add atan def } ifelse CIEC*ab1 0 eq {/CMCh1S 0 def} {/CMCh1S CIEb*1 CIEa*1 0.0001 add atan def } ifelse %beg special EQUATION (11) TO (14) /d_CMChS0 CMCh1S CMCh0S sub def %see CIEDE2000 page 4 CMCC1S CMCC0S mul 0 eq {/d_CMChS 0 def} if %CIEC*ab1 x CIEC*ab0 =0 CMCC1S CMCC0S mul 0 ne d_CMChS0 abs 180 le and {/d_CMChSm d_CMChS0 def} if CMCC1S CMCC0S mul 0 ne d_CMChS0 180 gt and {/d_CMChSm d_CMChS0 360 sub def} if CMCC1S CMCC0S mul 0 ne d_CMChS0 -180 lt and {/d_CMChSm d_CMChS0 360 add def} if %end special EQUATION (11) TO (14) %beg special EQUATION (23) TO (26) /a_CMChsm CMCh0S CMCh1S add 0.5 mul def /m_CMCCSm CMCC0S CMCC1S mul def d_CMChSm abs 180 le m_CMCCSm 0 ne and {/CMChSqm a_CMChsm def} if d_CMChSm abs 180 gt a_CMChsm 360 le and m_CMCCSm 0 ne and {/CMChSqm CMCh0S CMCh1S add 360 add 0.5 mul def} if d_CMChSm abs 180 gt a_CMChsm 360 ge and m_CMCCSm 0 ne and {/CMChSqm CMCh0S CMCh1S add 360 sub 0.5 mul def} if m_CMCCSm 0 eq {/CMChSqm CMCh0S CMCh1S add def } if %end special EQUATION (23) TO (26) CIEL*0m 16 lt {/SCMLm 0.511 def} {/SCMLm 0.040975 CIEL*0m mul 0.01765 CIEL*0m mul 1 add div def } ifelse /SCMCm 0.0638 CIEC*ab0m mul 0.0131 CIEC*ab0m mul 1 add div 0.638 add def %beg special /FCMCm CIEC*ab0m dup mul dup mul CIEC*ab0m dup mul dup mul 1900 add div sqrt def CMChSqm 164 lt CMChSqm 345 gt or {/TCMCm CMChSqm 35 add cos 0.4 mul abs 0.36 add def} {/TCMCm CMChSqm 168 add cos 0.2 mul abs 0.56 add def} ifelse %end special /SCMHm TCMCm FCMCm mul 1 add FCMCm sub SCMCm mul def /KCML 1 def %=l /KCMC 1 def %=c /KCMH 1 def %1 /CMCL*0m CIEL*0 KCML div SCMLm div def /CMCL*1m CIEL*1 KCML div SCMLm div def /CMCC*ab0m CIEC*ab0 KCMC div SCMCm div def /CMCC*ab1m CIEC*ab1 KCMC div SCMCm div def d_CMCLCHi i CIEL*1 CIEL*0 sub KCML div SCMLm div dup mul CIEC*ab1 CIEC*ab0 sub KCMC div SCMCm div dup mul add d_CIEHab KCMH div SCMHm div dup mul add 0.00000001 add sqrt put /a_CMCLCH 1.34 def /b_CMCLCH 0.66 def d_CMCLCHmi i d_CMCLCHi i get b_CMCLCH exp a_CMCLCH mul put %END CMC(m:l:c=m:1:1)=CMC %BEG CM2(m:l:c=m:1:2)=CM2 /KM2L 1 def %=l /KM2C 2 def %=c /KM2H 1 def %1 /CM2L*0 CIEL*0 KM2L div SCMLm div def /CM2L*1 CIEL*1 KM2L div SCMLm div def /CM2C*ab0 CIEC*ab0 KM2C div SCMCm div def /CM2C*ab1 CIEC*ab1 KM2C div SCMCm div def d_CM2LCHi i CIEL*1 CIEL*0 sub KM2L div SCMLm div dup mul CIEC*ab1 CIEC*ab0 sub KM2C div SCMCm div dup mul add d_CIEHab KM2H div SCMHm div dup mul add 0.00000001 add sqrt put %END CM2(m:l:c=m:1:2)=CM2 %BEG CIEDE2000=C00 %beg special equation (7) /CIEC*ab CIEC*ab0 CIEC*ab1 add 0.5 mul def /DEG 1 CIEC*ab 7 exp CIEC*ab 7 exp 25 7 exp add div 0.000001 add sqrt sub 0.5 mul def %end special equation (7) %beg special EQUATION (1) TO (6) %0 /C00L0S CIEL*0 def /C00a0S 1 DEG add CIEa*0 mul def /C00b0S CIEb*0 def /C00C0S C00a0S dup mul C00b0S dup mul add 0.000001 add sqrt def C00C0S 0 eq {/C00h0S 0 def} {/C00h0S C00b0S C00a0S 0.0001 add atan def } ifelse %1 /C00L1S CIEL*1 def /C00a1S 1 DEG add CIEa*1 mul def /C00b1S CIEb*1 def /C00C1S C00a1S dup mul C00b1S dup mul add 0.000001 add sqrt def C00C1S 0 eq {/C00h1S 0 def} {/C00h1S C00b1S C00a1S 0.0001 add atan def } ifelse %end special EQUATION (1) TO (6) %beg special EQUATION (11) TO (14) /d_C00hS0 C00h1S C00h0S sub def %see CIEDE2000 page 4 C00C1S C00C0S mul 0 eq {/d_C00hS 0 def} if %CIEC*ab1 x CIEC*ab0 =0 C00C1S C00C0S mul 0 ne d_C00hS0 abs 180 le and {/d_C00hS d_C00hS0 def} if C00C1S C00C0S mul 0 ne d_C00hS0 180 gt and {/d_C00hS d_C00hS0 360 sub def} if C00C1S C00C0S mul 0 ne d_C00hS0 -180 lt and {/d_C00hS d_C00hS0 360 add def} if %end special EQUATION (11) TO (14) %beg special EQUATION (8) TO (10) /d_C00LS C00L1S C00L0S sub def /d_C00aS C00a1S C00a0S sub def /d_C00bS C00b1S C00b0S sub def /d_C00CS C00C1S C00C0S sub def /d_C00HS C00C0S C00C1S mul 0.000001 add sqrt 2 mul d_C00hS 0.5 mul sin mul def %end special EQUATION (8) TO (10) %beg special EQUATION (23) TO (26) /a_C00hs C00h0S C00h1S add 0.5 mul def /m_C00CS C00C0S C00C1S mul def d_C00hS abs 180 le m_C00CS 0 ne and {/C00hSq a_C00hs def} if d_C00hS abs 180 gt a_C00hs 360 le and m_C00CS 0 ne and {/C00hSq C00h0S C00h1S add 360 add 0.5 mul def} if d_C00hS abs 180 gt a_C00hs 360 ge and m_C00CS 0 ne and {/C00hSq C00h0S C00h1S add 360 sub 0.5 mul def} if m_C00CS 0 eq {/C00hSq C00h0S C00h1S add def } if %end special EQUATION (23) TO (26) %beg special EQUATIONS (16) TO (22) /C00LSq C00L0S C00L1S add 0.5 mul def /C00CSq C00C0S C00C1S add 0.5 mul def /C00SL C00LSq 50 sub dup mul 0.015 mul C00LSq 50 sub dup mul 20 add sqrt div 1 add def /C00SC 0.045 C00CSq mul 1 add def %beg special T, RT, d_D, RC /C00T C00hSq 30 sub cos -0.17 mul C00hSq 2 mul cos 0.24 mul add C00hSq 3 mul 6 add cos 0.32 mul add C00hSq 4 mul 63 sub cos 0.20 mul sub 1 add def /C00SH 0.015 C00CSq mul C00T mul 1 add def /C00RC C00CSq 7 exp C00CSq 7 exp 25 7 exp add 0.000001 add div 0.000001 add sqrt 2 mul def /expDT C00hSq 275 sub 25 div dup mul def /econst 2.718281 def /C00DT 30 econst expDT neg exp mul def /C00RT C00DT 2 mul sin neg C00RC mul def %end special T, RT, d_D, RC %end special EQUATIONS (16) TO (22) %beg special EQUATION (15) /C00KL 1.0 def /C00KC 1.0 def /C00KH 1.0 def /d_C00LSN d_C00LS C00KL div C00SL div def /d_C00CSN d_C00CS C00KC div C00SC div def /d_C00HSN d_C00HS C00KH div C00SH div def d_C00LCHi i d_C00LSN dup mul d_C00CSN dup mul add d_C00HSN dup mul add d_C00CSN d_C00HSN mul C00RT mul add 0.000001 add sqrt put /a_C00LCH 1.43 def /b_C00LCH 0.70 def d_C00LCHmi i d_C00LCHi i get b_C00LCH exp a_C00LCH mul put %end special EQUATION (15) %END CIEDE2000=C00 %BEG LABJND=C85 /Yq Y0 Y1 add 0.5 mul def /d_Y Y1 Y0 sub def /a085 X0 Y0 0.000001 add div def /b085 Z0 Y0 0.000001 add div 0.4 mul neg def /a185 X1 Y1 0.000001 add div def /b185 Z1 Y1 0.000001 add div 0.4 mul neg def /an85 XW YW 0.000001 add div def /bn85 ZW YW 0.000001 add div 0.4 mul neg def /d_a085 a085 an85 sub def /d_b085 b085 bn85 sub def /d_a185 a185 an85 sub def /d_b185 b185 bn85 sub def /a0"85 d_a085 d_a085 abs 0.5 mul 1 add div an85 add def /b0"85 d_b085 d_b085 abs 0.5 mul 1 add div bn85 add def /a1"85 d_a185 d_a185 abs 0.5 mul 1 add div an85 add def /b1"85 d_b185 d_b185 abs 0.5 mul 1 add div bn85 add def /d_Y Y1 Y0 sub def /d_a"85 a1"85 a0"85 sub def /d_b"85 b1"85 b0"85 sub def /s85 0.0170 def /q85 0.0058 def /g85 1.0000 def %not used /a0085 1.0 def /b0085 1.8 def /Y0085 1.5 def d_C85LCHi i d_Y dup mul a0085 d_a"85 mul Yq mul dup mul add b0085 d_b"85 mul Yq mul dup mul add 0.000001 add sqrt Y0085 mul q85 Yq mul s85 add div put /a_C85LCH 1.17 def /b_C85LCH 0.35 def d_C85LCHmi i d_C85LCHi i get b_C85LCH exp a_C85LCH mul put %END LABJND=C85 %BEG LABHNU_1977=C77 /S77L 1 def /S77A 1 def /S77B 1 def /K77L 1 def /K77A 1 def /K77B 1 def %C77a'=(x/y+1/6)**(1/3)/4 %C77b'=-(z/y+1/6)**(1/3)/12 %C77L*=L*CIE %C77a*=500*[C77a'-C77a'n]*Y**(1/3) %C77b*=500*[C77b'-C77b'n]*Y**(1/3) /C77a'0 X0 Y0 FL add div 1 6 div add 0.3333 exp 4 div def /C77a'1 X1 Y1 FL add div 1 6 div add 0.3333 exp 4 div def /C77a'n XW YW FL add div 1 6 div add 0.3333 exp 4 div def /C77b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def /C77b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def /C77b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def /C77a*0 C77a'0 C77a'n sub 500 mul Y0 1 3 div exp mul def /C77a*1 C77a'1 C77a'n sub 500 mul Y1 1 3 div exp mul def /C77b*0 C77b'0 C77b'n sub 500 mul Y0 1 3 div exp mul def /C77b*1 C77b'1 C77b'n sub 500 mul Y1 1 3 div exp mul def d_C77LCHi i CIEL*1 CIEL*0 sub K77L div S77L div dup mul C77a*1 C77a*0 sub K77A div S77A div dup mul add C77b*1 C77b*0 sub K77B div S77B div dup mul add 0.00000001 add sqrt put %END LABHNU_1977=C77 %BEG LABHNU1=C78 /S78L 1 def /S78A 1 def /S78B 1 def /K78L 1 def /K78A 1 def /K78B 1 def %C78a'=(x/y+1)/15 %C78b'=-(z/y+1/6)**(1/3)/12 %C78L*=L*CIE %C78a*=500*[C78a'-C78a'n]*Y**(1/3) %C78b*=500*[C78b'-C78b'n]*Y**(1/3) /C78a'0 X0 Y0 FL add div 1 add 15 div def /C78a'1 X1 Y1 FL add div 1 add 15 div def /C78a'n XW YW FL add div 1 add 15 div def /C78b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def /C78b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def /C78b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def /C78a*0 C78a'0 C78a'n sub 500 mul Y0 1 3 div exp mul def /C78a*1 C78a'1 C78a'n sub 500 mul Y0 1 3 div exp mul def /C78b*0 C78b'0 C78b'n sub 500 mul Y0 1 3 div exp mul def /C78b*1 C78b'1 C78b'n sub 500 mul Y0 1 3 div exp mul def d_C78LCHi i CIEL*1 CIEL*0 sub K78L div S78L div dup mul C78a*1 C78a*0 sub K78A div S78A div dup mul add C78b*1 C78b*0 sub K78B div S78B div dup mul add 0.00000001 add sqrt put %END LABHNU1_1978-C78 %BEG LABHNU2_1979=C79 /S79L 1 def /S79A 1 def /S79B 1 def /K79L 1 def /K79A 1 def /K79B 1 def %C79a'=(x/y+1/6)**(2/3)/15 %C79b'=-(z/y+1/6)**(1/3)/12 %C79L*=L*CIE %C79a*=500*[C79a'-C79a'n]*Y**(1/3) %C79b*=500*[C79b'-C79b'n]*Y**(1/3) /C79a'0 X0 Y0 FL add div 1 6 div add 0.6667 exp 15 div def /C79a'1 X1 Y1 FL add div 1 6 div add 0.6667 exp 15 div def /C79a'n XW YW FL add div 1 6 div add 0.6667 exp 15 div def /C79b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def /C79b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def /C79b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def /C79a*0 C79a'0 C79a'n sub 500 mul Y0 1 3 div exp mul def /C79a*1 C79a'1 C79a'n sub 500 mul Y1 1 3 div exp mul def /C79b*0 C79b'0 C79b'n sub 500 mul Y0 1 3 div exp mul def /C79b*1 C79b'1 C79b'n sub 500 mul Y1 1 3 div exp mul def d_C79LCHi i CIEL*1 CIEL*0 sub K79L div S79L div dup mul C79a*1 C79a*0 sub K79A div S79A div dup mul add C79b*1 C79b*0 sub K79B div S79B div dup mul add 0.00000001 add sqrt put %END LABHNU2_1979=C79 } bind def %END procedure proc_coldiff %%EndProlog gsave /lanind 0 def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind le {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind le {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind le {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /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 %see Kittelmann DWORK, page 9 /XWD6502 95.05 def /YWD6502 100.00 def /ZWD6502 108.90 def /XW XWD6502 def /YW YWD6502 def /ZW ZWD6502 def /FL 0.000001 def /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /CIEL*0i 310 array def /CIEa*0i 310 array def /CIEb*0i 310 array def /X0i 310 array def /Y0i 310 array def /Z0i 310 array def %calculate XYZ-values for 310 colours 0 1 309 {/i exch def %i=0,309 /i10 i 10 mul def CIEL*0i i LAB_KIi i10 1 add get put CIEa*0i i LAB_KIi i10 2 add get put CIEb*0i i LAB_KIi i10 3 add get put /X* {CIEL*0i i get 16 add 116 div CIEa*0i i get 500 div add} bind def /Y* {CIEL*0i i get 16 add 116 div} bind def /Z* {CIEL*0i i get 16 add 116 div CIEb*0i i get 200 div sub} bind def X0i i X* DecodeXYZ* XW mul put Y0i i Y* DecodeXYZ* YW mul put Z0i i Z* DecodeXYZ* ZW mul put } for %i=0,309 %************************************************************* /Wdata1 3500 array def %max 350x10 data /Wdata2 3500 array def /IM 056 def %(max IM=056; IM=46=without series C-V- and W-Wn-WN-Nw-N /IM0 113 def %(max IM=057)*2-1 = 057 X 2-1 %default data 0 1 IM0 {/i exch def %i=0,IM0 /i10 i 10 mul def 0 1 9 {/j exch def %j=0,9 Wdata1 i10 j add 1. put Wdata2 i10 j add 1. put } for %j=0,9 } for %i=0,IM0 /D57xSERi 2000 array def /xchart4 0 def %xchart4=0 and 1: calculation for WANG or VIK pair comparison data 0 1 IM {/ii exch def %ii=0,IM /i16 ii 16 mul def 0 1 15 {/j exch def %j=0,15 xchart4 0 eq {D57xSERi i16 j add D57SERWi i16 j add get put} if xchart4 1 eq {D57xSERi i16 j add D57SERVi i16 j add get put} if } for %j=0,15 } for %ii=0,IM /DV*1 200 array def /DV*2 200 array def /DVS1 200 array def /DVS2 200 array def %default data 0 1 IM {/ii exch def %ii=0,IM /i16 ii 16 mul def DV*1 ii 1. put %default DV*2 ii 1. put } for %ii=0,IM %for WANG and VIK 0 1 IM {/ii exch def %ii=0,IM /D57xSER12 D57xSERi i16 12 add get def /D57xSER13 D57xSERi i16 13 add get def DV*1 ii D57xSER12 put DV*2 ii D57xSER13 put xchart4 0 eq {%xchart4=0 %corection for WANG only D57xSER12 0 ne {%D57xSER12#0 DV*1 ii D57xSER12 42.62 div 1. 1.1322 div exp 10 mul put } if %D57xSER12#0 D57xSER13 0 ne {%D57xSER13#0 DV*2 ii D57xSER13 42.62 div 1. 1.1322 div exp 10 mul put } if %D57xSER13#0 } if %xchart4=0 %corection for WANG only } for %ii=0,IM /xchartl 1 def %0 1 5 {/xchartl exch def %xchartl=0,5 gsave 5 /Times-ISOL1 FS 215 85 moveto (XE390-4N) show 72 90 translate /ytit 550 def /yhoe 4000 def /yhoet yhoe ytit sub def /xwide 06000 def /ishow {-50 -100 rmoveto 200 /Times-ISOL1 FS show 0 100 rmoveto TM} bind def 0.01 MM 0.01 MM scale 15 setlinewidth 0.0 0.0 0.0 0.5 setcmykcolor 0 0 moveto xwide 0 rlineto 0 yhoet rlineto xwide neg 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmykcolor 0 0 moveto xwide 0 rlineto 0 yhoet rlineto xwide neg 0 rlineto closepath stroke /yt 300 def %y-Zeilenabstand for text /yd 400 def %y-Zeilenabstand for formula %Titeltext /xt1 0 def /yt1 300 def /S10 100 def /S11 800 def /S20 3250 def /S30 4000 def /Z10 2500 def /Z1C 2200 def /Z1V 1900 def /Z1M 1600 def /Z1O 1300 def /Z1Y 1000 def /Z1L 0700 def /Z1N 0400 def /Z1W 0100 def %HUE CIRCLE /xd 1550 def /yd 5000 def /xp 1550 def /yp 5000 def /xdN xd def /ydN yd 2000 sub def /xdW xd def /ydW yd def /xdR xd 2000 add def /ydR yd 1000 sub def /xm 600 def /xip xd xm 2 mul add def /yip ydN xm 2 mul add def /xi1 xd xm 1 mul sub def /yi1 ydW xm 0.5 mul sub def /xi2 xd xm 2 mul add def /yi2 ydN 400 sub def %************************************************************************* %constant hue planes /xt1 -1000 def /yt1 -2670 def xt1 yt1 translate /xpp xp 350 sub def 0 setgray xpp yp 0850 add moveto /xshift 3200 def TBIK (BAM) show TBK (\2555stufige Farbreihen gleichabst\344ndig in CIELAB) showde ( 5 step colour series equally spaced in CIELAB) showen TBS xpp yp 0600 add moveto xchart4 0 eq {%xchart4=0 (CIELAB Farbdifferenzen ) showde (CIELAB colour differences ) showen SS (D) show TBIS (E*) show TBV 0 -50 rmoveto (ab) show 0 50 rmoveto } if %xchart4=0 xchart4 1 eq {%xchart4=1 (visuelle Farbdifferenzen ) showde (visual colour differences ) showen SS (D) show TBIS (V*) show TBV 0 -50 rmoveto (Vik) show 0 50 rmoveto } if %xchart4=1 /xfact 2000 100 div def /yfact 2000 100 div def /yshift 0800 def /xpW xpp def /ypW yp 200 sub def /ym 0 def /ix -1 def /cwdif4 7 array def /cwdif2 7 array def /cwdif1 7 array def /cndif4 7 array def /cndif2 7 array def /cndif1 7 array def /cwdifx 7 array def /cndifx 7 array def /cwstd4 7 array def /cwstd2 7 array def /cwstd1 7 array def /cnstd4 7 array def /cnstd2 7 array def /cnstd1 7 array def /cwstdx 7 array def /cnstdx 7 array def /wName 7 array def /nName 7 array def /DLAB21ik 7 array def /DLAB32ik 7 array def /DV*1ik 7 array def /DV*2ik 7 array def /DVS1ik 7 array def /DVS2ik 7 array def %default 0 1 6 {/i exch def cwdif4 i 4 put cwdif2 i 2 put cwdif1 i 1 put cndif4 i 40 put cndif2 i 20 put cndif1 i 10 put wName i (W) put nName i (N) put } for /ik 0 def 0 1 6 {/ik exch def %ik=0,6 %7 series %025 W-Wc-CW 089-090-091 %031 CW-Cw-C 091-092-093 %037 C-Cn-CN 149-150-151 %043 CN-Nc-N 151-152-153 %001 W-CW-C 001-002-003 %007 C-CN-N 037-038-039 %013 W-C-N 209-210-211 ik 0 eq {/ii 025 1 sub def} if ik 1 eq {/ii 031 1 sub def} if ik 2 eq {/ii 037 1 sub def} if ik 3 eq {/ii 043 1 sub def} if ik 4 eq {/ii 001 1 sub def} if ik 5 eq {/ii 007 1 sub def} if ik 6 eq {/ii 013 1 sub def} if %6 series/figures /ii ii xchartl add def /i16 ii 16 mul def /S D57xSERi i16 1 add get def S 4 eq {%S=4 /DREL D57xSERi i16 13 add get def DV*1ik ik D57xSERi i16 12 add get DREL mul put DV*2ik ik D57xSERi i16 12 add get 1 DREL sub mul put } if %S=4 S 3 eq {%S=3 DV*1ik ik D57xSERi i16 12 add get put DV*2ik ik D57xSERi i16 13 add get put } if %S=3 %always standard deviation DVS1ik ik D57xSERi i16 10 add get put DVS2ik ik D57xSERi i16 11 add get put /N1 D57xSERi i16 2 add get 1 sub def %Nx-count STARTs at "1" /N2 D57xSERi i16 3 add get 1 sub def /N3 D57xSERi i16 4 add get 1 sub def ik 0 eq {wName 0 D57xSERi i16 7 add get put wName 1 D57xSERi i16 8 add get put wName 2 D57xSERi i16 9 add get put} if ik 1 eq {wName 3 D57xSERi i16 8 add get put wName 4 D57xSERi i16 9 add get put} if ik 2 eq {nName 0 D57xSERi i16 7 add get put nName 1 D57xSERi i16 8 add get put nName 2 D57xSERi i16 9 add get put} if ik 3 eq {nName 3 D57xSERi i16 8 add get put nName 4 D57xSERi i16 9 add get put} if /X10 X0i N1 get def /Y10 Y0i N1 get def /Z10 Z0i N1 get def /X20 X0i N2 get def /Y20 Y0i N2 get def /Z20 Z0i N2 get def /X30 X0i N3 get def /Y30 Y0i N3 get def /Z30 Z0i N3 get def 0 1 1 {/i exch def %i=0,1 i 0 eq {%i=0,1 /X0 X20 def /Y0 Y20 def /Z0 Z20 def /X1 X10 def /Y1 Y10 def /Z1 Z10 def } if %i=0 i 1 eq {%i=1 /X0 X20 def /Y0 Y20 def /Z0 Z20 def /X1 X30 def /Y1 Y30 def /Z1 Z30 def } if %i=1 proc_coldiff } for %i=0,1 DLAB21ik ik d_CIELABi 0 get put DLAB32ik ik d_CIELABi 1 get put %025 ik=0 W-Wc-CW 089-090-091 %031 ik=1 CW-Cw-C 091-092-093 %037 ik=2 C-Cn-CN 149-150-151 %043 ik=3 CN-Nc-N 151-152-153 %001 ik=4 W-CW-C 001-002-003 %007 ik=5 C-CN-N 037-038-039 %013 ik=6 W-C-N 209-210-211 %/ioutk 1 def %ioutk 0 eq {%ioutk=0 xchart4 0 eq {%xchart4=0 ik 0 eq {cwdifx 0 DLAB21ik ik get put %W-Wc-CW cwdifx 1 DLAB32ik ik get put} if ik 1 eq {cwdifx 2 DLAB21ik ik get put %CW-Cw-C cwdifx 3 DLAB32ik ik get put} if ik 2 eq {cndifx 0 DLAB21ik ik get put %C-Cn-CN cndifx 1 DLAB32ik ik get put} if ik 3 eq {cndifx 2 DLAB21ik ik get put %CN-Nc-N cndifx 3 DLAB32ik ik get put} if ik 4 eq {cwdifx 4 DLAB21ik ik get put %W-CW-C cwdifx 5 DLAB32ik ik get put} if ik 5 eq {cndifx 4 DLAB21ik ik get put %C-CN-N cndifx 5 DLAB32ik ik get put} if ik 6 eq {cwdifx 6 DLAB21ik ik get put %W-C-N cndifx 6 DLAB32ik ik get put} if } if %xchart4=0 %} if %ioutk=0 %ioutk 1 eq {%ioutk=1 xchart4 1 eq {%xchart4=1 ik 0 eq {cwdifx 0 DV*1ik ik get put %W-Wc-CW cwdifx 1 DV*2ik ik get put} if ik 1 eq {cwdifx 2 DV*1ik ik get put %CW-Cw-C cwdifx 3 DV*2ik ik get put} if ik 2 eq {cndifx 0 DV*1ik ik get put %C-Cn-CN cndifx 1 DV*2ik ik get put} if ik 3 eq {cndifx 2 DV*1ik ik get put %CN-Nc-N cndifx 3 DV*2ik ik get put} if ik 4 eq {cwdifx 4 DV*1ik ik get put %W-CW-C cwdifx 5 DV*2ik ik get put} if ik 5 eq {cndifx 4 DV*1ik ik get put %C-CN-N cndifx 5 DV*2ik ik get put} if ik 6 eq {cwdifx 6 DV*1ik ik get put %W-C-N cndifx 6 DV*2ik ik get put} if ik 0 eq {cwstdx 0 DVS1ik ik get put %W-Wc-CW cwstdx 1 DVS2ik ik get put} if ik 1 eq {cwstdx 2 DVS1ik ik get put %CW-Cw-C cwstdx 3 DVS2ik ik get put} if ik 2 eq {cnstdx 0 DVS1ik ik get put %C-Cn-CN cnstdx 1 DVS2ik ik get put} if ik 3 eq {cnstdx 2 DVS1ik ik get put %CN-Nc-N cnstdx 3 DVS2ik ik get put} if ik 4 eq {cwstdx 4 DVS1ik ik get put %W-CW-C cwstdx 5 DVS2ik ik get put} if ik 5 eq {cnstdx 4 DVS1ik ik get put %C-CN-N cnstdx 5 DVS2ik ik get put} if ik 6 eq {cwstdx 6 DVS1ik ik get put %W-C-N cnstdx 6 DVS2ik ik get put} if } if %xchart4=1 %} if %ioutk=1 } for %ik=0,6 %7 series 0 1 3 {/ik exch def %ik=0,3 cwdif4 ik cwdifx ik get 0.49 add cvi put cndif4 ik cndifx ik get 0.49 add cvi put } for %ik=0,3 0 1 1 {/ik exch def %ik=0,1 cwdif2 ik cwdifx ik 4 add get 0.49 add cvi put cndif2 ik cndifx ik 4 add get 0.49 add cvi put } for %ik=0,1 cwdif1 0 cwdifx 6 get 0.49 add cvi put cndif1 0 cndifx 6 get 0.49 add cvi put xchart4 1 eq {%xchart4=1 0 1 3 {/ik exch def %ik=0,3 cwstd4 ik cwstdx ik get 0.49 add cvi put cnstd4 ik cnstdx ik get 0.49 add cvi put } for %ik=0,3 0 1 1 {/ik exch def %ik=0,1 cwstd2 ik cwstdx ik 4 add get 0.49 add cvi put cnstd2 ik cnstdx ik 4 add get 0.49 add cvi put } for %ik=0,1 cwstd1 0 cwstdx 6 get 0.49 add cvi put cnstd1 0 cnstdx 6 get 0.49 add cvi put } if %xchart4=1 %STOP5 newpath /k 0 def /j 0 def /i 0 def 0 1 2 {/k exch def %k=0,2 %three rows /ys yshift k mul def 0 1 1 {/j exch def %j=0,1 %left, right /xs xshift j mul def k 0 eq {TBS j 0 eq {%j=0 1 1 1 setrgbcolor xpp yp 0300 add moveto (helle Serie ) showde (light series ) showen wName 4 get show ( nach W) showde ( to W) showen } if %j=0 j 1 eq {%j=1 0 0 0 setrgbcolor xp 450 sub xshift add yp 0300 add moveto (dunkle Serie ) showde (dark series ) showen nName 0 get show ( nach N) showde ( to N) showen } if %j=1 } if %k=0 TS 0 0 0 setrgbcolor 0 1 4 {/i exch def %i=0,4 %five colours /xi xpW xm i mul add xs add def %NW /yi ypW ym i mul add ys sub def % xpW ypW moveto (START, i, wName) show % i cvishow % wName i get show k 0 eq {xi 100 sub yi 200 add moveto j 0 eq {wName 4 i sub get show} if j 1 eq {nName i get show} if newpath } if k 0 eq i 3 le and {xi 100 add yi 350 sub moveto j 0 eq {cwdif4 3 i sub get cvishow} if j 1 eq {cndif4 i get cvishow} if xchart4 1 eq {%xchart4=1 (\261) show %+/- j 0 eq {cwstd4 3 i sub get cvishow} if j 1 eq {cnstd4 i get cvishow} if } if %xchart4=1 newpath } if k 0 eq i 1 le and {xi 400 add i 500 mul add yi 1150 sub moveto j 0 eq {cwdif2 1 i sub get cvishow} if j 1 eq {cndif2 i get cvishow} if xchart4 1 eq {%xchart4=1 (\261) show %+/- j 0 eq {cwstd2 1 i sub get cvishow} if j 1 eq {cnstd2 i get cvishow} if } if %xchart4=1 newpath } if k 0 eq i 0 le and {xi 1000 add i 500 mul add yi 2000 sub moveto j 0 eq {cwdif1 0 get cvishow} if j 1 eq {cndif1 0 get cvishow} if xchart4 1 eq {%xchart4=1 (\261) show %+/- j 0 eq {cwstd1 0 get cvishow} if j 1 eq {cnstd1 0 get cvishow} if } if %xchart4=1 newpath } if i 0 eq i 4 eq or {0 0 0 setrgbcolor xi yi 140 0 360 arc fill } if j 0 eq {%j=0 /w i 4 div def xchartl 0 eq {w 1 1 setrgbcolor} if %C-W xchartl 1 eq {w w 1 setrgbcolor} if %V-W xchartl 2 eq {1 w 1 setrgbcolor} if %M-W xchartl 3 eq {1 w w setrgbcolor} if %O-W xchartl 4 eq {1 1 w setrgbcolor} if %Y-W xchartl 5 eq {w 1 w setrgbcolor} if %L-W } if %j=0 j 1 eq {%j=1 /w 1 i 4 div sub def xchartl 0 eq {0 w w setrgbcolor} if %C-N xchartl 1 eq {0 0 w setrgbcolor} if %V-N xchartl 2 eq {w 0 w setrgbcolor} if %M-N xchartl 3 eq {w 0 0 setrgbcolor} if %O-N xchartl 4 eq {w w 0 setrgbcolor} if %Y-N xchartl 5 eq {0 w 0 setrgbcolor} if %L-N } if %j=1 xi yi 070 0 360 arc fill i 0 eq i 4 eq or {0 0 0 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if k 0 eq {%k=0 i 1 ge i 3 le and {%k=0 and all i 0 0 0 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if %i=2 and k<2 } if %k=0 k 1 eq i 2 eq and {%k=1 and i=2 0 0 0 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if %k=1 and i=2 i 4 eq j 1 eq and {%i=4 and j=1 %cross in black N 1 1 1 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if %i=4 and j=1 } for %i=0,4 } for %j=0,1 } for %k=0,2 xt1 neg yt1 neg translate %************************************************************************* showpage grestore %} for %xchartl=0,5 %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 03 MM sub 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 15 %line 379 %!PS-Adobe-3.0 EPSF-3.0 XE390-5N %%BoundingBox: 70 83 245 190 %START PDFDE011.EPS /pdfmark05 where {pop} {userdict /pdfmark05 /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://130.149.60.45/~farbmetrik/SE25/) /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, colour vision) /Creator (klaus.richter@mac.com) /CreationDate (D:2016070112000) /ModDate (D:2016070112000) /DOCINFO pdfmark05 [ /View [ /FitB ] /DOCVIEW pdfmark05 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /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 /TV {160 /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 /TIV {160 /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 /TBV {160 /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 /TBIV {160 /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 /SV {160 /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 %%EndProlog gsave /nshow {TS show} bind def /kshow {TIS show} bind def /bshow {TBS show} bind def /jshow {TBIS show} bind def /ibshown {TBS -50 -50 rmoveto show 0 50 rmoveto TBS} bind def /ibshow0 {TBS -00 -50 rmoveto show 0 50 rmoveto TBS} bind def /ishown {TS -50 -50 rmoveto show 0 50 rmoveto TS } bind def /ishow0 {TS -00 -50 rmoveto show 0 50 rmoveto TS } bind def %40% kleiner /ns4 {250 /Times-ISOL1 FS show TK} bind def /ks4 {250 /TimesI-ISOL1 FS show TK} bind def /bs4 {250 /TimesB-ISOL1 FS show TK} bind def /js4 {250 /TimesBI-ISOL1 FS show TK} bind def /ss4 {250 /Symbol FS show TK} bind def /is4 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /es4 {200 /Times-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ib4 {200 /TimesB-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /eb4 {200 /TimesB-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ip4 {200 /Times-ISOL1 FS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def %60% kleiner /ns6 {200 /Times-ISOL1 FS show TS} bind def /ks6 {200 /TimesI-ISOL1 FS show TS} bind def /bs6 {200 /TimesB-ISOL1 FS show TS} bind def /js6 {200 /TimesBI-ISOL1 FS show TS} bind def /ss6 {200 /Symbol FS show TS} bind def /is6 {160 /Times-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /es6 {160 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ib6 {160 /TimesB-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /eb6 {160 /TimesB-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ip6 {160 /Times-ISOL1 FS 24 24 rmoveto (\267) show 24 -24 rmoveto TS} bind /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show} def %************************************************************* %Aus Kittelmann_CD_DA/Daten der Ausertung/ %Farbwerte der Farbfelder und Reihen.xls/CIELAB_1 %siehe auch Dipl-Arbeit Seite 31 ff /LAB_KIi 3100 array def %310x10 /LAB_KIi [ %n L*r a*r b*r L*t a*t b*t E*r-t C*r h*r % L*r a*r b*r CIELAB data of 310 printel samples, see page 34 % 95.410 -0.980 4.760 ISO 15775 Papierweiss Tab. 2.2 1 94.806 -1.832 6.977 95.410 -0.980 4.760 2.450 7.213 104.710 2 76.937 -16.536 -18.248 77.015 -15.805 -18.995 1.048 24.626 227.818 3 59.410 -30.942 -42.455 58.620 -30.630 -42.750 0.899 52.534 233.915 4 94.807 -1.883 7.035 95.410 -0.980 4.760 2.520 7.282 104.985 5 76.919 -16.503 -18.327 77.015 -15.805 -18.995 0.971 24.663 227.998 6 59.468 -30.964 -42.431 58.620 -30.630 -42.750 0.966 52.528 233.880 7 94.796 -1.848 7.051 95.410 -0.980 4.760 2.526 7.289 104.684 8 60.143 15.422 -18.907 60.565 15.185 -19.800 1.016 24.399 309.204 9 27.166 31.237 -43.580 25.720 31.350 -44.360 1.646 53.619 305.632 10 94.811 -1.797 6.812 95.410 -0.980 4.760 2.288 7.045 104.775 11 60.039 15.614 -19.124 60.565 15.185 -19.800 0.958 24.689 309.231 12 27.145 31.257 -43.757 25.720 31.350 -44.360 1.550 53.774 305.539 13 94.813 -1.742 6.702 95.410 -0.980 4.760 2.170 6.925 104.573 14 71.354 37.382 -0.087 71.770 37.110 -1.020 1.057 37.382 359.867 15 48.299 74.762 -6.470 48.130 75.200 -6.800 0.573 75.042 355.054 16 94.862 -1.790 6.808 95.410 -0.980 4.760 2.269 7.039 104.734 17 71.430 37.531 -0.146 71.770 37.110 -1.020 1.028 37.531 359.777 18 48.348 75.034 -6.602 48.130 75.200 -6.800 0.338 75.324 354.972 19 94.829 -1.679 6.457 95.410 -0.980 4.760 1.925 6.672 104.576 20 71.895 30.271 30.198 71.675 32.165 28.415 2.611 42.758 44.931 21 48.389 65.379 52.900 47.940 65.310 52.070 0.946 84.100 38.977 22 94.841 -1.727 6.563 95.410 -0.980 4.760 2.033 6.787 104.743 23 71.834 30.282 30.495 71.675 32.165 28.415 2.810 42.976 45.200 24 48.373 65.160 52.576 47.940 65.310 52.070 0.683 83.726 38.899 25 94.856 -1.811 6.930 95.410 -0.980 4.760 2.389 7.163 104.645 26 91.995 -9.864 53.175 92.890 -6.070 50.465 4.747 54.082 100.509 27 88.831 -7.617 100.643 90.370 -11.160 96.170 5.910 100.931 94.328 28 94.840 -1.857 6.961 95.410 -0.980 4.760 2.437 7.204 104.938 29 91.969 -9.864 53.060 92.890 -6.070 50.465 4.688 53.969 100.532 30 88.822 -7.585 99.964 90.370 -11.160 96.170 5.438 100.251 94.339 31 94.843 -1.831 6.986 95.410 -0.980 4.760 2.450 7.223 104.689 32 72.670 -33.310 23.706 73.155 -31.970 20.735 3.296 40.885 144.561 33 52.763 -62.634 40.725 50.900 -62.960 36.710 4.438 74.710 146.968 34 94.844 -1.844 6.940 95.410 -0.980 4.760 2.413 7.181 104.883 35 72.659 -33.330 23.584 73.155 -31.970 20.735 3.195 40.830 144.717 36 52.751 -62.659 40.456 50.900 -62.960 36.710 4.189 74.585 147.152 37 59.858 -30.723 -42.299 58.620 -30.630 -42.750 1.321 52.279 234.008 38 39.512 -15.438 -20.098 38.315 -15.065 -21.605 1.960 25.343 232.471 39 20.439 0.604 1.879 18.010 0.500 -0.460 3.374 1.974 72.184 40 59.843 -30.628 -42.217 58.620 -30.630 -42.750 1.334 52.157 234.039 41 39.472 -15.216 -20.290 38.315 -15.065 -21.605 1.759 25.361 233.132 42 20.596 0.834 1.790 18.010 0.500 -0.460 3.444 1.975 65.031 43 28.050 31.224 -43.592 25.720 31.350 -44.360 2.457 53.621 305.613 44 24.428 16.573 -21.290 21.865 15.925 -22.410 2.871 26.980 307.898 45 20.775 1.062 1.849 18.010 0.500 -0.460 3.646 2.132 60.115 46 27.951 31.592 -43.586 25.720 31.350 -44.360 2.374 53.831 305.935 47 24.413 16.789 -21.558 21.865 15.925 -22.410 2.822 27.324 307.911 48 20.742 1.238 1.780 18.010 0.500 -0.460 3.609 2.168 55.193 49 47.685 75.265 -6.106 48.130 75.200 -6.800 0.827 75.513 355.362 50 34.058 36.976 -1.848 33.070 37.850 -3.630 2.217 37.022 357.138 51 19.828 0.759 1.618 18.010 0.500 -0.460 2.773 1.787 64.874 52 47.770 75.333 -6.073 48.130 75.200 -6.800 0.823 75.577 355.391 53 34.024 36.746 -1.841 33.070 37.850 -3.630 2.308 36.792 357.131 54 19.895 0.766 1.713 18.010 0.500 -0.460 2.889 1.877 65.917 55 48.084 65.391 53.701 47.940 65.310 52.070 1.639 84.616 39.394 56 33.902 32.769 28.182 32.975 32.905 25.805 2.555 43.221 40.696 57 20.096 0.689 1.832 18.010 0.500 -0.460 3.105 1.958 69.398 58 48.093 65.240 53.510 47.940 65.310 52.070 1.449 84.377 39.358 59 33.983 32.963 28.200 32.975 32.905 25.805 2.599 43.379 40.547 60 20.045 0.703 1.815 18.010 0.500 -0.460 3.059 1.946 68.836 61 88.969 -7.916 99.202 90.370 -11.160 96.170 4.656 99.517 94.562 62 54.202 -4.710 50.539 54.190 -5.330 47.855 2.755 50.758 95.324 63 20.513 1.218 2.043 18.010 0.500 -0.460 3.612 2.379 59.195 64 88.968 -7.927 98.732 90.370 -11.160 96.170 4.357 99.050 94.591 65 54.261 -4.648 50.299 54.190 -5.330 47.855 2.539 50.514 95.279 66 20.641 0.847 1.666 18.010 0.500 -0.460 3.401 1.869 63.062 67 53.549 -61.840 40.746 50.900 -62.960 36.710 4.956 74.057 146.619 68 35.886 -31.821 20.383 34.455 -31.230 18.125 2.738 37.790 147.359 69 20.920 1.315 2.010 18.010 0.500 -0.460 3.903 2.401 56.801 70 53.497 -62.212 40.195 50.900 -62.960 36.710 4.410 74.067 147.134 71 35.953 -31.500 20.084 34.455 -31.230 18.125 2.481 37.358 147.479 72 20.895 1.150 1.709 18.010 0.500 -0.460 3.667 2.059 56.060 73 94.784 -1.844 6.954 95.410 -0.980 4.760 2.440 7.194 104.855 74 57.474 -0.187 4.308 56.710 -0.240 2.150 2.290 4.312 92.481 75 19.853 0.660 2.057 18.010 0.500 -0.460 3.124 2.160 72.205 76 94.850 -1.803 6.917 95.410 -0.980 4.760 2.376 7.148 104.613 77 57.492 -0.158 4.396 56.710 -0.240 2.150 2.380 4.399 92.060 78 19.840 0.774 1.873 18.010 0.500 -0.460 2.978 2.026 67.556 79 94.712 -1.740 6.671 95.410 -0.980 4.760 2.171 6.894 104.624 80 75.767 -1.256 4.576 76.060 -0.610 3.455 1.327 4.745 105.346 81 57.770 -0.029 4.084 56.710 -0.240 2.150 2.215 4.084 90.406 82 38.879 0.418 3.397 37.360 0.130 0.845 2.983 3.422 82.988 83 20.500 0.760 1.906 18.010 0.500 -0.460 3.445 2.052 68.276 84 94.746 -1.749 6.752 95.410 -0.980 4.760 2.236 6.975 104.522 85 75.784 -1.036 4.321 76.060 -0.610 3.455 1.004 4.443 103.478 86 57.797 0.122 4.078 56.710 -0.240 2.150 2.243 4.080 88.280 87 38.909 0.429 3.229 37.360 0.130 0.845 2.859 3.258 82.432 88 20.404 0.745 1.681 18.010 0.500 -0.460 3.221 1.839 66.098 89 94.821 -1.758 6.747 95.410 -0.980 4.760 2.214 6.973 104.604 90 86.389 -9.074 -6.237 86.213 -8.393 -7.118 1.128 11.011 214.502 91 76.787 -16.568 -18.756 77.015 -15.805 -18.995 0.832 25.026 228.543 92 68.577 -23.637 -30.298 67.818 -23.218 -30.873 1.041 38.427 232.040 93 59.128 -30.875 -42.876 58.620 -30.630 -42.750 0.578 52.835 234.243 94 94.810 -1.748 6.756 95.410 -0.980 4.760 2.221 6.978 104.505 95 86.419 -8.953 -6.387 86.213 -8.393 -7.118 0.943 10.998 215.505 96 76.820 -16.491 -18.789 77.015 -15.805 -18.995 0.742 25.000 228.727 97 68.658 -23.582 -30.348 67.818 -23.218 -30.873 1.056 38.433 232.151 98 59.211 -30.905 -42.735 58.620 -30.630 -42.750 0.652 52.739 234.127 99 94.672 -1.678 6.502 95.410 -0.980 4.760 2.016 6.715 104.470 100 78.300 7.067 -7.013 77.988 7.103 -7.520 0.597 9.956 315.220 101 60.293 15.348 -19.582 60.565 15.185 -19.800 0.385 24.880 308.089 102 44.203 22.986 -31.712 43.143 23.268 -32.080 1.157 39.167 305.936 103 27.016 31.165 -43.974 25.720 31.350 -44.360 1.365 53.898 305.325 104 94.830 -1.783 6.928 95.410 -0.980 4.760 2.383 7.154 104.433 105 78.257 7.039 -7.270 77.988 7.103 -7.520 0.373 10.119 314.077 106 60.155 15.718 -20.231 60.565 15.185 -19.800 0.798 25.619 307.845 107 44.111 23.540 -32.017 43.143 23.268 -32.080 1.008 39.740 306.324 108 26.626 33.169 -44.169 25.720 31.350 -44.360 2.042 55.237 306.905 109 94.830 -1.701 6.558 95.410 -0.980 4.760 2.022 6.775 104.543 110 83.971 17.488 2.916 83.590 18.065 1.870 1.254 17.729 9.468 111 71.531 37.398 -0.616 71.770 37.110 -1.020 0.550 37.403 359.056 112 60.110 56.166 -3.810 59.950 56.155 -3.910 0.189 56.295 356.120 113 48.082 74.995 -6.574 48.130 75.200 -6.800 0.309 75.282 354.990 114 94.878 -1.729 6.630 95.410 -0.980 4.760 2.084 6.852 104.617 115 83.935 17.501 2.928 83.590 18.065 1.870 1.247 17.744 9.497 116 71.513 37.496 -0.695 71.770 37.110 -1.020 0.566 37.502 358.938 117 60.110 56.159 -3.719 59.950 56.155 -3.910 0.249 56.282 356.211 118 48.182 74.902 -6.412 48.130 75.200 -6.800 0.492 75.176 355.107 119 94.804 -1.818 7.199 95.410 -0.980 4.760 2.649 7.425 104.176 120 82.777 14.554 17.861 83.543 15.593 16.588 1.812 23.040 50.825 121 71.216 31.512 29.973 71.675 32.165 28.415 1.750 43.490 43.566 122 59.233 49.560 42.426 59.808 48.738 40.243 2.403 65.239 40.565 123 47.901 65.572 53.795 47.940 65.310 52.070 1.745 84.815 39.365 124 94.772 -1.833 6.825 95.410 -0.980 4.760 2.324 7.067 105.036 125 82.720 14.616 17.563 83.543 15.593 16.588 1.607 22.849 50.232 126 71.256 31.437 30.263 71.675 32.165 28.415 2.030 43.636 43.910 127 59.267 49.547 42.334 59.808 48.738 40.243 2.306 65.169 40.511 128 47.815 65.383 53.061 47.940 65.310 52.070 1.001 84.204 39.061 129 94.840 -1.780 6.905 95.410 -0.980 4.760 2.359 7.131 104.455 130 93.112 -6.364 28.580 94.150 -3.525 27.613 3.174 29.280 102.554 131 92.030 -9.686 51.982 92.890 -6.070 50.465 4.014 52.877 100.555 132 90.731 -10.442 77.889 91.630 -8.615 73.318 5.005 78.586 97.636 133 88.925 -7.755 98.630 90.370 -11.160 96.170 4.442 98.935 94.496 134 94.750 -1.706 6.774 95.410 -0.980 4.760 2.240 6.985 104.140 135 93.456 -6.983 29.551 94.150 -3.525 27.613 4.024 30.365 103.295 136 91.762 -9.588 54.588 92.890 -6.070 50.465 5.536 55.424 99.962 137 90.523 -9.923 78.975 91.630 -8.615 73.318 5.912 79.596 97.161 138 88.450 -7.383 99.721 90.370 -11.160 96.170 5.528 99.994 94.234 139 94.774 -1.701 6.618 95.410 -0.980 4.760 2.092 6.833 104.419 140 84.620 -17.161 14.272 84.283 -16.475 12.748 1.706 22.320 140.250 141 72.841 -32.934 22.138 73.155 -31.970 20.735 1.731 39.683 146.092 142 63.629 -47.768 31.268 62.028 -47.465 28.723 3.022 57.091 146.792 143 53.074 -62.749 39.986 50.900 -62.960 36.710 3.938 74.407 147.493 144 94.824 -1.732 6.644 95.410 -0.980 4.760 2.111 6.866 104.611 145 84.610 -17.132 14.251 84.283 -16.475 12.748 1.673 22.284 140.245 146 72.795 -32.837 21.866 73.155 -31.970 20.735 1.470 39.451 146.341 147 63.609 -47.604 30.857 62.028 -47.465 28.723 2.660 56.730 147.049 148 53.068 -62.538 39.758 50.900 -62.960 36.710 3.764 74.106 147.554 149 59.304 -30.836 -42.453 58.620 -30.630 -42.750 0.774 52.471 234.007 150 48.835 -23.073 -32.162 48.468 -22.848 -32.178 0.431 39.582 234.345 151 38.544 -15.514 -20.880 38.315 -15.065 -21.605 0.883 26.012 233.387 152 28.577 -8.727 -9.949 28.163 -7.283 -11.033 1.853 13.234 228.743 153 19.400 0.578 1.071 18.010 0.500 -0.460 2.069 1.217 61.645 154 59.283 -30.812 -42.644 58.620 -30.630 -42.750 0.696 52.611 234.150 155 49.013 -23.128 -32.035 48.468 -22.848 -32.178 0.630 39.512 234.172 156 38.632 -15.429 -21.396 38.315 -15.065 -21.605 0.526 26.379 234.205 157 28.626 -9.032 -10.165 28.163 -7.283 -11.033 2.007 13.598 228.377 158 19.526 0.414 1.083 18.010 0.500 -0.460 2.165 1.159 69.068 159 26.747 31.469 -43.910 25.720 31.350 -44.360 1.128 54.022 305.628 160 25.010 24.152 -33.934 23.793 23.638 -33.385 1.431 41.651 305.440 161 23.199 16.450 -22.261 21.865 15.925 -22.410 1.441 27.680 306.463 162 21.560 8.223 -9.882 19.938 8.213 -11.435 2.246 12.856 309.764 163 19.767 0.771 1.400 18.010 0.500 -0.460 2.573 1.598 61.142 164 26.466 33.265 -43.952 25.720 31.350 -44.360 2.096 55.121 307.121 165 24.531 25.256 -34.061 23.793 23.638 -33.385 1.903 42.403 306.557 166 22.532 17.348 -22.759 21.865 15.925 -22.410 1.610 28.617 307.317 167 21.297 9.116 -10.038 19.938 8.213 -11.435 2.148 13.559 312.243 168 20.241 1.362 2.421 18.010 0.500 -0.460 3.745 2.778 60.648 169 47.954 75.045 -6.124 48.130 75.200 -6.800 0.715 75.294 355.335 170 39.935 56.633 -5.204 40.600 56.525 -5.215 0.674 56.872 354.750 171 34.317 37.076 -2.591 33.070 37.850 -3.630 1.798 37.166 356.003 172 27.113 19.906 0.097 25.540 19.175 -2.045 2.756 19.906 0.279 173 20.282 0.865 1.650 18.010 0.500 -0.460 3.122 1.863 62.340 174 48.114 74.940 -6.437 48.130 75.200 -6.800 0.447 75.216 355.091 175 40.005 56.475 -5.385 40.600 56.525 -5.215 0.621 56.731 354.553 176 34.340 37.261 -2.923 33.070 37.850 -3.630 1.569 37.376 355.515 177 27.115 19.691 -0.318 25.540 19.175 -2.045 2.394 19.694 359.076 178 20.357 0.721 1.317 18.010 0.500 -0.460 2.952 1.501 61.306 179 47.885 65.560 53.596 47.940 65.310 52.070 1.548 84.680 39.267 180 40.159 49.175 39.907 40.458 49.108 38.938 1.017 63.331 39.061 181 33.458 32.557 27.471 32.975 32.905 25.805 1.770 42.598 40.158 182 26.575 18.004 15.031 25.493 16.703 12.673 2.904 23.454 39.858 183 19.509 0.349 1.149 18.010 0.500 -0.460 2.205 1.201 73.119 184 47.899 65.372 53.449 47.940 65.310 52.070 1.381 84.441 39.270 185 40.193 49.025 39.636 40.458 49.108 38.938 0.752 63.043 38.955 186 33.443 32.649 27.569 32.975 32.905 25.805 1.843 42.732 40.179 187 26.586 17.967 15.189 25.493 16.703 12.673 3.021 23.527 40.209 188 19.559 0.718 1.107 18.010 0.500 -0.460 2.214 1.319 57.028 189 88.855 -7.734 98.558 90.370 -11.160 96.170 4.442 98.861 94.487 190 72.418 -8.190 74.514 72.280 -8.245 72.013 2.506 74.962 96.272 191 53.856 -5.000 49.618 54.190 -5.330 47.855 1.824 49.869 95.755 192 37.368 -2.171 26.048 36.100 -2.415 23.698 2.682 26.138 94.764 193 19.741 0.588 1.403 18.010 0.500 -0.460 2.544 1.521 67.252 194 88.335 -7.243 99.966 90.370 -11.160 96.170 5.821 100.228 94.144 195 72.521 -8.080 74.951 72.280 -8.245 72.013 2.953 75.385 96.153 196 54.041 -4.892 50.769 54.190 -5.330 47.855 2.951 51.005 95.504 197 37.291 -2.102 27.349 36.100 -2.415 23.698 3.854 27.430 94.394 198 20.047 1.076 1.865 18.010 0.500 -0.460 3.144 2.153 60.022 199 52.992 -62.907 39.847 50.900 -62.960 36.710 3.771 74.466 147.649 200 44.029 -47.586 30.202 42.678 -47.095 27.418 3.134 56.361 147.598 201 35.211 -32.267 19.159 34.455 -31.230 18.125 1.648 37.526 149.301 202 26.980 -16.066 9.803 26.233 -15.365 8.833 1.411 18.821 148.611 203 20.466 0.704 1.621 18.010 0.500 -0.460 3.225 1.767 66.517 204 52.908 -62.721 39.980 50.900 -62.960 36.710 3.845 74.379 147.486 205 43.965 -47.550 30.261 42.678 -47.095 27.418 3.154 56.362 147.527 206 35.087 -31.927 19.339 34.455 -31.230 18.125 1.536 37.328 148.796 207 26.972 -15.836 9.697 26.233 -15.365 8.833 1.232 18.569 148.519 208 20.294 0.770 1.635 18.010 0.500 -0.460 3.111 1.808 64.791 209 94.809 -1.830 6.976 95.410 -0.980 4.760 2.449 7.212 104.699 210 58.984 -30.966 -42.837 58.620 -30.630 -42.750 0.503 52.858 234.137 211 19.349 0.469 1.318 18.010 0.500 -0.460 2.226 1.398 70.426 212 94.944 -1.846 7.105 95.410 -0.980 4.760 2.543 7.341 104.567 213 58.971 -30.882 -42.895 58.620 -30.630 -42.750 0.456 52.855 234.248 214 19.176 0.272 0.555 18.010 0.500 -0.460 1.563 0.618 63.872 215 94.790 -1.802 6.934 95.410 -0.980 4.760 2.405 7.164 104.566 216 26.440 31.213 -44.153 25.720 31.350 -44.360 0.762 54.072 305.257 217 19.441 0.489 1.328 18.010 0.500 -0.460 2.290 1.415 69.769 218 94.798 -1.798 6.914 95.410 -0.980 4.760 2.385 7.145 104.579 219 26.313 31.108 -44.083 25.720 31.350 -44.360 0.697 53.954 305.210 220 19.377 0.342 0.924 18.010 0.500 -0.460 1.951 0.985 69.704 221 94.819 -1.802 6.895 95.410 -0.980 4.760 2.363 7.127 104.645 222 47.850 74.956 -6.176 48.130 75.200 -6.800 0.726 75.210 355.289 223 19.840 0.541 1.276 18.010 0.500 -0.460 2.523 1.386 67.045 224 94.770 -1.747 6.714 95.410 -0.980 4.760 2.194 6.937 104.589 225 47.821 75.208 -5.965 48.130 75.200 -6.800 0.890 75.444 355.465 226 19.694 0.611 1.037 18.010 0.500 -0.460 2.255 1.203 59.503 227 94.825 -1.776 6.746 95.410 -0.980 4.760 2.218 6.976 104.750 228 48.028 65.260 53.084 47.940 65.310 52.070 1.019 84.124 39.126 229 19.876 0.685 0.983 18.010 0.500 -0.460 2.366 1.198 55.119 230 94.757 -1.745 6.631 95.410 -0.980 4.760 2.124 6.857 104.740 231 48.025 65.348 52.692 47.940 65.310 52.070 0.629 83.945 38.880 232 19.948 0.440 0.952 18.010 0.500 -0.460 2.398 1.049 65.224 233 94.873 -1.904 7.232 95.410 -0.980 4.760 2.693 7.478 104.749 234 88.844 -7.513 99.977 90.370 -11.160 96.170 5.488 100.259 94.298 235 19.166 0.454 1.197 18.010 0.500 -0.460 2.021 1.280 69.252 236 94.774 -1.875 7.051 95.410 -0.980 4.760 2.540 7.296 104.892 237 88.796 -7.519 99.400 90.370 -11.160 96.170 5.115 99.684 94.326 238 19.338 0.352 0.841 18.010 0.500 -0.460 1.865 0.912 67.297 239 94.804 -1.889 7.199 95.410 -0.980 4.760 2.672 7.443 104.699 240 52.200 -63.279 39.813 50.900 -62.960 36.710 3.380 74.762 147.823 241 19.336 0.468 1.313 18.010 0.500 -0.460 2.214 1.394 70.403 242 94.841 -1.856 7.078 95.410 -0.980 4.760 2.542 7.317 104.693 243 52.201 -63.318 39.205 50.900 -62.960 36.710 2.837 74.473 148.235 244 19.327 0.532 0.810 18.010 0.500 -0.460 1.830 0.969 56.705 245 59.110 -30.725 -42.847 58.620 -30.630 -42.750 0.508 52.725 234.357 246 26.841 31.207 -43.931 25.720 31.350 -44.360 1.209 53.887 305.389 247 47.998 74.766 -5.917 48.130 75.200 -6.800 0.993 74.999 355.475 248 59.180 -30.727 -42.860 58.620 -30.630 -42.750 0.579 52.736 234.363 249 26.918 30.963 -43.680 25.720 31.350 -44.360 1.431 53.541 305.332 250 47.960 74.748 -5.974 48.130 75.200 -6.800 0.957 74.987 355.431 251 47.932 74.957 -6.193 48.130 75.200 -6.800 0.683 75.213 355.277 252 47.999 65.290 53.196 47.940 65.310 52.070 1.127 84.217 39.172 253 88.840 -7.715 98.748 90.370 -11.160 96.170 4.567 99.049 94.467 254 47.938 74.793 -6.065 48.130 75.200 -6.800 0.862 75.039 355.364 255 47.995 65.199 52.614 47.940 65.310 52.070 0.558 83.781 38.902 256 88.992 -7.768 98.150 90.370 -11.160 96.170 4.162 98.457 94.525 257 88.806 -7.564 99.378 90.370 -11.160 96.170 5.066 99.666 94.353 258 52.054 -63.456 39.583 50.900 -62.960 36.710 3.136 74.790 148.045 259 58.953 -30.907 -42.839 58.620 -30.630 -42.750 0.442 52.824 234.190 260 88.799 -7.554 99.130 90.370 -11.160 96.170 4.923 99.418 94.358 261 52.114 -63.302 39.247 50.900 -62.960 36.710 2.833 74.482 148.202 262 59.070 -30.873 -42.721 58.620 -30.630 -42.750 0.513 52.709 234.145 263 26.607 31.110 -43.675 25.720 31.350 -44.360 1.146 53.622 305.462 264 58.916 -30.902 -42.852 58.620 -30.630 -42.750 0.414 52.832 234.204 265 52.088 -63.025 39.540 50.900 -62.960 36.710 3.070 74.401 147.897 266 26.722 30.906 -43.822 25.720 31.350 -44.360 1.220 53.624 305.194 267 59.121 -30.882 -42.788 58.620 -30.630 -42.750 0.562 52.769 234.181 268 52.256 -63.141 39.105 50.900 -62.960 36.710 2.758 74.269 148.229 269 52.510 -62.813 39.840 50.900 -62.960 36.710 3.523 74.382 147.615 270 88.821 -7.677 99.211 90.370 -11.160 96.170 4.876 99.507 94.425 271 47.854 65.422 53.179 47.940 65.310 52.070 1.118 84.309 39.106 272 52.472 -62.907 39.443 50.900 -62.960 36.710 3.153 74.250 147.912 273 88.911 -7.687 98.611 90.370 -11.160 96.170 4.488 98.910 94.458 274 48.184 65.048 53.192 47.940 65.310 52.070 1.177 84.027 39.274 275 47.989 65.268 53.085 47.940 65.310 52.070 1.017 84.130 39.122 276 47.951 74.898 -5.916 48.130 75.200 -6.800 0.951 75.131 355.484 277 26.916 31.080 -43.714 25.720 31.350 -44.360 1.386 53.637 305.412 278 48.097 65.075 52.962 47.940 65.310 52.070 0.936 83.903 39.141 279 47.899 75.065 -6.424 48.130 75.200 -6.800 0.461 75.339 355.109 280 26.923 31.161 -44.194 25.720 31.350 -44.360 1.229 54.075 305.188 281 59.056 -30.846 -42.596 58.620 -30.630 -42.750 0.510 52.592 234.090 282 42.393 -0.024 -43.358 42.170 0.360 -43.555 0.485 43.358 269.969 283 26.201 31.341 -43.878 25.720 31.350 -44.360 0.681 53.922 305.538 284 35.879 52.754 -25.625 36.925 53.275 -25.580 1.170 58.649 334.092 285 47.697 75.104 -5.768 48.130 75.200 -6.800 1.123 75.325 355.608 286 59.077 -30.803 -42.830 58.620 -30.630 -42.750 0.495 52.757 234.277 287 42.530 0.124 -43.449 42.170 0.360 -43.555 0.443 43.449 270.163 288 26.456 31.114 -43.949 25.720 31.350 -44.360 0.875 53.848 305.297 289 36.149 53.085 -25.997 36.925 53.275 -25.580 0.901 59.109 333.908 290 47.813 74.760 -5.930 48.130 75.200 -6.800 1.026 74.995 355.465 291 47.681 75.057 -5.678 48.130 75.200 -6.800 1.217 75.271 355.674 292 48.009 70.346 23.542 48.035 70.255 22.635 0.912 74.181 18.503 293 47.948 65.385 53.204 47.940 65.310 52.070 1.137 84.297 39.135 294 69.043 27.507 75.803 69.155 27.075 74.120 1.742 80.640 70.055 295 88.877 -7.732 98.861 90.370 -11.160 96.170 4.607 99.162 94.472 296 47.708 75.078 -5.934 48.130 75.200 -6.800 0.971 75.312 355.481 297 48.137 70.269 23.468 48.035 70.255 22.635 0.839 74.085 18.468 298 47.993 65.415 53.124 47.940 65.310 52.070 1.060 84.269 39.080 299 69.008 27.609 75.411 69.155 27.075 74.120 1.405 80.306 69.892 300 88.950 -7.638 98.601 90.370 -11.160 96.170 4.509 98.897 94.429 301 88.888 -7.777 98.464 90.370 -11.160 96.170 4.348 98.770 94.516 302 69.977 -37.776 67.450 70.635 -37.060 66.440 1.402 77.308 119.251 303 52.753 -62.962 39.380 50.900 -62.960 36.710 3.250 74.263 147.976 304 56.064 -46.601 -2.263 54.760 -46.795 -3.020 1.520 46.656 182.780 305 59.454 -30.783 -42.623 58.620 -30.630 -42.750 0.858 52.577 234.163 306 88.698 -7.654 98.411 90.370 -11.160 96.170 4.484 98.708 94.447 307 69.890 -37.662 67.446 70.635 -37.060 66.440 1.389 77.249 119.179 308 52.671 -62.821 38.863 50.900 -62.960 36.710 2.791 73.870 148.258 309 55.892 -46.803 -2.516 54.760 -46.795 -3.020 1.239 46.871 183.077 310 59.528 -30.492 -42.511 58.620 -30.630 -42.750 0.949 52.316 234.349 ] def %LAB_KIi %************************************************************* /D57SERWi 2000 array def %max 57 series of 15 data (100x20) /D57SERWi [%BEG D57SERWi top data WANG_ELCD scaling data %0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %N S N1 N2 N3 N4 N5 NA1 NA2 NA3 NA4 NA5 DV*1i DV*2i WANG1 WANG2 %Serie 1, BAM test chart order 1:25 001 003 001 002 003 000 000 (W) (CW) (C) (0) (0) 26.45 26.39 (W03) (W04) 002 003 007 008 009 000 000 (W) (VW) (V) (0) (0) 29.54 41.95 (W13) (W14) 003 003 013 014 015 000 000 (W) (MW) (M) (0) (0) 31.00 32.74 (W23) (W24) 004 003 019 020 021 000 000 (W) (OW) (O) (0) (0) 28.01 37.64 (W33) (W34) 005 003 025 026 027 000 000 (W) (YW) (Y) (0) (0) 16.99 11.01 (W43) (W44) 006 003 031 032 033 000 000 (W) (LW) (L) (0) (0) 25.44 28.39 (W53) (W54) %Serie 2, BAM test chart order 1:25 007 003 037 038 039 000 000 (C) (CN) (N) (0) (0) 25.80 35.47 (W06) (W05) 008 003 043 044 045 000 000 (V) (VN) (N) (0) (0) 9.30 16.62 (W16) (W15) 009 003 049 050 051 000 000 (M) (MN) (N) (0) (0) 26.80 29.68 (W26) (W25) 010 003 055 056 057 000 000 (O) (ON) (N) (0) (0) 30.62 34.58 (W36) (W35) 011 003 061 062 063 000 000 (Y) (YN) (N) (0) (0) 29.85 41.77 (W46) (W45) 012 003 067 068 069 000 000 (L) (LN) (N) (0) (0) 18.79 35.12 (W56) (W55) %Serie 3, BAM test chart order 3:27 013 003 209 210 211 000 000 (W) (C) (N) (0) (0) 64.17 61.50 (W01) (W02) 014 003 215 216 217 000 000 (W) (V) (N) (0) (0) 67.03 32.91 (W11) (W12) 015 003 221 222 223 000 000 (W) (M) (N) (0) (0) 74.48 61.26 (W21) (W22) 016 003 227 228 229 000 000 (W) (O) (N) (0) (0) 71.77 67.21 (W31) (W32) 017 003 233 234 235 000 000 (W) (Y) (N) (0) (0) 37.26 86.10 (W41) (W42) 018 003 239 240 241 000 000 (W) (L) (N) (0) (0) 50.89 56.11 (W51) (W52) %Serie 4, BAM test chart order 3:27 019 003 245 246 247 000 000 (C) (V) (M) (0) (0) 41.67 45.01 (W09) (W19) 020 003 251 252 253 000 000 (M) (O) (Y) (0) (0) 28.41 72.32 (W29) (W39) 021 003 257 258 259 000 000 (Y) (L) (C) (0) (0) 64.80 40.72 (W49) (W59) 022 003 263 264 265 000 000 (V) (C) (L) (0) (0) 41.67 40.72 (W09) (W59) 023 003 269 270 271 000 000 (L) (Y) (O) (0) (0) 64.80 72.32 (W49) (W39) 024 003 275 276 277 000 000 (O) (M) (V) (0) (0) 28.41 45.01 (W29) (W19) %Serie 5, BAM test chart order 2:26 %values are missing 025 004 089 090 091 000 000 (W) (Wc) (CW) (0) (0) 26.45 0.00 (W03) (W00) 026 004 099 100 101 102 103 (W) (Wv) (VW) (0) (0) 29.54 0.00 (W13) (W00) 027 004 109 110 111 112 113 (W) (Wm) (MW) (0) (0) 31.00 0.00 (W23) (W00) 028 004 119 120 121 122 123 (W) (Wo) (OW) (0) (0) 28.01 0.00 (W33) (W00) 029 004 129 130 131 132 133 (W) (Wy) (YW) (0) (0) 16.99 0.00 (W43) (W00) 030 004 139 140 141 142 143 (W) (Wl) (LW) (0) (0) 25.44 0.00 (W53) (W00) %Serie 6, BAM test chart order 2:26 031 004 091 092 093 000 000 (CW) (Cw) (C) (0) (0) 26.39 0.00 (W04) (W00) 032 004 101 102 103 000 000 (VW) (Vw) (V) (0) (0) 41.95 0.00 (W14) (W00) 033 004 111 112 113 000 000 (MW) (Mw) (M) (0) (0) 32.74 0.00 (W24) (W00) 034 004 121 122 123 000 000 (OW) (Ow) (O) (0) (0) 37.64 0.00 (W34) (W00) 035 004 131 132 133 000 000 (YW) (Yw) (Y) (0) (0) 110.1 0.00 (W44) (W00) 036 004 141 142 143 000 000 (LW) (Lw) (L) (0) (0) 28.39 0.00 (W54) (W00) %Serie 7, BAM test chart order 2:26 037 004 149 150 151 000 000 (C) (Cn) (CN) (0) (0) 25.80 0.00 (W06) (W00) 038 004 159 160 161 000 000 (V) (Vn) (VN) (0) (0) 9.30 0.00 (W16) (W00) 039 004 169 170 171 000 000 (M) (Mn) (MN) (0) (0) 26.80 0.00 (W26) (W00) 040 004 179 180 181 000 000 (O) (On) (ON) (0) (0) 30.62 0.00 (W36) (W00) 041 004 189 190 191 000 000 (Y) (Yn) (YN) (0) (0) 29.85 0.00 (W46) (W00) 042 004 199 200 201 000 000 (L) (Ln) (LN) (0) (0) 18.79 0.00 (W56) (W00) %Serie 8, BAM test chart order 2:26 043 004 151 152 153 000 000 (CN) (Nc) (N) (0) (0) 61.50 0.00 (W02) (W00) 044 004 161 162 163 000 000 (VN) (Nv) (N) (0) (0) 32.91 0.00 (W12) (W00) 045 004 171 172 173 000 000 (MN) (Nm) (N) (0) (0) 61.26 0.00 (W22) (W00) 046 004 181 182 183 000 000 (ON) (No) (N) (0) (0) 67.21 0.00 (W32) (W00) 047 004 191 192 193 000 000 (YN) (Ny) (N) (0) (0) 86.10 0.00 (W42) (W00) 048 004 201 202 203 000 000 (LN) (Nl) (N) (0) (0) 56.11 0.00 (W52) (W00) %Serie 2N, BAM test chart order 1:25, 1 triplet 049 003 073 074 075 000 000 (W) (WN) (N) (0) (0) 10.00 9.00 (W61) (W62) %Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets 050 004 281 282 283 000 000 (C) (CV) (V) (0) (0) 41.67 0.00 (W09) (W00) 051 004 283 284 285 000 000 (V) (MV) (M) (0) (0) 45.01 0.00 (W19) (W00) 052 004 291 292 293 000 000 (M) (MO) (O) (0) (0) 28.41 0.00 (W29) (W00) 053 004 293 294 295 000 000 (O) (YO) (Y) (0) (0) 72.32 0.00 (W39) (W00) 054 004 301 302 303 000 000 (Y) (YL) (L) (0) (0) 64.80 0.00 (W49) (W00) 055 004 303 304 305 000 000 (L) (CL) (C) (0) (0) 40.72 0.00 (W59) (W00) %Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets 056 004 079 080 081 000 000 (W) (Wn) (WN) (0) (0) 10.00 0.00 (W61) (W00) 057 004 081 082 083 000 000 (WN) (Nw) (N) (0) (0) 9.00 0.00 (W62) (W00) ] def %END D57SERWi %************************************************************* /D57SERVia 2000 array def %max 57 series of 15 data (100x20) /D57SERVia [%BEG D57SERVia top data VIK_ELCD scaling data %0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %N S N1 N2 N3 N4 N5 NA1 NA2 NA3 NA4 NA5 DV*1i DV*2i VIK1 VIK2 %Serie 1, BAM test chart order 1:25 001 003 001 002 003 000 000 (W) (CW) (C) (0) (0) 25.24 39.23 (V01) (V02) 002 003 007 008 009 000 000 (W) (VW) (V) (0) (0) 33.11 46.66 (V03) (V04) 003 003 013 014 015 000 000 (W) (MW) (M) (0) (0) 30.92 45.35 (V05) (V06) 004 003 019 020 021 000 000 (W) (OW) (O) (0) (0) 26.55 46.66 (V07) (V08) 005 003 025 026 027 000 000 (W) (YW) (Y) (0) (0) 22.62 23.06 (V09) (V10) 006 003 031 032 033 000 000 (W) (LW) (L) (0) (0) 29.18 40.98 (V11) (V12) %Serie 2, BAM test chart order 1:25 007 003 037 038 039 000 000 (C) (CN) (N) (0) (0) 38.35 42.73 (V13) (V14) 008 003 043 044 045 000 000 (V) (VN) (N) (0) (0) 21.75 31.36 (V15) (V16) 009 003 049 050 051 000 000 (M) (MN) (N) (0) (0) 40.98 44.47 (V17) (V18) 010 003 055 056 057 000 000 (O) (ON) (N) (0) (0) 34.86 43.16 (V19) (V20) 011 003 061 062 063 000 000 (Y) (YN) (N) (0) (0) 35.73 47.97 (V21) (V22) 012 003 067 068 069 000 000 (L) (LN) (N) (0) (0) 36.17 42.29 (V23) (V24) %Serie 3, BAM test chart order 3:27 013 003 209 210 211 000 000 (W) (C) (N) (0) (0) 53.65 55.40 (V26) (V25) 014 003 215 216 217 000 000 (W) (V) (N) (0) (0) 65.02 29.61 (V28) (V27) 015 003 221 222 223 000 000 (W) (M) (N) (0) (0) 60.21 53.22 (V30) (V29) 016 003 227 228 229 000 000 (W) (O) (N) (0) (0) 58.46 48.84 (V32) (V31) 017 003 233 234 235 000 000 (W) (Y) (N) (0) (0) 37.38 61.52 (V34) (V33) 018 003 239 240 241 000 000 (W) (L) (N) (0) (0) 55.84 45.35 (V36) (V35) %Serie 4, BAM test chart order 3:27 019 003 245 246 247 000 000 (C) (V) (M) (0) (0) 44.47 42.29 (V37) (V38) 020 003 251 252 253 000 000 (M) (O) (Y) (0) (0) 22.62 47.97 (V40) (V39) 021 003 257 258 259 000 000 (Y) (L) (C) (0) (0) 46.22 31.36 (V41) (V42) 022 003 263 264 265 000 000 (V) (C) (L) (0) (0) 48.41 30.49 (V44) (V43) 023 003 269 270 271 000 000 (L) (Y) (O) (0) (0) 51.03 53.65 (V46) (V45) 024 003 275 276 277 000 000 (O) (M) (V) (0) (0) 23.49 48.84 (V47) (V48) %Serie 5, BAM test chart order 2:26 %dummy 26.00: values are missing 025 003 089 090 091 000 000 (W) (Wc) (CW) (0) (0) 25.24 26.00 (V01) (V00) 026 003 099 100 101 000 000 (W) (Wv) (VW) (0) (0) 33.11 26.00 (V03) (V00) 027 003 109 110 111 000 000 (W) (Wm) (MW) (0) (0) 30.92 26.00 (V05) (V00) 028 003 119 120 121 000 000 (W) (Wo) (OW) (0) (0) 26.55 26.00 (V07) (V00) 029 003 129 130 131 000 000 (W) (Wy) (YW) (0) (0) 22.62 26.00 (V09) (V00) 030 003 139 140 141 000 000 (W) (Wl) (LW) (0) (0) 29.18 26.00 (V11) (V00) %Serie 6, BAM test chart order 2:26 031 003 091 092 093 000 000 (CW) (Cw) (C) (0) (0) 22.62 27.87 (V62) (V61) 032 003 101 102 103 000 000 (VW) (Vw) (V) (0) (0) 26.99 33.98 (V64) (V63) 033 003 111 112 113 000 000 (MW) (Mw) (M) (0) (0) 28.30 35.73 (V66) (V65) 034 003 121 122 123 000 000 (OW) (Ow) (O) (0) (0) 24.37 33.98 (V68) (V67) 035 003 131 132 133 000 000 (YW) (Yw) (Y) (0) (0) 18.25 20.00 (V70) (V69) 036 003 141 142 143 000 000 (LW) (Lw) (L) (0) (0) 23.49 32.24 (V72) (V71) %Serie 7, BAM test chart order 2:26 037 003 149 150 151 000 000 (C) (Cn) (CN) (0) (0) 29.61 28.74 (V74) (V73) 038 003 159 160 161 000 000 (V) (Vn) (VN) (0) (0) 19.56 18.25 (V76) (V75) 039 003 169 170 171 000 000 (M) (Mn) (MN) (0) (0) 35.73 27.87 (V78) (V77) 040 003 179 180 181 000 000 (O) (On) (ON) (0) (0) 37.48 26.12 (V80) (V79) 041 003 189 190 191 000 000 (Y) (Yn) (YN) (0) (0) 38.35 30.49 (V82) (V81) 042 003 199 200 201 000 000 (L) (Ln) (LN) (0) (0) 33.11 26.99 (V84) (V83) %Serie 8, BAM test chart order 2:26 043 003 151 152 153 000 000 (CN) (Nc) (N) (0) (0) 37.48 26.12 (V86) (V85) 044 003 161 162 163 000 000 (VN) (Nv) (N) (0) (0) 20.43 18.25 (V88) (V87) 045 003 171 172 173 000 000 (MN) (Nm) (N) (0) (0) 34.86 28.30 (V90) (V89) 046 003 181 182 183 000 000 (ON) (No) (N) (0) (0) 33.98 27.87 (V92) (V91) 047 003 191 192 193 000 000 (YN) (Ny) (N) (0) (0) 39.67 34.86 (V94) (V93) 048 003 201 202 203 000 000 (LN) (Nl) (N) (0) (0) 32.24 26.12 (V96) (V95) %Serie 2N, BAM test chart order 1:25, 1 triplet 049 003 073 074 075 000 000 (W) (WN) (N) (0) (0) 40.10 36.61 (V97) (V98) %Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets 050 004 281 282 283 000 000 (C) (CV) (V) (0) (0) 44.47 0.00 (V37) (V00) 051 004 283 284 285 000 000 (V) (MV) (M) (0) (0) 42.29 0.00 (V38) (V00) 052 004 291 292 293 000 000 (M) (MO) (O) (0) (0) 22.62 0.00 (V40) (V00) 053 004 293 294 295 000 000 (O) (YO) (Y) (0) (0) 47.97 0.00 (V39) (V00) 054 004 301 302 303 000 000 (Y) (YL) (L) (0) (0) 46.22 0.00 (V41) (V00) 055 004 303 304 305 000 000 (L) (CL) (C) (0) (0) 31.36 0.00 (V42) (V00) %Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets 056 004 079 080 081 000 000 (W) (Wn) (WN) (0) (0) 40.10 0.00 (V97) (V00) 057 004 081 082 083 000 000 (WN) (Nw) (N) (0) (0) 36.61 0.00 (V98) (V00) ] def %END D57SERVia %************************************************************* /D57SERVi 2000 array def %max 57 series of 15 data (100x20) /D57SERVi [%BEG D57SERVi top data VIK_ELCD scaling data %0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %N S N1 N2 N3 N4 N5 NA1 NA2 NA3 NA4 NA5 DV*1i DV*2i VIK1 VIK2 %Serie 1, BAM test chart order 1:25 001 003 001 002 003 000 000 (W) (CW) (C) 6.06 7.92 25.24 39.23 (V01) (V02) 002 003 007 008 009 000 000 (W) (VW) (V) 3.03 7.44 33.11 46.66 (V03) (V04) 003 003 013 014 015 000 000 (W) (MW) (M) 4.15 7.21 30.92 45.35 (V05) (V06) 004 003 019 020 021 000 000 (W) (OW) (O) 6.27 5.35 26.55 46.66 (V07) (V08) 005 003 025 026 027 000 000 (W) (YW) (Y) 5.39 10.8 22.62 23.06 (V09) (V10) 006 003 031 032 033 000 000 (W) (LW) (L) 4.58 7.82 29.18 40.98 (V11) (V12) %Serie 2, BAM test chart order 1:25 007 003 037 038 039 000 000 (C) (CN) (N) 12.1 5.67 38.35 42.73 (V13) (V14) 008 003 043 044 045 000 000 (V) (VN) (N) 6.42 9.50 21.75 31.36 (V15) (V16) 009 003 049 050 051 000 000 (M) (MN) (N) 9.08 7.82 40.98 44.47 (V17) (V18) 010 003 055 056 057 000 000 (O) (ON) (N) 10.7 9.31 34.86 43.16 (V19) (V20) 011 003 061 062 063 000 000 (Y) (YN) (N) 10.0 6.88 35.73 47.97 (V21) (V22) 012 003 067 068 069 000 000 (L) (LN) (N) 9.87 10.7 36.17 42.29 (V23) (V24) %Serie 3, BAM test chart order 3:27 013 003 209 210 211 000 000 (W) (C) (N) 7.29 5.77 53.65 55.40 (V26) (V25) 014 003 215 216 217 000 000 (W) (V) (N) 6.27 11.1 65.02 29.61 (V28) (V27) 015 003 221 222 223 000 000 (W) (M) (N) 8.91 6.30 60.21 53.22 (V30) (V29) 016 003 227 228 229 000 000 (W) (O) (N) 8.56 9.81 58.46 48.84 (V32) (V31) 017 003 233 234 235 000 000 (W) (Y) (N) 17.1 8.41 37.38 61.52 (V34) (V33) 018 003 239 240 241 000 000 (W) (L) (N) 7.62 10.8 55.84 45.35 (V36) (V35) %Serie 4, BAM test chart order 3:27 019 003 245 246 247 000 000 (C) (V) (M) 11.2 13.7 44.47 42.29 (V37) (V38) 020 003 251 252 253 000 000 (M) (O) (Y) 6.30 11.1 22.62 47.97 (V40) (V39) 021 003 257 258 259 000 000 (Y) (L) (C) 10.3 8.29 46.22 31.36 (V41) (V42) 022 003 263 264 265 000 000 (V) (C) (L) 9.87 11.3 48.41 30.49 (V44) (V43) 023 003 269 270 271 000 000 (L) (Y) (O) 10.2 9.52 51.03 53.65 (V46) (V45) 024 003 275 276 277 000 000 (O) (M) (V) 10.6 11.3 23.49 48.84 (V47) (V48) %Serie 5, BAM test chart order 2:26 %dummy 26.00: values are missing 025 004 089 090 091 000 000 (W) (Wc) (CW) 6.06 6.06 25.24 0.481 (V01) (V00) 026 004 099 100 101 000 000 (W) (Wv) (VW) 7.44 7.44 33.11 0.497 (V03) (V00) 027 004 109 110 111 000 000 (W) (Wm) (MW) 4.15 4.15 30.92 0.492 (V05) (V00) 028 004 119 120 121 000 000 (W) (Wo) (OW) 6.27 6.27 26.55 0.493 (V07) (V00) 029 004 129 130 131 000 000 (W) (Wy) (YW) 5.39 5.39 22.62 0.358 (V09) (V00) 030 004 139 140 141 000 000 (W) (Wl) (LW) 4.58 4.58 29.18 0.492 (V11) (V00) %Serie 6, BAM test chart order 2:26 031 003 091 092 093 000 000 (CW) (Cw) (C) 6.30 12.2 22.62 27.87 (V62) (V61) 032 003 101 102 103 000 000 (VW) (Vw) (V) 7.21 11.3 26.99 33.98 (V64) (V63) 033 003 111 112 113 000 000 (MW) (Mw) (M) 8.76 10.0 28.30 35.73 (V66) (V65) 034 003 121 122 123 000 000 (OW) (Ow) (O) 7.31 10.8 24.37 33.98 (V68) (V67) 035 003 131 132 133 000 000 (YW) (Yw) (Y) 3.27 7.10 18.25 20.00 (V70) (V69) 036 003 141 142 143 000 000 (LW) (Lw) (L) 6.06 11.2 23.49 32.24 (V72) (V71) %Serie 7, BAM test chart order 2:26 037 003 149 150 151 000 000 (C) (Cn) (CN) 8.29 8.48 29.61 28.74 (V74) (V73) 038 003 159 160 161 000 000 (V) (Vn) (VN) 4.58 3.27 19.56 18.25 (V76) (V75) 039 003 169 170 171 000 000 (M) (Mn) (MN) 9.50 12.2 35.73 27.87 (V78) (V77) 040 003 179 180 181 000 000 (O) (On) (ON) 5.10 11.2 37.48 26.12 (V80) (V79) 041 003 189 190 191 000 000 (Y) (Yn) (YN) 12.1 8.65 38.35 30.49 (V82) (V81) 042 003 199 200 201 000 000 (L) (Ln) (LN) 10.3 10.3 33.11 26.99 (V84) (V83) %Serie 8, BAM test chart order 2:26 043 003 151 152 153 000 000 (CN) (Nc) (N) 7.62 9.08 37.48 26.12 (V86) (V85) 044 003 161 162 163 000 000 (VN) (Nv) (N) 6.69 3.27 20.43 18.25 (V88) (V87) 045 003 171 172 173 000 000 (MN) (Nm) (N) 9.08 6.27 34.86 28.30 (V90) (V89) 046 003 181 182 183 000 000 (ON) (No) (N) 9.73 9.73 33.98 27.87 (V92) (V91) 047 003 191 192 193 000 000 (YN) (Ny) (N) 6.74 12.6 39.67 34.86 (V94) (V93) 048 003 201 202 203 000 000 (LN) (Nl) (N) 10.2 9.08 32.24 26.12 (V96) (V95) %Serie 2N, BAM test chart order 1:25, 1 triplet 049 003 073 074 075 000 000 (W) (WN) (N) (0) (0) 40.10 36.61 (V97) (V98) %not used %Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets 050 004 281 282 283 000 000 (C) (CV) (V) (0) (0) 44.47 0.00 (V37) (V00) 051 004 283 284 285 000 000 (V) (MV) (M) (0) (0) 42.29 0.00 (V38) (V00) 052 004 291 292 293 000 000 (M) (MO) (O) (0) (0) 22.62 0.00 (V40) (V00) 053 004 293 294 295 000 000 (O) (YO) (Y) (0) (0) 47.97 0.00 (V39) (V00) 054 004 301 302 303 000 000 (Y) (YL) (L) (0) (0) 46.22 0.00 (V41) (V00) 055 004 303 304 305 000 000 (L) (CL) (C) (0) (0) 31.36 0.00 (V42) (V00) %Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets 056 004 079 080 081 000 000 (W) (Wn) (WN) (0) (0) 40.10 0.00 (V97) (V00) 057 004 081 082 083 000 000 (WN) (Nw) (N) (0) (0) 36.61 0.00 (V98) (V00) ] def %END D57SERVi /d_CIELABi 2800 array def /d_CIELCHi 2800 array def /d_C94LCHi 2800 array def /d_CMCLCHi 2800 array def /d_CM2LCHi 2800 array def /d_C00LCHi 2800 array def /d_C85LCHi 2800 array def /d_C77LCHi 2800 array def /d_C78LCHi 2800 array def /d_C79LCHi 2800 array def /d_CIELABmi 2800 array def /d_CIELCHmi 2800 array def /d_C94LCHmi 2800 array def /d_CMCLCHmi 2800 array def /d_CM2LCHmi 2800 array def /d_C00LCHmi 2800 array def /d_C85LCHmi 2800 array def /d_C77LCHmi 2800 array def /d_C78LCHmi 2800 array def /d_C79LCHmi 2800 array def /D13 1 3 div def /D841_108 841 108 div def /D4_29 4 29 div def /D6_29 6 29 div 3 exp def /proc_coldiff {%BEG procedure proc_coldiff proc_coldiff_WK58.PS 150529 %calculates CIE colour data and differences for 10 colour spaces %BEG CIELAB/CIELCH /FL 0.000001 def X0 XW div D6_29 gt {/FXXN0 X0 XW div 0.0001 add D13 exp def} {/FXXN0 D841_108 X0 XW div mul D4_29 add def} ifelse Y0 YW div D6_29 gt {/FYYN0 Y0 YW div 0.0001 add D13 exp def} {/FYYN0 D841_108 Y0 YW div mul D4_29 add def} ifelse Z0 ZW div D6_29 gt {/FZZN0 Z0 ZW div 0.0001 add D13 exp def} {/FZZN0 D841_108 Z0 ZW div mul D4_29 add def} ifelse /CIEL*0 116. FYYN0 mul 16. sub def /CIEa*0 500. FXXN0 FYYN0 sub mul def /CIEb*0 200. FYYN0 FZZN0 sub mul def /CIEC*ab0 CIEa*0 dup mul CIEb*0 dup mul add 0.0001 add sqrt def /CIEhab0 CIEb*0 CIEa*0 0.0001 add atan def X1 XW div D6_29 gt {/FXXN1 X1 XW div 0.0001 add D13 exp def} {/FXXN1 D841_108 X1 XW div mul D4_29 add def} ifelse Y1 YW div D6_29 gt {/FYYN1 Y1 YW div 0.0001 add D13 exp def} {/FYYN1 D841_108 Y1 YW div mul D4_29 add def} ifelse Z1 ZW div D6_29 gt {/FZZN1 Z1 ZW div 0.0001 add D13 exp def} {/FZZN1 D841_108 Z1 ZW div mul D4_29 add def} ifelse /CIEL*1 116. FYYN1 mul 16. sub def /CIEa*1 500. FXXN1 FYYN1 sub mul def /CIEb*1 200. FYYN1 FZZN1 sub mul def /CIEC*ab1 CIEa*1 dup mul CIEb*1 dup mul add 0.0001 add sqrt def /CIEhab1 CIEb*1 CIEa*1 0.0001 add atan def %mixed terms with *0 sn *1: /d_CIEL* CIEL*1 CIEL*0 sub def /d_CIEa* CIEa*1 CIEa*0 sub def /d_CIEb* CIEb*1 CIEb*0 sub def d_CIELABi i d_CIEL* dup mul d_CIEa* dup mul add d_CIEb* dup mul add 0.00000001 add sqrt put /a_CIELAB 1.26 def /b_CIELAB 0.55 def d_CIELABmi i d_CIELABi i get b_CIELAB exp a_CIELAB mul put /d_CIEh CIEhab1 CIEhab0 sub def %see CIEDE2000 page 4 CIEC*ab1 CIEC*ab0 mul 0 eq {/d_CIEh 0 def} if %CIEC*ab1 x CIEC*ab0 =0 CIEC*ab1 CIEC*ab0 mul 0 ne d_CIEh 180 gt and {/d_CIEh d_CIEh 360 sub def} if CIEC*ab1 CIEC*ab0 mul 0 ne d_CIEh -180 lt and {/d_CIEh d_CIEh 360 add def} if /d_CIEL CIEL*1 CIEL*0 sub def /d_CIECab CIEC*ab1 CIEC*ab0 sub def /d_CIEHab CIEC*ab1 CIEC*ab0 mul 0.000001 add sqrt 2 mul d_CIEh 0.5 mul sin mul def d_CIELCHi i d_CIEL dup mul d_CIECab dup mul add d_CIEHab dup mul add 0.000001 add sqrt put %alternative: %for 2 an 10 degree observer, see Richter (1996) %a'=0,2191 b'=-0,08376 a'10=0,2193, b'10=-0,08417 %a'2 and a'10 used for both 12 and 190 degree observer %BEG LABD65_1976=C76 /S76L 1 def /S76A 1 def /S76B 1 def /K76L 1 def /K76A 1 def /K76B 1 def /AS2 0.2191 def /BS2 -0.08376 def %C76a'=AS2*(x/y)**(1/3) %C76b'=BS2*(z/y)**(1/3) %C76L*=L*CIE %C76a*=500*[C76a'-C76a'n]*Y**(1/3) %C76b*=500*[C76b'-C76b'n]*Y**(1/3) /C76a'0 X0 Y0 FL add div 0.3333 exp AS2 mul def /C76a'1 X1 Y1 FL add div 0.3333 exp AS2 mul def /C76a'n XW YW FL add div 0.3333 exp AS2 mul def /C76b'0 Z0 Y0 FL add div 0.3333 exp BS2 mul def /C76b'1 Z1 Y1 FL add div 0.3333 exp BS2 mul def /C76b'n ZW YW FL add div 0.3333 exp BS2 mul def /C76a*0 C76a'0 C76a'n sub 500 mul Y0 1 3 div exp mul def /C76a*1 C76a'1 C76a'n sub 500 mul Y1 1 3 div exp mul def /C76b*0 C76b'0 C76b'n sub 500 mul Y0 1 3 div exp mul def /C76b*1 C76b'1 C76b'n sub 500 mul Y1 1 3 div exp mul def %name d_CIELCHi instead of d_LABD65i 1976 d_CIELCHi i CIEL*1 CIEL*0 sub K76L div S76L div dup mul C76a*1 C76a*0 sub K76A div S76A div dup mul add C76b*1 C76b*0 sub K76B div S76B div dup mul add 0.00000001 add sqrt put %END LABD65_1976=C76 /a_CIELCH 1.26 def /b_CIELCH 0.55 def d_CIELCHmi i d_CIELCHi i get b_CIELCH exp a_CIELCH mul put %BEG CIELAB/CIELCH %BEG CIE94 /S94L 1 def /S94C 1 0.045 CIEC*ab0 mul add def /S94H 1 0.015 CIEC*ab0 mul add def /K94L 1 def /K94C 1 def /K94H 1 def /LC94*0 CIEL*0 K94L div S94L div def /LC94*1 CIEL*1 K94L div S94L div def /CC94*ab0 CIEC*ab0 K94C div S94C div def /CC94*ab1 CIEC*ab1 K94C div S94C div def d_C94LCHi i CIEL*1 CIEL*0 sub K94L div S94L div dup mul CIEC*ab1 CIEC*ab0 sub K94C div S94C div dup mul add d_CIEHab K94H div S94H div dup mul add 0.00000001 add sqrt put /a_C94LCH 1.41 def /b_C94LCH 0.70 def d_C94LCHmi i d_C94LCHi i get b_C94LCH exp a_C94LCH mul put %END CIE94 %BEG CMC(l:c=1:1) %special mean m of two samples for SCML, SCMC, TCMC /CIEL*0m CIEL*0 CIEL*1 add 0.5 mul def /CMCC0S CIEC*ab0 def /CMCC1S CIEC*ab1 def /CIEC*ab0m CMCC0S CMCC1S add 0.5 mul def CIEC*ab0 0 eq {/CMCh0S 0 def} {/CMCh0S CIEb*0 CIEa*0 0.0001 add atan def } ifelse CIEC*ab1 0 eq {/CMCh1S 0 def} {/CMCh1S CIEb*1 CIEa*1 0.0001 add atan def } ifelse %beg special EQUATION (11) TO (14) /d_CMChS0 CMCh1S CMCh0S sub def %see CIEDE2000 page 4 CMCC1S CMCC0S mul 0 eq {/d_CMChS 0 def} if %CIEC*ab1 x CIEC*ab0 =0 CMCC1S CMCC0S mul 0 ne d_CMChS0 abs 180 le and {/d_CMChSm d_CMChS0 def} if CMCC1S CMCC0S mul 0 ne d_CMChS0 180 gt and {/d_CMChSm d_CMChS0 360 sub def} if CMCC1S CMCC0S mul 0 ne d_CMChS0 -180 lt and {/d_CMChSm d_CMChS0 360 add def} if %end special EQUATION (11) TO (14) %beg special EQUATION (23) TO (26) /a_CMChsm CMCh0S CMCh1S add 0.5 mul def /m_CMCCSm CMCC0S CMCC1S mul def d_CMChSm abs 180 le m_CMCCSm 0 ne and {/CMChSqm a_CMChsm def} if d_CMChSm abs 180 gt a_CMChsm 360 le and m_CMCCSm 0 ne and {/CMChSqm CMCh0S CMCh1S add 360 add 0.5 mul def} if d_CMChSm abs 180 gt a_CMChsm 360 ge and m_CMCCSm 0 ne and {/CMChSqm CMCh0S CMCh1S add 360 sub 0.5 mul def} if m_CMCCSm 0 eq {/CMChSqm CMCh0S CMCh1S add def } if %end special EQUATION (23) TO (26) CIEL*0m 16 lt {/SCMLm 0.511 def} {/SCMLm 0.040975 CIEL*0m mul 0.01765 CIEL*0m mul 1 add div def } ifelse /SCMCm 0.0638 CIEC*ab0m mul 0.0131 CIEC*ab0m mul 1 add div 0.638 add def %beg special /FCMCm CIEC*ab0m dup mul dup mul CIEC*ab0m dup mul dup mul 1900 add div sqrt def CMChSqm 164 lt CMChSqm 345 gt or {/TCMCm CMChSqm 35 add cos 0.4 mul abs 0.36 add def} {/TCMCm CMChSqm 168 add cos 0.2 mul abs 0.56 add def} ifelse %end special /SCMHm TCMCm FCMCm mul 1 add FCMCm sub SCMCm mul def /KCML 1 def %=l /KCMC 1 def %=c /KCMH 1 def %1 /CMCL*0m CIEL*0 KCML div SCMLm div def /CMCL*1m CIEL*1 KCML div SCMLm div def /CMCC*ab0m CIEC*ab0 KCMC div SCMCm div def /CMCC*ab1m CIEC*ab1 KCMC div SCMCm div def d_CMCLCHi i CIEL*1 CIEL*0 sub KCML div SCMLm div dup mul CIEC*ab1 CIEC*ab0 sub KCMC div SCMCm div dup mul add d_CIEHab KCMH div SCMHm div dup mul add 0.00000001 add sqrt put /a_CMCLCH 1.34 def /b_CMCLCH 0.66 def d_CMCLCHmi i d_CMCLCHi i get b_CMCLCH exp a_CMCLCH mul put %END CMC(m:l:c=m:1:1)=CMC %BEG CM2(m:l:c=m:1:2)=CM2 /KM2L 1 def %=l /KM2C 2 def %=c /KM2H 1 def %1 /CM2L*0 CIEL*0 KM2L div SCMLm div def /CM2L*1 CIEL*1 KM2L div SCMLm div def /CM2C*ab0 CIEC*ab0 KM2C div SCMCm div def /CM2C*ab1 CIEC*ab1 KM2C div SCMCm div def d_CM2LCHi i CIEL*1 CIEL*0 sub KM2L div SCMLm div dup mul CIEC*ab1 CIEC*ab0 sub KM2C div SCMCm div dup mul add d_CIEHab KM2H div SCMHm div dup mul add 0.00000001 add sqrt put %END CM2(m:l:c=m:1:2)=CM2 %BEG CIEDE2000=C00 %beg special equation (7) /CIEC*ab CIEC*ab0 CIEC*ab1 add 0.5 mul def /DEG 1 CIEC*ab 7 exp CIEC*ab 7 exp 25 7 exp add div 0.000001 add sqrt sub 0.5 mul def %end special equation (7) %beg special EQUATION (1) TO (6) %0 /C00L0S CIEL*0 def /C00a0S 1 DEG add CIEa*0 mul def /C00b0S CIEb*0 def /C00C0S C00a0S dup mul C00b0S dup mul add 0.000001 add sqrt def C00C0S 0 eq {/C00h0S 0 def} {/C00h0S C00b0S C00a0S 0.0001 add atan def } ifelse %1 /C00L1S CIEL*1 def /C00a1S 1 DEG add CIEa*1 mul def /C00b1S CIEb*1 def /C00C1S C00a1S dup mul C00b1S dup mul add 0.000001 add sqrt def C00C1S 0 eq {/C00h1S 0 def} {/C00h1S C00b1S C00a1S 0.0001 add atan def } ifelse %end special EQUATION (1) TO (6) %beg special EQUATION (11) TO (14) /d_C00hS0 C00h1S C00h0S sub def %see CIEDE2000 page 4 C00C1S C00C0S mul 0 eq {/d_C00hS 0 def} if %CIEC*ab1 x CIEC*ab0 =0 C00C1S C00C0S mul 0 ne d_C00hS0 abs 180 le and {/d_C00hS d_C00hS0 def} if C00C1S C00C0S mul 0 ne d_C00hS0 180 gt and {/d_C00hS d_C00hS0 360 sub def} if C00C1S C00C0S mul 0 ne d_C00hS0 -180 lt and {/d_C00hS d_C00hS0 360 add def} if %end special EQUATION (11) TO (14) %beg special EQUATION (8) TO (10) /d_C00LS C00L1S C00L0S sub def /d_C00aS C00a1S C00a0S sub def /d_C00bS C00b1S C00b0S sub def /d_C00CS C00C1S C00C0S sub def /d_C00HS C00C0S C00C1S mul 0.000001 add sqrt 2 mul d_C00hS 0.5 mul sin mul def %end special EQUATION (8) TO (10) %beg special EQUATION (23) TO (26) /a_C00hs C00h0S C00h1S add 0.5 mul def /m_C00CS C00C0S C00C1S mul def d_C00hS abs 180 le m_C00CS 0 ne and {/C00hSq a_C00hs def} if d_C00hS abs 180 gt a_C00hs 360 le and m_C00CS 0 ne and {/C00hSq C00h0S C00h1S add 360 add 0.5 mul def} if d_C00hS abs 180 gt a_C00hs 360 ge and m_C00CS 0 ne and {/C00hSq C00h0S C00h1S add 360 sub 0.5 mul def} if m_C00CS 0 eq {/C00hSq C00h0S C00h1S add def } if %end special EQUATION (23) TO (26) %beg special EQUATIONS (16) TO (22) /C00LSq C00L0S C00L1S add 0.5 mul def /C00CSq C00C0S C00C1S add 0.5 mul def /C00SL C00LSq 50 sub dup mul 0.015 mul C00LSq 50 sub dup mul 20 add sqrt div 1 add def /C00SC 0.045 C00CSq mul 1 add def %beg special T, RT, d_D, RC /C00T C00hSq 30 sub cos -0.17 mul C00hSq 2 mul cos 0.24 mul add C00hSq 3 mul 6 add cos 0.32 mul add C00hSq 4 mul 63 sub cos 0.20 mul sub 1 add def /C00SH 0.015 C00CSq mul C00T mul 1 add def /C00RC C00CSq 7 exp C00CSq 7 exp 25 7 exp add 0.000001 add div 0.000001 add sqrt 2 mul def /expDT C00hSq 275 sub 25 div dup mul def /econst 2.718281 def /C00DT 30 econst expDT neg exp mul def /C00RT C00DT 2 mul sin neg C00RC mul def %end special T, RT, d_D, RC %end special EQUATIONS (16) TO (22) %beg special EQUATION (15) /C00KL 1.0 def /C00KC 1.0 def /C00KH 1.0 def /d_C00LSN d_C00LS C00KL div C00SL div def /d_C00CSN d_C00CS C00KC div C00SC div def /d_C00HSN d_C00HS C00KH div C00SH div def d_C00LCHi i d_C00LSN dup mul d_C00CSN dup mul add d_C00HSN dup mul add d_C00CSN d_C00HSN mul C00RT mul add 0.000001 add sqrt put /a_C00LCH 1.43 def /b_C00LCH 0.70 def d_C00LCHmi i d_C00LCHi i get b_C00LCH exp a_C00LCH mul put %end special EQUATION (15) %END CIEDE2000=C00 %BEG LABJND=C85 /Yq Y0 Y1 add 0.5 mul def /d_Y Y1 Y0 sub def /a085 X0 Y0 0.000001 add div def /b085 Z0 Y0 0.000001 add div 0.4 mul neg def /a185 X1 Y1 0.000001 add div def /b185 Z1 Y1 0.000001 add div 0.4 mul neg def /an85 XW YW 0.000001 add div def /bn85 ZW YW 0.000001 add div 0.4 mul neg def /d_a085 a085 an85 sub def /d_b085 b085 bn85 sub def /d_a185 a185 an85 sub def /d_b185 b185 bn85 sub def /a0"85 d_a085 d_a085 abs 0.5 mul 1 add div an85 add def /b0"85 d_b085 d_b085 abs 0.5 mul 1 add div bn85 add def /a1"85 d_a185 d_a185 abs 0.5 mul 1 add div an85 add def /b1"85 d_b185 d_b185 abs 0.5 mul 1 add div bn85 add def /d_Y Y1 Y0 sub def /d_a"85 a1"85 a0"85 sub def /d_b"85 b1"85 b0"85 sub def /s85 0.0170 def /q85 0.0058 def /g85 1.0000 def %not used /a0085 1.0 def /b0085 1.8 def /Y0085 1.5 def d_C85LCHi i d_Y dup mul a0085 d_a"85 mul Yq mul dup mul add b0085 d_b"85 mul Yq mul dup mul add 0.000001 add sqrt Y0085 mul q85 Yq mul s85 add div put /a_C85LCH 1.17 def /b_C85LCH 0.35 def d_C85LCHmi i d_C85LCHi i get b_C85LCH exp a_C85LCH mul put %END LABJND=C85 %BEG LABHNU_1977=C77 /S77L 1 def /S77A 1 def /S77B 1 def /K77L 1 def /K77A 1 def /K77B 1 def %C77a'=(x/y+1/6)**(1/3)/4 %C77b'=-(z/y+1/6)**(1/3)/12 %C77L*=L*CIE %C77a*=500*[C77a'-C77a'n]*Y**(1/3) %C77b*=500*[C77b'-C77b'n]*Y**(1/3) /C77a'0 X0 Y0 FL add div 1 6 div add 0.3333 exp 4 div def /C77a'1 X1 Y1 FL add div 1 6 div add 0.3333 exp 4 div def /C77a'n XW YW FL add div 1 6 div add 0.3333 exp 4 div def /C77b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def /C77b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def /C77b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def /C77a*0 C77a'0 C77a'n sub 500 mul Y0 1 3 div exp mul def /C77a*1 C77a'1 C77a'n sub 500 mul Y1 1 3 div exp mul def /C77b*0 C77b'0 C77b'n sub 500 mul Y0 1 3 div exp mul def /C77b*1 C77b'1 C77b'n sub 500 mul Y1 1 3 div exp mul def d_C77LCHi i CIEL*1 CIEL*0 sub K77L div S77L div dup mul C77a*1 C77a*0 sub K77A div S77A div dup mul add C77b*1 C77b*0 sub K77B div S77B div dup mul add 0.00000001 add sqrt put %END LABHNU_1977=C77 %BEG LABHNU1=C78 /S78L 1 def /S78A 1 def /S78B 1 def /K78L 1 def /K78A 1 def /K78B 1 def %C78a'=(x/y+1)/15 %C78b'=-(z/y+1/6)**(1/3)/12 %C78L*=L*CIE %C78a*=500*[C78a'-C78a'n]*Y**(1/3) %C78b*=500*[C78b'-C78b'n]*Y**(1/3) /C78a'0 X0 Y0 FL add div 1 add 15 div def /C78a'1 X1 Y1 FL add div 1 add 15 div def /C78a'n XW YW FL add div 1 add 15 div def /C78b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def /C78b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def /C78b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def /C78a*0 C78a'0 C78a'n sub 500 mul Y0 1 3 div exp mul def /C78a*1 C78a'1 C78a'n sub 500 mul Y0 1 3 div exp mul def /C78b*0 C78b'0 C78b'n sub 500 mul Y0 1 3 div exp mul def /C78b*1 C78b'1 C78b'n sub 500 mul Y0 1 3 div exp mul def d_C78LCHi i CIEL*1 CIEL*0 sub K78L div S78L div dup mul C78a*1 C78a*0 sub K78A div S78A div dup mul add C78b*1 C78b*0 sub K78B div S78B div dup mul add 0.00000001 add sqrt put %END LABHNU1_1978-C78 %BEG LABHNU2_1979=C79 /S79L 1 def /S79A 1 def /S79B 1 def /K79L 1 def /K79A 1 def /K79B 1 def %C79a'=(x/y+1/6)**(2/3)/15 %C79b'=-(z/y+1/6)**(1/3)/12 %C79L*=L*CIE %C79a*=500*[C79a'-C79a'n]*Y**(1/3) %C79b*=500*[C79b'-C79b'n]*Y**(1/3) /C79a'0 X0 Y0 FL add div 1 6 div add 0.6667 exp 15 div def /C79a'1 X1 Y1 FL add div 1 6 div add 0.6667 exp 15 div def /C79a'n XW YW FL add div 1 6 div add 0.6667 exp 15 div def /C79b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def /C79b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def /C79b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def /C79a*0 C79a'0 C79a'n sub 500 mul Y0 1 3 div exp mul def /C79a*1 C79a'1 C79a'n sub 500 mul Y1 1 3 div exp mul def /C79b*0 C79b'0 C79b'n sub 500 mul Y0 1 3 div exp mul def /C79b*1 C79b'1 C79b'n sub 500 mul Y1 1 3 div exp mul def d_C79LCHi i CIEL*1 CIEL*0 sub K79L div S79L div dup mul C79a*1 C79a*0 sub K79A div S79A div dup mul add C79b*1 C79b*0 sub K79B div S79B div dup mul add 0.00000001 add sqrt put %END LABHNU2_1979=C79 } bind def %END procedure proc_coldiff %%EndProlog gsave /lanind 0 def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind le {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind le {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind le {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /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 %see Kittelmann DWORK, page 9 /XWD6502 95.05 def /YWD6502 100.00 def /ZWD6502 108.90 def /XW XWD6502 def /YW YWD6502 def /ZW ZWD6502 def /FL 0.000001 def /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /CIEL*0i 310 array def /CIEa*0i 310 array def /CIEb*0i 310 array def /X0i 310 array def /Y0i 310 array def /Z0i 310 array def %calculate XYZ-values for 310 colours 0 1 309 {/i exch def %i=0,309 /i10 i 10 mul def CIEL*0i i LAB_KIi i10 1 add get put CIEa*0i i LAB_KIi i10 2 add get put CIEb*0i i LAB_KIi i10 3 add get put /X* {CIEL*0i i get 16 add 116 div CIEa*0i i get 500 div add} bind def /Y* {CIEL*0i i get 16 add 116 div} bind def /Z* {CIEL*0i i get 16 add 116 div CIEb*0i i get 200 div sub} bind def X0i i X* DecodeXYZ* XW mul put Y0i i Y* DecodeXYZ* YW mul put Z0i i Z* DecodeXYZ* ZW mul put } for %i=0,309 %************************************************************* /Wdata1 3500 array def %max 350x10 data /Wdata2 3500 array def /IM 056 def %(max IM=056; IM=46=without series C-V- and W-Wn-WN-Nw-N /IM0 113 def %(max IM=057)*2-1 = 057 X 2-1 %default data 0 1 IM0 {/i exch def %i=0,IM0 /i10 i 10 mul def 0 1 9 {/j exch def %j=0,9 Wdata1 i10 j add 1. put Wdata2 i10 j add 1. put } for %j=0,9 } for %i=0,IM0 /D57xSERi 2000 array def /xchart4 0 def %xchart4=0 and 1: calculation for WANG or VIK pair comparison data 0 1 IM {/ii exch def %ii=0,IM /i16 ii 16 mul def 0 1 15 {/j exch def %j=0,15 xchart4 0 eq {D57xSERi i16 j add D57SERWi i16 j add get put} if xchart4 1 eq {D57xSERi i16 j add D57SERVi i16 j add get put} if } for %j=0,15 } for %ii=0,IM /DV*1 200 array def /DV*2 200 array def /DVS1 200 array def /DVS2 200 array def %default data 0 1 IM {/ii exch def %ii=0,IM /i16 ii 16 mul def DV*1 ii 1. put %default DV*2 ii 1. put } for %ii=0,IM %for WANG and VIK 0 1 IM {/ii exch def %ii=0,IM /D57xSER12 D57xSERi i16 12 add get def /D57xSER13 D57xSERi i16 13 add get def DV*1 ii D57xSER12 put DV*2 ii D57xSER13 put xchart4 0 eq {%xchart4=0 %corection for WANG only D57xSER12 0 ne {%D57xSER12#0 DV*1 ii D57xSER12 42.62 div 1. 1.1322 div exp 10 mul put } if %D57xSER12#0 D57xSER13 0 ne {%D57xSER13#0 DV*2 ii D57xSER13 42.62 div 1. 1.1322 div exp 10 mul put } if %D57xSER13#0 } if %xchart4=0 %corection for WANG only } for %ii=0,IM /xchartl 2 def %0 1 5 {/xchartl exch def %xchartl=0,5 gsave 5 /Times-ISOL1 FS 215 85 moveto (XE390-5N) show 72 90 translate /ytit 550 def /yhoe 4000 def /yhoet yhoe ytit sub def /xwide 06000 def /ishow {-50 -100 rmoveto 200 /Times-ISOL1 FS show 0 100 rmoveto TM} bind def 0.01 MM 0.01 MM scale 15 setlinewidth 0.0 0.0 0.0 0.5 setcmykcolor 0 0 moveto xwide 0 rlineto 0 yhoet rlineto xwide neg 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmykcolor 0 0 moveto xwide 0 rlineto 0 yhoet rlineto xwide neg 0 rlineto closepath stroke /yt 300 def %y-Zeilenabstand for text /yd 400 def %y-Zeilenabstand for formula %Titeltext /xt1 0 def /yt1 300 def /S10 100 def /S11 800 def /S20 3250 def /S30 4000 def /Z10 2500 def /Z1C 2200 def /Z1V 1900 def /Z1M 1600 def /Z1O 1300 def /Z1Y 1000 def /Z1L 0700 def /Z1N 0400 def /Z1W 0100 def %HUE CIRCLE /xd 1550 def /yd 5000 def /xp 1550 def /yp 5000 def /xdN xd def /ydN yd 2000 sub def /xdW xd def /ydW yd def /xdR xd 2000 add def /ydR yd 1000 sub def /xm 600 def /xip xd xm 2 mul add def /yip ydN xm 2 mul add def /xi1 xd xm 1 mul sub def /yi1 ydW xm 0.5 mul sub def /xi2 xd xm 2 mul add def /yi2 ydN 400 sub def %************************************************************************* %constant hue planes /xt1 -1000 def /yt1 -2670 def xt1 yt1 translate /xpp xp 350 sub def 0 setgray xpp yp 0850 add moveto /xshift 3200 def TBIK (BAM) show TBK (\2555stufige Farbreihen gleichabst\344ndig in CIELAB) showde ( 5 step colour series equally spaced in CIELAB) showen TBS xpp yp 0600 add moveto xchart4 0 eq {%xchart4=0 (CIELAB Farbdifferenzen ) showde (CIELAB colour differences ) showen SS (D) show TBIS (E*) show TBV 0 -50 rmoveto (ab) show 0 50 rmoveto } if %xchart4=0 xchart4 1 eq {%xchart4=1 (visuelle Farbdifferenzen ) showde (visual colour differences ) showen SS (D) show TBIS (V*) show TBV 0 -50 rmoveto (Vik) show 0 50 rmoveto } if %xchart4=1 /xfact 2000 100 div def /yfact 2000 100 div def /yshift 0800 def /xpW xpp def /ypW yp 200 sub def /ym 0 def /ix -1 def /cwdif4 7 array def /cwdif2 7 array def /cwdif1 7 array def /cndif4 7 array def /cndif2 7 array def /cndif1 7 array def /cwdifx 7 array def /cndifx 7 array def /cwstd4 7 array def /cwstd2 7 array def /cwstd1 7 array def /cnstd4 7 array def /cnstd2 7 array def /cnstd1 7 array def /cwstdx 7 array def /cnstdx 7 array def /wName 7 array def /nName 7 array def /DLAB21ik 7 array def /DLAB32ik 7 array def /DV*1ik 7 array def /DV*2ik 7 array def /DVS1ik 7 array def /DVS2ik 7 array def %default 0 1 6 {/i exch def cwdif4 i 4 put cwdif2 i 2 put cwdif1 i 1 put cndif4 i 40 put cndif2 i 20 put cndif1 i 10 put wName i (W) put nName i (N) put } for /ik 0 def 0 1 6 {/ik exch def %ik=0,6 %7 series %025 W-Wc-CW 089-090-091 %031 CW-Cw-C 091-092-093 %037 C-Cn-CN 149-150-151 %043 CN-Nc-N 151-152-153 %001 W-CW-C 001-002-003 %007 C-CN-N 037-038-039 %013 W-C-N 209-210-211 ik 0 eq {/ii 025 1 sub def} if ik 1 eq {/ii 031 1 sub def} if ik 2 eq {/ii 037 1 sub def} if ik 3 eq {/ii 043 1 sub def} if ik 4 eq {/ii 001 1 sub def} if ik 5 eq {/ii 007 1 sub def} if ik 6 eq {/ii 013 1 sub def} if %6 series/figures /ii ii xchartl add def /i16 ii 16 mul def /S D57xSERi i16 1 add get def S 4 eq {%S=4 /DREL D57xSERi i16 13 add get def DV*1ik ik D57xSERi i16 12 add get DREL mul put DV*2ik ik D57xSERi i16 12 add get 1 DREL sub mul put } if %S=4 S 3 eq {%S=3 DV*1ik ik D57xSERi i16 12 add get put DV*2ik ik D57xSERi i16 13 add get put } if %S=3 %always standard deviation DVS1ik ik D57xSERi i16 10 add get put DVS2ik ik D57xSERi i16 11 add get put /N1 D57xSERi i16 2 add get 1 sub def %Nx-count STARTs at "1" /N2 D57xSERi i16 3 add get 1 sub def /N3 D57xSERi i16 4 add get 1 sub def ik 0 eq {wName 0 D57xSERi i16 7 add get put wName 1 D57xSERi i16 8 add get put wName 2 D57xSERi i16 9 add get put} if ik 1 eq {wName 3 D57xSERi i16 8 add get put wName 4 D57xSERi i16 9 add get put} if ik 2 eq {nName 0 D57xSERi i16 7 add get put nName 1 D57xSERi i16 8 add get put nName 2 D57xSERi i16 9 add get put} if ik 3 eq {nName 3 D57xSERi i16 8 add get put nName 4 D57xSERi i16 9 add get put} if /X10 X0i N1 get def /Y10 Y0i N1 get def /Z10 Z0i N1 get def /X20 X0i N2 get def /Y20 Y0i N2 get def /Z20 Z0i N2 get def /X30 X0i N3 get def /Y30 Y0i N3 get def /Z30 Z0i N3 get def 0 1 1 {/i exch def %i=0,1 i 0 eq {%i=0,1 /X0 X20 def /Y0 Y20 def /Z0 Z20 def /X1 X10 def /Y1 Y10 def /Z1 Z10 def } if %i=0 i 1 eq {%i=1 /X0 X20 def /Y0 Y20 def /Z0 Z20 def /X1 X30 def /Y1 Y30 def /Z1 Z30 def } if %i=1 proc_coldiff } for %i=0,1 DLAB21ik ik d_CIELABi 0 get put DLAB32ik ik d_CIELABi 1 get put %025 ik=0 W-Wc-CW 089-090-091 %031 ik=1 CW-Cw-C 091-092-093 %037 ik=2 C-Cn-CN 149-150-151 %043 ik=3 CN-Nc-N 151-152-153 %001 ik=4 W-CW-C 001-002-003 %007 ik=5 C-CN-N 037-038-039 %013 ik=6 W-C-N 209-210-211 %/ioutk 1 def %ioutk 0 eq {%ioutk=0 xchart4 0 eq {%xchart4=0 ik 0 eq {cwdifx 0 DLAB21ik ik get put %W-Wc-CW cwdifx 1 DLAB32ik ik get put} if ik 1 eq {cwdifx 2 DLAB21ik ik get put %CW-Cw-C cwdifx 3 DLAB32ik ik get put} if ik 2 eq {cndifx 0 DLAB21ik ik get put %C-Cn-CN cndifx 1 DLAB32ik ik get put} if ik 3 eq {cndifx 2 DLAB21ik ik get put %CN-Nc-N cndifx 3 DLAB32ik ik get put} if ik 4 eq {cwdifx 4 DLAB21ik ik get put %W-CW-C cwdifx 5 DLAB32ik ik get put} if ik 5 eq {cndifx 4 DLAB21ik ik get put %C-CN-N cndifx 5 DLAB32ik ik get put} if ik 6 eq {cwdifx 6 DLAB21ik ik get put %W-C-N cndifx 6 DLAB32ik ik get put} if } if %xchart4=0 %} if %ioutk=0 %ioutk 1 eq {%ioutk=1 xchart4 1 eq {%xchart4=1 ik 0 eq {cwdifx 0 DV*1ik ik get put %W-Wc-CW cwdifx 1 DV*2ik ik get put} if ik 1 eq {cwdifx 2 DV*1ik ik get put %CW-Cw-C cwdifx 3 DV*2ik ik get put} if ik 2 eq {cndifx 0 DV*1ik ik get put %C-Cn-CN cndifx 1 DV*2ik ik get put} if ik 3 eq {cndifx 2 DV*1ik ik get put %CN-Nc-N cndifx 3 DV*2ik ik get put} if ik 4 eq {cwdifx 4 DV*1ik ik get put %W-CW-C cwdifx 5 DV*2ik ik get put} if ik 5 eq {cndifx 4 DV*1ik ik get put %C-CN-N cndifx 5 DV*2ik ik get put} if ik 6 eq {cwdifx 6 DV*1ik ik get put %W-C-N cndifx 6 DV*2ik ik get put} if ik 0 eq {cwstdx 0 DVS1ik ik get put %W-Wc-CW cwstdx 1 DVS2ik ik get put} if ik 1 eq {cwstdx 2 DVS1ik ik get put %CW-Cw-C cwstdx 3 DVS2ik ik get put} if ik 2 eq {cnstdx 0 DVS1ik ik get put %C-Cn-CN cnstdx 1 DVS2ik ik get put} if ik 3 eq {cnstdx 2 DVS1ik ik get put %CN-Nc-N cnstdx 3 DVS2ik ik get put} if ik 4 eq {cwstdx 4 DVS1ik ik get put %W-CW-C cwstdx 5 DVS2ik ik get put} if ik 5 eq {cnstdx 4 DVS1ik ik get put %C-CN-N cnstdx 5 DVS2ik ik get put} if ik 6 eq {cwstdx 6 DVS1ik ik get put %W-C-N cnstdx 6 DVS2ik ik get put} if } if %xchart4=1 %} if %ioutk=1 } for %ik=0,6 %7 series 0 1 3 {/ik exch def %ik=0,3 cwdif4 ik cwdifx ik get 0.49 add cvi put cndif4 ik cndifx ik get 0.49 add cvi put } for %ik=0,3 0 1 1 {/ik exch def %ik=0,1 cwdif2 ik cwdifx ik 4 add get 0.49 add cvi put cndif2 ik cndifx ik 4 add get 0.49 add cvi put } for %ik=0,1 cwdif1 0 cwdifx 6 get 0.49 add cvi put cndif1 0 cndifx 6 get 0.49 add cvi put xchart4 1 eq {%xchart4=1 0 1 3 {/ik exch def %ik=0,3 cwstd4 ik cwstdx ik get 0.49 add cvi put cnstd4 ik cnstdx ik get 0.49 add cvi put } for %ik=0,3 0 1 1 {/ik exch def %ik=0,1 cwstd2 ik cwstdx ik 4 add get 0.49 add cvi put cnstd2 ik cnstdx ik 4 add get 0.49 add cvi put } for %ik=0,1 cwstd1 0 cwstdx 6 get 0.49 add cvi put cnstd1 0 cnstdx 6 get 0.49 add cvi put } if %xchart4=1 %STOP5 newpath /k 0 def /j 0 def /i 0 def 0 1 2 {/k exch def %k=0,2 %three rows /ys yshift k mul def 0 1 1 {/j exch def %j=0,1 %left, right /xs xshift j mul def k 0 eq {TBS j 0 eq {%j=0 1 1 1 setrgbcolor xpp yp 0300 add moveto (helle Serie ) showde (light series ) showen wName 4 get show ( nach W) showde ( to W) showen } if %j=0 j 1 eq {%j=1 0 0 0 setrgbcolor xp 450 sub xshift add yp 0300 add moveto (dunkle Serie ) showde (dark series ) showen nName 0 get show ( nach N) showde ( to N) showen } if %j=1 } if %k=0 TS 0 0 0 setrgbcolor 0 1 4 {/i exch def %i=0,4 %five colours /xi xpW xm i mul add xs add def %NW /yi ypW ym i mul add ys sub def % xpW ypW moveto (START, i, wName) show % i cvishow % wName i get show k 0 eq {xi 100 sub yi 200 add moveto j 0 eq {wName 4 i sub get show} if j 1 eq {nName i get show} if newpath } if k 0 eq i 3 le and {xi 100 add yi 350 sub moveto j 0 eq {cwdif4 3 i sub get cvishow} if j 1 eq {cndif4 i get cvishow} if xchart4 1 eq {%xchart4=1 (\261) show %+/- j 0 eq {cwstd4 3 i sub get cvishow} if j 1 eq {cnstd4 i get cvishow} if } if %xchart4=1 newpath } if k 0 eq i 1 le and {xi 400 add i 500 mul add yi 1150 sub moveto j 0 eq {cwdif2 1 i sub get cvishow} if j 1 eq {cndif2 i get cvishow} if xchart4 1 eq {%xchart4=1 (\261) show %+/- j 0 eq {cwstd2 1 i sub get cvishow} if j 1 eq {cnstd2 i get cvishow} if } if %xchart4=1 newpath } if k 0 eq i 0 le and {xi 1000 add i 500 mul add yi 2000 sub moveto j 0 eq {cwdif1 0 get cvishow} if j 1 eq {cndif1 0 get cvishow} if xchart4 1 eq {%xchart4=1 (\261) show %+/- j 0 eq {cwstd1 0 get cvishow} if j 1 eq {cnstd1 0 get cvishow} if } if %xchart4=1 newpath } if i 0 eq i 4 eq or {0 0 0 setrgbcolor xi yi 140 0 360 arc fill } if j 0 eq {%j=0 /w i 4 div def xchartl 0 eq {w 1 1 setrgbcolor} if %C-W xchartl 1 eq {w w 1 setrgbcolor} if %V-W xchartl 2 eq {1 w 1 setrgbcolor} if %M-W xchartl 3 eq {1 w w setrgbcolor} if %O-W xchartl 4 eq {1 1 w setrgbcolor} if %Y-W xchartl 5 eq {w 1 w setrgbcolor} if %L-W } if %j=0 j 1 eq {%j=1 /w 1 i 4 div sub def xchartl 0 eq {0 w w setrgbcolor} if %C-N xchartl 1 eq {0 0 w setrgbcolor} if %V-N xchartl 2 eq {w 0 w setrgbcolor} if %M-N xchartl 3 eq {w 0 0 setrgbcolor} if %O-N xchartl 4 eq {w w 0 setrgbcolor} if %Y-N xchartl 5 eq {0 w 0 setrgbcolor} if %L-N } if %j=1 xi yi 070 0 360 arc fill i 0 eq i 4 eq or {0 0 0 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if k 0 eq {%k=0 i 1 ge i 3 le and {%k=0 and all i 0 0 0 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if %i=2 and k<2 } if %k=0 k 1 eq i 2 eq and {%k=1 and i=2 0 0 0 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if %k=1 and i=2 i 4 eq j 1 eq and {%i=4 and j=1 %cross in black N 1 1 1 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if %i=4 and j=1 } for %i=0,4 } for %j=0,1 } for %k=0,2 xt1 neg yt1 neg translate %************************************************************************* showpage grestore %} for %xchartl=0,5 %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 16 %line 389 %!PS-Adobe-3.0 EPSF-3.0 XE390-6N %%BoundingBox: 70 83 245 190 %START PDFDE011.EPS /pdfmark06 where {pop} {userdict /pdfmark06 /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://130.149.60.45/~farbmetrik/SE25/) /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, colour vision) /Creator (klaus.richter@mac.com) /CreationDate (D:2016070112000) /ModDate (D:2016070112000) /DOCINFO pdfmark06 [ /View [ /FitB ] /DOCVIEW pdfmark06 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /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 /TV {160 /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 /TIV {160 /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 /TBV {160 /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 /TBIV {160 /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 /SV {160 /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 %%EndProlog gsave /nshow {TS show} bind def /kshow {TIS show} bind def /bshow {TBS show} bind def /jshow {TBIS show} bind def /ibshown {TBS -50 -50 rmoveto show 0 50 rmoveto TBS} bind def /ibshow0 {TBS -00 -50 rmoveto show 0 50 rmoveto TBS} bind def /ishown {TS -50 -50 rmoveto show 0 50 rmoveto TS } bind def /ishow0 {TS -00 -50 rmoveto show 0 50 rmoveto TS } bind def %40% kleiner /ns4 {250 /Times-ISOL1 FS show TK} bind def /ks4 {250 /TimesI-ISOL1 FS show TK} bind def /bs4 {250 /TimesB-ISOL1 FS show TK} bind def /js4 {250 /TimesBI-ISOL1 FS show TK} bind def /ss4 {250 /Symbol FS show TK} bind def /is4 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /es4 {200 /Times-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ib4 {200 /TimesB-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /eb4 {200 /TimesB-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ip4 {200 /Times-ISOL1 FS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def %60% kleiner /ns6 {200 /Times-ISOL1 FS show TS} bind def /ks6 {200 /TimesI-ISOL1 FS show TS} bind def /bs6 {200 /TimesB-ISOL1 FS show TS} bind def /js6 {200 /TimesBI-ISOL1 FS show TS} bind def /ss6 {200 /Symbol FS show TS} bind def /is6 {160 /Times-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /es6 {160 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ib6 {160 /TimesB-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /eb6 {160 /TimesB-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ip6 {160 /Times-ISOL1 FS 24 24 rmoveto (\267) show 24 -24 rmoveto TS} bind /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show} def %************************************************************* %Aus Kittelmann_CD_DA/Daten der Ausertung/ %Farbwerte der Farbfelder und Reihen.xls/CIELAB_1 %siehe auch Dipl-Arbeit Seite 31 ff /LAB_KIi 3100 array def %310x10 /LAB_KIi [ %n L*r a*r b*r L*t a*t b*t E*r-t C*r h*r % L*r a*r b*r CIELAB data of 310 printel samples, see page 34 % 95.410 -0.980 4.760 ISO 15775 Papierweiss Tab. 2.2 1 94.806 -1.832 6.977 95.410 -0.980 4.760 2.450 7.213 104.710 2 76.937 -16.536 -18.248 77.015 -15.805 -18.995 1.048 24.626 227.818 3 59.410 -30.942 -42.455 58.620 -30.630 -42.750 0.899 52.534 233.915 4 94.807 -1.883 7.035 95.410 -0.980 4.760 2.520 7.282 104.985 5 76.919 -16.503 -18.327 77.015 -15.805 -18.995 0.971 24.663 227.998 6 59.468 -30.964 -42.431 58.620 -30.630 -42.750 0.966 52.528 233.880 7 94.796 -1.848 7.051 95.410 -0.980 4.760 2.526 7.289 104.684 8 60.143 15.422 -18.907 60.565 15.185 -19.800 1.016 24.399 309.204 9 27.166 31.237 -43.580 25.720 31.350 -44.360 1.646 53.619 305.632 10 94.811 -1.797 6.812 95.410 -0.980 4.760 2.288 7.045 104.775 11 60.039 15.614 -19.124 60.565 15.185 -19.800 0.958 24.689 309.231 12 27.145 31.257 -43.757 25.720 31.350 -44.360 1.550 53.774 305.539 13 94.813 -1.742 6.702 95.410 -0.980 4.760 2.170 6.925 104.573 14 71.354 37.382 -0.087 71.770 37.110 -1.020 1.057 37.382 359.867 15 48.299 74.762 -6.470 48.130 75.200 -6.800 0.573 75.042 355.054 16 94.862 -1.790 6.808 95.410 -0.980 4.760 2.269 7.039 104.734 17 71.430 37.531 -0.146 71.770 37.110 -1.020 1.028 37.531 359.777 18 48.348 75.034 -6.602 48.130 75.200 -6.800 0.338 75.324 354.972 19 94.829 -1.679 6.457 95.410 -0.980 4.760 1.925 6.672 104.576 20 71.895 30.271 30.198 71.675 32.165 28.415 2.611 42.758 44.931 21 48.389 65.379 52.900 47.940 65.310 52.070 0.946 84.100 38.977 22 94.841 -1.727 6.563 95.410 -0.980 4.760 2.033 6.787 104.743 23 71.834 30.282 30.495 71.675 32.165 28.415 2.810 42.976 45.200 24 48.373 65.160 52.576 47.940 65.310 52.070 0.683 83.726 38.899 25 94.856 -1.811 6.930 95.410 -0.980 4.760 2.389 7.163 104.645 26 91.995 -9.864 53.175 92.890 -6.070 50.465 4.747 54.082 100.509 27 88.831 -7.617 100.643 90.370 -11.160 96.170 5.910 100.931 94.328 28 94.840 -1.857 6.961 95.410 -0.980 4.760 2.437 7.204 104.938 29 91.969 -9.864 53.060 92.890 -6.070 50.465 4.688 53.969 100.532 30 88.822 -7.585 99.964 90.370 -11.160 96.170 5.438 100.251 94.339 31 94.843 -1.831 6.986 95.410 -0.980 4.760 2.450 7.223 104.689 32 72.670 -33.310 23.706 73.155 -31.970 20.735 3.296 40.885 144.561 33 52.763 -62.634 40.725 50.900 -62.960 36.710 4.438 74.710 146.968 34 94.844 -1.844 6.940 95.410 -0.980 4.760 2.413 7.181 104.883 35 72.659 -33.330 23.584 73.155 -31.970 20.735 3.195 40.830 144.717 36 52.751 -62.659 40.456 50.900 -62.960 36.710 4.189 74.585 147.152 37 59.858 -30.723 -42.299 58.620 -30.630 -42.750 1.321 52.279 234.008 38 39.512 -15.438 -20.098 38.315 -15.065 -21.605 1.960 25.343 232.471 39 20.439 0.604 1.879 18.010 0.500 -0.460 3.374 1.974 72.184 40 59.843 -30.628 -42.217 58.620 -30.630 -42.750 1.334 52.157 234.039 41 39.472 -15.216 -20.290 38.315 -15.065 -21.605 1.759 25.361 233.132 42 20.596 0.834 1.790 18.010 0.500 -0.460 3.444 1.975 65.031 43 28.050 31.224 -43.592 25.720 31.350 -44.360 2.457 53.621 305.613 44 24.428 16.573 -21.290 21.865 15.925 -22.410 2.871 26.980 307.898 45 20.775 1.062 1.849 18.010 0.500 -0.460 3.646 2.132 60.115 46 27.951 31.592 -43.586 25.720 31.350 -44.360 2.374 53.831 305.935 47 24.413 16.789 -21.558 21.865 15.925 -22.410 2.822 27.324 307.911 48 20.742 1.238 1.780 18.010 0.500 -0.460 3.609 2.168 55.193 49 47.685 75.265 -6.106 48.130 75.200 -6.800 0.827 75.513 355.362 50 34.058 36.976 -1.848 33.070 37.850 -3.630 2.217 37.022 357.138 51 19.828 0.759 1.618 18.010 0.500 -0.460 2.773 1.787 64.874 52 47.770 75.333 -6.073 48.130 75.200 -6.800 0.823 75.577 355.391 53 34.024 36.746 -1.841 33.070 37.850 -3.630 2.308 36.792 357.131 54 19.895 0.766 1.713 18.010 0.500 -0.460 2.889 1.877 65.917 55 48.084 65.391 53.701 47.940 65.310 52.070 1.639 84.616 39.394 56 33.902 32.769 28.182 32.975 32.905 25.805 2.555 43.221 40.696 57 20.096 0.689 1.832 18.010 0.500 -0.460 3.105 1.958 69.398 58 48.093 65.240 53.510 47.940 65.310 52.070 1.449 84.377 39.358 59 33.983 32.963 28.200 32.975 32.905 25.805 2.599 43.379 40.547 60 20.045 0.703 1.815 18.010 0.500 -0.460 3.059 1.946 68.836 61 88.969 -7.916 99.202 90.370 -11.160 96.170 4.656 99.517 94.562 62 54.202 -4.710 50.539 54.190 -5.330 47.855 2.755 50.758 95.324 63 20.513 1.218 2.043 18.010 0.500 -0.460 3.612 2.379 59.195 64 88.968 -7.927 98.732 90.370 -11.160 96.170 4.357 99.050 94.591 65 54.261 -4.648 50.299 54.190 -5.330 47.855 2.539 50.514 95.279 66 20.641 0.847 1.666 18.010 0.500 -0.460 3.401 1.869 63.062 67 53.549 -61.840 40.746 50.900 -62.960 36.710 4.956 74.057 146.619 68 35.886 -31.821 20.383 34.455 -31.230 18.125 2.738 37.790 147.359 69 20.920 1.315 2.010 18.010 0.500 -0.460 3.903 2.401 56.801 70 53.497 -62.212 40.195 50.900 -62.960 36.710 4.410 74.067 147.134 71 35.953 -31.500 20.084 34.455 -31.230 18.125 2.481 37.358 147.479 72 20.895 1.150 1.709 18.010 0.500 -0.460 3.667 2.059 56.060 73 94.784 -1.844 6.954 95.410 -0.980 4.760 2.440 7.194 104.855 74 57.474 -0.187 4.308 56.710 -0.240 2.150 2.290 4.312 92.481 75 19.853 0.660 2.057 18.010 0.500 -0.460 3.124 2.160 72.205 76 94.850 -1.803 6.917 95.410 -0.980 4.760 2.376 7.148 104.613 77 57.492 -0.158 4.396 56.710 -0.240 2.150 2.380 4.399 92.060 78 19.840 0.774 1.873 18.010 0.500 -0.460 2.978 2.026 67.556 79 94.712 -1.740 6.671 95.410 -0.980 4.760 2.171 6.894 104.624 80 75.767 -1.256 4.576 76.060 -0.610 3.455 1.327 4.745 105.346 81 57.770 -0.029 4.084 56.710 -0.240 2.150 2.215 4.084 90.406 82 38.879 0.418 3.397 37.360 0.130 0.845 2.983 3.422 82.988 83 20.500 0.760 1.906 18.010 0.500 -0.460 3.445 2.052 68.276 84 94.746 -1.749 6.752 95.410 -0.980 4.760 2.236 6.975 104.522 85 75.784 -1.036 4.321 76.060 -0.610 3.455 1.004 4.443 103.478 86 57.797 0.122 4.078 56.710 -0.240 2.150 2.243 4.080 88.280 87 38.909 0.429 3.229 37.360 0.130 0.845 2.859 3.258 82.432 88 20.404 0.745 1.681 18.010 0.500 -0.460 3.221 1.839 66.098 89 94.821 -1.758 6.747 95.410 -0.980 4.760 2.214 6.973 104.604 90 86.389 -9.074 -6.237 86.213 -8.393 -7.118 1.128 11.011 214.502 91 76.787 -16.568 -18.756 77.015 -15.805 -18.995 0.832 25.026 228.543 92 68.577 -23.637 -30.298 67.818 -23.218 -30.873 1.041 38.427 232.040 93 59.128 -30.875 -42.876 58.620 -30.630 -42.750 0.578 52.835 234.243 94 94.810 -1.748 6.756 95.410 -0.980 4.760 2.221 6.978 104.505 95 86.419 -8.953 -6.387 86.213 -8.393 -7.118 0.943 10.998 215.505 96 76.820 -16.491 -18.789 77.015 -15.805 -18.995 0.742 25.000 228.727 97 68.658 -23.582 -30.348 67.818 -23.218 -30.873 1.056 38.433 232.151 98 59.211 -30.905 -42.735 58.620 -30.630 -42.750 0.652 52.739 234.127 99 94.672 -1.678 6.502 95.410 -0.980 4.760 2.016 6.715 104.470 100 78.300 7.067 -7.013 77.988 7.103 -7.520 0.597 9.956 315.220 101 60.293 15.348 -19.582 60.565 15.185 -19.800 0.385 24.880 308.089 102 44.203 22.986 -31.712 43.143 23.268 -32.080 1.157 39.167 305.936 103 27.016 31.165 -43.974 25.720 31.350 -44.360 1.365 53.898 305.325 104 94.830 -1.783 6.928 95.410 -0.980 4.760 2.383 7.154 104.433 105 78.257 7.039 -7.270 77.988 7.103 -7.520 0.373 10.119 314.077 106 60.155 15.718 -20.231 60.565 15.185 -19.800 0.798 25.619 307.845 107 44.111 23.540 -32.017 43.143 23.268 -32.080 1.008 39.740 306.324 108 26.626 33.169 -44.169 25.720 31.350 -44.360 2.042 55.237 306.905 109 94.830 -1.701 6.558 95.410 -0.980 4.760 2.022 6.775 104.543 110 83.971 17.488 2.916 83.590 18.065 1.870 1.254 17.729 9.468 111 71.531 37.398 -0.616 71.770 37.110 -1.020 0.550 37.403 359.056 112 60.110 56.166 -3.810 59.950 56.155 -3.910 0.189 56.295 356.120 113 48.082 74.995 -6.574 48.130 75.200 -6.800 0.309 75.282 354.990 114 94.878 -1.729 6.630 95.410 -0.980 4.760 2.084 6.852 104.617 115 83.935 17.501 2.928 83.590 18.065 1.870 1.247 17.744 9.497 116 71.513 37.496 -0.695 71.770 37.110 -1.020 0.566 37.502 358.938 117 60.110 56.159 -3.719 59.950 56.155 -3.910 0.249 56.282 356.211 118 48.182 74.902 -6.412 48.130 75.200 -6.800 0.492 75.176 355.107 119 94.804 -1.818 7.199 95.410 -0.980 4.760 2.649 7.425 104.176 120 82.777 14.554 17.861 83.543 15.593 16.588 1.812 23.040 50.825 121 71.216 31.512 29.973 71.675 32.165 28.415 1.750 43.490 43.566 122 59.233 49.560 42.426 59.808 48.738 40.243 2.403 65.239 40.565 123 47.901 65.572 53.795 47.940 65.310 52.070 1.745 84.815 39.365 124 94.772 -1.833 6.825 95.410 -0.980 4.760 2.324 7.067 105.036 125 82.720 14.616 17.563 83.543 15.593 16.588 1.607 22.849 50.232 126 71.256 31.437 30.263 71.675 32.165 28.415 2.030 43.636 43.910 127 59.267 49.547 42.334 59.808 48.738 40.243 2.306 65.169 40.511 128 47.815 65.383 53.061 47.940 65.310 52.070 1.001 84.204 39.061 129 94.840 -1.780 6.905 95.410 -0.980 4.760 2.359 7.131 104.455 130 93.112 -6.364 28.580 94.150 -3.525 27.613 3.174 29.280 102.554 131 92.030 -9.686 51.982 92.890 -6.070 50.465 4.014 52.877 100.555 132 90.731 -10.442 77.889 91.630 -8.615 73.318 5.005 78.586 97.636 133 88.925 -7.755 98.630 90.370 -11.160 96.170 4.442 98.935 94.496 134 94.750 -1.706 6.774 95.410 -0.980 4.760 2.240 6.985 104.140 135 93.456 -6.983 29.551 94.150 -3.525 27.613 4.024 30.365 103.295 136 91.762 -9.588 54.588 92.890 -6.070 50.465 5.536 55.424 99.962 137 90.523 -9.923 78.975 91.630 -8.615 73.318 5.912 79.596 97.161 138 88.450 -7.383 99.721 90.370 -11.160 96.170 5.528 99.994 94.234 139 94.774 -1.701 6.618 95.410 -0.980 4.760 2.092 6.833 104.419 140 84.620 -17.161 14.272 84.283 -16.475 12.748 1.706 22.320 140.250 141 72.841 -32.934 22.138 73.155 -31.970 20.735 1.731 39.683 146.092 142 63.629 -47.768 31.268 62.028 -47.465 28.723 3.022 57.091 146.792 143 53.074 -62.749 39.986 50.900 -62.960 36.710 3.938 74.407 147.493 144 94.824 -1.732 6.644 95.410 -0.980 4.760 2.111 6.866 104.611 145 84.610 -17.132 14.251 84.283 -16.475 12.748 1.673 22.284 140.245 146 72.795 -32.837 21.866 73.155 -31.970 20.735 1.470 39.451 146.341 147 63.609 -47.604 30.857 62.028 -47.465 28.723 2.660 56.730 147.049 148 53.068 -62.538 39.758 50.900 -62.960 36.710 3.764 74.106 147.554 149 59.304 -30.836 -42.453 58.620 -30.630 -42.750 0.774 52.471 234.007 150 48.835 -23.073 -32.162 48.468 -22.848 -32.178 0.431 39.582 234.345 151 38.544 -15.514 -20.880 38.315 -15.065 -21.605 0.883 26.012 233.387 152 28.577 -8.727 -9.949 28.163 -7.283 -11.033 1.853 13.234 228.743 153 19.400 0.578 1.071 18.010 0.500 -0.460 2.069 1.217 61.645 154 59.283 -30.812 -42.644 58.620 -30.630 -42.750 0.696 52.611 234.150 155 49.013 -23.128 -32.035 48.468 -22.848 -32.178 0.630 39.512 234.172 156 38.632 -15.429 -21.396 38.315 -15.065 -21.605 0.526 26.379 234.205 157 28.626 -9.032 -10.165 28.163 -7.283 -11.033 2.007 13.598 228.377 158 19.526 0.414 1.083 18.010 0.500 -0.460 2.165 1.159 69.068 159 26.747 31.469 -43.910 25.720 31.350 -44.360 1.128 54.022 305.628 160 25.010 24.152 -33.934 23.793 23.638 -33.385 1.431 41.651 305.440 161 23.199 16.450 -22.261 21.865 15.925 -22.410 1.441 27.680 306.463 162 21.560 8.223 -9.882 19.938 8.213 -11.435 2.246 12.856 309.764 163 19.767 0.771 1.400 18.010 0.500 -0.460 2.573 1.598 61.142 164 26.466 33.265 -43.952 25.720 31.350 -44.360 2.096 55.121 307.121 165 24.531 25.256 -34.061 23.793 23.638 -33.385 1.903 42.403 306.557 166 22.532 17.348 -22.759 21.865 15.925 -22.410 1.610 28.617 307.317 167 21.297 9.116 -10.038 19.938 8.213 -11.435 2.148 13.559 312.243 168 20.241 1.362 2.421 18.010 0.500 -0.460 3.745 2.778 60.648 169 47.954 75.045 -6.124 48.130 75.200 -6.800 0.715 75.294 355.335 170 39.935 56.633 -5.204 40.600 56.525 -5.215 0.674 56.872 354.750 171 34.317 37.076 -2.591 33.070 37.850 -3.630 1.798 37.166 356.003 172 27.113 19.906 0.097 25.540 19.175 -2.045 2.756 19.906 0.279 173 20.282 0.865 1.650 18.010 0.500 -0.460 3.122 1.863 62.340 174 48.114 74.940 -6.437 48.130 75.200 -6.800 0.447 75.216 355.091 175 40.005 56.475 -5.385 40.600 56.525 -5.215 0.621 56.731 354.553 176 34.340 37.261 -2.923 33.070 37.850 -3.630 1.569 37.376 355.515 177 27.115 19.691 -0.318 25.540 19.175 -2.045 2.394 19.694 359.076 178 20.357 0.721 1.317 18.010 0.500 -0.460 2.952 1.501 61.306 179 47.885 65.560 53.596 47.940 65.310 52.070 1.548 84.680 39.267 180 40.159 49.175 39.907 40.458 49.108 38.938 1.017 63.331 39.061 181 33.458 32.557 27.471 32.975 32.905 25.805 1.770 42.598 40.158 182 26.575 18.004 15.031 25.493 16.703 12.673 2.904 23.454 39.858 183 19.509 0.349 1.149 18.010 0.500 -0.460 2.205 1.201 73.119 184 47.899 65.372 53.449 47.940 65.310 52.070 1.381 84.441 39.270 185 40.193 49.025 39.636 40.458 49.108 38.938 0.752 63.043 38.955 186 33.443 32.649 27.569 32.975 32.905 25.805 1.843 42.732 40.179 187 26.586 17.967 15.189 25.493 16.703 12.673 3.021 23.527 40.209 188 19.559 0.718 1.107 18.010 0.500 -0.460 2.214 1.319 57.028 189 88.855 -7.734 98.558 90.370 -11.160 96.170 4.442 98.861 94.487 190 72.418 -8.190 74.514 72.280 -8.245 72.013 2.506 74.962 96.272 191 53.856 -5.000 49.618 54.190 -5.330 47.855 1.824 49.869 95.755 192 37.368 -2.171 26.048 36.100 -2.415 23.698 2.682 26.138 94.764 193 19.741 0.588 1.403 18.010 0.500 -0.460 2.544 1.521 67.252 194 88.335 -7.243 99.966 90.370 -11.160 96.170 5.821 100.228 94.144 195 72.521 -8.080 74.951 72.280 -8.245 72.013 2.953 75.385 96.153 196 54.041 -4.892 50.769 54.190 -5.330 47.855 2.951 51.005 95.504 197 37.291 -2.102 27.349 36.100 -2.415 23.698 3.854 27.430 94.394 198 20.047 1.076 1.865 18.010 0.500 -0.460 3.144 2.153 60.022 199 52.992 -62.907 39.847 50.900 -62.960 36.710 3.771 74.466 147.649 200 44.029 -47.586 30.202 42.678 -47.095 27.418 3.134 56.361 147.598 201 35.211 -32.267 19.159 34.455 -31.230 18.125 1.648 37.526 149.301 202 26.980 -16.066 9.803 26.233 -15.365 8.833 1.411 18.821 148.611 203 20.466 0.704 1.621 18.010 0.500 -0.460 3.225 1.767 66.517 204 52.908 -62.721 39.980 50.900 -62.960 36.710 3.845 74.379 147.486 205 43.965 -47.550 30.261 42.678 -47.095 27.418 3.154 56.362 147.527 206 35.087 -31.927 19.339 34.455 -31.230 18.125 1.536 37.328 148.796 207 26.972 -15.836 9.697 26.233 -15.365 8.833 1.232 18.569 148.519 208 20.294 0.770 1.635 18.010 0.500 -0.460 3.111 1.808 64.791 209 94.809 -1.830 6.976 95.410 -0.980 4.760 2.449 7.212 104.699 210 58.984 -30.966 -42.837 58.620 -30.630 -42.750 0.503 52.858 234.137 211 19.349 0.469 1.318 18.010 0.500 -0.460 2.226 1.398 70.426 212 94.944 -1.846 7.105 95.410 -0.980 4.760 2.543 7.341 104.567 213 58.971 -30.882 -42.895 58.620 -30.630 -42.750 0.456 52.855 234.248 214 19.176 0.272 0.555 18.010 0.500 -0.460 1.563 0.618 63.872 215 94.790 -1.802 6.934 95.410 -0.980 4.760 2.405 7.164 104.566 216 26.440 31.213 -44.153 25.720 31.350 -44.360 0.762 54.072 305.257 217 19.441 0.489 1.328 18.010 0.500 -0.460 2.290 1.415 69.769 218 94.798 -1.798 6.914 95.410 -0.980 4.760 2.385 7.145 104.579 219 26.313 31.108 -44.083 25.720 31.350 -44.360 0.697 53.954 305.210 220 19.377 0.342 0.924 18.010 0.500 -0.460 1.951 0.985 69.704 221 94.819 -1.802 6.895 95.410 -0.980 4.760 2.363 7.127 104.645 222 47.850 74.956 -6.176 48.130 75.200 -6.800 0.726 75.210 355.289 223 19.840 0.541 1.276 18.010 0.500 -0.460 2.523 1.386 67.045 224 94.770 -1.747 6.714 95.410 -0.980 4.760 2.194 6.937 104.589 225 47.821 75.208 -5.965 48.130 75.200 -6.800 0.890 75.444 355.465 226 19.694 0.611 1.037 18.010 0.500 -0.460 2.255 1.203 59.503 227 94.825 -1.776 6.746 95.410 -0.980 4.760 2.218 6.976 104.750 228 48.028 65.260 53.084 47.940 65.310 52.070 1.019 84.124 39.126 229 19.876 0.685 0.983 18.010 0.500 -0.460 2.366 1.198 55.119 230 94.757 -1.745 6.631 95.410 -0.980 4.760 2.124 6.857 104.740 231 48.025 65.348 52.692 47.940 65.310 52.070 0.629 83.945 38.880 232 19.948 0.440 0.952 18.010 0.500 -0.460 2.398 1.049 65.224 233 94.873 -1.904 7.232 95.410 -0.980 4.760 2.693 7.478 104.749 234 88.844 -7.513 99.977 90.370 -11.160 96.170 5.488 100.259 94.298 235 19.166 0.454 1.197 18.010 0.500 -0.460 2.021 1.280 69.252 236 94.774 -1.875 7.051 95.410 -0.980 4.760 2.540 7.296 104.892 237 88.796 -7.519 99.400 90.370 -11.160 96.170 5.115 99.684 94.326 238 19.338 0.352 0.841 18.010 0.500 -0.460 1.865 0.912 67.297 239 94.804 -1.889 7.199 95.410 -0.980 4.760 2.672 7.443 104.699 240 52.200 -63.279 39.813 50.900 -62.960 36.710 3.380 74.762 147.823 241 19.336 0.468 1.313 18.010 0.500 -0.460 2.214 1.394 70.403 242 94.841 -1.856 7.078 95.410 -0.980 4.760 2.542 7.317 104.693 243 52.201 -63.318 39.205 50.900 -62.960 36.710 2.837 74.473 148.235 244 19.327 0.532 0.810 18.010 0.500 -0.460 1.830 0.969 56.705 245 59.110 -30.725 -42.847 58.620 -30.630 -42.750 0.508 52.725 234.357 246 26.841 31.207 -43.931 25.720 31.350 -44.360 1.209 53.887 305.389 247 47.998 74.766 -5.917 48.130 75.200 -6.800 0.993 74.999 355.475 248 59.180 -30.727 -42.860 58.620 -30.630 -42.750 0.579 52.736 234.363 249 26.918 30.963 -43.680 25.720 31.350 -44.360 1.431 53.541 305.332 250 47.960 74.748 -5.974 48.130 75.200 -6.800 0.957 74.987 355.431 251 47.932 74.957 -6.193 48.130 75.200 -6.800 0.683 75.213 355.277 252 47.999 65.290 53.196 47.940 65.310 52.070 1.127 84.217 39.172 253 88.840 -7.715 98.748 90.370 -11.160 96.170 4.567 99.049 94.467 254 47.938 74.793 -6.065 48.130 75.200 -6.800 0.862 75.039 355.364 255 47.995 65.199 52.614 47.940 65.310 52.070 0.558 83.781 38.902 256 88.992 -7.768 98.150 90.370 -11.160 96.170 4.162 98.457 94.525 257 88.806 -7.564 99.378 90.370 -11.160 96.170 5.066 99.666 94.353 258 52.054 -63.456 39.583 50.900 -62.960 36.710 3.136 74.790 148.045 259 58.953 -30.907 -42.839 58.620 -30.630 -42.750 0.442 52.824 234.190 260 88.799 -7.554 99.130 90.370 -11.160 96.170 4.923 99.418 94.358 261 52.114 -63.302 39.247 50.900 -62.960 36.710 2.833 74.482 148.202 262 59.070 -30.873 -42.721 58.620 -30.630 -42.750 0.513 52.709 234.145 263 26.607 31.110 -43.675 25.720 31.350 -44.360 1.146 53.622 305.462 264 58.916 -30.902 -42.852 58.620 -30.630 -42.750 0.414 52.832 234.204 265 52.088 -63.025 39.540 50.900 -62.960 36.710 3.070 74.401 147.897 266 26.722 30.906 -43.822 25.720 31.350 -44.360 1.220 53.624 305.194 267 59.121 -30.882 -42.788 58.620 -30.630 -42.750 0.562 52.769 234.181 268 52.256 -63.141 39.105 50.900 -62.960 36.710 2.758 74.269 148.229 269 52.510 -62.813 39.840 50.900 -62.960 36.710 3.523 74.382 147.615 270 88.821 -7.677 99.211 90.370 -11.160 96.170 4.876 99.507 94.425 271 47.854 65.422 53.179 47.940 65.310 52.070 1.118 84.309 39.106 272 52.472 -62.907 39.443 50.900 -62.960 36.710 3.153 74.250 147.912 273 88.911 -7.687 98.611 90.370 -11.160 96.170 4.488 98.910 94.458 274 48.184 65.048 53.192 47.940 65.310 52.070 1.177 84.027 39.274 275 47.989 65.268 53.085 47.940 65.310 52.070 1.017 84.130 39.122 276 47.951 74.898 -5.916 48.130 75.200 -6.800 0.951 75.131 355.484 277 26.916 31.080 -43.714 25.720 31.350 -44.360 1.386 53.637 305.412 278 48.097 65.075 52.962 47.940 65.310 52.070 0.936 83.903 39.141 279 47.899 75.065 -6.424 48.130 75.200 -6.800 0.461 75.339 355.109 280 26.923 31.161 -44.194 25.720 31.350 -44.360 1.229 54.075 305.188 281 59.056 -30.846 -42.596 58.620 -30.630 -42.750 0.510 52.592 234.090 282 42.393 -0.024 -43.358 42.170 0.360 -43.555 0.485 43.358 269.969 283 26.201 31.341 -43.878 25.720 31.350 -44.360 0.681 53.922 305.538 284 35.879 52.754 -25.625 36.925 53.275 -25.580 1.170 58.649 334.092 285 47.697 75.104 -5.768 48.130 75.200 -6.800 1.123 75.325 355.608 286 59.077 -30.803 -42.830 58.620 -30.630 -42.750 0.495 52.757 234.277 287 42.530 0.124 -43.449 42.170 0.360 -43.555 0.443 43.449 270.163 288 26.456 31.114 -43.949 25.720 31.350 -44.360 0.875 53.848 305.297 289 36.149 53.085 -25.997 36.925 53.275 -25.580 0.901 59.109 333.908 290 47.813 74.760 -5.930 48.130 75.200 -6.800 1.026 74.995 355.465 291 47.681 75.057 -5.678 48.130 75.200 -6.800 1.217 75.271 355.674 292 48.009 70.346 23.542 48.035 70.255 22.635 0.912 74.181 18.503 293 47.948 65.385 53.204 47.940 65.310 52.070 1.137 84.297 39.135 294 69.043 27.507 75.803 69.155 27.075 74.120 1.742 80.640 70.055 295 88.877 -7.732 98.861 90.370 -11.160 96.170 4.607 99.162 94.472 296 47.708 75.078 -5.934 48.130 75.200 -6.800 0.971 75.312 355.481 297 48.137 70.269 23.468 48.035 70.255 22.635 0.839 74.085 18.468 298 47.993 65.415 53.124 47.940 65.310 52.070 1.060 84.269 39.080 299 69.008 27.609 75.411 69.155 27.075 74.120 1.405 80.306 69.892 300 88.950 -7.638 98.601 90.370 -11.160 96.170 4.509 98.897 94.429 301 88.888 -7.777 98.464 90.370 -11.160 96.170 4.348 98.770 94.516 302 69.977 -37.776 67.450 70.635 -37.060 66.440 1.402 77.308 119.251 303 52.753 -62.962 39.380 50.900 -62.960 36.710 3.250 74.263 147.976 304 56.064 -46.601 -2.263 54.760 -46.795 -3.020 1.520 46.656 182.780 305 59.454 -30.783 -42.623 58.620 -30.630 -42.750 0.858 52.577 234.163 306 88.698 -7.654 98.411 90.370 -11.160 96.170 4.484 98.708 94.447 307 69.890 -37.662 67.446 70.635 -37.060 66.440 1.389 77.249 119.179 308 52.671 -62.821 38.863 50.900 -62.960 36.710 2.791 73.870 148.258 309 55.892 -46.803 -2.516 54.760 -46.795 -3.020 1.239 46.871 183.077 310 59.528 -30.492 -42.511 58.620 -30.630 -42.750 0.949 52.316 234.349 ] def %LAB_KIi %************************************************************* /D57SERWi 2000 array def %max 57 series of 15 data (100x20) /D57SERWi [%BEG D57SERWi top data WANG_ELCD scaling data %0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %N S N1 N2 N3 N4 N5 NA1 NA2 NA3 NA4 NA5 DV*1i DV*2i WANG1 WANG2 %Serie 1, BAM test chart order 1:25 001 003 001 002 003 000 000 (W) (CW) (C) (0) (0) 26.45 26.39 (W03) (W04) 002 003 007 008 009 000 000 (W) (VW) (V) (0) (0) 29.54 41.95 (W13) (W14) 003 003 013 014 015 000 000 (W) (MW) (M) (0) (0) 31.00 32.74 (W23) (W24) 004 003 019 020 021 000 000 (W) (OW) (O) (0) (0) 28.01 37.64 (W33) (W34) 005 003 025 026 027 000 000 (W) (YW) (Y) (0) (0) 16.99 11.01 (W43) (W44) 006 003 031 032 033 000 000 (W) (LW) (L) (0) (0) 25.44 28.39 (W53) (W54) %Serie 2, BAM test chart order 1:25 007 003 037 038 039 000 000 (C) (CN) (N) (0) (0) 25.80 35.47 (W06) (W05) 008 003 043 044 045 000 000 (V) (VN) (N) (0) (0) 9.30 16.62 (W16) (W15) 009 003 049 050 051 000 000 (M) (MN) (N) (0) (0) 26.80 29.68 (W26) (W25) 010 003 055 056 057 000 000 (O) (ON) (N) (0) (0) 30.62 34.58 (W36) (W35) 011 003 061 062 063 000 000 (Y) (YN) (N) (0) (0) 29.85 41.77 (W46) (W45) 012 003 067 068 069 000 000 (L) (LN) (N) (0) (0) 18.79 35.12 (W56) (W55) %Serie 3, BAM test chart order 3:27 013 003 209 210 211 000 000 (W) (C) (N) (0) (0) 64.17 61.50 (W01) (W02) 014 003 215 216 217 000 000 (W) (V) (N) (0) (0) 67.03 32.91 (W11) (W12) 015 003 221 222 223 000 000 (W) (M) (N) (0) (0) 74.48 61.26 (W21) (W22) 016 003 227 228 229 000 000 (W) (O) (N) (0) (0) 71.77 67.21 (W31) (W32) 017 003 233 234 235 000 000 (W) (Y) (N) (0) (0) 37.26 86.10 (W41) (W42) 018 003 239 240 241 000 000 (W) (L) (N) (0) (0) 50.89 56.11 (W51) (W52) %Serie 4, BAM test chart order 3:27 019 003 245 246 247 000 000 (C) (V) (M) (0) (0) 41.67 45.01 (W09) (W19) 020 003 251 252 253 000 000 (M) (O) (Y) (0) (0) 28.41 72.32 (W29) (W39) 021 003 257 258 259 000 000 (Y) (L) (C) (0) (0) 64.80 40.72 (W49) (W59) 022 003 263 264 265 000 000 (V) (C) (L) (0) (0) 41.67 40.72 (W09) (W59) 023 003 269 270 271 000 000 (L) (Y) (O) (0) (0) 64.80 72.32 (W49) (W39) 024 003 275 276 277 000 000 (O) (M) (V) (0) (0) 28.41 45.01 (W29) (W19) %Serie 5, BAM test chart order 2:26 %values are missing 025 004 089 090 091 000 000 (W) (Wc) (CW) (0) (0) 26.45 0.00 (W03) (W00) 026 004 099 100 101 102 103 (W) (Wv) (VW) (0) (0) 29.54 0.00 (W13) (W00) 027 004 109 110 111 112 113 (W) (Wm) (MW) (0) (0) 31.00 0.00 (W23) (W00) 028 004 119 120 121 122 123 (W) (Wo) (OW) (0) (0) 28.01 0.00 (W33) (W00) 029 004 129 130 131 132 133 (W) (Wy) (YW) (0) (0) 16.99 0.00 (W43) (W00) 030 004 139 140 141 142 143 (W) (Wl) (LW) (0) (0) 25.44 0.00 (W53) (W00) %Serie 6, BAM test chart order 2:26 031 004 091 092 093 000 000 (CW) (Cw) (C) (0) (0) 26.39 0.00 (W04) (W00) 032 004 101 102 103 000 000 (VW) (Vw) (V) (0) (0) 41.95 0.00 (W14) (W00) 033 004 111 112 113 000 000 (MW) (Mw) (M) (0) (0) 32.74 0.00 (W24) (W00) 034 004 121 122 123 000 000 (OW) (Ow) (O) (0) (0) 37.64 0.00 (W34) (W00) 035 004 131 132 133 000 000 (YW) (Yw) (Y) (0) (0) 110.1 0.00 (W44) (W00) 036 004 141 142 143 000 000 (LW) (Lw) (L) (0) (0) 28.39 0.00 (W54) (W00) %Serie 7, BAM test chart order 2:26 037 004 149 150 151 000 000 (C) (Cn) (CN) (0) (0) 25.80 0.00 (W06) (W00) 038 004 159 160 161 000 000 (V) (Vn) (VN) (0) (0) 9.30 0.00 (W16) (W00) 039 004 169 170 171 000 000 (M) (Mn) (MN) (0) (0) 26.80 0.00 (W26) (W00) 040 004 179 180 181 000 000 (O) (On) (ON) (0) (0) 30.62 0.00 (W36) (W00) 041 004 189 190 191 000 000 (Y) (Yn) (YN) (0) (0) 29.85 0.00 (W46) (W00) 042 004 199 200 201 000 000 (L) (Ln) (LN) (0) (0) 18.79 0.00 (W56) (W00) %Serie 8, BAM test chart order 2:26 043 004 151 152 153 000 000 (CN) (Nc) (N) (0) (0) 61.50 0.00 (W02) (W00) 044 004 161 162 163 000 000 (VN) (Nv) (N) (0) (0) 32.91 0.00 (W12) (W00) 045 004 171 172 173 000 000 (MN) (Nm) (N) (0) (0) 61.26 0.00 (W22) (W00) 046 004 181 182 183 000 000 (ON) (No) (N) (0) (0) 67.21 0.00 (W32) (W00) 047 004 191 192 193 000 000 (YN) (Ny) (N) (0) (0) 86.10 0.00 (W42) (W00) 048 004 201 202 203 000 000 (LN) (Nl) (N) (0) (0) 56.11 0.00 (W52) (W00) %Serie 2N, BAM test chart order 1:25, 1 triplet 049 003 073 074 075 000 000 (W) (WN) (N) (0) (0) 10.00 9.00 (W61) (W62) %Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets 050 004 281 282 283 000 000 (C) (CV) (V) (0) (0) 41.67 0.00 (W09) (W00) 051 004 283 284 285 000 000 (V) (MV) (M) (0) (0) 45.01 0.00 (W19) (W00) 052 004 291 292 293 000 000 (M) (MO) (O) (0) (0) 28.41 0.00 (W29) (W00) 053 004 293 294 295 000 000 (O) (YO) (Y) (0) (0) 72.32 0.00 (W39) (W00) 054 004 301 302 303 000 000 (Y) (YL) (L) (0) (0) 64.80 0.00 (W49) (W00) 055 004 303 304 305 000 000 (L) (CL) (C) (0) (0) 40.72 0.00 (W59) (W00) %Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets 056 004 079 080 081 000 000 (W) (Wn) (WN) (0) (0) 10.00 0.00 (W61) (W00) 057 004 081 082 083 000 000 (WN) (Nw) (N) (0) (0) 9.00 0.00 (W62) (W00) ] def %END D57SERWi %************************************************************* /D57SERVia 2000 array def %max 57 series of 15 data (100x20) /D57SERVia [%BEG D57SERVia top data VIK_ELCD scaling data %0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %N S N1 N2 N3 N4 N5 NA1 NA2 NA3 NA4 NA5 DV*1i DV*2i VIK1 VIK2 %Serie 1, BAM test chart order 1:25 001 003 001 002 003 000 000 (W) (CW) (C) (0) (0) 25.24 39.23 (V01) (V02) 002 003 007 008 009 000 000 (W) (VW) (V) (0) (0) 33.11 46.66 (V03) (V04) 003 003 013 014 015 000 000 (W) (MW) (M) (0) (0) 30.92 45.35 (V05) (V06) 004 003 019 020 021 000 000 (W) (OW) (O) (0) (0) 26.55 46.66 (V07) (V08) 005 003 025 026 027 000 000 (W) (YW) (Y) (0) (0) 22.62 23.06 (V09) (V10) 006 003 031 032 033 000 000 (W) (LW) (L) (0) (0) 29.18 40.98 (V11) (V12) %Serie 2, BAM test chart order 1:25 007 003 037 038 039 000 000 (C) (CN) (N) (0) (0) 38.35 42.73 (V13) (V14) 008 003 043 044 045 000 000 (V) (VN) (N) (0) (0) 21.75 31.36 (V15) (V16) 009 003 049 050 051 000 000 (M) (MN) (N) (0) (0) 40.98 44.47 (V17) (V18) 010 003 055 056 057 000 000 (O) (ON) (N) (0) (0) 34.86 43.16 (V19) (V20) 011 003 061 062 063 000 000 (Y) (YN) (N) (0) (0) 35.73 47.97 (V21) (V22) 012 003 067 068 069 000 000 (L) (LN) (N) (0) (0) 36.17 42.29 (V23) (V24) %Serie 3, BAM test chart order 3:27 013 003 209 210 211 000 000 (W) (C) (N) (0) (0) 53.65 55.40 (V26) (V25) 014 003 215 216 217 000 000 (W) (V) (N) (0) (0) 65.02 29.61 (V28) (V27) 015 003 221 222 223 000 000 (W) (M) (N) (0) (0) 60.21 53.22 (V30) (V29) 016 003 227 228 229 000 000 (W) (O) (N) (0) (0) 58.46 48.84 (V32) (V31) 017 003 233 234 235 000 000 (W) (Y) (N) (0) (0) 37.38 61.52 (V34) (V33) 018 003 239 240 241 000 000 (W) (L) (N) (0) (0) 55.84 45.35 (V36) (V35) %Serie 4, BAM test chart order 3:27 019 003 245 246 247 000 000 (C) (V) (M) (0) (0) 44.47 42.29 (V37) (V38) 020 003 251 252 253 000 000 (M) (O) (Y) (0) (0) 22.62 47.97 (V40) (V39) 021 003 257 258 259 000 000 (Y) (L) (C) (0) (0) 46.22 31.36 (V41) (V42) 022 003 263 264 265 000 000 (V) (C) (L) (0) (0) 48.41 30.49 (V44) (V43) 023 003 269 270 271 000 000 (L) (Y) (O) (0) (0) 51.03 53.65 (V46) (V45) 024 003 275 276 277 000 000 (O) (M) (V) (0) (0) 23.49 48.84 (V47) (V48) %Serie 5, BAM test chart order 2:26 %dummy 26.00: values are missing 025 003 089 090 091 000 000 (W) (Wc) (CW) (0) (0) 25.24 26.00 (V01) (V00) 026 003 099 100 101 000 000 (W) (Wv) (VW) (0) (0) 33.11 26.00 (V03) (V00) 027 003 109 110 111 000 000 (W) (Wm) (MW) (0) (0) 30.92 26.00 (V05) (V00) 028 003 119 120 121 000 000 (W) (Wo) (OW) (0) (0) 26.55 26.00 (V07) (V00) 029 003 129 130 131 000 000 (W) (Wy) (YW) (0) (0) 22.62 26.00 (V09) (V00) 030 003 139 140 141 000 000 (W) (Wl) (LW) (0) (0) 29.18 26.00 (V11) (V00) %Serie 6, BAM test chart order 2:26 031 003 091 092 093 000 000 (CW) (Cw) (C) (0) (0) 22.62 27.87 (V62) (V61) 032 003 101 102 103 000 000 (VW) (Vw) (V) (0) (0) 26.99 33.98 (V64) (V63) 033 003 111 112 113 000 000 (MW) (Mw) (M) (0) (0) 28.30 35.73 (V66) (V65) 034 003 121 122 123 000 000 (OW) (Ow) (O) (0) (0) 24.37 33.98 (V68) (V67) 035 003 131 132 133 000 000 (YW) (Yw) (Y) (0) (0) 18.25 20.00 (V70) (V69) 036 003 141 142 143 000 000 (LW) (Lw) (L) (0) (0) 23.49 32.24 (V72) (V71) %Serie 7, BAM test chart order 2:26 037 003 149 150 151 000 000 (C) (Cn) (CN) (0) (0) 29.61 28.74 (V74) (V73) 038 003 159 160 161 000 000 (V) (Vn) (VN) (0) (0) 19.56 18.25 (V76) (V75) 039 003 169 170 171 000 000 (M) (Mn) (MN) (0) (0) 35.73 27.87 (V78) (V77) 040 003 179 180 181 000 000 (O) (On) (ON) (0) (0) 37.48 26.12 (V80) (V79) 041 003 189 190 191 000 000 (Y) (Yn) (YN) (0) (0) 38.35 30.49 (V82) (V81) 042 003 199 200 201 000 000 (L) (Ln) (LN) (0) (0) 33.11 26.99 (V84) (V83) %Serie 8, BAM test chart order 2:26 043 003 151 152 153 000 000 (CN) (Nc) (N) (0) (0) 37.48 26.12 (V86) (V85) 044 003 161 162 163 000 000 (VN) (Nv) (N) (0) (0) 20.43 18.25 (V88) (V87) 045 003 171 172 173 000 000 (MN) (Nm) (N) (0) (0) 34.86 28.30 (V90) (V89) 046 003 181 182 183 000 000 (ON) (No) (N) (0) (0) 33.98 27.87 (V92) (V91) 047 003 191 192 193 000 000 (YN) (Ny) (N) (0) (0) 39.67 34.86 (V94) (V93) 048 003 201 202 203 000 000 (LN) (Nl) (N) (0) (0) 32.24 26.12 (V96) (V95) %Serie 2N, BAM test chart order 1:25, 1 triplet 049 003 073 074 075 000 000 (W) (WN) (N) (0) (0) 40.10 36.61 (V97) (V98) %Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets 050 004 281 282 283 000 000 (C) (CV) (V) (0) (0) 44.47 0.00 (V37) (V00) 051 004 283 284 285 000 000 (V) (MV) (M) (0) (0) 42.29 0.00 (V38) (V00) 052 004 291 292 293 000 000 (M) (MO) (O) (0) (0) 22.62 0.00 (V40) (V00) 053 004 293 294 295 000 000 (O) (YO) (Y) (0) (0) 47.97 0.00 (V39) (V00) 054 004 301 302 303 000 000 (Y) (YL) (L) (0) (0) 46.22 0.00 (V41) (V00) 055 004 303 304 305 000 000 (L) (CL) (C) (0) (0) 31.36 0.00 (V42) (V00) %Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets 056 004 079 080 081 000 000 (W) (Wn) (WN) (0) (0) 40.10 0.00 (V97) (V00) 057 004 081 082 083 000 000 (WN) (Nw) (N) (0) (0) 36.61 0.00 (V98) (V00) ] def %END D57SERVia %************************************************************* /D57SERVi 2000 array def %max 57 series of 15 data (100x20) /D57SERVi [%BEG D57SERVi top data VIK_ELCD scaling data %0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %N S N1 N2 N3 N4 N5 NA1 NA2 NA3 NA4 NA5 DV*1i DV*2i VIK1 VIK2 %Serie 1, BAM test chart order 1:25 001 003 001 002 003 000 000 (W) (CW) (C) 6.06 7.92 25.24 39.23 (V01) (V02) 002 003 007 008 009 000 000 (W) (VW) (V) 3.03 7.44 33.11 46.66 (V03) (V04) 003 003 013 014 015 000 000 (W) (MW) (M) 4.15 7.21 30.92 45.35 (V05) (V06) 004 003 019 020 021 000 000 (W) (OW) (O) 6.27 5.35 26.55 46.66 (V07) (V08) 005 003 025 026 027 000 000 (W) (YW) (Y) 5.39 10.8 22.62 23.06 (V09) (V10) 006 003 031 032 033 000 000 (W) (LW) (L) 4.58 7.82 29.18 40.98 (V11) (V12) %Serie 2, BAM test chart order 1:25 007 003 037 038 039 000 000 (C) (CN) (N) 12.1 5.67 38.35 42.73 (V13) (V14) 008 003 043 044 045 000 000 (V) (VN) (N) 6.42 9.50 21.75 31.36 (V15) (V16) 009 003 049 050 051 000 000 (M) (MN) (N) 9.08 7.82 40.98 44.47 (V17) (V18) 010 003 055 056 057 000 000 (O) (ON) (N) 10.7 9.31 34.86 43.16 (V19) (V20) 011 003 061 062 063 000 000 (Y) (YN) (N) 10.0 6.88 35.73 47.97 (V21) (V22) 012 003 067 068 069 000 000 (L) (LN) (N) 9.87 10.7 36.17 42.29 (V23) (V24) %Serie 3, BAM test chart order 3:27 013 003 209 210 211 000 000 (W) (C) (N) 7.29 5.77 53.65 55.40 (V26) (V25) 014 003 215 216 217 000 000 (W) (V) (N) 6.27 11.1 65.02 29.61 (V28) (V27) 015 003 221 222 223 000 000 (W) (M) (N) 8.91 6.30 60.21 53.22 (V30) (V29) 016 003 227 228 229 000 000 (W) (O) (N) 8.56 9.81 58.46 48.84 (V32) (V31) 017 003 233 234 235 000 000 (W) (Y) (N) 17.1 8.41 37.38 61.52 (V34) (V33) 018 003 239 240 241 000 000 (W) (L) (N) 7.62 10.8 55.84 45.35 (V36) (V35) %Serie 4, BAM test chart order 3:27 019 003 245 246 247 000 000 (C) (V) (M) 11.2 13.7 44.47 42.29 (V37) (V38) 020 003 251 252 253 000 000 (M) (O) (Y) 6.30 11.1 22.62 47.97 (V40) (V39) 021 003 257 258 259 000 000 (Y) (L) (C) 10.3 8.29 46.22 31.36 (V41) (V42) 022 003 263 264 265 000 000 (V) (C) (L) 9.87 11.3 48.41 30.49 (V44) (V43) 023 003 269 270 271 000 000 (L) (Y) (O) 10.2 9.52 51.03 53.65 (V46) (V45) 024 003 275 276 277 000 000 (O) (M) (V) 10.6 11.3 23.49 48.84 (V47) (V48) %Serie 5, BAM test chart order 2:26 %dummy 26.00: values are missing 025 004 089 090 091 000 000 (W) (Wc) (CW) 6.06 6.06 25.24 0.481 (V01) (V00) 026 004 099 100 101 000 000 (W) (Wv) (VW) 7.44 7.44 33.11 0.497 (V03) (V00) 027 004 109 110 111 000 000 (W) (Wm) (MW) 4.15 4.15 30.92 0.492 (V05) (V00) 028 004 119 120 121 000 000 (W) (Wo) (OW) 6.27 6.27 26.55 0.493 (V07) (V00) 029 004 129 130 131 000 000 (W) (Wy) (YW) 5.39 5.39 22.62 0.358 (V09) (V00) 030 004 139 140 141 000 000 (W) (Wl) (LW) 4.58 4.58 29.18 0.492 (V11) (V00) %Serie 6, BAM test chart order 2:26 031 003 091 092 093 000 000 (CW) (Cw) (C) 6.30 12.2 22.62 27.87 (V62) (V61) 032 003 101 102 103 000 000 (VW) (Vw) (V) 7.21 11.3 26.99 33.98 (V64) (V63) 033 003 111 112 113 000 000 (MW) (Mw) (M) 8.76 10.0 28.30 35.73 (V66) (V65) 034 003 121 122 123 000 000 (OW) (Ow) (O) 7.31 10.8 24.37 33.98 (V68) (V67) 035 003 131 132 133 000 000 (YW) (Yw) (Y) 3.27 7.10 18.25 20.00 (V70) (V69) 036 003 141 142 143 000 000 (LW) (Lw) (L) 6.06 11.2 23.49 32.24 (V72) (V71) %Serie 7, BAM test chart order 2:26 037 003 149 150 151 000 000 (C) (Cn) (CN) 8.29 8.48 29.61 28.74 (V74) (V73) 038 003 159 160 161 000 000 (V) (Vn) (VN) 4.58 3.27 19.56 18.25 (V76) (V75) 039 003 169 170 171 000 000 (M) (Mn) (MN) 9.50 12.2 35.73 27.87 (V78) (V77) 040 003 179 180 181 000 000 (O) (On) (ON) 5.10 11.2 37.48 26.12 (V80) (V79) 041 003 189 190 191 000 000 (Y) (Yn) (YN) 12.1 8.65 38.35 30.49 (V82) (V81) 042 003 199 200 201 000 000 (L) (Ln) (LN) 10.3 10.3 33.11 26.99 (V84) (V83) %Serie 8, BAM test chart order 2:26 043 003 151 152 153 000 000 (CN) (Nc) (N) 7.62 9.08 37.48 26.12 (V86) (V85) 044 003 161 162 163 000 000 (VN) (Nv) (N) 6.69 3.27 20.43 18.25 (V88) (V87) 045 003 171 172 173 000 000 (MN) (Nm) (N) 9.08 6.27 34.86 28.30 (V90) (V89) 046 003 181 182 183 000 000 (ON) (No) (N) 9.73 9.73 33.98 27.87 (V92) (V91) 047 003 191 192 193 000 000 (YN) (Ny) (N) 6.74 12.6 39.67 34.86 (V94) (V93) 048 003 201 202 203 000 000 (LN) (Nl) (N) 10.2 9.08 32.24 26.12 (V96) (V95) %Serie 2N, BAM test chart order 1:25, 1 triplet 049 003 073 074 075 000 000 (W) (WN) (N) (0) (0) 40.10 36.61 (V97) (V98) %not used %Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets 050 004 281 282 283 000 000 (C) (CV) (V) (0) (0) 44.47 0.00 (V37) (V00) 051 004 283 284 285 000 000 (V) (MV) (M) (0) (0) 42.29 0.00 (V38) (V00) 052 004 291 292 293 000 000 (M) (MO) (O) (0) (0) 22.62 0.00 (V40) (V00) 053 004 293 294 295 000 000 (O) (YO) (Y) (0) (0) 47.97 0.00 (V39) (V00) 054 004 301 302 303 000 000 (Y) (YL) (L) (0) (0) 46.22 0.00 (V41) (V00) 055 004 303 304 305 000 000 (L) (CL) (C) (0) (0) 31.36 0.00 (V42) (V00) %Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets 056 004 079 080 081 000 000 (W) (Wn) (WN) (0) (0) 40.10 0.00 (V97) (V00) 057 004 081 082 083 000 000 (WN) (Nw) (N) (0) (0) 36.61 0.00 (V98) (V00) ] def %END D57SERVi /d_CIELABi 2800 array def /d_CIELCHi 2800 array def /d_C94LCHi 2800 array def /d_CMCLCHi 2800 array def /d_CM2LCHi 2800 array def /d_C00LCHi 2800 array def /d_C85LCHi 2800 array def /d_C77LCHi 2800 array def /d_C78LCHi 2800 array def /d_C79LCHi 2800 array def /d_CIELABmi 2800 array def /d_CIELCHmi 2800 array def /d_C94LCHmi 2800 array def /d_CMCLCHmi 2800 array def /d_CM2LCHmi 2800 array def /d_C00LCHmi 2800 array def /d_C85LCHmi 2800 array def /d_C77LCHmi 2800 array def /d_C78LCHmi 2800 array def /d_C79LCHmi 2800 array def /D13 1 3 div def /D841_108 841 108 div def /D4_29 4 29 div def /D6_29 6 29 div 3 exp def /proc_coldiff {%BEG procedure proc_coldiff proc_coldiff_WK58.PS 150529 %calculates CIE colour data and differences for 10 colour spaces %BEG CIELAB/CIELCH /FL 0.000001 def X0 XW div D6_29 gt {/FXXN0 X0 XW div 0.0001 add D13 exp def} {/FXXN0 D841_108 X0 XW div mul D4_29 add def} ifelse Y0 YW div D6_29 gt {/FYYN0 Y0 YW div 0.0001 add D13 exp def} {/FYYN0 D841_108 Y0 YW div mul D4_29 add def} ifelse Z0 ZW div D6_29 gt {/FZZN0 Z0 ZW div 0.0001 add D13 exp def} {/FZZN0 D841_108 Z0 ZW div mul D4_29 add def} ifelse /CIEL*0 116. FYYN0 mul 16. sub def /CIEa*0 500. FXXN0 FYYN0 sub mul def /CIEb*0 200. FYYN0 FZZN0 sub mul def /CIEC*ab0 CIEa*0 dup mul CIEb*0 dup mul add 0.0001 add sqrt def /CIEhab0 CIEb*0 CIEa*0 0.0001 add atan def X1 XW div D6_29 gt {/FXXN1 X1 XW div 0.0001 add D13 exp def} {/FXXN1 D841_108 X1 XW div mul D4_29 add def} ifelse Y1 YW div D6_29 gt {/FYYN1 Y1 YW div 0.0001 add D13 exp def} {/FYYN1 D841_108 Y1 YW div mul D4_29 add def} ifelse Z1 ZW div D6_29 gt {/FZZN1 Z1 ZW div 0.0001 add D13 exp def} {/FZZN1 D841_108 Z1 ZW div mul D4_29 add def} ifelse /CIEL*1 116. FYYN1 mul 16. sub def /CIEa*1 500. FXXN1 FYYN1 sub mul def /CIEb*1 200. FYYN1 FZZN1 sub mul def /CIEC*ab1 CIEa*1 dup mul CIEb*1 dup mul add 0.0001 add sqrt def /CIEhab1 CIEb*1 CIEa*1 0.0001 add atan def %mixed terms with *0 sn *1: /d_CIEL* CIEL*1 CIEL*0 sub def /d_CIEa* CIEa*1 CIEa*0 sub def /d_CIEb* CIEb*1 CIEb*0 sub def d_CIELABi i d_CIEL* dup mul d_CIEa* dup mul add d_CIEb* dup mul add 0.00000001 add sqrt put /a_CIELAB 1.26 def /b_CIELAB 0.55 def d_CIELABmi i d_CIELABi i get b_CIELAB exp a_CIELAB mul put /d_CIEh CIEhab1 CIEhab0 sub def %see CIEDE2000 page 4 CIEC*ab1 CIEC*ab0 mul 0 eq {/d_CIEh 0 def} if %CIEC*ab1 x CIEC*ab0 =0 CIEC*ab1 CIEC*ab0 mul 0 ne d_CIEh 180 gt and {/d_CIEh d_CIEh 360 sub def} if CIEC*ab1 CIEC*ab0 mul 0 ne d_CIEh -180 lt and {/d_CIEh d_CIEh 360 add def} if /d_CIEL CIEL*1 CIEL*0 sub def /d_CIECab CIEC*ab1 CIEC*ab0 sub def /d_CIEHab CIEC*ab1 CIEC*ab0 mul 0.000001 add sqrt 2 mul d_CIEh 0.5 mul sin mul def d_CIELCHi i d_CIEL dup mul d_CIECab dup mul add d_CIEHab dup mul add 0.000001 add sqrt put %alternative: %for 2 an 10 degree observer, see Richter (1996) %a'=0,2191 b'=-0,08376 a'10=0,2193, b'10=-0,08417 %a'2 and a'10 used for both 12 and 190 degree observer %BEG LABD65_1976=C76 /S76L 1 def /S76A 1 def /S76B 1 def /K76L 1 def /K76A 1 def /K76B 1 def /AS2 0.2191 def /BS2 -0.08376 def %C76a'=AS2*(x/y)**(1/3) %C76b'=BS2*(z/y)**(1/3) %C76L*=L*CIE %C76a*=500*[C76a'-C76a'n]*Y**(1/3) %C76b*=500*[C76b'-C76b'n]*Y**(1/3) /C76a'0 X0 Y0 FL add div 0.3333 exp AS2 mul def /C76a'1 X1 Y1 FL add div 0.3333 exp AS2 mul def /C76a'n XW YW FL add div 0.3333 exp AS2 mul def /C76b'0 Z0 Y0 FL add div 0.3333 exp BS2 mul def /C76b'1 Z1 Y1 FL add div 0.3333 exp BS2 mul def /C76b'n ZW YW FL add div 0.3333 exp BS2 mul def /C76a*0 C76a'0 C76a'n sub 500 mul Y0 1 3 div exp mul def /C76a*1 C76a'1 C76a'n sub 500 mul Y1 1 3 div exp mul def /C76b*0 C76b'0 C76b'n sub 500 mul Y0 1 3 div exp mul def /C76b*1 C76b'1 C76b'n sub 500 mul Y1 1 3 div exp mul def %name d_CIELCHi instead of d_LABD65i 1976 d_CIELCHi i CIEL*1 CIEL*0 sub K76L div S76L div dup mul C76a*1 C76a*0 sub K76A div S76A div dup mul add C76b*1 C76b*0 sub K76B div S76B div dup mul add 0.00000001 add sqrt put %END LABD65_1976=C76 /a_CIELCH 1.26 def /b_CIELCH 0.55 def d_CIELCHmi i d_CIELCHi i get b_CIELCH exp a_CIELCH mul put %BEG CIELAB/CIELCH %BEG CIE94 /S94L 1 def /S94C 1 0.045 CIEC*ab0 mul add def /S94H 1 0.015 CIEC*ab0 mul add def /K94L 1 def /K94C 1 def /K94H 1 def /LC94*0 CIEL*0 K94L div S94L div def /LC94*1 CIEL*1 K94L div S94L div def /CC94*ab0 CIEC*ab0 K94C div S94C div def /CC94*ab1 CIEC*ab1 K94C div S94C div def d_C94LCHi i CIEL*1 CIEL*0 sub K94L div S94L div dup mul CIEC*ab1 CIEC*ab0 sub K94C div S94C div dup mul add d_CIEHab K94H div S94H div dup mul add 0.00000001 add sqrt put /a_C94LCH 1.41 def /b_C94LCH 0.70 def d_C94LCHmi i d_C94LCHi i get b_C94LCH exp a_C94LCH mul put %END CIE94 %BEG CMC(l:c=1:1) %special mean m of two samples for SCML, SCMC, TCMC /CIEL*0m CIEL*0 CIEL*1 add 0.5 mul def /CMCC0S CIEC*ab0 def /CMCC1S CIEC*ab1 def /CIEC*ab0m CMCC0S CMCC1S add 0.5 mul def CIEC*ab0 0 eq {/CMCh0S 0 def} {/CMCh0S CIEb*0 CIEa*0 0.0001 add atan def } ifelse CIEC*ab1 0 eq {/CMCh1S 0 def} {/CMCh1S CIEb*1 CIEa*1 0.0001 add atan def } ifelse %beg special EQUATION (11) TO (14) /d_CMChS0 CMCh1S CMCh0S sub def %see CIEDE2000 page 4 CMCC1S CMCC0S mul 0 eq {/d_CMChS 0 def} if %CIEC*ab1 x CIEC*ab0 =0 CMCC1S CMCC0S mul 0 ne d_CMChS0 abs 180 le and {/d_CMChSm d_CMChS0 def} if CMCC1S CMCC0S mul 0 ne d_CMChS0 180 gt and {/d_CMChSm d_CMChS0 360 sub def} if CMCC1S CMCC0S mul 0 ne d_CMChS0 -180 lt and {/d_CMChSm d_CMChS0 360 add def} if %end special EQUATION (11) TO (14) %beg special EQUATION (23) TO (26) /a_CMChsm CMCh0S CMCh1S add 0.5 mul def /m_CMCCSm CMCC0S CMCC1S mul def d_CMChSm abs 180 le m_CMCCSm 0 ne and {/CMChSqm a_CMChsm def} if d_CMChSm abs 180 gt a_CMChsm 360 le and m_CMCCSm 0 ne and {/CMChSqm CMCh0S CMCh1S add 360 add 0.5 mul def} if d_CMChSm abs 180 gt a_CMChsm 360 ge and m_CMCCSm 0 ne and {/CMChSqm CMCh0S CMCh1S add 360 sub 0.5 mul def} if m_CMCCSm 0 eq {/CMChSqm CMCh0S CMCh1S add def } if %end special EQUATION (23) TO (26) CIEL*0m 16 lt {/SCMLm 0.511 def} {/SCMLm 0.040975 CIEL*0m mul 0.01765 CIEL*0m mul 1 add div def } ifelse /SCMCm 0.0638 CIEC*ab0m mul 0.0131 CIEC*ab0m mul 1 add div 0.638 add def %beg special /FCMCm CIEC*ab0m dup mul dup mul CIEC*ab0m dup mul dup mul 1900 add div sqrt def CMChSqm 164 lt CMChSqm 345 gt or {/TCMCm CMChSqm 35 add cos 0.4 mul abs 0.36 add def} {/TCMCm CMChSqm 168 add cos 0.2 mul abs 0.56 add def} ifelse %end special /SCMHm TCMCm FCMCm mul 1 add FCMCm sub SCMCm mul def /KCML 1 def %=l /KCMC 1 def %=c /KCMH 1 def %1 /CMCL*0m CIEL*0 KCML div SCMLm div def /CMCL*1m CIEL*1 KCML div SCMLm div def /CMCC*ab0m CIEC*ab0 KCMC div SCMCm div def /CMCC*ab1m CIEC*ab1 KCMC div SCMCm div def d_CMCLCHi i CIEL*1 CIEL*0 sub KCML div SCMLm div dup mul CIEC*ab1 CIEC*ab0 sub KCMC div SCMCm div dup mul add d_CIEHab KCMH div SCMHm div dup mul add 0.00000001 add sqrt put /a_CMCLCH 1.34 def /b_CMCLCH 0.66 def d_CMCLCHmi i d_CMCLCHi i get b_CMCLCH exp a_CMCLCH mul put %END CMC(m:l:c=m:1:1)=CMC %BEG CM2(m:l:c=m:1:2)=CM2 /KM2L 1 def %=l /KM2C 2 def %=c /KM2H 1 def %1 /CM2L*0 CIEL*0 KM2L div SCMLm div def /CM2L*1 CIEL*1 KM2L div SCMLm div def /CM2C*ab0 CIEC*ab0 KM2C div SCMCm div def /CM2C*ab1 CIEC*ab1 KM2C div SCMCm div def d_CM2LCHi i CIEL*1 CIEL*0 sub KM2L div SCMLm div dup mul CIEC*ab1 CIEC*ab0 sub KM2C div SCMCm div dup mul add d_CIEHab KM2H div SCMHm div dup mul add 0.00000001 add sqrt put %END CM2(m:l:c=m:1:2)=CM2 %BEG CIEDE2000=C00 %beg special equation (7) /CIEC*ab CIEC*ab0 CIEC*ab1 add 0.5 mul def /DEG 1 CIEC*ab 7 exp CIEC*ab 7 exp 25 7 exp add div 0.000001 add sqrt sub 0.5 mul def %end special equation (7) %beg special EQUATION (1) TO (6) %0 /C00L0S CIEL*0 def /C00a0S 1 DEG add CIEa*0 mul def /C00b0S CIEb*0 def /C00C0S C00a0S dup mul C00b0S dup mul add 0.000001 add sqrt def C00C0S 0 eq {/C00h0S 0 def} {/C00h0S C00b0S C00a0S 0.0001 add atan def } ifelse %1 /C00L1S CIEL*1 def /C00a1S 1 DEG add CIEa*1 mul def /C00b1S CIEb*1 def /C00C1S C00a1S dup mul C00b1S dup mul add 0.000001 add sqrt def C00C1S 0 eq {/C00h1S 0 def} {/C00h1S C00b1S C00a1S 0.0001 add atan def } ifelse %end special EQUATION (1) TO (6) %beg special EQUATION (11) TO (14) /d_C00hS0 C00h1S C00h0S sub def %see CIEDE2000 page 4 C00C1S C00C0S mul 0 eq {/d_C00hS 0 def} if %CIEC*ab1 x CIEC*ab0 =0 C00C1S C00C0S mul 0 ne d_C00hS0 abs 180 le and {/d_C00hS d_C00hS0 def} if C00C1S C00C0S mul 0 ne d_C00hS0 180 gt and {/d_C00hS d_C00hS0 360 sub def} if C00C1S C00C0S mul 0 ne d_C00hS0 -180 lt and {/d_C00hS d_C00hS0 360 add def} if %end special EQUATION (11) TO (14) %beg special EQUATION (8) TO (10) /d_C00LS C00L1S C00L0S sub def /d_C00aS C00a1S C00a0S sub def /d_C00bS C00b1S C00b0S sub def /d_C00CS C00C1S C00C0S sub def /d_C00HS C00C0S C00C1S mul 0.000001 add sqrt 2 mul d_C00hS 0.5 mul sin mul def %end special EQUATION (8) TO (10) %beg special EQUATION (23) TO (26) /a_C00hs C00h0S C00h1S add 0.5 mul def /m_C00CS C00C0S C00C1S mul def d_C00hS abs 180 le m_C00CS 0 ne and {/C00hSq a_C00hs def} if d_C00hS abs 180 gt a_C00hs 360 le and m_C00CS 0 ne and {/C00hSq C00h0S C00h1S add 360 add 0.5 mul def} if d_C00hS abs 180 gt a_C00hs 360 ge and m_C00CS 0 ne and {/C00hSq C00h0S C00h1S add 360 sub 0.5 mul def} if m_C00CS 0 eq {/C00hSq C00h0S C00h1S add def } if %end special EQUATION (23) TO (26) %beg special EQUATIONS (16) TO (22) /C00LSq C00L0S C00L1S add 0.5 mul def /C00CSq C00C0S C00C1S add 0.5 mul def /C00SL C00LSq 50 sub dup mul 0.015 mul C00LSq 50 sub dup mul 20 add sqrt div 1 add def /C00SC 0.045 C00CSq mul 1 add def %beg special T, RT, d_D, RC /C00T C00hSq 30 sub cos -0.17 mul C00hSq 2 mul cos 0.24 mul add C00hSq 3 mul 6 add cos 0.32 mul add C00hSq 4 mul 63 sub cos 0.20 mul sub 1 add def /C00SH 0.015 C00CSq mul C00T mul 1 add def /C00RC C00CSq 7 exp C00CSq 7 exp 25 7 exp add 0.000001 add div 0.000001 add sqrt 2 mul def /expDT C00hSq 275 sub 25 div dup mul def /econst 2.718281 def /C00DT 30 econst expDT neg exp mul def /C00RT C00DT 2 mul sin neg C00RC mul def %end special T, RT, d_D, RC %end special EQUATIONS (16) TO (22) %beg special EQUATION (15) /C00KL 1.0 def /C00KC 1.0 def /C00KH 1.0 def /d_C00LSN d_C00LS C00KL div C00SL div def /d_C00CSN d_C00CS C00KC div C00SC div def /d_C00HSN d_C00HS C00KH div C00SH div def d_C00LCHi i d_C00LSN dup mul d_C00CSN dup mul add d_C00HSN dup mul add d_C00CSN d_C00HSN mul C00RT mul add 0.000001 add sqrt put /a_C00LCH 1.43 def /b_C00LCH 0.70 def d_C00LCHmi i d_C00LCHi i get b_C00LCH exp a_C00LCH mul put %end special EQUATION (15) %END CIEDE2000=C00 %BEG LABJND=C85 /Yq Y0 Y1 add 0.5 mul def /d_Y Y1 Y0 sub def /a085 X0 Y0 0.000001 add div def /b085 Z0 Y0 0.000001 add div 0.4 mul neg def /a185 X1 Y1 0.000001 add div def /b185 Z1 Y1 0.000001 add div 0.4 mul neg def /an85 XW YW 0.000001 add div def /bn85 ZW YW 0.000001 add div 0.4 mul neg def /d_a085 a085 an85 sub def /d_b085 b085 bn85 sub def /d_a185 a185 an85 sub def /d_b185 b185 bn85 sub def /a0"85 d_a085 d_a085 abs 0.5 mul 1 add div an85 add def /b0"85 d_b085 d_b085 abs 0.5 mul 1 add div bn85 add def /a1"85 d_a185 d_a185 abs 0.5 mul 1 add div an85 add def /b1"85 d_b185 d_b185 abs 0.5 mul 1 add div bn85 add def /d_Y Y1 Y0 sub def /d_a"85 a1"85 a0"85 sub def /d_b"85 b1"85 b0"85 sub def /s85 0.0170 def /q85 0.0058 def /g85 1.0000 def %not used /a0085 1.0 def /b0085 1.8 def /Y0085 1.5 def d_C85LCHi i d_Y dup mul a0085 d_a"85 mul Yq mul dup mul add b0085 d_b"85 mul Yq mul dup mul add 0.000001 add sqrt Y0085 mul q85 Yq mul s85 add div put /a_C85LCH 1.17 def /b_C85LCH 0.35 def d_C85LCHmi i d_C85LCHi i get b_C85LCH exp a_C85LCH mul put %END LABJND=C85 %BEG LABHNU_1977=C77 /S77L 1 def /S77A 1 def /S77B 1 def /K77L 1 def /K77A 1 def /K77B 1 def %C77a'=(x/y+1/6)**(1/3)/4 %C77b'=-(z/y+1/6)**(1/3)/12 %C77L*=L*CIE %C77a*=500*[C77a'-C77a'n]*Y**(1/3) %C77b*=500*[C77b'-C77b'n]*Y**(1/3) /C77a'0 X0 Y0 FL add div 1 6 div add 0.3333 exp 4 div def /C77a'1 X1 Y1 FL add div 1 6 div add 0.3333 exp 4 div def /C77a'n XW YW FL add div 1 6 div add 0.3333 exp 4 div def /C77b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def /C77b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def /C77b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def /C77a*0 C77a'0 C77a'n sub 500 mul Y0 1 3 div exp mul def /C77a*1 C77a'1 C77a'n sub 500 mul Y1 1 3 div exp mul def /C77b*0 C77b'0 C77b'n sub 500 mul Y0 1 3 div exp mul def /C77b*1 C77b'1 C77b'n sub 500 mul Y1 1 3 div exp mul def d_C77LCHi i CIEL*1 CIEL*0 sub K77L div S77L div dup mul C77a*1 C77a*0 sub K77A div S77A div dup mul add C77b*1 C77b*0 sub K77B div S77B div dup mul add 0.00000001 add sqrt put %END LABHNU_1977=C77 %BEG LABHNU1=C78 /S78L 1 def /S78A 1 def /S78B 1 def /K78L 1 def /K78A 1 def /K78B 1 def %C78a'=(x/y+1)/15 %C78b'=-(z/y+1/6)**(1/3)/12 %C78L*=L*CIE %C78a*=500*[C78a'-C78a'n]*Y**(1/3) %C78b*=500*[C78b'-C78b'n]*Y**(1/3) /C78a'0 X0 Y0 FL add div 1 add 15 div def /C78a'1 X1 Y1 FL add div 1 add 15 div def /C78a'n XW YW FL add div 1 add 15 div def /C78b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def /C78b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def /C78b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def /C78a*0 C78a'0 C78a'n sub 500 mul Y0 1 3 div exp mul def /C78a*1 C78a'1 C78a'n sub 500 mul Y0 1 3 div exp mul def /C78b*0 C78b'0 C78b'n sub 500 mul Y0 1 3 div exp mul def /C78b*1 C78b'1 C78b'n sub 500 mul Y0 1 3 div exp mul def d_C78LCHi i CIEL*1 CIEL*0 sub K78L div S78L div dup mul C78a*1 C78a*0 sub K78A div S78A div dup mul add C78b*1 C78b*0 sub K78B div S78B div dup mul add 0.00000001 add sqrt put %END LABHNU1_1978-C78 %BEG LABHNU2_1979=C79 /S79L 1 def /S79A 1 def /S79B 1 def /K79L 1 def /K79A 1 def /K79B 1 def %C79a'=(x/y+1/6)**(2/3)/15 %C79b'=-(z/y+1/6)**(1/3)/12 %C79L*=L*CIE %C79a*=500*[C79a'-C79a'n]*Y**(1/3) %C79b*=500*[C79b'-C79b'n]*Y**(1/3) /C79a'0 X0 Y0 FL add div 1 6 div add 0.6667 exp 15 div def /C79a'1 X1 Y1 FL add div 1 6 div add 0.6667 exp 15 div def /C79a'n XW YW FL add div 1 6 div add 0.6667 exp 15 div def /C79b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def /C79b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def /C79b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def /C79a*0 C79a'0 C79a'n sub 500 mul Y0 1 3 div exp mul def /C79a*1 C79a'1 C79a'n sub 500 mul Y1 1 3 div exp mul def /C79b*0 C79b'0 C79b'n sub 500 mul Y0 1 3 div exp mul def /C79b*1 C79b'1 C79b'n sub 500 mul Y1 1 3 div exp mul def d_C79LCHi i CIEL*1 CIEL*0 sub K79L div S79L div dup mul C79a*1 C79a*0 sub K79A div S79A div dup mul add C79b*1 C79b*0 sub K79B div S79B div dup mul add 0.00000001 add sqrt put %END LABHNU2_1979=C79 } bind def %END procedure proc_coldiff %%EndProlog gsave /lanind 0 def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind le {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind le {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind le {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /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 %see Kittelmann DWORK, page 9 /XWD6502 95.05 def /YWD6502 100.00 def /ZWD6502 108.90 def /XW XWD6502 def /YW YWD6502 def /ZW ZWD6502 def /FL 0.000001 def /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /CIEL*0i 310 array def /CIEa*0i 310 array def /CIEb*0i 310 array def /X0i 310 array def /Y0i 310 array def /Z0i 310 array def %calculate XYZ-values for 310 colours 0 1 309 {/i exch def %i=0,309 /i10 i 10 mul def CIEL*0i i LAB_KIi i10 1 add get put CIEa*0i i LAB_KIi i10 2 add get put CIEb*0i i LAB_KIi i10 3 add get put /X* {CIEL*0i i get 16 add 116 div CIEa*0i i get 500 div add} bind def /Y* {CIEL*0i i get 16 add 116 div} bind def /Z* {CIEL*0i i get 16 add 116 div CIEb*0i i get 200 div sub} bind def X0i i X* DecodeXYZ* XW mul put Y0i i Y* DecodeXYZ* YW mul put Z0i i Z* DecodeXYZ* ZW mul put } for %i=0,309 %************************************************************* /Wdata1 3500 array def %max 350x10 data /Wdata2 3500 array def /IM 056 def %(max IM=056; IM=46=without series C-V- and W-Wn-WN-Nw-N /IM0 113 def %(max IM=057)*2-1 = 057 X 2-1 %default data 0 1 IM0 {/i exch def %i=0,IM0 /i10 i 10 mul def 0 1 9 {/j exch def %j=0,9 Wdata1 i10 j add 1. put Wdata2 i10 j add 1. put } for %j=0,9 } for %i=0,IM0 /D57xSERi 2000 array def /xchart4 0 def %xchart4=0 and 1: calculation for WANG or VIK pair comparison data 0 1 IM {/ii exch def %ii=0,IM /i16 ii 16 mul def 0 1 15 {/j exch def %j=0,15 xchart4 0 eq {D57xSERi i16 j add D57SERWi i16 j add get put} if xchart4 1 eq {D57xSERi i16 j add D57SERVi i16 j add get put} if } for %j=0,15 } for %ii=0,IM /DV*1 200 array def /DV*2 200 array def /DVS1 200 array def /DVS2 200 array def %default data 0 1 IM {/ii exch def %ii=0,IM /i16 ii 16 mul def DV*1 ii 1. put %default DV*2 ii 1. put } for %ii=0,IM %for WANG and VIK 0 1 IM {/ii exch def %ii=0,IM /D57xSER12 D57xSERi i16 12 add get def /D57xSER13 D57xSERi i16 13 add get def DV*1 ii D57xSER12 put DV*2 ii D57xSER13 put xchart4 0 eq {%xchart4=0 %corection for WANG only D57xSER12 0 ne {%D57xSER12#0 DV*1 ii D57xSER12 42.62 div 1. 1.1322 div exp 10 mul put } if %D57xSER12#0 D57xSER13 0 ne {%D57xSER13#0 DV*2 ii D57xSER13 42.62 div 1. 1.1322 div exp 10 mul put } if %D57xSER13#0 } if %xchart4=0 %corection for WANG only } for %ii=0,IM /xchartl 3 def %0 1 5 {/xchartl exch def %xchartl=0,5 gsave 5 /Times-ISOL1 FS 215 85 moveto (XE390-6N) show 72 90 translate /ytit 550 def /yhoe 4000 def /yhoet yhoe ytit sub def /xwide 06000 def /ishow {-50 -100 rmoveto 200 /Times-ISOL1 FS show 0 100 rmoveto TM} bind def 0.01 MM 0.01 MM scale 15 setlinewidth 0.0 0.0 0.0 0.5 setcmykcolor 0 0 moveto xwide 0 rlineto 0 yhoet rlineto xwide neg 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmykcolor 0 0 moveto xwide 0 rlineto 0 yhoet rlineto xwide neg 0 rlineto closepath stroke /yt 300 def %y-Zeilenabstand for text /yd 400 def %y-Zeilenabstand for formula %Titeltext /xt1 0 def /yt1 300 def /S10 100 def /S11 800 def /S20 3250 def /S30 4000 def /Z10 2500 def /Z1C 2200 def /Z1V 1900 def /Z1M 1600 def /Z1O 1300 def /Z1Y 1000 def /Z1L 0700 def /Z1N 0400 def /Z1W 0100 def %HUE CIRCLE /xd 1550 def /yd 5000 def /xp 1550 def /yp 5000 def /xdN xd def /ydN yd 2000 sub def /xdW xd def /ydW yd def /xdR xd 2000 add def /ydR yd 1000 sub def /xm 600 def /xip xd xm 2 mul add def /yip ydN xm 2 mul add def /xi1 xd xm 1 mul sub def /yi1 ydW xm 0.5 mul sub def /xi2 xd xm 2 mul add def /yi2 ydN 400 sub def %************************************************************************* %constant hue planes /xt1 -1000 def /yt1 -2670 def xt1 yt1 translate /xpp xp 350 sub def 0 setgray xpp yp 0850 add moveto /xshift 3200 def TBIK (BAM) show TBK (\2555stufige Farbreihen gleichabst\344ndig in CIELAB) showde ( 5 step colour series equally spaced in CIELAB) showen TBS xpp yp 0600 add moveto xchart4 0 eq {%xchart4=0 (CIELAB Farbdifferenzen ) showde (CIELAB colour differences ) showen SS (D) show TBIS (E*) show TBV 0 -50 rmoveto (ab) show 0 50 rmoveto } if %xchart4=0 xchart4 1 eq {%xchart4=1 (visuelle Farbdifferenzen ) showde (visual colour differences ) showen SS (D) show TBIS (V*) show TBV 0 -50 rmoveto (Vik) show 0 50 rmoveto } if %xchart4=1 /xfact 2000 100 div def /yfact 2000 100 div def /yshift 0800 def /xpW xpp def /ypW yp 200 sub def /ym 0 def /ix -1 def /cwdif4 7 array def /cwdif2 7 array def /cwdif1 7 array def /cndif4 7 array def /cndif2 7 array def /cndif1 7 array def /cwdifx 7 array def /cndifx 7 array def /cwstd4 7 array def /cwstd2 7 array def /cwstd1 7 array def /cnstd4 7 array def /cnstd2 7 array def /cnstd1 7 array def /cwstdx 7 array def /cnstdx 7 array def /wName 7 array def /nName 7 array def /DLAB21ik 7 array def /DLAB32ik 7 array def /DV*1ik 7 array def /DV*2ik 7 array def /DVS1ik 7 array def /DVS2ik 7 array def %default 0 1 6 {/i exch def cwdif4 i 4 put cwdif2 i 2 put cwdif1 i 1 put cndif4 i 40 put cndif2 i 20 put cndif1 i 10 put wName i (W) put nName i (N) put } for /ik 0 def 0 1 6 {/ik exch def %ik=0,6 %7 series %025 W-Wc-CW 089-090-091 %031 CW-Cw-C 091-092-093 %037 C-Cn-CN 149-150-151 %043 CN-Nc-N 151-152-153 %001 W-CW-C 001-002-003 %007 C-CN-N 037-038-039 %013 W-C-N 209-210-211 ik 0 eq {/ii 025 1 sub def} if ik 1 eq {/ii 031 1 sub def} if ik 2 eq {/ii 037 1 sub def} if ik 3 eq {/ii 043 1 sub def} if ik 4 eq {/ii 001 1 sub def} if ik 5 eq {/ii 007 1 sub def} if ik 6 eq {/ii 013 1 sub def} if %6 series/figures /ii ii xchartl add def /i16 ii 16 mul def /S D57xSERi i16 1 add get def S 4 eq {%S=4 /DREL D57xSERi i16 13 add get def DV*1ik ik D57xSERi i16 12 add get DREL mul put DV*2ik ik D57xSERi i16 12 add get 1 DREL sub mul put } if %S=4 S 3 eq {%S=3 DV*1ik ik D57xSERi i16 12 add get put DV*2ik ik D57xSERi i16 13 add get put } if %S=3 %always standard deviation DVS1ik ik D57xSERi i16 10 add get put DVS2ik ik D57xSERi i16 11 add get put /N1 D57xSERi i16 2 add get 1 sub def %Nx-count STARTs at "1" /N2 D57xSERi i16 3 add get 1 sub def /N3 D57xSERi i16 4 add get 1 sub def ik 0 eq {wName 0 D57xSERi i16 7 add get put wName 1 D57xSERi i16 8 add get put wName 2 D57xSERi i16 9 add get put} if ik 1 eq {wName 3 D57xSERi i16 8 add get put wName 4 D57xSERi i16 9 add get put} if ik 2 eq {nName 0 D57xSERi i16 7 add get put nName 1 D57xSERi i16 8 add get put nName 2 D57xSERi i16 9 add get put} if ik 3 eq {nName 3 D57xSERi i16 8 add get put nName 4 D57xSERi i16 9 add get put} if /X10 X0i N1 get def /Y10 Y0i N1 get def /Z10 Z0i N1 get def /X20 X0i N2 get def /Y20 Y0i N2 get def /Z20 Z0i N2 get def /X30 X0i N3 get def /Y30 Y0i N3 get def /Z30 Z0i N3 get def 0 1 1 {/i exch def %i=0,1 i 0 eq {%i=0,1 /X0 X20 def /Y0 Y20 def /Z0 Z20 def /X1 X10 def /Y1 Y10 def /Z1 Z10 def } if %i=0 i 1 eq {%i=1 /X0 X20 def /Y0 Y20 def /Z0 Z20 def /X1 X30 def /Y1 Y30 def /Z1 Z30 def } if %i=1 proc_coldiff } for %i=0,1 DLAB21ik ik d_CIELABi 0 get put DLAB32ik ik d_CIELABi 1 get put %025 ik=0 W-Wc-CW 089-090-091 %031 ik=1 CW-Cw-C 091-092-093 %037 ik=2 C-Cn-CN 149-150-151 %043 ik=3 CN-Nc-N 151-152-153 %001 ik=4 W-CW-C 001-002-003 %007 ik=5 C-CN-N 037-038-039 %013 ik=6 W-C-N 209-210-211 %/ioutk 1 def %ioutk 0 eq {%ioutk=0 xchart4 0 eq {%xchart4=0 ik 0 eq {cwdifx 0 DLAB21ik ik get put %W-Wc-CW cwdifx 1 DLAB32ik ik get put} if ik 1 eq {cwdifx 2 DLAB21ik ik get put %CW-Cw-C cwdifx 3 DLAB32ik ik get put} if ik 2 eq {cndifx 0 DLAB21ik ik get put %C-Cn-CN cndifx 1 DLAB32ik ik get put} if ik 3 eq {cndifx 2 DLAB21ik ik get put %CN-Nc-N cndifx 3 DLAB32ik ik get put} if ik 4 eq {cwdifx 4 DLAB21ik ik get put %W-CW-C cwdifx 5 DLAB32ik ik get put} if ik 5 eq {cndifx 4 DLAB21ik ik get put %C-CN-N cndifx 5 DLAB32ik ik get put} if ik 6 eq {cwdifx 6 DLAB21ik ik get put %W-C-N cndifx 6 DLAB32ik ik get put} if } if %xchart4=0 %} if %ioutk=0 %ioutk 1 eq {%ioutk=1 xchart4 1 eq {%xchart4=1 ik 0 eq {cwdifx 0 DV*1ik ik get put %W-Wc-CW cwdifx 1 DV*2ik ik get put} if ik 1 eq {cwdifx 2 DV*1ik ik get put %CW-Cw-C cwdifx 3 DV*2ik ik get put} if ik 2 eq {cndifx 0 DV*1ik ik get put %C-Cn-CN cndifx 1 DV*2ik ik get put} if ik 3 eq {cndifx 2 DV*1ik ik get put %CN-Nc-N cndifx 3 DV*2ik ik get put} if ik 4 eq {cwdifx 4 DV*1ik ik get put %W-CW-C cwdifx 5 DV*2ik ik get put} if ik 5 eq {cndifx 4 DV*1ik ik get put %C-CN-N cndifx 5 DV*2ik ik get put} if ik 6 eq {cwdifx 6 DV*1ik ik get put %W-C-N cndifx 6 DV*2ik ik get put} if ik 0 eq {cwstdx 0 DVS1ik ik get put %W-Wc-CW cwstdx 1 DVS2ik ik get put} if ik 1 eq {cwstdx 2 DVS1ik ik get put %CW-Cw-C cwstdx 3 DVS2ik ik get put} if ik 2 eq {cnstdx 0 DVS1ik ik get put %C-Cn-CN cnstdx 1 DVS2ik ik get put} if ik 3 eq {cnstdx 2 DVS1ik ik get put %CN-Nc-N cnstdx 3 DVS2ik ik get put} if ik 4 eq {cwstdx 4 DVS1ik ik get put %W-CW-C cwstdx 5 DVS2ik ik get put} if ik 5 eq {cnstdx 4 DVS1ik ik get put %C-CN-N cnstdx 5 DVS2ik ik get put} if ik 6 eq {cwstdx 6 DVS1ik ik get put %W-C-N cnstdx 6 DVS2ik ik get put} if } if %xchart4=1 %} if %ioutk=1 } for %ik=0,6 %7 series 0 1 3 {/ik exch def %ik=0,3 cwdif4 ik cwdifx ik get 0.49 add cvi put cndif4 ik cndifx ik get 0.49 add cvi put } for %ik=0,3 0 1 1 {/ik exch def %ik=0,1 cwdif2 ik cwdifx ik 4 add get 0.49 add cvi put cndif2 ik cndifx ik 4 add get 0.49 add cvi put } for %ik=0,1 cwdif1 0 cwdifx 6 get 0.49 add cvi put cndif1 0 cndifx 6 get 0.49 add cvi put xchart4 1 eq {%xchart4=1 0 1 3 {/ik exch def %ik=0,3 cwstd4 ik cwstdx ik get 0.49 add cvi put cnstd4 ik cnstdx ik get 0.49 add cvi put } for %ik=0,3 0 1 1 {/ik exch def %ik=0,1 cwstd2 ik cwstdx ik 4 add get 0.49 add cvi put cnstd2 ik cnstdx ik 4 add get 0.49 add cvi put } for %ik=0,1 cwstd1 0 cwstdx 6 get 0.49 add cvi put cnstd1 0 cnstdx 6 get 0.49 add cvi put } if %xchart4=1 %STOP5 newpath /k 0 def /j 0 def /i 0 def 0 1 2 {/k exch def %k=0,2 %three rows /ys yshift k mul def 0 1 1 {/j exch def %j=0,1 %left, right /xs xshift j mul def k 0 eq {TBS j 0 eq {%j=0 1 1 1 setrgbcolor xpp yp 0300 add moveto (helle Serie ) showde (light series ) showen wName 4 get show ( nach W) showde ( to W) showen } if %j=0 j 1 eq {%j=1 0 0 0 setrgbcolor xp 450 sub xshift add yp 0300 add moveto (dunkle Serie ) showde (dark series ) showen nName 0 get show ( nach N) showde ( to N) showen } if %j=1 } if %k=0 TS 0 0 0 setrgbcolor 0 1 4 {/i exch def %i=0,4 %five colours /xi xpW xm i mul add xs add def %NW /yi ypW ym i mul add ys sub def % xpW ypW moveto (START, i, wName) show % i cvishow % wName i get show k 0 eq {xi 100 sub yi 200 add moveto j 0 eq {wName 4 i sub get show} if j 1 eq {nName i get show} if newpath } if k 0 eq i 3 le and {xi 100 add yi 350 sub moveto j 0 eq {cwdif4 3 i sub get cvishow} if j 1 eq {cndif4 i get cvishow} if xchart4 1 eq {%xchart4=1 (\261) show %+/- j 0 eq {cwstd4 3 i sub get cvishow} if j 1 eq {cnstd4 i get cvishow} if } if %xchart4=1 newpath } if k 0 eq i 1 le and {xi 400 add i 500 mul add yi 1150 sub moveto j 0 eq {cwdif2 1 i sub get cvishow} if j 1 eq {cndif2 i get cvishow} if xchart4 1 eq {%xchart4=1 (\261) show %+/- j 0 eq {cwstd2 1 i sub get cvishow} if j 1 eq {cnstd2 i get cvishow} if } if %xchart4=1 newpath } if k 0 eq i 0 le and {xi 1000 add i 500 mul add yi 2000 sub moveto j 0 eq {cwdif1 0 get cvishow} if j 1 eq {cndif1 0 get cvishow} if xchart4 1 eq {%xchart4=1 (\261) show %+/- j 0 eq {cwstd1 0 get cvishow} if j 1 eq {cnstd1 0 get cvishow} if } if %xchart4=1 newpath } if i 0 eq i 4 eq or {0 0 0 setrgbcolor xi yi 140 0 360 arc fill } if j 0 eq {%j=0 /w i 4 div def xchartl 0 eq {w 1 1 setrgbcolor} if %C-W xchartl 1 eq {w w 1 setrgbcolor} if %V-W xchartl 2 eq {1 w 1 setrgbcolor} if %M-W xchartl 3 eq {1 w w setrgbcolor} if %O-W xchartl 4 eq {1 1 w setrgbcolor} if %Y-W xchartl 5 eq {w 1 w setrgbcolor} if %L-W } if %j=0 j 1 eq {%j=1 /w 1 i 4 div sub def xchartl 0 eq {0 w w setrgbcolor} if %C-N xchartl 1 eq {0 0 w setrgbcolor} if %V-N xchartl 2 eq {w 0 w setrgbcolor} if %M-N xchartl 3 eq {w 0 0 setrgbcolor} if %O-N xchartl 4 eq {w w 0 setrgbcolor} if %Y-N xchartl 5 eq {0 w 0 setrgbcolor} if %L-N } if %j=1 xi yi 070 0 360 arc fill i 0 eq i 4 eq or {0 0 0 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if k 0 eq {%k=0 i 1 ge i 3 le and {%k=0 and all i 0 0 0 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if %i=2 and k<2 } if %k=0 k 1 eq i 2 eq and {%k=1 and i=2 0 0 0 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if %k=1 and i=2 i 4 eq j 1 eq and {%i=4 and j=1 %cross in black N 1 1 1 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if %i=4 and j=1 } for %i=0,4 } for %j=0,1 } for %k=0,2 xt1 neg yt1 neg translate %************************************************************************* showpage grestore %} for %xchartl=0,5 %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF /xc1 16 def /yc1 12 def /xt 1 def xchart 1 eq {/xt 1 def} if 28 MM 03 MM sub 20 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 17 %line 399 %!PS-Adobe-3.0 EPSF-3.0 XE390-7N %%BoundingBox: 70 83 245 190 %START PDFDE011.EPS /pdfmark07 where {pop} {userdict /pdfmark07 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/SE25/) /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, colour vision) /Creator (klaus.richter@mac.com) /CreationDate (D:2016070112000) /ModDate (D:2016070112000) /DOCINFO pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /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 /TV {160 /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 /TIV {160 /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 /TBV {160 /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 /TBIV {160 /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 /SV {160 /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 %%EndProlog gsave /nshow {TS show} bind def /kshow {TIS show} bind def /bshow {TBS show} bind def /jshow {TBIS show} bind def /ibshown {TBS -50 -50 rmoveto show 0 50 rmoveto TBS} bind def /ibshow0 {TBS -00 -50 rmoveto show 0 50 rmoveto TBS} bind def /ishown {TS -50 -50 rmoveto show 0 50 rmoveto TS } bind def /ishow0 {TS -00 -50 rmoveto show 0 50 rmoveto TS } bind def %40% kleiner /ns4 {250 /Times-ISOL1 FS show TK} bind def /ks4 {250 /TimesI-ISOL1 FS show TK} bind def /bs4 {250 /TimesB-ISOL1 FS show TK} bind def /js4 {250 /TimesBI-ISOL1 FS show TK} bind def /ss4 {250 /Symbol FS show TK} bind def /is4 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /es4 {200 /Times-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ib4 {200 /TimesB-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /eb4 {200 /TimesB-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ip4 {200 /Times-ISOL1 FS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def %60% kleiner /ns6 {200 /Times-ISOL1 FS show TS} bind def /ks6 {200 /TimesI-ISOL1 FS show TS} bind def /bs6 {200 /TimesB-ISOL1 FS show TS} bind def /js6 {200 /TimesBI-ISOL1 FS show TS} bind def /ss6 {200 /Symbol FS show TS} bind def /is6 {160 /Times-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /es6 {160 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ib6 {160 /TimesB-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /eb6 {160 /TimesB-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ip6 {160 /Times-ISOL1 FS 24 24 rmoveto (\267) show 24 -24 rmoveto TS} bind /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show} def %************************************************************* %Aus Kittelmann_CD_DA/Daten der Ausertung/ %Farbwerte der Farbfelder und Reihen.xls/CIELAB_1 %siehe auch Dipl-Arbeit Seite 31 ff /LAB_KIi 3100 array def %310x10 /LAB_KIi [ %n L*r a*r b*r L*t a*t b*t E*r-t C*r h*r % L*r a*r b*r CIELAB data of 310 printel samples, see page 34 % 95.410 -0.980 4.760 ISO 15775 Papierweiss Tab. 2.2 1 94.806 -1.832 6.977 95.410 -0.980 4.760 2.450 7.213 104.710 2 76.937 -16.536 -18.248 77.015 -15.805 -18.995 1.048 24.626 227.818 3 59.410 -30.942 -42.455 58.620 -30.630 -42.750 0.899 52.534 233.915 4 94.807 -1.883 7.035 95.410 -0.980 4.760 2.520 7.282 104.985 5 76.919 -16.503 -18.327 77.015 -15.805 -18.995 0.971 24.663 227.998 6 59.468 -30.964 -42.431 58.620 -30.630 -42.750 0.966 52.528 233.880 7 94.796 -1.848 7.051 95.410 -0.980 4.760 2.526 7.289 104.684 8 60.143 15.422 -18.907 60.565 15.185 -19.800 1.016 24.399 309.204 9 27.166 31.237 -43.580 25.720 31.350 -44.360 1.646 53.619 305.632 10 94.811 -1.797 6.812 95.410 -0.980 4.760 2.288 7.045 104.775 11 60.039 15.614 -19.124 60.565 15.185 -19.800 0.958 24.689 309.231 12 27.145 31.257 -43.757 25.720 31.350 -44.360 1.550 53.774 305.539 13 94.813 -1.742 6.702 95.410 -0.980 4.760 2.170 6.925 104.573 14 71.354 37.382 -0.087 71.770 37.110 -1.020 1.057 37.382 359.867 15 48.299 74.762 -6.470 48.130 75.200 -6.800 0.573 75.042 355.054 16 94.862 -1.790 6.808 95.410 -0.980 4.760 2.269 7.039 104.734 17 71.430 37.531 -0.146 71.770 37.110 -1.020 1.028 37.531 359.777 18 48.348 75.034 -6.602 48.130 75.200 -6.800 0.338 75.324 354.972 19 94.829 -1.679 6.457 95.410 -0.980 4.760 1.925 6.672 104.576 20 71.895 30.271 30.198 71.675 32.165 28.415 2.611 42.758 44.931 21 48.389 65.379 52.900 47.940 65.310 52.070 0.946 84.100 38.977 22 94.841 -1.727 6.563 95.410 -0.980 4.760 2.033 6.787 104.743 23 71.834 30.282 30.495 71.675 32.165 28.415 2.810 42.976 45.200 24 48.373 65.160 52.576 47.940 65.310 52.070 0.683 83.726 38.899 25 94.856 -1.811 6.930 95.410 -0.980 4.760 2.389 7.163 104.645 26 91.995 -9.864 53.175 92.890 -6.070 50.465 4.747 54.082 100.509 27 88.831 -7.617 100.643 90.370 -11.160 96.170 5.910 100.931 94.328 28 94.840 -1.857 6.961 95.410 -0.980 4.760 2.437 7.204 104.938 29 91.969 -9.864 53.060 92.890 -6.070 50.465 4.688 53.969 100.532 30 88.822 -7.585 99.964 90.370 -11.160 96.170 5.438 100.251 94.339 31 94.843 -1.831 6.986 95.410 -0.980 4.760 2.450 7.223 104.689 32 72.670 -33.310 23.706 73.155 -31.970 20.735 3.296 40.885 144.561 33 52.763 -62.634 40.725 50.900 -62.960 36.710 4.438 74.710 146.968 34 94.844 -1.844 6.940 95.410 -0.980 4.760 2.413 7.181 104.883 35 72.659 -33.330 23.584 73.155 -31.970 20.735 3.195 40.830 144.717 36 52.751 -62.659 40.456 50.900 -62.960 36.710 4.189 74.585 147.152 37 59.858 -30.723 -42.299 58.620 -30.630 -42.750 1.321 52.279 234.008 38 39.512 -15.438 -20.098 38.315 -15.065 -21.605 1.960 25.343 232.471 39 20.439 0.604 1.879 18.010 0.500 -0.460 3.374 1.974 72.184 40 59.843 -30.628 -42.217 58.620 -30.630 -42.750 1.334 52.157 234.039 41 39.472 -15.216 -20.290 38.315 -15.065 -21.605 1.759 25.361 233.132 42 20.596 0.834 1.790 18.010 0.500 -0.460 3.444 1.975 65.031 43 28.050 31.224 -43.592 25.720 31.350 -44.360 2.457 53.621 305.613 44 24.428 16.573 -21.290 21.865 15.925 -22.410 2.871 26.980 307.898 45 20.775 1.062 1.849 18.010 0.500 -0.460 3.646 2.132 60.115 46 27.951 31.592 -43.586 25.720 31.350 -44.360 2.374 53.831 305.935 47 24.413 16.789 -21.558 21.865 15.925 -22.410 2.822 27.324 307.911 48 20.742 1.238 1.780 18.010 0.500 -0.460 3.609 2.168 55.193 49 47.685 75.265 -6.106 48.130 75.200 -6.800 0.827 75.513 355.362 50 34.058 36.976 -1.848 33.070 37.850 -3.630 2.217 37.022 357.138 51 19.828 0.759 1.618 18.010 0.500 -0.460 2.773 1.787 64.874 52 47.770 75.333 -6.073 48.130 75.200 -6.800 0.823 75.577 355.391 53 34.024 36.746 -1.841 33.070 37.850 -3.630 2.308 36.792 357.131 54 19.895 0.766 1.713 18.010 0.500 -0.460 2.889 1.877 65.917 55 48.084 65.391 53.701 47.940 65.310 52.070 1.639 84.616 39.394 56 33.902 32.769 28.182 32.975 32.905 25.805 2.555 43.221 40.696 57 20.096 0.689 1.832 18.010 0.500 -0.460 3.105 1.958 69.398 58 48.093 65.240 53.510 47.940 65.310 52.070 1.449 84.377 39.358 59 33.983 32.963 28.200 32.975 32.905 25.805 2.599 43.379 40.547 60 20.045 0.703 1.815 18.010 0.500 -0.460 3.059 1.946 68.836 61 88.969 -7.916 99.202 90.370 -11.160 96.170 4.656 99.517 94.562 62 54.202 -4.710 50.539 54.190 -5.330 47.855 2.755 50.758 95.324 63 20.513 1.218 2.043 18.010 0.500 -0.460 3.612 2.379 59.195 64 88.968 -7.927 98.732 90.370 -11.160 96.170 4.357 99.050 94.591 65 54.261 -4.648 50.299 54.190 -5.330 47.855 2.539 50.514 95.279 66 20.641 0.847 1.666 18.010 0.500 -0.460 3.401 1.869 63.062 67 53.549 -61.840 40.746 50.900 -62.960 36.710 4.956 74.057 146.619 68 35.886 -31.821 20.383 34.455 -31.230 18.125 2.738 37.790 147.359 69 20.920 1.315 2.010 18.010 0.500 -0.460 3.903 2.401 56.801 70 53.497 -62.212 40.195 50.900 -62.960 36.710 4.410 74.067 147.134 71 35.953 -31.500 20.084 34.455 -31.230 18.125 2.481 37.358 147.479 72 20.895 1.150 1.709 18.010 0.500 -0.460 3.667 2.059 56.060 73 94.784 -1.844 6.954 95.410 -0.980 4.760 2.440 7.194 104.855 74 57.474 -0.187 4.308 56.710 -0.240 2.150 2.290 4.312 92.481 75 19.853 0.660 2.057 18.010 0.500 -0.460 3.124 2.160 72.205 76 94.850 -1.803 6.917 95.410 -0.980 4.760 2.376 7.148 104.613 77 57.492 -0.158 4.396 56.710 -0.240 2.150 2.380 4.399 92.060 78 19.840 0.774 1.873 18.010 0.500 -0.460 2.978 2.026 67.556 79 94.712 -1.740 6.671 95.410 -0.980 4.760 2.171 6.894 104.624 80 75.767 -1.256 4.576 76.060 -0.610 3.455 1.327 4.745 105.346 81 57.770 -0.029 4.084 56.710 -0.240 2.150 2.215 4.084 90.406 82 38.879 0.418 3.397 37.360 0.130 0.845 2.983 3.422 82.988 83 20.500 0.760 1.906 18.010 0.500 -0.460 3.445 2.052 68.276 84 94.746 -1.749 6.752 95.410 -0.980 4.760 2.236 6.975 104.522 85 75.784 -1.036 4.321 76.060 -0.610 3.455 1.004 4.443 103.478 86 57.797 0.122 4.078 56.710 -0.240 2.150 2.243 4.080 88.280 87 38.909 0.429 3.229 37.360 0.130 0.845 2.859 3.258 82.432 88 20.404 0.745 1.681 18.010 0.500 -0.460 3.221 1.839 66.098 89 94.821 -1.758 6.747 95.410 -0.980 4.760 2.214 6.973 104.604 90 86.389 -9.074 -6.237 86.213 -8.393 -7.118 1.128 11.011 214.502 91 76.787 -16.568 -18.756 77.015 -15.805 -18.995 0.832 25.026 228.543 92 68.577 -23.637 -30.298 67.818 -23.218 -30.873 1.041 38.427 232.040 93 59.128 -30.875 -42.876 58.620 -30.630 -42.750 0.578 52.835 234.243 94 94.810 -1.748 6.756 95.410 -0.980 4.760 2.221 6.978 104.505 95 86.419 -8.953 -6.387 86.213 -8.393 -7.118 0.943 10.998 215.505 96 76.820 -16.491 -18.789 77.015 -15.805 -18.995 0.742 25.000 228.727 97 68.658 -23.582 -30.348 67.818 -23.218 -30.873 1.056 38.433 232.151 98 59.211 -30.905 -42.735 58.620 -30.630 -42.750 0.652 52.739 234.127 99 94.672 -1.678 6.502 95.410 -0.980 4.760 2.016 6.715 104.470 100 78.300 7.067 -7.013 77.988 7.103 -7.520 0.597 9.956 315.220 101 60.293 15.348 -19.582 60.565 15.185 -19.800 0.385 24.880 308.089 102 44.203 22.986 -31.712 43.143 23.268 -32.080 1.157 39.167 305.936 103 27.016 31.165 -43.974 25.720 31.350 -44.360 1.365 53.898 305.325 104 94.830 -1.783 6.928 95.410 -0.980 4.760 2.383 7.154 104.433 105 78.257 7.039 -7.270 77.988 7.103 -7.520 0.373 10.119 314.077 106 60.155 15.718 -20.231 60.565 15.185 -19.800 0.798 25.619 307.845 107 44.111 23.540 -32.017 43.143 23.268 -32.080 1.008 39.740 306.324 108 26.626 33.169 -44.169 25.720 31.350 -44.360 2.042 55.237 306.905 109 94.830 -1.701 6.558 95.410 -0.980 4.760 2.022 6.775 104.543 110 83.971 17.488 2.916 83.590 18.065 1.870 1.254 17.729 9.468 111 71.531 37.398 -0.616 71.770 37.110 -1.020 0.550 37.403 359.056 112 60.110 56.166 -3.810 59.950 56.155 -3.910 0.189 56.295 356.120 113 48.082 74.995 -6.574 48.130 75.200 -6.800 0.309 75.282 354.990 114 94.878 -1.729 6.630 95.410 -0.980 4.760 2.084 6.852 104.617 115 83.935 17.501 2.928 83.590 18.065 1.870 1.247 17.744 9.497 116 71.513 37.496 -0.695 71.770 37.110 -1.020 0.566 37.502 358.938 117 60.110 56.159 -3.719 59.950 56.155 -3.910 0.249 56.282 356.211 118 48.182 74.902 -6.412 48.130 75.200 -6.800 0.492 75.176 355.107 119 94.804 -1.818 7.199 95.410 -0.980 4.760 2.649 7.425 104.176 120 82.777 14.554 17.861 83.543 15.593 16.588 1.812 23.040 50.825 121 71.216 31.512 29.973 71.675 32.165 28.415 1.750 43.490 43.566 122 59.233 49.560 42.426 59.808 48.738 40.243 2.403 65.239 40.565 123 47.901 65.572 53.795 47.940 65.310 52.070 1.745 84.815 39.365 124 94.772 -1.833 6.825 95.410 -0.980 4.760 2.324 7.067 105.036 125 82.720 14.616 17.563 83.543 15.593 16.588 1.607 22.849 50.232 126 71.256 31.437 30.263 71.675 32.165 28.415 2.030 43.636 43.910 127 59.267 49.547 42.334 59.808 48.738 40.243 2.306 65.169 40.511 128 47.815 65.383 53.061 47.940 65.310 52.070 1.001 84.204 39.061 129 94.840 -1.780 6.905 95.410 -0.980 4.760 2.359 7.131 104.455 130 93.112 -6.364 28.580 94.150 -3.525 27.613 3.174 29.280 102.554 131 92.030 -9.686 51.982 92.890 -6.070 50.465 4.014 52.877 100.555 132 90.731 -10.442 77.889 91.630 -8.615 73.318 5.005 78.586 97.636 133 88.925 -7.755 98.630 90.370 -11.160 96.170 4.442 98.935 94.496 134 94.750 -1.706 6.774 95.410 -0.980 4.760 2.240 6.985 104.140 135 93.456 -6.983 29.551 94.150 -3.525 27.613 4.024 30.365 103.295 136 91.762 -9.588 54.588 92.890 -6.070 50.465 5.536 55.424 99.962 137 90.523 -9.923 78.975 91.630 -8.615 73.318 5.912 79.596 97.161 138 88.450 -7.383 99.721 90.370 -11.160 96.170 5.528 99.994 94.234 139 94.774 -1.701 6.618 95.410 -0.980 4.760 2.092 6.833 104.419 140 84.620 -17.161 14.272 84.283 -16.475 12.748 1.706 22.320 140.250 141 72.841 -32.934 22.138 73.155 -31.970 20.735 1.731 39.683 146.092 142 63.629 -47.768 31.268 62.028 -47.465 28.723 3.022 57.091 146.792 143 53.074 -62.749 39.986 50.900 -62.960 36.710 3.938 74.407 147.493 144 94.824 -1.732 6.644 95.410 -0.980 4.760 2.111 6.866 104.611 145 84.610 -17.132 14.251 84.283 -16.475 12.748 1.673 22.284 140.245 146 72.795 -32.837 21.866 73.155 -31.970 20.735 1.470 39.451 146.341 147 63.609 -47.604 30.857 62.028 -47.465 28.723 2.660 56.730 147.049 148 53.068 -62.538 39.758 50.900 -62.960 36.710 3.764 74.106 147.554 149 59.304 -30.836 -42.453 58.620 -30.630 -42.750 0.774 52.471 234.007 150 48.835 -23.073 -32.162 48.468 -22.848 -32.178 0.431 39.582 234.345 151 38.544 -15.514 -20.880 38.315 -15.065 -21.605 0.883 26.012 233.387 152 28.577 -8.727 -9.949 28.163 -7.283 -11.033 1.853 13.234 228.743 153 19.400 0.578 1.071 18.010 0.500 -0.460 2.069 1.217 61.645 154 59.283 -30.812 -42.644 58.620 -30.630 -42.750 0.696 52.611 234.150 155 49.013 -23.128 -32.035 48.468 -22.848 -32.178 0.630 39.512 234.172 156 38.632 -15.429 -21.396 38.315 -15.065 -21.605 0.526 26.379 234.205 157 28.626 -9.032 -10.165 28.163 -7.283 -11.033 2.007 13.598 228.377 158 19.526 0.414 1.083 18.010 0.500 -0.460 2.165 1.159 69.068 159 26.747 31.469 -43.910 25.720 31.350 -44.360 1.128 54.022 305.628 160 25.010 24.152 -33.934 23.793 23.638 -33.385 1.431 41.651 305.440 161 23.199 16.450 -22.261 21.865 15.925 -22.410 1.441 27.680 306.463 162 21.560 8.223 -9.882 19.938 8.213 -11.435 2.246 12.856 309.764 163 19.767 0.771 1.400 18.010 0.500 -0.460 2.573 1.598 61.142 164 26.466 33.265 -43.952 25.720 31.350 -44.360 2.096 55.121 307.121 165 24.531 25.256 -34.061 23.793 23.638 -33.385 1.903 42.403 306.557 166 22.532 17.348 -22.759 21.865 15.925 -22.410 1.610 28.617 307.317 167 21.297 9.116 -10.038 19.938 8.213 -11.435 2.148 13.559 312.243 168 20.241 1.362 2.421 18.010 0.500 -0.460 3.745 2.778 60.648 169 47.954 75.045 -6.124 48.130 75.200 -6.800 0.715 75.294 355.335 170 39.935 56.633 -5.204 40.600 56.525 -5.215 0.674 56.872 354.750 171 34.317 37.076 -2.591 33.070 37.850 -3.630 1.798 37.166 356.003 172 27.113 19.906 0.097 25.540 19.175 -2.045 2.756 19.906 0.279 173 20.282 0.865 1.650 18.010 0.500 -0.460 3.122 1.863 62.340 174 48.114 74.940 -6.437 48.130 75.200 -6.800 0.447 75.216 355.091 175 40.005 56.475 -5.385 40.600 56.525 -5.215 0.621 56.731 354.553 176 34.340 37.261 -2.923 33.070 37.850 -3.630 1.569 37.376 355.515 177 27.115 19.691 -0.318 25.540 19.175 -2.045 2.394 19.694 359.076 178 20.357 0.721 1.317 18.010 0.500 -0.460 2.952 1.501 61.306 179 47.885 65.560 53.596 47.940 65.310 52.070 1.548 84.680 39.267 180 40.159 49.175 39.907 40.458 49.108 38.938 1.017 63.331 39.061 181 33.458 32.557 27.471 32.975 32.905 25.805 1.770 42.598 40.158 182 26.575 18.004 15.031 25.493 16.703 12.673 2.904 23.454 39.858 183 19.509 0.349 1.149 18.010 0.500 -0.460 2.205 1.201 73.119 184 47.899 65.372 53.449 47.940 65.310 52.070 1.381 84.441 39.270 185 40.193 49.025 39.636 40.458 49.108 38.938 0.752 63.043 38.955 186 33.443 32.649 27.569 32.975 32.905 25.805 1.843 42.732 40.179 187 26.586 17.967 15.189 25.493 16.703 12.673 3.021 23.527 40.209 188 19.559 0.718 1.107 18.010 0.500 -0.460 2.214 1.319 57.028 189 88.855 -7.734 98.558 90.370 -11.160 96.170 4.442 98.861 94.487 190 72.418 -8.190 74.514 72.280 -8.245 72.013 2.506 74.962 96.272 191 53.856 -5.000 49.618 54.190 -5.330 47.855 1.824 49.869 95.755 192 37.368 -2.171 26.048 36.100 -2.415 23.698 2.682 26.138 94.764 193 19.741 0.588 1.403 18.010 0.500 -0.460 2.544 1.521 67.252 194 88.335 -7.243 99.966 90.370 -11.160 96.170 5.821 100.228 94.144 195 72.521 -8.080 74.951 72.280 -8.245 72.013 2.953 75.385 96.153 196 54.041 -4.892 50.769 54.190 -5.330 47.855 2.951 51.005 95.504 197 37.291 -2.102 27.349 36.100 -2.415 23.698 3.854 27.430 94.394 198 20.047 1.076 1.865 18.010 0.500 -0.460 3.144 2.153 60.022 199 52.992 -62.907 39.847 50.900 -62.960 36.710 3.771 74.466 147.649 200 44.029 -47.586 30.202 42.678 -47.095 27.418 3.134 56.361 147.598 201 35.211 -32.267 19.159 34.455 -31.230 18.125 1.648 37.526 149.301 202 26.980 -16.066 9.803 26.233 -15.365 8.833 1.411 18.821 148.611 203 20.466 0.704 1.621 18.010 0.500 -0.460 3.225 1.767 66.517 204 52.908 -62.721 39.980 50.900 -62.960 36.710 3.845 74.379 147.486 205 43.965 -47.550 30.261 42.678 -47.095 27.418 3.154 56.362 147.527 206 35.087 -31.927 19.339 34.455 -31.230 18.125 1.536 37.328 148.796 207 26.972 -15.836 9.697 26.233 -15.365 8.833 1.232 18.569 148.519 208 20.294 0.770 1.635 18.010 0.500 -0.460 3.111 1.808 64.791 209 94.809 -1.830 6.976 95.410 -0.980 4.760 2.449 7.212 104.699 210 58.984 -30.966 -42.837 58.620 -30.630 -42.750 0.503 52.858 234.137 211 19.349 0.469 1.318 18.010 0.500 -0.460 2.226 1.398 70.426 212 94.944 -1.846 7.105 95.410 -0.980 4.760 2.543 7.341 104.567 213 58.971 -30.882 -42.895 58.620 -30.630 -42.750 0.456 52.855 234.248 214 19.176 0.272 0.555 18.010 0.500 -0.460 1.563 0.618 63.872 215 94.790 -1.802 6.934 95.410 -0.980 4.760 2.405 7.164 104.566 216 26.440 31.213 -44.153 25.720 31.350 -44.360 0.762 54.072 305.257 217 19.441 0.489 1.328 18.010 0.500 -0.460 2.290 1.415 69.769 218 94.798 -1.798 6.914 95.410 -0.980 4.760 2.385 7.145 104.579 219 26.313 31.108 -44.083 25.720 31.350 -44.360 0.697 53.954 305.210 220 19.377 0.342 0.924 18.010 0.500 -0.460 1.951 0.985 69.704 221 94.819 -1.802 6.895 95.410 -0.980 4.760 2.363 7.127 104.645 222 47.850 74.956 -6.176 48.130 75.200 -6.800 0.726 75.210 355.289 223 19.840 0.541 1.276 18.010 0.500 -0.460 2.523 1.386 67.045 224 94.770 -1.747 6.714 95.410 -0.980 4.760 2.194 6.937 104.589 225 47.821 75.208 -5.965 48.130 75.200 -6.800 0.890 75.444 355.465 226 19.694 0.611 1.037 18.010 0.500 -0.460 2.255 1.203 59.503 227 94.825 -1.776 6.746 95.410 -0.980 4.760 2.218 6.976 104.750 228 48.028 65.260 53.084 47.940 65.310 52.070 1.019 84.124 39.126 229 19.876 0.685 0.983 18.010 0.500 -0.460 2.366 1.198 55.119 230 94.757 -1.745 6.631 95.410 -0.980 4.760 2.124 6.857 104.740 231 48.025 65.348 52.692 47.940 65.310 52.070 0.629 83.945 38.880 232 19.948 0.440 0.952 18.010 0.500 -0.460 2.398 1.049 65.224 233 94.873 -1.904 7.232 95.410 -0.980 4.760 2.693 7.478 104.749 234 88.844 -7.513 99.977 90.370 -11.160 96.170 5.488 100.259 94.298 235 19.166 0.454 1.197 18.010 0.500 -0.460 2.021 1.280 69.252 236 94.774 -1.875 7.051 95.410 -0.980 4.760 2.540 7.296 104.892 237 88.796 -7.519 99.400 90.370 -11.160 96.170 5.115 99.684 94.326 238 19.338 0.352 0.841 18.010 0.500 -0.460 1.865 0.912 67.297 239 94.804 -1.889 7.199 95.410 -0.980 4.760 2.672 7.443 104.699 240 52.200 -63.279 39.813 50.900 -62.960 36.710 3.380 74.762 147.823 241 19.336 0.468 1.313 18.010 0.500 -0.460 2.214 1.394 70.403 242 94.841 -1.856 7.078 95.410 -0.980 4.760 2.542 7.317 104.693 243 52.201 -63.318 39.205 50.900 -62.960 36.710 2.837 74.473 148.235 244 19.327 0.532 0.810 18.010 0.500 -0.460 1.830 0.969 56.705 245 59.110 -30.725 -42.847 58.620 -30.630 -42.750 0.508 52.725 234.357 246 26.841 31.207 -43.931 25.720 31.350 -44.360 1.209 53.887 305.389 247 47.998 74.766 -5.917 48.130 75.200 -6.800 0.993 74.999 355.475 248 59.180 -30.727 -42.860 58.620 -30.630 -42.750 0.579 52.736 234.363 249 26.918 30.963 -43.680 25.720 31.350 -44.360 1.431 53.541 305.332 250 47.960 74.748 -5.974 48.130 75.200 -6.800 0.957 74.987 355.431 251 47.932 74.957 -6.193 48.130 75.200 -6.800 0.683 75.213 355.277 252 47.999 65.290 53.196 47.940 65.310 52.070 1.127 84.217 39.172 253 88.840 -7.715 98.748 90.370 -11.160 96.170 4.567 99.049 94.467 254 47.938 74.793 -6.065 48.130 75.200 -6.800 0.862 75.039 355.364 255 47.995 65.199 52.614 47.940 65.310 52.070 0.558 83.781 38.902 256 88.992 -7.768 98.150 90.370 -11.160 96.170 4.162 98.457 94.525 257 88.806 -7.564 99.378 90.370 -11.160 96.170 5.066 99.666 94.353 258 52.054 -63.456 39.583 50.900 -62.960 36.710 3.136 74.790 148.045 259 58.953 -30.907 -42.839 58.620 -30.630 -42.750 0.442 52.824 234.190 260 88.799 -7.554 99.130 90.370 -11.160 96.170 4.923 99.418 94.358 261 52.114 -63.302 39.247 50.900 -62.960 36.710 2.833 74.482 148.202 262 59.070 -30.873 -42.721 58.620 -30.630 -42.750 0.513 52.709 234.145 263 26.607 31.110 -43.675 25.720 31.350 -44.360 1.146 53.622 305.462 264 58.916 -30.902 -42.852 58.620 -30.630 -42.750 0.414 52.832 234.204 265 52.088 -63.025 39.540 50.900 -62.960 36.710 3.070 74.401 147.897 266 26.722 30.906 -43.822 25.720 31.350 -44.360 1.220 53.624 305.194 267 59.121 -30.882 -42.788 58.620 -30.630 -42.750 0.562 52.769 234.181 268 52.256 -63.141 39.105 50.900 -62.960 36.710 2.758 74.269 148.229 269 52.510 -62.813 39.840 50.900 -62.960 36.710 3.523 74.382 147.615 270 88.821 -7.677 99.211 90.370 -11.160 96.170 4.876 99.507 94.425 271 47.854 65.422 53.179 47.940 65.310 52.070 1.118 84.309 39.106 272 52.472 -62.907 39.443 50.900 -62.960 36.710 3.153 74.250 147.912 273 88.911 -7.687 98.611 90.370 -11.160 96.170 4.488 98.910 94.458 274 48.184 65.048 53.192 47.940 65.310 52.070 1.177 84.027 39.274 275 47.989 65.268 53.085 47.940 65.310 52.070 1.017 84.130 39.122 276 47.951 74.898 -5.916 48.130 75.200 -6.800 0.951 75.131 355.484 277 26.916 31.080 -43.714 25.720 31.350 -44.360 1.386 53.637 305.412 278 48.097 65.075 52.962 47.940 65.310 52.070 0.936 83.903 39.141 279 47.899 75.065 -6.424 48.130 75.200 -6.800 0.461 75.339 355.109 280 26.923 31.161 -44.194 25.720 31.350 -44.360 1.229 54.075 305.188 281 59.056 -30.846 -42.596 58.620 -30.630 -42.750 0.510 52.592 234.090 282 42.393 -0.024 -43.358 42.170 0.360 -43.555 0.485 43.358 269.969 283 26.201 31.341 -43.878 25.720 31.350 -44.360 0.681 53.922 305.538 284 35.879 52.754 -25.625 36.925 53.275 -25.580 1.170 58.649 334.092 285 47.697 75.104 -5.768 48.130 75.200 -6.800 1.123 75.325 355.608 286 59.077 -30.803 -42.830 58.620 -30.630 -42.750 0.495 52.757 234.277 287 42.530 0.124 -43.449 42.170 0.360 -43.555 0.443 43.449 270.163 288 26.456 31.114 -43.949 25.720 31.350 -44.360 0.875 53.848 305.297 289 36.149 53.085 -25.997 36.925 53.275 -25.580 0.901 59.109 333.908 290 47.813 74.760 -5.930 48.130 75.200 -6.800 1.026 74.995 355.465 291 47.681 75.057 -5.678 48.130 75.200 -6.800 1.217 75.271 355.674 292 48.009 70.346 23.542 48.035 70.255 22.635 0.912 74.181 18.503 293 47.948 65.385 53.204 47.940 65.310 52.070 1.137 84.297 39.135 294 69.043 27.507 75.803 69.155 27.075 74.120 1.742 80.640 70.055 295 88.877 -7.732 98.861 90.370 -11.160 96.170 4.607 99.162 94.472 296 47.708 75.078 -5.934 48.130 75.200 -6.800 0.971 75.312 355.481 297 48.137 70.269 23.468 48.035 70.255 22.635 0.839 74.085 18.468 298 47.993 65.415 53.124 47.940 65.310 52.070 1.060 84.269 39.080 299 69.008 27.609 75.411 69.155 27.075 74.120 1.405 80.306 69.892 300 88.950 -7.638 98.601 90.370 -11.160 96.170 4.509 98.897 94.429 301 88.888 -7.777 98.464 90.370 -11.160 96.170 4.348 98.770 94.516 302 69.977 -37.776 67.450 70.635 -37.060 66.440 1.402 77.308 119.251 303 52.753 -62.962 39.380 50.900 -62.960 36.710 3.250 74.263 147.976 304 56.064 -46.601 -2.263 54.760 -46.795 -3.020 1.520 46.656 182.780 305 59.454 -30.783 -42.623 58.620 -30.630 -42.750 0.858 52.577 234.163 306 88.698 -7.654 98.411 90.370 -11.160 96.170 4.484 98.708 94.447 307 69.890 -37.662 67.446 70.635 -37.060 66.440 1.389 77.249 119.179 308 52.671 -62.821 38.863 50.900 -62.960 36.710 2.791 73.870 148.258 309 55.892 -46.803 -2.516 54.760 -46.795 -3.020 1.239 46.871 183.077 310 59.528 -30.492 -42.511 58.620 -30.630 -42.750 0.949 52.316 234.349 ] def %LAB_KIi %************************************************************* /D57SERWi 2000 array def %max 57 series of 15 data (100x20) /D57SERWi [%BEG D57SERWi top data WANG_ELCD scaling data %0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %N S N1 N2 N3 N4 N5 NA1 NA2 NA3 NA4 NA5 DV*1i DV*2i WANG1 WANG2 %Serie 1, BAM test chart order 1:25 001 003 001 002 003 000 000 (W) (CW) (C) (0) (0) 26.45 26.39 (W03) (W04) 002 003 007 008 009 000 000 (W) (VW) (V) (0) (0) 29.54 41.95 (W13) (W14) 003 003 013 014 015 000 000 (W) (MW) (M) (0) (0) 31.00 32.74 (W23) (W24) 004 003 019 020 021 000 000 (W) (OW) (O) (0) (0) 28.01 37.64 (W33) (W34) 005 003 025 026 027 000 000 (W) (YW) (Y) (0) (0) 16.99 11.01 (W43) (W44) 006 003 031 032 033 000 000 (W) (LW) (L) (0) (0) 25.44 28.39 (W53) (W54) %Serie 2, BAM test chart order 1:25 007 003 037 038 039 000 000 (C) (CN) (N) (0) (0) 25.80 35.47 (W06) (W05) 008 003 043 044 045 000 000 (V) (VN) (N) (0) (0) 9.30 16.62 (W16) (W15) 009 003 049 050 051 000 000 (M) (MN) (N) (0) (0) 26.80 29.68 (W26) (W25) 010 003 055 056 057 000 000 (O) (ON) (N) (0) (0) 30.62 34.58 (W36) (W35) 011 003 061 062 063 000 000 (Y) (YN) (N) (0) (0) 29.85 41.77 (W46) (W45) 012 003 067 068 069 000 000 (L) (LN) (N) (0) (0) 18.79 35.12 (W56) (W55) %Serie 3, BAM test chart order 3:27 013 003 209 210 211 000 000 (W) (C) (N) (0) (0) 64.17 61.50 (W01) (W02) 014 003 215 216 217 000 000 (W) (V) (N) (0) (0) 67.03 32.91 (W11) (W12) 015 003 221 222 223 000 000 (W) (M) (N) (0) (0) 74.48 61.26 (W21) (W22) 016 003 227 228 229 000 000 (W) (O) (N) (0) (0) 71.77 67.21 (W31) (W32) 017 003 233 234 235 000 000 (W) (Y) (N) (0) (0) 37.26 86.10 (W41) (W42) 018 003 239 240 241 000 000 (W) (L) (N) (0) (0) 50.89 56.11 (W51) (W52) %Serie 4, BAM test chart order 3:27 019 003 245 246 247 000 000 (C) (V) (M) (0) (0) 41.67 45.01 (W09) (W19) 020 003 251 252 253 000 000 (M) (O) (Y) (0) (0) 28.41 72.32 (W29) (W39) 021 003 257 258 259 000 000 (Y) (L) (C) (0) (0) 64.80 40.72 (W49) (W59) 022 003 263 264 265 000 000 (V) (C) (L) (0) (0) 41.67 40.72 (W09) (W59) 023 003 269 270 271 000 000 (L) (Y) (O) (0) (0) 64.80 72.32 (W49) (W39) 024 003 275 276 277 000 000 (O) (M) (V) (0) (0) 28.41 45.01 (W29) (W19) %Serie 5, BAM test chart order 2:26 %values are missing 025 004 089 090 091 000 000 (W) (Wc) (CW) (0) (0) 26.45 0.00 (W03) (W00) 026 004 099 100 101 102 103 (W) (Wv) (VW) (0) (0) 29.54 0.00 (W13) (W00) 027 004 109 110 111 112 113 (W) (Wm) (MW) (0) (0) 31.00 0.00 (W23) (W00) 028 004 119 120 121 122 123 (W) (Wo) (OW) (0) (0) 28.01 0.00 (W33) (W00) 029 004 129 130 131 132 133 (W) (Wy) (YW) (0) (0) 16.99 0.00 (W43) (W00) 030 004 139 140 141 142 143 (W) (Wl) (LW) (0) (0) 25.44 0.00 (W53) (W00) %Serie 6, BAM test chart order 2:26 031 004 091 092 093 000 000 (CW) (Cw) (C) (0) (0) 26.39 0.00 (W04) (W00) 032 004 101 102 103 000 000 (VW) (Vw) (V) (0) (0) 41.95 0.00 (W14) (W00) 033 004 111 112 113 000 000 (MW) (Mw) (M) (0) (0) 32.74 0.00 (W24) (W00) 034 004 121 122 123 000 000 (OW) (Ow) (O) (0) (0) 37.64 0.00 (W34) (W00) 035 004 131 132 133 000 000 (YW) (Yw) (Y) (0) (0) 110.1 0.00 (W44) (W00) 036 004 141 142 143 000 000 (LW) (Lw) (L) (0) (0) 28.39 0.00 (W54) (W00) %Serie 7, BAM test chart order 2:26 037 004 149 150 151 000 000 (C) (Cn) (CN) (0) (0) 25.80 0.00 (W06) (W00) 038 004 159 160 161 000 000 (V) (Vn) (VN) (0) (0) 9.30 0.00 (W16) (W00) 039 004 169 170 171 000 000 (M) (Mn) (MN) (0) (0) 26.80 0.00 (W26) (W00) 040 004 179 180 181 000 000 (O) (On) (ON) (0) (0) 30.62 0.00 (W36) (W00) 041 004 189 190 191 000 000 (Y) (Yn) (YN) (0) (0) 29.85 0.00 (W46) (W00) 042 004 199 200 201 000 000 (L) (Ln) (LN) (0) (0) 18.79 0.00 (W56) (W00) %Serie 8, BAM test chart order 2:26 043 004 151 152 153 000 000 (CN) (Nc) (N) (0) (0) 61.50 0.00 (W02) (W00) 044 004 161 162 163 000 000 (VN) (Nv) (N) (0) (0) 32.91 0.00 (W12) (W00) 045 004 171 172 173 000 000 (MN) (Nm) (N) (0) (0) 61.26 0.00 (W22) (W00) 046 004 181 182 183 000 000 (ON) (No) (N) (0) (0) 67.21 0.00 (W32) (W00) 047 004 191 192 193 000 000 (YN) (Ny) (N) (0) (0) 86.10 0.00 (W42) (W00) 048 004 201 202 203 000 000 (LN) (Nl) (N) (0) (0) 56.11 0.00 (W52) (W00) %Serie 2N, BAM test chart order 1:25, 1 triplet 049 003 073 074 075 000 000 (W) (WN) (N) (0) (0) 10.00 9.00 (W61) (W62) %Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets 050 004 281 282 283 000 000 (C) (CV) (V) (0) (0) 41.67 0.00 (W09) (W00) 051 004 283 284 285 000 000 (V) (MV) (M) (0) (0) 45.01 0.00 (W19) (W00) 052 004 291 292 293 000 000 (M) (MO) (O) (0) (0) 28.41 0.00 (W29) (W00) 053 004 293 294 295 000 000 (O) (YO) (Y) (0) (0) 72.32 0.00 (W39) (W00) 054 004 301 302 303 000 000 (Y) (YL) (L) (0) (0) 64.80 0.00 (W49) (W00) 055 004 303 304 305 000 000 (L) (CL) (C) (0) (0) 40.72 0.00 (W59) (W00) %Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets 056 004 079 080 081 000 000 (W) (Wn) (WN) (0) (0) 10.00 0.00 (W61) (W00) 057 004 081 082 083 000 000 (WN) (Nw) (N) (0) (0) 9.00 0.00 (W62) (W00) ] def %END D57SERWi %************************************************************* /D57SERVia 2000 array def %max 57 series of 15 data (100x20) /D57SERVia [%BEG D57SERVia top data VIK_ELCD scaling data %0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %N S N1 N2 N3 N4 N5 NA1 NA2 NA3 NA4 NA5 DV*1i DV*2i VIK1 VIK2 %Serie 1, BAM test chart order 1:25 001 003 001 002 003 000 000 (W) (CW) (C) (0) (0) 25.24 39.23 (V01) (V02) 002 003 007 008 009 000 000 (W) (VW) (V) (0) (0) 33.11 46.66 (V03) (V04) 003 003 013 014 015 000 000 (W) (MW) (M) (0) (0) 30.92 45.35 (V05) (V06) 004 003 019 020 021 000 000 (W) (OW) (O) (0) (0) 26.55 46.66 (V07) (V08) 005 003 025 026 027 000 000 (W) (YW) (Y) (0) (0) 22.62 23.06 (V09) (V10) 006 003 031 032 033 000 000 (W) (LW) (L) (0) (0) 29.18 40.98 (V11) (V12) %Serie 2, BAM test chart order 1:25 007 003 037 038 039 000 000 (C) (CN) (N) (0) (0) 38.35 42.73 (V13) (V14) 008 003 043 044 045 000 000 (V) (VN) (N) (0) (0) 21.75 31.36 (V15) (V16) 009 003 049 050 051 000 000 (M) (MN) (N) (0) (0) 40.98 44.47 (V17) (V18) 010 003 055 056 057 000 000 (O) (ON) (N) (0) (0) 34.86 43.16 (V19) (V20) 011 003 061 062 063 000 000 (Y) (YN) (N) (0) (0) 35.73 47.97 (V21) (V22) 012 003 067 068 069 000 000 (L) (LN) (N) (0) (0) 36.17 42.29 (V23) (V24) %Serie 3, BAM test chart order 3:27 013 003 209 210 211 000 000 (W) (C) (N) (0) (0) 53.65 55.40 (V26) (V25) 014 003 215 216 217 000 000 (W) (V) (N) (0) (0) 65.02 29.61 (V28) (V27) 015 003 221 222 223 000 000 (W) (M) (N) (0) (0) 60.21 53.22 (V30) (V29) 016 003 227 228 229 000 000 (W) (O) (N) (0) (0) 58.46 48.84 (V32) (V31) 017 003 233 234 235 000 000 (W) (Y) (N) (0) (0) 37.38 61.52 (V34) (V33) 018 003 239 240 241 000 000 (W) (L) (N) (0) (0) 55.84 45.35 (V36) (V35) %Serie 4, BAM test chart order 3:27 019 003 245 246 247 000 000 (C) (V) (M) (0) (0) 44.47 42.29 (V37) (V38) 020 003 251 252 253 000 000 (M) (O) (Y) (0) (0) 22.62 47.97 (V40) (V39) 021 003 257 258 259 000 000 (Y) (L) (C) (0) (0) 46.22 31.36 (V41) (V42) 022 003 263 264 265 000 000 (V) (C) (L) (0) (0) 48.41 30.49 (V44) (V43) 023 003 269 270 271 000 000 (L) (Y) (O) (0) (0) 51.03 53.65 (V46) (V45) 024 003 275 276 277 000 000 (O) (M) (V) (0) (0) 23.49 48.84 (V47) (V48) %Serie 5, BAM test chart order 2:26 %dummy 26.00: values are missing 025 003 089 090 091 000 000 (W) (Wc) (CW) (0) (0) 25.24 26.00 (V01) (V00) 026 003 099 100 101 000 000 (W) (Wv) (VW) (0) (0) 33.11 26.00 (V03) (V00) 027 003 109 110 111 000 000 (W) (Wm) (MW) (0) (0) 30.92 26.00 (V05) (V00) 028 003 119 120 121 000 000 (W) (Wo) (OW) (0) (0) 26.55 26.00 (V07) (V00) 029 003 129 130 131 000 000 (W) (Wy) (YW) (0) (0) 22.62 26.00 (V09) (V00) 030 003 139 140 141 000 000 (W) (Wl) (LW) (0) (0) 29.18 26.00 (V11) (V00) %Serie 6, BAM test chart order 2:26 031 003 091 092 093 000 000 (CW) (Cw) (C) (0) (0) 22.62 27.87 (V62) (V61) 032 003 101 102 103 000 000 (VW) (Vw) (V) (0) (0) 26.99 33.98 (V64) (V63) 033 003 111 112 113 000 000 (MW) (Mw) (M) (0) (0) 28.30 35.73 (V66) (V65) 034 003 121 122 123 000 000 (OW) (Ow) (O) (0) (0) 24.37 33.98 (V68) (V67) 035 003 131 132 133 000 000 (YW) (Yw) (Y) (0) (0) 18.25 20.00 (V70) (V69) 036 003 141 142 143 000 000 (LW) (Lw) (L) (0) (0) 23.49 32.24 (V72) (V71) %Serie 7, BAM test chart order 2:26 037 003 149 150 151 000 000 (C) (Cn) (CN) (0) (0) 29.61 28.74 (V74) (V73) 038 003 159 160 161 000 000 (V) (Vn) (VN) (0) (0) 19.56 18.25 (V76) (V75) 039 003 169 170 171 000 000 (M) (Mn) (MN) (0) (0) 35.73 27.87 (V78) (V77) 040 003 179 180 181 000 000 (O) (On) (ON) (0) (0) 37.48 26.12 (V80) (V79) 041 003 189 190 191 000 000 (Y) (Yn) (YN) (0) (0) 38.35 30.49 (V82) (V81) 042 003 199 200 201 000 000 (L) (Ln) (LN) (0) (0) 33.11 26.99 (V84) (V83) %Serie 8, BAM test chart order 2:26 043 003 151 152 153 000 000 (CN) (Nc) (N) (0) (0) 37.48 26.12 (V86) (V85) 044 003 161 162 163 000 000 (VN) (Nv) (N) (0) (0) 20.43 18.25 (V88) (V87) 045 003 171 172 173 000 000 (MN) (Nm) (N) (0) (0) 34.86 28.30 (V90) (V89) 046 003 181 182 183 000 000 (ON) (No) (N) (0) (0) 33.98 27.87 (V92) (V91) 047 003 191 192 193 000 000 (YN) (Ny) (N) (0) (0) 39.67 34.86 (V94) (V93) 048 003 201 202 203 000 000 (LN) (Nl) (N) (0) (0) 32.24 26.12 (V96) (V95) %Serie 2N, BAM test chart order 1:25, 1 triplet 049 003 073 074 075 000 000 (W) (WN) (N) (0) (0) 40.10 36.61 (V97) (V98) %Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets 050 004 281 282 283 000 000 (C) (CV) (V) (0) (0) 44.47 0.00 (V37) (V00) 051 004 283 284 285 000 000 (V) (MV) (M) (0) (0) 42.29 0.00 (V38) (V00) 052 004 291 292 293 000 000 (M) (MO) (O) (0) (0) 22.62 0.00 (V40) (V00) 053 004 293 294 295 000 000 (O) (YO) (Y) (0) (0) 47.97 0.00 (V39) (V00) 054 004 301 302 303 000 000 (Y) (YL) (L) (0) (0) 46.22 0.00 (V41) (V00) 055 004 303 304 305 000 000 (L) (CL) (C) (0) (0) 31.36 0.00 (V42) (V00) %Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets 056 004 079 080 081 000 000 (W) (Wn) (WN) (0) (0) 40.10 0.00 (V97) (V00) 057 004 081 082 083 000 000 (WN) (Nw) (N) (0) (0) 36.61 0.00 (V98) (V00) ] def %END D57SERVia %************************************************************* /D57SERVi 2000 array def %max 57 series of 15 data (100x20) /D57SERVi [%BEG D57SERVi top data VIK_ELCD scaling data %0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %N S N1 N2 N3 N4 N5 NA1 NA2 NA3 NA4 NA5 DV*1i DV*2i VIK1 VIK2 %Serie 1, BAM test chart order 1:25 001 003 001 002 003 000 000 (W) (CW) (C) 6.06 7.92 25.24 39.23 (V01) (V02) 002 003 007 008 009 000 000 (W) (VW) (V) 3.03 7.44 33.11 46.66 (V03) (V04) 003 003 013 014 015 000 000 (W) (MW) (M) 4.15 7.21 30.92 45.35 (V05) (V06) 004 003 019 020 021 000 000 (W) (OW) (O) 6.27 5.35 26.55 46.66 (V07) (V08) 005 003 025 026 027 000 000 (W) (YW) (Y) 5.39 10.8 22.62 23.06 (V09) (V10) 006 003 031 032 033 000 000 (W) (LW) (L) 4.58 7.82 29.18 40.98 (V11) (V12) %Serie 2, BAM test chart order 1:25 007 003 037 038 039 000 000 (C) (CN) (N) 12.1 5.67 38.35 42.73 (V13) (V14) 008 003 043 044 045 000 000 (V) (VN) (N) 6.42 9.50 21.75 31.36 (V15) (V16) 009 003 049 050 051 000 000 (M) (MN) (N) 9.08 7.82 40.98 44.47 (V17) (V18) 010 003 055 056 057 000 000 (O) (ON) (N) 10.7 9.31 34.86 43.16 (V19) (V20) 011 003 061 062 063 000 000 (Y) (YN) (N) 10.0 6.88 35.73 47.97 (V21) (V22) 012 003 067 068 069 000 000 (L) (LN) (N) 9.87 10.7 36.17 42.29 (V23) (V24) %Serie 3, BAM test chart order 3:27 013 003 209 210 211 000 000 (W) (C) (N) 7.29 5.77 53.65 55.40 (V26) (V25) 014 003 215 216 217 000 000 (W) (V) (N) 6.27 11.1 65.02 29.61 (V28) (V27) 015 003 221 222 223 000 000 (W) (M) (N) 8.91 6.30 60.21 53.22 (V30) (V29) 016 003 227 228 229 000 000 (W) (O) (N) 8.56 9.81 58.46 48.84 (V32) (V31) 017 003 233 234 235 000 000 (W) (Y) (N) 17.1 8.41 37.38 61.52 (V34) (V33) 018 003 239 240 241 000 000 (W) (L) (N) 7.62 10.8 55.84 45.35 (V36) (V35) %Serie 4, BAM test chart order 3:27 019 003 245 246 247 000 000 (C) (V) (M) 11.2 13.7 44.47 42.29 (V37) (V38) 020 003 251 252 253 000 000 (M) (O) (Y) 6.30 11.1 22.62 47.97 (V40) (V39) 021 003 257 258 259 000 000 (Y) (L) (C) 10.3 8.29 46.22 31.36 (V41) (V42) 022 003 263 264 265 000 000 (V) (C) (L) 9.87 11.3 48.41 30.49 (V44) (V43) 023 003 269 270 271 000 000 (L) (Y) (O) 10.2 9.52 51.03 53.65 (V46) (V45) 024 003 275 276 277 000 000 (O) (M) (V) 10.6 11.3 23.49 48.84 (V47) (V48) %Serie 5, BAM test chart order 2:26 %dummy 26.00: values are missing 025 004 089 090 091 000 000 (W) (Wc) (CW) 6.06 6.06 25.24 0.481 (V01) (V00) 026 004 099 100 101 000 000 (W) (Wv) (VW) 7.44 7.44 33.11 0.497 (V03) (V00) 027 004 109 110 111 000 000 (W) (Wm) (MW) 4.15 4.15 30.92 0.492 (V05) (V00) 028 004 119 120 121 000 000 (W) (Wo) (OW) 6.27 6.27 26.55 0.493 (V07) (V00) 029 004 129 130 131 000 000 (W) (Wy) (YW) 5.39 5.39 22.62 0.358 (V09) (V00) 030 004 139 140 141 000 000 (W) (Wl) (LW) 4.58 4.58 29.18 0.492 (V11) (V00) %Serie 6, BAM test chart order 2:26 031 003 091 092 093 000 000 (CW) (Cw) (C) 6.30 12.2 22.62 27.87 (V62) (V61) 032 003 101 102 103 000 000 (VW) (Vw) (V) 7.21 11.3 26.99 33.98 (V64) (V63) 033 003 111 112 113 000 000 (MW) (Mw) (M) 8.76 10.0 28.30 35.73 (V66) (V65) 034 003 121 122 123 000 000 (OW) (Ow) (O) 7.31 10.8 24.37 33.98 (V68) (V67) 035 003 131 132 133 000 000 (YW) (Yw) (Y) 3.27 7.10 18.25 20.00 (V70) (V69) 036 003 141 142 143 000 000 (LW) (Lw) (L) 6.06 11.2 23.49 32.24 (V72) (V71) %Serie 7, BAM test chart order 2:26 037 003 149 150 151 000 000 (C) (Cn) (CN) 8.29 8.48 29.61 28.74 (V74) (V73) 038 003 159 160 161 000 000 (V) (Vn) (VN) 4.58 3.27 19.56 18.25 (V76) (V75) 039 003 169 170 171 000 000 (M) (Mn) (MN) 9.50 12.2 35.73 27.87 (V78) (V77) 040 003 179 180 181 000 000 (O) (On) (ON) 5.10 11.2 37.48 26.12 (V80) (V79) 041 003 189 190 191 000 000 (Y) (Yn) (YN) 12.1 8.65 38.35 30.49 (V82) (V81) 042 003 199 200 201 000 000 (L) (Ln) (LN) 10.3 10.3 33.11 26.99 (V84) (V83) %Serie 8, BAM test chart order 2:26 043 003 151 152 153 000 000 (CN) (Nc) (N) 7.62 9.08 37.48 26.12 (V86) (V85) 044 003 161 162 163 000 000 (VN) (Nv) (N) 6.69 3.27 20.43 18.25 (V88) (V87) 045 003 171 172 173 000 000 (MN) (Nm) (N) 9.08 6.27 34.86 28.30 (V90) (V89) 046 003 181 182 183 000 000 (ON) (No) (N) 9.73 9.73 33.98 27.87 (V92) (V91) 047 003 191 192 193 000 000 (YN) (Ny) (N) 6.74 12.6 39.67 34.86 (V94) (V93) 048 003 201 202 203 000 000 (LN) (Nl) (N) 10.2 9.08 32.24 26.12 (V96) (V95) %Serie 2N, BAM test chart order 1:25, 1 triplet 049 003 073 074 075 000 000 (W) (WN) (N) (0) (0) 40.10 36.61 (V97) (V98) %not used %Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets 050 004 281 282 283 000 000 (C) (CV) (V) (0) (0) 44.47 0.00 (V37) (V00) 051 004 283 284 285 000 000 (V) (MV) (M) (0) (0) 42.29 0.00 (V38) (V00) 052 004 291 292 293 000 000 (M) (MO) (O) (0) (0) 22.62 0.00 (V40) (V00) 053 004 293 294 295 000 000 (O) (YO) (Y) (0) (0) 47.97 0.00 (V39) (V00) 054 004 301 302 303 000 000 (Y) (YL) (L) (0) (0) 46.22 0.00 (V41) (V00) 055 004 303 304 305 000 000 (L) (CL) (C) (0) (0) 31.36 0.00 (V42) (V00) %Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets 056 004 079 080 081 000 000 (W) (Wn) (WN) (0) (0) 40.10 0.00 (V97) (V00) 057 004 081 082 083 000 000 (WN) (Nw) (N) (0) (0) 36.61 0.00 (V98) (V00) ] def %END D57SERVi /d_CIELABi 2800 array def /d_CIELCHi 2800 array def /d_C94LCHi 2800 array def /d_CMCLCHi 2800 array def /d_CM2LCHi 2800 array def /d_C00LCHi 2800 array def /d_C85LCHi 2800 array def /d_C77LCHi 2800 array def /d_C78LCHi 2800 array def /d_C79LCHi 2800 array def /d_CIELABmi 2800 array def /d_CIELCHmi 2800 array def /d_C94LCHmi 2800 array def /d_CMCLCHmi 2800 array def /d_CM2LCHmi 2800 array def /d_C00LCHmi 2800 array def /d_C85LCHmi 2800 array def /d_C77LCHmi 2800 array def /d_C78LCHmi 2800 array def /d_C79LCHmi 2800 array def /D13 1 3 div def /D841_108 841 108 div def /D4_29 4 29 div def /D6_29 6 29 div 3 exp def /proc_coldiff {%BEG procedure proc_coldiff proc_coldiff_WK58.PS 150529 %calculates CIE colour data and differences for 10 colour spaces %BEG CIELAB/CIELCH /FL 0.000001 def X0 XW div D6_29 gt {/FXXN0 X0 XW div 0.0001 add D13 exp def} {/FXXN0 D841_108 X0 XW div mul D4_29 add def} ifelse Y0 YW div D6_29 gt {/FYYN0 Y0 YW div 0.0001 add D13 exp def} {/FYYN0 D841_108 Y0 YW div mul D4_29 add def} ifelse Z0 ZW div D6_29 gt {/FZZN0 Z0 ZW div 0.0001 add D13 exp def} {/FZZN0 D841_108 Z0 ZW div mul D4_29 add def} ifelse /CIEL*0 116. FYYN0 mul 16. sub def /CIEa*0 500. FXXN0 FYYN0 sub mul def /CIEb*0 200. FYYN0 FZZN0 sub mul def /CIEC*ab0 CIEa*0 dup mul CIEb*0 dup mul add 0.0001 add sqrt def /CIEhab0 CIEb*0 CIEa*0 0.0001 add atan def X1 XW div D6_29 gt {/FXXN1 X1 XW div 0.0001 add D13 exp def} {/FXXN1 D841_108 X1 XW div mul D4_29 add def} ifelse Y1 YW div D6_29 gt {/FYYN1 Y1 YW div 0.0001 add D13 exp def} {/FYYN1 D841_108 Y1 YW div mul D4_29 add def} ifelse Z1 ZW div D6_29 gt {/FZZN1 Z1 ZW div 0.0001 add D13 exp def} {/FZZN1 D841_108 Z1 ZW div mul D4_29 add def} ifelse /CIEL*1 116. FYYN1 mul 16. sub def /CIEa*1 500. FXXN1 FYYN1 sub mul def /CIEb*1 200. FYYN1 FZZN1 sub mul def /CIEC*ab1 CIEa*1 dup mul CIEb*1 dup mul add 0.0001 add sqrt def /CIEhab1 CIEb*1 CIEa*1 0.0001 add atan def %mixed terms with *0 sn *1: /d_CIEL* CIEL*1 CIEL*0 sub def /d_CIEa* CIEa*1 CIEa*0 sub def /d_CIEb* CIEb*1 CIEb*0 sub def d_CIELABi i d_CIEL* dup mul d_CIEa* dup mul add d_CIEb* dup mul add 0.00000001 add sqrt put /a_CIELAB 1.26 def /b_CIELAB 0.55 def d_CIELABmi i d_CIELABi i get b_CIELAB exp a_CIELAB mul put /d_CIEh CIEhab1 CIEhab0 sub def %see CIEDE2000 page 4 CIEC*ab1 CIEC*ab0 mul 0 eq {/d_CIEh 0 def} if %CIEC*ab1 x CIEC*ab0 =0 CIEC*ab1 CIEC*ab0 mul 0 ne d_CIEh 180 gt and {/d_CIEh d_CIEh 360 sub def} if CIEC*ab1 CIEC*ab0 mul 0 ne d_CIEh -180 lt and {/d_CIEh d_CIEh 360 add def} if /d_CIEL CIEL*1 CIEL*0 sub def /d_CIECab CIEC*ab1 CIEC*ab0 sub def /d_CIEHab CIEC*ab1 CIEC*ab0 mul 0.000001 add sqrt 2 mul d_CIEh 0.5 mul sin mul def d_CIELCHi i d_CIEL dup mul d_CIECab dup mul add d_CIEHab dup mul add 0.000001 add sqrt put %alternative: %for 2 an 10 degree observer, see Richter (1996) %a'=0,2191 b'=-0,08376 a'10=0,2193, b'10=-0,08417 %a'2 and a'10 used for both 12 and 190 degree observer %BEG LABD65_1976=C76 /S76L 1 def /S76A 1 def /S76B 1 def /K76L 1 def /K76A 1 def /K76B 1 def /AS2 0.2191 def /BS2 -0.08376 def %C76a'=AS2*(x/y)**(1/3) %C76b'=BS2*(z/y)**(1/3) %C76L*=L*CIE %C76a*=500*[C76a'-C76a'n]*Y**(1/3) %C76b*=500*[C76b'-C76b'n]*Y**(1/3) /C76a'0 X0 Y0 FL add div 0.3333 exp AS2 mul def /C76a'1 X1 Y1 FL add div 0.3333 exp AS2 mul def /C76a'n XW YW FL add div 0.3333 exp AS2 mul def /C76b'0 Z0 Y0 FL add div 0.3333 exp BS2 mul def /C76b'1 Z1 Y1 FL add div 0.3333 exp BS2 mul def /C76b'n ZW YW FL add div 0.3333 exp BS2 mul def /C76a*0 C76a'0 C76a'n sub 500 mul Y0 1 3 div exp mul def /C76a*1 C76a'1 C76a'n sub 500 mul Y1 1 3 div exp mul def /C76b*0 C76b'0 C76b'n sub 500 mul Y0 1 3 div exp mul def /C76b*1 C76b'1 C76b'n sub 500 mul Y1 1 3 div exp mul def %name d_CIELCHi instead of d_LABD65i 1976 d_CIELCHi i CIEL*1 CIEL*0 sub K76L div S76L div dup mul C76a*1 C76a*0 sub K76A div S76A div dup mul add C76b*1 C76b*0 sub K76B div S76B div dup mul add 0.00000001 add sqrt put %END LABD65_1976=C76 /a_CIELCH 1.26 def /b_CIELCH 0.55 def d_CIELCHmi i d_CIELCHi i get b_CIELCH exp a_CIELCH mul put %BEG CIELAB/CIELCH %BEG CIE94 /S94L 1 def /S94C 1 0.045 CIEC*ab0 mul add def /S94H 1 0.015 CIEC*ab0 mul add def /K94L 1 def /K94C 1 def /K94H 1 def /LC94*0 CIEL*0 K94L div S94L div def /LC94*1 CIEL*1 K94L div S94L div def /CC94*ab0 CIEC*ab0 K94C div S94C div def /CC94*ab1 CIEC*ab1 K94C div S94C div def d_C94LCHi i CIEL*1 CIEL*0 sub K94L div S94L div dup mul CIEC*ab1 CIEC*ab0 sub K94C div S94C div dup mul add d_CIEHab K94H div S94H div dup mul add 0.00000001 add sqrt put /a_C94LCH 1.41 def /b_C94LCH 0.70 def d_C94LCHmi i d_C94LCHi i get b_C94LCH exp a_C94LCH mul put %END CIE94 %BEG CMC(l:c=1:1) %special mean m of two samples for SCML, SCMC, TCMC /CIEL*0m CIEL*0 CIEL*1 add 0.5 mul def /CMCC0S CIEC*ab0 def /CMCC1S CIEC*ab1 def /CIEC*ab0m CMCC0S CMCC1S add 0.5 mul def CIEC*ab0 0 eq {/CMCh0S 0 def} {/CMCh0S CIEb*0 CIEa*0 0.0001 add atan def } ifelse CIEC*ab1 0 eq {/CMCh1S 0 def} {/CMCh1S CIEb*1 CIEa*1 0.0001 add atan def } ifelse %beg special EQUATION (11) TO (14) /d_CMChS0 CMCh1S CMCh0S sub def %see CIEDE2000 page 4 CMCC1S CMCC0S mul 0 eq {/d_CMChS 0 def} if %CIEC*ab1 x CIEC*ab0 =0 CMCC1S CMCC0S mul 0 ne d_CMChS0 abs 180 le and {/d_CMChSm d_CMChS0 def} if CMCC1S CMCC0S mul 0 ne d_CMChS0 180 gt and {/d_CMChSm d_CMChS0 360 sub def} if CMCC1S CMCC0S mul 0 ne d_CMChS0 -180 lt and {/d_CMChSm d_CMChS0 360 add def} if %end special EQUATION (11) TO (14) %beg special EQUATION (23) TO (26) /a_CMChsm CMCh0S CMCh1S add 0.5 mul def /m_CMCCSm CMCC0S CMCC1S mul def d_CMChSm abs 180 le m_CMCCSm 0 ne and {/CMChSqm a_CMChsm def} if d_CMChSm abs 180 gt a_CMChsm 360 le and m_CMCCSm 0 ne and {/CMChSqm CMCh0S CMCh1S add 360 add 0.5 mul def} if d_CMChSm abs 180 gt a_CMChsm 360 ge and m_CMCCSm 0 ne and {/CMChSqm CMCh0S CMCh1S add 360 sub 0.5 mul def} if m_CMCCSm 0 eq {/CMChSqm CMCh0S CMCh1S add def } if %end special EQUATION (23) TO (26) CIEL*0m 16 lt {/SCMLm 0.511 def} {/SCMLm 0.040975 CIEL*0m mul 0.01765 CIEL*0m mul 1 add div def } ifelse /SCMCm 0.0638 CIEC*ab0m mul 0.0131 CIEC*ab0m mul 1 add div 0.638 add def %beg special /FCMCm CIEC*ab0m dup mul dup mul CIEC*ab0m dup mul dup mul 1900 add div sqrt def CMChSqm 164 lt CMChSqm 345 gt or {/TCMCm CMChSqm 35 add cos 0.4 mul abs 0.36 add def} {/TCMCm CMChSqm 168 add cos 0.2 mul abs 0.56 add def} ifelse %end special /SCMHm TCMCm FCMCm mul 1 add FCMCm sub SCMCm mul def /KCML 1 def %=l /KCMC 1 def %=c /KCMH 1 def %1 /CMCL*0m CIEL*0 KCML div SCMLm div def /CMCL*1m CIEL*1 KCML div SCMLm div def /CMCC*ab0m CIEC*ab0 KCMC div SCMCm div def /CMCC*ab1m CIEC*ab1 KCMC div SCMCm div def d_CMCLCHi i CIEL*1 CIEL*0 sub KCML div SCMLm div dup mul CIEC*ab1 CIEC*ab0 sub KCMC div SCMCm div dup mul add d_CIEHab KCMH div SCMHm div dup mul add 0.00000001 add sqrt put /a_CMCLCH 1.34 def /b_CMCLCH 0.66 def d_CMCLCHmi i d_CMCLCHi i get b_CMCLCH exp a_CMCLCH mul put %END CMC(m:l:c=m:1:1)=CMC %BEG CM2(m:l:c=m:1:2)=CM2 /KM2L 1 def %=l /KM2C 2 def %=c /KM2H 1 def %1 /CM2L*0 CIEL*0 KM2L div SCMLm div def /CM2L*1 CIEL*1 KM2L div SCMLm div def /CM2C*ab0 CIEC*ab0 KM2C div SCMCm div def /CM2C*ab1 CIEC*ab1 KM2C div SCMCm div def d_CM2LCHi i CIEL*1 CIEL*0 sub KM2L div SCMLm div dup mul CIEC*ab1 CIEC*ab0 sub KM2C div SCMCm div dup mul add d_CIEHab KM2H div SCMHm div dup mul add 0.00000001 add sqrt put %END CM2(m:l:c=m:1:2)=CM2 %BEG CIEDE2000=C00 %beg special equation (7) /CIEC*ab CIEC*ab0 CIEC*ab1 add 0.5 mul def /DEG 1 CIEC*ab 7 exp CIEC*ab 7 exp 25 7 exp add div 0.000001 add sqrt sub 0.5 mul def %end special equation (7) %beg special EQUATION (1) TO (6) %0 /C00L0S CIEL*0 def /C00a0S 1 DEG add CIEa*0 mul def /C00b0S CIEb*0 def /C00C0S C00a0S dup mul C00b0S dup mul add 0.000001 add sqrt def C00C0S 0 eq {/C00h0S 0 def} {/C00h0S C00b0S C00a0S 0.0001 add atan def } ifelse %1 /C00L1S CIEL*1 def /C00a1S 1 DEG add CIEa*1 mul def /C00b1S CIEb*1 def /C00C1S C00a1S dup mul C00b1S dup mul add 0.000001 add sqrt def C00C1S 0 eq {/C00h1S 0 def} {/C00h1S C00b1S C00a1S 0.0001 add atan def } ifelse %end special EQUATION (1) TO (6) %beg special EQUATION (11) TO (14) /d_C00hS0 C00h1S C00h0S sub def %see CIEDE2000 page 4 C00C1S C00C0S mul 0 eq {/d_C00hS 0 def} if %CIEC*ab1 x CIEC*ab0 =0 C00C1S C00C0S mul 0 ne d_C00hS0 abs 180 le and {/d_C00hS d_C00hS0 def} if C00C1S C00C0S mul 0 ne d_C00hS0 180 gt and {/d_C00hS d_C00hS0 360 sub def} if C00C1S C00C0S mul 0 ne d_C00hS0 -180 lt and {/d_C00hS d_C00hS0 360 add def} if %end special EQUATION (11) TO (14) %beg special EQUATION (8) TO (10) /d_C00LS C00L1S C00L0S sub def /d_C00aS C00a1S C00a0S sub def /d_C00bS C00b1S C00b0S sub def /d_C00CS C00C1S C00C0S sub def /d_C00HS C00C0S C00C1S mul 0.000001 add sqrt 2 mul d_C00hS 0.5 mul sin mul def %end special EQUATION (8) TO (10) %beg special EQUATION (23) TO (26) /a_C00hs C00h0S C00h1S add 0.5 mul def /m_C00CS C00C0S C00C1S mul def d_C00hS abs 180 le m_C00CS 0 ne and {/C00hSq a_C00hs def} if d_C00hS abs 180 gt a_C00hs 360 le and m_C00CS 0 ne and {/C00hSq C00h0S C00h1S add 360 add 0.5 mul def} if d_C00hS abs 180 gt a_C00hs 360 ge and m_C00CS 0 ne and {/C00hSq C00h0S C00h1S add 360 sub 0.5 mul def} if m_C00CS 0 eq {/C00hSq C00h0S C00h1S add def } if %end special EQUATION (23) TO (26) %beg special EQUATIONS (16) TO (22) /C00LSq C00L0S C00L1S add 0.5 mul def /C00CSq C00C0S C00C1S add 0.5 mul def /C00SL C00LSq 50 sub dup mul 0.015 mul C00LSq 50 sub dup mul 20 add sqrt div 1 add def /C00SC 0.045 C00CSq mul 1 add def %beg special T, RT, d_D, RC /C00T C00hSq 30 sub cos -0.17 mul C00hSq 2 mul cos 0.24 mul add C00hSq 3 mul 6 add cos 0.32 mul add C00hSq 4 mul 63 sub cos 0.20 mul sub 1 add def /C00SH 0.015 C00CSq mul C00T mul 1 add def /C00RC C00CSq 7 exp C00CSq 7 exp 25 7 exp add 0.000001 add div 0.000001 add sqrt 2 mul def /expDT C00hSq 275 sub 25 div dup mul def /econst 2.718281 def /C00DT 30 econst expDT neg exp mul def /C00RT C00DT 2 mul sin neg C00RC mul def %end special T, RT, d_D, RC %end special EQUATIONS (16) TO (22) %beg special EQUATION (15) /C00KL 1.0 def /C00KC 1.0 def /C00KH 1.0 def /d_C00LSN d_C00LS C00KL div C00SL div def /d_C00CSN d_C00CS C00KC div C00SC div def /d_C00HSN d_C00HS C00KH div C00SH div def d_C00LCHi i d_C00LSN dup mul d_C00CSN dup mul add d_C00HSN dup mul add d_C00CSN d_C00HSN mul C00RT mul add 0.000001 add sqrt put /a_C00LCH 1.43 def /b_C00LCH 0.70 def d_C00LCHmi i d_C00LCHi i get b_C00LCH exp a_C00LCH mul put %end special EQUATION (15) %END CIEDE2000=C00 %BEG LABJND=C85 /Yq Y0 Y1 add 0.5 mul def /d_Y Y1 Y0 sub def /a085 X0 Y0 0.000001 add div def /b085 Z0 Y0 0.000001 add div 0.4 mul neg def /a185 X1 Y1 0.000001 add div def /b185 Z1 Y1 0.000001 add div 0.4 mul neg def /an85 XW YW 0.000001 add div def /bn85 ZW YW 0.000001 add div 0.4 mul neg def /d_a085 a085 an85 sub def /d_b085 b085 bn85 sub def /d_a185 a185 an85 sub def /d_b185 b185 bn85 sub def /a0"85 d_a085 d_a085 abs 0.5 mul 1 add div an85 add def /b0"85 d_b085 d_b085 abs 0.5 mul 1 add div bn85 add def /a1"85 d_a185 d_a185 abs 0.5 mul 1 add div an85 add def /b1"85 d_b185 d_b185 abs 0.5 mul 1 add div bn85 add def /d_Y Y1 Y0 sub def /d_a"85 a1"85 a0"85 sub def /d_b"85 b1"85 b0"85 sub def /s85 0.0170 def /q85 0.0058 def /g85 1.0000 def %not used /a0085 1.0 def /b0085 1.8 def /Y0085 1.5 def d_C85LCHi i d_Y dup mul a0085 d_a"85 mul Yq mul dup mul add b0085 d_b"85 mul Yq mul dup mul add 0.000001 add sqrt Y0085 mul q85 Yq mul s85 add div put /a_C85LCH 1.17 def /b_C85LCH 0.35 def d_C85LCHmi i d_C85LCHi i get b_C85LCH exp a_C85LCH mul put %END LABJND=C85 %BEG LABHNU_1977=C77 /S77L 1 def /S77A 1 def /S77B 1 def /K77L 1 def /K77A 1 def /K77B 1 def %C77a'=(x/y+1/6)**(1/3)/4 %C77b'=-(z/y+1/6)**(1/3)/12 %C77L*=L*CIE %C77a*=500*[C77a'-C77a'n]*Y**(1/3) %C77b*=500*[C77b'-C77b'n]*Y**(1/3) /C77a'0 X0 Y0 FL add div 1 6 div add 0.3333 exp 4 div def /C77a'1 X1 Y1 FL add div 1 6 div add 0.3333 exp 4 div def /C77a'n XW YW FL add div 1 6 div add 0.3333 exp 4 div def /C77b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def /C77b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def /C77b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def /C77a*0 C77a'0 C77a'n sub 500 mul Y0 1 3 div exp mul def /C77a*1 C77a'1 C77a'n sub 500 mul Y1 1 3 div exp mul def /C77b*0 C77b'0 C77b'n sub 500 mul Y0 1 3 div exp mul def /C77b*1 C77b'1 C77b'n sub 500 mul Y1 1 3 div exp mul def d_C77LCHi i CIEL*1 CIEL*0 sub K77L div S77L div dup mul C77a*1 C77a*0 sub K77A div S77A div dup mul add C77b*1 C77b*0 sub K77B div S77B div dup mul add 0.00000001 add sqrt put %END LABHNU_1977=C77 %BEG LABHNU1=C78 /S78L 1 def /S78A 1 def /S78B 1 def /K78L 1 def /K78A 1 def /K78B 1 def %C78a'=(x/y+1)/15 %C78b'=-(z/y+1/6)**(1/3)/12 %C78L*=L*CIE %C78a*=500*[C78a'-C78a'n]*Y**(1/3) %C78b*=500*[C78b'-C78b'n]*Y**(1/3) /C78a'0 X0 Y0 FL add div 1 add 15 div def /C78a'1 X1 Y1 FL add div 1 add 15 div def /C78a'n XW YW FL add div 1 add 15 div def /C78b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def /C78b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def /C78b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def /C78a*0 C78a'0 C78a'n sub 500 mul Y0 1 3 div exp mul def /C78a*1 C78a'1 C78a'n sub 500 mul Y0 1 3 div exp mul def /C78b*0 C78b'0 C78b'n sub 500 mul Y0 1 3 div exp mul def /C78b*1 C78b'1 C78b'n sub 500 mul Y0 1 3 div exp mul def d_C78LCHi i CIEL*1 CIEL*0 sub K78L div S78L div dup mul C78a*1 C78a*0 sub K78A div S78A div dup mul add C78b*1 C78b*0 sub K78B div S78B div dup mul add 0.00000001 add sqrt put %END LABHNU1_1978-C78 %BEG LABHNU2_1979=C79 /S79L 1 def /S79A 1 def /S79B 1 def /K79L 1 def /K79A 1 def /K79B 1 def %C79a'=(x/y+1/6)**(2/3)/15 %C79b'=-(z/y+1/6)**(1/3)/12 %C79L*=L*CIE %C79a*=500*[C79a'-C79a'n]*Y**(1/3) %C79b*=500*[C79b'-C79b'n]*Y**(1/3) /C79a'0 X0 Y0 FL add div 1 6 div add 0.6667 exp 15 div def /C79a'1 X1 Y1 FL add div 1 6 div add 0.6667 exp 15 div def /C79a'n XW YW FL add div 1 6 div add 0.6667 exp 15 div def /C79b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def /C79b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def /C79b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def /C79a*0 C79a'0 C79a'n sub 500 mul Y0 1 3 div exp mul def /C79a*1 C79a'1 C79a'n sub 500 mul Y1 1 3 div exp mul def /C79b*0 C79b'0 C79b'n sub 500 mul Y0 1 3 div exp mul def /C79b*1 C79b'1 C79b'n sub 500 mul Y1 1 3 div exp mul def d_C79LCHi i CIEL*1 CIEL*0 sub K79L div S79L div dup mul C79a*1 C79a*0 sub K79A div S79A div dup mul add C79b*1 C79b*0 sub K79B div S79B div dup mul add 0.00000001 add sqrt put %END LABHNU2_1979=C79 } bind def %END procedure proc_coldiff %%EndProlog gsave /lanind 0 def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind le {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind le {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind le {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /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 %see Kittelmann DWORK, page 9 /XWD6502 95.05 def /YWD6502 100.00 def /ZWD6502 108.90 def /XW XWD6502 def /YW YWD6502 def /ZW ZWD6502 def /FL 0.000001 def /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /CIEL*0i 310 array def /CIEa*0i 310 array def /CIEb*0i 310 array def /X0i 310 array def /Y0i 310 array def /Z0i 310 array def %calculate XYZ-values for 310 colours 0 1 309 {/i exch def %i=0,309 /i10 i 10 mul def CIEL*0i i LAB_KIi i10 1 add get put CIEa*0i i LAB_KIi i10 2 add get put CIEb*0i i LAB_KIi i10 3 add get put /X* {CIEL*0i i get 16 add 116 div CIEa*0i i get 500 div add} bind def /Y* {CIEL*0i i get 16 add 116 div} bind def /Z* {CIEL*0i i get 16 add 116 div CIEb*0i i get 200 div sub} bind def X0i i X* DecodeXYZ* XW mul put Y0i i Y* DecodeXYZ* YW mul put Z0i i Z* DecodeXYZ* ZW mul put } for %i=0,309 %************************************************************* /Wdata1 3500 array def %max 350x10 data /Wdata2 3500 array def /IM 056 def %(max IM=056; IM=46=without series C-V- and W-Wn-WN-Nw-N /IM0 113 def %(max IM=057)*2-1 = 057 X 2-1 %default data 0 1 IM0 {/i exch def %i=0,IM0 /i10 i 10 mul def 0 1 9 {/j exch def %j=0,9 Wdata1 i10 j add 1. put Wdata2 i10 j add 1. put } for %j=0,9 } for %i=0,IM0 /D57xSERi 2000 array def /xchart4 0 def %xchart4=0 and 1: calculation for WANG or VIK pair comparison data 0 1 IM {/ii exch def %ii=0,IM /i16 ii 16 mul def 0 1 15 {/j exch def %j=0,15 xchart4 0 eq {D57xSERi i16 j add D57SERWi i16 j add get put} if xchart4 1 eq {D57xSERi i16 j add D57SERVi i16 j add get put} if } for %j=0,15 } for %ii=0,IM /DV*1 200 array def /DV*2 200 array def /DVS1 200 array def /DVS2 200 array def %default data 0 1 IM {/ii exch def %ii=0,IM /i16 ii 16 mul def DV*1 ii 1. put %default DV*2 ii 1. put } for %ii=0,IM %for WANG and VIK 0 1 IM {/ii exch def %ii=0,IM /D57xSER12 D57xSERi i16 12 add get def /D57xSER13 D57xSERi i16 13 add get def DV*1 ii D57xSER12 put DV*2 ii D57xSER13 put xchart4 0 eq {%xchart4=0 %corection for WANG only D57xSER12 0 ne {%D57xSER12#0 DV*1 ii D57xSER12 42.62 div 1. 1.1322 div exp 10 mul put } if %D57xSER12#0 D57xSER13 0 ne {%D57xSER13#0 DV*2 ii D57xSER13 42.62 div 1. 1.1322 div exp 10 mul put } if %D57xSER13#0 } if %xchart4=0 %corection for WANG only } for %ii=0,IM /xchartl 4 def %0 1 5 {/xchartl exch def %xchartl=0,5 gsave 5 /Times-ISOL1 FS 215 85 moveto (XE390-7N) show 72 90 translate /ytit 550 def /yhoe 4000 def /yhoet yhoe ytit sub def /xwide 06000 def /ishow {-50 -100 rmoveto 200 /Times-ISOL1 FS show 0 100 rmoveto TM} bind def 0.01 MM 0.01 MM scale 15 setlinewidth 0.0 0.0 0.0 0.5 setcmykcolor 0 0 moveto xwide 0 rlineto 0 yhoet rlineto xwide neg 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmykcolor 0 0 moveto xwide 0 rlineto 0 yhoet rlineto xwide neg 0 rlineto closepath stroke /yt 300 def %y-Zeilenabstand for text /yd 400 def %y-Zeilenabstand for formula %Titeltext /xt1 0 def /yt1 300 def /S10 100 def /S11 800 def /S20 3250 def /S30 4000 def /Z10 2500 def /Z1C 2200 def /Z1V 1900 def /Z1M 1600 def /Z1O 1300 def /Z1Y 1000 def /Z1L 0700 def /Z1N 0400 def /Z1W 0100 def %HUE CIRCLE /xd 1550 def /yd 5000 def /xp 1550 def /yp 5000 def /xdN xd def /ydN yd 2000 sub def /xdW xd def /ydW yd def /xdR xd 2000 add def /ydR yd 1000 sub def /xm 600 def /xip xd xm 2 mul add def /yip ydN xm 2 mul add def /xi1 xd xm 1 mul sub def /yi1 ydW xm 0.5 mul sub def /xi2 xd xm 2 mul add def /yi2 ydN 400 sub def %************************************************************************* %constant hue planes /xt1 -1000 def /yt1 -2670 def xt1 yt1 translate /xpp xp 350 sub def 0 setgray xpp yp 0850 add moveto /xshift 3200 def TBIK (BAM) show TBK (\2555stufige Farbreihen gleichabst\344ndig in CIELAB) showde ( 5 step colour series equally spaced in CIELAB) showen TBS xpp yp 0600 add moveto xchart4 0 eq {%xchart4=0 (CIELAB Farbdifferenzen ) showde (CIELAB colour differences ) showen SS (D) show TBIS (E*) show TBV 0 -50 rmoveto (ab) show 0 50 rmoveto } if %xchart4=0 xchart4 1 eq {%xchart4=1 (visuelle Farbdifferenzen ) showde (visual colour differences ) showen SS (D) show TBIS (V*) show TBV 0 -50 rmoveto (Vik) show 0 50 rmoveto } if %xchart4=1 /xfact 2000 100 div def /yfact 2000 100 div def /yshift 0800 def /xpW xpp def /ypW yp 200 sub def /ym 0 def /ix -1 def /cwdif4 7 array def /cwdif2 7 array def /cwdif1 7 array def /cndif4 7 array def /cndif2 7 array def /cndif1 7 array def /cwdifx 7 array def /cndifx 7 array def /cwstd4 7 array def /cwstd2 7 array def /cwstd1 7 array def /cnstd4 7 array def /cnstd2 7 array def /cnstd1 7 array def /cwstdx 7 array def /cnstdx 7 array def /wName 7 array def /nName 7 array def /DLAB21ik 7 array def /DLAB32ik 7 array def /DV*1ik 7 array def /DV*2ik 7 array def /DVS1ik 7 array def /DVS2ik 7 array def %default 0 1 6 {/i exch def cwdif4 i 4 put cwdif2 i 2 put cwdif1 i 1 put cndif4 i 40 put cndif2 i 20 put cndif1 i 10 put wName i (W) put nName i (N) put } for /ik 0 def 0 1 6 {/ik exch def %ik=0,6 %7 series %025 W-Wc-CW 089-090-091 %031 CW-Cw-C 091-092-093 %037 C-Cn-CN 149-150-151 %043 CN-Nc-N 151-152-153 %001 W-CW-C 001-002-003 %007 C-CN-N 037-038-039 %013 W-C-N 209-210-211 ik 0 eq {/ii 025 1 sub def} if ik 1 eq {/ii 031 1 sub def} if ik 2 eq {/ii 037 1 sub def} if ik 3 eq {/ii 043 1 sub def} if ik 4 eq {/ii 001 1 sub def} if ik 5 eq {/ii 007 1 sub def} if ik 6 eq {/ii 013 1 sub def} if %6 series/figures /ii ii xchartl add def /i16 ii 16 mul def /S D57xSERi i16 1 add get def S 4 eq {%S=4 /DREL D57xSERi i16 13 add get def DV*1ik ik D57xSERi i16 12 add get DREL mul put DV*2ik ik D57xSERi i16 12 add get 1 DREL sub mul put } if %S=4 S 3 eq {%S=3 DV*1ik ik D57xSERi i16 12 add get put DV*2ik ik D57xSERi i16 13 add get put } if %S=3 %always standard deviation DVS1ik ik D57xSERi i16 10 add get put DVS2ik ik D57xSERi i16 11 add get put /N1 D57xSERi i16 2 add get 1 sub def %Nx-count STARTs at "1" /N2 D57xSERi i16 3 add get 1 sub def /N3 D57xSERi i16 4 add get 1 sub def ik 0 eq {wName 0 D57xSERi i16 7 add get put wName 1 D57xSERi i16 8 add get put wName 2 D57xSERi i16 9 add get put} if ik 1 eq {wName 3 D57xSERi i16 8 add get put wName 4 D57xSERi i16 9 add get put} if ik 2 eq {nName 0 D57xSERi i16 7 add get put nName 1 D57xSERi i16 8 add get put nName 2 D57xSERi i16 9 add get put} if ik 3 eq {nName 3 D57xSERi i16 8 add get put nName 4 D57xSERi i16 9 add get put} if /X10 X0i N1 get def /Y10 Y0i N1 get def /Z10 Z0i N1 get def /X20 X0i N2 get def /Y20 Y0i N2 get def /Z20 Z0i N2 get def /X30 X0i N3 get def /Y30 Y0i N3 get def /Z30 Z0i N3 get def 0 1 1 {/i exch def %i=0,1 i 0 eq {%i=0,1 /X0 X20 def /Y0 Y20 def /Z0 Z20 def /X1 X10 def /Y1 Y10 def /Z1 Z10 def } if %i=0 i 1 eq {%i=1 /X0 X20 def /Y0 Y20 def /Z0 Z20 def /X1 X30 def /Y1 Y30 def /Z1 Z30 def } if %i=1 proc_coldiff } for %i=0,1 DLAB21ik ik d_CIELABi 0 get put DLAB32ik ik d_CIELABi 1 get put %025 ik=0 W-Wc-CW 089-090-091 %031 ik=1 CW-Cw-C 091-092-093 %037 ik=2 C-Cn-CN 149-150-151 %043 ik=3 CN-Nc-N 151-152-153 %001 ik=4 W-CW-C 001-002-003 %007 ik=5 C-CN-N 037-038-039 %013 ik=6 W-C-N 209-210-211 %/ioutk 1 def %ioutk 0 eq {%ioutk=0 xchart4 0 eq {%xchart4=0 ik 0 eq {cwdifx 0 DLAB21ik ik get put %W-Wc-CW cwdifx 1 DLAB32ik ik get put} if ik 1 eq {cwdifx 2 DLAB21ik ik get put %CW-Cw-C cwdifx 3 DLAB32ik ik get put} if ik 2 eq {cndifx 0 DLAB21ik ik get put %C-Cn-CN cndifx 1 DLAB32ik ik get put} if ik 3 eq {cndifx 2 DLAB21ik ik get put %CN-Nc-N cndifx 3 DLAB32ik ik get put} if ik 4 eq {cwdifx 4 DLAB21ik ik get put %W-CW-C cwdifx 5 DLAB32ik ik get put} if ik 5 eq {cndifx 4 DLAB21ik ik get put %C-CN-N cndifx 5 DLAB32ik ik get put} if ik 6 eq {cwdifx 6 DLAB21ik ik get put %W-C-N cndifx 6 DLAB32ik ik get put} if } if %xchart4=0 %} if %ioutk=0 %ioutk 1 eq {%ioutk=1 xchart4 1 eq {%xchart4=1 ik 0 eq {cwdifx 0 DV*1ik ik get put %W-Wc-CW cwdifx 1 DV*2ik ik get put} if ik 1 eq {cwdifx 2 DV*1ik ik get put %CW-Cw-C cwdifx 3 DV*2ik ik get put} if ik 2 eq {cndifx 0 DV*1ik ik get put %C-Cn-CN cndifx 1 DV*2ik ik get put} if ik 3 eq {cndifx 2 DV*1ik ik get put %CN-Nc-N cndifx 3 DV*2ik ik get put} if ik 4 eq {cwdifx 4 DV*1ik ik get put %W-CW-C cwdifx 5 DV*2ik ik get put} if ik 5 eq {cndifx 4 DV*1ik ik get put %C-CN-N cndifx 5 DV*2ik ik get put} if ik 6 eq {cwdifx 6 DV*1ik ik get put %W-C-N cndifx 6 DV*2ik ik get put} if ik 0 eq {cwstdx 0 DVS1ik ik get put %W-Wc-CW cwstdx 1 DVS2ik ik get put} if ik 1 eq {cwstdx 2 DVS1ik ik get put %CW-Cw-C cwstdx 3 DVS2ik ik get put} if ik 2 eq {cnstdx 0 DVS1ik ik get put %C-Cn-CN cnstdx 1 DVS2ik ik get put} if ik 3 eq {cnstdx 2 DVS1ik ik get put %CN-Nc-N cnstdx 3 DVS2ik ik get put} if ik 4 eq {cwstdx 4 DVS1ik ik get put %W-CW-C cwstdx 5 DVS2ik ik get put} if ik 5 eq {cnstdx 4 DVS1ik ik get put %C-CN-N cnstdx 5 DVS2ik ik get put} if ik 6 eq {cwstdx 6 DVS1ik ik get put %W-C-N cnstdx 6 DVS2ik ik get put} if } if %xchart4=1 %} if %ioutk=1 } for %ik=0,6 %7 series 0 1 3 {/ik exch def %ik=0,3 cwdif4 ik cwdifx ik get 0.49 add cvi put cndif4 ik cndifx ik get 0.49 add cvi put } for %ik=0,3 0 1 1 {/ik exch def %ik=0,1 cwdif2 ik cwdifx ik 4 add get 0.49 add cvi put cndif2 ik cndifx ik 4 add get 0.49 add cvi put } for %ik=0,1 cwdif1 0 cwdifx 6 get 0.49 add cvi put cndif1 0 cndifx 6 get 0.49 add cvi put xchart4 1 eq {%xchart4=1 0 1 3 {/ik exch def %ik=0,3 cwstd4 ik cwstdx ik get 0.49 add cvi put cnstd4 ik cnstdx ik get 0.49 add cvi put } for %ik=0,3 0 1 1 {/ik exch def %ik=0,1 cwstd2 ik cwstdx ik 4 add get 0.49 add cvi put cnstd2 ik cnstdx ik 4 add get 0.49 add cvi put } for %ik=0,1 cwstd1 0 cwstdx 6 get 0.49 add cvi put cnstd1 0 cnstdx 6 get 0.49 add cvi put } if %xchart4=1 %STOP5 newpath /k 0 def /j 0 def /i 0 def 0 1 2 {/k exch def %k=0,2 %three rows /ys yshift k mul def 0 1 1 {/j exch def %j=0,1 %left, right /xs xshift j mul def k 0 eq {TBS j 0 eq {%j=0 1 1 1 setrgbcolor xpp yp 0300 add moveto (helle Serie ) showde (light series ) showen wName 4 get show ( nach W) showde ( to W) showen } if %j=0 j 1 eq {%j=1 0 0 0 setrgbcolor xp 450 sub xshift add yp 0300 add moveto (dunkle Serie ) showde (dark series ) showen nName 0 get show ( nach N) showde ( to N) showen } if %j=1 } if %k=0 TS 0 0 0 setrgbcolor 0 1 4 {/i exch def %i=0,4 %five colours /xi xpW xm i mul add xs add def %NW /yi ypW ym i mul add ys sub def % xpW ypW moveto (START, i, wName) show % i cvishow % wName i get show k 0 eq {xi 100 sub yi 200 add moveto j 0 eq {wName 4 i sub get show} if j 1 eq {nName i get show} if newpath } if k 0 eq i 3 le and {xi 100 add yi 350 sub moveto j 0 eq {cwdif4 3 i sub get cvishow} if j 1 eq {cndif4 i get cvishow} if xchart4 1 eq {%xchart4=1 (\261) show %+/- j 0 eq {cwstd4 3 i sub get cvishow} if j 1 eq {cnstd4 i get cvishow} if } if %xchart4=1 newpath } if k 0 eq i 1 le and {xi 400 add i 500 mul add yi 1150 sub moveto j 0 eq {cwdif2 1 i sub get cvishow} if j 1 eq {cndif2 i get cvishow} if xchart4 1 eq {%xchart4=1 (\261) show %+/- j 0 eq {cwstd2 1 i sub get cvishow} if j 1 eq {cnstd2 i get cvishow} if } if %xchart4=1 newpath } if k 0 eq i 0 le and {xi 1000 add i 500 mul add yi 2000 sub moveto j 0 eq {cwdif1 0 get cvishow} if j 1 eq {cndif1 0 get cvishow} if xchart4 1 eq {%xchart4=1 (\261) show %+/- j 0 eq {cwstd1 0 get cvishow} if j 1 eq {cnstd1 0 get cvishow} if } if %xchart4=1 newpath } if i 0 eq i 4 eq or {0 0 0 setrgbcolor xi yi 140 0 360 arc fill } if j 0 eq {%j=0 /w i 4 div def xchartl 0 eq {w 1 1 setrgbcolor} if %C-W xchartl 1 eq {w w 1 setrgbcolor} if %V-W xchartl 2 eq {1 w 1 setrgbcolor} if %M-W xchartl 3 eq {1 w w setrgbcolor} if %O-W xchartl 4 eq {1 1 w setrgbcolor} if %Y-W xchartl 5 eq {w 1 w setrgbcolor} if %L-W } if %j=0 j 1 eq {%j=1 /w 1 i 4 div sub def xchartl 0 eq {0 w w setrgbcolor} if %C-N xchartl 1 eq {0 0 w setrgbcolor} if %V-N xchartl 2 eq {w 0 w setrgbcolor} if %M-N xchartl 3 eq {w 0 0 setrgbcolor} if %O-N xchartl 4 eq {w w 0 setrgbcolor} if %Y-N xchartl 5 eq {0 w 0 setrgbcolor} if %L-N } if %j=1 xi yi 070 0 360 arc fill i 0 eq i 4 eq or {0 0 0 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if k 0 eq {%k=0 i 1 ge i 3 le and {%k=0 and all i 0 0 0 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if %i=2 and k<2 } if %k=0 k 1 eq i 2 eq and {%k=1 and i=2 0 0 0 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if %k=1 and i=2 i 4 eq j 1 eq and {%i=4 and j=1 %cross in black N 1 1 1 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if %i=4 and j=1 } for %i=0,4 } for %j=0,1 } for %k=0,2 xt1 neg yt1 neg translate %************************************************************************* showpage grestore %} for %xchartl=0,5 %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 020 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM moveto ( ) show 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 18 %line 409 %!PS-Adobe-3.0 EPSF-3.0 XE390-8N %%BoundingBox: 70 83 245 190 %START PDFDE011.EPS /pdfmark08 where {pop} {userdict /pdfmark08 /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://130.149.60.45/~farbmetrik/SE25/) /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, colour vision) /Creator (klaus.richter@mac.com) /CreationDate (D:2016070112000) /ModDate (D:2016070112000) /DOCINFO pdfmark08 [ /View [ /FitB ] /DOCVIEW pdfmark08 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /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 /TV {160 /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 /TIV {160 /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 /TBV {160 /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 /TBIV {160 /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 /SV {160 /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 %%EndProlog gsave /nshow {TS show} bind def /kshow {TIS show} bind def /bshow {TBS show} bind def /jshow {TBIS show} bind def /ibshown {TBS -50 -50 rmoveto show 0 50 rmoveto TBS} bind def /ibshow0 {TBS -00 -50 rmoveto show 0 50 rmoveto TBS} bind def /ishown {TS -50 -50 rmoveto show 0 50 rmoveto TS } bind def /ishow0 {TS -00 -50 rmoveto show 0 50 rmoveto TS } bind def %40% kleiner /ns4 {250 /Times-ISOL1 FS show TK} bind def /ks4 {250 /TimesI-ISOL1 FS show TK} bind def /bs4 {250 /TimesB-ISOL1 FS show TK} bind def /js4 {250 /TimesBI-ISOL1 FS show TK} bind def /ss4 {250 /Symbol FS show TK} bind def /is4 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /es4 {200 /Times-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ib4 {200 /TimesB-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /eb4 {200 /TimesB-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ip4 {200 /Times-ISOL1 FS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def %60% kleiner /ns6 {200 /Times-ISOL1 FS show TS} bind def /ks6 {200 /TimesI-ISOL1 FS show TS} bind def /bs6 {200 /TimesB-ISOL1 FS show TS} bind def /js6 {200 /TimesBI-ISOL1 FS show TS} bind def /ss6 {200 /Symbol FS show TS} bind def /is6 {160 /Times-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /es6 {160 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ib6 {160 /TimesB-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /eb6 {160 /TimesB-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ip6 {160 /Times-ISOL1 FS 24 24 rmoveto (\267) show 24 -24 rmoveto TS} bind /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show} def %************************************************************* %Aus Kittelmann_CD_DA/Daten der Ausertung/ %Farbwerte der Farbfelder und Reihen.xls/CIELAB_1 %siehe auch Dipl-Arbeit Seite 31 ff /LAB_KIi 3100 array def %310x10 /LAB_KIi [ %n L*r a*r b*r L*t a*t b*t E*r-t C*r h*r % L*r a*r b*r CIELAB data of 310 printel samples, see page 34 % 95.410 -0.980 4.760 ISO 15775 Papierweiss Tab. 2.2 1 94.806 -1.832 6.977 95.410 -0.980 4.760 2.450 7.213 104.710 2 76.937 -16.536 -18.248 77.015 -15.805 -18.995 1.048 24.626 227.818 3 59.410 -30.942 -42.455 58.620 -30.630 -42.750 0.899 52.534 233.915 4 94.807 -1.883 7.035 95.410 -0.980 4.760 2.520 7.282 104.985 5 76.919 -16.503 -18.327 77.015 -15.805 -18.995 0.971 24.663 227.998 6 59.468 -30.964 -42.431 58.620 -30.630 -42.750 0.966 52.528 233.880 7 94.796 -1.848 7.051 95.410 -0.980 4.760 2.526 7.289 104.684 8 60.143 15.422 -18.907 60.565 15.185 -19.800 1.016 24.399 309.204 9 27.166 31.237 -43.580 25.720 31.350 -44.360 1.646 53.619 305.632 10 94.811 -1.797 6.812 95.410 -0.980 4.760 2.288 7.045 104.775 11 60.039 15.614 -19.124 60.565 15.185 -19.800 0.958 24.689 309.231 12 27.145 31.257 -43.757 25.720 31.350 -44.360 1.550 53.774 305.539 13 94.813 -1.742 6.702 95.410 -0.980 4.760 2.170 6.925 104.573 14 71.354 37.382 -0.087 71.770 37.110 -1.020 1.057 37.382 359.867 15 48.299 74.762 -6.470 48.130 75.200 -6.800 0.573 75.042 355.054 16 94.862 -1.790 6.808 95.410 -0.980 4.760 2.269 7.039 104.734 17 71.430 37.531 -0.146 71.770 37.110 -1.020 1.028 37.531 359.777 18 48.348 75.034 -6.602 48.130 75.200 -6.800 0.338 75.324 354.972 19 94.829 -1.679 6.457 95.410 -0.980 4.760 1.925 6.672 104.576 20 71.895 30.271 30.198 71.675 32.165 28.415 2.611 42.758 44.931 21 48.389 65.379 52.900 47.940 65.310 52.070 0.946 84.100 38.977 22 94.841 -1.727 6.563 95.410 -0.980 4.760 2.033 6.787 104.743 23 71.834 30.282 30.495 71.675 32.165 28.415 2.810 42.976 45.200 24 48.373 65.160 52.576 47.940 65.310 52.070 0.683 83.726 38.899 25 94.856 -1.811 6.930 95.410 -0.980 4.760 2.389 7.163 104.645 26 91.995 -9.864 53.175 92.890 -6.070 50.465 4.747 54.082 100.509 27 88.831 -7.617 100.643 90.370 -11.160 96.170 5.910 100.931 94.328 28 94.840 -1.857 6.961 95.410 -0.980 4.760 2.437 7.204 104.938 29 91.969 -9.864 53.060 92.890 -6.070 50.465 4.688 53.969 100.532 30 88.822 -7.585 99.964 90.370 -11.160 96.170 5.438 100.251 94.339 31 94.843 -1.831 6.986 95.410 -0.980 4.760 2.450 7.223 104.689 32 72.670 -33.310 23.706 73.155 -31.970 20.735 3.296 40.885 144.561 33 52.763 -62.634 40.725 50.900 -62.960 36.710 4.438 74.710 146.968 34 94.844 -1.844 6.940 95.410 -0.980 4.760 2.413 7.181 104.883 35 72.659 -33.330 23.584 73.155 -31.970 20.735 3.195 40.830 144.717 36 52.751 -62.659 40.456 50.900 -62.960 36.710 4.189 74.585 147.152 37 59.858 -30.723 -42.299 58.620 -30.630 -42.750 1.321 52.279 234.008 38 39.512 -15.438 -20.098 38.315 -15.065 -21.605 1.960 25.343 232.471 39 20.439 0.604 1.879 18.010 0.500 -0.460 3.374 1.974 72.184 40 59.843 -30.628 -42.217 58.620 -30.630 -42.750 1.334 52.157 234.039 41 39.472 -15.216 -20.290 38.315 -15.065 -21.605 1.759 25.361 233.132 42 20.596 0.834 1.790 18.010 0.500 -0.460 3.444 1.975 65.031 43 28.050 31.224 -43.592 25.720 31.350 -44.360 2.457 53.621 305.613 44 24.428 16.573 -21.290 21.865 15.925 -22.410 2.871 26.980 307.898 45 20.775 1.062 1.849 18.010 0.500 -0.460 3.646 2.132 60.115 46 27.951 31.592 -43.586 25.720 31.350 -44.360 2.374 53.831 305.935 47 24.413 16.789 -21.558 21.865 15.925 -22.410 2.822 27.324 307.911 48 20.742 1.238 1.780 18.010 0.500 -0.460 3.609 2.168 55.193 49 47.685 75.265 -6.106 48.130 75.200 -6.800 0.827 75.513 355.362 50 34.058 36.976 -1.848 33.070 37.850 -3.630 2.217 37.022 357.138 51 19.828 0.759 1.618 18.010 0.500 -0.460 2.773 1.787 64.874 52 47.770 75.333 -6.073 48.130 75.200 -6.800 0.823 75.577 355.391 53 34.024 36.746 -1.841 33.070 37.850 -3.630 2.308 36.792 357.131 54 19.895 0.766 1.713 18.010 0.500 -0.460 2.889 1.877 65.917 55 48.084 65.391 53.701 47.940 65.310 52.070 1.639 84.616 39.394 56 33.902 32.769 28.182 32.975 32.905 25.805 2.555 43.221 40.696 57 20.096 0.689 1.832 18.010 0.500 -0.460 3.105 1.958 69.398 58 48.093 65.240 53.510 47.940 65.310 52.070 1.449 84.377 39.358 59 33.983 32.963 28.200 32.975 32.905 25.805 2.599 43.379 40.547 60 20.045 0.703 1.815 18.010 0.500 -0.460 3.059 1.946 68.836 61 88.969 -7.916 99.202 90.370 -11.160 96.170 4.656 99.517 94.562 62 54.202 -4.710 50.539 54.190 -5.330 47.855 2.755 50.758 95.324 63 20.513 1.218 2.043 18.010 0.500 -0.460 3.612 2.379 59.195 64 88.968 -7.927 98.732 90.370 -11.160 96.170 4.357 99.050 94.591 65 54.261 -4.648 50.299 54.190 -5.330 47.855 2.539 50.514 95.279 66 20.641 0.847 1.666 18.010 0.500 -0.460 3.401 1.869 63.062 67 53.549 -61.840 40.746 50.900 -62.960 36.710 4.956 74.057 146.619 68 35.886 -31.821 20.383 34.455 -31.230 18.125 2.738 37.790 147.359 69 20.920 1.315 2.010 18.010 0.500 -0.460 3.903 2.401 56.801 70 53.497 -62.212 40.195 50.900 -62.960 36.710 4.410 74.067 147.134 71 35.953 -31.500 20.084 34.455 -31.230 18.125 2.481 37.358 147.479 72 20.895 1.150 1.709 18.010 0.500 -0.460 3.667 2.059 56.060 73 94.784 -1.844 6.954 95.410 -0.980 4.760 2.440 7.194 104.855 74 57.474 -0.187 4.308 56.710 -0.240 2.150 2.290 4.312 92.481 75 19.853 0.660 2.057 18.010 0.500 -0.460 3.124 2.160 72.205 76 94.850 -1.803 6.917 95.410 -0.980 4.760 2.376 7.148 104.613 77 57.492 -0.158 4.396 56.710 -0.240 2.150 2.380 4.399 92.060 78 19.840 0.774 1.873 18.010 0.500 -0.460 2.978 2.026 67.556 79 94.712 -1.740 6.671 95.410 -0.980 4.760 2.171 6.894 104.624 80 75.767 -1.256 4.576 76.060 -0.610 3.455 1.327 4.745 105.346 81 57.770 -0.029 4.084 56.710 -0.240 2.150 2.215 4.084 90.406 82 38.879 0.418 3.397 37.360 0.130 0.845 2.983 3.422 82.988 83 20.500 0.760 1.906 18.010 0.500 -0.460 3.445 2.052 68.276 84 94.746 -1.749 6.752 95.410 -0.980 4.760 2.236 6.975 104.522 85 75.784 -1.036 4.321 76.060 -0.610 3.455 1.004 4.443 103.478 86 57.797 0.122 4.078 56.710 -0.240 2.150 2.243 4.080 88.280 87 38.909 0.429 3.229 37.360 0.130 0.845 2.859 3.258 82.432 88 20.404 0.745 1.681 18.010 0.500 -0.460 3.221 1.839 66.098 89 94.821 -1.758 6.747 95.410 -0.980 4.760 2.214 6.973 104.604 90 86.389 -9.074 -6.237 86.213 -8.393 -7.118 1.128 11.011 214.502 91 76.787 -16.568 -18.756 77.015 -15.805 -18.995 0.832 25.026 228.543 92 68.577 -23.637 -30.298 67.818 -23.218 -30.873 1.041 38.427 232.040 93 59.128 -30.875 -42.876 58.620 -30.630 -42.750 0.578 52.835 234.243 94 94.810 -1.748 6.756 95.410 -0.980 4.760 2.221 6.978 104.505 95 86.419 -8.953 -6.387 86.213 -8.393 -7.118 0.943 10.998 215.505 96 76.820 -16.491 -18.789 77.015 -15.805 -18.995 0.742 25.000 228.727 97 68.658 -23.582 -30.348 67.818 -23.218 -30.873 1.056 38.433 232.151 98 59.211 -30.905 -42.735 58.620 -30.630 -42.750 0.652 52.739 234.127 99 94.672 -1.678 6.502 95.410 -0.980 4.760 2.016 6.715 104.470 100 78.300 7.067 -7.013 77.988 7.103 -7.520 0.597 9.956 315.220 101 60.293 15.348 -19.582 60.565 15.185 -19.800 0.385 24.880 308.089 102 44.203 22.986 -31.712 43.143 23.268 -32.080 1.157 39.167 305.936 103 27.016 31.165 -43.974 25.720 31.350 -44.360 1.365 53.898 305.325 104 94.830 -1.783 6.928 95.410 -0.980 4.760 2.383 7.154 104.433 105 78.257 7.039 -7.270 77.988 7.103 -7.520 0.373 10.119 314.077 106 60.155 15.718 -20.231 60.565 15.185 -19.800 0.798 25.619 307.845 107 44.111 23.540 -32.017 43.143 23.268 -32.080 1.008 39.740 306.324 108 26.626 33.169 -44.169 25.720 31.350 -44.360 2.042 55.237 306.905 109 94.830 -1.701 6.558 95.410 -0.980 4.760 2.022 6.775 104.543 110 83.971 17.488 2.916 83.590 18.065 1.870 1.254 17.729 9.468 111 71.531 37.398 -0.616 71.770 37.110 -1.020 0.550 37.403 359.056 112 60.110 56.166 -3.810 59.950 56.155 -3.910 0.189 56.295 356.120 113 48.082 74.995 -6.574 48.130 75.200 -6.800 0.309 75.282 354.990 114 94.878 -1.729 6.630 95.410 -0.980 4.760 2.084 6.852 104.617 115 83.935 17.501 2.928 83.590 18.065 1.870 1.247 17.744 9.497 116 71.513 37.496 -0.695 71.770 37.110 -1.020 0.566 37.502 358.938 117 60.110 56.159 -3.719 59.950 56.155 -3.910 0.249 56.282 356.211 118 48.182 74.902 -6.412 48.130 75.200 -6.800 0.492 75.176 355.107 119 94.804 -1.818 7.199 95.410 -0.980 4.760 2.649 7.425 104.176 120 82.777 14.554 17.861 83.543 15.593 16.588 1.812 23.040 50.825 121 71.216 31.512 29.973 71.675 32.165 28.415 1.750 43.490 43.566 122 59.233 49.560 42.426 59.808 48.738 40.243 2.403 65.239 40.565 123 47.901 65.572 53.795 47.940 65.310 52.070 1.745 84.815 39.365 124 94.772 -1.833 6.825 95.410 -0.980 4.760 2.324 7.067 105.036 125 82.720 14.616 17.563 83.543 15.593 16.588 1.607 22.849 50.232 126 71.256 31.437 30.263 71.675 32.165 28.415 2.030 43.636 43.910 127 59.267 49.547 42.334 59.808 48.738 40.243 2.306 65.169 40.511 128 47.815 65.383 53.061 47.940 65.310 52.070 1.001 84.204 39.061 129 94.840 -1.780 6.905 95.410 -0.980 4.760 2.359 7.131 104.455 130 93.112 -6.364 28.580 94.150 -3.525 27.613 3.174 29.280 102.554 131 92.030 -9.686 51.982 92.890 -6.070 50.465 4.014 52.877 100.555 132 90.731 -10.442 77.889 91.630 -8.615 73.318 5.005 78.586 97.636 133 88.925 -7.755 98.630 90.370 -11.160 96.170 4.442 98.935 94.496 134 94.750 -1.706 6.774 95.410 -0.980 4.760 2.240 6.985 104.140 135 93.456 -6.983 29.551 94.150 -3.525 27.613 4.024 30.365 103.295 136 91.762 -9.588 54.588 92.890 -6.070 50.465 5.536 55.424 99.962 137 90.523 -9.923 78.975 91.630 -8.615 73.318 5.912 79.596 97.161 138 88.450 -7.383 99.721 90.370 -11.160 96.170 5.528 99.994 94.234 139 94.774 -1.701 6.618 95.410 -0.980 4.760 2.092 6.833 104.419 140 84.620 -17.161 14.272 84.283 -16.475 12.748 1.706 22.320 140.250 141 72.841 -32.934 22.138 73.155 -31.970 20.735 1.731 39.683 146.092 142 63.629 -47.768 31.268 62.028 -47.465 28.723 3.022 57.091 146.792 143 53.074 -62.749 39.986 50.900 -62.960 36.710 3.938 74.407 147.493 144 94.824 -1.732 6.644 95.410 -0.980 4.760 2.111 6.866 104.611 145 84.610 -17.132 14.251 84.283 -16.475 12.748 1.673 22.284 140.245 146 72.795 -32.837 21.866 73.155 -31.970 20.735 1.470 39.451 146.341 147 63.609 -47.604 30.857 62.028 -47.465 28.723 2.660 56.730 147.049 148 53.068 -62.538 39.758 50.900 -62.960 36.710 3.764 74.106 147.554 149 59.304 -30.836 -42.453 58.620 -30.630 -42.750 0.774 52.471 234.007 150 48.835 -23.073 -32.162 48.468 -22.848 -32.178 0.431 39.582 234.345 151 38.544 -15.514 -20.880 38.315 -15.065 -21.605 0.883 26.012 233.387 152 28.577 -8.727 -9.949 28.163 -7.283 -11.033 1.853 13.234 228.743 153 19.400 0.578 1.071 18.010 0.500 -0.460 2.069 1.217 61.645 154 59.283 -30.812 -42.644 58.620 -30.630 -42.750 0.696 52.611 234.150 155 49.013 -23.128 -32.035 48.468 -22.848 -32.178 0.630 39.512 234.172 156 38.632 -15.429 -21.396 38.315 -15.065 -21.605 0.526 26.379 234.205 157 28.626 -9.032 -10.165 28.163 -7.283 -11.033 2.007 13.598 228.377 158 19.526 0.414 1.083 18.010 0.500 -0.460 2.165 1.159 69.068 159 26.747 31.469 -43.910 25.720 31.350 -44.360 1.128 54.022 305.628 160 25.010 24.152 -33.934 23.793 23.638 -33.385 1.431 41.651 305.440 161 23.199 16.450 -22.261 21.865 15.925 -22.410 1.441 27.680 306.463 162 21.560 8.223 -9.882 19.938 8.213 -11.435 2.246 12.856 309.764 163 19.767 0.771 1.400 18.010 0.500 -0.460 2.573 1.598 61.142 164 26.466 33.265 -43.952 25.720 31.350 -44.360 2.096 55.121 307.121 165 24.531 25.256 -34.061 23.793 23.638 -33.385 1.903 42.403 306.557 166 22.532 17.348 -22.759 21.865 15.925 -22.410 1.610 28.617 307.317 167 21.297 9.116 -10.038 19.938 8.213 -11.435 2.148 13.559 312.243 168 20.241 1.362 2.421 18.010 0.500 -0.460 3.745 2.778 60.648 169 47.954 75.045 -6.124 48.130 75.200 -6.800 0.715 75.294 355.335 170 39.935 56.633 -5.204 40.600 56.525 -5.215 0.674 56.872 354.750 171 34.317 37.076 -2.591 33.070 37.850 -3.630 1.798 37.166 356.003 172 27.113 19.906 0.097 25.540 19.175 -2.045 2.756 19.906 0.279 173 20.282 0.865 1.650 18.010 0.500 -0.460 3.122 1.863 62.340 174 48.114 74.940 -6.437 48.130 75.200 -6.800 0.447 75.216 355.091 175 40.005 56.475 -5.385 40.600 56.525 -5.215 0.621 56.731 354.553 176 34.340 37.261 -2.923 33.070 37.850 -3.630 1.569 37.376 355.515 177 27.115 19.691 -0.318 25.540 19.175 -2.045 2.394 19.694 359.076 178 20.357 0.721 1.317 18.010 0.500 -0.460 2.952 1.501 61.306 179 47.885 65.560 53.596 47.940 65.310 52.070 1.548 84.680 39.267 180 40.159 49.175 39.907 40.458 49.108 38.938 1.017 63.331 39.061 181 33.458 32.557 27.471 32.975 32.905 25.805 1.770 42.598 40.158 182 26.575 18.004 15.031 25.493 16.703 12.673 2.904 23.454 39.858 183 19.509 0.349 1.149 18.010 0.500 -0.460 2.205 1.201 73.119 184 47.899 65.372 53.449 47.940 65.310 52.070 1.381 84.441 39.270 185 40.193 49.025 39.636 40.458 49.108 38.938 0.752 63.043 38.955 186 33.443 32.649 27.569 32.975 32.905 25.805 1.843 42.732 40.179 187 26.586 17.967 15.189 25.493 16.703 12.673 3.021 23.527 40.209 188 19.559 0.718 1.107 18.010 0.500 -0.460 2.214 1.319 57.028 189 88.855 -7.734 98.558 90.370 -11.160 96.170 4.442 98.861 94.487 190 72.418 -8.190 74.514 72.280 -8.245 72.013 2.506 74.962 96.272 191 53.856 -5.000 49.618 54.190 -5.330 47.855 1.824 49.869 95.755 192 37.368 -2.171 26.048 36.100 -2.415 23.698 2.682 26.138 94.764 193 19.741 0.588 1.403 18.010 0.500 -0.460 2.544 1.521 67.252 194 88.335 -7.243 99.966 90.370 -11.160 96.170 5.821 100.228 94.144 195 72.521 -8.080 74.951 72.280 -8.245 72.013 2.953 75.385 96.153 196 54.041 -4.892 50.769 54.190 -5.330 47.855 2.951 51.005 95.504 197 37.291 -2.102 27.349 36.100 -2.415 23.698 3.854 27.430 94.394 198 20.047 1.076 1.865 18.010 0.500 -0.460 3.144 2.153 60.022 199 52.992 -62.907 39.847 50.900 -62.960 36.710 3.771 74.466 147.649 200 44.029 -47.586 30.202 42.678 -47.095 27.418 3.134 56.361 147.598 201 35.211 -32.267 19.159 34.455 -31.230 18.125 1.648 37.526 149.301 202 26.980 -16.066 9.803 26.233 -15.365 8.833 1.411 18.821 148.611 203 20.466 0.704 1.621 18.010 0.500 -0.460 3.225 1.767 66.517 204 52.908 -62.721 39.980 50.900 -62.960 36.710 3.845 74.379 147.486 205 43.965 -47.550 30.261 42.678 -47.095 27.418 3.154 56.362 147.527 206 35.087 -31.927 19.339 34.455 -31.230 18.125 1.536 37.328 148.796 207 26.972 -15.836 9.697 26.233 -15.365 8.833 1.232 18.569 148.519 208 20.294 0.770 1.635 18.010 0.500 -0.460 3.111 1.808 64.791 209 94.809 -1.830 6.976 95.410 -0.980 4.760 2.449 7.212 104.699 210 58.984 -30.966 -42.837 58.620 -30.630 -42.750 0.503 52.858 234.137 211 19.349 0.469 1.318 18.010 0.500 -0.460 2.226 1.398 70.426 212 94.944 -1.846 7.105 95.410 -0.980 4.760 2.543 7.341 104.567 213 58.971 -30.882 -42.895 58.620 -30.630 -42.750 0.456 52.855 234.248 214 19.176 0.272 0.555 18.010 0.500 -0.460 1.563 0.618 63.872 215 94.790 -1.802 6.934 95.410 -0.980 4.760 2.405 7.164 104.566 216 26.440 31.213 -44.153 25.720 31.350 -44.360 0.762 54.072 305.257 217 19.441 0.489 1.328 18.010 0.500 -0.460 2.290 1.415 69.769 218 94.798 -1.798 6.914 95.410 -0.980 4.760 2.385 7.145 104.579 219 26.313 31.108 -44.083 25.720 31.350 -44.360 0.697 53.954 305.210 220 19.377 0.342 0.924 18.010 0.500 -0.460 1.951 0.985 69.704 221 94.819 -1.802 6.895 95.410 -0.980 4.760 2.363 7.127 104.645 222 47.850 74.956 -6.176 48.130 75.200 -6.800 0.726 75.210 355.289 223 19.840 0.541 1.276 18.010 0.500 -0.460 2.523 1.386 67.045 224 94.770 -1.747 6.714 95.410 -0.980 4.760 2.194 6.937 104.589 225 47.821 75.208 -5.965 48.130 75.200 -6.800 0.890 75.444 355.465 226 19.694 0.611 1.037 18.010 0.500 -0.460 2.255 1.203 59.503 227 94.825 -1.776 6.746 95.410 -0.980 4.760 2.218 6.976 104.750 228 48.028 65.260 53.084 47.940 65.310 52.070 1.019 84.124 39.126 229 19.876 0.685 0.983 18.010 0.500 -0.460 2.366 1.198 55.119 230 94.757 -1.745 6.631 95.410 -0.980 4.760 2.124 6.857 104.740 231 48.025 65.348 52.692 47.940 65.310 52.070 0.629 83.945 38.880 232 19.948 0.440 0.952 18.010 0.500 -0.460 2.398 1.049 65.224 233 94.873 -1.904 7.232 95.410 -0.980 4.760 2.693 7.478 104.749 234 88.844 -7.513 99.977 90.370 -11.160 96.170 5.488 100.259 94.298 235 19.166 0.454 1.197 18.010 0.500 -0.460 2.021 1.280 69.252 236 94.774 -1.875 7.051 95.410 -0.980 4.760 2.540 7.296 104.892 237 88.796 -7.519 99.400 90.370 -11.160 96.170 5.115 99.684 94.326 238 19.338 0.352 0.841 18.010 0.500 -0.460 1.865 0.912 67.297 239 94.804 -1.889 7.199 95.410 -0.980 4.760 2.672 7.443 104.699 240 52.200 -63.279 39.813 50.900 -62.960 36.710 3.380 74.762 147.823 241 19.336 0.468 1.313 18.010 0.500 -0.460 2.214 1.394 70.403 242 94.841 -1.856 7.078 95.410 -0.980 4.760 2.542 7.317 104.693 243 52.201 -63.318 39.205 50.900 -62.960 36.710 2.837 74.473 148.235 244 19.327 0.532 0.810 18.010 0.500 -0.460 1.830 0.969 56.705 245 59.110 -30.725 -42.847 58.620 -30.630 -42.750 0.508 52.725 234.357 246 26.841 31.207 -43.931 25.720 31.350 -44.360 1.209 53.887 305.389 247 47.998 74.766 -5.917 48.130 75.200 -6.800 0.993 74.999 355.475 248 59.180 -30.727 -42.860 58.620 -30.630 -42.750 0.579 52.736 234.363 249 26.918 30.963 -43.680 25.720 31.350 -44.360 1.431 53.541 305.332 250 47.960 74.748 -5.974 48.130 75.200 -6.800 0.957 74.987 355.431 251 47.932 74.957 -6.193 48.130 75.200 -6.800 0.683 75.213 355.277 252 47.999 65.290 53.196 47.940 65.310 52.070 1.127 84.217 39.172 253 88.840 -7.715 98.748 90.370 -11.160 96.170 4.567 99.049 94.467 254 47.938 74.793 -6.065 48.130 75.200 -6.800 0.862 75.039 355.364 255 47.995 65.199 52.614 47.940 65.310 52.070 0.558 83.781 38.902 256 88.992 -7.768 98.150 90.370 -11.160 96.170 4.162 98.457 94.525 257 88.806 -7.564 99.378 90.370 -11.160 96.170 5.066 99.666 94.353 258 52.054 -63.456 39.583 50.900 -62.960 36.710 3.136 74.790 148.045 259 58.953 -30.907 -42.839 58.620 -30.630 -42.750 0.442 52.824 234.190 260 88.799 -7.554 99.130 90.370 -11.160 96.170 4.923 99.418 94.358 261 52.114 -63.302 39.247 50.900 -62.960 36.710 2.833 74.482 148.202 262 59.070 -30.873 -42.721 58.620 -30.630 -42.750 0.513 52.709 234.145 263 26.607 31.110 -43.675 25.720 31.350 -44.360 1.146 53.622 305.462 264 58.916 -30.902 -42.852 58.620 -30.630 -42.750 0.414 52.832 234.204 265 52.088 -63.025 39.540 50.900 -62.960 36.710 3.070 74.401 147.897 266 26.722 30.906 -43.822 25.720 31.350 -44.360 1.220 53.624 305.194 267 59.121 -30.882 -42.788 58.620 -30.630 -42.750 0.562 52.769 234.181 268 52.256 -63.141 39.105 50.900 -62.960 36.710 2.758 74.269 148.229 269 52.510 -62.813 39.840 50.900 -62.960 36.710 3.523 74.382 147.615 270 88.821 -7.677 99.211 90.370 -11.160 96.170 4.876 99.507 94.425 271 47.854 65.422 53.179 47.940 65.310 52.070 1.118 84.309 39.106 272 52.472 -62.907 39.443 50.900 -62.960 36.710 3.153 74.250 147.912 273 88.911 -7.687 98.611 90.370 -11.160 96.170 4.488 98.910 94.458 274 48.184 65.048 53.192 47.940 65.310 52.070 1.177 84.027 39.274 275 47.989 65.268 53.085 47.940 65.310 52.070 1.017 84.130 39.122 276 47.951 74.898 -5.916 48.130 75.200 -6.800 0.951 75.131 355.484 277 26.916 31.080 -43.714 25.720 31.350 -44.360 1.386 53.637 305.412 278 48.097 65.075 52.962 47.940 65.310 52.070 0.936 83.903 39.141 279 47.899 75.065 -6.424 48.130 75.200 -6.800 0.461 75.339 355.109 280 26.923 31.161 -44.194 25.720 31.350 -44.360 1.229 54.075 305.188 281 59.056 -30.846 -42.596 58.620 -30.630 -42.750 0.510 52.592 234.090 282 42.393 -0.024 -43.358 42.170 0.360 -43.555 0.485 43.358 269.969 283 26.201 31.341 -43.878 25.720 31.350 -44.360 0.681 53.922 305.538 284 35.879 52.754 -25.625 36.925 53.275 -25.580 1.170 58.649 334.092 285 47.697 75.104 -5.768 48.130 75.200 -6.800 1.123 75.325 355.608 286 59.077 -30.803 -42.830 58.620 -30.630 -42.750 0.495 52.757 234.277 287 42.530 0.124 -43.449 42.170 0.360 -43.555 0.443 43.449 270.163 288 26.456 31.114 -43.949 25.720 31.350 -44.360 0.875 53.848 305.297 289 36.149 53.085 -25.997 36.925 53.275 -25.580 0.901 59.109 333.908 290 47.813 74.760 -5.930 48.130 75.200 -6.800 1.026 74.995 355.465 291 47.681 75.057 -5.678 48.130 75.200 -6.800 1.217 75.271 355.674 292 48.009 70.346 23.542 48.035 70.255 22.635 0.912 74.181 18.503 293 47.948 65.385 53.204 47.940 65.310 52.070 1.137 84.297 39.135 294 69.043 27.507 75.803 69.155 27.075 74.120 1.742 80.640 70.055 295 88.877 -7.732 98.861 90.370 -11.160 96.170 4.607 99.162 94.472 296 47.708 75.078 -5.934 48.130 75.200 -6.800 0.971 75.312 355.481 297 48.137 70.269 23.468 48.035 70.255 22.635 0.839 74.085 18.468 298 47.993 65.415 53.124 47.940 65.310 52.070 1.060 84.269 39.080 299 69.008 27.609 75.411 69.155 27.075 74.120 1.405 80.306 69.892 300 88.950 -7.638 98.601 90.370 -11.160 96.170 4.509 98.897 94.429 301 88.888 -7.777 98.464 90.370 -11.160 96.170 4.348 98.770 94.516 302 69.977 -37.776 67.450 70.635 -37.060 66.440 1.402 77.308 119.251 303 52.753 -62.962 39.380 50.900 -62.960 36.710 3.250 74.263 147.976 304 56.064 -46.601 -2.263 54.760 -46.795 -3.020 1.520 46.656 182.780 305 59.454 -30.783 -42.623 58.620 -30.630 -42.750 0.858 52.577 234.163 306 88.698 -7.654 98.411 90.370 -11.160 96.170 4.484 98.708 94.447 307 69.890 -37.662 67.446 70.635 -37.060 66.440 1.389 77.249 119.179 308 52.671 -62.821 38.863 50.900 -62.960 36.710 2.791 73.870 148.258 309 55.892 -46.803 -2.516 54.760 -46.795 -3.020 1.239 46.871 183.077 310 59.528 -30.492 -42.511 58.620 -30.630 -42.750 0.949 52.316 234.349 ] def %LAB_KIi %************************************************************* /D57SERWi 2000 array def %max 57 series of 15 data (100x20) /D57SERWi [%BEG D57SERWi top data WANG_ELCD scaling data %0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %N S N1 N2 N3 N4 N5 NA1 NA2 NA3 NA4 NA5 DV*1i DV*2i WANG1 WANG2 %Serie 1, BAM test chart order 1:25 001 003 001 002 003 000 000 (W) (CW) (C) (0) (0) 26.45 26.39 (W03) (W04) 002 003 007 008 009 000 000 (W) (VW) (V) (0) (0) 29.54 41.95 (W13) (W14) 003 003 013 014 015 000 000 (W) (MW) (M) (0) (0) 31.00 32.74 (W23) (W24) 004 003 019 020 021 000 000 (W) (OW) (O) (0) (0) 28.01 37.64 (W33) (W34) 005 003 025 026 027 000 000 (W) (YW) (Y) (0) (0) 16.99 11.01 (W43) (W44) 006 003 031 032 033 000 000 (W) (LW) (L) (0) (0) 25.44 28.39 (W53) (W54) %Serie 2, BAM test chart order 1:25 007 003 037 038 039 000 000 (C) (CN) (N) (0) (0) 25.80 35.47 (W06) (W05) 008 003 043 044 045 000 000 (V) (VN) (N) (0) (0) 9.30 16.62 (W16) (W15) 009 003 049 050 051 000 000 (M) (MN) (N) (0) (0) 26.80 29.68 (W26) (W25) 010 003 055 056 057 000 000 (O) (ON) (N) (0) (0) 30.62 34.58 (W36) (W35) 011 003 061 062 063 000 000 (Y) (YN) (N) (0) (0) 29.85 41.77 (W46) (W45) 012 003 067 068 069 000 000 (L) (LN) (N) (0) (0) 18.79 35.12 (W56) (W55) %Serie 3, BAM test chart order 3:27 013 003 209 210 211 000 000 (W) (C) (N) (0) (0) 64.17 61.50 (W01) (W02) 014 003 215 216 217 000 000 (W) (V) (N) (0) (0) 67.03 32.91 (W11) (W12) 015 003 221 222 223 000 000 (W) (M) (N) (0) (0) 74.48 61.26 (W21) (W22) 016 003 227 228 229 000 000 (W) (O) (N) (0) (0) 71.77 67.21 (W31) (W32) 017 003 233 234 235 000 000 (W) (Y) (N) (0) (0) 37.26 86.10 (W41) (W42) 018 003 239 240 241 000 000 (W) (L) (N) (0) (0) 50.89 56.11 (W51) (W52) %Serie 4, BAM test chart order 3:27 019 003 245 246 247 000 000 (C) (V) (M) (0) (0) 41.67 45.01 (W09) (W19) 020 003 251 252 253 000 000 (M) (O) (Y) (0) (0) 28.41 72.32 (W29) (W39) 021 003 257 258 259 000 000 (Y) (L) (C) (0) (0) 64.80 40.72 (W49) (W59) 022 003 263 264 265 000 000 (V) (C) (L) (0) (0) 41.67 40.72 (W09) (W59) 023 003 269 270 271 000 000 (L) (Y) (O) (0) (0) 64.80 72.32 (W49) (W39) 024 003 275 276 277 000 000 (O) (M) (V) (0) (0) 28.41 45.01 (W29) (W19) %Serie 5, BAM test chart order 2:26 %values are missing 025 004 089 090 091 000 000 (W) (Wc) (CW) (0) (0) 26.45 0.00 (W03) (W00) 026 004 099 100 101 102 103 (W) (Wv) (VW) (0) (0) 29.54 0.00 (W13) (W00) 027 004 109 110 111 112 113 (W) (Wm) (MW) (0) (0) 31.00 0.00 (W23) (W00) 028 004 119 120 121 122 123 (W) (Wo) (OW) (0) (0) 28.01 0.00 (W33) (W00) 029 004 129 130 131 132 133 (W) (Wy) (YW) (0) (0) 16.99 0.00 (W43) (W00) 030 004 139 140 141 142 143 (W) (Wl) (LW) (0) (0) 25.44 0.00 (W53) (W00) %Serie 6, BAM test chart order 2:26 031 004 091 092 093 000 000 (CW) (Cw) (C) (0) (0) 26.39 0.00 (W04) (W00) 032 004 101 102 103 000 000 (VW) (Vw) (V) (0) (0) 41.95 0.00 (W14) (W00) 033 004 111 112 113 000 000 (MW) (Mw) (M) (0) (0) 32.74 0.00 (W24) (W00) 034 004 121 122 123 000 000 (OW) (Ow) (O) (0) (0) 37.64 0.00 (W34) (W00) 035 004 131 132 133 000 000 (YW) (Yw) (Y) (0) (0) 110.1 0.00 (W44) (W00) 036 004 141 142 143 000 000 (LW) (Lw) (L) (0) (0) 28.39 0.00 (W54) (W00) %Serie 7, BAM test chart order 2:26 037 004 149 150 151 000 000 (C) (Cn) (CN) (0) (0) 25.80 0.00 (W06) (W00) 038 004 159 160 161 000 000 (V) (Vn) (VN) (0) (0) 9.30 0.00 (W16) (W00) 039 004 169 170 171 000 000 (M) (Mn) (MN) (0) (0) 26.80 0.00 (W26) (W00) 040 004 179 180 181 000 000 (O) (On) (ON) (0) (0) 30.62 0.00 (W36) (W00) 041 004 189 190 191 000 000 (Y) (Yn) (YN) (0) (0) 29.85 0.00 (W46) (W00) 042 004 199 200 201 000 000 (L) (Ln) (LN) (0) (0) 18.79 0.00 (W56) (W00) %Serie 8, BAM test chart order 2:26 043 004 151 152 153 000 000 (CN) (Nc) (N) (0) (0) 61.50 0.00 (W02) (W00) 044 004 161 162 163 000 000 (VN) (Nv) (N) (0) (0) 32.91 0.00 (W12) (W00) 045 004 171 172 173 000 000 (MN) (Nm) (N) (0) (0) 61.26 0.00 (W22) (W00) 046 004 181 182 183 000 000 (ON) (No) (N) (0) (0) 67.21 0.00 (W32) (W00) 047 004 191 192 193 000 000 (YN) (Ny) (N) (0) (0) 86.10 0.00 (W42) (W00) 048 004 201 202 203 000 000 (LN) (Nl) (N) (0) (0) 56.11 0.00 (W52) (W00) %Serie 2N, BAM test chart order 1:25, 1 triplet 049 003 073 074 075 000 000 (W) (WN) (N) (0) (0) 10.00 9.00 (W61) (W62) %Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets 050 004 281 282 283 000 000 (C) (CV) (V) (0) (0) 41.67 0.00 (W09) (W00) 051 004 283 284 285 000 000 (V) (MV) (M) (0) (0) 45.01 0.00 (W19) (W00) 052 004 291 292 293 000 000 (M) (MO) (O) (0) (0) 28.41 0.00 (W29) (W00) 053 004 293 294 295 000 000 (O) (YO) (Y) (0) (0) 72.32 0.00 (W39) (W00) 054 004 301 302 303 000 000 (Y) (YL) (L) (0) (0) 64.80 0.00 (W49) (W00) 055 004 303 304 305 000 000 (L) (CL) (C) (0) (0) 40.72 0.00 (W59) (W00) %Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets 056 004 079 080 081 000 000 (W) (Wn) (WN) (0) (0) 10.00 0.00 (W61) (W00) 057 004 081 082 083 000 000 (WN) (Nw) (N) (0) (0) 9.00 0.00 (W62) (W00) ] def %END D57SERWi %************************************************************* /D57SERVia 2000 array def %max 57 series of 15 data (100x20) /D57SERVia [%BEG D57SERVia top data VIK_ELCD scaling data %0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %N S N1 N2 N3 N4 N5 NA1 NA2 NA3 NA4 NA5 DV*1i DV*2i VIK1 VIK2 %Serie 1, BAM test chart order 1:25 001 003 001 002 003 000 000 (W) (CW) (C) (0) (0) 25.24 39.23 (V01) (V02) 002 003 007 008 009 000 000 (W) (VW) (V) (0) (0) 33.11 46.66 (V03) (V04) 003 003 013 014 015 000 000 (W) (MW) (M) (0) (0) 30.92 45.35 (V05) (V06) 004 003 019 020 021 000 000 (W) (OW) (O) (0) (0) 26.55 46.66 (V07) (V08) 005 003 025 026 027 000 000 (W) (YW) (Y) (0) (0) 22.62 23.06 (V09) (V10) 006 003 031 032 033 000 000 (W) (LW) (L) (0) (0) 29.18 40.98 (V11) (V12) %Serie 2, BAM test chart order 1:25 007 003 037 038 039 000 000 (C) (CN) (N) (0) (0) 38.35 42.73 (V13) (V14) 008 003 043 044 045 000 000 (V) (VN) (N) (0) (0) 21.75 31.36 (V15) (V16) 009 003 049 050 051 000 000 (M) (MN) (N) (0) (0) 40.98 44.47 (V17) (V18) 010 003 055 056 057 000 000 (O) (ON) (N) (0) (0) 34.86 43.16 (V19) (V20) 011 003 061 062 063 000 000 (Y) (YN) (N) (0) (0) 35.73 47.97 (V21) (V22) 012 003 067 068 069 000 000 (L) (LN) (N) (0) (0) 36.17 42.29 (V23) (V24) %Serie 3, BAM test chart order 3:27 013 003 209 210 211 000 000 (W) (C) (N) (0) (0) 53.65 55.40 (V26) (V25) 014 003 215 216 217 000 000 (W) (V) (N) (0) (0) 65.02 29.61 (V28) (V27) 015 003 221 222 223 000 000 (W) (M) (N) (0) (0) 60.21 53.22 (V30) (V29) 016 003 227 228 229 000 000 (W) (O) (N) (0) (0) 58.46 48.84 (V32) (V31) 017 003 233 234 235 000 000 (W) (Y) (N) (0) (0) 37.38 61.52 (V34) (V33) 018 003 239 240 241 000 000 (W) (L) (N) (0) (0) 55.84 45.35 (V36) (V35) %Serie 4, BAM test chart order 3:27 019 003 245 246 247 000 000 (C) (V) (M) (0) (0) 44.47 42.29 (V37) (V38) 020 003 251 252 253 000 000 (M) (O) (Y) (0) (0) 22.62 47.97 (V40) (V39) 021 003 257 258 259 000 000 (Y) (L) (C) (0) (0) 46.22 31.36 (V41) (V42) 022 003 263 264 265 000 000 (V) (C) (L) (0) (0) 48.41 30.49 (V44) (V43) 023 003 269 270 271 000 000 (L) (Y) (O) (0) (0) 51.03 53.65 (V46) (V45) 024 003 275 276 277 000 000 (O) (M) (V) (0) (0) 23.49 48.84 (V47) (V48) %Serie 5, BAM test chart order 2:26 %dummy 26.00: values are missing 025 003 089 090 091 000 000 (W) (Wc) (CW) (0) (0) 25.24 26.00 (V01) (V00) 026 003 099 100 101 000 000 (W) (Wv) (VW) (0) (0) 33.11 26.00 (V03) (V00) 027 003 109 110 111 000 000 (W) (Wm) (MW) (0) (0) 30.92 26.00 (V05) (V00) 028 003 119 120 121 000 000 (W) (Wo) (OW) (0) (0) 26.55 26.00 (V07) (V00) 029 003 129 130 131 000 000 (W) (Wy) (YW) (0) (0) 22.62 26.00 (V09) (V00) 030 003 139 140 141 000 000 (W) (Wl) (LW) (0) (0) 29.18 26.00 (V11) (V00) %Serie 6, BAM test chart order 2:26 031 003 091 092 093 000 000 (CW) (Cw) (C) (0) (0) 22.62 27.87 (V62) (V61) 032 003 101 102 103 000 000 (VW) (Vw) (V) (0) (0) 26.99 33.98 (V64) (V63) 033 003 111 112 113 000 000 (MW) (Mw) (M) (0) (0) 28.30 35.73 (V66) (V65) 034 003 121 122 123 000 000 (OW) (Ow) (O) (0) (0) 24.37 33.98 (V68) (V67) 035 003 131 132 133 000 000 (YW) (Yw) (Y) (0) (0) 18.25 20.00 (V70) (V69) 036 003 141 142 143 000 000 (LW) (Lw) (L) (0) (0) 23.49 32.24 (V72) (V71) %Serie 7, BAM test chart order 2:26 037 003 149 150 151 000 000 (C) (Cn) (CN) (0) (0) 29.61 28.74 (V74) (V73) 038 003 159 160 161 000 000 (V) (Vn) (VN) (0) (0) 19.56 18.25 (V76) (V75) 039 003 169 170 171 000 000 (M) (Mn) (MN) (0) (0) 35.73 27.87 (V78) (V77) 040 003 179 180 181 000 000 (O) (On) (ON) (0) (0) 37.48 26.12 (V80) (V79) 041 003 189 190 191 000 000 (Y) (Yn) (YN) (0) (0) 38.35 30.49 (V82) (V81) 042 003 199 200 201 000 000 (L) (Ln) (LN) (0) (0) 33.11 26.99 (V84) (V83) %Serie 8, BAM test chart order 2:26 043 003 151 152 153 000 000 (CN) (Nc) (N) (0) (0) 37.48 26.12 (V86) (V85) 044 003 161 162 163 000 000 (VN) (Nv) (N) (0) (0) 20.43 18.25 (V88) (V87) 045 003 171 172 173 000 000 (MN) (Nm) (N) (0) (0) 34.86 28.30 (V90) (V89) 046 003 181 182 183 000 000 (ON) (No) (N) (0) (0) 33.98 27.87 (V92) (V91) 047 003 191 192 193 000 000 (YN) (Ny) (N) (0) (0) 39.67 34.86 (V94) (V93) 048 003 201 202 203 000 000 (LN) (Nl) (N) (0) (0) 32.24 26.12 (V96) (V95) %Serie 2N, BAM test chart order 1:25, 1 triplet 049 003 073 074 075 000 000 (W) (WN) (N) (0) (0) 40.10 36.61 (V97) (V98) %Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets 050 004 281 282 283 000 000 (C) (CV) (V) (0) (0) 44.47 0.00 (V37) (V00) 051 004 283 284 285 000 000 (V) (MV) (M) (0) (0) 42.29 0.00 (V38) (V00) 052 004 291 292 293 000 000 (M) (MO) (O) (0) (0) 22.62 0.00 (V40) (V00) 053 004 293 294 295 000 000 (O) (YO) (Y) (0) (0) 47.97 0.00 (V39) (V00) 054 004 301 302 303 000 000 (Y) (YL) (L) (0) (0) 46.22 0.00 (V41) (V00) 055 004 303 304 305 000 000 (L) (CL) (C) (0) (0) 31.36 0.00 (V42) (V00) %Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets 056 004 079 080 081 000 000 (W) (Wn) (WN) (0) (0) 40.10 0.00 (V97) (V00) 057 004 081 082 083 000 000 (WN) (Nw) (N) (0) (0) 36.61 0.00 (V98) (V00) ] def %END D57SERVia %************************************************************* /D57SERVi 2000 array def %max 57 series of 15 data (100x20) /D57SERVi [%BEG D57SERVi top data VIK_ELCD scaling data %0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %N S N1 N2 N3 N4 N5 NA1 NA2 NA3 NA4 NA5 DV*1i DV*2i VIK1 VIK2 %Serie 1, BAM test chart order 1:25 001 003 001 002 003 000 000 (W) (CW) (C) 6.06 7.92 25.24 39.23 (V01) (V02) 002 003 007 008 009 000 000 (W) (VW) (V) 3.03 7.44 33.11 46.66 (V03) (V04) 003 003 013 014 015 000 000 (W) (MW) (M) 4.15 7.21 30.92 45.35 (V05) (V06) 004 003 019 020 021 000 000 (W) (OW) (O) 6.27 5.35 26.55 46.66 (V07) (V08) 005 003 025 026 027 000 000 (W) (YW) (Y) 5.39 10.8 22.62 23.06 (V09) (V10) 006 003 031 032 033 000 000 (W) (LW) (L) 4.58 7.82 29.18 40.98 (V11) (V12) %Serie 2, BAM test chart order 1:25 007 003 037 038 039 000 000 (C) (CN) (N) 12.1 5.67 38.35 42.73 (V13) (V14) 008 003 043 044 045 000 000 (V) (VN) (N) 6.42 9.50 21.75 31.36 (V15) (V16) 009 003 049 050 051 000 000 (M) (MN) (N) 9.08 7.82 40.98 44.47 (V17) (V18) 010 003 055 056 057 000 000 (O) (ON) (N) 10.7 9.31 34.86 43.16 (V19) (V20) 011 003 061 062 063 000 000 (Y) (YN) (N) 10.0 6.88 35.73 47.97 (V21) (V22) 012 003 067 068 069 000 000 (L) (LN) (N) 9.87 10.7 36.17 42.29 (V23) (V24) %Serie 3, BAM test chart order 3:27 013 003 209 210 211 000 000 (W) (C) (N) 7.29 5.77 53.65 55.40 (V26) (V25) 014 003 215 216 217 000 000 (W) (V) (N) 6.27 11.1 65.02 29.61 (V28) (V27) 015 003 221 222 223 000 000 (W) (M) (N) 8.91 6.30 60.21 53.22 (V30) (V29) 016 003 227 228 229 000 000 (W) (O) (N) 8.56 9.81 58.46 48.84 (V32) (V31) 017 003 233 234 235 000 000 (W) (Y) (N) 17.1 8.41 37.38 61.52 (V34) (V33) 018 003 239 240 241 000 000 (W) (L) (N) 7.62 10.8 55.84 45.35 (V36) (V35) %Serie 4, BAM test chart order 3:27 019 003 245 246 247 000 000 (C) (V) (M) 11.2 13.7 44.47 42.29 (V37) (V38) 020 003 251 252 253 000 000 (M) (O) (Y) 6.30 11.1 22.62 47.97 (V40) (V39) 021 003 257 258 259 000 000 (Y) (L) (C) 10.3 8.29 46.22 31.36 (V41) (V42) 022 003 263 264 265 000 000 (V) (C) (L) 9.87 11.3 48.41 30.49 (V44) (V43) 023 003 269 270 271 000 000 (L) (Y) (O) 10.2 9.52 51.03 53.65 (V46) (V45) 024 003 275 276 277 000 000 (O) (M) (V) 10.6 11.3 23.49 48.84 (V47) (V48) %Serie 5, BAM test chart order 2:26 %dummy 26.00: values are missing 025 004 089 090 091 000 000 (W) (Wc) (CW) 6.06 6.06 25.24 0.481 (V01) (V00) 026 004 099 100 101 000 000 (W) (Wv) (VW) 7.44 7.44 33.11 0.497 (V03) (V00) 027 004 109 110 111 000 000 (W) (Wm) (MW) 4.15 4.15 30.92 0.492 (V05) (V00) 028 004 119 120 121 000 000 (W) (Wo) (OW) 6.27 6.27 26.55 0.493 (V07) (V00) 029 004 129 130 131 000 000 (W) (Wy) (YW) 5.39 5.39 22.62 0.358 (V09) (V00) 030 004 139 140 141 000 000 (W) (Wl) (LW) 4.58 4.58 29.18 0.492 (V11) (V00) %Serie 6, BAM test chart order 2:26 031 003 091 092 093 000 000 (CW) (Cw) (C) 6.30 12.2 22.62 27.87 (V62) (V61) 032 003 101 102 103 000 000 (VW) (Vw) (V) 7.21 11.3 26.99 33.98 (V64) (V63) 033 003 111 112 113 000 000 (MW) (Mw) (M) 8.76 10.0 28.30 35.73 (V66) (V65) 034 003 121 122 123 000 000 (OW) (Ow) (O) 7.31 10.8 24.37 33.98 (V68) (V67) 035 003 131 132 133 000 000 (YW) (Yw) (Y) 3.27 7.10 18.25 20.00 (V70) (V69) 036 003 141 142 143 000 000 (LW) (Lw) (L) 6.06 11.2 23.49 32.24 (V72) (V71) %Serie 7, BAM test chart order 2:26 037 003 149 150 151 000 000 (C) (Cn) (CN) 8.29 8.48 29.61 28.74 (V74) (V73) 038 003 159 160 161 000 000 (V) (Vn) (VN) 4.58 3.27 19.56 18.25 (V76) (V75) 039 003 169 170 171 000 000 (M) (Mn) (MN) 9.50 12.2 35.73 27.87 (V78) (V77) 040 003 179 180 181 000 000 (O) (On) (ON) 5.10 11.2 37.48 26.12 (V80) (V79) 041 003 189 190 191 000 000 (Y) (Yn) (YN) 12.1 8.65 38.35 30.49 (V82) (V81) 042 003 199 200 201 000 000 (L) (Ln) (LN) 10.3 10.3 33.11 26.99 (V84) (V83) %Serie 8, BAM test chart order 2:26 043 003 151 152 153 000 000 (CN) (Nc) (N) 7.62 9.08 37.48 26.12 (V86) (V85) 044 003 161 162 163 000 000 (VN) (Nv) (N) 6.69 3.27 20.43 18.25 (V88) (V87) 045 003 171 172 173 000 000 (MN) (Nm) (N) 9.08 6.27 34.86 28.30 (V90) (V89) 046 003 181 182 183 000 000 (ON) (No) (N) 9.73 9.73 33.98 27.87 (V92) (V91) 047 003 191 192 193 000 000 (YN) (Ny) (N) 6.74 12.6 39.67 34.86 (V94) (V93) 048 003 201 202 203 000 000 (LN) (Nl) (N) 10.2 9.08 32.24 26.12 (V96) (V95) %Serie 2N, BAM test chart order 1:25, 1 triplet 049 003 073 074 075 000 000 (W) (WN) (N) (0) (0) 40.10 36.61 (V97) (V98) %not used %Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets 050 004 281 282 283 000 000 (C) (CV) (V) (0) (0) 44.47 0.00 (V37) (V00) 051 004 283 284 285 000 000 (V) (MV) (M) (0) (0) 42.29 0.00 (V38) (V00) 052 004 291 292 293 000 000 (M) (MO) (O) (0) (0) 22.62 0.00 (V40) (V00) 053 004 293 294 295 000 000 (O) (YO) (Y) (0) (0) 47.97 0.00 (V39) (V00) 054 004 301 302 303 000 000 (Y) (YL) (L) (0) (0) 46.22 0.00 (V41) (V00) 055 004 303 304 305 000 000 (L) (CL) (C) (0) (0) 31.36 0.00 (V42) (V00) %Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets 056 004 079 080 081 000 000 (W) (Wn) (WN) (0) (0) 40.10 0.00 (V97) (V00) 057 004 081 082 083 000 000 (WN) (Nw) (N) (0) (0) 36.61 0.00 (V98) (V00) ] def %END D57SERVi /d_CIELABi 2800 array def /d_CIELCHi 2800 array def /d_C94LCHi 2800 array def /d_CMCLCHi 2800 array def /d_CM2LCHi 2800 array def /d_C00LCHi 2800 array def /d_C85LCHi 2800 array def /d_C77LCHi 2800 array def /d_C78LCHi 2800 array def /d_C79LCHi 2800 array def /d_CIELABmi 2800 array def /d_CIELCHmi 2800 array def /d_C94LCHmi 2800 array def /d_CMCLCHmi 2800 array def /d_CM2LCHmi 2800 array def /d_C00LCHmi 2800 array def /d_C85LCHmi 2800 array def /d_C77LCHmi 2800 array def /d_C78LCHmi 2800 array def /d_C79LCHmi 2800 array def /D13 1 3 div def /D841_108 841 108 div def /D4_29 4 29 div def /D6_29 6 29 div 3 exp def /proc_coldiff {%BEG procedure proc_coldiff proc_coldiff_WK58.PS 150529 %calculates CIE colour data and differences for 10 colour spaces %BEG CIELAB/CIELCH /FL 0.000001 def X0 XW div D6_29 gt {/FXXN0 X0 XW div 0.0001 add D13 exp def} {/FXXN0 D841_108 X0 XW div mul D4_29 add def} ifelse Y0 YW div D6_29 gt {/FYYN0 Y0 YW div 0.0001 add D13 exp def} {/FYYN0 D841_108 Y0 YW div mul D4_29 add def} ifelse Z0 ZW div D6_29 gt {/FZZN0 Z0 ZW div 0.0001 add D13 exp def} {/FZZN0 D841_108 Z0 ZW div mul D4_29 add def} ifelse /CIEL*0 116. FYYN0 mul 16. sub def /CIEa*0 500. FXXN0 FYYN0 sub mul def /CIEb*0 200. FYYN0 FZZN0 sub mul def /CIEC*ab0 CIEa*0 dup mul CIEb*0 dup mul add 0.0001 add sqrt def /CIEhab0 CIEb*0 CIEa*0 0.0001 add atan def X1 XW div D6_29 gt {/FXXN1 X1 XW div 0.0001 add D13 exp def} {/FXXN1 D841_108 X1 XW div mul D4_29 add def} ifelse Y1 YW div D6_29 gt {/FYYN1 Y1 YW div 0.0001 add D13 exp def} {/FYYN1 D841_108 Y1 YW div mul D4_29 add def} ifelse Z1 ZW div D6_29 gt {/FZZN1 Z1 ZW div 0.0001 add D13 exp def} {/FZZN1 D841_108 Z1 ZW div mul D4_29 add def} ifelse /CIEL*1 116. FYYN1 mul 16. sub def /CIEa*1 500. FXXN1 FYYN1 sub mul def /CIEb*1 200. FYYN1 FZZN1 sub mul def /CIEC*ab1 CIEa*1 dup mul CIEb*1 dup mul add 0.0001 add sqrt def /CIEhab1 CIEb*1 CIEa*1 0.0001 add atan def %mixed terms with *0 sn *1: /d_CIEL* CIEL*1 CIEL*0 sub def /d_CIEa* CIEa*1 CIEa*0 sub def /d_CIEb* CIEb*1 CIEb*0 sub def d_CIELABi i d_CIEL* dup mul d_CIEa* dup mul add d_CIEb* dup mul add 0.00000001 add sqrt put /a_CIELAB 1.26 def /b_CIELAB 0.55 def d_CIELABmi i d_CIELABi i get b_CIELAB exp a_CIELAB mul put /d_CIEh CIEhab1 CIEhab0 sub def %see CIEDE2000 page 4 CIEC*ab1 CIEC*ab0 mul 0 eq {/d_CIEh 0 def} if %CIEC*ab1 x CIEC*ab0 =0 CIEC*ab1 CIEC*ab0 mul 0 ne d_CIEh 180 gt and {/d_CIEh d_CIEh 360 sub def} if CIEC*ab1 CIEC*ab0 mul 0 ne d_CIEh -180 lt and {/d_CIEh d_CIEh 360 add def} if /d_CIEL CIEL*1 CIEL*0 sub def /d_CIECab CIEC*ab1 CIEC*ab0 sub def /d_CIEHab CIEC*ab1 CIEC*ab0 mul 0.000001 add sqrt 2 mul d_CIEh 0.5 mul sin mul def d_CIELCHi i d_CIEL dup mul d_CIECab dup mul add d_CIEHab dup mul add 0.000001 add sqrt put %alternative: %for 2 an 10 degree observer, see Richter (1996) %a'=0,2191 b'=-0,08376 a'10=0,2193, b'10=-0,08417 %a'2 and a'10 used for both 12 and 190 degree observer %BEG LABD65_1976=C76 /S76L 1 def /S76A 1 def /S76B 1 def /K76L 1 def /K76A 1 def /K76B 1 def /AS2 0.2191 def /BS2 -0.08376 def %C76a'=AS2*(x/y)**(1/3) %C76b'=BS2*(z/y)**(1/3) %C76L*=L*CIE %C76a*=500*[C76a'-C76a'n]*Y**(1/3) %C76b*=500*[C76b'-C76b'n]*Y**(1/3) /C76a'0 X0 Y0 FL add div 0.3333 exp AS2 mul def /C76a'1 X1 Y1 FL add div 0.3333 exp AS2 mul def /C76a'n XW YW FL add div 0.3333 exp AS2 mul def /C76b'0 Z0 Y0 FL add div 0.3333 exp BS2 mul def /C76b'1 Z1 Y1 FL add div 0.3333 exp BS2 mul def /C76b'n ZW YW FL add div 0.3333 exp BS2 mul def /C76a*0 C76a'0 C76a'n sub 500 mul Y0 1 3 div exp mul def /C76a*1 C76a'1 C76a'n sub 500 mul Y1 1 3 div exp mul def /C76b*0 C76b'0 C76b'n sub 500 mul Y0 1 3 div exp mul def /C76b*1 C76b'1 C76b'n sub 500 mul Y1 1 3 div exp mul def %name d_CIELCHi instead of d_LABD65i 1976 d_CIELCHi i CIEL*1 CIEL*0 sub K76L div S76L div dup mul C76a*1 C76a*0 sub K76A div S76A div dup mul add C76b*1 C76b*0 sub K76B div S76B div dup mul add 0.00000001 add sqrt put %END LABD65_1976=C76 /a_CIELCH 1.26 def /b_CIELCH 0.55 def d_CIELCHmi i d_CIELCHi i get b_CIELCH exp a_CIELCH mul put %BEG CIELAB/CIELCH %BEG CIE94 /S94L 1 def /S94C 1 0.045 CIEC*ab0 mul add def /S94H 1 0.015 CIEC*ab0 mul add def /K94L 1 def /K94C 1 def /K94H 1 def /LC94*0 CIEL*0 K94L div S94L div def /LC94*1 CIEL*1 K94L div S94L div def /CC94*ab0 CIEC*ab0 K94C div S94C div def /CC94*ab1 CIEC*ab1 K94C div S94C div def d_C94LCHi i CIEL*1 CIEL*0 sub K94L div S94L div dup mul CIEC*ab1 CIEC*ab0 sub K94C div S94C div dup mul add d_CIEHab K94H div S94H div dup mul add 0.00000001 add sqrt put /a_C94LCH 1.41 def /b_C94LCH 0.70 def d_C94LCHmi i d_C94LCHi i get b_C94LCH exp a_C94LCH mul put %END CIE94 %BEG CMC(l:c=1:1) %special mean m of two samples for SCML, SCMC, TCMC /CIEL*0m CIEL*0 CIEL*1 add 0.5 mul def /CMCC0S CIEC*ab0 def /CMCC1S CIEC*ab1 def /CIEC*ab0m CMCC0S CMCC1S add 0.5 mul def CIEC*ab0 0 eq {/CMCh0S 0 def} {/CMCh0S CIEb*0 CIEa*0 0.0001 add atan def } ifelse CIEC*ab1 0 eq {/CMCh1S 0 def} {/CMCh1S CIEb*1 CIEa*1 0.0001 add atan def } ifelse %beg special EQUATION (11) TO (14) /d_CMChS0 CMCh1S CMCh0S sub def %see CIEDE2000 page 4 CMCC1S CMCC0S mul 0 eq {/d_CMChS 0 def} if %CIEC*ab1 x CIEC*ab0 =0 CMCC1S CMCC0S mul 0 ne d_CMChS0 abs 180 le and {/d_CMChSm d_CMChS0 def} if CMCC1S CMCC0S mul 0 ne d_CMChS0 180 gt and {/d_CMChSm d_CMChS0 360 sub def} if CMCC1S CMCC0S mul 0 ne d_CMChS0 -180 lt and {/d_CMChSm d_CMChS0 360 add def} if %end special EQUATION (11) TO (14) %beg special EQUATION (23) TO (26) /a_CMChsm CMCh0S CMCh1S add 0.5 mul def /m_CMCCSm CMCC0S CMCC1S mul def d_CMChSm abs 180 le m_CMCCSm 0 ne and {/CMChSqm a_CMChsm def} if d_CMChSm abs 180 gt a_CMChsm 360 le and m_CMCCSm 0 ne and {/CMChSqm CMCh0S CMCh1S add 360 add 0.5 mul def} if d_CMChSm abs 180 gt a_CMChsm 360 ge and m_CMCCSm 0 ne and {/CMChSqm CMCh0S CMCh1S add 360 sub 0.5 mul def} if m_CMCCSm 0 eq {/CMChSqm CMCh0S CMCh1S add def } if %end special EQUATION (23) TO (26) CIEL*0m 16 lt {/SCMLm 0.511 def} {/SCMLm 0.040975 CIEL*0m mul 0.01765 CIEL*0m mul 1 add div def } ifelse /SCMCm 0.0638 CIEC*ab0m mul 0.0131 CIEC*ab0m mul 1 add div 0.638 add def %beg special /FCMCm CIEC*ab0m dup mul dup mul CIEC*ab0m dup mul dup mul 1900 add div sqrt def CMChSqm 164 lt CMChSqm 345 gt or {/TCMCm CMChSqm 35 add cos 0.4 mul abs 0.36 add def} {/TCMCm CMChSqm 168 add cos 0.2 mul abs 0.56 add def} ifelse %end special /SCMHm TCMCm FCMCm mul 1 add FCMCm sub SCMCm mul def /KCML 1 def %=l /KCMC 1 def %=c /KCMH 1 def %1 /CMCL*0m CIEL*0 KCML div SCMLm div def /CMCL*1m CIEL*1 KCML div SCMLm div def /CMCC*ab0m CIEC*ab0 KCMC div SCMCm div def /CMCC*ab1m CIEC*ab1 KCMC div SCMCm div def d_CMCLCHi i CIEL*1 CIEL*0 sub KCML div SCMLm div dup mul CIEC*ab1 CIEC*ab0 sub KCMC div SCMCm div dup mul add d_CIEHab KCMH div SCMHm div dup mul add 0.00000001 add sqrt put /a_CMCLCH 1.34 def /b_CMCLCH 0.66 def d_CMCLCHmi i d_CMCLCHi i get b_CMCLCH exp a_CMCLCH mul put %END CMC(m:l:c=m:1:1)=CMC %BEG CM2(m:l:c=m:1:2)=CM2 /KM2L 1 def %=l /KM2C 2 def %=c /KM2H 1 def %1 /CM2L*0 CIEL*0 KM2L div SCMLm div def /CM2L*1 CIEL*1 KM2L div SCMLm div def /CM2C*ab0 CIEC*ab0 KM2C div SCMCm div def /CM2C*ab1 CIEC*ab1 KM2C div SCMCm div def d_CM2LCHi i CIEL*1 CIEL*0 sub KM2L div SCMLm div dup mul CIEC*ab1 CIEC*ab0 sub KM2C div SCMCm div dup mul add d_CIEHab KM2H div SCMHm div dup mul add 0.00000001 add sqrt put %END CM2(m:l:c=m:1:2)=CM2 %BEG CIEDE2000=C00 %beg special equation (7) /CIEC*ab CIEC*ab0 CIEC*ab1 add 0.5 mul def /DEG 1 CIEC*ab 7 exp CIEC*ab 7 exp 25 7 exp add div 0.000001 add sqrt sub 0.5 mul def %end special equation (7) %beg special EQUATION (1) TO (6) %0 /C00L0S CIEL*0 def /C00a0S 1 DEG add CIEa*0 mul def /C00b0S CIEb*0 def /C00C0S C00a0S dup mul C00b0S dup mul add 0.000001 add sqrt def C00C0S 0 eq {/C00h0S 0 def} {/C00h0S C00b0S C00a0S 0.0001 add atan def } ifelse %1 /C00L1S CIEL*1 def /C00a1S 1 DEG add CIEa*1 mul def /C00b1S CIEb*1 def /C00C1S C00a1S dup mul C00b1S dup mul add 0.000001 add sqrt def C00C1S 0 eq {/C00h1S 0 def} {/C00h1S C00b1S C00a1S 0.0001 add atan def } ifelse %end special EQUATION (1) TO (6) %beg special EQUATION (11) TO (14) /d_C00hS0 C00h1S C00h0S sub def %see CIEDE2000 page 4 C00C1S C00C0S mul 0 eq {/d_C00hS 0 def} if %CIEC*ab1 x CIEC*ab0 =0 C00C1S C00C0S mul 0 ne d_C00hS0 abs 180 le and {/d_C00hS d_C00hS0 def} if C00C1S C00C0S mul 0 ne d_C00hS0 180 gt and {/d_C00hS d_C00hS0 360 sub def} if C00C1S C00C0S mul 0 ne d_C00hS0 -180 lt and {/d_C00hS d_C00hS0 360 add def} if %end special EQUATION (11) TO (14) %beg special EQUATION (8) TO (10) /d_C00LS C00L1S C00L0S sub def /d_C00aS C00a1S C00a0S sub def /d_C00bS C00b1S C00b0S sub def /d_C00CS C00C1S C00C0S sub def /d_C00HS C00C0S C00C1S mul 0.000001 add sqrt 2 mul d_C00hS 0.5 mul sin mul def %end special EQUATION (8) TO (10) %beg special EQUATION (23) TO (26) /a_C00hs C00h0S C00h1S add 0.5 mul def /m_C00CS C00C0S C00C1S mul def d_C00hS abs 180 le m_C00CS 0 ne and {/C00hSq a_C00hs def} if d_C00hS abs 180 gt a_C00hs 360 le and m_C00CS 0 ne and {/C00hSq C00h0S C00h1S add 360 add 0.5 mul def} if d_C00hS abs 180 gt a_C00hs 360 ge and m_C00CS 0 ne and {/C00hSq C00h0S C00h1S add 360 sub 0.5 mul def} if m_C00CS 0 eq {/C00hSq C00h0S C00h1S add def } if %end special EQUATION (23) TO (26) %beg special EQUATIONS (16) TO (22) /C00LSq C00L0S C00L1S add 0.5 mul def /C00CSq C00C0S C00C1S add 0.5 mul def /C00SL C00LSq 50 sub dup mul 0.015 mul C00LSq 50 sub dup mul 20 add sqrt div 1 add def /C00SC 0.045 C00CSq mul 1 add def %beg special T, RT, d_D, RC /C00T C00hSq 30 sub cos -0.17 mul C00hSq 2 mul cos 0.24 mul add C00hSq 3 mul 6 add cos 0.32 mul add C00hSq 4 mul 63 sub cos 0.20 mul sub 1 add def /C00SH 0.015 C00CSq mul C00T mul 1 add def /C00RC C00CSq 7 exp C00CSq 7 exp 25 7 exp add 0.000001 add div 0.000001 add sqrt 2 mul def /expDT C00hSq 275 sub 25 div dup mul def /econst 2.718281 def /C00DT 30 econst expDT neg exp mul def /C00RT C00DT 2 mul sin neg C00RC mul def %end special T, RT, d_D, RC %end special EQUATIONS (16) TO (22) %beg special EQUATION (15) /C00KL 1.0 def /C00KC 1.0 def /C00KH 1.0 def /d_C00LSN d_C00LS C00KL div C00SL div def /d_C00CSN d_C00CS C00KC div C00SC div def /d_C00HSN d_C00HS C00KH div C00SH div def d_C00LCHi i d_C00LSN dup mul d_C00CSN dup mul add d_C00HSN dup mul add d_C00CSN d_C00HSN mul C00RT mul add 0.000001 add sqrt put /a_C00LCH 1.43 def /b_C00LCH 0.70 def d_C00LCHmi i d_C00LCHi i get b_C00LCH exp a_C00LCH mul put %end special EQUATION (15) %END CIEDE2000=C00 %BEG LABJND=C85 /Yq Y0 Y1 add 0.5 mul def /d_Y Y1 Y0 sub def /a085 X0 Y0 0.000001 add div def /b085 Z0 Y0 0.000001 add div 0.4 mul neg def /a185 X1 Y1 0.000001 add div def /b185 Z1 Y1 0.000001 add div 0.4 mul neg def /an85 XW YW 0.000001 add div def /bn85 ZW YW 0.000001 add div 0.4 mul neg def /d_a085 a085 an85 sub def /d_b085 b085 bn85 sub def /d_a185 a185 an85 sub def /d_b185 b185 bn85 sub def /a0"85 d_a085 d_a085 abs 0.5 mul 1 add div an85 add def /b0"85 d_b085 d_b085 abs 0.5 mul 1 add div bn85 add def /a1"85 d_a185 d_a185 abs 0.5 mul 1 add div an85 add def /b1"85 d_b185 d_b185 abs 0.5 mul 1 add div bn85 add def /d_Y Y1 Y0 sub def /d_a"85 a1"85 a0"85 sub def /d_b"85 b1"85 b0"85 sub def /s85 0.0170 def /q85 0.0058 def /g85 1.0000 def %not used /a0085 1.0 def /b0085 1.8 def /Y0085 1.5 def d_C85LCHi i d_Y dup mul a0085 d_a"85 mul Yq mul dup mul add b0085 d_b"85 mul Yq mul dup mul add 0.000001 add sqrt Y0085 mul q85 Yq mul s85 add div put /a_C85LCH 1.17 def /b_C85LCH 0.35 def d_C85LCHmi i d_C85LCHi i get b_C85LCH exp a_C85LCH mul put %END LABJND=C85 %BEG LABHNU_1977=C77 /S77L 1 def /S77A 1 def /S77B 1 def /K77L 1 def /K77A 1 def /K77B 1 def %C77a'=(x/y+1/6)**(1/3)/4 %C77b'=-(z/y+1/6)**(1/3)/12 %C77L*=L*CIE %C77a*=500*[C77a'-C77a'n]*Y**(1/3) %C77b*=500*[C77b'-C77b'n]*Y**(1/3) /C77a'0 X0 Y0 FL add div 1 6 div add 0.3333 exp 4 div def /C77a'1 X1 Y1 FL add div 1 6 div add 0.3333 exp 4 div def /C77a'n XW YW FL add div 1 6 div add 0.3333 exp 4 div def /C77b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def /C77b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def /C77b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def /C77a*0 C77a'0 C77a'n sub 500 mul Y0 1 3 div exp mul def /C77a*1 C77a'1 C77a'n sub 500 mul Y1 1 3 div exp mul def /C77b*0 C77b'0 C77b'n sub 500 mul Y0 1 3 div exp mul def /C77b*1 C77b'1 C77b'n sub 500 mul Y1 1 3 div exp mul def d_C77LCHi i CIEL*1 CIEL*0 sub K77L div S77L div dup mul C77a*1 C77a*0 sub K77A div S77A div dup mul add C77b*1 C77b*0 sub K77B div S77B div dup mul add 0.00000001 add sqrt put %END LABHNU_1977=C77 %BEG LABHNU1=C78 /S78L 1 def /S78A 1 def /S78B 1 def /K78L 1 def /K78A 1 def /K78B 1 def %C78a'=(x/y+1)/15 %C78b'=-(z/y+1/6)**(1/3)/12 %C78L*=L*CIE %C78a*=500*[C78a'-C78a'n]*Y**(1/3) %C78b*=500*[C78b'-C78b'n]*Y**(1/3) /C78a'0 X0 Y0 FL add div 1 add 15 div def /C78a'1 X1 Y1 FL add div 1 add 15 div def /C78a'n XW YW FL add div 1 add 15 div def /C78b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def /C78b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def /C78b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def /C78a*0 C78a'0 C78a'n sub 500 mul Y0 1 3 div exp mul def /C78a*1 C78a'1 C78a'n sub 500 mul Y0 1 3 div exp mul def /C78b*0 C78b'0 C78b'n sub 500 mul Y0 1 3 div exp mul def /C78b*1 C78b'1 C78b'n sub 500 mul Y0 1 3 div exp mul def d_C78LCHi i CIEL*1 CIEL*0 sub K78L div S78L div dup mul C78a*1 C78a*0 sub K78A div S78A div dup mul add C78b*1 C78b*0 sub K78B div S78B div dup mul add 0.00000001 add sqrt put %END LABHNU1_1978-C78 %BEG LABHNU2_1979=C79 /S79L 1 def /S79A 1 def /S79B 1 def /K79L 1 def /K79A 1 def /K79B 1 def %C79a'=(x/y+1/6)**(2/3)/15 %C79b'=-(z/y+1/6)**(1/3)/12 %C79L*=L*CIE %C79a*=500*[C79a'-C79a'n]*Y**(1/3) %C79b*=500*[C79b'-C79b'n]*Y**(1/3) /C79a'0 X0 Y0 FL add div 1 6 div add 0.6667 exp 15 div def /C79a'1 X1 Y1 FL add div 1 6 div add 0.6667 exp 15 div def /C79a'n XW YW FL add div 1 6 div add 0.6667 exp 15 div def /C79b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def /C79b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def /C79b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def /C79a*0 C79a'0 C79a'n sub 500 mul Y0 1 3 div exp mul def /C79a*1 C79a'1 C79a'n sub 500 mul Y1 1 3 div exp mul def /C79b*0 C79b'0 C79b'n sub 500 mul Y0 1 3 div exp mul def /C79b*1 C79b'1 C79b'n sub 500 mul Y1 1 3 div exp mul def d_C79LCHi i CIEL*1 CIEL*0 sub K79L div S79L div dup mul C79a*1 C79a*0 sub K79A div S79A div dup mul add C79b*1 C79b*0 sub K79B div S79B div dup mul add 0.00000001 add sqrt put %END LABHNU2_1979=C79 } bind def %END procedure proc_coldiff %%EndProlog gsave /lanind 0 def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind le {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind le {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind le {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /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 %see Kittelmann DWORK, page 9 /XWD6502 95.05 def /YWD6502 100.00 def /ZWD6502 108.90 def /XW XWD6502 def /YW YWD6502 def /ZW ZWD6502 def /FL 0.000001 def /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /CIEL*0i 310 array def /CIEa*0i 310 array def /CIEb*0i 310 array def /X0i 310 array def /Y0i 310 array def /Z0i 310 array def %calculate XYZ-values for 310 colours 0 1 309 {/i exch def %i=0,309 /i10 i 10 mul def CIEL*0i i LAB_KIi i10 1 add get put CIEa*0i i LAB_KIi i10 2 add get put CIEb*0i i LAB_KIi i10 3 add get put /X* {CIEL*0i i get 16 add 116 div CIEa*0i i get 500 div add} bind def /Y* {CIEL*0i i get 16 add 116 div} bind def /Z* {CIEL*0i i get 16 add 116 div CIEb*0i i get 200 div sub} bind def X0i i X* DecodeXYZ* XW mul put Y0i i Y* DecodeXYZ* YW mul put Z0i i Z* DecodeXYZ* ZW mul put } for %i=0,309 %************************************************************* /Wdata1 3500 array def %max 350x10 data /Wdata2 3500 array def /IM 056 def %(max IM=056; IM=46=without series C-V- and W-Wn-WN-Nw-N /IM0 113 def %(max IM=057)*2-1 = 057 X 2-1 %default data 0 1 IM0 {/i exch def %i=0,IM0 /i10 i 10 mul def 0 1 9 {/j exch def %j=0,9 Wdata1 i10 j add 1. put Wdata2 i10 j add 1. put } for %j=0,9 } for %i=0,IM0 /D57xSERi 2000 array def /xchart4 0 def %xchart4=0 and 1: calculation for WANG or VIK pair comparison data 0 1 IM {/ii exch def %ii=0,IM /i16 ii 16 mul def 0 1 15 {/j exch def %j=0,15 xchart4 0 eq {D57xSERi i16 j add D57SERWi i16 j add get put} if xchart4 1 eq {D57xSERi i16 j add D57SERVi i16 j add get put} if } for %j=0,15 } for %ii=0,IM /DV*1 200 array def /DV*2 200 array def /DVS1 200 array def /DVS2 200 array def %default data 0 1 IM {/ii exch def %ii=0,IM /i16 ii 16 mul def DV*1 ii 1. put %default DV*2 ii 1. put } for %ii=0,IM %for WANG and VIK 0 1 IM {/ii exch def %ii=0,IM /D57xSER12 D57xSERi i16 12 add get def /D57xSER13 D57xSERi i16 13 add get def DV*1 ii D57xSER12 put DV*2 ii D57xSER13 put xchart4 0 eq {%xchart4=0 %corection for WANG only D57xSER12 0 ne {%D57xSER12#0 DV*1 ii D57xSER12 42.62 div 1. 1.1322 div exp 10 mul put } if %D57xSER12#0 D57xSER13 0 ne {%D57xSER13#0 DV*2 ii D57xSER13 42.62 div 1. 1.1322 div exp 10 mul put } if %D57xSER13#0 } if %xchart4=0 %corection for WANG only } for %ii=0,IM /xchartl 5 def %0 1 5 {/xchartl exch def %xchartl=0,5 gsave 5 /Times-ISOL1 FS 215 85 moveto (XE390-8N) show 72 90 translate /ytit 550 def /yhoe 4000 def /yhoet yhoe ytit sub def /xwide 06000 def /ishow {-50 -100 rmoveto 200 /Times-ISOL1 FS show 0 100 rmoveto TM} bind def 0.01 MM 0.01 MM scale 15 setlinewidth 0.0 0.0 0.0 0.5 setcmykcolor 0 0 moveto xwide 0 rlineto 0 yhoet rlineto xwide neg 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmykcolor 0 0 moveto xwide 0 rlineto 0 yhoet rlineto xwide neg 0 rlineto closepath stroke /yt 300 def %y-Zeilenabstand for text /yd 400 def %y-Zeilenabstand for formula %Titeltext /xt1 0 def /yt1 300 def /S10 100 def /S11 800 def /S20 3250 def /S30 4000 def /Z10 2500 def /Z1C 2200 def /Z1V 1900 def /Z1M 1600 def /Z1O 1300 def /Z1Y 1000 def /Z1L 0700 def /Z1N 0400 def /Z1W 0100 def %HUE CIRCLE /xd 1550 def /yd 5000 def /xp 1550 def /yp 5000 def /xdN xd def /ydN yd 2000 sub def /xdW xd def /ydW yd def /xdR xd 2000 add def /ydR yd 1000 sub def /xm 600 def /xip xd xm 2 mul add def /yip ydN xm 2 mul add def /xi1 xd xm 1 mul sub def /yi1 ydW xm 0.5 mul sub def /xi2 xd xm 2 mul add def /yi2 ydN 400 sub def %************************************************************************* %constant hue planes /xt1 -1000 def /yt1 -2670 def xt1 yt1 translate /xpp xp 350 sub def 0 setgray xpp yp 0850 add moveto /xshift 3200 def TBIK (BAM) show TBK (\2555stufige Farbreihen gleichabst\344ndig in CIELAB) showde ( 5 step colour series equally spaced in CIELAB) showen TBS xpp yp 0600 add moveto xchart4 0 eq {%xchart4=0 (CIELAB Farbdifferenzen ) showde (CIELAB colour differences ) showen SS (D) show TBIS (E*) show TBV 0 -50 rmoveto (ab) show 0 50 rmoveto } if %xchart4=0 xchart4 1 eq {%xchart4=1 (visuelle Farbdifferenzen ) showde (visual colour differences ) showen SS (D) show TBIS (V*) show TBV 0 -50 rmoveto (Vik) show 0 50 rmoveto } if %xchart4=1 /xfact 2000 100 div def /yfact 2000 100 div def /yshift 0800 def /xpW xpp def /ypW yp 200 sub def /ym 0 def /ix -1 def /cwdif4 7 array def /cwdif2 7 array def /cwdif1 7 array def /cndif4 7 array def /cndif2 7 array def /cndif1 7 array def /cwdifx 7 array def /cndifx 7 array def /cwstd4 7 array def /cwstd2 7 array def /cwstd1 7 array def /cnstd4 7 array def /cnstd2 7 array def /cnstd1 7 array def /cwstdx 7 array def /cnstdx 7 array def /wName 7 array def /nName 7 array def /DLAB21ik 7 array def /DLAB32ik 7 array def /DV*1ik 7 array def /DV*2ik 7 array def /DVS1ik 7 array def /DVS2ik 7 array def %default 0 1 6 {/i exch def cwdif4 i 4 put cwdif2 i 2 put cwdif1 i 1 put cndif4 i 40 put cndif2 i 20 put cndif1 i 10 put wName i (W) put nName i (N) put } for /ik 0 def 0 1 6 {/ik exch def %ik=0,6 %7 series %025 W-Wc-CW 089-090-091 %031 CW-Cw-C 091-092-093 %037 C-Cn-CN 149-150-151 %043 CN-Nc-N 151-152-153 %001 W-CW-C 001-002-003 %007 C-CN-N 037-038-039 %013 W-C-N 209-210-211 ik 0 eq {/ii 025 1 sub def} if ik 1 eq {/ii 031 1 sub def} if ik 2 eq {/ii 037 1 sub def} if ik 3 eq {/ii 043 1 sub def} if ik 4 eq {/ii 001 1 sub def} if ik 5 eq {/ii 007 1 sub def} if ik 6 eq {/ii 013 1 sub def} if %6 series/figures /ii ii xchartl add def /i16 ii 16 mul def /S D57xSERi i16 1 add get def S 4 eq {%S=4 /DREL D57xSERi i16 13 add get def DV*1ik ik D57xSERi i16 12 add get DREL mul put DV*2ik ik D57xSERi i16 12 add get 1 DREL sub mul put } if %S=4 S 3 eq {%S=3 DV*1ik ik D57xSERi i16 12 add get put DV*2ik ik D57xSERi i16 13 add get put } if %S=3 %always standard deviation DVS1ik ik D57xSERi i16 10 add get put DVS2ik ik D57xSERi i16 11 add get put /N1 D57xSERi i16 2 add get 1 sub def %Nx-count STARTs at "1" /N2 D57xSERi i16 3 add get 1 sub def /N3 D57xSERi i16 4 add get 1 sub def ik 0 eq {wName 0 D57xSERi i16 7 add get put wName 1 D57xSERi i16 8 add get put wName 2 D57xSERi i16 9 add get put} if ik 1 eq {wName 3 D57xSERi i16 8 add get put wName 4 D57xSERi i16 9 add get put} if ik 2 eq {nName 0 D57xSERi i16 7 add get put nName 1 D57xSERi i16 8 add get put nName 2 D57xSERi i16 9 add get put} if ik 3 eq {nName 3 D57xSERi i16 8 add get put nName 4 D57xSERi i16 9 add get put} if /X10 X0i N1 get def /Y10 Y0i N1 get def /Z10 Z0i N1 get def /X20 X0i N2 get def /Y20 Y0i N2 get def /Z20 Z0i N2 get def /X30 X0i N3 get def /Y30 Y0i N3 get def /Z30 Z0i N3 get def 0 1 1 {/i exch def %i=0,1 i 0 eq {%i=0,1 /X0 X20 def /Y0 Y20 def /Z0 Z20 def /X1 X10 def /Y1 Y10 def /Z1 Z10 def } if %i=0 i 1 eq {%i=1 /X0 X20 def /Y0 Y20 def /Z0 Z20 def /X1 X30 def /Y1 Y30 def /Z1 Z30 def } if %i=1 proc_coldiff } for %i=0,1 DLAB21ik ik d_CIELABi 0 get put DLAB32ik ik d_CIELABi 1 get put %025 ik=0 W-Wc-CW 089-090-091 %031 ik=1 CW-Cw-C 091-092-093 %037 ik=2 C-Cn-CN 149-150-151 %043 ik=3 CN-Nc-N 151-152-153 %001 ik=4 W-CW-C 001-002-003 %007 ik=5 C-CN-N 037-038-039 %013 ik=6 W-C-N 209-210-211 %/ioutk 1 def %ioutk 0 eq {%ioutk=0 xchart4 0 eq {%xchart4=0 ik 0 eq {cwdifx 0 DLAB21ik ik get put %W-Wc-CW cwdifx 1 DLAB32ik ik get put} if ik 1 eq {cwdifx 2 DLAB21ik ik get put %CW-Cw-C cwdifx 3 DLAB32ik ik get put} if ik 2 eq {cndifx 0 DLAB21ik ik get put %C-Cn-CN cndifx 1 DLAB32ik ik get put} if ik 3 eq {cndifx 2 DLAB21ik ik get put %CN-Nc-N cndifx 3 DLAB32ik ik get put} if ik 4 eq {cwdifx 4 DLAB21ik ik get put %W-CW-C cwdifx 5 DLAB32ik ik get put} if ik 5 eq {cndifx 4 DLAB21ik ik get put %C-CN-N cndifx 5 DLAB32ik ik get put} if ik 6 eq {cwdifx 6 DLAB21ik ik get put %W-C-N cndifx 6 DLAB32ik ik get put} if } if %xchart4=0 %} if %ioutk=0 %ioutk 1 eq {%ioutk=1 xchart4 1 eq {%xchart4=1 ik 0 eq {cwdifx 0 DV*1ik ik get put %W-Wc-CW cwdifx 1 DV*2ik ik get put} if ik 1 eq {cwdifx 2 DV*1ik ik get put %CW-Cw-C cwdifx 3 DV*2ik ik get put} if ik 2 eq {cndifx 0 DV*1ik ik get put %C-Cn-CN cndifx 1 DV*2ik ik get put} if ik 3 eq {cndifx 2 DV*1ik ik get put %CN-Nc-N cndifx 3 DV*2ik ik get put} if ik 4 eq {cwdifx 4 DV*1ik ik get put %W-CW-C cwdifx 5 DV*2ik ik get put} if ik 5 eq {cndifx 4 DV*1ik ik get put %C-CN-N cndifx 5 DV*2ik ik get put} if ik 6 eq {cwdifx 6 DV*1ik ik get put %W-C-N cndifx 6 DV*2ik ik get put} if ik 0 eq {cwstdx 0 DVS1ik ik get put %W-Wc-CW cwstdx 1 DVS2ik ik get put} if ik 1 eq {cwstdx 2 DVS1ik ik get put %CW-Cw-C cwstdx 3 DVS2ik ik get put} if ik 2 eq {cnstdx 0 DVS1ik ik get put %C-Cn-CN cnstdx 1 DVS2ik ik get put} if ik 3 eq {cnstdx 2 DVS1ik ik get put %CN-Nc-N cnstdx 3 DVS2ik ik get put} if ik 4 eq {cwstdx 4 DVS1ik ik get put %W-CW-C cwstdx 5 DVS2ik ik get put} if ik 5 eq {cnstdx 4 DVS1ik ik get put %C-CN-N cnstdx 5 DVS2ik ik get put} if ik 6 eq {cwstdx 6 DVS1ik ik get put %W-C-N cnstdx 6 DVS2ik ik get put} if } if %xchart4=1 %} if %ioutk=1 } for %ik=0,6 %7 series 0 1 3 {/ik exch def %ik=0,3 cwdif4 ik cwdifx ik get 0.49 add cvi put cndif4 ik cndifx ik get 0.49 add cvi put } for %ik=0,3 0 1 1 {/ik exch def %ik=0,1 cwdif2 ik cwdifx ik 4 add get 0.49 add cvi put cndif2 ik cndifx ik 4 add get 0.49 add cvi put } for %ik=0,1 cwdif1 0 cwdifx 6 get 0.49 add cvi put cndif1 0 cndifx 6 get 0.49 add cvi put xchart4 1 eq {%xchart4=1 0 1 3 {/ik exch def %ik=0,3 cwstd4 ik cwstdx ik get 0.49 add cvi put cnstd4 ik cnstdx ik get 0.49 add cvi put } for %ik=0,3 0 1 1 {/ik exch def %ik=0,1 cwstd2 ik cwstdx ik 4 add get 0.49 add cvi put cnstd2 ik cnstdx ik 4 add get 0.49 add cvi put } for %ik=0,1 cwstd1 0 cwstdx 6 get 0.49 add cvi put cnstd1 0 cnstdx 6 get 0.49 add cvi put } if %xchart4=1 %STOP5 newpath /k 0 def /j 0 def /i 0 def 0 1 2 {/k exch def %k=0,2 %three rows /ys yshift k mul def 0 1 1 {/j exch def %j=0,1 %left, right /xs xshift j mul def k 0 eq {TBS j 0 eq {%j=0 1 1 1 setrgbcolor xpp yp 0300 add moveto (helle Serie ) showde (light series ) showen wName 4 get show ( nach W) showde ( to W) showen } if %j=0 j 1 eq {%j=1 0 0 0 setrgbcolor xp 450 sub xshift add yp 0300 add moveto (dunkle Serie ) showde (dark series ) showen nName 0 get show ( nach N) showde ( to N) showen } if %j=1 } if %k=0 TS 0 0 0 setrgbcolor 0 1 4 {/i exch def %i=0,4 %five colours /xi xpW xm i mul add xs add def %NW /yi ypW ym i mul add ys sub def % xpW ypW moveto (START, i, wName) show % i cvishow % wName i get show k 0 eq {xi 100 sub yi 200 add moveto j 0 eq {wName 4 i sub get show} if j 1 eq {nName i get show} if newpath } if k 0 eq i 3 le and {xi 100 add yi 350 sub moveto j 0 eq {cwdif4 3 i sub get cvishow} if j 1 eq {cndif4 i get cvishow} if xchart4 1 eq {%xchart4=1 (\261) show %+/- j 0 eq {cwstd4 3 i sub get cvishow} if j 1 eq {cnstd4 i get cvishow} if } if %xchart4=1 newpath } if k 0 eq i 1 le and {xi 400 add i 500 mul add yi 1150 sub moveto j 0 eq {cwdif2 1 i sub get cvishow} if j 1 eq {cndif2 i get cvishow} if xchart4 1 eq {%xchart4=1 (\261) show %+/- j 0 eq {cwstd2 1 i sub get cvishow} if j 1 eq {cnstd2 i get cvishow} if } if %xchart4=1 newpath } if k 0 eq i 0 le and {xi 1000 add i 500 mul add yi 2000 sub moveto j 0 eq {cwdif1 0 get cvishow} if j 1 eq {cndif1 0 get cvishow} if xchart4 1 eq {%xchart4=1 (\261) show %+/- j 0 eq {cwstd1 0 get cvishow} if j 1 eq {cnstd1 0 get cvishow} if } if %xchart4=1 newpath } if i 0 eq i 4 eq or {0 0 0 setrgbcolor xi yi 140 0 360 arc fill } if j 0 eq {%j=0 /w i 4 div def xchartl 0 eq {w 1 1 setrgbcolor} if %C-W xchartl 1 eq {w w 1 setrgbcolor} if %V-W xchartl 2 eq {1 w 1 setrgbcolor} if %M-W xchartl 3 eq {1 w w setrgbcolor} if %O-W xchartl 4 eq {1 1 w setrgbcolor} if %Y-W xchartl 5 eq {w 1 w setrgbcolor} if %L-W } if %j=0 j 1 eq {%j=1 /w 1 i 4 div sub def xchartl 0 eq {0 w w setrgbcolor} if %C-N xchartl 1 eq {0 0 w setrgbcolor} if %V-N xchartl 2 eq {w 0 w setrgbcolor} if %M-N xchartl 3 eq {w 0 0 setrgbcolor} if %O-N xchartl 4 eq {w w 0 setrgbcolor} if %Y-N xchartl 5 eq {0 w 0 setrgbcolor} if %L-N } if %j=1 xi yi 070 0 360 arc fill i 0 eq i 4 eq or {0 0 0 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if k 0 eq {%k=0 i 1 ge i 3 le and {%k=0 and all i 0 0 0 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if %i=2 and k<2 } if %k=0 k 1 eq i 2 eq and {%k=1 and i=2 0 0 0 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if %k=1 and i=2 i 4 eq j 1 eq and {%i=4 and j=1 %cross in black N 1 1 1 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if %i=4 and j=1 } for %i=0,4 } for %j=0,1 } for %k=0,2 xt1 neg yt1 neg translate %************************************************************************* showpage grestore %} for %xchartl=0,5 %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 197 MM translate 10 /Times-ISOL1 FS 1 1 scale -77 -91 translate %%BeginDocument: Bild 12 %line 419 %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 06 MM sub 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 21 %line 429 %!PS-Adobe-3.0 EPSF-3.0 XE391-1N %%BoundingBox: 70 83 400 190 %START PDFDE011.EPS /pdfmark11 where {pop} {userdict /pdfmark11 /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://130.149.60.45/~farbmetrik/SE25/) /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, colour vision) /Creator (klaus.richter@mac.com) /CreationDate (D:2015110112000) /ModDate (D:2015110112000) /DOCINFO pdfmark11 [ /View [ /FitB ] /DOCVIEW pdfmark11 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /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 /TV {160 /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 /TIV {160 /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 /TBV {160 /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 /TBIV {160 /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 %%EndProlog gsave /nshow {TS show} bind def /kshow {TIS show} bind def /bshow {TBS show} bind def /jshow {TBIS show} bind def /ibshown {TBS -50 -50 rmoveto show 0 50 rmoveto TBS} bind def /ibshow0 {TBS -00 -50 rmoveto show 0 50 rmoveto TBS} bind def /ishown {TS -50 -50 rmoveto show 0 50 rmoveto TS } bind def /ishow0 {TS -00 -50 rmoveto show 0 50 rmoveto TS } bind def %40% kleiner /ns4 {250 /Times-ISOL1 FS show TK} bind def /ks4 {250 /TimesI-ISOL1 FS show TK} bind def /bs4 {250 /TimesB-ISOL1 FS show TK} bind def /js4 {250 /TimesBI-ISOL1 FS show TK} bind def /ss4 {250 /Symbol FS show TK} bind def /is4 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /es4 {200 /Times-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ib4 {200 /TimesB-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /eb4 {200 /TimesB-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ip4 {200 /Times-ISOL1 FS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def %60% kleiner /ns6 {200 /Times-ISOL1 FS show TS} bind def /ks6 {200 /TimesI-ISOL1 FS show TS} bind def /bs6 {200 /TimesB-ISOL1 FS show TS} bind def /js6 {200 /TimesBI-ISOL1 FS show TS} bind def /ss6 {200 /Symbol FS show TS} bind def /is6 {160 /Times-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /es6 {160 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ib6 {160 /TimesB-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /eb6 {160 /TimesB-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ip6 {160 /Times-ISOL1 FS 24 24 rmoveto (\267) show 24 -24 rmoveto TS} bind /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show} def %%EndProlog gsave /lanind 0 def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind le {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind le {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind le {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /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 /xchartl 0 def /xchart4 1 def %0 1 5 {/xchartl exch def %xchartl=0,5 gsave 5 /Times-ISOL1 FS 360 85 moveto (XE391-1N) show 72 90 translate /ytit 550 def /yhoe 4000 def /yhoet yhoe ytit sub def /xwide 11500 def /ishow {-50 -100 rmoveto 200 /Times-ISOL1 FS show 0 100 rmoveto TM} bind def 0.01 MM 0.01 MM scale 15 setlinewidth 0.0 0.0 0.0 0.0 setcmykcolor 0 0 moveto xwide 0 rlineto 0 yhoet rlineto xwide neg 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmykcolor 0 0 moveto xwide 0 rlineto 0 yhoet rlineto xwide neg 0 rlineto closepath stroke /yt 300 def %y-Zeilenabstand for text /yd 400 def %y-Zeilenabstand for formula %Spalten /S1 100 def /S2 1500 def /S3 2300 def /S4 5900 def /S5 7700 def /S6 8500 def /yz 400 def /yu5 7600 def /yu4 7100 def /yu3 5800 def /yu2 5800 def /yu1 5800 def /OXYZ 30 array def /OXYZ [ (18,74) (26,62) (68,54) %C (33,06) (16,90) (22,01) %M (68,06) (77,10) ( 9,03) %Y (33,13) (16,75) ( 2,68) %O ( 8,71) (19,18) ( 6,62) %L ( 7,17) ( 4,65) (21,41) %V (83,69) (88,60) (89,47) %W ( 2,42) ( 2,52) ( 2,81) %N (94,44) (100,00) (100,84) %W1 ( 0,02) ( 0,00) ( 0,12) %N0 ] def /OLAB 30 array def /OLAB [ (58,62) (-30,63) (-42,75) %C (48,13) ( 75,20) ( -6,80) %M (90,37) (-11,16) ( 96,17) %Y (47,94) ( 65,31) ( 52,07) %O (50,90) (-62,96) ( 36,71) %L (25,72) ( 31,35) (-44,36) %V (95,41) ( -0,98) ( 4,76) %W (18,01) ( 0,50) ( -0,46) %N (100,0) ( -1,07) ( 5,06) %W1 ( 0,01) ( 0,84) ( -1,68) %N0 ] def /DLAB 30 array def /DLAB [ (58,09) (-32,78) (-44,14) %C (46,88) ( 75,30) ( -8,74) %M (88,56) ( -6,91) ( 95,35) %Y (50,78) ( 66,45) ( 53,75) %O (49,24) (-60,02) ( 37,66) %L (28,18) ( 32,61) (-42,38) %V (94,50) ( -1,38) ( 5,57) %W (19,14) ( 4,32) ( 0,26) %N (100,0) ( 0,00) ( 0,00) %W1 ( 0,00) ( 0,00) ( 0,00) %N0 ] def /DELAB 10 array def /DELAB [ (2,62) %C (2,31) %M (4,69) %Y (3,49) %O (3,51) %L (3,40) %V (1,28) %W (4,05) %N (0,00) %W1 (0,00) %N0 ] def /OLABn 30 array def /OLABn [ 58.62 -30.63 -42.75 %C 25.72 31.35 -44.36 %V 48.13 75.20 -6.80 %M 47.94 65.31 52.07 %O 90.37 -11.16 96.17 %Y 50.90 -62.96 36.71 %L 95.41 -0.98 4.76 %W 18.01 0.50 -0.46 %N 100.0 -1.07 5.06 %W1 0.01 0.84 -1.68 %N0 ] def /DLABn 30 array def /DLABn [ 58.09 -32.78 -44.14 %C 28.18 32.61 -42.38 %V 46.88 75.30 -8.74 %M 50.78 66.45 53.75 %O 88.56 -6.91 95.35 %Y 49.24 -60.02 37.66 %L 94.50 -1.38 5.57 %W 19.14 4.32 0.26 %N 100.0 0.00 0.00 %W1 0.00 0.00 0.00 %N0 ] def /OLABa 50 array def /DLABa 50 array def /L*Wio OLABn 6 3 mul get def /a*Wio OLABn 6 3 mul 1 add get def /b*Wio OLABn 6 3 mul 2 add get def /L*Nio OLABn 7 3 mul get def /a*Nio OLABn 7 3 mul 1 add get def /b*Nio OLABn 7 3 mul 2 add get def 0 1 7 {/i exch def %i=0,7 /i3 i 3 mul def /i5 i 5 mul def /L*Xio OLABn i3 get def /a*Xio OLABn i3 1 add get def /b*Xio OLABn i3 2 add get def /l*CIE L*Xio L*Nio sub L*Wio L*Nio sub div def /a*s a*Wio a*Nio sub l*CIE mul def /b*s b*Wio b*Nio sub l*CIE mul def OLABa i5 OLABn i3 get put OLABa i5 1 add OLABn i3 1 add get a*Nio sub a*s sub put OLABa i5 2 add OLABn i3 2 add get b*Nio sub b*s sub put OLABa i5 3 add OLABa i5 1 add get dup mul OLABa i5 2 add get dup mul add 0.000001 add sqrt put OLABa i5 4 add OLABa i5 2 add get OLABa i5 1 add get 0.0000001 add atan put } for %i=0,7 /L*Wid DLABn 6 3 mul get def /a*Wid DLABn 6 3 mul 1 add get def /b*Wid DLABn 6 3 mul 2 add get def /L*Nid DLABn 7 3 mul get def /a*Nid DLABn 7 3 mul 1 add get def /b*Nid DLABn 7 3 mul 2 add get def 0 1 7 {/i exch def %i=0,7 /i3 i 3 mul def /i5 i 5 mul def /L*Xid DLABn i3 get def /a*Xid DLABn i3 1 add get def /b*Xid DLABn i3 2 add get def /l*CIE L*Xid L*Nid sub L*Wid L*Nid sub div def /a*s a*Wid a*Nid sub l*CIE mul def /b*s b*Wid b*Nid sub l*CIE mul def DLABa i5 DLABn i3 get put DLABa i5 1 add DLABn i3 1 add get a*Nid sub a*s sub put DLABa i5 2 add DLABn i3 2 add get b*Nid sub b*s sub put DLABa i5 3 add DLABa i5 1 add get dup mul DLABa i5 2 add get dup mul add 0.000001 add sqrt put DLABa i5 4 add DLABa i5 2 add get DLABa i5 1 add get 0.000001 add atan put } for %i=0,7 /LCh*O 24 array def %O=offset /LCh*O [59 54 236 %C 26 54 304 %V 48 76 353 %M 48 83 037 %O 90 92 096 %Y 51 72 150 %L 95 00 000 %W 18 00 000 %N ] def /LCh*D 24 array def %D=device /LCh*D [58 58 234 %C 28 52 303 %V 47 74 351 %M 51 82 038 %O 89 90 093 %Y 49 71 150 %L 95 00 000 %W 19 00 000 %N ] def /rgb*X 24 array def /rgb*X [0 1 1 0 0 1 1 0 1 1 0 0 1 1 0 0 1 0 1 1 1 0 0 0 ] def /rgb*Y 84 def %7x12=21x4 /rgb*Y [0.00 1.00 1.00 %C 0.00 0.75 1.00 0.00 0.50 1.00 0.00 0.25 1.00 0.00 0.00 1.00 %V 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 1.00 1.00 0.00 1.00 %M 1.00 0.00 0.75 1.00 0.00 0.50 1.00 0.00 0.25 1.00 0.00 0.00 %O 1.00 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 1.00 1.00 0.00 %Y 0.75 1.00 0.00 0.50 1.00 0.00 0.25 1.00 0.00 0.00 1.00 0.00 %L 0.00 1.00 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 1.00 1.00 %C ] def /tex*X 24 array def /tex*X [(cyan blue) (cyan) (C=C) (violet blue) (blue) (V=B) (magenta red) (magenta) (M=M) (orange red) (red) (O=R) (yellow) () (Y=Y) (leaf green) (green) (L=G) (white) () (W) (black) () (N) ] def /tex*B 8 array def /tex*B [(C) (V) (M) (O) (Y) (L) (W) (N)] def /LCh*X 24 array def 0 1 23 {/i exch def %i=0,23 xchart4 0 eq {LCh*X i LCh*O i get put} if xchart4 1 eq {LCh*X i LCh*D i get put} if } for %i=0,23 %definition of A for xchartl=0,1,2 /LCh*A 3 array def /rgb*A 3 array def /tex*A 3 array def /LCh*N 3 array def /rgb*N 3 array def /tex*N 3 array def /LCh*W 3 array def /rgb*W 3 array def /tex*W 3 array def 0 1 2 {/i exch def %i=0,2 /j3 xchartl 3 mul def LCh*A i LCh*X i j3 add get put rgb*A i rgb*X i j3 add get put tex*A i tex*X i j3 add get put } for %i=0,2 0 1 2 {/i exch def %i=0,2 LCh*N i LCh*X i 21 add get put rgb*N i rgb*X i 21 add get put tex*N i tex*X i 21 add get put LCh*W i LCh*X i 18 add get put rgb*W i rgb*X i 18 add get put tex*W i tex*X i 18 add get put } for %i=0,2 %Titeltext /xt1 0 def /yt1 300 def xt1 yt1 translate 100 2800 moveto TBIK (rgb) show (d) is4 TBK ( input and) showen (\255Ein-Ausgabe) showde TBIK ( LCh*) show (da) is4 TBK ( output of) showen (von) showde TBIK xchart4 0 eq {( Offset) show} if xchart4 1 eq {( BAM) show} if TBK ( colours) showen (\255Farben) showde /S10 100 def /S11 800 def /S20 3250 def /S30 4000 def /Z10 2500 def /Z1C 2200 def /Z1V 1900 def /Z1M 1600 def /Z1O 1300 def /Z1Y 1000 def /Z1L 0700 def /Z1N 0400 def /Z1W 0100 def S10 Z10 moveto TBK (Device colour) showen (Ger\344tefarbe) showde S20 Z10 moveto TBIK (rgb) show (d) is4 S30 Z10 moveto TBIK (LCh*) show (d) is4 %Z1C**************************** S10 Z1C moveto TBIK (C=C) show (d) is4 S11 Z1C moveto TK (Cyanblau (Cyan)) showde (cyan blue (cyan)) showen S20 Z1C moveto TBK (0 1 1) show S30 Z1C moveto TK LCh*X 0 get cvishow (, ) show LCh*X 1 get cvishow (, ) show TBK LCh*X 2 get cvishow TK %Z1V**************************** S10 Z1V moveto TBIK (V=B) show (d) ishow S11 Z1V moveto TK (Violetblau (Blau)) showde (violet blue (blue)) showen S20 Z1V moveto TBK (0 0 1) show S30 Z1V moveto TK LCh*X 3 get cvishow (, ) show LCh*X 4 get cvishow (, ) show TBK LCh*X 5 get cvishow TK %Z1M**************************** S10 Z1M moveto TBIK (M=M) show (d) is4 S11 Z1M moveto TK (Magentarot) showde (magenta red (magenta)) showen S20 Z1M moveto TBK (1 0 1) show S30 Z1M moveto TK LCh*X 6 get cvishow (, ) show LCh*X 7 get cvishow (, ) show TBK LCh*X 8 get cvishow %Z1O**************************** S10 Z1O moveto TBIK (O=R) show (d) is4 S11 Z1O moveto TK (Orangerot (Rot)) showde (orange red (red)) showen S20 Z1O moveto TBK (1 0 0) show S30 Z1O moveto TK LCh*X 09 get cvishow (, ) show LCh*X 10 get cvishow (, ) show TBK LCh*X 11 get cvishow TK %Z1Y**************************** S10 Z1Y moveto TBIK (Y=Y) show (d) is4 S11 Z1Y moveto TK (Gelb) showde (yellow) showen S20 Z1Y moveto TBK (1 1 0) show S30 Z1Y moveto TK LCh*X 12 get cvishow (, ) show LCh*X 13 get cvishow (, ) show TBK LCh*X 14 get cvishow TK %Z1O**************************** S10 Z1L moveto TBIK (L=G) show (d) is4 S11 Z1L moveto TK (Laubgr\374n (Gr\374n)) showde (leaf green (green)) showen S20 Z1L moveto TBK (0 1 0) show S30 Z1L moveto TK LCh*X 15 get cvishow (, ) show LCh*X 16 get cvishow (, ) show TBK LCh*X 17 get cvishow TK %Z1N**************************** S10 Z1N moveto TBIK (N) show S11 Z1N moveto TK (Schwarz) showde (black) showen S20 Z1N moveto TBK (0 0 0) show S30 Z1N moveto TK LCh*X 18 get cvishow (, ) show LCh*X 19 get cvishow (, ) show 0 cvishow TK %Z1W**************************** S10 Z1W moveto TBIK (W) show S11 Z1W moveto TK (Wei\337) showde (white) showen S20 Z1W moveto TBK (1 1 1) show S30 Z1W moveto TK LCh*X 21 get cvishow (, ) show LCh*X 22 get cvishow (, ) show 0 cvishow TK xt1 neg yt1 neg translate %HUE CIRCLE /xd 1550 def /yd 5000 def /xp 1550 def /yp 5000 def /xdN xd def /ydN yd 2000 sub def /xdW xd def /ydW yd def /xdR xd 2000 add def /ydR yd 1000 sub def /xm 2000 4 div def /xip xd xm 2 mul add def /yip ydN xm 2 mul add def /xi1 xd xm 1 mul sub def /yi1 ydW xm 0.5 mul sub def /xi2 xd xm 2 mul add def /yi2 ydN 400 sub def %************************************************************************* %RJGB /xt2 5550 def /yt2 -2670 def xt2 yt2 translate [ 100 ] 100 setdash xp 1750 sub yp 950 add moveto 0 -3000 rlineto stroke [ ] 0 setdash 0 setgray xp 1450 sub yp 0750 add moveto TBIK xchart4 0 eq {(Offset) show} if xchart4 1 eq {(BAM) show} if TBK (\2555stufige Farbreihen im \255CIELAB\255Farbraum) showde ( 5 step colour series in CIELAB colour space) showen /L*Xd LCh*A 0 get def /C*Xd LCh*A 1 get def /L*Nd LCh*N 0 get def /L*Wd LCh*W 0 get def /xfact 15 def /yfact 15 def /xp0 xp 0400 add def /yp0 yp 1000 sub def /xpN xp0 1000 sub def /ypN yp0 1000 sub def xp0 1750 sub yp0 0 sub moveto 3500 0 rlineto stroke %horizontal axis xp0 0000 add yp0 1250 sub moveto 0 3000 rlineto stroke %vertical axis xp0 1500 sub yp0 70 sub moveto 0 140 rlineto stroke %vertical marks xp0 0750 sub yp0 70 sub moveto 0 140 rlineto stroke xp0 0750 add yp0 70 sub moveto 0 140 rlineto stroke xp0 1500 add yp0 70 sub moveto 0 140 rlineto stroke TS xp0 1800 sub yp0 220 sub moveto (-100) show %horizontal scale xp0 1100 sub yp0 220 sub moveto (-50) show xp0 0550 add yp0 220 sub moveto ( 50) show xp0 1300 add yp0 220 sub moveto (100) show xp0 70 sub yp0 1500 add moveto 140 0 rlineto stroke %horizontal marks xp0 70 sub yp0 0750 add moveto 140 0 rlineto stroke xp0 70 sub yp0 0750 sub moveto 140 0 rlineto stroke xp0 400 sub yp0 1500 add moveto (100) show %vertical scale xp0 300 sub yp0 0700 add moveto (50) show xp0 400 sub yp0 0900 sub moveto (-50) show xp0 0100 add yp0 1550 add moveto TBIK (b*) show xp0 1800 add yp0 0050 sub moveto TBIK (a*) show %xp0 yp0 0750 0 360 arc stroke %xp0 yp0 1500 0 360 arc stroke 30 setlinewidth 0 1 5 {/i exch def %i=0,5 0 setgray /i5 i 5 mul def /xi xp0 OLABa i5 1 add get xfact mul add def /yi yp0 OLABa i5 2 add get yfact mul add def i 0 eq {/xi0 xi def /yi0 yi def xi0 yi0 moveto} if i 1 ge {xi yi lineto} if i 5 eq {xi0 yi0 lineto stroke} if } for %i=0,5 0 1 5 {/i exch def %i=0,5 1 1 3 {/k exch def %k=1,3 0 setgray /i34 i 12 mul k 3 mul add def /i5 i 5 mul def /xi0 xp0 OLABa i5 1 add get xfact mul add def /yi0 yp0 OLABa i5 2 add get yfact mul add def i 4 le {%i<=4 /i51 i5 5 add def /xi1 xp0 OLABa i51 1 add get xfact mul add def /yi1 yp0 OLABa i51 2 add get yfact mul add def } {%i=5 /i51 0 def /xi1 xp0 OLABa i51 1 add get xfact mul add def /yi1 yp0 OLABa i51 2 add get yfact mul add def } ifelse /xiM xi0 xi1 xi0 sub k 0.25 mul mul add def /yiM yi0 yi1 yi0 sub k 0.25 mul mul add def /r rgb*Y i34 3 add get def /g rgb*Y i34 4 add get def /b rgb*Y i34 5 add get def r g b setrgbcolor xiM yiM 0050 0 360 arc fill } for %k=1,3 } for %i=0,5 newpath /xshift 6 array def /yshift 6 array def /xshift [-300 100 000 -050 -300 -300] def /yshift [-200 -200 -300 120 -100 -100] def 0 1 5 {/i exch def %i=0,5 0 setgray /i3 i 3 mul def /i5 i 5 mul def /xi xp0 OLABa i5 1 add get xfact mul add def /yi yp0 OLABa i5 2 add get yfact mul add def xi yi 0100 0 360 arc fill /r rgb*X i3 0 add get def /g rgb*X i3 1 add get def /b rgb*X i3 2 add get def r g b setrgbcolor xi yi 0050 0 360 arc fill newpath 0 setgray xi xshift i get add yi yshift i get add moveto tex*B i get show newpath } for %i=0,5 20 setlinewidth 0 setgray xpN 2300 add ypN 2550 add moveto (6 Anker\255Farbpaare) showde (6 anker colour pairs) showen 0 1 5 {/i exch def %i=0,5 %six colours /i3 i 3 mul def /i5 i 5 mul def i 2 le {/ix i def /n 0 def} {/ix i 3 sub def /n 1 def} ifelse 0 setgray [40] 40 setdash /xpNj xpN 2300 add 100 add ix 900 mul add def /ypNj ypN 2400 add n 300 mul sub def xpNj ypNj moveto 0600 0 rlineto stroke [ ] 0 setdash 0 0 0 setrgbcolor xpNj ypNj 100 0 360 arc fill xpNj 600 add ypNj 100 0 360 arc fill /r rgb*X i3 0 add get def /g rgb*X i3 1 add get def /b rgb*X i3 2 add get def r g b setrgbcolor xpNj ypNj 050 0 360 arc fill i 4 le {/i31 i3 3 add def} {/i31 0 def} ifelse /r rgb*X i31 0 add get def /g rgb*X i31 1 add get def /b rgb*X i31 2 add get def r g b setrgbcolor xpNj 600 add ypNj 050 0 360 arc fill } for %i=0,5 0 setgray xpN 2300 add ypN 1800 add moveto (6 Triplet\255Farbserien) showde (6 triplet colour series) showen 0 1 5 {/i exch def %i=0,5 %six colours /i3 i 3 mul def /i5 i 5 mul def i 2 le {/ix i def /n 0 def} {/ix i 3 sub def /n 1 def} ifelse 0 setgray [40] 40 setdash /xpNj xpN 2300 add 100 add ix 900 mul add def /ypNj ypN 1650 add n 300 mul sub def xpNj ypNj moveto 0600 0 rlineto stroke [ ] 0 setdash 0 0 0 setrgbcolor xpNj ypNj 100 0 360 arc fill xpNj 600 add ypNj 100 0 360 arc fill /r rgb*X i3 0 add get def /g rgb*X i3 1 add get def /b rgb*X i3 2 add get def r g b setrgbcolor xpNj ypNj 050 0 360 arc fill newpath i 4 le {/i31 i3 3 add def} {/i31 0 def} ifelse i 3 eq {%i=3 40 setlinewidth 0 setgray xpNj 300 add 70 sub ypNj moveto 140 0 rlineto stroke xpNj 300 add ypNj 70 sub moveto 0 140 rlineto stroke 20 setlinewidth } if %i=3 /r rgb*X i31 0 add get def /g rgb*X i31 1 add get def /b rgb*X i31 2 add get def r g b setrgbcolor xpNj 300 add 70 sub ypNj moveto 140 0 rlineto stroke xpNj 300 add ypNj 70 sub moveto 0 140 rlineto stroke newpath i 3 le {/i31 i3 6 add def} {/i31 0 def} ifelse i 4 eq {/i31 0 def} if i 5 eq {/i31 3 def} if /r rgb*X i31 0 add get def /g rgb*X i31 1 add get def /b rgb*X i31 2 add get def r g b setrgbcolor xpNj 600 add ypNj 050 0 360 arc fill } for %i=0,5 showpage grestore %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 03 MM sub 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 22 %line 439 %!PS-Adobe-3.0 EPSF-3.0 XE391-2, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (XE391-2,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 06 MM sub 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 23 %line 449 %!PS-Adobe-3.0 EPSF-3.0 XE391-3N %%BoundingBox: 70 83 245 190 %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://130.149.60.45/~farbmetrik/SE25/) /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, colour vision) /Creator (klaus.richter@mac.com) /CreationDate (D:2016070112000) /ModDate (D:2016070112000) /DOCINFO pdfmark13 [ /View [ /FitB ] /DOCVIEW pdfmark13 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /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 /TV {160 /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 /TIV {160 /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 /TBV {160 /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 /TBIV {160 /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 /SV {160 /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 %%EndProlog gsave /nshow {TS show} bind def /kshow {TIS show} bind def /bshow {TBS show} bind def /jshow {TBIS show} bind def /ibshown {TBS -50 -50 rmoveto show 0 50 rmoveto TBS} bind def /ibshow0 {TBS -00 -50 rmoveto show 0 50 rmoveto TBS} bind def /ishown {TS -50 -50 rmoveto show 0 50 rmoveto TS } bind def /ishow0 {TS -00 -50 rmoveto show 0 50 rmoveto TS } bind def %40% kleiner /ns4 {250 /Times-ISOL1 FS show TK} bind def /ks4 {250 /TimesI-ISOL1 FS show TK} bind def /bs4 {250 /TimesB-ISOL1 FS show TK} bind def /js4 {250 /TimesBI-ISOL1 FS show TK} bind def /ss4 {250 /Symbol FS show TK} bind def /is4 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /es4 {200 /Times-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ib4 {200 /TimesB-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /eb4 {200 /TimesB-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ip4 {200 /Times-ISOL1 FS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def %60% kleiner /ns6 {200 /Times-ISOL1 FS show TS} bind def /ks6 {200 /TimesI-ISOL1 FS show TS} bind def /bs6 {200 /TimesB-ISOL1 FS show TS} bind def /js6 {200 /TimesBI-ISOL1 FS show TS} bind def /ss6 {200 /Symbol FS show TS} bind def /is6 {160 /Times-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /es6 {160 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ib6 {160 /TimesB-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /eb6 {160 /TimesB-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ip6 {160 /Times-ISOL1 FS 24 24 rmoveto (\267) show 24 -24 rmoveto TS} bind /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show} def %************************************************************* %Aus Kittelmann_CD_DA/Daten der Ausertung/ %Farbwerte der Farbfelder und Reihen.xls/CIELAB_1 %siehe auch Dipl-Arbeit Seite 31 ff /LAB_KIi 3100 array def %310x10 /LAB_KIi [ %n L*r a*r b*r L*t a*t b*t E*r-t C*r h*r % L*r a*r b*r CIELAB data of 310 printel samples, see page 34 % 95.410 -0.980 4.760 ISO 15775 Papierweiss Tab. 2.2 1 94.806 -1.832 6.977 95.410 -0.980 4.760 2.450 7.213 104.710 2 76.937 -16.536 -18.248 77.015 -15.805 -18.995 1.048 24.626 227.818 3 59.410 -30.942 -42.455 58.620 -30.630 -42.750 0.899 52.534 233.915 4 94.807 -1.883 7.035 95.410 -0.980 4.760 2.520 7.282 104.985 5 76.919 -16.503 -18.327 77.015 -15.805 -18.995 0.971 24.663 227.998 6 59.468 -30.964 -42.431 58.620 -30.630 -42.750 0.966 52.528 233.880 7 94.796 -1.848 7.051 95.410 -0.980 4.760 2.526 7.289 104.684 8 60.143 15.422 -18.907 60.565 15.185 -19.800 1.016 24.399 309.204 9 27.166 31.237 -43.580 25.720 31.350 -44.360 1.646 53.619 305.632 10 94.811 -1.797 6.812 95.410 -0.980 4.760 2.288 7.045 104.775 11 60.039 15.614 -19.124 60.565 15.185 -19.800 0.958 24.689 309.231 12 27.145 31.257 -43.757 25.720 31.350 -44.360 1.550 53.774 305.539 13 94.813 -1.742 6.702 95.410 -0.980 4.760 2.170 6.925 104.573 14 71.354 37.382 -0.087 71.770 37.110 -1.020 1.057 37.382 359.867 15 48.299 74.762 -6.470 48.130 75.200 -6.800 0.573 75.042 355.054 16 94.862 -1.790 6.808 95.410 -0.980 4.760 2.269 7.039 104.734 17 71.430 37.531 -0.146 71.770 37.110 -1.020 1.028 37.531 359.777 18 48.348 75.034 -6.602 48.130 75.200 -6.800 0.338 75.324 354.972 19 94.829 -1.679 6.457 95.410 -0.980 4.760 1.925 6.672 104.576 20 71.895 30.271 30.198 71.675 32.165 28.415 2.611 42.758 44.931 21 48.389 65.379 52.900 47.940 65.310 52.070 0.946 84.100 38.977 22 94.841 -1.727 6.563 95.410 -0.980 4.760 2.033 6.787 104.743 23 71.834 30.282 30.495 71.675 32.165 28.415 2.810 42.976 45.200 24 48.373 65.160 52.576 47.940 65.310 52.070 0.683 83.726 38.899 25 94.856 -1.811 6.930 95.410 -0.980 4.760 2.389 7.163 104.645 26 91.995 -9.864 53.175 92.890 -6.070 50.465 4.747 54.082 100.509 27 88.831 -7.617 100.643 90.370 -11.160 96.170 5.910 100.931 94.328 28 94.840 -1.857 6.961 95.410 -0.980 4.760 2.437 7.204 104.938 29 91.969 -9.864 53.060 92.890 -6.070 50.465 4.688 53.969 100.532 30 88.822 -7.585 99.964 90.370 -11.160 96.170 5.438 100.251 94.339 31 94.843 -1.831 6.986 95.410 -0.980 4.760 2.450 7.223 104.689 32 72.670 -33.310 23.706 73.155 -31.970 20.735 3.296 40.885 144.561 33 52.763 -62.634 40.725 50.900 -62.960 36.710 4.438 74.710 146.968 34 94.844 -1.844 6.940 95.410 -0.980 4.760 2.413 7.181 104.883 35 72.659 -33.330 23.584 73.155 -31.970 20.735 3.195 40.830 144.717 36 52.751 -62.659 40.456 50.900 -62.960 36.710 4.189 74.585 147.152 37 59.858 -30.723 -42.299 58.620 -30.630 -42.750 1.321 52.279 234.008 38 39.512 -15.438 -20.098 38.315 -15.065 -21.605 1.960 25.343 232.471 39 20.439 0.604 1.879 18.010 0.500 -0.460 3.374 1.974 72.184 40 59.843 -30.628 -42.217 58.620 -30.630 -42.750 1.334 52.157 234.039 41 39.472 -15.216 -20.290 38.315 -15.065 -21.605 1.759 25.361 233.132 42 20.596 0.834 1.790 18.010 0.500 -0.460 3.444 1.975 65.031 43 28.050 31.224 -43.592 25.720 31.350 -44.360 2.457 53.621 305.613 44 24.428 16.573 -21.290 21.865 15.925 -22.410 2.871 26.980 307.898 45 20.775 1.062 1.849 18.010 0.500 -0.460 3.646 2.132 60.115 46 27.951 31.592 -43.586 25.720 31.350 -44.360 2.374 53.831 305.935 47 24.413 16.789 -21.558 21.865 15.925 -22.410 2.822 27.324 307.911 48 20.742 1.238 1.780 18.010 0.500 -0.460 3.609 2.168 55.193 49 47.685 75.265 -6.106 48.130 75.200 -6.800 0.827 75.513 355.362 50 34.058 36.976 -1.848 33.070 37.850 -3.630 2.217 37.022 357.138 51 19.828 0.759 1.618 18.010 0.500 -0.460 2.773 1.787 64.874 52 47.770 75.333 -6.073 48.130 75.200 -6.800 0.823 75.577 355.391 53 34.024 36.746 -1.841 33.070 37.850 -3.630 2.308 36.792 357.131 54 19.895 0.766 1.713 18.010 0.500 -0.460 2.889 1.877 65.917 55 48.084 65.391 53.701 47.940 65.310 52.070 1.639 84.616 39.394 56 33.902 32.769 28.182 32.975 32.905 25.805 2.555 43.221 40.696 57 20.096 0.689 1.832 18.010 0.500 -0.460 3.105 1.958 69.398 58 48.093 65.240 53.510 47.940 65.310 52.070 1.449 84.377 39.358 59 33.983 32.963 28.200 32.975 32.905 25.805 2.599 43.379 40.547 60 20.045 0.703 1.815 18.010 0.500 -0.460 3.059 1.946 68.836 61 88.969 -7.916 99.202 90.370 -11.160 96.170 4.656 99.517 94.562 62 54.202 -4.710 50.539 54.190 -5.330 47.855 2.755 50.758 95.324 63 20.513 1.218 2.043 18.010 0.500 -0.460 3.612 2.379 59.195 64 88.968 -7.927 98.732 90.370 -11.160 96.170 4.357 99.050 94.591 65 54.261 -4.648 50.299 54.190 -5.330 47.855 2.539 50.514 95.279 66 20.641 0.847 1.666 18.010 0.500 -0.460 3.401 1.869 63.062 67 53.549 -61.840 40.746 50.900 -62.960 36.710 4.956 74.057 146.619 68 35.886 -31.821 20.383 34.455 -31.230 18.125 2.738 37.790 147.359 69 20.920 1.315 2.010 18.010 0.500 -0.460 3.903 2.401 56.801 70 53.497 -62.212 40.195 50.900 -62.960 36.710 4.410 74.067 147.134 71 35.953 -31.500 20.084 34.455 -31.230 18.125 2.481 37.358 147.479 72 20.895 1.150 1.709 18.010 0.500 -0.460 3.667 2.059 56.060 73 94.784 -1.844 6.954 95.410 -0.980 4.760 2.440 7.194 104.855 74 57.474 -0.187 4.308 56.710 -0.240 2.150 2.290 4.312 92.481 75 19.853 0.660 2.057 18.010 0.500 -0.460 3.124 2.160 72.205 76 94.850 -1.803 6.917 95.410 -0.980 4.760 2.376 7.148 104.613 77 57.492 -0.158 4.396 56.710 -0.240 2.150 2.380 4.399 92.060 78 19.840 0.774 1.873 18.010 0.500 -0.460 2.978 2.026 67.556 79 94.712 -1.740 6.671 95.410 -0.980 4.760 2.171 6.894 104.624 80 75.767 -1.256 4.576 76.060 -0.610 3.455 1.327 4.745 105.346 81 57.770 -0.029 4.084 56.710 -0.240 2.150 2.215 4.084 90.406 82 38.879 0.418 3.397 37.360 0.130 0.845 2.983 3.422 82.988 83 20.500 0.760 1.906 18.010 0.500 -0.460 3.445 2.052 68.276 84 94.746 -1.749 6.752 95.410 -0.980 4.760 2.236 6.975 104.522 85 75.784 -1.036 4.321 76.060 -0.610 3.455 1.004 4.443 103.478 86 57.797 0.122 4.078 56.710 -0.240 2.150 2.243 4.080 88.280 87 38.909 0.429 3.229 37.360 0.130 0.845 2.859 3.258 82.432 88 20.404 0.745 1.681 18.010 0.500 -0.460 3.221 1.839 66.098 89 94.821 -1.758 6.747 95.410 -0.980 4.760 2.214 6.973 104.604 90 86.389 -9.074 -6.237 86.213 -8.393 -7.118 1.128 11.011 214.502 91 76.787 -16.568 -18.756 77.015 -15.805 -18.995 0.832 25.026 228.543 92 68.577 -23.637 -30.298 67.818 -23.218 -30.873 1.041 38.427 232.040 93 59.128 -30.875 -42.876 58.620 -30.630 -42.750 0.578 52.835 234.243 94 94.810 -1.748 6.756 95.410 -0.980 4.760 2.221 6.978 104.505 95 86.419 -8.953 -6.387 86.213 -8.393 -7.118 0.943 10.998 215.505 96 76.820 -16.491 -18.789 77.015 -15.805 -18.995 0.742 25.000 228.727 97 68.658 -23.582 -30.348 67.818 -23.218 -30.873 1.056 38.433 232.151 98 59.211 -30.905 -42.735 58.620 -30.630 -42.750 0.652 52.739 234.127 99 94.672 -1.678 6.502 95.410 -0.980 4.760 2.016 6.715 104.470 100 78.300 7.067 -7.013 77.988 7.103 -7.520 0.597 9.956 315.220 101 60.293 15.348 -19.582 60.565 15.185 -19.800 0.385 24.880 308.089 102 44.203 22.986 -31.712 43.143 23.268 -32.080 1.157 39.167 305.936 103 27.016 31.165 -43.974 25.720 31.350 -44.360 1.365 53.898 305.325 104 94.830 -1.783 6.928 95.410 -0.980 4.760 2.383 7.154 104.433 105 78.257 7.039 -7.270 77.988 7.103 -7.520 0.373 10.119 314.077 106 60.155 15.718 -20.231 60.565 15.185 -19.800 0.798 25.619 307.845 107 44.111 23.540 -32.017 43.143 23.268 -32.080 1.008 39.740 306.324 108 26.626 33.169 -44.169 25.720 31.350 -44.360 2.042 55.237 306.905 109 94.830 -1.701 6.558 95.410 -0.980 4.760 2.022 6.775 104.543 110 83.971 17.488 2.916 83.590 18.065 1.870 1.254 17.729 9.468 111 71.531 37.398 -0.616 71.770 37.110 -1.020 0.550 37.403 359.056 112 60.110 56.166 -3.810 59.950 56.155 -3.910 0.189 56.295 356.120 113 48.082 74.995 -6.574 48.130 75.200 -6.800 0.309 75.282 354.990 114 94.878 -1.729 6.630 95.410 -0.980 4.760 2.084 6.852 104.617 115 83.935 17.501 2.928 83.590 18.065 1.870 1.247 17.744 9.497 116 71.513 37.496 -0.695 71.770 37.110 -1.020 0.566 37.502 358.938 117 60.110 56.159 -3.719 59.950 56.155 -3.910 0.249 56.282 356.211 118 48.182 74.902 -6.412 48.130 75.200 -6.800 0.492 75.176 355.107 119 94.804 -1.818 7.199 95.410 -0.980 4.760 2.649 7.425 104.176 120 82.777 14.554 17.861 83.543 15.593 16.588 1.812 23.040 50.825 121 71.216 31.512 29.973 71.675 32.165 28.415 1.750 43.490 43.566 122 59.233 49.560 42.426 59.808 48.738 40.243 2.403 65.239 40.565 123 47.901 65.572 53.795 47.940 65.310 52.070 1.745 84.815 39.365 124 94.772 -1.833 6.825 95.410 -0.980 4.760 2.324 7.067 105.036 125 82.720 14.616 17.563 83.543 15.593 16.588 1.607 22.849 50.232 126 71.256 31.437 30.263 71.675 32.165 28.415 2.030 43.636 43.910 127 59.267 49.547 42.334 59.808 48.738 40.243 2.306 65.169 40.511 128 47.815 65.383 53.061 47.940 65.310 52.070 1.001 84.204 39.061 129 94.840 -1.780 6.905 95.410 -0.980 4.760 2.359 7.131 104.455 130 93.112 -6.364 28.580 94.150 -3.525 27.613 3.174 29.280 102.554 131 92.030 -9.686 51.982 92.890 -6.070 50.465 4.014 52.877 100.555 132 90.731 -10.442 77.889 91.630 -8.615 73.318 5.005 78.586 97.636 133 88.925 -7.755 98.630 90.370 -11.160 96.170 4.442 98.935 94.496 134 94.750 -1.706 6.774 95.410 -0.980 4.760 2.240 6.985 104.140 135 93.456 -6.983 29.551 94.150 -3.525 27.613 4.024 30.365 103.295 136 91.762 -9.588 54.588 92.890 -6.070 50.465 5.536 55.424 99.962 137 90.523 -9.923 78.975 91.630 -8.615 73.318 5.912 79.596 97.161 138 88.450 -7.383 99.721 90.370 -11.160 96.170 5.528 99.994 94.234 139 94.774 -1.701 6.618 95.410 -0.980 4.760 2.092 6.833 104.419 140 84.620 -17.161 14.272 84.283 -16.475 12.748 1.706 22.320 140.250 141 72.841 -32.934 22.138 73.155 -31.970 20.735 1.731 39.683 146.092 142 63.629 -47.768 31.268 62.028 -47.465 28.723 3.022 57.091 146.792 143 53.074 -62.749 39.986 50.900 -62.960 36.710 3.938 74.407 147.493 144 94.824 -1.732 6.644 95.410 -0.980 4.760 2.111 6.866 104.611 145 84.610 -17.132 14.251 84.283 -16.475 12.748 1.673 22.284 140.245 146 72.795 -32.837 21.866 73.155 -31.970 20.735 1.470 39.451 146.341 147 63.609 -47.604 30.857 62.028 -47.465 28.723 2.660 56.730 147.049 148 53.068 -62.538 39.758 50.900 -62.960 36.710 3.764 74.106 147.554 149 59.304 -30.836 -42.453 58.620 -30.630 -42.750 0.774 52.471 234.007 150 48.835 -23.073 -32.162 48.468 -22.848 -32.178 0.431 39.582 234.345 151 38.544 -15.514 -20.880 38.315 -15.065 -21.605 0.883 26.012 233.387 152 28.577 -8.727 -9.949 28.163 -7.283 -11.033 1.853 13.234 228.743 153 19.400 0.578 1.071 18.010 0.500 -0.460 2.069 1.217 61.645 154 59.283 -30.812 -42.644 58.620 -30.630 -42.750 0.696 52.611 234.150 155 49.013 -23.128 -32.035 48.468 -22.848 -32.178 0.630 39.512 234.172 156 38.632 -15.429 -21.396 38.315 -15.065 -21.605 0.526 26.379 234.205 157 28.626 -9.032 -10.165 28.163 -7.283 -11.033 2.007 13.598 228.377 158 19.526 0.414 1.083 18.010 0.500 -0.460 2.165 1.159 69.068 159 26.747 31.469 -43.910 25.720 31.350 -44.360 1.128 54.022 305.628 160 25.010 24.152 -33.934 23.793 23.638 -33.385 1.431 41.651 305.440 161 23.199 16.450 -22.261 21.865 15.925 -22.410 1.441 27.680 306.463 162 21.560 8.223 -9.882 19.938 8.213 -11.435 2.246 12.856 309.764 163 19.767 0.771 1.400 18.010 0.500 -0.460 2.573 1.598 61.142 164 26.466 33.265 -43.952 25.720 31.350 -44.360 2.096 55.121 307.121 165 24.531 25.256 -34.061 23.793 23.638 -33.385 1.903 42.403 306.557 166 22.532 17.348 -22.759 21.865 15.925 -22.410 1.610 28.617 307.317 167 21.297 9.116 -10.038 19.938 8.213 -11.435 2.148 13.559 312.243 168 20.241 1.362 2.421 18.010 0.500 -0.460 3.745 2.778 60.648 169 47.954 75.045 -6.124 48.130 75.200 -6.800 0.715 75.294 355.335 170 39.935 56.633 -5.204 40.600 56.525 -5.215 0.674 56.872 354.750 171 34.317 37.076 -2.591 33.070 37.850 -3.630 1.798 37.166 356.003 172 27.113 19.906 0.097 25.540 19.175 -2.045 2.756 19.906 0.279 173 20.282 0.865 1.650 18.010 0.500 -0.460 3.122 1.863 62.340 174 48.114 74.940 -6.437 48.130 75.200 -6.800 0.447 75.216 355.091 175 40.005 56.475 -5.385 40.600 56.525 -5.215 0.621 56.731 354.553 176 34.340 37.261 -2.923 33.070 37.850 -3.630 1.569 37.376 355.515 177 27.115 19.691 -0.318 25.540 19.175 -2.045 2.394 19.694 359.076 178 20.357 0.721 1.317 18.010 0.500 -0.460 2.952 1.501 61.306 179 47.885 65.560 53.596 47.940 65.310 52.070 1.548 84.680 39.267 180 40.159 49.175 39.907 40.458 49.108 38.938 1.017 63.331 39.061 181 33.458 32.557 27.471 32.975 32.905 25.805 1.770 42.598 40.158 182 26.575 18.004 15.031 25.493 16.703 12.673 2.904 23.454 39.858 183 19.509 0.349 1.149 18.010 0.500 -0.460 2.205 1.201 73.119 184 47.899 65.372 53.449 47.940 65.310 52.070 1.381 84.441 39.270 185 40.193 49.025 39.636 40.458 49.108 38.938 0.752 63.043 38.955 186 33.443 32.649 27.569 32.975 32.905 25.805 1.843 42.732 40.179 187 26.586 17.967 15.189 25.493 16.703 12.673 3.021 23.527 40.209 188 19.559 0.718 1.107 18.010 0.500 -0.460 2.214 1.319 57.028 189 88.855 -7.734 98.558 90.370 -11.160 96.170 4.442 98.861 94.487 190 72.418 -8.190 74.514 72.280 -8.245 72.013 2.506 74.962 96.272 191 53.856 -5.000 49.618 54.190 -5.330 47.855 1.824 49.869 95.755 192 37.368 -2.171 26.048 36.100 -2.415 23.698 2.682 26.138 94.764 193 19.741 0.588 1.403 18.010 0.500 -0.460 2.544 1.521 67.252 194 88.335 -7.243 99.966 90.370 -11.160 96.170 5.821 100.228 94.144 195 72.521 -8.080 74.951 72.280 -8.245 72.013 2.953 75.385 96.153 196 54.041 -4.892 50.769 54.190 -5.330 47.855 2.951 51.005 95.504 197 37.291 -2.102 27.349 36.100 -2.415 23.698 3.854 27.430 94.394 198 20.047 1.076 1.865 18.010 0.500 -0.460 3.144 2.153 60.022 199 52.992 -62.907 39.847 50.900 -62.960 36.710 3.771 74.466 147.649 200 44.029 -47.586 30.202 42.678 -47.095 27.418 3.134 56.361 147.598 201 35.211 -32.267 19.159 34.455 -31.230 18.125 1.648 37.526 149.301 202 26.980 -16.066 9.803 26.233 -15.365 8.833 1.411 18.821 148.611 203 20.466 0.704 1.621 18.010 0.500 -0.460 3.225 1.767 66.517 204 52.908 -62.721 39.980 50.900 -62.960 36.710 3.845 74.379 147.486 205 43.965 -47.550 30.261 42.678 -47.095 27.418 3.154 56.362 147.527 206 35.087 -31.927 19.339 34.455 -31.230 18.125 1.536 37.328 148.796 207 26.972 -15.836 9.697 26.233 -15.365 8.833 1.232 18.569 148.519 208 20.294 0.770 1.635 18.010 0.500 -0.460 3.111 1.808 64.791 209 94.809 -1.830 6.976 95.410 -0.980 4.760 2.449 7.212 104.699 210 58.984 -30.966 -42.837 58.620 -30.630 -42.750 0.503 52.858 234.137 211 19.349 0.469 1.318 18.010 0.500 -0.460 2.226 1.398 70.426 212 94.944 -1.846 7.105 95.410 -0.980 4.760 2.543 7.341 104.567 213 58.971 -30.882 -42.895 58.620 -30.630 -42.750 0.456 52.855 234.248 214 19.176 0.272 0.555 18.010 0.500 -0.460 1.563 0.618 63.872 215 94.790 -1.802 6.934 95.410 -0.980 4.760 2.405 7.164 104.566 216 26.440 31.213 -44.153 25.720 31.350 -44.360 0.762 54.072 305.257 217 19.441 0.489 1.328 18.010 0.500 -0.460 2.290 1.415 69.769 218 94.798 -1.798 6.914 95.410 -0.980 4.760 2.385 7.145 104.579 219 26.313 31.108 -44.083 25.720 31.350 -44.360 0.697 53.954 305.210 220 19.377 0.342 0.924 18.010 0.500 -0.460 1.951 0.985 69.704 221 94.819 -1.802 6.895 95.410 -0.980 4.760 2.363 7.127 104.645 222 47.850 74.956 -6.176 48.130 75.200 -6.800 0.726 75.210 355.289 223 19.840 0.541 1.276 18.010 0.500 -0.460 2.523 1.386 67.045 224 94.770 -1.747 6.714 95.410 -0.980 4.760 2.194 6.937 104.589 225 47.821 75.208 -5.965 48.130 75.200 -6.800 0.890 75.444 355.465 226 19.694 0.611 1.037 18.010 0.500 -0.460 2.255 1.203 59.503 227 94.825 -1.776 6.746 95.410 -0.980 4.760 2.218 6.976 104.750 228 48.028 65.260 53.084 47.940 65.310 52.070 1.019 84.124 39.126 229 19.876 0.685 0.983 18.010 0.500 -0.460 2.366 1.198 55.119 230 94.757 -1.745 6.631 95.410 -0.980 4.760 2.124 6.857 104.740 231 48.025 65.348 52.692 47.940 65.310 52.070 0.629 83.945 38.880 232 19.948 0.440 0.952 18.010 0.500 -0.460 2.398 1.049 65.224 233 94.873 -1.904 7.232 95.410 -0.980 4.760 2.693 7.478 104.749 234 88.844 -7.513 99.977 90.370 -11.160 96.170 5.488 100.259 94.298 235 19.166 0.454 1.197 18.010 0.500 -0.460 2.021 1.280 69.252 236 94.774 -1.875 7.051 95.410 -0.980 4.760 2.540 7.296 104.892 237 88.796 -7.519 99.400 90.370 -11.160 96.170 5.115 99.684 94.326 238 19.338 0.352 0.841 18.010 0.500 -0.460 1.865 0.912 67.297 239 94.804 -1.889 7.199 95.410 -0.980 4.760 2.672 7.443 104.699 240 52.200 -63.279 39.813 50.900 -62.960 36.710 3.380 74.762 147.823 241 19.336 0.468 1.313 18.010 0.500 -0.460 2.214 1.394 70.403 242 94.841 -1.856 7.078 95.410 -0.980 4.760 2.542 7.317 104.693 243 52.201 -63.318 39.205 50.900 -62.960 36.710 2.837 74.473 148.235 244 19.327 0.532 0.810 18.010 0.500 -0.460 1.830 0.969 56.705 245 59.110 -30.725 -42.847 58.620 -30.630 -42.750 0.508 52.725 234.357 246 26.841 31.207 -43.931 25.720 31.350 -44.360 1.209 53.887 305.389 247 47.998 74.766 -5.917 48.130 75.200 -6.800 0.993 74.999 355.475 248 59.180 -30.727 -42.860 58.620 -30.630 -42.750 0.579 52.736 234.363 249 26.918 30.963 -43.680 25.720 31.350 -44.360 1.431 53.541 305.332 250 47.960 74.748 -5.974 48.130 75.200 -6.800 0.957 74.987 355.431 251 47.932 74.957 -6.193 48.130 75.200 -6.800 0.683 75.213 355.277 252 47.999 65.290 53.196 47.940 65.310 52.070 1.127 84.217 39.172 253 88.840 -7.715 98.748 90.370 -11.160 96.170 4.567 99.049 94.467 254 47.938 74.793 -6.065 48.130 75.200 -6.800 0.862 75.039 355.364 255 47.995 65.199 52.614 47.940 65.310 52.070 0.558 83.781 38.902 256 88.992 -7.768 98.150 90.370 -11.160 96.170 4.162 98.457 94.525 257 88.806 -7.564 99.378 90.370 -11.160 96.170 5.066 99.666 94.353 258 52.054 -63.456 39.583 50.900 -62.960 36.710 3.136 74.790 148.045 259 58.953 -30.907 -42.839 58.620 -30.630 -42.750 0.442 52.824 234.190 260 88.799 -7.554 99.130 90.370 -11.160 96.170 4.923 99.418 94.358 261 52.114 -63.302 39.247 50.900 -62.960 36.710 2.833 74.482 148.202 262 59.070 -30.873 -42.721 58.620 -30.630 -42.750 0.513 52.709 234.145 263 26.607 31.110 -43.675 25.720 31.350 -44.360 1.146 53.622 305.462 264 58.916 -30.902 -42.852 58.620 -30.630 -42.750 0.414 52.832 234.204 265 52.088 -63.025 39.540 50.900 -62.960 36.710 3.070 74.401 147.897 266 26.722 30.906 -43.822 25.720 31.350 -44.360 1.220 53.624 305.194 267 59.121 -30.882 -42.788 58.620 -30.630 -42.750 0.562 52.769 234.181 268 52.256 -63.141 39.105 50.900 -62.960 36.710 2.758 74.269 148.229 269 52.510 -62.813 39.840 50.900 -62.960 36.710 3.523 74.382 147.615 270 88.821 -7.677 99.211 90.370 -11.160 96.170 4.876 99.507 94.425 271 47.854 65.422 53.179 47.940 65.310 52.070 1.118 84.309 39.106 272 52.472 -62.907 39.443 50.900 -62.960 36.710 3.153 74.250 147.912 273 88.911 -7.687 98.611 90.370 -11.160 96.170 4.488 98.910 94.458 274 48.184 65.048 53.192 47.940 65.310 52.070 1.177 84.027 39.274 275 47.989 65.268 53.085 47.940 65.310 52.070 1.017 84.130 39.122 276 47.951 74.898 -5.916 48.130 75.200 -6.800 0.951 75.131 355.484 277 26.916 31.080 -43.714 25.720 31.350 -44.360 1.386 53.637 305.412 278 48.097 65.075 52.962 47.940 65.310 52.070 0.936 83.903 39.141 279 47.899 75.065 -6.424 48.130 75.200 -6.800 0.461 75.339 355.109 280 26.923 31.161 -44.194 25.720 31.350 -44.360 1.229 54.075 305.188 281 59.056 -30.846 -42.596 58.620 -30.630 -42.750 0.510 52.592 234.090 282 42.393 -0.024 -43.358 42.170 0.360 -43.555 0.485 43.358 269.969 283 26.201 31.341 -43.878 25.720 31.350 -44.360 0.681 53.922 305.538 284 35.879 52.754 -25.625 36.925 53.275 -25.580 1.170 58.649 334.092 285 47.697 75.104 -5.768 48.130 75.200 -6.800 1.123 75.325 355.608 286 59.077 -30.803 -42.830 58.620 -30.630 -42.750 0.495 52.757 234.277 287 42.530 0.124 -43.449 42.170 0.360 -43.555 0.443 43.449 270.163 288 26.456 31.114 -43.949 25.720 31.350 -44.360 0.875 53.848 305.297 289 36.149 53.085 -25.997 36.925 53.275 -25.580 0.901 59.109 333.908 290 47.813 74.760 -5.930 48.130 75.200 -6.800 1.026 74.995 355.465 291 47.681 75.057 -5.678 48.130 75.200 -6.800 1.217 75.271 355.674 292 48.009 70.346 23.542 48.035 70.255 22.635 0.912 74.181 18.503 293 47.948 65.385 53.204 47.940 65.310 52.070 1.137 84.297 39.135 294 69.043 27.507 75.803 69.155 27.075 74.120 1.742 80.640 70.055 295 88.877 -7.732 98.861 90.370 -11.160 96.170 4.607 99.162 94.472 296 47.708 75.078 -5.934 48.130 75.200 -6.800 0.971 75.312 355.481 297 48.137 70.269 23.468 48.035 70.255 22.635 0.839 74.085 18.468 298 47.993 65.415 53.124 47.940 65.310 52.070 1.060 84.269 39.080 299 69.008 27.609 75.411 69.155 27.075 74.120 1.405 80.306 69.892 300 88.950 -7.638 98.601 90.370 -11.160 96.170 4.509 98.897 94.429 301 88.888 -7.777 98.464 90.370 -11.160 96.170 4.348 98.770 94.516 302 69.977 -37.776 67.450 70.635 -37.060 66.440 1.402 77.308 119.251 303 52.753 -62.962 39.380 50.900 -62.960 36.710 3.250 74.263 147.976 304 56.064 -46.601 -2.263 54.760 -46.795 -3.020 1.520 46.656 182.780 305 59.454 -30.783 -42.623 58.620 -30.630 -42.750 0.858 52.577 234.163 306 88.698 -7.654 98.411 90.370 -11.160 96.170 4.484 98.708 94.447 307 69.890 -37.662 67.446 70.635 -37.060 66.440 1.389 77.249 119.179 308 52.671 -62.821 38.863 50.900 -62.960 36.710 2.791 73.870 148.258 309 55.892 -46.803 -2.516 54.760 -46.795 -3.020 1.239 46.871 183.077 310 59.528 -30.492 -42.511 58.620 -30.630 -42.750 0.949 52.316 234.349 ] def %LAB_KIi %************************************************************* /D57SERWi 2000 array def %max 57 series of 15 data (100x20) /D57SERWi [%BEG D57SERWi top data WANG_ELCD scaling data %0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %N S N1 N2 N3 N4 N5 NA1 NA2 NA3 NA4 NA5 DV*1i DV*2i WANG1 WANG2 %Serie 1, BAM test chart order 1:25 001 003 001 002 003 000 000 (W) (CW) (C) (0) (0) 26.45 26.39 (W03) (W04) 002 003 007 008 009 000 000 (W) (VW) (V) (0) (0) 29.54 41.95 (W13) (W14) 003 003 013 014 015 000 000 (W) (MW) (M) (0) (0) 31.00 32.74 (W23) (W24) 004 003 019 020 021 000 000 (W) (OW) (O) (0) (0) 28.01 37.64 (W33) (W34) 005 003 025 026 027 000 000 (W) (YW) (Y) (0) (0) 16.99 11.01 (W43) (W44) 006 003 031 032 033 000 000 (W) (LW) (L) (0) (0) 25.44 28.39 (W53) (W54) %Serie 2, BAM test chart order 1:25 007 003 037 038 039 000 000 (C) (CN) (N) (0) (0) 25.80 35.47 (W06) (W05) 008 003 043 044 045 000 000 (V) (VN) (N) (0) (0) 9.30 16.62 (W16) (W15) 009 003 049 050 051 000 000 (M) (MN) (N) (0) (0) 26.80 29.68 (W26) (W25) 010 003 055 056 057 000 000 (O) (ON) (N) (0) (0) 30.62 34.58 (W36) (W35) 011 003 061 062 063 000 000 (Y) (YN) (N) (0) (0) 29.85 41.77 (W46) (W45) 012 003 067 068 069 000 000 (L) (LN) (N) (0) (0) 18.79 35.12 (W56) (W55) %Serie 3, BAM test chart order 3:27 013 003 209 210 211 000 000 (W) (C) (N) (0) (0) 64.17 61.50 (W01) (W02) 014 003 215 216 217 000 000 (W) (V) (N) (0) (0) 67.03 32.91 (W11) (W12) 015 003 221 222 223 000 000 (W) (M) (N) (0) (0) 74.48 61.26 (W21) (W22) 016 003 227 228 229 000 000 (W) (O) (N) (0) (0) 71.77 67.21 (W31) (W32) 017 003 233 234 235 000 000 (W) (Y) (N) (0) (0) 37.26 86.10 (W41) (W42) 018 003 239 240 241 000 000 (W) (L) (N) (0) (0) 50.89 56.11 (W51) (W52) %Serie 4, BAM test chart order 3:27 019 003 245 246 247 000 000 (C) (V) (M) (0) (0) 41.67 45.01 (W09) (W19) 020 003 251 252 253 000 000 (M) (O) (Y) (0) (0) 28.41 72.32 (W29) (W39) 021 003 257 258 259 000 000 (Y) (L) (C) (0) (0) 64.80 40.72 (W49) (W59) 022 003 263 264 265 000 000 (V) (C) (L) (0) (0) 41.67 40.72 (W09) (W59) 023 003 269 270 271 000 000 (L) (Y) (O) (0) (0) 64.80 72.32 (W49) (W39) 024 003 275 276 277 000 000 (O) (M) (V) (0) (0) 28.41 45.01 (W29) (W19) %Serie 5, BAM test chart order 2:26 %values are missing 025 004 089 090 091 000 000 (W) (Wc) (CW) (0) (0) 26.45 0.00 (W03) (W00) 026 004 099 100 101 102 103 (W) (Wv) (VW) (0) (0) 29.54 0.00 (W13) (W00) 027 004 109 110 111 112 113 (W) (Wm) (MW) (0) (0) 31.00 0.00 (W23) (W00) 028 004 119 120 121 122 123 (W) (Wo) (OW) (0) (0) 28.01 0.00 (W33) (W00) 029 004 129 130 131 132 133 (W) (Wy) (YW) (0) (0) 16.99 0.00 (W43) (W00) 030 004 139 140 141 142 143 (W) (Wl) (LW) (0) (0) 25.44 0.00 (W53) (W00) %Serie 6, BAM test chart order 2:26 031 004 091 092 093 000 000 (CW) (Cw) (C) (0) (0) 26.39 0.00 (W04) (W00) 032 004 101 102 103 000 000 (VW) (Vw) (V) (0) (0) 41.95 0.00 (W14) (W00) 033 004 111 112 113 000 000 (MW) (Mw) (M) (0) (0) 32.74 0.00 (W24) (W00) 034 004 121 122 123 000 000 (OW) (Ow) (O) (0) (0) 37.64 0.00 (W34) (W00) 035 004 131 132 133 000 000 (YW) (Yw) (Y) (0) (0) 110.1 0.00 (W44) (W00) 036 004 141 142 143 000 000 (LW) (Lw) (L) (0) (0) 28.39 0.00 (W54) (W00) %Serie 7, BAM test chart order 2:26 037 004 149 150 151 000 000 (C) (Cn) (CN) (0) (0) 25.80 0.00 (W06) (W00) 038 004 159 160 161 000 000 (V) (Vn) (VN) (0) (0) 9.30 0.00 (W16) (W00) 039 004 169 170 171 000 000 (M) (Mn) (MN) (0) (0) 26.80 0.00 (W26) (W00) 040 004 179 180 181 000 000 (O) (On) (ON) (0) (0) 30.62 0.00 (W36) (W00) 041 004 189 190 191 000 000 (Y) (Yn) (YN) (0) (0) 29.85 0.00 (W46) (W00) 042 004 199 200 201 000 000 (L) (Ln) (LN) (0) (0) 18.79 0.00 (W56) (W00) %Serie 8, BAM test chart order 2:26 043 004 151 152 153 000 000 (CN) (Nc) (N) (0) (0) 61.50 0.00 (W02) (W00) 044 004 161 162 163 000 000 (VN) (Nv) (N) (0) (0) 32.91 0.00 (W12) (W00) 045 004 171 172 173 000 000 (MN) (Nm) (N) (0) (0) 61.26 0.00 (W22) (W00) 046 004 181 182 183 000 000 (ON) (No) (N) (0) (0) 67.21 0.00 (W32) (W00) 047 004 191 192 193 000 000 (YN) (Ny) (N) (0) (0) 86.10 0.00 (W42) (W00) 048 004 201 202 203 000 000 (LN) (Nl) (N) (0) (0) 56.11 0.00 (W52) (W00) %Serie 2N, BAM test chart order 1:25, 1 triplet 049 003 073 074 075 000 000 (W) (WN) (N) (0) (0) 10.00 9.00 (W61) (W62) %Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets 050 004 281 282 283 000 000 (C) (CV) (V) (0) (0) 41.67 0.00 (W09) (W00) 051 004 283 284 285 000 000 (V) (MV) (M) (0) (0) 45.01 0.00 (W19) (W00) 052 004 291 292 293 000 000 (M) (MO) (O) (0) (0) 28.41 0.00 (W29) (W00) 053 004 293 294 295 000 000 (O) (YO) (Y) (0) (0) 72.32 0.00 (W39) (W00) 054 004 301 302 303 000 000 (Y) (YL) (L) (0) (0) 64.80 0.00 (W49) (W00) 055 004 303 304 305 000 000 (L) (CL) (C) (0) (0) 40.72 0.00 (W59) (W00) %Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets 056 004 079 080 081 000 000 (W) (Wn) (WN) (0) (0) 10.00 0.00 (W61) (W00) 057 004 081 082 083 000 000 (WN) (Nw) (N) (0) (0) 9.00 0.00 (W62) (W00) ] def %END D57SERWi %************************************************************* /D57SERVia 2000 array def %max 57 series of 15 data (100x20) /D57SERVia [%BEG D57SERVia top data VIK_ELCD scaling data %0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %N S N1 N2 N3 N4 N5 NA1 NA2 NA3 NA4 NA5 DV*1i DV*2i VIK1 VIK2 %Serie 1, BAM test chart order 1:25 001 003 001 002 003 000 000 (W) (CW) (C) (0) (0) 25.24 39.23 (V01) (V02) 002 003 007 008 009 000 000 (W) (VW) (V) (0) (0) 33.11 46.66 (V03) (V04) 003 003 013 014 015 000 000 (W) (MW) (M) (0) (0) 30.92 45.35 (V05) (V06) 004 003 019 020 021 000 000 (W) (OW) (O) (0) (0) 26.55 46.66 (V07) (V08) 005 003 025 026 027 000 000 (W) (YW) (Y) (0) (0) 22.62 23.06 (V09) (V10) 006 003 031 032 033 000 000 (W) (LW) (L) (0) (0) 29.18 40.98 (V11) (V12) %Serie 2, BAM test chart order 1:25 007 003 037 038 039 000 000 (C) (CN) (N) (0) (0) 38.35 42.73 (V13) (V14) 008 003 043 044 045 000 000 (V) (VN) (N) (0) (0) 21.75 31.36 (V15) (V16) 009 003 049 050 051 000 000 (M) (MN) (N) (0) (0) 40.98 44.47 (V17) (V18) 010 003 055 056 057 000 000 (O) (ON) (N) (0) (0) 34.86 43.16 (V19) (V20) 011 003 061 062 063 000 000 (Y) (YN) (N) (0) (0) 35.73 47.97 (V21) (V22) 012 003 067 068 069 000 000 (L) (LN) (N) (0) (0) 36.17 42.29 (V23) (V24) %Serie 3, BAM test chart order 3:27 013 003 209 210 211 000 000 (W) (C) (N) (0) (0) 53.65 55.40 (V26) (V25) 014 003 215 216 217 000 000 (W) (V) (N) (0) (0) 65.02 29.61 (V28) (V27) 015 003 221 222 223 000 000 (W) (M) (N) (0) (0) 60.21 53.22 (V30) (V29) 016 003 227 228 229 000 000 (W) (O) (N) (0) (0) 58.46 48.84 (V32) (V31) 017 003 233 234 235 000 000 (W) (Y) (N) (0) (0) 37.38 61.52 (V34) (V33) 018 003 239 240 241 000 000 (W) (L) (N) (0) (0) 55.84 45.35 (V36) (V35) %Serie 4, BAM test chart order 3:27 019 003 245 246 247 000 000 (C) (V) (M) (0) (0) 44.47 42.29 (V37) (V38) 020 003 251 252 253 000 000 (M) (O) (Y) (0) (0) 22.62 47.97 (V40) (V39) 021 003 257 258 259 000 000 (Y) (L) (C) (0) (0) 46.22 31.36 (V41) (V42) 022 003 263 264 265 000 000 (V) (C) (L) (0) (0) 48.41 30.49 (V44) (V43) 023 003 269 270 271 000 000 (L) (Y) (O) (0) (0) 51.03 53.65 (V46) (V45) 024 003 275 276 277 000 000 (O) (M) (V) (0) (0) 23.49 48.84 (V47) (V48) %Serie 5, BAM test chart order 2:26 %dummy 26.00: values are missing 025 003 089 090 091 000 000 (W) (Wc) (CW) (0) (0) 25.24 26.00 (V01) (V00) 026 003 099 100 101 000 000 (W) (Wv) (VW) (0) (0) 33.11 26.00 (V03) (V00) 027 003 109 110 111 000 000 (W) (Wm) (MW) (0) (0) 30.92 26.00 (V05) (V00) 028 003 119 120 121 000 000 (W) (Wo) (OW) (0) (0) 26.55 26.00 (V07) (V00) 029 003 129 130 131 000 000 (W) (Wy) (YW) (0) (0) 22.62 26.00 (V09) (V00) 030 003 139 140 141 000 000 (W) (Wl) (LW) (0) (0) 29.18 26.00 (V11) (V00) %Serie 6, BAM test chart order 2:26 031 003 091 092 093 000 000 (CW) (Cw) (C) (0) (0) 22.62 27.87 (V62) (V61) 032 003 101 102 103 000 000 (VW) (Vw) (V) (0) (0) 26.99 33.98 (V64) (V63) 033 003 111 112 113 000 000 (MW) (Mw) (M) (0) (0) 28.30 35.73 (V66) (V65) 034 003 121 122 123 000 000 (OW) (Ow) (O) (0) (0) 24.37 33.98 (V68) (V67) 035 003 131 132 133 000 000 (YW) (Yw) (Y) (0) (0) 18.25 20.00 (V70) (V69) 036 003 141 142 143 000 000 (LW) (Lw) (L) (0) (0) 23.49 32.24 (V72) (V71) %Serie 7, BAM test chart order 2:26 037 003 149 150 151 000 000 (C) (Cn) (CN) (0) (0) 29.61 28.74 (V74) (V73) 038 003 159 160 161 000 000 (V) (Vn) (VN) (0) (0) 19.56 18.25 (V76) (V75) 039 003 169 170 171 000 000 (M) (Mn) (MN) (0) (0) 35.73 27.87 (V78) (V77) 040 003 179 180 181 000 000 (O) (On) (ON) (0) (0) 37.48 26.12 (V80) (V79) 041 003 189 190 191 000 000 (Y) (Yn) (YN) (0) (0) 38.35 30.49 (V82) (V81) 042 003 199 200 201 000 000 (L) (Ln) (LN) (0) (0) 33.11 26.99 (V84) (V83) %Serie 8, BAM test chart order 2:26 043 003 151 152 153 000 000 (CN) (Nc) (N) (0) (0) 37.48 26.12 (V86) (V85) 044 003 161 162 163 000 000 (VN) (Nv) (N) (0) (0) 20.43 18.25 (V88) (V87) 045 003 171 172 173 000 000 (MN) (Nm) (N) (0) (0) 34.86 28.30 (V90) (V89) 046 003 181 182 183 000 000 (ON) (No) (N) (0) (0) 33.98 27.87 (V92) (V91) 047 003 191 192 193 000 000 (YN) (Ny) (N) (0) (0) 39.67 34.86 (V94) (V93) 048 003 201 202 203 000 000 (LN) (Nl) (N) (0) (0) 32.24 26.12 (V96) (V95) %Serie 2N, BAM test chart order 1:25, 1 triplet 049 003 073 074 075 000 000 (W) (WN) (N) (0) (0) 40.10 36.61 (V97) (V98) %Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets 050 004 281 282 283 000 000 (C) (CV) (V) (0) (0) 44.47 0.00 (V37) (V00) 051 004 283 284 285 000 000 (V) (MV) (M) (0) (0) 42.29 0.00 (V38) (V00) 052 004 291 292 293 000 000 (M) (MO) (O) (0) (0) 22.62 0.00 (V40) (V00) 053 004 293 294 295 000 000 (O) (YO) (Y) (0) (0) 47.97 0.00 (V39) (V00) 054 004 301 302 303 000 000 (Y) (YL) (L) (0) (0) 46.22 0.00 (V41) (V00) 055 004 303 304 305 000 000 (L) (CL) (C) (0) (0) 31.36 0.00 (V42) (V00) %Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets 056 004 079 080 081 000 000 (W) (Wn) (WN) (0) (0) 40.10 0.00 (V97) (V00) 057 004 081 082 083 000 000 (WN) (Nw) (N) (0) (0) 36.61 0.00 (V98) (V00) ] def %END D57SERVia %************************************************************* /D57SERVi 2000 array def %max 57 series of 15 data (100x20) /D57SERVi [%BEG D57SERVi top data VIK_ELCD scaling data %0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %N S N1 N2 N3 N4 N5 NA1 NA2 NA3 NA4 NA5 DV*1i DV*2i VIK1 VIK2 %Serie 1, BAM test chart order 1:25 001 003 001 002 003 000 000 (W) (CW) (C) 6.06 7.92 25.24 39.23 (V01) (V02) 002 003 007 008 009 000 000 (W) (VW) (V) 3.03 7.44 33.11 46.66 (V03) (V04) 003 003 013 014 015 000 000 (W) (MW) (M) 4.15 7.21 30.92 45.35 (V05) (V06) 004 003 019 020 021 000 000 (W) (OW) (O) 6.27 5.35 26.55 46.66 (V07) (V08) 005 003 025 026 027 000 000 (W) (YW) (Y) 5.39 10.8 22.62 23.06 (V09) (V10) 006 003 031 032 033 000 000 (W) (LW) (L) 4.58 7.82 29.18 40.98 (V11) (V12) %Serie 2, BAM test chart order 1:25 007 003 037 038 039 000 000 (C) (CN) (N) 12.1 5.67 38.35 42.73 (V13) (V14) 008 003 043 044 045 000 000 (V) (VN) (N) 6.42 9.50 21.75 31.36 (V15) (V16) 009 003 049 050 051 000 000 (M) (MN) (N) 9.08 7.82 40.98 44.47 (V17) (V18) 010 003 055 056 057 000 000 (O) (ON) (N) 10.7 9.31 34.86 43.16 (V19) (V20) 011 003 061 062 063 000 000 (Y) (YN) (N) 10.0 6.88 35.73 47.97 (V21) (V22) 012 003 067 068 069 000 000 (L) (LN) (N) 9.87 10.7 36.17 42.29 (V23) (V24) %Serie 3, BAM test chart order 3:27 013 003 209 210 211 000 000 (W) (C) (N) 7.29 5.77 53.65 55.40 (V26) (V25) 014 003 215 216 217 000 000 (W) (V) (N) 6.27 11.1 65.02 29.61 (V28) (V27) 015 003 221 222 223 000 000 (W) (M) (N) 8.91 6.30 60.21 53.22 (V30) (V29) 016 003 227 228 229 000 000 (W) (O) (N) 8.56 9.81 58.46 48.84 (V32) (V31) 017 003 233 234 235 000 000 (W) (Y) (N) 17.1 8.41 37.38 61.52 (V34) (V33) 018 003 239 240 241 000 000 (W) (L) (N) 7.62 10.8 55.84 45.35 (V36) (V35) %Serie 4, BAM test chart order 3:27 019 003 245 246 247 000 000 (C) (V) (M) 11.2 13.7 44.47 42.29 (V37) (V38) 020 003 251 252 253 000 000 (M) (O) (Y) 6.30 11.1 22.62 47.97 (V40) (V39) 021 003 257 258 259 000 000 (Y) (L) (C) 10.3 8.29 46.22 31.36 (V41) (V42) 022 003 263 264 265 000 000 (V) (C) (L) 9.87 11.3 48.41 30.49 (V44) (V43) 023 003 269 270 271 000 000 (L) (Y) (O) 10.2 9.52 51.03 53.65 (V46) (V45) 024 003 275 276 277 000 000 (O) (M) (V) 10.6 11.3 23.49 48.84 (V47) (V48) %Serie 5, BAM test chart order 2:26 %dummy 26.00: values are missing 025 004 089 090 091 000 000 (W) (Wc) (CW) 6.06 6.06 25.24 0.481 (V01) (V00) 026 004 099 100 101 000 000 (W) (Wv) (VW) 7.44 7.44 33.11 0.497 (V03) (V00) 027 004 109 110 111 000 000 (W) (Wm) (MW) 4.15 4.15 30.92 0.492 (V05) (V00) 028 004 119 120 121 000 000 (W) (Wo) (OW) 6.27 6.27 26.55 0.493 (V07) (V00) 029 004 129 130 131 000 000 (W) (Wy) (YW) 5.39 5.39 22.62 0.358 (V09) (V00) 030 004 139 140 141 000 000 (W) (Wl) (LW) 4.58 4.58 29.18 0.492 (V11) (V00) %Serie 6, BAM test chart order 2:26 031 003 091 092 093 000 000 (CW) (Cw) (C) 6.30 12.2 22.62 27.87 (V62) (V61) 032 003 101 102 103 000 000 (VW) (Vw) (V) 7.21 11.3 26.99 33.98 (V64) (V63) 033 003 111 112 113 000 000 (MW) (Mw) (M) 8.76 10.0 28.30 35.73 (V66) (V65) 034 003 121 122 123 000 000 (OW) (Ow) (O) 7.31 10.8 24.37 33.98 (V68) (V67) 035 003 131 132 133 000 000 (YW) (Yw) (Y) 3.27 7.10 18.25 20.00 (V70) (V69) 036 003 141 142 143 000 000 (LW) (Lw) (L) 6.06 11.2 23.49 32.24 (V72) (V71) %Serie 7, BAM test chart order 2:26 037 003 149 150 151 000 000 (C) (Cn) (CN) 8.29 8.48 29.61 28.74 (V74) (V73) 038 003 159 160 161 000 000 (V) (Vn) (VN) 4.58 3.27 19.56 18.25 (V76) (V75) 039 003 169 170 171 000 000 (M) (Mn) (MN) 9.50 12.2 35.73 27.87 (V78) (V77) 040 003 179 180 181 000 000 (O) (On) (ON) 5.10 11.2 37.48 26.12 (V80) (V79) 041 003 189 190 191 000 000 (Y) (Yn) (YN) 12.1 8.65 38.35 30.49 (V82) (V81) 042 003 199 200 201 000 000 (L) (Ln) (LN) 10.3 10.3 33.11 26.99 (V84) (V83) %Serie 8, BAM test chart order 2:26 043 003 151 152 153 000 000 (CN) (Nc) (N) 7.62 9.08 37.48 26.12 (V86) (V85) 044 003 161 162 163 000 000 (VN) (Nv) (N) 6.69 3.27 20.43 18.25 (V88) (V87) 045 003 171 172 173 000 000 (MN) (Nm) (N) 9.08 6.27 34.86 28.30 (V90) (V89) 046 003 181 182 183 000 000 (ON) (No) (N) 9.73 9.73 33.98 27.87 (V92) (V91) 047 003 191 192 193 000 000 (YN) (Ny) (N) 6.74 12.6 39.67 34.86 (V94) (V93) 048 003 201 202 203 000 000 (LN) (Nl) (N) 10.2 9.08 32.24 26.12 (V96) (V95) %Serie 2N, BAM test chart order 1:25, 1 triplet 049 003 073 074 075 000 000 (W) (WN) (N) (0) (0) 40.10 36.61 (V97) (V98) %not used %Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets 050 004 281 282 283 000 000 (C) (CV) (V) (0) (0) 44.47 0.00 (V37) (V00) 051 004 283 284 285 000 000 (V) (MV) (M) (0) (0) 42.29 0.00 (V38) (V00) 052 004 291 292 293 000 000 (M) (MO) (O) (0) (0) 22.62 0.00 (V40) (V00) 053 004 293 294 295 000 000 (O) (YO) (Y) (0) (0) 47.97 0.00 (V39) (V00) 054 004 301 302 303 000 000 (Y) (YL) (L) (0) (0) 46.22 0.00 (V41) (V00) 055 004 303 304 305 000 000 (L) (CL) (C) (0) (0) 31.36 0.00 (V42) (V00) %Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets 056 004 079 080 081 000 000 (W) (Wn) (WN) (0) (0) 40.10 0.00 (V97) (V00) 057 004 081 082 083 000 000 (WN) (Nw) (N) (0) (0) 36.61 0.00 (V98) (V00) ] def %END D57SERVi /d_CIELABi 2800 array def /d_CIELCHi 2800 array def /d_C94LCHi 2800 array def /d_CMCLCHi 2800 array def /d_CM2LCHi 2800 array def /d_C00LCHi 2800 array def /d_C85LCHi 2800 array def /d_C77LCHi 2800 array def /d_C78LCHi 2800 array def /d_C79LCHi 2800 array def /d_CIELABmi 2800 array def /d_CIELCHmi 2800 array def /d_C94LCHmi 2800 array def /d_CMCLCHmi 2800 array def /d_CM2LCHmi 2800 array def /d_C00LCHmi 2800 array def /d_C85LCHmi 2800 array def /d_C77LCHmi 2800 array def /d_C78LCHmi 2800 array def /d_C79LCHmi 2800 array def /D13 1 3 div def /D841_108 841 108 div def /D4_29 4 29 div def /D6_29 6 29 div 3 exp def /proc_coldiff {%BEG procedure proc_coldiff proc_coldiff_WK58.PS 150529 %calculates CIE colour data and differences for 10 colour spaces %BEG CIELAB/CIELCH /FL 0.000001 def X0 XW div D6_29 gt {/FXXN0 X0 XW div 0.0001 add D13 exp def} {/FXXN0 D841_108 X0 XW div mul D4_29 add def} ifelse Y0 YW div D6_29 gt {/FYYN0 Y0 YW div 0.0001 add D13 exp def} {/FYYN0 D841_108 Y0 YW div mul D4_29 add def} ifelse Z0 ZW div D6_29 gt {/FZZN0 Z0 ZW div 0.0001 add D13 exp def} {/FZZN0 D841_108 Z0 ZW div mul D4_29 add def} ifelse /CIEL*0 116. FYYN0 mul 16. sub def /CIEa*0 500. FXXN0 FYYN0 sub mul def /CIEb*0 200. FYYN0 FZZN0 sub mul def /CIEC*ab0 CIEa*0 dup mul CIEb*0 dup mul add 0.0001 add sqrt def /CIEhab0 CIEb*0 CIEa*0 0.0001 add atan def X1 XW div D6_29 gt {/FXXN1 X1 XW div 0.0001 add D13 exp def} {/FXXN1 D841_108 X1 XW div mul D4_29 add def} ifelse Y1 YW div D6_29 gt {/FYYN1 Y1 YW div 0.0001 add D13 exp def} {/FYYN1 D841_108 Y1 YW div mul D4_29 add def} ifelse Z1 ZW div D6_29 gt {/FZZN1 Z1 ZW div 0.0001 add D13 exp def} {/FZZN1 D841_108 Z1 ZW div mul D4_29 add def} ifelse /CIEL*1 116. FYYN1 mul 16. sub def /CIEa*1 500. FXXN1 FYYN1 sub mul def /CIEb*1 200. FYYN1 FZZN1 sub mul def /CIEC*ab1 CIEa*1 dup mul CIEb*1 dup mul add 0.0001 add sqrt def /CIEhab1 CIEb*1 CIEa*1 0.0001 add atan def %mixed terms with *0 sn *1: /d_CIEL* CIEL*1 CIEL*0 sub def /d_CIEa* CIEa*1 CIEa*0 sub def /d_CIEb* CIEb*1 CIEb*0 sub def d_CIELABi i d_CIEL* dup mul d_CIEa* dup mul add d_CIEb* dup mul add 0.00000001 add sqrt put /a_CIELAB 1.26 def /b_CIELAB 0.55 def d_CIELABmi i d_CIELABi i get b_CIELAB exp a_CIELAB mul put /d_CIEh CIEhab1 CIEhab0 sub def %see CIEDE2000 page 4 CIEC*ab1 CIEC*ab0 mul 0 eq {/d_CIEh 0 def} if %CIEC*ab1 x CIEC*ab0 =0 CIEC*ab1 CIEC*ab0 mul 0 ne d_CIEh 180 gt and {/d_CIEh d_CIEh 360 sub def} if CIEC*ab1 CIEC*ab0 mul 0 ne d_CIEh -180 lt and {/d_CIEh d_CIEh 360 add def} if /d_CIEL CIEL*1 CIEL*0 sub def /d_CIECab CIEC*ab1 CIEC*ab0 sub def /d_CIEHab CIEC*ab1 CIEC*ab0 mul 0.000001 add sqrt 2 mul d_CIEh 0.5 mul sin mul def d_CIELCHi i d_CIEL dup mul d_CIECab dup mul add d_CIEHab dup mul add 0.000001 add sqrt put %alternative: %for 2 an 10 degree observer, see Richter (1996) %a'=0,2191 b'=-0,08376 a'10=0,2193, b'10=-0,08417 %a'2 and a'10 used for both 12 and 190 degree observer %BEG LABD65_1976=C76 /S76L 1 def /S76A 1 def /S76B 1 def /K76L 1 def /K76A 1 def /K76B 1 def /AS2 0.2191 def /BS2 -0.08376 def %C76a'=AS2*(x/y)**(1/3) %C76b'=BS2*(z/y)**(1/3) %C76L*=L*CIE %C76a*=500*[C76a'-C76a'n]*Y**(1/3) %C76b*=500*[C76b'-C76b'n]*Y**(1/3) /C76a'0 X0 Y0 FL add div 0.3333 exp AS2 mul def /C76a'1 X1 Y1 FL add div 0.3333 exp AS2 mul def /C76a'n XW YW FL add div 0.3333 exp AS2 mul def /C76b'0 Z0 Y0 FL add div 0.3333 exp BS2 mul def /C76b'1 Z1 Y1 FL add div 0.3333 exp BS2 mul def /C76b'n ZW YW FL add div 0.3333 exp BS2 mul def /C76a*0 C76a'0 C76a'n sub 500 mul Y0 1 3 div exp mul def /C76a*1 C76a'1 C76a'n sub 500 mul Y1 1 3 div exp mul def /C76b*0 C76b'0 C76b'n sub 500 mul Y0 1 3 div exp mul def /C76b*1 C76b'1 C76b'n sub 500 mul Y1 1 3 div exp mul def %name d_CIELCHi instead of d_LABD65i 1976 d_CIELCHi i CIEL*1 CIEL*0 sub K76L div S76L div dup mul C76a*1 C76a*0 sub K76A div S76A div dup mul add C76b*1 C76b*0 sub K76B div S76B div dup mul add 0.00000001 add sqrt put %END LABD65_1976=C76 /a_CIELCH 1.26 def /b_CIELCH 0.55 def d_CIELCHmi i d_CIELCHi i get b_CIELCH exp a_CIELCH mul put %BEG CIELAB/CIELCH %BEG CIE94 /S94L 1 def /S94C 1 0.045 CIEC*ab0 mul add def /S94H 1 0.015 CIEC*ab0 mul add def /K94L 1 def /K94C 1 def /K94H 1 def /LC94*0 CIEL*0 K94L div S94L div def /LC94*1 CIEL*1 K94L div S94L div def /CC94*ab0 CIEC*ab0 K94C div S94C div def /CC94*ab1 CIEC*ab1 K94C div S94C div def d_C94LCHi i CIEL*1 CIEL*0 sub K94L div S94L div dup mul CIEC*ab1 CIEC*ab0 sub K94C div S94C div dup mul add d_CIEHab K94H div S94H div dup mul add 0.00000001 add sqrt put /a_C94LCH 1.41 def /b_C94LCH 0.70 def d_C94LCHmi i d_C94LCHi i get b_C94LCH exp a_C94LCH mul put %END CIE94 %BEG CMC(l:c=1:1) %special mean m of two samples for SCML, SCMC, TCMC /CIEL*0m CIEL*0 CIEL*1 add 0.5 mul def /CMCC0S CIEC*ab0 def /CMCC1S CIEC*ab1 def /CIEC*ab0m CMCC0S CMCC1S add 0.5 mul def CIEC*ab0 0 eq {/CMCh0S 0 def} {/CMCh0S CIEb*0 CIEa*0 0.0001 add atan def } ifelse CIEC*ab1 0 eq {/CMCh1S 0 def} {/CMCh1S CIEb*1 CIEa*1 0.0001 add atan def } ifelse %beg special EQUATION (11) TO (14) /d_CMChS0 CMCh1S CMCh0S sub def %see CIEDE2000 page 4 CMCC1S CMCC0S mul 0 eq {/d_CMChS 0 def} if %CIEC*ab1 x CIEC*ab0 =0 CMCC1S CMCC0S mul 0 ne d_CMChS0 abs 180 le and {/d_CMChSm d_CMChS0 def} if CMCC1S CMCC0S mul 0 ne d_CMChS0 180 gt and {/d_CMChSm d_CMChS0 360 sub def} if CMCC1S CMCC0S mul 0 ne d_CMChS0 -180 lt and {/d_CMChSm d_CMChS0 360 add def} if %end special EQUATION (11) TO (14) %beg special EQUATION (23) TO (26) /a_CMChsm CMCh0S CMCh1S add 0.5 mul def /m_CMCCSm CMCC0S CMCC1S mul def d_CMChSm abs 180 le m_CMCCSm 0 ne and {/CMChSqm a_CMChsm def} if d_CMChSm abs 180 gt a_CMChsm 360 le and m_CMCCSm 0 ne and {/CMChSqm CMCh0S CMCh1S add 360 add 0.5 mul def} if d_CMChSm abs 180 gt a_CMChsm 360 ge and m_CMCCSm 0 ne and {/CMChSqm CMCh0S CMCh1S add 360 sub 0.5 mul def} if m_CMCCSm 0 eq {/CMChSqm CMCh0S CMCh1S add def } if %end special EQUATION (23) TO (26) CIEL*0m 16 lt {/SCMLm 0.511 def} {/SCMLm 0.040975 CIEL*0m mul 0.01765 CIEL*0m mul 1 add div def } ifelse /SCMCm 0.0638 CIEC*ab0m mul 0.0131 CIEC*ab0m mul 1 add div 0.638 add def %beg special /FCMCm CIEC*ab0m dup mul dup mul CIEC*ab0m dup mul dup mul 1900 add div sqrt def CMChSqm 164 lt CMChSqm 345 gt or {/TCMCm CMChSqm 35 add cos 0.4 mul abs 0.36 add def} {/TCMCm CMChSqm 168 add cos 0.2 mul abs 0.56 add def} ifelse %end special /SCMHm TCMCm FCMCm mul 1 add FCMCm sub SCMCm mul def /KCML 1 def %=l /KCMC 1 def %=c /KCMH 1 def %1 /CMCL*0m CIEL*0 KCML div SCMLm div def /CMCL*1m CIEL*1 KCML div SCMLm div def /CMCC*ab0m CIEC*ab0 KCMC div SCMCm div def /CMCC*ab1m CIEC*ab1 KCMC div SCMCm div def d_CMCLCHi i CIEL*1 CIEL*0 sub KCML div SCMLm div dup mul CIEC*ab1 CIEC*ab0 sub KCMC div SCMCm div dup mul add d_CIEHab KCMH div SCMHm div dup mul add 0.00000001 add sqrt put /a_CMCLCH 1.34 def /b_CMCLCH 0.66 def d_CMCLCHmi i d_CMCLCHi i get b_CMCLCH exp a_CMCLCH mul put %END CMC(m:l:c=m:1:1)=CMC %BEG CM2(m:l:c=m:1:2)=CM2 /KM2L 1 def %=l /KM2C 2 def %=c /KM2H 1 def %1 /CM2L*0 CIEL*0 KM2L div SCMLm div def /CM2L*1 CIEL*1 KM2L div SCMLm div def /CM2C*ab0 CIEC*ab0 KM2C div SCMCm div def /CM2C*ab1 CIEC*ab1 KM2C div SCMCm div def d_CM2LCHi i CIEL*1 CIEL*0 sub KM2L div SCMLm div dup mul CIEC*ab1 CIEC*ab0 sub KM2C div SCMCm div dup mul add d_CIEHab KM2H div SCMHm div dup mul add 0.00000001 add sqrt put %END CM2(m:l:c=m:1:2)=CM2 %BEG CIEDE2000=C00 %beg special equation (7) /CIEC*ab CIEC*ab0 CIEC*ab1 add 0.5 mul def /DEG 1 CIEC*ab 7 exp CIEC*ab 7 exp 25 7 exp add div 0.000001 add sqrt sub 0.5 mul def %end special equation (7) %beg special EQUATION (1) TO (6) %0 /C00L0S CIEL*0 def /C00a0S 1 DEG add CIEa*0 mul def /C00b0S CIEb*0 def /C00C0S C00a0S dup mul C00b0S dup mul add 0.000001 add sqrt def C00C0S 0 eq {/C00h0S 0 def} {/C00h0S C00b0S C00a0S 0.0001 add atan def } ifelse %1 /C00L1S CIEL*1 def /C00a1S 1 DEG add CIEa*1 mul def /C00b1S CIEb*1 def /C00C1S C00a1S dup mul C00b1S dup mul add 0.000001 add sqrt def C00C1S 0 eq {/C00h1S 0 def} {/C00h1S C00b1S C00a1S 0.0001 add atan def } ifelse %end special EQUATION (1) TO (6) %beg special EQUATION (11) TO (14) /d_C00hS0 C00h1S C00h0S sub def %see CIEDE2000 page 4 C00C1S C00C0S mul 0 eq {/d_C00hS 0 def} if %CIEC*ab1 x CIEC*ab0 =0 C00C1S C00C0S mul 0 ne d_C00hS0 abs 180 le and {/d_C00hS d_C00hS0 def} if C00C1S C00C0S mul 0 ne d_C00hS0 180 gt and {/d_C00hS d_C00hS0 360 sub def} if C00C1S C00C0S mul 0 ne d_C00hS0 -180 lt and {/d_C00hS d_C00hS0 360 add def} if %end special EQUATION (11) TO (14) %beg special EQUATION (8) TO (10) /d_C00LS C00L1S C00L0S sub def /d_C00aS C00a1S C00a0S sub def /d_C00bS C00b1S C00b0S sub def /d_C00CS C00C1S C00C0S sub def /d_C00HS C00C0S C00C1S mul 0.000001 add sqrt 2 mul d_C00hS 0.5 mul sin mul def %end special EQUATION (8) TO (10) %beg special EQUATION (23) TO (26) /a_C00hs C00h0S C00h1S add 0.5 mul def /m_C00CS C00C0S C00C1S mul def d_C00hS abs 180 le m_C00CS 0 ne and {/C00hSq a_C00hs def} if d_C00hS abs 180 gt a_C00hs 360 le and m_C00CS 0 ne and {/C00hSq C00h0S C00h1S add 360 add 0.5 mul def} if d_C00hS abs 180 gt a_C00hs 360 ge and m_C00CS 0 ne and {/C00hSq C00h0S C00h1S add 360 sub 0.5 mul def} if m_C00CS 0 eq {/C00hSq C00h0S C00h1S add def } if %end special EQUATION (23) TO (26) %beg special EQUATIONS (16) TO (22) /C00LSq C00L0S C00L1S add 0.5 mul def /C00CSq C00C0S C00C1S add 0.5 mul def /C00SL C00LSq 50 sub dup mul 0.015 mul C00LSq 50 sub dup mul 20 add sqrt div 1 add def /C00SC 0.045 C00CSq mul 1 add def %beg special T, RT, d_D, RC /C00T C00hSq 30 sub cos -0.17 mul C00hSq 2 mul cos 0.24 mul add C00hSq 3 mul 6 add cos 0.32 mul add C00hSq 4 mul 63 sub cos 0.20 mul sub 1 add def /C00SH 0.015 C00CSq mul C00T mul 1 add def /C00RC C00CSq 7 exp C00CSq 7 exp 25 7 exp add 0.000001 add div 0.000001 add sqrt 2 mul def /expDT C00hSq 275 sub 25 div dup mul def /econst 2.718281 def /C00DT 30 econst expDT neg exp mul def /C00RT C00DT 2 mul sin neg C00RC mul def %end special T, RT, d_D, RC %end special EQUATIONS (16) TO (22) %beg special EQUATION (15) /C00KL 1.0 def /C00KC 1.0 def /C00KH 1.0 def /d_C00LSN d_C00LS C00KL div C00SL div def /d_C00CSN d_C00CS C00KC div C00SC div def /d_C00HSN d_C00HS C00KH div C00SH div def d_C00LCHi i d_C00LSN dup mul d_C00CSN dup mul add d_C00HSN dup mul add d_C00CSN d_C00HSN mul C00RT mul add 0.000001 add sqrt put /a_C00LCH 1.43 def /b_C00LCH 0.70 def d_C00LCHmi i d_C00LCHi i get b_C00LCH exp a_C00LCH mul put %end special EQUATION (15) %END CIEDE2000=C00 %BEG LABJND=C85 /Yq Y0 Y1 add 0.5 mul def /d_Y Y1 Y0 sub def /a085 X0 Y0 0.000001 add div def /b085 Z0 Y0 0.000001 add div 0.4 mul neg def /a185 X1 Y1 0.000001 add div def /b185 Z1 Y1 0.000001 add div 0.4 mul neg def /an85 XW YW 0.000001 add div def /bn85 ZW YW 0.000001 add div 0.4 mul neg def /d_a085 a085 an85 sub def /d_b085 b085 bn85 sub def /d_a185 a185 an85 sub def /d_b185 b185 bn85 sub def /a0"85 d_a085 d_a085 abs 0.5 mul 1 add div an85 add def /b0"85 d_b085 d_b085 abs 0.5 mul 1 add div bn85 add def /a1"85 d_a185 d_a185 abs 0.5 mul 1 add div an85 add def /b1"85 d_b185 d_b185 abs 0.5 mul 1 add div bn85 add def /d_Y Y1 Y0 sub def /d_a"85 a1"85 a0"85 sub def /d_b"85 b1"85 b0"85 sub def /s85 0.0170 def /q85 0.0058 def /g85 1.0000 def %not used /a0085 1.0 def /b0085 1.8 def /Y0085 1.5 def d_C85LCHi i d_Y dup mul a0085 d_a"85 mul Yq mul dup mul add b0085 d_b"85 mul Yq mul dup mul add 0.000001 add sqrt Y0085 mul q85 Yq mul s85 add div put /a_C85LCH 1.17 def /b_C85LCH 0.35 def d_C85LCHmi i d_C85LCHi i get b_C85LCH exp a_C85LCH mul put %END LABJND=C85 %BEG LABHNU_1977=C77 /S77L 1 def /S77A 1 def /S77B 1 def /K77L 1 def /K77A 1 def /K77B 1 def %C77a'=(x/y+1/6)**(1/3)/4 %C77b'=-(z/y+1/6)**(1/3)/12 %C77L*=L*CIE %C77a*=500*[C77a'-C77a'n]*Y**(1/3) %C77b*=500*[C77b'-C77b'n]*Y**(1/3) /C77a'0 X0 Y0 FL add div 1 6 div add 0.3333 exp 4 div def /C77a'1 X1 Y1 FL add div 1 6 div add 0.3333 exp 4 div def /C77a'n XW YW FL add div 1 6 div add 0.3333 exp 4 div def /C77b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def /C77b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def /C77b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def /C77a*0 C77a'0 C77a'n sub 500 mul Y0 1 3 div exp mul def /C77a*1 C77a'1 C77a'n sub 500 mul Y1 1 3 div exp mul def /C77b*0 C77b'0 C77b'n sub 500 mul Y0 1 3 div exp mul def /C77b*1 C77b'1 C77b'n sub 500 mul Y1 1 3 div exp mul def d_C77LCHi i CIEL*1 CIEL*0 sub K77L div S77L div dup mul C77a*1 C77a*0 sub K77A div S77A div dup mul add C77b*1 C77b*0 sub K77B div S77B div dup mul add 0.00000001 add sqrt put %END LABHNU_1977=C77 %BEG LABHNU1=C78 /S78L 1 def /S78A 1 def /S78B 1 def /K78L 1 def /K78A 1 def /K78B 1 def %C78a'=(x/y+1)/15 %C78b'=-(z/y+1/6)**(1/3)/12 %C78L*=L*CIE %C78a*=500*[C78a'-C78a'n]*Y**(1/3) %C78b*=500*[C78b'-C78b'n]*Y**(1/3) /C78a'0 X0 Y0 FL add div 1 add 15 div def /C78a'1 X1 Y1 FL add div 1 add 15 div def /C78a'n XW YW FL add div 1 add 15 div def /C78b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def /C78b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def /C78b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def /C78a*0 C78a'0 C78a'n sub 500 mul Y0 1 3 div exp mul def /C78a*1 C78a'1 C78a'n sub 500 mul Y0 1 3 div exp mul def /C78b*0 C78b'0 C78b'n sub 500 mul Y0 1 3 div exp mul def /C78b*1 C78b'1 C78b'n sub 500 mul Y0 1 3 div exp mul def d_C78LCHi i CIEL*1 CIEL*0 sub K78L div S78L div dup mul C78a*1 C78a*0 sub K78A div S78A div dup mul add C78b*1 C78b*0 sub K78B div S78B div dup mul add 0.00000001 add sqrt put %END LABHNU1_1978-C78 %BEG LABHNU2_1979=C79 /S79L 1 def /S79A 1 def /S79B 1 def /K79L 1 def /K79A 1 def /K79B 1 def %C79a'=(x/y+1/6)**(2/3)/15 %C79b'=-(z/y+1/6)**(1/3)/12 %C79L*=L*CIE %C79a*=500*[C79a'-C79a'n]*Y**(1/3) %C79b*=500*[C79b'-C79b'n]*Y**(1/3) /C79a'0 X0 Y0 FL add div 1 6 div add 0.6667 exp 15 div def /C79a'1 X1 Y1 FL add div 1 6 div add 0.6667 exp 15 div def /C79a'n XW YW FL add div 1 6 div add 0.6667 exp 15 div def /C79b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def /C79b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def /C79b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def /C79a*0 C79a'0 C79a'n sub 500 mul Y0 1 3 div exp mul def /C79a*1 C79a'1 C79a'n sub 500 mul Y1 1 3 div exp mul def /C79b*0 C79b'0 C79b'n sub 500 mul Y0 1 3 div exp mul def /C79b*1 C79b'1 C79b'n sub 500 mul Y1 1 3 div exp mul def d_C79LCHi i CIEL*1 CIEL*0 sub K79L div S79L div dup mul C79a*1 C79a*0 sub K79A div S79A div dup mul add C79b*1 C79b*0 sub K79B div S79B div dup mul add 0.00000001 add sqrt put %END LABHNU2_1979=C79 } bind def %END procedure proc_coldiff %%EndProlog gsave /lanind 0 def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind le {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind le {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind le {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /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 %see Kittelmann DWORK, page 9 /XWD6502 95.05 def /YWD6502 100.00 def /ZWD6502 108.90 def /XW XWD6502 def /YW YWD6502 def /ZW ZWD6502 def /FL 0.000001 def /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /CIEL*0i 310 array def /CIEa*0i 310 array def /CIEb*0i 310 array def /X0i 310 array def /Y0i 310 array def /Z0i 310 array def %calculate XYZ-values for 310 colours 0 1 309 {/i exch def %i=0,309 /i10 i 10 mul def CIEL*0i i LAB_KIi i10 1 add get put CIEa*0i i LAB_KIi i10 2 add get put CIEb*0i i LAB_KIi i10 3 add get put /X* {CIEL*0i i get 16 add 116 div CIEa*0i i get 500 div add} bind def /Y* {CIEL*0i i get 16 add 116 div} bind def /Z* {CIEL*0i i get 16 add 116 div CIEb*0i i get 200 div sub} bind def X0i i X* DecodeXYZ* XW mul put Y0i i Y* DecodeXYZ* YW mul put Z0i i Z* DecodeXYZ* ZW mul put } for %i=0,309 %************************************************************* /Wdata1 3500 array def %max 350x10 data /Wdata2 3500 array def /IM 056 def %(max IM=056; IM=46=without series C-V- and W-Wn-WN-Nw-N /IM0 113 def %(max IM=057)*2-1 = 057 X 2-1 %default data 0 1 IM0 {/i exch def %i=0,IM0 /i10 i 10 mul def 0 1 9 {/j exch def %j=0,9 Wdata1 i10 j add 1. put Wdata2 i10 j add 1. put } for %j=0,9 } for %i=0,IM0 /D57xSERi 2000 array def /xchart4 1 def %xchart4=0 and 1: calculation for WANG or VIK pair comparison data 0 1 IM {/ii exch def %ii=0,IM /i16 ii 16 mul def 0 1 15 {/j exch def %j=0,15 xchart4 0 eq {D57xSERi i16 j add D57SERWi i16 j add get put} if xchart4 1 eq {D57xSERi i16 j add D57SERVi i16 j add get put} if } for %j=0,15 } for %ii=0,IM /DV*1 200 array def /DV*2 200 array def /DVS1 200 array def /DVS2 200 array def %default data 0 1 IM {/ii exch def %ii=0,IM /i16 ii 16 mul def DV*1 ii 1. put %default DV*2 ii 1. put } for %ii=0,IM %for WANG and VIK 0 1 IM {/ii exch def %ii=0,IM /D57xSER12 D57xSERi i16 12 add get def /D57xSER13 D57xSERi i16 13 add get def DV*1 ii D57xSER12 put DV*2 ii D57xSER13 put xchart4 0 eq {%xchart4=0 %corection for WANG only D57xSER12 0 ne {%D57xSER12#0 DV*1 ii D57xSER12 42.62 div 1. 1.1322 div exp 10 mul put } if %D57xSER12#0 D57xSER13 0 ne {%D57xSER13#0 DV*2 ii D57xSER13 42.62 div 1. 1.1322 div exp 10 mul put } if %D57xSER13#0 } if %xchart4=0 %corection for WANG only } for %ii=0,IM /xchartl 0 def %0 1 5 {/xchartl exch def %xchartl=0,5 gsave 5 /Times-ISOL1 FS 215 85 moveto (XE391-3N) show 72 90 translate /ytit 550 def /yhoe 4000 def /yhoet yhoe ytit sub def /xwide 06000 def /ishow {-50 -100 rmoveto 200 /Times-ISOL1 FS show 0 100 rmoveto TM} bind def 0.01 MM 0.01 MM scale 15 setlinewidth 0.0 0.0 0.0 0.5 setcmykcolor 0 0 moveto xwide 0 rlineto 0 yhoet rlineto xwide neg 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmykcolor 0 0 moveto xwide 0 rlineto 0 yhoet rlineto xwide neg 0 rlineto closepath stroke /yt 300 def %y-Zeilenabstand for text /yd 400 def %y-Zeilenabstand for formula %Titeltext /xt1 0 def /yt1 300 def /S10 100 def /S11 800 def /S20 3250 def /S30 4000 def /Z10 2500 def /Z1C 2200 def /Z1V 1900 def /Z1M 1600 def /Z1O 1300 def /Z1Y 1000 def /Z1L 0700 def /Z1N 0400 def /Z1W 0100 def %HUE CIRCLE /xd 1550 def /yd 5000 def /xp 1550 def /yp 5000 def /xdN xd def /ydN yd 2000 sub def /xdW xd def /ydW yd def /xdR xd 2000 add def /ydR yd 1000 sub def /xm 600 def /xip xd xm 2 mul add def /yip ydN xm 2 mul add def /xi1 xd xm 1 mul sub def /yi1 ydW xm 0.5 mul sub def /xi2 xd xm 2 mul add def /yi2 ydN 400 sub def %************************************************************************* %constant hue planes /xt1 -1000 def /yt1 -2670 def xt1 yt1 translate /xpp xp 350 sub def 0 setgray xpp yp 0850 add moveto /xshift 3200 def TBIK (BAM) show TBK (\2555stufige Farbreihen gleichabst\344ndig in CIELAB) showde ( 5 step colour series equally spaced in CIELAB) showen TBS xpp yp 0600 add moveto xchart4 0 eq {%xchart4=0 (CIELAB Farbdifferenzen ) showde (CIELAB colour differences ) showen SS (D) show TBIS (E*) show TBV 0 -50 rmoveto (ab) show 0 50 rmoveto } if %xchart4=0 xchart4 1 eq {%xchart4=1 (visuelle Farbdifferenzen ) showde (visual colour differences ) showen SS (D) show TBIS (V*) show TBV 0 -50 rmoveto (Vik) show 0 50 rmoveto } if %xchart4=1 /xfact 2000 100 div def /yfact 2000 100 div def /yshift 0800 def /xpW xpp def /ypW yp 200 sub def /ym 0 def /ix -1 def /cwdif4 7 array def /cwdif2 7 array def /cwdif1 7 array def /cndif4 7 array def /cndif2 7 array def /cndif1 7 array def /cwdifx 7 array def /cndifx 7 array def /cwstd4 7 array def /cwstd2 7 array def /cwstd1 7 array def /cnstd4 7 array def /cnstd2 7 array def /cnstd1 7 array def /cwstdx 7 array def /cnstdx 7 array def /wName 7 array def /nName 7 array def /DLAB21ik 7 array def /DLAB32ik 7 array def /DV*1ik 7 array def /DV*2ik 7 array def /DVS1ik 7 array def /DVS2ik 7 array def %default 0 1 6 {/i exch def cwdif4 i 4 put cwdif2 i 2 put cwdif1 i 1 put cndif4 i 40 put cndif2 i 20 put cndif1 i 10 put wName i (W) put nName i (N) put } for /ik 0 def 0 1 6 {/ik exch def %ik=0,6 %7 series %025 W-Wc-CW 089-090-091 %031 CW-Cw-C 091-092-093 %037 C-Cn-CN 149-150-151 %043 CN-Nc-N 151-152-153 %001 W-CW-C 001-002-003 %007 C-CN-N 037-038-039 %013 W-C-N 209-210-211 ik 0 eq {/ii 025 1 sub def} if ik 1 eq {/ii 031 1 sub def} if ik 2 eq {/ii 037 1 sub def} if ik 3 eq {/ii 043 1 sub def} if ik 4 eq {/ii 001 1 sub def} if ik 5 eq {/ii 007 1 sub def} if ik 6 eq {/ii 013 1 sub def} if %6 series/figures /ii ii xchartl add def /i16 ii 16 mul def /S D57xSERi i16 1 add get def S 4 eq {%S=4 /DREL D57xSERi i16 13 add get def DV*1ik ik D57xSERi i16 12 add get DREL mul put DV*2ik ik D57xSERi i16 12 add get 1 DREL sub mul put } if %S=4 S 3 eq {%S=3 DV*1ik ik D57xSERi i16 12 add get put DV*2ik ik D57xSERi i16 13 add get put } if %S=3 %always standard deviation DVS1ik ik D57xSERi i16 10 add get put DVS2ik ik D57xSERi i16 11 add get put /N1 D57xSERi i16 2 add get 1 sub def %Nx-count STARTs at "1" /N2 D57xSERi i16 3 add get 1 sub def /N3 D57xSERi i16 4 add get 1 sub def ik 0 eq {wName 0 D57xSERi i16 7 add get put wName 1 D57xSERi i16 8 add get put wName 2 D57xSERi i16 9 add get put} if ik 1 eq {wName 3 D57xSERi i16 8 add get put wName 4 D57xSERi i16 9 add get put} if ik 2 eq {nName 0 D57xSERi i16 7 add get put nName 1 D57xSERi i16 8 add get put nName 2 D57xSERi i16 9 add get put} if ik 3 eq {nName 3 D57xSERi i16 8 add get put nName 4 D57xSERi i16 9 add get put} if /X10 X0i N1 get def /Y10 Y0i N1 get def /Z10 Z0i N1 get def /X20 X0i N2 get def /Y20 Y0i N2 get def /Z20 Z0i N2 get def /X30 X0i N3 get def /Y30 Y0i N3 get def /Z30 Z0i N3 get def 0 1 1 {/i exch def %i=0,1 i 0 eq {%i=0,1 /X0 X20 def /Y0 Y20 def /Z0 Z20 def /X1 X10 def /Y1 Y10 def /Z1 Z10 def } if %i=0 i 1 eq {%i=1 /X0 X20 def /Y0 Y20 def /Z0 Z20 def /X1 X30 def /Y1 Y30 def /Z1 Z30 def } if %i=1 proc_coldiff } for %i=0,1 DLAB21ik ik d_CIELABi 0 get put DLAB32ik ik d_CIELABi 1 get put %025 ik=0 W-Wc-CW 089-090-091 %031 ik=1 CW-Cw-C 091-092-093 %037 ik=2 C-Cn-CN 149-150-151 %043 ik=3 CN-Nc-N 151-152-153 %001 ik=4 W-CW-C 001-002-003 %007 ik=5 C-CN-N 037-038-039 %013 ik=6 W-C-N 209-210-211 %/ioutk 1 def %ioutk 0 eq {%ioutk=0 xchart4 0 eq {%xchart4=0 ik 0 eq {cwdifx 0 DLAB21ik ik get put %W-Wc-CW cwdifx 1 DLAB32ik ik get put} if ik 1 eq {cwdifx 2 DLAB21ik ik get put %CW-Cw-C cwdifx 3 DLAB32ik ik get put} if ik 2 eq {cndifx 0 DLAB21ik ik get put %C-Cn-CN cndifx 1 DLAB32ik ik get put} if ik 3 eq {cndifx 2 DLAB21ik ik get put %CN-Nc-N cndifx 3 DLAB32ik ik get put} if ik 4 eq {cwdifx 4 DLAB21ik ik get put %W-CW-C cwdifx 5 DLAB32ik ik get put} if ik 5 eq {cndifx 4 DLAB21ik ik get put %C-CN-N cndifx 5 DLAB32ik ik get put} if ik 6 eq {cwdifx 6 DLAB21ik ik get put %W-C-N cndifx 6 DLAB32ik ik get put} if } if %xchart4=0 %} if %ioutk=0 %ioutk 1 eq {%ioutk=1 xchart4 1 eq {%xchart4=1 ik 0 eq {cwdifx 0 DV*1ik ik get put %W-Wc-CW cwdifx 1 DV*2ik ik get put} if ik 1 eq {cwdifx 2 DV*1ik ik get put %CW-Cw-C cwdifx 3 DV*2ik ik get put} if ik 2 eq {cndifx 0 DV*1ik ik get put %C-Cn-CN cndifx 1 DV*2ik ik get put} if ik 3 eq {cndifx 2 DV*1ik ik get put %CN-Nc-N cndifx 3 DV*2ik ik get put} if ik 4 eq {cwdifx 4 DV*1ik ik get put %W-CW-C cwdifx 5 DV*2ik ik get put} if ik 5 eq {cndifx 4 DV*1ik ik get put %C-CN-N cndifx 5 DV*2ik ik get put} if ik 6 eq {cwdifx 6 DV*1ik ik get put %W-C-N cndifx 6 DV*2ik ik get put} if ik 0 eq {cwstdx 0 DVS1ik ik get put %W-Wc-CW cwstdx 1 DVS2ik ik get put} if ik 1 eq {cwstdx 2 DVS1ik ik get put %CW-Cw-C cwstdx 3 DVS2ik ik get put} if ik 2 eq {cnstdx 0 DVS1ik ik get put %C-Cn-CN cnstdx 1 DVS2ik ik get put} if ik 3 eq {cnstdx 2 DVS1ik ik get put %CN-Nc-N cnstdx 3 DVS2ik ik get put} if ik 4 eq {cwstdx 4 DVS1ik ik get put %W-CW-C cwstdx 5 DVS2ik ik get put} if ik 5 eq {cnstdx 4 DVS1ik ik get put %C-CN-N cnstdx 5 DVS2ik ik get put} if ik 6 eq {cwstdx 6 DVS1ik ik get put %W-C-N cnstdx 6 DVS2ik ik get put} if } if %xchart4=1 %} if %ioutk=1 } for %ik=0,6 %7 series 0 1 3 {/ik exch def %ik=0,3 cwdif4 ik cwdifx ik get 0.49 add cvi put cndif4 ik cndifx ik get 0.49 add cvi put } for %ik=0,3 0 1 1 {/ik exch def %ik=0,1 cwdif2 ik cwdifx ik 4 add get 0.49 add cvi put cndif2 ik cndifx ik 4 add get 0.49 add cvi put } for %ik=0,1 cwdif1 0 cwdifx 6 get 0.49 add cvi put cndif1 0 cndifx 6 get 0.49 add cvi put xchart4 1 eq {%xchart4=1 0 1 3 {/ik exch def %ik=0,3 cwstd4 ik cwstdx ik get 0.49 add cvi put cnstd4 ik cnstdx ik get 0.49 add cvi put } for %ik=0,3 0 1 1 {/ik exch def %ik=0,1 cwstd2 ik cwstdx ik 4 add get 0.49 add cvi put cnstd2 ik cnstdx ik 4 add get 0.49 add cvi put } for %ik=0,1 cwstd1 0 cwstdx 6 get 0.49 add cvi put cnstd1 0 cnstdx 6 get 0.49 add cvi put } if %xchart4=1 %STOP5 newpath /k 0 def /j 0 def /i 0 def 0 1 2 {/k exch def %k=0,2 %three rows /ys yshift k mul def 0 1 1 {/j exch def %j=0,1 %left, right /xs xshift j mul def k 0 eq {TBS j 0 eq {%j=0 1 1 1 setrgbcolor xpp yp 0300 add moveto (helle Serie ) showde (light series ) showen wName 4 get show ( nach W) showde ( to W) showen } if %j=0 j 1 eq {%j=1 0 0 0 setrgbcolor xp 450 sub xshift add yp 0300 add moveto (dunkle Serie ) showde (dark series ) showen nName 0 get show ( nach N) showde ( to N) showen } if %j=1 } if %k=0 TS 0 0 0 setrgbcolor 0 1 4 {/i exch def %i=0,4 %five colours /xi xpW xm i mul add xs add def %NW /yi ypW ym i mul add ys sub def % xpW ypW moveto (START, i, wName) show % i cvishow % wName i get show k 0 eq {xi 100 sub yi 200 add moveto j 0 eq {wName 4 i sub get show} if j 1 eq {nName i get show} if newpath } if k 0 eq i 3 le and {xi 100 add yi 350 sub moveto j 0 eq {cwdif4 3 i sub get cvishow} if j 1 eq {cndif4 i get cvishow} if xchart4 1 eq {%xchart4=1 (\261) show %+/- j 0 eq {cwstd4 3 i sub get cvishow} if j 1 eq {cnstd4 i get cvishow} if } if %xchart4=1 newpath } if k 0 eq i 1 le and {xi 400 add i 500 mul add yi 1150 sub moveto j 0 eq {cwdif2 1 i sub get cvishow} if j 1 eq {cndif2 i get cvishow} if xchart4 1 eq {%xchart4=1 (\261) show %+/- j 0 eq {cwstd2 1 i sub get cvishow} if j 1 eq {cnstd2 i get cvishow} if } if %xchart4=1 newpath } if k 0 eq i 0 le and {xi 1000 add i 500 mul add yi 2000 sub moveto j 0 eq {cwdif1 0 get cvishow} if j 1 eq {cndif1 0 get cvishow} if xchart4 1 eq {%xchart4=1 (\261) show %+/- j 0 eq {cwstd1 0 get cvishow} if j 1 eq {cnstd1 0 get cvishow} if } if %xchart4=1 newpath } if i 0 eq i 4 eq or {0 0 0 setrgbcolor xi yi 140 0 360 arc fill } if j 0 eq {%j=0 /w i 4 div def xchartl 0 eq {w 1 1 setrgbcolor} if %C-W xchartl 1 eq {w w 1 setrgbcolor} if %V-W xchartl 2 eq {1 w 1 setrgbcolor} if %M-W xchartl 3 eq {1 w w setrgbcolor} if %O-W xchartl 4 eq {1 1 w setrgbcolor} if %Y-W xchartl 5 eq {w 1 w setrgbcolor} if %L-W } if %j=0 j 1 eq {%j=1 /w 1 i 4 div sub def xchartl 0 eq {0 w w setrgbcolor} if %C-N xchartl 1 eq {0 0 w setrgbcolor} if %V-N xchartl 2 eq {w 0 w setrgbcolor} if %M-N xchartl 3 eq {w 0 0 setrgbcolor} if %O-N xchartl 4 eq {w w 0 setrgbcolor} if %Y-N xchartl 5 eq {0 w 0 setrgbcolor} if %L-N } if %j=1 xi yi 070 0 360 arc fill i 0 eq i 4 eq or {0 0 0 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if k 0 eq {%k=0 i 1 ge i 3 le and {%k=0 and all i 0 0 0 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if %i=2 and k<2 } if %k=0 k 1 eq i 2 eq and {%k=1 and i=2 0 0 0 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if %k=1 and i=2 i 4 eq j 1 eq and {%i=4 and j=1 %cross in black N 1 1 1 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if %i=4 and j=1 } for %i=0,4 } for %j=0,1 } for %k=0,2 xt1 neg yt1 neg translate %************************************************************************* showpage grestore %} for %xchartl=0,5 %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 03 MM sub 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 24 %line 459 %!PS-Adobe-3.0 EPSF-3.0 XE391-4N %%BoundingBox: 70 83 245 190 %START PDFDE011.EPS /pdfmark14 where {pop} {userdict /pdfmark14 /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://130.149.60.45/~farbmetrik/SE25/) /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, colour vision) /Creator (klaus.richter@mac.com) /CreationDate (D:2016070112000) /ModDate (D:2016070112000) /DOCINFO pdfmark14 [ /View [ /FitB ] /DOCVIEW pdfmark14 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /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 /TV {160 /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 /TIV {160 /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 /TBV {160 /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 /TBIV {160 /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 /SV {160 /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 %%EndProlog gsave /nshow {TS show} bind def /kshow {TIS show} bind def /bshow {TBS show} bind def /jshow {TBIS show} bind def /ibshown {TBS -50 -50 rmoveto show 0 50 rmoveto TBS} bind def /ibshow0 {TBS -00 -50 rmoveto show 0 50 rmoveto TBS} bind def /ishown {TS -50 -50 rmoveto show 0 50 rmoveto TS } bind def /ishow0 {TS -00 -50 rmoveto show 0 50 rmoveto TS } bind def %40% kleiner /ns4 {250 /Times-ISOL1 FS show TK} bind def /ks4 {250 /TimesI-ISOL1 FS show TK} bind def /bs4 {250 /TimesB-ISOL1 FS show TK} bind def /js4 {250 /TimesBI-ISOL1 FS show TK} bind def /ss4 {250 /Symbol FS show TK} bind def /is4 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /es4 {200 /Times-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ib4 {200 /TimesB-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /eb4 {200 /TimesB-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ip4 {200 /Times-ISOL1 FS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def %60% kleiner /ns6 {200 /Times-ISOL1 FS show TS} bind def /ks6 {200 /TimesI-ISOL1 FS show TS} bind def /bs6 {200 /TimesB-ISOL1 FS show TS} bind def /js6 {200 /TimesBI-ISOL1 FS show TS} bind def /ss6 {200 /Symbol FS show TS} bind def /is6 {160 /Times-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /es6 {160 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ib6 {160 /TimesB-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /eb6 {160 /TimesB-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ip6 {160 /Times-ISOL1 FS 24 24 rmoveto (\267) show 24 -24 rmoveto TS} bind /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show} def %************************************************************* %Aus Kittelmann_CD_DA/Daten der Ausertung/ %Farbwerte der Farbfelder und Reihen.xls/CIELAB_1 %siehe auch Dipl-Arbeit Seite 31 ff /LAB_KIi 3100 array def %310x10 /LAB_KIi [ %n L*r a*r b*r L*t a*t b*t E*r-t C*r h*r % L*r a*r b*r CIELAB data of 310 printel samples, see page 34 % 95.410 -0.980 4.760 ISO 15775 Papierweiss Tab. 2.2 1 94.806 -1.832 6.977 95.410 -0.980 4.760 2.450 7.213 104.710 2 76.937 -16.536 -18.248 77.015 -15.805 -18.995 1.048 24.626 227.818 3 59.410 -30.942 -42.455 58.620 -30.630 -42.750 0.899 52.534 233.915 4 94.807 -1.883 7.035 95.410 -0.980 4.760 2.520 7.282 104.985 5 76.919 -16.503 -18.327 77.015 -15.805 -18.995 0.971 24.663 227.998 6 59.468 -30.964 -42.431 58.620 -30.630 -42.750 0.966 52.528 233.880 7 94.796 -1.848 7.051 95.410 -0.980 4.760 2.526 7.289 104.684 8 60.143 15.422 -18.907 60.565 15.185 -19.800 1.016 24.399 309.204 9 27.166 31.237 -43.580 25.720 31.350 -44.360 1.646 53.619 305.632 10 94.811 -1.797 6.812 95.410 -0.980 4.760 2.288 7.045 104.775 11 60.039 15.614 -19.124 60.565 15.185 -19.800 0.958 24.689 309.231 12 27.145 31.257 -43.757 25.720 31.350 -44.360 1.550 53.774 305.539 13 94.813 -1.742 6.702 95.410 -0.980 4.760 2.170 6.925 104.573 14 71.354 37.382 -0.087 71.770 37.110 -1.020 1.057 37.382 359.867 15 48.299 74.762 -6.470 48.130 75.200 -6.800 0.573 75.042 355.054 16 94.862 -1.790 6.808 95.410 -0.980 4.760 2.269 7.039 104.734 17 71.430 37.531 -0.146 71.770 37.110 -1.020 1.028 37.531 359.777 18 48.348 75.034 -6.602 48.130 75.200 -6.800 0.338 75.324 354.972 19 94.829 -1.679 6.457 95.410 -0.980 4.760 1.925 6.672 104.576 20 71.895 30.271 30.198 71.675 32.165 28.415 2.611 42.758 44.931 21 48.389 65.379 52.900 47.940 65.310 52.070 0.946 84.100 38.977 22 94.841 -1.727 6.563 95.410 -0.980 4.760 2.033 6.787 104.743 23 71.834 30.282 30.495 71.675 32.165 28.415 2.810 42.976 45.200 24 48.373 65.160 52.576 47.940 65.310 52.070 0.683 83.726 38.899 25 94.856 -1.811 6.930 95.410 -0.980 4.760 2.389 7.163 104.645 26 91.995 -9.864 53.175 92.890 -6.070 50.465 4.747 54.082 100.509 27 88.831 -7.617 100.643 90.370 -11.160 96.170 5.910 100.931 94.328 28 94.840 -1.857 6.961 95.410 -0.980 4.760 2.437 7.204 104.938 29 91.969 -9.864 53.060 92.890 -6.070 50.465 4.688 53.969 100.532 30 88.822 -7.585 99.964 90.370 -11.160 96.170 5.438 100.251 94.339 31 94.843 -1.831 6.986 95.410 -0.980 4.760 2.450 7.223 104.689 32 72.670 -33.310 23.706 73.155 -31.970 20.735 3.296 40.885 144.561 33 52.763 -62.634 40.725 50.900 -62.960 36.710 4.438 74.710 146.968 34 94.844 -1.844 6.940 95.410 -0.980 4.760 2.413 7.181 104.883 35 72.659 -33.330 23.584 73.155 -31.970 20.735 3.195 40.830 144.717 36 52.751 -62.659 40.456 50.900 -62.960 36.710 4.189 74.585 147.152 37 59.858 -30.723 -42.299 58.620 -30.630 -42.750 1.321 52.279 234.008 38 39.512 -15.438 -20.098 38.315 -15.065 -21.605 1.960 25.343 232.471 39 20.439 0.604 1.879 18.010 0.500 -0.460 3.374 1.974 72.184 40 59.843 -30.628 -42.217 58.620 -30.630 -42.750 1.334 52.157 234.039 41 39.472 -15.216 -20.290 38.315 -15.065 -21.605 1.759 25.361 233.132 42 20.596 0.834 1.790 18.010 0.500 -0.460 3.444 1.975 65.031 43 28.050 31.224 -43.592 25.720 31.350 -44.360 2.457 53.621 305.613 44 24.428 16.573 -21.290 21.865 15.925 -22.410 2.871 26.980 307.898 45 20.775 1.062 1.849 18.010 0.500 -0.460 3.646 2.132 60.115 46 27.951 31.592 -43.586 25.720 31.350 -44.360 2.374 53.831 305.935 47 24.413 16.789 -21.558 21.865 15.925 -22.410 2.822 27.324 307.911 48 20.742 1.238 1.780 18.010 0.500 -0.460 3.609 2.168 55.193 49 47.685 75.265 -6.106 48.130 75.200 -6.800 0.827 75.513 355.362 50 34.058 36.976 -1.848 33.070 37.850 -3.630 2.217 37.022 357.138 51 19.828 0.759 1.618 18.010 0.500 -0.460 2.773 1.787 64.874 52 47.770 75.333 -6.073 48.130 75.200 -6.800 0.823 75.577 355.391 53 34.024 36.746 -1.841 33.070 37.850 -3.630 2.308 36.792 357.131 54 19.895 0.766 1.713 18.010 0.500 -0.460 2.889 1.877 65.917 55 48.084 65.391 53.701 47.940 65.310 52.070 1.639 84.616 39.394 56 33.902 32.769 28.182 32.975 32.905 25.805 2.555 43.221 40.696 57 20.096 0.689 1.832 18.010 0.500 -0.460 3.105 1.958 69.398 58 48.093 65.240 53.510 47.940 65.310 52.070 1.449 84.377 39.358 59 33.983 32.963 28.200 32.975 32.905 25.805 2.599 43.379 40.547 60 20.045 0.703 1.815 18.010 0.500 -0.460 3.059 1.946 68.836 61 88.969 -7.916 99.202 90.370 -11.160 96.170 4.656 99.517 94.562 62 54.202 -4.710 50.539 54.190 -5.330 47.855 2.755 50.758 95.324 63 20.513 1.218 2.043 18.010 0.500 -0.460 3.612 2.379 59.195 64 88.968 -7.927 98.732 90.370 -11.160 96.170 4.357 99.050 94.591 65 54.261 -4.648 50.299 54.190 -5.330 47.855 2.539 50.514 95.279 66 20.641 0.847 1.666 18.010 0.500 -0.460 3.401 1.869 63.062 67 53.549 -61.840 40.746 50.900 -62.960 36.710 4.956 74.057 146.619 68 35.886 -31.821 20.383 34.455 -31.230 18.125 2.738 37.790 147.359 69 20.920 1.315 2.010 18.010 0.500 -0.460 3.903 2.401 56.801 70 53.497 -62.212 40.195 50.900 -62.960 36.710 4.410 74.067 147.134 71 35.953 -31.500 20.084 34.455 -31.230 18.125 2.481 37.358 147.479 72 20.895 1.150 1.709 18.010 0.500 -0.460 3.667 2.059 56.060 73 94.784 -1.844 6.954 95.410 -0.980 4.760 2.440 7.194 104.855 74 57.474 -0.187 4.308 56.710 -0.240 2.150 2.290 4.312 92.481 75 19.853 0.660 2.057 18.010 0.500 -0.460 3.124 2.160 72.205 76 94.850 -1.803 6.917 95.410 -0.980 4.760 2.376 7.148 104.613 77 57.492 -0.158 4.396 56.710 -0.240 2.150 2.380 4.399 92.060 78 19.840 0.774 1.873 18.010 0.500 -0.460 2.978 2.026 67.556 79 94.712 -1.740 6.671 95.410 -0.980 4.760 2.171 6.894 104.624 80 75.767 -1.256 4.576 76.060 -0.610 3.455 1.327 4.745 105.346 81 57.770 -0.029 4.084 56.710 -0.240 2.150 2.215 4.084 90.406 82 38.879 0.418 3.397 37.360 0.130 0.845 2.983 3.422 82.988 83 20.500 0.760 1.906 18.010 0.500 -0.460 3.445 2.052 68.276 84 94.746 -1.749 6.752 95.410 -0.980 4.760 2.236 6.975 104.522 85 75.784 -1.036 4.321 76.060 -0.610 3.455 1.004 4.443 103.478 86 57.797 0.122 4.078 56.710 -0.240 2.150 2.243 4.080 88.280 87 38.909 0.429 3.229 37.360 0.130 0.845 2.859 3.258 82.432 88 20.404 0.745 1.681 18.010 0.500 -0.460 3.221 1.839 66.098 89 94.821 -1.758 6.747 95.410 -0.980 4.760 2.214 6.973 104.604 90 86.389 -9.074 -6.237 86.213 -8.393 -7.118 1.128 11.011 214.502 91 76.787 -16.568 -18.756 77.015 -15.805 -18.995 0.832 25.026 228.543 92 68.577 -23.637 -30.298 67.818 -23.218 -30.873 1.041 38.427 232.040 93 59.128 -30.875 -42.876 58.620 -30.630 -42.750 0.578 52.835 234.243 94 94.810 -1.748 6.756 95.410 -0.980 4.760 2.221 6.978 104.505 95 86.419 -8.953 -6.387 86.213 -8.393 -7.118 0.943 10.998 215.505 96 76.820 -16.491 -18.789 77.015 -15.805 -18.995 0.742 25.000 228.727 97 68.658 -23.582 -30.348 67.818 -23.218 -30.873 1.056 38.433 232.151 98 59.211 -30.905 -42.735 58.620 -30.630 -42.750 0.652 52.739 234.127 99 94.672 -1.678 6.502 95.410 -0.980 4.760 2.016 6.715 104.470 100 78.300 7.067 -7.013 77.988 7.103 -7.520 0.597 9.956 315.220 101 60.293 15.348 -19.582 60.565 15.185 -19.800 0.385 24.880 308.089 102 44.203 22.986 -31.712 43.143 23.268 -32.080 1.157 39.167 305.936 103 27.016 31.165 -43.974 25.720 31.350 -44.360 1.365 53.898 305.325 104 94.830 -1.783 6.928 95.410 -0.980 4.760 2.383 7.154 104.433 105 78.257 7.039 -7.270 77.988 7.103 -7.520 0.373 10.119 314.077 106 60.155 15.718 -20.231 60.565 15.185 -19.800 0.798 25.619 307.845 107 44.111 23.540 -32.017 43.143 23.268 -32.080 1.008 39.740 306.324 108 26.626 33.169 -44.169 25.720 31.350 -44.360 2.042 55.237 306.905 109 94.830 -1.701 6.558 95.410 -0.980 4.760 2.022 6.775 104.543 110 83.971 17.488 2.916 83.590 18.065 1.870 1.254 17.729 9.468 111 71.531 37.398 -0.616 71.770 37.110 -1.020 0.550 37.403 359.056 112 60.110 56.166 -3.810 59.950 56.155 -3.910 0.189 56.295 356.120 113 48.082 74.995 -6.574 48.130 75.200 -6.800 0.309 75.282 354.990 114 94.878 -1.729 6.630 95.410 -0.980 4.760 2.084 6.852 104.617 115 83.935 17.501 2.928 83.590 18.065 1.870 1.247 17.744 9.497 116 71.513 37.496 -0.695 71.770 37.110 -1.020 0.566 37.502 358.938 117 60.110 56.159 -3.719 59.950 56.155 -3.910 0.249 56.282 356.211 118 48.182 74.902 -6.412 48.130 75.200 -6.800 0.492 75.176 355.107 119 94.804 -1.818 7.199 95.410 -0.980 4.760 2.649 7.425 104.176 120 82.777 14.554 17.861 83.543 15.593 16.588 1.812 23.040 50.825 121 71.216 31.512 29.973 71.675 32.165 28.415 1.750 43.490 43.566 122 59.233 49.560 42.426 59.808 48.738 40.243 2.403 65.239 40.565 123 47.901 65.572 53.795 47.940 65.310 52.070 1.745 84.815 39.365 124 94.772 -1.833 6.825 95.410 -0.980 4.760 2.324 7.067 105.036 125 82.720 14.616 17.563 83.543 15.593 16.588 1.607 22.849 50.232 126 71.256 31.437 30.263 71.675 32.165 28.415 2.030 43.636 43.910 127 59.267 49.547 42.334 59.808 48.738 40.243 2.306 65.169 40.511 128 47.815 65.383 53.061 47.940 65.310 52.070 1.001 84.204 39.061 129 94.840 -1.780 6.905 95.410 -0.980 4.760 2.359 7.131 104.455 130 93.112 -6.364 28.580 94.150 -3.525 27.613 3.174 29.280 102.554 131 92.030 -9.686 51.982 92.890 -6.070 50.465 4.014 52.877 100.555 132 90.731 -10.442 77.889 91.630 -8.615 73.318 5.005 78.586 97.636 133 88.925 -7.755 98.630 90.370 -11.160 96.170 4.442 98.935 94.496 134 94.750 -1.706 6.774 95.410 -0.980 4.760 2.240 6.985 104.140 135 93.456 -6.983 29.551 94.150 -3.525 27.613 4.024 30.365 103.295 136 91.762 -9.588 54.588 92.890 -6.070 50.465 5.536 55.424 99.962 137 90.523 -9.923 78.975 91.630 -8.615 73.318 5.912 79.596 97.161 138 88.450 -7.383 99.721 90.370 -11.160 96.170 5.528 99.994 94.234 139 94.774 -1.701 6.618 95.410 -0.980 4.760 2.092 6.833 104.419 140 84.620 -17.161 14.272 84.283 -16.475 12.748 1.706 22.320 140.250 141 72.841 -32.934 22.138 73.155 -31.970 20.735 1.731 39.683 146.092 142 63.629 -47.768 31.268 62.028 -47.465 28.723 3.022 57.091 146.792 143 53.074 -62.749 39.986 50.900 -62.960 36.710 3.938 74.407 147.493 144 94.824 -1.732 6.644 95.410 -0.980 4.760 2.111 6.866 104.611 145 84.610 -17.132 14.251 84.283 -16.475 12.748 1.673 22.284 140.245 146 72.795 -32.837 21.866 73.155 -31.970 20.735 1.470 39.451 146.341 147 63.609 -47.604 30.857 62.028 -47.465 28.723 2.660 56.730 147.049 148 53.068 -62.538 39.758 50.900 -62.960 36.710 3.764 74.106 147.554 149 59.304 -30.836 -42.453 58.620 -30.630 -42.750 0.774 52.471 234.007 150 48.835 -23.073 -32.162 48.468 -22.848 -32.178 0.431 39.582 234.345 151 38.544 -15.514 -20.880 38.315 -15.065 -21.605 0.883 26.012 233.387 152 28.577 -8.727 -9.949 28.163 -7.283 -11.033 1.853 13.234 228.743 153 19.400 0.578 1.071 18.010 0.500 -0.460 2.069 1.217 61.645 154 59.283 -30.812 -42.644 58.620 -30.630 -42.750 0.696 52.611 234.150 155 49.013 -23.128 -32.035 48.468 -22.848 -32.178 0.630 39.512 234.172 156 38.632 -15.429 -21.396 38.315 -15.065 -21.605 0.526 26.379 234.205 157 28.626 -9.032 -10.165 28.163 -7.283 -11.033 2.007 13.598 228.377 158 19.526 0.414 1.083 18.010 0.500 -0.460 2.165 1.159 69.068 159 26.747 31.469 -43.910 25.720 31.350 -44.360 1.128 54.022 305.628 160 25.010 24.152 -33.934 23.793 23.638 -33.385 1.431 41.651 305.440 161 23.199 16.450 -22.261 21.865 15.925 -22.410 1.441 27.680 306.463 162 21.560 8.223 -9.882 19.938 8.213 -11.435 2.246 12.856 309.764 163 19.767 0.771 1.400 18.010 0.500 -0.460 2.573 1.598 61.142 164 26.466 33.265 -43.952 25.720 31.350 -44.360 2.096 55.121 307.121 165 24.531 25.256 -34.061 23.793 23.638 -33.385 1.903 42.403 306.557 166 22.532 17.348 -22.759 21.865 15.925 -22.410 1.610 28.617 307.317 167 21.297 9.116 -10.038 19.938 8.213 -11.435 2.148 13.559 312.243 168 20.241 1.362 2.421 18.010 0.500 -0.460 3.745 2.778 60.648 169 47.954 75.045 -6.124 48.130 75.200 -6.800 0.715 75.294 355.335 170 39.935 56.633 -5.204 40.600 56.525 -5.215 0.674 56.872 354.750 171 34.317 37.076 -2.591 33.070 37.850 -3.630 1.798 37.166 356.003 172 27.113 19.906 0.097 25.540 19.175 -2.045 2.756 19.906 0.279 173 20.282 0.865 1.650 18.010 0.500 -0.460 3.122 1.863 62.340 174 48.114 74.940 -6.437 48.130 75.200 -6.800 0.447 75.216 355.091 175 40.005 56.475 -5.385 40.600 56.525 -5.215 0.621 56.731 354.553 176 34.340 37.261 -2.923 33.070 37.850 -3.630 1.569 37.376 355.515 177 27.115 19.691 -0.318 25.540 19.175 -2.045 2.394 19.694 359.076 178 20.357 0.721 1.317 18.010 0.500 -0.460 2.952 1.501 61.306 179 47.885 65.560 53.596 47.940 65.310 52.070 1.548 84.680 39.267 180 40.159 49.175 39.907 40.458 49.108 38.938 1.017 63.331 39.061 181 33.458 32.557 27.471 32.975 32.905 25.805 1.770 42.598 40.158 182 26.575 18.004 15.031 25.493 16.703 12.673 2.904 23.454 39.858 183 19.509 0.349 1.149 18.010 0.500 -0.460 2.205 1.201 73.119 184 47.899 65.372 53.449 47.940 65.310 52.070 1.381 84.441 39.270 185 40.193 49.025 39.636 40.458 49.108 38.938 0.752 63.043 38.955 186 33.443 32.649 27.569 32.975 32.905 25.805 1.843 42.732 40.179 187 26.586 17.967 15.189 25.493 16.703 12.673 3.021 23.527 40.209 188 19.559 0.718 1.107 18.010 0.500 -0.460 2.214 1.319 57.028 189 88.855 -7.734 98.558 90.370 -11.160 96.170 4.442 98.861 94.487 190 72.418 -8.190 74.514 72.280 -8.245 72.013 2.506 74.962 96.272 191 53.856 -5.000 49.618 54.190 -5.330 47.855 1.824 49.869 95.755 192 37.368 -2.171 26.048 36.100 -2.415 23.698 2.682 26.138 94.764 193 19.741 0.588 1.403 18.010 0.500 -0.460 2.544 1.521 67.252 194 88.335 -7.243 99.966 90.370 -11.160 96.170 5.821 100.228 94.144 195 72.521 -8.080 74.951 72.280 -8.245 72.013 2.953 75.385 96.153 196 54.041 -4.892 50.769 54.190 -5.330 47.855 2.951 51.005 95.504 197 37.291 -2.102 27.349 36.100 -2.415 23.698 3.854 27.430 94.394 198 20.047 1.076 1.865 18.010 0.500 -0.460 3.144 2.153 60.022 199 52.992 -62.907 39.847 50.900 -62.960 36.710 3.771 74.466 147.649 200 44.029 -47.586 30.202 42.678 -47.095 27.418 3.134 56.361 147.598 201 35.211 -32.267 19.159 34.455 -31.230 18.125 1.648 37.526 149.301 202 26.980 -16.066 9.803 26.233 -15.365 8.833 1.411 18.821 148.611 203 20.466 0.704 1.621 18.010 0.500 -0.460 3.225 1.767 66.517 204 52.908 -62.721 39.980 50.900 -62.960 36.710 3.845 74.379 147.486 205 43.965 -47.550 30.261 42.678 -47.095 27.418 3.154 56.362 147.527 206 35.087 -31.927 19.339 34.455 -31.230 18.125 1.536 37.328 148.796 207 26.972 -15.836 9.697 26.233 -15.365 8.833 1.232 18.569 148.519 208 20.294 0.770 1.635 18.010 0.500 -0.460 3.111 1.808 64.791 209 94.809 -1.830 6.976 95.410 -0.980 4.760 2.449 7.212 104.699 210 58.984 -30.966 -42.837 58.620 -30.630 -42.750 0.503 52.858 234.137 211 19.349 0.469 1.318 18.010 0.500 -0.460 2.226 1.398 70.426 212 94.944 -1.846 7.105 95.410 -0.980 4.760 2.543 7.341 104.567 213 58.971 -30.882 -42.895 58.620 -30.630 -42.750 0.456 52.855 234.248 214 19.176 0.272 0.555 18.010 0.500 -0.460 1.563 0.618 63.872 215 94.790 -1.802 6.934 95.410 -0.980 4.760 2.405 7.164 104.566 216 26.440 31.213 -44.153 25.720 31.350 -44.360 0.762 54.072 305.257 217 19.441 0.489 1.328 18.010 0.500 -0.460 2.290 1.415 69.769 218 94.798 -1.798 6.914 95.410 -0.980 4.760 2.385 7.145 104.579 219 26.313 31.108 -44.083 25.720 31.350 -44.360 0.697 53.954 305.210 220 19.377 0.342 0.924 18.010 0.500 -0.460 1.951 0.985 69.704 221 94.819 -1.802 6.895 95.410 -0.980 4.760 2.363 7.127 104.645 222 47.850 74.956 -6.176 48.130 75.200 -6.800 0.726 75.210 355.289 223 19.840 0.541 1.276 18.010 0.500 -0.460 2.523 1.386 67.045 224 94.770 -1.747 6.714 95.410 -0.980 4.760 2.194 6.937 104.589 225 47.821 75.208 -5.965 48.130 75.200 -6.800 0.890 75.444 355.465 226 19.694 0.611 1.037 18.010 0.500 -0.460 2.255 1.203 59.503 227 94.825 -1.776 6.746 95.410 -0.980 4.760 2.218 6.976 104.750 228 48.028 65.260 53.084 47.940 65.310 52.070 1.019 84.124 39.126 229 19.876 0.685 0.983 18.010 0.500 -0.460 2.366 1.198 55.119 230 94.757 -1.745 6.631 95.410 -0.980 4.760 2.124 6.857 104.740 231 48.025 65.348 52.692 47.940 65.310 52.070 0.629 83.945 38.880 232 19.948 0.440 0.952 18.010 0.500 -0.460 2.398 1.049 65.224 233 94.873 -1.904 7.232 95.410 -0.980 4.760 2.693 7.478 104.749 234 88.844 -7.513 99.977 90.370 -11.160 96.170 5.488 100.259 94.298 235 19.166 0.454 1.197 18.010 0.500 -0.460 2.021 1.280 69.252 236 94.774 -1.875 7.051 95.410 -0.980 4.760 2.540 7.296 104.892 237 88.796 -7.519 99.400 90.370 -11.160 96.170 5.115 99.684 94.326 238 19.338 0.352 0.841 18.010 0.500 -0.460 1.865 0.912 67.297 239 94.804 -1.889 7.199 95.410 -0.980 4.760 2.672 7.443 104.699 240 52.200 -63.279 39.813 50.900 -62.960 36.710 3.380 74.762 147.823 241 19.336 0.468 1.313 18.010 0.500 -0.460 2.214 1.394 70.403 242 94.841 -1.856 7.078 95.410 -0.980 4.760 2.542 7.317 104.693 243 52.201 -63.318 39.205 50.900 -62.960 36.710 2.837 74.473 148.235 244 19.327 0.532 0.810 18.010 0.500 -0.460 1.830 0.969 56.705 245 59.110 -30.725 -42.847 58.620 -30.630 -42.750 0.508 52.725 234.357 246 26.841 31.207 -43.931 25.720 31.350 -44.360 1.209 53.887 305.389 247 47.998 74.766 -5.917 48.130 75.200 -6.800 0.993 74.999 355.475 248 59.180 -30.727 -42.860 58.620 -30.630 -42.750 0.579 52.736 234.363 249 26.918 30.963 -43.680 25.720 31.350 -44.360 1.431 53.541 305.332 250 47.960 74.748 -5.974 48.130 75.200 -6.800 0.957 74.987 355.431 251 47.932 74.957 -6.193 48.130 75.200 -6.800 0.683 75.213 355.277 252 47.999 65.290 53.196 47.940 65.310 52.070 1.127 84.217 39.172 253 88.840 -7.715 98.748 90.370 -11.160 96.170 4.567 99.049 94.467 254 47.938 74.793 -6.065 48.130 75.200 -6.800 0.862 75.039 355.364 255 47.995 65.199 52.614 47.940 65.310 52.070 0.558 83.781 38.902 256 88.992 -7.768 98.150 90.370 -11.160 96.170 4.162 98.457 94.525 257 88.806 -7.564 99.378 90.370 -11.160 96.170 5.066 99.666 94.353 258 52.054 -63.456 39.583 50.900 -62.960 36.710 3.136 74.790 148.045 259 58.953 -30.907 -42.839 58.620 -30.630 -42.750 0.442 52.824 234.190 260 88.799 -7.554 99.130 90.370 -11.160 96.170 4.923 99.418 94.358 261 52.114 -63.302 39.247 50.900 -62.960 36.710 2.833 74.482 148.202 262 59.070 -30.873 -42.721 58.620 -30.630 -42.750 0.513 52.709 234.145 263 26.607 31.110 -43.675 25.720 31.350 -44.360 1.146 53.622 305.462 264 58.916 -30.902 -42.852 58.620 -30.630 -42.750 0.414 52.832 234.204 265 52.088 -63.025 39.540 50.900 -62.960 36.710 3.070 74.401 147.897 266 26.722 30.906 -43.822 25.720 31.350 -44.360 1.220 53.624 305.194 267 59.121 -30.882 -42.788 58.620 -30.630 -42.750 0.562 52.769 234.181 268 52.256 -63.141 39.105 50.900 -62.960 36.710 2.758 74.269 148.229 269 52.510 -62.813 39.840 50.900 -62.960 36.710 3.523 74.382 147.615 270 88.821 -7.677 99.211 90.370 -11.160 96.170 4.876 99.507 94.425 271 47.854 65.422 53.179 47.940 65.310 52.070 1.118 84.309 39.106 272 52.472 -62.907 39.443 50.900 -62.960 36.710 3.153 74.250 147.912 273 88.911 -7.687 98.611 90.370 -11.160 96.170 4.488 98.910 94.458 274 48.184 65.048 53.192 47.940 65.310 52.070 1.177 84.027 39.274 275 47.989 65.268 53.085 47.940 65.310 52.070 1.017 84.130 39.122 276 47.951 74.898 -5.916 48.130 75.200 -6.800 0.951 75.131 355.484 277 26.916 31.080 -43.714 25.720 31.350 -44.360 1.386 53.637 305.412 278 48.097 65.075 52.962 47.940 65.310 52.070 0.936 83.903 39.141 279 47.899 75.065 -6.424 48.130 75.200 -6.800 0.461 75.339 355.109 280 26.923 31.161 -44.194 25.720 31.350 -44.360 1.229 54.075 305.188 281 59.056 -30.846 -42.596 58.620 -30.630 -42.750 0.510 52.592 234.090 282 42.393 -0.024 -43.358 42.170 0.360 -43.555 0.485 43.358 269.969 283 26.201 31.341 -43.878 25.720 31.350 -44.360 0.681 53.922 305.538 284 35.879 52.754 -25.625 36.925 53.275 -25.580 1.170 58.649 334.092 285 47.697 75.104 -5.768 48.130 75.200 -6.800 1.123 75.325 355.608 286 59.077 -30.803 -42.830 58.620 -30.630 -42.750 0.495 52.757 234.277 287 42.530 0.124 -43.449 42.170 0.360 -43.555 0.443 43.449 270.163 288 26.456 31.114 -43.949 25.720 31.350 -44.360 0.875 53.848 305.297 289 36.149 53.085 -25.997 36.925 53.275 -25.580 0.901 59.109 333.908 290 47.813 74.760 -5.930 48.130 75.200 -6.800 1.026 74.995 355.465 291 47.681 75.057 -5.678 48.130 75.200 -6.800 1.217 75.271 355.674 292 48.009 70.346 23.542 48.035 70.255 22.635 0.912 74.181 18.503 293 47.948 65.385 53.204 47.940 65.310 52.070 1.137 84.297 39.135 294 69.043 27.507 75.803 69.155 27.075 74.120 1.742 80.640 70.055 295 88.877 -7.732 98.861 90.370 -11.160 96.170 4.607 99.162 94.472 296 47.708 75.078 -5.934 48.130 75.200 -6.800 0.971 75.312 355.481 297 48.137 70.269 23.468 48.035 70.255 22.635 0.839 74.085 18.468 298 47.993 65.415 53.124 47.940 65.310 52.070 1.060 84.269 39.080 299 69.008 27.609 75.411 69.155 27.075 74.120 1.405 80.306 69.892 300 88.950 -7.638 98.601 90.370 -11.160 96.170 4.509 98.897 94.429 301 88.888 -7.777 98.464 90.370 -11.160 96.170 4.348 98.770 94.516 302 69.977 -37.776 67.450 70.635 -37.060 66.440 1.402 77.308 119.251 303 52.753 -62.962 39.380 50.900 -62.960 36.710 3.250 74.263 147.976 304 56.064 -46.601 -2.263 54.760 -46.795 -3.020 1.520 46.656 182.780 305 59.454 -30.783 -42.623 58.620 -30.630 -42.750 0.858 52.577 234.163 306 88.698 -7.654 98.411 90.370 -11.160 96.170 4.484 98.708 94.447 307 69.890 -37.662 67.446 70.635 -37.060 66.440 1.389 77.249 119.179 308 52.671 -62.821 38.863 50.900 -62.960 36.710 2.791 73.870 148.258 309 55.892 -46.803 -2.516 54.760 -46.795 -3.020 1.239 46.871 183.077 310 59.528 -30.492 -42.511 58.620 -30.630 -42.750 0.949 52.316 234.349 ] def %LAB_KIi %************************************************************* /D57SERWi 2000 array def %max 57 series of 15 data (100x20) /D57SERWi [%BEG D57SERWi top data WANG_ELCD scaling data %0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %N S N1 N2 N3 N4 N5 NA1 NA2 NA3 NA4 NA5 DV*1i DV*2i WANG1 WANG2 %Serie 1, BAM test chart order 1:25 001 003 001 002 003 000 000 (W) (CW) (C) (0) (0) 26.45 26.39 (W03) (W04) 002 003 007 008 009 000 000 (W) (VW) (V) (0) (0) 29.54 41.95 (W13) (W14) 003 003 013 014 015 000 000 (W) (MW) (M) (0) (0) 31.00 32.74 (W23) (W24) 004 003 019 020 021 000 000 (W) (OW) (O) (0) (0) 28.01 37.64 (W33) (W34) 005 003 025 026 027 000 000 (W) (YW) (Y) (0) (0) 16.99 11.01 (W43) (W44) 006 003 031 032 033 000 000 (W) (LW) (L) (0) (0) 25.44 28.39 (W53) (W54) %Serie 2, BAM test chart order 1:25 007 003 037 038 039 000 000 (C) (CN) (N) (0) (0) 25.80 35.47 (W06) (W05) 008 003 043 044 045 000 000 (V) (VN) (N) (0) (0) 9.30 16.62 (W16) (W15) 009 003 049 050 051 000 000 (M) (MN) (N) (0) (0) 26.80 29.68 (W26) (W25) 010 003 055 056 057 000 000 (O) (ON) (N) (0) (0) 30.62 34.58 (W36) (W35) 011 003 061 062 063 000 000 (Y) (YN) (N) (0) (0) 29.85 41.77 (W46) (W45) 012 003 067 068 069 000 000 (L) (LN) (N) (0) (0) 18.79 35.12 (W56) (W55) %Serie 3, BAM test chart order 3:27 013 003 209 210 211 000 000 (W) (C) (N) (0) (0) 64.17 61.50 (W01) (W02) 014 003 215 216 217 000 000 (W) (V) (N) (0) (0) 67.03 32.91 (W11) (W12) 015 003 221 222 223 000 000 (W) (M) (N) (0) (0) 74.48 61.26 (W21) (W22) 016 003 227 228 229 000 000 (W) (O) (N) (0) (0) 71.77 67.21 (W31) (W32) 017 003 233 234 235 000 000 (W) (Y) (N) (0) (0) 37.26 86.10 (W41) (W42) 018 003 239 240 241 000 000 (W) (L) (N) (0) (0) 50.89 56.11 (W51) (W52) %Serie 4, BAM test chart order 3:27 019 003 245 246 247 000 000 (C) (V) (M) (0) (0) 41.67 45.01 (W09) (W19) 020 003 251 252 253 000 000 (M) (O) (Y) (0) (0) 28.41 72.32 (W29) (W39) 021 003 257 258 259 000 000 (Y) (L) (C) (0) (0) 64.80 40.72 (W49) (W59) 022 003 263 264 265 000 000 (V) (C) (L) (0) (0) 41.67 40.72 (W09) (W59) 023 003 269 270 271 000 000 (L) (Y) (O) (0) (0) 64.80 72.32 (W49) (W39) 024 003 275 276 277 000 000 (O) (M) (V) (0) (0) 28.41 45.01 (W29) (W19) %Serie 5, BAM test chart order 2:26 %values are missing 025 004 089 090 091 000 000 (W) (Wc) (CW) (0) (0) 26.45 0.00 (W03) (W00) 026 004 099 100 101 102 103 (W) (Wv) (VW) (0) (0) 29.54 0.00 (W13) (W00) 027 004 109 110 111 112 113 (W) (Wm) (MW) (0) (0) 31.00 0.00 (W23) (W00) 028 004 119 120 121 122 123 (W) (Wo) (OW) (0) (0) 28.01 0.00 (W33) (W00) 029 004 129 130 131 132 133 (W) (Wy) (YW) (0) (0) 16.99 0.00 (W43) (W00) 030 004 139 140 141 142 143 (W) (Wl) (LW) (0) (0) 25.44 0.00 (W53) (W00) %Serie 6, BAM test chart order 2:26 031 004 091 092 093 000 000 (CW) (Cw) (C) (0) (0) 26.39 0.00 (W04) (W00) 032 004 101 102 103 000 000 (VW) (Vw) (V) (0) (0) 41.95 0.00 (W14) (W00) 033 004 111 112 113 000 000 (MW) (Mw) (M) (0) (0) 32.74 0.00 (W24) (W00) 034 004 121 122 123 000 000 (OW) (Ow) (O) (0) (0) 37.64 0.00 (W34) (W00) 035 004 131 132 133 000 000 (YW) (Yw) (Y) (0) (0) 110.1 0.00 (W44) (W00) 036 004 141 142 143 000 000 (LW) (Lw) (L) (0) (0) 28.39 0.00 (W54) (W00) %Serie 7, BAM test chart order 2:26 037 004 149 150 151 000 000 (C) (Cn) (CN) (0) (0) 25.80 0.00 (W06) (W00) 038 004 159 160 161 000 000 (V) (Vn) (VN) (0) (0) 9.30 0.00 (W16) (W00) 039 004 169 170 171 000 000 (M) (Mn) (MN) (0) (0) 26.80 0.00 (W26) (W00) 040 004 179 180 181 000 000 (O) (On) (ON) (0) (0) 30.62 0.00 (W36) (W00) 041 004 189 190 191 000 000 (Y) (Yn) (YN) (0) (0) 29.85 0.00 (W46) (W00) 042 004 199 200 201 000 000 (L) (Ln) (LN) (0) (0) 18.79 0.00 (W56) (W00) %Serie 8, BAM test chart order 2:26 043 004 151 152 153 000 000 (CN) (Nc) (N) (0) (0) 61.50 0.00 (W02) (W00) 044 004 161 162 163 000 000 (VN) (Nv) (N) (0) (0) 32.91 0.00 (W12) (W00) 045 004 171 172 173 000 000 (MN) (Nm) (N) (0) (0) 61.26 0.00 (W22) (W00) 046 004 181 182 183 000 000 (ON) (No) (N) (0) (0) 67.21 0.00 (W32) (W00) 047 004 191 192 193 000 000 (YN) (Ny) (N) (0) (0) 86.10 0.00 (W42) (W00) 048 004 201 202 203 000 000 (LN) (Nl) (N) (0) (0) 56.11 0.00 (W52) (W00) %Serie 2N, BAM test chart order 1:25, 1 triplet 049 003 073 074 075 000 000 (W) (WN) (N) (0) (0) 10.00 9.00 (W61) (W62) %Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets 050 004 281 282 283 000 000 (C) (CV) (V) (0) (0) 41.67 0.00 (W09) (W00) 051 004 283 284 285 000 000 (V) (MV) (M) (0) (0) 45.01 0.00 (W19) (W00) 052 004 291 292 293 000 000 (M) (MO) (O) (0) (0) 28.41 0.00 (W29) (W00) 053 004 293 294 295 000 000 (O) (YO) (Y) (0) (0) 72.32 0.00 (W39) (W00) 054 004 301 302 303 000 000 (Y) (YL) (L) (0) (0) 64.80 0.00 (W49) (W00) 055 004 303 304 305 000 000 (L) (CL) (C) (0) (0) 40.72 0.00 (W59) (W00) %Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets 056 004 079 080 081 000 000 (W) (Wn) (WN) (0) (0) 10.00 0.00 (W61) (W00) 057 004 081 082 083 000 000 (WN) (Nw) (N) (0) (0) 9.00 0.00 (W62) (W00) ] def %END D57SERWi %************************************************************* /D57SERVia 2000 array def %max 57 series of 15 data (100x20) /D57SERVia [%BEG D57SERVia top data VIK_ELCD scaling data %0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %N S N1 N2 N3 N4 N5 NA1 NA2 NA3 NA4 NA5 DV*1i DV*2i VIK1 VIK2 %Serie 1, BAM test chart order 1:25 001 003 001 002 003 000 000 (W) (CW) (C) (0) (0) 25.24 39.23 (V01) (V02) 002 003 007 008 009 000 000 (W) (VW) (V) (0) (0) 33.11 46.66 (V03) (V04) 003 003 013 014 015 000 000 (W) (MW) (M) (0) (0) 30.92 45.35 (V05) (V06) 004 003 019 020 021 000 000 (W) (OW) (O) (0) (0) 26.55 46.66 (V07) (V08) 005 003 025 026 027 000 000 (W) (YW) (Y) (0) (0) 22.62 23.06 (V09) (V10) 006 003 031 032 033 000 000 (W) (LW) (L) (0) (0) 29.18 40.98 (V11) (V12) %Serie 2, BAM test chart order 1:25 007 003 037 038 039 000 000 (C) (CN) (N) (0) (0) 38.35 42.73 (V13) (V14) 008 003 043 044 045 000 000 (V) (VN) (N) (0) (0) 21.75 31.36 (V15) (V16) 009 003 049 050 051 000 000 (M) (MN) (N) (0) (0) 40.98 44.47 (V17) (V18) 010 003 055 056 057 000 000 (O) (ON) (N) (0) (0) 34.86 43.16 (V19) (V20) 011 003 061 062 063 000 000 (Y) (YN) (N) (0) (0) 35.73 47.97 (V21) (V22) 012 003 067 068 069 000 000 (L) (LN) (N) (0) (0) 36.17 42.29 (V23) (V24) %Serie 3, BAM test chart order 3:27 013 003 209 210 211 000 000 (W) (C) (N) (0) (0) 53.65 55.40 (V26) (V25) 014 003 215 216 217 000 000 (W) (V) (N) (0) (0) 65.02 29.61 (V28) (V27) 015 003 221 222 223 000 000 (W) (M) (N) (0) (0) 60.21 53.22 (V30) (V29) 016 003 227 228 229 000 000 (W) (O) (N) (0) (0) 58.46 48.84 (V32) (V31) 017 003 233 234 235 000 000 (W) (Y) (N) (0) (0) 37.38 61.52 (V34) (V33) 018 003 239 240 241 000 000 (W) (L) (N) (0) (0) 55.84 45.35 (V36) (V35) %Serie 4, BAM test chart order 3:27 019 003 245 246 247 000 000 (C) (V) (M) (0) (0) 44.47 42.29 (V37) (V38) 020 003 251 252 253 000 000 (M) (O) (Y) (0) (0) 22.62 47.97 (V40) (V39) 021 003 257 258 259 000 000 (Y) (L) (C) (0) (0) 46.22 31.36 (V41) (V42) 022 003 263 264 265 000 000 (V) (C) (L) (0) (0) 48.41 30.49 (V44) (V43) 023 003 269 270 271 000 000 (L) (Y) (O) (0) (0) 51.03 53.65 (V46) (V45) 024 003 275 276 277 000 000 (O) (M) (V) (0) (0) 23.49 48.84 (V47) (V48) %Serie 5, BAM test chart order 2:26 %dummy 26.00: values are missing 025 003 089 090 091 000 000 (W) (Wc) (CW) (0) (0) 25.24 26.00 (V01) (V00) 026 003 099 100 101 000 000 (W) (Wv) (VW) (0) (0) 33.11 26.00 (V03) (V00) 027 003 109 110 111 000 000 (W) (Wm) (MW) (0) (0) 30.92 26.00 (V05) (V00) 028 003 119 120 121 000 000 (W) (Wo) (OW) (0) (0) 26.55 26.00 (V07) (V00) 029 003 129 130 131 000 000 (W) (Wy) (YW) (0) (0) 22.62 26.00 (V09) (V00) 030 003 139 140 141 000 000 (W) (Wl) (LW) (0) (0) 29.18 26.00 (V11) (V00) %Serie 6, BAM test chart order 2:26 031 003 091 092 093 000 000 (CW) (Cw) (C) (0) (0) 22.62 27.87 (V62) (V61) 032 003 101 102 103 000 000 (VW) (Vw) (V) (0) (0) 26.99 33.98 (V64) (V63) 033 003 111 112 113 000 000 (MW) (Mw) (M) (0) (0) 28.30 35.73 (V66) (V65) 034 003 121 122 123 000 000 (OW) (Ow) (O) (0) (0) 24.37 33.98 (V68) (V67) 035 003 131 132 133 000 000 (YW) (Yw) (Y) (0) (0) 18.25 20.00 (V70) (V69) 036 003 141 142 143 000 000 (LW) (Lw) (L) (0) (0) 23.49 32.24 (V72) (V71) %Serie 7, BAM test chart order 2:26 037 003 149 150 151 000 000 (C) (Cn) (CN) (0) (0) 29.61 28.74 (V74) (V73) 038 003 159 160 161 000 000 (V) (Vn) (VN) (0) (0) 19.56 18.25 (V76) (V75) 039 003 169 170 171 000 000 (M) (Mn) (MN) (0) (0) 35.73 27.87 (V78) (V77) 040 003 179 180 181 000 000 (O) (On) (ON) (0) (0) 37.48 26.12 (V80) (V79) 041 003 189 190 191 000 000 (Y) (Yn) (YN) (0) (0) 38.35 30.49 (V82) (V81) 042 003 199 200 201 000 000 (L) (Ln) (LN) (0) (0) 33.11 26.99 (V84) (V83) %Serie 8, BAM test chart order 2:26 043 003 151 152 153 000 000 (CN) (Nc) (N) (0) (0) 37.48 26.12 (V86) (V85) 044 003 161 162 163 000 000 (VN) (Nv) (N) (0) (0) 20.43 18.25 (V88) (V87) 045 003 171 172 173 000 000 (MN) (Nm) (N) (0) (0) 34.86 28.30 (V90) (V89) 046 003 181 182 183 000 000 (ON) (No) (N) (0) (0) 33.98 27.87 (V92) (V91) 047 003 191 192 193 000 000 (YN) (Ny) (N) (0) (0) 39.67 34.86 (V94) (V93) 048 003 201 202 203 000 000 (LN) (Nl) (N) (0) (0) 32.24 26.12 (V96) (V95) %Serie 2N, BAM test chart order 1:25, 1 triplet 049 003 073 074 075 000 000 (W) (WN) (N) (0) (0) 40.10 36.61 (V97) (V98) %Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets 050 004 281 282 283 000 000 (C) (CV) (V) (0) (0) 44.47 0.00 (V37) (V00) 051 004 283 284 285 000 000 (V) (MV) (M) (0) (0) 42.29 0.00 (V38) (V00) 052 004 291 292 293 000 000 (M) (MO) (O) (0) (0) 22.62 0.00 (V40) (V00) 053 004 293 294 295 000 000 (O) (YO) (Y) (0) (0) 47.97 0.00 (V39) (V00) 054 004 301 302 303 000 000 (Y) (YL) (L) (0) (0) 46.22 0.00 (V41) (V00) 055 004 303 304 305 000 000 (L) (CL) (C) (0) (0) 31.36 0.00 (V42) (V00) %Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets 056 004 079 080 081 000 000 (W) (Wn) (WN) (0) (0) 40.10 0.00 (V97) (V00) 057 004 081 082 083 000 000 (WN) (Nw) (N) (0) (0) 36.61 0.00 (V98) (V00) ] def %END D57SERVia %************************************************************* /D57SERVi 2000 array def %max 57 series of 15 data (100x20) /D57SERVi [%BEG D57SERVi top data VIK_ELCD scaling data %0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %N S N1 N2 N3 N4 N5 NA1 NA2 NA3 NA4 NA5 DV*1i DV*2i VIK1 VIK2 %Serie 1, BAM test chart order 1:25 001 003 001 002 003 000 000 (W) (CW) (C) 6.06 7.92 25.24 39.23 (V01) (V02) 002 003 007 008 009 000 000 (W) (VW) (V) 3.03 7.44 33.11 46.66 (V03) (V04) 003 003 013 014 015 000 000 (W) (MW) (M) 4.15 7.21 30.92 45.35 (V05) (V06) 004 003 019 020 021 000 000 (W) (OW) (O) 6.27 5.35 26.55 46.66 (V07) (V08) 005 003 025 026 027 000 000 (W) (YW) (Y) 5.39 10.8 22.62 23.06 (V09) (V10) 006 003 031 032 033 000 000 (W) (LW) (L) 4.58 7.82 29.18 40.98 (V11) (V12) %Serie 2, BAM test chart order 1:25 007 003 037 038 039 000 000 (C) (CN) (N) 12.1 5.67 38.35 42.73 (V13) (V14) 008 003 043 044 045 000 000 (V) (VN) (N) 6.42 9.50 21.75 31.36 (V15) (V16) 009 003 049 050 051 000 000 (M) (MN) (N) 9.08 7.82 40.98 44.47 (V17) (V18) 010 003 055 056 057 000 000 (O) (ON) (N) 10.7 9.31 34.86 43.16 (V19) (V20) 011 003 061 062 063 000 000 (Y) (YN) (N) 10.0 6.88 35.73 47.97 (V21) (V22) 012 003 067 068 069 000 000 (L) (LN) (N) 9.87 10.7 36.17 42.29 (V23) (V24) %Serie 3, BAM test chart order 3:27 013 003 209 210 211 000 000 (W) (C) (N) 7.29 5.77 53.65 55.40 (V26) (V25) 014 003 215 216 217 000 000 (W) (V) (N) 6.27 11.1 65.02 29.61 (V28) (V27) 015 003 221 222 223 000 000 (W) (M) (N) 8.91 6.30 60.21 53.22 (V30) (V29) 016 003 227 228 229 000 000 (W) (O) (N) 8.56 9.81 58.46 48.84 (V32) (V31) 017 003 233 234 235 000 000 (W) (Y) (N) 17.1 8.41 37.38 61.52 (V34) (V33) 018 003 239 240 241 000 000 (W) (L) (N) 7.62 10.8 55.84 45.35 (V36) (V35) %Serie 4, BAM test chart order 3:27 019 003 245 246 247 000 000 (C) (V) (M) 11.2 13.7 44.47 42.29 (V37) (V38) 020 003 251 252 253 000 000 (M) (O) (Y) 6.30 11.1 22.62 47.97 (V40) (V39) 021 003 257 258 259 000 000 (Y) (L) (C) 10.3 8.29 46.22 31.36 (V41) (V42) 022 003 263 264 265 000 000 (V) (C) (L) 9.87 11.3 48.41 30.49 (V44) (V43) 023 003 269 270 271 000 000 (L) (Y) (O) 10.2 9.52 51.03 53.65 (V46) (V45) 024 003 275 276 277 000 000 (O) (M) (V) 10.6 11.3 23.49 48.84 (V47) (V48) %Serie 5, BAM test chart order 2:26 %dummy 26.00: values are missing 025 004 089 090 091 000 000 (W) (Wc) (CW) 6.06 6.06 25.24 0.481 (V01) (V00) 026 004 099 100 101 000 000 (W) (Wv) (VW) 7.44 7.44 33.11 0.497 (V03) (V00) 027 004 109 110 111 000 000 (W) (Wm) (MW) 4.15 4.15 30.92 0.492 (V05) (V00) 028 004 119 120 121 000 000 (W) (Wo) (OW) 6.27 6.27 26.55 0.493 (V07) (V00) 029 004 129 130 131 000 000 (W) (Wy) (YW) 5.39 5.39 22.62 0.358 (V09) (V00) 030 004 139 140 141 000 000 (W) (Wl) (LW) 4.58 4.58 29.18 0.492 (V11) (V00) %Serie 6, BAM test chart order 2:26 031 003 091 092 093 000 000 (CW) (Cw) (C) 6.30 12.2 22.62 27.87 (V62) (V61) 032 003 101 102 103 000 000 (VW) (Vw) (V) 7.21 11.3 26.99 33.98 (V64) (V63) 033 003 111 112 113 000 000 (MW) (Mw) (M) 8.76 10.0 28.30 35.73 (V66) (V65) 034 003 121 122 123 000 000 (OW) (Ow) (O) 7.31 10.8 24.37 33.98 (V68) (V67) 035 003 131 132 133 000 000 (YW) (Yw) (Y) 3.27 7.10 18.25 20.00 (V70) (V69) 036 003 141 142 143 000 000 (LW) (Lw) (L) 6.06 11.2 23.49 32.24 (V72) (V71) %Serie 7, BAM test chart order 2:26 037 003 149 150 151 000 000 (C) (Cn) (CN) 8.29 8.48 29.61 28.74 (V74) (V73) 038 003 159 160 161 000 000 (V) (Vn) (VN) 4.58 3.27 19.56 18.25 (V76) (V75) 039 003 169 170 171 000 000 (M) (Mn) (MN) 9.50 12.2 35.73 27.87 (V78) (V77) 040 003 179 180 181 000 000 (O) (On) (ON) 5.10 11.2 37.48 26.12 (V80) (V79) 041 003 189 190 191 000 000 (Y) (Yn) (YN) 12.1 8.65 38.35 30.49 (V82) (V81) 042 003 199 200 201 000 000 (L) (Ln) (LN) 10.3 10.3 33.11 26.99 (V84) (V83) %Serie 8, BAM test chart order 2:26 043 003 151 152 153 000 000 (CN) (Nc) (N) 7.62 9.08 37.48 26.12 (V86) (V85) 044 003 161 162 163 000 000 (VN) (Nv) (N) 6.69 3.27 20.43 18.25 (V88) (V87) 045 003 171 172 173 000 000 (MN) (Nm) (N) 9.08 6.27 34.86 28.30 (V90) (V89) 046 003 181 182 183 000 000 (ON) (No) (N) 9.73 9.73 33.98 27.87 (V92) (V91) 047 003 191 192 193 000 000 (YN) (Ny) (N) 6.74 12.6 39.67 34.86 (V94) (V93) 048 003 201 202 203 000 000 (LN) (Nl) (N) 10.2 9.08 32.24 26.12 (V96) (V95) %Serie 2N, BAM test chart order 1:25, 1 triplet 049 003 073 074 075 000 000 (W) (WN) (N) (0) (0) 40.10 36.61 (V97) (V98) %not used %Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets 050 004 281 282 283 000 000 (C) (CV) (V) (0) (0) 44.47 0.00 (V37) (V00) 051 004 283 284 285 000 000 (V) (MV) (M) (0) (0) 42.29 0.00 (V38) (V00) 052 004 291 292 293 000 000 (M) (MO) (O) (0) (0) 22.62 0.00 (V40) (V00) 053 004 293 294 295 000 000 (O) (YO) (Y) (0) (0) 47.97 0.00 (V39) (V00) 054 004 301 302 303 000 000 (Y) (YL) (L) (0) (0) 46.22 0.00 (V41) (V00) 055 004 303 304 305 000 000 (L) (CL) (C) (0) (0) 31.36 0.00 (V42) (V00) %Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets 056 004 079 080 081 000 000 (W) (Wn) (WN) (0) (0) 40.10 0.00 (V97) (V00) 057 004 081 082 083 000 000 (WN) (Nw) (N) (0) (0) 36.61 0.00 (V98) (V00) ] def %END D57SERVi /d_CIELABi 2800 array def /d_CIELCHi 2800 array def /d_C94LCHi 2800 array def /d_CMCLCHi 2800 array def /d_CM2LCHi 2800 array def /d_C00LCHi 2800 array def /d_C85LCHi 2800 array def /d_C77LCHi 2800 array def /d_C78LCHi 2800 array def /d_C79LCHi 2800 array def /d_CIELABmi 2800 array def /d_CIELCHmi 2800 array def /d_C94LCHmi 2800 array def /d_CMCLCHmi 2800 array def /d_CM2LCHmi 2800 array def /d_C00LCHmi 2800 array def /d_C85LCHmi 2800 array def /d_C77LCHmi 2800 array def /d_C78LCHmi 2800 array def /d_C79LCHmi 2800 array def /D13 1 3 div def /D841_108 841 108 div def /D4_29 4 29 div def /D6_29 6 29 div 3 exp def /proc_coldiff {%BEG procedure proc_coldiff proc_coldiff_WK58.PS 150529 %calculates CIE colour data and differences for 10 colour spaces %BEG CIELAB/CIELCH /FL 0.000001 def X0 XW div D6_29 gt {/FXXN0 X0 XW div 0.0001 add D13 exp def} {/FXXN0 D841_108 X0 XW div mul D4_29 add def} ifelse Y0 YW div D6_29 gt {/FYYN0 Y0 YW div 0.0001 add D13 exp def} {/FYYN0 D841_108 Y0 YW div mul D4_29 add def} ifelse Z0 ZW div D6_29 gt {/FZZN0 Z0 ZW div 0.0001 add D13 exp def} {/FZZN0 D841_108 Z0 ZW div mul D4_29 add def} ifelse /CIEL*0 116. FYYN0 mul 16. sub def /CIEa*0 500. FXXN0 FYYN0 sub mul def /CIEb*0 200. FYYN0 FZZN0 sub mul def /CIEC*ab0 CIEa*0 dup mul CIEb*0 dup mul add 0.0001 add sqrt def /CIEhab0 CIEb*0 CIEa*0 0.0001 add atan def X1 XW div D6_29 gt {/FXXN1 X1 XW div 0.0001 add D13 exp def} {/FXXN1 D841_108 X1 XW div mul D4_29 add def} ifelse Y1 YW div D6_29 gt {/FYYN1 Y1 YW div 0.0001 add D13 exp def} {/FYYN1 D841_108 Y1 YW div mul D4_29 add def} ifelse Z1 ZW div D6_29 gt {/FZZN1 Z1 ZW div 0.0001 add D13 exp def} {/FZZN1 D841_108 Z1 ZW div mul D4_29 add def} ifelse /CIEL*1 116. FYYN1 mul 16. sub def /CIEa*1 500. FXXN1 FYYN1 sub mul def /CIEb*1 200. FYYN1 FZZN1 sub mul def /CIEC*ab1 CIEa*1 dup mul CIEb*1 dup mul add 0.0001 add sqrt def /CIEhab1 CIEb*1 CIEa*1 0.0001 add atan def %mixed terms with *0 sn *1: /d_CIEL* CIEL*1 CIEL*0 sub def /d_CIEa* CIEa*1 CIEa*0 sub def /d_CIEb* CIEb*1 CIEb*0 sub def d_CIELABi i d_CIEL* dup mul d_CIEa* dup mul add d_CIEb* dup mul add 0.00000001 add sqrt put /a_CIELAB 1.26 def /b_CIELAB 0.55 def d_CIELABmi i d_CIELABi i get b_CIELAB exp a_CIELAB mul put /d_CIEh CIEhab1 CIEhab0 sub def %see CIEDE2000 page 4 CIEC*ab1 CIEC*ab0 mul 0 eq {/d_CIEh 0 def} if %CIEC*ab1 x CIEC*ab0 =0 CIEC*ab1 CIEC*ab0 mul 0 ne d_CIEh 180 gt and {/d_CIEh d_CIEh 360 sub def} if CIEC*ab1 CIEC*ab0 mul 0 ne d_CIEh -180 lt and {/d_CIEh d_CIEh 360 add def} if /d_CIEL CIEL*1 CIEL*0 sub def /d_CIECab CIEC*ab1 CIEC*ab0 sub def /d_CIEHab CIEC*ab1 CIEC*ab0 mul 0.000001 add sqrt 2 mul d_CIEh 0.5 mul sin mul def d_CIELCHi i d_CIEL dup mul d_CIECab dup mul add d_CIEHab dup mul add 0.000001 add sqrt put %alternative: %for 2 an 10 degree observer, see Richter (1996) %a'=0,2191 b'=-0,08376 a'10=0,2193, b'10=-0,08417 %a'2 and a'10 used for both 12 and 190 degree observer %BEG LABD65_1976=C76 /S76L 1 def /S76A 1 def /S76B 1 def /K76L 1 def /K76A 1 def /K76B 1 def /AS2 0.2191 def /BS2 -0.08376 def %C76a'=AS2*(x/y)**(1/3) %C76b'=BS2*(z/y)**(1/3) %C76L*=L*CIE %C76a*=500*[C76a'-C76a'n]*Y**(1/3) %C76b*=500*[C76b'-C76b'n]*Y**(1/3) /C76a'0 X0 Y0 FL add div 0.3333 exp AS2 mul def /C76a'1 X1 Y1 FL add div 0.3333 exp AS2 mul def /C76a'n XW YW FL add div 0.3333 exp AS2 mul def /C76b'0 Z0 Y0 FL add div 0.3333 exp BS2 mul def /C76b'1 Z1 Y1 FL add div 0.3333 exp BS2 mul def /C76b'n ZW YW FL add div 0.3333 exp BS2 mul def /C76a*0 C76a'0 C76a'n sub 500 mul Y0 1 3 div exp mul def /C76a*1 C76a'1 C76a'n sub 500 mul Y1 1 3 div exp mul def /C76b*0 C76b'0 C76b'n sub 500 mul Y0 1 3 div exp mul def /C76b*1 C76b'1 C76b'n sub 500 mul Y1 1 3 div exp mul def %name d_CIELCHi instead of d_LABD65i 1976 d_CIELCHi i CIEL*1 CIEL*0 sub K76L div S76L div dup mul C76a*1 C76a*0 sub K76A div S76A div dup mul add C76b*1 C76b*0 sub K76B div S76B div dup mul add 0.00000001 add sqrt put %END LABD65_1976=C76 /a_CIELCH 1.26 def /b_CIELCH 0.55 def d_CIELCHmi i d_CIELCHi i get b_CIELCH exp a_CIELCH mul put %BEG CIELAB/CIELCH %BEG CIE94 /S94L 1 def /S94C 1 0.045 CIEC*ab0 mul add def /S94H 1 0.015 CIEC*ab0 mul add def /K94L 1 def /K94C 1 def /K94H 1 def /LC94*0 CIEL*0 K94L div S94L div def /LC94*1 CIEL*1 K94L div S94L div def /CC94*ab0 CIEC*ab0 K94C div S94C div def /CC94*ab1 CIEC*ab1 K94C div S94C div def d_C94LCHi i CIEL*1 CIEL*0 sub K94L div S94L div dup mul CIEC*ab1 CIEC*ab0 sub K94C div S94C div dup mul add d_CIEHab K94H div S94H div dup mul add 0.00000001 add sqrt put /a_C94LCH 1.41 def /b_C94LCH 0.70 def d_C94LCHmi i d_C94LCHi i get b_C94LCH exp a_C94LCH mul put %END CIE94 %BEG CMC(l:c=1:1) %special mean m of two samples for SCML, SCMC, TCMC /CIEL*0m CIEL*0 CIEL*1 add 0.5 mul def /CMCC0S CIEC*ab0 def /CMCC1S CIEC*ab1 def /CIEC*ab0m CMCC0S CMCC1S add 0.5 mul def CIEC*ab0 0 eq {/CMCh0S 0 def} {/CMCh0S CIEb*0 CIEa*0 0.0001 add atan def } ifelse CIEC*ab1 0 eq {/CMCh1S 0 def} {/CMCh1S CIEb*1 CIEa*1 0.0001 add atan def } ifelse %beg special EQUATION (11) TO (14) /d_CMChS0 CMCh1S CMCh0S sub def %see CIEDE2000 page 4 CMCC1S CMCC0S mul 0 eq {/d_CMChS 0 def} if %CIEC*ab1 x CIEC*ab0 =0 CMCC1S CMCC0S mul 0 ne d_CMChS0 abs 180 le and {/d_CMChSm d_CMChS0 def} if CMCC1S CMCC0S mul 0 ne d_CMChS0 180 gt and {/d_CMChSm d_CMChS0 360 sub def} if CMCC1S CMCC0S mul 0 ne d_CMChS0 -180 lt and {/d_CMChSm d_CMChS0 360 add def} if %end special EQUATION (11) TO (14) %beg special EQUATION (23) TO (26) /a_CMChsm CMCh0S CMCh1S add 0.5 mul def /m_CMCCSm CMCC0S CMCC1S mul def d_CMChSm abs 180 le m_CMCCSm 0 ne and {/CMChSqm a_CMChsm def} if d_CMChSm abs 180 gt a_CMChsm 360 le and m_CMCCSm 0 ne and {/CMChSqm CMCh0S CMCh1S add 360 add 0.5 mul def} if d_CMChSm abs 180 gt a_CMChsm 360 ge and m_CMCCSm 0 ne and {/CMChSqm CMCh0S CMCh1S add 360 sub 0.5 mul def} if m_CMCCSm 0 eq {/CMChSqm CMCh0S CMCh1S add def } if %end special EQUATION (23) TO (26) CIEL*0m 16 lt {/SCMLm 0.511 def} {/SCMLm 0.040975 CIEL*0m mul 0.01765 CIEL*0m mul 1 add div def } ifelse /SCMCm 0.0638 CIEC*ab0m mul 0.0131 CIEC*ab0m mul 1 add div 0.638 add def %beg special /FCMCm CIEC*ab0m dup mul dup mul CIEC*ab0m dup mul dup mul 1900 add div sqrt def CMChSqm 164 lt CMChSqm 345 gt or {/TCMCm CMChSqm 35 add cos 0.4 mul abs 0.36 add def} {/TCMCm CMChSqm 168 add cos 0.2 mul abs 0.56 add def} ifelse %end special /SCMHm TCMCm FCMCm mul 1 add FCMCm sub SCMCm mul def /KCML 1 def %=l /KCMC 1 def %=c /KCMH 1 def %1 /CMCL*0m CIEL*0 KCML div SCMLm div def /CMCL*1m CIEL*1 KCML div SCMLm div def /CMCC*ab0m CIEC*ab0 KCMC div SCMCm div def /CMCC*ab1m CIEC*ab1 KCMC div SCMCm div def d_CMCLCHi i CIEL*1 CIEL*0 sub KCML div SCMLm div dup mul CIEC*ab1 CIEC*ab0 sub KCMC div SCMCm div dup mul add d_CIEHab KCMH div SCMHm div dup mul add 0.00000001 add sqrt put /a_CMCLCH 1.34 def /b_CMCLCH 0.66 def d_CMCLCHmi i d_CMCLCHi i get b_CMCLCH exp a_CMCLCH mul put %END CMC(m:l:c=m:1:1)=CMC %BEG CM2(m:l:c=m:1:2)=CM2 /KM2L 1 def %=l /KM2C 2 def %=c /KM2H 1 def %1 /CM2L*0 CIEL*0 KM2L div SCMLm div def /CM2L*1 CIEL*1 KM2L div SCMLm div def /CM2C*ab0 CIEC*ab0 KM2C div SCMCm div def /CM2C*ab1 CIEC*ab1 KM2C div SCMCm div def d_CM2LCHi i CIEL*1 CIEL*0 sub KM2L div SCMLm div dup mul CIEC*ab1 CIEC*ab0 sub KM2C div SCMCm div dup mul add d_CIEHab KM2H div SCMHm div dup mul add 0.00000001 add sqrt put %END CM2(m:l:c=m:1:2)=CM2 %BEG CIEDE2000=C00 %beg special equation (7) /CIEC*ab CIEC*ab0 CIEC*ab1 add 0.5 mul def /DEG 1 CIEC*ab 7 exp CIEC*ab 7 exp 25 7 exp add div 0.000001 add sqrt sub 0.5 mul def %end special equation (7) %beg special EQUATION (1) TO (6) %0 /C00L0S CIEL*0 def /C00a0S 1 DEG add CIEa*0 mul def /C00b0S CIEb*0 def /C00C0S C00a0S dup mul C00b0S dup mul add 0.000001 add sqrt def C00C0S 0 eq {/C00h0S 0 def} {/C00h0S C00b0S C00a0S 0.0001 add atan def } ifelse %1 /C00L1S CIEL*1 def /C00a1S 1 DEG add CIEa*1 mul def /C00b1S CIEb*1 def /C00C1S C00a1S dup mul C00b1S dup mul add 0.000001 add sqrt def C00C1S 0 eq {/C00h1S 0 def} {/C00h1S C00b1S C00a1S 0.0001 add atan def } ifelse %end special EQUATION (1) TO (6) %beg special EQUATION (11) TO (14) /d_C00hS0 C00h1S C00h0S sub def %see CIEDE2000 page 4 C00C1S C00C0S mul 0 eq {/d_C00hS 0 def} if %CIEC*ab1 x CIEC*ab0 =0 C00C1S C00C0S mul 0 ne d_C00hS0 abs 180 le and {/d_C00hS d_C00hS0 def} if C00C1S C00C0S mul 0 ne d_C00hS0 180 gt and {/d_C00hS d_C00hS0 360 sub def} if C00C1S C00C0S mul 0 ne d_C00hS0 -180 lt and {/d_C00hS d_C00hS0 360 add def} if %end special EQUATION (11) TO (14) %beg special EQUATION (8) TO (10) /d_C00LS C00L1S C00L0S sub def /d_C00aS C00a1S C00a0S sub def /d_C00bS C00b1S C00b0S sub def /d_C00CS C00C1S C00C0S sub def /d_C00HS C00C0S C00C1S mul 0.000001 add sqrt 2 mul d_C00hS 0.5 mul sin mul def %end special EQUATION (8) TO (10) %beg special EQUATION (23) TO (26) /a_C00hs C00h0S C00h1S add 0.5 mul def /m_C00CS C00C0S C00C1S mul def d_C00hS abs 180 le m_C00CS 0 ne and {/C00hSq a_C00hs def} if d_C00hS abs 180 gt a_C00hs 360 le and m_C00CS 0 ne and {/C00hSq C00h0S C00h1S add 360 add 0.5 mul def} if d_C00hS abs 180 gt a_C00hs 360 ge and m_C00CS 0 ne and {/C00hSq C00h0S C00h1S add 360 sub 0.5 mul def} if m_C00CS 0 eq {/C00hSq C00h0S C00h1S add def } if %end special EQUATION (23) TO (26) %beg special EQUATIONS (16) TO (22) /C00LSq C00L0S C00L1S add 0.5 mul def /C00CSq C00C0S C00C1S add 0.5 mul def /C00SL C00LSq 50 sub dup mul 0.015 mul C00LSq 50 sub dup mul 20 add sqrt div 1 add def /C00SC 0.045 C00CSq mul 1 add def %beg special T, RT, d_D, RC /C00T C00hSq 30 sub cos -0.17 mul C00hSq 2 mul cos 0.24 mul add C00hSq 3 mul 6 add cos 0.32 mul add C00hSq 4 mul 63 sub cos 0.20 mul sub 1 add def /C00SH 0.015 C00CSq mul C00T mul 1 add def /C00RC C00CSq 7 exp C00CSq 7 exp 25 7 exp add 0.000001 add div 0.000001 add sqrt 2 mul def /expDT C00hSq 275 sub 25 div dup mul def /econst 2.718281 def /C00DT 30 econst expDT neg exp mul def /C00RT C00DT 2 mul sin neg C00RC mul def %end special T, RT, d_D, RC %end special EQUATIONS (16) TO (22) %beg special EQUATION (15) /C00KL 1.0 def /C00KC 1.0 def /C00KH 1.0 def /d_C00LSN d_C00LS C00KL div C00SL div def /d_C00CSN d_C00CS C00KC div C00SC div def /d_C00HSN d_C00HS C00KH div C00SH div def d_C00LCHi i d_C00LSN dup mul d_C00CSN dup mul add d_C00HSN dup mul add d_C00CSN d_C00HSN mul C00RT mul add 0.000001 add sqrt put /a_C00LCH 1.43 def /b_C00LCH 0.70 def d_C00LCHmi i d_C00LCHi i get b_C00LCH exp a_C00LCH mul put %end special EQUATION (15) %END CIEDE2000=C00 %BEG LABJND=C85 /Yq Y0 Y1 add 0.5 mul def /d_Y Y1 Y0 sub def /a085 X0 Y0 0.000001 add div def /b085 Z0 Y0 0.000001 add div 0.4 mul neg def /a185 X1 Y1 0.000001 add div def /b185 Z1 Y1 0.000001 add div 0.4 mul neg def /an85 XW YW 0.000001 add div def /bn85 ZW YW 0.000001 add div 0.4 mul neg def /d_a085 a085 an85 sub def /d_b085 b085 bn85 sub def /d_a185 a185 an85 sub def /d_b185 b185 bn85 sub def /a0"85 d_a085 d_a085 abs 0.5 mul 1 add div an85 add def /b0"85 d_b085 d_b085 abs 0.5 mul 1 add div bn85 add def /a1"85 d_a185 d_a185 abs 0.5 mul 1 add div an85 add def /b1"85 d_b185 d_b185 abs 0.5 mul 1 add div bn85 add def /d_Y Y1 Y0 sub def /d_a"85 a1"85 a0"85 sub def /d_b"85 b1"85 b0"85 sub def /s85 0.0170 def /q85 0.0058 def /g85 1.0000 def %not used /a0085 1.0 def /b0085 1.8 def /Y0085 1.5 def d_C85LCHi i d_Y dup mul a0085 d_a"85 mul Yq mul dup mul add b0085 d_b"85 mul Yq mul dup mul add 0.000001 add sqrt Y0085 mul q85 Yq mul s85 add div put /a_C85LCH 1.17 def /b_C85LCH 0.35 def d_C85LCHmi i d_C85LCHi i get b_C85LCH exp a_C85LCH mul put %END LABJND=C85 %BEG LABHNU_1977=C77 /S77L 1 def /S77A 1 def /S77B 1 def /K77L 1 def /K77A 1 def /K77B 1 def %C77a'=(x/y+1/6)**(1/3)/4 %C77b'=-(z/y+1/6)**(1/3)/12 %C77L*=L*CIE %C77a*=500*[C77a'-C77a'n]*Y**(1/3) %C77b*=500*[C77b'-C77b'n]*Y**(1/3) /C77a'0 X0 Y0 FL add div 1 6 div add 0.3333 exp 4 div def /C77a'1 X1 Y1 FL add div 1 6 div add 0.3333 exp 4 div def /C77a'n XW YW FL add div 1 6 div add 0.3333 exp 4 div def /C77b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def /C77b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def /C77b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def /C77a*0 C77a'0 C77a'n sub 500 mul Y0 1 3 div exp mul def /C77a*1 C77a'1 C77a'n sub 500 mul Y1 1 3 div exp mul def /C77b*0 C77b'0 C77b'n sub 500 mul Y0 1 3 div exp mul def /C77b*1 C77b'1 C77b'n sub 500 mul Y1 1 3 div exp mul def d_C77LCHi i CIEL*1 CIEL*0 sub K77L div S77L div dup mul C77a*1 C77a*0 sub K77A div S77A div dup mul add C77b*1 C77b*0 sub K77B div S77B div dup mul add 0.00000001 add sqrt put %END LABHNU_1977=C77 %BEG LABHNU1=C78 /S78L 1 def /S78A 1 def /S78B 1 def /K78L 1 def /K78A 1 def /K78B 1 def %C78a'=(x/y+1)/15 %C78b'=-(z/y+1/6)**(1/3)/12 %C78L*=L*CIE %C78a*=500*[C78a'-C78a'n]*Y**(1/3) %C78b*=500*[C78b'-C78b'n]*Y**(1/3) /C78a'0 X0 Y0 FL add div 1 add 15 div def /C78a'1 X1 Y1 FL add div 1 add 15 div def /C78a'n XW YW FL add div 1 add 15 div def /C78b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def /C78b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def /C78b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def /C78a*0 C78a'0 C78a'n sub 500 mul Y0 1 3 div exp mul def /C78a*1 C78a'1 C78a'n sub 500 mul Y0 1 3 div exp mul def /C78b*0 C78b'0 C78b'n sub 500 mul Y0 1 3 div exp mul def /C78b*1 C78b'1 C78b'n sub 500 mul Y0 1 3 div exp mul def d_C78LCHi i CIEL*1 CIEL*0 sub K78L div S78L div dup mul C78a*1 C78a*0 sub K78A div S78A div dup mul add C78b*1 C78b*0 sub K78B div S78B div dup mul add 0.00000001 add sqrt put %END LABHNU1_1978-C78 %BEG LABHNU2_1979=C79 /S79L 1 def /S79A 1 def /S79B 1 def /K79L 1 def /K79A 1 def /K79B 1 def %C79a'=(x/y+1/6)**(2/3)/15 %C79b'=-(z/y+1/6)**(1/3)/12 %C79L*=L*CIE %C79a*=500*[C79a'-C79a'n]*Y**(1/3) %C79b*=500*[C79b'-C79b'n]*Y**(1/3) /C79a'0 X0 Y0 FL add div 1 6 div add 0.6667 exp 15 div def /C79a'1 X1 Y1 FL add div 1 6 div add 0.6667 exp 15 div def /C79a'n XW YW FL add div 1 6 div add 0.6667 exp 15 div def /C79b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def /C79b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def /C79b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def /C79a*0 C79a'0 C79a'n sub 500 mul Y0 1 3 div exp mul def /C79a*1 C79a'1 C79a'n sub 500 mul Y1 1 3 div exp mul def /C79b*0 C79b'0 C79b'n sub 500 mul Y0 1 3 div exp mul def /C79b*1 C79b'1 C79b'n sub 500 mul Y1 1 3 div exp mul def d_C79LCHi i CIEL*1 CIEL*0 sub K79L div S79L div dup mul C79a*1 C79a*0 sub K79A div S79A div dup mul add C79b*1 C79b*0 sub K79B div S79B div dup mul add 0.00000001 add sqrt put %END LABHNU2_1979=C79 } bind def %END procedure proc_coldiff %%EndProlog gsave /lanind 0 def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind le {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind le {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind le {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /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 %see Kittelmann DWORK, page 9 /XWD6502 95.05 def /YWD6502 100.00 def /ZWD6502 108.90 def /XW XWD6502 def /YW YWD6502 def /ZW ZWD6502 def /FL 0.000001 def /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /CIEL*0i 310 array def /CIEa*0i 310 array def /CIEb*0i 310 array def /X0i 310 array def /Y0i 310 array def /Z0i 310 array def %calculate XYZ-values for 310 colours 0 1 309 {/i exch def %i=0,309 /i10 i 10 mul def CIEL*0i i LAB_KIi i10 1 add get put CIEa*0i i LAB_KIi i10 2 add get put CIEb*0i i LAB_KIi i10 3 add get put /X* {CIEL*0i i get 16 add 116 div CIEa*0i i get 500 div add} bind def /Y* {CIEL*0i i get 16 add 116 div} bind def /Z* {CIEL*0i i get 16 add 116 div CIEb*0i i get 200 div sub} bind def X0i i X* DecodeXYZ* XW mul put Y0i i Y* DecodeXYZ* YW mul put Z0i i Z* DecodeXYZ* ZW mul put } for %i=0,309 %************************************************************* /Wdata1 3500 array def %max 350x10 data /Wdata2 3500 array def /IM 056 def %(max IM=056; IM=46=without series C-V- and W-Wn-WN-Nw-N /IM0 113 def %(max IM=057)*2-1 = 057 X 2-1 %default data 0 1 IM0 {/i exch def %i=0,IM0 /i10 i 10 mul def 0 1 9 {/j exch def %j=0,9 Wdata1 i10 j add 1. put Wdata2 i10 j add 1. put } for %j=0,9 } for %i=0,IM0 /D57xSERi 2000 array def /xchart4 1 def %xchart4=0 and 1: calculation for WANG or VIK pair comparison data 0 1 IM {/ii exch def %ii=0,IM /i16 ii 16 mul def 0 1 15 {/j exch def %j=0,15 xchart4 0 eq {D57xSERi i16 j add D57SERWi i16 j add get put} if xchart4 1 eq {D57xSERi i16 j add D57SERVi i16 j add get put} if } for %j=0,15 } for %ii=0,IM /DV*1 200 array def /DV*2 200 array def /DVS1 200 array def /DVS2 200 array def %default data 0 1 IM {/ii exch def %ii=0,IM /i16 ii 16 mul def DV*1 ii 1. put %default DV*2 ii 1. put } for %ii=0,IM %for WANG and VIK 0 1 IM {/ii exch def %ii=0,IM /D57xSER12 D57xSERi i16 12 add get def /D57xSER13 D57xSERi i16 13 add get def DV*1 ii D57xSER12 put DV*2 ii D57xSER13 put xchart4 0 eq {%xchart4=0 %corection for WANG only D57xSER12 0 ne {%D57xSER12#0 DV*1 ii D57xSER12 42.62 div 1. 1.1322 div exp 10 mul put } if %D57xSER12#0 D57xSER13 0 ne {%D57xSER13#0 DV*2 ii D57xSER13 42.62 div 1. 1.1322 div exp 10 mul put } if %D57xSER13#0 } if %xchart4=0 %corection for WANG only } for %ii=0,IM /xchartl 1 def %0 1 5 {/xchartl exch def %xchartl=0,5 gsave 5 /Times-ISOL1 FS 215 85 moveto (XE391-4N) show 72 90 translate /ytit 550 def /yhoe 4000 def /yhoet yhoe ytit sub def /xwide 06000 def /ishow {-50 -100 rmoveto 200 /Times-ISOL1 FS show 0 100 rmoveto TM} bind def 0.01 MM 0.01 MM scale 15 setlinewidth 0.0 0.0 0.0 0.5 setcmykcolor 0 0 moveto xwide 0 rlineto 0 yhoet rlineto xwide neg 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmykcolor 0 0 moveto xwide 0 rlineto 0 yhoet rlineto xwide neg 0 rlineto closepath stroke /yt 300 def %y-Zeilenabstand for text /yd 400 def %y-Zeilenabstand for formula %Titeltext /xt1 0 def /yt1 300 def /S10 100 def /S11 800 def /S20 3250 def /S30 4000 def /Z10 2500 def /Z1C 2200 def /Z1V 1900 def /Z1M 1600 def /Z1O 1300 def /Z1Y 1000 def /Z1L 0700 def /Z1N 0400 def /Z1W 0100 def %HUE CIRCLE /xd 1550 def /yd 5000 def /xp 1550 def /yp 5000 def /xdN xd def /ydN yd 2000 sub def /xdW xd def /ydW yd def /xdR xd 2000 add def /ydR yd 1000 sub def /xm 600 def /xip xd xm 2 mul add def /yip ydN xm 2 mul add def /xi1 xd xm 1 mul sub def /yi1 ydW xm 0.5 mul sub def /xi2 xd xm 2 mul add def /yi2 ydN 400 sub def %************************************************************************* %constant hue planes /xt1 -1000 def /yt1 -2670 def xt1 yt1 translate /xpp xp 350 sub def 0 setgray xpp yp 0850 add moveto /xshift 3200 def TBIK (BAM) show TBK (\2555stufige Farbreihen gleichabst\344ndig in CIELAB) showde ( 5 step colour series equally spaced in CIELAB) showen TBS xpp yp 0600 add moveto xchart4 0 eq {%xchart4=0 (CIELAB Farbdifferenzen ) showde (CIELAB colour differences ) showen SS (D) show TBIS (E*) show TBV 0 -50 rmoveto (ab) show 0 50 rmoveto } if %xchart4=0 xchart4 1 eq {%xchart4=1 (visuelle Farbdifferenzen ) showde (visual colour differences ) showen SS (D) show TBIS (V*) show TBV 0 -50 rmoveto (Vik) show 0 50 rmoveto } if %xchart4=1 /xfact 2000 100 div def /yfact 2000 100 div def /yshift 0800 def /xpW xpp def /ypW yp 200 sub def /ym 0 def /ix -1 def /cwdif4 7 array def /cwdif2 7 array def /cwdif1 7 array def /cndif4 7 array def /cndif2 7 array def /cndif1 7 array def /cwdifx 7 array def /cndifx 7 array def /cwstd4 7 array def /cwstd2 7 array def /cwstd1 7 array def /cnstd4 7 array def /cnstd2 7 array def /cnstd1 7 array def /cwstdx 7 array def /cnstdx 7 array def /wName 7 array def /nName 7 array def /DLAB21ik 7 array def /DLAB32ik 7 array def /DV*1ik 7 array def /DV*2ik 7 array def /DVS1ik 7 array def /DVS2ik 7 array def %default 0 1 6 {/i exch def cwdif4 i 4 put cwdif2 i 2 put cwdif1 i 1 put cndif4 i 40 put cndif2 i 20 put cndif1 i 10 put wName i (W) put nName i (N) put } for /ik 0 def 0 1 6 {/ik exch def %ik=0,6 %7 series %025 W-Wc-CW 089-090-091 %031 CW-Cw-C 091-092-093 %037 C-Cn-CN 149-150-151 %043 CN-Nc-N 151-152-153 %001 W-CW-C 001-002-003 %007 C-CN-N 037-038-039 %013 W-C-N 209-210-211 ik 0 eq {/ii 025 1 sub def} if ik 1 eq {/ii 031 1 sub def} if ik 2 eq {/ii 037 1 sub def} if ik 3 eq {/ii 043 1 sub def} if ik 4 eq {/ii 001 1 sub def} if ik 5 eq {/ii 007 1 sub def} if ik 6 eq {/ii 013 1 sub def} if %6 series/figures /ii ii xchartl add def /i16 ii 16 mul def /S D57xSERi i16 1 add get def S 4 eq {%S=4 /DREL D57xSERi i16 13 add get def DV*1ik ik D57xSERi i16 12 add get DREL mul put DV*2ik ik D57xSERi i16 12 add get 1 DREL sub mul put } if %S=4 S 3 eq {%S=3 DV*1ik ik D57xSERi i16 12 add get put DV*2ik ik D57xSERi i16 13 add get put } if %S=3 %always standard deviation DVS1ik ik D57xSERi i16 10 add get put DVS2ik ik D57xSERi i16 11 add get put /N1 D57xSERi i16 2 add get 1 sub def %Nx-count STARTs at "1" /N2 D57xSERi i16 3 add get 1 sub def /N3 D57xSERi i16 4 add get 1 sub def ik 0 eq {wName 0 D57xSERi i16 7 add get put wName 1 D57xSERi i16 8 add get put wName 2 D57xSERi i16 9 add get put} if ik 1 eq {wName 3 D57xSERi i16 8 add get put wName 4 D57xSERi i16 9 add get put} if ik 2 eq {nName 0 D57xSERi i16 7 add get put nName 1 D57xSERi i16 8 add get put nName 2 D57xSERi i16 9 add get put} if ik 3 eq {nName 3 D57xSERi i16 8 add get put nName 4 D57xSERi i16 9 add get put} if /X10 X0i N1 get def /Y10 Y0i N1 get def /Z10 Z0i N1 get def /X20 X0i N2 get def /Y20 Y0i N2 get def /Z20 Z0i N2 get def /X30 X0i N3 get def /Y30 Y0i N3 get def /Z30 Z0i N3 get def 0 1 1 {/i exch def %i=0,1 i 0 eq {%i=0,1 /X0 X20 def /Y0 Y20 def /Z0 Z20 def /X1 X10 def /Y1 Y10 def /Z1 Z10 def } if %i=0 i 1 eq {%i=1 /X0 X20 def /Y0 Y20 def /Z0 Z20 def /X1 X30 def /Y1 Y30 def /Z1 Z30 def } if %i=1 proc_coldiff } for %i=0,1 DLAB21ik ik d_CIELABi 0 get put DLAB32ik ik d_CIELABi 1 get put %025 ik=0 W-Wc-CW 089-090-091 %031 ik=1 CW-Cw-C 091-092-093 %037 ik=2 C-Cn-CN 149-150-151 %043 ik=3 CN-Nc-N 151-152-153 %001 ik=4 W-CW-C 001-002-003 %007 ik=5 C-CN-N 037-038-039 %013 ik=6 W-C-N 209-210-211 %/ioutk 1 def %ioutk 0 eq {%ioutk=0 xchart4 0 eq {%xchart4=0 ik 0 eq {cwdifx 0 DLAB21ik ik get put %W-Wc-CW cwdifx 1 DLAB32ik ik get put} if ik 1 eq {cwdifx 2 DLAB21ik ik get put %CW-Cw-C cwdifx 3 DLAB32ik ik get put} if ik 2 eq {cndifx 0 DLAB21ik ik get put %C-Cn-CN cndifx 1 DLAB32ik ik get put} if ik 3 eq {cndifx 2 DLAB21ik ik get put %CN-Nc-N cndifx 3 DLAB32ik ik get put} if ik 4 eq {cwdifx 4 DLAB21ik ik get put %W-CW-C cwdifx 5 DLAB32ik ik get put} if ik 5 eq {cndifx 4 DLAB21ik ik get put %C-CN-N cndifx 5 DLAB32ik ik get put} if ik 6 eq {cwdifx 6 DLAB21ik ik get put %W-C-N cndifx 6 DLAB32ik ik get put} if } if %xchart4=0 %} if %ioutk=0 %ioutk 1 eq {%ioutk=1 xchart4 1 eq {%xchart4=1 ik 0 eq {cwdifx 0 DV*1ik ik get put %W-Wc-CW cwdifx 1 DV*2ik ik get put} if ik 1 eq {cwdifx 2 DV*1ik ik get put %CW-Cw-C cwdifx 3 DV*2ik ik get put} if ik 2 eq {cndifx 0 DV*1ik ik get put %C-Cn-CN cndifx 1 DV*2ik ik get put} if ik 3 eq {cndifx 2 DV*1ik ik get put %CN-Nc-N cndifx 3 DV*2ik ik get put} if ik 4 eq {cwdifx 4 DV*1ik ik get put %W-CW-C cwdifx 5 DV*2ik ik get put} if ik 5 eq {cndifx 4 DV*1ik ik get put %C-CN-N cndifx 5 DV*2ik ik get put} if ik 6 eq {cwdifx 6 DV*1ik ik get put %W-C-N cndifx 6 DV*2ik ik get put} if ik 0 eq {cwstdx 0 DVS1ik ik get put %W-Wc-CW cwstdx 1 DVS2ik ik get put} if ik 1 eq {cwstdx 2 DVS1ik ik get put %CW-Cw-C cwstdx 3 DVS2ik ik get put} if ik 2 eq {cnstdx 0 DVS1ik ik get put %C-Cn-CN cnstdx 1 DVS2ik ik get put} if ik 3 eq {cnstdx 2 DVS1ik ik get put %CN-Nc-N cnstdx 3 DVS2ik ik get put} if ik 4 eq {cwstdx 4 DVS1ik ik get put %W-CW-C cwstdx 5 DVS2ik ik get put} if ik 5 eq {cnstdx 4 DVS1ik ik get put %C-CN-N cnstdx 5 DVS2ik ik get put} if ik 6 eq {cwstdx 6 DVS1ik ik get put %W-C-N cnstdx 6 DVS2ik ik get put} if } if %xchart4=1 %} if %ioutk=1 } for %ik=0,6 %7 series 0 1 3 {/ik exch def %ik=0,3 cwdif4 ik cwdifx ik get 0.49 add cvi put cndif4 ik cndifx ik get 0.49 add cvi put } for %ik=0,3 0 1 1 {/ik exch def %ik=0,1 cwdif2 ik cwdifx ik 4 add get 0.49 add cvi put cndif2 ik cndifx ik 4 add get 0.49 add cvi put } for %ik=0,1 cwdif1 0 cwdifx 6 get 0.49 add cvi put cndif1 0 cndifx 6 get 0.49 add cvi put xchart4 1 eq {%xchart4=1 0 1 3 {/ik exch def %ik=0,3 cwstd4 ik cwstdx ik get 0.49 add cvi put cnstd4 ik cnstdx ik get 0.49 add cvi put } for %ik=0,3 0 1 1 {/ik exch def %ik=0,1 cwstd2 ik cwstdx ik 4 add get 0.49 add cvi put cnstd2 ik cnstdx ik 4 add get 0.49 add cvi put } for %ik=0,1 cwstd1 0 cwstdx 6 get 0.49 add cvi put cnstd1 0 cnstdx 6 get 0.49 add cvi put } if %xchart4=1 %STOP5 newpath /k 0 def /j 0 def /i 0 def 0 1 2 {/k exch def %k=0,2 %three rows /ys yshift k mul def 0 1 1 {/j exch def %j=0,1 %left, right /xs xshift j mul def k 0 eq {TBS j 0 eq {%j=0 1 1 1 setrgbcolor xpp yp 0300 add moveto (helle Serie ) showde (light series ) showen wName 4 get show ( nach W) showde ( to W) showen } if %j=0 j 1 eq {%j=1 0 0 0 setrgbcolor xp 450 sub xshift add yp 0300 add moveto (dunkle Serie ) showde (dark series ) showen nName 0 get show ( nach N) showde ( to N) showen } if %j=1 } if %k=0 TS 0 0 0 setrgbcolor 0 1 4 {/i exch def %i=0,4 %five colours /xi xpW xm i mul add xs add def %NW /yi ypW ym i mul add ys sub def % xpW ypW moveto (START, i, wName) show % i cvishow % wName i get show k 0 eq {xi 100 sub yi 200 add moveto j 0 eq {wName 4 i sub get show} if j 1 eq {nName i get show} if newpath } if k 0 eq i 3 le and {xi 100 add yi 350 sub moveto j 0 eq {cwdif4 3 i sub get cvishow} if j 1 eq {cndif4 i get cvishow} if xchart4 1 eq {%xchart4=1 (\261) show %+/- j 0 eq {cwstd4 3 i sub get cvishow} if j 1 eq {cnstd4 i get cvishow} if } if %xchart4=1 newpath } if k 0 eq i 1 le and {xi 400 add i 500 mul add yi 1150 sub moveto j 0 eq {cwdif2 1 i sub get cvishow} if j 1 eq {cndif2 i get cvishow} if xchart4 1 eq {%xchart4=1 (\261) show %+/- j 0 eq {cwstd2 1 i sub get cvishow} if j 1 eq {cnstd2 i get cvishow} if } if %xchart4=1 newpath } if k 0 eq i 0 le and {xi 1000 add i 500 mul add yi 2000 sub moveto j 0 eq {cwdif1 0 get cvishow} if j 1 eq {cndif1 0 get cvishow} if xchart4 1 eq {%xchart4=1 (\261) show %+/- j 0 eq {cwstd1 0 get cvishow} if j 1 eq {cnstd1 0 get cvishow} if } if %xchart4=1 newpath } if i 0 eq i 4 eq or {0 0 0 setrgbcolor xi yi 140 0 360 arc fill } if j 0 eq {%j=0 /w i 4 div def xchartl 0 eq {w 1 1 setrgbcolor} if %C-W xchartl 1 eq {w w 1 setrgbcolor} if %V-W xchartl 2 eq {1 w 1 setrgbcolor} if %M-W xchartl 3 eq {1 w w setrgbcolor} if %O-W xchartl 4 eq {1 1 w setrgbcolor} if %Y-W xchartl 5 eq {w 1 w setrgbcolor} if %L-W } if %j=0 j 1 eq {%j=1 /w 1 i 4 div sub def xchartl 0 eq {0 w w setrgbcolor} if %C-N xchartl 1 eq {0 0 w setrgbcolor} if %V-N xchartl 2 eq {w 0 w setrgbcolor} if %M-N xchartl 3 eq {w 0 0 setrgbcolor} if %O-N xchartl 4 eq {w w 0 setrgbcolor} if %Y-N xchartl 5 eq {0 w 0 setrgbcolor} if %L-N } if %j=1 xi yi 070 0 360 arc fill i 0 eq i 4 eq or {0 0 0 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if k 0 eq {%k=0 i 1 ge i 3 le and {%k=0 and all i 0 0 0 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if %i=2 and k<2 } if %k=0 k 1 eq i 2 eq and {%k=1 and i=2 0 0 0 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if %k=1 and i=2 i 4 eq j 1 eq and {%i=4 and j=1 %cross in black N 1 1 1 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if %i=4 and j=1 } for %i=0,4 } for %j=0,1 } for %k=0,2 xt1 neg yt1 neg translate %************************************************************************* showpage grestore %} for %xchartl=0,5 %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 06 MM sub 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 25 %line 469 %!PS-Adobe-3.0 EPSF-3.0 XE391-5N %%BoundingBox: 70 83 245 190 %START PDFDE011.EPS /pdfmark15 where {pop} {userdict /pdfmark15 /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://130.149.60.45/~farbmetrik/SE25/) /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, colour vision) /Creator (klaus.richter@mac.com) /CreationDate (D:2016070112000) /ModDate (D:2016070112000) /DOCINFO pdfmark15 [ /View [ /FitB ] /DOCVIEW pdfmark15 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /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 /TV {160 /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 /TIV {160 /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 /TBV {160 /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 /TBIV {160 /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 /SV {160 /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 %%EndProlog gsave /nshow {TS show} bind def /kshow {TIS show} bind def /bshow {TBS show} bind def /jshow {TBIS show} bind def /ibshown {TBS -50 -50 rmoveto show 0 50 rmoveto TBS} bind def /ibshow0 {TBS -00 -50 rmoveto show 0 50 rmoveto TBS} bind def /ishown {TS -50 -50 rmoveto show 0 50 rmoveto TS } bind def /ishow0 {TS -00 -50 rmoveto show 0 50 rmoveto TS } bind def %40% kleiner /ns4 {250 /Times-ISOL1 FS show TK} bind def /ks4 {250 /TimesI-ISOL1 FS show TK} bind def /bs4 {250 /TimesB-ISOL1 FS show TK} bind def /js4 {250 /TimesBI-ISOL1 FS show TK} bind def /ss4 {250 /Symbol FS show TK} bind def /is4 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /es4 {200 /Times-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ib4 {200 /TimesB-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /eb4 {200 /TimesB-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ip4 {200 /Times-ISOL1 FS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def %60% kleiner /ns6 {200 /Times-ISOL1 FS show TS} bind def /ks6 {200 /TimesI-ISOL1 FS show TS} bind def /bs6 {200 /TimesB-ISOL1 FS show TS} bind def /js6 {200 /TimesBI-ISOL1 FS show TS} bind def /ss6 {200 /Symbol FS show TS} bind def /is6 {160 /Times-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /es6 {160 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ib6 {160 /TimesB-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /eb6 {160 /TimesB-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ip6 {160 /Times-ISOL1 FS 24 24 rmoveto (\267) show 24 -24 rmoveto TS} bind /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show} def %************************************************************* %Aus Kittelmann_CD_DA/Daten der Ausertung/ %Farbwerte der Farbfelder und Reihen.xls/CIELAB_1 %siehe auch Dipl-Arbeit Seite 31 ff /LAB_KIi 3100 array def %310x10 /LAB_KIi [ %n L*r a*r b*r L*t a*t b*t E*r-t C*r h*r % L*r a*r b*r CIELAB data of 310 printel samples, see page 34 % 95.410 -0.980 4.760 ISO 15775 Papierweiss Tab. 2.2 1 94.806 -1.832 6.977 95.410 -0.980 4.760 2.450 7.213 104.710 2 76.937 -16.536 -18.248 77.015 -15.805 -18.995 1.048 24.626 227.818 3 59.410 -30.942 -42.455 58.620 -30.630 -42.750 0.899 52.534 233.915 4 94.807 -1.883 7.035 95.410 -0.980 4.760 2.520 7.282 104.985 5 76.919 -16.503 -18.327 77.015 -15.805 -18.995 0.971 24.663 227.998 6 59.468 -30.964 -42.431 58.620 -30.630 -42.750 0.966 52.528 233.880 7 94.796 -1.848 7.051 95.410 -0.980 4.760 2.526 7.289 104.684 8 60.143 15.422 -18.907 60.565 15.185 -19.800 1.016 24.399 309.204 9 27.166 31.237 -43.580 25.720 31.350 -44.360 1.646 53.619 305.632 10 94.811 -1.797 6.812 95.410 -0.980 4.760 2.288 7.045 104.775 11 60.039 15.614 -19.124 60.565 15.185 -19.800 0.958 24.689 309.231 12 27.145 31.257 -43.757 25.720 31.350 -44.360 1.550 53.774 305.539 13 94.813 -1.742 6.702 95.410 -0.980 4.760 2.170 6.925 104.573 14 71.354 37.382 -0.087 71.770 37.110 -1.020 1.057 37.382 359.867 15 48.299 74.762 -6.470 48.130 75.200 -6.800 0.573 75.042 355.054 16 94.862 -1.790 6.808 95.410 -0.980 4.760 2.269 7.039 104.734 17 71.430 37.531 -0.146 71.770 37.110 -1.020 1.028 37.531 359.777 18 48.348 75.034 -6.602 48.130 75.200 -6.800 0.338 75.324 354.972 19 94.829 -1.679 6.457 95.410 -0.980 4.760 1.925 6.672 104.576 20 71.895 30.271 30.198 71.675 32.165 28.415 2.611 42.758 44.931 21 48.389 65.379 52.900 47.940 65.310 52.070 0.946 84.100 38.977 22 94.841 -1.727 6.563 95.410 -0.980 4.760 2.033 6.787 104.743 23 71.834 30.282 30.495 71.675 32.165 28.415 2.810 42.976 45.200 24 48.373 65.160 52.576 47.940 65.310 52.070 0.683 83.726 38.899 25 94.856 -1.811 6.930 95.410 -0.980 4.760 2.389 7.163 104.645 26 91.995 -9.864 53.175 92.890 -6.070 50.465 4.747 54.082 100.509 27 88.831 -7.617 100.643 90.370 -11.160 96.170 5.910 100.931 94.328 28 94.840 -1.857 6.961 95.410 -0.980 4.760 2.437 7.204 104.938 29 91.969 -9.864 53.060 92.890 -6.070 50.465 4.688 53.969 100.532 30 88.822 -7.585 99.964 90.370 -11.160 96.170 5.438 100.251 94.339 31 94.843 -1.831 6.986 95.410 -0.980 4.760 2.450 7.223 104.689 32 72.670 -33.310 23.706 73.155 -31.970 20.735 3.296 40.885 144.561 33 52.763 -62.634 40.725 50.900 -62.960 36.710 4.438 74.710 146.968 34 94.844 -1.844 6.940 95.410 -0.980 4.760 2.413 7.181 104.883 35 72.659 -33.330 23.584 73.155 -31.970 20.735 3.195 40.830 144.717 36 52.751 -62.659 40.456 50.900 -62.960 36.710 4.189 74.585 147.152 37 59.858 -30.723 -42.299 58.620 -30.630 -42.750 1.321 52.279 234.008 38 39.512 -15.438 -20.098 38.315 -15.065 -21.605 1.960 25.343 232.471 39 20.439 0.604 1.879 18.010 0.500 -0.460 3.374 1.974 72.184 40 59.843 -30.628 -42.217 58.620 -30.630 -42.750 1.334 52.157 234.039 41 39.472 -15.216 -20.290 38.315 -15.065 -21.605 1.759 25.361 233.132 42 20.596 0.834 1.790 18.010 0.500 -0.460 3.444 1.975 65.031 43 28.050 31.224 -43.592 25.720 31.350 -44.360 2.457 53.621 305.613 44 24.428 16.573 -21.290 21.865 15.925 -22.410 2.871 26.980 307.898 45 20.775 1.062 1.849 18.010 0.500 -0.460 3.646 2.132 60.115 46 27.951 31.592 -43.586 25.720 31.350 -44.360 2.374 53.831 305.935 47 24.413 16.789 -21.558 21.865 15.925 -22.410 2.822 27.324 307.911 48 20.742 1.238 1.780 18.010 0.500 -0.460 3.609 2.168 55.193 49 47.685 75.265 -6.106 48.130 75.200 -6.800 0.827 75.513 355.362 50 34.058 36.976 -1.848 33.070 37.850 -3.630 2.217 37.022 357.138 51 19.828 0.759 1.618 18.010 0.500 -0.460 2.773 1.787 64.874 52 47.770 75.333 -6.073 48.130 75.200 -6.800 0.823 75.577 355.391 53 34.024 36.746 -1.841 33.070 37.850 -3.630 2.308 36.792 357.131 54 19.895 0.766 1.713 18.010 0.500 -0.460 2.889 1.877 65.917 55 48.084 65.391 53.701 47.940 65.310 52.070 1.639 84.616 39.394 56 33.902 32.769 28.182 32.975 32.905 25.805 2.555 43.221 40.696 57 20.096 0.689 1.832 18.010 0.500 -0.460 3.105 1.958 69.398 58 48.093 65.240 53.510 47.940 65.310 52.070 1.449 84.377 39.358 59 33.983 32.963 28.200 32.975 32.905 25.805 2.599 43.379 40.547 60 20.045 0.703 1.815 18.010 0.500 -0.460 3.059 1.946 68.836 61 88.969 -7.916 99.202 90.370 -11.160 96.170 4.656 99.517 94.562 62 54.202 -4.710 50.539 54.190 -5.330 47.855 2.755 50.758 95.324 63 20.513 1.218 2.043 18.010 0.500 -0.460 3.612 2.379 59.195 64 88.968 -7.927 98.732 90.370 -11.160 96.170 4.357 99.050 94.591 65 54.261 -4.648 50.299 54.190 -5.330 47.855 2.539 50.514 95.279 66 20.641 0.847 1.666 18.010 0.500 -0.460 3.401 1.869 63.062 67 53.549 -61.840 40.746 50.900 -62.960 36.710 4.956 74.057 146.619 68 35.886 -31.821 20.383 34.455 -31.230 18.125 2.738 37.790 147.359 69 20.920 1.315 2.010 18.010 0.500 -0.460 3.903 2.401 56.801 70 53.497 -62.212 40.195 50.900 -62.960 36.710 4.410 74.067 147.134 71 35.953 -31.500 20.084 34.455 -31.230 18.125 2.481 37.358 147.479 72 20.895 1.150 1.709 18.010 0.500 -0.460 3.667 2.059 56.060 73 94.784 -1.844 6.954 95.410 -0.980 4.760 2.440 7.194 104.855 74 57.474 -0.187 4.308 56.710 -0.240 2.150 2.290 4.312 92.481 75 19.853 0.660 2.057 18.010 0.500 -0.460 3.124 2.160 72.205 76 94.850 -1.803 6.917 95.410 -0.980 4.760 2.376 7.148 104.613 77 57.492 -0.158 4.396 56.710 -0.240 2.150 2.380 4.399 92.060 78 19.840 0.774 1.873 18.010 0.500 -0.460 2.978 2.026 67.556 79 94.712 -1.740 6.671 95.410 -0.980 4.760 2.171 6.894 104.624 80 75.767 -1.256 4.576 76.060 -0.610 3.455 1.327 4.745 105.346 81 57.770 -0.029 4.084 56.710 -0.240 2.150 2.215 4.084 90.406 82 38.879 0.418 3.397 37.360 0.130 0.845 2.983 3.422 82.988 83 20.500 0.760 1.906 18.010 0.500 -0.460 3.445 2.052 68.276 84 94.746 -1.749 6.752 95.410 -0.980 4.760 2.236 6.975 104.522 85 75.784 -1.036 4.321 76.060 -0.610 3.455 1.004 4.443 103.478 86 57.797 0.122 4.078 56.710 -0.240 2.150 2.243 4.080 88.280 87 38.909 0.429 3.229 37.360 0.130 0.845 2.859 3.258 82.432 88 20.404 0.745 1.681 18.010 0.500 -0.460 3.221 1.839 66.098 89 94.821 -1.758 6.747 95.410 -0.980 4.760 2.214 6.973 104.604 90 86.389 -9.074 -6.237 86.213 -8.393 -7.118 1.128 11.011 214.502 91 76.787 -16.568 -18.756 77.015 -15.805 -18.995 0.832 25.026 228.543 92 68.577 -23.637 -30.298 67.818 -23.218 -30.873 1.041 38.427 232.040 93 59.128 -30.875 -42.876 58.620 -30.630 -42.750 0.578 52.835 234.243 94 94.810 -1.748 6.756 95.410 -0.980 4.760 2.221 6.978 104.505 95 86.419 -8.953 -6.387 86.213 -8.393 -7.118 0.943 10.998 215.505 96 76.820 -16.491 -18.789 77.015 -15.805 -18.995 0.742 25.000 228.727 97 68.658 -23.582 -30.348 67.818 -23.218 -30.873 1.056 38.433 232.151 98 59.211 -30.905 -42.735 58.620 -30.630 -42.750 0.652 52.739 234.127 99 94.672 -1.678 6.502 95.410 -0.980 4.760 2.016 6.715 104.470 100 78.300 7.067 -7.013 77.988 7.103 -7.520 0.597 9.956 315.220 101 60.293 15.348 -19.582 60.565 15.185 -19.800 0.385 24.880 308.089 102 44.203 22.986 -31.712 43.143 23.268 -32.080 1.157 39.167 305.936 103 27.016 31.165 -43.974 25.720 31.350 -44.360 1.365 53.898 305.325 104 94.830 -1.783 6.928 95.410 -0.980 4.760 2.383 7.154 104.433 105 78.257 7.039 -7.270 77.988 7.103 -7.520 0.373 10.119 314.077 106 60.155 15.718 -20.231 60.565 15.185 -19.800 0.798 25.619 307.845 107 44.111 23.540 -32.017 43.143 23.268 -32.080 1.008 39.740 306.324 108 26.626 33.169 -44.169 25.720 31.350 -44.360 2.042 55.237 306.905 109 94.830 -1.701 6.558 95.410 -0.980 4.760 2.022 6.775 104.543 110 83.971 17.488 2.916 83.590 18.065 1.870 1.254 17.729 9.468 111 71.531 37.398 -0.616 71.770 37.110 -1.020 0.550 37.403 359.056 112 60.110 56.166 -3.810 59.950 56.155 -3.910 0.189 56.295 356.120 113 48.082 74.995 -6.574 48.130 75.200 -6.800 0.309 75.282 354.990 114 94.878 -1.729 6.630 95.410 -0.980 4.760 2.084 6.852 104.617 115 83.935 17.501 2.928 83.590 18.065 1.870 1.247 17.744 9.497 116 71.513 37.496 -0.695 71.770 37.110 -1.020 0.566 37.502 358.938 117 60.110 56.159 -3.719 59.950 56.155 -3.910 0.249 56.282 356.211 118 48.182 74.902 -6.412 48.130 75.200 -6.800 0.492 75.176 355.107 119 94.804 -1.818 7.199 95.410 -0.980 4.760 2.649 7.425 104.176 120 82.777 14.554 17.861 83.543 15.593 16.588 1.812 23.040 50.825 121 71.216 31.512 29.973 71.675 32.165 28.415 1.750 43.490 43.566 122 59.233 49.560 42.426 59.808 48.738 40.243 2.403 65.239 40.565 123 47.901 65.572 53.795 47.940 65.310 52.070 1.745 84.815 39.365 124 94.772 -1.833 6.825 95.410 -0.980 4.760 2.324 7.067 105.036 125 82.720 14.616 17.563 83.543 15.593 16.588 1.607 22.849 50.232 126 71.256 31.437 30.263 71.675 32.165 28.415 2.030 43.636 43.910 127 59.267 49.547 42.334 59.808 48.738 40.243 2.306 65.169 40.511 128 47.815 65.383 53.061 47.940 65.310 52.070 1.001 84.204 39.061 129 94.840 -1.780 6.905 95.410 -0.980 4.760 2.359 7.131 104.455 130 93.112 -6.364 28.580 94.150 -3.525 27.613 3.174 29.280 102.554 131 92.030 -9.686 51.982 92.890 -6.070 50.465 4.014 52.877 100.555 132 90.731 -10.442 77.889 91.630 -8.615 73.318 5.005 78.586 97.636 133 88.925 -7.755 98.630 90.370 -11.160 96.170 4.442 98.935 94.496 134 94.750 -1.706 6.774 95.410 -0.980 4.760 2.240 6.985 104.140 135 93.456 -6.983 29.551 94.150 -3.525 27.613 4.024 30.365 103.295 136 91.762 -9.588 54.588 92.890 -6.070 50.465 5.536 55.424 99.962 137 90.523 -9.923 78.975 91.630 -8.615 73.318 5.912 79.596 97.161 138 88.450 -7.383 99.721 90.370 -11.160 96.170 5.528 99.994 94.234 139 94.774 -1.701 6.618 95.410 -0.980 4.760 2.092 6.833 104.419 140 84.620 -17.161 14.272 84.283 -16.475 12.748 1.706 22.320 140.250 141 72.841 -32.934 22.138 73.155 -31.970 20.735 1.731 39.683 146.092 142 63.629 -47.768 31.268 62.028 -47.465 28.723 3.022 57.091 146.792 143 53.074 -62.749 39.986 50.900 -62.960 36.710 3.938 74.407 147.493 144 94.824 -1.732 6.644 95.410 -0.980 4.760 2.111 6.866 104.611 145 84.610 -17.132 14.251 84.283 -16.475 12.748 1.673 22.284 140.245 146 72.795 -32.837 21.866 73.155 -31.970 20.735 1.470 39.451 146.341 147 63.609 -47.604 30.857 62.028 -47.465 28.723 2.660 56.730 147.049 148 53.068 -62.538 39.758 50.900 -62.960 36.710 3.764 74.106 147.554 149 59.304 -30.836 -42.453 58.620 -30.630 -42.750 0.774 52.471 234.007 150 48.835 -23.073 -32.162 48.468 -22.848 -32.178 0.431 39.582 234.345 151 38.544 -15.514 -20.880 38.315 -15.065 -21.605 0.883 26.012 233.387 152 28.577 -8.727 -9.949 28.163 -7.283 -11.033 1.853 13.234 228.743 153 19.400 0.578 1.071 18.010 0.500 -0.460 2.069 1.217 61.645 154 59.283 -30.812 -42.644 58.620 -30.630 -42.750 0.696 52.611 234.150 155 49.013 -23.128 -32.035 48.468 -22.848 -32.178 0.630 39.512 234.172 156 38.632 -15.429 -21.396 38.315 -15.065 -21.605 0.526 26.379 234.205 157 28.626 -9.032 -10.165 28.163 -7.283 -11.033 2.007 13.598 228.377 158 19.526 0.414 1.083 18.010 0.500 -0.460 2.165 1.159 69.068 159 26.747 31.469 -43.910 25.720 31.350 -44.360 1.128 54.022 305.628 160 25.010 24.152 -33.934 23.793 23.638 -33.385 1.431 41.651 305.440 161 23.199 16.450 -22.261 21.865 15.925 -22.410 1.441 27.680 306.463 162 21.560 8.223 -9.882 19.938 8.213 -11.435 2.246 12.856 309.764 163 19.767 0.771 1.400 18.010 0.500 -0.460 2.573 1.598 61.142 164 26.466 33.265 -43.952 25.720 31.350 -44.360 2.096 55.121 307.121 165 24.531 25.256 -34.061 23.793 23.638 -33.385 1.903 42.403 306.557 166 22.532 17.348 -22.759 21.865 15.925 -22.410 1.610 28.617 307.317 167 21.297 9.116 -10.038 19.938 8.213 -11.435 2.148 13.559 312.243 168 20.241 1.362 2.421 18.010 0.500 -0.460 3.745 2.778 60.648 169 47.954 75.045 -6.124 48.130 75.200 -6.800 0.715 75.294 355.335 170 39.935 56.633 -5.204 40.600 56.525 -5.215 0.674 56.872 354.750 171 34.317 37.076 -2.591 33.070 37.850 -3.630 1.798 37.166 356.003 172 27.113 19.906 0.097 25.540 19.175 -2.045 2.756 19.906 0.279 173 20.282 0.865 1.650 18.010 0.500 -0.460 3.122 1.863 62.340 174 48.114 74.940 -6.437 48.130 75.200 -6.800 0.447 75.216 355.091 175 40.005 56.475 -5.385 40.600 56.525 -5.215 0.621 56.731 354.553 176 34.340 37.261 -2.923 33.070 37.850 -3.630 1.569 37.376 355.515 177 27.115 19.691 -0.318 25.540 19.175 -2.045 2.394 19.694 359.076 178 20.357 0.721 1.317 18.010 0.500 -0.460 2.952 1.501 61.306 179 47.885 65.560 53.596 47.940 65.310 52.070 1.548 84.680 39.267 180 40.159 49.175 39.907 40.458 49.108 38.938 1.017 63.331 39.061 181 33.458 32.557 27.471 32.975 32.905 25.805 1.770 42.598 40.158 182 26.575 18.004 15.031 25.493 16.703 12.673 2.904 23.454 39.858 183 19.509 0.349 1.149 18.010 0.500 -0.460 2.205 1.201 73.119 184 47.899 65.372 53.449 47.940 65.310 52.070 1.381 84.441 39.270 185 40.193 49.025 39.636 40.458 49.108 38.938 0.752 63.043 38.955 186 33.443 32.649 27.569 32.975 32.905 25.805 1.843 42.732 40.179 187 26.586 17.967 15.189 25.493 16.703 12.673 3.021 23.527 40.209 188 19.559 0.718 1.107 18.010 0.500 -0.460 2.214 1.319 57.028 189 88.855 -7.734 98.558 90.370 -11.160 96.170 4.442 98.861 94.487 190 72.418 -8.190 74.514 72.280 -8.245 72.013 2.506 74.962 96.272 191 53.856 -5.000 49.618 54.190 -5.330 47.855 1.824 49.869 95.755 192 37.368 -2.171 26.048 36.100 -2.415 23.698 2.682 26.138 94.764 193 19.741 0.588 1.403 18.010 0.500 -0.460 2.544 1.521 67.252 194 88.335 -7.243 99.966 90.370 -11.160 96.170 5.821 100.228 94.144 195 72.521 -8.080 74.951 72.280 -8.245 72.013 2.953 75.385 96.153 196 54.041 -4.892 50.769 54.190 -5.330 47.855 2.951 51.005 95.504 197 37.291 -2.102 27.349 36.100 -2.415 23.698 3.854 27.430 94.394 198 20.047 1.076 1.865 18.010 0.500 -0.460 3.144 2.153 60.022 199 52.992 -62.907 39.847 50.900 -62.960 36.710 3.771 74.466 147.649 200 44.029 -47.586 30.202 42.678 -47.095 27.418 3.134 56.361 147.598 201 35.211 -32.267 19.159 34.455 -31.230 18.125 1.648 37.526 149.301 202 26.980 -16.066 9.803 26.233 -15.365 8.833 1.411 18.821 148.611 203 20.466 0.704 1.621 18.010 0.500 -0.460 3.225 1.767 66.517 204 52.908 -62.721 39.980 50.900 -62.960 36.710 3.845 74.379 147.486 205 43.965 -47.550 30.261 42.678 -47.095 27.418 3.154 56.362 147.527 206 35.087 -31.927 19.339 34.455 -31.230 18.125 1.536 37.328 148.796 207 26.972 -15.836 9.697 26.233 -15.365 8.833 1.232 18.569 148.519 208 20.294 0.770 1.635 18.010 0.500 -0.460 3.111 1.808 64.791 209 94.809 -1.830 6.976 95.410 -0.980 4.760 2.449 7.212 104.699 210 58.984 -30.966 -42.837 58.620 -30.630 -42.750 0.503 52.858 234.137 211 19.349 0.469 1.318 18.010 0.500 -0.460 2.226 1.398 70.426 212 94.944 -1.846 7.105 95.410 -0.980 4.760 2.543 7.341 104.567 213 58.971 -30.882 -42.895 58.620 -30.630 -42.750 0.456 52.855 234.248 214 19.176 0.272 0.555 18.010 0.500 -0.460 1.563 0.618 63.872 215 94.790 -1.802 6.934 95.410 -0.980 4.760 2.405 7.164 104.566 216 26.440 31.213 -44.153 25.720 31.350 -44.360 0.762 54.072 305.257 217 19.441 0.489 1.328 18.010 0.500 -0.460 2.290 1.415 69.769 218 94.798 -1.798 6.914 95.410 -0.980 4.760 2.385 7.145 104.579 219 26.313 31.108 -44.083 25.720 31.350 -44.360 0.697 53.954 305.210 220 19.377 0.342 0.924 18.010 0.500 -0.460 1.951 0.985 69.704 221 94.819 -1.802 6.895 95.410 -0.980 4.760 2.363 7.127 104.645 222 47.850 74.956 -6.176 48.130 75.200 -6.800 0.726 75.210 355.289 223 19.840 0.541 1.276 18.010 0.500 -0.460 2.523 1.386 67.045 224 94.770 -1.747 6.714 95.410 -0.980 4.760 2.194 6.937 104.589 225 47.821 75.208 -5.965 48.130 75.200 -6.800 0.890 75.444 355.465 226 19.694 0.611 1.037 18.010 0.500 -0.460 2.255 1.203 59.503 227 94.825 -1.776 6.746 95.410 -0.980 4.760 2.218 6.976 104.750 228 48.028 65.260 53.084 47.940 65.310 52.070 1.019 84.124 39.126 229 19.876 0.685 0.983 18.010 0.500 -0.460 2.366 1.198 55.119 230 94.757 -1.745 6.631 95.410 -0.980 4.760 2.124 6.857 104.740 231 48.025 65.348 52.692 47.940 65.310 52.070 0.629 83.945 38.880 232 19.948 0.440 0.952 18.010 0.500 -0.460 2.398 1.049 65.224 233 94.873 -1.904 7.232 95.410 -0.980 4.760 2.693 7.478 104.749 234 88.844 -7.513 99.977 90.370 -11.160 96.170 5.488 100.259 94.298 235 19.166 0.454 1.197 18.010 0.500 -0.460 2.021 1.280 69.252 236 94.774 -1.875 7.051 95.410 -0.980 4.760 2.540 7.296 104.892 237 88.796 -7.519 99.400 90.370 -11.160 96.170 5.115 99.684 94.326 238 19.338 0.352 0.841 18.010 0.500 -0.460 1.865 0.912 67.297 239 94.804 -1.889 7.199 95.410 -0.980 4.760 2.672 7.443 104.699 240 52.200 -63.279 39.813 50.900 -62.960 36.710 3.380 74.762 147.823 241 19.336 0.468 1.313 18.010 0.500 -0.460 2.214 1.394 70.403 242 94.841 -1.856 7.078 95.410 -0.980 4.760 2.542 7.317 104.693 243 52.201 -63.318 39.205 50.900 -62.960 36.710 2.837 74.473 148.235 244 19.327 0.532 0.810 18.010 0.500 -0.460 1.830 0.969 56.705 245 59.110 -30.725 -42.847 58.620 -30.630 -42.750 0.508 52.725 234.357 246 26.841 31.207 -43.931 25.720 31.350 -44.360 1.209 53.887 305.389 247 47.998 74.766 -5.917 48.130 75.200 -6.800 0.993 74.999 355.475 248 59.180 -30.727 -42.860 58.620 -30.630 -42.750 0.579 52.736 234.363 249 26.918 30.963 -43.680 25.720 31.350 -44.360 1.431 53.541 305.332 250 47.960 74.748 -5.974 48.130 75.200 -6.800 0.957 74.987 355.431 251 47.932 74.957 -6.193 48.130 75.200 -6.800 0.683 75.213 355.277 252 47.999 65.290 53.196 47.940 65.310 52.070 1.127 84.217 39.172 253 88.840 -7.715 98.748 90.370 -11.160 96.170 4.567 99.049 94.467 254 47.938 74.793 -6.065 48.130 75.200 -6.800 0.862 75.039 355.364 255 47.995 65.199 52.614 47.940 65.310 52.070 0.558 83.781 38.902 256 88.992 -7.768 98.150 90.370 -11.160 96.170 4.162 98.457 94.525 257 88.806 -7.564 99.378 90.370 -11.160 96.170 5.066 99.666 94.353 258 52.054 -63.456 39.583 50.900 -62.960 36.710 3.136 74.790 148.045 259 58.953 -30.907 -42.839 58.620 -30.630 -42.750 0.442 52.824 234.190 260 88.799 -7.554 99.130 90.370 -11.160 96.170 4.923 99.418 94.358 261 52.114 -63.302 39.247 50.900 -62.960 36.710 2.833 74.482 148.202 262 59.070 -30.873 -42.721 58.620 -30.630 -42.750 0.513 52.709 234.145 263 26.607 31.110 -43.675 25.720 31.350 -44.360 1.146 53.622 305.462 264 58.916 -30.902 -42.852 58.620 -30.630 -42.750 0.414 52.832 234.204 265 52.088 -63.025 39.540 50.900 -62.960 36.710 3.070 74.401 147.897 266 26.722 30.906 -43.822 25.720 31.350 -44.360 1.220 53.624 305.194 267 59.121 -30.882 -42.788 58.620 -30.630 -42.750 0.562 52.769 234.181 268 52.256 -63.141 39.105 50.900 -62.960 36.710 2.758 74.269 148.229 269 52.510 -62.813 39.840 50.900 -62.960 36.710 3.523 74.382 147.615 270 88.821 -7.677 99.211 90.370 -11.160 96.170 4.876 99.507 94.425 271 47.854 65.422 53.179 47.940 65.310 52.070 1.118 84.309 39.106 272 52.472 -62.907 39.443 50.900 -62.960 36.710 3.153 74.250 147.912 273 88.911 -7.687 98.611 90.370 -11.160 96.170 4.488 98.910 94.458 274 48.184 65.048 53.192 47.940 65.310 52.070 1.177 84.027 39.274 275 47.989 65.268 53.085 47.940 65.310 52.070 1.017 84.130 39.122 276 47.951 74.898 -5.916 48.130 75.200 -6.800 0.951 75.131 355.484 277 26.916 31.080 -43.714 25.720 31.350 -44.360 1.386 53.637 305.412 278 48.097 65.075 52.962 47.940 65.310 52.070 0.936 83.903 39.141 279 47.899 75.065 -6.424 48.130 75.200 -6.800 0.461 75.339 355.109 280 26.923 31.161 -44.194 25.720 31.350 -44.360 1.229 54.075 305.188 281 59.056 -30.846 -42.596 58.620 -30.630 -42.750 0.510 52.592 234.090 282 42.393 -0.024 -43.358 42.170 0.360 -43.555 0.485 43.358 269.969 283 26.201 31.341 -43.878 25.720 31.350 -44.360 0.681 53.922 305.538 284 35.879 52.754 -25.625 36.925 53.275 -25.580 1.170 58.649 334.092 285 47.697 75.104 -5.768 48.130 75.200 -6.800 1.123 75.325 355.608 286 59.077 -30.803 -42.830 58.620 -30.630 -42.750 0.495 52.757 234.277 287 42.530 0.124 -43.449 42.170 0.360 -43.555 0.443 43.449 270.163 288 26.456 31.114 -43.949 25.720 31.350 -44.360 0.875 53.848 305.297 289 36.149 53.085 -25.997 36.925 53.275 -25.580 0.901 59.109 333.908 290 47.813 74.760 -5.930 48.130 75.200 -6.800 1.026 74.995 355.465 291 47.681 75.057 -5.678 48.130 75.200 -6.800 1.217 75.271 355.674 292 48.009 70.346 23.542 48.035 70.255 22.635 0.912 74.181 18.503 293 47.948 65.385 53.204 47.940 65.310 52.070 1.137 84.297 39.135 294 69.043 27.507 75.803 69.155 27.075 74.120 1.742 80.640 70.055 295 88.877 -7.732 98.861 90.370 -11.160 96.170 4.607 99.162 94.472 296 47.708 75.078 -5.934 48.130 75.200 -6.800 0.971 75.312 355.481 297 48.137 70.269 23.468 48.035 70.255 22.635 0.839 74.085 18.468 298 47.993 65.415 53.124 47.940 65.310 52.070 1.060 84.269 39.080 299 69.008 27.609 75.411 69.155 27.075 74.120 1.405 80.306 69.892 300 88.950 -7.638 98.601 90.370 -11.160 96.170 4.509 98.897 94.429 301 88.888 -7.777 98.464 90.370 -11.160 96.170 4.348 98.770 94.516 302 69.977 -37.776 67.450 70.635 -37.060 66.440 1.402 77.308 119.251 303 52.753 -62.962 39.380 50.900 -62.960 36.710 3.250 74.263 147.976 304 56.064 -46.601 -2.263 54.760 -46.795 -3.020 1.520 46.656 182.780 305 59.454 -30.783 -42.623 58.620 -30.630 -42.750 0.858 52.577 234.163 306 88.698 -7.654 98.411 90.370 -11.160 96.170 4.484 98.708 94.447 307 69.890 -37.662 67.446 70.635 -37.060 66.440 1.389 77.249 119.179 308 52.671 -62.821 38.863 50.900 -62.960 36.710 2.791 73.870 148.258 309 55.892 -46.803 -2.516 54.760 -46.795 -3.020 1.239 46.871 183.077 310 59.528 -30.492 -42.511 58.620 -30.630 -42.750 0.949 52.316 234.349 ] def %LAB_KIi %************************************************************* /D57SERWi 2000 array def %max 57 series of 15 data (100x20) /D57SERWi [%BEG D57SERWi top data WANG_ELCD scaling data %0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %N S N1 N2 N3 N4 N5 NA1 NA2 NA3 NA4 NA5 DV*1i DV*2i WANG1 WANG2 %Serie 1, BAM test chart order 1:25 001 003 001 002 003 000 000 (W) (CW) (C) (0) (0) 26.45 26.39 (W03) (W04) 002 003 007 008 009 000 000 (W) (VW) (V) (0) (0) 29.54 41.95 (W13) (W14) 003 003 013 014 015 000 000 (W) (MW) (M) (0) (0) 31.00 32.74 (W23) (W24) 004 003 019 020 021 000 000 (W) (OW) (O) (0) (0) 28.01 37.64 (W33) (W34) 005 003 025 026 027 000 000 (W) (YW) (Y) (0) (0) 16.99 11.01 (W43) (W44) 006 003 031 032 033 000 000 (W) (LW) (L) (0) (0) 25.44 28.39 (W53) (W54) %Serie 2, BAM test chart order 1:25 007 003 037 038 039 000 000 (C) (CN) (N) (0) (0) 25.80 35.47 (W06) (W05) 008 003 043 044 045 000 000 (V) (VN) (N) (0) (0) 9.30 16.62 (W16) (W15) 009 003 049 050 051 000 000 (M) (MN) (N) (0) (0) 26.80 29.68 (W26) (W25) 010 003 055 056 057 000 000 (O) (ON) (N) (0) (0) 30.62 34.58 (W36) (W35) 011 003 061 062 063 000 000 (Y) (YN) (N) (0) (0) 29.85 41.77 (W46) (W45) 012 003 067 068 069 000 000 (L) (LN) (N) (0) (0) 18.79 35.12 (W56) (W55) %Serie 3, BAM test chart order 3:27 013 003 209 210 211 000 000 (W) (C) (N) (0) (0) 64.17 61.50 (W01) (W02) 014 003 215 216 217 000 000 (W) (V) (N) (0) (0) 67.03 32.91 (W11) (W12) 015 003 221 222 223 000 000 (W) (M) (N) (0) (0) 74.48 61.26 (W21) (W22) 016 003 227 228 229 000 000 (W) (O) (N) (0) (0) 71.77 67.21 (W31) (W32) 017 003 233 234 235 000 000 (W) (Y) (N) (0) (0) 37.26 86.10 (W41) (W42) 018 003 239 240 241 000 000 (W) (L) (N) (0) (0) 50.89 56.11 (W51) (W52) %Serie 4, BAM test chart order 3:27 019 003 245 246 247 000 000 (C) (V) (M) (0) (0) 41.67 45.01 (W09) (W19) 020 003 251 252 253 000 000 (M) (O) (Y) (0) (0) 28.41 72.32 (W29) (W39) 021 003 257 258 259 000 000 (Y) (L) (C) (0) (0) 64.80 40.72 (W49) (W59) 022 003 263 264 265 000 000 (V) (C) (L) (0) (0) 41.67 40.72 (W09) (W59) 023 003 269 270 271 000 000 (L) (Y) (O) (0) (0) 64.80 72.32 (W49) (W39) 024 003 275 276 277 000 000 (O) (M) (V) (0) (0) 28.41 45.01 (W29) (W19) %Serie 5, BAM test chart order 2:26 %values are missing 025 004 089 090 091 000 000 (W) (Wc) (CW) (0) (0) 26.45 0.00 (W03) (W00) 026 004 099 100 101 102 103 (W) (Wv) (VW) (0) (0) 29.54 0.00 (W13) (W00) 027 004 109 110 111 112 113 (W) (Wm) (MW) (0) (0) 31.00 0.00 (W23) (W00) 028 004 119 120 121 122 123 (W) (Wo) (OW) (0) (0) 28.01 0.00 (W33) (W00) 029 004 129 130 131 132 133 (W) (Wy) (YW) (0) (0) 16.99 0.00 (W43) (W00) 030 004 139 140 141 142 143 (W) (Wl) (LW) (0) (0) 25.44 0.00 (W53) (W00) %Serie 6, BAM test chart order 2:26 031 004 091 092 093 000 000 (CW) (Cw) (C) (0) (0) 26.39 0.00 (W04) (W00) 032 004 101 102 103 000 000 (VW) (Vw) (V) (0) (0) 41.95 0.00 (W14) (W00) 033 004 111 112 113 000 000 (MW) (Mw) (M) (0) (0) 32.74 0.00 (W24) (W00) 034 004 121 122 123 000 000 (OW) (Ow) (O) (0) (0) 37.64 0.00 (W34) (W00) 035 004 131 132 133 000 000 (YW) (Yw) (Y) (0) (0) 110.1 0.00 (W44) (W00) 036 004 141 142 143 000 000 (LW) (Lw) (L) (0) (0) 28.39 0.00 (W54) (W00) %Serie 7, BAM test chart order 2:26 037 004 149 150 151 000 000 (C) (Cn) (CN) (0) (0) 25.80 0.00 (W06) (W00) 038 004 159 160 161 000 000 (V) (Vn) (VN) (0) (0) 9.30 0.00 (W16) (W00) 039 004 169 170 171 000 000 (M) (Mn) (MN) (0) (0) 26.80 0.00 (W26) (W00) 040 004 179 180 181 000 000 (O) (On) (ON) (0) (0) 30.62 0.00 (W36) (W00) 041 004 189 190 191 000 000 (Y) (Yn) (YN) (0) (0) 29.85 0.00 (W46) (W00) 042 004 199 200 201 000 000 (L) (Ln) (LN) (0) (0) 18.79 0.00 (W56) (W00) %Serie 8, BAM test chart order 2:26 043 004 151 152 153 000 000 (CN) (Nc) (N) (0) (0) 61.50 0.00 (W02) (W00) 044 004 161 162 163 000 000 (VN) (Nv) (N) (0) (0) 32.91 0.00 (W12) (W00) 045 004 171 172 173 000 000 (MN) (Nm) (N) (0) (0) 61.26 0.00 (W22) (W00) 046 004 181 182 183 000 000 (ON) (No) (N) (0) (0) 67.21 0.00 (W32) (W00) 047 004 191 192 193 000 000 (YN) (Ny) (N) (0) (0) 86.10 0.00 (W42) (W00) 048 004 201 202 203 000 000 (LN) (Nl) (N) (0) (0) 56.11 0.00 (W52) (W00) %Serie 2N, BAM test chart order 1:25, 1 triplet 049 003 073 074 075 000 000 (W) (WN) (N) (0) (0) 10.00 9.00 (W61) (W62) %Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets 050 004 281 282 283 000 000 (C) (CV) (V) (0) (0) 41.67 0.00 (W09) (W00) 051 004 283 284 285 000 000 (V) (MV) (M) (0) (0) 45.01 0.00 (W19) (W00) 052 004 291 292 293 000 000 (M) (MO) (O) (0) (0) 28.41 0.00 (W29) (W00) 053 004 293 294 295 000 000 (O) (YO) (Y) (0) (0) 72.32 0.00 (W39) (W00) 054 004 301 302 303 000 000 (Y) (YL) (L) (0) (0) 64.80 0.00 (W49) (W00) 055 004 303 304 305 000 000 (L) (CL) (C) (0) (0) 40.72 0.00 (W59) (W00) %Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets 056 004 079 080 081 000 000 (W) (Wn) (WN) (0) (0) 10.00 0.00 (W61) (W00) 057 004 081 082 083 000 000 (WN) (Nw) (N) (0) (0) 9.00 0.00 (W62) (W00) ] def %END D57SERWi %************************************************************* /D57SERVia 2000 array def %max 57 series of 15 data (100x20) /D57SERVia [%BEG D57SERVia top data VIK_ELCD scaling data %0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %N S N1 N2 N3 N4 N5 NA1 NA2 NA3 NA4 NA5 DV*1i DV*2i VIK1 VIK2 %Serie 1, BAM test chart order 1:25 001 003 001 002 003 000 000 (W) (CW) (C) (0) (0) 25.24 39.23 (V01) (V02) 002 003 007 008 009 000 000 (W) (VW) (V) (0) (0) 33.11 46.66 (V03) (V04) 003 003 013 014 015 000 000 (W) (MW) (M) (0) (0) 30.92 45.35 (V05) (V06) 004 003 019 020 021 000 000 (W) (OW) (O) (0) (0) 26.55 46.66 (V07) (V08) 005 003 025 026 027 000 000 (W) (YW) (Y) (0) (0) 22.62 23.06 (V09) (V10) 006 003 031 032 033 000 000 (W) (LW) (L) (0) (0) 29.18 40.98 (V11) (V12) %Serie 2, BAM test chart order 1:25 007 003 037 038 039 000 000 (C) (CN) (N) (0) (0) 38.35 42.73 (V13) (V14) 008 003 043 044 045 000 000 (V) (VN) (N) (0) (0) 21.75 31.36 (V15) (V16) 009 003 049 050 051 000 000 (M) (MN) (N) (0) (0) 40.98 44.47 (V17) (V18) 010 003 055 056 057 000 000 (O) (ON) (N) (0) (0) 34.86 43.16 (V19) (V20) 011 003 061 062 063 000 000 (Y) (YN) (N) (0) (0) 35.73 47.97 (V21) (V22) 012 003 067 068 069 000 000 (L) (LN) (N) (0) (0) 36.17 42.29 (V23) (V24) %Serie 3, BAM test chart order 3:27 013 003 209 210 211 000 000 (W) (C) (N) (0) (0) 53.65 55.40 (V26) (V25) 014 003 215 216 217 000 000 (W) (V) (N) (0) (0) 65.02 29.61 (V28) (V27) 015 003 221 222 223 000 000 (W) (M) (N) (0) (0) 60.21 53.22 (V30) (V29) 016 003 227 228 229 000 000 (W) (O) (N) (0) (0) 58.46 48.84 (V32) (V31) 017 003 233 234 235 000 000 (W) (Y) (N) (0) (0) 37.38 61.52 (V34) (V33) 018 003 239 240 241 000 000 (W) (L) (N) (0) (0) 55.84 45.35 (V36) (V35) %Serie 4, BAM test chart order 3:27 019 003 245 246 247 000 000 (C) (V) (M) (0) (0) 44.47 42.29 (V37) (V38) 020 003 251 252 253 000 000 (M) (O) (Y) (0) (0) 22.62 47.97 (V40) (V39) 021 003 257 258 259 000 000 (Y) (L) (C) (0) (0) 46.22 31.36 (V41) (V42) 022 003 263 264 265 000 000 (V) (C) (L) (0) (0) 48.41 30.49 (V44) (V43) 023 003 269 270 271 000 000 (L) (Y) (O) (0) (0) 51.03 53.65 (V46) (V45) 024 003 275 276 277 000 000 (O) (M) (V) (0) (0) 23.49 48.84 (V47) (V48) %Serie 5, BAM test chart order 2:26 %dummy 26.00: values are missing 025 003 089 090 091 000 000 (W) (Wc) (CW) (0) (0) 25.24 26.00 (V01) (V00) 026 003 099 100 101 000 000 (W) (Wv) (VW) (0) (0) 33.11 26.00 (V03) (V00) 027 003 109 110 111 000 000 (W) (Wm) (MW) (0) (0) 30.92 26.00 (V05) (V00) 028 003 119 120 121 000 000 (W) (Wo) (OW) (0) (0) 26.55 26.00 (V07) (V00) 029 003 129 130 131 000 000 (W) (Wy) (YW) (0) (0) 22.62 26.00 (V09) (V00) 030 003 139 140 141 000 000 (W) (Wl) (LW) (0) (0) 29.18 26.00 (V11) (V00) %Serie 6, BAM test chart order 2:26 031 003 091 092 093 000 000 (CW) (Cw) (C) (0) (0) 22.62 27.87 (V62) (V61) 032 003 101 102 103 000 000 (VW) (Vw) (V) (0) (0) 26.99 33.98 (V64) (V63) 033 003 111 112 113 000 000 (MW) (Mw) (M) (0) (0) 28.30 35.73 (V66) (V65) 034 003 121 122 123 000 000 (OW) (Ow) (O) (0) (0) 24.37 33.98 (V68) (V67) 035 003 131 132 133 000 000 (YW) (Yw) (Y) (0) (0) 18.25 20.00 (V70) (V69) 036 003 141 142 143 000 000 (LW) (Lw) (L) (0) (0) 23.49 32.24 (V72) (V71) %Serie 7, BAM test chart order 2:26 037 003 149 150 151 000 000 (C) (Cn) (CN) (0) (0) 29.61 28.74 (V74) (V73) 038 003 159 160 161 000 000 (V) (Vn) (VN) (0) (0) 19.56 18.25 (V76) (V75) 039 003 169 170 171 000 000 (M) (Mn) (MN) (0) (0) 35.73 27.87 (V78) (V77) 040 003 179 180 181 000 000 (O) (On) (ON) (0) (0) 37.48 26.12 (V80) (V79) 041 003 189 190 191 000 000 (Y) (Yn) (YN) (0) (0) 38.35 30.49 (V82) (V81) 042 003 199 200 201 000 000 (L) (Ln) (LN) (0) (0) 33.11 26.99 (V84) (V83) %Serie 8, BAM test chart order 2:26 043 003 151 152 153 000 000 (CN) (Nc) (N) (0) (0) 37.48 26.12 (V86) (V85) 044 003 161 162 163 000 000 (VN) (Nv) (N) (0) (0) 20.43 18.25 (V88) (V87) 045 003 171 172 173 000 000 (MN) (Nm) (N) (0) (0) 34.86 28.30 (V90) (V89) 046 003 181 182 183 000 000 (ON) (No) (N) (0) (0) 33.98 27.87 (V92) (V91) 047 003 191 192 193 000 000 (YN) (Ny) (N) (0) (0) 39.67 34.86 (V94) (V93) 048 003 201 202 203 000 000 (LN) (Nl) (N) (0) (0) 32.24 26.12 (V96) (V95) %Serie 2N, BAM test chart order 1:25, 1 triplet 049 003 073 074 075 000 000 (W) (WN) (N) (0) (0) 40.10 36.61 (V97) (V98) %Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets 050 004 281 282 283 000 000 (C) (CV) (V) (0) (0) 44.47 0.00 (V37) (V00) 051 004 283 284 285 000 000 (V) (MV) (M) (0) (0) 42.29 0.00 (V38) (V00) 052 004 291 292 293 000 000 (M) (MO) (O) (0) (0) 22.62 0.00 (V40) (V00) 053 004 293 294 295 000 000 (O) (YO) (Y) (0) (0) 47.97 0.00 (V39) (V00) 054 004 301 302 303 000 000 (Y) (YL) (L) (0) (0) 46.22 0.00 (V41) (V00) 055 004 303 304 305 000 000 (L) (CL) (C) (0) (0) 31.36 0.00 (V42) (V00) %Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets 056 004 079 080 081 000 000 (W) (Wn) (WN) (0) (0) 40.10 0.00 (V97) (V00) 057 004 081 082 083 000 000 (WN) (Nw) (N) (0) (0) 36.61 0.00 (V98) (V00) ] def %END D57SERVia %************************************************************* /D57SERVi 2000 array def %max 57 series of 15 data (100x20) /D57SERVi [%BEG D57SERVi top data VIK_ELCD scaling data %0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %N S N1 N2 N3 N4 N5 NA1 NA2 NA3 NA4 NA5 DV*1i DV*2i VIK1 VIK2 %Serie 1, BAM test chart order 1:25 001 003 001 002 003 000 000 (W) (CW) (C) 6.06 7.92 25.24 39.23 (V01) (V02) 002 003 007 008 009 000 000 (W) (VW) (V) 3.03 7.44 33.11 46.66 (V03) (V04) 003 003 013 014 015 000 000 (W) (MW) (M) 4.15 7.21 30.92 45.35 (V05) (V06) 004 003 019 020 021 000 000 (W) (OW) (O) 6.27 5.35 26.55 46.66 (V07) (V08) 005 003 025 026 027 000 000 (W) (YW) (Y) 5.39 10.8 22.62 23.06 (V09) (V10) 006 003 031 032 033 000 000 (W) (LW) (L) 4.58 7.82 29.18 40.98 (V11) (V12) %Serie 2, BAM test chart order 1:25 007 003 037 038 039 000 000 (C) (CN) (N) 12.1 5.67 38.35 42.73 (V13) (V14) 008 003 043 044 045 000 000 (V) (VN) (N) 6.42 9.50 21.75 31.36 (V15) (V16) 009 003 049 050 051 000 000 (M) (MN) (N) 9.08 7.82 40.98 44.47 (V17) (V18) 010 003 055 056 057 000 000 (O) (ON) (N) 10.7 9.31 34.86 43.16 (V19) (V20) 011 003 061 062 063 000 000 (Y) (YN) (N) 10.0 6.88 35.73 47.97 (V21) (V22) 012 003 067 068 069 000 000 (L) (LN) (N) 9.87 10.7 36.17 42.29 (V23) (V24) %Serie 3, BAM test chart order 3:27 013 003 209 210 211 000 000 (W) (C) (N) 7.29 5.77 53.65 55.40 (V26) (V25) 014 003 215 216 217 000 000 (W) (V) (N) 6.27 11.1 65.02 29.61 (V28) (V27) 015 003 221 222 223 000 000 (W) (M) (N) 8.91 6.30 60.21 53.22 (V30) (V29) 016 003 227 228 229 000 000 (W) (O) (N) 8.56 9.81 58.46 48.84 (V32) (V31) 017 003 233 234 235 000 000 (W) (Y) (N) 17.1 8.41 37.38 61.52 (V34) (V33) 018 003 239 240 241 000 000 (W) (L) (N) 7.62 10.8 55.84 45.35 (V36) (V35) %Serie 4, BAM test chart order 3:27 019 003 245 246 247 000 000 (C) (V) (M) 11.2 13.7 44.47 42.29 (V37) (V38) 020 003 251 252 253 000 000 (M) (O) (Y) 6.30 11.1 22.62 47.97 (V40) (V39) 021 003 257 258 259 000 000 (Y) (L) (C) 10.3 8.29 46.22 31.36 (V41) (V42) 022 003 263 264 265 000 000 (V) (C) (L) 9.87 11.3 48.41 30.49 (V44) (V43) 023 003 269 270 271 000 000 (L) (Y) (O) 10.2 9.52 51.03 53.65 (V46) (V45) 024 003 275 276 277 000 000 (O) (M) (V) 10.6 11.3 23.49 48.84 (V47) (V48) %Serie 5, BAM test chart order 2:26 %dummy 26.00: values are missing 025 004 089 090 091 000 000 (W) (Wc) (CW) 6.06 6.06 25.24 0.481 (V01) (V00) 026 004 099 100 101 000 000 (W) (Wv) (VW) 7.44 7.44 33.11 0.497 (V03) (V00) 027 004 109 110 111 000 000 (W) (Wm) (MW) 4.15 4.15 30.92 0.492 (V05) (V00) 028 004 119 120 121 000 000 (W) (Wo) (OW) 6.27 6.27 26.55 0.493 (V07) (V00) 029 004 129 130 131 000 000 (W) (Wy) (YW) 5.39 5.39 22.62 0.358 (V09) (V00) 030 004 139 140 141 000 000 (W) (Wl) (LW) 4.58 4.58 29.18 0.492 (V11) (V00) %Serie 6, BAM test chart order 2:26 031 003 091 092 093 000 000 (CW) (Cw) (C) 6.30 12.2 22.62 27.87 (V62) (V61) 032 003 101 102 103 000 000 (VW) (Vw) (V) 7.21 11.3 26.99 33.98 (V64) (V63) 033 003 111 112 113 000 000 (MW) (Mw) (M) 8.76 10.0 28.30 35.73 (V66) (V65) 034 003 121 122 123 000 000 (OW) (Ow) (O) 7.31 10.8 24.37 33.98 (V68) (V67) 035 003 131 132 133 000 000 (YW) (Yw) (Y) 3.27 7.10 18.25 20.00 (V70) (V69) 036 003 141 142 143 000 000 (LW) (Lw) (L) 6.06 11.2 23.49 32.24 (V72) (V71) %Serie 7, BAM test chart order 2:26 037 003 149 150 151 000 000 (C) (Cn) (CN) 8.29 8.48 29.61 28.74 (V74) (V73) 038 003 159 160 161 000 000 (V) (Vn) (VN) 4.58 3.27 19.56 18.25 (V76) (V75) 039 003 169 170 171 000 000 (M) (Mn) (MN) 9.50 12.2 35.73 27.87 (V78) (V77) 040 003 179 180 181 000 000 (O) (On) (ON) 5.10 11.2 37.48 26.12 (V80) (V79) 041 003 189 190 191 000 000 (Y) (Yn) (YN) 12.1 8.65 38.35 30.49 (V82) (V81) 042 003 199 200 201 000 000 (L) (Ln) (LN) 10.3 10.3 33.11 26.99 (V84) (V83) %Serie 8, BAM test chart order 2:26 043 003 151 152 153 000 000 (CN) (Nc) (N) 7.62 9.08 37.48 26.12 (V86) (V85) 044 003 161 162 163 000 000 (VN) (Nv) (N) 6.69 3.27 20.43 18.25 (V88) (V87) 045 003 171 172 173 000 000 (MN) (Nm) (N) 9.08 6.27 34.86 28.30 (V90) (V89) 046 003 181 182 183 000 000 (ON) (No) (N) 9.73 9.73 33.98 27.87 (V92) (V91) 047 003 191 192 193 000 000 (YN) (Ny) (N) 6.74 12.6 39.67 34.86 (V94) (V93) 048 003 201 202 203 000 000 (LN) (Nl) (N) 10.2 9.08 32.24 26.12 (V96) (V95) %Serie 2N, BAM test chart order 1:25, 1 triplet 049 003 073 074 075 000 000 (W) (WN) (N) (0) (0) 40.10 36.61 (V97) (V98) %not used %Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets 050 004 281 282 283 000 000 (C) (CV) (V) (0) (0) 44.47 0.00 (V37) (V00) 051 004 283 284 285 000 000 (V) (MV) (M) (0) (0) 42.29 0.00 (V38) (V00) 052 004 291 292 293 000 000 (M) (MO) (O) (0) (0) 22.62 0.00 (V40) (V00) 053 004 293 294 295 000 000 (O) (YO) (Y) (0) (0) 47.97 0.00 (V39) (V00) 054 004 301 302 303 000 000 (Y) (YL) (L) (0) (0) 46.22 0.00 (V41) (V00) 055 004 303 304 305 000 000 (L) (CL) (C) (0) (0) 31.36 0.00 (V42) (V00) %Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets 056 004 079 080 081 000 000 (W) (Wn) (WN) (0) (0) 40.10 0.00 (V97) (V00) 057 004 081 082 083 000 000 (WN) (Nw) (N) (0) (0) 36.61 0.00 (V98) (V00) ] def %END D57SERVi /d_CIELABi 2800 array def /d_CIELCHi 2800 array def /d_C94LCHi 2800 array def /d_CMCLCHi 2800 array def /d_CM2LCHi 2800 array def /d_C00LCHi 2800 array def /d_C85LCHi 2800 array def /d_C77LCHi 2800 array def /d_C78LCHi 2800 array def /d_C79LCHi 2800 array def /d_CIELABmi 2800 array def /d_CIELCHmi 2800 array def /d_C94LCHmi 2800 array def /d_CMCLCHmi 2800 array def /d_CM2LCHmi 2800 array def /d_C00LCHmi 2800 array def /d_C85LCHmi 2800 array def /d_C77LCHmi 2800 array def /d_C78LCHmi 2800 array def /d_C79LCHmi 2800 array def /D13 1 3 div def /D841_108 841 108 div def /D4_29 4 29 div def /D6_29 6 29 div 3 exp def /proc_coldiff {%BEG procedure proc_coldiff proc_coldiff_WK58.PS 150529 %calculates CIE colour data and differences for 10 colour spaces %BEG CIELAB/CIELCH /FL 0.000001 def X0 XW div D6_29 gt {/FXXN0 X0 XW div 0.0001 add D13 exp def} {/FXXN0 D841_108 X0 XW div mul D4_29 add def} ifelse Y0 YW div D6_29 gt {/FYYN0 Y0 YW div 0.0001 add D13 exp def} {/FYYN0 D841_108 Y0 YW div mul D4_29 add def} ifelse Z0 ZW div D6_29 gt {/FZZN0 Z0 ZW div 0.0001 add D13 exp def} {/FZZN0 D841_108 Z0 ZW div mul D4_29 add def} ifelse /CIEL*0 116. FYYN0 mul 16. sub def /CIEa*0 500. FXXN0 FYYN0 sub mul def /CIEb*0 200. FYYN0 FZZN0 sub mul def /CIEC*ab0 CIEa*0 dup mul CIEb*0 dup mul add 0.0001 add sqrt def /CIEhab0 CIEb*0 CIEa*0 0.0001 add atan def X1 XW div D6_29 gt {/FXXN1 X1 XW div 0.0001 add D13 exp def} {/FXXN1 D841_108 X1 XW div mul D4_29 add def} ifelse Y1 YW div D6_29 gt {/FYYN1 Y1 YW div 0.0001 add D13 exp def} {/FYYN1 D841_108 Y1 YW div mul D4_29 add def} ifelse Z1 ZW div D6_29 gt {/FZZN1 Z1 ZW div 0.0001 add D13 exp def} {/FZZN1 D841_108 Z1 ZW div mul D4_29 add def} ifelse /CIEL*1 116. FYYN1 mul 16. sub def /CIEa*1 500. FXXN1 FYYN1 sub mul def /CIEb*1 200. FYYN1 FZZN1 sub mul def /CIEC*ab1 CIEa*1 dup mul CIEb*1 dup mul add 0.0001 add sqrt def /CIEhab1 CIEb*1 CIEa*1 0.0001 add atan def %mixed terms with *0 sn *1: /d_CIEL* CIEL*1 CIEL*0 sub def /d_CIEa* CIEa*1 CIEa*0 sub def /d_CIEb* CIEb*1 CIEb*0 sub def d_CIELABi i d_CIEL* dup mul d_CIEa* dup mul add d_CIEb* dup mul add 0.00000001 add sqrt put /a_CIELAB 1.26 def /b_CIELAB 0.55 def d_CIELABmi i d_CIELABi i get b_CIELAB exp a_CIELAB mul put /d_CIEh CIEhab1 CIEhab0 sub def %see CIEDE2000 page 4 CIEC*ab1 CIEC*ab0 mul 0 eq {/d_CIEh 0 def} if %CIEC*ab1 x CIEC*ab0 =0 CIEC*ab1 CIEC*ab0 mul 0 ne d_CIEh 180 gt and {/d_CIEh d_CIEh 360 sub def} if CIEC*ab1 CIEC*ab0 mul 0 ne d_CIEh -180 lt and {/d_CIEh d_CIEh 360 add def} if /d_CIEL CIEL*1 CIEL*0 sub def /d_CIECab CIEC*ab1 CIEC*ab0 sub def /d_CIEHab CIEC*ab1 CIEC*ab0 mul 0.000001 add sqrt 2 mul d_CIEh 0.5 mul sin mul def d_CIELCHi i d_CIEL dup mul d_CIECab dup mul add d_CIEHab dup mul add 0.000001 add sqrt put %alternative: %for 2 an 10 degree observer, see Richter (1996) %a'=0,2191 b'=-0,08376 a'10=0,2193, b'10=-0,08417 %a'2 and a'10 used for both 12 and 190 degree observer %BEG LABD65_1976=C76 /S76L 1 def /S76A 1 def /S76B 1 def /K76L 1 def /K76A 1 def /K76B 1 def /AS2 0.2191 def /BS2 -0.08376 def %C76a'=AS2*(x/y)**(1/3) %C76b'=BS2*(z/y)**(1/3) %C76L*=L*CIE %C76a*=500*[C76a'-C76a'n]*Y**(1/3) %C76b*=500*[C76b'-C76b'n]*Y**(1/3) /C76a'0 X0 Y0 FL add div 0.3333 exp AS2 mul def /C76a'1 X1 Y1 FL add div 0.3333 exp AS2 mul def /C76a'n XW YW FL add div 0.3333 exp AS2 mul def /C76b'0 Z0 Y0 FL add div 0.3333 exp BS2 mul def /C76b'1 Z1 Y1 FL add div 0.3333 exp BS2 mul def /C76b'n ZW YW FL add div 0.3333 exp BS2 mul def /C76a*0 C76a'0 C76a'n sub 500 mul Y0 1 3 div exp mul def /C76a*1 C76a'1 C76a'n sub 500 mul Y1 1 3 div exp mul def /C76b*0 C76b'0 C76b'n sub 500 mul Y0 1 3 div exp mul def /C76b*1 C76b'1 C76b'n sub 500 mul Y1 1 3 div exp mul def %name d_CIELCHi instead of d_LABD65i 1976 d_CIELCHi i CIEL*1 CIEL*0 sub K76L div S76L div dup mul C76a*1 C76a*0 sub K76A div S76A div dup mul add C76b*1 C76b*0 sub K76B div S76B div dup mul add 0.00000001 add sqrt put %END LABD65_1976=C76 /a_CIELCH 1.26 def /b_CIELCH 0.55 def d_CIELCHmi i d_CIELCHi i get b_CIELCH exp a_CIELCH mul put %BEG CIELAB/CIELCH %BEG CIE94 /S94L 1 def /S94C 1 0.045 CIEC*ab0 mul add def /S94H 1 0.015 CIEC*ab0 mul add def /K94L 1 def /K94C 1 def /K94H 1 def /LC94*0 CIEL*0 K94L div S94L div def /LC94*1 CIEL*1 K94L div S94L div def /CC94*ab0 CIEC*ab0 K94C div S94C div def /CC94*ab1 CIEC*ab1 K94C div S94C div def d_C94LCHi i CIEL*1 CIEL*0 sub K94L div S94L div dup mul CIEC*ab1 CIEC*ab0 sub K94C div S94C div dup mul add d_CIEHab K94H div S94H div dup mul add 0.00000001 add sqrt put /a_C94LCH 1.41 def /b_C94LCH 0.70 def d_C94LCHmi i d_C94LCHi i get b_C94LCH exp a_C94LCH mul put %END CIE94 %BEG CMC(l:c=1:1) %special mean m of two samples for SCML, SCMC, TCMC /CIEL*0m CIEL*0 CIEL*1 add 0.5 mul def /CMCC0S CIEC*ab0 def /CMCC1S CIEC*ab1 def /CIEC*ab0m CMCC0S CMCC1S add 0.5 mul def CIEC*ab0 0 eq {/CMCh0S 0 def} {/CMCh0S CIEb*0 CIEa*0 0.0001 add atan def } ifelse CIEC*ab1 0 eq {/CMCh1S 0 def} {/CMCh1S CIEb*1 CIEa*1 0.0001 add atan def } ifelse %beg special EQUATION (11) TO (14) /d_CMChS0 CMCh1S CMCh0S sub def %see CIEDE2000 page 4 CMCC1S CMCC0S mul 0 eq {/d_CMChS 0 def} if %CIEC*ab1 x CIEC*ab0 =0 CMCC1S CMCC0S mul 0 ne d_CMChS0 abs 180 le and {/d_CMChSm d_CMChS0 def} if CMCC1S CMCC0S mul 0 ne d_CMChS0 180 gt and {/d_CMChSm d_CMChS0 360 sub def} if CMCC1S CMCC0S mul 0 ne d_CMChS0 -180 lt and {/d_CMChSm d_CMChS0 360 add def} if %end special EQUATION (11) TO (14) %beg special EQUATION (23) TO (26) /a_CMChsm CMCh0S CMCh1S add 0.5 mul def /m_CMCCSm CMCC0S CMCC1S mul def d_CMChSm abs 180 le m_CMCCSm 0 ne and {/CMChSqm a_CMChsm def} if d_CMChSm abs 180 gt a_CMChsm 360 le and m_CMCCSm 0 ne and {/CMChSqm CMCh0S CMCh1S add 360 add 0.5 mul def} if d_CMChSm abs 180 gt a_CMChsm 360 ge and m_CMCCSm 0 ne and {/CMChSqm CMCh0S CMCh1S add 360 sub 0.5 mul def} if m_CMCCSm 0 eq {/CMChSqm CMCh0S CMCh1S add def } if %end special EQUATION (23) TO (26) CIEL*0m 16 lt {/SCMLm 0.511 def} {/SCMLm 0.040975 CIEL*0m mul 0.01765 CIEL*0m mul 1 add div def } ifelse /SCMCm 0.0638 CIEC*ab0m mul 0.0131 CIEC*ab0m mul 1 add div 0.638 add def %beg special /FCMCm CIEC*ab0m dup mul dup mul CIEC*ab0m dup mul dup mul 1900 add div sqrt def CMChSqm 164 lt CMChSqm 345 gt or {/TCMCm CMChSqm 35 add cos 0.4 mul abs 0.36 add def} {/TCMCm CMChSqm 168 add cos 0.2 mul abs 0.56 add def} ifelse %end special /SCMHm TCMCm FCMCm mul 1 add FCMCm sub SCMCm mul def /KCML 1 def %=l /KCMC 1 def %=c /KCMH 1 def %1 /CMCL*0m CIEL*0 KCML div SCMLm div def /CMCL*1m CIEL*1 KCML div SCMLm div def /CMCC*ab0m CIEC*ab0 KCMC div SCMCm div def /CMCC*ab1m CIEC*ab1 KCMC div SCMCm div def d_CMCLCHi i CIEL*1 CIEL*0 sub KCML div SCMLm div dup mul CIEC*ab1 CIEC*ab0 sub KCMC div SCMCm div dup mul add d_CIEHab KCMH div SCMHm div dup mul add 0.00000001 add sqrt put /a_CMCLCH 1.34 def /b_CMCLCH 0.66 def d_CMCLCHmi i d_CMCLCHi i get b_CMCLCH exp a_CMCLCH mul put %END CMC(m:l:c=m:1:1)=CMC %BEG CM2(m:l:c=m:1:2)=CM2 /KM2L 1 def %=l /KM2C 2 def %=c /KM2H 1 def %1 /CM2L*0 CIEL*0 KM2L div SCMLm div def /CM2L*1 CIEL*1 KM2L div SCMLm div def /CM2C*ab0 CIEC*ab0 KM2C div SCMCm div def /CM2C*ab1 CIEC*ab1 KM2C div SCMCm div def d_CM2LCHi i CIEL*1 CIEL*0 sub KM2L div SCMLm div dup mul CIEC*ab1 CIEC*ab0 sub KM2C div SCMCm div dup mul add d_CIEHab KM2H div SCMHm div dup mul add 0.00000001 add sqrt put %END CM2(m:l:c=m:1:2)=CM2 %BEG CIEDE2000=C00 %beg special equation (7) /CIEC*ab CIEC*ab0 CIEC*ab1 add 0.5 mul def /DEG 1 CIEC*ab 7 exp CIEC*ab 7 exp 25 7 exp add div 0.000001 add sqrt sub 0.5 mul def %end special equation (7) %beg special EQUATION (1) TO (6) %0 /C00L0S CIEL*0 def /C00a0S 1 DEG add CIEa*0 mul def /C00b0S CIEb*0 def /C00C0S C00a0S dup mul C00b0S dup mul add 0.000001 add sqrt def C00C0S 0 eq {/C00h0S 0 def} {/C00h0S C00b0S C00a0S 0.0001 add atan def } ifelse %1 /C00L1S CIEL*1 def /C00a1S 1 DEG add CIEa*1 mul def /C00b1S CIEb*1 def /C00C1S C00a1S dup mul C00b1S dup mul add 0.000001 add sqrt def C00C1S 0 eq {/C00h1S 0 def} {/C00h1S C00b1S C00a1S 0.0001 add atan def } ifelse %end special EQUATION (1) TO (6) %beg special EQUATION (11) TO (14) /d_C00hS0 C00h1S C00h0S sub def %see CIEDE2000 page 4 C00C1S C00C0S mul 0 eq {/d_C00hS 0 def} if %CIEC*ab1 x CIEC*ab0 =0 C00C1S C00C0S mul 0 ne d_C00hS0 abs 180 le and {/d_C00hS d_C00hS0 def} if C00C1S C00C0S mul 0 ne d_C00hS0 180 gt and {/d_C00hS d_C00hS0 360 sub def} if C00C1S C00C0S mul 0 ne d_C00hS0 -180 lt and {/d_C00hS d_C00hS0 360 add def} if %end special EQUATION (11) TO (14) %beg special EQUATION (8) TO (10) /d_C00LS C00L1S C00L0S sub def /d_C00aS C00a1S C00a0S sub def /d_C00bS C00b1S C00b0S sub def /d_C00CS C00C1S C00C0S sub def /d_C00HS C00C0S C00C1S mul 0.000001 add sqrt 2 mul d_C00hS 0.5 mul sin mul def %end special EQUATION (8) TO (10) %beg special EQUATION (23) TO (26) /a_C00hs C00h0S C00h1S add 0.5 mul def /m_C00CS C00C0S C00C1S mul def d_C00hS abs 180 le m_C00CS 0 ne and {/C00hSq a_C00hs def} if d_C00hS abs 180 gt a_C00hs 360 le and m_C00CS 0 ne and {/C00hSq C00h0S C00h1S add 360 add 0.5 mul def} if d_C00hS abs 180 gt a_C00hs 360 ge and m_C00CS 0 ne and {/C00hSq C00h0S C00h1S add 360 sub 0.5 mul def} if m_C00CS 0 eq {/C00hSq C00h0S C00h1S add def } if %end special EQUATION (23) TO (26) %beg special EQUATIONS (16) TO (22) /C00LSq C00L0S C00L1S add 0.5 mul def /C00CSq C00C0S C00C1S add 0.5 mul def /C00SL C00LSq 50 sub dup mul 0.015 mul C00LSq 50 sub dup mul 20 add sqrt div 1 add def /C00SC 0.045 C00CSq mul 1 add def %beg special T, RT, d_D, RC /C00T C00hSq 30 sub cos -0.17 mul C00hSq 2 mul cos 0.24 mul add C00hSq 3 mul 6 add cos 0.32 mul add C00hSq 4 mul 63 sub cos 0.20 mul sub 1 add def /C00SH 0.015 C00CSq mul C00T mul 1 add def /C00RC C00CSq 7 exp C00CSq 7 exp 25 7 exp add 0.000001 add div 0.000001 add sqrt 2 mul def /expDT C00hSq 275 sub 25 div dup mul def /econst 2.718281 def /C00DT 30 econst expDT neg exp mul def /C00RT C00DT 2 mul sin neg C00RC mul def %end special T, RT, d_D, RC %end special EQUATIONS (16) TO (22) %beg special EQUATION (15) /C00KL 1.0 def /C00KC 1.0 def /C00KH 1.0 def /d_C00LSN d_C00LS C00KL div C00SL div def /d_C00CSN d_C00CS C00KC div C00SC div def /d_C00HSN d_C00HS C00KH div C00SH div def d_C00LCHi i d_C00LSN dup mul d_C00CSN dup mul add d_C00HSN dup mul add d_C00CSN d_C00HSN mul C00RT mul add 0.000001 add sqrt put /a_C00LCH 1.43 def /b_C00LCH 0.70 def d_C00LCHmi i d_C00LCHi i get b_C00LCH exp a_C00LCH mul put %end special EQUATION (15) %END CIEDE2000=C00 %BEG LABJND=C85 /Yq Y0 Y1 add 0.5 mul def /d_Y Y1 Y0 sub def /a085 X0 Y0 0.000001 add div def /b085 Z0 Y0 0.000001 add div 0.4 mul neg def /a185 X1 Y1 0.000001 add div def /b185 Z1 Y1 0.000001 add div 0.4 mul neg def /an85 XW YW 0.000001 add div def /bn85 ZW YW 0.000001 add div 0.4 mul neg def /d_a085 a085 an85 sub def /d_b085 b085 bn85 sub def /d_a185 a185 an85 sub def /d_b185 b185 bn85 sub def /a0"85 d_a085 d_a085 abs 0.5 mul 1 add div an85 add def /b0"85 d_b085 d_b085 abs 0.5 mul 1 add div bn85 add def /a1"85 d_a185 d_a185 abs 0.5 mul 1 add div an85 add def /b1"85 d_b185 d_b185 abs 0.5 mul 1 add div bn85 add def /d_Y Y1 Y0 sub def /d_a"85 a1"85 a0"85 sub def /d_b"85 b1"85 b0"85 sub def /s85 0.0170 def /q85 0.0058 def /g85 1.0000 def %not used /a0085 1.0 def /b0085 1.8 def /Y0085 1.5 def d_C85LCHi i d_Y dup mul a0085 d_a"85 mul Yq mul dup mul add b0085 d_b"85 mul Yq mul dup mul add 0.000001 add sqrt Y0085 mul q85 Yq mul s85 add div put /a_C85LCH 1.17 def /b_C85LCH 0.35 def d_C85LCHmi i d_C85LCHi i get b_C85LCH exp a_C85LCH mul put %END LABJND=C85 %BEG LABHNU_1977=C77 /S77L 1 def /S77A 1 def /S77B 1 def /K77L 1 def /K77A 1 def /K77B 1 def %C77a'=(x/y+1/6)**(1/3)/4 %C77b'=-(z/y+1/6)**(1/3)/12 %C77L*=L*CIE %C77a*=500*[C77a'-C77a'n]*Y**(1/3) %C77b*=500*[C77b'-C77b'n]*Y**(1/3) /C77a'0 X0 Y0 FL add div 1 6 div add 0.3333 exp 4 div def /C77a'1 X1 Y1 FL add div 1 6 div add 0.3333 exp 4 div def /C77a'n XW YW FL add div 1 6 div add 0.3333 exp 4 div def /C77b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def /C77b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def /C77b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def /C77a*0 C77a'0 C77a'n sub 500 mul Y0 1 3 div exp mul def /C77a*1 C77a'1 C77a'n sub 500 mul Y1 1 3 div exp mul def /C77b*0 C77b'0 C77b'n sub 500 mul Y0 1 3 div exp mul def /C77b*1 C77b'1 C77b'n sub 500 mul Y1 1 3 div exp mul def d_C77LCHi i CIEL*1 CIEL*0 sub K77L div S77L div dup mul C77a*1 C77a*0 sub K77A div S77A div dup mul add C77b*1 C77b*0 sub K77B div S77B div dup mul add 0.00000001 add sqrt put %END LABHNU_1977=C77 %BEG LABHNU1=C78 /S78L 1 def /S78A 1 def /S78B 1 def /K78L 1 def /K78A 1 def /K78B 1 def %C78a'=(x/y+1)/15 %C78b'=-(z/y+1/6)**(1/3)/12 %C78L*=L*CIE %C78a*=500*[C78a'-C78a'n]*Y**(1/3) %C78b*=500*[C78b'-C78b'n]*Y**(1/3) /C78a'0 X0 Y0 FL add div 1 add 15 div def /C78a'1 X1 Y1 FL add div 1 add 15 div def /C78a'n XW YW FL add div 1 add 15 div def /C78b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def /C78b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def /C78b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def /C78a*0 C78a'0 C78a'n sub 500 mul Y0 1 3 div exp mul def /C78a*1 C78a'1 C78a'n sub 500 mul Y0 1 3 div exp mul def /C78b*0 C78b'0 C78b'n sub 500 mul Y0 1 3 div exp mul def /C78b*1 C78b'1 C78b'n sub 500 mul Y0 1 3 div exp mul def d_C78LCHi i CIEL*1 CIEL*0 sub K78L div S78L div dup mul C78a*1 C78a*0 sub K78A div S78A div dup mul add C78b*1 C78b*0 sub K78B div S78B div dup mul add 0.00000001 add sqrt put %END LABHNU1_1978-C78 %BEG LABHNU2_1979=C79 /S79L 1 def /S79A 1 def /S79B 1 def /K79L 1 def /K79A 1 def /K79B 1 def %C79a'=(x/y+1/6)**(2/3)/15 %C79b'=-(z/y+1/6)**(1/3)/12 %C79L*=L*CIE %C79a*=500*[C79a'-C79a'n]*Y**(1/3) %C79b*=500*[C79b'-C79b'n]*Y**(1/3) /C79a'0 X0 Y0 FL add div 1 6 div add 0.6667 exp 15 div def /C79a'1 X1 Y1 FL add div 1 6 div add 0.6667 exp 15 div def /C79a'n XW YW FL add div 1 6 div add 0.6667 exp 15 div def /C79b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def /C79b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def /C79b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def /C79a*0 C79a'0 C79a'n sub 500 mul Y0 1 3 div exp mul def /C79a*1 C79a'1 C79a'n sub 500 mul Y1 1 3 div exp mul def /C79b*0 C79b'0 C79b'n sub 500 mul Y0 1 3 div exp mul def /C79b*1 C79b'1 C79b'n sub 500 mul Y1 1 3 div exp mul def d_C79LCHi i CIEL*1 CIEL*0 sub K79L div S79L div dup mul C79a*1 C79a*0 sub K79A div S79A div dup mul add C79b*1 C79b*0 sub K79B div S79B div dup mul add 0.00000001 add sqrt put %END LABHNU2_1979=C79 } bind def %END procedure proc_coldiff %%EndProlog gsave /lanind 0 def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind le {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind le {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind le {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /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 %see Kittelmann DWORK, page 9 /XWD6502 95.05 def /YWD6502 100.00 def /ZWD6502 108.90 def /XW XWD6502 def /YW YWD6502 def /ZW ZWD6502 def /FL 0.000001 def /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /CIEL*0i 310 array def /CIEa*0i 310 array def /CIEb*0i 310 array def /X0i 310 array def /Y0i 310 array def /Z0i 310 array def %calculate XYZ-values for 310 colours 0 1 309 {/i exch def %i=0,309 /i10 i 10 mul def CIEL*0i i LAB_KIi i10 1 add get put CIEa*0i i LAB_KIi i10 2 add get put CIEb*0i i LAB_KIi i10 3 add get put /X* {CIEL*0i i get 16 add 116 div CIEa*0i i get 500 div add} bind def /Y* {CIEL*0i i get 16 add 116 div} bind def /Z* {CIEL*0i i get 16 add 116 div CIEb*0i i get 200 div sub} bind def X0i i X* DecodeXYZ* XW mul put Y0i i Y* DecodeXYZ* YW mul put Z0i i Z* DecodeXYZ* ZW mul put } for %i=0,309 %************************************************************* /Wdata1 3500 array def %max 350x10 data /Wdata2 3500 array def /IM 056 def %(max IM=056; IM=46=without series C-V- and W-Wn-WN-Nw-N /IM0 113 def %(max IM=057)*2-1 = 057 X 2-1 %default data 0 1 IM0 {/i exch def %i=0,IM0 /i10 i 10 mul def 0 1 9 {/j exch def %j=0,9 Wdata1 i10 j add 1. put Wdata2 i10 j add 1. put } for %j=0,9 } for %i=0,IM0 /D57xSERi 2000 array def /xchart4 1 def %xchart4=0 and 1: calculation for WANG or VIK pair comparison data 0 1 IM {/ii exch def %ii=0,IM /i16 ii 16 mul def 0 1 15 {/j exch def %j=0,15 xchart4 0 eq {D57xSERi i16 j add D57SERWi i16 j add get put} if xchart4 1 eq {D57xSERi i16 j add D57SERVi i16 j add get put} if } for %j=0,15 } for %ii=0,IM /DV*1 200 array def /DV*2 200 array def /DVS1 200 array def /DVS2 200 array def %default data 0 1 IM {/ii exch def %ii=0,IM /i16 ii 16 mul def DV*1 ii 1. put %default DV*2 ii 1. put } for %ii=0,IM %for WANG and VIK 0 1 IM {/ii exch def %ii=0,IM /D57xSER12 D57xSERi i16 12 add get def /D57xSER13 D57xSERi i16 13 add get def DV*1 ii D57xSER12 put DV*2 ii D57xSER13 put xchart4 0 eq {%xchart4=0 %corection for WANG only D57xSER12 0 ne {%D57xSER12#0 DV*1 ii D57xSER12 42.62 div 1. 1.1322 div exp 10 mul put } if %D57xSER12#0 D57xSER13 0 ne {%D57xSER13#0 DV*2 ii D57xSER13 42.62 div 1. 1.1322 div exp 10 mul put } if %D57xSER13#0 } if %xchart4=0 %corection for WANG only } for %ii=0,IM /xchartl 2 def %0 1 5 {/xchartl exch def %xchartl=0,5 gsave 5 /Times-ISOL1 FS 215 85 moveto (XE391-5N) show 72 90 translate /ytit 550 def /yhoe 4000 def /yhoet yhoe ytit sub def /xwide 06000 def /ishow {-50 -100 rmoveto 200 /Times-ISOL1 FS show 0 100 rmoveto TM} bind def 0.01 MM 0.01 MM scale 15 setlinewidth 0.0 0.0 0.0 0.5 setcmykcolor 0 0 moveto xwide 0 rlineto 0 yhoet rlineto xwide neg 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmykcolor 0 0 moveto xwide 0 rlineto 0 yhoet rlineto xwide neg 0 rlineto closepath stroke /yt 300 def %y-Zeilenabstand for text /yd 400 def %y-Zeilenabstand for formula %Titeltext /xt1 0 def /yt1 300 def /S10 100 def /S11 800 def /S20 3250 def /S30 4000 def /Z10 2500 def /Z1C 2200 def /Z1V 1900 def /Z1M 1600 def /Z1O 1300 def /Z1Y 1000 def /Z1L 0700 def /Z1N 0400 def /Z1W 0100 def %HUE CIRCLE /xd 1550 def /yd 5000 def /xp 1550 def /yp 5000 def /xdN xd def /ydN yd 2000 sub def /xdW xd def /ydW yd def /xdR xd 2000 add def /ydR yd 1000 sub def /xm 600 def /xip xd xm 2 mul add def /yip ydN xm 2 mul add def /xi1 xd xm 1 mul sub def /yi1 ydW xm 0.5 mul sub def /xi2 xd xm 2 mul add def /yi2 ydN 400 sub def %************************************************************************* %constant hue planes /xt1 -1000 def /yt1 -2670 def xt1 yt1 translate /xpp xp 350 sub def 0 setgray xpp yp 0850 add moveto /xshift 3200 def TBIK (BAM) show TBK (\2555stufige Farbreihen gleichabst\344ndig in CIELAB) showde ( 5 step colour series equally spaced in CIELAB) showen TBS xpp yp 0600 add moveto xchart4 0 eq {%xchart4=0 (CIELAB Farbdifferenzen ) showde (CIELAB colour differences ) showen SS (D) show TBIS (E*) show TBV 0 -50 rmoveto (ab) show 0 50 rmoveto } if %xchart4=0 xchart4 1 eq {%xchart4=1 (visuelle Farbdifferenzen ) showde (visual colour differences ) showen SS (D) show TBIS (V*) show TBV 0 -50 rmoveto (Vik) show 0 50 rmoveto } if %xchart4=1 /xfact 2000 100 div def /yfact 2000 100 div def /yshift 0800 def /xpW xpp def /ypW yp 200 sub def /ym 0 def /ix -1 def /cwdif4 7 array def /cwdif2 7 array def /cwdif1 7 array def /cndif4 7 array def /cndif2 7 array def /cndif1 7 array def /cwdifx 7 array def /cndifx 7 array def /cwstd4 7 array def /cwstd2 7 array def /cwstd1 7 array def /cnstd4 7 array def /cnstd2 7 array def /cnstd1 7 array def /cwstdx 7 array def /cnstdx 7 array def /wName 7 array def /nName 7 array def /DLAB21ik 7 array def /DLAB32ik 7 array def /DV*1ik 7 array def /DV*2ik 7 array def /DVS1ik 7 array def /DVS2ik 7 array def %default 0 1 6 {/i exch def cwdif4 i 4 put cwdif2 i 2 put cwdif1 i 1 put cndif4 i 40 put cndif2 i 20 put cndif1 i 10 put wName i (W) put nName i (N) put } for /ik 0 def 0 1 6 {/ik exch def %ik=0,6 %7 series %025 W-Wc-CW 089-090-091 %031 CW-Cw-C 091-092-093 %037 C-Cn-CN 149-150-151 %043 CN-Nc-N 151-152-153 %001 W-CW-C 001-002-003 %007 C-CN-N 037-038-039 %013 W-C-N 209-210-211 ik 0 eq {/ii 025 1 sub def} if ik 1 eq {/ii 031 1 sub def} if ik 2 eq {/ii 037 1 sub def} if ik 3 eq {/ii 043 1 sub def} if ik 4 eq {/ii 001 1 sub def} if ik 5 eq {/ii 007 1 sub def} if ik 6 eq {/ii 013 1 sub def} if %6 series/figures /ii ii xchartl add def /i16 ii 16 mul def /S D57xSERi i16 1 add get def S 4 eq {%S=4 /DREL D57xSERi i16 13 add get def DV*1ik ik D57xSERi i16 12 add get DREL mul put DV*2ik ik D57xSERi i16 12 add get 1 DREL sub mul put } if %S=4 S 3 eq {%S=3 DV*1ik ik D57xSERi i16 12 add get put DV*2ik ik D57xSERi i16 13 add get put } if %S=3 %always standard deviation DVS1ik ik D57xSERi i16 10 add get put DVS2ik ik D57xSERi i16 11 add get put /N1 D57xSERi i16 2 add get 1 sub def %Nx-count STARTs at "1" /N2 D57xSERi i16 3 add get 1 sub def /N3 D57xSERi i16 4 add get 1 sub def ik 0 eq {wName 0 D57xSERi i16 7 add get put wName 1 D57xSERi i16 8 add get put wName 2 D57xSERi i16 9 add get put} if ik 1 eq {wName 3 D57xSERi i16 8 add get put wName 4 D57xSERi i16 9 add get put} if ik 2 eq {nName 0 D57xSERi i16 7 add get put nName 1 D57xSERi i16 8 add get put nName 2 D57xSERi i16 9 add get put} if ik 3 eq {nName 3 D57xSERi i16 8 add get put nName 4 D57xSERi i16 9 add get put} if /X10 X0i N1 get def /Y10 Y0i N1 get def /Z10 Z0i N1 get def /X20 X0i N2 get def /Y20 Y0i N2 get def /Z20 Z0i N2 get def /X30 X0i N3 get def /Y30 Y0i N3 get def /Z30 Z0i N3 get def 0 1 1 {/i exch def %i=0,1 i 0 eq {%i=0,1 /X0 X20 def /Y0 Y20 def /Z0 Z20 def /X1 X10 def /Y1 Y10 def /Z1 Z10 def } if %i=0 i 1 eq {%i=1 /X0 X20 def /Y0 Y20 def /Z0 Z20 def /X1 X30 def /Y1 Y30 def /Z1 Z30 def } if %i=1 proc_coldiff } for %i=0,1 DLAB21ik ik d_CIELABi 0 get put DLAB32ik ik d_CIELABi 1 get put %025 ik=0 W-Wc-CW 089-090-091 %031 ik=1 CW-Cw-C 091-092-093 %037 ik=2 C-Cn-CN 149-150-151 %043 ik=3 CN-Nc-N 151-152-153 %001 ik=4 W-CW-C 001-002-003 %007 ik=5 C-CN-N 037-038-039 %013 ik=6 W-C-N 209-210-211 %/ioutk 1 def %ioutk 0 eq {%ioutk=0 xchart4 0 eq {%xchart4=0 ik 0 eq {cwdifx 0 DLAB21ik ik get put %W-Wc-CW cwdifx 1 DLAB32ik ik get put} if ik 1 eq {cwdifx 2 DLAB21ik ik get put %CW-Cw-C cwdifx 3 DLAB32ik ik get put} if ik 2 eq {cndifx 0 DLAB21ik ik get put %C-Cn-CN cndifx 1 DLAB32ik ik get put} if ik 3 eq {cndifx 2 DLAB21ik ik get put %CN-Nc-N cndifx 3 DLAB32ik ik get put} if ik 4 eq {cwdifx 4 DLAB21ik ik get put %W-CW-C cwdifx 5 DLAB32ik ik get put} if ik 5 eq {cndifx 4 DLAB21ik ik get put %C-CN-N cndifx 5 DLAB32ik ik get put} if ik 6 eq {cwdifx 6 DLAB21ik ik get put %W-C-N cndifx 6 DLAB32ik ik get put} if } if %xchart4=0 %} if %ioutk=0 %ioutk 1 eq {%ioutk=1 xchart4 1 eq {%xchart4=1 ik 0 eq {cwdifx 0 DV*1ik ik get put %W-Wc-CW cwdifx 1 DV*2ik ik get put} if ik 1 eq {cwdifx 2 DV*1ik ik get put %CW-Cw-C cwdifx 3 DV*2ik ik get put} if ik 2 eq {cndifx 0 DV*1ik ik get put %C-Cn-CN cndifx 1 DV*2ik ik get put} if ik 3 eq {cndifx 2 DV*1ik ik get put %CN-Nc-N cndifx 3 DV*2ik ik get put} if ik 4 eq {cwdifx 4 DV*1ik ik get put %W-CW-C cwdifx 5 DV*2ik ik get put} if ik 5 eq {cndifx 4 DV*1ik ik get put %C-CN-N cndifx 5 DV*2ik ik get put} if ik 6 eq {cwdifx 6 DV*1ik ik get put %W-C-N cndifx 6 DV*2ik ik get put} if ik 0 eq {cwstdx 0 DVS1ik ik get put %W-Wc-CW cwstdx 1 DVS2ik ik get put} if ik 1 eq {cwstdx 2 DVS1ik ik get put %CW-Cw-C cwstdx 3 DVS2ik ik get put} if ik 2 eq {cnstdx 0 DVS1ik ik get put %C-Cn-CN cnstdx 1 DVS2ik ik get put} if ik 3 eq {cnstdx 2 DVS1ik ik get put %CN-Nc-N cnstdx 3 DVS2ik ik get put} if ik 4 eq {cwstdx 4 DVS1ik ik get put %W-CW-C cwstdx 5 DVS2ik ik get put} if ik 5 eq {cnstdx 4 DVS1ik ik get put %C-CN-N cnstdx 5 DVS2ik ik get put} if ik 6 eq {cwstdx 6 DVS1ik ik get put %W-C-N cnstdx 6 DVS2ik ik get put} if } if %xchart4=1 %} if %ioutk=1 } for %ik=0,6 %7 series 0 1 3 {/ik exch def %ik=0,3 cwdif4 ik cwdifx ik get 0.49 add cvi put cndif4 ik cndifx ik get 0.49 add cvi put } for %ik=0,3 0 1 1 {/ik exch def %ik=0,1 cwdif2 ik cwdifx ik 4 add get 0.49 add cvi put cndif2 ik cndifx ik 4 add get 0.49 add cvi put } for %ik=0,1 cwdif1 0 cwdifx 6 get 0.49 add cvi put cndif1 0 cndifx 6 get 0.49 add cvi put xchart4 1 eq {%xchart4=1 0 1 3 {/ik exch def %ik=0,3 cwstd4 ik cwstdx ik get 0.49 add cvi put cnstd4 ik cnstdx ik get 0.49 add cvi put } for %ik=0,3 0 1 1 {/ik exch def %ik=0,1 cwstd2 ik cwstdx ik 4 add get 0.49 add cvi put cnstd2 ik cnstdx ik 4 add get 0.49 add cvi put } for %ik=0,1 cwstd1 0 cwstdx 6 get 0.49 add cvi put cnstd1 0 cnstdx 6 get 0.49 add cvi put } if %xchart4=1 %STOP5 newpath /k 0 def /j 0 def /i 0 def 0 1 2 {/k exch def %k=0,2 %three rows /ys yshift k mul def 0 1 1 {/j exch def %j=0,1 %left, right /xs xshift j mul def k 0 eq {TBS j 0 eq {%j=0 1 1 1 setrgbcolor xpp yp 0300 add moveto (helle Serie ) showde (light series ) showen wName 4 get show ( nach W) showde ( to W) showen } if %j=0 j 1 eq {%j=1 0 0 0 setrgbcolor xp 450 sub xshift add yp 0300 add moveto (dunkle Serie ) showde (dark series ) showen nName 0 get show ( nach N) showde ( to N) showen } if %j=1 } if %k=0 TS 0 0 0 setrgbcolor 0 1 4 {/i exch def %i=0,4 %five colours /xi xpW xm i mul add xs add def %NW /yi ypW ym i mul add ys sub def % xpW ypW moveto (START, i, wName) show % i cvishow % wName i get show k 0 eq {xi 100 sub yi 200 add moveto j 0 eq {wName 4 i sub get show} if j 1 eq {nName i get show} if newpath } if k 0 eq i 3 le and {xi 100 add yi 350 sub moveto j 0 eq {cwdif4 3 i sub get cvishow} if j 1 eq {cndif4 i get cvishow} if xchart4 1 eq {%xchart4=1 (\261) show %+/- j 0 eq {cwstd4 3 i sub get cvishow} if j 1 eq {cnstd4 i get cvishow} if } if %xchart4=1 newpath } if k 0 eq i 1 le and {xi 400 add i 500 mul add yi 1150 sub moveto j 0 eq {cwdif2 1 i sub get cvishow} if j 1 eq {cndif2 i get cvishow} if xchart4 1 eq {%xchart4=1 (\261) show %+/- j 0 eq {cwstd2 1 i sub get cvishow} if j 1 eq {cnstd2 i get cvishow} if } if %xchart4=1 newpath } if k 0 eq i 0 le and {xi 1000 add i 500 mul add yi 2000 sub moveto j 0 eq {cwdif1 0 get cvishow} if j 1 eq {cndif1 0 get cvishow} if xchart4 1 eq {%xchart4=1 (\261) show %+/- j 0 eq {cwstd1 0 get cvishow} if j 1 eq {cnstd1 0 get cvishow} if } if %xchart4=1 newpath } if i 0 eq i 4 eq or {0 0 0 setrgbcolor xi yi 140 0 360 arc fill } if j 0 eq {%j=0 /w i 4 div def xchartl 0 eq {w 1 1 setrgbcolor} if %C-W xchartl 1 eq {w w 1 setrgbcolor} if %V-W xchartl 2 eq {1 w 1 setrgbcolor} if %M-W xchartl 3 eq {1 w w setrgbcolor} if %O-W xchartl 4 eq {1 1 w setrgbcolor} if %Y-W xchartl 5 eq {w 1 w setrgbcolor} if %L-W } if %j=0 j 1 eq {%j=1 /w 1 i 4 div sub def xchartl 0 eq {0 w w setrgbcolor} if %C-N xchartl 1 eq {0 0 w setrgbcolor} if %V-N xchartl 2 eq {w 0 w setrgbcolor} if %M-N xchartl 3 eq {w 0 0 setrgbcolor} if %O-N xchartl 4 eq {w w 0 setrgbcolor} if %Y-N xchartl 5 eq {0 w 0 setrgbcolor} if %L-N } if %j=1 xi yi 070 0 360 arc fill i 0 eq i 4 eq or {0 0 0 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if k 0 eq {%k=0 i 1 ge i 3 le and {%k=0 and all i 0 0 0 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if %i=2 and k<2 } if %k=0 k 1 eq i 2 eq and {%k=1 and i=2 0 0 0 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if %k=1 and i=2 i 4 eq j 1 eq and {%i=4 and j=1 %cross in black N 1 1 1 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if %i=4 and j=1 } for %i=0,4 } for %j=0,1 } for %k=0,2 xt1 neg yt1 neg translate %************************************************************************* showpage grestore %} for %xchartl=0,5 %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 03 MM sub 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 26 %line 479 %!PS-Adobe-3.0 EPSF-3.0 XE391-6N %%BoundingBox: 70 83 245 190 %START PDFDE011.EPS /pdfmark16 where {pop} {userdict /pdfmark16 /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://130.149.60.45/~farbmetrik/SE25/) /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, colour vision) /Creator (klaus.richter@mac.com) /CreationDate (D:2016070112000) /ModDate (D:2016070112000) /DOCINFO pdfmark16 [ /View [ /FitB ] /DOCVIEW pdfmark16 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /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 /TV {160 /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 /TIV {160 /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 /TBV {160 /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 /TBIV {160 /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 /SV {160 /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 %%EndProlog gsave /nshow {TS show} bind def /kshow {TIS show} bind def /bshow {TBS show} bind def /jshow {TBIS show} bind def /ibshown {TBS -50 -50 rmoveto show 0 50 rmoveto TBS} bind def /ibshow0 {TBS -00 -50 rmoveto show 0 50 rmoveto TBS} bind def /ishown {TS -50 -50 rmoveto show 0 50 rmoveto TS } bind def /ishow0 {TS -00 -50 rmoveto show 0 50 rmoveto TS } bind def %40% kleiner /ns4 {250 /Times-ISOL1 FS show TK} bind def /ks4 {250 /TimesI-ISOL1 FS show TK} bind def /bs4 {250 /TimesB-ISOL1 FS show TK} bind def /js4 {250 /TimesBI-ISOL1 FS show TK} bind def /ss4 {250 /Symbol FS show TK} bind def /is4 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /es4 {200 /Times-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ib4 {200 /TimesB-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /eb4 {200 /TimesB-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ip4 {200 /Times-ISOL1 FS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def %60% kleiner /ns6 {200 /Times-ISOL1 FS show TS} bind def /ks6 {200 /TimesI-ISOL1 FS show TS} bind def /bs6 {200 /TimesB-ISOL1 FS show TS} bind def /js6 {200 /TimesBI-ISOL1 FS show TS} bind def /ss6 {200 /Symbol FS show TS} bind def /is6 {160 /Times-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /es6 {160 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ib6 {160 /TimesB-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /eb6 {160 /TimesB-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ip6 {160 /Times-ISOL1 FS 24 24 rmoveto (\267) show 24 -24 rmoveto TS} bind /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show} def %************************************************************* %Aus Kittelmann_CD_DA/Daten der Ausertung/ %Farbwerte der Farbfelder und Reihen.xls/CIELAB_1 %siehe auch Dipl-Arbeit Seite 31 ff /LAB_KIi 3100 array def %310x10 /LAB_KIi [ %n L*r a*r b*r L*t a*t b*t E*r-t C*r h*r % L*r a*r b*r CIELAB data of 310 printel samples, see page 34 % 95.410 -0.980 4.760 ISO 15775 Papierweiss Tab. 2.2 1 94.806 -1.832 6.977 95.410 -0.980 4.760 2.450 7.213 104.710 2 76.937 -16.536 -18.248 77.015 -15.805 -18.995 1.048 24.626 227.818 3 59.410 -30.942 -42.455 58.620 -30.630 -42.750 0.899 52.534 233.915 4 94.807 -1.883 7.035 95.410 -0.980 4.760 2.520 7.282 104.985 5 76.919 -16.503 -18.327 77.015 -15.805 -18.995 0.971 24.663 227.998 6 59.468 -30.964 -42.431 58.620 -30.630 -42.750 0.966 52.528 233.880 7 94.796 -1.848 7.051 95.410 -0.980 4.760 2.526 7.289 104.684 8 60.143 15.422 -18.907 60.565 15.185 -19.800 1.016 24.399 309.204 9 27.166 31.237 -43.580 25.720 31.350 -44.360 1.646 53.619 305.632 10 94.811 -1.797 6.812 95.410 -0.980 4.760 2.288 7.045 104.775 11 60.039 15.614 -19.124 60.565 15.185 -19.800 0.958 24.689 309.231 12 27.145 31.257 -43.757 25.720 31.350 -44.360 1.550 53.774 305.539 13 94.813 -1.742 6.702 95.410 -0.980 4.760 2.170 6.925 104.573 14 71.354 37.382 -0.087 71.770 37.110 -1.020 1.057 37.382 359.867 15 48.299 74.762 -6.470 48.130 75.200 -6.800 0.573 75.042 355.054 16 94.862 -1.790 6.808 95.410 -0.980 4.760 2.269 7.039 104.734 17 71.430 37.531 -0.146 71.770 37.110 -1.020 1.028 37.531 359.777 18 48.348 75.034 -6.602 48.130 75.200 -6.800 0.338 75.324 354.972 19 94.829 -1.679 6.457 95.410 -0.980 4.760 1.925 6.672 104.576 20 71.895 30.271 30.198 71.675 32.165 28.415 2.611 42.758 44.931 21 48.389 65.379 52.900 47.940 65.310 52.070 0.946 84.100 38.977 22 94.841 -1.727 6.563 95.410 -0.980 4.760 2.033 6.787 104.743 23 71.834 30.282 30.495 71.675 32.165 28.415 2.810 42.976 45.200 24 48.373 65.160 52.576 47.940 65.310 52.070 0.683 83.726 38.899 25 94.856 -1.811 6.930 95.410 -0.980 4.760 2.389 7.163 104.645 26 91.995 -9.864 53.175 92.890 -6.070 50.465 4.747 54.082 100.509 27 88.831 -7.617 100.643 90.370 -11.160 96.170 5.910 100.931 94.328 28 94.840 -1.857 6.961 95.410 -0.980 4.760 2.437 7.204 104.938 29 91.969 -9.864 53.060 92.890 -6.070 50.465 4.688 53.969 100.532 30 88.822 -7.585 99.964 90.370 -11.160 96.170 5.438 100.251 94.339 31 94.843 -1.831 6.986 95.410 -0.980 4.760 2.450 7.223 104.689 32 72.670 -33.310 23.706 73.155 -31.970 20.735 3.296 40.885 144.561 33 52.763 -62.634 40.725 50.900 -62.960 36.710 4.438 74.710 146.968 34 94.844 -1.844 6.940 95.410 -0.980 4.760 2.413 7.181 104.883 35 72.659 -33.330 23.584 73.155 -31.970 20.735 3.195 40.830 144.717 36 52.751 -62.659 40.456 50.900 -62.960 36.710 4.189 74.585 147.152 37 59.858 -30.723 -42.299 58.620 -30.630 -42.750 1.321 52.279 234.008 38 39.512 -15.438 -20.098 38.315 -15.065 -21.605 1.960 25.343 232.471 39 20.439 0.604 1.879 18.010 0.500 -0.460 3.374 1.974 72.184 40 59.843 -30.628 -42.217 58.620 -30.630 -42.750 1.334 52.157 234.039 41 39.472 -15.216 -20.290 38.315 -15.065 -21.605 1.759 25.361 233.132 42 20.596 0.834 1.790 18.010 0.500 -0.460 3.444 1.975 65.031 43 28.050 31.224 -43.592 25.720 31.350 -44.360 2.457 53.621 305.613 44 24.428 16.573 -21.290 21.865 15.925 -22.410 2.871 26.980 307.898 45 20.775 1.062 1.849 18.010 0.500 -0.460 3.646 2.132 60.115 46 27.951 31.592 -43.586 25.720 31.350 -44.360 2.374 53.831 305.935 47 24.413 16.789 -21.558 21.865 15.925 -22.410 2.822 27.324 307.911 48 20.742 1.238 1.780 18.010 0.500 -0.460 3.609 2.168 55.193 49 47.685 75.265 -6.106 48.130 75.200 -6.800 0.827 75.513 355.362 50 34.058 36.976 -1.848 33.070 37.850 -3.630 2.217 37.022 357.138 51 19.828 0.759 1.618 18.010 0.500 -0.460 2.773 1.787 64.874 52 47.770 75.333 -6.073 48.130 75.200 -6.800 0.823 75.577 355.391 53 34.024 36.746 -1.841 33.070 37.850 -3.630 2.308 36.792 357.131 54 19.895 0.766 1.713 18.010 0.500 -0.460 2.889 1.877 65.917 55 48.084 65.391 53.701 47.940 65.310 52.070 1.639 84.616 39.394 56 33.902 32.769 28.182 32.975 32.905 25.805 2.555 43.221 40.696 57 20.096 0.689 1.832 18.010 0.500 -0.460 3.105 1.958 69.398 58 48.093 65.240 53.510 47.940 65.310 52.070 1.449 84.377 39.358 59 33.983 32.963 28.200 32.975 32.905 25.805 2.599 43.379 40.547 60 20.045 0.703 1.815 18.010 0.500 -0.460 3.059 1.946 68.836 61 88.969 -7.916 99.202 90.370 -11.160 96.170 4.656 99.517 94.562 62 54.202 -4.710 50.539 54.190 -5.330 47.855 2.755 50.758 95.324 63 20.513 1.218 2.043 18.010 0.500 -0.460 3.612 2.379 59.195 64 88.968 -7.927 98.732 90.370 -11.160 96.170 4.357 99.050 94.591 65 54.261 -4.648 50.299 54.190 -5.330 47.855 2.539 50.514 95.279 66 20.641 0.847 1.666 18.010 0.500 -0.460 3.401 1.869 63.062 67 53.549 -61.840 40.746 50.900 -62.960 36.710 4.956 74.057 146.619 68 35.886 -31.821 20.383 34.455 -31.230 18.125 2.738 37.790 147.359 69 20.920 1.315 2.010 18.010 0.500 -0.460 3.903 2.401 56.801 70 53.497 -62.212 40.195 50.900 -62.960 36.710 4.410 74.067 147.134 71 35.953 -31.500 20.084 34.455 -31.230 18.125 2.481 37.358 147.479 72 20.895 1.150 1.709 18.010 0.500 -0.460 3.667 2.059 56.060 73 94.784 -1.844 6.954 95.410 -0.980 4.760 2.440 7.194 104.855 74 57.474 -0.187 4.308 56.710 -0.240 2.150 2.290 4.312 92.481 75 19.853 0.660 2.057 18.010 0.500 -0.460 3.124 2.160 72.205 76 94.850 -1.803 6.917 95.410 -0.980 4.760 2.376 7.148 104.613 77 57.492 -0.158 4.396 56.710 -0.240 2.150 2.380 4.399 92.060 78 19.840 0.774 1.873 18.010 0.500 -0.460 2.978 2.026 67.556 79 94.712 -1.740 6.671 95.410 -0.980 4.760 2.171 6.894 104.624 80 75.767 -1.256 4.576 76.060 -0.610 3.455 1.327 4.745 105.346 81 57.770 -0.029 4.084 56.710 -0.240 2.150 2.215 4.084 90.406 82 38.879 0.418 3.397 37.360 0.130 0.845 2.983 3.422 82.988 83 20.500 0.760 1.906 18.010 0.500 -0.460 3.445 2.052 68.276 84 94.746 -1.749 6.752 95.410 -0.980 4.760 2.236 6.975 104.522 85 75.784 -1.036 4.321 76.060 -0.610 3.455 1.004 4.443 103.478 86 57.797 0.122 4.078 56.710 -0.240 2.150 2.243 4.080 88.280 87 38.909 0.429 3.229 37.360 0.130 0.845 2.859 3.258 82.432 88 20.404 0.745 1.681 18.010 0.500 -0.460 3.221 1.839 66.098 89 94.821 -1.758 6.747 95.410 -0.980 4.760 2.214 6.973 104.604 90 86.389 -9.074 -6.237 86.213 -8.393 -7.118 1.128 11.011 214.502 91 76.787 -16.568 -18.756 77.015 -15.805 -18.995 0.832 25.026 228.543 92 68.577 -23.637 -30.298 67.818 -23.218 -30.873 1.041 38.427 232.040 93 59.128 -30.875 -42.876 58.620 -30.630 -42.750 0.578 52.835 234.243 94 94.810 -1.748 6.756 95.410 -0.980 4.760 2.221 6.978 104.505 95 86.419 -8.953 -6.387 86.213 -8.393 -7.118 0.943 10.998 215.505 96 76.820 -16.491 -18.789 77.015 -15.805 -18.995 0.742 25.000 228.727 97 68.658 -23.582 -30.348 67.818 -23.218 -30.873 1.056 38.433 232.151 98 59.211 -30.905 -42.735 58.620 -30.630 -42.750 0.652 52.739 234.127 99 94.672 -1.678 6.502 95.410 -0.980 4.760 2.016 6.715 104.470 100 78.300 7.067 -7.013 77.988 7.103 -7.520 0.597 9.956 315.220 101 60.293 15.348 -19.582 60.565 15.185 -19.800 0.385 24.880 308.089 102 44.203 22.986 -31.712 43.143 23.268 -32.080 1.157 39.167 305.936 103 27.016 31.165 -43.974 25.720 31.350 -44.360 1.365 53.898 305.325 104 94.830 -1.783 6.928 95.410 -0.980 4.760 2.383 7.154 104.433 105 78.257 7.039 -7.270 77.988 7.103 -7.520 0.373 10.119 314.077 106 60.155 15.718 -20.231 60.565 15.185 -19.800 0.798 25.619 307.845 107 44.111 23.540 -32.017 43.143 23.268 -32.080 1.008 39.740 306.324 108 26.626 33.169 -44.169 25.720 31.350 -44.360 2.042 55.237 306.905 109 94.830 -1.701 6.558 95.410 -0.980 4.760 2.022 6.775 104.543 110 83.971 17.488 2.916 83.590 18.065 1.870 1.254 17.729 9.468 111 71.531 37.398 -0.616 71.770 37.110 -1.020 0.550 37.403 359.056 112 60.110 56.166 -3.810 59.950 56.155 -3.910 0.189 56.295 356.120 113 48.082 74.995 -6.574 48.130 75.200 -6.800 0.309 75.282 354.990 114 94.878 -1.729 6.630 95.410 -0.980 4.760 2.084 6.852 104.617 115 83.935 17.501 2.928 83.590 18.065 1.870 1.247 17.744 9.497 116 71.513 37.496 -0.695 71.770 37.110 -1.020 0.566 37.502 358.938 117 60.110 56.159 -3.719 59.950 56.155 -3.910 0.249 56.282 356.211 118 48.182 74.902 -6.412 48.130 75.200 -6.800 0.492 75.176 355.107 119 94.804 -1.818 7.199 95.410 -0.980 4.760 2.649 7.425 104.176 120 82.777 14.554 17.861 83.543 15.593 16.588 1.812 23.040 50.825 121 71.216 31.512 29.973 71.675 32.165 28.415 1.750 43.490 43.566 122 59.233 49.560 42.426 59.808 48.738 40.243 2.403 65.239 40.565 123 47.901 65.572 53.795 47.940 65.310 52.070 1.745 84.815 39.365 124 94.772 -1.833 6.825 95.410 -0.980 4.760 2.324 7.067 105.036 125 82.720 14.616 17.563 83.543 15.593 16.588 1.607 22.849 50.232 126 71.256 31.437 30.263 71.675 32.165 28.415 2.030 43.636 43.910 127 59.267 49.547 42.334 59.808 48.738 40.243 2.306 65.169 40.511 128 47.815 65.383 53.061 47.940 65.310 52.070 1.001 84.204 39.061 129 94.840 -1.780 6.905 95.410 -0.980 4.760 2.359 7.131 104.455 130 93.112 -6.364 28.580 94.150 -3.525 27.613 3.174 29.280 102.554 131 92.030 -9.686 51.982 92.890 -6.070 50.465 4.014 52.877 100.555 132 90.731 -10.442 77.889 91.630 -8.615 73.318 5.005 78.586 97.636 133 88.925 -7.755 98.630 90.370 -11.160 96.170 4.442 98.935 94.496 134 94.750 -1.706 6.774 95.410 -0.980 4.760 2.240 6.985 104.140 135 93.456 -6.983 29.551 94.150 -3.525 27.613 4.024 30.365 103.295 136 91.762 -9.588 54.588 92.890 -6.070 50.465 5.536 55.424 99.962 137 90.523 -9.923 78.975 91.630 -8.615 73.318 5.912 79.596 97.161 138 88.450 -7.383 99.721 90.370 -11.160 96.170 5.528 99.994 94.234 139 94.774 -1.701 6.618 95.410 -0.980 4.760 2.092 6.833 104.419 140 84.620 -17.161 14.272 84.283 -16.475 12.748 1.706 22.320 140.250 141 72.841 -32.934 22.138 73.155 -31.970 20.735 1.731 39.683 146.092 142 63.629 -47.768 31.268 62.028 -47.465 28.723 3.022 57.091 146.792 143 53.074 -62.749 39.986 50.900 -62.960 36.710 3.938 74.407 147.493 144 94.824 -1.732 6.644 95.410 -0.980 4.760 2.111 6.866 104.611 145 84.610 -17.132 14.251 84.283 -16.475 12.748 1.673 22.284 140.245 146 72.795 -32.837 21.866 73.155 -31.970 20.735 1.470 39.451 146.341 147 63.609 -47.604 30.857 62.028 -47.465 28.723 2.660 56.730 147.049 148 53.068 -62.538 39.758 50.900 -62.960 36.710 3.764 74.106 147.554 149 59.304 -30.836 -42.453 58.620 -30.630 -42.750 0.774 52.471 234.007 150 48.835 -23.073 -32.162 48.468 -22.848 -32.178 0.431 39.582 234.345 151 38.544 -15.514 -20.880 38.315 -15.065 -21.605 0.883 26.012 233.387 152 28.577 -8.727 -9.949 28.163 -7.283 -11.033 1.853 13.234 228.743 153 19.400 0.578 1.071 18.010 0.500 -0.460 2.069 1.217 61.645 154 59.283 -30.812 -42.644 58.620 -30.630 -42.750 0.696 52.611 234.150 155 49.013 -23.128 -32.035 48.468 -22.848 -32.178 0.630 39.512 234.172 156 38.632 -15.429 -21.396 38.315 -15.065 -21.605 0.526 26.379 234.205 157 28.626 -9.032 -10.165 28.163 -7.283 -11.033 2.007 13.598 228.377 158 19.526 0.414 1.083 18.010 0.500 -0.460 2.165 1.159 69.068 159 26.747 31.469 -43.910 25.720 31.350 -44.360 1.128 54.022 305.628 160 25.010 24.152 -33.934 23.793 23.638 -33.385 1.431 41.651 305.440 161 23.199 16.450 -22.261 21.865 15.925 -22.410 1.441 27.680 306.463 162 21.560 8.223 -9.882 19.938 8.213 -11.435 2.246 12.856 309.764 163 19.767 0.771 1.400 18.010 0.500 -0.460 2.573 1.598 61.142 164 26.466 33.265 -43.952 25.720 31.350 -44.360 2.096 55.121 307.121 165 24.531 25.256 -34.061 23.793 23.638 -33.385 1.903 42.403 306.557 166 22.532 17.348 -22.759 21.865 15.925 -22.410 1.610 28.617 307.317 167 21.297 9.116 -10.038 19.938 8.213 -11.435 2.148 13.559 312.243 168 20.241 1.362 2.421 18.010 0.500 -0.460 3.745 2.778 60.648 169 47.954 75.045 -6.124 48.130 75.200 -6.800 0.715 75.294 355.335 170 39.935 56.633 -5.204 40.600 56.525 -5.215 0.674 56.872 354.750 171 34.317 37.076 -2.591 33.070 37.850 -3.630 1.798 37.166 356.003 172 27.113 19.906 0.097 25.540 19.175 -2.045 2.756 19.906 0.279 173 20.282 0.865 1.650 18.010 0.500 -0.460 3.122 1.863 62.340 174 48.114 74.940 -6.437 48.130 75.200 -6.800 0.447 75.216 355.091 175 40.005 56.475 -5.385 40.600 56.525 -5.215 0.621 56.731 354.553 176 34.340 37.261 -2.923 33.070 37.850 -3.630 1.569 37.376 355.515 177 27.115 19.691 -0.318 25.540 19.175 -2.045 2.394 19.694 359.076 178 20.357 0.721 1.317 18.010 0.500 -0.460 2.952 1.501 61.306 179 47.885 65.560 53.596 47.940 65.310 52.070 1.548 84.680 39.267 180 40.159 49.175 39.907 40.458 49.108 38.938 1.017 63.331 39.061 181 33.458 32.557 27.471 32.975 32.905 25.805 1.770 42.598 40.158 182 26.575 18.004 15.031 25.493 16.703 12.673 2.904 23.454 39.858 183 19.509 0.349 1.149 18.010 0.500 -0.460 2.205 1.201 73.119 184 47.899 65.372 53.449 47.940 65.310 52.070 1.381 84.441 39.270 185 40.193 49.025 39.636 40.458 49.108 38.938 0.752 63.043 38.955 186 33.443 32.649 27.569 32.975 32.905 25.805 1.843 42.732 40.179 187 26.586 17.967 15.189 25.493 16.703 12.673 3.021 23.527 40.209 188 19.559 0.718 1.107 18.010 0.500 -0.460 2.214 1.319 57.028 189 88.855 -7.734 98.558 90.370 -11.160 96.170 4.442 98.861 94.487 190 72.418 -8.190 74.514 72.280 -8.245 72.013 2.506 74.962 96.272 191 53.856 -5.000 49.618 54.190 -5.330 47.855 1.824 49.869 95.755 192 37.368 -2.171 26.048 36.100 -2.415 23.698 2.682 26.138 94.764 193 19.741 0.588 1.403 18.010 0.500 -0.460 2.544 1.521 67.252 194 88.335 -7.243 99.966 90.370 -11.160 96.170 5.821 100.228 94.144 195 72.521 -8.080 74.951 72.280 -8.245 72.013 2.953 75.385 96.153 196 54.041 -4.892 50.769 54.190 -5.330 47.855 2.951 51.005 95.504 197 37.291 -2.102 27.349 36.100 -2.415 23.698 3.854 27.430 94.394 198 20.047 1.076 1.865 18.010 0.500 -0.460 3.144 2.153 60.022 199 52.992 -62.907 39.847 50.900 -62.960 36.710 3.771 74.466 147.649 200 44.029 -47.586 30.202 42.678 -47.095 27.418 3.134 56.361 147.598 201 35.211 -32.267 19.159 34.455 -31.230 18.125 1.648 37.526 149.301 202 26.980 -16.066 9.803 26.233 -15.365 8.833 1.411 18.821 148.611 203 20.466 0.704 1.621 18.010 0.500 -0.460 3.225 1.767 66.517 204 52.908 -62.721 39.980 50.900 -62.960 36.710 3.845 74.379 147.486 205 43.965 -47.550 30.261 42.678 -47.095 27.418 3.154 56.362 147.527 206 35.087 -31.927 19.339 34.455 -31.230 18.125 1.536 37.328 148.796 207 26.972 -15.836 9.697 26.233 -15.365 8.833 1.232 18.569 148.519 208 20.294 0.770 1.635 18.010 0.500 -0.460 3.111 1.808 64.791 209 94.809 -1.830 6.976 95.410 -0.980 4.760 2.449 7.212 104.699 210 58.984 -30.966 -42.837 58.620 -30.630 -42.750 0.503 52.858 234.137 211 19.349 0.469 1.318 18.010 0.500 -0.460 2.226 1.398 70.426 212 94.944 -1.846 7.105 95.410 -0.980 4.760 2.543 7.341 104.567 213 58.971 -30.882 -42.895 58.620 -30.630 -42.750 0.456 52.855 234.248 214 19.176 0.272 0.555 18.010 0.500 -0.460 1.563 0.618 63.872 215 94.790 -1.802 6.934 95.410 -0.980 4.760 2.405 7.164 104.566 216 26.440 31.213 -44.153 25.720 31.350 -44.360 0.762 54.072 305.257 217 19.441 0.489 1.328 18.010 0.500 -0.460 2.290 1.415 69.769 218 94.798 -1.798 6.914 95.410 -0.980 4.760 2.385 7.145 104.579 219 26.313 31.108 -44.083 25.720 31.350 -44.360 0.697 53.954 305.210 220 19.377 0.342 0.924 18.010 0.500 -0.460 1.951 0.985 69.704 221 94.819 -1.802 6.895 95.410 -0.980 4.760 2.363 7.127 104.645 222 47.850 74.956 -6.176 48.130 75.200 -6.800 0.726 75.210 355.289 223 19.840 0.541 1.276 18.010 0.500 -0.460 2.523 1.386 67.045 224 94.770 -1.747 6.714 95.410 -0.980 4.760 2.194 6.937 104.589 225 47.821 75.208 -5.965 48.130 75.200 -6.800 0.890 75.444 355.465 226 19.694 0.611 1.037 18.010 0.500 -0.460 2.255 1.203 59.503 227 94.825 -1.776 6.746 95.410 -0.980 4.760 2.218 6.976 104.750 228 48.028 65.260 53.084 47.940 65.310 52.070 1.019 84.124 39.126 229 19.876 0.685 0.983 18.010 0.500 -0.460 2.366 1.198 55.119 230 94.757 -1.745 6.631 95.410 -0.980 4.760 2.124 6.857 104.740 231 48.025 65.348 52.692 47.940 65.310 52.070 0.629 83.945 38.880 232 19.948 0.440 0.952 18.010 0.500 -0.460 2.398 1.049 65.224 233 94.873 -1.904 7.232 95.410 -0.980 4.760 2.693 7.478 104.749 234 88.844 -7.513 99.977 90.370 -11.160 96.170 5.488 100.259 94.298 235 19.166 0.454 1.197 18.010 0.500 -0.460 2.021 1.280 69.252 236 94.774 -1.875 7.051 95.410 -0.980 4.760 2.540 7.296 104.892 237 88.796 -7.519 99.400 90.370 -11.160 96.170 5.115 99.684 94.326 238 19.338 0.352 0.841 18.010 0.500 -0.460 1.865 0.912 67.297 239 94.804 -1.889 7.199 95.410 -0.980 4.760 2.672 7.443 104.699 240 52.200 -63.279 39.813 50.900 -62.960 36.710 3.380 74.762 147.823 241 19.336 0.468 1.313 18.010 0.500 -0.460 2.214 1.394 70.403 242 94.841 -1.856 7.078 95.410 -0.980 4.760 2.542 7.317 104.693 243 52.201 -63.318 39.205 50.900 -62.960 36.710 2.837 74.473 148.235 244 19.327 0.532 0.810 18.010 0.500 -0.460 1.830 0.969 56.705 245 59.110 -30.725 -42.847 58.620 -30.630 -42.750 0.508 52.725 234.357 246 26.841 31.207 -43.931 25.720 31.350 -44.360 1.209 53.887 305.389 247 47.998 74.766 -5.917 48.130 75.200 -6.800 0.993 74.999 355.475 248 59.180 -30.727 -42.860 58.620 -30.630 -42.750 0.579 52.736 234.363 249 26.918 30.963 -43.680 25.720 31.350 -44.360 1.431 53.541 305.332 250 47.960 74.748 -5.974 48.130 75.200 -6.800 0.957 74.987 355.431 251 47.932 74.957 -6.193 48.130 75.200 -6.800 0.683 75.213 355.277 252 47.999 65.290 53.196 47.940 65.310 52.070 1.127 84.217 39.172 253 88.840 -7.715 98.748 90.370 -11.160 96.170 4.567 99.049 94.467 254 47.938 74.793 -6.065 48.130 75.200 -6.800 0.862 75.039 355.364 255 47.995 65.199 52.614 47.940 65.310 52.070 0.558 83.781 38.902 256 88.992 -7.768 98.150 90.370 -11.160 96.170 4.162 98.457 94.525 257 88.806 -7.564 99.378 90.370 -11.160 96.170 5.066 99.666 94.353 258 52.054 -63.456 39.583 50.900 -62.960 36.710 3.136 74.790 148.045 259 58.953 -30.907 -42.839 58.620 -30.630 -42.750 0.442 52.824 234.190 260 88.799 -7.554 99.130 90.370 -11.160 96.170 4.923 99.418 94.358 261 52.114 -63.302 39.247 50.900 -62.960 36.710 2.833 74.482 148.202 262 59.070 -30.873 -42.721 58.620 -30.630 -42.750 0.513 52.709 234.145 263 26.607 31.110 -43.675 25.720 31.350 -44.360 1.146 53.622 305.462 264 58.916 -30.902 -42.852 58.620 -30.630 -42.750 0.414 52.832 234.204 265 52.088 -63.025 39.540 50.900 -62.960 36.710 3.070 74.401 147.897 266 26.722 30.906 -43.822 25.720 31.350 -44.360 1.220 53.624 305.194 267 59.121 -30.882 -42.788 58.620 -30.630 -42.750 0.562 52.769 234.181 268 52.256 -63.141 39.105 50.900 -62.960 36.710 2.758 74.269 148.229 269 52.510 -62.813 39.840 50.900 -62.960 36.710 3.523 74.382 147.615 270 88.821 -7.677 99.211 90.370 -11.160 96.170 4.876 99.507 94.425 271 47.854 65.422 53.179 47.940 65.310 52.070 1.118 84.309 39.106 272 52.472 -62.907 39.443 50.900 -62.960 36.710 3.153 74.250 147.912 273 88.911 -7.687 98.611 90.370 -11.160 96.170 4.488 98.910 94.458 274 48.184 65.048 53.192 47.940 65.310 52.070 1.177 84.027 39.274 275 47.989 65.268 53.085 47.940 65.310 52.070 1.017 84.130 39.122 276 47.951 74.898 -5.916 48.130 75.200 -6.800 0.951 75.131 355.484 277 26.916 31.080 -43.714 25.720 31.350 -44.360 1.386 53.637 305.412 278 48.097 65.075 52.962 47.940 65.310 52.070 0.936 83.903 39.141 279 47.899 75.065 -6.424 48.130 75.200 -6.800 0.461 75.339 355.109 280 26.923 31.161 -44.194 25.720 31.350 -44.360 1.229 54.075 305.188 281 59.056 -30.846 -42.596 58.620 -30.630 -42.750 0.510 52.592 234.090 282 42.393 -0.024 -43.358 42.170 0.360 -43.555 0.485 43.358 269.969 283 26.201 31.341 -43.878 25.720 31.350 -44.360 0.681 53.922 305.538 284 35.879 52.754 -25.625 36.925 53.275 -25.580 1.170 58.649 334.092 285 47.697 75.104 -5.768 48.130 75.200 -6.800 1.123 75.325 355.608 286 59.077 -30.803 -42.830 58.620 -30.630 -42.750 0.495 52.757 234.277 287 42.530 0.124 -43.449 42.170 0.360 -43.555 0.443 43.449 270.163 288 26.456 31.114 -43.949 25.720 31.350 -44.360 0.875 53.848 305.297 289 36.149 53.085 -25.997 36.925 53.275 -25.580 0.901 59.109 333.908 290 47.813 74.760 -5.930 48.130 75.200 -6.800 1.026 74.995 355.465 291 47.681 75.057 -5.678 48.130 75.200 -6.800 1.217 75.271 355.674 292 48.009 70.346 23.542 48.035 70.255 22.635 0.912 74.181 18.503 293 47.948 65.385 53.204 47.940 65.310 52.070 1.137 84.297 39.135 294 69.043 27.507 75.803 69.155 27.075 74.120 1.742 80.640 70.055 295 88.877 -7.732 98.861 90.370 -11.160 96.170 4.607 99.162 94.472 296 47.708 75.078 -5.934 48.130 75.200 -6.800 0.971 75.312 355.481 297 48.137 70.269 23.468 48.035 70.255 22.635 0.839 74.085 18.468 298 47.993 65.415 53.124 47.940 65.310 52.070 1.060 84.269 39.080 299 69.008 27.609 75.411 69.155 27.075 74.120 1.405 80.306 69.892 300 88.950 -7.638 98.601 90.370 -11.160 96.170 4.509 98.897 94.429 301 88.888 -7.777 98.464 90.370 -11.160 96.170 4.348 98.770 94.516 302 69.977 -37.776 67.450 70.635 -37.060 66.440 1.402 77.308 119.251 303 52.753 -62.962 39.380 50.900 -62.960 36.710 3.250 74.263 147.976 304 56.064 -46.601 -2.263 54.760 -46.795 -3.020 1.520 46.656 182.780 305 59.454 -30.783 -42.623 58.620 -30.630 -42.750 0.858 52.577 234.163 306 88.698 -7.654 98.411 90.370 -11.160 96.170 4.484 98.708 94.447 307 69.890 -37.662 67.446 70.635 -37.060 66.440 1.389 77.249 119.179 308 52.671 -62.821 38.863 50.900 -62.960 36.710 2.791 73.870 148.258 309 55.892 -46.803 -2.516 54.760 -46.795 -3.020 1.239 46.871 183.077 310 59.528 -30.492 -42.511 58.620 -30.630 -42.750 0.949 52.316 234.349 ] def %LAB_KIi %************************************************************* /D57SERWi 2000 array def %max 57 series of 15 data (100x20) /D57SERWi [%BEG D57SERWi top data WANG_ELCD scaling data %0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %N S N1 N2 N3 N4 N5 NA1 NA2 NA3 NA4 NA5 DV*1i DV*2i WANG1 WANG2 %Serie 1, BAM test chart order 1:25 001 003 001 002 003 000 000 (W) (CW) (C) (0) (0) 26.45 26.39 (W03) (W04) 002 003 007 008 009 000 000 (W) (VW) (V) (0) (0) 29.54 41.95 (W13) (W14) 003 003 013 014 015 000 000 (W) (MW) (M) (0) (0) 31.00 32.74 (W23) (W24) 004 003 019 020 021 000 000 (W) (OW) (O) (0) (0) 28.01 37.64 (W33) (W34) 005 003 025 026 027 000 000 (W) (YW) (Y) (0) (0) 16.99 11.01 (W43) (W44) 006 003 031 032 033 000 000 (W) (LW) (L) (0) (0) 25.44 28.39 (W53) (W54) %Serie 2, BAM test chart order 1:25 007 003 037 038 039 000 000 (C) (CN) (N) (0) (0) 25.80 35.47 (W06) (W05) 008 003 043 044 045 000 000 (V) (VN) (N) (0) (0) 9.30 16.62 (W16) (W15) 009 003 049 050 051 000 000 (M) (MN) (N) (0) (0) 26.80 29.68 (W26) (W25) 010 003 055 056 057 000 000 (O) (ON) (N) (0) (0) 30.62 34.58 (W36) (W35) 011 003 061 062 063 000 000 (Y) (YN) (N) (0) (0) 29.85 41.77 (W46) (W45) 012 003 067 068 069 000 000 (L) (LN) (N) (0) (0) 18.79 35.12 (W56) (W55) %Serie 3, BAM test chart order 3:27 013 003 209 210 211 000 000 (W) (C) (N) (0) (0) 64.17 61.50 (W01) (W02) 014 003 215 216 217 000 000 (W) (V) (N) (0) (0) 67.03 32.91 (W11) (W12) 015 003 221 222 223 000 000 (W) (M) (N) (0) (0) 74.48 61.26 (W21) (W22) 016 003 227 228 229 000 000 (W) (O) (N) (0) (0) 71.77 67.21 (W31) (W32) 017 003 233 234 235 000 000 (W) (Y) (N) (0) (0) 37.26 86.10 (W41) (W42) 018 003 239 240 241 000 000 (W) (L) (N) (0) (0) 50.89 56.11 (W51) (W52) %Serie 4, BAM test chart order 3:27 019 003 245 246 247 000 000 (C) (V) (M) (0) (0) 41.67 45.01 (W09) (W19) 020 003 251 252 253 000 000 (M) (O) (Y) (0) (0) 28.41 72.32 (W29) (W39) 021 003 257 258 259 000 000 (Y) (L) (C) (0) (0) 64.80 40.72 (W49) (W59) 022 003 263 264 265 000 000 (V) (C) (L) (0) (0) 41.67 40.72 (W09) (W59) 023 003 269 270 271 000 000 (L) (Y) (O) (0) (0) 64.80 72.32 (W49) (W39) 024 003 275 276 277 000 000 (O) (M) (V) (0) (0) 28.41 45.01 (W29) (W19) %Serie 5, BAM test chart order 2:26 %values are missing 025 004 089 090 091 000 000 (W) (Wc) (CW) (0) (0) 26.45 0.00 (W03) (W00) 026 004 099 100 101 102 103 (W) (Wv) (VW) (0) (0) 29.54 0.00 (W13) (W00) 027 004 109 110 111 112 113 (W) (Wm) (MW) (0) (0) 31.00 0.00 (W23) (W00) 028 004 119 120 121 122 123 (W) (Wo) (OW) (0) (0) 28.01 0.00 (W33) (W00) 029 004 129 130 131 132 133 (W) (Wy) (YW) (0) (0) 16.99 0.00 (W43) (W00) 030 004 139 140 141 142 143 (W) (Wl) (LW) (0) (0) 25.44 0.00 (W53) (W00) %Serie 6, BAM test chart order 2:26 031 004 091 092 093 000 000 (CW) (Cw) (C) (0) (0) 26.39 0.00 (W04) (W00) 032 004 101 102 103 000 000 (VW) (Vw) (V) (0) (0) 41.95 0.00 (W14) (W00) 033 004 111 112 113 000 000 (MW) (Mw) (M) (0) (0) 32.74 0.00 (W24) (W00) 034 004 121 122 123 000 000 (OW) (Ow) (O) (0) (0) 37.64 0.00 (W34) (W00) 035 004 131 132 133 000 000 (YW) (Yw) (Y) (0) (0) 110.1 0.00 (W44) (W00) 036 004 141 142 143 000 000 (LW) (Lw) (L) (0) (0) 28.39 0.00 (W54) (W00) %Serie 7, BAM test chart order 2:26 037 004 149 150 151 000 000 (C) (Cn) (CN) (0) (0) 25.80 0.00 (W06) (W00) 038 004 159 160 161 000 000 (V) (Vn) (VN) (0) (0) 9.30 0.00 (W16) (W00) 039 004 169 170 171 000 000 (M) (Mn) (MN) (0) (0) 26.80 0.00 (W26) (W00) 040 004 179 180 181 000 000 (O) (On) (ON) (0) (0) 30.62 0.00 (W36) (W00) 041 004 189 190 191 000 000 (Y) (Yn) (YN) (0) (0) 29.85 0.00 (W46) (W00) 042 004 199 200 201 000 000 (L) (Ln) (LN) (0) (0) 18.79 0.00 (W56) (W00) %Serie 8, BAM test chart order 2:26 043 004 151 152 153 000 000 (CN) (Nc) (N) (0) (0) 61.50 0.00 (W02) (W00) 044 004 161 162 163 000 000 (VN) (Nv) (N) (0) (0) 32.91 0.00 (W12) (W00) 045 004 171 172 173 000 000 (MN) (Nm) (N) (0) (0) 61.26 0.00 (W22) (W00) 046 004 181 182 183 000 000 (ON) (No) (N) (0) (0) 67.21 0.00 (W32) (W00) 047 004 191 192 193 000 000 (YN) (Ny) (N) (0) (0) 86.10 0.00 (W42) (W00) 048 004 201 202 203 000 000 (LN) (Nl) (N) (0) (0) 56.11 0.00 (W52) (W00) %Serie 2N, BAM test chart order 1:25, 1 triplet 049 003 073 074 075 000 000 (W) (WN) (N) (0) (0) 10.00 9.00 (W61) (W62) %Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets 050 004 281 282 283 000 000 (C) (CV) (V) (0) (0) 41.67 0.00 (W09) (W00) 051 004 283 284 285 000 000 (V) (MV) (M) (0) (0) 45.01 0.00 (W19) (W00) 052 004 291 292 293 000 000 (M) (MO) (O) (0) (0) 28.41 0.00 (W29) (W00) 053 004 293 294 295 000 000 (O) (YO) (Y) (0) (0) 72.32 0.00 (W39) (W00) 054 004 301 302 303 000 000 (Y) (YL) (L) (0) (0) 64.80 0.00 (W49) (W00) 055 004 303 304 305 000 000 (L) (CL) (C) (0) (0) 40.72 0.00 (W59) (W00) %Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets 056 004 079 080 081 000 000 (W) (Wn) (WN) (0) (0) 10.00 0.00 (W61) (W00) 057 004 081 082 083 000 000 (WN) (Nw) (N) (0) (0) 9.00 0.00 (W62) (W00) ] def %END D57SERWi %************************************************************* /D57SERVia 2000 array def %max 57 series of 15 data (100x20) /D57SERVia [%BEG D57SERVia top data VIK_ELCD scaling data %0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %N S N1 N2 N3 N4 N5 NA1 NA2 NA3 NA4 NA5 DV*1i DV*2i VIK1 VIK2 %Serie 1, BAM test chart order 1:25 001 003 001 002 003 000 000 (W) (CW) (C) (0) (0) 25.24 39.23 (V01) (V02) 002 003 007 008 009 000 000 (W) (VW) (V) (0) (0) 33.11 46.66 (V03) (V04) 003 003 013 014 015 000 000 (W) (MW) (M) (0) (0) 30.92 45.35 (V05) (V06) 004 003 019 020 021 000 000 (W) (OW) (O) (0) (0) 26.55 46.66 (V07) (V08) 005 003 025 026 027 000 000 (W) (YW) (Y) (0) (0) 22.62 23.06 (V09) (V10) 006 003 031 032 033 000 000 (W) (LW) (L) (0) (0) 29.18 40.98 (V11) (V12) %Serie 2, BAM test chart order 1:25 007 003 037 038 039 000 000 (C) (CN) (N) (0) (0) 38.35 42.73 (V13) (V14) 008 003 043 044 045 000 000 (V) (VN) (N) (0) (0) 21.75 31.36 (V15) (V16) 009 003 049 050 051 000 000 (M) (MN) (N) (0) (0) 40.98 44.47 (V17) (V18) 010 003 055 056 057 000 000 (O) (ON) (N) (0) (0) 34.86 43.16 (V19) (V20) 011 003 061 062 063 000 000 (Y) (YN) (N) (0) (0) 35.73 47.97 (V21) (V22) 012 003 067 068 069 000 000 (L) (LN) (N) (0) (0) 36.17 42.29 (V23) (V24) %Serie 3, BAM test chart order 3:27 013 003 209 210 211 000 000 (W) (C) (N) (0) (0) 53.65 55.40 (V26) (V25) 014 003 215 216 217 000 000 (W) (V) (N) (0) (0) 65.02 29.61 (V28) (V27) 015 003 221 222 223 000 000 (W) (M) (N) (0) (0) 60.21 53.22 (V30) (V29) 016 003 227 228 229 000 000 (W) (O) (N) (0) (0) 58.46 48.84 (V32) (V31) 017 003 233 234 235 000 000 (W) (Y) (N) (0) (0) 37.38 61.52 (V34) (V33) 018 003 239 240 241 000 000 (W) (L) (N) (0) (0) 55.84 45.35 (V36) (V35) %Serie 4, BAM test chart order 3:27 019 003 245 246 247 000 000 (C) (V) (M) (0) (0) 44.47 42.29 (V37) (V38) 020 003 251 252 253 000 000 (M) (O) (Y) (0) (0) 22.62 47.97 (V40) (V39) 021 003 257 258 259 000 000 (Y) (L) (C) (0) (0) 46.22 31.36 (V41) (V42) 022 003 263 264 265 000 000 (V) (C) (L) (0) (0) 48.41 30.49 (V44) (V43) 023 003 269 270 271 000 000 (L) (Y) (O) (0) (0) 51.03 53.65 (V46) (V45) 024 003 275 276 277 000 000 (O) (M) (V) (0) (0) 23.49 48.84 (V47) (V48) %Serie 5, BAM test chart order 2:26 %dummy 26.00: values are missing 025 003 089 090 091 000 000 (W) (Wc) (CW) (0) (0) 25.24 26.00 (V01) (V00) 026 003 099 100 101 000 000 (W) (Wv) (VW) (0) (0) 33.11 26.00 (V03) (V00) 027 003 109 110 111 000 000 (W) (Wm) (MW) (0) (0) 30.92 26.00 (V05) (V00) 028 003 119 120 121 000 000 (W) (Wo) (OW) (0) (0) 26.55 26.00 (V07) (V00) 029 003 129 130 131 000 000 (W) (Wy) (YW) (0) (0) 22.62 26.00 (V09) (V00) 030 003 139 140 141 000 000 (W) (Wl) (LW) (0) (0) 29.18 26.00 (V11) (V00) %Serie 6, BAM test chart order 2:26 031 003 091 092 093 000 000 (CW) (Cw) (C) (0) (0) 22.62 27.87 (V62) (V61) 032 003 101 102 103 000 000 (VW) (Vw) (V) (0) (0) 26.99 33.98 (V64) (V63) 033 003 111 112 113 000 000 (MW) (Mw) (M) (0) (0) 28.30 35.73 (V66) (V65) 034 003 121 122 123 000 000 (OW) (Ow) (O) (0) (0) 24.37 33.98 (V68) (V67) 035 003 131 132 133 000 000 (YW) (Yw) (Y) (0) (0) 18.25 20.00 (V70) (V69) 036 003 141 142 143 000 000 (LW) (Lw) (L) (0) (0) 23.49 32.24 (V72) (V71) %Serie 7, BAM test chart order 2:26 037 003 149 150 151 000 000 (C) (Cn) (CN) (0) (0) 29.61 28.74 (V74) (V73) 038 003 159 160 161 000 000 (V) (Vn) (VN) (0) (0) 19.56 18.25 (V76) (V75) 039 003 169 170 171 000 000 (M) (Mn) (MN) (0) (0) 35.73 27.87 (V78) (V77) 040 003 179 180 181 000 000 (O) (On) (ON) (0) (0) 37.48 26.12 (V80) (V79) 041 003 189 190 191 000 000 (Y) (Yn) (YN) (0) (0) 38.35 30.49 (V82) (V81) 042 003 199 200 201 000 000 (L) (Ln) (LN) (0) (0) 33.11 26.99 (V84) (V83) %Serie 8, BAM test chart order 2:26 043 003 151 152 153 000 000 (CN) (Nc) (N) (0) (0) 37.48 26.12 (V86) (V85) 044 003 161 162 163 000 000 (VN) (Nv) (N) (0) (0) 20.43 18.25 (V88) (V87) 045 003 171 172 173 000 000 (MN) (Nm) (N) (0) (0) 34.86 28.30 (V90) (V89) 046 003 181 182 183 000 000 (ON) (No) (N) (0) (0) 33.98 27.87 (V92) (V91) 047 003 191 192 193 000 000 (YN) (Ny) (N) (0) (0) 39.67 34.86 (V94) (V93) 048 003 201 202 203 000 000 (LN) (Nl) (N) (0) (0) 32.24 26.12 (V96) (V95) %Serie 2N, BAM test chart order 1:25, 1 triplet 049 003 073 074 075 000 000 (W) (WN) (N) (0) (0) 40.10 36.61 (V97) (V98) %Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets 050 004 281 282 283 000 000 (C) (CV) (V) (0) (0) 44.47 0.00 (V37) (V00) 051 004 283 284 285 000 000 (V) (MV) (M) (0) (0) 42.29 0.00 (V38) (V00) 052 004 291 292 293 000 000 (M) (MO) (O) (0) (0) 22.62 0.00 (V40) (V00) 053 004 293 294 295 000 000 (O) (YO) (Y) (0) (0) 47.97 0.00 (V39) (V00) 054 004 301 302 303 000 000 (Y) (YL) (L) (0) (0) 46.22 0.00 (V41) (V00) 055 004 303 304 305 000 000 (L) (CL) (C) (0) (0) 31.36 0.00 (V42) (V00) %Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets 056 004 079 080 081 000 000 (W) (Wn) (WN) (0) (0) 40.10 0.00 (V97) (V00) 057 004 081 082 083 000 000 (WN) (Nw) (N) (0) (0) 36.61 0.00 (V98) (V00) ] def %END D57SERVia %************************************************************* /D57SERVi 2000 array def %max 57 series of 15 data (100x20) /D57SERVi [%BEG D57SERVi top data VIK_ELCD scaling data %0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %N S N1 N2 N3 N4 N5 NA1 NA2 NA3 NA4 NA5 DV*1i DV*2i VIK1 VIK2 %Serie 1, BAM test chart order 1:25 001 003 001 002 003 000 000 (W) (CW) (C) 6.06 7.92 25.24 39.23 (V01) (V02) 002 003 007 008 009 000 000 (W) (VW) (V) 3.03 7.44 33.11 46.66 (V03) (V04) 003 003 013 014 015 000 000 (W) (MW) (M) 4.15 7.21 30.92 45.35 (V05) (V06) 004 003 019 020 021 000 000 (W) (OW) (O) 6.27 5.35 26.55 46.66 (V07) (V08) 005 003 025 026 027 000 000 (W) (YW) (Y) 5.39 10.8 22.62 23.06 (V09) (V10) 006 003 031 032 033 000 000 (W) (LW) (L) 4.58 7.82 29.18 40.98 (V11) (V12) %Serie 2, BAM test chart order 1:25 007 003 037 038 039 000 000 (C) (CN) (N) 12.1 5.67 38.35 42.73 (V13) (V14) 008 003 043 044 045 000 000 (V) (VN) (N) 6.42 9.50 21.75 31.36 (V15) (V16) 009 003 049 050 051 000 000 (M) (MN) (N) 9.08 7.82 40.98 44.47 (V17) (V18) 010 003 055 056 057 000 000 (O) (ON) (N) 10.7 9.31 34.86 43.16 (V19) (V20) 011 003 061 062 063 000 000 (Y) (YN) (N) 10.0 6.88 35.73 47.97 (V21) (V22) 012 003 067 068 069 000 000 (L) (LN) (N) 9.87 10.7 36.17 42.29 (V23) (V24) %Serie 3, BAM test chart order 3:27 013 003 209 210 211 000 000 (W) (C) (N) 7.29 5.77 53.65 55.40 (V26) (V25) 014 003 215 216 217 000 000 (W) (V) (N) 6.27 11.1 65.02 29.61 (V28) (V27) 015 003 221 222 223 000 000 (W) (M) (N) 8.91 6.30 60.21 53.22 (V30) (V29) 016 003 227 228 229 000 000 (W) (O) (N) 8.56 9.81 58.46 48.84 (V32) (V31) 017 003 233 234 235 000 000 (W) (Y) (N) 17.1 8.41 37.38 61.52 (V34) (V33) 018 003 239 240 241 000 000 (W) (L) (N) 7.62 10.8 55.84 45.35 (V36) (V35) %Serie 4, BAM test chart order 3:27 019 003 245 246 247 000 000 (C) (V) (M) 11.2 13.7 44.47 42.29 (V37) (V38) 020 003 251 252 253 000 000 (M) (O) (Y) 6.30 11.1 22.62 47.97 (V40) (V39) 021 003 257 258 259 000 000 (Y) (L) (C) 10.3 8.29 46.22 31.36 (V41) (V42) 022 003 263 264 265 000 000 (V) (C) (L) 9.87 11.3 48.41 30.49 (V44) (V43) 023 003 269 270 271 000 000 (L) (Y) (O) 10.2 9.52 51.03 53.65 (V46) (V45) 024 003 275 276 277 000 000 (O) (M) (V) 10.6 11.3 23.49 48.84 (V47) (V48) %Serie 5, BAM test chart order 2:26 %dummy 26.00: values are missing 025 004 089 090 091 000 000 (W) (Wc) (CW) 6.06 6.06 25.24 0.481 (V01) (V00) 026 004 099 100 101 000 000 (W) (Wv) (VW) 7.44 7.44 33.11 0.497 (V03) (V00) 027 004 109 110 111 000 000 (W) (Wm) (MW) 4.15 4.15 30.92 0.492 (V05) (V00) 028 004 119 120 121 000 000 (W) (Wo) (OW) 6.27 6.27 26.55 0.493 (V07) (V00) 029 004 129 130 131 000 000 (W) (Wy) (YW) 5.39 5.39 22.62 0.358 (V09) (V00) 030 004 139 140 141 000 000 (W) (Wl) (LW) 4.58 4.58 29.18 0.492 (V11) (V00) %Serie 6, BAM test chart order 2:26 031 003 091 092 093 000 000 (CW) (Cw) (C) 6.30 12.2 22.62 27.87 (V62) (V61) 032 003 101 102 103 000 000 (VW) (Vw) (V) 7.21 11.3 26.99 33.98 (V64) (V63) 033 003 111 112 113 000 000 (MW) (Mw) (M) 8.76 10.0 28.30 35.73 (V66) (V65) 034 003 121 122 123 000 000 (OW) (Ow) (O) 7.31 10.8 24.37 33.98 (V68) (V67) 035 003 131 132 133 000 000 (YW) (Yw) (Y) 3.27 7.10 18.25 20.00 (V70) (V69) 036 003 141 142 143 000 000 (LW) (Lw) (L) 6.06 11.2 23.49 32.24 (V72) (V71) %Serie 7, BAM test chart order 2:26 037 003 149 150 151 000 000 (C) (Cn) (CN) 8.29 8.48 29.61 28.74 (V74) (V73) 038 003 159 160 161 000 000 (V) (Vn) (VN) 4.58 3.27 19.56 18.25 (V76) (V75) 039 003 169 170 171 000 000 (M) (Mn) (MN) 9.50 12.2 35.73 27.87 (V78) (V77) 040 003 179 180 181 000 000 (O) (On) (ON) 5.10 11.2 37.48 26.12 (V80) (V79) 041 003 189 190 191 000 000 (Y) (Yn) (YN) 12.1 8.65 38.35 30.49 (V82) (V81) 042 003 199 200 201 000 000 (L) (Ln) (LN) 10.3 10.3 33.11 26.99 (V84) (V83) %Serie 8, BAM test chart order 2:26 043 003 151 152 153 000 000 (CN) (Nc) (N) 7.62 9.08 37.48 26.12 (V86) (V85) 044 003 161 162 163 000 000 (VN) (Nv) (N) 6.69 3.27 20.43 18.25 (V88) (V87) 045 003 171 172 173 000 000 (MN) (Nm) (N) 9.08 6.27 34.86 28.30 (V90) (V89) 046 003 181 182 183 000 000 (ON) (No) (N) 9.73 9.73 33.98 27.87 (V92) (V91) 047 003 191 192 193 000 000 (YN) (Ny) (N) 6.74 12.6 39.67 34.86 (V94) (V93) 048 003 201 202 203 000 000 (LN) (Nl) (N) 10.2 9.08 32.24 26.12 (V96) (V95) %Serie 2N, BAM test chart order 1:25, 1 triplet 049 003 073 074 075 000 000 (W) (WN) (N) (0) (0) 40.10 36.61 (V97) (V98) %not used %Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets 050 004 281 282 283 000 000 (C) (CV) (V) (0) (0) 44.47 0.00 (V37) (V00) 051 004 283 284 285 000 000 (V) (MV) (M) (0) (0) 42.29 0.00 (V38) (V00) 052 004 291 292 293 000 000 (M) (MO) (O) (0) (0) 22.62 0.00 (V40) (V00) 053 004 293 294 295 000 000 (O) (YO) (Y) (0) (0) 47.97 0.00 (V39) (V00) 054 004 301 302 303 000 000 (Y) (YL) (L) (0) (0) 46.22 0.00 (V41) (V00) 055 004 303 304 305 000 000 (L) (CL) (C) (0) (0) 31.36 0.00 (V42) (V00) %Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets 056 004 079 080 081 000 000 (W) (Wn) (WN) (0) (0) 40.10 0.00 (V97) (V00) 057 004 081 082 083 000 000 (WN) (Nw) (N) (0) (0) 36.61 0.00 (V98) (V00) ] def %END D57SERVi /d_CIELABi 2800 array def /d_CIELCHi 2800 array def /d_C94LCHi 2800 array def /d_CMCLCHi 2800 array def /d_CM2LCHi 2800 array def /d_C00LCHi 2800 array def /d_C85LCHi 2800 array def /d_C77LCHi 2800 array def /d_C78LCHi 2800 array def /d_C79LCHi 2800 array def /d_CIELABmi 2800 array def /d_CIELCHmi 2800 array def /d_C94LCHmi 2800 array def /d_CMCLCHmi 2800 array def /d_CM2LCHmi 2800 array def /d_C00LCHmi 2800 array def /d_C85LCHmi 2800 array def /d_C77LCHmi 2800 array def /d_C78LCHmi 2800 array def /d_C79LCHmi 2800 array def /D13 1 3 div def /D841_108 841 108 div def /D4_29 4 29 div def /D6_29 6 29 div 3 exp def /proc_coldiff {%BEG procedure proc_coldiff proc_coldiff_WK58.PS 150529 %calculates CIE colour data and differences for 10 colour spaces %BEG CIELAB/CIELCH /FL 0.000001 def X0 XW div D6_29 gt {/FXXN0 X0 XW div 0.0001 add D13 exp def} {/FXXN0 D841_108 X0 XW div mul D4_29 add def} ifelse Y0 YW div D6_29 gt {/FYYN0 Y0 YW div 0.0001 add D13 exp def} {/FYYN0 D841_108 Y0 YW div mul D4_29 add def} ifelse Z0 ZW div D6_29 gt {/FZZN0 Z0 ZW div 0.0001 add D13 exp def} {/FZZN0 D841_108 Z0 ZW div mul D4_29 add def} ifelse /CIEL*0 116. FYYN0 mul 16. sub def /CIEa*0 500. FXXN0 FYYN0 sub mul def /CIEb*0 200. FYYN0 FZZN0 sub mul def /CIEC*ab0 CIEa*0 dup mul CIEb*0 dup mul add 0.0001 add sqrt def /CIEhab0 CIEb*0 CIEa*0 0.0001 add atan def X1 XW div D6_29 gt {/FXXN1 X1 XW div 0.0001 add D13 exp def} {/FXXN1 D841_108 X1 XW div mul D4_29 add def} ifelse Y1 YW div D6_29 gt {/FYYN1 Y1 YW div 0.0001 add D13 exp def} {/FYYN1 D841_108 Y1 YW div mul D4_29 add def} ifelse Z1 ZW div D6_29 gt {/FZZN1 Z1 ZW div 0.0001 add D13 exp def} {/FZZN1 D841_108 Z1 ZW div mul D4_29 add def} ifelse /CIEL*1 116. FYYN1 mul 16. sub def /CIEa*1 500. FXXN1 FYYN1 sub mul def /CIEb*1 200. FYYN1 FZZN1 sub mul def /CIEC*ab1 CIEa*1 dup mul CIEb*1 dup mul add 0.0001 add sqrt def /CIEhab1 CIEb*1 CIEa*1 0.0001 add atan def %mixed terms with *0 sn *1: /d_CIEL* CIEL*1 CIEL*0 sub def /d_CIEa* CIEa*1 CIEa*0 sub def /d_CIEb* CIEb*1 CIEb*0 sub def d_CIELABi i d_CIEL* dup mul d_CIEa* dup mul add d_CIEb* dup mul add 0.00000001 add sqrt put /a_CIELAB 1.26 def /b_CIELAB 0.55 def d_CIELABmi i d_CIELABi i get b_CIELAB exp a_CIELAB mul put /d_CIEh CIEhab1 CIEhab0 sub def %see CIEDE2000 page 4 CIEC*ab1 CIEC*ab0 mul 0 eq {/d_CIEh 0 def} if %CIEC*ab1 x CIEC*ab0 =0 CIEC*ab1 CIEC*ab0 mul 0 ne d_CIEh 180 gt and {/d_CIEh d_CIEh 360 sub def} if CIEC*ab1 CIEC*ab0 mul 0 ne d_CIEh -180 lt and {/d_CIEh d_CIEh 360 add def} if /d_CIEL CIEL*1 CIEL*0 sub def /d_CIECab CIEC*ab1 CIEC*ab0 sub def /d_CIEHab CIEC*ab1 CIEC*ab0 mul 0.000001 add sqrt 2 mul d_CIEh 0.5 mul sin mul def d_CIELCHi i d_CIEL dup mul d_CIECab dup mul add d_CIEHab dup mul add 0.000001 add sqrt put %alternative: %for 2 an 10 degree observer, see Richter (1996) %a'=0,2191 b'=-0,08376 a'10=0,2193, b'10=-0,08417 %a'2 and a'10 used for both 12 and 190 degree observer %BEG LABD65_1976=C76 /S76L 1 def /S76A 1 def /S76B 1 def /K76L 1 def /K76A 1 def /K76B 1 def /AS2 0.2191 def /BS2 -0.08376 def %C76a'=AS2*(x/y)**(1/3) %C76b'=BS2*(z/y)**(1/3) %C76L*=L*CIE %C76a*=500*[C76a'-C76a'n]*Y**(1/3) %C76b*=500*[C76b'-C76b'n]*Y**(1/3) /C76a'0 X0 Y0 FL add div 0.3333 exp AS2 mul def /C76a'1 X1 Y1 FL add div 0.3333 exp AS2 mul def /C76a'n XW YW FL add div 0.3333 exp AS2 mul def /C76b'0 Z0 Y0 FL add div 0.3333 exp BS2 mul def /C76b'1 Z1 Y1 FL add div 0.3333 exp BS2 mul def /C76b'n ZW YW FL add div 0.3333 exp BS2 mul def /C76a*0 C76a'0 C76a'n sub 500 mul Y0 1 3 div exp mul def /C76a*1 C76a'1 C76a'n sub 500 mul Y1 1 3 div exp mul def /C76b*0 C76b'0 C76b'n sub 500 mul Y0 1 3 div exp mul def /C76b*1 C76b'1 C76b'n sub 500 mul Y1 1 3 div exp mul def %name d_CIELCHi instead of d_LABD65i 1976 d_CIELCHi i CIEL*1 CIEL*0 sub K76L div S76L div dup mul C76a*1 C76a*0 sub K76A div S76A div dup mul add C76b*1 C76b*0 sub K76B div S76B div dup mul add 0.00000001 add sqrt put %END LABD65_1976=C76 /a_CIELCH 1.26 def /b_CIELCH 0.55 def d_CIELCHmi i d_CIELCHi i get b_CIELCH exp a_CIELCH mul put %BEG CIELAB/CIELCH %BEG CIE94 /S94L 1 def /S94C 1 0.045 CIEC*ab0 mul add def /S94H 1 0.015 CIEC*ab0 mul add def /K94L 1 def /K94C 1 def /K94H 1 def /LC94*0 CIEL*0 K94L div S94L div def /LC94*1 CIEL*1 K94L div S94L div def /CC94*ab0 CIEC*ab0 K94C div S94C div def /CC94*ab1 CIEC*ab1 K94C div S94C div def d_C94LCHi i CIEL*1 CIEL*0 sub K94L div S94L div dup mul CIEC*ab1 CIEC*ab0 sub K94C div S94C div dup mul add d_CIEHab K94H div S94H div dup mul add 0.00000001 add sqrt put /a_C94LCH 1.41 def /b_C94LCH 0.70 def d_C94LCHmi i d_C94LCHi i get b_C94LCH exp a_C94LCH mul put %END CIE94 %BEG CMC(l:c=1:1) %special mean m of two samples for SCML, SCMC, TCMC /CIEL*0m CIEL*0 CIEL*1 add 0.5 mul def /CMCC0S CIEC*ab0 def /CMCC1S CIEC*ab1 def /CIEC*ab0m CMCC0S CMCC1S add 0.5 mul def CIEC*ab0 0 eq {/CMCh0S 0 def} {/CMCh0S CIEb*0 CIEa*0 0.0001 add atan def } ifelse CIEC*ab1 0 eq {/CMCh1S 0 def} {/CMCh1S CIEb*1 CIEa*1 0.0001 add atan def } ifelse %beg special EQUATION (11) TO (14) /d_CMChS0 CMCh1S CMCh0S sub def %see CIEDE2000 page 4 CMCC1S CMCC0S mul 0 eq {/d_CMChS 0 def} if %CIEC*ab1 x CIEC*ab0 =0 CMCC1S CMCC0S mul 0 ne d_CMChS0 abs 180 le and {/d_CMChSm d_CMChS0 def} if CMCC1S CMCC0S mul 0 ne d_CMChS0 180 gt and {/d_CMChSm d_CMChS0 360 sub def} if CMCC1S CMCC0S mul 0 ne d_CMChS0 -180 lt and {/d_CMChSm d_CMChS0 360 add def} if %end special EQUATION (11) TO (14) %beg special EQUATION (23) TO (26) /a_CMChsm CMCh0S CMCh1S add 0.5 mul def /m_CMCCSm CMCC0S CMCC1S mul def d_CMChSm abs 180 le m_CMCCSm 0 ne and {/CMChSqm a_CMChsm def} if d_CMChSm abs 180 gt a_CMChsm 360 le and m_CMCCSm 0 ne and {/CMChSqm CMCh0S CMCh1S add 360 add 0.5 mul def} if d_CMChSm abs 180 gt a_CMChsm 360 ge and m_CMCCSm 0 ne and {/CMChSqm CMCh0S CMCh1S add 360 sub 0.5 mul def} if m_CMCCSm 0 eq {/CMChSqm CMCh0S CMCh1S add def } if %end special EQUATION (23) TO (26) CIEL*0m 16 lt {/SCMLm 0.511 def} {/SCMLm 0.040975 CIEL*0m mul 0.01765 CIEL*0m mul 1 add div def } ifelse /SCMCm 0.0638 CIEC*ab0m mul 0.0131 CIEC*ab0m mul 1 add div 0.638 add def %beg special /FCMCm CIEC*ab0m dup mul dup mul CIEC*ab0m dup mul dup mul 1900 add div sqrt def CMChSqm 164 lt CMChSqm 345 gt or {/TCMCm CMChSqm 35 add cos 0.4 mul abs 0.36 add def} {/TCMCm CMChSqm 168 add cos 0.2 mul abs 0.56 add def} ifelse %end special /SCMHm TCMCm FCMCm mul 1 add FCMCm sub SCMCm mul def /KCML 1 def %=l /KCMC 1 def %=c /KCMH 1 def %1 /CMCL*0m CIEL*0 KCML div SCMLm div def /CMCL*1m CIEL*1 KCML div SCMLm div def /CMCC*ab0m CIEC*ab0 KCMC div SCMCm div def /CMCC*ab1m CIEC*ab1 KCMC div SCMCm div def d_CMCLCHi i CIEL*1 CIEL*0 sub KCML div SCMLm div dup mul CIEC*ab1 CIEC*ab0 sub KCMC div SCMCm div dup mul add d_CIEHab KCMH div SCMHm div dup mul add 0.00000001 add sqrt put /a_CMCLCH 1.34 def /b_CMCLCH 0.66 def d_CMCLCHmi i d_CMCLCHi i get b_CMCLCH exp a_CMCLCH mul put %END CMC(m:l:c=m:1:1)=CMC %BEG CM2(m:l:c=m:1:2)=CM2 /KM2L 1 def %=l /KM2C 2 def %=c /KM2H 1 def %1 /CM2L*0 CIEL*0 KM2L div SCMLm div def /CM2L*1 CIEL*1 KM2L div SCMLm div def /CM2C*ab0 CIEC*ab0 KM2C div SCMCm div def /CM2C*ab1 CIEC*ab1 KM2C div SCMCm div def d_CM2LCHi i CIEL*1 CIEL*0 sub KM2L div SCMLm div dup mul CIEC*ab1 CIEC*ab0 sub KM2C div SCMCm div dup mul add d_CIEHab KM2H div SCMHm div dup mul add 0.00000001 add sqrt put %END CM2(m:l:c=m:1:2)=CM2 %BEG CIEDE2000=C00 %beg special equation (7) /CIEC*ab CIEC*ab0 CIEC*ab1 add 0.5 mul def /DEG 1 CIEC*ab 7 exp CIEC*ab 7 exp 25 7 exp add div 0.000001 add sqrt sub 0.5 mul def %end special equation (7) %beg special EQUATION (1) TO (6) %0 /C00L0S CIEL*0 def /C00a0S 1 DEG add CIEa*0 mul def /C00b0S CIEb*0 def /C00C0S C00a0S dup mul C00b0S dup mul add 0.000001 add sqrt def C00C0S 0 eq {/C00h0S 0 def} {/C00h0S C00b0S C00a0S 0.0001 add atan def } ifelse %1 /C00L1S CIEL*1 def /C00a1S 1 DEG add CIEa*1 mul def /C00b1S CIEb*1 def /C00C1S C00a1S dup mul C00b1S dup mul add 0.000001 add sqrt def C00C1S 0 eq {/C00h1S 0 def} {/C00h1S C00b1S C00a1S 0.0001 add atan def } ifelse %end special EQUATION (1) TO (6) %beg special EQUATION (11) TO (14) /d_C00hS0 C00h1S C00h0S sub def %see CIEDE2000 page 4 C00C1S C00C0S mul 0 eq {/d_C00hS 0 def} if %CIEC*ab1 x CIEC*ab0 =0 C00C1S C00C0S mul 0 ne d_C00hS0 abs 180 le and {/d_C00hS d_C00hS0 def} if C00C1S C00C0S mul 0 ne d_C00hS0 180 gt and {/d_C00hS d_C00hS0 360 sub def} if C00C1S C00C0S mul 0 ne d_C00hS0 -180 lt and {/d_C00hS d_C00hS0 360 add def} if %end special EQUATION (11) TO (14) %beg special EQUATION (8) TO (10) /d_C00LS C00L1S C00L0S sub def /d_C00aS C00a1S C00a0S sub def /d_C00bS C00b1S C00b0S sub def /d_C00CS C00C1S C00C0S sub def /d_C00HS C00C0S C00C1S mul 0.000001 add sqrt 2 mul d_C00hS 0.5 mul sin mul def %end special EQUATION (8) TO (10) %beg special EQUATION (23) TO (26) /a_C00hs C00h0S C00h1S add 0.5 mul def /m_C00CS C00C0S C00C1S mul def d_C00hS abs 180 le m_C00CS 0 ne and {/C00hSq a_C00hs def} if d_C00hS abs 180 gt a_C00hs 360 le and m_C00CS 0 ne and {/C00hSq C00h0S C00h1S add 360 add 0.5 mul def} if d_C00hS abs 180 gt a_C00hs 360 ge and m_C00CS 0 ne and {/C00hSq C00h0S C00h1S add 360 sub 0.5 mul def} if m_C00CS 0 eq {/C00hSq C00h0S C00h1S add def } if %end special EQUATION (23) TO (26) %beg special EQUATIONS (16) TO (22) /C00LSq C00L0S C00L1S add 0.5 mul def /C00CSq C00C0S C00C1S add 0.5 mul def /C00SL C00LSq 50 sub dup mul 0.015 mul C00LSq 50 sub dup mul 20 add sqrt div 1 add def /C00SC 0.045 C00CSq mul 1 add def %beg special T, RT, d_D, RC /C00T C00hSq 30 sub cos -0.17 mul C00hSq 2 mul cos 0.24 mul add C00hSq 3 mul 6 add cos 0.32 mul add C00hSq 4 mul 63 sub cos 0.20 mul sub 1 add def /C00SH 0.015 C00CSq mul C00T mul 1 add def /C00RC C00CSq 7 exp C00CSq 7 exp 25 7 exp add 0.000001 add div 0.000001 add sqrt 2 mul def /expDT C00hSq 275 sub 25 div dup mul def /econst 2.718281 def /C00DT 30 econst expDT neg exp mul def /C00RT C00DT 2 mul sin neg C00RC mul def %end special T, RT, d_D, RC %end special EQUATIONS (16) TO (22) %beg special EQUATION (15) /C00KL 1.0 def /C00KC 1.0 def /C00KH 1.0 def /d_C00LSN d_C00LS C00KL div C00SL div def /d_C00CSN d_C00CS C00KC div C00SC div def /d_C00HSN d_C00HS C00KH div C00SH div def d_C00LCHi i d_C00LSN dup mul d_C00CSN dup mul add d_C00HSN dup mul add d_C00CSN d_C00HSN mul C00RT mul add 0.000001 add sqrt put /a_C00LCH 1.43 def /b_C00LCH 0.70 def d_C00LCHmi i d_C00LCHi i get b_C00LCH exp a_C00LCH mul put %end special EQUATION (15) %END CIEDE2000=C00 %BEG LABJND=C85 /Yq Y0 Y1 add 0.5 mul def /d_Y Y1 Y0 sub def /a085 X0 Y0 0.000001 add div def /b085 Z0 Y0 0.000001 add div 0.4 mul neg def /a185 X1 Y1 0.000001 add div def /b185 Z1 Y1 0.000001 add div 0.4 mul neg def /an85 XW YW 0.000001 add div def /bn85 ZW YW 0.000001 add div 0.4 mul neg def /d_a085 a085 an85 sub def /d_b085 b085 bn85 sub def /d_a185 a185 an85 sub def /d_b185 b185 bn85 sub def /a0"85 d_a085 d_a085 abs 0.5 mul 1 add div an85 add def /b0"85 d_b085 d_b085 abs 0.5 mul 1 add div bn85 add def /a1"85 d_a185 d_a185 abs 0.5 mul 1 add div an85 add def /b1"85 d_b185 d_b185 abs 0.5 mul 1 add div bn85 add def /d_Y Y1 Y0 sub def /d_a"85 a1"85 a0"85 sub def /d_b"85 b1"85 b0"85 sub def /s85 0.0170 def /q85 0.0058 def /g85 1.0000 def %not used /a0085 1.0 def /b0085 1.8 def /Y0085 1.5 def d_C85LCHi i d_Y dup mul a0085 d_a"85 mul Yq mul dup mul add b0085 d_b"85 mul Yq mul dup mul add 0.000001 add sqrt Y0085 mul q85 Yq mul s85 add div put /a_C85LCH 1.17 def /b_C85LCH 0.35 def d_C85LCHmi i d_C85LCHi i get b_C85LCH exp a_C85LCH mul put %END LABJND=C85 %BEG LABHNU_1977=C77 /S77L 1 def /S77A 1 def /S77B 1 def /K77L 1 def /K77A 1 def /K77B 1 def %C77a'=(x/y+1/6)**(1/3)/4 %C77b'=-(z/y+1/6)**(1/3)/12 %C77L*=L*CIE %C77a*=500*[C77a'-C77a'n]*Y**(1/3) %C77b*=500*[C77b'-C77b'n]*Y**(1/3) /C77a'0 X0 Y0 FL add div 1 6 div add 0.3333 exp 4 div def /C77a'1 X1 Y1 FL add div 1 6 div add 0.3333 exp 4 div def /C77a'n XW YW FL add div 1 6 div add 0.3333 exp 4 div def /C77b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def /C77b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def /C77b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def /C77a*0 C77a'0 C77a'n sub 500 mul Y0 1 3 div exp mul def /C77a*1 C77a'1 C77a'n sub 500 mul Y1 1 3 div exp mul def /C77b*0 C77b'0 C77b'n sub 500 mul Y0 1 3 div exp mul def /C77b*1 C77b'1 C77b'n sub 500 mul Y1 1 3 div exp mul def d_C77LCHi i CIEL*1 CIEL*0 sub K77L div S77L div dup mul C77a*1 C77a*0 sub K77A div S77A div dup mul add C77b*1 C77b*0 sub K77B div S77B div dup mul add 0.00000001 add sqrt put %END LABHNU_1977=C77 %BEG LABHNU1=C78 /S78L 1 def /S78A 1 def /S78B 1 def /K78L 1 def /K78A 1 def /K78B 1 def %C78a'=(x/y+1)/15 %C78b'=-(z/y+1/6)**(1/3)/12 %C78L*=L*CIE %C78a*=500*[C78a'-C78a'n]*Y**(1/3) %C78b*=500*[C78b'-C78b'n]*Y**(1/3) /C78a'0 X0 Y0 FL add div 1 add 15 div def /C78a'1 X1 Y1 FL add div 1 add 15 div def /C78a'n XW YW FL add div 1 add 15 div def /C78b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def /C78b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def /C78b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def /C78a*0 C78a'0 C78a'n sub 500 mul Y0 1 3 div exp mul def /C78a*1 C78a'1 C78a'n sub 500 mul Y0 1 3 div exp mul def /C78b*0 C78b'0 C78b'n sub 500 mul Y0 1 3 div exp mul def /C78b*1 C78b'1 C78b'n sub 500 mul Y0 1 3 div exp mul def d_C78LCHi i CIEL*1 CIEL*0 sub K78L div S78L div dup mul C78a*1 C78a*0 sub K78A div S78A div dup mul add C78b*1 C78b*0 sub K78B div S78B div dup mul add 0.00000001 add sqrt put %END LABHNU1_1978-C78 %BEG LABHNU2_1979=C79 /S79L 1 def /S79A 1 def /S79B 1 def /K79L 1 def /K79A 1 def /K79B 1 def %C79a'=(x/y+1/6)**(2/3)/15 %C79b'=-(z/y+1/6)**(1/3)/12 %C79L*=L*CIE %C79a*=500*[C79a'-C79a'n]*Y**(1/3) %C79b*=500*[C79b'-C79b'n]*Y**(1/3) /C79a'0 X0 Y0 FL add div 1 6 div add 0.6667 exp 15 div def /C79a'1 X1 Y1 FL add div 1 6 div add 0.6667 exp 15 div def /C79a'n XW YW FL add div 1 6 div add 0.6667 exp 15 div def /C79b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def /C79b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def /C79b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def /C79a*0 C79a'0 C79a'n sub 500 mul Y0 1 3 div exp mul def /C79a*1 C79a'1 C79a'n sub 500 mul Y1 1 3 div exp mul def /C79b*0 C79b'0 C79b'n sub 500 mul Y0 1 3 div exp mul def /C79b*1 C79b'1 C79b'n sub 500 mul Y1 1 3 div exp mul def d_C79LCHi i CIEL*1 CIEL*0 sub K79L div S79L div dup mul C79a*1 C79a*0 sub K79A div S79A div dup mul add C79b*1 C79b*0 sub K79B div S79B div dup mul add 0.00000001 add sqrt put %END LABHNU2_1979=C79 } bind def %END procedure proc_coldiff %%EndProlog gsave /lanind 0 def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind le {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind le {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind le {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /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 %see Kittelmann DWORK, page 9 /XWD6502 95.05 def /YWD6502 100.00 def /ZWD6502 108.90 def /XW XWD6502 def /YW YWD6502 def /ZW ZWD6502 def /FL 0.000001 def /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /CIEL*0i 310 array def /CIEa*0i 310 array def /CIEb*0i 310 array def /X0i 310 array def /Y0i 310 array def /Z0i 310 array def %calculate XYZ-values for 310 colours 0 1 309 {/i exch def %i=0,309 /i10 i 10 mul def CIEL*0i i LAB_KIi i10 1 add get put CIEa*0i i LAB_KIi i10 2 add get put CIEb*0i i LAB_KIi i10 3 add get put /X* {CIEL*0i i get 16 add 116 div CIEa*0i i get 500 div add} bind def /Y* {CIEL*0i i get 16 add 116 div} bind def /Z* {CIEL*0i i get 16 add 116 div CIEb*0i i get 200 div sub} bind def X0i i X* DecodeXYZ* XW mul put Y0i i Y* DecodeXYZ* YW mul put Z0i i Z* DecodeXYZ* ZW mul put } for %i=0,309 %************************************************************* /Wdata1 3500 array def %max 350x10 data /Wdata2 3500 array def /IM 056 def %(max IM=056; IM=46=without series C-V- and W-Wn-WN-Nw-N /IM0 113 def %(max IM=057)*2-1 = 057 X 2-1 %default data 0 1 IM0 {/i exch def %i=0,IM0 /i10 i 10 mul def 0 1 9 {/j exch def %j=0,9 Wdata1 i10 j add 1. put Wdata2 i10 j add 1. put } for %j=0,9 } for %i=0,IM0 /D57xSERi 2000 array def /xchart4 1 def %xchart4=0 and 1: calculation for WANG or VIK pair comparison data 0 1 IM {/ii exch def %ii=0,IM /i16 ii 16 mul def 0 1 15 {/j exch def %j=0,15 xchart4 0 eq {D57xSERi i16 j add D57SERWi i16 j add get put} if xchart4 1 eq {D57xSERi i16 j add D57SERVi i16 j add get put} if } for %j=0,15 } for %ii=0,IM /DV*1 200 array def /DV*2 200 array def /DVS1 200 array def /DVS2 200 array def %default data 0 1 IM {/ii exch def %ii=0,IM /i16 ii 16 mul def DV*1 ii 1. put %default DV*2 ii 1. put } for %ii=0,IM %for WANG and VIK 0 1 IM {/ii exch def %ii=0,IM /D57xSER12 D57xSERi i16 12 add get def /D57xSER13 D57xSERi i16 13 add get def DV*1 ii D57xSER12 put DV*2 ii D57xSER13 put xchart4 0 eq {%xchart4=0 %corection for WANG only D57xSER12 0 ne {%D57xSER12#0 DV*1 ii D57xSER12 42.62 div 1. 1.1322 div exp 10 mul put } if %D57xSER12#0 D57xSER13 0 ne {%D57xSER13#0 DV*2 ii D57xSER13 42.62 div 1. 1.1322 div exp 10 mul put } if %D57xSER13#0 } if %xchart4=0 %corection for WANG only } for %ii=0,IM /xchartl 3 def %0 1 5 {/xchartl exch def %xchartl=0,5 gsave 5 /Times-ISOL1 FS 215 85 moveto (XE391-6N) show 72 90 translate /ytit 550 def /yhoe 4000 def /yhoet yhoe ytit sub def /xwide 06000 def /ishow {-50 -100 rmoveto 200 /Times-ISOL1 FS show 0 100 rmoveto TM} bind def 0.01 MM 0.01 MM scale 15 setlinewidth 0.0 0.0 0.0 0.5 setcmykcolor 0 0 moveto xwide 0 rlineto 0 yhoet rlineto xwide neg 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmykcolor 0 0 moveto xwide 0 rlineto 0 yhoet rlineto xwide neg 0 rlineto closepath stroke /yt 300 def %y-Zeilenabstand for text /yd 400 def %y-Zeilenabstand for formula %Titeltext /xt1 0 def /yt1 300 def /S10 100 def /S11 800 def /S20 3250 def /S30 4000 def /Z10 2500 def /Z1C 2200 def /Z1V 1900 def /Z1M 1600 def /Z1O 1300 def /Z1Y 1000 def /Z1L 0700 def /Z1N 0400 def /Z1W 0100 def %HUE CIRCLE /xd 1550 def /yd 5000 def /xp 1550 def /yp 5000 def /xdN xd def /ydN yd 2000 sub def /xdW xd def /ydW yd def /xdR xd 2000 add def /ydR yd 1000 sub def /xm 600 def /xip xd xm 2 mul add def /yip ydN xm 2 mul add def /xi1 xd xm 1 mul sub def /yi1 ydW xm 0.5 mul sub def /xi2 xd xm 2 mul add def /yi2 ydN 400 sub def %************************************************************************* %constant hue planes /xt1 -1000 def /yt1 -2670 def xt1 yt1 translate /xpp xp 350 sub def 0 setgray xpp yp 0850 add moveto /xshift 3200 def TBIK (BAM) show TBK (\2555stufige Farbreihen gleichabst\344ndig in CIELAB) showde ( 5 step colour series equally spaced in CIELAB) showen TBS xpp yp 0600 add moveto xchart4 0 eq {%xchart4=0 (CIELAB Farbdifferenzen ) showde (CIELAB colour differences ) showen SS (D) show TBIS (E*) show TBV 0 -50 rmoveto (ab) show 0 50 rmoveto } if %xchart4=0 xchart4 1 eq {%xchart4=1 (visuelle Farbdifferenzen ) showde (visual colour differences ) showen SS (D) show TBIS (V*) show TBV 0 -50 rmoveto (Vik) show 0 50 rmoveto } if %xchart4=1 /xfact 2000 100 div def /yfact 2000 100 div def /yshift 0800 def /xpW xpp def /ypW yp 200 sub def /ym 0 def /ix -1 def /cwdif4 7 array def /cwdif2 7 array def /cwdif1 7 array def /cndif4 7 array def /cndif2 7 array def /cndif1 7 array def /cwdifx 7 array def /cndifx 7 array def /cwstd4 7 array def /cwstd2 7 array def /cwstd1 7 array def /cnstd4 7 array def /cnstd2 7 array def /cnstd1 7 array def /cwstdx 7 array def /cnstdx 7 array def /wName 7 array def /nName 7 array def /DLAB21ik 7 array def /DLAB32ik 7 array def /DV*1ik 7 array def /DV*2ik 7 array def /DVS1ik 7 array def /DVS2ik 7 array def %default 0 1 6 {/i exch def cwdif4 i 4 put cwdif2 i 2 put cwdif1 i 1 put cndif4 i 40 put cndif2 i 20 put cndif1 i 10 put wName i (W) put nName i (N) put } for /ik 0 def 0 1 6 {/ik exch def %ik=0,6 %7 series %025 W-Wc-CW 089-090-091 %031 CW-Cw-C 091-092-093 %037 C-Cn-CN 149-150-151 %043 CN-Nc-N 151-152-153 %001 W-CW-C 001-002-003 %007 C-CN-N 037-038-039 %013 W-C-N 209-210-211 ik 0 eq {/ii 025 1 sub def} if ik 1 eq {/ii 031 1 sub def} if ik 2 eq {/ii 037 1 sub def} if ik 3 eq {/ii 043 1 sub def} if ik 4 eq {/ii 001 1 sub def} if ik 5 eq {/ii 007 1 sub def} if ik 6 eq {/ii 013 1 sub def} if %6 series/figures /ii ii xchartl add def /i16 ii 16 mul def /S D57xSERi i16 1 add get def S 4 eq {%S=4 /DREL D57xSERi i16 13 add get def DV*1ik ik D57xSERi i16 12 add get DREL mul put DV*2ik ik D57xSERi i16 12 add get 1 DREL sub mul put } if %S=4 S 3 eq {%S=3 DV*1ik ik D57xSERi i16 12 add get put DV*2ik ik D57xSERi i16 13 add get put } if %S=3 %always standard deviation DVS1ik ik D57xSERi i16 10 add get put DVS2ik ik D57xSERi i16 11 add get put /N1 D57xSERi i16 2 add get 1 sub def %Nx-count STARTs at "1" /N2 D57xSERi i16 3 add get 1 sub def /N3 D57xSERi i16 4 add get 1 sub def ik 0 eq {wName 0 D57xSERi i16 7 add get put wName 1 D57xSERi i16 8 add get put wName 2 D57xSERi i16 9 add get put} if ik 1 eq {wName 3 D57xSERi i16 8 add get put wName 4 D57xSERi i16 9 add get put} if ik 2 eq {nName 0 D57xSERi i16 7 add get put nName 1 D57xSERi i16 8 add get put nName 2 D57xSERi i16 9 add get put} if ik 3 eq {nName 3 D57xSERi i16 8 add get put nName 4 D57xSERi i16 9 add get put} if /X10 X0i N1 get def /Y10 Y0i N1 get def /Z10 Z0i N1 get def /X20 X0i N2 get def /Y20 Y0i N2 get def /Z20 Z0i N2 get def /X30 X0i N3 get def /Y30 Y0i N3 get def /Z30 Z0i N3 get def 0 1 1 {/i exch def %i=0,1 i 0 eq {%i=0,1 /X0 X20 def /Y0 Y20 def /Z0 Z20 def /X1 X10 def /Y1 Y10 def /Z1 Z10 def } if %i=0 i 1 eq {%i=1 /X0 X20 def /Y0 Y20 def /Z0 Z20 def /X1 X30 def /Y1 Y30 def /Z1 Z30 def } if %i=1 proc_coldiff } for %i=0,1 DLAB21ik ik d_CIELABi 0 get put DLAB32ik ik d_CIELABi 1 get put %025 ik=0 W-Wc-CW 089-090-091 %031 ik=1 CW-Cw-C 091-092-093 %037 ik=2 C-Cn-CN 149-150-151 %043 ik=3 CN-Nc-N 151-152-153 %001 ik=4 W-CW-C 001-002-003 %007 ik=5 C-CN-N 037-038-039 %013 ik=6 W-C-N 209-210-211 %/ioutk 1 def %ioutk 0 eq {%ioutk=0 xchart4 0 eq {%xchart4=0 ik 0 eq {cwdifx 0 DLAB21ik ik get put %W-Wc-CW cwdifx 1 DLAB32ik ik get put} if ik 1 eq {cwdifx 2 DLAB21ik ik get put %CW-Cw-C cwdifx 3 DLAB32ik ik get put} if ik 2 eq {cndifx 0 DLAB21ik ik get put %C-Cn-CN cndifx 1 DLAB32ik ik get put} if ik 3 eq {cndifx 2 DLAB21ik ik get put %CN-Nc-N cndifx 3 DLAB32ik ik get put} if ik 4 eq {cwdifx 4 DLAB21ik ik get put %W-CW-C cwdifx 5 DLAB32ik ik get put} if ik 5 eq {cndifx 4 DLAB21ik ik get put %C-CN-N cndifx 5 DLAB32ik ik get put} if ik 6 eq {cwdifx 6 DLAB21ik ik get put %W-C-N cndifx 6 DLAB32ik ik get put} if } if %xchart4=0 %} if %ioutk=0 %ioutk 1 eq {%ioutk=1 xchart4 1 eq {%xchart4=1 ik 0 eq {cwdifx 0 DV*1ik ik get put %W-Wc-CW cwdifx 1 DV*2ik ik get put} if ik 1 eq {cwdifx 2 DV*1ik ik get put %CW-Cw-C cwdifx 3 DV*2ik ik get put} if ik 2 eq {cndifx 0 DV*1ik ik get put %C-Cn-CN cndifx 1 DV*2ik ik get put} if ik 3 eq {cndifx 2 DV*1ik ik get put %CN-Nc-N cndifx 3 DV*2ik ik get put} if ik 4 eq {cwdifx 4 DV*1ik ik get put %W-CW-C cwdifx 5 DV*2ik ik get put} if ik 5 eq {cndifx 4 DV*1ik ik get put %C-CN-N cndifx 5 DV*2ik ik get put} if ik 6 eq {cwdifx 6 DV*1ik ik get put %W-C-N cndifx 6 DV*2ik ik get put} if ik 0 eq {cwstdx 0 DVS1ik ik get put %W-Wc-CW cwstdx 1 DVS2ik ik get put} if ik 1 eq {cwstdx 2 DVS1ik ik get put %CW-Cw-C cwstdx 3 DVS2ik ik get put} if ik 2 eq {cnstdx 0 DVS1ik ik get put %C-Cn-CN cnstdx 1 DVS2ik ik get put} if ik 3 eq {cnstdx 2 DVS1ik ik get put %CN-Nc-N cnstdx 3 DVS2ik ik get put} if ik 4 eq {cwstdx 4 DVS1ik ik get put %W-CW-C cwstdx 5 DVS2ik ik get put} if ik 5 eq {cnstdx 4 DVS1ik ik get put %C-CN-N cnstdx 5 DVS2ik ik get put} if ik 6 eq {cwstdx 6 DVS1ik ik get put %W-C-N cnstdx 6 DVS2ik ik get put} if } if %xchart4=1 %} if %ioutk=1 } for %ik=0,6 %7 series 0 1 3 {/ik exch def %ik=0,3 cwdif4 ik cwdifx ik get 0.49 add cvi put cndif4 ik cndifx ik get 0.49 add cvi put } for %ik=0,3 0 1 1 {/ik exch def %ik=0,1 cwdif2 ik cwdifx ik 4 add get 0.49 add cvi put cndif2 ik cndifx ik 4 add get 0.49 add cvi put } for %ik=0,1 cwdif1 0 cwdifx 6 get 0.49 add cvi put cndif1 0 cndifx 6 get 0.49 add cvi put xchart4 1 eq {%xchart4=1 0 1 3 {/ik exch def %ik=0,3 cwstd4 ik cwstdx ik get 0.49 add cvi put cnstd4 ik cnstdx ik get 0.49 add cvi put } for %ik=0,3 0 1 1 {/ik exch def %ik=0,1 cwstd2 ik cwstdx ik 4 add get 0.49 add cvi put cnstd2 ik cnstdx ik 4 add get 0.49 add cvi put } for %ik=0,1 cwstd1 0 cwstdx 6 get 0.49 add cvi put cnstd1 0 cnstdx 6 get 0.49 add cvi put } if %xchart4=1 %STOP5 newpath /k 0 def /j 0 def /i 0 def 0 1 2 {/k exch def %k=0,2 %three rows /ys yshift k mul def 0 1 1 {/j exch def %j=0,1 %left, right /xs xshift j mul def k 0 eq {TBS j 0 eq {%j=0 1 1 1 setrgbcolor xpp yp 0300 add moveto (helle Serie ) showde (light series ) showen wName 4 get show ( nach W) showde ( to W) showen } if %j=0 j 1 eq {%j=1 0 0 0 setrgbcolor xp 450 sub xshift add yp 0300 add moveto (dunkle Serie ) showde (dark series ) showen nName 0 get show ( nach N) showde ( to N) showen } if %j=1 } if %k=0 TS 0 0 0 setrgbcolor 0 1 4 {/i exch def %i=0,4 %five colours /xi xpW xm i mul add xs add def %NW /yi ypW ym i mul add ys sub def % xpW ypW moveto (START, i, wName) show % i cvishow % wName i get show k 0 eq {xi 100 sub yi 200 add moveto j 0 eq {wName 4 i sub get show} if j 1 eq {nName i get show} if newpath } if k 0 eq i 3 le and {xi 100 add yi 350 sub moveto j 0 eq {cwdif4 3 i sub get cvishow} if j 1 eq {cndif4 i get cvishow} if xchart4 1 eq {%xchart4=1 (\261) show %+/- j 0 eq {cwstd4 3 i sub get cvishow} if j 1 eq {cnstd4 i get cvishow} if } if %xchart4=1 newpath } if k 0 eq i 1 le and {xi 400 add i 500 mul add yi 1150 sub moveto j 0 eq {cwdif2 1 i sub get cvishow} if j 1 eq {cndif2 i get cvishow} if xchart4 1 eq {%xchart4=1 (\261) show %+/- j 0 eq {cwstd2 1 i sub get cvishow} if j 1 eq {cnstd2 i get cvishow} if } if %xchart4=1 newpath } if k 0 eq i 0 le and {xi 1000 add i 500 mul add yi 2000 sub moveto j 0 eq {cwdif1 0 get cvishow} if j 1 eq {cndif1 0 get cvishow} if xchart4 1 eq {%xchart4=1 (\261) show %+/- j 0 eq {cwstd1 0 get cvishow} if j 1 eq {cnstd1 0 get cvishow} if } if %xchart4=1 newpath } if i 0 eq i 4 eq or {0 0 0 setrgbcolor xi yi 140 0 360 arc fill } if j 0 eq {%j=0 /w i 4 div def xchartl 0 eq {w 1 1 setrgbcolor} if %C-W xchartl 1 eq {w w 1 setrgbcolor} if %V-W xchartl 2 eq {1 w 1 setrgbcolor} if %M-W xchartl 3 eq {1 w w setrgbcolor} if %O-W xchartl 4 eq {1 1 w setrgbcolor} if %Y-W xchartl 5 eq {w 1 w setrgbcolor} if %L-W } if %j=0 j 1 eq {%j=1 /w 1 i 4 div sub def xchartl 0 eq {0 w w setrgbcolor} if %C-N xchartl 1 eq {0 0 w setrgbcolor} if %V-N xchartl 2 eq {w 0 w setrgbcolor} if %M-N xchartl 3 eq {w 0 0 setrgbcolor} if %O-N xchartl 4 eq {w w 0 setrgbcolor} if %Y-N xchartl 5 eq {0 w 0 setrgbcolor} if %L-N } if %j=1 xi yi 070 0 360 arc fill i 0 eq i 4 eq or {0 0 0 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if k 0 eq {%k=0 i 1 ge i 3 le and {%k=0 and all i 0 0 0 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if %i=2 and k<2 } if %k=0 k 1 eq i 2 eq and {%k=1 and i=2 0 0 0 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if %k=1 and i=2 i 4 eq j 1 eq and {%i=4 and j=1 %cross in black N 1 1 1 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if %i=4 and j=1 } for %i=0,4 } for %j=0,1 } for %k=0,2 xt1 neg yt1 neg translate %************************************************************************* showpage grestore %} for %xchartl=0,5 %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 06 MM sub 020 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 27 %line 489 %!PS-Adobe-3.0 EPSF-3.0 XE391-7N %%BoundingBox: 70 83 245 190 %START PDFDE011.EPS /pdfmark17 where {pop} {userdict /pdfmark17 /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://130.149.60.45/~farbmetrik/SE25/) /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, colour vision) /Creator (klaus.richter@mac.com) /CreationDate (D:2016070112000) /ModDate (D:2016070112000) /DOCINFO pdfmark17 [ /View [ /FitB ] /DOCVIEW pdfmark17 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /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 /TV {160 /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 /TIV {160 /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 /TBV {160 /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 /TBIV {160 /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 /SV {160 /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 %%EndProlog gsave /nshow {TS show} bind def /kshow {TIS show} bind def /bshow {TBS show} bind def /jshow {TBIS show} bind def /ibshown {TBS -50 -50 rmoveto show 0 50 rmoveto TBS} bind def /ibshow0 {TBS -00 -50 rmoveto show 0 50 rmoveto TBS} bind def /ishown {TS -50 -50 rmoveto show 0 50 rmoveto TS } bind def /ishow0 {TS -00 -50 rmoveto show 0 50 rmoveto TS } bind def %40% kleiner /ns4 {250 /Times-ISOL1 FS show TK} bind def /ks4 {250 /TimesI-ISOL1 FS show TK} bind def /bs4 {250 /TimesB-ISOL1 FS show TK} bind def /js4 {250 /TimesBI-ISOL1 FS show TK} bind def /ss4 {250 /Symbol FS show TK} bind def /is4 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /es4 {200 /Times-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ib4 {200 /TimesB-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /eb4 {200 /TimesB-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ip4 {200 /Times-ISOL1 FS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def %60% kleiner /ns6 {200 /Times-ISOL1 FS show TS} bind def /ks6 {200 /TimesI-ISOL1 FS show TS} bind def /bs6 {200 /TimesB-ISOL1 FS show TS} bind def /js6 {200 /TimesBI-ISOL1 FS show TS} bind def /ss6 {200 /Symbol FS show TS} bind def /is6 {160 /Times-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /es6 {160 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ib6 {160 /TimesB-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /eb6 {160 /TimesB-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ip6 {160 /Times-ISOL1 FS 24 24 rmoveto (\267) show 24 -24 rmoveto TS} bind /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show} def %************************************************************* %Aus Kittelmann_CD_DA/Daten der Ausertung/ %Farbwerte der Farbfelder und Reihen.xls/CIELAB_1 %siehe auch Dipl-Arbeit Seite 31 ff /LAB_KIi 3100 array def %310x10 /LAB_KIi [ %n L*r a*r b*r L*t a*t b*t E*r-t C*r h*r % L*r a*r b*r CIELAB data of 310 printel samples, see page 34 % 95.410 -0.980 4.760 ISO 15775 Papierweiss Tab. 2.2 1 94.806 -1.832 6.977 95.410 -0.980 4.760 2.450 7.213 104.710 2 76.937 -16.536 -18.248 77.015 -15.805 -18.995 1.048 24.626 227.818 3 59.410 -30.942 -42.455 58.620 -30.630 -42.750 0.899 52.534 233.915 4 94.807 -1.883 7.035 95.410 -0.980 4.760 2.520 7.282 104.985 5 76.919 -16.503 -18.327 77.015 -15.805 -18.995 0.971 24.663 227.998 6 59.468 -30.964 -42.431 58.620 -30.630 -42.750 0.966 52.528 233.880 7 94.796 -1.848 7.051 95.410 -0.980 4.760 2.526 7.289 104.684 8 60.143 15.422 -18.907 60.565 15.185 -19.800 1.016 24.399 309.204 9 27.166 31.237 -43.580 25.720 31.350 -44.360 1.646 53.619 305.632 10 94.811 -1.797 6.812 95.410 -0.980 4.760 2.288 7.045 104.775 11 60.039 15.614 -19.124 60.565 15.185 -19.800 0.958 24.689 309.231 12 27.145 31.257 -43.757 25.720 31.350 -44.360 1.550 53.774 305.539 13 94.813 -1.742 6.702 95.410 -0.980 4.760 2.170 6.925 104.573 14 71.354 37.382 -0.087 71.770 37.110 -1.020 1.057 37.382 359.867 15 48.299 74.762 -6.470 48.130 75.200 -6.800 0.573 75.042 355.054 16 94.862 -1.790 6.808 95.410 -0.980 4.760 2.269 7.039 104.734 17 71.430 37.531 -0.146 71.770 37.110 -1.020 1.028 37.531 359.777 18 48.348 75.034 -6.602 48.130 75.200 -6.800 0.338 75.324 354.972 19 94.829 -1.679 6.457 95.410 -0.980 4.760 1.925 6.672 104.576 20 71.895 30.271 30.198 71.675 32.165 28.415 2.611 42.758 44.931 21 48.389 65.379 52.900 47.940 65.310 52.070 0.946 84.100 38.977 22 94.841 -1.727 6.563 95.410 -0.980 4.760 2.033 6.787 104.743 23 71.834 30.282 30.495 71.675 32.165 28.415 2.810 42.976 45.200 24 48.373 65.160 52.576 47.940 65.310 52.070 0.683 83.726 38.899 25 94.856 -1.811 6.930 95.410 -0.980 4.760 2.389 7.163 104.645 26 91.995 -9.864 53.175 92.890 -6.070 50.465 4.747 54.082 100.509 27 88.831 -7.617 100.643 90.370 -11.160 96.170 5.910 100.931 94.328 28 94.840 -1.857 6.961 95.410 -0.980 4.760 2.437 7.204 104.938 29 91.969 -9.864 53.060 92.890 -6.070 50.465 4.688 53.969 100.532 30 88.822 -7.585 99.964 90.370 -11.160 96.170 5.438 100.251 94.339 31 94.843 -1.831 6.986 95.410 -0.980 4.760 2.450 7.223 104.689 32 72.670 -33.310 23.706 73.155 -31.970 20.735 3.296 40.885 144.561 33 52.763 -62.634 40.725 50.900 -62.960 36.710 4.438 74.710 146.968 34 94.844 -1.844 6.940 95.410 -0.980 4.760 2.413 7.181 104.883 35 72.659 -33.330 23.584 73.155 -31.970 20.735 3.195 40.830 144.717 36 52.751 -62.659 40.456 50.900 -62.960 36.710 4.189 74.585 147.152 37 59.858 -30.723 -42.299 58.620 -30.630 -42.750 1.321 52.279 234.008 38 39.512 -15.438 -20.098 38.315 -15.065 -21.605 1.960 25.343 232.471 39 20.439 0.604 1.879 18.010 0.500 -0.460 3.374 1.974 72.184 40 59.843 -30.628 -42.217 58.620 -30.630 -42.750 1.334 52.157 234.039 41 39.472 -15.216 -20.290 38.315 -15.065 -21.605 1.759 25.361 233.132 42 20.596 0.834 1.790 18.010 0.500 -0.460 3.444 1.975 65.031 43 28.050 31.224 -43.592 25.720 31.350 -44.360 2.457 53.621 305.613 44 24.428 16.573 -21.290 21.865 15.925 -22.410 2.871 26.980 307.898 45 20.775 1.062 1.849 18.010 0.500 -0.460 3.646 2.132 60.115 46 27.951 31.592 -43.586 25.720 31.350 -44.360 2.374 53.831 305.935 47 24.413 16.789 -21.558 21.865 15.925 -22.410 2.822 27.324 307.911 48 20.742 1.238 1.780 18.010 0.500 -0.460 3.609 2.168 55.193 49 47.685 75.265 -6.106 48.130 75.200 -6.800 0.827 75.513 355.362 50 34.058 36.976 -1.848 33.070 37.850 -3.630 2.217 37.022 357.138 51 19.828 0.759 1.618 18.010 0.500 -0.460 2.773 1.787 64.874 52 47.770 75.333 -6.073 48.130 75.200 -6.800 0.823 75.577 355.391 53 34.024 36.746 -1.841 33.070 37.850 -3.630 2.308 36.792 357.131 54 19.895 0.766 1.713 18.010 0.500 -0.460 2.889 1.877 65.917 55 48.084 65.391 53.701 47.940 65.310 52.070 1.639 84.616 39.394 56 33.902 32.769 28.182 32.975 32.905 25.805 2.555 43.221 40.696 57 20.096 0.689 1.832 18.010 0.500 -0.460 3.105 1.958 69.398 58 48.093 65.240 53.510 47.940 65.310 52.070 1.449 84.377 39.358 59 33.983 32.963 28.200 32.975 32.905 25.805 2.599 43.379 40.547 60 20.045 0.703 1.815 18.010 0.500 -0.460 3.059 1.946 68.836 61 88.969 -7.916 99.202 90.370 -11.160 96.170 4.656 99.517 94.562 62 54.202 -4.710 50.539 54.190 -5.330 47.855 2.755 50.758 95.324 63 20.513 1.218 2.043 18.010 0.500 -0.460 3.612 2.379 59.195 64 88.968 -7.927 98.732 90.370 -11.160 96.170 4.357 99.050 94.591 65 54.261 -4.648 50.299 54.190 -5.330 47.855 2.539 50.514 95.279 66 20.641 0.847 1.666 18.010 0.500 -0.460 3.401 1.869 63.062 67 53.549 -61.840 40.746 50.900 -62.960 36.710 4.956 74.057 146.619 68 35.886 -31.821 20.383 34.455 -31.230 18.125 2.738 37.790 147.359 69 20.920 1.315 2.010 18.010 0.500 -0.460 3.903 2.401 56.801 70 53.497 -62.212 40.195 50.900 -62.960 36.710 4.410 74.067 147.134 71 35.953 -31.500 20.084 34.455 -31.230 18.125 2.481 37.358 147.479 72 20.895 1.150 1.709 18.010 0.500 -0.460 3.667 2.059 56.060 73 94.784 -1.844 6.954 95.410 -0.980 4.760 2.440 7.194 104.855 74 57.474 -0.187 4.308 56.710 -0.240 2.150 2.290 4.312 92.481 75 19.853 0.660 2.057 18.010 0.500 -0.460 3.124 2.160 72.205 76 94.850 -1.803 6.917 95.410 -0.980 4.760 2.376 7.148 104.613 77 57.492 -0.158 4.396 56.710 -0.240 2.150 2.380 4.399 92.060 78 19.840 0.774 1.873 18.010 0.500 -0.460 2.978 2.026 67.556 79 94.712 -1.740 6.671 95.410 -0.980 4.760 2.171 6.894 104.624 80 75.767 -1.256 4.576 76.060 -0.610 3.455 1.327 4.745 105.346 81 57.770 -0.029 4.084 56.710 -0.240 2.150 2.215 4.084 90.406 82 38.879 0.418 3.397 37.360 0.130 0.845 2.983 3.422 82.988 83 20.500 0.760 1.906 18.010 0.500 -0.460 3.445 2.052 68.276 84 94.746 -1.749 6.752 95.410 -0.980 4.760 2.236 6.975 104.522 85 75.784 -1.036 4.321 76.060 -0.610 3.455 1.004 4.443 103.478 86 57.797 0.122 4.078 56.710 -0.240 2.150 2.243 4.080 88.280 87 38.909 0.429 3.229 37.360 0.130 0.845 2.859 3.258 82.432 88 20.404 0.745 1.681 18.010 0.500 -0.460 3.221 1.839 66.098 89 94.821 -1.758 6.747 95.410 -0.980 4.760 2.214 6.973 104.604 90 86.389 -9.074 -6.237 86.213 -8.393 -7.118 1.128 11.011 214.502 91 76.787 -16.568 -18.756 77.015 -15.805 -18.995 0.832 25.026 228.543 92 68.577 -23.637 -30.298 67.818 -23.218 -30.873 1.041 38.427 232.040 93 59.128 -30.875 -42.876 58.620 -30.630 -42.750 0.578 52.835 234.243 94 94.810 -1.748 6.756 95.410 -0.980 4.760 2.221 6.978 104.505 95 86.419 -8.953 -6.387 86.213 -8.393 -7.118 0.943 10.998 215.505 96 76.820 -16.491 -18.789 77.015 -15.805 -18.995 0.742 25.000 228.727 97 68.658 -23.582 -30.348 67.818 -23.218 -30.873 1.056 38.433 232.151 98 59.211 -30.905 -42.735 58.620 -30.630 -42.750 0.652 52.739 234.127 99 94.672 -1.678 6.502 95.410 -0.980 4.760 2.016 6.715 104.470 100 78.300 7.067 -7.013 77.988 7.103 -7.520 0.597 9.956 315.220 101 60.293 15.348 -19.582 60.565 15.185 -19.800 0.385 24.880 308.089 102 44.203 22.986 -31.712 43.143 23.268 -32.080 1.157 39.167 305.936 103 27.016 31.165 -43.974 25.720 31.350 -44.360 1.365 53.898 305.325 104 94.830 -1.783 6.928 95.410 -0.980 4.760 2.383 7.154 104.433 105 78.257 7.039 -7.270 77.988 7.103 -7.520 0.373 10.119 314.077 106 60.155 15.718 -20.231 60.565 15.185 -19.800 0.798 25.619 307.845 107 44.111 23.540 -32.017 43.143 23.268 -32.080 1.008 39.740 306.324 108 26.626 33.169 -44.169 25.720 31.350 -44.360 2.042 55.237 306.905 109 94.830 -1.701 6.558 95.410 -0.980 4.760 2.022 6.775 104.543 110 83.971 17.488 2.916 83.590 18.065 1.870 1.254 17.729 9.468 111 71.531 37.398 -0.616 71.770 37.110 -1.020 0.550 37.403 359.056 112 60.110 56.166 -3.810 59.950 56.155 -3.910 0.189 56.295 356.120 113 48.082 74.995 -6.574 48.130 75.200 -6.800 0.309 75.282 354.990 114 94.878 -1.729 6.630 95.410 -0.980 4.760 2.084 6.852 104.617 115 83.935 17.501 2.928 83.590 18.065 1.870 1.247 17.744 9.497 116 71.513 37.496 -0.695 71.770 37.110 -1.020 0.566 37.502 358.938 117 60.110 56.159 -3.719 59.950 56.155 -3.910 0.249 56.282 356.211 118 48.182 74.902 -6.412 48.130 75.200 -6.800 0.492 75.176 355.107 119 94.804 -1.818 7.199 95.410 -0.980 4.760 2.649 7.425 104.176 120 82.777 14.554 17.861 83.543 15.593 16.588 1.812 23.040 50.825 121 71.216 31.512 29.973 71.675 32.165 28.415 1.750 43.490 43.566 122 59.233 49.560 42.426 59.808 48.738 40.243 2.403 65.239 40.565 123 47.901 65.572 53.795 47.940 65.310 52.070 1.745 84.815 39.365 124 94.772 -1.833 6.825 95.410 -0.980 4.760 2.324 7.067 105.036 125 82.720 14.616 17.563 83.543 15.593 16.588 1.607 22.849 50.232 126 71.256 31.437 30.263 71.675 32.165 28.415 2.030 43.636 43.910 127 59.267 49.547 42.334 59.808 48.738 40.243 2.306 65.169 40.511 128 47.815 65.383 53.061 47.940 65.310 52.070 1.001 84.204 39.061 129 94.840 -1.780 6.905 95.410 -0.980 4.760 2.359 7.131 104.455 130 93.112 -6.364 28.580 94.150 -3.525 27.613 3.174 29.280 102.554 131 92.030 -9.686 51.982 92.890 -6.070 50.465 4.014 52.877 100.555 132 90.731 -10.442 77.889 91.630 -8.615 73.318 5.005 78.586 97.636 133 88.925 -7.755 98.630 90.370 -11.160 96.170 4.442 98.935 94.496 134 94.750 -1.706 6.774 95.410 -0.980 4.760 2.240 6.985 104.140 135 93.456 -6.983 29.551 94.150 -3.525 27.613 4.024 30.365 103.295 136 91.762 -9.588 54.588 92.890 -6.070 50.465 5.536 55.424 99.962 137 90.523 -9.923 78.975 91.630 -8.615 73.318 5.912 79.596 97.161 138 88.450 -7.383 99.721 90.370 -11.160 96.170 5.528 99.994 94.234 139 94.774 -1.701 6.618 95.410 -0.980 4.760 2.092 6.833 104.419 140 84.620 -17.161 14.272 84.283 -16.475 12.748 1.706 22.320 140.250 141 72.841 -32.934 22.138 73.155 -31.970 20.735 1.731 39.683 146.092 142 63.629 -47.768 31.268 62.028 -47.465 28.723 3.022 57.091 146.792 143 53.074 -62.749 39.986 50.900 -62.960 36.710 3.938 74.407 147.493 144 94.824 -1.732 6.644 95.410 -0.980 4.760 2.111 6.866 104.611 145 84.610 -17.132 14.251 84.283 -16.475 12.748 1.673 22.284 140.245 146 72.795 -32.837 21.866 73.155 -31.970 20.735 1.470 39.451 146.341 147 63.609 -47.604 30.857 62.028 -47.465 28.723 2.660 56.730 147.049 148 53.068 -62.538 39.758 50.900 -62.960 36.710 3.764 74.106 147.554 149 59.304 -30.836 -42.453 58.620 -30.630 -42.750 0.774 52.471 234.007 150 48.835 -23.073 -32.162 48.468 -22.848 -32.178 0.431 39.582 234.345 151 38.544 -15.514 -20.880 38.315 -15.065 -21.605 0.883 26.012 233.387 152 28.577 -8.727 -9.949 28.163 -7.283 -11.033 1.853 13.234 228.743 153 19.400 0.578 1.071 18.010 0.500 -0.460 2.069 1.217 61.645 154 59.283 -30.812 -42.644 58.620 -30.630 -42.750 0.696 52.611 234.150 155 49.013 -23.128 -32.035 48.468 -22.848 -32.178 0.630 39.512 234.172 156 38.632 -15.429 -21.396 38.315 -15.065 -21.605 0.526 26.379 234.205 157 28.626 -9.032 -10.165 28.163 -7.283 -11.033 2.007 13.598 228.377 158 19.526 0.414 1.083 18.010 0.500 -0.460 2.165 1.159 69.068 159 26.747 31.469 -43.910 25.720 31.350 -44.360 1.128 54.022 305.628 160 25.010 24.152 -33.934 23.793 23.638 -33.385 1.431 41.651 305.440 161 23.199 16.450 -22.261 21.865 15.925 -22.410 1.441 27.680 306.463 162 21.560 8.223 -9.882 19.938 8.213 -11.435 2.246 12.856 309.764 163 19.767 0.771 1.400 18.010 0.500 -0.460 2.573 1.598 61.142 164 26.466 33.265 -43.952 25.720 31.350 -44.360 2.096 55.121 307.121 165 24.531 25.256 -34.061 23.793 23.638 -33.385 1.903 42.403 306.557 166 22.532 17.348 -22.759 21.865 15.925 -22.410 1.610 28.617 307.317 167 21.297 9.116 -10.038 19.938 8.213 -11.435 2.148 13.559 312.243 168 20.241 1.362 2.421 18.010 0.500 -0.460 3.745 2.778 60.648 169 47.954 75.045 -6.124 48.130 75.200 -6.800 0.715 75.294 355.335 170 39.935 56.633 -5.204 40.600 56.525 -5.215 0.674 56.872 354.750 171 34.317 37.076 -2.591 33.070 37.850 -3.630 1.798 37.166 356.003 172 27.113 19.906 0.097 25.540 19.175 -2.045 2.756 19.906 0.279 173 20.282 0.865 1.650 18.010 0.500 -0.460 3.122 1.863 62.340 174 48.114 74.940 -6.437 48.130 75.200 -6.800 0.447 75.216 355.091 175 40.005 56.475 -5.385 40.600 56.525 -5.215 0.621 56.731 354.553 176 34.340 37.261 -2.923 33.070 37.850 -3.630 1.569 37.376 355.515 177 27.115 19.691 -0.318 25.540 19.175 -2.045 2.394 19.694 359.076 178 20.357 0.721 1.317 18.010 0.500 -0.460 2.952 1.501 61.306 179 47.885 65.560 53.596 47.940 65.310 52.070 1.548 84.680 39.267 180 40.159 49.175 39.907 40.458 49.108 38.938 1.017 63.331 39.061 181 33.458 32.557 27.471 32.975 32.905 25.805 1.770 42.598 40.158 182 26.575 18.004 15.031 25.493 16.703 12.673 2.904 23.454 39.858 183 19.509 0.349 1.149 18.010 0.500 -0.460 2.205 1.201 73.119 184 47.899 65.372 53.449 47.940 65.310 52.070 1.381 84.441 39.270 185 40.193 49.025 39.636 40.458 49.108 38.938 0.752 63.043 38.955 186 33.443 32.649 27.569 32.975 32.905 25.805 1.843 42.732 40.179 187 26.586 17.967 15.189 25.493 16.703 12.673 3.021 23.527 40.209 188 19.559 0.718 1.107 18.010 0.500 -0.460 2.214 1.319 57.028 189 88.855 -7.734 98.558 90.370 -11.160 96.170 4.442 98.861 94.487 190 72.418 -8.190 74.514 72.280 -8.245 72.013 2.506 74.962 96.272 191 53.856 -5.000 49.618 54.190 -5.330 47.855 1.824 49.869 95.755 192 37.368 -2.171 26.048 36.100 -2.415 23.698 2.682 26.138 94.764 193 19.741 0.588 1.403 18.010 0.500 -0.460 2.544 1.521 67.252 194 88.335 -7.243 99.966 90.370 -11.160 96.170 5.821 100.228 94.144 195 72.521 -8.080 74.951 72.280 -8.245 72.013 2.953 75.385 96.153 196 54.041 -4.892 50.769 54.190 -5.330 47.855 2.951 51.005 95.504 197 37.291 -2.102 27.349 36.100 -2.415 23.698 3.854 27.430 94.394 198 20.047 1.076 1.865 18.010 0.500 -0.460 3.144 2.153 60.022 199 52.992 -62.907 39.847 50.900 -62.960 36.710 3.771 74.466 147.649 200 44.029 -47.586 30.202 42.678 -47.095 27.418 3.134 56.361 147.598 201 35.211 -32.267 19.159 34.455 -31.230 18.125 1.648 37.526 149.301 202 26.980 -16.066 9.803 26.233 -15.365 8.833 1.411 18.821 148.611 203 20.466 0.704 1.621 18.010 0.500 -0.460 3.225 1.767 66.517 204 52.908 -62.721 39.980 50.900 -62.960 36.710 3.845 74.379 147.486 205 43.965 -47.550 30.261 42.678 -47.095 27.418 3.154 56.362 147.527 206 35.087 -31.927 19.339 34.455 -31.230 18.125 1.536 37.328 148.796 207 26.972 -15.836 9.697 26.233 -15.365 8.833 1.232 18.569 148.519 208 20.294 0.770 1.635 18.010 0.500 -0.460 3.111 1.808 64.791 209 94.809 -1.830 6.976 95.410 -0.980 4.760 2.449 7.212 104.699 210 58.984 -30.966 -42.837 58.620 -30.630 -42.750 0.503 52.858 234.137 211 19.349 0.469 1.318 18.010 0.500 -0.460 2.226 1.398 70.426 212 94.944 -1.846 7.105 95.410 -0.980 4.760 2.543 7.341 104.567 213 58.971 -30.882 -42.895 58.620 -30.630 -42.750 0.456 52.855 234.248 214 19.176 0.272 0.555 18.010 0.500 -0.460 1.563 0.618 63.872 215 94.790 -1.802 6.934 95.410 -0.980 4.760 2.405 7.164 104.566 216 26.440 31.213 -44.153 25.720 31.350 -44.360 0.762 54.072 305.257 217 19.441 0.489 1.328 18.010 0.500 -0.460 2.290 1.415 69.769 218 94.798 -1.798 6.914 95.410 -0.980 4.760 2.385 7.145 104.579 219 26.313 31.108 -44.083 25.720 31.350 -44.360 0.697 53.954 305.210 220 19.377 0.342 0.924 18.010 0.500 -0.460 1.951 0.985 69.704 221 94.819 -1.802 6.895 95.410 -0.980 4.760 2.363 7.127 104.645 222 47.850 74.956 -6.176 48.130 75.200 -6.800 0.726 75.210 355.289 223 19.840 0.541 1.276 18.010 0.500 -0.460 2.523 1.386 67.045 224 94.770 -1.747 6.714 95.410 -0.980 4.760 2.194 6.937 104.589 225 47.821 75.208 -5.965 48.130 75.200 -6.800 0.890 75.444 355.465 226 19.694 0.611 1.037 18.010 0.500 -0.460 2.255 1.203 59.503 227 94.825 -1.776 6.746 95.410 -0.980 4.760 2.218 6.976 104.750 228 48.028 65.260 53.084 47.940 65.310 52.070 1.019 84.124 39.126 229 19.876 0.685 0.983 18.010 0.500 -0.460 2.366 1.198 55.119 230 94.757 -1.745 6.631 95.410 -0.980 4.760 2.124 6.857 104.740 231 48.025 65.348 52.692 47.940 65.310 52.070 0.629 83.945 38.880 232 19.948 0.440 0.952 18.010 0.500 -0.460 2.398 1.049 65.224 233 94.873 -1.904 7.232 95.410 -0.980 4.760 2.693 7.478 104.749 234 88.844 -7.513 99.977 90.370 -11.160 96.170 5.488 100.259 94.298 235 19.166 0.454 1.197 18.010 0.500 -0.460 2.021 1.280 69.252 236 94.774 -1.875 7.051 95.410 -0.980 4.760 2.540 7.296 104.892 237 88.796 -7.519 99.400 90.370 -11.160 96.170 5.115 99.684 94.326 238 19.338 0.352 0.841 18.010 0.500 -0.460 1.865 0.912 67.297 239 94.804 -1.889 7.199 95.410 -0.980 4.760 2.672 7.443 104.699 240 52.200 -63.279 39.813 50.900 -62.960 36.710 3.380 74.762 147.823 241 19.336 0.468 1.313 18.010 0.500 -0.460 2.214 1.394 70.403 242 94.841 -1.856 7.078 95.410 -0.980 4.760 2.542 7.317 104.693 243 52.201 -63.318 39.205 50.900 -62.960 36.710 2.837 74.473 148.235 244 19.327 0.532 0.810 18.010 0.500 -0.460 1.830 0.969 56.705 245 59.110 -30.725 -42.847 58.620 -30.630 -42.750 0.508 52.725 234.357 246 26.841 31.207 -43.931 25.720 31.350 -44.360 1.209 53.887 305.389 247 47.998 74.766 -5.917 48.130 75.200 -6.800 0.993 74.999 355.475 248 59.180 -30.727 -42.860 58.620 -30.630 -42.750 0.579 52.736 234.363 249 26.918 30.963 -43.680 25.720 31.350 -44.360 1.431 53.541 305.332 250 47.960 74.748 -5.974 48.130 75.200 -6.800 0.957 74.987 355.431 251 47.932 74.957 -6.193 48.130 75.200 -6.800 0.683 75.213 355.277 252 47.999 65.290 53.196 47.940 65.310 52.070 1.127 84.217 39.172 253 88.840 -7.715 98.748 90.370 -11.160 96.170 4.567 99.049 94.467 254 47.938 74.793 -6.065 48.130 75.200 -6.800 0.862 75.039 355.364 255 47.995 65.199 52.614 47.940 65.310 52.070 0.558 83.781 38.902 256 88.992 -7.768 98.150 90.370 -11.160 96.170 4.162 98.457 94.525 257 88.806 -7.564 99.378 90.370 -11.160 96.170 5.066 99.666 94.353 258 52.054 -63.456 39.583 50.900 -62.960 36.710 3.136 74.790 148.045 259 58.953 -30.907 -42.839 58.620 -30.630 -42.750 0.442 52.824 234.190 260 88.799 -7.554 99.130 90.370 -11.160 96.170 4.923 99.418 94.358 261 52.114 -63.302 39.247 50.900 -62.960 36.710 2.833 74.482 148.202 262 59.070 -30.873 -42.721 58.620 -30.630 -42.750 0.513 52.709 234.145 263 26.607 31.110 -43.675 25.720 31.350 -44.360 1.146 53.622 305.462 264 58.916 -30.902 -42.852 58.620 -30.630 -42.750 0.414 52.832 234.204 265 52.088 -63.025 39.540 50.900 -62.960 36.710 3.070 74.401 147.897 266 26.722 30.906 -43.822 25.720 31.350 -44.360 1.220 53.624 305.194 267 59.121 -30.882 -42.788 58.620 -30.630 -42.750 0.562 52.769 234.181 268 52.256 -63.141 39.105 50.900 -62.960 36.710 2.758 74.269 148.229 269 52.510 -62.813 39.840 50.900 -62.960 36.710 3.523 74.382 147.615 270 88.821 -7.677 99.211 90.370 -11.160 96.170 4.876 99.507 94.425 271 47.854 65.422 53.179 47.940 65.310 52.070 1.118 84.309 39.106 272 52.472 -62.907 39.443 50.900 -62.960 36.710 3.153 74.250 147.912 273 88.911 -7.687 98.611 90.370 -11.160 96.170 4.488 98.910 94.458 274 48.184 65.048 53.192 47.940 65.310 52.070 1.177 84.027 39.274 275 47.989 65.268 53.085 47.940 65.310 52.070 1.017 84.130 39.122 276 47.951 74.898 -5.916 48.130 75.200 -6.800 0.951 75.131 355.484 277 26.916 31.080 -43.714 25.720 31.350 -44.360 1.386 53.637 305.412 278 48.097 65.075 52.962 47.940 65.310 52.070 0.936 83.903 39.141 279 47.899 75.065 -6.424 48.130 75.200 -6.800 0.461 75.339 355.109 280 26.923 31.161 -44.194 25.720 31.350 -44.360 1.229 54.075 305.188 281 59.056 -30.846 -42.596 58.620 -30.630 -42.750 0.510 52.592 234.090 282 42.393 -0.024 -43.358 42.170 0.360 -43.555 0.485 43.358 269.969 283 26.201 31.341 -43.878 25.720 31.350 -44.360 0.681 53.922 305.538 284 35.879 52.754 -25.625 36.925 53.275 -25.580 1.170 58.649 334.092 285 47.697 75.104 -5.768 48.130 75.200 -6.800 1.123 75.325 355.608 286 59.077 -30.803 -42.830 58.620 -30.630 -42.750 0.495 52.757 234.277 287 42.530 0.124 -43.449 42.170 0.360 -43.555 0.443 43.449 270.163 288 26.456 31.114 -43.949 25.720 31.350 -44.360 0.875 53.848 305.297 289 36.149 53.085 -25.997 36.925 53.275 -25.580 0.901 59.109 333.908 290 47.813 74.760 -5.930 48.130 75.200 -6.800 1.026 74.995 355.465 291 47.681 75.057 -5.678 48.130 75.200 -6.800 1.217 75.271 355.674 292 48.009 70.346 23.542 48.035 70.255 22.635 0.912 74.181 18.503 293 47.948 65.385 53.204 47.940 65.310 52.070 1.137 84.297 39.135 294 69.043 27.507 75.803 69.155 27.075 74.120 1.742 80.640 70.055 295 88.877 -7.732 98.861 90.370 -11.160 96.170 4.607 99.162 94.472 296 47.708 75.078 -5.934 48.130 75.200 -6.800 0.971 75.312 355.481 297 48.137 70.269 23.468 48.035 70.255 22.635 0.839 74.085 18.468 298 47.993 65.415 53.124 47.940 65.310 52.070 1.060 84.269 39.080 299 69.008 27.609 75.411 69.155 27.075 74.120 1.405 80.306 69.892 300 88.950 -7.638 98.601 90.370 -11.160 96.170 4.509 98.897 94.429 301 88.888 -7.777 98.464 90.370 -11.160 96.170 4.348 98.770 94.516 302 69.977 -37.776 67.450 70.635 -37.060 66.440 1.402 77.308 119.251 303 52.753 -62.962 39.380 50.900 -62.960 36.710 3.250 74.263 147.976 304 56.064 -46.601 -2.263 54.760 -46.795 -3.020 1.520 46.656 182.780 305 59.454 -30.783 -42.623 58.620 -30.630 -42.750 0.858 52.577 234.163 306 88.698 -7.654 98.411 90.370 -11.160 96.170 4.484 98.708 94.447 307 69.890 -37.662 67.446 70.635 -37.060 66.440 1.389 77.249 119.179 308 52.671 -62.821 38.863 50.900 -62.960 36.710 2.791 73.870 148.258 309 55.892 -46.803 -2.516 54.760 -46.795 -3.020 1.239 46.871 183.077 310 59.528 -30.492 -42.511 58.620 -30.630 -42.750 0.949 52.316 234.349 ] def %LAB_KIi %************************************************************* /D57SERWi 2000 array def %max 57 series of 15 data (100x20) /D57SERWi [%BEG D57SERWi top data WANG_ELCD scaling data %0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %N S N1 N2 N3 N4 N5 NA1 NA2 NA3 NA4 NA5 DV*1i DV*2i WANG1 WANG2 %Serie 1, BAM test chart order 1:25 001 003 001 002 003 000 000 (W) (CW) (C) (0) (0) 26.45 26.39 (W03) (W04) 002 003 007 008 009 000 000 (W) (VW) (V) (0) (0) 29.54 41.95 (W13) (W14) 003 003 013 014 015 000 000 (W) (MW) (M) (0) (0) 31.00 32.74 (W23) (W24) 004 003 019 020 021 000 000 (W) (OW) (O) (0) (0) 28.01 37.64 (W33) (W34) 005 003 025 026 027 000 000 (W) (YW) (Y) (0) (0) 16.99 11.01 (W43) (W44) 006 003 031 032 033 000 000 (W) (LW) (L) (0) (0) 25.44 28.39 (W53) (W54) %Serie 2, BAM test chart order 1:25 007 003 037 038 039 000 000 (C) (CN) (N) (0) (0) 25.80 35.47 (W06) (W05) 008 003 043 044 045 000 000 (V) (VN) (N) (0) (0) 9.30 16.62 (W16) (W15) 009 003 049 050 051 000 000 (M) (MN) (N) (0) (0) 26.80 29.68 (W26) (W25) 010 003 055 056 057 000 000 (O) (ON) (N) (0) (0) 30.62 34.58 (W36) (W35) 011 003 061 062 063 000 000 (Y) (YN) (N) (0) (0) 29.85 41.77 (W46) (W45) 012 003 067 068 069 000 000 (L) (LN) (N) (0) (0) 18.79 35.12 (W56) (W55) %Serie 3, BAM test chart order 3:27 013 003 209 210 211 000 000 (W) (C) (N) (0) (0) 64.17 61.50 (W01) (W02) 014 003 215 216 217 000 000 (W) (V) (N) (0) (0) 67.03 32.91 (W11) (W12) 015 003 221 222 223 000 000 (W) (M) (N) (0) (0) 74.48 61.26 (W21) (W22) 016 003 227 228 229 000 000 (W) (O) (N) (0) (0) 71.77 67.21 (W31) (W32) 017 003 233 234 235 000 000 (W) (Y) (N) (0) (0) 37.26 86.10 (W41) (W42) 018 003 239 240 241 000 000 (W) (L) (N) (0) (0) 50.89 56.11 (W51) (W52) %Serie 4, BAM test chart order 3:27 019 003 245 246 247 000 000 (C) (V) (M) (0) (0) 41.67 45.01 (W09) (W19) 020 003 251 252 253 000 000 (M) (O) (Y) (0) (0) 28.41 72.32 (W29) (W39) 021 003 257 258 259 000 000 (Y) (L) (C) (0) (0) 64.80 40.72 (W49) (W59) 022 003 263 264 265 000 000 (V) (C) (L) (0) (0) 41.67 40.72 (W09) (W59) 023 003 269 270 271 000 000 (L) (Y) (O) (0) (0) 64.80 72.32 (W49) (W39) 024 003 275 276 277 000 000 (O) (M) (V) (0) (0) 28.41 45.01 (W29) (W19) %Serie 5, BAM test chart order 2:26 %values are missing 025 004 089 090 091 000 000 (W) (Wc) (CW) (0) (0) 26.45 0.00 (W03) (W00) 026 004 099 100 101 102 103 (W) (Wv) (VW) (0) (0) 29.54 0.00 (W13) (W00) 027 004 109 110 111 112 113 (W) (Wm) (MW) (0) (0) 31.00 0.00 (W23) (W00) 028 004 119 120 121 122 123 (W) (Wo) (OW) (0) (0) 28.01 0.00 (W33) (W00) 029 004 129 130 131 132 133 (W) (Wy) (YW) (0) (0) 16.99 0.00 (W43) (W00) 030 004 139 140 141 142 143 (W) (Wl) (LW) (0) (0) 25.44 0.00 (W53) (W00) %Serie 6, BAM test chart order 2:26 031 004 091 092 093 000 000 (CW) (Cw) (C) (0) (0) 26.39 0.00 (W04) (W00) 032 004 101 102 103 000 000 (VW) (Vw) (V) (0) (0) 41.95 0.00 (W14) (W00) 033 004 111 112 113 000 000 (MW) (Mw) (M) (0) (0) 32.74 0.00 (W24) (W00) 034 004 121 122 123 000 000 (OW) (Ow) (O) (0) (0) 37.64 0.00 (W34) (W00) 035 004 131 132 133 000 000 (YW) (Yw) (Y) (0) (0) 110.1 0.00 (W44) (W00) 036 004 141 142 143 000 000 (LW) (Lw) (L) (0) (0) 28.39 0.00 (W54) (W00) %Serie 7, BAM test chart order 2:26 037 004 149 150 151 000 000 (C) (Cn) (CN) (0) (0) 25.80 0.00 (W06) (W00) 038 004 159 160 161 000 000 (V) (Vn) (VN) (0) (0) 9.30 0.00 (W16) (W00) 039 004 169 170 171 000 000 (M) (Mn) (MN) (0) (0) 26.80 0.00 (W26) (W00) 040 004 179 180 181 000 000 (O) (On) (ON) (0) (0) 30.62 0.00 (W36) (W00) 041 004 189 190 191 000 000 (Y) (Yn) (YN) (0) (0) 29.85 0.00 (W46) (W00) 042 004 199 200 201 000 000 (L) (Ln) (LN) (0) (0) 18.79 0.00 (W56) (W00) %Serie 8, BAM test chart order 2:26 043 004 151 152 153 000 000 (CN) (Nc) (N) (0) (0) 61.50 0.00 (W02) (W00) 044 004 161 162 163 000 000 (VN) (Nv) (N) (0) (0) 32.91 0.00 (W12) (W00) 045 004 171 172 173 000 000 (MN) (Nm) (N) (0) (0) 61.26 0.00 (W22) (W00) 046 004 181 182 183 000 000 (ON) (No) (N) (0) (0) 67.21 0.00 (W32) (W00) 047 004 191 192 193 000 000 (YN) (Ny) (N) (0) (0) 86.10 0.00 (W42) (W00) 048 004 201 202 203 000 000 (LN) (Nl) (N) (0) (0) 56.11 0.00 (W52) (W00) %Serie 2N, BAM test chart order 1:25, 1 triplet 049 003 073 074 075 000 000 (W) (WN) (N) (0) (0) 10.00 9.00 (W61) (W62) %Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets 050 004 281 282 283 000 000 (C) (CV) (V) (0) (0) 41.67 0.00 (W09) (W00) 051 004 283 284 285 000 000 (V) (MV) (M) (0) (0) 45.01 0.00 (W19) (W00) 052 004 291 292 293 000 000 (M) (MO) (O) (0) (0) 28.41 0.00 (W29) (W00) 053 004 293 294 295 000 000 (O) (YO) (Y) (0) (0) 72.32 0.00 (W39) (W00) 054 004 301 302 303 000 000 (Y) (YL) (L) (0) (0) 64.80 0.00 (W49) (W00) 055 004 303 304 305 000 000 (L) (CL) (C) (0) (0) 40.72 0.00 (W59) (W00) %Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets 056 004 079 080 081 000 000 (W) (Wn) (WN) (0) (0) 10.00 0.00 (W61) (W00) 057 004 081 082 083 000 000 (WN) (Nw) (N) (0) (0) 9.00 0.00 (W62) (W00) ] def %END D57SERWi %************************************************************* /D57SERVia 2000 array def %max 57 series of 15 data (100x20) /D57SERVia [%BEG D57SERVia top data VIK_ELCD scaling data %0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %N S N1 N2 N3 N4 N5 NA1 NA2 NA3 NA4 NA5 DV*1i DV*2i VIK1 VIK2 %Serie 1, BAM test chart order 1:25 001 003 001 002 003 000 000 (W) (CW) (C) (0) (0) 25.24 39.23 (V01) (V02) 002 003 007 008 009 000 000 (W) (VW) (V) (0) (0) 33.11 46.66 (V03) (V04) 003 003 013 014 015 000 000 (W) (MW) (M) (0) (0) 30.92 45.35 (V05) (V06) 004 003 019 020 021 000 000 (W) (OW) (O) (0) (0) 26.55 46.66 (V07) (V08) 005 003 025 026 027 000 000 (W) (YW) (Y) (0) (0) 22.62 23.06 (V09) (V10) 006 003 031 032 033 000 000 (W) (LW) (L) (0) (0) 29.18 40.98 (V11) (V12) %Serie 2, BAM test chart order 1:25 007 003 037 038 039 000 000 (C) (CN) (N) (0) (0) 38.35 42.73 (V13) (V14) 008 003 043 044 045 000 000 (V) (VN) (N) (0) (0) 21.75 31.36 (V15) (V16) 009 003 049 050 051 000 000 (M) (MN) (N) (0) (0) 40.98 44.47 (V17) (V18) 010 003 055 056 057 000 000 (O) (ON) (N) (0) (0) 34.86 43.16 (V19) (V20) 011 003 061 062 063 000 000 (Y) (YN) (N) (0) (0) 35.73 47.97 (V21) (V22) 012 003 067 068 069 000 000 (L) (LN) (N) (0) (0) 36.17 42.29 (V23) (V24) %Serie 3, BAM test chart order 3:27 013 003 209 210 211 000 000 (W) (C) (N) (0) (0) 53.65 55.40 (V26) (V25) 014 003 215 216 217 000 000 (W) (V) (N) (0) (0) 65.02 29.61 (V28) (V27) 015 003 221 222 223 000 000 (W) (M) (N) (0) (0) 60.21 53.22 (V30) (V29) 016 003 227 228 229 000 000 (W) (O) (N) (0) (0) 58.46 48.84 (V32) (V31) 017 003 233 234 235 000 000 (W) (Y) (N) (0) (0) 37.38 61.52 (V34) (V33) 018 003 239 240 241 000 000 (W) (L) (N) (0) (0) 55.84 45.35 (V36) (V35) %Serie 4, BAM test chart order 3:27 019 003 245 246 247 000 000 (C) (V) (M) (0) (0) 44.47 42.29 (V37) (V38) 020 003 251 252 253 000 000 (M) (O) (Y) (0) (0) 22.62 47.97 (V40) (V39) 021 003 257 258 259 000 000 (Y) (L) (C) (0) (0) 46.22 31.36 (V41) (V42) 022 003 263 264 265 000 000 (V) (C) (L) (0) (0) 48.41 30.49 (V44) (V43) 023 003 269 270 271 000 000 (L) (Y) (O) (0) (0) 51.03 53.65 (V46) (V45) 024 003 275 276 277 000 000 (O) (M) (V) (0) (0) 23.49 48.84 (V47) (V48) %Serie 5, BAM test chart order 2:26 %dummy 26.00: values are missing 025 003 089 090 091 000 000 (W) (Wc) (CW) (0) (0) 25.24 26.00 (V01) (V00) 026 003 099 100 101 000 000 (W) (Wv) (VW) (0) (0) 33.11 26.00 (V03) (V00) 027 003 109 110 111 000 000 (W) (Wm) (MW) (0) (0) 30.92 26.00 (V05) (V00) 028 003 119 120 121 000 000 (W) (Wo) (OW) (0) (0) 26.55 26.00 (V07) (V00) 029 003 129 130 131 000 000 (W) (Wy) (YW) (0) (0) 22.62 26.00 (V09) (V00) 030 003 139 140 141 000 000 (W) (Wl) (LW) (0) (0) 29.18 26.00 (V11) (V00) %Serie 6, BAM test chart order 2:26 031 003 091 092 093 000 000 (CW) (Cw) (C) (0) (0) 22.62 27.87 (V62) (V61) 032 003 101 102 103 000 000 (VW) (Vw) (V) (0) (0) 26.99 33.98 (V64) (V63) 033 003 111 112 113 000 000 (MW) (Mw) (M) (0) (0) 28.30 35.73 (V66) (V65) 034 003 121 122 123 000 000 (OW) (Ow) (O) (0) (0) 24.37 33.98 (V68) (V67) 035 003 131 132 133 000 000 (YW) (Yw) (Y) (0) (0) 18.25 20.00 (V70) (V69) 036 003 141 142 143 000 000 (LW) (Lw) (L) (0) (0) 23.49 32.24 (V72) (V71) %Serie 7, BAM test chart order 2:26 037 003 149 150 151 000 000 (C) (Cn) (CN) (0) (0) 29.61 28.74 (V74) (V73) 038 003 159 160 161 000 000 (V) (Vn) (VN) (0) (0) 19.56 18.25 (V76) (V75) 039 003 169 170 171 000 000 (M) (Mn) (MN) (0) (0) 35.73 27.87 (V78) (V77) 040 003 179 180 181 000 000 (O) (On) (ON) (0) (0) 37.48 26.12 (V80) (V79) 041 003 189 190 191 000 000 (Y) (Yn) (YN) (0) (0) 38.35 30.49 (V82) (V81) 042 003 199 200 201 000 000 (L) (Ln) (LN) (0) (0) 33.11 26.99 (V84) (V83) %Serie 8, BAM test chart order 2:26 043 003 151 152 153 000 000 (CN) (Nc) (N) (0) (0) 37.48 26.12 (V86) (V85) 044 003 161 162 163 000 000 (VN) (Nv) (N) (0) (0) 20.43 18.25 (V88) (V87) 045 003 171 172 173 000 000 (MN) (Nm) (N) (0) (0) 34.86 28.30 (V90) (V89) 046 003 181 182 183 000 000 (ON) (No) (N) (0) (0) 33.98 27.87 (V92) (V91) 047 003 191 192 193 000 000 (YN) (Ny) (N) (0) (0) 39.67 34.86 (V94) (V93) 048 003 201 202 203 000 000 (LN) (Nl) (N) (0) (0) 32.24 26.12 (V96) (V95) %Serie 2N, BAM test chart order 1:25, 1 triplet 049 003 073 074 075 000 000 (W) (WN) (N) (0) (0) 40.10 36.61 (V97) (V98) %Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets 050 004 281 282 283 000 000 (C) (CV) (V) (0) (0) 44.47 0.00 (V37) (V00) 051 004 283 284 285 000 000 (V) (MV) (M) (0) (0) 42.29 0.00 (V38) (V00) 052 004 291 292 293 000 000 (M) (MO) (O) (0) (0) 22.62 0.00 (V40) (V00) 053 004 293 294 295 000 000 (O) (YO) (Y) (0) (0) 47.97 0.00 (V39) (V00) 054 004 301 302 303 000 000 (Y) (YL) (L) (0) (0) 46.22 0.00 (V41) (V00) 055 004 303 304 305 000 000 (L) (CL) (C) (0) (0) 31.36 0.00 (V42) (V00) %Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets 056 004 079 080 081 000 000 (W) (Wn) (WN) (0) (0) 40.10 0.00 (V97) (V00) 057 004 081 082 083 000 000 (WN) (Nw) (N) (0) (0) 36.61 0.00 (V98) (V00) ] def %END D57SERVia %************************************************************* /D57SERVi 2000 array def %max 57 series of 15 data (100x20) /D57SERVi [%BEG D57SERVi top data VIK_ELCD scaling data %0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %N S N1 N2 N3 N4 N5 NA1 NA2 NA3 NA4 NA5 DV*1i DV*2i VIK1 VIK2 %Serie 1, BAM test chart order 1:25 001 003 001 002 003 000 000 (W) (CW) (C) 6.06 7.92 25.24 39.23 (V01) (V02) 002 003 007 008 009 000 000 (W) (VW) (V) 3.03 7.44 33.11 46.66 (V03) (V04) 003 003 013 014 015 000 000 (W) (MW) (M) 4.15 7.21 30.92 45.35 (V05) (V06) 004 003 019 020 021 000 000 (W) (OW) (O) 6.27 5.35 26.55 46.66 (V07) (V08) 005 003 025 026 027 000 000 (W) (YW) (Y) 5.39 10.8 22.62 23.06 (V09) (V10) 006 003 031 032 033 000 000 (W) (LW) (L) 4.58 7.82 29.18 40.98 (V11) (V12) %Serie 2, BAM test chart order 1:25 007 003 037 038 039 000 000 (C) (CN) (N) 12.1 5.67 38.35 42.73 (V13) (V14) 008 003 043 044 045 000 000 (V) (VN) (N) 6.42 9.50 21.75 31.36 (V15) (V16) 009 003 049 050 051 000 000 (M) (MN) (N) 9.08 7.82 40.98 44.47 (V17) (V18) 010 003 055 056 057 000 000 (O) (ON) (N) 10.7 9.31 34.86 43.16 (V19) (V20) 011 003 061 062 063 000 000 (Y) (YN) (N) 10.0 6.88 35.73 47.97 (V21) (V22) 012 003 067 068 069 000 000 (L) (LN) (N) 9.87 10.7 36.17 42.29 (V23) (V24) %Serie 3, BAM test chart order 3:27 013 003 209 210 211 000 000 (W) (C) (N) 7.29 5.77 53.65 55.40 (V26) (V25) 014 003 215 216 217 000 000 (W) (V) (N) 6.27 11.1 65.02 29.61 (V28) (V27) 015 003 221 222 223 000 000 (W) (M) (N) 8.91 6.30 60.21 53.22 (V30) (V29) 016 003 227 228 229 000 000 (W) (O) (N) 8.56 9.81 58.46 48.84 (V32) (V31) 017 003 233 234 235 000 000 (W) (Y) (N) 17.1 8.41 37.38 61.52 (V34) (V33) 018 003 239 240 241 000 000 (W) (L) (N) 7.62 10.8 55.84 45.35 (V36) (V35) %Serie 4, BAM test chart order 3:27 019 003 245 246 247 000 000 (C) (V) (M) 11.2 13.7 44.47 42.29 (V37) (V38) 020 003 251 252 253 000 000 (M) (O) (Y) 6.30 11.1 22.62 47.97 (V40) (V39) 021 003 257 258 259 000 000 (Y) (L) (C) 10.3 8.29 46.22 31.36 (V41) (V42) 022 003 263 264 265 000 000 (V) (C) (L) 9.87 11.3 48.41 30.49 (V44) (V43) 023 003 269 270 271 000 000 (L) (Y) (O) 10.2 9.52 51.03 53.65 (V46) (V45) 024 003 275 276 277 000 000 (O) (M) (V) 10.6 11.3 23.49 48.84 (V47) (V48) %Serie 5, BAM test chart order 2:26 %dummy 26.00: values are missing 025 004 089 090 091 000 000 (W) (Wc) (CW) 6.06 6.06 25.24 0.481 (V01) (V00) 026 004 099 100 101 000 000 (W) (Wv) (VW) 7.44 7.44 33.11 0.497 (V03) (V00) 027 004 109 110 111 000 000 (W) (Wm) (MW) 4.15 4.15 30.92 0.492 (V05) (V00) 028 004 119 120 121 000 000 (W) (Wo) (OW) 6.27 6.27 26.55 0.493 (V07) (V00) 029 004 129 130 131 000 000 (W) (Wy) (YW) 5.39 5.39 22.62 0.358 (V09) (V00) 030 004 139 140 141 000 000 (W) (Wl) (LW) 4.58 4.58 29.18 0.492 (V11) (V00) %Serie 6, BAM test chart order 2:26 031 003 091 092 093 000 000 (CW) (Cw) (C) 6.30 12.2 22.62 27.87 (V62) (V61) 032 003 101 102 103 000 000 (VW) (Vw) (V) 7.21 11.3 26.99 33.98 (V64) (V63) 033 003 111 112 113 000 000 (MW) (Mw) (M) 8.76 10.0 28.30 35.73 (V66) (V65) 034 003 121 122 123 000 000 (OW) (Ow) (O) 7.31 10.8 24.37 33.98 (V68) (V67) 035 003 131 132 133 000 000 (YW) (Yw) (Y) 3.27 7.10 18.25 20.00 (V70) (V69) 036 003 141 142 143 000 000 (LW) (Lw) (L) 6.06 11.2 23.49 32.24 (V72) (V71) %Serie 7, BAM test chart order 2:26 037 003 149 150 151 000 000 (C) (Cn) (CN) 8.29 8.48 29.61 28.74 (V74) (V73) 038 003 159 160 161 000 000 (V) (Vn) (VN) 4.58 3.27 19.56 18.25 (V76) (V75) 039 003 169 170 171 000 000 (M) (Mn) (MN) 9.50 12.2 35.73 27.87 (V78) (V77) 040 003 179 180 181 000 000 (O) (On) (ON) 5.10 11.2 37.48 26.12 (V80) (V79) 041 003 189 190 191 000 000 (Y) (Yn) (YN) 12.1 8.65 38.35 30.49 (V82) (V81) 042 003 199 200 201 000 000 (L) (Ln) (LN) 10.3 10.3 33.11 26.99 (V84) (V83) %Serie 8, BAM test chart order 2:26 043 003 151 152 153 000 000 (CN) (Nc) (N) 7.62 9.08 37.48 26.12 (V86) (V85) 044 003 161 162 163 000 000 (VN) (Nv) (N) 6.69 3.27 20.43 18.25 (V88) (V87) 045 003 171 172 173 000 000 (MN) (Nm) (N) 9.08 6.27 34.86 28.30 (V90) (V89) 046 003 181 182 183 000 000 (ON) (No) (N) 9.73 9.73 33.98 27.87 (V92) (V91) 047 003 191 192 193 000 000 (YN) (Ny) (N) 6.74 12.6 39.67 34.86 (V94) (V93) 048 003 201 202 203 000 000 (LN) (Nl) (N) 10.2 9.08 32.24 26.12 (V96) (V95) %Serie 2N, BAM test chart order 1:25, 1 triplet 049 003 073 074 075 000 000 (W) (WN) (N) (0) (0) 40.10 36.61 (V97) (V98) %not used %Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets 050 004 281 282 283 000 000 (C) (CV) (V) (0) (0) 44.47 0.00 (V37) (V00) 051 004 283 284 285 000 000 (V) (MV) (M) (0) (0) 42.29 0.00 (V38) (V00) 052 004 291 292 293 000 000 (M) (MO) (O) (0) (0) 22.62 0.00 (V40) (V00) 053 004 293 294 295 000 000 (O) (YO) (Y) (0) (0) 47.97 0.00 (V39) (V00) 054 004 301 302 303 000 000 (Y) (YL) (L) (0) (0) 46.22 0.00 (V41) (V00) 055 004 303 304 305 000 000 (L) (CL) (C) (0) (0) 31.36 0.00 (V42) (V00) %Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets 056 004 079 080 081 000 000 (W) (Wn) (WN) (0) (0) 40.10 0.00 (V97) (V00) 057 004 081 082 083 000 000 (WN) (Nw) (N) (0) (0) 36.61 0.00 (V98) (V00) ] def %END D57SERVi /d_CIELABi 2800 array def /d_CIELCHi 2800 array def /d_C94LCHi 2800 array def /d_CMCLCHi 2800 array def /d_CM2LCHi 2800 array def /d_C00LCHi 2800 array def /d_C85LCHi 2800 array def /d_C77LCHi 2800 array def /d_C78LCHi 2800 array def /d_C79LCHi 2800 array def /d_CIELABmi 2800 array def /d_CIELCHmi 2800 array def /d_C94LCHmi 2800 array def /d_CMCLCHmi 2800 array def /d_CM2LCHmi 2800 array def /d_C00LCHmi 2800 array def /d_C85LCHmi 2800 array def /d_C77LCHmi 2800 array def /d_C78LCHmi 2800 array def /d_C79LCHmi 2800 array def /D13 1 3 div def /D841_108 841 108 div def /D4_29 4 29 div def /D6_29 6 29 div 3 exp def /proc_coldiff {%BEG procedure proc_coldiff proc_coldiff_WK58.PS 150529 %calculates CIE colour data and differences for 10 colour spaces %BEG CIELAB/CIELCH /FL 0.000001 def X0 XW div D6_29 gt {/FXXN0 X0 XW div 0.0001 add D13 exp def} {/FXXN0 D841_108 X0 XW div mul D4_29 add def} ifelse Y0 YW div D6_29 gt {/FYYN0 Y0 YW div 0.0001 add D13 exp def} {/FYYN0 D841_108 Y0 YW div mul D4_29 add def} ifelse Z0 ZW div D6_29 gt {/FZZN0 Z0 ZW div 0.0001 add D13 exp def} {/FZZN0 D841_108 Z0 ZW div mul D4_29 add def} ifelse /CIEL*0 116. FYYN0 mul 16. sub def /CIEa*0 500. FXXN0 FYYN0 sub mul def /CIEb*0 200. FYYN0 FZZN0 sub mul def /CIEC*ab0 CIEa*0 dup mul CIEb*0 dup mul add 0.0001 add sqrt def /CIEhab0 CIEb*0 CIEa*0 0.0001 add atan def X1 XW div D6_29 gt {/FXXN1 X1 XW div 0.0001 add D13 exp def} {/FXXN1 D841_108 X1 XW div mul D4_29 add def} ifelse Y1 YW div D6_29 gt {/FYYN1 Y1 YW div 0.0001 add D13 exp def} {/FYYN1 D841_108 Y1 YW div mul D4_29 add def} ifelse Z1 ZW div D6_29 gt {/FZZN1 Z1 ZW div 0.0001 add D13 exp def} {/FZZN1 D841_108 Z1 ZW div mul D4_29 add def} ifelse /CIEL*1 116. FYYN1 mul 16. sub def /CIEa*1 500. FXXN1 FYYN1 sub mul def /CIEb*1 200. FYYN1 FZZN1 sub mul def /CIEC*ab1 CIEa*1 dup mul CIEb*1 dup mul add 0.0001 add sqrt def /CIEhab1 CIEb*1 CIEa*1 0.0001 add atan def %mixed terms with *0 sn *1: /d_CIEL* CIEL*1 CIEL*0 sub def /d_CIEa* CIEa*1 CIEa*0 sub def /d_CIEb* CIEb*1 CIEb*0 sub def d_CIELABi i d_CIEL* dup mul d_CIEa* dup mul add d_CIEb* dup mul add 0.00000001 add sqrt put /a_CIELAB 1.26 def /b_CIELAB 0.55 def d_CIELABmi i d_CIELABi i get b_CIELAB exp a_CIELAB mul put /d_CIEh CIEhab1 CIEhab0 sub def %see CIEDE2000 page 4 CIEC*ab1 CIEC*ab0 mul 0 eq {/d_CIEh 0 def} if %CIEC*ab1 x CIEC*ab0 =0 CIEC*ab1 CIEC*ab0 mul 0 ne d_CIEh 180 gt and {/d_CIEh d_CIEh 360 sub def} if CIEC*ab1 CIEC*ab0 mul 0 ne d_CIEh -180 lt and {/d_CIEh d_CIEh 360 add def} if /d_CIEL CIEL*1 CIEL*0 sub def /d_CIECab CIEC*ab1 CIEC*ab0 sub def /d_CIEHab CIEC*ab1 CIEC*ab0 mul 0.000001 add sqrt 2 mul d_CIEh 0.5 mul sin mul def d_CIELCHi i d_CIEL dup mul d_CIECab dup mul add d_CIEHab dup mul add 0.000001 add sqrt put %alternative: %for 2 an 10 degree observer, see Richter (1996) %a'=0,2191 b'=-0,08376 a'10=0,2193, b'10=-0,08417 %a'2 and a'10 used for both 12 and 190 degree observer %BEG LABD65_1976=C76 /S76L 1 def /S76A 1 def /S76B 1 def /K76L 1 def /K76A 1 def /K76B 1 def /AS2 0.2191 def /BS2 -0.08376 def %C76a'=AS2*(x/y)**(1/3) %C76b'=BS2*(z/y)**(1/3) %C76L*=L*CIE %C76a*=500*[C76a'-C76a'n]*Y**(1/3) %C76b*=500*[C76b'-C76b'n]*Y**(1/3) /C76a'0 X0 Y0 FL add div 0.3333 exp AS2 mul def /C76a'1 X1 Y1 FL add div 0.3333 exp AS2 mul def /C76a'n XW YW FL add div 0.3333 exp AS2 mul def /C76b'0 Z0 Y0 FL add div 0.3333 exp BS2 mul def /C76b'1 Z1 Y1 FL add div 0.3333 exp BS2 mul def /C76b'n ZW YW FL add div 0.3333 exp BS2 mul def /C76a*0 C76a'0 C76a'n sub 500 mul Y0 1 3 div exp mul def /C76a*1 C76a'1 C76a'n sub 500 mul Y1 1 3 div exp mul def /C76b*0 C76b'0 C76b'n sub 500 mul Y0 1 3 div exp mul def /C76b*1 C76b'1 C76b'n sub 500 mul Y1 1 3 div exp mul def %name d_CIELCHi instead of d_LABD65i 1976 d_CIELCHi i CIEL*1 CIEL*0 sub K76L div S76L div dup mul C76a*1 C76a*0 sub K76A div S76A div dup mul add C76b*1 C76b*0 sub K76B div S76B div dup mul add 0.00000001 add sqrt put %END LABD65_1976=C76 /a_CIELCH 1.26 def /b_CIELCH 0.55 def d_CIELCHmi i d_CIELCHi i get b_CIELCH exp a_CIELCH mul put %BEG CIELAB/CIELCH %BEG CIE94 /S94L 1 def /S94C 1 0.045 CIEC*ab0 mul add def /S94H 1 0.015 CIEC*ab0 mul add def /K94L 1 def /K94C 1 def /K94H 1 def /LC94*0 CIEL*0 K94L div S94L div def /LC94*1 CIEL*1 K94L div S94L div def /CC94*ab0 CIEC*ab0 K94C div S94C div def /CC94*ab1 CIEC*ab1 K94C div S94C div def d_C94LCHi i CIEL*1 CIEL*0 sub K94L div S94L div dup mul CIEC*ab1 CIEC*ab0 sub K94C div S94C div dup mul add d_CIEHab K94H div S94H div dup mul add 0.00000001 add sqrt put /a_C94LCH 1.41 def /b_C94LCH 0.70 def d_C94LCHmi i d_C94LCHi i get b_C94LCH exp a_C94LCH mul put %END CIE94 %BEG CMC(l:c=1:1) %special mean m of two samples for SCML, SCMC, TCMC /CIEL*0m CIEL*0 CIEL*1 add 0.5 mul def /CMCC0S CIEC*ab0 def /CMCC1S CIEC*ab1 def /CIEC*ab0m CMCC0S CMCC1S add 0.5 mul def CIEC*ab0 0 eq {/CMCh0S 0 def} {/CMCh0S CIEb*0 CIEa*0 0.0001 add atan def } ifelse CIEC*ab1 0 eq {/CMCh1S 0 def} {/CMCh1S CIEb*1 CIEa*1 0.0001 add atan def } ifelse %beg special EQUATION (11) TO (14) /d_CMChS0 CMCh1S CMCh0S sub def %see CIEDE2000 page 4 CMCC1S CMCC0S mul 0 eq {/d_CMChS 0 def} if %CIEC*ab1 x CIEC*ab0 =0 CMCC1S CMCC0S mul 0 ne d_CMChS0 abs 180 le and {/d_CMChSm d_CMChS0 def} if CMCC1S CMCC0S mul 0 ne d_CMChS0 180 gt and {/d_CMChSm d_CMChS0 360 sub def} if CMCC1S CMCC0S mul 0 ne d_CMChS0 -180 lt and {/d_CMChSm d_CMChS0 360 add def} if %end special EQUATION (11) TO (14) %beg special EQUATION (23) TO (26) /a_CMChsm CMCh0S CMCh1S add 0.5 mul def /m_CMCCSm CMCC0S CMCC1S mul def d_CMChSm abs 180 le m_CMCCSm 0 ne and {/CMChSqm a_CMChsm def} if d_CMChSm abs 180 gt a_CMChsm 360 le and m_CMCCSm 0 ne and {/CMChSqm CMCh0S CMCh1S add 360 add 0.5 mul def} if d_CMChSm abs 180 gt a_CMChsm 360 ge and m_CMCCSm 0 ne and {/CMChSqm CMCh0S CMCh1S add 360 sub 0.5 mul def} if m_CMCCSm 0 eq {/CMChSqm CMCh0S CMCh1S add def } if %end special EQUATION (23) TO (26) CIEL*0m 16 lt {/SCMLm 0.511 def} {/SCMLm 0.040975 CIEL*0m mul 0.01765 CIEL*0m mul 1 add div def } ifelse /SCMCm 0.0638 CIEC*ab0m mul 0.0131 CIEC*ab0m mul 1 add div 0.638 add def %beg special /FCMCm CIEC*ab0m dup mul dup mul CIEC*ab0m dup mul dup mul 1900 add div sqrt def CMChSqm 164 lt CMChSqm 345 gt or {/TCMCm CMChSqm 35 add cos 0.4 mul abs 0.36 add def} {/TCMCm CMChSqm 168 add cos 0.2 mul abs 0.56 add def} ifelse %end special /SCMHm TCMCm FCMCm mul 1 add FCMCm sub SCMCm mul def /KCML 1 def %=l /KCMC 1 def %=c /KCMH 1 def %1 /CMCL*0m CIEL*0 KCML div SCMLm div def /CMCL*1m CIEL*1 KCML div SCMLm div def /CMCC*ab0m CIEC*ab0 KCMC div SCMCm div def /CMCC*ab1m CIEC*ab1 KCMC div SCMCm div def d_CMCLCHi i CIEL*1 CIEL*0 sub KCML div SCMLm div dup mul CIEC*ab1 CIEC*ab0 sub KCMC div SCMCm div dup mul add d_CIEHab KCMH div SCMHm div dup mul add 0.00000001 add sqrt put /a_CMCLCH 1.34 def /b_CMCLCH 0.66 def d_CMCLCHmi i d_CMCLCHi i get b_CMCLCH exp a_CMCLCH mul put %END CMC(m:l:c=m:1:1)=CMC %BEG CM2(m:l:c=m:1:2)=CM2 /KM2L 1 def %=l /KM2C 2 def %=c /KM2H 1 def %1 /CM2L*0 CIEL*0 KM2L div SCMLm div def /CM2L*1 CIEL*1 KM2L div SCMLm div def /CM2C*ab0 CIEC*ab0 KM2C div SCMCm div def /CM2C*ab1 CIEC*ab1 KM2C div SCMCm div def d_CM2LCHi i CIEL*1 CIEL*0 sub KM2L div SCMLm div dup mul CIEC*ab1 CIEC*ab0 sub KM2C div SCMCm div dup mul add d_CIEHab KM2H div SCMHm div dup mul add 0.00000001 add sqrt put %END CM2(m:l:c=m:1:2)=CM2 %BEG CIEDE2000=C00 %beg special equation (7) /CIEC*ab CIEC*ab0 CIEC*ab1 add 0.5 mul def /DEG 1 CIEC*ab 7 exp CIEC*ab 7 exp 25 7 exp add div 0.000001 add sqrt sub 0.5 mul def %end special equation (7) %beg special EQUATION (1) TO (6) %0 /C00L0S CIEL*0 def /C00a0S 1 DEG add CIEa*0 mul def /C00b0S CIEb*0 def /C00C0S C00a0S dup mul C00b0S dup mul add 0.000001 add sqrt def C00C0S 0 eq {/C00h0S 0 def} {/C00h0S C00b0S C00a0S 0.0001 add atan def } ifelse %1 /C00L1S CIEL*1 def /C00a1S 1 DEG add CIEa*1 mul def /C00b1S CIEb*1 def /C00C1S C00a1S dup mul C00b1S dup mul add 0.000001 add sqrt def C00C1S 0 eq {/C00h1S 0 def} {/C00h1S C00b1S C00a1S 0.0001 add atan def } ifelse %end special EQUATION (1) TO (6) %beg special EQUATION (11) TO (14) /d_C00hS0 C00h1S C00h0S sub def %see CIEDE2000 page 4 C00C1S C00C0S mul 0 eq {/d_C00hS 0 def} if %CIEC*ab1 x CIEC*ab0 =0 C00C1S C00C0S mul 0 ne d_C00hS0 abs 180 le and {/d_C00hS d_C00hS0 def} if C00C1S C00C0S mul 0 ne d_C00hS0 180 gt and {/d_C00hS d_C00hS0 360 sub def} if C00C1S C00C0S mul 0 ne d_C00hS0 -180 lt and {/d_C00hS d_C00hS0 360 add def} if %end special EQUATION (11) TO (14) %beg special EQUATION (8) TO (10) /d_C00LS C00L1S C00L0S sub def /d_C00aS C00a1S C00a0S sub def /d_C00bS C00b1S C00b0S sub def /d_C00CS C00C1S C00C0S sub def /d_C00HS C00C0S C00C1S mul 0.000001 add sqrt 2 mul d_C00hS 0.5 mul sin mul def %end special EQUATION (8) TO (10) %beg special EQUATION (23) TO (26) /a_C00hs C00h0S C00h1S add 0.5 mul def /m_C00CS C00C0S C00C1S mul def d_C00hS abs 180 le m_C00CS 0 ne and {/C00hSq a_C00hs def} if d_C00hS abs 180 gt a_C00hs 360 le and m_C00CS 0 ne and {/C00hSq C00h0S C00h1S add 360 add 0.5 mul def} if d_C00hS abs 180 gt a_C00hs 360 ge and m_C00CS 0 ne and {/C00hSq C00h0S C00h1S add 360 sub 0.5 mul def} if m_C00CS 0 eq {/C00hSq C00h0S C00h1S add def } if %end special EQUATION (23) TO (26) %beg special EQUATIONS (16) TO (22) /C00LSq C00L0S C00L1S add 0.5 mul def /C00CSq C00C0S C00C1S add 0.5 mul def /C00SL C00LSq 50 sub dup mul 0.015 mul C00LSq 50 sub dup mul 20 add sqrt div 1 add def /C00SC 0.045 C00CSq mul 1 add def %beg special T, RT, d_D, RC /C00T C00hSq 30 sub cos -0.17 mul C00hSq 2 mul cos 0.24 mul add C00hSq 3 mul 6 add cos 0.32 mul add C00hSq 4 mul 63 sub cos 0.20 mul sub 1 add def /C00SH 0.015 C00CSq mul C00T mul 1 add def /C00RC C00CSq 7 exp C00CSq 7 exp 25 7 exp add 0.000001 add div 0.000001 add sqrt 2 mul def /expDT C00hSq 275 sub 25 div dup mul def /econst 2.718281 def /C00DT 30 econst expDT neg exp mul def /C00RT C00DT 2 mul sin neg C00RC mul def %end special T, RT, d_D, RC %end special EQUATIONS (16) TO (22) %beg special EQUATION (15) /C00KL 1.0 def /C00KC 1.0 def /C00KH 1.0 def /d_C00LSN d_C00LS C00KL div C00SL div def /d_C00CSN d_C00CS C00KC div C00SC div def /d_C00HSN d_C00HS C00KH div C00SH div def d_C00LCHi i d_C00LSN dup mul d_C00CSN dup mul add d_C00HSN dup mul add d_C00CSN d_C00HSN mul C00RT mul add 0.000001 add sqrt put /a_C00LCH 1.43 def /b_C00LCH 0.70 def d_C00LCHmi i d_C00LCHi i get b_C00LCH exp a_C00LCH mul put %end special EQUATION (15) %END CIEDE2000=C00 %BEG LABJND=C85 /Yq Y0 Y1 add 0.5 mul def /d_Y Y1 Y0 sub def /a085 X0 Y0 0.000001 add div def /b085 Z0 Y0 0.000001 add div 0.4 mul neg def /a185 X1 Y1 0.000001 add div def /b185 Z1 Y1 0.000001 add div 0.4 mul neg def /an85 XW YW 0.000001 add div def /bn85 ZW YW 0.000001 add div 0.4 mul neg def /d_a085 a085 an85 sub def /d_b085 b085 bn85 sub def /d_a185 a185 an85 sub def /d_b185 b185 bn85 sub def /a0"85 d_a085 d_a085 abs 0.5 mul 1 add div an85 add def /b0"85 d_b085 d_b085 abs 0.5 mul 1 add div bn85 add def /a1"85 d_a185 d_a185 abs 0.5 mul 1 add div an85 add def /b1"85 d_b185 d_b185 abs 0.5 mul 1 add div bn85 add def /d_Y Y1 Y0 sub def /d_a"85 a1"85 a0"85 sub def /d_b"85 b1"85 b0"85 sub def /s85 0.0170 def /q85 0.0058 def /g85 1.0000 def %not used /a0085 1.0 def /b0085 1.8 def /Y0085 1.5 def d_C85LCHi i d_Y dup mul a0085 d_a"85 mul Yq mul dup mul add b0085 d_b"85 mul Yq mul dup mul add 0.000001 add sqrt Y0085 mul q85 Yq mul s85 add div put /a_C85LCH 1.17 def /b_C85LCH 0.35 def d_C85LCHmi i d_C85LCHi i get b_C85LCH exp a_C85LCH mul put %END LABJND=C85 %BEG LABHNU_1977=C77 /S77L 1 def /S77A 1 def /S77B 1 def /K77L 1 def /K77A 1 def /K77B 1 def %C77a'=(x/y+1/6)**(1/3)/4 %C77b'=-(z/y+1/6)**(1/3)/12 %C77L*=L*CIE %C77a*=500*[C77a'-C77a'n]*Y**(1/3) %C77b*=500*[C77b'-C77b'n]*Y**(1/3) /C77a'0 X0 Y0 FL add div 1 6 div add 0.3333 exp 4 div def /C77a'1 X1 Y1 FL add div 1 6 div add 0.3333 exp 4 div def /C77a'n XW YW FL add div 1 6 div add 0.3333 exp 4 div def /C77b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def /C77b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def /C77b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def /C77a*0 C77a'0 C77a'n sub 500 mul Y0 1 3 div exp mul def /C77a*1 C77a'1 C77a'n sub 500 mul Y1 1 3 div exp mul def /C77b*0 C77b'0 C77b'n sub 500 mul Y0 1 3 div exp mul def /C77b*1 C77b'1 C77b'n sub 500 mul Y1 1 3 div exp mul def d_C77LCHi i CIEL*1 CIEL*0 sub K77L div S77L div dup mul C77a*1 C77a*0 sub K77A div S77A div dup mul add C77b*1 C77b*0 sub K77B div S77B div dup mul add 0.00000001 add sqrt put %END LABHNU_1977=C77 %BEG LABHNU1=C78 /S78L 1 def /S78A 1 def /S78B 1 def /K78L 1 def /K78A 1 def /K78B 1 def %C78a'=(x/y+1)/15 %C78b'=-(z/y+1/6)**(1/3)/12 %C78L*=L*CIE %C78a*=500*[C78a'-C78a'n]*Y**(1/3) %C78b*=500*[C78b'-C78b'n]*Y**(1/3) /C78a'0 X0 Y0 FL add div 1 add 15 div def /C78a'1 X1 Y1 FL add div 1 add 15 div def /C78a'n XW YW FL add div 1 add 15 div def /C78b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def /C78b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def /C78b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def /C78a*0 C78a'0 C78a'n sub 500 mul Y0 1 3 div exp mul def /C78a*1 C78a'1 C78a'n sub 500 mul Y0 1 3 div exp mul def /C78b*0 C78b'0 C78b'n sub 500 mul Y0 1 3 div exp mul def /C78b*1 C78b'1 C78b'n sub 500 mul Y0 1 3 div exp mul def d_C78LCHi i CIEL*1 CIEL*0 sub K78L div S78L div dup mul C78a*1 C78a*0 sub K78A div S78A div dup mul add C78b*1 C78b*0 sub K78B div S78B div dup mul add 0.00000001 add sqrt put %END LABHNU1_1978-C78 %BEG LABHNU2_1979=C79 /S79L 1 def /S79A 1 def /S79B 1 def /K79L 1 def /K79A 1 def /K79B 1 def %C79a'=(x/y+1/6)**(2/3)/15 %C79b'=-(z/y+1/6)**(1/3)/12 %C79L*=L*CIE %C79a*=500*[C79a'-C79a'n]*Y**(1/3) %C79b*=500*[C79b'-C79b'n]*Y**(1/3) /C79a'0 X0 Y0 FL add div 1 6 div add 0.6667 exp 15 div def /C79a'1 X1 Y1 FL add div 1 6 div add 0.6667 exp 15 div def /C79a'n XW YW FL add div 1 6 div add 0.6667 exp 15 div def /C79b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def /C79b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def /C79b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def /C79a*0 C79a'0 C79a'n sub 500 mul Y0 1 3 div exp mul def /C79a*1 C79a'1 C79a'n sub 500 mul Y1 1 3 div exp mul def /C79b*0 C79b'0 C79b'n sub 500 mul Y0 1 3 div exp mul def /C79b*1 C79b'1 C79b'n sub 500 mul Y1 1 3 div exp mul def d_C79LCHi i CIEL*1 CIEL*0 sub K79L div S79L div dup mul C79a*1 C79a*0 sub K79A div S79A div dup mul add C79b*1 C79b*0 sub K79B div S79B div dup mul add 0.00000001 add sqrt put %END LABHNU2_1979=C79 } bind def %END procedure proc_coldiff %%EndProlog gsave /lanind 0 def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind le {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind le {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind le {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /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 %see Kittelmann DWORK, page 9 /XWD6502 95.05 def /YWD6502 100.00 def /ZWD6502 108.90 def /XW XWD6502 def /YW YWD6502 def /ZW ZWD6502 def /FL 0.000001 def /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /CIEL*0i 310 array def /CIEa*0i 310 array def /CIEb*0i 310 array def /X0i 310 array def /Y0i 310 array def /Z0i 310 array def %calculate XYZ-values for 310 colours 0 1 309 {/i exch def %i=0,309 /i10 i 10 mul def CIEL*0i i LAB_KIi i10 1 add get put CIEa*0i i LAB_KIi i10 2 add get put CIEb*0i i LAB_KIi i10 3 add get put /X* {CIEL*0i i get 16 add 116 div CIEa*0i i get 500 div add} bind def /Y* {CIEL*0i i get 16 add 116 div} bind def /Z* {CIEL*0i i get 16 add 116 div CIEb*0i i get 200 div sub} bind def X0i i X* DecodeXYZ* XW mul put Y0i i Y* DecodeXYZ* YW mul put Z0i i Z* DecodeXYZ* ZW mul put } for %i=0,309 %************************************************************* /Wdata1 3500 array def %max 350x10 data /Wdata2 3500 array def /IM 056 def %(max IM=056; IM=46=without series C-V- and W-Wn-WN-Nw-N /IM0 113 def %(max IM=057)*2-1 = 057 X 2-1 %default data 0 1 IM0 {/i exch def %i=0,IM0 /i10 i 10 mul def 0 1 9 {/j exch def %j=0,9 Wdata1 i10 j add 1. put Wdata2 i10 j add 1. put } for %j=0,9 } for %i=0,IM0 /D57xSERi 2000 array def /xchart4 1 def %xchart4=0 and 1: calculation for WANG or VIK pair comparison data 0 1 IM {/ii exch def %ii=0,IM /i16 ii 16 mul def 0 1 15 {/j exch def %j=0,15 xchart4 0 eq {D57xSERi i16 j add D57SERWi i16 j add get put} if xchart4 1 eq {D57xSERi i16 j add D57SERVi i16 j add get put} if } for %j=0,15 } for %ii=0,IM /DV*1 200 array def /DV*2 200 array def /DVS1 200 array def /DVS2 200 array def %default data 0 1 IM {/ii exch def %ii=0,IM /i16 ii 16 mul def DV*1 ii 1. put %default DV*2 ii 1. put } for %ii=0,IM %for WANG and VIK 0 1 IM {/ii exch def %ii=0,IM /D57xSER12 D57xSERi i16 12 add get def /D57xSER13 D57xSERi i16 13 add get def DV*1 ii D57xSER12 put DV*2 ii D57xSER13 put xchart4 0 eq {%xchart4=0 %corection for WANG only D57xSER12 0 ne {%D57xSER12#0 DV*1 ii D57xSER12 42.62 div 1. 1.1322 div exp 10 mul put } if %D57xSER12#0 D57xSER13 0 ne {%D57xSER13#0 DV*2 ii D57xSER13 42.62 div 1. 1.1322 div exp 10 mul put } if %D57xSER13#0 } if %xchart4=0 %corection for WANG only } for %ii=0,IM /xchartl 4 def %0 1 5 {/xchartl exch def %xchartl=0,5 gsave 5 /Times-ISOL1 FS 215 85 moveto (XE391-7N) show 72 90 translate /ytit 550 def /yhoe 4000 def /yhoet yhoe ytit sub def /xwide 06000 def /ishow {-50 -100 rmoveto 200 /Times-ISOL1 FS show 0 100 rmoveto TM} bind def 0.01 MM 0.01 MM scale 15 setlinewidth 0.0 0.0 0.0 0.5 setcmykcolor 0 0 moveto xwide 0 rlineto 0 yhoet rlineto xwide neg 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmykcolor 0 0 moveto xwide 0 rlineto 0 yhoet rlineto xwide neg 0 rlineto closepath stroke /yt 300 def %y-Zeilenabstand for text /yd 400 def %y-Zeilenabstand for formula %Titeltext /xt1 0 def /yt1 300 def /S10 100 def /S11 800 def /S20 3250 def /S30 4000 def /Z10 2500 def /Z1C 2200 def /Z1V 1900 def /Z1M 1600 def /Z1O 1300 def /Z1Y 1000 def /Z1L 0700 def /Z1N 0400 def /Z1W 0100 def %HUE CIRCLE /xd 1550 def /yd 5000 def /xp 1550 def /yp 5000 def /xdN xd def /ydN yd 2000 sub def /xdW xd def /ydW yd def /xdR xd 2000 add def /ydR yd 1000 sub def /xm 600 def /xip xd xm 2 mul add def /yip ydN xm 2 mul add def /xi1 xd xm 1 mul sub def /yi1 ydW xm 0.5 mul sub def /xi2 xd xm 2 mul add def /yi2 ydN 400 sub def %************************************************************************* %constant hue planes /xt1 -1000 def /yt1 -2670 def xt1 yt1 translate /xpp xp 350 sub def 0 setgray xpp yp 0850 add moveto /xshift 3200 def TBIK (BAM) show TBK (\2555stufige Farbreihen gleichabst\344ndig in CIELAB) showde ( 5 step colour series equally spaced in CIELAB) showen TBS xpp yp 0600 add moveto xchart4 0 eq {%xchart4=0 (CIELAB Farbdifferenzen ) showde (CIELAB colour differences ) showen SS (D) show TBIS (E*) show TBV 0 -50 rmoveto (ab) show 0 50 rmoveto } if %xchart4=0 xchart4 1 eq {%xchart4=1 (visuelle Farbdifferenzen ) showde (visual colour differences ) showen SS (D) show TBIS (V*) show TBV 0 -50 rmoveto (Vik) show 0 50 rmoveto } if %xchart4=1 /xfact 2000 100 div def /yfact 2000 100 div def /yshift 0800 def /xpW xpp def /ypW yp 200 sub def /ym 0 def /ix -1 def /cwdif4 7 array def /cwdif2 7 array def /cwdif1 7 array def /cndif4 7 array def /cndif2 7 array def /cndif1 7 array def /cwdifx 7 array def /cndifx 7 array def /cwstd4 7 array def /cwstd2 7 array def /cwstd1 7 array def /cnstd4 7 array def /cnstd2 7 array def /cnstd1 7 array def /cwstdx 7 array def /cnstdx 7 array def /wName 7 array def /nName 7 array def /DLAB21ik 7 array def /DLAB32ik 7 array def /DV*1ik 7 array def /DV*2ik 7 array def /DVS1ik 7 array def /DVS2ik 7 array def %default 0 1 6 {/i exch def cwdif4 i 4 put cwdif2 i 2 put cwdif1 i 1 put cndif4 i 40 put cndif2 i 20 put cndif1 i 10 put wName i (W) put nName i (N) put } for /ik 0 def 0 1 6 {/ik exch def %ik=0,6 %7 series %025 W-Wc-CW 089-090-091 %031 CW-Cw-C 091-092-093 %037 C-Cn-CN 149-150-151 %043 CN-Nc-N 151-152-153 %001 W-CW-C 001-002-003 %007 C-CN-N 037-038-039 %013 W-C-N 209-210-211 ik 0 eq {/ii 025 1 sub def} if ik 1 eq {/ii 031 1 sub def} if ik 2 eq {/ii 037 1 sub def} if ik 3 eq {/ii 043 1 sub def} if ik 4 eq {/ii 001 1 sub def} if ik 5 eq {/ii 007 1 sub def} if ik 6 eq {/ii 013 1 sub def} if %6 series/figures /ii ii xchartl add def /i16 ii 16 mul def /S D57xSERi i16 1 add get def S 4 eq {%S=4 /DREL D57xSERi i16 13 add get def DV*1ik ik D57xSERi i16 12 add get DREL mul put DV*2ik ik D57xSERi i16 12 add get 1 DREL sub mul put } if %S=4 S 3 eq {%S=3 DV*1ik ik D57xSERi i16 12 add get put DV*2ik ik D57xSERi i16 13 add get put } if %S=3 %always standard deviation DVS1ik ik D57xSERi i16 10 add get put DVS2ik ik D57xSERi i16 11 add get put /N1 D57xSERi i16 2 add get 1 sub def %Nx-count STARTs at "1" /N2 D57xSERi i16 3 add get 1 sub def /N3 D57xSERi i16 4 add get 1 sub def ik 0 eq {wName 0 D57xSERi i16 7 add get put wName 1 D57xSERi i16 8 add get put wName 2 D57xSERi i16 9 add get put} if ik 1 eq {wName 3 D57xSERi i16 8 add get put wName 4 D57xSERi i16 9 add get put} if ik 2 eq {nName 0 D57xSERi i16 7 add get put nName 1 D57xSERi i16 8 add get put nName 2 D57xSERi i16 9 add get put} if ik 3 eq {nName 3 D57xSERi i16 8 add get put nName 4 D57xSERi i16 9 add get put} if /X10 X0i N1 get def /Y10 Y0i N1 get def /Z10 Z0i N1 get def /X20 X0i N2 get def /Y20 Y0i N2 get def /Z20 Z0i N2 get def /X30 X0i N3 get def /Y30 Y0i N3 get def /Z30 Z0i N3 get def 0 1 1 {/i exch def %i=0,1 i 0 eq {%i=0,1 /X0 X20 def /Y0 Y20 def /Z0 Z20 def /X1 X10 def /Y1 Y10 def /Z1 Z10 def } if %i=0 i 1 eq {%i=1 /X0 X20 def /Y0 Y20 def /Z0 Z20 def /X1 X30 def /Y1 Y30 def /Z1 Z30 def } if %i=1 proc_coldiff } for %i=0,1 DLAB21ik ik d_CIELABi 0 get put DLAB32ik ik d_CIELABi 1 get put %025 ik=0 W-Wc-CW 089-090-091 %031 ik=1 CW-Cw-C 091-092-093 %037 ik=2 C-Cn-CN 149-150-151 %043 ik=3 CN-Nc-N 151-152-153 %001 ik=4 W-CW-C 001-002-003 %007 ik=5 C-CN-N 037-038-039 %013 ik=6 W-C-N 209-210-211 %/ioutk 1 def %ioutk 0 eq {%ioutk=0 xchart4 0 eq {%xchart4=0 ik 0 eq {cwdifx 0 DLAB21ik ik get put %W-Wc-CW cwdifx 1 DLAB32ik ik get put} if ik 1 eq {cwdifx 2 DLAB21ik ik get put %CW-Cw-C cwdifx 3 DLAB32ik ik get put} if ik 2 eq {cndifx 0 DLAB21ik ik get put %C-Cn-CN cndifx 1 DLAB32ik ik get put} if ik 3 eq {cndifx 2 DLAB21ik ik get put %CN-Nc-N cndifx 3 DLAB32ik ik get put} if ik 4 eq {cwdifx 4 DLAB21ik ik get put %W-CW-C cwdifx 5 DLAB32ik ik get put} if ik 5 eq {cndifx 4 DLAB21ik ik get put %C-CN-N cndifx 5 DLAB32ik ik get put} if ik 6 eq {cwdifx 6 DLAB21ik ik get put %W-C-N cndifx 6 DLAB32ik ik get put} if } if %xchart4=0 %} if %ioutk=0 %ioutk 1 eq {%ioutk=1 xchart4 1 eq {%xchart4=1 ik 0 eq {cwdifx 0 DV*1ik ik get put %W-Wc-CW cwdifx 1 DV*2ik ik get put} if ik 1 eq {cwdifx 2 DV*1ik ik get put %CW-Cw-C cwdifx 3 DV*2ik ik get put} if ik 2 eq {cndifx 0 DV*1ik ik get put %C-Cn-CN cndifx 1 DV*2ik ik get put} if ik 3 eq {cndifx 2 DV*1ik ik get put %CN-Nc-N cndifx 3 DV*2ik ik get put} if ik 4 eq {cwdifx 4 DV*1ik ik get put %W-CW-C cwdifx 5 DV*2ik ik get put} if ik 5 eq {cndifx 4 DV*1ik ik get put %C-CN-N cndifx 5 DV*2ik ik get put} if ik 6 eq {cwdifx 6 DV*1ik ik get put %W-C-N cndifx 6 DV*2ik ik get put} if ik 0 eq {cwstdx 0 DVS1ik ik get put %W-Wc-CW cwstdx 1 DVS2ik ik get put} if ik 1 eq {cwstdx 2 DVS1ik ik get put %CW-Cw-C cwstdx 3 DVS2ik ik get put} if ik 2 eq {cnstdx 0 DVS1ik ik get put %C-Cn-CN cnstdx 1 DVS2ik ik get put} if ik 3 eq {cnstdx 2 DVS1ik ik get put %CN-Nc-N cnstdx 3 DVS2ik ik get put} if ik 4 eq {cwstdx 4 DVS1ik ik get put %W-CW-C cwstdx 5 DVS2ik ik get put} if ik 5 eq {cnstdx 4 DVS1ik ik get put %C-CN-N cnstdx 5 DVS2ik ik get put} if ik 6 eq {cwstdx 6 DVS1ik ik get put %W-C-N cnstdx 6 DVS2ik ik get put} if } if %xchart4=1 %} if %ioutk=1 } for %ik=0,6 %7 series 0 1 3 {/ik exch def %ik=0,3 cwdif4 ik cwdifx ik get 0.49 add cvi put cndif4 ik cndifx ik get 0.49 add cvi put } for %ik=0,3 0 1 1 {/ik exch def %ik=0,1 cwdif2 ik cwdifx ik 4 add get 0.49 add cvi put cndif2 ik cndifx ik 4 add get 0.49 add cvi put } for %ik=0,1 cwdif1 0 cwdifx 6 get 0.49 add cvi put cndif1 0 cndifx 6 get 0.49 add cvi put xchart4 1 eq {%xchart4=1 0 1 3 {/ik exch def %ik=0,3 cwstd4 ik cwstdx ik get 0.49 add cvi put cnstd4 ik cnstdx ik get 0.49 add cvi put } for %ik=0,3 0 1 1 {/ik exch def %ik=0,1 cwstd2 ik cwstdx ik 4 add get 0.49 add cvi put cnstd2 ik cnstdx ik 4 add get 0.49 add cvi put } for %ik=0,1 cwstd1 0 cwstdx 6 get 0.49 add cvi put cnstd1 0 cnstdx 6 get 0.49 add cvi put } if %xchart4=1 %STOP5 newpath /k 0 def /j 0 def /i 0 def 0 1 2 {/k exch def %k=0,2 %three rows /ys yshift k mul def 0 1 1 {/j exch def %j=0,1 %left, right /xs xshift j mul def k 0 eq {TBS j 0 eq {%j=0 1 1 1 setrgbcolor xpp yp 0300 add moveto (helle Serie ) showde (light series ) showen wName 4 get show ( nach W) showde ( to W) showen } if %j=0 j 1 eq {%j=1 0 0 0 setrgbcolor xp 450 sub xshift add yp 0300 add moveto (dunkle Serie ) showde (dark series ) showen nName 0 get show ( nach N) showde ( to N) showen } if %j=1 } if %k=0 TS 0 0 0 setrgbcolor 0 1 4 {/i exch def %i=0,4 %five colours /xi xpW xm i mul add xs add def %NW /yi ypW ym i mul add ys sub def % xpW ypW moveto (START, i, wName) show % i cvishow % wName i get show k 0 eq {xi 100 sub yi 200 add moveto j 0 eq {wName 4 i sub get show} if j 1 eq {nName i get show} if newpath } if k 0 eq i 3 le and {xi 100 add yi 350 sub moveto j 0 eq {cwdif4 3 i sub get cvishow} if j 1 eq {cndif4 i get cvishow} if xchart4 1 eq {%xchart4=1 (\261) show %+/- j 0 eq {cwstd4 3 i sub get cvishow} if j 1 eq {cnstd4 i get cvishow} if } if %xchart4=1 newpath } if k 0 eq i 1 le and {xi 400 add i 500 mul add yi 1150 sub moveto j 0 eq {cwdif2 1 i sub get cvishow} if j 1 eq {cndif2 i get cvishow} if xchart4 1 eq {%xchart4=1 (\261) show %+/- j 0 eq {cwstd2 1 i sub get cvishow} if j 1 eq {cnstd2 i get cvishow} if } if %xchart4=1 newpath } if k 0 eq i 0 le and {xi 1000 add i 500 mul add yi 2000 sub moveto j 0 eq {cwdif1 0 get cvishow} if j 1 eq {cndif1 0 get cvishow} if xchart4 1 eq {%xchart4=1 (\261) show %+/- j 0 eq {cwstd1 0 get cvishow} if j 1 eq {cnstd1 0 get cvishow} if } if %xchart4=1 newpath } if i 0 eq i 4 eq or {0 0 0 setrgbcolor xi yi 140 0 360 arc fill } if j 0 eq {%j=0 /w i 4 div def xchartl 0 eq {w 1 1 setrgbcolor} if %C-W xchartl 1 eq {w w 1 setrgbcolor} if %V-W xchartl 2 eq {1 w 1 setrgbcolor} if %M-W xchartl 3 eq {1 w w setrgbcolor} if %O-W xchartl 4 eq {1 1 w setrgbcolor} if %Y-W xchartl 5 eq {w 1 w setrgbcolor} if %L-W } if %j=0 j 1 eq {%j=1 /w 1 i 4 div sub def xchartl 0 eq {0 w w setrgbcolor} if %C-N xchartl 1 eq {0 0 w setrgbcolor} if %V-N xchartl 2 eq {w 0 w setrgbcolor} if %M-N xchartl 3 eq {w 0 0 setrgbcolor} if %O-N xchartl 4 eq {w w 0 setrgbcolor} if %Y-N xchartl 5 eq {0 w 0 setrgbcolor} if %L-N } if %j=1 xi yi 070 0 360 arc fill i 0 eq i 4 eq or {0 0 0 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if k 0 eq {%k=0 i 1 ge i 3 le and {%k=0 and all i 0 0 0 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if %i=2 and k<2 } if %k=0 k 1 eq i 2 eq and {%k=1 and i=2 0 0 0 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if %k=1 and i=2 i 4 eq j 1 eq and {%i=4 and j=1 %cross in black N 1 1 1 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if %i=4 and j=1 } for %i=0,4 } for %j=0,1 } for %k=0,2 xt1 neg yt1 neg translate %************************************************************************* showpage grestore %} for %xchartl=0,5 %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 03 MM sub 020 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM moveto ( ) show 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 28 %line 499 %!PS-Adobe-3.0 EPSF-3.0 XE391-8N %%BoundingBox: 70 83 245 190 %START PDFDE011.EPS /pdfmark18 where {pop} {userdict /pdfmark18 /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://130.149.60.45/~farbmetrik/SE25/) /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, colour vision) /Creator (klaus.richter@mac.com) /CreationDate (D:2016070112000) /ModDate (D:2016070112000) /DOCINFO pdfmark18 [ /View [ /FitB ] /DOCVIEW pdfmark18 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /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 /TV {160 /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 /TIV {160 /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 /TBV {160 /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 /TBIV {160 /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 /SV {160 /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 %%EndProlog gsave /nshow {TS show} bind def /kshow {TIS show} bind def /bshow {TBS show} bind def /jshow {TBIS show} bind def /ibshown {TBS -50 -50 rmoveto show 0 50 rmoveto TBS} bind def /ibshow0 {TBS -00 -50 rmoveto show 0 50 rmoveto TBS} bind def /ishown {TS -50 -50 rmoveto show 0 50 rmoveto TS } bind def /ishow0 {TS -00 -50 rmoveto show 0 50 rmoveto TS } bind def %40% kleiner /ns4 {250 /Times-ISOL1 FS show TK} bind def /ks4 {250 /TimesI-ISOL1 FS show TK} bind def /bs4 {250 /TimesB-ISOL1 FS show TK} bind def /js4 {250 /TimesBI-ISOL1 FS show TK} bind def /ss4 {250 /Symbol FS show TK} bind def /is4 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /es4 {200 /Times-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ib4 {200 /TimesB-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /eb4 {200 /TimesB-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ip4 {200 /Times-ISOL1 FS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def %60% kleiner /ns6 {200 /Times-ISOL1 FS show TS} bind def /ks6 {200 /TimesI-ISOL1 FS show TS} bind def /bs6 {200 /TimesB-ISOL1 FS show TS} bind def /js6 {200 /TimesBI-ISOL1 FS show TS} bind def /ss6 {200 /Symbol FS show TS} bind def /is6 {160 /Times-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /es6 {160 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ib6 {160 /TimesB-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /eb6 {160 /TimesB-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ip6 {160 /Times-ISOL1 FS 24 24 rmoveto (\267) show 24 -24 rmoveto TS} bind /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show} def %************************************************************* %Aus Kittelmann_CD_DA/Daten der Ausertung/ %Farbwerte der Farbfelder und Reihen.xls/CIELAB_1 %siehe auch Dipl-Arbeit Seite 31 ff /LAB_KIi 3100 array def %310x10 /LAB_KIi [ %n L*r a*r b*r L*t a*t b*t E*r-t C*r h*r % L*r a*r b*r CIELAB data of 310 printel samples, see page 34 % 95.410 -0.980 4.760 ISO 15775 Papierweiss Tab. 2.2 1 94.806 -1.832 6.977 95.410 -0.980 4.760 2.450 7.213 104.710 2 76.937 -16.536 -18.248 77.015 -15.805 -18.995 1.048 24.626 227.818 3 59.410 -30.942 -42.455 58.620 -30.630 -42.750 0.899 52.534 233.915 4 94.807 -1.883 7.035 95.410 -0.980 4.760 2.520 7.282 104.985 5 76.919 -16.503 -18.327 77.015 -15.805 -18.995 0.971 24.663 227.998 6 59.468 -30.964 -42.431 58.620 -30.630 -42.750 0.966 52.528 233.880 7 94.796 -1.848 7.051 95.410 -0.980 4.760 2.526 7.289 104.684 8 60.143 15.422 -18.907 60.565 15.185 -19.800 1.016 24.399 309.204 9 27.166 31.237 -43.580 25.720 31.350 -44.360 1.646 53.619 305.632 10 94.811 -1.797 6.812 95.410 -0.980 4.760 2.288 7.045 104.775 11 60.039 15.614 -19.124 60.565 15.185 -19.800 0.958 24.689 309.231 12 27.145 31.257 -43.757 25.720 31.350 -44.360 1.550 53.774 305.539 13 94.813 -1.742 6.702 95.410 -0.980 4.760 2.170 6.925 104.573 14 71.354 37.382 -0.087 71.770 37.110 -1.020 1.057 37.382 359.867 15 48.299 74.762 -6.470 48.130 75.200 -6.800 0.573 75.042 355.054 16 94.862 -1.790 6.808 95.410 -0.980 4.760 2.269 7.039 104.734 17 71.430 37.531 -0.146 71.770 37.110 -1.020 1.028 37.531 359.777 18 48.348 75.034 -6.602 48.130 75.200 -6.800 0.338 75.324 354.972 19 94.829 -1.679 6.457 95.410 -0.980 4.760 1.925 6.672 104.576 20 71.895 30.271 30.198 71.675 32.165 28.415 2.611 42.758 44.931 21 48.389 65.379 52.900 47.940 65.310 52.070 0.946 84.100 38.977 22 94.841 -1.727 6.563 95.410 -0.980 4.760 2.033 6.787 104.743 23 71.834 30.282 30.495 71.675 32.165 28.415 2.810 42.976 45.200 24 48.373 65.160 52.576 47.940 65.310 52.070 0.683 83.726 38.899 25 94.856 -1.811 6.930 95.410 -0.980 4.760 2.389 7.163 104.645 26 91.995 -9.864 53.175 92.890 -6.070 50.465 4.747 54.082 100.509 27 88.831 -7.617 100.643 90.370 -11.160 96.170 5.910 100.931 94.328 28 94.840 -1.857 6.961 95.410 -0.980 4.760 2.437 7.204 104.938 29 91.969 -9.864 53.060 92.890 -6.070 50.465 4.688 53.969 100.532 30 88.822 -7.585 99.964 90.370 -11.160 96.170 5.438 100.251 94.339 31 94.843 -1.831 6.986 95.410 -0.980 4.760 2.450 7.223 104.689 32 72.670 -33.310 23.706 73.155 -31.970 20.735 3.296 40.885 144.561 33 52.763 -62.634 40.725 50.900 -62.960 36.710 4.438 74.710 146.968 34 94.844 -1.844 6.940 95.410 -0.980 4.760 2.413 7.181 104.883 35 72.659 -33.330 23.584 73.155 -31.970 20.735 3.195 40.830 144.717 36 52.751 -62.659 40.456 50.900 -62.960 36.710 4.189 74.585 147.152 37 59.858 -30.723 -42.299 58.620 -30.630 -42.750 1.321 52.279 234.008 38 39.512 -15.438 -20.098 38.315 -15.065 -21.605 1.960 25.343 232.471 39 20.439 0.604 1.879 18.010 0.500 -0.460 3.374 1.974 72.184 40 59.843 -30.628 -42.217 58.620 -30.630 -42.750 1.334 52.157 234.039 41 39.472 -15.216 -20.290 38.315 -15.065 -21.605 1.759 25.361 233.132 42 20.596 0.834 1.790 18.010 0.500 -0.460 3.444 1.975 65.031 43 28.050 31.224 -43.592 25.720 31.350 -44.360 2.457 53.621 305.613 44 24.428 16.573 -21.290 21.865 15.925 -22.410 2.871 26.980 307.898 45 20.775 1.062 1.849 18.010 0.500 -0.460 3.646 2.132 60.115 46 27.951 31.592 -43.586 25.720 31.350 -44.360 2.374 53.831 305.935 47 24.413 16.789 -21.558 21.865 15.925 -22.410 2.822 27.324 307.911 48 20.742 1.238 1.780 18.010 0.500 -0.460 3.609 2.168 55.193 49 47.685 75.265 -6.106 48.130 75.200 -6.800 0.827 75.513 355.362 50 34.058 36.976 -1.848 33.070 37.850 -3.630 2.217 37.022 357.138 51 19.828 0.759 1.618 18.010 0.500 -0.460 2.773 1.787 64.874 52 47.770 75.333 -6.073 48.130 75.200 -6.800 0.823 75.577 355.391 53 34.024 36.746 -1.841 33.070 37.850 -3.630 2.308 36.792 357.131 54 19.895 0.766 1.713 18.010 0.500 -0.460 2.889 1.877 65.917 55 48.084 65.391 53.701 47.940 65.310 52.070 1.639 84.616 39.394 56 33.902 32.769 28.182 32.975 32.905 25.805 2.555 43.221 40.696 57 20.096 0.689 1.832 18.010 0.500 -0.460 3.105 1.958 69.398 58 48.093 65.240 53.510 47.940 65.310 52.070 1.449 84.377 39.358 59 33.983 32.963 28.200 32.975 32.905 25.805 2.599 43.379 40.547 60 20.045 0.703 1.815 18.010 0.500 -0.460 3.059 1.946 68.836 61 88.969 -7.916 99.202 90.370 -11.160 96.170 4.656 99.517 94.562 62 54.202 -4.710 50.539 54.190 -5.330 47.855 2.755 50.758 95.324 63 20.513 1.218 2.043 18.010 0.500 -0.460 3.612 2.379 59.195 64 88.968 -7.927 98.732 90.370 -11.160 96.170 4.357 99.050 94.591 65 54.261 -4.648 50.299 54.190 -5.330 47.855 2.539 50.514 95.279 66 20.641 0.847 1.666 18.010 0.500 -0.460 3.401 1.869 63.062 67 53.549 -61.840 40.746 50.900 -62.960 36.710 4.956 74.057 146.619 68 35.886 -31.821 20.383 34.455 -31.230 18.125 2.738 37.790 147.359 69 20.920 1.315 2.010 18.010 0.500 -0.460 3.903 2.401 56.801 70 53.497 -62.212 40.195 50.900 -62.960 36.710 4.410 74.067 147.134 71 35.953 -31.500 20.084 34.455 -31.230 18.125 2.481 37.358 147.479 72 20.895 1.150 1.709 18.010 0.500 -0.460 3.667 2.059 56.060 73 94.784 -1.844 6.954 95.410 -0.980 4.760 2.440 7.194 104.855 74 57.474 -0.187 4.308 56.710 -0.240 2.150 2.290 4.312 92.481 75 19.853 0.660 2.057 18.010 0.500 -0.460 3.124 2.160 72.205 76 94.850 -1.803 6.917 95.410 -0.980 4.760 2.376 7.148 104.613 77 57.492 -0.158 4.396 56.710 -0.240 2.150 2.380 4.399 92.060 78 19.840 0.774 1.873 18.010 0.500 -0.460 2.978 2.026 67.556 79 94.712 -1.740 6.671 95.410 -0.980 4.760 2.171 6.894 104.624 80 75.767 -1.256 4.576 76.060 -0.610 3.455 1.327 4.745 105.346 81 57.770 -0.029 4.084 56.710 -0.240 2.150 2.215 4.084 90.406 82 38.879 0.418 3.397 37.360 0.130 0.845 2.983 3.422 82.988 83 20.500 0.760 1.906 18.010 0.500 -0.460 3.445 2.052 68.276 84 94.746 -1.749 6.752 95.410 -0.980 4.760 2.236 6.975 104.522 85 75.784 -1.036 4.321 76.060 -0.610 3.455 1.004 4.443 103.478 86 57.797 0.122 4.078 56.710 -0.240 2.150 2.243 4.080 88.280 87 38.909 0.429 3.229 37.360 0.130 0.845 2.859 3.258 82.432 88 20.404 0.745 1.681 18.010 0.500 -0.460 3.221 1.839 66.098 89 94.821 -1.758 6.747 95.410 -0.980 4.760 2.214 6.973 104.604 90 86.389 -9.074 -6.237 86.213 -8.393 -7.118 1.128 11.011 214.502 91 76.787 -16.568 -18.756 77.015 -15.805 -18.995 0.832 25.026 228.543 92 68.577 -23.637 -30.298 67.818 -23.218 -30.873 1.041 38.427 232.040 93 59.128 -30.875 -42.876 58.620 -30.630 -42.750 0.578 52.835 234.243 94 94.810 -1.748 6.756 95.410 -0.980 4.760 2.221 6.978 104.505 95 86.419 -8.953 -6.387 86.213 -8.393 -7.118 0.943 10.998 215.505 96 76.820 -16.491 -18.789 77.015 -15.805 -18.995 0.742 25.000 228.727 97 68.658 -23.582 -30.348 67.818 -23.218 -30.873 1.056 38.433 232.151 98 59.211 -30.905 -42.735 58.620 -30.630 -42.750 0.652 52.739 234.127 99 94.672 -1.678 6.502 95.410 -0.980 4.760 2.016 6.715 104.470 100 78.300 7.067 -7.013 77.988 7.103 -7.520 0.597 9.956 315.220 101 60.293 15.348 -19.582 60.565 15.185 -19.800 0.385 24.880 308.089 102 44.203 22.986 -31.712 43.143 23.268 -32.080 1.157 39.167 305.936 103 27.016 31.165 -43.974 25.720 31.350 -44.360 1.365 53.898 305.325 104 94.830 -1.783 6.928 95.410 -0.980 4.760 2.383 7.154 104.433 105 78.257 7.039 -7.270 77.988 7.103 -7.520 0.373 10.119 314.077 106 60.155 15.718 -20.231 60.565 15.185 -19.800 0.798 25.619 307.845 107 44.111 23.540 -32.017 43.143 23.268 -32.080 1.008 39.740 306.324 108 26.626 33.169 -44.169 25.720 31.350 -44.360 2.042 55.237 306.905 109 94.830 -1.701 6.558 95.410 -0.980 4.760 2.022 6.775 104.543 110 83.971 17.488 2.916 83.590 18.065 1.870 1.254 17.729 9.468 111 71.531 37.398 -0.616 71.770 37.110 -1.020 0.550 37.403 359.056 112 60.110 56.166 -3.810 59.950 56.155 -3.910 0.189 56.295 356.120 113 48.082 74.995 -6.574 48.130 75.200 -6.800 0.309 75.282 354.990 114 94.878 -1.729 6.630 95.410 -0.980 4.760 2.084 6.852 104.617 115 83.935 17.501 2.928 83.590 18.065 1.870 1.247 17.744 9.497 116 71.513 37.496 -0.695 71.770 37.110 -1.020 0.566 37.502 358.938 117 60.110 56.159 -3.719 59.950 56.155 -3.910 0.249 56.282 356.211 118 48.182 74.902 -6.412 48.130 75.200 -6.800 0.492 75.176 355.107 119 94.804 -1.818 7.199 95.410 -0.980 4.760 2.649 7.425 104.176 120 82.777 14.554 17.861 83.543 15.593 16.588 1.812 23.040 50.825 121 71.216 31.512 29.973 71.675 32.165 28.415 1.750 43.490 43.566 122 59.233 49.560 42.426 59.808 48.738 40.243 2.403 65.239 40.565 123 47.901 65.572 53.795 47.940 65.310 52.070 1.745 84.815 39.365 124 94.772 -1.833 6.825 95.410 -0.980 4.760 2.324 7.067 105.036 125 82.720 14.616 17.563 83.543 15.593 16.588 1.607 22.849 50.232 126 71.256 31.437 30.263 71.675 32.165 28.415 2.030 43.636 43.910 127 59.267 49.547 42.334 59.808 48.738 40.243 2.306 65.169 40.511 128 47.815 65.383 53.061 47.940 65.310 52.070 1.001 84.204 39.061 129 94.840 -1.780 6.905 95.410 -0.980 4.760 2.359 7.131 104.455 130 93.112 -6.364 28.580 94.150 -3.525 27.613 3.174 29.280 102.554 131 92.030 -9.686 51.982 92.890 -6.070 50.465 4.014 52.877 100.555 132 90.731 -10.442 77.889 91.630 -8.615 73.318 5.005 78.586 97.636 133 88.925 -7.755 98.630 90.370 -11.160 96.170 4.442 98.935 94.496 134 94.750 -1.706 6.774 95.410 -0.980 4.760 2.240 6.985 104.140 135 93.456 -6.983 29.551 94.150 -3.525 27.613 4.024 30.365 103.295 136 91.762 -9.588 54.588 92.890 -6.070 50.465 5.536 55.424 99.962 137 90.523 -9.923 78.975 91.630 -8.615 73.318 5.912 79.596 97.161 138 88.450 -7.383 99.721 90.370 -11.160 96.170 5.528 99.994 94.234 139 94.774 -1.701 6.618 95.410 -0.980 4.760 2.092 6.833 104.419 140 84.620 -17.161 14.272 84.283 -16.475 12.748 1.706 22.320 140.250 141 72.841 -32.934 22.138 73.155 -31.970 20.735 1.731 39.683 146.092 142 63.629 -47.768 31.268 62.028 -47.465 28.723 3.022 57.091 146.792 143 53.074 -62.749 39.986 50.900 -62.960 36.710 3.938 74.407 147.493 144 94.824 -1.732 6.644 95.410 -0.980 4.760 2.111 6.866 104.611 145 84.610 -17.132 14.251 84.283 -16.475 12.748 1.673 22.284 140.245 146 72.795 -32.837 21.866 73.155 -31.970 20.735 1.470 39.451 146.341 147 63.609 -47.604 30.857 62.028 -47.465 28.723 2.660 56.730 147.049 148 53.068 -62.538 39.758 50.900 -62.960 36.710 3.764 74.106 147.554 149 59.304 -30.836 -42.453 58.620 -30.630 -42.750 0.774 52.471 234.007 150 48.835 -23.073 -32.162 48.468 -22.848 -32.178 0.431 39.582 234.345 151 38.544 -15.514 -20.880 38.315 -15.065 -21.605 0.883 26.012 233.387 152 28.577 -8.727 -9.949 28.163 -7.283 -11.033 1.853 13.234 228.743 153 19.400 0.578 1.071 18.010 0.500 -0.460 2.069 1.217 61.645 154 59.283 -30.812 -42.644 58.620 -30.630 -42.750 0.696 52.611 234.150 155 49.013 -23.128 -32.035 48.468 -22.848 -32.178 0.630 39.512 234.172 156 38.632 -15.429 -21.396 38.315 -15.065 -21.605 0.526 26.379 234.205 157 28.626 -9.032 -10.165 28.163 -7.283 -11.033 2.007 13.598 228.377 158 19.526 0.414 1.083 18.010 0.500 -0.460 2.165 1.159 69.068 159 26.747 31.469 -43.910 25.720 31.350 -44.360 1.128 54.022 305.628 160 25.010 24.152 -33.934 23.793 23.638 -33.385 1.431 41.651 305.440 161 23.199 16.450 -22.261 21.865 15.925 -22.410 1.441 27.680 306.463 162 21.560 8.223 -9.882 19.938 8.213 -11.435 2.246 12.856 309.764 163 19.767 0.771 1.400 18.010 0.500 -0.460 2.573 1.598 61.142 164 26.466 33.265 -43.952 25.720 31.350 -44.360 2.096 55.121 307.121 165 24.531 25.256 -34.061 23.793 23.638 -33.385 1.903 42.403 306.557 166 22.532 17.348 -22.759 21.865 15.925 -22.410 1.610 28.617 307.317 167 21.297 9.116 -10.038 19.938 8.213 -11.435 2.148 13.559 312.243 168 20.241 1.362 2.421 18.010 0.500 -0.460 3.745 2.778 60.648 169 47.954 75.045 -6.124 48.130 75.200 -6.800 0.715 75.294 355.335 170 39.935 56.633 -5.204 40.600 56.525 -5.215 0.674 56.872 354.750 171 34.317 37.076 -2.591 33.070 37.850 -3.630 1.798 37.166 356.003 172 27.113 19.906 0.097 25.540 19.175 -2.045 2.756 19.906 0.279 173 20.282 0.865 1.650 18.010 0.500 -0.460 3.122 1.863 62.340 174 48.114 74.940 -6.437 48.130 75.200 -6.800 0.447 75.216 355.091 175 40.005 56.475 -5.385 40.600 56.525 -5.215 0.621 56.731 354.553 176 34.340 37.261 -2.923 33.070 37.850 -3.630 1.569 37.376 355.515 177 27.115 19.691 -0.318 25.540 19.175 -2.045 2.394 19.694 359.076 178 20.357 0.721 1.317 18.010 0.500 -0.460 2.952 1.501 61.306 179 47.885 65.560 53.596 47.940 65.310 52.070 1.548 84.680 39.267 180 40.159 49.175 39.907 40.458 49.108 38.938 1.017 63.331 39.061 181 33.458 32.557 27.471 32.975 32.905 25.805 1.770 42.598 40.158 182 26.575 18.004 15.031 25.493 16.703 12.673 2.904 23.454 39.858 183 19.509 0.349 1.149 18.010 0.500 -0.460 2.205 1.201 73.119 184 47.899 65.372 53.449 47.940 65.310 52.070 1.381 84.441 39.270 185 40.193 49.025 39.636 40.458 49.108 38.938 0.752 63.043 38.955 186 33.443 32.649 27.569 32.975 32.905 25.805 1.843 42.732 40.179 187 26.586 17.967 15.189 25.493 16.703 12.673 3.021 23.527 40.209 188 19.559 0.718 1.107 18.010 0.500 -0.460 2.214 1.319 57.028 189 88.855 -7.734 98.558 90.370 -11.160 96.170 4.442 98.861 94.487 190 72.418 -8.190 74.514 72.280 -8.245 72.013 2.506 74.962 96.272 191 53.856 -5.000 49.618 54.190 -5.330 47.855 1.824 49.869 95.755 192 37.368 -2.171 26.048 36.100 -2.415 23.698 2.682 26.138 94.764 193 19.741 0.588 1.403 18.010 0.500 -0.460 2.544 1.521 67.252 194 88.335 -7.243 99.966 90.370 -11.160 96.170 5.821 100.228 94.144 195 72.521 -8.080 74.951 72.280 -8.245 72.013 2.953 75.385 96.153 196 54.041 -4.892 50.769 54.190 -5.330 47.855 2.951 51.005 95.504 197 37.291 -2.102 27.349 36.100 -2.415 23.698 3.854 27.430 94.394 198 20.047 1.076 1.865 18.010 0.500 -0.460 3.144 2.153 60.022 199 52.992 -62.907 39.847 50.900 -62.960 36.710 3.771 74.466 147.649 200 44.029 -47.586 30.202 42.678 -47.095 27.418 3.134 56.361 147.598 201 35.211 -32.267 19.159 34.455 -31.230 18.125 1.648 37.526 149.301 202 26.980 -16.066 9.803 26.233 -15.365 8.833 1.411 18.821 148.611 203 20.466 0.704 1.621 18.010 0.500 -0.460 3.225 1.767 66.517 204 52.908 -62.721 39.980 50.900 -62.960 36.710 3.845 74.379 147.486 205 43.965 -47.550 30.261 42.678 -47.095 27.418 3.154 56.362 147.527 206 35.087 -31.927 19.339 34.455 -31.230 18.125 1.536 37.328 148.796 207 26.972 -15.836 9.697 26.233 -15.365 8.833 1.232 18.569 148.519 208 20.294 0.770 1.635 18.010 0.500 -0.460 3.111 1.808 64.791 209 94.809 -1.830 6.976 95.410 -0.980 4.760 2.449 7.212 104.699 210 58.984 -30.966 -42.837 58.620 -30.630 -42.750 0.503 52.858 234.137 211 19.349 0.469 1.318 18.010 0.500 -0.460 2.226 1.398 70.426 212 94.944 -1.846 7.105 95.410 -0.980 4.760 2.543 7.341 104.567 213 58.971 -30.882 -42.895 58.620 -30.630 -42.750 0.456 52.855 234.248 214 19.176 0.272 0.555 18.010 0.500 -0.460 1.563 0.618 63.872 215 94.790 -1.802 6.934 95.410 -0.980 4.760 2.405 7.164 104.566 216 26.440 31.213 -44.153 25.720 31.350 -44.360 0.762 54.072 305.257 217 19.441 0.489 1.328 18.010 0.500 -0.460 2.290 1.415 69.769 218 94.798 -1.798 6.914 95.410 -0.980 4.760 2.385 7.145 104.579 219 26.313 31.108 -44.083 25.720 31.350 -44.360 0.697 53.954 305.210 220 19.377 0.342 0.924 18.010 0.500 -0.460 1.951 0.985 69.704 221 94.819 -1.802 6.895 95.410 -0.980 4.760 2.363 7.127 104.645 222 47.850 74.956 -6.176 48.130 75.200 -6.800 0.726 75.210 355.289 223 19.840 0.541 1.276 18.010 0.500 -0.460 2.523 1.386 67.045 224 94.770 -1.747 6.714 95.410 -0.980 4.760 2.194 6.937 104.589 225 47.821 75.208 -5.965 48.130 75.200 -6.800 0.890 75.444 355.465 226 19.694 0.611 1.037 18.010 0.500 -0.460 2.255 1.203 59.503 227 94.825 -1.776 6.746 95.410 -0.980 4.760 2.218 6.976 104.750 228 48.028 65.260 53.084 47.940 65.310 52.070 1.019 84.124 39.126 229 19.876 0.685 0.983 18.010 0.500 -0.460 2.366 1.198 55.119 230 94.757 -1.745 6.631 95.410 -0.980 4.760 2.124 6.857 104.740 231 48.025 65.348 52.692 47.940 65.310 52.070 0.629 83.945 38.880 232 19.948 0.440 0.952 18.010 0.500 -0.460 2.398 1.049 65.224 233 94.873 -1.904 7.232 95.410 -0.980 4.760 2.693 7.478 104.749 234 88.844 -7.513 99.977 90.370 -11.160 96.170 5.488 100.259 94.298 235 19.166 0.454 1.197 18.010 0.500 -0.460 2.021 1.280 69.252 236 94.774 -1.875 7.051 95.410 -0.980 4.760 2.540 7.296 104.892 237 88.796 -7.519 99.400 90.370 -11.160 96.170 5.115 99.684 94.326 238 19.338 0.352 0.841 18.010 0.500 -0.460 1.865 0.912 67.297 239 94.804 -1.889 7.199 95.410 -0.980 4.760 2.672 7.443 104.699 240 52.200 -63.279 39.813 50.900 -62.960 36.710 3.380 74.762 147.823 241 19.336 0.468 1.313 18.010 0.500 -0.460 2.214 1.394 70.403 242 94.841 -1.856 7.078 95.410 -0.980 4.760 2.542 7.317 104.693 243 52.201 -63.318 39.205 50.900 -62.960 36.710 2.837 74.473 148.235 244 19.327 0.532 0.810 18.010 0.500 -0.460 1.830 0.969 56.705 245 59.110 -30.725 -42.847 58.620 -30.630 -42.750 0.508 52.725 234.357 246 26.841 31.207 -43.931 25.720 31.350 -44.360 1.209 53.887 305.389 247 47.998 74.766 -5.917 48.130 75.200 -6.800 0.993 74.999 355.475 248 59.180 -30.727 -42.860 58.620 -30.630 -42.750 0.579 52.736 234.363 249 26.918 30.963 -43.680 25.720 31.350 -44.360 1.431 53.541 305.332 250 47.960 74.748 -5.974 48.130 75.200 -6.800 0.957 74.987 355.431 251 47.932 74.957 -6.193 48.130 75.200 -6.800 0.683 75.213 355.277 252 47.999 65.290 53.196 47.940 65.310 52.070 1.127 84.217 39.172 253 88.840 -7.715 98.748 90.370 -11.160 96.170 4.567 99.049 94.467 254 47.938 74.793 -6.065 48.130 75.200 -6.800 0.862 75.039 355.364 255 47.995 65.199 52.614 47.940 65.310 52.070 0.558 83.781 38.902 256 88.992 -7.768 98.150 90.370 -11.160 96.170 4.162 98.457 94.525 257 88.806 -7.564 99.378 90.370 -11.160 96.170 5.066 99.666 94.353 258 52.054 -63.456 39.583 50.900 -62.960 36.710 3.136 74.790 148.045 259 58.953 -30.907 -42.839 58.620 -30.630 -42.750 0.442 52.824 234.190 260 88.799 -7.554 99.130 90.370 -11.160 96.170 4.923 99.418 94.358 261 52.114 -63.302 39.247 50.900 -62.960 36.710 2.833 74.482 148.202 262 59.070 -30.873 -42.721 58.620 -30.630 -42.750 0.513 52.709 234.145 263 26.607 31.110 -43.675 25.720 31.350 -44.360 1.146 53.622 305.462 264 58.916 -30.902 -42.852 58.620 -30.630 -42.750 0.414 52.832 234.204 265 52.088 -63.025 39.540 50.900 -62.960 36.710 3.070 74.401 147.897 266 26.722 30.906 -43.822 25.720 31.350 -44.360 1.220 53.624 305.194 267 59.121 -30.882 -42.788 58.620 -30.630 -42.750 0.562 52.769 234.181 268 52.256 -63.141 39.105 50.900 -62.960 36.710 2.758 74.269 148.229 269 52.510 -62.813 39.840 50.900 -62.960 36.710 3.523 74.382 147.615 270 88.821 -7.677 99.211 90.370 -11.160 96.170 4.876 99.507 94.425 271 47.854 65.422 53.179 47.940 65.310 52.070 1.118 84.309 39.106 272 52.472 -62.907 39.443 50.900 -62.960 36.710 3.153 74.250 147.912 273 88.911 -7.687 98.611 90.370 -11.160 96.170 4.488 98.910 94.458 274 48.184 65.048 53.192 47.940 65.310 52.070 1.177 84.027 39.274 275 47.989 65.268 53.085 47.940 65.310 52.070 1.017 84.130 39.122 276 47.951 74.898 -5.916 48.130 75.200 -6.800 0.951 75.131 355.484 277 26.916 31.080 -43.714 25.720 31.350 -44.360 1.386 53.637 305.412 278 48.097 65.075 52.962 47.940 65.310 52.070 0.936 83.903 39.141 279 47.899 75.065 -6.424 48.130 75.200 -6.800 0.461 75.339 355.109 280 26.923 31.161 -44.194 25.720 31.350 -44.360 1.229 54.075 305.188 281 59.056 -30.846 -42.596 58.620 -30.630 -42.750 0.510 52.592 234.090 282 42.393 -0.024 -43.358 42.170 0.360 -43.555 0.485 43.358 269.969 283 26.201 31.341 -43.878 25.720 31.350 -44.360 0.681 53.922 305.538 284 35.879 52.754 -25.625 36.925 53.275 -25.580 1.170 58.649 334.092 285 47.697 75.104 -5.768 48.130 75.200 -6.800 1.123 75.325 355.608 286 59.077 -30.803 -42.830 58.620 -30.630 -42.750 0.495 52.757 234.277 287 42.530 0.124 -43.449 42.170 0.360 -43.555 0.443 43.449 270.163 288 26.456 31.114 -43.949 25.720 31.350 -44.360 0.875 53.848 305.297 289 36.149 53.085 -25.997 36.925 53.275 -25.580 0.901 59.109 333.908 290 47.813 74.760 -5.930 48.130 75.200 -6.800 1.026 74.995 355.465 291 47.681 75.057 -5.678 48.130 75.200 -6.800 1.217 75.271 355.674 292 48.009 70.346 23.542 48.035 70.255 22.635 0.912 74.181 18.503 293 47.948 65.385 53.204 47.940 65.310 52.070 1.137 84.297 39.135 294 69.043 27.507 75.803 69.155 27.075 74.120 1.742 80.640 70.055 295 88.877 -7.732 98.861 90.370 -11.160 96.170 4.607 99.162 94.472 296 47.708 75.078 -5.934 48.130 75.200 -6.800 0.971 75.312 355.481 297 48.137 70.269 23.468 48.035 70.255 22.635 0.839 74.085 18.468 298 47.993 65.415 53.124 47.940 65.310 52.070 1.060 84.269 39.080 299 69.008 27.609 75.411 69.155 27.075 74.120 1.405 80.306 69.892 300 88.950 -7.638 98.601 90.370 -11.160 96.170 4.509 98.897 94.429 301 88.888 -7.777 98.464 90.370 -11.160 96.170 4.348 98.770 94.516 302 69.977 -37.776 67.450 70.635 -37.060 66.440 1.402 77.308 119.251 303 52.753 -62.962 39.380 50.900 -62.960 36.710 3.250 74.263 147.976 304 56.064 -46.601 -2.263 54.760 -46.795 -3.020 1.520 46.656 182.780 305 59.454 -30.783 -42.623 58.620 -30.630 -42.750 0.858 52.577 234.163 306 88.698 -7.654 98.411 90.370 -11.160 96.170 4.484 98.708 94.447 307 69.890 -37.662 67.446 70.635 -37.060 66.440 1.389 77.249 119.179 308 52.671 -62.821 38.863 50.900 -62.960 36.710 2.791 73.870 148.258 309 55.892 -46.803 -2.516 54.760 -46.795 -3.020 1.239 46.871 183.077 310 59.528 -30.492 -42.511 58.620 -30.630 -42.750 0.949 52.316 234.349 ] def %LAB_KIi %************************************************************* /D57SERWi 2000 array def %max 57 series of 15 data (100x20) /D57SERWi [%BEG D57SERWi top data WANG_ELCD scaling data %0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %N S N1 N2 N3 N4 N5 NA1 NA2 NA3 NA4 NA5 DV*1i DV*2i WANG1 WANG2 %Serie 1, BAM test chart order 1:25 001 003 001 002 003 000 000 (W) (CW) (C) (0) (0) 26.45 26.39 (W03) (W04) 002 003 007 008 009 000 000 (W) (VW) (V) (0) (0) 29.54 41.95 (W13) (W14) 003 003 013 014 015 000 000 (W) (MW) (M) (0) (0) 31.00 32.74 (W23) (W24) 004 003 019 020 021 000 000 (W) (OW) (O) (0) (0) 28.01 37.64 (W33) (W34) 005 003 025 026 027 000 000 (W) (YW) (Y) (0) (0) 16.99 11.01 (W43) (W44) 006 003 031 032 033 000 000 (W) (LW) (L) (0) (0) 25.44 28.39 (W53) (W54) %Serie 2, BAM test chart order 1:25 007 003 037 038 039 000 000 (C) (CN) (N) (0) (0) 25.80 35.47 (W06) (W05) 008 003 043 044 045 000 000 (V) (VN) (N) (0) (0) 9.30 16.62 (W16) (W15) 009 003 049 050 051 000 000 (M) (MN) (N) (0) (0) 26.80 29.68 (W26) (W25) 010 003 055 056 057 000 000 (O) (ON) (N) (0) (0) 30.62 34.58 (W36) (W35) 011 003 061 062 063 000 000 (Y) (YN) (N) (0) (0) 29.85 41.77 (W46) (W45) 012 003 067 068 069 000 000 (L) (LN) (N) (0) (0) 18.79 35.12 (W56) (W55) %Serie 3, BAM test chart order 3:27 013 003 209 210 211 000 000 (W) (C) (N) (0) (0) 64.17 61.50 (W01) (W02) 014 003 215 216 217 000 000 (W) (V) (N) (0) (0) 67.03 32.91 (W11) (W12) 015 003 221 222 223 000 000 (W) (M) (N) (0) (0) 74.48 61.26 (W21) (W22) 016 003 227 228 229 000 000 (W) (O) (N) (0) (0) 71.77 67.21 (W31) (W32) 017 003 233 234 235 000 000 (W) (Y) (N) (0) (0) 37.26 86.10 (W41) (W42) 018 003 239 240 241 000 000 (W) (L) (N) (0) (0) 50.89 56.11 (W51) (W52) %Serie 4, BAM test chart order 3:27 019 003 245 246 247 000 000 (C) (V) (M) (0) (0) 41.67 45.01 (W09) (W19) 020 003 251 252 253 000 000 (M) (O) (Y) (0) (0) 28.41 72.32 (W29) (W39) 021 003 257 258 259 000 000 (Y) (L) (C) (0) (0) 64.80 40.72 (W49) (W59) 022 003 263 264 265 000 000 (V) (C) (L) (0) (0) 41.67 40.72 (W09) (W59) 023 003 269 270 271 000 000 (L) (Y) (O) (0) (0) 64.80 72.32 (W49) (W39) 024 003 275 276 277 000 000 (O) (M) (V) (0) (0) 28.41 45.01 (W29) (W19) %Serie 5, BAM test chart order 2:26 %values are missing 025 004 089 090 091 000 000 (W) (Wc) (CW) (0) (0) 26.45 0.00 (W03) (W00) 026 004 099 100 101 102 103 (W) (Wv) (VW) (0) (0) 29.54 0.00 (W13) (W00) 027 004 109 110 111 112 113 (W) (Wm) (MW) (0) (0) 31.00 0.00 (W23) (W00) 028 004 119 120 121 122 123 (W) (Wo) (OW) (0) (0) 28.01 0.00 (W33) (W00) 029 004 129 130 131 132 133 (W) (Wy) (YW) (0) (0) 16.99 0.00 (W43) (W00) 030 004 139 140 141 142 143 (W) (Wl) (LW) (0) (0) 25.44 0.00 (W53) (W00) %Serie 6, BAM test chart order 2:26 031 004 091 092 093 000 000 (CW) (Cw) (C) (0) (0) 26.39 0.00 (W04) (W00) 032 004 101 102 103 000 000 (VW) (Vw) (V) (0) (0) 41.95 0.00 (W14) (W00) 033 004 111 112 113 000 000 (MW) (Mw) (M) (0) (0) 32.74 0.00 (W24) (W00) 034 004 121 122 123 000 000 (OW) (Ow) (O) (0) (0) 37.64 0.00 (W34) (W00) 035 004 131 132 133 000 000 (YW) (Yw) (Y) (0) (0) 110.1 0.00 (W44) (W00) 036 004 141 142 143 000 000 (LW) (Lw) (L) (0) (0) 28.39 0.00 (W54) (W00) %Serie 7, BAM test chart order 2:26 037 004 149 150 151 000 000 (C) (Cn) (CN) (0) (0) 25.80 0.00 (W06) (W00) 038 004 159 160 161 000 000 (V) (Vn) (VN) (0) (0) 9.30 0.00 (W16) (W00) 039 004 169 170 171 000 000 (M) (Mn) (MN) (0) (0) 26.80 0.00 (W26) (W00) 040 004 179 180 181 000 000 (O) (On) (ON) (0) (0) 30.62 0.00 (W36) (W00) 041 004 189 190 191 000 000 (Y) (Yn) (YN) (0) (0) 29.85 0.00 (W46) (W00) 042 004 199 200 201 000 000 (L) (Ln) (LN) (0) (0) 18.79 0.00 (W56) (W00) %Serie 8, BAM test chart order 2:26 043 004 151 152 153 000 000 (CN) (Nc) (N) (0) (0) 61.50 0.00 (W02) (W00) 044 004 161 162 163 000 000 (VN) (Nv) (N) (0) (0) 32.91 0.00 (W12) (W00) 045 004 171 172 173 000 000 (MN) (Nm) (N) (0) (0) 61.26 0.00 (W22) (W00) 046 004 181 182 183 000 000 (ON) (No) (N) (0) (0) 67.21 0.00 (W32) (W00) 047 004 191 192 193 000 000 (YN) (Ny) (N) (0) (0) 86.10 0.00 (W42) (W00) 048 004 201 202 203 000 000 (LN) (Nl) (N) (0) (0) 56.11 0.00 (W52) (W00) %Serie 2N, BAM test chart order 1:25, 1 triplet 049 003 073 074 075 000 000 (W) (WN) (N) (0) (0) 10.00 9.00 (W61) (W62) %Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets 050 004 281 282 283 000 000 (C) (CV) (V) (0) (0) 41.67 0.00 (W09) (W00) 051 004 283 284 285 000 000 (V) (MV) (M) (0) (0) 45.01 0.00 (W19) (W00) 052 004 291 292 293 000 000 (M) (MO) (O) (0) (0) 28.41 0.00 (W29) (W00) 053 004 293 294 295 000 000 (O) (YO) (Y) (0) (0) 72.32 0.00 (W39) (W00) 054 004 301 302 303 000 000 (Y) (YL) (L) (0) (0) 64.80 0.00 (W49) (W00) 055 004 303 304 305 000 000 (L) (CL) (C) (0) (0) 40.72 0.00 (W59) (W00) %Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets 056 004 079 080 081 000 000 (W) (Wn) (WN) (0) (0) 10.00 0.00 (W61) (W00) 057 004 081 082 083 000 000 (WN) (Nw) (N) (0) (0) 9.00 0.00 (W62) (W00) ] def %END D57SERWi %************************************************************* /D57SERVia 2000 array def %max 57 series of 15 data (100x20) /D57SERVia [%BEG D57SERVia top data VIK_ELCD scaling data %0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %N S N1 N2 N3 N4 N5 NA1 NA2 NA3 NA4 NA5 DV*1i DV*2i VIK1 VIK2 %Serie 1, BAM test chart order 1:25 001 003 001 002 003 000 000 (W) (CW) (C) (0) (0) 25.24 39.23 (V01) (V02) 002 003 007 008 009 000 000 (W) (VW) (V) (0) (0) 33.11 46.66 (V03) (V04) 003 003 013 014 015 000 000 (W) (MW) (M) (0) (0) 30.92 45.35 (V05) (V06) 004 003 019 020 021 000 000 (W) (OW) (O) (0) (0) 26.55 46.66 (V07) (V08) 005 003 025 026 027 000 000 (W) (YW) (Y) (0) (0) 22.62 23.06 (V09) (V10) 006 003 031 032 033 000 000 (W) (LW) (L) (0) (0) 29.18 40.98 (V11) (V12) %Serie 2, BAM test chart order 1:25 007 003 037 038 039 000 000 (C) (CN) (N) (0) (0) 38.35 42.73 (V13) (V14) 008 003 043 044 045 000 000 (V) (VN) (N) (0) (0) 21.75 31.36 (V15) (V16) 009 003 049 050 051 000 000 (M) (MN) (N) (0) (0) 40.98 44.47 (V17) (V18) 010 003 055 056 057 000 000 (O) (ON) (N) (0) (0) 34.86 43.16 (V19) (V20) 011 003 061 062 063 000 000 (Y) (YN) (N) (0) (0) 35.73 47.97 (V21) (V22) 012 003 067 068 069 000 000 (L) (LN) (N) (0) (0) 36.17 42.29 (V23) (V24) %Serie 3, BAM test chart order 3:27 013 003 209 210 211 000 000 (W) (C) (N) (0) (0) 53.65 55.40 (V26) (V25) 014 003 215 216 217 000 000 (W) (V) (N) (0) (0) 65.02 29.61 (V28) (V27) 015 003 221 222 223 000 000 (W) (M) (N) (0) (0) 60.21 53.22 (V30) (V29) 016 003 227 228 229 000 000 (W) (O) (N) (0) (0) 58.46 48.84 (V32) (V31) 017 003 233 234 235 000 000 (W) (Y) (N) (0) (0) 37.38 61.52 (V34) (V33) 018 003 239 240 241 000 000 (W) (L) (N) (0) (0) 55.84 45.35 (V36) (V35) %Serie 4, BAM test chart order 3:27 019 003 245 246 247 000 000 (C) (V) (M) (0) (0) 44.47 42.29 (V37) (V38) 020 003 251 252 253 000 000 (M) (O) (Y) (0) (0) 22.62 47.97 (V40) (V39) 021 003 257 258 259 000 000 (Y) (L) (C) (0) (0) 46.22 31.36 (V41) (V42) 022 003 263 264 265 000 000 (V) (C) (L) (0) (0) 48.41 30.49 (V44) (V43) 023 003 269 270 271 000 000 (L) (Y) (O) (0) (0) 51.03 53.65 (V46) (V45) 024 003 275 276 277 000 000 (O) (M) (V) (0) (0) 23.49 48.84 (V47) (V48) %Serie 5, BAM test chart order 2:26 %dummy 26.00: values are missing 025 003 089 090 091 000 000 (W) (Wc) (CW) (0) (0) 25.24 26.00 (V01) (V00) 026 003 099 100 101 000 000 (W) (Wv) (VW) (0) (0) 33.11 26.00 (V03) (V00) 027 003 109 110 111 000 000 (W) (Wm) (MW) (0) (0) 30.92 26.00 (V05) (V00) 028 003 119 120 121 000 000 (W) (Wo) (OW) (0) (0) 26.55 26.00 (V07) (V00) 029 003 129 130 131 000 000 (W) (Wy) (YW) (0) (0) 22.62 26.00 (V09) (V00) 030 003 139 140 141 000 000 (W) (Wl) (LW) (0) (0) 29.18 26.00 (V11) (V00) %Serie 6, BAM test chart order 2:26 031 003 091 092 093 000 000 (CW) (Cw) (C) (0) (0) 22.62 27.87 (V62) (V61) 032 003 101 102 103 000 000 (VW) (Vw) (V) (0) (0) 26.99 33.98 (V64) (V63) 033 003 111 112 113 000 000 (MW) (Mw) (M) (0) (0) 28.30 35.73 (V66) (V65) 034 003 121 122 123 000 000 (OW) (Ow) (O) (0) (0) 24.37 33.98 (V68) (V67) 035 003 131 132 133 000 000 (YW) (Yw) (Y) (0) (0) 18.25 20.00 (V70) (V69) 036 003 141 142 143 000 000 (LW) (Lw) (L) (0) (0) 23.49 32.24 (V72) (V71) %Serie 7, BAM test chart order 2:26 037 003 149 150 151 000 000 (C) (Cn) (CN) (0) (0) 29.61 28.74 (V74) (V73) 038 003 159 160 161 000 000 (V) (Vn) (VN) (0) (0) 19.56 18.25 (V76) (V75) 039 003 169 170 171 000 000 (M) (Mn) (MN) (0) (0) 35.73 27.87 (V78) (V77) 040 003 179 180 181 000 000 (O) (On) (ON) (0) (0) 37.48 26.12 (V80) (V79) 041 003 189 190 191 000 000 (Y) (Yn) (YN) (0) (0) 38.35 30.49 (V82) (V81) 042 003 199 200 201 000 000 (L) (Ln) (LN) (0) (0) 33.11 26.99 (V84) (V83) %Serie 8, BAM test chart order 2:26 043 003 151 152 153 000 000 (CN) (Nc) (N) (0) (0) 37.48 26.12 (V86) (V85) 044 003 161 162 163 000 000 (VN) (Nv) (N) (0) (0) 20.43 18.25 (V88) (V87) 045 003 171 172 173 000 000 (MN) (Nm) (N) (0) (0) 34.86 28.30 (V90) (V89) 046 003 181 182 183 000 000 (ON) (No) (N) (0) (0) 33.98 27.87 (V92) (V91) 047 003 191 192 193 000 000 (YN) (Ny) (N) (0) (0) 39.67 34.86 (V94) (V93) 048 003 201 202 203 000 000 (LN) (Nl) (N) (0) (0) 32.24 26.12 (V96) (V95) %Serie 2N, BAM test chart order 1:25, 1 triplet 049 003 073 074 075 000 000 (W) (WN) (N) (0) (0) 40.10 36.61 (V97) (V98) %Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets 050 004 281 282 283 000 000 (C) (CV) (V) (0) (0) 44.47 0.00 (V37) (V00) 051 004 283 284 285 000 000 (V) (MV) (M) (0) (0) 42.29 0.00 (V38) (V00) 052 004 291 292 293 000 000 (M) (MO) (O) (0) (0) 22.62 0.00 (V40) (V00) 053 004 293 294 295 000 000 (O) (YO) (Y) (0) (0) 47.97 0.00 (V39) (V00) 054 004 301 302 303 000 000 (Y) (YL) (L) (0) (0) 46.22 0.00 (V41) (V00) 055 004 303 304 305 000 000 (L) (CL) (C) (0) (0) 31.36 0.00 (V42) (V00) %Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets 056 004 079 080 081 000 000 (W) (Wn) (WN) (0) (0) 40.10 0.00 (V97) (V00) 057 004 081 082 083 000 000 (WN) (Nw) (N) (0) (0) 36.61 0.00 (V98) (V00) ] def %END D57SERVia %************************************************************* /D57SERVi 2000 array def %max 57 series of 15 data (100x20) /D57SERVi [%BEG D57SERVi top data VIK_ELCD scaling data %0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %N S N1 N2 N3 N4 N5 NA1 NA2 NA3 NA4 NA5 DV*1i DV*2i VIK1 VIK2 %Serie 1, BAM test chart order 1:25 001 003 001 002 003 000 000 (W) (CW) (C) 6.06 7.92 25.24 39.23 (V01) (V02) 002 003 007 008 009 000 000 (W) (VW) (V) 3.03 7.44 33.11 46.66 (V03) (V04) 003 003 013 014 015 000 000 (W) (MW) (M) 4.15 7.21 30.92 45.35 (V05) (V06) 004 003 019 020 021 000 000 (W) (OW) (O) 6.27 5.35 26.55 46.66 (V07) (V08) 005 003 025 026 027 000 000 (W) (YW) (Y) 5.39 10.8 22.62 23.06 (V09) (V10) 006 003 031 032 033 000 000 (W) (LW) (L) 4.58 7.82 29.18 40.98 (V11) (V12) %Serie 2, BAM test chart order 1:25 007 003 037 038 039 000 000 (C) (CN) (N) 12.1 5.67 38.35 42.73 (V13) (V14) 008 003 043 044 045 000 000 (V) (VN) (N) 6.42 9.50 21.75 31.36 (V15) (V16) 009 003 049 050 051 000 000 (M) (MN) (N) 9.08 7.82 40.98 44.47 (V17) (V18) 010 003 055 056 057 000 000 (O) (ON) (N) 10.7 9.31 34.86 43.16 (V19) (V20) 011 003 061 062 063 000 000 (Y) (YN) (N) 10.0 6.88 35.73 47.97 (V21) (V22) 012 003 067 068 069 000 000 (L) (LN) (N) 9.87 10.7 36.17 42.29 (V23) (V24) %Serie 3, BAM test chart order 3:27 013 003 209 210 211 000 000 (W) (C) (N) 7.29 5.77 53.65 55.40 (V26) (V25) 014 003 215 216 217 000 000 (W) (V) (N) 6.27 11.1 65.02 29.61 (V28) (V27) 015 003 221 222 223 000 000 (W) (M) (N) 8.91 6.30 60.21 53.22 (V30) (V29) 016 003 227 228 229 000 000 (W) (O) (N) 8.56 9.81 58.46 48.84 (V32) (V31) 017 003 233 234 235 000 000 (W) (Y) (N) 17.1 8.41 37.38 61.52 (V34) (V33) 018 003 239 240 241 000 000 (W) (L) (N) 7.62 10.8 55.84 45.35 (V36) (V35) %Serie 4, BAM test chart order 3:27 019 003 245 246 247 000 000 (C) (V) (M) 11.2 13.7 44.47 42.29 (V37) (V38) 020 003 251 252 253 000 000 (M) (O) (Y) 6.30 11.1 22.62 47.97 (V40) (V39) 021 003 257 258 259 000 000 (Y) (L) (C) 10.3 8.29 46.22 31.36 (V41) (V42) 022 003 263 264 265 000 000 (V) (C) (L) 9.87 11.3 48.41 30.49 (V44) (V43) 023 003 269 270 271 000 000 (L) (Y) (O) 10.2 9.52 51.03 53.65 (V46) (V45) 024 003 275 276 277 000 000 (O) (M) (V) 10.6 11.3 23.49 48.84 (V47) (V48) %Serie 5, BAM test chart order 2:26 %dummy 26.00: values are missing 025 004 089 090 091 000 000 (W) (Wc) (CW) 6.06 6.06 25.24 0.481 (V01) (V00) 026 004 099 100 101 000 000 (W) (Wv) (VW) 7.44 7.44 33.11 0.497 (V03) (V00) 027 004 109 110 111 000 000 (W) (Wm) (MW) 4.15 4.15 30.92 0.492 (V05) (V00) 028 004 119 120 121 000 000 (W) (Wo) (OW) 6.27 6.27 26.55 0.493 (V07) (V00) 029 004 129 130 131 000 000 (W) (Wy) (YW) 5.39 5.39 22.62 0.358 (V09) (V00) 030 004 139 140 141 000 000 (W) (Wl) (LW) 4.58 4.58 29.18 0.492 (V11) (V00) %Serie 6, BAM test chart order 2:26 031 003 091 092 093 000 000 (CW) (Cw) (C) 6.30 12.2 22.62 27.87 (V62) (V61) 032 003 101 102 103 000 000 (VW) (Vw) (V) 7.21 11.3 26.99 33.98 (V64) (V63) 033 003 111 112 113 000 000 (MW) (Mw) (M) 8.76 10.0 28.30 35.73 (V66) (V65) 034 003 121 122 123 000 000 (OW) (Ow) (O) 7.31 10.8 24.37 33.98 (V68) (V67) 035 003 131 132 133 000 000 (YW) (Yw) (Y) 3.27 7.10 18.25 20.00 (V70) (V69) 036 003 141 142 143 000 000 (LW) (Lw) (L) 6.06 11.2 23.49 32.24 (V72) (V71) %Serie 7, BAM test chart order 2:26 037 003 149 150 151 000 000 (C) (Cn) (CN) 8.29 8.48 29.61 28.74 (V74) (V73) 038 003 159 160 161 000 000 (V) (Vn) (VN) 4.58 3.27 19.56 18.25 (V76) (V75) 039 003 169 170 171 000 000 (M) (Mn) (MN) 9.50 12.2 35.73 27.87 (V78) (V77) 040 003 179 180 181 000 000 (O) (On) (ON) 5.10 11.2 37.48 26.12 (V80) (V79) 041 003 189 190 191 000 000 (Y) (Yn) (YN) 12.1 8.65 38.35 30.49 (V82) (V81) 042 003 199 200 201 000 000 (L) (Ln) (LN) 10.3 10.3 33.11 26.99 (V84) (V83) %Serie 8, BAM test chart order 2:26 043 003 151 152 153 000 000 (CN) (Nc) (N) 7.62 9.08 37.48 26.12 (V86) (V85) 044 003 161 162 163 000 000 (VN) (Nv) (N) 6.69 3.27 20.43 18.25 (V88) (V87) 045 003 171 172 173 000 000 (MN) (Nm) (N) 9.08 6.27 34.86 28.30 (V90) (V89) 046 003 181 182 183 000 000 (ON) (No) (N) 9.73 9.73 33.98 27.87 (V92) (V91) 047 003 191 192 193 000 000 (YN) (Ny) (N) 6.74 12.6 39.67 34.86 (V94) (V93) 048 003 201 202 203 000 000 (LN) (Nl) (N) 10.2 9.08 32.24 26.12 (V96) (V95) %Serie 2N, BAM test chart order 1:25, 1 triplet 049 003 073 074 075 000 000 (W) (WN) (N) (0) (0) 40.10 36.61 (V97) (V98) %not used %Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets 050 004 281 282 283 000 000 (C) (CV) (V) (0) (0) 44.47 0.00 (V37) (V00) 051 004 283 284 285 000 000 (V) (MV) (M) (0) (0) 42.29 0.00 (V38) (V00) 052 004 291 292 293 000 000 (M) (MO) (O) (0) (0) 22.62 0.00 (V40) (V00) 053 004 293 294 295 000 000 (O) (YO) (Y) (0) (0) 47.97 0.00 (V39) (V00) 054 004 301 302 303 000 000 (Y) (YL) (L) (0) (0) 46.22 0.00 (V41) (V00) 055 004 303 304 305 000 000 (L) (CL) (C) (0) (0) 31.36 0.00 (V42) (V00) %Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets 056 004 079 080 081 000 000 (W) (Wn) (WN) (0) (0) 40.10 0.00 (V97) (V00) 057 004 081 082 083 000 000 (WN) (Nw) (N) (0) (0) 36.61 0.00 (V98) (V00) ] def %END D57SERVi /d_CIELABi 2800 array def /d_CIELCHi 2800 array def /d_C94LCHi 2800 array def /d_CMCLCHi 2800 array def /d_CM2LCHi 2800 array def /d_C00LCHi 2800 array def /d_C85LCHi 2800 array def /d_C77LCHi 2800 array def /d_C78LCHi 2800 array def /d_C79LCHi 2800 array def /d_CIELABmi 2800 array def /d_CIELCHmi 2800 array def /d_C94LCHmi 2800 array def /d_CMCLCHmi 2800 array def /d_CM2LCHmi 2800 array def /d_C00LCHmi 2800 array def /d_C85LCHmi 2800 array def /d_C77LCHmi 2800 array def /d_C78LCHmi 2800 array def /d_C79LCHmi 2800 array def /D13 1 3 div def /D841_108 841 108 div def /D4_29 4 29 div def /D6_29 6 29 div 3 exp def /proc_coldiff {%BEG procedure proc_coldiff proc_coldiff_WK58.PS 150529 %calculates CIE colour data and differences for 10 colour spaces %BEG CIELAB/CIELCH /FL 0.000001 def X0 XW div D6_29 gt {/FXXN0 X0 XW div 0.0001 add D13 exp def} {/FXXN0 D841_108 X0 XW div mul D4_29 add def} ifelse Y0 YW div D6_29 gt {/FYYN0 Y0 YW div 0.0001 add D13 exp def} {/FYYN0 D841_108 Y0 YW div mul D4_29 add def} ifelse Z0 ZW div D6_29 gt {/FZZN0 Z0 ZW div 0.0001 add D13 exp def} {/FZZN0 D841_108 Z0 ZW div mul D4_29 add def} ifelse /CIEL*0 116. FYYN0 mul 16. sub def /CIEa*0 500. FXXN0 FYYN0 sub mul def /CIEb*0 200. FYYN0 FZZN0 sub mul def /CIEC*ab0 CIEa*0 dup mul CIEb*0 dup mul add 0.0001 add sqrt def /CIEhab0 CIEb*0 CIEa*0 0.0001 add atan def X1 XW div D6_29 gt {/FXXN1 X1 XW div 0.0001 add D13 exp def} {/FXXN1 D841_108 X1 XW div mul D4_29 add def} ifelse Y1 YW div D6_29 gt {/FYYN1 Y1 YW div 0.0001 add D13 exp def} {/FYYN1 D841_108 Y1 YW div mul D4_29 add def} ifelse Z1 ZW div D6_29 gt {/FZZN1 Z1 ZW div 0.0001 add D13 exp def} {/FZZN1 D841_108 Z1 ZW div mul D4_29 add def} ifelse /CIEL*1 116. FYYN1 mul 16. sub def /CIEa*1 500. FXXN1 FYYN1 sub mul def /CIEb*1 200. FYYN1 FZZN1 sub mul def /CIEC*ab1 CIEa*1 dup mul CIEb*1 dup mul add 0.0001 add sqrt def /CIEhab1 CIEb*1 CIEa*1 0.0001 add atan def %mixed terms with *0 sn *1: /d_CIEL* CIEL*1 CIEL*0 sub def /d_CIEa* CIEa*1 CIEa*0 sub def /d_CIEb* CIEb*1 CIEb*0 sub def d_CIELABi i d_CIEL* dup mul d_CIEa* dup mul add d_CIEb* dup mul add 0.00000001 add sqrt put /a_CIELAB 1.26 def /b_CIELAB 0.55 def d_CIELABmi i d_CIELABi i get b_CIELAB exp a_CIELAB mul put /d_CIEh CIEhab1 CIEhab0 sub def %see CIEDE2000 page 4 CIEC*ab1 CIEC*ab0 mul 0 eq {/d_CIEh 0 def} if %CIEC*ab1 x CIEC*ab0 =0 CIEC*ab1 CIEC*ab0 mul 0 ne d_CIEh 180 gt and {/d_CIEh d_CIEh 360 sub def} if CIEC*ab1 CIEC*ab0 mul 0 ne d_CIEh -180 lt and {/d_CIEh d_CIEh 360 add def} if /d_CIEL CIEL*1 CIEL*0 sub def /d_CIECab CIEC*ab1 CIEC*ab0 sub def /d_CIEHab CIEC*ab1 CIEC*ab0 mul 0.000001 add sqrt 2 mul d_CIEh 0.5 mul sin mul def d_CIELCHi i d_CIEL dup mul d_CIECab dup mul add d_CIEHab dup mul add 0.000001 add sqrt put %alternative: %for 2 an 10 degree observer, see Richter (1996) %a'=0,2191 b'=-0,08376 a'10=0,2193, b'10=-0,08417 %a'2 and a'10 used for both 12 and 190 degree observer %BEG LABD65_1976=C76 /S76L 1 def /S76A 1 def /S76B 1 def /K76L 1 def /K76A 1 def /K76B 1 def /AS2 0.2191 def /BS2 -0.08376 def %C76a'=AS2*(x/y)**(1/3) %C76b'=BS2*(z/y)**(1/3) %C76L*=L*CIE %C76a*=500*[C76a'-C76a'n]*Y**(1/3) %C76b*=500*[C76b'-C76b'n]*Y**(1/3) /C76a'0 X0 Y0 FL add div 0.3333 exp AS2 mul def /C76a'1 X1 Y1 FL add div 0.3333 exp AS2 mul def /C76a'n XW YW FL add div 0.3333 exp AS2 mul def /C76b'0 Z0 Y0 FL add div 0.3333 exp BS2 mul def /C76b'1 Z1 Y1 FL add div 0.3333 exp BS2 mul def /C76b'n ZW YW FL add div 0.3333 exp BS2 mul def /C76a*0 C76a'0 C76a'n sub 500 mul Y0 1 3 div exp mul def /C76a*1 C76a'1 C76a'n sub 500 mul Y1 1 3 div exp mul def /C76b*0 C76b'0 C76b'n sub 500 mul Y0 1 3 div exp mul def /C76b*1 C76b'1 C76b'n sub 500 mul Y1 1 3 div exp mul def %name d_CIELCHi instead of d_LABD65i 1976 d_CIELCHi i CIEL*1 CIEL*0 sub K76L div S76L div dup mul C76a*1 C76a*0 sub K76A div S76A div dup mul add C76b*1 C76b*0 sub K76B div S76B div dup mul add 0.00000001 add sqrt put %END LABD65_1976=C76 /a_CIELCH 1.26 def /b_CIELCH 0.55 def d_CIELCHmi i d_CIELCHi i get b_CIELCH exp a_CIELCH mul put %BEG CIELAB/CIELCH %BEG CIE94 /S94L 1 def /S94C 1 0.045 CIEC*ab0 mul add def /S94H 1 0.015 CIEC*ab0 mul add def /K94L 1 def /K94C 1 def /K94H 1 def /LC94*0 CIEL*0 K94L div S94L div def /LC94*1 CIEL*1 K94L div S94L div def /CC94*ab0 CIEC*ab0 K94C div S94C div def /CC94*ab1 CIEC*ab1 K94C div S94C div def d_C94LCHi i CIEL*1 CIEL*0 sub K94L div S94L div dup mul CIEC*ab1 CIEC*ab0 sub K94C div S94C div dup mul add d_CIEHab K94H div S94H div dup mul add 0.00000001 add sqrt put /a_C94LCH 1.41 def /b_C94LCH 0.70 def d_C94LCHmi i d_C94LCHi i get b_C94LCH exp a_C94LCH mul put %END CIE94 %BEG CMC(l:c=1:1) %special mean m of two samples for SCML, SCMC, TCMC /CIEL*0m CIEL*0 CIEL*1 add 0.5 mul def /CMCC0S CIEC*ab0 def /CMCC1S CIEC*ab1 def /CIEC*ab0m CMCC0S CMCC1S add 0.5 mul def CIEC*ab0 0 eq {/CMCh0S 0 def} {/CMCh0S CIEb*0 CIEa*0 0.0001 add atan def } ifelse CIEC*ab1 0 eq {/CMCh1S 0 def} {/CMCh1S CIEb*1 CIEa*1 0.0001 add atan def } ifelse %beg special EQUATION (11) TO (14) /d_CMChS0 CMCh1S CMCh0S sub def %see CIEDE2000 page 4 CMCC1S CMCC0S mul 0 eq {/d_CMChS 0 def} if %CIEC*ab1 x CIEC*ab0 =0 CMCC1S CMCC0S mul 0 ne d_CMChS0 abs 180 le and {/d_CMChSm d_CMChS0 def} if CMCC1S CMCC0S mul 0 ne d_CMChS0 180 gt and {/d_CMChSm d_CMChS0 360 sub def} if CMCC1S CMCC0S mul 0 ne d_CMChS0 -180 lt and {/d_CMChSm d_CMChS0 360 add def} if %end special EQUATION (11) TO (14) %beg special EQUATION (23) TO (26) /a_CMChsm CMCh0S CMCh1S add 0.5 mul def /m_CMCCSm CMCC0S CMCC1S mul def d_CMChSm abs 180 le m_CMCCSm 0 ne and {/CMChSqm a_CMChsm def} if d_CMChSm abs 180 gt a_CMChsm 360 le and m_CMCCSm 0 ne and {/CMChSqm CMCh0S CMCh1S add 360 add 0.5 mul def} if d_CMChSm abs 180 gt a_CMChsm 360 ge and m_CMCCSm 0 ne and {/CMChSqm CMCh0S CMCh1S add 360 sub 0.5 mul def} if m_CMCCSm 0 eq {/CMChSqm CMCh0S CMCh1S add def } if %end special EQUATION (23) TO (26) CIEL*0m 16 lt {/SCMLm 0.511 def} {/SCMLm 0.040975 CIEL*0m mul 0.01765 CIEL*0m mul 1 add div def } ifelse /SCMCm 0.0638 CIEC*ab0m mul 0.0131 CIEC*ab0m mul 1 add div 0.638 add def %beg special /FCMCm CIEC*ab0m dup mul dup mul CIEC*ab0m dup mul dup mul 1900 add div sqrt def CMChSqm 164 lt CMChSqm 345 gt or {/TCMCm CMChSqm 35 add cos 0.4 mul abs 0.36 add def} {/TCMCm CMChSqm 168 add cos 0.2 mul abs 0.56 add def} ifelse %end special /SCMHm TCMCm FCMCm mul 1 add FCMCm sub SCMCm mul def /KCML 1 def %=l /KCMC 1 def %=c /KCMH 1 def %1 /CMCL*0m CIEL*0 KCML div SCMLm div def /CMCL*1m CIEL*1 KCML div SCMLm div def /CMCC*ab0m CIEC*ab0 KCMC div SCMCm div def /CMCC*ab1m CIEC*ab1 KCMC div SCMCm div def d_CMCLCHi i CIEL*1 CIEL*0 sub KCML div SCMLm div dup mul CIEC*ab1 CIEC*ab0 sub KCMC div SCMCm div dup mul add d_CIEHab KCMH div SCMHm div dup mul add 0.00000001 add sqrt put /a_CMCLCH 1.34 def /b_CMCLCH 0.66 def d_CMCLCHmi i d_CMCLCHi i get b_CMCLCH exp a_CMCLCH mul put %END CMC(m:l:c=m:1:1)=CMC %BEG CM2(m:l:c=m:1:2)=CM2 /KM2L 1 def %=l /KM2C 2 def %=c /KM2H 1 def %1 /CM2L*0 CIEL*0 KM2L div SCMLm div def /CM2L*1 CIEL*1 KM2L div SCMLm div def /CM2C*ab0 CIEC*ab0 KM2C div SCMCm div def /CM2C*ab1 CIEC*ab1 KM2C div SCMCm div def d_CM2LCHi i CIEL*1 CIEL*0 sub KM2L div SCMLm div dup mul CIEC*ab1 CIEC*ab0 sub KM2C div SCMCm div dup mul add d_CIEHab KM2H div SCMHm div dup mul add 0.00000001 add sqrt put %END CM2(m:l:c=m:1:2)=CM2 %BEG CIEDE2000=C00 %beg special equation (7) /CIEC*ab CIEC*ab0 CIEC*ab1 add 0.5 mul def /DEG 1 CIEC*ab 7 exp CIEC*ab 7 exp 25 7 exp add div 0.000001 add sqrt sub 0.5 mul def %end special equation (7) %beg special EQUATION (1) TO (6) %0 /C00L0S CIEL*0 def /C00a0S 1 DEG add CIEa*0 mul def /C00b0S CIEb*0 def /C00C0S C00a0S dup mul C00b0S dup mul add 0.000001 add sqrt def C00C0S 0 eq {/C00h0S 0 def} {/C00h0S C00b0S C00a0S 0.0001 add atan def } ifelse %1 /C00L1S CIEL*1 def /C00a1S 1 DEG add CIEa*1 mul def /C00b1S CIEb*1 def /C00C1S C00a1S dup mul C00b1S dup mul add 0.000001 add sqrt def C00C1S 0 eq {/C00h1S 0 def} {/C00h1S C00b1S C00a1S 0.0001 add atan def } ifelse %end special EQUATION (1) TO (6) %beg special EQUATION (11) TO (14) /d_C00hS0 C00h1S C00h0S sub def %see CIEDE2000 page 4 C00C1S C00C0S mul 0 eq {/d_C00hS 0 def} if %CIEC*ab1 x CIEC*ab0 =0 C00C1S C00C0S mul 0 ne d_C00hS0 abs 180 le and {/d_C00hS d_C00hS0 def} if C00C1S C00C0S mul 0 ne d_C00hS0 180 gt and {/d_C00hS d_C00hS0 360 sub def} if C00C1S C00C0S mul 0 ne d_C00hS0 -180 lt and {/d_C00hS d_C00hS0 360 add def} if %end special EQUATION (11) TO (14) %beg special EQUATION (8) TO (10) /d_C00LS C00L1S C00L0S sub def /d_C00aS C00a1S C00a0S sub def /d_C00bS C00b1S C00b0S sub def /d_C00CS C00C1S C00C0S sub def /d_C00HS C00C0S C00C1S mul 0.000001 add sqrt 2 mul d_C00hS 0.5 mul sin mul def %end special EQUATION (8) TO (10) %beg special EQUATION (23) TO (26) /a_C00hs C00h0S C00h1S add 0.5 mul def /m_C00CS C00C0S C00C1S mul def d_C00hS abs 180 le m_C00CS 0 ne and {/C00hSq a_C00hs def} if d_C00hS abs 180 gt a_C00hs 360 le and m_C00CS 0 ne and {/C00hSq C00h0S C00h1S add 360 add 0.5 mul def} if d_C00hS abs 180 gt a_C00hs 360 ge and m_C00CS 0 ne and {/C00hSq C00h0S C00h1S add 360 sub 0.5 mul def} if m_C00CS 0 eq {/C00hSq C00h0S C00h1S add def } if %end special EQUATION (23) TO (26) %beg special EQUATIONS (16) TO (22) /C00LSq C00L0S C00L1S add 0.5 mul def /C00CSq C00C0S C00C1S add 0.5 mul def /C00SL C00LSq 50 sub dup mul 0.015 mul C00LSq 50 sub dup mul 20 add sqrt div 1 add def /C00SC 0.045 C00CSq mul 1 add def %beg special T, RT, d_D, RC /C00T C00hSq 30 sub cos -0.17 mul C00hSq 2 mul cos 0.24 mul add C00hSq 3 mul 6 add cos 0.32 mul add C00hSq 4 mul 63 sub cos 0.20 mul sub 1 add def /C00SH 0.015 C00CSq mul C00T mul 1 add def /C00RC C00CSq 7 exp C00CSq 7 exp 25 7 exp add 0.000001 add div 0.000001 add sqrt 2 mul def /expDT C00hSq 275 sub 25 div dup mul def /econst 2.718281 def /C00DT 30 econst expDT neg exp mul def /C00RT C00DT 2 mul sin neg C00RC mul def %end special T, RT, d_D, RC %end special EQUATIONS (16) TO (22) %beg special EQUATION (15) /C00KL 1.0 def /C00KC 1.0 def /C00KH 1.0 def /d_C00LSN d_C00LS C00KL div C00SL div def /d_C00CSN d_C00CS C00KC div C00SC div def /d_C00HSN d_C00HS C00KH div C00SH div def d_C00LCHi i d_C00LSN dup mul d_C00CSN dup mul add d_C00HSN dup mul add d_C00CSN d_C00HSN mul C00RT mul add 0.000001 add sqrt put /a_C00LCH 1.43 def /b_C00LCH 0.70 def d_C00LCHmi i d_C00LCHi i get b_C00LCH exp a_C00LCH mul put %end special EQUATION (15) %END CIEDE2000=C00 %BEG LABJND=C85 /Yq Y0 Y1 add 0.5 mul def /d_Y Y1 Y0 sub def /a085 X0 Y0 0.000001 add div def /b085 Z0 Y0 0.000001 add div 0.4 mul neg def /a185 X1 Y1 0.000001 add div def /b185 Z1 Y1 0.000001 add div 0.4 mul neg def /an85 XW YW 0.000001 add div def /bn85 ZW YW 0.000001 add div 0.4 mul neg def /d_a085 a085 an85 sub def /d_b085 b085 bn85 sub def /d_a185 a185 an85 sub def /d_b185 b185 bn85 sub def /a0"85 d_a085 d_a085 abs 0.5 mul 1 add div an85 add def /b0"85 d_b085 d_b085 abs 0.5 mul 1 add div bn85 add def /a1"85 d_a185 d_a185 abs 0.5 mul 1 add div an85 add def /b1"85 d_b185 d_b185 abs 0.5 mul 1 add div bn85 add def /d_Y Y1 Y0 sub def /d_a"85 a1"85 a0"85 sub def /d_b"85 b1"85 b0"85 sub def /s85 0.0170 def /q85 0.0058 def /g85 1.0000 def %not used /a0085 1.0 def /b0085 1.8 def /Y0085 1.5 def d_C85LCHi i d_Y dup mul a0085 d_a"85 mul Yq mul dup mul add b0085 d_b"85 mul Yq mul dup mul add 0.000001 add sqrt Y0085 mul q85 Yq mul s85 add div put /a_C85LCH 1.17 def /b_C85LCH 0.35 def d_C85LCHmi i d_C85LCHi i get b_C85LCH exp a_C85LCH mul put %END LABJND=C85 %BEG LABHNU_1977=C77 /S77L 1 def /S77A 1 def /S77B 1 def /K77L 1 def /K77A 1 def /K77B 1 def %C77a'=(x/y+1/6)**(1/3)/4 %C77b'=-(z/y+1/6)**(1/3)/12 %C77L*=L*CIE %C77a*=500*[C77a'-C77a'n]*Y**(1/3) %C77b*=500*[C77b'-C77b'n]*Y**(1/3) /C77a'0 X0 Y0 FL add div 1 6 div add 0.3333 exp 4 div def /C77a'1 X1 Y1 FL add div 1 6 div add 0.3333 exp 4 div def /C77a'n XW YW FL add div 1 6 div add 0.3333 exp 4 div def /C77b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def /C77b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def /C77b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def /C77a*0 C77a'0 C77a'n sub 500 mul Y0 1 3 div exp mul def /C77a*1 C77a'1 C77a'n sub 500 mul Y1 1 3 div exp mul def /C77b*0 C77b'0 C77b'n sub 500 mul Y0 1 3 div exp mul def /C77b*1 C77b'1 C77b'n sub 500 mul Y1 1 3 div exp mul def d_C77LCHi i CIEL*1 CIEL*0 sub K77L div S77L div dup mul C77a*1 C77a*0 sub K77A div S77A div dup mul add C77b*1 C77b*0 sub K77B div S77B div dup mul add 0.00000001 add sqrt put %END LABHNU_1977=C77 %BEG LABHNU1=C78 /S78L 1 def /S78A 1 def /S78B 1 def /K78L 1 def /K78A 1 def /K78B 1 def %C78a'=(x/y+1)/15 %C78b'=-(z/y+1/6)**(1/3)/12 %C78L*=L*CIE %C78a*=500*[C78a'-C78a'n]*Y**(1/3) %C78b*=500*[C78b'-C78b'n]*Y**(1/3) /C78a'0 X0 Y0 FL add div 1 add 15 div def /C78a'1 X1 Y1 FL add div 1 add 15 div def /C78a'n XW YW FL add div 1 add 15 div def /C78b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def /C78b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def /C78b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def /C78a*0 C78a'0 C78a'n sub 500 mul Y0 1 3 div exp mul def /C78a*1 C78a'1 C78a'n sub 500 mul Y0 1 3 div exp mul def /C78b*0 C78b'0 C78b'n sub 500 mul Y0 1 3 div exp mul def /C78b*1 C78b'1 C78b'n sub 500 mul Y0 1 3 div exp mul def d_C78LCHi i CIEL*1 CIEL*0 sub K78L div S78L div dup mul C78a*1 C78a*0 sub K78A div S78A div dup mul add C78b*1 C78b*0 sub K78B div S78B div dup mul add 0.00000001 add sqrt put %END LABHNU1_1978-C78 %BEG LABHNU2_1979=C79 /S79L 1 def /S79A 1 def /S79B 1 def /K79L 1 def /K79A 1 def /K79B 1 def %C79a'=(x/y+1/6)**(2/3)/15 %C79b'=-(z/y+1/6)**(1/3)/12 %C79L*=L*CIE %C79a*=500*[C79a'-C79a'n]*Y**(1/3) %C79b*=500*[C79b'-C79b'n]*Y**(1/3) /C79a'0 X0 Y0 FL add div 1 6 div add 0.6667 exp 15 div def /C79a'1 X1 Y1 FL add div 1 6 div add 0.6667 exp 15 div def /C79a'n XW YW FL add div 1 6 div add 0.6667 exp 15 div def /C79b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def /C79b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def /C79b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def /C79a*0 C79a'0 C79a'n sub 500 mul Y0 1 3 div exp mul def /C79a*1 C79a'1 C79a'n sub 500 mul Y1 1 3 div exp mul def /C79b*0 C79b'0 C79b'n sub 500 mul Y0 1 3 div exp mul def /C79b*1 C79b'1 C79b'n sub 500 mul Y1 1 3 div exp mul def d_C79LCHi i CIEL*1 CIEL*0 sub K79L div S79L div dup mul C79a*1 C79a*0 sub K79A div S79A div dup mul add C79b*1 C79b*0 sub K79B div S79B div dup mul add 0.00000001 add sqrt put %END LABHNU2_1979=C79 } bind def %END procedure proc_coldiff %%EndProlog gsave /lanind 0 def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind le {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind le {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind le {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /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 %see Kittelmann DWORK, page 9 /XWD6502 95.05 def /YWD6502 100.00 def /ZWD6502 108.90 def /XW XWD6502 def /YW YWD6502 def /ZW ZWD6502 def /FL 0.000001 def /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /CIEL*0i 310 array def /CIEa*0i 310 array def /CIEb*0i 310 array def /X0i 310 array def /Y0i 310 array def /Z0i 310 array def %calculate XYZ-values for 310 colours 0 1 309 {/i exch def %i=0,309 /i10 i 10 mul def CIEL*0i i LAB_KIi i10 1 add get put CIEa*0i i LAB_KIi i10 2 add get put CIEb*0i i LAB_KIi i10 3 add get put /X* {CIEL*0i i get 16 add 116 div CIEa*0i i get 500 div add} bind def /Y* {CIEL*0i i get 16 add 116 div} bind def /Z* {CIEL*0i i get 16 add 116 div CIEb*0i i get 200 div sub} bind def X0i i X* DecodeXYZ* XW mul put Y0i i Y* DecodeXYZ* YW mul put Z0i i Z* DecodeXYZ* ZW mul put } for %i=0,309 %************************************************************* /Wdata1 3500 array def %max 350x10 data /Wdata2 3500 array def /IM 056 def %(max IM=056; IM=46=without series C-V- and W-Wn-WN-Nw-N /IM0 113 def %(max IM=057)*2-1 = 057 X 2-1 %default data 0 1 IM0 {/i exch def %i=0,IM0 /i10 i 10 mul def 0 1 9 {/j exch def %j=0,9 Wdata1 i10 j add 1. put Wdata2 i10 j add 1. put } for %j=0,9 } for %i=0,IM0 /D57xSERi 2000 array def /xchart4 1 def %xchart4=0 and 1: calculation for WANG or VIK pair comparison data 0 1 IM {/ii exch def %ii=0,IM /i16 ii 16 mul def 0 1 15 {/j exch def %j=0,15 xchart4 0 eq {D57xSERi i16 j add D57SERWi i16 j add get put} if xchart4 1 eq {D57xSERi i16 j add D57SERVi i16 j add get put} if } for %j=0,15 } for %ii=0,IM /DV*1 200 array def /DV*2 200 array def /DVS1 200 array def /DVS2 200 array def %default data 0 1 IM {/ii exch def %ii=0,IM /i16 ii 16 mul def DV*1 ii 1. put %default DV*2 ii 1. put } for %ii=0,IM %for WANG and VIK 0 1 IM {/ii exch def %ii=0,IM /D57xSER12 D57xSERi i16 12 add get def /D57xSER13 D57xSERi i16 13 add get def DV*1 ii D57xSER12 put DV*2 ii D57xSER13 put xchart4 0 eq {%xchart4=0 %corection for WANG only D57xSER12 0 ne {%D57xSER12#0 DV*1 ii D57xSER12 42.62 div 1. 1.1322 div exp 10 mul put } if %D57xSER12#0 D57xSER13 0 ne {%D57xSER13#0 DV*2 ii D57xSER13 42.62 div 1. 1.1322 div exp 10 mul put } if %D57xSER13#0 } if %xchart4=0 %corection for WANG only } for %ii=0,IM /xchartl 5 def %0 1 5 {/xchartl exch def %xchartl=0,5 gsave 5 /Times-ISOL1 FS 215 85 moveto (XE391-8N) show 72 90 translate /ytit 550 def /yhoe 4000 def /yhoet yhoe ytit sub def /xwide 06000 def /ishow {-50 -100 rmoveto 200 /Times-ISOL1 FS show 0 100 rmoveto TM} bind def 0.01 MM 0.01 MM scale 15 setlinewidth 0.0 0.0 0.0 0.5 setcmykcolor 0 0 moveto xwide 0 rlineto 0 yhoet rlineto xwide neg 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmykcolor 0 0 moveto xwide 0 rlineto 0 yhoet rlineto xwide neg 0 rlineto closepath stroke /yt 300 def %y-Zeilenabstand for text /yd 400 def %y-Zeilenabstand for formula %Titeltext /xt1 0 def /yt1 300 def /S10 100 def /S11 800 def /S20 3250 def /S30 4000 def /Z10 2500 def /Z1C 2200 def /Z1V 1900 def /Z1M 1600 def /Z1O 1300 def /Z1Y 1000 def /Z1L 0700 def /Z1N 0400 def /Z1W 0100 def %HUE CIRCLE /xd 1550 def /yd 5000 def /xp 1550 def /yp 5000 def /xdN xd def /ydN yd 2000 sub def /xdW xd def /ydW yd def /xdR xd 2000 add def /ydR yd 1000 sub def /xm 600 def /xip xd xm 2 mul add def /yip ydN xm 2 mul add def /xi1 xd xm 1 mul sub def /yi1 ydW xm 0.5 mul sub def /xi2 xd xm 2 mul add def /yi2 ydN 400 sub def %************************************************************************* %constant hue planes /xt1 -1000 def /yt1 -2670 def xt1 yt1 translate /xpp xp 350 sub def 0 setgray xpp yp 0850 add moveto /xshift 3200 def TBIK (BAM) show TBK (\2555stufige Farbreihen gleichabst\344ndig in CIELAB) showde ( 5 step colour series equally spaced in CIELAB) showen TBS xpp yp 0600 add moveto xchart4 0 eq {%xchart4=0 (CIELAB Farbdifferenzen ) showde (CIELAB colour differences ) showen SS (D) show TBIS (E*) show TBV 0 -50 rmoveto (ab) show 0 50 rmoveto } if %xchart4=0 xchart4 1 eq {%xchart4=1 (visuelle Farbdifferenzen ) showde (visual colour differences ) showen SS (D) show TBIS (V*) show TBV 0 -50 rmoveto (Vik) show 0 50 rmoveto } if %xchart4=1 /xfact 2000 100 div def /yfact 2000 100 div def /yshift 0800 def /xpW xpp def /ypW yp 200 sub def /ym 0 def /ix -1 def /cwdif4 7 array def /cwdif2 7 array def /cwdif1 7 array def /cndif4 7 array def /cndif2 7 array def /cndif1 7 array def /cwdifx 7 array def /cndifx 7 array def /cwstd4 7 array def /cwstd2 7 array def /cwstd1 7 array def /cnstd4 7 array def /cnstd2 7 array def /cnstd1 7 array def /cwstdx 7 array def /cnstdx 7 array def /wName 7 array def /nName 7 array def /DLAB21ik 7 array def /DLAB32ik 7 array def /DV*1ik 7 array def /DV*2ik 7 array def /DVS1ik 7 array def /DVS2ik 7 array def %default 0 1 6 {/i exch def cwdif4 i 4 put cwdif2 i 2 put cwdif1 i 1 put cndif4 i 40 put cndif2 i 20 put cndif1 i 10 put wName i (W) put nName i (N) put } for /ik 0 def 0 1 6 {/ik exch def %ik=0,6 %7 series %025 W-Wc-CW 089-090-091 %031 CW-Cw-C 091-092-093 %037 C-Cn-CN 149-150-151 %043 CN-Nc-N 151-152-153 %001 W-CW-C 001-002-003 %007 C-CN-N 037-038-039 %013 W-C-N 209-210-211 ik 0 eq {/ii 025 1 sub def} if ik 1 eq {/ii 031 1 sub def} if ik 2 eq {/ii 037 1 sub def} if ik 3 eq {/ii 043 1 sub def} if ik 4 eq {/ii 001 1 sub def} if ik 5 eq {/ii 007 1 sub def} if ik 6 eq {/ii 013 1 sub def} if %6 series/figures /ii ii xchartl add def /i16 ii 16 mul def /S D57xSERi i16 1 add get def S 4 eq {%S=4 /DREL D57xSERi i16 13 add get def DV*1ik ik D57xSERi i16 12 add get DREL mul put DV*2ik ik D57xSERi i16 12 add get 1 DREL sub mul put } if %S=4 S 3 eq {%S=3 DV*1ik ik D57xSERi i16 12 add get put DV*2ik ik D57xSERi i16 13 add get put } if %S=3 %always standard deviation DVS1ik ik D57xSERi i16 10 add get put DVS2ik ik D57xSERi i16 11 add get put /N1 D57xSERi i16 2 add get 1 sub def %Nx-count STARTs at "1" /N2 D57xSERi i16 3 add get 1 sub def /N3 D57xSERi i16 4 add get 1 sub def ik 0 eq {wName 0 D57xSERi i16 7 add get put wName 1 D57xSERi i16 8 add get put wName 2 D57xSERi i16 9 add get put} if ik 1 eq {wName 3 D57xSERi i16 8 add get put wName 4 D57xSERi i16 9 add get put} if ik 2 eq {nName 0 D57xSERi i16 7 add get put nName 1 D57xSERi i16 8 add get put nName 2 D57xSERi i16 9 add get put} if ik 3 eq {nName 3 D57xSERi i16 8 add get put nName 4 D57xSERi i16 9 add get put} if /X10 X0i N1 get def /Y10 Y0i N1 get def /Z10 Z0i N1 get def /X20 X0i N2 get def /Y20 Y0i N2 get def /Z20 Z0i N2 get def /X30 X0i N3 get def /Y30 Y0i N3 get def /Z30 Z0i N3 get def 0 1 1 {/i exch def %i=0,1 i 0 eq {%i=0,1 /X0 X20 def /Y0 Y20 def /Z0 Z20 def /X1 X10 def /Y1 Y10 def /Z1 Z10 def } if %i=0 i 1 eq {%i=1 /X0 X20 def /Y0 Y20 def /Z0 Z20 def /X1 X30 def /Y1 Y30 def /Z1 Z30 def } if %i=1 proc_coldiff } for %i=0,1 DLAB21ik ik d_CIELABi 0 get put DLAB32ik ik d_CIELABi 1 get put %025 ik=0 W-Wc-CW 089-090-091 %031 ik=1 CW-Cw-C 091-092-093 %037 ik=2 C-Cn-CN 149-150-151 %043 ik=3 CN-Nc-N 151-152-153 %001 ik=4 W-CW-C 001-002-003 %007 ik=5 C-CN-N 037-038-039 %013 ik=6 W-C-N 209-210-211 %/ioutk 1 def %ioutk 0 eq {%ioutk=0 xchart4 0 eq {%xchart4=0 ik 0 eq {cwdifx 0 DLAB21ik ik get put %W-Wc-CW cwdifx 1 DLAB32ik ik get put} if ik 1 eq {cwdifx 2 DLAB21ik ik get put %CW-Cw-C cwdifx 3 DLAB32ik ik get put} if ik 2 eq {cndifx 0 DLAB21ik ik get put %C-Cn-CN cndifx 1 DLAB32ik ik get put} if ik 3 eq {cndifx 2 DLAB21ik ik get put %CN-Nc-N cndifx 3 DLAB32ik ik get put} if ik 4 eq {cwdifx 4 DLAB21ik ik get put %W-CW-C cwdifx 5 DLAB32ik ik get put} if ik 5 eq {cndifx 4 DLAB21ik ik get put %C-CN-N cndifx 5 DLAB32ik ik get put} if ik 6 eq {cwdifx 6 DLAB21ik ik get put %W-C-N cndifx 6 DLAB32ik ik get put} if } if %xchart4=0 %} if %ioutk=0 %ioutk 1 eq {%ioutk=1 xchart4 1 eq {%xchart4=1 ik 0 eq {cwdifx 0 DV*1ik ik get put %W-Wc-CW cwdifx 1 DV*2ik ik get put} if ik 1 eq {cwdifx 2 DV*1ik ik get put %CW-Cw-C cwdifx 3 DV*2ik ik get put} if ik 2 eq {cndifx 0 DV*1ik ik get put %C-Cn-CN cndifx 1 DV*2ik ik get put} if ik 3 eq {cndifx 2 DV*1ik ik get put %CN-Nc-N cndifx 3 DV*2ik ik get put} if ik 4 eq {cwdifx 4 DV*1ik ik get put %W-CW-C cwdifx 5 DV*2ik ik get put} if ik 5 eq {cndifx 4 DV*1ik ik get put %C-CN-N cndifx 5 DV*2ik ik get put} if ik 6 eq {cwdifx 6 DV*1ik ik get put %W-C-N cndifx 6 DV*2ik ik get put} if ik 0 eq {cwstdx 0 DVS1ik ik get put %W-Wc-CW cwstdx 1 DVS2ik ik get put} if ik 1 eq {cwstdx 2 DVS1ik ik get put %CW-Cw-C cwstdx 3 DVS2ik ik get put} if ik 2 eq {cnstdx 0 DVS1ik ik get put %C-Cn-CN cnstdx 1 DVS2ik ik get put} if ik 3 eq {cnstdx 2 DVS1ik ik get put %CN-Nc-N cnstdx 3 DVS2ik ik get put} if ik 4 eq {cwstdx 4 DVS1ik ik get put %W-CW-C cwstdx 5 DVS2ik ik get put} if ik 5 eq {cnstdx 4 DVS1ik ik get put %C-CN-N cnstdx 5 DVS2ik ik get put} if ik 6 eq {cwstdx 6 DVS1ik ik get put %W-C-N cnstdx 6 DVS2ik ik get put} if } if %xchart4=1 %} if %ioutk=1 } for %ik=0,6 %7 series 0 1 3 {/ik exch def %ik=0,3 cwdif4 ik cwdifx ik get 0.49 add cvi put cndif4 ik cndifx ik get 0.49 add cvi put } for %ik=0,3 0 1 1 {/ik exch def %ik=0,1 cwdif2 ik cwdifx ik 4 add get 0.49 add cvi put cndif2 ik cndifx ik 4 add get 0.49 add cvi put } for %ik=0,1 cwdif1 0 cwdifx 6 get 0.49 add cvi put cndif1 0 cndifx 6 get 0.49 add cvi put xchart4 1 eq {%xchart4=1 0 1 3 {/ik exch def %ik=0,3 cwstd4 ik cwstdx ik get 0.49 add cvi put cnstd4 ik cnstdx ik get 0.49 add cvi put } for %ik=0,3 0 1 1 {/ik exch def %ik=0,1 cwstd2 ik cwstdx ik 4 add get 0.49 add cvi put cnstd2 ik cnstdx ik 4 add get 0.49 add cvi put } for %ik=0,1 cwstd1 0 cwstdx 6 get 0.49 add cvi put cnstd1 0 cnstdx 6 get 0.49 add cvi put } if %xchart4=1 %STOP5 newpath /k 0 def /j 0 def /i 0 def 0 1 2 {/k exch def %k=0,2 %three rows /ys yshift k mul def 0 1 1 {/j exch def %j=0,1 %left, right /xs xshift j mul def k 0 eq {TBS j 0 eq {%j=0 1 1 1 setrgbcolor xpp yp 0300 add moveto (helle Serie ) showde (light series ) showen wName 4 get show ( nach W) showde ( to W) showen } if %j=0 j 1 eq {%j=1 0 0 0 setrgbcolor xp 450 sub xshift add yp 0300 add moveto (dunkle Serie ) showde (dark series ) showen nName 0 get show ( nach N) showde ( to N) showen } if %j=1 } if %k=0 TS 0 0 0 setrgbcolor 0 1 4 {/i exch def %i=0,4 %five colours /xi xpW xm i mul add xs add def %NW /yi ypW ym i mul add ys sub def % xpW ypW moveto (START, i, wName) show % i cvishow % wName i get show k 0 eq {xi 100 sub yi 200 add moveto j 0 eq {wName 4 i sub get show} if j 1 eq {nName i get show} if newpath } if k 0 eq i 3 le and {xi 100 add yi 350 sub moveto j 0 eq {cwdif4 3 i sub get cvishow} if j 1 eq {cndif4 i get cvishow} if xchart4 1 eq {%xchart4=1 (\261) show %+/- j 0 eq {cwstd4 3 i sub get cvishow} if j 1 eq {cnstd4 i get cvishow} if } if %xchart4=1 newpath } if k 0 eq i 1 le and {xi 400 add i 500 mul add yi 1150 sub moveto j 0 eq {cwdif2 1 i sub get cvishow} if j 1 eq {cndif2 i get cvishow} if xchart4 1 eq {%xchart4=1 (\261) show %+/- j 0 eq {cwstd2 1 i sub get cvishow} if j 1 eq {cnstd2 i get cvishow} if } if %xchart4=1 newpath } if k 0 eq i 0 le and {xi 1000 add i 500 mul add yi 2000 sub moveto j 0 eq {cwdif1 0 get cvishow} if j 1 eq {cndif1 0 get cvishow} if xchart4 1 eq {%xchart4=1 (\261) show %+/- j 0 eq {cwstd1 0 get cvishow} if j 1 eq {cnstd1 0 get cvishow} if } if %xchart4=1 newpath } if i 0 eq i 4 eq or {0 0 0 setrgbcolor xi yi 140 0 360 arc fill } if j 0 eq {%j=0 /w i 4 div def xchartl 0 eq {w 1 1 setrgbcolor} if %C-W xchartl 1 eq {w w 1 setrgbcolor} if %V-W xchartl 2 eq {1 w 1 setrgbcolor} if %M-W xchartl 3 eq {1 w w setrgbcolor} if %O-W xchartl 4 eq {1 1 w setrgbcolor} if %Y-W xchartl 5 eq {w 1 w setrgbcolor} if %L-W } if %j=0 j 1 eq {%j=1 /w 1 i 4 div sub def xchartl 0 eq {0 w w setrgbcolor} if %C-N xchartl 1 eq {0 0 w setrgbcolor} if %V-N xchartl 2 eq {w 0 w setrgbcolor} if %M-N xchartl 3 eq {w 0 0 setrgbcolor} if %O-N xchartl 4 eq {w w 0 setrgbcolor} if %Y-N xchartl 5 eq {0 w 0 setrgbcolor} if %L-N } if %j=1 xi yi 070 0 360 arc fill i 0 eq i 4 eq or {0 0 0 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if k 0 eq {%k=0 i 1 ge i 3 le and {%k=0 and all i 0 0 0 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if %i=2 and k<2 } if %k=0 k 1 eq i 2 eq and {%k=1 and i=2 0 0 0 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if %k=1 and i=2 i 4 eq j 1 eq and {%i=4 and j=1 %cross in black N 1 1 1 setrgbcolor xi 70 sub yi moveto 140 0 rlineto stroke xi yi 70 sub moveto 0 140 rlineto stroke } if %i=4 and j=1 } for %i=0,4 } for %j=0,1 } for %k=0,2 xt1 neg yt1 neg translate %************************************************************************* showpage grestore %} for %xchartl=0,5 %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 080 MM add 008 MM translate %80 MM Breite von TestStreifen 10 /Times-ISOL1 FS 53 MM 1 MM moveto () show 1 1 scale -77 21 MM sub -91 translate %%BeginDocument: Bild 29 Teststreifen Ueberlaenge %line 509 %%EndDocument EndEPSF grestore gsave BeginEPSF -0.0 MM -0.0 MM translate %xy-Verschiebung Rechteckrahmen nach innen% %%BeginDocument: Bild 30 %Rechteckrahmen %line 519 %!PS-Adobe-3.0 EPSF-3.0 Frame arround with Internet text DG02 20070101 %%BoundingBox: 0 0 598 845 %%EndProlog gsave /lanind 1 def /lantex [(G) (E) (S) (N) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanind1 01 def /lanind2 01 def /lanindd 01 def /colorm1 00 def /colorm2 00 def /colormd 01 def /deintp1 00 def /deintp2 00 def /deintpd 01 def /xcolor1 03 def /xcolor2 03 def /xcolord 01 def /xchart1 00 def /xchart2 00 def /xchartd 01 def /pchart1 00 def /pchart2 00 def /pchartd 01 def /colsep1 00 def /colsep2 00 def /colsepd 01 def /pmetam1 00 def /pmetam2 00 def /pmetamd 01 def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} if /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} if /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} if /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} if /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 1 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} if /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} if /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} if /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES 0 def /i*ptrsc 0 def gsave 0 setgray 1.0 1.0 scale 0.0 MM 0.0 MM translate 0.15 MM setlinewidth /x 20 array def /y 20 array def /d 20 array def /x [000 296 296 000 002 294 294 002 005 291 291 005 %speziell 006 290 290 006 008 288 288 008 ] def /y [000 000 210 210 002 002 208 208 005 005 205 205 %speziell 006 006 204 204 008 008 202 202 ] def /d [060 017 -60 -17 058 015 -58 -15 056 013 -56 -13 054 011 -54 -11 052 009 -52 -09 ] def colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if xchart 1 ge {%xchart>=1 /i0 12 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def 2.5 MM /Times-ISOL1 FS x i0 get MM 40 MM add y i0 get MM 1 MM sub moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolor cvishow xchart cvishow pchart cvishow colsep cvishow (-F) show pmetam cvishow } if %xchart>=1 /xt 1 def xchart 1 eq {/xt 1 def} if xt 0 eq {%xt=0,1 ifelse /i0 12 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def 2.5 MM /Times-ISOL1 FS x i0 get MM 110 MM add y i0 get MM 1 MM sub moveto (http://130.149.60.45/~farbmetrik/XE39/XE39) show colorm cvishow deintp cvishow colorm 0 eq {(N) show} {(F) show} ifelse (P.PDF & ) show (http://130.149.60.45/~farbmetrik/XE39/XE39) show colorm cvishow deintp cvishow colorm 0 eq {(N) show} {(F) show} ifelse (P.TXT & ) show (http://130.149.60.45/~farbmetrik/XE39/XE39.HTM) show } %xt=0 { %xt=1 /xlu 017 MM def /ylu 017 MM def /xro 279 MM def /yro 193 MM def /xlo 017 MM def /ylo 193 MM def /xru 279 MM def /yru 017 MM def xlu 8 MM sub ylu moveto 16 MM 0 rlineto stroke xlu ylu 8 MM sub moveto 0 16 MM rlineto stroke xro 8 MM add yro moveto -16 MM 0 rlineto stroke xro yro 8 MM add moveto 0 -16 MM rlineto stroke xru 8 MM sub yru moveto 16 MM 0 rlineto stroke xru yru 8 MM sub moveto 0 16 MM rlineto stroke xlo 8 MM add ylo moveto -16 MM 0 rlineto stroke xlo ylo 8 MM add moveto 0 -16 MM rlineto stroke 1 2 7 {/i exch def %Zentrierkreise xlu ylu i MM 0 360 arc stroke xro yro i MM 0 360 arc stroke xru yru i MM 0 360 arc stroke xlo ylo i MM 0 360 arc stroke } for %i 12 4 16 {/i exch def /i0 i def %i=0,16 %0 4 16 {/i exch def /i0 i def %i=0,16 /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse 0 setgray x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto x i0 get MM y i0 get MM lineto stroke i 16 eq {6 /Times-ISOL1 FS /x00 67 def /xdif 32 def /y0o 202.3 def /y0u 6.3 def /x0l 6.1 def /x0r 288 def /y00 22 def /ydif 32 def x00 xdif 0 mul add MM y0o MM moveto (V) show x00 xdif 0 mul add MM y0u MM moveto (C) show x00 xdif 1 mul add MM y0o MM moveto (L) show x00 xdif 1 mul add MM y0u MM moveto (M) show x00 xdif 2 mul add MM y0o MM moveto (O) show x00 xdif 2 mul add MM y0u MM moveto (Y) show x00 xdif 3 mul add MM y0o MM moveto (Y) show x00 xdif 3 mul add MM y0u MM moveto (O) show x00 xdif 4 mul add MM y0o MM moveto (M) show x00 xdif 4 mul add MM y0u MM moveto (L) show x00 xdif 5 mul add MM y0o MM moveto (C) show x00 xdif 5 mul add MM y0u MM moveto (V) show x0l MM y00 ydif 0 mul add MM moveto (V) show x0r MM y00 ydif 0 mul add MM moveto (C) show x0l MM y00 ydif 1 mul add MM moveto (L) show x0r MM y00 ydif 1 mul add MM moveto (M) show x0l MM y00 ydif 2 mul add MM moveto (O) show x0r MM y00 ydif 2 mul add MM moveto (Y) show x0l MM y00 ydif 3 mul add MM moveto (Y) show x0r MM y00 ydif 3 mul add MM moveto (O) show x0l MM y00 ydif 4 mul add MM moveto (M) show x0r MM y00 ydif 4 mul add MM moveto (L) show x0l MM y00 ydif 5 mul add MM moveto (C) show x0r MM y00 ydif 5 mul add MM moveto (V) show } if } for %i=0,16 0 1 10 {/j0 exch def /j1 j0 1 add def %j0 j0 0 eq {tzccmy0* setcmykcolor} if j0 1 eq {0 setgray} if j0 2 eq {tzmcmy0* setcmykcolor} if j0 3 eq {0 setgray} if j0 4 eq {tzycmy0* setcmykcolor} if j0 5 eq {0 setgray} if j0 6 eq {tzocmy0* setcmykcolor} if j0 7 eq {0 setgray} if j0 8 eq {tzlcmy0* setcmykcolor} if j0 9 eq {0 setgray} if j0 10 eq {tzvcmy0* setcmykcolor} if 12 4 16 {/i exch def /i0 i def %i=0,16 %0 4 16 {/i exch def /i0 i def %i=0,16 /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse x i0 get d i0 get add 16 j0 mul add MM y i0 get MM moveto x i0 get d i0 get add 16 j1 mul add MM y i0 get MM lineto stroke x i1 get MM y i1 get d i1 get add 16 j0 mul add MM moveto x i1 get MM y i1 get d i1 get add 16 j1 mul add MM lineto stroke x i2 get d i2 get add 16 j0 mul sub MM y i2 get MM moveto x i2 get d i2 get add 16 j1 mul sub MM y i2 get MM lineto stroke x i3 get MM y i3 get d i3 get add 16 j0 mul sub MM moveto x i3 get MM y i3 get d i3 get add 16 j1 mul sub MM lineto stroke } for %i=0,16 } for %j0 0.15 MM setlinewidth /s 7 MM def /s1 8 MM def /s5 36 MM def 16 1 20 {/j exch def /j0 j 16 sub def %j=16,20 /ix0 xlu 8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def 0 1 3 {/ij exch def %ij=0,3 ij 0 eq {/ix0 xlu 8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def} if ij 1 eq {/ix0 xru 43 MM sub j0 7 MM mul add def /iy0 yru 8 MM sub def} if ij 2 eq {/ix0 xlo 8 MM add j0 7 MM mul add def /iy0 ylo 1 MM add def} if ij 3 eq {/ix0 xro 43 MM sub j0 7 MM mul add def /iy0 yro 1 MM add def} if i*ptrsc 0 eq i*ptrsc 2 eq or {%i*ptrsc=0,2 cmy0* setcmykcolor j 16 eq {tzan j get dup dup 0 setcmykcolor ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if tzan j get dup dup 0 setcmykcolor ix0 iy0 s s rec fill } if %i*ptrsc=0,2 i*ptrsc 1 eq i*ptrsc 3 eq or {%i*ptrsc=1,3 www* setrgbcolor j 16 eq {1 tzan j get 1 sub dup dup setrgbcolor %N ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 1 tzan j get sub dup dup setrgbcolor %N ix0 iy0 s s rec fill } if %i*ptrsc=1,3 i*ptrsc 4 eq i*ptrsc 5 eq or {%i*ptrsc=4,5 [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace j 16 eq {tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add setcolor %N ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add setcolor %N ix0 iy0 s s rec fill } if %i*ptrsc=4,5 i*ptrsc 6 eq {%i*ptrsc=6 000n* setcmykcolor j 16 eq {0 0 0 tzan j get setcmykcolor ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 0 0 0 tzan j get setcmykcolor ix0 iy0 s s rec fill } if %i*ptrsc=6 i*ptrsc 7 eq {%i*ptrsc=7 w* setgray j 16 eq {1 tzan j get sub setgray ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 1 tzan j get sub setgray ix0 iy0 s s rec fill } if %i*ptrsc=7 } for %ij=0,3 } for %j=16,20 0 setgray 018 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show 018 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show 276 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show 276 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show 018 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show 018 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show 276 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show 276 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show 0 setgray 12 /Times-ISOL1 FS 61 MM 13.5 MM moveto (TUB\255Pr\374fvorlage XE39; ) showde %0XE39X-Y 0000# (TUB\255test chart XE39; ) showen %1XE39X-Y 0000# (gr\341fico TUB\255XE39; ) showes %2XE39X-Y 0000# (TUB\255test graphique XE39; ) showfr %3XE39X-Y 0000# (grafico TUB\255XE39; ) showit %4XE39X-Y 0000# (TUB\255test chart XE39; ) showjp %5XE39X-Y 0000# 12 /Times-ISOL1 FS (BAM\2555stufige Farbserien) showde %0XE39X-Y 0100# (BAM 5 step colour series) showea %1XE39X-Y 0100# 61 MM 09.5 MM moveto 12 /Times-ISOL1 FS (different Anker colours) showea (verschiedene Ankerfarben) showde 12 /TimesI-ISOL1 FS ( W, N und CVMOYL; CIELAB und visuelle Differenz) showde ( W, N, and CVMOYL; CIELAB and visual difference) showen xchart 9 ge {%xchart>=1 12 /Times-ISOL1 FS (, 3D=) show colorm cvishow (, de=) show deintp cvishow 12 /TimesI-ISOL1 FS xchart5f 0 eq {(, sRGB) show} if xchart5f 1 eq {(, cmyk) show} if xchart5f 2 eq {(, cmy0) show} if xchart5f 3 eq {(, cmyk) show} if colorm 1 eq {(*) show} if } if %xchart>=1 12 /Times-ISOL1 FS 165 MM 13 MM moveto (Eingabe: ) showde %0XE39X-Y 0500# (input: ) showen %1XE39X-Y 0500# (entrada: ) showes %2XE39X-Y 0500# (entr\351e: ) showfr %3XE39X-Y 0500# (immettere: ) showit %4XE39X-Y 0500# (input: ) showjp %5XE39X-Y 0500# 12 /TimesI-ISOL1 FS (w/rgb/cmyk -> ) show xchart xchart3 lt {(w/rgb/cmyk) show } if xchart xchart3 ge {%xchart>=xchart3 (rgb) show } if %xchart>=xchart3 10 /Times-ISOL1 FS 0 -2 rmoveto Txx show 0 2 rmoveto 12 /Times-ISOL1 FS /iout 0 def iout 1 eq {%iout=1 12 /Times-ISOL1 FS 165 MM 9 MM moveto (Ausgabe: ) showde %0XE39X-Y 0600# (output: ) showen %1XE39X-Y 0600# (salida: ) showes %2XE39X-Y 0600# (sortie: ) showfr %3XE39X-Y 0600# (uscita: ) showit %4XE39X-Y 0600# (output: ) showjp %5XE39X-Y 0600# %colorm=0,1! 12 /Times-ISOL1 FS xchart 8 le {%xchart=0,#0 12 /Times-ISOL1 FS (keine \304nderung) showde %0XE39X-Y 0700# (no change) showen %1XE39X-Y 0700# (ning\372n cambio) showes %2XE39X-Y 0700# (aucun changement) showfr %3XE39X-Y 0700# (nessun cambiamento) showit %4XE39X-Y 0700# (no change compared) showjp %5XE39X-Y 0700# }%xchart=0 {%xchart#0 12 /Times-ISOL1 FS colorm 0 eq {%colorm=0 (Transfer nach ) showde %0XE39X-Y 0800# (transfer to ) showen %1XE39X-Y 0800# (transfiera a ) showes %2XE39X-Y 0800# (transf\351rer \340 ) showfr %3XE39X-Y 0800# (trasferire a ) showit %4XE39X-Y 0800# (transfer to ) showjp %5XE39X-Y 0800# }%colorm=0 {%colorm=1 (3D\255Linearisierung ) showde %0XE39X-Y 0900# (3D\255linearization to ) showen %1XE39X-Y 0900# (3D\255linealizaci\363n a ) showes %2XE39X-Y 0900# (linearisation 3D selon ) showfr %3XE39X-Y 0900# (3D\255linearizzazione a ) showit %4XE39X-Y 0900# (3D\255linearization to ) showjp %5XE39X-Y 0900# } ifelse %colorm=1 12 /TimesI-ISOL1 FS xchart5f 0 eq {(rgb) show} if xchart5f 1 eq {(cmyk) show} if xchart5f 2 eq {(cmy0) show} if xchart5f 3 eq {(cmyk) show} if colorm 1 eq {(*) show} if 10 /Times-ISOL1 FS 0 -2 rmoveto Txx show 0 2 rmoveto 12 /Times-ISOL1 FS } ifelse %xchart=0,#0 } if %iout=1 %0 setgray %end white and unvisible 12 /Times-ISOL1 FS 62 MM 198.5 MM moveto (http://130.149.60.45/~farbmetrik/XE39/XE39L) show (0) show LSC$ show LEX$ show %1 setgray %start white and unvisible (; ) show xchart 8 le { (Start\255Ausgabe) showde %0XE39X-Y 1000# (start output) showen %1XE39X-Y 1000# (comience salida) showes %2XE39X-Y 1000# (sortie de production) showfr %3XE39X-Y 1000# (cominciare l'uscita) showit %4XE39X-Y 1000# (start output) showjp %5XE39X-Y 1000# } if LSC$ (C) eq { (Start\255Ausgabe) showde %0XE39X-Y 1100# (start output) showen %1XE39X-Y 1100# (comience salida) showes %2XE39X-Y 1100# (sortie de production) showfr %3XE39X-Y 1100# (cominciare l'uscita) showit %4XE39X-Y 1100# (start output) showjp %5XE39X-Y 1100# } if xchart 9 ge {%xchart>=1 colorm 0 eq {%colorm=0,1 (Transfer Ausgabe) showde %0XE39X-Y 1200# (transfer output) showen %1XE39X-Y 1200# (salida de transferencia) showes %2XE39X-Y 1200# (sortie de transfert) showfr %3XE39X-Y 1200# (uscita di trasferimento) showit %4XE39X-Y 1200# (transfer output) showjp %5XE39X-Y 1200# }%colorm=0 {%colorm=1 (3D\255Linearisierung) showde %0XE39X-Y 1300# (3D\255linearization) showen %1XE39X-Y 1300# (3D\255linealizaci\363n) showes %2XE39X-Y 1300# (linearisation 3D) showfr %3XE39X-Y 1300# (3D\255linearizzzazione) showit %4XE39X-Y 1300# (3D\255linearization) showjp %5XE39X-Y 1300# } ifelse %colorm=0,1 } if %xchart>=1 62 MM 194 MM moveto LSC$ (N) eq LSC$ (C) eq or { (N: Keine 3D\255Linearisierung (OL) ) showde %0XE39X-Y 1400# (N: no 3D\255linearization (OL) ) showen %1XE39X-Y 1400# (N: ninguna 3D\255linealizaci\363n (OL) ) showes %2XE39X-Y 1400# (N: aucun linearisation 3D (OL) ) showfr %3XE39X-Y 1400# (N: nessun 3D\255linearizzazione (OL) ) showit %4XE39X-Y 1400# (N: no 3D\255linearization (OL) ) showjp %5XE39X-Y 1400# (in Datei (F) oder PS\255Startup (S)) showde %0XE39X-Y 1500# (in file (F) or PS\255startup (S)) showen %1XE39X-Y 1500# (en archivo (F) o PS\255startup (S)) showes %2XE39X-Y 1500# (dans fichier (F) ou PS\255startup (S)) showfr %3XE39X-Y 1500# (nel file (F) o PS\255startup (S)) showit %4XE39X-Y 1500# (in file (F) or PS\255startup (S)) showjp %5XE39X-Y 1500# } {LSC$ show (: ) show (3D\255Linearisierung) showde %0XE39X-Y 1600# (3D\255linearization) showen %1XE39X-Y 1600# (3D\255linealizaci\363n) showes %2XE39X-Y 1600# (linearisation 3D) showfr %3XE39X-Y 1600# (3D\255linearizzzazione) showit %4XE39X-Y 1600# (3D\255linearization) showjp %5XE39X-Y 1600# ( XE39/XE39L) show LSS$ show LSX$ show (0) show LSC$ show LEY$ show } ifelse LSC$ (F) eq { ( in Datei (F)) showde %0XE39X-Y 1700# ( in file (F)) showen %1XE39X-Y 1700# ( en archivo (F)) showes %2XE39X-Y 1700# ( dans fichier (F)) showfr %3XE39X-Y 1700# ( nel file (F)) showit %4XE39X-Y 1700# ( in file (F)) showjp %5XE39X-Y 1700# } if LSC$ (S) eq { ( im Distiller Startup (S) Directory) showde %0XE39X-Y 1800# ( in Distiller Startup (S) Directory) showen %1XE39X-Y 1800# ( en el Distiller Startup (S) Directory) showes %2XE39X-Y 1800# ( dans le Distiller Startup (S) Directory) showfr %3XE39X-Y 1800# ( nel Distiller Startup (S) Directory) showit %4XE39X-Y 1800# ( in Distiller Startup (S) Directory) showjp %5XE39X-Y 1800# } if LSC$ (D) eq { ( in PS\255Device (D)) showde %0XE39X-Y 1900# ( in PS\255device (D)) showen %1XE39X-Y 1900# ( en el PS\255device (D)) showes %2XE39X-Y 1900# ( dans l'appareil PS (D)) showfr %3XE39X-Y 1900# ( nel PS\255dispositivo (D)) showit %4XE39X-Y 1900# ( in PS\255Device (D)) showjp %5XE39X-Y 1900# } if LSC$ (T) eq { ( im Distiller Startup (S) Directory) showde %0XE39X-Y 2000# ( in Distiller Startup (S) Directory) showen %1XE39X-Y 2000# ( en el Distiller Startup (S) Directory) showes %2XE39X-Y 2000# ( dans le Distiller Startup (S) Directory) showfr %3XE39X-Y 2000# ( nel Distiller Startup (S) Directory) showit %4XE39X-Y 2000# ( in Distiller Startup (S) Directory) showjp %5XE39X-Y 2000# } if LSC$ (E) eq { ( in PS\255Device (D)) showde %0XE39X-Y 2100# ( in PS\255device (D)) showen %1XE39X-Y 2100# ( en el PS\255device (D)) showes %2XE39X-Y 2100# ( dans appareil PS (D)) showfr %3XE39X-Y 2100# ( nel PS\255dispositivo (D)) showit %4XE39X-Y 2100# ( in PS\255Device (D)) showjp %5XE39X-Y 2100# } if %0 setgray %end white and unvisible (, Seite ) showde %0XE39X-Y 2200# (, page ) showen %1XE39X-Y 2200# (, p\341gina ) showes %2XE39X-Y 2200# (, page ) showfr %3XE39X-Y 2200# (, pagina ) showit %4XE39X-Y 2200# (, page ) showjp %5XE39X-Y 2200# xchart 1 add cvishow (/) show xchartm cvishow 16 MM 185 MM moveto -90 rotate (Siehe \344hnliche Dateien: ) showde %0XE39X-Y 2300# (see similar files: ) showen %1XE39X-Y 2300# (vea archivos semejantes: ) showes %2XE39X-Y 2300# (voir des fichiers similaires: ) showfr %3XE39X-Y 2300# (vedere dei file simili: ) showit %4XE39X-Y 2300# (see similar files: ) showjp %5XE39X-Y 2300# (http://130.149.60.45/~farbmetrik/XE39/XE39.HTM) show %(0) show %LSC$ show LEX$ show 90 rotate 12 MM 185 MM moveto -90 rotate (Technische Information: ) showde %0XE39X-Y 2400# (technical information: ) showen %1XE39X-Y 2400# (informaci\363n t\351cnica: ) showes %2XE39X-Y 2400# (informations techniques: ) showfr %3XE39X-Y 2400# (informazioni tecniche: ) showit %4XE39X-Y 2400# (technical information: ) showjp %5XE39X-Y 2400# (http://www.ps.bam.de) show ( oder ) showde %0XE39X-Y 2500# ( or ) showen %1XE39X-Y 2500# ( o ) showes %2XE39X-Y 2500# ( ou ) showfr %3XE39X-Y 2500# ( o ) showit %4XE39X-Y 2500# ( or ) showjp %5XE39X-Y 2500# (http://130.149.60.45/~farbmetrik) show 90 rotate 281 MM 185 MM moveto -90 rotate (TUB\255Registrierung: 20160701\255XE39/XE39L) showde %0XE39X-Y 2600# (TUB registration: 20160701\255XE39/XE39L) showen %1XE39X-Y 2600# (TUB matr\355cula: 20160701\255XE39/XE39L) showes %2XE39X-Y 2600# (TUB enregistrement: 20160701\255XE39/XE39L) showfr %3XE39X-Y 2600# (TUB iscrizione: 20160701\255XE39/XE39L) showit %4XE39X-Y 2600# (TUB registration: 20160701\255XE39/XE39L) showjp %5XE39X-Y 2600# (0) show LSC$ show LEX$ show 90 rotate 281 MM 74 MM moveto -90 rotate (TUB\255Material: Code=rha4ta) showde %0XE39X-Y 2700# (TUB material: code=rha4ta) showen %1XE39X-Y 2700# (TUB material: code=rha4ta) showes %2XE39X-Y 2700# (TUB mat\351riel: code=rha4ta) showfr %3XE39X-Y 2700# (TUB materiale: code=rha4ta) showit %4XE39X-Y 2700# (TUB material: code=rha4ta) showjp %5XE39X-Y 2700# 90 rotate 277 MM 185 MM moveto -90 rotate /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def ( Anwendung f\374r Messung ) showde %0XE39X-Y 2800# ( application for measurement ) showen %1XE39X-Y 2800# ( aplicaci\363n para la medida ) showes %2XE39X-Y 2800# ( application pour la mesure ) showfr %3XE39X-Y 2800# ( la domanda per la misura ) showit %4XE39X-Y 2800# ( application for measurement ) showjp %5XE39X-Y 2800# xchart5f 0 eq {%xchart5f=0 (von Display-Ausgabe) showde %0XE39X-Y 2900# (of display output) showen %1XE39X-Y 2900# (de display output) showes %2XE39X-Y 2900# (de sortie sur \350cran) showfr %3XE39X-Y 2900# (di stampa di display) showit %4XE39X-Y 2900# (of display output) showjp %5XE39X-Y 2900# } if %xchart5f=0 xchart5f 1 eq xchart5f 2 eq or {%xchart5f=1,2 (von Offsetdruck\255Ausgabe) showde %0XE39X-Y 3000# (of offset print output) showen %1XE39X-Y 3000# (salida en la impressi\363n offset) showes %2XE39X-Y 3000# (des sorties sur offset) showfr %3XE39X-Y 3000# (uscita nella stampa di offset) showit %4XE39X-Y 3000# (of offset print output) showjp %5XE39X-Y 3000# } if %xchart5f=1,2 xchart5f 3 eq {%xchart5f=3 (von Laserdrucker\255Ausgabe) showde %0XE39X-Y 3100# (of laser printer output) showen %1XE39X-Y 3100# (salida de impresora l\341ser) showes %2XE39X-Y 3100# (des sorties sur imprimante laser) showfr %3XE39X-Y 3100# (di uscita della stampante laser) showit %4XE39X-Y 3100# (of laser printer output) showjp %5XE39X-Y 3100# } if %xchart5f=3 xchart 1 ge {%xchart>=1 xchart5f 0 eq {%xchart5f=0 (, keine Separation) showde %0XE39X-Y 3200# (, no separation) showen %1XE39X-Y 3200# (, ninguna separaci\363n) showes %2XE39X-Y 3200# (, aucune s\351paration) showfr %3XE39X-Y 3200# (, nessuna separazione) showit %4XE39X-Y 3200# (, no separation) showjp %5XE39X-Y 3200# } if %chart5f=0 xchart5f 1 ge {%xchart5f>=1 (, Separation) showde %0XE39X-Y 3300# (, separation) showen %1XE39X-Y 3300# (, separaci\363n) showes %2XE39X-Y 3300# (, s\351paration) showfr %3XE39X-Y 3300# (, separazione) showit %4XE39X-Y 3300# (, separation) showjp %5XE39X-Y 3300# xchart5f 1 eq xchart5f 3 eq or {(cmyn6) show} if xchart5f 2 eq {(cmy0) show} if colorm 1 eq {(*) show} if colsep 0 eq {( (CMYK))}{( (CMY0))} ifelse show } if %xchart5f>=1 } if %xchart>=1 IMES 1 eq LSC$ (N) ne and { %IMES=1 (, Yr=) show Yre cvsshow1 (, XYZ) show } if %IMES=1 90 rotate /i0 8 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def 0.30 MM setlinewidth 0 setgray x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto x i0 get MM y i0 get MM lineto stroke %/xlu1 013 MM def /ylu1 010 MM def %/xro1 283 MM def /yro1 200 MM def %/xlo1 013 MM def /ylo1 200 MM def %/xru1 283 MM def /yru1 010 MM def %xlu1 4 MM sub ylu1 moveto 8 MM 0 rlineto stroke %xlu1 ylu1 4 MM sub moveto 0 8 MM rlineto stroke %xro1 4 MM add yro1 moveto -8 MM 0 rlineto stroke %xro1 yro1 4 MM add moveto 0 -8 MM rlineto stroke %xru1 4 MM sub yru1 moveto 8 MM 0 rlineto stroke %xru1 yru1 4 MM sub moveto 0 8 MM rlineto stroke %xlo1 4 MM add ylo1 moveto -8 MM 0 rlineto stroke %xlo1 ylo1 4 MM add moveto 0 -8 MM rlineto stroke } ifelse %xt=1 grestore gsave %********************************************************** %%Trailer %%EndDocument EndEPSF grestore gsave showpage grestore %} for %colsepf=0,1 %} for %pchartf=0,0 %} for %xchartf=0,0 %} for %xcolorf=3,3 %} for %deintpf=0,1 %} for %colormf=0,1 %} for %lanindf=0,0 %%Trailer