%!PS-Adobe-3.0 EPSF-3.0 http://130.149.60.445/~farbmetrik/LE21/LE21L00XX.PS 20101101 %%BoundingBox: 00 00 414 292 /pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put } if [ /Title (PostScript pictures: www.ps.bam.de/LE21/LE21.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:2010110112000) /ModDate (D:2010110112000) /DOCINFO pdfmark [ /View [ /Fit ] /DOCVIEW pdfmark %BEG LE21/OUTLIN10.PS Output Linearization (OL) 20100801 %IDENTICAL TO LE21/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 LE21/OUTLIN10.PS Output Linearization (OL) 20100801 %************************************************************************** %BEG LE21/OUTLIN1X.PS 20100801 %EMPTY %END LE21/OUTLIN1X.PS 20100801 %************************************************************************** /CFilenameS1g %START output of step S1g (http://130.149.60.445/~farbmetrik/LE21/Y10E00N) def %Link file name for data /CDateS1g (2010-11-01, Name) def %Date of calculation, Tester /CDeviceS1g (unknown ) def %Device name /CMeasS1g (LE21/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 0.5 0.5 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$ [(1.TXT /.PS) (B.BMP /.PS) (G.GIF /.PS) (H.HTM /.PS) (I.HTM /.PS) (J.JPE /.PS) (P.PDF /.PS) (T.TIF /.PS)] def /EY$ [(1.DAT) (B.DAT) (G.DAT) (H.DAT) (I.DAT) (J.DAT) (P.DAT) (T.DAT)] def /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 0 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 (/LE21/ ) 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 LE210-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 (LE210-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 LE210-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 (LE210-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 LE210-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 (LE210-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 LE210-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 (LE210-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 LE210-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 (LE210-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 LE210-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 (LE210-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 LE210-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/LE21/) /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:2010110112000) /ModDate (D:2010110112000) /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 /nrgbxyY 7560 array def %1080x7 to be calculated by XYZ*system /FileDat (LE21_LECD display_1) def /xyY0 7560 array def %1080x7 /LAB*TE [(LCED_low_gloss_100828_1)] def /xyY0 [ %produced with the settings of the LED-LCD (LECD) monitor; full white used %FILE LMT_1080_100828_1.TXT %no. r g b x y Y. Apple low glossy display. measurement 1 1 0.00000 0.00000 0.00000 0.3097 0.3049 45.10E-01 2 0.00000 0.00000 0.12549 0.1955 0.1229 6.00E+00 3 0.00000 0.00000 0.25098 0.1711 0.0840 8.03E+00 4 0.00000 0.00000 0.37647 0.1619 0.0697 1.08E+01 5 0.00000 0.00000 0.50196 0.1569 0.0627 1.39E+01 6 0.00000 0.00000 0.62353 0.1545 0.0604 1.65E+01 7 0.00000 0.00000 0.74902 0.1528 0.0584 1.93E+01 8 0.00000 0.00000 0.87451 0.1510 0.0573 2.45E+01 9 0.00000 0.00000 1.00000 0.1494 0.0566 3.13E+01 10 0.00000 0.12549 0.00000 0.2985 0.5380 25.76E+00 11 0.00000 0.12549 0.12549 0.2352 0.3339 27.47E+00 12 0.00000 0.12549 0.25098 0.2028 0.2291 29.58E+00 13 0.00000 0.12549 0.37647 0.1854 0.1721 3.25E+01 14 0.00000 0.12549 0.50196 0.1748 0.1392 3.56E+01 15 0.00000 0.12549 0.62353 0.1698 0.1242 3.81E+01 16 0.00000 0.12549 0.74902 0.1660 0.1125 4.10E+01 17 0.00000 0.12549 0.87451 0.1616 0.1001 4.62E+01 18 0.00000 0.12549 1.00000 0.1578 0.0906 5.32E+01 19 0.00000 0.25098 0.00000 0.2971 0.5810 48.04E+00 20 0.00000 0.25098 0.12549 0.2532 0.4257 49.98E+00 21 0.00000 0.25098 0.25098 0.2227 0.3173 52.18E+00 22 0.00000 0.25098 0.37647 0.2026 0.2459 5.51E+01 23 0.00000 0.25098 0.50196 0.1896 0.2002 5.83E+01 24 0.00000 0.25098 0.62353 0.1831 0.1778 6.09E+01 25 0.00000 0.25098 0.74902 0.1775 0.1595 6.38E+01 26 0.00000 0.25098 0.87451 0.1709 0.1390 6.91E+01 27 0.00000 0.25098 1.00000 0.1657 0.1225 7.63E+01 28 0.00000 0.37647 0.00000 0.2975 0.6013 76.76E+00 29 0.00000 0.37647 0.12549 0.2658 0.4850 78.95E+00 30 0.00000 0.37647 0.25098 0.2391 0.3870 81.25E+00 31 0.00000 0.37647 0.37647 0.2190 0.3123 8.43E+01 32 0.00000 0.37647 0.50196 0.2042 0.2596 8.75E+01 33 0.00000 0.37647 0.62353 0.1966 0.2319 9.00E+01 34 0.00000 0.37647 0.74902 0.1900 0.2086 9.30E+01 35 0.00000 0.37647 0.87451 0.1819 0.1811 9.84E+01 36 0.00000 0.37647 1.00000 0.1749 0.1582 10.59E+01 37 0.00000 0.50196 0.00000 0.2986 0.6088 9.93E+01 38 0.00000 0.50196 0.12549 0.2725 0.5118 10.16E+01 39 0.00000 0.50196 0.25098 0.2483 0.4233 10.40E+01 40 0.00000 0.50196 0.37647 0.2286 0.3501 10.69E+01 41 0.00000 0.50196 0.50196 0.2136 0.2958 11.02E+01 42 0.00000 0.50196 0.62353 0.2053 0.2662 11.28E+01 43 0.00000 0.50196 0.74902 0.1982 0.2403 11.57E+01 44 0.00000 0.50196 0.87451 0.1891 0.2093 12.12E+01 45 0.00000 0.50196 1.00000 0.1814 0.1826 12.88E+01 46 0.00000 0.62353 0.00000 0.2997 0.6137 12.04E+01 47 0.00000 0.62353 0.12549 0.2768 0.5300 12.29E+01 48 0.00000 0.62353 0.25098 0.2547 0.4489 12.53E+01 49 0.00000 0.62353 0.37647 0.2359 0.3785 12.82E+01 50 0.00000 0.62353 0.50196 0.2209 0.3241 13.16E+01 51 0.00000 0.62353 0.62353 0.2125 0.2932 13.41E+01 52 0.00000 0.62353 0.74902 0.2050 0.2663 13.72E+01 53 0.00000 0.62353 0.87451 0.1954 0.2326 14.25E+01 54 0.00000 0.62353 1.00000 0.1870 0.2034 15.03E+01 55 0.00000 0.74902 0.00000 0.3006 0.6185 15.35E+01 56 0.00000 0.74902 0.12549 0.2820 0.5496 15.61E+01 57 0.00000 0.74902 0.25098 0.2629 0.4784 15.85E+01 58 0.00000 0.74902 0.37647 0.2453 0.4129 16.14E+01 59 0.00000 0.74902 0.50196 0.2306 0.3595 16.48E+01 60 0.00000 0.74902 0.62353 0.2221 0.3284 16.74E+01 61 0.00000 0.74902 0.74902 0.2143 0.3003 17.04E+01 62 0.00000 0.74902 0.87451 0.2040 0.2645 17.59E+01 63 0.00000 0.74902 1.00000 0.1948 0.2320 18.36E+01 64 0.00000 0.87451 0.00000 0.3029 0.6223 20.22E+01 65 0.00000 0.87451 0.12549 0.2880 0.5680 20.47E+01 66 0.00000 0.87451 0.25098 0.2716 0.5077 20.71E+01 67 0.00000 0.87451 0.37647 0.2557 0.4493 21.00E+01 68 0.00000 0.87451 0.50196 0.2418 0.3989 21.33E+01 69 0.00000 0.87451 0.62353 0.2334 0.3684 21.59E+01 70 0.00000 0.87451 0.74902 0.2255 0.3400 21.89E+01 71 0.00000 0.87451 0.87451 0.2149 0.3026 22.43E+01 72 0.00000 0.87451 1.00000 0.2049 0.2674 23.20E+01 73 0.00000 1.00000 0.00000 0.3051 0.6255 26.47E+01 74 0.00000 1.00000 0.12549 0.2930 0.5823 26.63E+01 75 0.00000 1.00000 0.25098 0.2795 0.5320 26.82E+01 76 0.00000 1.00000 0.37647 0.2653 0.4809 27.10E+01 77 0.00000 1.00000 0.50196 0.2527 0.4346 27.40E+01 78 0.00000 1.00000 0.62353 0.2445 0.4057 27.65E+01 79 0.00000 1.00000 0.74902 0.2367 0.3781 27.95E+01 80 0.00000 1.00000 0.87451 0.2260 0.3402 28.45E+01 81 0.00000 1.00000 1.00000 0.2154 0.3032 29.14E+01 82 0.12549 0.00000 0.00000 0.5234 0.3247 12.74E+00 83 0.12549 0.00000 0.12549 0.3467 0.1931 14.25E+00 84 0.12549 0.00000 0.25098 0.2680 0.1345 16.31E+00 85 0.12549 0.00000 0.37647 0.2280 0.1052 1.91E+01 86 0.12549 0.00000 0.50196 0.2055 0.0895 2.23E+01 87 0.12549 0.00000 0.62353 0.1953 0.0825 2.48E+01 88 0.12549 0.00000 0.74902 0.1869 0.0774 2.77E+01 89 0.12549 0.00000 0.87451 0.1779 0.0721 3.28E+01 90 0.12549 0.00000 1.00000 0.1707 0.0686 3.96E+01 91 0.12549 0.12549 0.00000 0.4192 0.4693 34.11E+00 92 0.12549 0.12549 0.12549 0.3310 0.3331 35.84E+00 93 0.12549 0.12549 0.25098 0.2743 0.2447 37.98E+00 94 0.12549 0.12549 0.37647 0.2384 0.1897 4.09E+01 95 0.12549 0.12549 0.50196 0.2164 0.1557 4.41E+01 96 0.12549 0.12549 0.62353 0.2053 0.1393 4.66E+01 97 0.12549 0.12549 0.74902 0.1965 0.1261 4.95E+01 98 0.12549 0.12549 0.87451 0.1863 0.1118 5.47E+01 99 0.12549 0.12549 1.00000 0.1778 0.1007 6.16E+01 100 0.12549 0.25098 0.00000 0.3793 0.5245 56.45E+00 101 0.12549 0.25098 0.12549 0.3223 0.4088 58.42E+00 102 0.12549 0.25098 0.25098 0.2783 0.3181 60.65E+00 103 0.12549 0.25098 0.37647 0.2467 0.2531 6.36E+01 104 0.12549 0.25098 0.50196 0.2252 0.2095 6.68E+01 105 0.12549 0.25098 0.62353 0.2143 0.1873 6.94E+01 106 0.12549 0.25098 0.74902 0.2049 0.1691 7.24E+01 107 0.12549 0.25098 0.87451 0.1937 0.1480 7.77E+01 108 0.12549 0.25098 1.00000 0.1845 0.1307 8.47E+01 109 0.12549 0.37647 0.00000 0.3554 0.5581 85.21E+00 110 0.12549 0.37647 0.12549 0.3167 0.4642 87.43E+00 111 0.12549 0.37647 0.25098 0.2823 0.3799 89.77E+00 112 0.12549 0.37647 0.37647 0.2548 0.3127 9.29E+01 113 0.12549 0.37647 0.50196 0.2346 0.2634 9.61E+01 114 0.12549 0.37647 0.62353 0.2233 0.2373 9.88E+01 115 0.12549 0.37647 0.74902 0.2139 0.2145 10.17E+01 116 0.12549 0.37647 0.87451 0.2022 0.1873 10.70E+01 117 0.12549 0.37647 1.00000 0.1921 0.1647 11.44E+01 118 0.12549 0.50196 0.00000 0.3456 0.5731 10.78E+01 119 0.12549 0.50196 0.12549 0.3143 0.4920 11.02E+01 120 0.12549 0.50196 0.25098 0.2851 0.4137 11.26E+01 121 0.12549 0.50196 0.37647 0.2598 0.3473 11.55E+01 122 0.12549 0.50196 0.50196 0.2404 0.2966 11.88E+01 123 0.12549 0.50196 0.62353 0.2296 0.2686 12.14E+01 124 0.12549 0.50196 0.74902 0.2200 0.2442 12.45E+01 125 0.12549 0.50196 0.87451 0.2081 0.2140 12.99E+01 126 0.12549 0.50196 1.00000 0.1975 0.1880 13.73E+01 127 0.12549 0.62353 0.00000 0.3394 0.5825 12.89E+01 128 0.12549 0.62353 0.12549 0.3131 0.5105 13.14E+01 129 0.12549 0.62353 0.25098 0.2870 0.4382 13.39E+01 130 0.12549 0.62353 0.37647 0.2639 0.3737 13.68E+01 131 0.12549 0.62353 0.50196 0.2453 0.3230 14.02E+01 132 0.12549 0.62353 0.62353 0.2347 0.2940 14.28E+01 133 0.12549 0.62353 0.74902 0.2252 0.2684 14.59E+01 134 0.12549 0.62353 0.87451 0.2131 0.2362 15.13E+01 135 0.12549 0.62353 1.00000 0.2023 0.2079 15.89E+01 136 0.12549 0.74902 0.00000 0.3330 0.5925 16.21E+01 137 0.12549 0.74902 0.12549 0.3118 0.5316 16.47E+01 138 0.12549 0.74902 0.25098 0.2897 0.4669 16.71E+01 139 0.12549 0.74902 0.37647 0.2691 0.4065 17.01E+01 140 0.12549 0.74902 0.50196 0.2519 0.3566 17.34E+01 141 0.12549 0.74902 0.62353 0.2416 0.3273 17.61E+01 142 0.12549 0.74902 0.74902 0.2324 0.3006 17.91E+01 143 0.12549 0.74902 0.87451 0.2201 0.2664 18.46E+01 144 0.12549 0.74902 1.00000 0.2089 0.2353 19.22E+01 145 0.12549 0.87451 0.00000 0.3277 0.6021 21.09E+01 146 0.12549 0.87451 0.12549 0.3115 0.5523 21.33E+01 147 0.12549 0.87451 0.25098 0.2932 0.4967 21.58E+01 148 0.12549 0.87451 0.37647 0.2753 0.4420 21.87E+01 149 0.12549 0.87451 0.50196 0.2598 0.3945 22.20E+01 150 0.12549 0.87451 0.62353 0.2501 0.3655 22.46E+01 151 0.12549 0.87451 0.74902 0.2412 0.3386 22.77E+01 152 0.12549 0.87451 0.87451 0.2290 0.3030 23.31E+01 153 0.12549 0.87451 1.00000 0.2176 0.2694 24.06E+01 154 0.12549 1.00000 0.00000 0.3246 0.6092 27.33E+01 155 0.12549 1.00000 0.12549 0.3119 0.5686 27.47E+01 156 0.12549 1.00000 0.25098 0.2970 0.5216 27.68E+01 157 0.12549 1.00000 0.37647 0.2815 0.4731 27.95E+01 158 0.12549 1.00000 0.50196 0.2675 0.4292 28.27E+01 159 0.12549 1.00000 0.62353 0.2586 0.4016 28.52E+01 160 0.12549 1.00000 0.74902 0.2502 0.3752 28.81E+01 161 0.12549 1.00000 0.87451 0.2383 0.3392 29.32E+01 162 0.12549 1.00000 1.00000 0.2266 0.3041 30.00E+01 163 0.25098 0.00000 0.00000 0.5690 0.3289 19.93E+00 164 0.25098 0.00000 0.12549 0.4151 0.2251 21.44E+00 165 0.25098 0.00000 0.25098 0.3253 0.1646 23.52E+00 166 0.25098 0.00000 0.37647 0.2724 0.1298 2.64E+01 167 0.25098 0.00000 0.50196 0.2405 0.1088 2.95E+01 168 0.25098 0.00000 0.62353 0.2255 0.0993 3.20E+01 169 0.25098 0.00000 0.74902 0.2131 0.0918 3.49E+01 170 0.25098 0.00000 0.87451 0.1992 0.0841 4.01E+01 171 0.25098 0.00000 1.00000 0.1880 0.0780 4.67E+01 172 0.25098 0.12549 0.00000 0.4728 0.4389 41.39E+00 173 0.25098 0.12549 0.12549 0.3846 0.3335 43.13E+00 174 0.25098 0.12549 0.25098 0.3203 0.2556 45.28E+00 175 0.25098 0.12549 0.37647 0.2764 0.2028 4.82E+01 176 0.25098 0.12549 0.50196 0.2474 0.1682 5.14E+01 177 0.25098 0.12549 0.62353 0.2325 0.1510 5.39E+01 178 0.25098 0.12549 0.74902 0.2202 0.1372 5.69E+01 179 0.25098 0.12549 0.87451 0.2061 0.1212 6.20E+01 180 0.25098 0.12549 1.00000 0.1941 0.1089 6.90E+01 181 0.25098 0.25098 0.00000 0.4251 0.4930 63.75E+00 182 0.25098 0.25098 0.12549 0.3658 0.3990 65.73E+00 183 0.25098 0.25098 0.25098 0.3164 0.3197 67.98E+00 184 0.25098 0.25098 0.37647 0.2789 0.2595 7.10E+01 185 0.25098 0.25098 0.50196 0.2525 0.2173 7.42E+01 186 0.25098 0.25098 0.62353 0.2385 0.1955 7.68E+01 187 0.25098 0.25098 0.74902 0.2264 0.1769 7.97E+01 188 0.25098 0.25098 0.87451 0.2119 0.1553 8.50E+01 189 0.25098 0.25098 1.00000 0.1997 0.1375 9.21E+01 190 0.25098 0.37647 0.00000 0.3930 0.5303 9.27E+01 191 0.25098 0.37647 0.12549 0.3519 0.4506 9.49E+01 192 0.25098 0.37647 0.25098 0.3135 0.3761 9.73E+01 193 0.25098 0.37647 0.37647 0.2817 0.3140 10.02E+01 194 0.25098 0.37647 0.50196 0.2580 0.2673 10.35E+01 195 0.25098 0.37647 0.62353 0.2446 0.2419 10.61E+01 196 0.25098 0.37647 0.74902 0.2332 0.2197 10.91E+01 197 0.25098 0.37647 0.87451 0.2188 0.1927 11.44E+01 198 0.25098 0.37647 1.00000 0.2062 0.1699 12.17E+01 199 0.25098 0.50196 0.00000 0.3776 0.5481 11.51E+01 200 0.25098 0.50196 0.12549 0.3442 0.4779 11.76E+01 201 0.25098 0.50196 0.25098 0.3122 0.4076 12.00E+01 202 0.25098 0.50196 0.37647 0.2840 0.3463 12.29E+01 203 0.25098 0.50196 0.50196 0.2618 0.2984 12.62E+01 204 0.25098 0.50196 0.62353 0.2491 0.2714 12.88E+01 205 0.25098 0.50196 0.74902 0.2376 0.2476 13.18E+01 206 0.25098 0.50196 0.87451 0.2235 0.2181 13.72E+01 207 0.25098 0.50196 1.00000 0.2108 0.1923 14.47E+01 208 0.25098 0.62353 0.00000 0.3673 0.5604 13.64E+01 209 0.25098 0.62353 0.12549 0.3395 0.4970 13.89E+01 210 0.25098 0.62353 0.25098 0.3113 0.4312 14.13E+01 211 0.25098 0.62353 0.37647 0.2855 0.3713 14.42E+01 212 0.25098 0.62353 0.50196 0.2647 0.3234 14.76E+01 213 0.25098 0.62353 0.62353 0.2527 0.2956 15.02E+01 214 0.25098 0.62353 0.74902 0.2417 0.2708 15.33E+01 215 0.25098 0.62353 0.87451 0.2276 0.2392 15.86E+01 216 0.25098 0.62353 1.00000 0.2148 0.2115 16.63E+01 217 0.25098 0.74902 0.00000 0.3565 0.5738 16.95E+01 218 0.25098 0.74902 0.12549 0.3343 0.5188 17.21E+01 219 0.25098 0.74902 0.25098 0.3105 0.4592 17.45E+01 220 0.25098 0.74902 0.37647 0.2881 0.4027 17.75E+01 221 0.25098 0.74902 0.50196 0.2690 0.3554 18.09E+01 222 0.25098 0.74902 0.62353 0.2577 0.3274 18.36E+01 223 0.25098 0.74902 0.74902 0.2472 0.3016 18.66E+01 224 0.25098 0.74902 0.87451 0.2334 0.2682 19.19E+01 225 0.25098 0.74902 1.00000 0.2206 0.2380 19.96E+01 226 0.25098 0.87451 0.00000 0.3469 0.5864 21.82E+01 227 0.25098 0.87451 0.12549 0.3298 0.5404 22.07E+01 228 0.25098 0.87451 0.25098 0.3105 0.4887 22.32E+01 229 0.25098 0.87451 0.37647 0.2913 0.4371 22.61E+01 230 0.25098 0.87451 0.50196 0.2743 0.3920 22.95E+01 231 0.25098 0.87451 0.62353 0.2640 0.3642 23.21E+01 232 0.25098 0.87451 0.74902 0.2541 0.3383 23.51E+01 233 0.25098 0.87451 0.87451 0.2407 0.3037 24.05E+01 234 0.25098 0.87451 1.00000 0.2280 0.2711 24.81E+01 235 0.25098 1.00000 0.00000 0.3401 0.5963 28.07E+01 236 0.25098 1.00000 0.12549 0.3269 0.5584 28.22E+01 237 0.25098 1.00000 0.25098 0.3112 0.5138 28.42E+01 238 0.25098 1.00000 0.37647 0.2949 0.4678 28.70E+01 239 0.25098 1.00000 0.50196 0.2800 0.4258 29.02E+01 240 0.25098 1.00000 0.62353 0.2704 0.3993 29.27E+01 241 0.25098 1.00000 0.74902 0.2613 0.3739 29.56E+01 242 0.25098 1.00000 0.87451 0.2486 0.3389 30.07E+01 243 0.25098 1.00000 1.00000 0.2359 0.3048 30.75E+01 244 0.37647 0.00000 0.00000 0.5902 0.3307 26.72E+00 245 0.37647 0.00000 0.12549 0.4566 0.2444 28.24E+00 246 0.37647 0.00000 0.25098 0.3658 0.1858 30.33E+00 247 0.37647 0.00000 0.37647 0.3068 0.1483 3.32E+01 248 0.37647 0.00000 0.50196 0.2692 0.1245 3.63E+01 249 0.37647 0.00000 0.62353 0.2506 0.1133 3.89E+01 250 0.37647 0.00000 0.74902 0.2353 0.1043 4.18E+01 251 0.37647 0.00000 0.87451 0.2176 0.0943 4.69E+01 252 0.37647 0.00000 1.00000 0.2032 0.0864 5.35E+01 253 0.37647 0.12549 0.00000 0.5050 0.4206 48.27E+00 254 0.37647 0.12549 0.12549 0.4213 0.3337 50.02E+00 255 0.37647 0.12549 0.25098 0.3546 0.2638 52.18E+00 256 0.37647 0.12549 0.37647 0.3061 0.2134 5.52E+01 257 0.37647 0.12549 0.50196 0.2727 0.1786 5.83E+01 258 0.37647 0.12549 0.62353 0.2553 0.1611 6.09E+01 259 0.37647 0.12549 0.74902 0.2406 0.1465 6.38E+01 260 0.37647 0.12549 0.87451 0.2232 0.1296 6.90E+01 261 0.37647 0.12549 1.00000 0.2086 0.1160 7.59E+01 262 0.37647 0.25098 0.00000 0.4563 0.4717 70.67E+00 263 0.37647 0.25098 0.12549 0.3976 0.3920 72.64E+00 264 0.37647 0.25098 0.25098 0.3459 0.3210 74.91E+00 265 0.37647 0.25098 0.37647 0.3049 0.2649 7.80E+01 266 0.37647 0.25098 0.50196 0.2750 0.2239 8.11E+01 267 0.37647 0.25098 0.62353 0.2589 0.2024 8.38E+01 268 0.37647 0.25098 0.74902 0.2450 0.1839 8.67E+01 269 0.37647 0.25098 0.87451 0.2279 0.1619 9.20E+01 270 0.37647 0.25098 1.00000 0.2133 0.1435 9.91E+01 271 0.37647 0.37647 0.00000 0.4197 0.5102 9.97E+01 272 0.37647 0.37647 0.12549 0.3785 0.4407 10.19E+01 273 0.37647 0.37647 0.25098 0.3381 0.3732 10.43E+01 274 0.37647 0.37647 0.37647 0.3041 0.3153 10.72E+01 275 0.37647 0.37647 0.50196 0.2778 0.2705 11.04E+01 276 0.37647 0.37647 0.62353 0.2629 0.2458 11.30E+01 277 0.37647 0.37647 0.74902 0.2498 0.2243 11.61E+01 278 0.37647 0.37647 0.87451 0.2334 0.1976 12.14E+01 279 0.37647 0.37647 1.00000 0.2187 0.1746 12.87E+01 280 0.37647 0.50196 0.00000 0.4020 0.5295 12.21E+01 281 0.37647 0.50196 0.12549 0.3682 0.4668 12.45E+01 282 0.37647 0.50196 0.25098 0.3345 0.4027 12.69E+01 283 0.37647 0.50196 0.37647 0.3040 0.3455 12.98E+01 284 0.37647 0.50196 0.50196 0.2797 0.3000 13.32E+01 285 0.37647 0.50196 0.62353 0.2657 0.2740 13.58E+01 286 0.37647 0.50196 0.74902 0.2531 0.2509 13.89E+01 287 0.37647 0.50196 0.87451 0.2370 0.2218 14.43E+01 288 0.37647 0.50196 1.00000 0.2226 0.1962 15.17E+01 289 0.37647 0.62353 0.00000 0.3897 0.5432 14.33E+01 290 0.37647 0.62353 0.12549 0.3611 0.4857 14.58E+01 291 0.37647 0.62353 0.25098 0.3314 0.4253 14.82E+01 292 0.37647 0.62353 0.37647 0.3041 0.3693 15.12E+01 293 0.37647 0.62353 0.50196 0.2814 0.3237 15.46E+01 294 0.37647 0.62353 0.62353 0.2683 0.2970 15.72E+01 295 0.37647 0.62353 0.74902 0.2561 0.2728 16.02E+01 296 0.37647 0.62353 0.87451 0.2404 0.2423 16.57E+01 297 0.37647 0.62353 1.00000 0.2261 0.2146 17.32E+01 298 0.37647 0.74902 0.00000 0.3759 0.5582 17.64E+01 299 0.37647 0.74902 0.12549 0.3529 0.5081 17.91E+01 300 0.37647 0.74902 0.25098 0.3283 0.4527 18.15E+01 301 0.37647 0.74902 0.37647 0.3043 0.3994 18.44E+01 302 0.37647 0.74902 0.50196 0.2839 0.3545 18.79E+01 303 0.37647 0.74902 0.62353 0.2716 0.3275 19.05E+01 304 0.37647 0.74902 0.74902 0.2602 0.3026 19.35E+01 305 0.37647 0.74902 0.87451 0.2451 0.2702 19.90E+01 306 0.37647 0.74902 1.00000 0.2309 0.2404 20.66E+01 307 0.37647 0.87451 0.00000 0.3630 0.5733 22.52E+01 308 0.37647 0.87451 0.12549 0.3452 0.5308 22.77E+01 309 0.37647 0.87451 0.25098 0.3252 0.4819 23.01E+01 310 0.37647 0.87451 0.37647 0.3050 0.4330 23.31E+01 311 0.37647 0.87451 0.50196 0.2872 0.3899 23.65E+01 312 0.37647 0.87451 0.62353 0.2761 0.3633 23.91E+01 313 0.37647 0.87451 0.74902 0.2656 0.3380 24.21E+01 314 0.37647 0.87451 0.87451 0.2513 0.3044 24.75E+01 315 0.37647 0.87451 1.00000 0.2374 0.2726 25.51E+01 316 0.37647 1.00000 0.00000 0.3533 0.5854 28.76E+01 317 0.37647 1.00000 0.12549 0.3395 0.5495 28.92E+01 318 0.37647 1.00000 0.25098 0.3235 0.5072 29.13E+01 319 0.37647 1.00000 0.37647 0.3066 0.4633 29.39E+01 320 0.37647 1.00000 0.50196 0.2909 0.4230 29.72E+01 321 0.37647 1.00000 0.62353 0.2809 0.3974 29.96E+01 322 0.37647 1.00000 0.74902 0.2713 0.3728 30.26E+01 323 0.37647 1.00000 0.87451 0.2578 0.3388 30.77E+01 324 0.37647 1.00000 1.00000 0.2445 0.3054 31.44E+01 325 0.50196 0.00000 0.00000 0.6010 0.3317 32.27E+00 326 0.50196 0.00000 0.12549 0.4812 0.2558 33.79E+00 327 0.50196 0.00000 0.25098 0.3921 0.1995 35.89E+00 328 0.50196 0.00000 0.37647 0.3303 0.1612 3.88E+01 329 0.50196 0.00000 0.50196 0.2898 0.1358 4.19E+01 330 0.50196 0.00000 0.62353 0.2690 0.1234 4.44E+01 331 0.50196 0.00000 0.74902 0.2520 0.1133 4.73E+01 332 0.50196 0.00000 0.87451 0.2317 0.1019 5.24E+01 333 0.50196 0.00000 1.00000 0.2149 0.0930 5.91E+01 334 0.50196 0.12549 0.00000 0.5238 0.4100 53.88E+00 335 0.50196 0.12549 0.12549 0.4444 0.3340 55.64E+00 336 0.50196 0.12549 0.25098 0.3777 0.2694 57.80E+00 337 0.50196 0.12549 0.37647 0.3272 0.2204 6.07E+01 338 0.50196 0.12549 0.50196 0.2909 0.1864 6.40E+01 339 0.50196 0.12549 0.62353 0.2720 0.1684 6.65E+01 340 0.50196 0.12549 0.74902 0.2559 0.1533 6.94E+01 341 0.50196 0.12549 0.87451 0.2363 0.1358 7.46E+01 342 0.50196 0.12549 1.00000 0.2197 0.1215 8.15E+01 343 0.50196 0.25098 0.00000 0.4761 0.4581 76.30E+00 344 0.50196 0.25098 0.12549 0.4186 0.3874 78.28E+00 345 0.50196 0.25098 0.25098 0.3663 0.3219 80.55E+00 346 0.50196 0.25098 0.37647 0.3238 0.2686 8.36E+01 347 0.50196 0.25098 0.50196 0.2916 0.2288 8.68E+01 348 0.50196 0.25098 0.62353 0.2741 0.2075 8.94E+01 349 0.50196 0.25098 0.74902 0.2587 0.1891 9.24E+01 350 0.50196 0.25098 0.87451 0.2401 0.1666 9.75E+01 351 0.50196 0.25098 1.00000 0.2236 0.1480 10.47E+01 352 0.50196 0.37647 0.00000 0.4387 0.4962 10.53E+01 353 0.50196 0.37647 0.12549 0.3969 0.4336 10.75E+01 354 0.50196 0.37647 0.25098 0.3558 0.3710 11.00E+01 355 0.50196 0.37647 0.37647 0.3204 0.3160 11.28E+01 356 0.50196 0.37647 0.50196 0.2925 0.2730 11.61E+01 357 0.50196 0.37647 0.62353 0.2766 0.2489 11.87E+01 358 0.50196 0.37647 0.74902 0.2623 0.2277 12.18E+01 359 0.50196 0.37647 0.87451 0.2443 0.2013 12.71E+01 360 0.50196 0.37647 1.00000 0.2284 0.1782 13.44E+01 361 0.50196 0.50196 0.00000 0.4188 0.5166 12.78E+01 362 0.50196 0.50196 0.12549 0.3850 0.4591 13.02E+01 363 0.50196 0.50196 0.25098 0.3505 0.3993 13.26E+01 364 0.50196 0.50196 0.37647 0.3187 0.3452 13.56E+01 365 0.50196 0.50196 0.50196 0.2933 0.3013 13.89E+01 366 0.50196 0.50196 0.62353 0.2783 0.2760 14.15E+01 367 0.50196 0.50196 0.74902 0.2648 0.2534 14.46E+01 368 0.50196 0.50196 0.87451 0.2475 0.2246 14.99E+01 369 0.50196 0.50196 1.00000 0.2317 0.1992 15.74E+01 370 0.50196 0.62353 0.00000 0.4054 0.5308 14.90E+01 371 0.50196 0.62353 0.12549 0.3764 0.4776 15.15E+01 372 0.50196 0.62353 0.25098 0.3460 0.4212 15.40E+01 373 0.50196 0.62353 0.37647 0.3176 0.3681 15.69E+01 374 0.50196 0.62353 0.50196 0.2941 0.3240 16.03E+01 375 0.50196 0.62353 0.62353 0.2800 0.2981 16.29E+01 376 0.50196 0.62353 0.74902 0.2671 0.2746 16.59E+01 377 0.50196 0.62353 0.87451 0.2503 0.2443 17.13E+01 378 0.50196 0.62353 1.00000 0.2348 0.2172 17.90E+01 379 0.50196 0.74902 0.00000 0.3900 0.5472 18.21E+01 380 0.50196 0.74902 0.12549 0.3665 0.5000 18.47E+01 381 0.50196 0.74902 0.25098 0.3412 0.4480 18.72E+01 382 0.50196 0.74902 0.37647 0.3165 0.3973 19.02E+01 383 0.50196 0.74902 0.50196 0.2952 0.3537 19.35E+01 384 0.50196 0.74902 0.62353 0.2824 0.3276 19.62E+01 385 0.50196 0.74902 0.74902 0.2702 0.3034 19.93E+01 386 0.50196 0.74902 0.87451 0.2542 0.2715 20.46E+01 387 0.50196 0.74902 1.00000 0.2390 0.2422 21.23E+01 388 0.50196 0.87451 0.00000 0.3750 0.5637 23.09E+01 389 0.50196 0.87451 0.12549 0.3569 0.5232 23.34E+01 390 0.50196 0.87451 0.25098 0.3364 0.4767 23.58E+01 391 0.50196 0.87451 0.37647 0.3156 0.4300 23.88E+01 392 0.50196 0.87451 0.50196 0.2971 0.3882 24.21E+01 393 0.50196 0.87451 0.62353 0.2854 0.3624 24.48E+01 394 0.50196 0.87451 0.74902 0.2744 0.3379 24.78E+01 395 0.50196 0.87451 0.87451 0.2593 0.3050 25.32E+01 396 0.50196 0.87451 1.00000 0.2448 0.2737 26.08E+01 397 0.50196 1.00000 0.00000 0.3634 0.5770 29.33E+01 398 0.50196 1.00000 0.12549 0.3494 0.5429 29.49E+01 399 0.50196 1.00000 0.25098 0.3330 0.5023 29.70E+01 400 0.50196 1.00000 0.37647 0.3155 0.4599 29.97E+01 401 0.50196 1.00000 0.50196 0.2994 0.4208 30.29E+01 402 0.50196 1.00000 0.62353 0.2891 0.3959 30.54E+01 403 0.50196 1.00000 0.74902 0.2790 0.3718 30.82E+01 404 0.50196 1.00000 0.87451 0.2651 0.3387 31.34E+01 405 0.50196 1.00000 1.00000 0.2511 0.3058 32.01E+01 406 0.62353 0.00000 0.00000 0.6093 0.3325 38.17E+00 407 0.62353 0.00000 0.12549 0.5015 0.2652 39.70E+00 408 0.62353 0.00000 0.25098 0.4153 0.2116 41.81E+00 409 0.62353 0.00000 0.37647 0.3524 0.1729 4.47E+01 410 0.62353 0.00000 0.50196 0.3093 0.1465 4.78E+01 411 0.62353 0.00000 0.62353 0.2868 0.1332 5.03E+01 412 0.62353 0.00000 0.74902 0.2681 0.1222 5.32E+01 413 0.62353 0.00000 0.87451 0.2456 0.1098 5.84E+01 414 0.62353 0.00000 1.00000 0.2268 0.0995 6.50E+01 415 0.62353 0.12549 0.00000 0.5393 0.4014 59.83E+00 416 0.62353 0.12549 0.12549 0.4645 0.3341 61.59E+00 417 0.62353 0.12549 0.25098 0.3987 0.2744 63.77E+00 418 0.62353 0.12549 0.37647 0.3467 0.2274 6.67E+01 419 0.62353 0.12549 0.50196 0.3088 0.1934 6.99E+01 420 0.62353 0.12549 0.62353 0.2883 0.1754 7.24E+01 421 0.62353 0.12549 0.74902 0.2710 0.1600 7.53E+01 422 0.62353 0.12549 0.87451 0.2493 0.1421 8.06E+01 423 0.62353 0.12549 1.00000 0.2309 0.1269 8.74E+01 424 0.62353 0.25098 0.00000 0.4935 0.4464 8.24E+01 425 0.62353 0.25098 0.12549 0.4378 0.3833 8.44E+01 426 0.62353 0.25098 0.25098 0.3852 0.3230 8.67E+01 427 0.62353 0.25098 0.37647 0.3413 0.2721 8.96E+01 428 0.62353 0.25098 0.50196 0.3077 0.2336 9.28E+01 429 0.62353 0.25098 0.62353 0.2889 0.2125 9.54E+01 430 0.62353 0.25098 0.74902 0.2727 0.1941 9.83E+01 431 0.62353 0.25098 0.87451 0.2523 0.1717 10.36E+01 432 0.62353 0.25098 1.00000 0.2342 0.1526 11.06E+01 433 0.62353 0.37647 0.00000 0.4552 0.4839 11.13E+01 434 0.62353 0.37647 0.12549 0.4139 0.4271 11.36E+01 435 0.62353 0.37647 0.25098 0.3729 0.3688 11.59E+01 436 0.62353 0.37647 0.37647 0.3363 0.3168 11.88E+01 437 0.62353 0.37647 0.50196 0.3069 0.2755 12.21E+01 438 0.62353 0.37647 0.62353 0.2901 0.2519 12.47E+01 439 0.62353 0.37647 0.74902 0.2748 0.2310 12.77E+01 440 0.62353 0.37647 0.87451 0.2556 0.2048 13.30E+01 441 0.62353 0.37647 1.00000 0.2382 0.1819 14.04E+01 442 0.62353 0.50196 0.00000 0.4349 0.5043 13.37E+01 443 0.62353 0.50196 0.12549 0.4011 0.4516 13.61E+01 444 0.62353 0.50196 0.25098 0.3658 0.3961 13.86E+01 445 0.62353 0.50196 0.37647 0.3334 0.3446 14.15E+01 446 0.62353 0.50196 0.50196 0.3065 0.3025 14.49E+01 447 0.62353 0.50196 0.62353 0.2909 0.2777 14.74E+01 448 0.62353 0.50196 0.74902 0.2766 0.2557 15.05E+01 449 0.62353 0.50196 0.87451 0.2581 0.2275 15.59E+01 450 0.62353 0.50196 1.00000 0.2410 0.2023 16.34E+01 451 0.62353 0.62353 0.00000 0.4203 0.5191 15.50E+01 452 0.62353 0.62353 0.12549 0.3913 0.4701 15.74E+01 453 0.62353 0.62353 0.25098 0.3603 0.4172 15.99E+01 454 0.62353 0.62353 0.37647 0.3311 0.3666 16.29E+01 455 0.62353 0.62353 0.50196 0.3063 0.3243 16.62E+01 456 0.62353 0.62353 0.62353 0.2916 0.2993 16.89E+01 457 0.62353 0.62353 0.74902 0.2780 0.2763 17.19E+01 458 0.62353 0.62353 0.87451 0.2602 0.2467 17.74E+01 459 0.62353 0.62353 1.00000 0.2437 0.2197 18.49E+01 460 0.62353 0.74902 0.00000 0.4035 0.5364 18.81E+01 461 0.62353 0.74902 0.12549 0.3796 0.4925 19.07E+01 462 0.62353 0.74902 0.25098 0.3540 0.4432 19.32E+01 463 0.62353 0.74902 0.37647 0.3286 0.3949 19.61E+01 464 0.62353 0.74902 0.50196 0.3064 0.3531 19.96E+01 465 0.62353 0.74902 0.62353 0.2930 0.3278 20.22E+01 466 0.62353 0.74902 0.74902 0.2803 0.3042 20.53E+01 467 0.62353 0.74902 0.87451 0.2634 0.2730 21.07E+01 468 0.62353 0.74902 1.00000 0.2473 0.2441 21.83E+01 469 0.62353 0.87451 0.00000 0.3867 0.5542 23.69E+01 470 0.62353 0.87451 0.12549 0.3682 0.5161 23.94E+01 471 0.62353 0.87451 0.25098 0.3475 0.4718 24.18E+01 472 0.62353 0.87451 0.37647 0.3261 0.4269 24.48E+01 473 0.62353 0.87451 0.50196 0.3069 0.3867 24.81E+01 474 0.62353 0.87451 0.62353 0.2948 0.3616 25.08E+01 475 0.62353 0.87451 0.74902 0.2834 0.3378 25.38E+01 476 0.62353 0.87451 0.87451 0.2676 0.3056 25.92E+01 477 0.62353 0.87451 1.00000 0.2523 0.2749 26.68E+01 478 0.62353 1.00000 0.00000 0.3732 0.5690 29.94E+01 479 0.62353 1.00000 0.12549 0.3591 0.5363 30.09E+01 480 0.62353 1.00000 0.25098 0.3424 0.4973 30.30E+01 481 0.62353 1.00000 0.37647 0.3246 0.4564 30.57E+01 482 0.62353 1.00000 0.50196 0.3079 0.4187 30.89E+01 483 0.62353 1.00000 0.62353 0.2973 0.3944 31.14E+01 484 0.62353 1.00000 0.74902 0.2870 0.3710 31.43E+01 485 0.62353 1.00000 0.87451 0.2725 0.3385 31.94E+01 486 0.62353 1.00000 1.00000 0.2579 0.3063 32.61E+01 487 0.74902 0.00000 0.00000 0.6186 0.3334 47.84E+00 488 0.74902 0.00000 0.12549 0.5262 0.2767 49.38E+00 489 0.74902 0.00000 0.25098 0.4458 0.2278 5.17E+01 490 0.74902 0.00000 0.37647 0.3829 0.1890 5.43E+01 491 0.74902 0.00000 0.50196 0.3372 0.1618 5.75E+01 492 0.74902 0.00000 0.62353 0.3129 0.1475 6.00E+01 493 0.74902 0.00000 0.74902 0.2920 0.1354 6.29E+01 494 0.74902 0.00000 0.87451 0.2666 0.1213 6.80E+01 495 0.74902 0.00000 1.00000 0.2449 0.1095 7.47E+01 496 0.74902 0.12549 0.00000 0.5584 0.3911 6.97E+01 497 0.74902 0.12549 0.12549 0.4902 0.3347 7.15E+01 498 0.74902 0.12549 0.25098 0.4270 0.2813 7.36E+01 499 0.74902 0.12549 0.37647 0.3742 0.2370 7.64E+01 500 0.74902 0.12549 0.50196 0.3343 0.2039 7.96E+01 501 0.74902 0.12549 0.62353 0.3121 0.1859 8.22E+01 502 0.74902 0.12549 0.74902 0.2927 0.1705 8.52E+01 503 0.74902 0.12549 0.87451 0.2689 0.1514 9.03E+01 504 0.74902 0.12549 1.00000 0.2480 0.1353 9.71E+01 505 0.74902 0.25098 0.00000 0.5152 0.4319 9.22E+01 506 0.74902 0.25098 0.12549 0.4631 0.3776 9.41E+01 507 0.74902 0.25098 0.25098 0.4116 0.3241 9.64E+01 508 0.74902 0.25098 0.37647 0.3665 0.2771 9.93E+01 509 0.74902 0.25098 0.50196 0.3312 0.2405 10.26E+01 510 0.74902 0.25098 0.62353 0.3112 0.2198 10.51E+01 511 0.74902 0.25098 0.74902 0.2932 0.2017 10.81E+01 512 0.74902 0.25098 0.87451 0.2706 0.1792 11.33E+01 513 0.74902 0.25098 1.00000 0.2504 0.1597 12.04E+01 514 0.74902 0.37647 0.00000 0.4772 0.4679 12.11E+01 515 0.74902 0.37647 0.12549 0.4376 0.4180 12.33E+01 516 0.74902 0.37647 0.25098 0.3967 0.3659 12.56E+01 517 0.74902 0.37647 0.37647 0.3587 0.3182 12.86E+01 518 0.74902 0.37647 0.50196 0.3282 0.2791 13.19E+01 519 0.74902 0.37647 0.62353 0.3101 0.2565 13.45E+01 520 0.74902 0.37647 0.74902 0.2938 0.2362 13.75E+01 521 0.74902 0.37647 0.87451 0.2725 0.2105 14.29E+01 522 0.74902 0.37647 1.00000 0.2533 0.1875 15.02E+01 523 0.74902 0.50196 0.00000 0.4565 0.4881 14.35E+01 524 0.74902 0.50196 0.12549 0.4231 0.4416 14.59E+01 525 0.74902 0.50196 0.25098 0.3880 0.3914 14.83E+01 526 0.74902 0.50196 0.37647 0.3543 0.3440 15.13E+01 527 0.74902 0.50196 0.50196 0.3263 0.3043 15.47E+01 528 0.74902 0.50196 0.62353 0.3097 0.2808 15.73E+01 529 0.74902 0.50196 0.74902 0.2943 0.2595 16.04E+01 530 0.74902 0.50196 0.87451 0.2740 0.2319 16.57E+01 531 0.74902 0.50196 1.00000 0.2554 0.2069 17.31E+01 532 0.74902 0.62353 0.00000 0.4411 0.5031 16.47E+01 533 0.74902 0.62353 0.12549 0.4122 0.4595 16.72E+01 534 0.74902 0.62353 0.25098 0.3810 0.4113 16.97E+01 535 0.74902 0.62353 0.37647 0.3507 0.3647 17.27E+01 536 0.74902 0.62353 0.50196 0.3250 0.3248 17.60E+01 537 0.74902 0.62353 0.62353 0.3092 0.3010 17.87E+01 538 0.74902 0.62353 0.74902 0.2948 0.2788 18.17E+01 539 0.74902 0.62353 0.87451 0.2755 0.2501 18.72E+01 540 0.74902 0.62353 1.00000 0.2573 0.2236 19.47E+01 541 0.74902 0.74902 0.00000 0.4226 0.5213 19.79E+01 542 0.74902 0.74902 0.12549 0.3990 0.4816 20.05E+01 543 0.74902 0.74902 0.25098 0.3727 0.4366 20.30E+01 544 0.74902 0.74902 0.37647 0.3465 0.3916 20.60E+01 545 0.74902 0.74902 0.50196 0.3234 0.3521 20.93E+01 546 0.74902 0.74902 0.62353 0.3091 0.3280 21.20E+01 547 0.74902 0.74902 0.74902 0.2956 0.3054 21.51E+01 548 0.74902 0.74902 0.87451 0.2775 0.2752 22.05E+01 549 0.74902 0.74902 1.00000 0.2601 0.2470 22.81E+01 550 0.74902 0.87451 0.00000 0.4036 0.5405 24.67E+01 551 0.74902 0.87451 0.12549 0.3851 0.5055 24.91E+01 552 0.74902 0.87451 0.25098 0.3639 0.4645 25.16E+01 553 0.74902 0.87451 0.37647 0.3419 0.4225 25.46E+01 554 0.74902 0.87451 0.50196 0.3218 0.3844 25.80E+01 555 0.74902 0.87451 0.62353 0.3093 0.3604 26.06E+01 556 0.74902 0.87451 0.74902 0.2971 0.3376 26.36E+01 557 0.74902 0.87451 0.87451 0.2804 0.3065 26.90E+01 558 0.74902 0.87451 1.00000 0.2640 0.2766 27.65E+01 559 0.74902 1.00000 0.00000 0.3881 0.5567 30.91E+01 560 0.74902 1.00000 0.12549 0.3737 0.5264 31.06E+01 561 0.74902 1.00000 0.25098 0.3565 0.4900 31.28E+01 562 0.74902 1.00000 0.37647 0.3382 0.4514 31.55E+01 563 0.74902 1.00000 0.50196 0.3210 0.4154 31.87E+01 564 0.74902 1.00000 0.62353 0.3100 0.3922 32.11E+01 565 0.74902 1.00000 0.74902 0.2990 0.3698 32.41E+01 566 0.74902 1.00000 0.87451 0.2839 0.3383 32.92E+01 567 0.74902 1.00000 1.00000 0.2684 0.3072 33.59E+01 568 0.87451 0.00000 0.00000 0.6269 0.3344 6.14E+01 569 0.87451 0.00000 0.12549 0.5499 0.2877 6.29E+01 570 0.87451 0.00000 0.25098 0.4768 0.2436 6.50E+01 571 0.87451 0.00000 0.37647 0.4155 0.2068 6.77E+01 572 0.87451 0.00000 0.50196 0.3689 0.1793 7.09E+01 573 0.87451 0.00000 0.62353 0.3431 0.1642 7.34E+01 574 0.87451 0.00000 0.74902 0.3205 0.1512 7.63E+01 575 0.87451 0.00000 0.87451 0.2923 0.1354 8.14E+01 576 0.87451 0.00000 1.00000 0.2675 0.1220 8.81E+01 577 0.87451 0.12549 0.00000 0.5760 0.3813 8.30E+01 578 0.87451 0.12549 0.12549 0.5162 0.3349 8.48E+01 579 0.87451 0.12549 0.25098 0.4569 0.2887 8.70E+01 580 0.87451 0.12549 0.37647 0.4047 0.2477 8.97E+01 581 0.87451 0.12549 0.50196 0.3635 0.2160 9.30E+01 582 0.87451 0.12549 0.62353 0.3403 0.1981 9.55E+01 583 0.87451 0.12549 0.74902 0.3194 0.1825 9.85E+01 584 0.87451 0.12549 0.87451 0.2930 0.1628 10.36E+01 585 0.87451 0.12549 1.00000 0.2693 0.1458 11.04E+01 586 0.87451 0.25098 0.00000 0.5372 0.4170 10.55E+01 587 0.87451 0.25098 0.12549 0.4894 0.3720 10.74E+01 588 0.87451 0.25098 0.25098 0.4402 0.3254 10.97E+01 589 0.87451 0.25098 0.37647 0.3952 0.2827 11.25E+01 590 0.87451 0.25098 0.50196 0.3585 0.2485 11.59E+01 591 0.87451 0.25098 0.62353 0.3373 0.2285 11.84E+01 592 0.87451 0.25098 0.74902 0.3179 0.2108 12.14E+01 593 0.87451 0.25098 0.87451 0.2931 0.1884 12.67E+01 594 0.87451 0.25098 1.00000 0.2705 0.1685 13.37E+01 595 0.87451 0.37647 0.00000 0.5012 0.4506 13.44E+01 596 0.87451 0.37647 0.12549 0.4634 0.4084 13.66E+01 597 0.87451 0.37647 0.25098 0.4233 0.3627 13.90E+01 598 0.87451 0.37647 0.37647 0.3851 0.3196 14.19E+01 599 0.87451 0.37647 0.50196 0.3532 0.2834 14.52E+01 600 0.87451 0.37647 0.62353 0.3343 0.2619 14.78E+01 601 0.87451 0.37647 0.74902 0.3167 0.2424 15.08E+01 602 0.87451 0.37647 0.87451 0.2937 0.2172 15.61E+01 603 0.87451 0.37647 1.00000 0.2723 0.1946 16.35E+01 604 0.87451 0.50196 0.00000 0.4801 0.4702 15.69E+01 605 0.87451 0.50196 0.12549 0.4480 0.4304 15.93E+01 606 0.87451 0.50196 0.25098 0.4131 0.3861 16.17E+01 607 0.87451 0.50196 0.37647 0.3790 0.3431 16.46E+01 608 0.87451 0.50196 0.50196 0.3500 0.3064 16.80E+01 609 0.87451 0.50196 0.62353 0.3323 0.2843 17.06E+01 610 0.87451 0.50196 0.74902 0.3159 0.2639 17.37E+01 611 0.87451 0.50196 0.87451 0.2939 0.2372 17.90E+01 612 0.87451 0.50196 1.00000 0.2735 0.2127 18.64E+01 613 0.87451 0.62353 0.00000 0.4642 0.4854 17.81E+01 614 0.87451 0.62353 0.12549 0.4362 0.4473 18.05E+01 615 0.87451 0.62353 0.25098 0.4050 0.4046 18.30E+01 616 0.87451 0.62353 0.37647 0.3742 0.3623 18.60E+01 617 0.87451 0.62353 0.50196 0.3474 0.3254 18.94E+01 618 0.87451 0.62353 0.62353 0.3308 0.3030 19.21E+01 619 0.87451 0.62353 0.74902 0.3154 0.2820 19.51E+01 620 0.87451 0.62353 0.87451 0.2944 0.2543 20.05E+01 621 0.87451 0.62353 1.00000 0.2746 0.2285 20.80E+01 622 0.87451 0.74902 0.00000 0.4448 0.5039 21.12E+01 623 0.87451 0.74902 0.12549 0.4212 0.4691 21.38E+01 624 0.87451 0.74902 0.25098 0.3947 0.4286 21.63E+01 625 0.87451 0.74902 0.37647 0.3678 0.3876 21.94E+01 626 0.87451 0.74902 0.50196 0.3439 0.3510 22.27E+01 627 0.87451 0.74902 0.62353 0.3290 0.3282 22.53E+01 628 0.87451 0.74902 0.74902 0.3146 0.3070 22.85E+01 629 0.87451 0.74902 0.87451 0.2952 0.2781 23.39E+01 630 0.87451 0.74902 1.00000 0.2764 0.2508 24.15E+01 631 0.87451 0.87451 0.00000 0.4238 0.5242 26.00E+01 632 0.87451 0.87451 0.12549 0.4053 0.4930 26.25E+01 633 0.87451 0.87451 0.25098 0.3836 0.4557 26.49E+01 634 0.87451 0.87451 0.37647 0.3610 0.4170 26.80E+01 635 0.87451 0.87451 0.50196 0.3403 0.3815 27.13E+01 636 0.87451 0.87451 0.62353 0.3270 0.3591 27.40E+01 637 0.87451 0.87451 0.74902 0.3143 0.3374 27.69E+01 638 0.87451 0.87451 0.87451 0.2964 0.3078 28.24E+01 639 0.87451 0.87451 1.00000 0.2789 0.2789 28.99E+01 640 0.87451 1.00000 0.00000 0.4059 0.5423 32.23E+01 641 0.87451 1.00000 0.12549 0.3913 0.5144 32.39E+01 642 0.87451 1.00000 0.25098 0.3737 0.4810 32.61E+01 643 0.87451 1.00000 0.37647 0.3551 0.4450 32.87E+01 644 0.87451 1.00000 0.50196 0.3373 0.4113 33.20E+01 645 0.87451 1.00000 0.62353 0.3257 0.3895 33.45E+01 646 0.87451 1.00000 0.74902 0.3144 0.3681 33.73E+01 647 0.87451 1.00000 0.87451 0.2982 0.3383 34.26E+01 648 0.87451 1.00000 1.00000 0.2819 0.3082 34.92E+01 649 1.00000 0.00000 0.00000 0.6340 0.3345 7.86E+01 650 1.00000 0.00000 0.12549 0.5703 0.2964 8.01E+01 651 1.00000 0.00000 0.25098 0.5055 0.2581 8.23E+01 652 1.00000 0.00000 0.37647 0.4476 0.2237 8.50E+01 653 1.00000 0.00000 0.50196 0.4014 0.1965 8.81E+01 654 1.00000 0.00000 0.62353 0.3749 0.1813 9.07E+01 655 1.00000 0.00000 0.74902 0.3510 0.1678 9.36E+01 656 1.00000 0.00000 0.87451 0.3208 0.1508 9.86E+01 657 1.00000 0.00000 1.00000 0.2935 0.1361 10.52E+01 658 1.00000 0.12549 0.00000 0.5915 0.3727 10.00E+01 659 1.00000 0.12549 0.12549 0.5398 0.3344 10.16E+01 660 1.00000 0.12549 0.25098 0.4853 0.2947 10.39E+01 661 1.00000 0.12549 0.37647 0.4350 0.2576 10.66E+01 662 1.00000 0.12549 0.50196 0.3939 0.2278 10.99E+01 663 1.00000 0.12549 0.62353 0.3696 0.2104 11.24E+01 664 1.00000 0.12549 0.74902 0.3477 0.1950 11.54E+01 665 1.00000 0.12549 0.87451 0.3193 0.1751 12.05E+01 666 1.00000 0.12549 1.00000 0.2935 0.1576 12.73E+01 667 1.00000 0.25098 0.00000 0.5575 0.4036 12.24E+01 668 1.00000 0.25098 0.12549 0.5140 0.3666 12.44E+01 669 1.00000 0.25098 0.25098 0.4679 0.3262 12.66E+01 670 1.00000 0.25098 0.37647 0.4239 0.2879 12.94E+01 671 1.00000 0.25098 0.50196 0.3870 0.2562 13.28E+01 672 1.00000 0.25098 0.62353 0.3650 0.2373 13.53E+01 673 1.00000 0.25098 0.74902 0.3448 0.2203 13.83E+01 674 1.00000 0.25098 0.87451 0.3182 0.1982 14.35E+01 675 1.00000 0.25098 1.00000 0.2936 0.1784 15.05E+01 676 1.00000 0.37647 0.00000 0.5241 0.4340 15.12E+01 677 1.00000 0.37647 0.12549 0.4886 0.3987 15.35E+01 678 1.00000 0.37647 0.25098 0.4499 0.3593 15.59E+01 679 1.00000 0.37647 0.37647 0.4122 0.3203 15.87E+01 680 1.00000 0.37647 0.50196 0.3797 0.2873 16.21E+01 681 1.00000 0.37647 0.62353 0.3599 0.2674 16.48E+01 682 1.00000 0.37647 0.74902 0.3414 0.2488 16.77E+01 683 1.00000 0.37647 0.87451 0.3170 0.2246 17.30E+01 684 1.00000 0.37647 1.00000 0.2939 0.2024 18.02E+01 685 1.00000 0.50196 0.00000 0.5035 0.4527 17.37E+01 686 1.00000 0.50196 0.12549 0.4726 0.4189 17.61E+01 687 1.00000 0.50196 0.25098 0.4386 0.3802 17.85E+01 688 1.00000 0.50196 0.37647 0.4048 0.3417 18.15E+01 689 1.00000 0.50196 0.50196 0.3750 0.3082 18.49E+01 690 1.00000 0.50196 0.62353 0.3566 0.2876 18.75E+01 691 1.00000 0.50196 0.74902 0.3395 0.2685 19.05E+01 692 1.00000 0.50196 0.87451 0.3163 0.2430 19.59E+01 693 1.00000 0.50196 1.00000 0.2942 0.2194 20.32E+01 694 1.00000 0.62353 0.00000 0.4875 0.4674 19.49E+01 695 1.00000 0.62353 0.12549 0.4603 0.4350 19.74E+01 696 1.00000 0.62353 0.25098 0.4295 0.3973 19.99E+01 697 1.00000 0.62353 0.37647 0.3988 0.3593 20.28E+01 698 1.00000 0.62353 0.50196 0.3711 0.3257 20.63E+01 699 1.00000 0.62353 0.62353 0.3541 0.3047 20.89E+01 700 1.00000 0.62353 0.74902 0.3379 0.2850 21.19E+01 701 1.00000 0.62353 0.87451 0.3157 0.2588 21.73E+01 702 1.00000 0.62353 1.00000 0.2944 0.2341 22.48E+01 703 1.00000 0.74902 0.00000 0.4675 0.4860 22.79E+01 704 1.00000 0.74902 0.12549 0.4443 0.4557 23.06E+01 705 1.00000 0.74902 0.25098 0.4180 0.4197 23.30E+01 706 1.00000 0.74902 0.37647 0.3908 0.3827 23.61E+01 707 1.00000 0.74902 0.50196 0.3662 0.3493 23.95E+01 708 1.00000 0.74902 0.62353 0.3506 0.3282 24.22E+01 709 1.00000 0.74902 0.74902 0.3357 0.3082 24.53E+01 710 1.00000 0.74902 0.87451 0.3151 0.2809 25.06E+01 711 1.00000 0.74902 1.00000 0.2951 0.2549 25.81E+01 712 1.00000 0.87451 0.00000 0.4452 0.5071 27.67E+01 713 1.00000 0.87451 0.12549 0.4268 0.4793 27.91E+01 714 1.00000 0.87451 0.25098 0.4048 0.4459 28.16E+01 715 1.00000 0.87451 0.37647 0.3818 0.4105 28.46E+01 716 1.00000 0.87451 0.50196 0.3605 0.3779 28.80E+01 717 1.00000 0.87451 0.62353 0.3468 0.3569 29.06E+01 718 1.00000 0.87451 0.74902 0.3334 0.3367 29.36E+01 719 1.00000 0.87451 0.87451 0.3147 0.3088 29.90E+01 720 1.00000 0.87451 1.00000 0.2961 0.2816 30.65E+01 721 1.00000 1.00000 0.00000 0.4251 0.5266 33.88E+01 722 1.00000 1.00000 0.12549 0.4105 0.5014 34.03E+01 723 1.00000 1.00000 0.25098 0.3928 0.4707 34.24E+01 724 1.00000 1.00000 0.37647 0.3735 0.4376 34.52E+01 725 1.00000 1.00000 0.50196 0.3553 0.4062 34.83E+01 726 1.00000 1.00000 0.62353 0.3432 0.3859 35.09E+01 727 1.00000 1.00000 0.74902 0.3314 0.3659 35.38E+01 728 1.00000 1.00000 0.87451 0.3145 0.3377 35.89E+01 729 1.00000 1.00000 1.00000 0.2974 0.3093 36.55E+01 730 1.00000 1.00000 1.00000 0.2974 0.3093 36.54E+01 731 0.87451 1.00000 1.00000 0.2819 0.3082 34.92E+01 732 0.74902 1.00000 1.00000 0.2684 0.3071 33.59E+01 733 0.62353 1.00000 1.00000 0.2579 0.3063 32.62E+01 734 0.50196 1.00000 1.00000 0.2511 0.3058 32.02E+01 735 0.37647 1.00000 1.00000 0.2444 0.3053 31.45E+01 736 0.25098 1.00000 1.00000 0.2360 0.3047 30.75E+01 737 0.12549 1.00000 1.00000 0.2266 0.3040 30.01E+01 738 0.00000 1.00000 1.00000 0.2155 0.3031 29.15E+01 739 1.00000 0.87451 0.87451 0.3147 0.3088 29.90E+01 740 0.87451 0.87451 0.87451 0.2965 0.3078 28.24E+01 741 0.74902 0.87451 0.87451 0.2803 0.3066 26.90E+01 742 0.62353 0.87451 0.87451 0.2676 0.3056 25.93E+01 743 0.50196 0.87451 0.87451 0.2593 0.3050 25.33E+01 744 0.37647 0.87451 0.87451 0.2512 0.3044 24.76E+01 745 0.25098 0.87451 0.87451 0.2406 0.3037 24.07E+01 746 0.12549 0.87451 0.87451 0.2290 0.3029 23.32E+01 747 0.00000 0.87451 0.87451 0.2150 0.3025 22.44E+01 748 1.00000 0.74902 0.74902 0.3357 0.3082 24.52E+01 749 0.87451 0.74902 0.74902 0.3147 0.3070 22.85E+01 750 0.74902 0.74902 0.74902 0.2956 0.3054 21.51E+01 751 0.62353 0.74902 0.74902 0.2804 0.3041 20.53E+01 752 0.50196 0.74902 0.74902 0.2702 0.3033 19.93E+01 753 0.37647 0.74902 0.74902 0.2602 0.3027 19.37E+01 754 0.25098 0.74902 0.74902 0.2472 0.3016 18.67E+01 755 0.12549 0.74902 0.74902 0.2324 0.3006 17.93E+01 756 0.00000 0.74902 0.74902 0.2143 0.3002 17.05E+01 757 1.00000 0.62353 0.62353 0.3541 0.3046 20.88E+01 758 0.87451 0.62353 0.62353 0.3308 0.3029 19.20E+01 759 0.74902 0.62353 0.62353 0.3093 0.3009 17.87E+01 760 0.62353 0.62353 0.62353 0.2916 0.2992 16.90E+01 761 0.50196 0.62353 0.62353 0.2799 0.2982 16.31E+01 762 0.37647 0.62353 0.62353 0.2682 0.2969 15.73E+01 763 0.25098 0.62353 0.62353 0.2526 0.2955 15.03E+01 764 0.12549 0.62353 0.62353 0.2347 0.2940 14.29E+01 765 0.00000 0.62353 0.62353 0.2124 0.2932 13.43E+01 766 1.00000 0.50196 0.50196 0.3750 0.3081 18.48E+01 767 0.87451 0.50196 0.50196 0.3499 0.3063 16.80E+01 768 0.74902 0.50196 0.50196 0.3263 0.3041 15.47E+01 769 0.62353 0.50196 0.50196 0.3066 0.3024 14.50E+01 770 0.50196 0.50196 0.50196 0.2932 0.3010 13.89E+01 771 0.37647 0.50196 0.50196 0.2797 0.3000 13.33E+01 772 0.25098 0.50196 0.50196 0.2616 0.2984 12.64E+01 773 0.12549 0.50196 0.50196 0.2403 0.2967 11.90E+01 774 0.00000 0.50196 0.50196 0.2135 0.2957 11.04E+01 775 1.00000 0.37647 0.37647 0.4121 0.3204 15.87E+01 776 0.87451 0.37647 0.37647 0.3852 0.3195 14.19E+01 777 0.74902 0.37647 0.37647 0.3588 0.3180 12.86E+01 778 0.62353 0.37647 0.37647 0.3362 0.3167 11.89E+01 779 0.50196 0.37647 0.37647 0.3204 0.3159 11.29E+01 780 0.37647 0.37647 0.37647 0.3042 0.3150 10.73E+01 781 0.25098 0.37647 0.37647 0.2817 0.3138 10.04E+01 782 0.12549 0.37647 0.37647 0.2548 0.3126 9.30E+01 783 0.00000 0.37647 0.37647 0.2186 0.3122 8.44E+01 784 1.00000 0.25098 0.25098 0.4678 0.3261 12.66E+01 785 0.87451 0.25098 0.25098 0.4398 0.3254 10.98E+01 786 0.74902 0.25098 0.25098 0.4115 0.3242 9.65E+01 787 0.62353 0.25098 0.25098 0.3853 0.3228 8.67E+01 788 0.50196 0.25098 0.25098 0.3664 0.3222 8.08E+01 789 0.37647 0.25098 0.25098 0.3458 0.3209 75.00E+00 790 0.25098 0.25098 0.25098 0.3163 0.3196 68.11E+00 791 0.12549 0.25098 0.25098 0.2782 0.3180 60.79E+00 792 0.00000 0.25098 0.25098 0.2227 0.3172 52.32E+00 793 1.00000 0.12549 0.12549 0.5395 0.3345 10.17E+01 794 0.87451 0.12549 0.12549 0.5162 0.3349 8.48E+01 795 0.74902 0.12549 0.12549 0.4902 0.3347 7.15E+01 796 0.62353 0.12549 0.12549 0.4644 0.3341 61.63E+00 797 0.50196 0.12549 0.12549 0.4443 0.3339 55.69E+00 798 0.37647 0.12549 0.12549 0.4211 0.3337 50.09E+00 799 0.25098 0.12549 0.12549 0.3846 0.3334 43.22E+00 800 0.12549 0.12549 0.12549 0.3310 0.3331 35.94E+00 801 0.00000 0.12549 0.12549 0.2352 0.3339 27.55E+00 802 1.00000 0.00000 0.00000 0.6340 0.3345 7.86E+01 803 0.87451 0.00000 0.00000 0.6272 0.3341 6.13E+01 804 0.74902 0.00000 0.00000 0.6187 0.3333 47.84E+00 805 0.62353 0.00000 0.00000 0.6093 0.3325 38.19E+00 806 0.50196 0.00000 0.00000 0.6010 0.3318 32.30E+00 807 0.37647 0.00000 0.00000 0.5902 0.3308 26.75E+00 808 0.25098 0.00000 0.00000 0.5691 0.3288 19.95E+00 809 0.12549 0.00000 0.00000 0.5236 0.3246 12.77E+00 810 0.00000 0.00000 0.00000 0.3097 0.3050 45.18E-01 811 1.00000 1.00000 1.00000 0.2974 0.3092 36.55E+01 812 0.87451 0.87451 1.00000 0.2788 0.2789 28.99E+01 813 0.74902 0.74902 1.00000 0.2602 0.2470 22.81E+01 814 0.62353 0.62353 1.00000 0.2437 0.2197 18.50E+01 815 0.50196 0.50196 1.00000 0.2318 0.1992 15.75E+01 816 0.37647 0.37647 1.00000 0.2187 0.1748 12.89E+01 817 0.25098 0.25098 1.00000 0.1997 0.1375 9.22E+01 818 0.12549 0.12549 1.00000 0.1780 0.1007 6.17E+01 819 0.00000 0.00000 1.00000 0.1495 0.0566 3.13E+01 820 1.00000 1.00000 0.87451 0.3144 0.3377 35.88E+01 821 0.87451 0.87451 0.87451 0.2964 0.3078 28.24E+01 822 0.74902 0.74902 0.87451 0.2774 0.2753 22.06E+01 823 0.62353 0.62353 0.87451 0.2603 0.2467 17.75E+01 824 0.50196 0.50196 0.87451 0.2475 0.2246 15.00E+01 825 0.37647 0.37647 0.87451 0.2332 0.1976 12.15E+01 826 0.25098 0.25098 0.87451 0.2119 0.1553 8.51E+01 827 0.12549 0.12549 0.87451 0.1864 0.1119 5.48E+01 828 0.00000 0.00000 0.87451 0.1509 0.0572 2.45E+01 829 1.00000 1.00000 0.74902 0.3313 0.3659 35.37E+01 830 0.87451 0.87451 0.74902 0.3142 0.3375 27.70E+01 831 0.74902 0.74902 0.74902 0.2957 0.3055 21.52E+01 832 0.62353 0.62353 0.74902 0.2780 0.2764 17.21E+01 833 0.50196 0.50196 0.74902 0.2649 0.2534 14.47E+01 834 0.37647 0.37647 0.74902 0.2498 0.2243 11.62E+01 835 0.25098 0.25098 0.74902 0.2263 0.1771 7.99E+01 836 0.12549 0.12549 0.74902 0.1965 0.1262 4.96E+01 837 0.00000 0.00000 0.74902 0.1530 0.0583 1.93E+01 838 1.00000 1.00000 0.62353 0.3431 0.3859 35.08E+01 839 0.87451 0.87451 0.62353 0.3270 0.3590 27.39E+01 840 0.74902 0.74902 0.62353 0.3090 0.3281 21.21E+01 841 0.62353 0.62353 0.62353 0.2916 0.2992 16.90E+01 842 0.50196 0.50196 0.62353 0.2784 0.2759 14.16E+01 843 0.37647 0.37647 0.62353 0.2628 0.2459 11.32E+01 844 0.25098 0.25098 0.62353 0.2382 0.1955 7.69E+01 845 0.12549 0.12549 0.62353 0.2055 0.1393 4.67E+01 846 0.00000 0.00000 0.62353 0.1545 0.0600 1.64E+01 847 1.00000 1.00000 0.50196 0.3552 0.4063 34.82E+01 848 0.87451 0.87451 0.50196 0.3403 0.3815 27.13E+01 849 0.74902 0.74902 0.50196 0.3234 0.3521 20.94E+01 850 0.62353 0.62353 0.50196 0.3063 0.3242 16.64E+01 851 0.50196 0.50196 0.50196 0.2931 0.3012 13.89E+01 852 0.37647 0.37647 0.50196 0.2777 0.2706 11.06E+01 853 0.25098 0.25098 0.50196 0.2521 0.2176 7.44E+01 854 0.12549 0.12549 0.50196 0.2163 0.1557 4.42E+01 855 0.00000 0.00000 0.50196 0.1569 0.0629 1.40E+01 856 1.00000 1.00000 0.37647 0.3734 0.4376 34.51E+01 857 0.87451 0.87451 0.37647 0.3610 0.4170 26.80E+01 858 0.74902 0.74902 0.37647 0.3464 0.3914 20.60E+01 859 0.62353 0.62353 0.37647 0.3309 0.3665 16.29E+01 860 0.50196 0.50196 0.37647 0.3187 0.3450 13.56E+01 861 0.37647 0.37647 0.37647 0.3040 0.3151 10.73E+01 862 0.25098 0.25098 0.37647 0.2787 0.2597 7.11E+01 863 0.12549 0.12549 0.37647 0.2389 0.1894 4.09E+01 864 0.00000 0.00000 0.37647 0.1616 0.0702 1.09E+01 865 1.00000 1.00000 0.25098 0.3927 0.4706 34.23E+01 866 0.87451 0.87451 0.25098 0.3836 0.4558 26.50E+01 867 0.74902 0.74902 0.25098 0.3726 0.4365 20.30E+01 868 0.62353 0.62353 0.25098 0.3604 0.4170 16.00E+01 869 0.50196 0.50196 0.25098 0.3503 0.3993 13.27E+01 870 0.37647 0.37647 0.25098 0.3381 0.3731 10.44E+01 871 0.25098 0.25098 0.25098 0.3163 0.3196 68.07E+00 872 0.12549 0.12549 0.25098 0.2742 0.2446 38.06E+00 873 0.00000 0.00000 0.25098 0.1711 0.0840 8.05E+00 874 1.00000 1.00000 0.12549 0.4104 0.5013 34.02E+01 875 0.87451 0.87451 0.12549 0.4052 0.4929 26.25E+01 876 0.74902 0.74902 0.12549 0.3990 0.4816 20.05E+01 877 0.62353 0.62353 0.12549 0.3910 0.4701 15.75E+01 878 0.50196 0.50196 0.12549 0.3850 0.4590 13.03E+01 879 0.37647 0.37647 0.12549 0.3784 0.4406 10.20E+01 880 0.25098 0.25098 0.12549 0.3657 0.3990 65.82E+00 881 0.12549 0.12549 0.12549 0.3309 0.3330 35.92E+00 882 0.00000 0.00000 0.12549 0.1955 0.1230 6.02E+00 883 1.00000 1.00000 0.00000 0.4251 0.5267 33.86E+01 884 0.87451 0.87451 0.00000 0.4240 0.5242 25.99E+01 885 0.74902 0.74902 0.00000 0.4228 0.5213 19.79E+01 886 0.62353 0.62353 0.00000 0.4204 0.5193 15.50E+01 887 0.50196 0.50196 0.00000 0.4192 0.5166 12.78E+01 888 0.37647 0.37647 0.00000 0.4202 0.5102 9.98E+01 889 0.25098 0.25098 0.00000 0.4251 0.4931 63.86E+00 890 0.12549 0.12549 0.00000 0.4192 0.4695 34.20E+00 891 0.00000 0.00000 0.00000 0.3097 0.3051 45.16E-01 892 1.00000 1.00000 1.00000 0.2974 0.3093 36.56E+01 893 1.00000 0.87451 1.00000 0.2961 0.2815 30.64E+01 894 1.00000 0.74902 1.00000 0.2951 0.2549 25.81E+01 895 1.00000 0.62353 1.00000 0.2945 0.2341 22.47E+01 896 1.00000 0.50196 1.00000 0.2941 0.2194 20.32E+01 897 1.00000 0.37647 1.00000 0.2938 0.2024 18.02E+01 898 1.00000 0.25098 1.00000 0.2936 0.1784 15.05E+01 899 1.00000 0.12549 1.00000 0.2934 0.1575 12.72E+01 900 1.00000 0.00000 1.00000 0.2935 0.1361 10.52E+01 901 0.87451 1.00000 0.87451 0.2982 0.3382 34.25E+01 902 0.87451 0.87451 0.87451 0.2964 0.3078 28.24E+01 903 0.87451 0.74902 0.87451 0.2952 0.2781 23.39E+01 904 0.87451 0.62353 0.87451 0.2944 0.2542 20.05E+01 905 0.87451 0.50196 0.87451 0.2939 0.2372 17.91E+01 906 0.87451 0.37647 0.87451 0.2936 0.2171 15.61E+01 907 0.87451 0.25098 0.87451 0.2932 0.1884 12.67E+01 908 0.87451 0.12549 0.87451 0.2929 0.1629 10.37E+01 909 0.87451 0.00000 0.87451 0.2922 0.1355 8.15E+01 910 0.74902 1.00000 0.74902 0.2991 0.3696 32.40E+01 911 0.74902 0.87451 0.74902 0.2971 0.3376 26.37E+01 912 0.74902 0.74902 0.74902 0.2957 0.3054 21.51E+01 913 0.74902 0.62353 0.74902 0.2947 0.2789 18.18E+01 914 0.74902 0.50196 0.74902 0.2942 0.2594 16.04E+01 915 0.74902 0.37647 0.74902 0.2937 0.2362 13.75E+01 916 0.74902 0.25098 0.74902 0.2931 0.2018 10.82E+01 917 0.74902 0.12549 0.74902 0.2928 0.1702 8.51E+01 918 0.74902 0.00000 0.74902 0.2920 0.1354 6.29E+01 919 0.62353 1.00000 0.62353 0.2973 0.3943 31.14E+01 920 0.62353 0.87451 0.62353 0.2949 0.3616 25.09E+01 921 0.62353 0.74902 0.62353 0.2929 0.3277 20.23E+01 922 0.62353 0.62353 0.62353 0.2916 0.2992 16.90E+01 923 0.62353 0.50196 0.62353 0.2909 0.2779 14.76E+01 924 0.62353 0.37647 0.62353 0.2901 0.2520 12.48E+01 925 0.62353 0.25098 0.62353 0.2890 0.2124 9.54E+01 926 0.62353 0.12549 0.62353 0.2882 0.1755 7.25E+01 927 0.62353 0.00000 0.62353 0.2869 0.1333 5.04E+01 928 0.50196 1.00000 0.50196 0.2994 0.4206 30.29E+01 929 0.50196 0.87451 0.50196 0.2970 0.3881 24.22E+01 930 0.50196 0.74902 0.50196 0.2952 0.3538 19.37E+01 931 0.50196 0.62353 0.50196 0.2939 0.3238 16.03E+01 932 0.50196 0.50196 0.50196 0.2932 0.3012 13.90E+01 933 0.50196 0.37647 0.50196 0.2925 0.2730 11.62E+01 934 0.50196 0.25098 0.50196 0.2915 0.2289 8.69E+01 935 0.50196 0.12549 0.50196 0.2910 0.1862 6.40E+01 936 0.50196 0.00000 0.50196 0.2894 0.1360 4.20E+01 937 0.37647 1.00000 0.37647 0.3065 0.4631 29.40E+01 938 0.37647 0.87451 0.37647 0.3050 0.4329 23.32E+01 939 0.37647 0.74902 0.37647 0.3042 0.3994 18.46E+01 940 0.37647 0.62353 0.37647 0.3037 0.3694 15.14E+01 941 0.37647 0.50196 0.37647 0.3038 0.3456 13.00E+01 942 0.37647 0.37647 0.37647 0.3040 0.3151 10.73E+01 943 0.37647 0.25098 0.37647 0.3047 0.2647 7.80E+01 944 0.37647 0.12549 0.37647 0.3059 0.2132 5.52E+01 945 0.37647 0.00000 0.37647 0.3064 0.1481 3.32E+01 946 0.25098 1.00000 0.25098 0.3110 0.5137 28.43E+01 947 0.25098 0.87451 0.25098 0.3105 0.4884 22.32E+01 948 0.25098 0.74902 0.25098 0.3106 0.4591 17.47E+01 949 0.25098 0.62353 0.25098 0.3114 0.4308 14.14E+01 950 0.25098 0.50196 0.25098 0.3119 0.4077 12.01E+01 951 0.25098 0.37647 0.25098 0.3134 0.3759 9.74E+01 952 0.25098 0.25098 0.25098 0.3163 0.3195 68.08E+00 953 0.25098 0.12549 0.25098 0.3202 0.2556 45.37E+00 954 0.25098 0.00000 0.25098 0.3252 0.1645 23.55E+00 955 0.12549 1.00000 0.12549 0.3120 0.5685 27.48E+01 956 0.12549 0.87451 0.12549 0.3114 0.5521 21.35E+01 957 0.12549 0.74902 0.12549 0.3119 0.5316 16.48E+01 958 0.12549 0.62353 0.12549 0.3129 0.5107 13.17E+01 959 0.12549 0.50196 0.12549 0.3146 0.4915 11.03E+01 960 0.12549 0.37647 0.12549 0.3167 0.4641 87.56E+00 961 0.12549 0.25098 0.12549 0.3223 0.4087 58.54E+00 962 0.12549 0.12549 0.12549 0.3310 0.3331 35.93E+00 963 0.12549 0.00000 0.12549 0.3466 0.1931 14.29E+00 964 0.00000 1.00000 0.00000 0.3051 0.6254 26.48E+01 965 0.00000 0.87451 0.00000 0.3030 0.6226 20.24E+01 966 0.00000 0.74902 0.00000 0.3010 0.6185 15.37E+01 967 0.00000 0.62353 0.00000 0.2994 0.6141 12.06E+01 968 0.00000 0.50196 0.00000 0.2984 0.6097 9.95E+01 969 0.00000 0.37647 0.00000 0.2975 0.6013 76.90E+00 970 0.00000 0.25098 0.00000 0.2972 0.5811 48.16E+00 971 0.00000 0.12549 0.00000 0.2985 0.5382 25.84E+00 972 0.00000 0.00000 0.00000 0.3097 0.3051 45.14E-01 973 0.00000 0.00000 0.00000 0.3098 0.3050 45.15E-01 974 0.12549 0.12549 0.12549 0.3310 0.3331 35.91E+00 975 0.25098 0.25098 0.25098 0.3163 0.3196 68.09E+00 976 0.37647 0.37647 0.37647 0.3042 0.3150 10.73E+01 977 0.50196 0.50196 0.50196 0.2932 0.3012 13.90E+01 978 0.62353 0.62353 0.62353 0.2916 0.2992 16.90E+01 979 0.74902 0.74902 0.74902 0.2956 0.3054 21.51E+01 980 0.87451 0.87451 0.87451 0.2965 0.3077 28.23E+01 981 1.00000 1.00000 1.00000 0.2974 0.3092 36.53E+01 982 0.00000 0.00000 0.00000 0.3098 0.3050 45.14E-01 983 0.12549 0.12549 0.12549 0.3310 0.3330 35.91E+00 984 0.25098 0.25098 0.25098 0.3163 0.3196 68.07E+00 985 0.37647 0.37647 0.37647 0.3041 0.3149 10.73E+01 986 0.50196 0.50196 0.50196 0.2932 0.3012 13.90E+01 987 0.62353 0.62353 0.62353 0.2916 0.2992 16.90E+01 988 0.74902 0.74902 0.74902 0.2956 0.3054 21.51E+01 989 0.87451 0.87451 0.87451 0.2965 0.3077 28.23E+01 990 1.00000 1.00000 1.00000 0.2973 0.3093 36.54E+01 991 0.00000 0.00000 0.00000 0.3098 0.3050 45.14E-01 992 0.12549 0.12549 0.12549 0.3309 0.3330 35.91E+00 993 0.25098 0.25098 0.25098 0.3163 0.3196 68.08E+00 994 0.37647 0.37647 0.37647 0.3041 0.3149 10.73E+01 995 0.50196 0.50196 0.50196 0.2932 0.3013 13.90E+01 996 0.62353 0.62353 0.62353 0.2917 0.2992 16.90E+01 997 0.74902 0.74902 0.74902 0.2956 0.3054 21.51E+01 998 0.87451 0.87451 0.87451 0.2965 0.3077 28.23E+01 999 1.00000 1.00000 1.00000 0.2973 0.3093 36.54E+01 1000 0.00000 0.00000 0.00000 0.3098 0.3050 45.14E-01 1001 0.12549 0.12549 0.12549 0.3310 0.3330 35.91E+00 1002 0.25098 0.25098 0.25098 0.3163 0.3196 68.08E+00 1003 0.37647 0.37647 0.37647 0.3041 0.3149 10.73E+01 1004 0.50196 0.50196 0.50196 0.2932 0.3012 13.90E+01 1005 0.62353 0.62353 0.62353 0.2916 0.2992 16.90E+01 1006 0.74902 0.74902 0.74902 0.2956 0.3054 21.51E+01 1007 0.87451 0.87451 0.87451 0.2965 0.3077 28.23E+01 1008 1.00000 1.00000 1.00000 0.2973 0.3093 36.53E+01 1009 0.00000 0.00000 0.00000 0.3097 0.3050 45.13E-01 1010 0.06667 0.06667 0.06667 0.3403 0.3353 21.42E+00 1011 0.13333 0.13333 0.13333 0.3302 0.3312 37.55E+00 1012 0.20000 0.20000 0.20000 0.3224 0.3246 54.66E+00 1013 0.26667 0.26667 0.26667 0.3141 0.3184 73.26E+00 1014 0.33333 0.33333 0.33333 0.3088 0.3159 9.33E+01 1015 0.40000 0.40000 0.40000 0.3014 0.3108 11.27E+01 1016 0.46667 0.46667 0.46667 0.2946 0.3025 13.03E+01 1017 0.53333 0.53333 0.53333 0.2924 0.3010 14.66E+01 1018 0.60000 0.60000 0.60000 0.2907 0.2996 16.25E+01 1019 0.66667 0.66667 0.66667 0.2929 0.2995 18.08E+01 1020 0.73333 0.73333 0.73333 0.2963 0.3056 20.86E+01 1021 0.80000 0.80000 0.80000 0.2958 0.3065 23.99E+01 1022 0.86667 0.86667 0.86667 0.2966 0.3070 27.64E+01 1023 0.93333 0.93333 0.93333 0.2993 0.3114 32.59E+01 1024 1.00000 1.00000 1.00000 0.2974 0.3092 36.53E+01 1025 0.00000 0.00000 0.00000 0.3098 0.3050 45.14E-01 1026 0.06667 0.06667 0.06667 0.3403 0.3354 21.43E+00 1027 0.13333 0.13333 0.13333 0.3303 0.3312 37.54E+00 1028 0.20000 0.20000 0.20000 0.3224 0.3246 54.66E+00 1029 0.26667 0.26667 0.26667 0.3141 0.3185 73.25E+00 1030 0.33333 0.33333 0.33333 0.3089 0.3161 9.33E+01 1031 0.40000 0.40000 0.40000 0.3014 0.3111 11.28E+01 1032 0.46667 0.46667 0.46667 0.2946 0.3025 13.03E+01 1033 0.53333 0.53333 0.53333 0.2925 0.3010 14.66E+01 1034 0.60000 0.60000 0.60000 0.2909 0.2995 16.24E+01 1035 0.66667 0.66667 0.66667 0.2930 0.2994 18.07E+01 1036 0.73333 0.73333 0.73333 0.2962 0.3056 20.86E+01 1037 0.80000 0.80000 0.80000 0.2958 0.3065 23.99E+01 1038 0.86667 0.86667 0.86667 0.2966 0.3070 27.64E+01 1039 0.93333 0.93333 0.93333 0.2993 0.3114 32.59E+01 1040 1.00000 1.00000 1.00000 0.2974 0.3092 36.53E+01 1041 0.00000 0.00000 0.00000 0.3098 0.3050 45.13E-01 1042 0.06667 0.06667 0.06667 0.3404 0.3354 21.42E+00 1043 0.13333 0.13333 0.13333 0.3303 0.3311 37.53E+00 1044 0.20000 0.20000 0.20000 0.3224 0.3246 54.65E+00 1045 0.26667 0.26667 0.26667 0.3141 0.3184 73.24E+00 1046 0.33333 0.33333 0.33333 0.3089 0.3161 9.33E+01 1047 0.40000 0.40000 0.40000 0.3012 0.3109 11.27E+01 1048 0.46667 0.46667 0.46667 0.2945 0.3026 13.03E+01 1049 0.53333 0.53333 0.53333 0.2925 0.3010 14.66E+01 1050 0.60000 0.60000 0.60000 0.2908 0.2996 16.25E+01 1051 0.66667 0.66667 0.66667 0.2927 0.2995 18.08E+01 1052 0.73333 0.73333 0.73333 0.2962 0.3057 20.86E+01 1053 0.80000 0.80000 0.80000 0.2958 0.3065 23.99E+01 1054 0.86667 0.86667 0.86667 0.2966 0.3070 27.64E+01 1055 0.93333 0.93333 0.93333 0.2993 0.3114 32.60E+01 1056 1.00000 1.00000 1.00000 0.2974 0.3092 36.53E+01 1057 0.00000 0.00000 0.00000 0.3097 0.3051 45.14E-01 1058 0.06667 0.06667 0.06667 0.3404 0.3354 21.42E+00 1059 0.13333 0.13333 0.13333 0.3303 0.3312 37.54E+00 1060 0.20000 0.20000 0.20000 0.3224 0.3246 54.66E+00 1061 0.26667 0.26667 0.26667 0.3141 0.3185 73.25E+00 1062 0.33333 0.33333 0.33333 0.3088 0.3159 9.33E+01 1063 0.40000 0.40000 0.40000 0.3014 0.3108 11.27E+01 1064 0.46667 0.46667 0.46667 0.2946 0.3025 13.03E+01 1065 0.53333 0.53333 0.53333 0.2925 0.3010 14.66E+01 1066 0.60000 0.60000 0.60000 0.2907 0.2996 16.25E+01 1067 0.66667 0.66667 0.66667 0.2929 0.2994 18.07E+01 1068 0.73333 0.73333 0.73333 0.2962 0.3056 20.85E+01 1069 0.80000 0.80000 0.80000 0.2958 0.3065 23.99E+01 1070 0.86667 0.86667 0.86667 0.2966 0.3070 27.64E+01 1071 0.93333 0.93333 0.93333 0.2993 0.3114 32.59E+01 1072 1.00000 1.00000 1.00000 0.2974 0.3093 36.54E+01 1073 0.00000 0.00000 0.00000 0.3098 0.3050 45.14E-01 1074 1.00000 1.00000 1.00000 0.2974 0.3093 36.56E+01 1075 1.00000 0.00000 0.00000 0.6338 0.3348 7.87E+01 1076 0.00000 1.00000 1.00000 0.2154 0.3031 29.15E+01 1077 1.00000 1.00000 0.00000 0.4251 0.5266 33.87E+01 1078 0.00000 0.00000 1.00000 0.1494 0.0567 3.14E+01 1079 0.00000 1.00000 0.00000 0.3051 0.6254 26.48E+01 1080 1.00000 0.00000 1.00000 0.2934 0.1361 10.52E+01 ] 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 ----------------- % % --- Eingabe (stack): L* a* b* % --- Ausgabe (stack): iR iG iB ; die Indizes des LUT-Wertes mit dem geringsten Delta-E bzgl. Eingabewert % ---- : delta-E ; und das Delta-E dazu % /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 dE dEneu ge { % test ob dEneu < dE /dE dEneu def /opt ii def } if } if } if } if } for /opt opt 3 idiv def 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 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 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 1000 mul put RGB0 j31 xyY0 j02 get 1000 mul put RGB0 j32 xyY0 j03 get 1000 mul put /i70 xchartl 7 mul def /i71 i70 1 add def /i72 i70 2 add def /i73 i70 3 add def nrgbxyY i70 xchartl put nrgbxyY i71 RGB0 j30 get 0.001 mul put nrgbxyY i72 RGB0 j31 get 0.001 mul put nrgbxyY i73 RGB0 j32 get 0.001 mul 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 and {(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 and {(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 and {(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 and {(00) show} if xi 10 ge xi 99 le and {(0) show} if xi cvishow } bind def %BEG aus LE21 /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 /LUT 10800 array def %1080*6 definiert /LAB*Fa0100 24 array def %start output /LAB*Fa1100 24 array def %linearized output /LAB*FaG0100 24 array def %start output/100 /LAB*FaG1100 24 array def %linearized output/100 /LAB*FaGA100 24 array def %either start- or linearized output/100 %********************************************************************* %BEG LE21_LECD display 0..40%_00_LUT.DAT /FileDataen (_LUT.DAT, 243 colours, 100101, Separation olv*, adapted) def /FileDatade (_LUT.DAT, 243 Farben, 100101, Separation olv*, adaptiert) def %include here JE060-7A0.TXT to JE060-7A7.TXT %END LE21_LECD display 0..40%_00_LUT.DAT %********************************************************************* /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 /LAB*ioLmod {%BEG Procedure LAB*ioLmod %requires ISRL*ioL=0,1,3 /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 /LAB* 84 array def %12x3=36 including N,W + 16x3=48 elementary system /LAB*a 84 array def 0 1 11 {/sISO exch def /i30 sISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def sISO 7 le { %sISO=0,7 LAB*a i30 LAB*FaGA100 i30 get put %already adapted range 0..100 LAB*a i31 LAB*FaGA100 i31 get put LAB*a i32 LAB*FaGA100 i32 get put } %sISO=0,7 {%sISO=8,11 %Definition 8 to 11 /jISO sISO 8 sub def /j30 jISO 3 mul def /j31 j30 1 add def /j32 j30 2 add def LAB*a i30 RJGBLAB* j30 get put %already asumed as adapted LAB*a i31 RJGBLAB* j31 get put LAB*a i32 RJGBLAB* j32 get put } ifelse %sISO=0,7 and 8,11 } for /L*Nio LAB*a 18 get def %already adapted /A*Nio LAB*a 19 get def %already adapted, cero! /B*Nio LAB*a 20 get def %already adapted, cero! /L*Wio LAB*a 21 get def %already adapted /A*Wio LAB*a 22 get def %already adapted, cero! /B*Wio LAB*a 23 get def %already adapted, cero! /A*Dio A*Wio A*Nio sub def %cero /B*Dio B*Wio B*Nio sub def %cero /cf1 1 def /cLAB*s0 3 array def %C cyan blue /vLAB*s0 3 array def %V violet blue /mLAB*s0 3 array def %M magenta red /oLAB*s0 3 array def %O orange red /yLAB*s0 3 array def %Y yellow /lLAB*s0 3 array def %L leaf green /nLAB*s0 3 array def %N black /wLAB*s0 3 array def %W white /rLAB*s0 3 array def %R elementary red /jLAB*s0 3 array def %J elementary yellow /gLAB*s0 3 array def %G elementary green /bLAB*s0 3 array def %B elementary blue %Determine Matrix data input or output data oLAB*s0 0 LAB*a 0 get L*Nio sub put oLAB*s0 1 LAB*a 1 get put oLAB*s0 2 LAB*a 2 get put yLAB*s0 0 LAB*a 3 get L*Nio sub put yLAB*s0 1 LAB*a 4 get put yLAB*s0 2 LAB*a 5 get put lLAB*s0 0 LAB*a 6 get L*Nio sub put lLAB*s0 1 LAB*a 7 get put lLAB*s0 2 LAB*a 8 get put cLAB*s0 0 LAB*a 9 get L*Nio sub put cLAB*s0 1 LAB*a 10 get put cLAB*s0 2 LAB*a 11 get put vLAB*s0 0 LAB*a 12 get L*Nio sub put vLAB*s0 1 LAB*a 13 get put vLAB*s0 2 LAB*a 14 get put mLAB*s0 0 LAB*a 15 get L*Nio sub put mLAB*s0 1 LAB*a 16 get put mLAB*s0 2 LAB*a 17 get put nLAB*s0 0 LAB*a 18 get L*Nio sub put nLAB*s0 1 LAB*a 19 get put nLAB*s0 2 LAB*a 20 get put wLAB*s0 0 LAB*a 21 get L*Nio sub put wLAB*s0 1 LAB*a 22 get put wLAB*s0 2 LAB*a 23 get put rLAB*s0 0 LAB*a 24 get L*Nio sub put rLAB*s0 1 LAB*a 25 get put rLAB*s0 2 LAB*a 26 get put jLAB*s0 0 LAB*a 27 get L*Nio sub put jLAB*s0 1 LAB*a 28 get put jLAB*s0 2 LAB*a 29 get put gLAB*s0 0 LAB*a 30 get L*Nio sub put gLAB*s0 1 LAB*a 31 get put gLAB*s0 2 LAB*a 32 get put bLAB*s0 0 LAB*a 33 get L*Nio sub put bLAB*s0 1 LAB*a 34 get put bLAB*s0 2 LAB*a 35 get put % Determine the input or output angle in the A* B* plane % of each of the colours defined above /C*Ang cLAB*s0 2 get cLAB*s0 1 get 0.0001 add atan def /V*Ang vLAB*s0 2 get vLAB*s0 1 get 0.0001 add atan def /M*Ang mLAB*s0 2 get mLAB*s0 1 get 0.0001 add atan def /O*Ang oLAB*s0 2 get oLAB*s0 1 get 0.0001 add atan def /Y*Ang yLAB*s0 2 get yLAB*s0 1 get 0.0001 add atan def /L*Ang lLAB*s0 2 get mLAB*s0 1 get 0.0001 add atan def /N*Ang 0 def /W*Ang 0 def /R*Ang rLAB*s0 2 get rLAB*s0 1 get 0.0001 add atan def /J*Ang jLAB*s0 2 get jLAB*s0 1 get 0.0001 add atan def /G*Ang gLAB*s0 2 get gLAB*s0 1 get 0.0001 add atan def /B*Ang bLAB*s0 2 get bLAB*s0 1 get 0.0001 add atan def } def %END Procedure LAB*ioLmod %*********************************************************** /proc_LAB*Fa_LAB*MaNTABl_olvi3*cmyn3*Ma*ioL { %BEG procedure proc_LAB*Fa_LAB*MaNTABl_olvi3*cmyn3*Ma*ioL %only for calculation without hue tables %input LAB*Fa %input LAB*a (6 adapted colours OYLCVM) %input nLAB*s0 (colour white N for calculation of lab*l) %input wLAB*s0 (colour white W for achromatic axis) %output LAB*Ma %output olvi3*Ma %output cmyn3*Ma /UXF1a wLAB*s0 1 get B*Fa mul wLAB*s0 2 get A*Fa mul sub def /UXF2a wLAB*s0 2 get L*Fa mul wLAB*s0 0 get B*Fa mul sub def /UXF3a wLAB*s0 0 get A*Fa mul wLAB*s0 1 get L*Fa mul sub def /T1 0 def /T2 0 def 0 1 5 {/ia exch def /ia30 ia 3 mul def ia 5 eq {/ia31 0 def} {/ia31 ia30 3 add def} ifelse /T1 LAB*a ia30 get UXF1a mul LAB*a ia30 1 add get UXF2a mul add LAB*a ia30 2 add get UXF3a mul add def /T2 LAB*a ia31 get UXF1a mul LAB*a ia31 1 add get UXF2a mul add LAB*a ia31 2 add get UXF3a mul add def T1 0 le {/T1X (N) def} {/T1X (P) def} ifelse T2 0 gt {/T2X (P) def} {/T2X (N) def} ifelse T1 0 le T2 0 gt and {/ia3END ia30 def exit} if } for /L*11a LAB*a ia3END get def /A*11a LAB*a ia3END 1 add get def /B*11a LAB*a ia3END 2 add get def ia3END 15 ge {/ia3END -3 def} if /L*21a LAB*a ia3END 3 add get def /A*21a LAB*a ia3END 4 add get def /B*21a LAB*a ia3END 5 add get def /NENNER L*21a L*11a sub UXF1a mul A*21a A*11a sub UXF2a mul add B*21a B*11a sub UXF3a mul add def /ZAEHLE L*21a UXF1a mul A*21a UXF2a mul add B*21a UXF3a mul add def NENNER 0 ne {/ALPH ZAEHLE NENNER div def} {/ALPH 99999} ifelse /L*Ma ALPH L*11a mul 1 ALPH sub L*21a mul add def /A*Ma ALPH A*11a mul 1 ALPH sub A*21a mul add def /B*Ma ALPH B*11a mul 1 ALPH sub B*21a mul add def /C*Ma A*Ma dup mul B*Ma dup mul add 0.000001 add sqrt def /H*Ma B*Ma A*Ma 0.0001 add atan def /ia30 ia 3 mul def /iap 1 ALPH sub def /iam ALPH def ia 0 eq {/c3*Ma 0 def %L, c*=0, sector O->Y /m3*Ma iam def %L, m*=1->0 /y3*Ma 1 def %L, y*=1 } if ia 1 eq {/c3*Ma iap def %L, c*=0->1, sector Y->L /m3*Ma 0 def %L, m*=0 /y3*Ma 1 def %L, y*=1 } if ia 2 eq {/c3*Ma 1 def %L, c*=1, sector L->C /m3*Ma 0 def %L, m*=0 /y3*Ma iam def %L, y*=1->0 } if ia 3 eq {/c3*Ma 1 def %L, c*=1, sector C->V /m3*Ma iap def %L, m*=1->0 /y3*Ma 0 def %L, y*=0 } if ia 4 eq {/c3*Ma iam def %L, c*=1->0, sector V->M /m3*Ma 1 def %L, m*=1 /y3*Ma 0 def %L, y*=0 } if ia 5 eq {/c3*Ma 0 def %L, c*=0, sector M->O /m3*Ma 1 def %L, m*=1 /y3*Ma iap def %L, y*=0->1 } if /o3*Ma 1 c3*Ma sub def /l3*Ma 1 m3*Ma sub def /v3*Ma 1 y3*Ma sub def /i3*Ma 1 def /lab*nMa 0.00 def /lab*cMa 1.00 def /lab*wMa 0.00 def /lab*tMa 0.50 def /lab*hMa H*Ma 360 div def /lab*lMa L*Ma nLAB*s0 0 get sub wLAB*s0 0 get nLAB*s0 0 get sub 0.000001 add div def } bind def %END procedure proc_LAB*Fa_LAB*MaNTABl_olvi3*cmyn3*Ma*ioL %******************************************************************* /proc_LAB*Fae_LAB*MaeNTABl_olvi3*cmyn3*Ma*ioL { %BEG procedure proc_LAB*Fae_LAB*MaeNTABl_olvi3*cmyn3*Ma*ioL %only for calculation without hue tables %input LAB*Fae %input LAB*a (4 adapted colours RJGB, No. 8 to 11) %input nLAB*s0 (colour white N for calculation of lab*l) %input wLAB*s0 (colour white W for achromatic axis) %output LAB*Mae %output olvi3*Mae %output cmyn3*Mae /UXF1a wLAB*s0 1 get B*Fae mul wLAB*s0 2 get A*Fae mul sub def /UXF2a wLAB*s0 2 get L*Fae mul wLAB*s0 0 get B*Fae mul sub def /UXF3a wLAB*s0 0 get A*Fae mul wLAB*s0 1 get L*Fae mul sub def /T1 0 def /T2 0 def 0 1 5 {/ia exch def /ia30 ia 3 mul def ia 5 eq {/ia31 0 def} {/ia31 ia30 3 add def} ifelse /T1 LAB*a ia30 get UXF1a mul LAB*a ia30 1 add get UXF2a mul add LAB*a ia30 2 add get UXF3a mul add def /T2 LAB*a ia31 get UXF1a mul LAB*a ia31 1 add get UXF2a mul add LAB*a ia31 2 add get UXF3a mul add def T1 0 le {/T1X (N) def} {/T1X (P) def} ifelse T2 0 gt {/T2X (P) def} {/T2X (N) def} ifelse T1 0 le T2 0 gt and {/ia3END ia30 def exit} if } for /L*11a LAB*a ia3END get def /A*11a LAB*a ia3END 1 add get def /B*11a LAB*a ia3END 2 add get def ia3END 15 ge {/ia3END -3 def} if /L*21a LAB*a ia3END 3 add get def /A*21a LAB*a ia3END 4 add get def /B*21a LAB*a ia3END 5 add get def /NENNER L*21a L*11a sub UXF1a mul A*21a A*11a sub UXF2a mul add B*21a B*11a sub UXF3a mul add def /ZAEHLE L*21a UXF1a mul A*21a UXF2a mul add B*21a UXF3a mul add def NENNER 0 ne {/ALPH ZAEHLE NENNER div def} {/ALPH 99999} ifelse /L*Mae ALPH L*11a mul 1 ALPH sub L*21a mul add def /A*Mae ALPH A*11a mul 1 ALPH sub A*21a mul add def /B*Mae ALPH B*11a mul 1 ALPH sub B*21a mul add def /C*Mae A*Mae dup mul B*Mae dup mul add 0.000001 add sqrt def /H*Mae B*Mae A*Mae 0.0001 add atan def /ia30 ia 3 mul def /iap 1 ALPH sub def /iam ALPH def ia 0 eq {/c3*Mae 0 def %L, c*=0, sector O->Y /m3*Mae iam def %L, m*=1->0 /y3*Mae 1 def %L, y*=1 } if ia 1 eq {/c3*Mae iap def %L, c*=0->1, sector Y->L /m3*Mae 0 def %L, m*=0 /y3*Mae 1 def %L, y*=1 } if ia 2 eq {/c3*Mae 1 def %L, c*=1, sector L->C /m3*Mae 0 def %L, m*=0 /y3*Mae iam def %L, y*=1->0 } if ia 3 eq {/c3*Mae 1 def %L, c*=1, sector C->V /m3*Mae iap def %L, m*=1->0 /y3*Mae 0 def %L, y*=0 } if ia 4 eq {/c3*Mae iam def %L, c*=1->0, sector V->M /m3*Mae 1 def %L, m*=1 /y3*Mae 0 def %L, y*=0 } if ia 5 eq {/c3*Mae 0 def %L, c*=0, sector M->O /m3*Mae 1 def %L, m*=1 /y3*Mae iap def %L, y*=0->1 } if /o3*Mae 1 c3*Mae sub def /l3*Mae 1 m3*Mae sub def /v3*Mae 1 y3*Mae sub def /i3*Mae 1 def /lab*nMae 0.00 def /lab*cMae 1.00 def /lab*wMae 0.00 def /lab*tMae 0.50 def /lab*hMae H*Mae 360 div def /lab*lMae L*Mae nLAB*s0 0 get sub wLAB*s0 0 get nLAB*s0 0 get sub 0.000001 add div def } bind def %END procedure proc_LAB*Fae_LAB*MaeNTABl_olvi3*cmyn3*Ma*ioL %******************************************************************* %END aus LE21 %%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 %BEG aus LE21 /cvi100show {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 and {(000) show} if xia 10 ge xia 99 le and {(00) show} if xia 100 ge xia 999 le and {(0) show} if % xia 1000 ge xia 9999 le and {() show} if xia cvishow ( ) show } bind def /LUTL* 247 array def %243+4=247 /LUTA* 247 array def /LUTB* 247 array def /LUTr* 247 array def /LUTg* 247 array def /LUTb* 247 array def /C*ab 247 array def /L* 247 array def /LUTl* 247 array def %243+4=247 /LUTc1* 247 array def /LUTc2* 247 array def /LUTt1* 247 array def /LUTt2* 247 array def /LUTc*rgb 247 array def /LUTt*rgb 247 array def /l1* 247 array def %243+4=247 /l2* 247 array def %l* not possible allread used olv* /c1* 247 array def /c2* 247 array def /t1* 247 array def /t2* 247 array def /c1*rgb 247 array def /c2*rgb 247 array def /t1*rgb 247 array def /t2*rgb 247 array def /ColNames [(O) (Y) (L) (C) (V) (M) (N) (W) (R) (J) (G) (B) (R) (R25J) (R50J) (R75J) (J) (J25G) (J50G) (J75G) (G) (G25B) (G50B) (G75B) (B) (B25R) (B50R) (B75R) (R) ] def /o3Ma [1 1 0 0 0 1 0 1 1 1 0 0 1 1.00 1.00 1.00 1 0.75 0.50 0.25 0 0.00 0.00 0.00 0 0.50 1.00 1.00 1] def /l3Ma [0 1 1 1 0 0 0 1 0 1 1 0 0 0.25 0.50 0.75 1 1.00 1.00 1.00 1 1.00 1.00 0.50 0 0.00 0.00 0.00 0] def /v3Ma [0 0 0 1 1 1 0 1 0 0 0 1 0 0.00 0.00 0.00 0 0.00 0.00 0.00 0 0.50 1.00 1.00 1 1.00 1.00 0.50 0] def /yd 340 def %y-Zeilenabstand %Spalten /S1 20 def /S2 450 def /S3 1550 def /S4 2650 def /S5 3750 def /S6 4650 def /S7 5350 def /S8 6400 def /S9 7200 def /S10 8000 def /S11 8800 def /S12 9600 def /yu1 4650 def /yu2 3800 4000 add def /nshow {300 /Times-ISOL1 FS show} bind def /kshow {300 /TimesI-ISOL1 FS show} bind def /bshow {300 /TimesB-ISOL1 FS show} bind def /jshow {300 /TimesBI-ISOL1 FS show} bind def /sshow {300 /Symbol FS show} bind def /ishow {220 /Times-ISOL1 FS -00 -50 rmoveto show 00 50 rmoveto} bind def /eshow {220 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto} bind def %72 90 translate %0.01 MM dup scale /L*olv 8 array def /A*olv 8 array def /B*olv 8 array def /C*olv 8 array def /H*olv 8 array def /N*olv 8 array def /o*olv 8 array def /l*olv 8 array def /v*olv 8 array def /L*rgb 8 array def /A*rgb 8 array def /B*rgb 8 array def /C*rgb 8 array def /H*rgb 8 array def /N*rgb 8 array def /o*rgb 8 array def /l*rgb 8 array def /v*rgb 8 array def /angle_olv 7 array def /angle_olvG01 7 array def /angle_olvG11 7 array def /angle_olvGA1 7 array def %either angle_olvG01 or angle_olvG11 /angle_rgb 7 array def /angle_olv [38 96 151 236 305 354 398] def %standard offset /angle_rgb [26 92 162 217 272 329 386] def %CIE-test colors /angle_olvi 28 array def %shift by 00,25,50,75% /angle_olvG01i 28 array def %shift by 00,25,50,75% /angle_olvG11i 28 array def %shift by 00,25,50,75% /angle_olvGA1i 28 array def %either angle_olvG01i or angle_olvG11i /angle_rgbi 28 array def %shift by 00,25,50,75% /xcolor xcolorx def /xchart xchartx def /k30j 8 array def /k30j [648 720 072 080 008 656 000 728] def % O1 Y1 L1 C1 V1 M1 N1 W1 %END aus LE21 %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 /LAB*Cja 1080 array def /LAB*Hja 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 %0 1 0 {/REFLECL exch def %beg REFLECL=0,0 /lut 2187 array def %729x3=2187 /lut1 1080 array def /lut2 1080 array def /lut3 1080 array def /luto1000 1080 array def /lutl1000 1080 array def /lutv1000 1080 array def /OLVhab08 8 array def /OLVhab08d 8 array def /x3D 0 def %0,1 output Faeit or Fae3D on page 2,3 /xtext 1 def %0,1 without/with text output 72 90 translate 0.01 MM dup scale gsave /xchartix xchartx def %00 1 07 {/xchartix exch def %beg xchartix=00,07 /xcharti xchartix 8 idiv 3 add def %range 3...10 /xcharts xchartix def %range 0...7 /FileTex (Fadin) def gsave 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 LAB*Cja j LAB*aja j get dup mul LAB*bja j get dup mul add 0.0001 add sqrt put LAB*Cja j get 0.02 le {%LAB*Cja<=0.02 achromatic LAB*Hja j 0 put } {%LAB*Cja>0.02 chromatic LAB*Hja j LAB*bja j get LAB*aja j get 0.0001 add atan put } ifelse } for %j=0,1079 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>] 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 /Lrefl 11 array def /Lrefl [(0%) (0%) (0%) (0%) (0,6%) (1,2%) (2,5%) (5%) (10%) (20%) (40%)] def 0 setgray 12 /Times-ISOL1 FS 61 MM 13 MM moveto (TUB\255test chart LE21; 1080 colours of LECD display_1;) showen (TUB\255Pr\374fvorlage LE21; 1080 Farben; LECD\255Display_1;) showde 12 /TimesI-ISOL1 FS ( Lr=) show 12 /Times-ISOL1 FS 12 /Times-ISOL1 FS Lrefl xchart 8 idiv 3 add get show (; Fadin) show 61 MM 09 MM moveto 12 /TimesI-ISOL1 FS (rgb, XYZ, LAB*, LCH*) showen (rgb\255, XYZ\255, LAB*\255, LCH*) showde 12 /Times-ISOL1 FS ( data for device input (Fadin) normalized at ) showen (\255Daten f\374r Ger\344te\255Eingabe (Fadin); ) showde 12 /TimesI-ISOL1 FS (Yw) show 12 /Times-ISOL1 FS (=89) show 12 /Times-ISOL1 FS 190 MM 13 MM moveto ( input: ) showen (Eingabe: ) showde 12 /TimesI-ISOL1 FS (rgb setrgbcolor) show 12 /Times-ISOL1 FS 190 MM 9 MM moveto ( output: ) showen (Ausgabe: ) showde LSC$ (N) eq {%LSC$=N 12 /Times-ISOL1 FS (no change) showen (keine \304nderung) 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/LE21/LE21L) 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 (LE21/LE21L) 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 (/8) show 16 MM 185 MM moveto -90 rotate (Siehe Original/Kopie: ) showde (See original or copy: ) showen (http://web.me.com/klaus.richter/LE21/LE21L) 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: 20101101\255LE21/LE21L) showde (TUB registration: 20101101\255LE21/LE21L) 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\255 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