%!PS-Adobe-3.0 EPSF-3.0 http://130.149.60.445/~farbmetrik/LE68/LE68L00XX.PS 20100101 %%BoundingBox: 14 08 828 584 /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/LE68/LE68.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.445/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2010010112000) /ModDate (D:2010010112000) /DOCINFO pdfmark [ /View [ /Fit ] /DOCVIEW pdfmark %BEG LE68/OUTLIN10.PS Output Linearization (OL) 20090901 %IDENTICAL TO LE68/OUTLIN11.PS %Early Binding: needed for colour transfer /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) /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 (FRS06) %/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 (NRS18) %/ISOU*ioG 5 def %output dto. %/ISIN*ioG 6 def %input for Standard Reflective System (SRS18) %/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 /ISIO*ioG 0 def /ISRL*ioG 0 def % for io-System, only once /auszg 8 def /halfg 0 def /ausz 8 def /half 0 def /VisTol*ioG 1.00 def %END LE68/OUTLIN10.PS Output Linearization (OL) 20090901 %BEG LE68/OUTLIN1X.PS Emty 20100701 %END LE68/OUTLIN1X.PS Emty 20100701 /CFilenameS1g %START output of step S1g (http://130.149.60.445/~farbmetrik/LE68/Y10E00N) def %Link file name for data /CDateS1g (2009-12-01, Name) def %Date of calculation, Tester /CDeviceS1g (unknown ) def %Device name /CMeasS1g (LE68/Y10E00N) def %File name measured in step S1g %change scount2g from 2 to 10 for 10 series %change pcount2g from 8 to 240 for 240 pages of each series /scount1g 1 def /scount2g 1 def /scountg 1 def /pcount1g 1 def /pcount2g 1 def /pcountg 1 def /xchart1g 0 def /xchart2g 1 def /xchartg 0 def /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 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 %0 %1 /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 /tzank [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 %picturetransfer from standard locations (8 pictures, 5 test charts) /xpic5458 [0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %x for chartg=0 0.0 0.0 0.0 -12 0.0 0.0 0.0 0.0 %x for chartg=1 0.0 0.0 0.0 -25 0.0 0.0 0.0 0.0 %x for chartg=2 0.0 0.0 0.0 -12 0.0 0.0 0.0 0.0 %x for chartg=3 0.0 0.0 0.0 -20 0.0 0.0 0.0 0.0] def %x for chartg=4 /ypic5458 [0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %y for chartg=0 0.0 0.0 0.0 -05 0.0 0.0 0.0 0.0 %y for chartg=1 0.0 0.0 0.0 -12 0.0 0.0 0.0 0.0 %y for chartg=2 0.0 0.0 0.0 -05 0.0 0.0 0.0 0.0 %y for chartg=3 0.0 0.0 0.0 -20 0.0 0.0 0.0 0.0] def %y for chartg=4 %BEG 61 lines comment or new PS operators possible %02 %03 %04 %05 %06 %07 %08 %09 %11 %END 38 lines comment or new PS operators possible %%EndProlog %%BeginPageSetup /#copies 1 def %A4quer 1.0 1.0 scale /pgsave save def %%EndPageSetup 0.0 MM 0.0 MM translate %Verschiebung nach oben und links fuer Belichter gsave /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$ [(A.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$ [(A.DAT) (B.DAT) (G.DAT) (H.DAT) (I.DAT) (J.DAT) (P.DAT) (T.DAT)] def /lanindg1 1 def /lanindg2 1 def /colormg1 0 def /colormg2 0 def /xcolorg1 0 def /xcolorg2 0 def /xchartg1 0 def /xchartg2 0 def /lanindg lanindg1 def %no loops /colormg colormg1 def /xcolorg xcolorg1 def /xchartg xchartg1 def /pcount2x pcount2g xchart2g sub 2 add def %1 1 1 {/scountg exch def %s=serie, e. g. 1,1,10 %1 1 1 {/pcountg exch def %p=page, e. g. 1,1,250 /xchart10 0 def /xchart20 3 def %pcountg pcount1g eq {/xchart10 0 def /xchart20 0 def} % {/xchart10 1 def /xchart20 1 def} ifelse %pcountg pcount2x eq {/xchart10 0 def /xchart20 0 def} if xchart10 1 xchart20 {/xchartg exch def %2 MM /Times-Roman FS %274 MM 82 MM moveto -90 rotate (/LE68/ ) show (Form: ) show %xchartg 1 add cvi 6 string cvs show (/) show %xchart2g 1 add cvi 6 string cvs show (,) show 90 rotate %274 MM 65 MM moveto -90 rotate (Serie: ) show %scountg cvi 6 string cvs show (/) show %scount2g cvi 6 string cvs show (,) show 90 rotate %274 MM 55 MM moveto -90 rotate %lanindg 0 eq {(Seite: )}{(Page: )} ifelse show %pcountg xchartg xchart10 sub add cvi 6 string cvs show 90 rotate %274 MM 45 MM moveto %-90 rotate %lanindg 0 eq {(Seitenz\344hlung )}{(Page: count: )} ifelse show %scountg 1 sub pcount2g mul pcountg add %pcountg pcount2x eq {xchartg add pcount1g pcount2x ne {2 sub } if} if %cvi 6 string cvs show %90 rotate /GSS$ SS$ lanindg get def /GSC$ SC$ colormg get def /GSX$ SX$ xcolorg xcolorg 16 idiv 16 mul sub get def /GSY$ SY$ xchartg xchartg 16 idiv 16 mul sub get def /GEX$ EX$ 0 get def /GEY$ EY$ 0 get def /xcha801 xchartg 8 mul 0 add def /xcha803 xchartg 8 mul 1 add def /xcha805 xchartg 8 mul 2 add def /xcha807 xchartg 8 mul 3 add def /xcha811 xchartg 8 mul 4 add def /xcha813 xchartg 8 mul 5 add def /xcha815 xchartg 8 mul 6 add def /xcha817 xchartg 8 mul 7 add def %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 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 LE680-1, %%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 (LE680-1,) 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 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 LE680-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 (LE680-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 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 LE680-3, %%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 (LE680-3,) 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 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 LE680-4, %%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 (LE680-4,) 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 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 LE680-5, %%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 (LE680-5,) 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 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 LE680-6, %%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 (LE680-6,) 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 3 MM sub 020 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 LE680-7N.EPS %%BoundingBox: 70 82 785 580 %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/KE63/) /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:2010070112000) /ModDate (D:2010070112000) /DOCINFO pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 %END PDFDE011 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /TS {170 /Times-ISOL1 FS} bind def /TK {200 /Times-ISOL1 FS} bind def /TM {270 /Times-ISOL1 FS} bind def /TG {320 /Times-ISOL1 FS} bind def /TIS {170 /TimesI-ISOL1 FS} bind def /TIK {200 /TimesI-ISOL1 FS} bind def /TIM {270 /TimesI-ISOL1 FS} bind def /TIG {320 /TimesI-ISOL1 FS} bind def /TBS {170 /TimesB-ISOL1 FS} bind def /TBK {200 /TimesB-ISOL1 FS} bind def /TBM {270 /TimesB-ISOL1 FS} bind def /TBG {320 /TimesB-ISOL1 FS} bind def /TBIS {170 /TimesBI-ISOL1 FS} bind def /TBIK {200 /TimesBI-ISOL1 FS} bind def /TBIM {270 /TimesBI-ISOL1 FS} bind def /TBIG {320 /TimesBI-ISOL1 FS} bind def /CBKK {200 /CourierB-ISOL1 FS} bind def /CBK {250 /CourierB-ISOL1 FS} bind def /CBM {300 /CourierB-ISOL1 FS} bind def /CBG {350 /CourierB-ISOL1 FS} bind def /TSK {200 /Symbol FS} bind def /TSM {270 /Symbol FS} bind def /TSG {320 /Symbol FS} bind def /xyY0 7560 array def %1080x7 /LAB*TE [(LCD projector 100901_1)] def /xyY0 [ %produced with the settings of the LED-LCD (LECD) monitor; full white used %FILE LMT_1080_100901_1.TXT %no. r g b x y Y. projector ACER XD1150. measurement 1 1 0.00000 0.00000 0.00000 0.3176 0.3419 10.12E+00 2 0.00000 0.00000 0.12549 0.2892 0.2979 10.55E+00 3 0.00000 0.00000 0.25098 0.2309 0.2075 12.35E+00 4 0.00000 0.00000 0.37647 0.1831 0.1340 17.97E+00 5 0.00000 0.00000 0.50196 0.1626 0.1018 3.03E+01 6 0.00000 0.00000 0.62353 0.1538 0.0885 5.27E+01 7 0.00000 0.00000 0.74902 0.1500 0.0824 9.06E+01 8 0.00000 0.00000 0.87451 0.1483 0.0797 1.50E+02 9 0.00000 0.00000 1.00000 0.1474 0.0787 2.19E+02 10 0.00000 0.12549 0.00000 0.3202 0.3738 12.90E+00 11 0.00000 0.12549 0.12549 0.2972 0.3326 13.53E+00 12 0.00000 0.12549 0.25098 0.2408 0.2368 15.33E+00 13 0.00000 0.12549 0.37647 0.1901 0.1514 21.20E+00 14 0.00000 0.12549 0.50196 0.1661 0.1107 3.36E+01 15 0.00000 0.12549 0.62353 0.1558 0.0931 5.60E+01 16 0.00000 0.12549 0.74902 0.1510 0.0849 9.38E+01 17 0.00000 0.12549 0.87451 0.1490 0.0811 1.53E+02 18 0.00000 0.12549 1.00000 0.1478 0.0797 2.22E+02 19 0.00000 0.25098 0.00000 0.3313 0.4514 26.79E+00 20 0.00000 0.25098 0.12549 0.3150 0.4187 27.41E+00 21 0.00000 0.25098 0.25098 0.2699 0.3283 29.75E+00 22 0.00000 0.25098 0.37647 0.2137 0.2142 35.43E+00 23 0.00000 0.25098 0.50196 0.1800 0.1453 4.78E+01 24 0.00000 0.25098 0.62353 0.1634 0.1122 7.03E+01 25 0.00000 0.25098 0.74902 0.1552 0.0956 10.81E+01 26 0.00000 0.25098 0.87451 0.1513 0.0874 1.67E+02 27 0.00000 0.25098 1.00000 0.1494 0.0839 2.36E+02 28 0.00000 0.37647 0.00000 0.3386 0.5156 72.71E+00 29 0.00000 0.37647 0.12549 0.3310 0.4983 73.49E+00 30 0.00000 0.37647 0.25098 0.3049 0.4392 75.87E+00 31 0.00000 0.37647 0.37647 0.2580 0.3324 8.31E+01 32 0.00000 0.37647 0.50196 0.2137 0.2311 9.55E+01 33 0.00000 0.37647 0.62353 0.1851 0.1661 11.80E+01 34 0.00000 0.37647 0.74902 0.1686 0.1286 15.56E+01 35 0.00000 0.37647 0.87451 0.1600 0.1082 2.15E+02 36 0.00000 0.37647 1.00000 0.1553 0.0980 2.84E+02 37 0.00000 0.50196 0.00000 0.3422 0.5419 17.02E+01 38 0.00000 0.50196 0.12549 0.3388 0.5335 17.10E+01 39 0.00000 0.50196 0.25098 0.3254 0.5012 17.31E+01 40 0.00000 0.50196 0.37647 0.2938 0.4264 18.03E+01 41 0.00000 0.50196 0.50196 0.2533 0.3311 19.59E+01 42 0.00000 0.50196 0.62353 0.2172 0.2458 21.89E+01 43 0.00000 0.50196 0.74902 0.1912 0.1841 25.67E+01 44 0.00000 0.50196 0.87451 0.1748 0.1454 3.16E+02 45 0.00000 0.50196 1.00000 0.1666 0.1249 3.84E+02 46 0.00000 0.62353 0.00000 0.3439 0.5529 35.47E+01 47 0.00000 0.62353 0.12549 0.3420 0.5487 35.54E+01 48 0.00000 0.62353 0.25098 0.3350 0.5316 35.77E+01 49 0.00000 0.62353 0.37647 0.3160 0.4863 36.41E+01 50 0.00000 0.62353 0.50196 0.2860 0.4140 38.03E+01 51 0.00000 0.62353 0.62353 0.2524 0.3330 40.84E+01 52 0.00000 0.62353 0.74902 0.2213 0.2583 44.69E+01 53 0.00000 0.62353 0.87451 0.1978 0.2014 5.05E+02 54 0.00000 0.62353 1.00000 0.1843 0.1684 5.74E+02 55 0.00000 0.74902 0.00000 0.3442 0.5577 65.25E+01 56 0.00000 0.74902 0.12549 0.3433 0.5554 65.32E+01 57 0.00000 0.74902 0.25098 0.3386 0.5455 65.38E+01 58 0.00000 0.74902 0.37647 0.3274 0.5181 66.01E+01 59 0.00000 0.74902 0.50196 0.3069 0.4683 67.62E+01 60 0.00000 0.74902 0.62353 0.2796 0.4022 70.43E+01 61 0.00000 0.74902 0.74902 0.2505 0.3312 75.29E+01 62 0.00000 0.74902 0.87451 0.2238 0.2664 8.13E+02 63 0.00000 0.74902 1.00000 0.2062 0.2234 8.83E+02 64 0.00000 0.87451 0.00000 0.3437 0.5596 10.94E+02 65 0.00000 0.87451 0.12549 0.3434 0.5582 10.94E+02 66 0.00000 0.87451 0.25098 0.3412 0.5524 10.96E+02 67 0.00000 0.87451 0.37647 0.3340 0.5352 11.01E+02 68 0.00000 0.87451 0.50196 0.3200 0.5022 11.19E+02 69 0.00000 0.87451 0.62353 0.2999 0.4522 11.46E+02 70 0.00000 0.87451 0.74902 0.2744 0.3908 11.92E+02 71 0.00000 0.87451 0.87451 0.2489 0.3276 12.57E+02 72 0.00000 0.87451 1.00000 0.2295 0.2799 13.28E+02 73 0.00000 1.00000 0.00000 0.3442 0.5609 15.53E+02 74 0.00000 1.00000 0.12549 0.3437 0.5598 15.54E+02 75 0.00000 1.00000 0.25098 0.3420 0.5559 15.57E+02 76 0.00000 1.00000 0.37647 0.3369 0.5435 15.63E+02 77 0.00000 1.00000 0.50196 0.3269 0.5184 15.78E+02 78 0.00000 1.00000 0.62353 0.3110 0.4793 16.06E+02 79 0.00000 1.00000 0.74902 0.2895 0.4274 16.56E+02 80 0.00000 1.00000 0.87451 0.2660 0.3695 17.28E+02 81 0.00000 1.00000 1.00000 0.2473 0.3238 18.16E+02 82 0.12549 0.00000 0.00000 0.3274 0.3379 10.30E+00 83 0.12549 0.00000 0.12549 0.2985 0.2963 10.76E+00 84 0.12549 0.00000 0.25098 0.2372 0.2076 12.55E+00 85 0.12549 0.00000 0.37647 0.1866 0.1347 18.18E+00 86 0.12549 0.00000 0.50196 0.1643 0.1025 3.05E+01 87 0.12549 0.00000 0.62353 0.1548 0.0887 5.28E+01 88 0.12549 0.00000 0.74902 0.1504 0.0825 9.06E+01 89 0.12549 0.00000 0.87451 0.1486 0.0799 1.50E+02 90 0.12549 0.00000 1.00000 0.1474 0.0786 2.18E+02 91 0.12549 0.12549 0.00000 0.3300 0.3706 13.23E+00 92 0.12549 0.12549 0.12549 0.3044 0.3298 13.75E+00 93 0.12549 0.12549 0.25098 0.2463 0.2365 15.52E+00 94 0.12549 0.12549 0.37647 0.1929 0.1515 21.27E+00 95 0.12549 0.12549 0.50196 0.1675 0.1108 3.36E+01 96 0.12549 0.12549 0.62353 0.1566 0.0932 5.60E+01 97 0.12549 0.12549 0.74902 0.1514 0.0848 9.36E+01 98 0.12549 0.12549 0.87451 0.1488 0.0813 1.53E+02 99 0.12549 0.12549 1.00000 0.1480 0.0794 2.21E+02 100 0.12549 0.25098 0.00000 0.3359 0.4481 26.89E+00 101 0.12549 0.25098 0.12549 0.3190 0.4157 27.55E+00 102 0.12549 0.25098 0.25098 0.2735 0.3269 29.80E+00 103 0.12549 0.25098 0.37647 0.2159 0.2139 35.48E+00 104 0.12549 0.25098 0.50196 0.1810 0.1454 4.78E+01 105 0.12549 0.25098 0.62353 0.1640 0.1120 7.02E+01 106 0.12549 0.25098 0.74902 0.1556 0.0955 10.80E+01 107 0.12549 0.25098 0.87451 0.1518 0.0879 1.68E+02 108 0.12549 0.25098 1.00000 0.1497 0.0837 2.35E+02 109 0.12549 0.37647 0.00000 0.3406 0.5140 72.82E+00 110 0.12549 0.37647 0.12549 0.3329 0.4966 73.50E+00 111 0.12549 0.37647 0.25098 0.3067 0.4379 75.66E+00 112 0.12549 0.37647 0.37647 0.2594 0.3320 8.32E+01 113 0.12549 0.37647 0.50196 0.2147 0.2311 9.55E+01 114 0.12549 0.37647 0.62353 0.1856 0.1659 11.78E+01 115 0.12549 0.37647 0.74902 0.1690 0.1284 15.52E+01 116 0.12549 0.37647 0.87451 0.1599 0.1084 2.15E+02 117 0.12549 0.37647 1.00000 0.1557 0.0979 2.83E+02 118 0.12549 0.50196 0.00000 0.3433 0.5411 16.99E+01 119 0.12549 0.50196 0.12549 0.3398 0.5325 17.05E+01 120 0.12549 0.50196 0.25098 0.3261 0.5004 17.28E+01 121 0.12549 0.50196 0.37647 0.2942 0.4260 17.98E+01 122 0.12549 0.50196 0.50196 0.2539 0.3308 19.53E+01 123 0.12549 0.50196 0.62353 0.2176 0.2456 21.82E+01 124 0.12549 0.50196 0.74902 0.1914 0.1839 25.58E+01 125 0.12549 0.50196 0.87451 0.1754 0.1454 3.15E+02 126 0.12549 0.50196 1.00000 0.1669 0.1248 3.82E+02 127 0.12549 0.62353 0.00000 0.3443 0.5526 35.32E+01 128 0.12549 0.62353 0.12549 0.3424 0.5481 35.41E+01 129 0.12549 0.62353 0.25098 0.3353 0.5311 35.62E+01 130 0.12549 0.62353 0.37647 0.3163 0.4857 36.28E+01 131 0.12549 0.62353 0.50196 0.2864 0.4138 37.90E+01 132 0.12549 0.62353 0.62353 0.2527 0.3328 40.74E+01 133 0.12549 0.62353 0.74902 0.2215 0.2581 44.59E+01 134 0.12549 0.62353 0.87451 0.1981 0.2017 5.05E+02 135 0.12549 0.62353 1.00000 0.1843 0.1684 5.72E+02 136 0.12549 0.74902 0.00000 0.3445 0.5575 65.18E+01 137 0.12549 0.74902 0.12549 0.3434 0.5551 65.24E+01 138 0.12549 0.74902 0.25098 0.3395 0.5455 65.51E+01 139 0.12549 0.74902 0.37647 0.3281 0.5181 66.09E+01 140 0.12549 0.74902 0.50196 0.3077 0.4686 67.70E+01 141 0.12549 0.74902 0.62353 0.2803 0.4024 70.50E+01 142 0.12549 0.74902 0.74902 0.2510 0.3315 75.35E+01 143 0.12549 0.74902 0.87451 0.2244 0.2664 8.13E+02 144 0.12549 0.74902 1.00000 0.2066 0.2233 8.82E+02 145 0.12549 0.87451 0.00000 0.3442 0.5596 10.94E+02 146 0.12549 0.87451 0.12549 0.3442 0.5584 10.95E+02 147 0.12549 0.87451 0.25098 0.3415 0.5528 10.99E+02 148 0.12549 0.87451 0.37647 0.3341 0.5354 11.04E+02 149 0.12549 0.87451 0.50196 0.3209 0.5022 11.22E+02 150 0.12549 0.87451 0.62353 0.3004 0.4524 11.49E+02 151 0.12549 0.87451 0.74902 0.2750 0.3912 11.95E+02 152 0.12549 0.87451 0.87451 0.2495 0.3280 12.61E+02 153 0.12549 0.87451 1.00000 0.2297 0.2805 13.33E+02 154 0.12549 1.00000 0.00000 0.3446 0.5608 15.59E+02 155 0.12549 1.00000 0.12549 0.3442 0.5599 15.60E+02 156 0.12549 1.00000 0.25098 0.3427 0.5559 15.62E+02 157 0.12549 1.00000 0.37647 0.3376 0.5435 15.68E+02 158 0.12549 1.00000 0.50196 0.3273 0.5185 15.84E+02 159 0.12549 1.00000 0.62353 0.3112 0.4792 16.12E+02 160 0.12549 1.00000 0.74902 0.2899 0.4274 16.60E+02 161 0.12549 1.00000 0.87451 0.2662 0.3697 17.33E+02 162 0.12549 1.00000 1.00000 0.2475 0.3238 18.21E+02 163 0.25098 0.00000 0.00000 0.3847 0.3392 12.47E+00 164 0.25098 0.00000 0.12549 0.3538 0.3053 12.91E+00 165 0.25098 0.00000 0.25098 0.2797 0.2231 14.65E+00 166 0.25098 0.00000 0.37647 0.2082 0.1445 20.29E+00 167 0.25098 0.00000 0.50196 0.1746 0.1078 3.26E+01 168 0.25098 0.00000 0.62353 0.1601 0.0917 5.50E+01 169 0.25098 0.00000 0.74902 0.1533 0.0842 9.27E+01 170 0.25098 0.00000 0.87451 0.1502 0.0810 1.52E+02 171 0.25098 0.00000 1.00000 0.1489 0.0793 2.20E+02 172 0.25098 0.12549 0.00000 0.3799 0.3636 15.11E+00 173 0.25098 0.12549 0.12549 0.3527 0.3281 15.35E+00 174 0.25098 0.12549 0.25098 0.2838 0.2448 17.21E+00 175 0.25098 0.12549 0.37647 0.2127 0.1581 22.91E+00 176 0.25098 0.12549 0.50196 0.1774 0.1144 3.51E+01 177 0.25098 0.12549 0.62353 0.1614 0.0955 5.76E+01 178 0.25098 0.12549 0.74902 0.1541 0.0862 9.52E+01 179 0.25098 0.12549 0.87451 0.1506 0.0820 1.54E+02 180 0.25098 0.12549 1.00000 0.1489 0.0804 2.23E+02 181 0.25098 0.25098 0.00000 0.3667 0.4357 28.45E+00 182 0.25098 0.25098 0.12549 0.3490 0.4060 28.64E+00 183 0.25098 0.25098 0.25098 0.2975 0.3214 30.15E+00 184 0.25098 0.25098 0.37647 0.2303 0.2130 35.81E+00 185 0.25098 0.25098 0.50196 0.1887 0.1457 4.81E+01 186 0.25098 0.25098 0.62353 0.1681 0.1125 7.05E+01 187 0.25098 0.25098 0.74902 0.1580 0.0958 10.81E+01 188 0.25098 0.25098 0.87451 0.1530 0.0878 1.67E+02 189 0.25098 0.25098 1.00000 0.1509 0.0837 2.34E+02 190 0.25098 0.37647 0.00000 0.3537 0.5057 73.98E+00 191 0.25098 0.37647 0.12549 0.3459 0.4894 74.26E+00 192 0.25098 0.37647 0.25098 0.3187 0.4330 75.76E+00 193 0.25098 0.37647 0.37647 0.2684 0.3299 8.32E+01 194 0.25098 0.37647 0.50196 0.2204 0.2308 9.56E+01 195 0.25098 0.37647 0.62353 0.1892 0.1661 11.79E+01 196 0.25098 0.37647 0.74902 0.1710 0.1285 15.50E+01 197 0.25098 0.37647 0.87451 0.1614 0.1082 2.14E+02 198 0.25098 0.37647 1.00000 0.1562 0.0979 2.82E+02 199 0.25098 0.50196 0.00000 0.3492 0.5368 17.08E+01 200 0.25098 0.50196 0.12549 0.3454 0.5288 17.10E+01 201 0.25098 0.50196 0.25098 0.3316 0.4977 17.29E+01 202 0.25098 0.50196 0.37647 0.2991 0.4239 17.97E+01 203 0.25098 0.50196 0.50196 0.2577 0.3298 19.52E+01 204 0.25098 0.50196 0.62353 0.2202 0.2452 21.82E+01 205 0.25098 0.50196 0.74902 0.1931 0.1838 25.59E+01 206 0.25098 0.50196 0.87451 0.1763 0.1454 3.15E+02 207 0.25098 0.50196 1.00000 0.1673 0.1251 3.83E+02 208 0.25098 0.62353 0.00000 0.3469 0.5502 35.43E+01 209 0.25098 0.62353 0.12549 0.3452 0.5461 35.50E+01 210 0.25098 0.62353 0.25098 0.3380 0.5295 35.68E+01 211 0.25098 0.62353 0.37647 0.3190 0.4843 36.33E+01 212 0.25098 0.62353 0.50196 0.2887 0.4129 37.96E+01 213 0.25098 0.62353 0.62353 0.2544 0.3324 40.80E+01 214 0.25098 0.62353 0.74902 0.2229 0.2580 44.66E+01 215 0.25098 0.62353 0.87451 0.1991 0.2015 5.05E+02 216 0.25098 0.62353 1.00000 0.1852 0.1688 5.75E+02 217 0.25098 0.74902 0.00000 0.3461 0.5564 65.45E+01 218 0.25098 0.74902 0.12549 0.3451 0.5540 65.55E+01 219 0.25098 0.74902 0.25098 0.3411 0.5445 65.72E+01 220 0.25098 0.74902 0.37647 0.3297 0.5172 66.29E+01 221 0.25098 0.74902 0.50196 0.3091 0.4680 67.93E+01 222 0.25098 0.74902 0.62353 0.2816 0.4020 70.72E+01 223 0.25098 0.74902 0.74902 0.2520 0.3312 75.58E+01 224 0.25098 0.74902 0.87451 0.2250 0.2665 8.16E+02 225 0.25098 0.74902 1.00000 0.2072 0.2233 8.85E+02 226 0.25098 0.87451 0.00000 0.3454 0.5590 10.99E+02 227 0.25098 0.87451 0.12549 0.3450 0.5576 10.99E+02 228 0.25098 0.87451 0.25098 0.3425 0.5522 11.01E+02 229 0.25098 0.87451 0.37647 0.3356 0.5348 11.06E+02 230 0.25098 0.87451 0.50196 0.3219 0.5013 11.23E+02 231 0.25098 0.87451 0.62353 0.3011 0.4519 11.51E+02 232 0.25098 0.87451 0.74902 0.2758 0.3903 11.96E+02 233 0.25098 0.87451 0.87451 0.2497 0.3278 12.63E+02 234 0.25098 0.87451 1.00000 0.2303 0.2800 13.33E+02 235 0.25098 1.00000 0.00000 0.3451 0.5605 15.61E+02 236 0.25098 1.00000 0.12549 0.3450 0.5593 15.61E+02 237 0.25098 1.00000 0.25098 0.3433 0.5551 15.62E+02 238 0.25098 1.00000 0.37647 0.3381 0.5431 15.68E+02 239 0.25098 1.00000 0.50196 0.3279 0.5181 15.85E+02 240 0.25098 1.00000 0.62353 0.3119 0.4789 16.12E+02 241 0.25098 1.00000 0.74902 0.2905 0.4270 16.61E+02 242 0.25098 1.00000 0.87451 0.2666 0.3693 17.33E+02 243 0.25098 1.00000 1.00000 0.2478 0.3237 18.21E+02 244 0.37647 0.00000 0.00000 0.4880 0.3398 20.73E+00 245 0.37647 0.00000 0.12549 0.4587 0.3173 21.22E+00 246 0.37647 0.00000 0.25098 0.3799 0.2563 22.88E+00 247 0.37647 0.00000 0.37647 0.2760 0.1767 28.36E+00 248 0.37647 0.00000 0.50196 0.2107 0.1259 4.07E+01 249 0.37647 0.00000 0.62353 0.1793 0.1016 6.31E+01 250 0.37647 0.00000 0.74902 0.1640 0.0897 10.06E+01 251 0.37647 0.00000 0.87451 0.1564 0.0840 1.59E+02 252 0.37647 0.00000 1.00000 0.1530 0.0811 2.28E+02 253 0.37647 0.12549 0.00000 0.4764 0.3556 23.49E+00 254 0.37647 0.12549 0.12549 0.4511 0.3325 23.77E+00 255 0.37647 0.12549 0.25098 0.3778 0.2707 25.41E+00 256 0.37647 0.12549 0.37647 0.2776 0.1873 30.91E+00 257 0.37647 0.12549 0.50196 0.2122 0.1319 4.32E+01 258 0.37647 0.12549 0.62353 0.1806 0.1049 6.56E+01 259 0.37647 0.12549 0.74902 0.1648 0.0916 10.31E+01 260 0.37647 0.12549 0.87451 0.1569 0.0853 1.62E+02 261 0.37647 0.12549 1.00000 0.1535 0.0821 2.31E+02 262 0.37647 0.25098 0.00000 0.4421 0.4096 36.55E+00 263 0.37647 0.25098 0.12549 0.4244 0.3883 36.74E+00 264 0.37647 0.25098 0.25098 0.3698 0.3222 37.33E+00 265 0.37647 0.25098 0.37647 0.2845 0.2287 42.71E+00 266 0.37647 0.25098 0.50196 0.2202 0.1575 5.50E+01 267 0.37647 0.25098 0.62353 0.1858 0.1196 7.74E+01 268 0.37647 0.25098 0.74902 0.1681 0.1001 11.48E+01 269 0.37647 0.25098 0.87451 0.1593 0.0906 1.74E+02 270 0.37647 0.25098 1.00000 0.1549 0.0857 2.43E+02 271 0.37647 0.37647 0.00000 0.3956 0.4821 81.67E+00 272 0.37647 0.37647 0.12549 0.3875 0.4684 81.85E+00 273 0.37647 0.37647 0.25098 0.3590 0.4198 82.11E+00 274 0.37647 0.37647 0.37647 0.3006 0.3230 85.11E+00 275 0.37647 0.37647 0.50196 0.2418 0.2289 9.76E+01 276 0.37647 0.37647 0.62353 0.2023 0.1661 11.98E+01 277 0.37647 0.37647 0.74902 0.1791 0.1289 15.70E+01 278 0.37647 0.37647 0.87451 0.1664 0.1084 2.15E+02 279 0.37647 0.37647 1.00000 0.1599 0.0981 2.84E+02 280 0.37647 0.50196 0.00000 0.3704 0.5229 17.93E+01 281 0.37647 0.50196 0.12549 0.3666 0.5152 17.96E+01 282 0.37647 0.50196 0.25098 0.3527 0.4872 18.01E+01 283 0.37647 0.50196 0.37647 0.3182 0.4179 18.31E+01 284 0.37647 0.50196 0.50196 0.2724 0.3279 19.89E+01 285 0.37647 0.50196 0.62353 0.2308 0.2452 22.17E+01 286 0.37647 0.50196 0.74902 0.2003 0.1846 25.92E+01 287 0.37647 0.50196 0.87451 0.1810 0.1461 3.18E+02 288 0.37647 0.50196 1.00000 0.1707 0.1254 3.87E+02 289 0.37647 0.62353 0.00000 0.3580 0.5427 36.35E+01 290 0.37647 0.62353 0.12549 0.3562 0.5387 36.42E+01 291 0.37647 0.62353 0.25098 0.3491 0.5228 36.42E+01 292 0.37647 0.62353 0.37647 0.3296 0.4797 36.66E+01 293 0.37647 0.62353 0.50196 0.2978 0.4102 38.29E+01 294 0.37647 0.62353 0.62353 0.2618 0.3312 41.14E+01 295 0.37647 0.62353 0.74902 0.2284 0.2579 45.02E+01 296 0.37647 0.62353 0.87451 0.2030 0.2018 5.08E+02 297 0.37647 0.62353 1.00000 0.1880 0.1685 5.77E+02 298 0.37647 0.74902 0.00000 0.3521 0.5519 66.13E+01 299 0.37647 0.74902 0.12549 0.3512 0.5496 66.17E+01 300 0.37647 0.74902 0.25098 0.3471 0.5405 66.25E+01 301 0.37647 0.74902 0.37647 0.3358 0.5141 66.36E+01 302 0.37647 0.74902 0.50196 0.3148 0.4656 68.03E+01 303 0.37647 0.74902 0.62353 0.2864 0.4006 70.87E+01 304 0.37647 0.74902 0.74902 0.2560 0.3306 75.62E+01 305 0.37647 0.74902 0.87451 0.2280 0.2663 8.14E+02 306 0.37647 0.74902 1.00000 0.2094 0.2230 8.85E+02 307 0.37647 0.87451 0.00000 0.3493 0.5559 11.03E+02 308 0.37647 0.87451 0.12549 0.3486 0.5548 11.03E+02 309 0.37647 0.87451 0.25098 0.3461 0.5498 11.04E+02 310 0.37647 0.87451 0.37647 0.3393 0.5323 11.03E+02 311 0.37647 0.87451 0.50196 0.3252 0.4998 11.22E+02 312 0.37647 0.87451 0.62353 0.3043 0.4508 11.51E+02 313 0.37647 0.87451 0.74902 0.2779 0.3897 11.89E+02 314 0.37647 0.87451 0.87451 0.2518 0.3276 12.58E+02 315 0.37647 0.87451 1.00000 0.2316 0.2794 13.27E+02 316 0.37647 1.00000 0.00000 0.3472 0.5579 15.52E+02 317 0.37647 1.00000 0.12549 0.3467 0.5574 15.53E+02 318 0.37647 1.00000 0.25098 0.3452 0.5533 15.53E+02 319 0.37647 1.00000 0.37647 0.3401 0.5411 15.53E+02 320 0.37647 1.00000 0.50196 0.3298 0.5166 15.71E+02 321 0.37647 1.00000 0.62353 0.3134 0.4776 16.00E+02 322 0.37647 1.00000 0.74902 0.2920 0.4260 16.47E+02 323 0.37647 1.00000 0.87451 0.2681 0.3689 17.20E+02 324 0.37647 1.00000 1.00000 0.2486 0.3225 18.06E+02 325 0.50196 0.00000 0.00000 0.5661 0.3406 38.83E+00 326 0.50196 0.00000 0.12549 0.5470 0.3285 39.28E+00 327 0.50196 0.00000 0.25098 0.4835 0.2883 40.98E+00 328 0.50196 0.00000 0.37647 0.3724 0.2189 46.18E+00 329 0.50196 0.00000 0.50196 0.2773 0.1588 5.80E+01 330 0.50196 0.00000 0.62353 0.2181 0.1215 8.04E+01 331 0.50196 0.00000 0.74902 0.1867 0.1015 11.80E+01 332 0.50196 0.00000 0.87451 0.1704 0.0914 1.77E+02 333 0.50196 0.00000 1.00000 0.1626 0.0864 2.46E+02 334 0.50196 0.12549 0.00000 0.5561 0.3488 41.45E+00 335 0.50196 0.12549 0.12549 0.5383 0.3362 41.69E+00 336 0.50196 0.12549 0.25098 0.4784 0.2962 43.39E+00 337 0.50196 0.12549 0.37647 0.3712 0.2256 48.62E+00 338 0.50196 0.12549 0.50196 0.2777 0.1635 6.04E+01 339 0.50196 0.12549 0.62353 0.2189 0.1242 8.27E+01 340 0.50196 0.12549 0.74902 0.1873 0.1032 12.03E+01 341 0.50196 0.12549 0.87451 0.1709 0.0924 1.79E+02 342 0.50196 0.12549 1.00000 0.1627 0.0871 2.48E+02 343 0.50196 0.25098 0.00000 0.5212 0.3840 54.58E+00 344 0.50196 0.25098 0.12549 0.5073 0.3715 54.75E+00 345 0.50196 0.25098 0.25098 0.4596 0.3284 55.39E+00 346 0.50196 0.25098 0.37647 0.3678 0.2548 60.45E+00 347 0.50196 0.25098 0.50196 0.2813 0.1849 7.23E+01 348 0.50196 0.25098 0.62353 0.2226 0.1375 9.45E+01 349 0.50196 0.25098 0.74902 0.1900 0.1113 13.21E+01 350 0.50196 0.25098 0.87451 0.1721 0.0975 1.91E+02 351 0.50196 0.25098 1.00000 0.1640 0.0907 2.60E+02 352 0.50196 0.37647 0.00000 0.4581 0.4472 9.82E+01 353 0.50196 0.37647 0.12549 0.4507 0.4378 9.85E+01 354 0.50196 0.37647 0.25098 0.4227 0.4020 9.88E+01 355 0.50196 0.37647 0.37647 0.3601 0.3227 10.00E+01 356 0.50196 0.37647 0.50196 0.2893 0.2407 11.15E+01 357 0.50196 0.37647 0.62353 0.2334 0.1764 13.38E+01 358 0.50196 0.37647 0.74902 0.1986 0.1365 17.11E+01 359 0.50196 0.37647 0.87451 0.1788 0.1134 2.29E+02 360 0.50196 0.37647 1.00000 0.1686 0.1017 2.98E+02 361 0.50196 0.50196 0.00000 0.4092 0.4974 19.28E+01 362 0.50196 0.50196 0.12549 0.4054 0.4914 19.33E+01 363 0.50196 0.50196 0.25098 0.3912 0.4677 19.39E+01 364 0.50196 0.50196 0.37647 0.3547 0.4071 19.51E+01 365 0.50196 0.50196 0.50196 0.3024 0.3210 20.14E+01 366 0.50196 0.50196 0.62353 0.2521 0.2423 22.40E+01 367 0.50196 0.50196 0.74902 0.2145 0.1835 26.14E+01 368 0.50196 0.50196 0.87451 0.1903 0.1457 3.20E+02 369 0.50196 0.50196 1.00000 0.1776 0.1256 3.89E+02 370 0.50196 0.62353 0.00000 0.3799 0.5276 37.62E+01 371 0.50196 0.62353 0.12549 0.3782 0.5239 37.65E+01 372 0.50196 0.62353 0.25098 0.3708 0.5096 37.72E+01 373 0.50196 0.62353 0.37647 0.3507 0.4701 37.84E+01 374 0.50196 0.62353 0.50196 0.3170 0.4038 38.51E+01 375 0.50196 0.62353 0.62353 0.2769 0.3278 41.34E+01 376 0.50196 0.62353 0.74902 0.2395 0.2563 45.20E+01 377 0.50196 0.62353 0.87451 0.2109 0.2018 5.13E+02 378 0.50196 0.62353 1.00000 0.1941 0.1686 5.81E+02 379 0.50196 0.74902 0.00000 0.3649 0.5429 67.63E+01 380 0.50196 0.74902 0.12549 0.3640 0.5408 67.71E+01 381 0.50196 0.74902 0.25098 0.3600 0.5322 67.81E+01 382 0.50196 0.74902 0.37647 0.3485 0.5073 68.01E+01 383 0.50196 0.74902 0.50196 0.3270 0.4614 69.04E+01 384 0.50196 0.74902 0.62353 0.2970 0.3976 71.54E+01 385 0.50196 0.74902 0.74902 0.2643 0.3286 76.19E+01 386 0.50196 0.74902 0.87451 0.2347 0.2653 8.22E+02 387 0.50196 0.74902 1.00000 0.2147 0.2225 8.91E+02 388 0.50196 0.87451 0.00000 0.3569 0.5506 11.20E+02 389 0.50196 0.87451 0.12549 0.3567 0.5492 11.21E+02 390 0.50196 0.87451 0.25098 0.3544 0.5442 11.21E+02 391 0.50196 0.87451 0.37647 0.3470 0.5281 11.20E+02 392 0.50196 0.87451 0.50196 0.3330 0.4963 11.28E+02 393 0.50196 0.87451 0.62353 0.3113 0.4479 11.57E+02 394 0.50196 0.87451 0.74902 0.2848 0.3882 12.05E+02 395 0.50196 0.87451 0.87451 0.2575 0.3269 12.76E+02 396 0.50196 0.87451 1.00000 0.2364 0.2796 13.47E+02 397 0.50196 1.00000 0.00000 0.3537 0.5542 15.84E+02 398 0.50196 1.00000 0.12549 0.3534 0.5534 15.85E+02 399 0.50196 1.00000 0.25098 0.3516 0.5496 15.85E+02 400 0.50196 1.00000 0.37647 0.3466 0.5379 15.83E+02 401 0.50196 1.00000 0.50196 0.3363 0.5139 15.92E+02 402 0.50196 1.00000 0.62353 0.3196 0.4756 16.19E+02 403 0.50196 1.00000 0.74902 0.2974 0.4246 16.68E+02 404 0.50196 1.00000 0.87451 0.2726 0.3679 17.41E+02 405 0.50196 1.00000 1.00000 0.2527 0.3223 18.28E+02 406 0.62353 0.00000 0.00000 0.6063 0.3408 7.41E+01 407 0.62353 0.00000 0.12549 0.5944 0.3339 7.45E+01 408 0.62353 0.00000 0.25098 0.5531 0.3101 7.62E+01 409 0.62353 0.00000 0.37647 0.4625 0.2584 8.14E+01 410 0.62353 0.00000 0.50196 0.3600 0.1989 9.30E+01 411 0.62353 0.00000 0.62353 0.2793 0.1524 11.40E+01 412 0.62353 0.00000 0.74902 0.2255 0.1214 15.18E+01 413 0.62353 0.00000 0.87451 0.1948 0.1043 2.11E+02 414 0.62353 0.00000 1.00000 0.1798 0.0953 2.80E+02 415 0.62353 0.12549 0.00000 0.6000 0.3452 7.68E+01 416 0.62353 0.12549 0.12549 0.5894 0.3386 7.71E+01 417 0.62353 0.12549 0.25098 0.5493 0.3146 7.88E+01 418 0.62353 0.12549 0.37647 0.4609 0.2627 8.39E+01 419 0.62353 0.12549 0.50196 0.3597 0.2022 9.54E+01 420 0.62353 0.12549 0.62353 0.2798 0.1549 11.65E+01 421 0.62353 0.12549 0.74902 0.2260 0.1230 15.42E+01 422 0.62353 0.12549 0.87451 0.1955 0.1051 2.13E+02 423 0.62353 0.12549 1.00000 0.1801 0.0960 2.82E+02 424 0.62353 0.25098 0.00000 0.5757 0.3662 9.00E+01 425 0.62353 0.25098 0.12549 0.5663 0.3589 9.02E+01 426 0.62353 0.25098 0.25098 0.5321 0.3332 9.08E+01 427 0.62353 0.25098 0.37647 0.4529 0.2806 9.57E+01 428 0.62353 0.25098 0.50196 0.3589 0.2176 10.74E+01 429 0.62353 0.25098 0.62353 0.2813 0.1660 12.86E+01 430 0.62353 0.25098 0.74902 0.2279 0.1303 16.63E+01 431 0.62353 0.25098 0.87451 0.1969 0.1099 2.25E+02 432 0.62353 0.25098 1.00000 0.1814 0.0993 2.94E+02 433 0.62353 0.37647 0.00000 0.5191 0.4139 13.41E+01 434 0.62353 0.37647 0.12549 0.5129 0.4078 13.43E+01 435 0.62353 0.37647 0.25098 0.4897 0.3841 13.46E+01 436 0.62353 0.37647 0.37647 0.4318 0.3273 13.56E+01 437 0.62353 0.37647 0.50196 0.3556 0.2598 14.73E+01 438 0.62353 0.37647 0.62353 0.2858 0.1987 16.85E+01 439 0.62353 0.37647 0.74902 0.2339 0.1530 20.59E+01 440 0.62353 0.37647 0.87451 0.2018 0.1248 2.64E+02 441 0.62353 0.37647 1.00000 0.1849 0.1101 3.34E+02 442 0.62353 0.50196 0.00000 0.4600 0.4646 22.92E+01 443 0.62353 0.50196 0.12549 0.4565 0.4601 22.93E+01 444 0.62353 0.50196 0.25098 0.4429 0.4421 22.99E+01 445 0.62353 0.50196 0.37647 0.4068 0.3949 23.06E+01 446 0.62353 0.50196 0.50196 0.3516 0.3220 23.44E+01 447 0.62353 0.50196 0.62353 0.2938 0.2527 25.49E+01 448 0.62353 0.50196 0.74902 0.2444 0.1936 29.27E+01 449 0.62353 0.50196 0.87451 0.2108 0.1540 3.52E+02 450 0.62353 0.50196 1.00000 0.1925 0.1316 4.21E+02 451 0.62353 0.62353 0.00000 0.4150 0.5034 40.92E+01 452 0.62353 0.62353 0.12549 0.4130 0.5005 40.94E+01 453 0.62353 0.62353 0.25098 0.4057 0.4883 40.99E+01 454 0.62353 0.62353 0.37647 0.3850 0.4545 41.01E+01 455 0.62353 0.62353 0.50196 0.3496 0.3950 41.19E+01 456 0.62353 0.62353 0.62353 0.3043 0.3213 42.15E+01 457 0.62353 0.62353 0.74902 0.2604 0.2535 46.02E+01 458 0.62353 0.62353 0.87451 0.2260 0.2005 5.19E+02 459 0.62353 0.62353 1.00000 0.2052 0.1680 5.88E+02 460 0.62353 0.74902 0.00000 0.3869 0.5268 70.39E+01 461 0.62353 0.74902 0.12549 0.3859 0.5249 70.41E+01 462 0.62353 0.74902 0.25098 0.3818 0.5171 70.54E+01 463 0.62353 0.74902 0.37647 0.3697 0.4948 70.85E+01 464 0.62353 0.74902 0.50196 0.3477 0.4521 71.22E+01 465 0.62353 0.74902 0.62353 0.3158 0.3909 71.88E+01 466 0.62353 0.74902 0.74902 0.2798 0.3255 76.88E+01 467 0.62353 0.74902 0.87451 0.2470 0.2642 8.29E+02 468 0.62353 0.74902 1.00000 0.2242 0.2220 8.99E+02 469 0.62353 0.87451 0.00000 0.3709 0.5400 11.40E+02 470 0.62353 0.87451 0.12549 0.3705 0.5392 11.41E+02 471 0.62353 0.87451 0.25098 0.3678 0.5339 11.41E+02 472 0.62353 0.87451 0.37647 0.3609 0.5189 11.40E+02 473 0.62353 0.87451 0.50196 0.3466 0.4885 11.43E+02 474 0.62353 0.87451 0.62353 0.3243 0.4419 11.53E+02 475 0.62353 0.87451 0.74902 0.2957 0.3840 12.01E+02 476 0.62353 0.87451 0.87451 0.2666 0.3247 12.74E+02 477 0.62353 0.87451 1.00000 0.2439 0.2782 13.46E+02 478 0.62353 1.00000 0.00000 0.3635 0.5465 15.98E+02 479 0.62353 1.00000 0.12549 0.3633 0.5459 15.99E+02 480 0.62353 1.00000 0.25098 0.3616 0.5422 16.00E+02 481 0.62353 1.00000 0.37647 0.3566 0.5309 15.99E+02 482 0.62353 1.00000 0.50196 0.3461 0.5079 16.04E+02 483 0.62353 1.00000 0.62353 0.3290 0.4709 16.12E+02 484 0.62353 1.00000 0.74902 0.3058 0.4211 16.62E+02 485 0.62353 1.00000 0.87451 0.2799 0.3654 17.34E+02 486 0.62353 1.00000 1.00000 0.2590 0.3204 18.21E+02 487 0.74902 0.00000 0.00000 0.6257 0.3410 13.12E+01 488 0.74902 0.00000 0.12549 0.6191 0.3373 13.15E+01 489 0.74902 0.00000 0.25098 0.5933 0.3230 13.31E+01 490 0.74902 0.00000 0.37647 0.5286 0.2873 13.78E+01 491 0.74902 0.00000 0.50196 0.4372 0.2367 14.98E+01 492 0.74902 0.00000 0.62353 0.3485 0.1876 17.03E+01 493 0.74902 0.00000 0.74902 0.2792 0.1493 20.59E+01 494 0.74902 0.00000 0.87451 0.2314 0.1234 2.65E+02 495 0.74902 0.00000 1.00000 0.2061 0.1091 3.33E+02 496 0.74902 0.12549 0.00000 0.6222 0.3434 13.35E+01 497 0.74902 0.12549 0.12549 0.6156 0.3394 13.37E+01 498 0.74902 0.12549 0.25098 0.5904 0.3255 13.55E+01 499 0.74902 0.12549 0.37647 0.5265 0.2896 14.02E+01 500 0.74902 0.12549 0.50196 0.4364 0.2388 15.22E+01 501 0.74902 0.12549 0.62353 0.3482 0.1892 17.27E+01 502 0.74902 0.12549 0.74902 0.2794 0.1504 20.81E+01 503 0.74902 0.12549 0.87451 0.2312 0.1240 2.67E+02 504 0.74902 0.12549 1.00000 0.2063 0.1098 3.36E+02 505 0.74902 0.25098 0.00000 0.6064 0.3558 14.68E+01 506 0.74902 0.25098 0.12549 0.6004 0.3518 14.70E+01 507 0.74902 0.25098 0.25098 0.5775 0.3362 14.77E+01 508 0.74902 0.25098 0.37647 0.5180 0.3005 15.23E+01 509 0.74902 0.25098 0.50196 0.4330 0.2489 16.44E+01 510 0.74902 0.25098 0.62353 0.3479 0.1976 18.53E+01 511 0.74902 0.25098 0.74902 0.2801 0.1566 22.07E+01 512 0.74902 0.25098 0.87451 0.2324 0.1283 2.80E+02 513 0.74902 0.25098 1.00000 0.2069 0.1128 3.49E+02 514 0.74902 0.37647 0.00000 0.5641 0.3889 19.05E+01 515 0.74902 0.37647 0.12549 0.5593 0.3851 19.08E+01 516 0.74902 0.37647 0.25098 0.5417 0.3702 19.12E+01 517 0.74902 0.37647 0.37647 0.4944 0.3309 19.19E+01 518 0.74902 0.37647 0.50196 0.4227 0.2781 20.39E+01 519 0.74902 0.37647 0.62353 0.3465 0.2224 22.48E+01 520 0.74902 0.37647 0.74902 0.2828 0.1757 26.02E+01 521 0.74902 0.37647 0.87451 0.2356 0.1415 3.19E+02 522 0.74902 0.37647 1.00000 0.2099 0.1226 3.88E+02 523 0.74902 0.50196 0.00000 0.5089 0.4331 28.60E+01 524 0.74902 0.50196 0.12549 0.5056 0.4299 28.63E+01 525 0.74902 0.50196 0.25098 0.4939 0.4172 28.68E+01 526 0.74902 0.50196 0.37647 0.4610 0.3829 28.75E+01 527 0.74902 0.50196 0.50196 0.4077 0.3254 29.16E+01 528 0.74902 0.50196 0.62353 0.3452 0.2657 31.20E+01 529 0.74902 0.50196 0.74902 0.2877 0.2107 34.77E+01 530 0.74902 0.50196 0.87451 0.2425 0.1677 4.06E+02 531 0.74902 0.50196 1.00000 0.2160 0.1426 4.76E+02 532 0.74902 0.62353 0.00000 0.4557 0.4755 46.52E+01 533 0.74902 0.62353 0.12549 0.4538 0.4731 46.53E+01 534 0.74902 0.62353 0.25098 0.4469 0.4634 46.55E+01 535 0.74902 0.62353 0.37647 0.4267 0.4363 46.52E+01 536 0.74902 0.62353 0.50196 0.3914 0.3874 46.95E+01 537 0.74902 0.62353 0.62353 0.3435 0.3224 47.56E+01 538 0.74902 0.62353 0.74902 0.2951 0.2614 50.90E+01 539 0.74902 0.62353 0.87451 0.2524 0.2086 5.67E+02 540 0.74902 0.62353 1.00000 0.2258 0.1754 6.37E+02 541 0.74902 0.74902 0.00000 0.4167 0.5064 76.18E+01 542 0.74902 0.74902 0.12549 0.4157 0.5047 76.21E+01 543 0.74902 0.74902 0.25098 0.4117 0.4980 76.25E+01 544 0.74902 0.74902 0.37647 0.3997 0.4783 76.02E+01 545 0.74902 0.74902 0.50196 0.3774 0.4405 76.32E+01 546 0.74902 0.74902 0.62353 0.3440 0.3860 77.13E+01 547 0.74902 0.74902 0.74902 0.3040 0.3211 80.49E+01 548 0.74902 0.74902 0.87451 0.2666 0.2633 8.64E+02 549 0.74902 0.74902 1.00000 0.2410 0.2233 9.34E+02 550 0.74902 0.87451 0.00000 0.3919 0.5250 11.87E+02 551 0.74902 0.87451 0.12549 0.3914 0.5243 11.88E+02 552 0.74902 0.87451 0.25098 0.3892 0.5195 11.88E+02 553 0.74902 0.87451 0.37647 0.3815 0.5055 11.86E+02 554 0.74902 0.87451 0.50196 0.3669 0.4785 11.92E+02 555 0.74902 0.87451 0.62353 0.3441 0.4350 11.97E+02 556 0.74902 0.87451 0.74902 0.3134 0.3780 12.35E+02 557 0.74902 0.87451 0.87451 0.2816 0.3218 13.07E+02 558 0.74902 0.87451 1.00000 0.2572 0.2773 13.78E+02 559 0.74902 1.00000 0.00000 0.3792 0.5354 16.49E+02 560 0.74902 1.00000 0.12549 0.3793 0.5345 16.49E+02 561 0.74902 1.00000 0.25098 0.3775 0.5311 16.50E+02 562 0.74902 1.00000 0.37647 0.3719 0.5210 16.49E+02 563 0.74902 1.00000 0.50196 0.3617 0.4992 16.52E+02 564 0.74902 1.00000 0.62353 0.3442 0.4643 16.58E+02 565 0.74902 1.00000 0.74902 0.3199 0.4153 17.03E+02 566 0.74902 1.00000 0.87451 0.2924 0.3623 17.77E+02 567 0.74902 1.00000 1.00000 0.2703 0.3196 18.67E+02 568 0.87451 0.00000 0.00000 0.6363 0.3410 22.66E+01 569 0.87451 0.00000 0.12549 0.6323 0.3388 22.71E+01 570 0.87451 0.00000 0.25098 0.6165 0.3302 22.88E+01 571 0.87451 0.00000 0.37647 0.5733 0.3069 23.33E+01 572 0.87451 0.00000 0.50196 0.5025 0.2685 24.55E+01 573 0.87451 0.00000 0.62353 0.4195 0.2235 26.63E+01 574 0.87451 0.00000 0.74902 0.3427 0.1820 30.12E+01 575 0.87451 0.00000 0.87451 0.2764 0.1472 3.85E+02 576 0.87451 0.00000 1.00000 0.2428 0.1287 4.52E+02 577 0.87451 0.12549 0.00000 0.6341 0.3425 22.94E+01 578 0.87451 0.12549 0.12549 0.6302 0.3402 22.98E+01 579 0.87451 0.12549 0.25098 0.6147 0.3315 23.14E+01 580 0.87451 0.12549 0.37647 0.5719 0.3084 23.62E+01 581 0.87451 0.12549 0.50196 0.5015 0.2698 24.83E+01 582 0.87451 0.12549 0.62353 0.4191 0.2248 26.90E+01 583 0.87451 0.12549 0.74902 0.3426 0.1830 30.39E+01 584 0.87451 0.12549 0.87451 0.2766 0.1478 3.88E+02 585 0.87451 0.12549 1.00000 0.2430 0.1292 4.55E+02 586 0.87451 0.25098 0.00000 0.6244 0.3498 24.29E+01 587 0.87451 0.25098 0.12549 0.6205 0.3475 24.32E+01 588 0.87451 0.25098 0.25098 0.6059 0.3379 24.36E+01 589 0.87451 0.25098 0.37647 0.5653 0.3147 24.81E+01 590 0.87451 0.25098 0.50196 0.4978 0.2763 26.05E+01 591 0.87451 0.25098 0.62353 0.4176 0.2305 28.13E+01 592 0.87451 0.25098 0.74902 0.3425 0.1876 31.61E+01 593 0.87451 0.25098 0.87451 0.2771 0.1513 3.98E+02 594 0.87451 0.25098 1.00000 0.2435 0.1318 4.66E+02 595 0.87451 0.37647 0.00000 0.5958 0.3715 28.63E+01 596 0.87451 0.37647 0.12549 0.5923 0.3693 28.68E+01 597 0.87451 0.37647 0.25098 0.5800 0.3599 28.71E+01 598 0.87451 0.37647 0.37647 0.5452 0.3342 28.71E+01 599 0.87451 0.37647 0.50196 0.4857 0.2955 29.98E+01 600 0.87451 0.37647 0.62353 0.4127 0.2482 32.07E+01 601 0.87451 0.37647 0.74902 0.3425 0.2027 35.53E+01 602 0.87451 0.37647 0.87451 0.2786 0.1622 4.32E+02 603 0.87451 0.37647 1.00000 0.2446 0.1398 4.99E+02 604 0.87451 0.50196 0.00000 0.5511 0.4058 38.20E+01 605 0.87451 0.50196 0.12549 0.5487 0.4037 38.24E+01 606 0.87451 0.50196 0.25098 0.5394 0.3952 38.26E+01 607 0.87451 0.50196 0.37647 0.5128 0.3715 38.29E+01 608 0.87451 0.50196 0.50196 0.4657 0.3291 38.71E+01 609 0.87451 0.50196 0.62353 0.4042 0.2803 40.77E+01 610 0.87451 0.50196 0.74902 0.3413 0.2304 44.28E+01 611 0.87451 0.50196 0.87451 0.2812 0.1837 5.07E+02 612 0.87451 0.50196 1.00000 0.2480 0.1572 5.73E+02 613 0.87451 0.62353 0.00000 0.4992 0.4455 56.04E+01 614 0.87451 0.62353 0.12549 0.4975 0.4439 56.10E+01 615 0.87451 0.62353 0.25098 0.4914 0.4368 56.14E+01 616 0.87451 0.62353 0.37647 0.4734 0.4165 56.07E+01 617 0.87451 0.62353 0.50196 0.4402 0.3788 56.51E+01 618 0.87451 0.62353 0.62353 0.3927 0.3254 57.07E+01 619 0.87451 0.62353 0.74902 0.3405 0.2721 60.40E+01 620 0.87451 0.62353 0.87451 0.2924 0.2234 6.58E+02 621 0.87451 0.62353 1.00000 0.2580 0.1890 7.28E+02 622 0.87451 0.74902 0.00000 0.4540 0.4802 85.36E+01 623 0.87451 0.74902 0.12549 0.4529 0.4789 85.44E+01 624 0.87451 0.74902 0.25098 0.4491 0.4734 85.39E+01 625 0.87451 0.74902 0.37647 0.4380 0.4572 84.97E+01 626 0.87451 0.74902 0.50196 0.4157 0.4262 85.50E+01 627 0.87451 0.74902 0.62353 0.3818 0.3799 86.37E+01 628 0.87451 0.74902 0.74902 0.3388 0.3249 95.67E+01 629 0.87451 0.74902 0.87451 0.3006 0.2760 10.31E+02 630 0.87451 0.74902 1.00000 0.2705 0.2373 11.02E+02 631 0.87451 0.87451 0.00000 0.4231 0.5036 13.46E+02 632 0.87451 0.87451 0.12549 0.4227 0.5026 13.46E+02 633 0.87451 0.87451 0.25098 0.4207 0.4985 13.27E+02 634 0.87451 0.87451 0.37647 0.4134 0.4863 12.81E+02 635 0.87451 0.87451 0.50196 0.3960 0.4641 12.81E+02 636 0.87451 0.87451 0.62353 0.3727 0.4257 12.86E+02 637 0.87451 0.87451 0.74902 0.3401 0.3736 13.71E+02 638 0.87451 0.87451 0.87451 0.3110 0.3290 18.69E+02 639 0.87451 0.87451 1.00000 0.2883 0.2944 19.42E+02 640 0.87451 1.00000 0.00000 0.4056 0.5171 19.62E+02 641 0.87451 1.00000 0.12549 0.4055 0.5163 19.62E+02 642 0.87451 1.00000 0.25098 0.4042 0.5136 19.29E+02 643 0.87451 1.00000 0.37647 0.3974 0.5057 18.63E+02 644 0.87451 1.00000 0.50196 0.3864 0.4853 17.47E+02 645 0.87451 1.00000 0.62353 0.3666 0.4544 17.34E+02 646 0.87451 1.00000 0.74902 0.3409 0.4075 18.29E+02 647 0.87451 1.00000 0.87451 0.3151 0.3583 23.20E+02 648 0.87451 1.00000 1.00000 0.2947 0.3247 24.11E+02 649 1.00000 0.00000 0.00000 0.6401 0.3410 33.54E+01 650 1.00000 0.00000 0.12549 0.6373 0.3394 33.56E+01 651 1.00000 0.00000 0.25098 0.6266 0.3336 33.73E+01 652 1.00000 0.00000 0.37647 0.5954 0.3169 34.10E+01 653 1.00000 0.00000 0.50196 0.5403 0.2873 35.36E+01 654 1.00000 0.00000 0.62353 0.4678 0.2484 37.40E+01 655 1.00000 0.00000 0.74902 0.3921 0.2078 40.91E+01 656 1.00000 0.00000 0.87451 0.3181 0.1691 4.82E+02 657 1.00000 0.00000 1.00000 0.2743 0.1454 5.92E+02 658 1.00000 0.12549 0.00000 0.6387 0.3418 33.71E+01 659 1.00000 0.12549 0.12549 0.6360 0.3403 33.74E+01 660 1.00000 0.12549 0.25098 0.6252 0.3344 33.92E+01 661 1.00000 0.12549 0.37647 0.5943 0.3177 34.31E+01 662 1.00000 0.12549 0.50196 0.5395 0.2880 35.57E+01 663 1.00000 0.12549 0.62353 0.4672 0.2491 37.64E+01 664 1.00000 0.12549 0.74902 0.3918 0.2083 41.16E+01 665 1.00000 0.12549 0.87451 0.3181 0.1695 4.85E+02 666 1.00000 0.12549 1.00000 0.2742 0.1459 5.96E+02 667 1.00000 0.25098 0.00000 0.6319 0.3469 35.09E+01 668 1.00000 0.25098 0.12549 0.6295 0.3453 35.10E+01 669 1.00000 0.25098 0.25098 0.6191 0.3387 35.16E+01 670 1.00000 0.25098 0.37647 0.5890 0.3222 35.56E+01 671 1.00000 0.25098 0.50196 0.5359 0.2925 36.84E+01 672 1.00000 0.25098 0.62353 0.4653 0.2532 38.90E+01 673 1.00000 0.25098 0.74902 0.3911 0.2119 42.44E+01 674 1.00000 0.25098 0.87451 0.3175 0.1721 4.96E+02 675 1.00000 0.25098 1.00000 0.2746 0.1480 6.07E+02 676 1.00000 0.37647 0.00000 0.6112 0.3624 39.35E+01 677 1.00000 0.37647 0.12549 0.6088 0.3608 39.38E+01 678 1.00000 0.37647 0.25098 0.5996 0.3543 39.44E+01 679 1.00000 0.37647 0.37647 0.5732 0.3358 39.49E+01 680 1.00000 0.37647 0.50196 0.5245 0.3061 40.69E+01 681 1.00000 0.37647 0.62353 0.4592 0.2663 42.76E+01 682 1.00000 0.37647 0.74902 0.3890 0.2237 46.26E+01 683 1.00000 0.37647 0.87451 0.3187 0.1813 5.28E+02 684 1.00000 0.37647 1.00000 0.2753 0.1549 6.41E+02 685 1.00000 0.50196 0.00000 0.5758 0.3891 48.98E+01 686 1.00000 0.50196 0.12549 0.5738 0.3877 48.99E+01 687 1.00000 0.50196 0.25098 0.5663 0.3817 49.07E+01 688 1.00000 0.50196 0.37647 0.5447 0.3641 49.00E+01 689 1.00000 0.50196 0.50196 0.5046 0.3316 49.49E+01 690 1.00000 0.50196 0.62353 0.4480 0.2911 51.50E+01 691 1.00000 0.50196 0.74902 0.3848 0.2459 55.03E+01 692 1.00000 0.50196 0.87451 0.3267 0.2045 6.04E+02 693 1.00000 0.50196 1.00000 0.2780 0.1697 7.18E+02 694 1.00000 0.62353 0.00000 0.5293 0.4244 66.81E+01 695 1.00000 0.62353 0.12549 0.5279 0.4229 66.76E+01 696 1.00000 0.62353 0.25098 0.5224 0.4176 66.91E+01 697 1.00000 0.62353 0.37647 0.5067 0.4020 66.79E+01 698 1.00000 0.62353 0.50196 0.4767 0.3721 67.28E+01 699 1.00000 0.62353 0.62353 0.4318 0.3275 67.78E+01 700 1.00000 0.62353 0.74902 0.3790 0.2805 71.14E+01 701 1.00000 0.62353 0.87451 0.3275 0.2350 7.65E+02 702 1.00000 0.62353 1.00000 0.2855 0.1977 8.59E+02 703 1.00000 0.74902 0.00000 0.4831 0.4588 9.63E+02 704 1.00000 0.74902 0.12549 0.4822 0.4579 9.63E+02 705 1.00000 0.74902 0.25098 0.4791 0.4536 9.64E+02 706 1.00000 0.74902 0.37647 0.4683 0.4408 9.60E+02 707 1.00000 0.74902 0.50196 0.4477 0.4146 9.64E+02 708 1.00000 0.74902 0.62353 0.4144 0.3751 9.73E+02 709 1.00000 0.74902 0.74902 0.3692 0.3267 10.70E+02 710 1.00000 0.74902 0.87451 0.3280 0.2813 11.40E+02 711 1.00000 0.74902 1.00000 0.2962 0.2454 12.08E+02 712 1.00000 0.87451 0.00000 0.4490 0.4844 13.83E+02 713 1.00000 0.87451 0.12549 0.4486 0.4839 13.83E+02 714 1.00000 0.87451 0.25098 0.4441 0.4820 13.83E+02 715 1.00000 0.87451 0.37647 0.4365 0.4720 13.82E+02 716 1.00000 0.87451 0.50196 0.4222 0.4511 13.88E+02 717 1.00000 0.87451 0.62353 0.3986 0.4175 13.94E+02 718 1.00000 0.87451 0.74902 0.3645 0.3707 14.89E+02 719 1.00000 0.87451 0.87451 0.3286 0.3304 20.67E+02 720 1.00000 0.87451 1.00000 0.3071 0.3001 21.61E+02 721 1.00000 1.00000 0.00000 0.4233 0.5048 22.47E+02 722 1.00000 1.00000 0.12549 0.4230 0.5046 22.44E+02 723 1.00000 1.00000 0.25098 0.4220 0.5018 22.13E+02 724 1.00000 1.00000 0.37647 0.4182 0.4929 20.96E+02 725 1.00000 1.00000 0.50196 0.4080 0.4751 19.34E+02 726 1.00000 1.00000 0.62353 0.3884 0.4455 18.43E+02 727 1.00000 1.00000 0.74902 0.3613 0.4026 19.41E+02 728 1.00000 1.00000 0.87451 0.3306 0.3571 25.24E+02 729 1.00000 1.00000 1.00000 0.3126 0.3292 32.98E+02 730 1.00000 1.00000 1.00000 0.3126 0.3291 33.00E+02 731 0.87451 1.00000 1.00000 0.2949 0.3253 24.31E+02 732 0.74902 1.00000 1.00000 0.2704 0.3196 18.72E+02 733 0.62353 1.00000 1.00000 0.2593 0.3207 18.35E+02 734 0.50196 1.00000 1.00000 0.2528 0.3226 18.27E+02 735 0.37647 1.00000 1.00000 0.2486 0.3224 18.04E+02 736 0.25098 1.00000 1.00000 0.2472 0.3231 18.04E+02 737 0.12549 1.00000 1.00000 0.2469 0.3231 18.02E+02 738 0.00000 1.00000 1.00000 0.2467 0.3231 18.02E+02 739 1.00000 0.87451 0.87451 0.3287 0.3300 20.52E+02 740 0.87451 0.87451 0.87451 0.3110 0.3289 18.57E+02 741 0.74902 0.87451 0.87451 0.2816 0.3215 13.05E+02 742 0.62353 0.87451 0.87451 0.2666 0.3247 12.73E+02 743 0.50196 0.87451 0.87451 0.2569 0.3264 12.63E+02 744 0.37647 0.87451 0.87451 0.2519 0.3277 12.54E+02 745 0.25098 0.87451 0.87451 0.2493 0.3269 12.48E+02 746 0.12549 0.87451 0.87451 0.2488 0.3272 12.48E+02 747 0.00000 0.87451 0.87451 0.2487 0.3271 12.47E+02 748 1.00000 0.74902 0.74902 0.3691 0.3264 10.62E+02 749 0.87451 0.74902 0.74902 0.3390 0.3247 9.48E+02 750 0.74902 0.74902 0.74902 0.3039 0.3215 8.04E+02 751 0.62353 0.74902 0.74902 0.2801 0.3256 7.67E+02 752 0.50196 0.74902 0.74902 0.2642 0.3281 7.55E+02 753 0.37647 0.74902 0.74902 0.2559 0.3300 7.49E+02 754 0.25098 0.74902 0.74902 0.2518 0.3313 7.50E+02 755 0.12549 0.74902 0.74902 0.2507 0.3313 7.48E+02 756 0.00000 0.74902 0.74902 0.2507 0.3313 7.48E+02 757 1.00000 0.62353 0.62353 0.4322 0.3274 67.36E+01 758 0.87451 0.62353 0.62353 0.3931 0.3252 56.60E+01 759 0.74902 0.62353 0.62353 0.3437 0.3220 47.06E+01 760 0.62353 0.62353 0.62353 0.3043 0.3214 42.00E+01 761 0.50196 0.62353 0.62353 0.2767 0.3275 41.23E+01 762 0.37647 0.62353 0.62353 0.2614 0.3308 40.76E+01 763 0.25098 0.62353 0.62353 0.2543 0.3320 40.53E+01 764 0.12549 0.62353 0.62353 0.2523 0.3324 40.44E+01 765 0.00000 0.62353 0.62353 0.2521 0.3326 40.46E+01 766 1.00000 0.50196 0.50196 0.5048 0.3317 49.36E+01 767 0.87451 0.50196 0.50196 0.4659 0.3292 38.50E+01 768 0.74902 0.50196 0.50196 0.4079 0.3254 28.96E+01 769 0.62353 0.50196 0.50196 0.3517 0.3219 23.28E+01 770 0.50196 0.50196 0.50196 0.3024 0.3209 20.14E+01 771 0.37647 0.50196 0.50196 0.2722 0.3276 19.77E+01 772 0.25098 0.50196 0.50196 0.2576 0.3301 19.49E+01 773 0.12549 0.50196 0.50196 0.2537 0.3309 19.44E+01 774 0.00000 0.50196 0.50196 0.2531 0.3308 19.40E+01 775 1.00000 0.37647 0.37647 0.5734 0.3359 39.38E+01 776 0.87451 0.37647 0.37647 0.5454 0.3344 28.57E+01 777 0.74902 0.37647 0.37647 0.4946 0.3311 19.12E+01 778 0.62353 0.37647 0.37647 0.4319 0.3272 13.50E+01 779 0.50196 0.37647 0.37647 0.3602 0.3228 10.01E+01 780 0.37647 0.37647 0.37647 0.3009 0.3229 8.49E+01 781 0.25098 0.37647 0.37647 0.2685 0.3302 8.30E+01 782 0.12549 0.37647 0.37647 0.2594 0.3323 8.25E+01 783 0.00000 0.37647 0.37647 0.2582 0.3325 8.23E+01 784 1.00000 0.25098 0.25098 0.6192 0.3389 35.17E+01 785 0.87451 0.25098 0.25098 0.6061 0.3381 24.31E+01 786 0.74902 0.25098 0.25098 0.5780 0.3361 14.76E+01 787 0.62353 0.25098 0.25098 0.5326 0.3331 9.05E+01 788 0.50196 0.25098 0.25098 0.4602 0.3289 55.37E+00 789 0.37647 0.25098 0.25098 0.3702 0.3224 37.24E+00 790 0.25098 0.25098 0.25098 0.2977 0.3219 30.10E+00 791 0.12549 0.25098 0.25098 0.2736 0.3276 29.57E+00 792 0.00000 0.25098 0.25098 0.2696 0.3281 29.44E+00 793 1.00000 0.12549 0.12549 0.6361 0.3402 33.83E+01 794 0.87451 0.12549 0.12549 0.6303 0.3402 23.01E+01 795 0.74902 0.12549 0.12549 0.6160 0.3395 13.43E+01 796 0.62353 0.12549 0.12549 0.5899 0.3382 7.71E+01 797 0.50196 0.12549 0.12549 0.5390 0.3362 41.76E+00 798 0.37647 0.12549 0.12549 0.4515 0.3322 23.75E+00 799 0.25098 0.12549 0.12549 0.3524 0.3275 15.24E+00 800 0.12549 0.12549 0.12549 0.3046 0.3300 13.65E+00 801 0.00000 0.12549 0.12549 0.2970 0.3324 13.50E+00 802 1.00000 0.00000 0.00000 0.6405 0.3407 33.66E+01 803 0.87451 0.00000 0.00000 0.6365 0.3409 22.75E+01 804 0.74902 0.00000 0.00000 0.6263 0.3408 13.16E+01 805 0.62353 0.00000 0.00000 0.6061 0.3407 7.43E+01 806 0.50196 0.00000 0.00000 0.5664 0.3403 38.82E+00 807 0.37647 0.00000 0.00000 0.4881 0.3394 20.76E+00 808 0.25098 0.00000 0.00000 0.3857 0.3394 12.40E+00 809 0.12549 0.00000 0.00000 0.3278 0.3384 10.24E+00 810 0.00000 0.00000 0.00000 0.3182 0.3422 10.12E+00 811 1.00000 1.00000 1.00000 0.3126 0.3291 33.04E+02 812 0.87451 0.87451 1.00000 0.2885 0.2944 19.47E+02 813 0.74902 0.74902 1.00000 0.2410 0.2236 9.41E+02 814 0.62353 0.62353 1.00000 0.2053 0.1684 5.92E+02 815 0.50196 0.50196 1.00000 0.1773 0.1255 3.92E+02 816 0.37647 0.37647 1.00000 0.1599 0.0983 2.86E+02 817 0.25098 0.25098 1.00000 0.1507 0.0839 2.36E+02 818 0.12549 0.12549 1.00000 0.1481 0.0796 2.22E+02 819 0.00000 0.00000 1.00000 0.1475 0.0784 2.18E+02 820 1.00000 1.00000 0.87451 0.3306 0.3567 25.26E+02 821 0.87451 0.87451 0.87451 0.3111 0.3292 18.74E+02 822 0.74902 0.74902 0.87451 0.2669 0.2635 8.71E+02 823 0.62353 0.62353 0.87451 0.2265 0.2004 5.22E+02 824 0.50196 0.50196 0.87451 0.1903 0.1457 3.23E+02 825 0.37647 0.37647 0.87451 0.1662 0.1085 2.16E+02 826 0.25098 0.25098 0.87451 0.1530 0.0877 1.68E+02 827 0.12549 0.12549 0.87451 0.1492 0.0812 1.53E+02 828 0.00000 0.00000 0.87451 0.1484 0.0798 1.50E+02 829 1.00000 1.00000 0.74902 0.3613 0.4023 19.42E+02 830 0.87451 0.87451 0.74902 0.3400 0.3735 13.73E+02 831 0.74902 0.74902 0.74902 0.3043 0.3217 8.12E+02 832 0.62353 0.62353 0.74902 0.2605 0.2537 46.24E+01 833 0.50196 0.50196 0.74902 0.2145 0.1835 26.35E+01 834 0.37647 0.37647 0.74902 0.1791 0.1290 15.76E+01 835 0.25098 0.25098 0.74902 0.1579 0.0957 10.86E+01 836 0.12549 0.12549 0.74902 0.1513 0.0848 9.36E+01 837 0.00000 0.00000 0.74902 0.1499 0.0823 9.05E+01 838 1.00000 1.00000 0.62353 0.3884 0.4454 18.44E+02 839 0.87451 0.87451 0.62353 0.3726 0.4258 12.88E+02 840 0.74902 0.74902 0.62353 0.3440 0.3859 77.21E+01 841 0.62353 0.62353 0.62353 0.3043 0.3215 42.35E+01 842 0.50196 0.50196 0.62353 0.2521 0.2424 22.59E+01 843 0.37647 0.37647 0.62353 0.2023 0.1660 12.02E+01 844 0.25098 0.25098 0.62353 0.1681 0.1121 7.06E+01 845 0.12549 0.12549 0.62353 0.1564 0.0929 5.58E+01 846 0.00000 0.00000 0.62353 0.1539 0.0886 5.27E+01 847 1.00000 1.00000 0.50196 0.4080 0.4751 19.34E+02 848 0.87451 0.87451 0.50196 0.3961 0.4638 12.81E+02 849 0.74902 0.74902 0.50196 0.3774 0.4405 76.38E+01 850 0.62353 0.62353 0.50196 0.3497 0.3955 41.40E+01 851 0.50196 0.50196 0.50196 0.3023 0.3211 20.31E+01 852 0.37647 0.37647 0.50196 0.2417 0.2288 9.75E+01 853 0.25098 0.25098 0.50196 0.1885 0.1455 4.81E+01 854 0.12549 0.12549 0.50196 0.1671 0.1105 3.34E+01 855 0.00000 0.00000 0.50196 0.1627 0.1023 3.03E+01 856 1.00000 1.00000 0.37647 0.4183 0.4923 20.82E+02 857 0.87451 0.87451 0.37647 0.4134 0.4859 12.73E+02 858 0.74902 0.74902 0.37647 0.3997 0.4778 75.46E+01 859 0.62353 0.62353 0.37647 0.3851 0.4537 40.70E+01 860 0.50196 0.50196 0.37647 0.3545 0.4065 19.48E+01 861 0.37647 0.37647 0.37647 0.3005 0.3222 8.48E+01 862 0.25098 0.25098 0.37647 0.2305 0.2132 3.58E+01 863 0.12549 0.12549 0.37647 0.1929 0.1521 2.13E+01 864 0.00000 0.00000 0.37647 0.1839 0.1353 1.81E+01 865 1.00000 1.00000 0.25098 0.4221 0.5013 21.92E+02 866 0.87451 0.87451 0.25098 0.4206 0.4981 13.17E+02 867 0.74902 0.74902 0.25098 0.4118 0.4975 75.58E+01 868 0.62353 0.62353 0.25098 0.4056 0.4878 40.64E+01 869 0.50196 0.50196 0.25098 0.3910 0.4672 19.37E+01 870 0.37647 0.37647 0.25098 0.3588 0.4188 81.48E+00 871 0.25098 0.25098 0.25098 0.2973 0.3212 29.97E+00 872 0.12549 0.12549 0.25098 0.2457 0.2357 15.33E+00 873 0.00000 0.00000 0.25098 0.2312 0.2077 12.28E+00 874 1.00000 1.00000 0.12549 0.4232 0.5040 22.22E+02 875 0.87451 0.87451 0.12549 0.4226 0.5023 13.36E+02 876 0.74902 0.74902 0.12549 0.4158 0.5043 75.45E+01 877 0.62353 0.62353 0.12549 0.4129 0.5001 40.56E+01 878 0.50196 0.50196 0.12549 0.4057 0.4912 19.30E+01 879 0.37647 0.37647 0.12549 0.3875 0.4677 81.23E+00 880 0.25098 0.25098 0.12549 0.3493 0.4066 28.43E+00 881 0.12549 0.12549 0.12549 0.3046 0.3301 13.58E+00 882 0.00000 0.00000 0.12549 0.2899 0.2981 10.49E+00 883 1.00000 1.00000 0.00000 0.4235 0.5046 22.25E+02 884 0.87451 0.87451 0.00000 0.4234 0.5034 13.34E+02 885 0.74902 0.74902 0.00000 0.4168 0.5060 75.46E+01 886 0.62353 0.62353 0.00000 0.4149 0.5032 40.53E+01 887 0.50196 0.50196 0.00000 0.4092 0.4974 19.28E+01 888 0.37647 0.37647 0.00000 0.3958 0.4811 80.68E+00 889 0.25098 0.25098 0.00000 0.3666 0.4355 28.20E+00 890 0.12549 0.12549 0.00000 0.3301 0.3699 13.01E+00 891 0.00000 0.00000 0.00000 0.3177 0.3415 10.05E+00 892 1.00000 1.00000 1.00000 0.3125 0.3289 32.75E+02 893 1.00000 0.87451 1.00000 0.3072 0.2999 21.47E+02 894 1.00000 0.74902 1.00000 0.2963 0.2453 12.01E+02 895 1.00000 0.62353 1.00000 0.2858 0.1979 8.57E+02 896 1.00000 0.50196 1.00000 0.2781 0.1700 7.17E+02 897 1.00000 0.37647 1.00000 0.2755 0.1551 6.40E+02 898 1.00000 0.25098 1.00000 0.2748 0.1482 6.06E+02 899 1.00000 0.12549 1.00000 0.2743 0.1461 5.96E+02 900 1.00000 0.00000 1.00000 0.2742 0.1454 5.93E+02 901 0.87451 1.00000 0.87451 0.3151 0.3583 23.22E+02 902 0.87451 0.87451 0.87451 0.3111 0.3290 18.59E+02 903 0.87451 0.74902 0.87451 0.3006 0.2761 10.26E+02 904 0.87451 0.62353 0.87451 0.2929 0.2235 6.54E+02 905 0.87451 0.50196 0.87451 0.2814 0.1841 5.05E+02 906 0.87451 0.37647 0.87451 0.2789 0.1621 4.29E+02 907 0.87451 0.25098 0.87451 0.2774 0.1513 3.96E+02 908 0.87451 0.12549 0.87451 0.2769 0.1478 3.86E+02 909 0.87451 0.00000 0.87451 0.2765 0.1472 3.84E+02 910 0.74902 1.00000 0.74902 0.3196 0.4150 16.98E+02 911 0.74902 0.87451 0.74902 0.3138 0.3782 12.38E+02 912 0.74902 0.74902 0.74902 0.3044 0.3215 8.07E+02 913 0.74902 0.62353 0.74902 0.2953 0.2614 50.65E+01 914 0.74902 0.50196 0.74902 0.2879 0.2110 34.70E+01 915 0.74902 0.37647 0.74902 0.2830 0.1759 25.98E+01 916 0.74902 0.25098 0.74902 0.2801 0.1566 22.10E+01 917 0.74902 0.12549 0.74902 0.2793 0.1505 20.88E+01 918 0.74902 0.00000 0.74902 0.2791 0.1491 20.63E+01 919 0.62353 1.00000 0.62353 0.3295 0.4712 16.26E+02 920 0.62353 0.87451 0.62353 0.3246 0.4425 11.63E+02 921 0.62353 0.74902 0.62353 0.3161 0.3916 72.42E+01 922 0.62353 0.62353 0.62353 0.3044 0.3218 42.32E+01 923 0.62353 0.50196 0.62353 0.2939 0.2530 25.50E+01 924 0.62353 0.37647 0.62353 0.2860 0.1991 16.85E+01 925 0.62353 0.25098 0.62353 0.2815 0.1663 12.86E+01 926 0.62353 0.12549 0.62353 0.2799 0.1551 11.64E+01 927 0.62353 0.00000 0.62353 0.2795 0.1526 11.40E+01 928 0.50196 1.00000 0.50196 0.3361 0.5140 15.92E+02 929 0.50196 0.87451 0.50196 0.3327 0.4965 11.28E+02 930 0.50196 0.74902 0.50196 0.3269 0.4615 69.10E+01 931 0.50196 0.62353 0.50196 0.3171 0.4041 38.75E+01 932 0.50196 0.50196 0.50196 0.3026 0.3213 20.27E+01 933 0.50196 0.37647 0.50196 0.2895 0.2409 11.22E+01 934 0.50196 0.25098 0.50196 0.2811 0.1848 7.25E+01 935 0.50196 0.12549 0.50196 0.2778 0.1633 6.05E+01 936 0.50196 0.00000 0.50196 0.2771 0.1585 5.80E+01 937 0.37647 1.00000 0.37647 0.3407 0.5415 15.67E+02 938 0.37647 0.87451 0.37647 0.3393 0.5325 11.05E+02 939 0.37647 0.74902 0.37647 0.3358 0.5140 66.51E+01 940 0.37647 0.62353 0.37647 0.3297 0.4798 36.73E+01 941 0.37647 0.50196 0.37647 0.3182 0.4178 18.37E+01 942 0.37647 0.37647 0.37647 0.3009 0.3232 8.57E+01 943 0.37647 0.25098 0.37647 0.2848 0.2293 4.30E+01 944 0.37647 0.12549 0.37647 0.2779 0.1875 31.09E+00 945 0.37647 0.00000 0.37647 0.2762 0.1769 28.46E+00 946 0.25098 1.00000 0.25098 0.3434 0.5554 15.69E+02 947 0.25098 0.87451 0.25098 0.3425 0.5522 11.06E+02 948 0.25098 0.74902 0.25098 0.3412 0.5446 66.03E+01 949 0.25098 0.62353 0.25098 0.3384 0.5296 35.99E+01 950 0.25098 0.50196 0.25098 0.3322 0.4980 17.48E+01 951 0.25098 0.37647 0.25098 0.3192 0.4337 76.55E+00 952 0.25098 0.25098 0.25098 0.2974 0.3216 30.34E+00 953 0.25098 0.12549 0.25098 0.2831 0.2440 17.20E+00 954 0.25098 0.00000 0.25098 0.2794 0.2229 14.65E+00 955 0.12549 1.00000 0.12549 0.3442 0.5600 15.67E+02 956 0.12549 0.87451 0.12549 0.3443 0.5585 11.03E+02 957 0.12549 0.74902 0.12549 0.3435 0.5552 65.72E+01 958 0.12549 0.62353 0.12549 0.3425 0.5483 35.62E+01 959 0.12549 0.50196 0.12549 0.3400 0.5329 17.15E+01 960 0.12549 0.37647 0.12549 0.3332 0.4975 73.69E+00 961 0.12549 0.25098 0.12549 0.3198 0.4172 27.44E+00 962 0.12549 0.12549 0.12549 0.3050 0.3306 13.69E+00 963 0.12549 0.00000 0.12549 0.2986 0.2961 10.71E+00 964 0.00000 1.00000 0.00000 0.3447 0.5611 15.66E+02 965 0.00000 0.87451 0.00000 0.3442 0.5602 11.02E+02 966 0.00000 0.74902 0.00000 0.3442 0.5578 65.61E+01 967 0.00000 0.62353 0.00000 0.3439 0.5532 35.52E+01 968 0.00000 0.50196 0.00000 0.3425 0.5421 17.06E+01 969 0.00000 0.37647 0.00000 0.3386 0.5160 72.79E+00 970 0.00000 0.25098 0.00000 0.3312 0.4518 26.64E+00 971 0.00000 0.12549 0.00000 0.3214 0.3741 13.00E+00 972 0.00000 0.00000 0.00000 0.3179 0.3422 10.15E+00 973 0.00000 0.00000 0.00000 0.3176 0.3415 10.14E+00 974 0.12549 0.12549 0.12549 0.3043 0.3301 13.70E+00 975 0.25098 0.25098 0.25098 0.2973 0.3213 30.29E+00 976 0.37647 0.37647 0.37647 0.3005 0.3227 8.58E+01 977 0.50196 0.50196 0.50196 0.3023 0.3207 20.36E+01 978 0.62353 0.62353 0.62353 0.3042 0.3213 42.50E+01 979 0.74902 0.74902 0.74902 0.3040 0.3213 81.35E+01 980 0.87451 0.87451 0.87451 0.3109 0.3291 18.80E+02 981 1.00000 1.00000 1.00000 0.3125 0.3290 33.17E+02 982 0.00000 0.00000 0.00000 0.3174 0.3413 10.11E+00 983 0.12549 0.12549 0.12549 0.3045 0.3301 13.65E+00 984 0.25098 0.25098 0.25098 0.2973 0.3214 30.25E+00 985 0.37647 0.37647 0.37647 0.3008 0.3227 8.57E+01 986 0.50196 0.50196 0.50196 0.3022 0.3208 20.36E+01 987 0.62353 0.62353 0.62353 0.3042 0.3214 42.52E+01 988 0.74902 0.74902 0.74902 0.3040 0.3213 81.30E+01 989 0.87451 0.87451 0.87451 0.3110 0.3288 18.63E+02 990 1.00000 1.00000 1.00000 0.3126 0.3287 32.88E+02 991 0.00000 0.00000 0.00000 0.3174 0.3415 10.08E+00 992 0.12549 0.12549 0.12549 0.3046 0.3296 13.57E+00 993 0.25098 0.25098 0.25098 0.2973 0.3208 29.95E+00 994 0.37647 0.37647 0.37647 0.3004 0.3220 84.57E+00 995 0.50196 0.50196 0.50196 0.3022 0.3203 20.13E+01 996 0.62353 0.62353 0.62353 0.3042 0.3211 42.08E+01 997 0.74902 0.74902 0.74902 0.3040 0.3210 80.45E+01 998 0.87451 0.87451 0.87451 0.3109 0.3289 18.62E+02 999 1.00000 1.00000 1.00000 0.3126 0.3287 32.85E+02 1000 0.00000 0.00000 0.00000 0.3181 0.3418 10.07E+00 1001 0.12549 0.12549 0.12549 0.3044 0.3296 13.61E+00 1002 0.25098 0.25098 0.25098 0.2972 0.3213 30.06E+00 1003 0.37647 0.37647 0.37647 0.3003 0.3221 84.65E+00 1004 0.50196 0.50196 0.50196 0.3021 0.3204 20.14E+01 1005 0.62353 0.62353 0.62353 0.3042 0.3210 42.04E+01 1006 0.74902 0.74902 0.74902 0.3040 0.3209 80.44E+01 1007 0.87451 0.87451 0.87451 0.3109 0.3288 18.60E+02 1008 1.00000 1.00000 1.00000 0.3126 0.3287 32.83E+02 1009 0.00000 0.00000 0.00000 0.3171 0.3408 10.10E+00 1010 0.06667 0.06667 0.06667 0.3108 0.3348 11.13E+00 1011 0.13333 0.13333 0.13333 0.3042 0.3290 13.56E+00 1012 0.20000 0.20000 0.20000 0.3013 0.3261 19.87E+00 1013 0.26667 0.26667 0.26667 0.2990 0.3217 35.23E+00 1014 0.33333 0.33333 0.33333 0.2987 0.3193 60.64E+00 1015 0.40000 0.40000 0.40000 0.3013 0.3233 10.16E+01 1016 0.46667 0.46667 0.46667 0.3007 0.3193 16.10E+01 1017 0.53333 0.53333 0.53333 0.3020 0.3200 24.34E+01 1018 0.60000 0.60000 0.60000 0.3040 0.3201 35.97E+01 1019 0.66667 0.66667 0.66667 0.3046 0.3220 52.38E+01 1020 0.73333 0.73333 0.73333 0.3046 0.3216 71.64E+01 1021 0.80000 0.80000 0.80000 0.3074 0.3259 11.64E+02 1022 0.86667 0.86667 0.86667 0.3106 0.3280 17.77E+02 1023 0.93333 0.93333 0.93333 0.3123 0.3298 25.20E+02 1024 1.00000 1.00000 1.00000 0.3125 0.3288 32.79E+02 1025 0.00000 0.00000 0.00000 0.3175 0.3416 10.05E+00 1026 0.06667 0.06667 0.06667 0.3111 0.3357 11.08E+00 1027 0.13333 0.13333 0.13333 0.3041 0.3291 13.55E+00 1028 0.20000 0.20000 0.20000 0.3013 0.3261 19.86E+00 1029 0.26667 0.26667 0.26667 0.2990 0.3220 35.29E+00 1030 0.33333 0.33333 0.33333 0.2988 0.3196 60.62E+00 1031 0.40000 0.40000 0.40000 0.3014 0.3234 10.15E+01 1032 0.46667 0.46667 0.46667 0.3007 0.3196 16.11E+01 1033 0.53333 0.53333 0.53333 0.3021 0.3204 24.37E+01 1034 0.60000 0.60000 0.60000 0.3040 0.3204 36.01E+01 1035 0.66667 0.66667 0.66667 0.3047 0.3222 52.43E+01 1036 0.73333 0.73333 0.73333 0.3047 0.3218 71.71E+01 1037 0.80000 0.80000 0.80000 0.3077 0.3261 11.65E+02 1038 0.86667 0.86667 0.86667 0.3106 0.3281 17.77E+02 1039 0.93333 0.93333 0.93333 0.3123 0.3300 25.22E+02 1040 1.00000 1.00000 1.00000 0.3126 0.3290 32.83E+02 1041 0.00000 0.00000 0.00000 0.3180 0.3418 10.05E+00 1042 0.06667 0.06667 0.06667 0.3114 0.3369 11.12E+00 1043 0.13333 0.13333 0.13333 0.3043 0.3301 13.59E+00 1044 0.20000 0.20000 0.20000 0.3015 0.3268 19.94E+00 1045 0.26667 0.26667 0.26667 0.2991 0.3224 35.34E+00 1046 0.33333 0.33333 0.33333 0.2987 0.3198 60.86E+00 1047 0.40000 0.40000 0.40000 0.3013 0.3233 10.17E+01 1048 0.46667 0.46667 0.46667 0.3007 0.3197 16.16E+01 1049 0.53333 0.53333 0.53333 0.3022 0.3207 24.47E+01 1050 0.60000 0.60000 0.60000 0.3040 0.3206 36.15E+01 1051 0.66667 0.66667 0.66667 0.3047 0.3224 52.63E+01 1052 0.73333 0.73333 0.73333 0.3048 0.3220 72.02E+01 1053 0.80000 0.80000 0.80000 0.3077 0.3261 11.69E+02 1054 0.86667 0.86667 0.86667 0.3107 0.3282 17.83E+02 1055 0.93333 0.93333 0.93333 0.3123 0.3301 25.33E+02 1056 1.00000 1.00000 1.00000 0.3125 0.3291 33.08E+02 1057 0.00000 0.00000 0.00000 0.3179 0.3422 10.13E+00 1058 0.06667 0.06667 0.06667 0.3115 0.3362 11.16E+00 1059 0.13333 0.13333 0.13333 0.3045 0.3301 13.68E+00 1060 0.20000 0.20000 0.20000 0.3014 0.3268 20.05E+00 1061 0.26667 0.26667 0.26667 0.2992 0.3227 35.57E+00 1062 0.33333 0.33333 0.33333 0.2989 0.3201 61.14E+00 1063 0.40000 0.40000 0.40000 0.3016 0.3237 10.23E+01 1064 0.46667 0.46667 0.46667 0.3009 0.3200 16.24E+01 1065 0.53333 0.53333 0.53333 0.3023 0.3209 24.58E+01 1066 0.60000 0.60000 0.60000 0.3041 0.3207 36.29E+01 1067 0.66667 0.66667 0.66667 0.3048 0.3224 52.83E+01 1068 0.73333 0.73333 0.73333 0.3047 0.3220 72.27E+01 1069 0.80000 0.80000 0.80000 0.3079 0.3259 11.73E+02 1070 0.86667 0.86667 0.86667 0.3107 0.3284 17.91E+02 1071 0.93333 0.93333 0.93333 0.3123 0.3301 25.41E+02 1072 1.00000 1.00000 1.00000 0.3126 0.3291 33.07E+02 1073 0.00000 0.00000 0.00000 0.3177 0.3425 10.07E+00 1074 1.00000 1.00000 1.00000 0.3125 0.3291 33.08E+02 1075 1.00000 0.00000 0.00000 0.6404 0.3407 33.61E+01 1076 0.00000 1.00000 1.00000 0.2476 0.3239 18.25E+02 1077 1.00000 1.00000 0.00000 0.4233 0.5049 22.52E+02 1078 0.00000 0.00000 1.00000 0.1479 0.0790 2.20E+02 1079 0.00000 1.00000 0.00000 0.3445 0.5608 15.63E+02 1080 1.00000 0.00000 1.00000 0.2740 0.1454 5.97E+02 ] def %**************************************************************************** %For output linearization in CIELAB %**************************************************************************** %BEG -- LUT Code ---Look-up-Table for FP-file /nR 9 def %LUT size /nG 9 def /nB 9 def /nges nR nG nB mul mul def /Lab2RGB {%BEG Procedure Lab2RGB % --- Lab2RGB ----------------- % % --- Input (stack): L* a* b* % --- Output (stack): iR iG iB ; LUT value with smallest Delta-E % ---- : delta-E % /Zielb exch def /Ziela exch def /ZielL exch def /dE 1000 def /opt 0 def 1 1 nges { 1 sub 3 mul /ii exch def /dL lut ii get ZielL sub abs def dE dL ge { %dE>dL /da lut ii 1 add get Ziela sub abs def dE da ge { %dE>da /db lut ii 2 add get Zielb sub abs def dE db ge { %dE>db /dEneu dL dL mul da da mul db db mul add add sqrt def /d_L* dL def %new /d_a* da def %new /d_b* db def %new dE dEneu ge { % test ob dEneu < dE /dE dEneu def /opt ii def } if } if } if } if } for /opt opt 3 idiv def /delta_L* d_L* def %new /delta_a* d_a* def %new /delta_b* d_b* def %new /delta_E* d_L* dup mul d_a* dup mul add d_b* dup mul add 0.001 add sqrt def %new /LAB*L*Fa3D ZielL d_L* add def %new /LAB*a*Fa3D Ziela d_a* add def %new /LAB*b*Fa3D Zielb d_b* add def %new /LAB*C*Fa3D LAB*a*Fa3D dup mul LAB*b*Fa3D dup mul add 0.0001 add sqrt def %new /LAB*hFa3D LAB*b*Fa3D LAB*a*Fa3D 0.0001 add atan def %new opt nG nB mul idiv % R auf den stack (Wertebereich real: 0-(nr-1)) opt nG nB mul mod nB idiv % G auf den stack opt nG nB mul mod nB mod % B auf den stack dEneu } def %END Procedure Lab2RGB %********************************************************************* /indexkonv {%BEG Procedure indexkonv % --- indexkonv ----------------- % % --- Eingabe (stack): iR iG iB ; Indizes eines LUT-Wertes % --- Ausgabe (stack): Position des LUT-Wertes im 1-dim Lut-Array % %errechnet aus r g b index auf stack den fortlaufenden index exch nB mul add exch nB nG mul mul add 3 mul } def %END Procedure indexkonv %********************************************************************* /set_oktant {%BEG Procedure set_oktant % --- set_oktant ----------------- % % --- Eingabe (stack): iR iG iB ; Indizes eines LUT-Wertes, % kennzeichnet die dem Ursprung entfernteste Ecke des ausgewaehlten Raumbereiches % sortierung v1->v8: RGB, RGB+1, RG+1B, RG+1B+1, usw.. % --- Ausgabe (stack): keine % /B_index exch def /G_index exch def /R_index exch def R_index G_index B_index indexkonv /tempindex exch def % /eswird R_index G_index B_index /zu tempindex /lin_v8L lut tempindex get def /lin_v8a lut tempindex 1 add get def /lin_v8b lut tempindex 2 add get def R_index G_index B_index 1 sub indexkonv /tempindex exch def % /eswird R_index G_index B_index 1 sub /zu tempindex jens /lin_v7L lut tempindex get def /lin_v7a lut tempindex 1 add get def /lin_v7b lut tempindex 2 add get def R_index G_index 1 sub B_index indexkonv /tempindex exch def /lin_v6L lut tempindex get def /lin_v6a lut tempindex 1 add get def /lin_v6b lut tempindex 2 add get def R_index G_index 1 sub B_index 1 sub indexkonv /tempindex exch def /lin_v5L lut tempindex get def /lin_v5a lut tempindex 1 add get def /lin_v5b lut tempindex 2 add get def R_index 1 sub G_index B_index indexkonv /tempindex exch def /lin_v4L lut tempindex get def /lin_v4a lut tempindex 1 add get def /lin_v4b lut tempindex 2 add get def R_index 1 sub G_index B_index 1 sub indexkonv /tempindex exch def /lin_v3L lut tempindex get def /lin_v3a lut tempindex 1 add get def /lin_v3b lut tempindex 2 add get def R_index 1 sub G_index 1 sub B_index indexkonv /tempindex exch def /lin_v2L lut tempindex get def /lin_v2a lut tempindex 1 add get def /lin_v2b lut tempindex 2 add get def R_index 1 sub G_index 1 sub B_index 1 sub indexkonv /tempindex exch def /lin_v1L lut tempindex get def /lin_v1a lut tempindex 1 add get def /lin_v1b lut tempindex 2 add get def } def %END Procedure set_oktant %********************************************************************* /L_abc {%BEG Procedure L_abc % --- L_abc ----------------- % % --- Eingabe (stack): alpha (R-Richtung) beta (G-Richtung) gamma (B-Richtung) % --- Ausgabe (stack): L* interpoliert aus LUT im aktuellen Oktanten % /gamma exch def /beta exch def /alpha exch def /alpham 1 alpha sub def /betam 1 beta sub def /gammam 1 gamma sub def lin_v8L alpha beta gamma mul mul mul lin_v7L alpha beta gammam mul mul mul add lin_v6L alpha betam gamma mul mul mul add lin_v5L alpha betam gammam mul mul mul add lin_v4L alpham beta gamma mul mul mul add lin_v3L alpham beta gammam mul mul mul add lin_v2L alpham betam gamma mul mul mul add lin_v1L alpham betam gammam mul mul mul add } def %END Procedure L_abc %********************************************************************* /a_abc {%BEG Procedure a_abc % --- a_abc ----------------- % % --- Eingabe (stack): alpha (R-Richtung) beta (G-Richtung) gamma (B-Richtung) % --- Ausgabe (stack): L* interpoliert aus LUT im aktuellen Oktanten % /gamma exch def /beta exch def /alpha exch def /alpham 1 alpha sub def /betam 1 beta sub def /gammam 1 gamma sub def lin_v8a alpha beta gamma mul mul mul lin_v7a alpha beta gammam mul mul mul add lin_v6a alpha betam gamma mul mul mul add lin_v5a alpha betam gammam mul mul mul add lin_v4a alpham beta gamma mul mul mul add lin_v3a alpham beta gammam mul mul mul add lin_v2a alpham betam gamma mul mul mul add lin_v1a alpham betam gammam mul mul mul add } def %END Procedure a_abc %********************************************************************* /b_abc {%BEG Procedure b_abc % --- b_abc ----------------- % % --- Eingabe (stack): alpha (R-Richtung) beta (G-Richtung) gamma (B-Richtung) % --- Ausgabe (stack): L* interpoliert aus LUT im aktuellen Oktanten % /gamma exch def /beta exch def /alpha exch def /alpham 1 alpha sub def /betam 1 beta sub def /gammam 1 gamma sub def lin_v8b alpha beta gamma mul mul mul lin_v7b alpha beta gammam mul mul mul add lin_v6b alpha betam gamma mul mul mul add lin_v5b alpha betam gammam mul mul mul add lin_v4b alpham beta gamma mul mul mul add lin_v3b alpham beta gammam mul mul mul add lin_v2b alpham betam gamma mul mul mul add lin_v1b alpham betam gammam mul mul mul add } def %END Procedure b_abc %********************************************************************* /Jacobi_abc {%BEG Procedure Jacobi_abc % --- Jacobi_abc ----------------- % % --- Eingabe (stack): alpha (R-Richtung) beta (G-Richtung) gamma (B-Richtung) % --- Ausgabe (stack): Jacobi Matrix an der stelle abc im aktuellen Oktanten % in der reihenfolge abcdefghi % (a b c) % (d e f) % (g h i) % /gamma exch def /beta exch def /alpha exch def /alpham 1 alpha sub def /betam 1 beta sub def /gammam 1 gamma sub def lin_v5L lin_v1L sub betam gammam mul mul lin_v6L lin_v2L sub betam gamma mul mul add lin_v7L lin_v3L sub beta gammam mul mul add lin_v8L lin_v4L sub beta gamma mul mul add lin_v3L lin_v1L sub alpham gammam mul mul lin_v4L lin_v2L sub alpham gamma mul mul add lin_v7L lin_v5L sub alpha gammam mul mul add lin_v8L lin_v6L sub alpha gamma mul mul add lin_v2L lin_v1L sub alpham betam mul mul lin_v4L lin_v3L sub alpham beta mul mul add lin_v6L lin_v5L sub alpha betam mul mul add lin_v8L lin_v7L sub alpha beta mul mul add lin_v5a lin_v1a sub betam gammam mul mul lin_v6a lin_v2a sub betam gamma mul mul add lin_v7a lin_v3a sub beta gammam mul mul add lin_v8a lin_v4a sub beta gamma mul mul add lin_v3a lin_v1a sub alpham gammam mul mul lin_v4a lin_v2a sub alpham gamma mul mul add lin_v7a lin_v5a sub alpha gammam mul mul add lin_v8a lin_v6a sub alpha gamma mul mul add lin_v2a lin_v1a sub alpham betam mul mul lin_v4a lin_v3a sub alpham beta mul mul add lin_v6a lin_v5a sub alpha betam mul mul add lin_v8a lin_v7a sub alpha beta mul mul add lin_v5b lin_v1b sub betam gammam mul mul lin_v6b lin_v2b sub betam gamma mul mul add lin_v7b lin_v3b sub beta gammam mul mul add lin_v8b lin_v4b sub beta gamma mul mul add lin_v3b lin_v1b sub alpham gammam mul mul lin_v4b lin_v2b sub alpham gamma mul mul add lin_v7b lin_v5b sub alpha gammam mul mul add lin_v8b lin_v6b sub alpha gamma mul mul add lin_v2b lin_v1b sub alpham betam mul mul lin_v4b lin_v3b sub alpham beta mul mul add lin_v6b lin_v5b sub alpha betam mul mul add lin_v8b lin_v7b sub alpha beta mul mul add } def %END Procedure Jacobi_abc %********************************************************************* /Inverse_mat {%BEG Procedure Inverse_mat % --- Inverse_mat ----------------- % % --- Eingabe (stack): Matrix in der reihenfolge abcdefghi % invertiert die Matrix (a b c) % (d e f) % (g h i) % --- Ausgabe (stack): Matrix % /i_i exch def /i_h exch def /i_g exch def /i_f exch def /i_e exch def /i_d exch def /i_c exch def /i_b exch def /i_a exch def /i_det i_a i_e i_i mul mul i_b i_d i_i mul mul sub i_a i_f i_h mul mul sub i_c i_d i_h mul mul add i_b i_f i_g mul mul add i_c i_e i_g mul mul sub def i_e i_i mul i_f i_h mul sub i_det div %a der inversen auf stack i_c i_h mul i_b i_i mul sub i_det div %b der inversen auf stack i_b i_f mul i_c i_e mul sub i_det div %c der inversen auf stack i_f i_g mul i_d i_i mul sub i_det div %d der inversen auf stack i_a i_i mul i_c i_g mul sub i_det div %e der inversen auf stack i_c i_d mul i_a i_f mul sub i_det div %f der inversen auf stack i_d i_h mul i_e i_g mul sub i_det div %g der inversen auf stack i_b i_g mul i_a i_h mul sub i_det div %h der inversen auf stack i_a i_e mul i_b i_d mul sub i_det div %i der inversen auf stack } def %END Procedure Inverse_mat %********************************************************************* /linear_finden {%BEG Procedure linear_finden % --- linear_finden ----------------- % % --- Eingabe (stack): iR iG iB ; Indizes eines LUT-Wertes, % kennzeichnet die dem Ursprung entfernteste Ecke des ausgewaehlten Raumbereiches % L* a* b* ; danach der zielpunkt als lab wert % --- Ausgabe (stack): Delta-E: Abstand zum Zielpunkt % alpha, beta, gamma die den kürzesten abstand zum gegebenen zielpunkt aufweisen % /lin_zielb exch def /lin_ziela exch def /lin_zielL exch def set_oktant /akt_a 0.5 def /akt_b 0.5 def /akt_c 0.5 def /last_L akt_a akt_b akt_c L_abc def /last_a akt_a akt_b akt_c a_abc def /last_b akt_a akt_b akt_c b_abc def /diff_L last_L lin_zielL sub def /diff_a last_a lin_ziela sub def /diff_b last_b lin_zielb sub def 0 %default rueckgabewert fuer delta-e (wird nie benutzt, aber fuer pop wichtig) 1 1 10 { pop %pop schleifenzaehler pop %pop letzes Delta-E akt_a akt_b akt_c Jacobi_abc Inverse_mat diff_b mul exch diff_a mul add exch diff_L mul add /delta_c exch def diff_b mul exch diff_a mul add exch diff_L mul add /delta_b exch def diff_b mul exch diff_a mul add exch diff_L mul add /delta_a exch def % akt_a akt_b akt_c % delta_a delta_b delta_c /akt_a akt_a delta_a sub def /akt_b akt_b delta_b sub def /akt_c akt_c delta_c sub def akt_a 0 lt {/akt_a 0 def} if akt_b 0 lt {/akt_b 0 def} if akt_c 0 lt {/akt_c 0 def} if 1 akt_a lt {/akt_a 1 def} if 1 akt_b lt {/akt_b 1 def} if 1 akt_c lt {/akt_c 1 def} if /last_L akt_a akt_b akt_c L_abc def /last_a akt_a akt_b akt_c a_abc def /last_b akt_a akt_b akt_c b_abc def /diff_L last_L lin_zielL sub def /diff_a last_a lin_ziela sub def /diff_b last_b lin_zielb sub def %/naechster %akt_a %akt_b %akt_c %last_L %last_a %last_b diff_L dup mul diff_a dup mul diff_b dup mul add add sqrt dup %Abbruch wenn Delta_e<0.1 0.1 lt {exit} if } for /diff_L* diff_L def %new /diff_a* diff_a def %new /diff_b* diff_b def %new /diff_E* diff_L dup mul diff_a dup mul add diff_b dup mul add 0.0001 add sqrt def /last_L* last_L def /last_a* last_a def /last_b* last_b def akt_a akt_b akt_c } def %END Procedure linear_finden %********************************************************************* /Lab2RGBinterpolation {%BEG Procedure Lab2RGBinterpolation /Ziel_b exch def /Ziel_a exch def /Ziel_L exch def Ziel_L Ziel_a Ziel_b Lab2RGB /now_delta_e exch def /B_next exch def /G_next exch def /R_next exch def /R_fin R_next nR 1 sub div def % defaults falls kein besserer wert gefunden /G_fin G_next nG 1 sub div def /B_fin B_next nB 1 sub div def -1 1 2 { R_next add /R_now exch def -1 1 2 { G_next add /G_now exch def -1 1 2 { B_next add /B_now exch def B_now 0 gt G_now 0 gt R_now 0 gt nB B_now gt nG G_now gt nR R_now gt and and and and and { R_now G_now B_now Ziel_L Ziel_a Ziel_b linear_finden /now_c exch def /now_b exch def /now_a exch def dup %rückgabe delta-e doppeln now_delta_e lt { /now_delta_e exch def /Bs0 B_now 1 sub nB 1 sub div 255 mul round 255 div def /Bs1 B_now nB 1 sub div 255 mul round 255 div def /B_fin Bs0 1 now_c sub mul Bs1 now_c mul add def /Gs0 G_now 1 sub nG 1 sub div 255 mul round 255 div def /Gs1 G_now nG 1 sub div 255 mul round 255 div def /G_fin Gs0 1 now_b sub mul Gs1 now_b mul add def /Rs0 R_now 1 sub nR 1 sub div 255 mul round 255 div def /Rs1 R_now nR 1 sub div 255 mul round 255 div def /R_fin Rs0 1 now_a sub mul Rs1 now_a mul add def } { pop } ifelse } if } for } for } for /R*fin R_fin def %new /G*fin G_fin def %new /B*fin B_fin def %new R_fin G_fin B_fin } bind def %END Procedure Lab2RGBinterpolation %**************************************************************************** /xyY 4320 array def /RGB0 3240 array def /XYZ*system { %BEG procedure XYZ*system 0 1 1079 {/xchartl exch def /j00 xchartl 7 mul 0 add def /j04 j00 4 add def /j05 j00 5 add def /j06 j00 6 add def /j40 xchartl 4 mul 0 add def /j41 xchartl 4 mul 1 add def /j42 xchartl 4 mul 2 add def /j43 xchartl 4 mul 3 add def xyY j40 xyY0 j00 get put xyY j41 xyY0 j04 get put xyY j42 xyY0 j05 get put xyY j43 xyY0 j06 get put } for 0 1 1079 {/xchartl exch def /j00 xchartl 7 mul 0 add def /j01 j00 1 add def /j02 j00 2 add def /j03 j00 3 add def /j30 xchartl 3 mul 0 add def /j31 xchartl 3 mul 1 add def /j32 xchartl 3 mul 2 add def RGB0 j30 xyY0 j01 get put RGB0 j31 xyY0 j02 get put RGB0 j32 xyY0 j03 get put } for /XYZrx089 3240 array def %1080*3=3240 /XYZrx100 3240 array def /jend 1073 4 mul 3 add def %White-Measurement /fakt 100 xyY jend get div def /IM0 1080 def /IM1 IM0 1 sub def /IM3 IM0 3 mul 1 sub def /IM4 IM0 4 mul 1 sub def 0 1 IM1 {/i exch def %i=0,IM1 /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def /j30 i 4 mul 1 add def /j31 j30 1 add def /j32 j30 2 add def /SUM xyY j32 get xyY j31 get div def XYZrx100 i30 xyY j30 get SUM mul fakt mul put XYZrx100 i31 xyY j32 get fakt mul put XYZrx100 i32 1 xyY j30 get sub xyY j31 get sub SUM mul fakt mul put } for %i=0,IM1 0 1 IM3 {/i exch def %i=0,IM3 XYZrx089 i XYZrx100 i get 0.8859 mul put } for %i=0,IM3 /iN 1072 3 mul def /iW 1073 3 mul def /XLN100 XYZrx100 iN get def /YLN100 XYZrx100 iN 1 add get def /ZLN100 XYZrx100 iN 2 add get def /XLW100 XYZrx100 iW get def /YLW100 XYZrx100 iW 1 add get def /ZLW100 XYZrx100 iW 2 add get def /XLN089 XYZrx089 iN get def /YLN089 XYZrx089 iN 1 add get def /ZLN089 XYZrx089 iN 2 add get def /XLW089 XYZrx089 iW get def /YLW089 XYZrx089 iW 1 add get def /ZLW089 XYZrx089 iW 2 add get def % achromatic (D65) colours /XLWD65100 95.04 def /YLWD65100 100.00 def /ZLWD65100 108.88 def /XLWD65089 95.04 0.8859 mul def /YLWD65089 100.00 0.8859 mul def /ZLWD65089 108.88 0.8859 mul def /XLN001 XLWD65100 100 div def /YLN001 YLWD65100 100 div def /ZLN001 ZLWD65100 100 div def /LABN [(O (R)) (Y) (L (G)) (C) (V (B)) (M) (O (R)) (N) (W) (N0) (W1)] def } bind def %END procedure XYZ*system /XD65W 95.04 def /YD65W 100.00 def /ZD65W 108.88 def /XD50W 96.42 def /YD50W 100.00 def /ZD50W 82.51 def /DAKTE [(D65) (D50)] def %Save 8 standard colours /COL*01 08 array def /COL*01 [(%O1 0) (%Y1 1) (%L1 2) (%C1 3) (%V1 4) (%M1 5) (%N1 6) (%W1 7) ] def /COL*02 08 array def /COL*02 [(%O2 0) (%Y2 1) (%L2 2) (%C2 3) (%V2 4) (%M2 5) (%N2 6) (%W2 7) ] def /COL*03 08 array def /COL*03 [(%O3 0) (%Y3 1) (%L3 2) (%C3 3) (%V3 4) (%M3 5) (%N3 6) (%W3 7) ] def /COL*04 08 array def /COL*04 [(%O4 0) (%Y4 1) (%L4 2) (%C4 3) (%V4 4) (%M4 5) (%N4 6) (%W4 7) ] def /COL*05 08 array def /COL*05 [(%O5 0) (%Y5 1) (%L5 2) (%C5 3) (%V5 4) (%M5 5) (%N5 6) (%W5 7) ] def /COL*06 08 array def /COL*06 [(%O6 0) (%Y6 1) (%L6 2) (%C6 3) (%V6 4) (%M6 5) (%N6 6) (%W6 7) ] def /COL*07 08 array def /COL*07 [(%O7 0) (%Y7 1) (%L7 2) (%C7 3) (%V7 4) (%M7 5) (%N7 6) (%W7 7) ] def /LAB*01 24 array def /LAB*02 24 array def /LAB*03 24 array def /LAB*04 24 array def /LAB*05 24 array def /LAB*06 24 array def /LAB*07 24 array def /LAB*a01 24 array def /LAB*a02 24 array def /LAB*a03 24 array def /LAB*a04 24 array def /LAB*a05 24 array def /LAB*a06 24 array def /LAB*a07 24 array def /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind 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 /cvishowb {cvi 6 string cvs show ( ) show} def /cvsshow1b {10 mul cvi 0.1 mul 7 string cvs show ( ) show} def /cvsshow2b {100 mul cvi 0.01 mul 7 string cvs show ( ) show} def /cvsshow3b {1000 mul cvi 0.001 mul 7 string cvs show ( ) show} def /cvishowr {0.5 add cvi 6 string cvs show} def /cvsshow1r {0.05 add 10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2r {0.005 add 100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3r {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show} def /cvi100 {100 mul cvi /xi exch def xi 0 lt {/vorz -1 def} {/vorz 1 def} ifelse /xia xi abs def vorz -1 eq {(\255) show} {(0) show} ifelse xia 0 ge xia 9 le {(0000) show} if xia 10 ge xia 99 le and {(000) show} if xia 100 ge xia 999 le and {(00) show} if xia 1000 ge xia 9999 le and {(0) show} if xia cvishow } bind def /cvi1000 {1000 mul cvi /xi exch def xi 0 ge xi 9 le {(000) show} if xi 10 ge xi 99 le and {(00) show} if xi 100 ge xi 999 le and {(0) show} if xi cvishow } bind def /cvisp3 {/xi exch cvi def xi 0 ge xi 9 le {(000) show} if xi 10 ge xi 99 le and {(00) show} if xi 100 ge xi 999 le and {(0) show} if xi cvishow } bind def /cvisp2 {/xi exch cvi def xi 0 ge xi 9 le {(00) show} if xi 10 ge xi 99 le and {(0) show} if xi cvishow } bind def /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y k {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmykcolor rec stroke} bind def %%EndProlog gsave /lanind 0 def /lantex [(G) (E) (S) (N) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {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 /xchartg where {pop /xchartx xchartg def} {/xchartx 0 def} ifelse /xcolorg where {pop /xcolorx xchartg def} {/xcolorx 0 def} ifelse /colormg where {pop /colorm colormg def} {/colorm 0 def} ifelse %3240=1080*3 /LAB*rc089 3240 array def /XYZrc089 3240 array def /LAB*ra089 3240 array def /XYZra089 3240 array def /LAB*la089 3240 array def /XYZla089 3240 array def /LAB*lc089 3240 array def /XYZlc089 3240 array def /XYZ_Xj 1080 array def /XYZ_Yj 1080 array def /XYZ_Zj 1080 array def /LAB*Lj 1080 array def /LAB*aj 1080 array def /LAB*bj 1080 array def /LAB*Lja 1080 array def /LAB*aja 1080 array def /LAB*bja 1080 array def /ymax 16600 def /ydel 203 def /cvishow {0.5 add cvi 6 string cvs show} def /cvsshow1 {0.05 add 10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {0.005 add 100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show} def /RJGBLAB* 12 array def /RJGBLAB*[ 39.92 58.74 27.99 % R CIE No.09 elementary colours in LAB, D65 81.26 -2.89 71.56 % J CIE No.10 52.23 -42.42 13.60 % G CIE No.11 30.57 1.41 -46.47 % B CIE No.12 ] def /RGBhab08 8 array def RGBhab08 0 RJGBLAB* 02 get RJGBLAB* 01 get atan put %026 RGBhab08 1 RJGBLAB* 05 get RJGBLAB* 04 get atan put %092 RGBhab08 2 RJGBLAB* 08 get RJGBLAB* 07 get atan put %162 RGBhab08 4 RJGBLAB* 11 get RJGBLAB* 10 get atan put %272 RGBhab08 3 RGBhab08 2 get RGBhab08 4 get add 0.5 mul put %217 RGBhab08 5 RGBhab08 4 get RGBhab08 0 get 360 add add 0.5 mul put %329 RGBhab08 6 RGBhab08 0 get 360 add put %386 RGBhab08 7 RGBhab08 1 get 360 add put %452 /RGBhab08d 8 array def 0 1 6 {/j exch def %j=0,6 RGBhab08d j RGBhab08 j 1 add get RGBhab08 j get sub put } for /xs 1000 def /ys xs def /d2 xs 2 div def /d8 xs 8 div def /xs5x xs 5.4 mul def /ys5x ys 5.4 mul def XYZ*system /Lrefl 11 array def /Lrefl [(0%) (0%) (0%) (0%) (0,6%) (1,2%) (2,5%) (5%) (10%) (20%) (40%)] def /u*dtx [(o) (y) (l) (c) (v) (m) (o)] def /u*etx [(r) (j) (g) () (b) () (r)] def /LAB*na089 3240 array def /XYZna089 3240 array def /IN 27 array def /IN [0000 0001 0002 0003 0004 0005 0006 0007 0008 0243 0244 0245 0246 0247 0248 0249 0250 0251 0486 0487 0488 0489 0490 0491 0492 0493 0494] def /LUTL*64a 64 array def /LUTA*64a 64 array def /LUTB*64a 64 array def /LUTC*64a 64 array def /LUTH*64a 64 array def /holv*64a 64 array def /OLVhab64 64 array def /RGBhab64 64 array def /indton64 64 array def /LNWton09 09 array def /L*ton 9 array def /RJGB16 16 array def /RJGB16 [(r00j=R) (r25j) (r50j) (r75j) (j00g=J) (j25g) (j50g) (j75g) (g00b=G) (g25b) (g50b) (g75b) (b00r=B) (b25r) (b50r) (b75r)] def /L05 5 array def /L05 [(n000w=N) (n025w) (n050w) (n075w) (n100w=W)] def /RGB*16 16 array def /RGB*16 [(1.00 0.00 0.00) (1.00 0.25 0.00) (1.00 0.50 0.00) (1.00 0.75 0.00) (1.00 1.00 0.00) (0.75 1.00 0.00) (0.50 1.00 0.00) (0.25 1.00 0.00) (0.00 1.00 0.00) (0.00 1.00 0.50) (0.00 1.00 1.00) (0.00 0.50 1.00) (0.00 0.00 1.00) (0.50 0.00 1.00) (1.00 0.00 1.00) (1.00 0.00 0.50) ] def /RGBNM*16 16 array def /RGBNW*16 [(1.00 0.00 0.00) (0.50 0.00 0.00) (1.00 0.50 0.50) () (1.00 1.00 0.00) (0.50 0.50 0.00) (1.00 1.00 0.50) () (0.00 1.00 0.00) (0.00 0.50 0.00) (0.50 1.00 0.50) () (0.00 0.00 1.00) (0.00 0.00 0.50) (0.50 0.50 1.00) ()] def /RGB*005 05 array def /RGB*005 [(0.00 0.00 0.00) (0.25 0.25 0.25) (0.50 0.50 0.50) (0.75 0.75 0.75) (1.00 1.00 1.00)] def /RGB*009 09 array def /RGB*009 [(0.000 0.000 0.000) (0.125 0.125 0.125) (0.250 0.250 0.250) (0.375 0.375 0.375) (0.500 0.500 0.500) (0.625 0.625 0.625) (0.750 0.750 0.750) (0.875 0.875 0.875) (1.000 1.000 1.000)] def /OLV64 64 array def /OLV64 [(o00y=O) (o12y) (o25y) (o37y) (o50y) (o62y) (o75y) (o87y) (y00l=Y) (y12l) (y25l) (y37l) (y50l) (y62l) (y75l) (y87l) (l00c=L) (l12c) (l25c) (l37c) (l50c) (l62c) (l75c) (l87c) (c00v=C) (c12v) (c25v) (c37v) (c50v) (c62v) (c75v) (c87v) (v00m=V) (v12m) (v25m) (v37m) (v50m) (v62m) (v75m) (v87m) (m00o=M) (m12o) (m25o) (m37o) (m50o) (m62o) (m75o) (m87o) %repeat for range >360 degree (o00y=O) (o12y) (o25y) (o37y) (o50y) (o62y) (o75y) (o87y) (y00l=Y) (y12l) (y25l) (y37l) (y50l) (y62l) (y75l) (y87l) ] def /RGB64 64 array def /RGB64[(r00j=R) (r12j) (r25j) (r37j) (r50j) (r62j) (r75j) (r87j) (j00g=J) (j12g) (j25g) (j37g) (j50g) (j62g) (j75g) (j87g) (g00c'=G) (g12c') (g25c') (g37c') (g50c') (g62c') (g75c') (g87c') (c'00b=C') (c'12b) (c'25b) (c'37b) (c'50b) (c'62b) (c'75b) (c'87b) (b00m'=B) (b12m') (b25m') (b37m') (b50m') (b62m') (b75m') (b87m') (m'00r=M') (m'12r) (m'25r) (m'37r) (m'50r) (m'62r) (m'75r) (m'87r) %repeat for range >360 degree (r00j=R) (r12j) (r25j) (r37j) (r50j) (r62j) (r75j) (r87j) (j00g=J) (j12g) (j25g) (j37g) (j50g) (j62g) (j75g) (j87g) ] def /RGBOLV*64tx 64 array def /RGBOLV*64tx [(1.000 0.000 0.000) (1.000 0.125 0.000) (1.000 0.250 0.000) (1.000 0.375 0.000) %O-Y (1.000 0.500 0.000) (1.000 0.625 0.000) (1.000 0.750 0.000) (1.000 0.875 0.000) (1.000 1.000 0.000) (0.875 1.000 0.000) (0.750 1.000 0.000) (0.625 1.000 0.000) %Y-L (0.500 1.000 0.000) (0.375 1.000 0.000) (0.250 1.000 0.000) (0.125 1.000 0.000) (0.000 1.000 0.000) (0.000 1.000 0.125) (0.000 1.000 0.250) (0.000 1.000 0.375) %L-C (0.000 1.000 0.500) (0.000 1.000 0.625) (0.000 1.000 0.750) (0.000 1.000 0.875) (0.000 1.000 1.000) (0.000 0.875 1.000) (0.000 0.750 1.000) (0.000 0.625 1.000) %C-V (0.000 0.500 1.000) (0.000 0.375 1.000) (0.000 0.250 1.000) (0.000 0.125 1.000) (0.000 0.000 1.000) (0.125 0.000 1.000) (0.250 0.000 1.000) (0.375 0.000 1.000) %V-M (0.500 0.000 1.000) (0.625 0.000 1.000) (0.750 0.000 1.000) (0.875 0.000 1.000) (1.000 0.000 1.000) (1.000 0.000 0.875) (1.000 0.000 0.750) (1.000 0.000 0.625) %M-O (1.000 0.000 0.500) (1.000 0.000 0.375) (1.000 0.000 0.250) (1.000 0.000 0.125) %repeat for range >360 degree (1.000 0.000 0.000) (1.000 0.125 0.000) (1.000 0.250 0.000) (1.000 0.375 0.000) %O-Y (1.000 0.500 0.000) (1.000 0.625 0.000) (1.000 0.750 0.000) (1.000 0.875 0.000) (1.000 1.000 0.000) (0.875 1.000 0.000) (0.750 1.000 0.000) (0.625 1.000 0.000) %Y-L (0.500 1.000 0.000) (0.375 1.000 0.000) (0.250 1.000 0.000) (0.125 1.000 0.000) ] def /RGBOLV*192 192 array def /RGBOLV*192 [1.000 0.000 0.000 1.000 0.125 0.000 1.000 0.250 0.000 1.000 0.375 0.000 %O-Y 1.000 0.500 0.000 1.000 0.625 0.000 1.000 0.750 0.000 1.000 0.875 0.000 1.000 1.000 0.000 0.875 1.000 0.000 0.750 1.000 0.000 0.625 1.000 0.000 %Y-L 0.500 1.000 0.000 0.375 1.000 0.000 0.250 1.000 0.000 0.125 1.000 0.000 0.000 1.000 0.000 0.000 1.000 0.125 0.000 1.000 0.250 0.000 1.000 0.375 %L-C 0.000 1.000 0.500 0.000 1.000 0.625 0.000 1.000 0.750 0.000 1.000 0.875 0.000 1.000 1.000 0.000 0.875 1.000 0.000 0.750 1.000 0.000 0.625 1.000 %C-V 0.000 0.500 1.000 0.000 0.375 1.000 0.000 0.250 1.000 0.000 0.125 1.000 0.000 0.000 1.000 0.125 0.000 1.000 0.250 0.000 1.000 0.375 0.000 1.000 %V-M 0.500 0.000 1.000 0.625 0.000 1.000 0.750 0.000 1.000 0.875 0.000 1.000 1.000 0.000 1.000 1.000 0.000 0.875 1.000 0.000 0.750 1.000 0.000 0.625 %M-O 1.000 0.000 0.500 1.000 0.000 0.375 1.000 0.000 0.250 1.000 0.000 0.125 %repeat for range >360 degree 1.000 0.000 0.000 1.000 0.125 0.000 1.000 0.250 0.000 1.000 0.375 0.000 %O-Y 1.000 0.500 0.000 1.000 0.625 0.000 1.000 0.750 0.000 1.000 0.875 0.000 1.000 1.000 0.000 0.875 1.000 0.000 0.750 1.000 0.000 0.625 1.000 0.000 %Y-L 0.500 1.000 0.000 0.375 1.000 0.000 0.250 1.000 0.000 0.125 1.000 0.000 ] def /RGBOLV*640 64 array def /RGBOLV*641 64 array def /RGBOLV*642 64 array def 0 1 63 {/j exch def %j=0,63 RGBOLV*640 j RGBOLV*192 j 3 mul get put RGBOLV*641 j RGBOLV*192 j 3 mul 1 add get put RGBOLV*642 j RGBOLV*192 j 3 mul 2 add get put } for %j=0,63 /RGBOLVL 0 def %Interpretation rgb->rgb* (0,2) or rgb->olv* (1,3) /LABOLVL 0 def %Output LAB* (0) or OLV*/RGB* (1) /REFLECL 0 def %00 1 00 {/REFLECL exch def %beg REFLECL=0,0 /xcharti 3 def %03 3 6 {/xcharti exch def %beg xcharti=3,10 xcharti 2 le {/il 0 def} {/il xcharti 3 sub def} ifelse %Reference black and factors /YrN 2.52 def /ilf [0.00 0.25 0.50 1.00 2.00 4.00 8.00 16.00] def /Xtref089 YrN ilf il get mul XLN001 mul def /Ytref089 YrN ilf il get mul def /Ztref089 YrN ilf il get mul ZLN001 mul def /YNil Ytref089 def /YNil001 YNil 100 div def YNil001 6 29 div 3 exp ge {/FYYn YNil001 0.3333 exp def} {/FYYn 841 108 div YNil001 mul 4 29 div add def} ifelse /L*Nil 116 FYYn mul 16 sub def /IM1 1079 def 0 1 IM1 {/i exch def %i=0,IM1 /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def XYZrc089 i30 XYZrx089 i30 get put XYZrc089 i31 XYZrx089 i31 get put XYZrc089 i32 XYZrx089 i32 get put /XQ XYZrc089 i30 get XLWD65100 div def /YQ XYZrc089 i31 get YLWD65100 div def /ZQ XYZrc089 i32 get ZLWD65100 div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if LAB*rc089 i30 YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse put LAB*rc089 i31 XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul put LAB*rc089 i32 YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul put } for %i=0,IM1 /jN 1072 3 mul def /L*N LAB*rc089 jN get def /A*N LAB*rc089 jN 1 add get def /B*N LAB*rc089 jN 2 add get def /jW 1073 3 mul def /L*W LAB*rc089 jW get def /A*W LAB*rc089 jW 1 add get def /B*W LAB*rc089 jW 2 add get def 0 1 IM1 {/i exch def %i=0,IM1 /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def LAB*ra089 i30 LAB*rc089 i30 get put /l*CIE LAB*rc089 i30 get L*N sub L*W L*N sub div def %system rel. lightn. /a*s A*W A*N sub l*CIE mul def /b*s B*W B*N sub l*CIE mul def LAB*ra089 i31 LAB*rc089 i31 get A*N sub a*s sub put LAB*ra089 i32 LAB*rc089 i32 get B*N sub b*s sub put } for %i=0,IM1 0 1 IM1 {/i exch def %i=0,IM1 /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def /X* {LAB*ra089 i30 get 16 add 116 div LAB*ra089 i31 get 500 div add} bind def /Y* {LAB*ra089 i30 get 16 add 116 div} bind def /Z* {LAB*ra089 i30 get 16 add 116 div LAB*ra089 i32 get 200 div sub} bind def XYZra089 i30 X* DecodeXYZ* XLWD65100 mul put XYZra089 i31 Y* DecodeXYZ* YLWD65100 mul put XYZra089 i32 Z* DecodeXYZ* ZLWD65100 mul put } for %i=0,IM1 xcharti 2 ge {%xcharti>=2 /jW 1073 3 mul def %for white X data /Xwref089 XYZra089 jW get def /Ywref089 XYZra089 jW 1 add get def /Zwref089 XYZra089 jW 2 add get def /jN 1072 3 mul 1 add def %for black X data /YrN XYZra089 jN 1 add get def /Xnref089 YrN XLN001 mul def /Ynref089 YrN def /Znref089 YrN ZLN001 mul def 0 1 IM1 {/i exch def /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def XYZna089 i30 XYZra089 i30 get Xnref089 sub Xwref089 Xwref089 Xnref089 sub div mul put XYZna089 i31 XYZra089 i31 get Ynref089 sub Ywref089 Ywref089 Ynref089 sub div mul put XYZna089 i32 XYZra089 i32 get Znref089 sub Zwref089 Zwref089 Znref089 sub div mul put } for %i=I1,I2 0 1 IM1 {/i exch def /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def /XQ XYZna089 i30 get XLWD65100 div def /YQ XYZna089 i31 get YLWD65100 div def /ZQ XYZna089 i32 get ZLWD65100 div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if LAB*na089 i30 YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse put LAB*na089 i31 XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul put LAB*na089 i32 YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul put } for %i=I1,I2 } if %xchart>=2 xcharti 3 ge {%xchart>=3 /jW 1073 3 mul def %for white X data %/jW 57 3 mul def %W /Xwref089 XYZra089 jW get def /Ywref089 XYZra089 jW 1 add get def /Zwref089 XYZra089 jW 2 add get def /kn Ywref089 Ywref089 Ytref089 sub div def 0 1 IM1 {/i exch def /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def XYZla089 i30 XYZna089 i30 get kn div Xtref089 add put XYZla089 i31 XYZna089 i31 get kn div Ytref089 add put XYZla089 i32 XYZna089 i32 get kn div Ztref089 add put } for %i=I1,I2 0 1 IM1 {/i exch def /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def /XQ XYZla089 i30 get XLWD65100 div def /YQ XYZla089 i31 get YLWD65100 div def /ZQ XYZla089 i32 get ZLWD65100 div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if LAB*la089 i30 YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse put LAB*la089 i31 XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul put LAB*la089 i32 YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul put } for %i=I1,I2 } if %xchart>=3 xcharti 0 eq {%xcharti=0 (1x) 0 1 IM1 {/i exch def %i=0,IM1 /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def % 10100 ymax i i 80 idiv 80 mul sub ydel mul sub moveto LAB*Lj i LAB*rc089 i30 get put LAB*aj i LAB*rc089 i31 get put LAB*bj i LAB*rc089 i32 get put XYZ_Xj i XYZrc089 i30 get put XYZ_Yj i XYZrc089 i31 get put XYZ_Zj i XYZrc089 i32 get put } for %i=0,IM1 } if %xcharti=0 (1x) xcharti 1 eq {%xcharti=1 (1x) 0 1 IM1 {/i exch def %i=0,IM1 /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def % 10100 ymax i i 80 idiv 80 mul sub ydel mul sub moveto LAB*Lj i LAB*ra089 i30 get put LAB*aj i LAB*ra089 i31 get put LAB*bj i LAB*ra089 i32 get put XYZ_Xj i XYZra089 i30 get put XYZ_Yj i XYZra089 i31 get put XYZ_Zj i XYZra089 i32 get put } for %i=0,IM1 } if %xcharti=1 (1x) xcharti 2 eq {%xcharti=2 (1x) 0 1 IM1 {/i exch def %i=0,IM1 /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def % 10100 ymax i i 80 idiv 80 mul sub ydel mul sub moveto LAB*Lj i LAB*na089 i30 get put LAB*aj i LAB*na089 i31 get put LAB*bj i LAB*na089 i32 get put XYZ_Xj i XYZna089 i30 get put XYZ_Yj i XYZna089 i31 get put XYZ_Zj i XYZna089 i32 get put } for %i=0,IM1 } if %xcharti=2 (1x) xcharti 3 ge {%xcharti=3,4,5,6,7,8,9,10 (8x) 0 1 IM1 {/i exch def %i=0,IM1 /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def % 10100 ymax i i 80 idiv 80 mul sub ydel mul sub moveto LAB*Lj i LAB*la089 i30 get put LAB*aj i LAB*la089 i31 get put LAB*bj i LAB*la089 i32 get put XYZ_Xj i XYZla089 i30 get put XYZ_Yj i XYZla089 i31 get put XYZ_Zj i XYZla089 i32 get put } for %i=0,IM1 } if %xcharti=3,4,5,6,7,8,9,10 (8x) xcharti 0 eq {/Xprint 0 def /FileData (LAB*rc) def} if xcharti 1 eq {/Xprint 1 def /FileData (LAB*ra) def} if xcharti 2 eq {/Xprint 1 def /FileData (LAB*na) def} if xcharti 3 eq {/Xprint 1 def /FileData (LAB*la0) def} if xcharti 4 eq {/Xprint 1 def /FileData (LAB*la1) def} if xcharti 5 eq {/Xprint 1 def /FileData (LAB*la2) def} if xcharti 6 eq {/Xprint 1 def /FileData (LAB*la3) def} if xcharti 7 eq {/Xprint 1 def /FileData (LAB*la4) def} if xcharti 8 eq {/Xprint 1 def /FileData (LAB*la5) def} if xcharti 9 eq {/Xprint 1 def /FileData (LAB*la6) def} if xcharti 10 eq {/Xprint 1 def /FileData (LAB*la7) def} if 0 1 728 {/j exch def %j=1,728 %necessary in both cases j 072 eq {%072 0-8-0 L 2 LAB*01 06 LAB*Lj j get put LAB*01 07 LAB*aj j get put LAB*01 08 LAB*bj j get put} if j 080 eq {%080 0-8-8 C 3 LAB*01 09 LAB*Lj j get put LAB*01 10 LAB*aj j get put LAB*01 11 LAB*bj j get put} if j 008 eq {%008 0-0-8 V 4 LAB*01 12 LAB*Lj j get put LAB*01 13 LAB*aj j get put LAB*01 14 LAB*bj j get put} if j 000 eq {%000 0-0-0 N 6 LAB*01 18 LAB*Lj j get put LAB*01 19 LAB*aj j get put LAB*01 20 LAB*bj j get put} if j 648 eq {%648 8-0-0 O 0 LAB*01 00 LAB*Lj j get put LAB*01 01 LAB*aj j get put LAB*01 02 LAB*bj j get put} if j 720 eq {%720 8-8-0 Y 1 LAB*01 03 LAB*Lj j get put LAB*01 04 LAB*aj j get put LAB*01 05 LAB*bj j get put} if j 656 eq {%656 8-0-8 M 5 LAB*01 15 LAB*Lj j get put LAB*01 16 LAB*aj j get put LAB*01 17 LAB*bj j get put} if j 728 eq {%728 8-8-8 W 7 LAB*01 21 LAB*Lj j get put LAB*01 22 LAB*aj j get put LAB*01 23 LAB*bj j get put} if } for %j=0,728 729 1 971 {/j exch def %j=729,971 %necessary in both cases j 963 eq {%963 0-8-0 L 2 LAB*02 06 LAB*Lj j get put LAB*02 07 LAB*aj j get put LAB*02 08 LAB*bj j get put} if j 737 eq {%737 0-8-8 C 3 LAB*02 09 LAB*Lj j get put LAB*02 10 LAB*aj j get put LAB*02 11 LAB*bj j get put} if j 818 eq {%818 0-0-8 V 4 LAB*02 12 LAB*Lj j get put LAB*02 13 LAB*aj j get put LAB*02 14 LAB*bj j get put} if j 809 eq {%809 or 890 or 971 0-0-0 N 6 LAB*02 18 LAB*Lj j get LAB*Lj 890 get add LAB*Lj 971 get add 3 div put LAB*02 19 LAB*aj j get LAB*aj 890 get add LAB*aj 971 get add 3 div put LAB*02 20 LAB*bj j get LAB*bj 890 get add LAB*bj 971 get add 3 div put} if j 801 eq {%801 8-0-0 O 0 LAB*02 00 LAB*Lj j get put LAB*02 01 LAB*aj j get put LAB*02 02 LAB*bj j get put} if j 882 eq {%882 8-8-0 Y 1 LAB*02 03 LAB*Lj j get put LAB*02 04 LAB*aj j get put LAB*02 05 LAB*bj j get put} if j 899 eq {%899 8-0-8 M 5 LAB*02 15 LAB*Lj j get put LAB*02 16 LAB*aj j get put LAB*02 17 LAB*bj j get put} if j 729 eq {%729 or 810 or 891 8-8-8 W 7 LAB*02 21 LAB*Lj j get LAB*Lj 810 get add LAB*Lj 891 get add 3 div put LAB*02 22 LAB*aj j get LAB*aj 810 get add LAB*aj 891 get add 3 div put LAB*02 23 LAB*bj j get LAB*bj 810 get add LAB*bj 891 get add 3 div put} if } for %j=j=729,971 972 1 1079 {/j exch def %j=972,1079 %only last colours 1072 to 1079 j 1078 eq {%1078 0-8-0 L 2 LAB*03 06 LAB*Lj j get put LAB*03 07 LAB*aj j get put LAB*03 08 LAB*bj j get put} if j 1075 eq {%1075 0-8-8 C 3 LAB*03 09 LAB*Lj j get put LAB*03 10 LAB*aj j get put LAB*03 11 LAB*bj j get put} if j 1077 eq {%1077 0-0-8 V 4 LAB*03 12 LAB*Lj j get put LAB*03 13 LAB*aj j get put LAB*03 14 LAB*bj j get put} if j 1072 eq {%1072 0-0-0 N 6 LAB*03 18 LAB*Lj j get put LAB*03 19 LAB*aj j get put LAB*03 20 LAB*bj j get put} if j 1074 eq {%1074 8-0-0 O 0 LAB*03 00 LAB*Lj j get put LAB*03 01 LAB*aj j get put LAB*03 02 LAB*bj j get put} if j 1076 eq {%1076 8-8-0 Y 1 LAB*03 03 LAB*Lj j get put LAB*03 04 LAB*aj j get put LAB*03 05 LAB*bj j get put} if j 1079 eq {%1079 8-0-8 M 5 LAB*03 15 LAB*Lj j get put LAB*03 16 LAB*aj j get put LAB*03 17 LAB*bj j get put} if j 1073 eq {%1073 8-8-8 W 7 LAB*03 21 LAB*Lj j get put LAB*03 22 LAB*aj j get put LAB*03 23 LAB*bj j get put} if } for %j=j=972,1079 972 1 1079 {/j exch def %09 step N,W: j=0972,0980; 0981,0989; 0990,0998; % 0999,1007 %16 step N,W: j=1008,1023; 1024,1039; 1040,1055; % 1056,1071 %necessary for four 09-step grey scales j 0972 eq {%0972 or 1008 0-0-0 N 6 LAB*04 18 LAB*Lj j get put LAB*04 19 LAB*aj j get put LAB*04 20 LAB*bj j get put} if j 0980 eq {%0980 or 1023 8-8-8 W 7 LAB*04 21 LAB*Lj j get put LAB*04 22 LAB*aj j get put LAB*04 23 LAB*bj j get put} if j 0981 eq {%0981 or 1024 0-0-0 N 6 LAB*05 18 LAB*Lj j get put LAB*05 19 LAB*aj j get put LAB*05 20 LAB*bj j get put} if j 0989 eq {%0989 or 1039 8-8-8 W 7 LAB*05 21 LAB*Lj j get put LAB*05 22 LAB*aj j get put LAB*05 23 LAB*bj j get put} if j 0990 eq {%0990 or 1040 0-0-0 N 6 LAB*06 18 LAB*Lj j get put LAB*06 19 LAB*aj j get put LAB*06 20 LAB*bj j get put} if j 0998 eq {%0998 or 1055 8-8-8 W 7 LAB*06 21 LAB*Lj j get put LAB*06 22 LAB*aj j get put LAB*06 23 LAB*bj j get put} if j 0999 eq {%0999 or 1056 0-0-0 N 6 LAB*07 18 LAB*Lj j get put LAB*07 19 LAB*aj j get put LAB*07 20 LAB*bj j get put} if j 1007 eq {%1007 or 1071 8-8-8 W 7 LAB*07 21 LAB*Lj j get put LAB*07 22 LAB*aj j get put LAB*07 23 LAB*bj j get put} if } for %j=972,1079 %Adaptation /L*Nio LAB*07 18 get def /A*Nio LAB*07 19 get def /B*Nio LAB*07 20 get def /L*Wio LAB*07 21 get def /A*Wio LAB*07 22 get def /B*Wio LAB*07 23 get def /A*Dio A*Wio A*Nio sub def /B*Dio B*Wio B*Nio sub def 0 1 1079 {/j exch def %j=0,1079 LAB*Lja j LAB*Lj j get put /l*CIE LAB*Lj j get L*Nio sub L*Wio L*Nio sub div def %system rel. lightn. /a*s A*Wio A*Nio sub l*CIE mul def /b*s B*Wio B*Nio sub l*CIE mul def LAB*aja j LAB*aj j get A*Nio sub a*s sub put LAB*bja j LAB*bj j get B*Nio sub b*s sub put } for %j=0,1079 /lut 2187 array def %729x3=2187 0 3 2186 {/j exch def %j=0,2186 /j3 j 3 idiv def lut j LAB*Lja j3 get put lut j 1 add LAB*aja j3 get put lut j 2 add LAB*bja j3 get put } for %j=0,2186 %*********************************************************************************** xcharti 2 le {/jN 1072 3 mul def /YNil XYZrx089 jN 1 add get def /L*Nil LAB*rc089 jN get def} if /RJGB0 RJGBLAB* 02 get RJGBLAB* 01 get atan def %026 /RJGB1 RJGBLAB* 05 get RJGBLAB* 04 get atan def %092 /RJGB2 RJGBLAB* 08 get RJGBLAB* 07 get atan def %162 /RJGB3 RJGBLAB* 11 get RJGBLAB* 10 get atan def %272 /CeGB RJGB2 RJGB3 add 0.5 mul def /MeBR RJGB3 RJGB0 360 add add 0.5 mul def 0 1 47 {/j exch def %i=0,47 elementary and intemediate hue angles /j0 j j 8 idiv 8 mul sub def %0,1,2,3,4,5,6,7 /b0 j0 0.125 mul def /a0 1 b0 sub def j 00 ge j 07 le and {RGBhab64 j a0 RJGB0 mul b0 RJGB1 mul add put} if j 08 ge j 15 le and {RGBhab64 j a0 RJGB1 mul b0 RJGB2 mul add put} if j 16 ge j 23 le and {RGBhab64 j a0 RJGB2 mul b0 CeGB mul add put} if j 24 ge j 31 le and {RGBhab64 j a0 CeGB mul b0 RJGB3 mul add put} if j 32 ge j 39 le and {RGBhab64 j a0 RJGB3 mul b0 MeBR mul add put} if j 40 ge j 47 le and {RGBhab64 j a0 MeBR mul b0 RJGB0 360 add mul add dup 360 ge {360 sub} if put} if } for %j=0,47 elementary and intemediate hue angles 0 1 15 {/j exch def %j=0,15 %for interpolation 0 rgb* (0,2) /LAB*hMaP LAB*hMa def LAB*hMa OLVhab64 0 get lt {/LAB*hMaP LAB*hMa 360 add def} if /joj -1 def 0 1 62 {/jj exch def %jj=1,62 /habton0 OLVhab64 jj get def /habton1 OLVhab64 jj 1 add get def LAB*hMaP habton0 ge LAB*hMaP habton1 lt and {/joj jj def exit } if } for %jj=0,62 joj -1 eq {%output in case of data failure -100 -100 rmoveto (STOPjoj=-1) show (, ) show jj cvishow (, ) show LAB*hMaP cvsshow1 (, ) show OLVhab64 jj get cvsshow1 (, ) show OLVhab64 jj 1 add get cvsshow1 } if % } if %RGBOLVL=0 /A2 LAB*hMaP habton0 sub habton1 habton0 sub div def /A1 1 A2 sub def /jxj joj def %RGBOLVL 0 eq RGBOLVL 2 eq or {joj} {jrj} ifelse def /LAB*L*Ma LUTL*64a jxj get A1 mul LUTL*64a jxj 1 add get A2 mul add def /LAB*C*Ma LUTC*64a jxj get A1 mul LUTC*64a jxj 1 add get A2 mul add def /LAB*H*Ma LUTH*64a jxj get A1 mul LUTH*64a jxj 1 add get A2 mul add def /LAB*a*Ma LAB*C*Ma LAB*H*Ma cos mul def /LAB*b*Ma LAB*C*Ma LAB*H*Ma sin mul def /o3*Ma RGBOLV*640 jxj get A1 mul RGBOLV*640 jxj 1 add get A2 mul add def /l3*Ma RGBOLV*641 jxj get A1 mul RGBOLV*641 jxj 1 add get A2 mul add def /v3*Ma RGBOLV*642 jxj get A1 mul RGBOLV*642 jxj 1 add get A2 mul add def /LAB*L*M LAB*L*Ma def /l*CIE LAB*L*Ma L*Nio sub L*Wio L*Nio sub div def %relative lightness /LAB*Cja LAB*aja xchartl get dup mul LAB*bja xchartl get dup mul add 0.0001 add sqrt def /LAB*hja LAB*bja xchartl get LAB*aja xchartl get 0.0001 add atan def /LAB*a*Mae LAB*C*Ma LAB*hMa cos mul def /LAB*b*Mae LAB*C*Ma LAB*hMa sin mul def %relative chroma c*3, blackness n*3, brilliance i*3 /minFa o3*Fa def l3*Fa minFa lt {/minFa l3*Fa def} if v3*Fa minFa lt {/minFa v3*Fa def} if /maxFa o3*Fa def l3*Fa maxFa gt {/maxFa l3*Fa def} if v3*Fa maxFa gt {/maxFa v3*Fa def} if /i*3 maxFa def /c*3 maxFa minFa sub def /n*3 1 i*3 sub def %CIE lightness and chroma of colour Fa %See equations (1) to (4) of www.ps.bam.de/D33872-AE.PDF, Page 10 /t*3 i*3 c*3 0.5 mul sub def /l*3 t*3 c*3 LAB*L*Ma L*Nio sub L*Wio L*Nio sub div 0.5 sub mul add def /LAB*L*Fa l*3 L*Wio L*Nio sub mul L*Nio add def /LAB*C*Fa LAB*C*Ma c*3 mul def /LAB*a*Fa LAB*C*Fa LAB*hFa cos mul def /LAB*b*Fa LAB*C*Fa LAB*hFa sin mul def %for output of data for colours Ma and Fa LAB*hMa 360 ge {/LAB*hMa LAB*hMa 360 sub def} if /LAB*hFa LAB*hMa def /LAB*L*Fait LAB*L*Fa def /LAB*a*Fait LAB*a*Fa def /LAB*b*Fait LAB*b*Fa def /LAB*C*Fait LAB*a*Fait dup mul LAB*b*Fait dup mul add 0.0001 add sqrt def /LAB*hFait LAB*b*Fait LAB*a*Fait 0.0001 add atan def LAB*L*Fait LAB*a*Fait LAB*b*Fait %*************************************************** Lab2RGBinterpolation %procedure for 3D interpolation %*************************************************** /v*3Fa3D exch def /l*3Fa3D exch def /o*3Fa3D exch def %produces in addition: %delta_L*, delta_a*, delta_b*, delta_E* %LAB*L*Fa3D, LAB*a*Fa3D, LAB*b*Fa3D, LAB*C*Fa3D, LAB*hFa3D %end 3D interpolation of measured start output data ixx 500 0 mul add iymax ilj idy mul sub moveto LAB*L*Fa3D cvi100 ixx 500 1.5 mul add iymax ilj idy mul sub moveto LAB*a*Fa3D cvi100 ixx 500 3.0 mul add iymax ilj idy mul sub moveto LAB*b*Fa3D cvi100 ixx 500 4.6 mul add iymax ilj idy mul sub moveto (%) show xyY0 j00 get cvisp3 } ifelse %xcharts=0,1 or 2,3 } for %xchartl=xch1,xch2 showpage grestore %} for %end xcharts=0,1 %%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 LE680-8, %%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 (LE680-8,) 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 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 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 LE681-1, %%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 (LE681-1,) 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 219 MM 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 LE681-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 (LE681-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 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 LE681-3, %%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 (LE681-3,) 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 219 MM 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 LE681-4, %%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 (LE681-4,) 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 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 LE681-5, %%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 (LE681-5,) 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 219 MM 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 LE681-6, %%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 (LE681-6,) 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 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 LE681-7, %%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 (LE681-7,) 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 219 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 28 %line 499 %!PS-Adobe-3.0 EPSF-3.0 LE681-8, %%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 (LE681-8,) 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 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 /showm {6 lanind eq {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 /i*ptrsc where {pop %/i*ptrsc i*ptrsc def } {/i*ptrsc 0 def} ifelse gsave /xchartg where {pop /xchart xchartg def} {/xchart 0 def} ifelse /scountg where {pop /scount scountg def} {/scount 1 def} ifelse %xchart 0 eq {%beg if xchart=0 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 /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 61 MM 09 MM moveto 12 /Times-ISOL1 FS (3D interpolation: ) showen (3D\255Interpolation: ) showde 12 /TimesI-ISOL1 FS (rgb*) show 12 /Times-ISOL1 FS ( and ) showen ( und ) showde %12 /TimesI-ISOL1 FS %(L*, C*ab, h) show 12 /Times-ISOL1 FS (CIE data of 1080 standard colours) showen (CIE\255Daten von 1080 Normfarben) showde 12 /Times-ISOL1 FS 61 MM 13 MM moveto (TUB\255test chart LE68; Measurement 1 of LECD display) showen (TUB\255Pr\374fvorlage LE68; Messung 1 von LECD\255Display) showde 12 /Times-ISOL1 FS 172 MM 13 MM moveto (input: ) showen (Eingabe: ) showde 12 /TimesI-ISOL1 FS (rgb rgbcolor) show 12 /Times-ISOL1 FS 172 MM 9 MM moveto (output: ) showen (Ausgabe: ) showde LSC$ (N) eq {%LSC$=N 12 /Times-ISOL1 FS (no change compared to input) showen (keine Eingabe\344nderung) showde } if %LSC$=N %1 setgray %start white and unvisible LSC$ (S) eq { (Startup (S) data dependend) show } if LSC$ (F) eq { 12 /Times-Italic FS i*ptrsc 0 eq {(cmy0* / 000n* setcmykcolor) show} if i*ptrsc 1 eq {(olv* setrgbcolor) show} if i*ptrsc 2 eq {(cmy0* / nnn0* setcmykcolor) show} if i*ptrsc 3 eq {(olv* / www* setrgbcolor) show} if i*ptrsc 4 eq {(lab* setcolor) show} if i*ptrsc 5 eq {(LAB* setcolor) show} if i*ptrsc 6 eq {(000n* setcmykcolor) show} if i*ptrsc 7 eq {(w* setgray) show} if } if %0 setgray %end white and unvisible 12 /Times-ISOL1 FS 62 MM 198.5 MM moveto (http://130.149.60.45/~farbmetrik/LE68/LE68L) show (0) show LSC$ show LEX$ show %1 setgray %start white and unvisible (; ) show LSC$ (N) eq { (Start\255Ausgabe) showde (start output) showen (start output) showes (start output) showfr (start output) showit (start output) showjp (start output) showm } if LSC$ (C) eq { (Start\255Ausgabe) showde (start output) showen (start output) showes (start output) showfr (start output) showit (start output) showjp (start output) showm } if LSC$ (F) eq { (Linearisierte\255Ausgabe) showde (linearized output) showen (linearized output) showes (linearized output) showfr (linearized output) showit (linearized output) showjp (linearized output) showm } if 62 MM 194 MM moveto LSC$ (N) eq LSC$ (C) eq or { (N: Keine Ausgabe\255Linearisierung (OL) in Datei (F), Startup (S), Ger\344t (D)) showde (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showen (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showes (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showfr (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showit (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showjp (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showm } {LSC$ show (: ) show (Ausgabe\255Linearisierung (OL\255Daten) ) showde (Output Linearization (OL) data ) showen (Output Linearization (OL) data ) showes (Output Linearization (OL) data ) showfr (Output Linearization (OL) data ) showit (Output Linearization (OL) data ) showjp (Output Linearization (OL) data ) showm (LE68/LE68L) show LSS$ show LSX$ show (0) show LSC$ show LEY$ show } ifelse LSC$ (F) eq { ( in der Datei (F)) showde ( in File (F)) showen ( in File (F)) showes ( in File (F)) showfr ( in File (F)) showit ( in File (F)) showjp ( in File (F)) showm } if LSC$ (S) eq { ( im Distiller Startup (S) Directory) showde ( in Distiller Startup (S) Directory) showen ( in Distiller Startup (S) Directory) showes ( in Distiller Startup (S) Directory) showfr ( in Distiller Startup (S) Directory) showit ( in Distiller Startup (S) Directory) showjp ( in Distiller Startup (S) Directory) showm } if LSC$ (D) eq { ( in PostScript Device (D)) showde ( in PostScript Device (D)) showen ( in PostScript Device (D)) showes ( in PostScript Device (D)) showfr ( in PostScript Device (D)) showit ( in PostScript Device (D)) showjp ( in PostScript Device (D)) showm } if LSC$ (T) eq { ( von Distiller Startup (S) Directory) showde ( of Distiller Startup (S) Directory) showen ( of Distiller Startup (S) Directory) showes ( of Distiller Startup (S) Directory) showfr ( of Distiller Startup (S) Directory) showit ( of Distiller Startup (S) Directory) showjp ( of Distiller Startup (S) Directory) showm } if LSC$ (E) eq { ( von PostScript Device (D)) showde ( of PostScript Device (D)) showen ( of PostScript Device (D)) showes ( of PostScript Device (D)) showfr ( of PostScript Device (D)) showit ( of PostScript Device (D)) showjp ( of PostScript Device (D)) showm } if %0 setgray %end white and unvisible (, Seite ) showde (, page ) showen xchart 1 add cvishow (/4) show 16 MM 185 MM moveto -90 rotate (Siehe Original/Kopie: ) showde (See original or copy: ) showen (http://web.me.com/klaus.richter/LE68/LE68L) show (0) show LSC$ show LEX$ show 90 rotate 12 MM 185 MM moveto -90 rotate (Technische Information: ) showde (Technical information: ) showen (http://www.ps.bam.de) show ( or ) showen ( oder ) showde (http://130.149.60.45/~farbmetrik) show 90 rotate 281 MM 185 MM moveto -90 rotate (TUB\255Registrierung: 20100101\255LE68/LE68L) showde (TUB registration: 20100101\255LE68/LE68L) showen (0) show LSC$ show LEX$ show 90 rotate 281 MM 74 MM moveto -90 rotate (TUB\255Material: Code=rha4ta) showde (TUB material: code=rha4ta) showen 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 von Drucker- oder Monitorsystemen) showde ( application for measurement of printer or monitor systems) showen ( application for measurement of printer or monitor systems) showes ( application for measurement of printer or monitor systems) showfr ( application for measurement of printer or monitor systems) showit ( application for measurement of printer or monitor systems) showjp ( application for measurement of printer or monitor systems) showm 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 %} for %output with xchart end %} for %output with colorm end %} for %output with xcolor end %} for %output with lanind end %%Trailer %%EndDocument EndEPSF grestore gsave showpage grestore } for %end for xchartg=xchartg1,xchartg2 %} for %end for pcountg=pcountg1,pcount2g %} for %end for scountg=scountg1,scount2g %%Trailer