%!PS-Adobe-3.0 EPSF-3.0 xxx/OG44/OG44L0XX.PS 20110301 %%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: http://130.149.60.445/~farbmetrik/OG44/OG44.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:2011030112000) /ModDate (D:2011030112000) /DOCINFO pdfmark [ /View [ /Fit ] /DOCVIEW pdfmark %BEG OG44/OUTLIN10.PS Output Linearization (OL) olv*->olv'* 20110301 %Early Binding: needed for colour separation %/sgcmykcolor {setcmykcolor} bind def %/sggray {setgray} bind def %/sgrgbcolor {setrgbcolor} bind def %FILE PREPARED FOR MIXED MODE, e. g. input ORS18 and output TLS00 /IMES 0 def %0=LAB* used, no reflection factor necessary %/IMES 1 def /Yre 2.52 def %1=XYZ measurement and standard device reflection %/i*ptrsc 0 def %LAB* setcolor to cmy0* / 000n* setcmykcolor /i*ptrsc 1 def %LAB* setcolor to olv* setrgbcolor / w* setgray %/i*ptrsc 2 def %LAB* setcolor to cmy0* / nnn0* setcmykcolor %/i*ptrsc 3 def %LAB* setcolor to olv* / www* setrgbcolor %/i*ptrsc 4 def %LAB* setcolor to lab* setcolor %/i*ptrsc 5 def %LAB* setcolor to LAB* setcolor %/i*ptrsc 6 def %LAB* setcolor to 000n* setcmykcolor %/i*ptrsc 7 def %LAB* setcolor to w* setgray /ISIN*ioG 0 def %default input for Offset Reflective System (ORS18/FRS09) /ISOU*ioG 0 def %default output dto. %/ISIN*ioG 1 def %input for Television Luminous System (TLS00) %/ISOU*ioG 1 def %output dto. %/ISIN*ioG 2 def %input for Device Reflective measurement system (FRS09) %/ISOU*ioG 2 def %output dto. %/ISIN*ioG 3 def %input for Television Luminous Reflection System (TLS18) %/ISOU*ioG 3 def %output dto. %/ISIN*ioG 4 def %input for Natural Luminous System (NLS00) %/ISOU*ioG 4 def %output dto. %/ISIN*ioG 5 def %input for Natural Reflective System (NRS11) %/ISOU*ioG 5 def %output dto. %/ISIN*ioG 6 def %input for Standard Reflective System (CIE18) %/ISOU*ioG 6 def %output dto. %/ISIN*ioG 7 def %input for Standard Reflective System (TLS70) %/ISOU*ioG 7 def %output dto. /iLAB 0 def /colormg 0 def %END OG44/OUTLIN10.PS Output Linearization (OL) olv*->olv'* 20110301 %BEG OG44/OUTLIN1X.PS 20110301 %EMPTY %END OG44/OUTLIN1X.PS 20110301 /CFilenameS1g %START output of step S1g (OG44L0N) def %Link file name for data /CDateS1g (2011-03-01, Name) def %Date of calculation, Tester /CDeviceS1g (unknown ) def %Device name /CMeasS1g (OG44/OG44L0N) 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 /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 /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 /CBKK {200 /CourierB-ISOL1 FS} bind def /CBK {250 /CourierB-ISOL1 FS} bind def /CBM {300 /CourierB-ISOL1 FS} bind def /CBG {350 /CourierB-ISOL1 FS} bind def %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 /LAB*TE [(ORS18) (TLS00) (FRS06) (TSL18) (NLS00) (NLS18) (SRS18) (TLS70) (TLS00) (TLS06) (TLS11) (TLS18) (TLS27) (TLS38) (TLS52) (TLS70) (OLS00) (OLS06) (OLS11) (OLS18) (OLS27) (OLS38) (OLS52) (OLS70)] def %BEG 61 lines comment or new PS operators possible %1 %2 %3 %%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)%max 32 (G) (H) (I) (J) (K) (L) (M) (N) (O) (P) (Q) (R) (S) (T) (U) (V)] def /SY$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)%max 32 (G) (H) (I) (J) (K) (L) (M) (N) (O) (P) (Q) (R) (S) (T) (U) (V)] 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 0 def /lanindg2 0 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 %scount1g 1 scount2g {/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 /xchart20m xchart20 def %pcountg pcount1g eq {/xchart10 0 def /xchart20 0 def} % {/xchart10 1 def /xchart20 1 def} ifelse %%pcountg pcount2x eq {/xchart10 2 def /xchart20 9 def} if /xchartf where {pop /xchart10 xchartf def /xchart20 xchartf def /xchart20m xchart20f def} if xchart10 1 xchart20 {/xchartg exch def /ausz 8 def /colorm colormg def /xchart xchartg def /xchartg0 0 def %needs Definition of xcharti, is only in OUTLIN1X.PS %2 MM /Times-Roman FS %274 MM 82 MM moveto -90 rotate (/OG44/ ) 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 %special /GEX$ EX$ 0 get def /GEY$ EY$ 0 get 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 OG440-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 (OG440-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 OG440-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 (OG440-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 OG440-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 (OG440-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 OG440-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 (OG440-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 OG440-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 (OG440-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 OG440-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 (OG440-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 -1 MM add 20 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 17 %line 399 %!PS-Adobe-3.0 EPSF-3.0 OG440-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/OG44/) /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:2011030112000) /ModDate (D:2011030112000) /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 /TS {200 /Times-ISOL1 FS} bind def /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /FileDaten (LCD projector_1, no separation, D65) def /FileDatde (LCD\255Projektor 1, keine Separation, D65) def /xyYA 7560 array def %1080x7 /xyYA [ %produced with the settings of the LCD projector; full white used %FILE LMT_1080_100901_1.TXT %no. r g b x y Y. projector ACER XD1150. measurement 1 1 0.00000 0.00000 0.00000 0.3176 0.3419 10.12E+00 2 0.00000 0.00000 0.12549 0.2892 0.2979 10.55E+00 3 0.00000 0.00000 0.25098 0.2309 0.2075 12.35E+00 4 0.00000 0.00000 0.37647 0.1831 0.1340 17.97E+00 5 0.00000 0.00000 0.50196 0.1626 0.1018 3.03E+01 6 0.00000 0.00000 0.62353 0.1538 0.0885 5.27E+01 7 0.00000 0.00000 0.74902 0.1500 0.0824 9.06E+01 8 0.00000 0.00000 0.87451 0.1483 0.0797 1.50E+02 9 0.00000 0.00000 1.00000 0.1474 0.0787 2.19E+02 10 0.00000 0.12549 0.00000 0.3202 0.3738 12.90E+00 11 0.00000 0.12549 0.12549 0.2972 0.3326 13.53E+00 12 0.00000 0.12549 0.25098 0.2408 0.2368 15.33E+00 13 0.00000 0.12549 0.37647 0.1901 0.1514 21.20E+00 14 0.00000 0.12549 0.50196 0.1661 0.1107 3.36E+01 15 0.00000 0.12549 0.62353 0.1558 0.0931 5.60E+01 16 0.00000 0.12549 0.74902 0.1510 0.0849 9.38E+01 17 0.00000 0.12549 0.87451 0.1490 0.0811 1.53E+02 18 0.00000 0.12549 1.00000 0.1478 0.0797 2.22E+02 19 0.00000 0.25098 0.00000 0.3313 0.4514 26.79E+00 20 0.00000 0.25098 0.12549 0.3150 0.4187 27.41E+00 21 0.00000 0.25098 0.25098 0.2699 0.3283 29.75E+00 22 0.00000 0.25098 0.37647 0.2137 0.2142 35.43E+00 23 0.00000 0.25098 0.50196 0.1800 0.1453 4.78E+01 24 0.00000 0.25098 0.62353 0.1634 0.1122 7.03E+01 25 0.00000 0.25098 0.74902 0.1552 0.0956 10.81E+01 26 0.00000 0.25098 0.87451 0.1513 0.0874 1.67E+02 27 0.00000 0.25098 1.00000 0.1494 0.0839 2.36E+02 28 0.00000 0.37647 0.00000 0.3386 0.5156 72.71E+00 29 0.00000 0.37647 0.12549 0.3310 0.4983 73.49E+00 30 0.00000 0.37647 0.25098 0.3049 0.4392 75.87E+00 31 0.00000 0.37647 0.37647 0.2580 0.3324 8.31E+01 32 0.00000 0.37647 0.50196 0.2137 0.2311 9.55E+01 33 0.00000 0.37647 0.62353 0.1851 0.1661 11.80E+01 34 0.00000 0.37647 0.74902 0.1686 0.1286 15.56E+01 35 0.00000 0.37647 0.87451 0.1600 0.1082 2.15E+02 36 0.00000 0.37647 1.00000 0.1553 0.0980 2.84E+02 37 0.00000 0.50196 0.00000 0.3422 0.5419 17.02E+01 38 0.00000 0.50196 0.12549 0.3388 0.5335 17.10E+01 39 0.00000 0.50196 0.25098 0.3254 0.5012 17.31E+01 40 0.00000 0.50196 0.37647 0.2938 0.4264 18.03E+01 41 0.00000 0.50196 0.50196 0.2533 0.3311 19.59E+01 42 0.00000 0.50196 0.62353 0.2172 0.2458 21.89E+01 43 0.00000 0.50196 0.74902 0.1912 0.1841 25.67E+01 44 0.00000 0.50196 0.87451 0.1748 0.1454 3.16E+02 45 0.00000 0.50196 1.00000 0.1666 0.1249 3.84E+02 46 0.00000 0.62353 0.00000 0.3439 0.5529 35.47E+01 47 0.00000 0.62353 0.12549 0.3420 0.5487 35.54E+01 48 0.00000 0.62353 0.25098 0.3350 0.5316 35.77E+01 49 0.00000 0.62353 0.37647 0.3160 0.4863 36.41E+01 50 0.00000 0.62353 0.50196 0.2860 0.4140 38.03E+01 51 0.00000 0.62353 0.62353 0.2524 0.3330 40.84E+01 52 0.00000 0.62353 0.74902 0.2213 0.2583 44.69E+01 53 0.00000 0.62353 0.87451 0.1978 0.2014 5.05E+02 54 0.00000 0.62353 1.00000 0.1843 0.1684 5.74E+02 55 0.00000 0.74902 0.00000 0.3442 0.5577 65.25E+01 56 0.00000 0.74902 0.12549 0.3433 0.5554 65.32E+01 57 0.00000 0.74902 0.25098 0.3386 0.5455 65.38E+01 58 0.00000 0.74902 0.37647 0.3274 0.5181 66.01E+01 59 0.00000 0.74902 0.50196 0.3069 0.4683 67.62E+01 60 0.00000 0.74902 0.62353 0.2796 0.4022 70.43E+01 61 0.00000 0.74902 0.74902 0.2505 0.3312 75.29E+01 62 0.00000 0.74902 0.87451 0.2238 0.2664 8.13E+02 63 0.00000 0.74902 1.00000 0.2062 0.2234 8.83E+02 64 0.00000 0.87451 0.00000 0.3437 0.5596 10.94E+02 65 0.00000 0.87451 0.12549 0.3434 0.5582 10.94E+02 66 0.00000 0.87451 0.25098 0.3412 0.5524 10.96E+02 67 0.00000 0.87451 0.37647 0.3340 0.5352 11.01E+02 68 0.00000 0.87451 0.50196 0.3200 0.5022 11.19E+02 69 0.00000 0.87451 0.62353 0.2999 0.4522 11.46E+02 70 0.00000 0.87451 0.74902 0.2744 0.3908 11.92E+02 71 0.00000 0.87451 0.87451 0.2489 0.3276 12.57E+02 72 0.00000 0.87451 1.00000 0.2295 0.2799 13.28E+02 73 0.00000 1.00000 0.00000 0.3442 0.5609 15.53E+02 74 0.00000 1.00000 0.12549 0.3437 0.5598 15.54E+02 75 0.00000 1.00000 0.25098 0.3420 0.5559 15.57E+02 76 0.00000 1.00000 0.37647 0.3369 0.5435 15.63E+02 77 0.00000 1.00000 0.50196 0.3269 0.5184 15.78E+02 78 0.00000 1.00000 0.62353 0.3110 0.4793 16.06E+02 79 0.00000 1.00000 0.74902 0.2895 0.4274 16.56E+02 80 0.00000 1.00000 0.87451 0.2660 0.3695 17.28E+02 81 0.00000 1.00000 1.00000 0.2473 0.3238 18.16E+02 82 0.12549 0.00000 0.00000 0.3274 0.3379 10.30E+00 83 0.12549 0.00000 0.12549 0.2985 0.2963 10.76E+00 84 0.12549 0.00000 0.25098 0.2372 0.2076 12.55E+00 85 0.12549 0.00000 0.37647 0.1866 0.1347 18.18E+00 86 0.12549 0.00000 0.50196 0.1643 0.1025 3.05E+01 87 0.12549 0.00000 0.62353 0.1548 0.0887 5.28E+01 88 0.12549 0.00000 0.74902 0.1504 0.0825 9.06E+01 89 0.12549 0.00000 0.87451 0.1486 0.0799 1.50E+02 90 0.12549 0.00000 1.00000 0.1474 0.0786 2.18E+02 91 0.12549 0.12549 0.00000 0.3300 0.3706 13.23E+00 92 0.12549 0.12549 0.12549 0.3044 0.3298 13.75E+00 93 0.12549 0.12549 0.25098 0.2463 0.2365 15.52E+00 94 0.12549 0.12549 0.37647 0.1929 0.1515 21.27E+00 95 0.12549 0.12549 0.50196 0.1675 0.1108 3.36E+01 96 0.12549 0.12549 0.62353 0.1566 0.0932 5.60E+01 97 0.12549 0.12549 0.74902 0.1514 0.0848 9.36E+01 98 0.12549 0.12549 0.87451 0.1488 0.0813 1.53E+02 99 0.12549 0.12549 1.00000 0.1480 0.0794 2.21E+02 100 0.12549 0.25098 0.00000 0.3359 0.4481 26.89E+00 101 0.12549 0.25098 0.12549 0.3190 0.4157 27.55E+00 102 0.12549 0.25098 0.25098 0.2735 0.3269 29.80E+00 103 0.12549 0.25098 0.37647 0.2159 0.2139 35.48E+00 104 0.12549 0.25098 0.50196 0.1810 0.1454 4.78E+01 105 0.12549 0.25098 0.62353 0.1640 0.1120 7.02E+01 106 0.12549 0.25098 0.74902 0.1556 0.0955 10.80E+01 107 0.12549 0.25098 0.87451 0.1518 0.0879 1.68E+02 108 0.12549 0.25098 1.00000 0.1497 0.0837 2.35E+02 109 0.12549 0.37647 0.00000 0.3406 0.5140 72.82E+00 110 0.12549 0.37647 0.12549 0.3329 0.4966 73.50E+00 111 0.12549 0.37647 0.25098 0.3067 0.4379 75.66E+00 112 0.12549 0.37647 0.37647 0.2594 0.3320 8.32E+01 113 0.12549 0.37647 0.50196 0.2147 0.2311 9.55E+01 114 0.12549 0.37647 0.62353 0.1856 0.1659 11.78E+01 115 0.12549 0.37647 0.74902 0.1690 0.1284 15.52E+01 116 0.12549 0.37647 0.87451 0.1599 0.1084 2.15E+02 117 0.12549 0.37647 1.00000 0.1557 0.0979 2.83E+02 118 0.12549 0.50196 0.00000 0.3433 0.5411 16.99E+01 119 0.12549 0.50196 0.12549 0.3398 0.5325 17.05E+01 120 0.12549 0.50196 0.25098 0.3261 0.5004 17.28E+01 121 0.12549 0.50196 0.37647 0.2942 0.4260 17.98E+01 122 0.12549 0.50196 0.50196 0.2539 0.3308 19.53E+01 123 0.12549 0.50196 0.62353 0.2176 0.2456 21.82E+01 124 0.12549 0.50196 0.74902 0.1914 0.1839 25.58E+01 125 0.12549 0.50196 0.87451 0.1754 0.1454 3.15E+02 126 0.12549 0.50196 1.00000 0.1669 0.1248 3.82E+02 127 0.12549 0.62353 0.00000 0.3443 0.5526 35.32E+01 128 0.12549 0.62353 0.12549 0.3424 0.5481 35.41E+01 129 0.12549 0.62353 0.25098 0.3353 0.5311 35.62E+01 130 0.12549 0.62353 0.37647 0.3163 0.4857 36.28E+01 131 0.12549 0.62353 0.50196 0.2864 0.4138 37.90E+01 132 0.12549 0.62353 0.62353 0.2527 0.3328 40.74E+01 133 0.12549 0.62353 0.74902 0.2215 0.2581 44.59E+01 134 0.12549 0.62353 0.87451 0.1981 0.2017 5.05E+02 135 0.12549 0.62353 1.00000 0.1843 0.1684 5.72E+02 136 0.12549 0.74902 0.00000 0.3445 0.5575 65.18E+01 137 0.12549 0.74902 0.12549 0.3434 0.5551 65.24E+01 138 0.12549 0.74902 0.25098 0.3395 0.5455 65.51E+01 139 0.12549 0.74902 0.37647 0.3281 0.5181 66.09E+01 140 0.12549 0.74902 0.50196 0.3077 0.4686 67.70E+01 141 0.12549 0.74902 0.62353 0.2803 0.4024 70.50E+01 142 0.12549 0.74902 0.74902 0.2510 0.3315 75.35E+01 143 0.12549 0.74902 0.87451 0.2244 0.2664 8.13E+02 144 0.12549 0.74902 1.00000 0.2066 0.2233 8.82E+02 145 0.12549 0.87451 0.00000 0.3442 0.5596 10.94E+02 146 0.12549 0.87451 0.12549 0.3442 0.5584 10.95E+02 147 0.12549 0.87451 0.25098 0.3415 0.5528 10.99E+02 148 0.12549 0.87451 0.37647 0.3341 0.5354 11.04E+02 149 0.12549 0.87451 0.50196 0.3209 0.5022 11.22E+02 150 0.12549 0.87451 0.62353 0.3004 0.4524 11.49E+02 151 0.12549 0.87451 0.74902 0.2750 0.3912 11.95E+02 152 0.12549 0.87451 0.87451 0.2495 0.3280 12.61E+02 153 0.12549 0.87451 1.00000 0.2297 0.2805 13.33E+02 154 0.12549 1.00000 0.00000 0.3446 0.5608 15.59E+02 155 0.12549 1.00000 0.12549 0.3442 0.5599 15.60E+02 156 0.12549 1.00000 0.25098 0.3427 0.5559 15.62E+02 157 0.12549 1.00000 0.37647 0.3376 0.5435 15.68E+02 158 0.12549 1.00000 0.50196 0.3273 0.5185 15.84E+02 159 0.12549 1.00000 0.62353 0.3112 0.4792 16.12E+02 160 0.12549 1.00000 0.74902 0.2899 0.4274 16.60E+02 161 0.12549 1.00000 0.87451 0.2662 0.3697 17.33E+02 162 0.12549 1.00000 1.00000 0.2475 0.3238 18.21E+02 163 0.25098 0.00000 0.00000 0.3847 0.3392 12.47E+00 164 0.25098 0.00000 0.12549 0.3538 0.3053 12.91E+00 165 0.25098 0.00000 0.25098 0.2797 0.2231 14.65E+00 166 0.25098 0.00000 0.37647 0.2082 0.1445 20.29E+00 167 0.25098 0.00000 0.50196 0.1746 0.1078 3.26E+01 168 0.25098 0.00000 0.62353 0.1601 0.0917 5.50E+01 169 0.25098 0.00000 0.74902 0.1533 0.0842 9.27E+01 170 0.25098 0.00000 0.87451 0.1502 0.0810 1.52E+02 171 0.25098 0.00000 1.00000 0.1489 0.0793 2.20E+02 172 0.25098 0.12549 0.00000 0.3799 0.3636 15.11E+00 173 0.25098 0.12549 0.12549 0.3527 0.3281 15.35E+00 174 0.25098 0.12549 0.25098 0.2838 0.2448 17.21E+00 175 0.25098 0.12549 0.37647 0.2127 0.1581 22.91E+00 176 0.25098 0.12549 0.50196 0.1774 0.1144 3.51E+01 177 0.25098 0.12549 0.62353 0.1614 0.0955 5.76E+01 178 0.25098 0.12549 0.74902 0.1541 0.0862 9.52E+01 179 0.25098 0.12549 0.87451 0.1506 0.0820 1.54E+02 180 0.25098 0.12549 1.00000 0.1489 0.0804 2.23E+02 181 0.25098 0.25098 0.00000 0.3667 0.4357 28.45E+00 182 0.25098 0.25098 0.12549 0.3490 0.4060 28.64E+00 183 0.25098 0.25098 0.25098 0.2975 0.3214 30.15E+00 184 0.25098 0.25098 0.37647 0.2303 0.2130 35.81E+00 185 0.25098 0.25098 0.50196 0.1887 0.1457 4.81E+01 186 0.25098 0.25098 0.62353 0.1681 0.1125 7.05E+01 187 0.25098 0.25098 0.74902 0.1580 0.0958 10.81E+01 188 0.25098 0.25098 0.87451 0.1530 0.0878 1.67E+02 189 0.25098 0.25098 1.00000 0.1509 0.0837 2.34E+02 190 0.25098 0.37647 0.00000 0.3537 0.5057 73.98E+00 191 0.25098 0.37647 0.12549 0.3459 0.4894 74.26E+00 192 0.25098 0.37647 0.25098 0.3187 0.4330 75.76E+00 193 0.25098 0.37647 0.37647 0.2684 0.3299 8.32E+01 194 0.25098 0.37647 0.50196 0.2204 0.2308 9.56E+01 195 0.25098 0.37647 0.62353 0.1892 0.1661 11.79E+01 196 0.25098 0.37647 0.74902 0.1710 0.1285 15.50E+01 197 0.25098 0.37647 0.87451 0.1614 0.1082 2.14E+02 198 0.25098 0.37647 1.00000 0.1562 0.0979 2.82E+02 199 0.25098 0.50196 0.00000 0.3492 0.5368 17.08E+01 200 0.25098 0.50196 0.12549 0.3454 0.5288 17.10E+01 201 0.25098 0.50196 0.25098 0.3316 0.4977 17.29E+01 202 0.25098 0.50196 0.37647 0.2991 0.4239 17.97E+01 203 0.25098 0.50196 0.50196 0.2577 0.3298 19.52E+01 204 0.25098 0.50196 0.62353 0.2202 0.2452 21.82E+01 205 0.25098 0.50196 0.74902 0.1931 0.1838 25.59E+01 206 0.25098 0.50196 0.87451 0.1763 0.1454 3.15E+02 207 0.25098 0.50196 1.00000 0.1673 0.1251 3.83E+02 208 0.25098 0.62353 0.00000 0.3469 0.5502 35.43E+01 209 0.25098 0.62353 0.12549 0.3452 0.5461 35.50E+01 210 0.25098 0.62353 0.25098 0.3380 0.5295 35.68E+01 211 0.25098 0.62353 0.37647 0.3190 0.4843 36.33E+01 212 0.25098 0.62353 0.50196 0.2887 0.4129 37.96E+01 213 0.25098 0.62353 0.62353 0.2544 0.3324 40.80E+01 214 0.25098 0.62353 0.74902 0.2229 0.2580 44.66E+01 215 0.25098 0.62353 0.87451 0.1991 0.2015 5.05E+02 216 0.25098 0.62353 1.00000 0.1852 0.1688 5.75E+02 217 0.25098 0.74902 0.00000 0.3461 0.5564 65.45E+01 218 0.25098 0.74902 0.12549 0.3451 0.5540 65.55E+01 219 0.25098 0.74902 0.25098 0.3411 0.5445 65.72E+01 220 0.25098 0.74902 0.37647 0.3297 0.5172 66.29E+01 221 0.25098 0.74902 0.50196 0.3091 0.4680 67.93E+01 222 0.25098 0.74902 0.62353 0.2816 0.4020 70.72E+01 223 0.25098 0.74902 0.74902 0.2520 0.3312 75.58E+01 224 0.25098 0.74902 0.87451 0.2250 0.2665 8.16E+02 225 0.25098 0.74902 1.00000 0.2072 0.2233 8.85E+02 226 0.25098 0.87451 0.00000 0.3454 0.5590 10.99E+02 227 0.25098 0.87451 0.12549 0.3450 0.5576 10.99E+02 228 0.25098 0.87451 0.25098 0.3425 0.5522 11.01E+02 229 0.25098 0.87451 0.37647 0.3356 0.5348 11.06E+02 230 0.25098 0.87451 0.50196 0.3219 0.5013 11.23E+02 231 0.25098 0.87451 0.62353 0.3011 0.4519 11.51E+02 232 0.25098 0.87451 0.74902 0.2758 0.3903 11.96E+02 233 0.25098 0.87451 0.87451 0.2497 0.3278 12.63E+02 234 0.25098 0.87451 1.00000 0.2303 0.2800 13.33E+02 235 0.25098 1.00000 0.00000 0.3451 0.5605 15.61E+02 236 0.25098 1.00000 0.12549 0.3450 0.5593 15.61E+02 237 0.25098 1.00000 0.25098 0.3433 0.5551 15.62E+02 238 0.25098 1.00000 0.37647 0.3381 0.5431 15.68E+02 239 0.25098 1.00000 0.50196 0.3279 0.5181 15.85E+02 240 0.25098 1.00000 0.62353 0.3119 0.4789 16.12E+02 241 0.25098 1.00000 0.74902 0.2905 0.4270 16.61E+02 242 0.25098 1.00000 0.87451 0.2666 0.3693 17.33E+02 243 0.25098 1.00000 1.00000 0.2478 0.3237 18.21E+02 244 0.37647 0.00000 0.00000 0.4880 0.3398 20.73E+00 245 0.37647 0.00000 0.12549 0.4587 0.3173 21.22E+00 246 0.37647 0.00000 0.25098 0.3799 0.2563 22.88E+00 247 0.37647 0.00000 0.37647 0.2760 0.1767 28.36E+00 248 0.37647 0.00000 0.50196 0.2107 0.1259 4.07E+01 249 0.37647 0.00000 0.62353 0.1793 0.1016 6.31E+01 250 0.37647 0.00000 0.74902 0.1640 0.0897 10.06E+01 251 0.37647 0.00000 0.87451 0.1564 0.0840 1.59E+02 252 0.37647 0.00000 1.00000 0.1530 0.0811 2.28E+02 253 0.37647 0.12549 0.00000 0.4764 0.3556 23.49E+00 254 0.37647 0.12549 0.12549 0.4511 0.3325 23.77E+00 255 0.37647 0.12549 0.25098 0.3778 0.2707 25.41E+00 256 0.37647 0.12549 0.37647 0.2776 0.1873 30.91E+00 257 0.37647 0.12549 0.50196 0.2122 0.1319 4.32E+01 258 0.37647 0.12549 0.62353 0.1806 0.1049 6.56E+01 259 0.37647 0.12549 0.74902 0.1648 0.0916 10.31E+01 260 0.37647 0.12549 0.87451 0.1569 0.0853 1.62E+02 261 0.37647 0.12549 1.00000 0.1535 0.0821 2.31E+02 262 0.37647 0.25098 0.00000 0.4421 0.4096 36.55E+00 263 0.37647 0.25098 0.12549 0.4244 0.3883 36.74E+00 264 0.37647 0.25098 0.25098 0.3698 0.3222 37.33E+00 265 0.37647 0.25098 0.37647 0.2845 0.2287 42.71E+00 266 0.37647 0.25098 0.50196 0.2202 0.1575 5.50E+01 267 0.37647 0.25098 0.62353 0.1858 0.1196 7.74E+01 268 0.37647 0.25098 0.74902 0.1681 0.1001 11.48E+01 269 0.37647 0.25098 0.87451 0.1593 0.0906 1.74E+02 270 0.37647 0.25098 1.00000 0.1549 0.0857 2.43E+02 271 0.37647 0.37647 0.00000 0.3956 0.4821 81.67E+00 272 0.37647 0.37647 0.12549 0.3875 0.4684 81.85E+00 273 0.37647 0.37647 0.25098 0.3590 0.4198 82.11E+00 274 0.37647 0.37647 0.37647 0.3006 0.3230 85.11E+00 275 0.37647 0.37647 0.50196 0.2418 0.2289 9.76E+01 276 0.37647 0.37647 0.62353 0.2023 0.1661 11.98E+01 277 0.37647 0.37647 0.74902 0.1791 0.1289 15.70E+01 278 0.37647 0.37647 0.87451 0.1664 0.1084 2.15E+02 279 0.37647 0.37647 1.00000 0.1599 0.0981 2.84E+02 280 0.37647 0.50196 0.00000 0.3704 0.5229 17.93E+01 281 0.37647 0.50196 0.12549 0.3666 0.5152 17.96E+01 282 0.37647 0.50196 0.25098 0.3527 0.4872 18.01E+01 283 0.37647 0.50196 0.37647 0.3182 0.4179 18.31E+01 284 0.37647 0.50196 0.50196 0.2724 0.3279 19.89E+01 285 0.37647 0.50196 0.62353 0.2308 0.2452 22.17E+01 286 0.37647 0.50196 0.74902 0.2003 0.1846 25.92E+01 287 0.37647 0.50196 0.87451 0.1810 0.1461 3.18E+02 288 0.37647 0.50196 1.00000 0.1707 0.1254 3.87E+02 289 0.37647 0.62353 0.00000 0.3580 0.5427 36.35E+01 290 0.37647 0.62353 0.12549 0.3562 0.5387 36.42E+01 291 0.37647 0.62353 0.25098 0.3491 0.5228 36.42E+01 292 0.37647 0.62353 0.37647 0.3296 0.4797 36.66E+01 293 0.37647 0.62353 0.50196 0.2978 0.4102 38.29E+01 294 0.37647 0.62353 0.62353 0.2618 0.3312 41.14E+01 295 0.37647 0.62353 0.74902 0.2284 0.2579 45.02E+01 296 0.37647 0.62353 0.87451 0.2030 0.2018 5.08E+02 297 0.37647 0.62353 1.00000 0.1880 0.1685 5.77E+02 298 0.37647 0.74902 0.00000 0.3521 0.5519 66.13E+01 299 0.37647 0.74902 0.12549 0.3512 0.5496 66.17E+01 300 0.37647 0.74902 0.25098 0.3471 0.5405 66.25E+01 301 0.37647 0.74902 0.37647 0.3358 0.5141 66.36E+01 302 0.37647 0.74902 0.50196 0.3148 0.4656 68.03E+01 303 0.37647 0.74902 0.62353 0.2864 0.4006 70.87E+01 304 0.37647 0.74902 0.74902 0.2560 0.3306 75.62E+01 305 0.37647 0.74902 0.87451 0.2280 0.2663 8.14E+02 306 0.37647 0.74902 1.00000 0.2094 0.2230 8.85E+02 307 0.37647 0.87451 0.00000 0.3493 0.5559 11.03E+02 308 0.37647 0.87451 0.12549 0.3486 0.5548 11.03E+02 309 0.37647 0.87451 0.25098 0.3461 0.5498 11.04E+02 310 0.37647 0.87451 0.37647 0.3393 0.5323 11.03E+02 311 0.37647 0.87451 0.50196 0.3252 0.4998 11.22E+02 312 0.37647 0.87451 0.62353 0.3043 0.4508 11.51E+02 313 0.37647 0.87451 0.74902 0.2779 0.3897 11.89E+02 314 0.37647 0.87451 0.87451 0.2518 0.3276 12.58E+02 315 0.37647 0.87451 1.00000 0.2316 0.2794 13.27E+02 316 0.37647 1.00000 0.00000 0.3472 0.5579 15.52E+02 317 0.37647 1.00000 0.12549 0.3467 0.5574 15.53E+02 318 0.37647 1.00000 0.25098 0.3452 0.5533 15.53E+02 319 0.37647 1.00000 0.37647 0.3401 0.5411 15.53E+02 320 0.37647 1.00000 0.50196 0.3298 0.5166 15.71E+02 321 0.37647 1.00000 0.62353 0.3134 0.4776 16.00E+02 322 0.37647 1.00000 0.74902 0.2920 0.4260 16.47E+02 323 0.37647 1.00000 0.87451 0.2681 0.3689 17.20E+02 324 0.37647 1.00000 1.00000 0.2486 0.3225 18.06E+02 325 0.50196 0.00000 0.00000 0.5661 0.3406 38.83E+00 326 0.50196 0.00000 0.12549 0.5470 0.3285 39.28E+00 327 0.50196 0.00000 0.25098 0.4835 0.2883 40.98E+00 328 0.50196 0.00000 0.37647 0.3724 0.2189 46.18E+00 329 0.50196 0.00000 0.50196 0.2773 0.1588 5.80E+01 330 0.50196 0.00000 0.62353 0.2181 0.1215 8.04E+01 331 0.50196 0.00000 0.74902 0.1867 0.1015 11.80E+01 332 0.50196 0.00000 0.87451 0.1704 0.0914 1.77E+02 333 0.50196 0.00000 1.00000 0.1626 0.0864 2.46E+02 334 0.50196 0.12549 0.00000 0.5561 0.3488 41.45E+00 335 0.50196 0.12549 0.12549 0.5383 0.3362 41.69E+00 336 0.50196 0.12549 0.25098 0.4784 0.2962 43.39E+00 337 0.50196 0.12549 0.37647 0.3712 0.2256 48.62E+00 338 0.50196 0.12549 0.50196 0.2777 0.1635 6.04E+01 339 0.50196 0.12549 0.62353 0.2189 0.1242 8.27E+01 340 0.50196 0.12549 0.74902 0.1873 0.1032 12.03E+01 341 0.50196 0.12549 0.87451 0.1709 0.0924 1.79E+02 342 0.50196 0.12549 1.00000 0.1627 0.0871 2.48E+02 343 0.50196 0.25098 0.00000 0.5212 0.3840 54.58E+00 344 0.50196 0.25098 0.12549 0.5073 0.3715 54.75E+00 345 0.50196 0.25098 0.25098 0.4596 0.3284 55.39E+00 346 0.50196 0.25098 0.37647 0.3678 0.2548 60.45E+00 347 0.50196 0.25098 0.50196 0.2813 0.1849 7.23E+01 348 0.50196 0.25098 0.62353 0.2226 0.1375 9.45E+01 349 0.50196 0.25098 0.74902 0.1900 0.1113 13.21E+01 350 0.50196 0.25098 0.87451 0.1721 0.0975 1.91E+02 351 0.50196 0.25098 1.00000 0.1640 0.0907 2.60E+02 352 0.50196 0.37647 0.00000 0.4581 0.4472 9.82E+01 353 0.50196 0.37647 0.12549 0.4507 0.4378 9.85E+01 354 0.50196 0.37647 0.25098 0.4227 0.4020 9.88E+01 355 0.50196 0.37647 0.37647 0.3601 0.3227 10.00E+01 356 0.50196 0.37647 0.50196 0.2893 0.2407 11.15E+01 357 0.50196 0.37647 0.62353 0.2334 0.1764 13.38E+01 358 0.50196 0.37647 0.74902 0.1986 0.1365 17.11E+01 359 0.50196 0.37647 0.87451 0.1788 0.1134 2.29E+02 360 0.50196 0.37647 1.00000 0.1686 0.1017 2.98E+02 361 0.50196 0.50196 0.00000 0.4092 0.4974 19.28E+01 362 0.50196 0.50196 0.12549 0.4054 0.4914 19.33E+01 363 0.50196 0.50196 0.25098 0.3912 0.4677 19.39E+01 364 0.50196 0.50196 0.37647 0.3547 0.4071 19.51E+01 365 0.50196 0.50196 0.50196 0.3024 0.3210 20.14E+01 366 0.50196 0.50196 0.62353 0.2521 0.2423 22.40E+01 367 0.50196 0.50196 0.74902 0.2145 0.1835 26.14E+01 368 0.50196 0.50196 0.87451 0.1903 0.1457 3.20E+02 369 0.50196 0.50196 1.00000 0.1776 0.1256 3.89E+02 370 0.50196 0.62353 0.00000 0.3799 0.5276 37.62E+01 371 0.50196 0.62353 0.12549 0.3782 0.5239 37.65E+01 372 0.50196 0.62353 0.25098 0.3708 0.5096 37.72E+01 373 0.50196 0.62353 0.37647 0.3507 0.4701 37.84E+01 374 0.50196 0.62353 0.50196 0.3170 0.4038 38.51E+01 375 0.50196 0.62353 0.62353 0.2769 0.3278 41.34E+01 376 0.50196 0.62353 0.74902 0.2395 0.2563 45.20E+01 377 0.50196 0.62353 0.87451 0.2109 0.2018 5.13E+02 378 0.50196 0.62353 1.00000 0.1941 0.1686 5.81E+02 379 0.50196 0.74902 0.00000 0.3649 0.5429 67.63E+01 380 0.50196 0.74902 0.12549 0.3640 0.5408 67.71E+01 381 0.50196 0.74902 0.25098 0.3600 0.5322 67.81E+01 382 0.50196 0.74902 0.37647 0.3485 0.5073 68.01E+01 383 0.50196 0.74902 0.50196 0.3270 0.4614 69.04E+01 384 0.50196 0.74902 0.62353 0.2970 0.3976 71.54E+01 385 0.50196 0.74902 0.74902 0.2643 0.3286 76.19E+01 386 0.50196 0.74902 0.87451 0.2347 0.2653 8.22E+02 387 0.50196 0.74902 1.00000 0.2147 0.2225 8.91E+02 388 0.50196 0.87451 0.00000 0.3569 0.5506 11.20E+02 389 0.50196 0.87451 0.12549 0.3567 0.5492 11.21E+02 390 0.50196 0.87451 0.25098 0.3544 0.5442 11.21E+02 391 0.50196 0.87451 0.37647 0.3470 0.5281 11.20E+02 392 0.50196 0.87451 0.50196 0.3330 0.4963 11.28E+02 393 0.50196 0.87451 0.62353 0.3113 0.4479 11.57E+02 394 0.50196 0.87451 0.74902 0.2848 0.3882 12.05E+02 395 0.50196 0.87451 0.87451 0.2575 0.3269 12.76E+02 396 0.50196 0.87451 1.00000 0.2364 0.2796 13.47E+02 397 0.50196 1.00000 0.00000 0.3537 0.5542 15.84E+02 398 0.50196 1.00000 0.12549 0.3534 0.5534 15.85E+02 399 0.50196 1.00000 0.25098 0.3516 0.5496 15.85E+02 400 0.50196 1.00000 0.37647 0.3466 0.5379 15.83E+02 401 0.50196 1.00000 0.50196 0.3363 0.5139 15.92E+02 402 0.50196 1.00000 0.62353 0.3196 0.4756 16.19E+02 403 0.50196 1.00000 0.74902 0.2974 0.4246 16.68E+02 404 0.50196 1.00000 0.87451 0.2726 0.3679 17.41E+02 405 0.50196 1.00000 1.00000 0.2527 0.3223 18.28E+02 406 0.62353 0.00000 0.00000 0.6063 0.3408 7.41E+01 407 0.62353 0.00000 0.12549 0.5944 0.3339 7.45E+01 408 0.62353 0.00000 0.25098 0.5531 0.3101 7.62E+01 409 0.62353 0.00000 0.37647 0.4625 0.2584 8.14E+01 410 0.62353 0.00000 0.50196 0.3600 0.1989 9.30E+01 411 0.62353 0.00000 0.62353 0.2793 0.1524 11.40E+01 412 0.62353 0.00000 0.74902 0.2255 0.1214 15.18E+01 413 0.62353 0.00000 0.87451 0.1948 0.1043 2.11E+02 414 0.62353 0.00000 1.00000 0.1798 0.0953 2.80E+02 415 0.62353 0.12549 0.00000 0.6000 0.3452 7.68E+01 416 0.62353 0.12549 0.12549 0.5894 0.3386 7.71E+01 417 0.62353 0.12549 0.25098 0.5493 0.3146 7.88E+01 418 0.62353 0.12549 0.37647 0.4609 0.2627 8.39E+01 419 0.62353 0.12549 0.50196 0.3597 0.2022 9.54E+01 420 0.62353 0.12549 0.62353 0.2798 0.1549 11.65E+01 421 0.62353 0.12549 0.74902 0.2260 0.1230 15.42E+01 422 0.62353 0.12549 0.87451 0.1955 0.1051 2.13E+02 423 0.62353 0.12549 1.00000 0.1801 0.0960 2.82E+02 424 0.62353 0.25098 0.00000 0.5757 0.3662 9.00E+01 425 0.62353 0.25098 0.12549 0.5663 0.3589 9.02E+01 426 0.62353 0.25098 0.25098 0.5321 0.3332 9.08E+01 427 0.62353 0.25098 0.37647 0.4529 0.2806 9.57E+01 428 0.62353 0.25098 0.50196 0.3589 0.2176 10.74E+01 429 0.62353 0.25098 0.62353 0.2813 0.1660 12.86E+01 430 0.62353 0.25098 0.74902 0.2279 0.1303 16.63E+01 431 0.62353 0.25098 0.87451 0.1969 0.1099 2.25E+02 432 0.62353 0.25098 1.00000 0.1814 0.0993 2.94E+02 433 0.62353 0.37647 0.00000 0.5191 0.4139 13.41E+01 434 0.62353 0.37647 0.12549 0.5129 0.4078 13.43E+01 435 0.62353 0.37647 0.25098 0.4897 0.3841 13.46E+01 436 0.62353 0.37647 0.37647 0.4318 0.3273 13.56E+01 437 0.62353 0.37647 0.50196 0.3556 0.2598 14.73E+01 438 0.62353 0.37647 0.62353 0.2858 0.1987 16.85E+01 439 0.62353 0.37647 0.74902 0.2339 0.1530 20.59E+01 440 0.62353 0.37647 0.87451 0.2018 0.1248 2.64E+02 441 0.62353 0.37647 1.00000 0.1849 0.1101 3.34E+02 442 0.62353 0.50196 0.00000 0.4600 0.4646 22.92E+01 443 0.62353 0.50196 0.12549 0.4565 0.4601 22.93E+01 444 0.62353 0.50196 0.25098 0.4429 0.4421 22.99E+01 445 0.62353 0.50196 0.37647 0.4068 0.3949 23.06E+01 446 0.62353 0.50196 0.50196 0.3516 0.3220 23.44E+01 447 0.62353 0.50196 0.62353 0.2938 0.2527 25.49E+01 448 0.62353 0.50196 0.74902 0.2444 0.1936 29.27E+01 449 0.62353 0.50196 0.87451 0.2108 0.1540 3.52E+02 450 0.62353 0.50196 1.00000 0.1925 0.1316 4.21E+02 451 0.62353 0.62353 0.00000 0.4150 0.5034 40.92E+01 452 0.62353 0.62353 0.12549 0.4130 0.5005 40.94E+01 453 0.62353 0.62353 0.25098 0.4057 0.4883 40.99E+01 454 0.62353 0.62353 0.37647 0.3850 0.4545 41.01E+01 455 0.62353 0.62353 0.50196 0.3496 0.3950 41.19E+01 456 0.62353 0.62353 0.62353 0.3043 0.3213 42.15E+01 457 0.62353 0.62353 0.74902 0.2604 0.2535 46.02E+01 458 0.62353 0.62353 0.87451 0.2260 0.2005 5.19E+02 459 0.62353 0.62353 1.00000 0.2052 0.1680 5.88E+02 460 0.62353 0.74902 0.00000 0.3869 0.5268 70.39E+01 461 0.62353 0.74902 0.12549 0.3859 0.5249 70.41E+01 462 0.62353 0.74902 0.25098 0.3818 0.5171 70.54E+01 463 0.62353 0.74902 0.37647 0.3697 0.4948 70.85E+01 464 0.62353 0.74902 0.50196 0.3477 0.4521 71.22E+01 465 0.62353 0.74902 0.62353 0.3158 0.3909 71.88E+01 466 0.62353 0.74902 0.74902 0.2798 0.3255 76.88E+01 467 0.62353 0.74902 0.87451 0.2470 0.2642 8.29E+02 468 0.62353 0.74902 1.00000 0.2242 0.2220 8.99E+02 469 0.62353 0.87451 0.00000 0.3709 0.5400 11.40E+02 470 0.62353 0.87451 0.12549 0.3705 0.5392 11.41E+02 471 0.62353 0.87451 0.25098 0.3678 0.5339 11.41E+02 472 0.62353 0.87451 0.37647 0.3609 0.5189 11.40E+02 473 0.62353 0.87451 0.50196 0.3466 0.4885 11.43E+02 474 0.62353 0.87451 0.62353 0.3243 0.4419 11.53E+02 475 0.62353 0.87451 0.74902 0.2957 0.3840 12.01E+02 476 0.62353 0.87451 0.87451 0.2666 0.3247 12.74E+02 477 0.62353 0.87451 1.00000 0.2439 0.2782 13.46E+02 478 0.62353 1.00000 0.00000 0.3635 0.5465 15.98E+02 479 0.62353 1.00000 0.12549 0.3633 0.5459 15.99E+02 480 0.62353 1.00000 0.25098 0.3616 0.5422 16.00E+02 481 0.62353 1.00000 0.37647 0.3566 0.5309 15.99E+02 482 0.62353 1.00000 0.50196 0.3461 0.5079 16.04E+02 483 0.62353 1.00000 0.62353 0.3290 0.4709 16.12E+02 484 0.62353 1.00000 0.74902 0.3058 0.4211 16.62E+02 485 0.62353 1.00000 0.87451 0.2799 0.3654 17.34E+02 486 0.62353 1.00000 1.00000 0.2590 0.3204 18.21E+02 487 0.74902 0.00000 0.00000 0.6257 0.3410 13.12E+01 488 0.74902 0.00000 0.12549 0.6191 0.3373 13.15E+01 489 0.74902 0.00000 0.25098 0.5933 0.3230 13.31E+01 490 0.74902 0.00000 0.37647 0.5286 0.2873 13.78E+01 491 0.74902 0.00000 0.50196 0.4372 0.2367 14.98E+01 492 0.74902 0.00000 0.62353 0.3485 0.1876 17.03E+01 493 0.74902 0.00000 0.74902 0.2792 0.1493 20.59E+01 494 0.74902 0.00000 0.87451 0.2314 0.1234 2.65E+02 495 0.74902 0.00000 1.00000 0.2061 0.1091 3.33E+02 496 0.74902 0.12549 0.00000 0.6222 0.3434 13.35E+01 497 0.74902 0.12549 0.12549 0.6156 0.3394 13.37E+01 498 0.74902 0.12549 0.25098 0.5904 0.3255 13.55E+01 499 0.74902 0.12549 0.37647 0.5265 0.2896 14.02E+01 500 0.74902 0.12549 0.50196 0.4364 0.2388 15.22E+01 501 0.74902 0.12549 0.62353 0.3482 0.1892 17.27E+01 502 0.74902 0.12549 0.74902 0.2794 0.1504 20.81E+01 503 0.74902 0.12549 0.87451 0.2312 0.1240 2.67E+02 504 0.74902 0.12549 1.00000 0.2063 0.1098 3.36E+02 505 0.74902 0.25098 0.00000 0.6064 0.3558 14.68E+01 506 0.74902 0.25098 0.12549 0.6004 0.3518 14.70E+01 507 0.74902 0.25098 0.25098 0.5775 0.3362 14.77E+01 508 0.74902 0.25098 0.37647 0.5180 0.3005 15.23E+01 509 0.74902 0.25098 0.50196 0.4330 0.2489 16.44E+01 510 0.74902 0.25098 0.62353 0.3479 0.1976 18.53E+01 511 0.74902 0.25098 0.74902 0.2801 0.1566 22.07E+01 512 0.74902 0.25098 0.87451 0.2324 0.1283 2.80E+02 513 0.74902 0.25098 1.00000 0.2069 0.1128 3.49E+02 514 0.74902 0.37647 0.00000 0.5641 0.3889 19.05E+01 515 0.74902 0.37647 0.12549 0.5593 0.3851 19.08E+01 516 0.74902 0.37647 0.25098 0.5417 0.3702 19.12E+01 517 0.74902 0.37647 0.37647 0.4944 0.3309 19.19E+01 518 0.74902 0.37647 0.50196 0.4227 0.2781 20.39E+01 519 0.74902 0.37647 0.62353 0.3465 0.2224 22.48E+01 520 0.74902 0.37647 0.74902 0.2828 0.1757 26.02E+01 521 0.74902 0.37647 0.87451 0.2356 0.1415 3.19E+02 522 0.74902 0.37647 1.00000 0.2099 0.1226 3.88E+02 523 0.74902 0.50196 0.00000 0.5089 0.4331 28.60E+01 524 0.74902 0.50196 0.12549 0.5056 0.4299 28.63E+01 525 0.74902 0.50196 0.25098 0.4939 0.4172 28.68E+01 526 0.74902 0.50196 0.37647 0.4610 0.3829 28.75E+01 527 0.74902 0.50196 0.50196 0.4077 0.3254 29.16E+01 528 0.74902 0.50196 0.62353 0.3452 0.2657 31.20E+01 529 0.74902 0.50196 0.74902 0.2877 0.2107 34.77E+01 530 0.74902 0.50196 0.87451 0.2425 0.1677 4.06E+02 531 0.74902 0.50196 1.00000 0.2160 0.1426 4.76E+02 532 0.74902 0.62353 0.00000 0.4557 0.4755 46.52E+01 533 0.74902 0.62353 0.12549 0.4538 0.4731 46.53E+01 534 0.74902 0.62353 0.25098 0.4469 0.4634 46.55E+01 535 0.74902 0.62353 0.37647 0.4267 0.4363 46.52E+01 536 0.74902 0.62353 0.50196 0.3914 0.3874 46.95E+01 537 0.74902 0.62353 0.62353 0.3435 0.3224 47.56E+01 538 0.74902 0.62353 0.74902 0.2951 0.2614 50.90E+01 539 0.74902 0.62353 0.87451 0.2524 0.2086 5.67E+02 540 0.74902 0.62353 1.00000 0.2258 0.1754 6.37E+02 541 0.74902 0.74902 0.00000 0.4167 0.5064 76.18E+01 542 0.74902 0.74902 0.12549 0.4157 0.5047 76.21E+01 543 0.74902 0.74902 0.25098 0.4117 0.4980 76.25E+01 544 0.74902 0.74902 0.37647 0.3997 0.4783 76.02E+01 545 0.74902 0.74902 0.50196 0.3774 0.4405 76.32E+01 546 0.74902 0.74902 0.62353 0.3440 0.3860 77.13E+01 547 0.74902 0.74902 0.74902 0.3040 0.3211 80.49E+01 548 0.74902 0.74902 0.87451 0.2666 0.2633 8.64E+02 549 0.74902 0.74902 1.00000 0.2410 0.2233 9.34E+02 550 0.74902 0.87451 0.00000 0.3919 0.5250 11.87E+02 551 0.74902 0.87451 0.12549 0.3914 0.5243 11.88E+02 552 0.74902 0.87451 0.25098 0.3892 0.5195 11.88E+02 553 0.74902 0.87451 0.37647 0.3815 0.5055 11.86E+02 554 0.74902 0.87451 0.50196 0.3669 0.4785 11.92E+02 555 0.74902 0.87451 0.62353 0.3441 0.4350 11.97E+02 556 0.74902 0.87451 0.74902 0.3134 0.3780 12.35E+02 557 0.74902 0.87451 0.87451 0.2816 0.3218 13.07E+02 558 0.74902 0.87451 1.00000 0.2572 0.2773 13.78E+02 559 0.74902 1.00000 0.00000 0.3792 0.5354 16.49E+02 560 0.74902 1.00000 0.12549 0.3793 0.5345 16.49E+02 561 0.74902 1.00000 0.25098 0.3775 0.5311 16.50E+02 562 0.74902 1.00000 0.37647 0.3719 0.5210 16.49E+02 563 0.74902 1.00000 0.50196 0.3617 0.4992 16.52E+02 564 0.74902 1.00000 0.62353 0.3442 0.4643 16.58E+02 565 0.74902 1.00000 0.74902 0.3199 0.4153 17.03E+02 566 0.74902 1.00000 0.87451 0.2924 0.3623 17.77E+02 567 0.74902 1.00000 1.00000 0.2703 0.3196 18.67E+02 568 0.87451 0.00000 0.00000 0.6363 0.3410 22.66E+01 569 0.87451 0.00000 0.12549 0.6323 0.3388 22.71E+01 570 0.87451 0.00000 0.25098 0.6165 0.3302 22.88E+01 571 0.87451 0.00000 0.37647 0.5733 0.3069 23.33E+01 572 0.87451 0.00000 0.50196 0.5025 0.2685 24.55E+01 573 0.87451 0.00000 0.62353 0.4195 0.2235 26.63E+01 574 0.87451 0.00000 0.74902 0.3427 0.1820 30.12E+01 575 0.87451 0.00000 0.87451 0.2764 0.1472 3.85E+02 576 0.87451 0.00000 1.00000 0.2428 0.1287 4.52E+02 577 0.87451 0.12549 0.00000 0.6341 0.3425 22.94E+01 578 0.87451 0.12549 0.12549 0.6302 0.3402 22.98E+01 579 0.87451 0.12549 0.25098 0.6147 0.3315 23.14E+01 580 0.87451 0.12549 0.37647 0.5719 0.3084 23.62E+01 581 0.87451 0.12549 0.50196 0.5015 0.2698 24.83E+01 582 0.87451 0.12549 0.62353 0.4191 0.2248 26.90E+01 583 0.87451 0.12549 0.74902 0.3426 0.1830 30.39E+01 584 0.87451 0.12549 0.87451 0.2766 0.1478 3.88E+02 585 0.87451 0.12549 1.00000 0.2430 0.1292 4.55E+02 586 0.87451 0.25098 0.00000 0.6244 0.3498 24.29E+01 587 0.87451 0.25098 0.12549 0.6205 0.3475 24.32E+01 588 0.87451 0.25098 0.25098 0.6059 0.3379 24.36E+01 589 0.87451 0.25098 0.37647 0.5653 0.3147 24.81E+01 590 0.87451 0.25098 0.50196 0.4978 0.2763 26.05E+01 591 0.87451 0.25098 0.62353 0.4176 0.2305 28.13E+01 592 0.87451 0.25098 0.74902 0.3425 0.1876 31.61E+01 593 0.87451 0.25098 0.87451 0.2771 0.1513 3.98E+02 594 0.87451 0.25098 1.00000 0.2435 0.1318 4.66E+02 595 0.87451 0.37647 0.00000 0.5958 0.3715 28.63E+01 596 0.87451 0.37647 0.12549 0.5923 0.3693 28.68E+01 597 0.87451 0.37647 0.25098 0.5800 0.3599 28.71E+01 598 0.87451 0.37647 0.37647 0.5452 0.3342 28.71E+01 599 0.87451 0.37647 0.50196 0.4857 0.2955 29.98E+01 600 0.87451 0.37647 0.62353 0.4127 0.2482 32.07E+01 601 0.87451 0.37647 0.74902 0.3425 0.2027 35.53E+01 602 0.87451 0.37647 0.87451 0.2786 0.1622 4.32E+02 603 0.87451 0.37647 1.00000 0.2446 0.1398 4.99E+02 604 0.87451 0.50196 0.00000 0.5511 0.4058 38.20E+01 605 0.87451 0.50196 0.12549 0.5487 0.4037 38.24E+01 606 0.87451 0.50196 0.25098 0.5394 0.3952 38.26E+01 607 0.87451 0.50196 0.37647 0.5128 0.3715 38.29E+01 608 0.87451 0.50196 0.50196 0.4657 0.3291 38.71E+01 609 0.87451 0.50196 0.62353 0.4042 0.2803 40.77E+01 610 0.87451 0.50196 0.74902 0.3413 0.2304 44.28E+01 611 0.87451 0.50196 0.87451 0.2812 0.1837 5.07E+02 612 0.87451 0.50196 1.00000 0.2480 0.1572 5.73E+02 613 0.87451 0.62353 0.00000 0.4992 0.4455 56.04E+01 614 0.87451 0.62353 0.12549 0.4975 0.4439 56.10E+01 615 0.87451 0.62353 0.25098 0.4914 0.4368 56.14E+01 616 0.87451 0.62353 0.37647 0.4734 0.4165 56.07E+01 617 0.87451 0.62353 0.50196 0.4402 0.3788 56.51E+01 618 0.87451 0.62353 0.62353 0.3927 0.3254 57.07E+01 619 0.87451 0.62353 0.74902 0.3405 0.2721 60.40E+01 620 0.87451 0.62353 0.87451 0.2924 0.2234 6.58E+02 621 0.87451 0.62353 1.00000 0.2580 0.1890 7.28E+02 622 0.87451 0.74902 0.00000 0.4540 0.4802 85.36E+01 623 0.87451 0.74902 0.12549 0.4529 0.4789 85.44E+01 624 0.87451 0.74902 0.25098 0.4491 0.4734 85.39E+01 625 0.87451 0.74902 0.37647 0.4380 0.4572 84.97E+01 626 0.87451 0.74902 0.50196 0.4157 0.4262 85.50E+01 627 0.87451 0.74902 0.62353 0.3818 0.3799 86.37E+01 628 0.87451 0.74902 0.74902 0.3388 0.3249 95.67E+01 629 0.87451 0.74902 0.87451 0.3006 0.2760 10.31E+02 630 0.87451 0.74902 1.00000 0.2705 0.2373 11.02E+02 631 0.87451 0.87451 0.00000 0.4231 0.5036 13.46E+02 632 0.87451 0.87451 0.12549 0.4227 0.5026 13.46E+02 633 0.87451 0.87451 0.25098 0.4207 0.4985 13.27E+02 634 0.87451 0.87451 0.37647 0.4134 0.4863 12.81E+02 635 0.87451 0.87451 0.50196 0.3960 0.4641 12.81E+02 636 0.87451 0.87451 0.62353 0.3727 0.4257 12.86E+02 637 0.87451 0.87451 0.74902 0.3401 0.3736 13.71E+02 638 0.87451 0.87451 0.87451 0.3110 0.3290 18.69E+02 639 0.87451 0.87451 1.00000 0.2883 0.2944 19.42E+02 640 0.87451 1.00000 0.00000 0.4056 0.5171 19.62E+02 641 0.87451 1.00000 0.12549 0.4055 0.5163 19.62E+02 642 0.87451 1.00000 0.25098 0.4042 0.5136 19.29E+02 643 0.87451 1.00000 0.37647 0.3974 0.5057 18.63E+02 644 0.87451 1.00000 0.50196 0.3864 0.4853 17.47E+02 645 0.87451 1.00000 0.62353 0.3666 0.4544 17.34E+02 646 0.87451 1.00000 0.74902 0.3409 0.4075 18.29E+02 647 0.87451 1.00000 0.87451 0.3151 0.3583 23.20E+02 648 0.87451 1.00000 1.00000 0.2947 0.3247 24.11E+02 649 1.00000 0.00000 0.00000 0.6401 0.3410 33.54E+01 650 1.00000 0.00000 0.12549 0.6373 0.3394 33.56E+01 651 1.00000 0.00000 0.25098 0.6266 0.3336 33.73E+01 652 1.00000 0.00000 0.37647 0.5954 0.3169 34.10E+01 653 1.00000 0.00000 0.50196 0.5403 0.2873 35.36E+01 654 1.00000 0.00000 0.62353 0.4678 0.2484 37.40E+01 655 1.00000 0.00000 0.74902 0.3921 0.2078 40.91E+01 656 1.00000 0.00000 0.87451 0.3181 0.1691 4.82E+02 657 1.00000 0.00000 1.00000 0.2743 0.1454 5.92E+02 658 1.00000 0.12549 0.00000 0.6387 0.3418 33.71E+01 659 1.00000 0.12549 0.12549 0.6360 0.3403 33.74E+01 660 1.00000 0.12549 0.25098 0.6252 0.3344 33.92E+01 661 1.00000 0.12549 0.37647 0.5943 0.3177 34.31E+01 662 1.00000 0.12549 0.50196 0.5395 0.2880 35.57E+01 663 1.00000 0.12549 0.62353 0.4672 0.2491 37.64E+01 664 1.00000 0.12549 0.74902 0.3918 0.2083 41.16E+01 665 1.00000 0.12549 0.87451 0.3181 0.1695 4.85E+02 666 1.00000 0.12549 1.00000 0.2742 0.1459 5.96E+02 667 1.00000 0.25098 0.00000 0.6319 0.3469 35.09E+01 668 1.00000 0.25098 0.12549 0.6295 0.3453 35.10E+01 669 1.00000 0.25098 0.25098 0.6191 0.3387 35.16E+01 670 1.00000 0.25098 0.37647 0.5890 0.3222 35.56E+01 671 1.00000 0.25098 0.50196 0.5359 0.2925 36.84E+01 672 1.00000 0.25098 0.62353 0.4653 0.2532 38.90E+01 673 1.00000 0.25098 0.74902 0.3911 0.2119 42.44E+01 674 1.00000 0.25098 0.87451 0.3175 0.1721 4.96E+02 675 1.00000 0.25098 1.00000 0.2746 0.1480 6.07E+02 676 1.00000 0.37647 0.00000 0.6112 0.3624 39.35E+01 677 1.00000 0.37647 0.12549 0.6088 0.3608 39.38E+01 678 1.00000 0.37647 0.25098 0.5996 0.3543 39.44E+01 679 1.00000 0.37647 0.37647 0.5732 0.3358 39.49E+01 680 1.00000 0.37647 0.50196 0.5245 0.3061 40.69E+01 681 1.00000 0.37647 0.62353 0.4592 0.2663 42.76E+01 682 1.00000 0.37647 0.74902 0.3890 0.2237 46.26E+01 683 1.00000 0.37647 0.87451 0.3187 0.1813 5.28E+02 684 1.00000 0.37647 1.00000 0.2753 0.1549 6.41E+02 685 1.00000 0.50196 0.00000 0.5758 0.3891 48.98E+01 686 1.00000 0.50196 0.12549 0.5738 0.3877 48.99E+01 687 1.00000 0.50196 0.25098 0.5663 0.3817 49.07E+01 688 1.00000 0.50196 0.37647 0.5447 0.3641 49.00E+01 689 1.00000 0.50196 0.50196 0.5046 0.3316 49.49E+01 690 1.00000 0.50196 0.62353 0.4480 0.2911 51.50E+01 691 1.00000 0.50196 0.74902 0.3848 0.2459 55.03E+01 692 1.00000 0.50196 0.87451 0.3267 0.2045 6.04E+02 693 1.00000 0.50196 1.00000 0.2780 0.1697 7.18E+02 694 1.00000 0.62353 0.00000 0.5293 0.4244 66.81E+01 695 1.00000 0.62353 0.12549 0.5279 0.4229 66.76E+01 696 1.00000 0.62353 0.25098 0.5224 0.4176 66.91E+01 697 1.00000 0.62353 0.37647 0.5067 0.4020 66.79E+01 698 1.00000 0.62353 0.50196 0.4767 0.3721 67.28E+01 699 1.00000 0.62353 0.62353 0.4318 0.3275 67.78E+01 700 1.00000 0.62353 0.74902 0.3790 0.2805 71.14E+01 701 1.00000 0.62353 0.87451 0.3275 0.2350 7.65E+02 702 1.00000 0.62353 1.00000 0.2855 0.1977 8.59E+02 703 1.00000 0.74902 0.00000 0.4831 0.4588 9.63E+02 704 1.00000 0.74902 0.12549 0.4822 0.4579 9.63E+02 705 1.00000 0.74902 0.25098 0.4791 0.4536 9.64E+02 706 1.00000 0.74902 0.37647 0.4683 0.4408 9.60E+02 707 1.00000 0.74902 0.50196 0.4477 0.4146 9.64E+02 708 1.00000 0.74902 0.62353 0.4144 0.3751 9.73E+02 709 1.00000 0.74902 0.74902 0.3692 0.3267 10.70E+02 710 1.00000 0.74902 0.87451 0.3280 0.2813 11.40E+02 711 1.00000 0.74902 1.00000 0.2962 0.2454 12.08E+02 712 1.00000 0.87451 0.00000 0.4490 0.4844 13.83E+02 713 1.00000 0.87451 0.12549 0.4486 0.4839 13.83E+02 714 1.00000 0.87451 0.25098 0.4441 0.4820 13.83E+02 715 1.00000 0.87451 0.37647 0.4365 0.4720 13.82E+02 716 1.00000 0.87451 0.50196 0.4222 0.4511 13.88E+02 717 1.00000 0.87451 0.62353 0.3986 0.4175 13.94E+02 718 1.00000 0.87451 0.74902 0.3645 0.3707 14.89E+02 719 1.00000 0.87451 0.87451 0.3286 0.3304 20.67E+02 720 1.00000 0.87451 1.00000 0.3071 0.3001 21.61E+02 721 1.00000 1.00000 0.00000 0.4233 0.5048 22.47E+02 722 1.00000 1.00000 0.12549 0.4230 0.5046 22.44E+02 723 1.00000 1.00000 0.25098 0.4220 0.5018 22.13E+02 724 1.00000 1.00000 0.37647 0.4182 0.4929 20.96E+02 725 1.00000 1.00000 0.50196 0.4080 0.4751 19.34E+02 726 1.00000 1.00000 0.62353 0.3884 0.4455 18.43E+02 727 1.00000 1.00000 0.74902 0.3613 0.4026 19.41E+02 728 1.00000 1.00000 0.87451 0.3306 0.3571 25.24E+02 729 1.00000 1.00000 1.00000 0.3126 0.3292 32.98E+02 730 1.00000 1.00000 1.00000 0.3126 0.3291 33.00E+02 731 0.87451 1.00000 1.00000 0.2949 0.3253 24.31E+02 732 0.74902 1.00000 1.00000 0.2704 0.3196 18.72E+02 733 0.62353 1.00000 1.00000 0.2593 0.3207 18.35E+02 734 0.50196 1.00000 1.00000 0.2528 0.3226 18.27E+02 735 0.37647 1.00000 1.00000 0.2486 0.3224 18.04E+02 736 0.25098 1.00000 1.00000 0.2472 0.3231 18.04E+02 737 0.12549 1.00000 1.00000 0.2469 0.3231 18.02E+02 738 0.00000 1.00000 1.00000 0.2467 0.3231 18.02E+02 739 1.00000 0.87451 0.87451 0.3287 0.3300 20.52E+02 740 0.87451 0.87451 0.87451 0.3110 0.3289 18.57E+02 741 0.74902 0.87451 0.87451 0.2816 0.3215 13.05E+02 742 0.62353 0.87451 0.87451 0.2666 0.3247 12.73E+02 743 0.50196 0.87451 0.87451 0.2569 0.3264 12.63E+02 744 0.37647 0.87451 0.87451 0.2519 0.3277 12.54E+02 745 0.25098 0.87451 0.87451 0.2493 0.3269 12.48E+02 746 0.12549 0.87451 0.87451 0.2488 0.3272 12.48E+02 747 0.00000 0.87451 0.87451 0.2487 0.3271 12.47E+02 748 1.00000 0.74902 0.74902 0.3691 0.3264 10.62E+02 749 0.87451 0.74902 0.74902 0.3390 0.3247 9.48E+02 750 0.74902 0.74902 0.74902 0.3039 0.3215 8.04E+02 751 0.62353 0.74902 0.74902 0.2801 0.3256 7.67E+02 752 0.50196 0.74902 0.74902 0.2642 0.3281 7.55E+02 753 0.37647 0.74902 0.74902 0.2559 0.3300 7.49E+02 754 0.25098 0.74902 0.74902 0.2518 0.3313 7.50E+02 755 0.12549 0.74902 0.74902 0.2507 0.3313 7.48E+02 756 0.00000 0.74902 0.74902 0.2507 0.3313 7.48E+02 757 1.00000 0.62353 0.62353 0.4322 0.3274 67.36E+01 758 0.87451 0.62353 0.62353 0.3931 0.3252 56.60E+01 759 0.74902 0.62353 0.62353 0.3437 0.3220 47.06E+01 760 0.62353 0.62353 0.62353 0.3043 0.3214 42.00E+01 761 0.50196 0.62353 0.62353 0.2767 0.3275 41.23E+01 762 0.37647 0.62353 0.62353 0.2614 0.3308 40.76E+01 763 0.25098 0.62353 0.62353 0.2543 0.3320 40.53E+01 764 0.12549 0.62353 0.62353 0.2523 0.3324 40.44E+01 765 0.00000 0.62353 0.62353 0.2521 0.3326 40.46E+01 766 1.00000 0.50196 0.50196 0.5048 0.3317 49.36E+01 767 0.87451 0.50196 0.50196 0.4659 0.3292 38.50E+01 768 0.74902 0.50196 0.50196 0.4079 0.3254 28.96E+01 769 0.62353 0.50196 0.50196 0.3517 0.3219 23.28E+01 770 0.50196 0.50196 0.50196 0.3024 0.3209 20.14E+01 771 0.37647 0.50196 0.50196 0.2722 0.3276 19.77E+01 772 0.25098 0.50196 0.50196 0.2576 0.3301 19.49E+01 773 0.12549 0.50196 0.50196 0.2537 0.3309 19.44E+01 774 0.00000 0.50196 0.50196 0.2531 0.3308 19.40E+01 775 1.00000 0.37647 0.37647 0.5734 0.3359 39.38E+01 776 0.87451 0.37647 0.37647 0.5454 0.3344 28.57E+01 777 0.74902 0.37647 0.37647 0.4946 0.3311 19.12E+01 778 0.62353 0.37647 0.37647 0.4319 0.3272 13.50E+01 779 0.50196 0.37647 0.37647 0.3602 0.3228 10.01E+01 780 0.37647 0.37647 0.37647 0.3009 0.3229 8.49E+01 781 0.25098 0.37647 0.37647 0.2685 0.3302 8.30E+01 782 0.12549 0.37647 0.37647 0.2594 0.3323 8.25E+01 783 0.00000 0.37647 0.37647 0.2582 0.3325 8.23E+01 784 1.00000 0.25098 0.25098 0.6192 0.3389 35.17E+01 785 0.87451 0.25098 0.25098 0.6061 0.3381 24.31E+01 786 0.74902 0.25098 0.25098 0.5780 0.3361 14.76E+01 787 0.62353 0.25098 0.25098 0.5326 0.3331 9.05E+01 788 0.50196 0.25098 0.25098 0.4602 0.3289 55.37E+00 789 0.37647 0.25098 0.25098 0.3702 0.3224 37.24E+00 790 0.25098 0.25098 0.25098 0.2977 0.3219 30.10E+00 791 0.12549 0.25098 0.25098 0.2736 0.3276 29.57E+00 792 0.00000 0.25098 0.25098 0.2696 0.3281 29.44E+00 793 1.00000 0.12549 0.12549 0.6361 0.3402 33.83E+01 794 0.87451 0.12549 0.12549 0.6303 0.3402 23.01E+01 795 0.74902 0.12549 0.12549 0.6160 0.3395 13.43E+01 796 0.62353 0.12549 0.12549 0.5899 0.3382 7.71E+01 797 0.50196 0.12549 0.12549 0.5390 0.3362 41.76E+00 798 0.37647 0.12549 0.12549 0.4515 0.3322 23.75E+00 799 0.25098 0.12549 0.12549 0.3524 0.3275 15.24E+00 800 0.12549 0.12549 0.12549 0.3046 0.3300 13.65E+00 801 0.00000 0.12549 0.12549 0.2970 0.3324 13.50E+00 802 1.00000 0.00000 0.00000 0.6405 0.3407 33.66E+01 803 0.87451 0.00000 0.00000 0.6365 0.3409 22.75E+01 804 0.74902 0.00000 0.00000 0.6263 0.3408 13.16E+01 805 0.62353 0.00000 0.00000 0.6061 0.3407 7.43E+01 806 0.50196 0.00000 0.00000 0.5664 0.3403 38.82E+00 807 0.37647 0.00000 0.00000 0.4881 0.3394 20.76E+00 808 0.25098 0.00000 0.00000 0.3857 0.3394 12.40E+00 809 0.12549 0.00000 0.00000 0.3278 0.3384 10.24E+00 810 0.00000 0.00000 0.00000 0.3182 0.3422 10.12E+00 811 1.00000 1.00000 1.00000 0.3126 0.3291 33.04E+02 812 0.87451 0.87451 1.00000 0.2885 0.2944 19.47E+02 813 0.74902 0.74902 1.00000 0.2410 0.2236 9.41E+02 814 0.62353 0.62353 1.00000 0.2053 0.1684 5.92E+02 815 0.50196 0.50196 1.00000 0.1773 0.1255 3.92E+02 816 0.37647 0.37647 1.00000 0.1599 0.0983 2.86E+02 817 0.25098 0.25098 1.00000 0.1507 0.0839 2.36E+02 818 0.12549 0.12549 1.00000 0.1481 0.0796 2.22E+02 819 0.00000 0.00000 1.00000 0.1475 0.0784 2.18E+02 820 1.00000 1.00000 0.87451 0.3306 0.3567 25.26E+02 821 0.87451 0.87451 0.87451 0.3111 0.3292 18.74E+02 822 0.74902 0.74902 0.87451 0.2669 0.2635 8.71E+02 823 0.62353 0.62353 0.87451 0.2265 0.2004 5.22E+02 824 0.50196 0.50196 0.87451 0.1903 0.1457 3.23E+02 825 0.37647 0.37647 0.87451 0.1662 0.1085 2.16E+02 826 0.25098 0.25098 0.87451 0.1530 0.0877 1.68E+02 827 0.12549 0.12549 0.87451 0.1492 0.0812 1.53E+02 828 0.00000 0.00000 0.87451 0.1484 0.0798 1.50E+02 829 1.00000 1.00000 0.74902 0.3613 0.4023 19.42E+02 830 0.87451 0.87451 0.74902 0.3400 0.3735 13.73E+02 831 0.74902 0.74902 0.74902 0.3043 0.3217 8.12E+02 832 0.62353 0.62353 0.74902 0.2605 0.2537 46.24E+01 833 0.50196 0.50196 0.74902 0.2145 0.1835 26.35E+01 834 0.37647 0.37647 0.74902 0.1791 0.1290 15.76E+01 835 0.25098 0.25098 0.74902 0.1579 0.0957 10.86E+01 836 0.12549 0.12549 0.74902 0.1513 0.0848 9.36E+01 837 0.00000 0.00000 0.74902 0.1499 0.0823 9.05E+01 838 1.00000 1.00000 0.62353 0.3884 0.4454 18.44E+02 839 0.87451 0.87451 0.62353 0.3726 0.4258 12.88E+02 840 0.74902 0.74902 0.62353 0.3440 0.3859 77.21E+01 841 0.62353 0.62353 0.62353 0.3043 0.3215 42.35E+01 842 0.50196 0.50196 0.62353 0.2521 0.2424 22.59E+01 843 0.37647 0.37647 0.62353 0.2023 0.1660 12.02E+01 844 0.25098 0.25098 0.62353 0.1681 0.1121 7.06E+01 845 0.12549 0.12549 0.62353 0.1564 0.0929 5.58E+01 846 0.00000 0.00000 0.62353 0.1539 0.0886 5.27E+01 847 1.00000 1.00000 0.50196 0.4080 0.4751 19.34E+02 848 0.87451 0.87451 0.50196 0.3961 0.4638 12.81E+02 849 0.74902 0.74902 0.50196 0.3774 0.4405 76.38E+01 850 0.62353 0.62353 0.50196 0.3497 0.3955 41.40E+01 851 0.50196 0.50196 0.50196 0.3023 0.3211 20.31E+01 852 0.37647 0.37647 0.50196 0.2417 0.2288 9.75E+01 853 0.25098 0.25098 0.50196 0.1885 0.1455 4.81E+01 854 0.12549 0.12549 0.50196 0.1671 0.1105 3.34E+01 855 0.00000 0.00000 0.50196 0.1627 0.1023 3.03E+01 856 1.00000 1.00000 0.37647 0.4183 0.4923 20.82E+02 857 0.87451 0.87451 0.37647 0.4134 0.4859 12.73E+02 858 0.74902 0.74902 0.37647 0.3997 0.4778 75.46E+01 859 0.62353 0.62353 0.37647 0.3851 0.4537 40.70E+01 860 0.50196 0.50196 0.37647 0.3545 0.4065 19.48E+01 861 0.37647 0.37647 0.37647 0.3005 0.3222 8.48E+01 862 0.25098 0.25098 0.37647 0.2305 0.2132 3.58E+01 863 0.12549 0.12549 0.37647 0.1929 0.1521 2.13E+01 864 0.00000 0.00000 0.37647 0.1839 0.1353 1.81E+01 865 1.00000 1.00000 0.25098 0.4221 0.5013 21.92E+02 866 0.87451 0.87451 0.25098 0.4206 0.4981 13.17E+02 867 0.74902 0.74902 0.25098 0.4118 0.4975 75.58E+01 868 0.62353 0.62353 0.25098 0.4056 0.4878 40.64E+01 869 0.50196 0.50196 0.25098 0.3910 0.4672 19.37E+01 870 0.37647 0.37647 0.25098 0.3588 0.4188 81.48E+00 871 0.25098 0.25098 0.25098 0.2973 0.3212 29.97E+00 872 0.12549 0.12549 0.25098 0.2457 0.2357 15.33E+00 873 0.00000 0.00000 0.25098 0.2312 0.2077 12.28E+00 874 1.00000 1.00000 0.12549 0.4232 0.5040 22.22E+02 875 0.87451 0.87451 0.12549 0.4226 0.5023 13.36E+02 876 0.74902 0.74902 0.12549 0.4158 0.5043 75.45E+01 877 0.62353 0.62353 0.12549 0.4129 0.5001 40.56E+01 878 0.50196 0.50196 0.12549 0.4057 0.4912 19.30E+01 879 0.37647 0.37647 0.12549 0.3875 0.4677 81.23E+00 880 0.25098 0.25098 0.12549 0.3493 0.4066 28.43E+00 881 0.12549 0.12549 0.12549 0.3046 0.3301 13.58E+00 882 0.00000 0.00000 0.12549 0.2899 0.2981 10.49E+00 883 1.00000 1.00000 0.00000 0.4235 0.5046 22.25E+02 884 0.87451 0.87451 0.00000 0.4234 0.5034 13.34E+02 885 0.74902 0.74902 0.00000 0.4168 0.5060 75.46E+01 886 0.62353 0.62353 0.00000 0.4149 0.5032 40.53E+01 887 0.50196 0.50196 0.00000 0.4092 0.4974 19.28E+01 888 0.37647 0.37647 0.00000 0.3958 0.4811 80.68E+00 889 0.25098 0.25098 0.00000 0.3666 0.4355 28.20E+00 890 0.12549 0.12549 0.00000 0.3301 0.3699 13.01E+00 891 0.00000 0.00000 0.00000 0.3177 0.3415 10.05E+00 892 1.00000 1.00000 1.00000 0.3125 0.3289 32.75E+02 893 1.00000 0.87451 1.00000 0.3072 0.2999 21.47E+02 894 1.00000 0.74902 1.00000 0.2963 0.2453 12.01E+02 895 1.00000 0.62353 1.00000 0.2858 0.1979 8.57E+02 896 1.00000 0.50196 1.00000 0.2781 0.1700 7.17E+02 897 1.00000 0.37647 1.00000 0.2755 0.1551 6.40E+02 898 1.00000 0.25098 1.00000 0.2748 0.1482 6.06E+02 899 1.00000 0.12549 1.00000 0.2743 0.1461 5.96E+02 900 1.00000 0.00000 1.00000 0.2742 0.1454 5.93E+02 901 0.87451 1.00000 0.87451 0.3151 0.3583 23.22E+02 902 0.87451 0.87451 0.87451 0.3111 0.3290 18.59E+02 903 0.87451 0.74902 0.87451 0.3006 0.2761 10.26E+02 904 0.87451 0.62353 0.87451 0.2929 0.2235 6.54E+02 905 0.87451 0.50196 0.87451 0.2814 0.1841 5.05E+02 906 0.87451 0.37647 0.87451 0.2789 0.1621 4.29E+02 907 0.87451 0.25098 0.87451 0.2774 0.1513 3.96E+02 908 0.87451 0.12549 0.87451 0.2769 0.1478 3.86E+02 909 0.87451 0.00000 0.87451 0.2765 0.1472 3.84E+02 910 0.74902 1.00000 0.74902 0.3196 0.4150 16.98E+02 911 0.74902 0.87451 0.74902 0.3138 0.3782 12.38E+02 912 0.74902 0.74902 0.74902 0.3044 0.3215 8.07E+02 913 0.74902 0.62353 0.74902 0.2953 0.2614 50.65E+01 914 0.74902 0.50196 0.74902 0.2879 0.2110 34.70E+01 915 0.74902 0.37647 0.74902 0.2830 0.1759 25.98E+01 916 0.74902 0.25098 0.74902 0.2801 0.1566 22.10E+01 917 0.74902 0.12549 0.74902 0.2793 0.1505 20.88E+01 918 0.74902 0.00000 0.74902 0.2791 0.1491 20.63E+01 919 0.62353 1.00000 0.62353 0.3295 0.4712 16.26E+02 920 0.62353 0.87451 0.62353 0.3246 0.4425 11.63E+02 921 0.62353 0.74902 0.62353 0.3161 0.3916 72.42E+01 922 0.62353 0.62353 0.62353 0.3044 0.3218 42.32E+01 923 0.62353 0.50196 0.62353 0.2939 0.2530 25.50E+01 924 0.62353 0.37647 0.62353 0.2860 0.1991 16.85E+01 925 0.62353 0.25098 0.62353 0.2815 0.1663 12.86E+01 926 0.62353 0.12549 0.62353 0.2799 0.1551 11.64E+01 927 0.62353 0.00000 0.62353 0.2795 0.1526 11.40E+01 928 0.50196 1.00000 0.50196 0.3361 0.5140 15.92E+02 929 0.50196 0.87451 0.50196 0.3327 0.4965 11.28E+02 930 0.50196 0.74902 0.50196 0.3269 0.4615 69.10E+01 931 0.50196 0.62353 0.50196 0.3171 0.4041 38.75E+01 932 0.50196 0.50196 0.50196 0.3026 0.3213 20.27E+01 933 0.50196 0.37647 0.50196 0.2895 0.2409 11.22E+01 934 0.50196 0.25098 0.50196 0.2811 0.1848 7.25E+01 935 0.50196 0.12549 0.50196 0.2778 0.1633 6.05E+01 936 0.50196 0.00000 0.50196 0.2771 0.1585 5.80E+01 937 0.37647 1.00000 0.37647 0.3407 0.5415 15.67E+02 938 0.37647 0.87451 0.37647 0.3393 0.5325 11.05E+02 939 0.37647 0.74902 0.37647 0.3358 0.5140 66.51E+01 940 0.37647 0.62353 0.37647 0.3297 0.4798 36.73E+01 941 0.37647 0.50196 0.37647 0.3182 0.4178 18.37E+01 942 0.37647 0.37647 0.37647 0.3009 0.3232 8.57E+01 943 0.37647 0.25098 0.37647 0.2848 0.2293 4.30E+01 944 0.37647 0.12549 0.37647 0.2779 0.1875 31.09E+00 945 0.37647 0.00000 0.37647 0.2762 0.1769 28.46E+00 946 0.25098 1.00000 0.25098 0.3434 0.5554 15.69E+02 947 0.25098 0.87451 0.25098 0.3425 0.5522 11.06E+02 948 0.25098 0.74902 0.25098 0.3412 0.5446 66.03E+01 949 0.25098 0.62353 0.25098 0.3384 0.5296 35.99E+01 950 0.25098 0.50196 0.25098 0.3322 0.4980 17.48E+01 951 0.25098 0.37647 0.25098 0.3192 0.4337 76.55E+00 952 0.25098 0.25098 0.25098 0.2974 0.3216 30.34E+00 953 0.25098 0.12549 0.25098 0.2831 0.2440 17.20E+00 954 0.25098 0.00000 0.25098 0.2794 0.2229 14.65E+00 955 0.12549 1.00000 0.12549 0.3442 0.5600 15.67E+02 956 0.12549 0.87451 0.12549 0.3443 0.5585 11.03E+02 957 0.12549 0.74902 0.12549 0.3435 0.5552 65.72E+01 958 0.12549 0.62353 0.12549 0.3425 0.5483 35.62E+01 959 0.12549 0.50196 0.12549 0.3400 0.5329 17.15E+01 960 0.12549 0.37647 0.12549 0.3332 0.4975 73.69E+00 961 0.12549 0.25098 0.12549 0.3198 0.4172 27.44E+00 962 0.12549 0.12549 0.12549 0.3050 0.3306 13.69E+00 963 0.12549 0.00000 0.12549 0.2986 0.2961 10.71E+00 964 0.00000 1.00000 0.00000 0.3447 0.5611 15.66E+02 965 0.00000 0.87451 0.00000 0.3442 0.5602 11.02E+02 966 0.00000 0.74902 0.00000 0.3442 0.5578 65.61E+01 967 0.00000 0.62353 0.00000 0.3439 0.5532 35.52E+01 968 0.00000 0.50196 0.00000 0.3425 0.5421 17.06E+01 969 0.00000 0.37647 0.00000 0.3386 0.5160 72.79E+00 970 0.00000 0.25098 0.00000 0.3312 0.4518 26.64E+00 971 0.00000 0.12549 0.00000 0.3214 0.3741 13.00E+00 972 0.00000 0.00000 0.00000 0.3179 0.3422 10.15E+00 973 0.00000 0.00000 0.00000 0.3176 0.3415 10.14E+00 974 0.12549 0.12549 0.12549 0.3043 0.3301 13.70E+00 975 0.25098 0.25098 0.25098 0.2973 0.3213 30.29E+00 976 0.37647 0.37647 0.37647 0.3005 0.3227 8.58E+01 977 0.50196 0.50196 0.50196 0.3023 0.3207 20.36E+01 978 0.62353 0.62353 0.62353 0.3042 0.3213 42.50E+01 979 0.74902 0.74902 0.74902 0.3040 0.3213 81.35E+01 980 0.87451 0.87451 0.87451 0.3109 0.3291 18.80E+02 981 1.00000 1.00000 1.00000 0.3125 0.3290 33.17E+02 982 0.00000 0.00000 0.00000 0.3174 0.3413 10.11E+00 983 0.12549 0.12549 0.12549 0.3045 0.3301 13.65E+00 984 0.25098 0.25098 0.25098 0.2973 0.3214 30.25E+00 985 0.37647 0.37647 0.37647 0.3008 0.3227 8.57E+01 986 0.50196 0.50196 0.50196 0.3022 0.3208 20.36E+01 987 0.62353 0.62353 0.62353 0.3042 0.3214 42.52E+01 988 0.74902 0.74902 0.74902 0.3040 0.3213 81.30E+01 989 0.87451 0.87451 0.87451 0.3110 0.3288 18.63E+02 990 1.00000 1.00000 1.00000 0.3126 0.3287 32.88E+02 991 0.00000 0.00000 0.00000 0.3174 0.3415 10.08E+00 992 0.12549 0.12549 0.12549 0.3046 0.3296 13.57E+00 993 0.25098 0.25098 0.25098 0.2973 0.3208 29.95E+00 994 0.37647 0.37647 0.37647 0.3004 0.3220 84.57E+00 995 0.50196 0.50196 0.50196 0.3022 0.3203 20.13E+01 996 0.62353 0.62353 0.62353 0.3042 0.3211 42.08E+01 997 0.74902 0.74902 0.74902 0.3040 0.3210 80.45E+01 998 0.87451 0.87451 0.87451 0.3109 0.3289 18.62E+02 999 1.00000 1.00000 1.00000 0.3126 0.3287 32.85E+02 1000 0.00000 0.00000 0.00000 0.3181 0.3418 10.07E+00 1001 0.12549 0.12549 0.12549 0.3044 0.3296 13.61E+00 1002 0.25098 0.25098 0.25098 0.2972 0.3213 30.06E+00 1003 0.37647 0.37647 0.37647 0.3003 0.3221 84.65E+00 1004 0.50196 0.50196 0.50196 0.3021 0.3204 20.14E+01 1005 0.62353 0.62353 0.62353 0.3042 0.3210 42.04E+01 1006 0.74902 0.74902 0.74902 0.3040 0.3209 80.44E+01 1007 0.87451 0.87451 0.87451 0.3109 0.3288 18.60E+02 1008 1.00000 1.00000 1.00000 0.3126 0.3287 32.83E+02 1009 0.00000 0.00000 0.00000 0.3171 0.3408 10.10E+00 1010 0.06667 0.06667 0.06667 0.3108 0.3348 11.13E+00 1011 0.13333 0.13333 0.13333 0.3042 0.3290 13.56E+00 1012 0.20000 0.20000 0.20000 0.3013 0.3261 19.87E+00 1013 0.26667 0.26667 0.26667 0.2990 0.3217 35.23E+00 1014 0.33333 0.33333 0.33333 0.2987 0.3193 60.64E+00 1015 0.40000 0.40000 0.40000 0.3013 0.3233 10.16E+01 1016 0.46667 0.46667 0.46667 0.3007 0.3193 16.10E+01 1017 0.53333 0.53333 0.53333 0.3020 0.3200 24.34E+01 1018 0.60000 0.60000 0.60000 0.3040 0.3201 35.97E+01 1019 0.66667 0.66667 0.66667 0.3046 0.3220 52.38E+01 1020 0.73333 0.73333 0.73333 0.3046 0.3216 71.64E+01 1021 0.80000 0.80000 0.80000 0.3074 0.3259 11.64E+02 1022 0.86667 0.86667 0.86667 0.3106 0.3280 17.77E+02 1023 0.93333 0.93333 0.93333 0.3123 0.3298 25.20E+02 1024 1.00000 1.00000 1.00000 0.3125 0.3288 32.79E+02 1025 0.00000 0.00000 0.00000 0.3175 0.3416 10.05E+00 1026 0.06667 0.06667 0.06667 0.3111 0.3357 11.08E+00 1027 0.13333 0.13333 0.13333 0.3041 0.3291 13.55E+00 1028 0.20000 0.20000 0.20000 0.3013 0.3261 19.86E+00 1029 0.26667 0.26667 0.26667 0.2990 0.3220 35.29E+00 1030 0.33333 0.33333 0.33333 0.2988 0.3196 60.62E+00 1031 0.40000 0.40000 0.40000 0.3014 0.3234 10.15E+01 1032 0.46667 0.46667 0.46667 0.3007 0.3196 16.11E+01 1033 0.53333 0.53333 0.53333 0.3021 0.3204 24.37E+01 1034 0.60000 0.60000 0.60000 0.3040 0.3204 36.01E+01 1035 0.66667 0.66667 0.66667 0.3047 0.3222 52.43E+01 1036 0.73333 0.73333 0.73333 0.3047 0.3218 71.71E+01 1037 0.80000 0.80000 0.80000 0.3077 0.3261 11.65E+02 1038 0.86667 0.86667 0.86667 0.3106 0.3281 17.77E+02 1039 0.93333 0.93333 0.93333 0.3123 0.3300 25.22E+02 1040 1.00000 1.00000 1.00000 0.3126 0.3290 32.83E+02 1041 0.00000 0.00000 0.00000 0.3180 0.3418 10.05E+00 1042 0.06667 0.06667 0.06667 0.3114 0.3369 11.12E+00 1043 0.13333 0.13333 0.13333 0.3043 0.3301 13.59E+00 1044 0.20000 0.20000 0.20000 0.3015 0.3268 19.94E+00 1045 0.26667 0.26667 0.26667 0.2991 0.3224 35.34E+00 1046 0.33333 0.33333 0.33333 0.2987 0.3198 60.86E+00 1047 0.40000 0.40000 0.40000 0.3013 0.3233 10.17E+01 1048 0.46667 0.46667 0.46667 0.3007 0.3197 16.16E+01 1049 0.53333 0.53333 0.53333 0.3022 0.3207 24.47E+01 1050 0.60000 0.60000 0.60000 0.3040 0.3206 36.15E+01 1051 0.66667 0.66667 0.66667 0.3047 0.3224 52.63E+01 1052 0.73333 0.73333 0.73333 0.3048 0.3220 72.02E+01 1053 0.80000 0.80000 0.80000 0.3077 0.3261 11.69E+02 1054 0.86667 0.86667 0.86667 0.3107 0.3282 17.83E+02 1055 0.93333 0.93333 0.93333 0.3123 0.3301 25.33E+02 1056 1.00000 1.00000 1.00000 0.3125 0.3291 33.08E+02 1057 0.00000 0.00000 0.00000 0.3179 0.3422 10.13E+00 1058 0.06667 0.06667 0.06667 0.3115 0.3362 11.16E+00 1059 0.13333 0.13333 0.13333 0.3045 0.3301 13.68E+00 1060 0.20000 0.20000 0.20000 0.3014 0.3268 20.05E+00 1061 0.26667 0.26667 0.26667 0.2992 0.3227 35.57E+00 1062 0.33333 0.33333 0.33333 0.2989 0.3201 61.14E+00 1063 0.40000 0.40000 0.40000 0.3016 0.3237 10.23E+01 1064 0.46667 0.46667 0.46667 0.3009 0.3200 16.24E+01 1065 0.53333 0.53333 0.53333 0.3023 0.3209 24.58E+01 1066 0.60000 0.60000 0.60000 0.3041 0.3207 36.29E+01 1067 0.66667 0.66667 0.66667 0.3048 0.3224 52.83E+01 1068 0.73333 0.73333 0.73333 0.3047 0.3220 72.27E+01 1069 0.80000 0.80000 0.80000 0.3079 0.3259 11.73E+02 1070 0.86667 0.86667 0.86667 0.3107 0.3284 17.91E+02 1071 0.93333 0.93333 0.93333 0.3123 0.3301 25.41E+02 1072 1.00000 1.00000 1.00000 0.3126 0.3291 33.07E+02 1073 0.00000 0.00000 0.00000 0.3177 0.3425 10.07E+00 1074 1.00000 1.00000 1.00000 0.3125 0.3291 33.08E+02 1075 1.00000 0.00000 0.00000 0.6404 0.3407 33.61E+01 1076 0.00000 1.00000 1.00000 0.2476 0.3239 18.25E+02 1077 1.00000 1.00000 0.00000 0.4233 0.5049 22.52E+02 1078 0.00000 0.00000 1.00000 0.1479 0.0790 2.20E+02 1079 0.00000 1.00000 0.00000 0.3445 0.5608 15.63E+02 1080 1.00000 0.00000 1.00000 0.2740 0.1454 5.97E+02 ] def %**************************************************************************** /Xrx089 729 array def /Yrx089 729 array def /Zrx089 729 array def /Xrx100 729 array def /Yrx100 729 array def /Zrx100 729 array def /xyY0 4320 array def /RGB0 3240 array def /xyYA_to_XYZ729 { %BEG procedure xyYA_to_XYZ729 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 xyY0 j40 xyYA j00 get put xyY0 j41 xyYA j04 get 10000 mul put %integer xyY0 j42 xyYA j05 get 10000 mul put %integer xyY0 j43 xyYA j06 get put } for /jend 728 4 mul 3 add def %White-Measurement /fakt 100 xyY0 jend get div def /IM0 729 def /IM1 IM0 1 sub def 0 1 IM1 {/i exch def %i=0,IM1 /j30 i 4 mul 1 add def /j31 j30 1 add def /j32 j30 2 add def /SUM xyY0 j32 get xyY0 j31 get 0.0001 mul div def Xrx100 i xyY0 j30 get 0.0001 mul SUM mul fakt mul put Yrx100 i xyY0 j32 get fakt mul put Zrx100 i 1 xyY0 j30 get 0.0001 mul sub xyY0 j31 get 0.0001 mul sub SUM mul fakt mul put Xrx089 i Xrx100 i get 0.8859 mul put Yrx089 i Yrx100 i get 0.8859 mul put Zrx089 i Zrx100 i get 0.8859 mul put } for %i=0,IM1 /XLN100 Xrx100 0 get def /YLN100 Yrx100 0 get def /ZLN100 Zrx100 0 get def /XLW100 Xrx100 728 get def /YLW100 Yrx100 728 get def /ZLW100 Zrx100 728 get def /XLN089 Xrx089 0 get def /YLN089 Yrx089 0 get def /ZLN089 Zrx089 0 get def /XLW089 Xrx089 728 get def /YLW089 Yrx089 728 get def /ZLW089 Zrx089 728 get def % achromatic (D65) colours /XLWD65100 95.04 def /YLWD65100 100.00 def /ZLWD65100 108.88 def /XLN001 XLWD65100 100 div def /YLN001 YLWD65100 100 div def /ZLN001 ZLWD65100 100 div def } bind def %END procedure xyYA_to_XYZ729 %*********************************************************** /r*d50M 50 array def /r*d50M [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %R 1.000 0.875 0.750 0.625 0.500 0.375 0.250 0.125 %J 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %G 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %C 0.000 0.125 0.250 0.375 0.500 0.625 0.750 0.875 %B 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %M 1.000 1.000 ] def /g*d50M 50 array def /g*d50M [0.000 0.125 0.250 0.375 0.500 0.625 0.750 0.875 %R 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %J 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %G 1.000 0.875 0.750 0.625 0.500 0.375 0.250 0.125 %C 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %B 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %M 0.000 0.125 ] def /b*d50M 50 array def /b*d50M [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %R 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %J 0.000 0.125 0.250 0.375 0.500 0.625 0.750 0.875 %G 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %C 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %B 1.000 0.875 0.750 0.625 0.500 0.375 0.250 0.125 %M 0.000 0.000 ] def %/habs50M 50 array def %/habs50M [030.0 037.5 045.0 052.5 060.0 067.5 075.0 082.5 % 090.0 097.5 105.0 112.5 120.0 127.5 135.0 142.5 % 150.0 157.5 165.0 172.5 180.0 187.5 195.0 202.5 % 210.0 217.5 225.0 232.5 240.0 247.5 255.0 262.5 % 270.0 277.5 285.0 292.5 300.0 307.5 315.0 322.5 % 330.0 337.5 345.0 352.5 360.0 367.5 375.0 382.5 % 390.0 397.5 % ] def %*********************************************************** /XD65W 95.04 def /YD65W 100.00 def /ZD65W 108.88 def /XD50W 96.42 def /YD50W 100.00 def /ZD50W 82.51 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 /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 /cvsshow1br {0.05 add 10 mul cvi 0.1 mul 7 string cvs show ( ) show} def /cvsshow2br {0.005 add 100 mul cvi 0.01 mul 7 string cvs show ( ) show} def /cvsshow3br {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show ( ) show} def /cvi100 {100 mul cvi /xi exch def xi 0 lt {/vorz -1 def} {/vorz 1 def} ifelse /xia xi abs def vorz -1 eq {(\255) show} {(0) show} ifelse xia 0 ge xia 9 le {(0000) show} if xia 10 ge xia 99 le and {(000) show} if xia 100 ge xia 999 le and {(00) show} if xia 1000 ge xia 9999 le and {(0) show} if xia cvishow } bind def %*********************************************************** /LAB*He_Hs { %BEG procedure LAB*He_Hs /LAB*e 35 array def %7x5=35 /LAB*e[39.92 58.74 27.99 0.0 0.0 % 00_04 R CIE No.09 elementary colours in LAB, D65 81.26 -2.89 71.56 0.0 0.0 % 05_09 J CIE No.10 52.23 -42.42 13.60 0.0 0.0 % 10_14 G CIE No.11 0.0 0.0 0.0 0.0 0.0 % 15_19 Cgb 30.57 1.41 -46.47 0.0 0.0 % 20_24 B CIE No.12 0.0 0.0 0.0 0.0 0.0 % 25_29 Mbr 39.92 58.74 27.99 0.0 0.0 % 30_34 R+360 CIE No.09 elementary colours in LAB, D65 ] def 0 1 5 {/j exch def %j=0,5 j 0 eq {LAB*e 03 LAB*e 01 get dup mul LAB*e 02 get dup mul add sqrt put LAB*e 04 LAB*e 02 get LAB*e 01 get 0.0001 add atan put } if j 1 eq {LAB*e 08 LAB*e 06 get dup mul LAB*e 07 get dup mul add sqrt put LAB*e 09 LAB*e 07 get LAB*e 06 get 0.0001 add atan put } if j 2 eq {LAB*e 13 LAB*e 11 get dup mul LAB*e 12 get dup mul add sqrt put LAB*e 14 LAB*e 12 get LAB*e 11 get 0.0001 add atan put } if j 4 eq {LAB*e 23 LAB*e 21 get dup mul LAB*e 22 get dup mul add sqrt put LAB*e 24 LAB*e 22 get LAB*e 21 get 0.0001 add atan put } if } for %j=0,5 3 1 4 {/i exch def %i=3,4 30_34 R+360 LAB*e i 30 add LAB*e i get put i 4 eq {LAB*e i 30 add LAB*e i get 360 add put} if } for %i=3,4 3 2 5 {/i exch def %i=3,5,2 Cgb+Cbr i 3 eq {LAB*e 19 LAB*e 14 get LAB*e 24 get add 0.5 mul put %hab LAB*e 18 LAB*e 13 get LAB*e 23 get add 0.5 mul put %C*ab LAB*e 15 LAB*e 10 get LAB*e 20 get add 0.5 mul put %L* LAB*e 16 LAB*e 18 get LAB*e 19 get cos mul put %a* LAB*e 17 LAB*e 18 get LAB*e 19 get sin mul put %b* } if i 5 eq {LAB*e 29 LAB*e 24 get LAB*e 34 get add 0.5 mul put %hab LAB*e 28 LAB*e 23 get LAB*e 33 get add 0.5 mul put %C*ab LAB*e 25 LAB*e 20 get LAB*e 30 get add 0.5 mul put %L* LAB*e 26 LAB*e 28 get LAB*e 29 get cos mul put %a* LAB*e 27 LAB*e 28 get LAB*e 29 get sin mul put %b* } if } for %i=3,5,2 /LAB*He 7 array def 0 1 6 {/i exch def %i=0,5 LAB*He i LAB*e i 5 mul 4 add get put } for %i=0,5 /habe50M 50 array def 0 1 47 {/i exch def %i=0,47 /i8 i 8 idiv def /i8d i i8 8 mul sub def /dLAB*He LAB*He i8 1 add get LAB*He i8 get sub 8 div def habe50M i LAB*He i8 get dLAB*He i8d mul add put } for %i=0,47 habe50M 48 habe50M 0 get 360 add put habe50M 49 habe50M 1 get 360 add put /LAB*Hs 7 array def /LAB*Hs [30. 90. 150. 210. 270. 330. 390.] def /habs50M 50 array def 0 1 47 {/i exch def %i=0,47 /i8 i 8 idiv def /i8d i i8 8 mul sub def /dLAB*Hs LAB*Hs i8 1 add get LAB*Hs i8 get sub 8 div def habs50M i LAB*Hs i8 get dLAB*Hs i8d mul add put } for %i=0,47 habs50M 48 habs50M 0 get 360 add put habs50M 49 habs50M 1 get 360 add put /habs361M 361 array def 0 1 359 {/i exch def %i=0,359 habs361M i 30 i add put %range 30..390 } for %i=0,359 habs361M 360 habs361M 0 get 360 add put /habe361M 361 array def 0 1 359 {/i exch def %i=0,359 /i60 i 60 idiv def %range 0..6 /i60d i i60 60 mul sub def %range 0..59 /dLAB*He LAB*He i60 1 add get LAB*He i60 get sub 60 div def habe361M i LAB*He i60 get dLAB*He i60d mul add round cvi put %range 25..385 } for %i=0,359 habe361M 360 habe361M 0 get 360 add put } bind def %END procedure LAB*He_Hs %****************************************************************** /habs361i 361 array def /habe361i 361 array def /habd361i 361 array def /hab*sM_to_hab*eM { %BEG Procedure hab*sM_to_hab*eM %transfer from hab*s to hab*e %360 steps used for the range 0 <= hab*s <= 360 %requires /habs361i 361 array def, /habe361i 361 array def 0 1 359 {/i exch def %i=0,359 /habs i def habs361i i i put %alpha = [habs - LAB*Hs(h)]/[LAB*Hs(n+1) - LAB*Hs(n)] % = [habs - LAB*Hs(h)]/60 %habe = alpha [LAB*He(n+1) - LAB*He(n)] + LAB*He(n) i 000 ge i 029 le and {/ipan0 5 def /ipan1 6 def /habs habs 360 add def} if i 030 ge i 089 le and {/ipan0 0 def /ipan1 1 def} if i 090 ge i 149 le and {/ipan0 1 def /ipan1 2 def} if i 150 ge i 209 le and {/ipan0 2 def /ipan1 3 def} if i 210 ge i 269 le and {/ipan0 3 def /ipan1 4 def} if i 270 ge i 329 le and {/ipan0 4 def /ipan1 5 def} if i 330 ge i 359 le and {/ipan0 5 def /ipan1 6 def} if /alpha {habs LAB*Hs ipan0 get sub 60 div} bind def /habe {LAB*He ipan1 get LAB*He ipan0 get sub alpha mul LAB*He ipan0 get add} bind def habe 360 ge {/habe habe 360 sub def} if habe361i i habe round cvi put } for %i=0,359 habs361i 360 360 put habe361i 360 habe361i 0 get put } bind def %END hab*sM_to_hab*eM %****************************************************************** /r*s361Mi 361 array def /g*s361Mi 361 array def /b*s361Mi 361 array def /r*e361Mi 361 array def /g*e361Mi 361 array def /b*e361Mi 361 array def /hab*sM_to_rgb*s361Mi_rgb*e361Mi { %BEG Procedure hab*sM_to_rgb*s361Mi_rgb*e361Mi %transfer from hab*sM_to_rgb*s361Mi_rgb*e361Mi %360 steps used for the range 0 <= hab*s <= 360 %requires /habs361i 361 array def, /habe361i 361 array def 0 1 359 {/i exch def %i=0,359 i 000 ge i 029 le and {r*s361Mi i 1.00 put %Mbr_R, part 2 g*s361Mi i 0.00 put b*s361Mi i 1.00 i 30 add 60 div sub put} if i 030 ge i 089 le and {r*s361Mi i 1.00 put %R_J g*s361Mi i 0.00 i 30 sub 60 div add put b*s361Mi i 0.00 put} if i 090 ge i 149 le and {r*s361Mi i 1.00 i 90 sub 60 div sub put %J_G g*s361Mi i 1.00 put b*s361Mi i 0.00 put} if i 150 ge i 209 le and {r*s361Mi i 0.00 put %G_Cgb g*s361Mi i 1.00 put b*s361Mi i 0.00 i 150 sub 60 div add put} if i 210 ge i 269 le and {r*s361Mi i 0.00 put %Cgb_B g*s361Mi i 1.00 i 210 sub 60 div sub put b*s361Mi i 1.00 put} if i 270 ge i 329 le and {r*s361Mi i 0.00 i 270 sub 60 div add put %B_Mbr g*s361Mi i 0.00 put b*s361Mi i 1.00 put} if i 330 ge i 359 le and {r*s361Mi i 1.00 put %Mbr_R, part 1 g*s361Mi i 0.00 put b*s361Mi i 1.00 i 330 sub 60 div sub put} if } for %i=0,359 r*s361Mi 360 r*s361Mi 0 get put g*s361Mi 360 g*s361Mi 0 get put b*s361Mi 360 b*s361Mi 0 get put 0 1 360 {/i exch def %i=0,360 r*e361Mi i r*s361Mi i get put g*e361Mi i g*s361Mi i get put b*e361Mi i b*s361Mi i get put } for %i=0,359 } bind def %END hab*sM_to_rgb*s361Mi_rgb*e361Mi %****************************************************************** /XIEi 361 array def /x361i 361 array def /r*d361Mi 361 array def /g*d361Mi 361 array def /b*d361Mi 361 array def /LAB*L361Mi 361 array def /LAB*a361Mi 361 array def /LAB*b361Mi 361 array def /LAB*C361Mi 361 array def /LAB*h361Mi 361 array def /LAB*x50M_to_LAB*_rgb*x361Mi { %BEG Procedure LAB*x50M_to_LAB*_rgb*x361Mi %transfer from LAB*x50M_to_LAB*_rgb*x361Mi %360 steps used for the range 0 <= LAb*50hM <= 360 %requires /LAB*x361M 361 array def (x=L,a,b,C,h) %requires /rgb*d361Mi 361 array def %requires in addition %/LAB*x50M 50 array def (x=L,a,b,C,h) defined in LAB729a_to_LAB*x50M %/rgb*d50M 50 array def defined allways as table /hmin LAB*h50M 0 get def /hmax LAB*h50M 48 get def /hmini LAB*h50M 0 get cvi def /hmaxi LAB*h50M 48 get cvi def 0 1 360 {/i0 exch def %i=0,360 %default /i1 i0 1 add def /XIE -1 def LAB*L361Mi i0 -1 put LAB*C361Mi i0 -1 put LAB*h361Mi i0 -1 put LAB*a361Mi i0 -1 put LAB*b361Mi i0 -1 put r*d361Mi i0 -1 put g*d361Mi i0 -1 put b*d361Mi i0 -1 put XIEi i0 -1 put x361i i0 -1 put } for %i=0,360 hmini 1 hmaxi {/i0 exch def %i=40,400 0 1 48 {/ix0 exch def %ix0=0,48 /ix1 ix0 1 add def i0 LAB*h50M ix0 get sub 0 ge i0 LAB*h50M ix1 get sub 0 lt and { /im i0 def i0 360 ge {/im i0 360 sub def} if XIEi im i0 LAB*h50M ix0 get sub LAB*h50M ix1 get LAB*h50M ix0 get sub div put /XIE XIEi im get def LAB*L361Mi im LAB*L50M ix0 get LAB*L50M ix1 get LAB*L50M ix0 get sub XIE mul add put LAB*C361Mi im LAB*C50M ix0 get LAB*C50M ix1 get LAB*C50M ix0 get sub XIE mul add put LAB*h361Mi im LAB*h50M ix0 get LAB*h50M ix1 get LAB*h50M ix0 get sub XIE mul add dup 360 ge {360 sub} if put habd361i im LAB*h361Mi im get put LAB*a361Mi im LAB*C361Mi im get LAB*h361Mi im get cos mul put LAB*b361Mi im LAB*C361Mi im get LAB*h361Mi im get sin mul put r*d361Mi im r*d50M ix0 get r*d50M ix1 get r*d50M ix0 get sub XIE mul add put g*d361Mi im g*d50M ix0 get g*d50M ix1 get g*d50M ix0 get sub XIE mul add put b*d361Mi im b*d50M ix0 get b*d50M ix1 get b*d50M ix0 get sub XIE mul add put ix0 00 ge ix0 07 le and {x361i im 0 put} if ix0 08 ge ix0 15 le and {x361i im 1 put} if ix0 16 ge ix0 23 le and {x361i im 2 put} if ix0 24 ge ix0 31 le and {x361i im 3 put} if ix0 32 ge ix0 39 le and {x361i im 4 put} if ix0 40 ge ix0 47 le and {x361i im 5 put} if exit } if } for %ix0=0,48 } for %i=40,400 LAB*L361Mi 360 LAB*L361Mi 0 get put LAB*a361Mi 360 LAB*a361Mi 0 get put LAB*b361Mi 360 LAB*b361Mi 0 get put LAB*C361Mi 360 LAB*C361Mi 0 get put LAB*h361Mi 360 LAB*h361Mi 0 get 360 add put habd361i 360 LAB*h361Mi 360 get put r*d361Mi 360 r*d361Mi 0 get put g*d361Mi 360 g*d361Mi 0 get put b*d361Mi 360 b*d361Mi 0 get put XIEi 360 XIEi 0 get put x361i 360 x361i 0 get put } bind def %END LAB*x50M_to_LAB*_rgb*x361Mi %****************************************************************** /LAB*L50M 50 array def /LAB*a50M 50 array def /LAB*b50M 50 array def /LAB*C50M 50 array def /LAB*h50M 50 array def /habd50M 50 array def /LAB729a_to_LAB*x50M { %BEG Procedure LAB729a_to_LAB*x50M %transfer from LAB729a_to_LAB*x50M, %9x9x9=729 steps used for LAB729a %requires /LAB*x50M 50 array def %requires in addition /LAB729a 729 array def 0 1 5 {/xtonj exch def %xtonj=0,5 0 1 7 {/j exch def %j=0,7 /ja xtonj 8 mul j add def xtonj 0 eq {/jx 648 j 09 mul add def} if %see O00Y-O83Y, -0 xtonj 1 eq {/jx 720 j 81 mul sub def} if %see Y00L-Y83L, -81 xtonj 2 eq {/jx 072 j add def} if %see L00C-L83C, +01 xtonj 3 eq {/jx 080 j 09 mul sub def} if %see C00V-C83V, -09 xtonj 4 eq {/jx 008 j 81 mul add def} if %see V00M-V83M, -81 xtonj 5 eq {/jx 656 j sub def} if %see M00O-M83O, +01 LAB*L50M ja L729a jx get put LAB*a50M ja a729a jx get put LAB*b50M ja b729a jx get put LAB*C50M ja LAB*a50M ja get dup mul LAB*b50M ja get dup mul add sqrt put LAB*h50M ja LAB*b50M ja get LAB*a50M ja get 0.0001 add atan put xtonj 5 eq LAB*h50M ja get 90 le and {LAB*h50M ja LAB*h50M ja get 360 add put} if } for %j=0,7 } for %xtonj=0,5 LAB*L50M 48 LAB*L50M 0 get put LAB*a50M 48 LAB*a50M 0 get put LAB*b50M 48 LAB*b50M 0 get put LAB*C50M 48 LAB*C50M 0 get put LAB*h50M 48 LAB*h50M 0 get 360 add put LAB*L50M 49 LAB*L50M 1 get put LAB*a50M 49 LAB*a50M 1 get put LAB*b50M 49 LAB*b50M 1 get put LAB*C50M 49 LAB*C50M 1 get put LAB*h50M 49 LAB*h50M 1 get 360 add put 0 1 49 {/i exch def %i=0,49 habd50M i LAB*h50M i get put } for %i=0,49 %data test according to increasing hue angle and appropriate correction /xtesthuea -1 def /xtesthuei 50 array def 0 1 48 {/i exch def %i=0,49 habd50M i get habd50M i 1 add get gt {/xtesthuea xtesthuea 1 add def xtesthuei xtesthuea i put habd50M i 1 add habd50M i get put LAB*L50M i 1 add LAB*L50M i get put LAB*a50M i 1 add LAB*a50M i get put LAB*b50M i 1 add LAB*b50M i get put LAB*C50M i 1 add LAB*C50M i get put LAB*h50M i 1 add LAB*h50M i get put } if } for %i=0,49 %/LAB*Hd 7 array def %0 1 6 {/i exch def %i=0,6 % LAB*Hd i LAB*h50M i 8 mul get put % } for %i=0,6 } bind def %END LAB729a_to_LAB*x50M %************************************************************************ /Lrc089 729 array def /arc089 729 array def /brc089 729 array def /Xrc089 729 array def /Yrc089 729 array def /Zrc089 729 array def /Lra089 729 array def /ara089 729 array def /bra089 729 array def /Xra089 729 array def /Yra089 729 array def /Zra089 729 array def /Lna089 729 array def /ana089 729 array def /bna089 729 array def /Xna089 729 array def /Yna089 729 array def /Zna089 729 array def /Lla089 729 array def /ala089 729 array def /bla089 729 array def /Xla089 729 array def /Yla089 729 array def /Zla089 729 array def /X729 729 array def /Y729 729 array def /Z729 729 array def /L729 729 array def %not adapted /a729 729 array def /b729 729 array def /L729a 729 array def %adapted /a729a 729 array def /b729a 729 array def /ilf 8 array def /ilf [0.00 0.25 0.50 1.00 2.00 4.00 8.00 16.00] def /Lrefl 11 array def /Lrefl [(0%) (0%) (0%) (0%) (0,6%) (1,2%) (2,5%) (5%) (10%) (20%) (40%)] def /xcharti_XYZ_LAB729a { %BEG Procedure xcharti_LAB729a %transfer from xcharti_LAB729a, %9x9x9=729 steps used for LAB729a %requires 0<= xcharti <=10 %requires /(Lab)x089 3240 array def (x=rc,ra,na,la) %requires /(XYZ)x089 3240 array def (x=rc,ra,na,la) %requires /x729 729 array def (x=X,Y,Z) %not adapted %requires /x729 729 array def (x=L,a,b) %not adapted %requires /x729a 729 array def (x=L,a,b) %adapted xcharti 2 le {/il 0 def} {/il xcharti 3 sub def} ifelse %Reference black and factors /YrN 2.52 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 728 def 0 1 IM1 {/i exch def %i=0,IM1 Xrc089 i Xrx089 i get put Yrc089 i Yrx089 i get put Zrc089 i Zrx089 i get put /XQ Xrc089 i get XLWD65100 div def /YQ Yrc089 i get YLWD65100 div def /ZQ Zrc089 i 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 Lrc089 i YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse put arc089 i 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 brc089 i 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 /L*N Lrc089 0 get def /A*N arc089 0 get def /B*N brc089 0 get def /L*W Lrc089 728 get def /A*W arc089 728 get def /B*W brc089 728 get def 0 1 IM1 {/i exch def %i=0,IM1 Lra089 i Lrc089 i get put /l*CIE Lrc089 i 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 ara089 i arc089 i get A*N sub a*s sub put bra089 i brc089 i get B*N sub b*s sub put } for %i=0,IM1 0 1 IM1 {/i exch def %i=0,IM1 /X* {Lra089 i get 16 add 116 div ara089 i get 500 div add} bind def /Y* {Lra089 i get 16 add 116 div} bind def /Z* {Lra089 i get 16 add 116 div bra089 i get 200 div sub} bind def Xra089 i X* DecodeXYZ* XLWD65100 mul put Yra089 i Y* DecodeXYZ* YLWD65100 mul put Zra089 i Z* DecodeXYZ* ZLWD65100 mul put } for %i=0,IM1 xcharti 2 ge {%xcharti>=2 %for white X data /Xwref089 Xra089 728 get def /Ywref089 Yra089 728 get def /Zwref089 Zra089 728 get def %for black X data /YrN Yra089 0 get def /Xnref089 YrN XLN001 mul def /Ynref089 YrN def /Znref089 YrN ZLN001 mul def /IM1 728 def 0 1 IM1 {/i exch def %i=1,IM1 Xna089 i Xra089 i get Xnref089 sub Xwref089 Xwref089 Xnref089 sub div mul put Yna089 i Yra089 i get Ynref089 sub Ywref089 Ywref089 Ynref089 sub div mul put Zna089 i Zra089 i get Znref089 sub Zwref089 Zwref089 Znref089 sub div mul put } for %i=1,IM1 0 1 IM1 {/i exch def %i=1,IM1 /XQ Xna089 i get XLWD65100 div def /YQ Yna089 i get YLWD65100 div def /ZQ Zna089 i 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 Lna089 i YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse put ana089 i 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 bna089 i 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=1,IM1 } if %xchart>=2 xcharti 3 ge {%xchart>=3 %for white X data /Xwref089 Xra089 728 get def /Ywref089 Yra089 728 get def /Zwref089 Zra089 728 get def /kn Ywref089 Ywref089 Ytref089 sub div def 0 1 IM1 {/i exch def %i=1,IM1 Xla089 i Xna089 i get kn div Xtref089 add put Yla089 i Yna089 i get kn div Ytref089 add put Zla089 i Zna089 i get kn div Ztref089 add put } for %i=1,IM1 0 1 IM1 {/i exch def %i=1,IM1 /XQ Xla089 i get XLWD65100 div def /YQ Yla089 i get YLWD65100 div def /ZQ Zla089 i 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 Lla089 i YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse put ala089 i 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 bla089 i 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=1,IM1 } if %xchart>=3 xcharti 0 eq {%xcharti=0 (1x) 0 1 IM1 {/i exch def %i=0,IM1 L729 i Lrc089 i get put a729 i arc089 i get put b729 i brc089 i get put X729 i Xrc089 i get put Y729 i Yrc089 i get put Z729 i Zrc089 i 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 L729 i Lra089 i get put a729 i ara089 i get put b729 i bra089 i get put X729 i Xra089 i get put Y729 i Yra089 i get put Z729 i Zra089 i 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 L729 i Lna089 i get put a729 i ana089 i get put b729 i bna089 i get put X729 i Xna089 i get put Y729 i Yna089 i get put Z729 i Zna089 i 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 728 {/i exch def %i=0,IM1 L729 i Lla089 i get put a729 i ala089 i get put b729 i bla089 i get put X729 i Xla089 i get put Y729 i Yla089 i get put Z729 i Zla089 i get put } for %i=0,IM1 } if %xcharti=3,4,5,6,7,8,9,10 (8x) %Adaptation /L*Nio L729 000 get def /A*Nio a729 000 get def /B*Nio b729 000 get def /L*Wio L729 728 get def /A*Wio a729 728 get def /B*Wio b729 728 get def /A*Dio A*Wio A*Nio sub def /B*Dio B*Wio B*Nio sub def 0 1 728 {/j exch def %j=0,728 L729a j L729 j get put /l*CIE L729 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 a729a j a729 j get A*Nio sub a*s sub put b729a j b729 j get B*Nio sub b*s sub put } for %j=0,728 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 } bind def %END xcharti_XYZ_LAB729a %*************************************************************************** /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 %%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 0 def /lanind2 0 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 /xchart xchartg def} {/xchart 0 def} ifelse /xcolorg where {pop /xcolor xcolorg def} {/xcolor 1 def} ifelse /ymax 16600 def /ydel 203 def 72 90 translate 0.010 MM dup scale /TSYSIO (LECD display, non glossy) def xyYA_to_XYZ729 %0 <=xchart <=109 /xcharti xchart 10 idiv def %range 0...10 /xchartl xchart xchart 10 idiv 10 mul sub def %j=0...9 %00 1 10 {/xcharti exch def %xcharti=00,10 gsave xcharti_XYZ_LAB729a %00 1 09 {/xchartl exch def %xchartl=00,09 /xchart xchartl def gsave 1.0 setgray 20 setlinewidth 0 0 moveto 25000 0 rlineto 0 17000 rlineto -25000 0 rlineto closepath fill 0.0 setgray 0 0 moveto 25000 0 rlineto 0 17000 rlineto -25000 0 rlineto closepath stroke TK 0 setgray 200 -200 moveto (OG440-7N) show (, Page of series ) showen (, Seite der Serie ) showde xchartl 1 add xcharti 10 mul add cvishow (/110, ) show FileData show xcharti 3 ge {(, YN=) show Lrefl xcharti get show} if (, XYZnw=) show X729 000 get cvsshow1r (, ) show Y729 000 get cvsshow1r (, ) show Z729 000 get cvsshow1r (, ) show X729 728 get cvsshow1r (, ) show Y729 728 get cvsshow1r (, ) show Z729 728 get cvsshow1r (, LAB*nw=) show L729 000 get cvsshow1r (, ) show a729 000 get cvsshow1r (, ) show b729 000 get cvsshow1r (, ) show L729 728 get cvsshow1r (, ) show a729 728 get cvsshow1r (, ) show b729 728 get cvsshow1r xcharti 0 eq {(, not adapted) showen (, nicht adaptiert) showde } {(, adapted) showen (, adaptiert) showde } ifelse LAB*He_Hs LAB729a_to_LAB*x50M hab*sM_to_hab*eM hab*sM_to_rgb*s361Mi_rgb*e361Mi LAB*x50M_to_LAB*_rgb*x361Mi /habd361M 361 array def %LAB*h50M i %i=0,48 %360:48=7,5 wie interpolieren ? %360:24=15 %LAB*h50M i i=0,2,48 = 25 Werte 0 1 359 {/i exch def %i=0,359 /i15 i 15 idiv def %range 0..23 /i15d i i15 15 mul sub def %range 0..14 /dLAB*Hd LAB*h50M i15 2 mul 1 add get LAB*h50M i15 2 mul get sub 15 div def habd361M i LAB*h50M i15 2 mul get dLAB*Hd i15d mul add put % habd361M i get 360 ge {habd361M i habd361M i get 360 sub put} if } for %i=0,359 habd361M 360 habd361M 0 get 360 add put %LAB*h50M i %i=0,48 %360:48=7,5 wie interpolieren ? %360:48=7,5 %LAB*h50M i i=0,1,2,..47,48 = 49 Werte 0 1 359 {/i exch def %i=0,359 /i075 i 7.5 div def %range 0..47 /i075d i i075 7.5 mul sub def %range 0..7 /dLAB*Hd LAB*h50M i075 1 add cvi get LAB*h50M i075 cvi get sub 7.5 div def habd361M i LAB*h50M i075 cvi get dLAB*Hd i075d mul add put % habd361M i get 360 ge {habd361M i habd361M i get 360 sub put} if } for %i=0,359 habd361M 360 habd361M 0 get 360 add put TK 16500 -200 moveto %(CIELAB diagram and tables ) showen (CIELAB\255Diagramm und Tabellen ) showde %(CIELAB -> ) show (Output: ) showen (Ausgabe: ) showde FileDaten showen FileDatde showde (, page ) showen (, Seite ) showde xchartl 1 add xcharti 10 mul add cvishow (/110) show TBK /xi 000 def xi 100 add 16700 moveto (Data of Maximum color M in colorimetric system ) showen (Daten der Maximalfarbe M im Farbmetrik\255Sytem ) showde FileDaten showen FileDatde showde ( for input or output; ) showen ( f\374r Ein\255 oder Ausgabe; ) showde (Six hue angles of the 60 degree standard colours) showen (Sechs Bunttonwinkel der 60\255Grad Standardfarben) showde TBIK ( s: h) show TBS 0 -50 rmoveto (ab,s) show 0 50 rmoveto TBK ( = ) show LAB*Hs 0 get cvsshow1r (, ) show LAB*Hs 1 get cvsshow1r (, ) show LAB*Hs 2 get cvsshow1r (, ) show LAB*Hs 3 get cvsshow1r (, ) show LAB*Hs 4 get cvsshow1r (, ) show LAB*Hs 5 get cvsshow1r (; ) show xi 100 add 16400 moveto (Six hue angles of the device colours) showen (Sechs Bunttonwinkel der Ger\344tefarben) showde TBIK ( d: h) show TBS 0 -50 rmoveto (ab,d) show 0 50 rmoveto TBK ( = ) show LAB*h50M 00 get cvsshow1r (, ) show LAB*h50M 08 get cvsshow1r (, ) show LAB*h50M 16 get cvsshow1r (, ) show LAB*h50M 24 get cvsshow1r (, ) show LAB*h50M 32 get cvsshow1r (, ) show LAB*h50M 40 get cvsshow1r (; ) show (Six hue angles of the elementary colours) showen (Sechs Bunttonwinkel der Elementarfarben) showde TBIK ( e: h) show TBS 0 -50 rmoveto (ab,e) show 0 50 rmoveto TBK ( = ) show LAB*He 0 get cvsshow1r (, ) show LAB*He 1 get cvsshow1r (, ) show LAB*He 2 get cvsshow1r (, ) show LAB*He 3 get cvsshow1r (, ) show LAB*He 4 get cvsshow1r (, ) show LAB*He 5 get cvsshow1r xchartl 0 eq {%xchartl=0,>0 /ToutenN0 (Colorimetric data of Natural Colour System NCS) def /ToutdeN0 (Farbmetrische Daten des Nat\374rliches Farbsystems NCS) def /ToutenL0 (Colorimetric data of Natural Luminous System NLS) def /ToutdeL0 (Farbmetrische Daten des Nat\374rliches\255Lichtfarbensystem NLS) def 8 /Times-ISOL1 FS 72 82.5 moveto ( OG440-7N, ) show xchart 8 le {ToutdeN0 showde ToutenN0 showen} {ToutdeL0 showde ToutenL0 showen} ifelse /yhoe 8500 def /xhoe 12300 def % 0 1 2 3 4 5 /Dcol [(O=R) (Y=J) (L=G) (C=C) (V=B) (M=M) ] def /Dcolen [(Orange red) (Yellow) (Leaf green) (Cyan blue) (Violet blue) (Magenta red)] def /Dcolde [(Orangerot) (Gelb) (Laubgr\374n) (Cyanblau) (Violettblau) (Magentarot)] def /xshifd [ 2800 -4000 -5400 -5100 2700 2900 ] def /yshifd [ 2500 3700 1800 -1000 -2600 -0850 ] def /Ecol [(R) (J) (G) (C) (B) (M) ] def /Ecolen [(Red) (Yellow) (Green) (Blue green) (Blue) (Blue red)] def /Ecolde [(Rot) (Gelb) (Gr\374n) (Blaugr\374n) (Blau) (Blaurot)] def /xshife [ 2800 -3000 -5400 -5100 -3000 2900 ] def /yshife [ 2000 3700 1800 -1000 -2600 -0850 ] def /Scol [(R) (J) (G) (C) (B) (M) ] def /Scolen [(Red) (Yellow) (Green) (Blue green) (Blue) (Blue red)] def /Scolde [(Rot) (Gelb) (Gr\374n) (Blaugr\374n) (Blau) (Blaurot)] def /xshifs [ 2800 -3000 -5400 -5100 -3000 2900 ] def /yshifs [ 2000 3700 1800 -1000 -2600 -0850 ] def 2500 8200 moveto 20000 0 rlineto stroke 12500 2000 moveto 0 13000 rlineto stroke 0 1 3 {/ibild exch def %ibild=0,3 ibild 0 eq {xhoe 0.5 mul 600 sub yhoe 1.47 mul 400 sub translate} if ibild 1 eq {xhoe 1.1 mul yhoe 0.0 mul translate} if ibild 2 eq {xhoe 1.1 mul neg yhoe 0.97 mul neg translate} if ibild 3 eq {xhoe 1.1 mul yhoe 0.0 mul translate} if ibild 2 le {%ibild<=2 0 setgray -4000 0 moveto 8000 0 rlineto stroke 0 -3500 moveto 0 7500 rlineto stroke 3800 70 moveto 200 -70 rlineto -200 -70 rlineto closepath fill -70 3800 moveto 70 200 rlineto 70 -200 rlineto closepath fill /fak0 28 def /fakt 25 def 0 1 48 {/i exch def %i=0,48 LAB*a50M i get fakt mul LAB*b50M i get fakt mul moveto LAB*a50M i 1 add get fakt mul LAB*b50M i 1 add get fakt mul lineto stroke newpath r*d50M i get g*d50M i get b*d50M i get setrgbcolor LAB*a50M i get fakt mul LAB*b50M i get fakt mul 100 0 360 arc fill } for %i=0,48 0 setgray 0 8 48 {/i exch def %i=0,8,48 RJGCBMd 0 0 moveto LAB*a50M i get fak0 mul LAB*b50M i get fak0 mul rlineto stroke } for %i=0,8,48 } if %ibild<=2 ibild 0 eq {%ibild=0 %device (d) 0 setgray 0300 3900 moveto TBIK (device ) showen (Ger\344te\255) showde TBK (CIELAB) show TBIK ( \050 a*) show TBS 0 -50 rmoveto (d) show 0 50 rmoveto TBIK (, b*) show TBS 0 -50 rmoveto (d) show 0 50 rmoveto TBIK (\051) show TBK ( chroma diagram) showen (\255Diagramm) showde TBIK 3500 0150 moveto (a*) show TBS 0 -50 rmoveto (d) show 0 50 rmoveto -500 4000 moveto (b*) show TBS 0 -50 rmoveto (d) show 0 50 rmoveto 0 8 40 {/kn exch def %kn=0,8,40 0 setgray /kn8 kn 8 idiv def xshifd kn8 get yshifd kn8 get moveto TBIK Dcol kn8 get show TBS 0 -50 rmoveto (d) show 0 50 rmoveto TBK ( ) show Dcolen kn8 get showen Dcolde kn8 get showde TIK xshifd kn8 get yshifd kn8 get 350 sub moveto (LCH*) show TK -30 -50 rmoveto (d) show 0 50 rmoveto TK ( = ) show LAB*L50M kn get cvsshow1 ( ) show LAB*C50M kn get cvsshow1 ( ) show LAB*h50M kn get cvsshow1 TIK xshifd kn8 get yshifd kn8 get 700 sub moveto (LAB*) show TK -30 -50 rmoveto (d) show 0 50 rmoveto TK ( = ) show LAB*L50M kn get cvsshow1 ( ) show LAB*a50M kn get cvsshow1 ( ) show LAB*b50M kn get cvsshow1 TIK xshifd kn8 get yshifd kn8 get 1050 sub moveto (rgb*) show TK -30 -50 rmoveto (d) show 0 50 rmoveto TK ( = ) show r*d50M kn get cvsshow3 ( ) show g*d50M kn get cvsshow3 ( ) show b*d50M kn get cvsshow3 0 8 48 {/i exch def %i=0,8,48 RJGCBMe /i361d habd50M i get round cvi def i361d 360 ge {/i361d i361d 360 sub def} if % r*d361Mi i361d get g*d361Mi i361d get b*d361Mi i361d get setrgbcolor % 0 0 moveto LAB*a361Mi i361d get fak0 mul % LAB*b361Mi i361d get fak0 mul rlineto stroke 0 1 8 {/l exch def %l=0,8 newpath /alpha l 0.125 mul def /beta 1 alpha sub def 1.0 beta mul r*d361Mi i361d get alpha mul add 1.0 beta mul g*d361Mi i361d get alpha mul add 1.0 beta mul b*d361Mi i361d get alpha mul add setrgbcolor LAB*a361Mi i361d get fakt mul alpha mul LAB*b361Mi i361d get fakt mul alpha mul 100 0 360 arc fill l 0 eq {%l=0 0 setgray LAB*a361Mi i361d get fakt mul alpha mul LAB*b361Mi i361d get fakt mul alpha mul 100 0 360 arc stroke } if %l=0 } for %l=0,8 } for %i=0,8,48 } for %kn=0,8,40 } if %ibild=0 ibild 1 eq {%ibild=1 %elementary (e) 0 setgray 0300 3900 moveto TBIK (elementary ) showen (Elementar\255) showde TBK (CIELAB) show TBIK ( \050 a*) show TBS 0 -50 rmoveto (e) show 0 50 rmoveto TBIK (, b*) show TBS 0 -50 rmoveto (e) show 0 50 rmoveto TBIK (\051) show TBK ( chroma diagram) showen (\255Diagramm) showde TBIK 3500 0150 moveto (a*) show TBS 0 -50 rmoveto (e) show 0 50 rmoveto -500 4000 moveto (b*) show TBS 0 -50 rmoveto (e) show 0 50 rmoveto 0 setgray 0 8 40 {/kn exch def %kn=0,8,40 /kn8 kn 8 idiv def xshife kn8 get yshife kn8 get moveto TBIK Ecol kn8 get show TBS 0 -50 rmoveto (e) show 0 50 rmoveto TBK ( ) show Ecolen kn8 get showen Ecolde kn8 get showde /i361e habe50M kn get round cvi def i361e 360 ge {/i361e i361e 360 sub def} if TIK xshife kn8 get yshife kn8 get 350 sub moveto (LCH*) show TK -30 -50 rmoveto (e) show 0 50 rmoveto TK ( = ) show LAB*L361Mi i361e get cvsshow1 ( ) show LAB*C361Mi i361e get cvsshow1 ( ) show LAB*h361Mi i361e get cvsshow1 TIK xshife kn8 get yshife kn8 get 700 sub moveto (LAB*) show TK -30 -50 rmoveto (e) show 0 50 rmoveto TK ( = ) show LAB*L361Mi i361e get cvsshow1 ( ) show LAB*a361Mi i361e get cvsshow1 ( ) show LAB*b361Mi i361e get cvsshow1 TIK xshife kn8 get yshife kn8 get 1050 sub moveto (rgb*) show TK -30 -50 rmoveto (e) show 0 50 rmoveto TK ( = ) show r*d361Mi i361e get cvsshow3 ( ) show g*d361Mi i361e get cvsshow3 ( ) show b*d361Mi i361e get cvsshow3 } for %kn=0,8,40 0 8 48 {/i exch def %i=0,8,48 RJGCBMe /i361e habe50M i get round cvi def i361e 360 ge {/i361e i361e 360 sub def} if r*d361Mi i361e get g*d361Mi i361e get b*d361Mi i361e get setrgbcolor 0 0 moveto LAB*a361Mi i361e get fakt mul LAB*b361Mi i361e get fakt mul rlineto stroke 0 1 8 {/l exch def %l=0,8 newpath /alpha l 0.125 mul def /beta 1 alpha sub def 1.0 beta mul r*d361Mi i361e get alpha mul add 1.0 beta mul g*d361Mi i361e get alpha mul add 1.0 beta mul b*d361Mi i361e get alpha mul add setrgbcolor LAB*a361Mi i361e get fakt mul alpha mul LAB*b361Mi i361e get fakt mul alpha mul 100 0 360 arc fill } for %l=0,8 } for %i=0,8,48 } if %ibild=1 ibild 2 eq {%ibild=2 %standard (s) 0 setgray 0300 3900 moveto TBIK (standard ) showen (Standard\255) showde TBK (CIELAB) show TBIK ( \050 a*) show TBS 0 -50 rmoveto (s) show 0 50 rmoveto TBIK (, b*) show TBS 0 -50 rmoveto (s) show 0 50 rmoveto TBIK (\051) show TBK ( chroma diagram) showen (\255Diagramm) showde TBIK 3500 0150 moveto (a*) show TBS 0 -50 rmoveto (s) show 0 50 rmoveto -500 4000 moveto (b*) show TBS 0 -50 rmoveto (s) show 0 50 rmoveto 0 setgray 0 8 40 {/kn exch def %kn=0,8,40 /kn8 kn 8 idiv def xshifs kn8 get yshifs kn8 get moveto TBIK Scol kn8 get show TBS 0 -50 rmoveto (s) show 0 50 rmoveto TBK ( ) show Scolen kn8 get showen Scolde kn8 get showde /i361s habs50M kn get round cvi def i361s 360 ge {/i361s i361s 360 sub def} if TIK xshifs kn8 get yshifs kn8 get 350 sub moveto (LCH*) show TK -30 -50 rmoveto (s) show 0 50 rmoveto TK ( = ) show LAB*L361Mi i361s get cvsshow1 ( ) show LAB*C361Mi i361s get cvsshow1 ( ) show LAB*h361Mi i361s get cvsshow1 TIK xshifs kn8 get yshifs kn8 get 700 sub moveto (LAB*) show TK -30 -50 rmoveto (s) show 0 50 rmoveto TK ( = ) show LAB*L361Mi i361s get cvsshow1 ( ) show LAB*a361Mi i361s get cvsshow1 ( ) show LAB*b361Mi i361s get cvsshow1 TIK xshifs kn8 get yshifs kn8 get 1050 sub moveto (rgb*) show TK -30 -50 rmoveto (s) show 0 50 rmoveto TK ( = ) show r*d361Mi i361s get cvsshow3 ( ) show g*d361Mi i361s get cvsshow3 ( ) show b*d361Mi i361s get cvsshow3 } for %kn=0,8,40 0 8 48 {/i exch def %i=0,8,48 RJGCBMe /i361s habs50M i get round cvi def i361s 360 ge {/i361s i361s 360 sub def} if r*d361Mi i361s get g*d361Mi i361s get b*d361Mi i361s get setrgbcolor 0 0 moveto LAB*a361Mi i361s get fakt mul LAB*b361Mi i361s get fakt mul rlineto stroke 0 1 8 {/l exch def %l=0,8 newpath /alpha l 0.125 mul def /beta 1 alpha sub def 1.0 beta mul r*d361Mi i361s get alpha mul add 1.0 beta mul g*d361Mi i361s get alpha mul add 1.0 beta mul b*d361Mi i361s get alpha mul add setrgbcolor LAB*a361Mi i361s get fakt mul alpha mul LAB*b361Mi i361s get fakt mul alpha mul 100 0 360 arc fill } for %l=0,8 } for %i=0,8,48 } if %ibild=2 ibild 3 eq {%ibild=3 0 setgray -6500 3900 moveto TBK (Notes to the CIELAB chroma diagrams) showen (Anmerkung zu den CIELAB\255Buntheits\255Diagrammen) showde TBIK ( \050 a*) show TBS -30 -50 rmoveto (d) show 0 50 rmoveto TBIK (, b*) show TBS -30 -50 rmoveto (d) show 0 50 rmoveto TBIK ( \051, ) show TBIK ( \050 a*) show TBS -30 -50 rmoveto (s) show 0 50 rmoveto TBIK (, b*) show TBS -30 -50 rmoveto (s) show 0 50 rmoveto TBIK ( \051, ) show TBIK ( \050 a*) show TBS -30 -50 rmoveto (e) show 0 50 rmoveto TBIK (, b*) show TBS -30 -50 rmoveto (e) show 0 50 rmoveto TBIK ( \051) show -6500 3400 moveto TK (1. For the) showen (1. F\374r die) showde TIK ( rgb*) show TS -30 -50 rmoveto (d) show 0 50 rmoveto TK (\255input values the CIELAB data) showen (\255Eingabedaten wurden die CIELAB-Daten) showde TIK ( LCH*) show TS -30 -50 rmoveto (d) show 0 50 rmoveto TK ( and) showen ( und) showde TIK ( LAB*) show TS -30 -50 rmoveto (d) show 0 50 rmoveto TK ( have been measured.) showen ( gemessen.) showde -6500 3000 moveto TK (2. For the calculation of the standard hue angle ) showen TIK (h) show TS -30 -50 rmoveto (ab,s) show 0 50 rmoveto TK ( use for any device values) showen TIK ( rgb*) show TS -30 -50 rmoveto (d) show 0 50 rmoveto TK ( the equation:) showen -6000 2650 moveto TBIK (h) show TBS -30 -50 rmoveto (ab,s) show 0 50 rmoveto TBK ( = ) show TBIK (atan) show TBK ( [ ) show TBIK (r*) show TBS -30 -50 rmoveto (d) show 0 50 rmoveto TBIK ( cos(30)) show TBK ( + ) show TBIK (g*) show TBS -30 -50 rmoveto (d) show 0 50 rmoveto TBIK ( cos(150)) show TBK ( ] / [ ) show TBIK (r*) show TBS -30 -50 rmoveto (d) show 0 50 rmoveto TBIK ( sin(30)) show TBK ( + ) show TBIK (g*) show TBS -30 -50 rmoveto (d) show 0 50 rmoveto TBIK ( sin(150)) show TBK ( + ) show TBIK (b*) show TBS -30 -50 rmoveto (d) show 0 50 rmoveto TBIK ( sin(270)) show TBK ( ] ) show 5000 2650 moveto TK ((1)) show -6500 2200 moveto TK (3. For the 48 or 360 equally spaced standard hue angles ) showen (3. F\374r die 48 oder 360 gleichabst\344ndig gestuften Standard\255Bunttonwinkel ) showde TIK (h) show TS -30 -50 rmoveto (ab,s) show 0 50 rmoveto TK ( of the colours of maximum chroma use) showen ( der Farben von maximaler Buntheit benutze) showde -6250 1900 moveto (the seven hue angles of the 60 degree colours) showen (die sieben Bunttonwinkel der 60\Grad\255Farben) showde TIK ( s: h) show TS 0 -50 rmoveto (ab,si) show 0 50 rmoveto TK ( = ) show LAB*Hs 0 get cvsshow1r (, ) show LAB*Hs 1 get cvsshow1r (, ) show LAB*Hs 2 get cvsshow1r (, ) show LAB*Hs 3 get cvsshow1r (, ) show LAB*Hs 4 get cvsshow1r (, ) show LAB*Hs 5 get cvsshow1r (, ) show LAB*Hs 6 get cvsshow1r ( (i=0,6) ) show -6250 1600 moveto (and the equations for a 48 and 360 step hue circle: ) showen (und die Gleichungen f\374r einen 48\255 und 360\255stufigen Bunttonkreis: ) showde -6000 1250 moveto TBIK (h) show TBS 0 -50 rmoveto (48ab,sij) show 0 50 rmoveto TBK ( = ) show TBIK (h) show TBS 0 -50 rmoveto (ab,si) show 0 50 rmoveto ( + ) show TBIK (j) show TBK ( [) show TBIK (h) show TBS 0 -50 rmoveto (ab,si+1) show 0 50 rmoveto ( - ) show TBIK (h) show TBS 0 -50 rmoveto (ab,si) show 0 50 rmoveto TBK ( ] /8 \050 ) show TBIK (i) show TBK ( = 0, 1, ..., 5; ) show TBIK (j) show TBK ( = 0, 1, ..., 7\051) show 5000 1250 moveto TK ((2)) show -6000 0850 moveto TBIK (h) show TBS 0 -50 rmoveto (360ab,sij) show 0 50 rmoveto TBK ( = ) show TBIK (h) show TBS 0 -50 rmoveto (ab,si) show 0 50 rmoveto ( + ) show TBIK (j) show TBK ( [) show TBIK (h) show TBS 0 -50 rmoveto (ab,si+1) show 0 50 rmoveto ( - ) show TBIK (h) show TBS 0 -50 rmoveto (ab,si) show 0 50 rmoveto TBK ( ] /60 \050 ) show TBIK (i) show TBK ( = 0, 1, ..., 5; ) show TBIK (j) show TBK ( = 0, 1, ..., 59\051) show 5000 0850 moveto TK ((3)) show -6500 0400 moveto TK (4. For the 48 or 360 elementary hue angles ) showen (4. F\374r die 48 oder 360 Elementar\255Bunttonwinkel ) showde TIK (h) show TS -30 -50 rmoveto (ab,e) show 0 50 rmoveto TK ( of the colours of maximum chroma use) showen ( der Farben von maximaler Buntheit benutze) showde -6250 0100 moveto (the seven hue angles of the elementary colours) showen (die sieben Bunttonwinkel der Elementar\255Farben) showde TIK ( e: h) show TS 0 -50 rmoveto (ab,ei) show 0 50 rmoveto TK ( = ) show LAB*He 0 get cvsshow1r (, ) show LAB*He 1 get cvsshow1r (, ) show LAB*He 2 get cvsshow1r (, ) show LAB*He 3 get cvsshow1r (, ) show LAB*He 4 get cvsshow1r (, ) show LAB*He 5 get cvsshow1r (, ) show LAB*He 6 get cvsshow1r ( (i=0,6) ) show -6250 -200 moveto (and the equations for a 48 and 360 step elementary hue circle: ) showen (und die Gleichungen f\374r einen 48\255 und 360\255stufigen Elementar\255Bunttonkreis: ) showde -6000 -550 moveto TBIK (h) show TBS 0 -50 rmoveto (48ab,eij) show 0 50 rmoveto TBK ( = ) show TBIK (h) show TBS 0 -50 rmoveto (ab,ei) show 0 50 rmoveto ( + ) show TBIK (j) show TBK ( [) show TBIK (h) show TBS 0 -50 rmoveto (ab,ei+1) show 0 50 rmoveto ( - ) show TBIK (h) show TBS 0 -50 rmoveto (ab,ei) show 0 50 rmoveto TBK ( ] /8 \050 ) show TBIK (i) show TBK ( = 0, 1, ..., 5; ) show TBIK (j) show TBK ( = 0, 1, ..., 7\051) show 5000 -550 moveto TK ((4)) show -6000 -0950 moveto TBIK (h) show TBS 0 -50 rmoveto (360ab,eij) show 0 50 rmoveto TBK ( = ) show TBIK (h) show TBS 0 -50 rmoveto (ab,ei) show 0 50 rmoveto ( + ) show TBIK (j) show TBK ( [) show TBIK (h) show TBS 0 -50 rmoveto (ab,ei+1) show 0 50 rmoveto ( - ) show TBIK (h) show TBS 0 -50 rmoveto (ab,ei) show 0 50 rmoveto TBK ( ] /60 \050 ) show TBIK (i) show TBK ( = 0, 1, ..., 5; ) show TBIK (j) show TBK ( = 0, 1, ..., 59\051) show 5000 -950 moveto TK ((5)) show -6500 -1400 moveto TK (5. For any elementary hue angle ) showen (5. F\374r jeden Elementar\255Bunttonwinkel ) showde TIK (h) show TS -30 -50 rmoveto (ab,e) show 0 50 rmoveto TK ( there is a well defined device hue angle ) showen ( gibt es einem genau definierten Ger\344te\255Bunttonwinkel ) showde TIK (h) show TS -30 -50 rmoveto (ab,d) show 0 50 rmoveto -6250 -1700 moveto TK (see the following tables, columns 1 to 3.) showen (siehe die folgenden Tabellen, Spalten 1 bis 3.) showde -6500 -2100 moveto TK (6. The values ) showen (6. Die Werte ) showde TIK (rgb*) show TS -30 -50 rmoveto (de) show 0 50 rmoveto TK ( produce the output of the device\255independent elementary hues) showen ( erzeugen die Ausgabe der ger\344teunabh\344ngigen Elemetar\255Buntt\366ne) showde } if %ibild=3 } for %ibild=0,3 }%xchartl=0 {%xchartl>0 /x0x 0000 def /x1x 5700 def /x2x 13300 def /x01 2200 def %rgb /x02 2900 def /x03 3600 def /x04 4300 def %LabCh /x05 5000 def /x06 5700 def /x07 6400 def /x08 7100 def /x09 7700 def /x10 8400 def /x11 9100 def /xd0 0100 def /xs0 0800 def /xe0 1500 def /xd1 23050 def /xs1 23700 def /xe1 24350 def x0x x01 add 50 sub 0 moveto 0 16200 rlineto stroke x1x x01 add 50 sub 0 moveto 0 16200 rlineto stroke x2x x01 add 50 sub 0 moveto 0 16200 rlineto stroke /ymax 16100 def TBIK xd0 ymax moveto (h) show TBK -00 -80 rmoveto (ab,d) show 00 80 rmoveto TBIK xs0 ymax moveto (h) show TBK -00 -80 rmoveto (ab,s) show 00 80 rmoveto TBIK xe0 ymax moveto (h) show TBK -00 -80 rmoveto (ab,e) show 00 80 rmoveto TBIK xchartl 1 eq {%xchartl=1,>01 x0x x01 add ymax moveto (rgb*) show TBK -00 -80 rmoveto (dd50M) show 00 80 rmoveto TBIK x0x x04 add ymax moveto (LAB*) show TBK -00 -80 rmoveto (dd50Mx (x=LabCh)) show 00 80 rmoveto TBIK x1x x01 add ymax moveto (rgb*) show TBK -00 -80 rmoveto (ds50M) show 00 80 rmoveto TBIK x1x x04 add ymax moveto (LAB*) show TBK -00 -80 rmoveto (ds50Mx (x=LabCh)) show 00 80 rmoveto TBIK x1x x09 add ymax moveto (rgb*) show TBK -00 -80 rmoveto (s50M) show 00 80 rmoveto TBIK x2x x01 add ymax moveto (rgb*) show TBK -00 -80 rmoveto (de50M) show 00 80 rmoveto TBIK x2x x04 add ymax moveto (LAB*) show TBK -00 -80 rmoveto (de50Mx (x=LabCh)) show 00 80 rmoveto TBIK x2x x09 add ymax moveto (rgb*) show TBK -00 -80 rmoveto (e50M) show 00 80 rmoveto TBIK }%xchartl=1 {%xchartl>1 x0x x01 add ymax moveto (rgb*) show TBK -00 -80 rmoveto (dd361Mi) show 00 80 rmoveto TBIK x0x x04 add ymax moveto (LAB*) show TBK -00 -80 rmoveto (dd361Mix (x=LabCh)) show 00 80 rmoveto TBIK x1x x01 add ymax moveto (rgb*) show TBK -00 -80 rmoveto (ds361Mi) show 00 80 rmoveto TBIK x1x x04 add ymax moveto (LAB*) show TBK -00 -80 rmoveto (ds361Mix (x=LabCh)) show 00 80 rmoveto TBIK x1x x09 add ymax moveto (rgb*) show TBK -00 -80 rmoveto (s50M) show 00 80 rmoveto TBIK x2x x01 add ymax moveto (rgb*) show TBK -00 -80 rmoveto (de361Mi) show 00 80 rmoveto TBIK x2x x04 add ymax moveto (LAB*) show TBK -00 -80 rmoveto (de361Mix (x=LabCh)) show 00 80 rmoveto TBIK x2x x09 add ymax moveto (rgb*) show TBK -00 -80 rmoveto (e50M) show 00 80 rmoveto TBIK } ifelse %xchartl=1,>1 xd1 ymax moveto (rgb*) show TBK -100 -100 rmoveto (dd) show 100 100 rmoveto TBIK xs1 ymax moveto (rgb*) show TBK -100 -100 rmoveto (ds) show 100 100 rmoveto TBIK xe1 ymax moveto (rgb*) show TBK -100 -100 rmoveto (de) show 100 100 rmoveto TBIK /ymax 15700 def /ydel0 310 def /ydel1 345 def /ys 50 def /RJGCBMs 9 array def /RJGCBMs [( ) (R) (J) (G) (C) (C) (B) (M) (R)] def /RJGCBM 7 array def /RJGCBM [(R) (J) (G) (C) (B) (M) (R)] def xchartl 1 eq {%xchartl=01 TK 0 1 48 {/i exch def %i=0,48 /i8 i 8 idiv def /yi ymax i ydel0 mul sub i8 ydel0 0.4 mul mul sub def xd0 yi moveto habd50M i get cvsshow1r xs0 yi moveto habs50M i get cvsshow1r xe0 yi moveto habe50M i get cvsshow1r x0x x01 add yi moveto r*d50M i get cvsshow3r x0x x02 add yi moveto g*d50M i get cvsshow3r x0x x03 add yi moveto b*d50M i get cvsshow3r x0x x04 add yi moveto LAB*L50M i get cvsshow1r x0x x05 add yi moveto LAB*a50M i get cvsshow1r x0x x06 add yi moveto LAB*b50M i get cvsshow1r x0x x07 add yi moveto LAB*C50M i get cvsshow1r x0x x08 add yi moveto LAB*h50M i get cvsshow1r /i361s habs50M i get round cvi def i361s 360 ge {/i361s i361s 360 sub def} if x1x x01 add yi moveto r*d361Mi i361s get cvsshow3r x1x x02 add yi moveto g*d361Mi i361s get cvsshow3r x1x x03 add yi moveto b*d361Mi i361s get cvsshow3r x1x x04 add yi moveto LAB*L361Mi i361s get cvsshow1r x1x x05 add yi moveto LAB*a361Mi i361s get cvsshow1r x1x x06 add yi moveto LAB*b361Mi i361s get cvsshow1r x1x x07 add yi moveto LAB*C361Mi i361s get cvsshow1r x1x x08 add yi moveto LAB*h361Mi i361s get cvishow x1x x09 add yi moveto r*d50M i get cvsshow3r x1x x10 add yi moveto g*d50M i get cvsshow3r x1x x11 add yi moveto b*d50M i get cvsshow3r /i361e habe50M i get round cvi def i361e 360 ge {/i361e i361e 360 sub def} if x2x x01 add yi moveto r*d361Mi i361e get cvsshow3r x2x x02 add yi moveto g*d361Mi i361e get cvsshow3r x2x x03 add yi moveto b*d361Mi i361e get cvsshow3r x2x x04 add yi moveto LAB*L361Mi i361e get cvsshow1r x2x x05 add yi moveto LAB*a361Mi i361e get cvsshow1r x2x x06 add yi moveto LAB*b361Mi i361e get cvsshow1r x2x x07 add yi moveto LAB*C361Mi i361e get cvsshow1r x2x x08 add yi moveto LAB*h361Mi i361e get cvishow x2x x09 add yi moveto r*d50M i get cvsshow3r x2x x10 add yi moveto g*d50M i get cvsshow3r x2x x11 add yi moveto b*d50M i get cvsshow3r r*d50M i get g*d50M i get b*d50M i get setrgbcolor xd1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath fill r*d361Mi i361s get g*d361Mi i361s get b*d361Mi i361s get setrgbcolor xs1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath fill r*d361Mi i361e get g*d361Mi i361e get b*d361Mi i361e get setrgbcolor xe1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath fill 0 setgray xd1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath stroke xs1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath stroke xe1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath stroke } for %i=0,48 xtesthuea 0 ge {600 /TimesB-ISOL1 FS 8000 2100 moveto 30 rotate 0 setgray (no continues hue change of device near ) showen (keine kontinuiertliche Buntton\344nderung nahe ) showde 600 /TimesBI-ISOL1 FS (h) show 500 /TimesB-ISOL1 FS 0 -100 rmoveto (ab,d) show 0 100 rmoveto 600 /TimesB-ISOL1 FS ( = ) show 0 1 xtesthuea {/in exch def %in=0,xtesthuea LAB*h50M xtesthuei in get get cvishow in xtesthuea ne {(, ) show} if } for %in=0,xtesthuea -30 rotate 8000 1100 moveto 30 rotate (or ) showen ( oder ) showde 600 /TimesBI-ISOL1 FS (rgb*) show 500 /TimesBI-ISOL1 FS 0 -100 rmoveto (d) show 0 100 rmoveto 600 /TimesB-ISOL1 FS ( = ) show 0 1 xtesthuea {/in exch def %in=0,xtesthuea r*d50M xtesthuei in get get cvsshow3r (, ) show g*d50M xtesthuei in get get cvsshow3r (, ) show b*d50M xtesthuei in get get cvsshow3r in xtesthuea ne {(; ) show} if } for %in=0,xtesthuea -30 rotate 8000 0100 moveto 30 rotate 600 /TimesB-ISOL1 FS (appropriate correction done) showen (plausible Korrektur erfolgt) showde -30 rotate } if }%xchartl=1 {%xchartl>1 TK 0 1 45 {/i exch def %i=0,45 /ik45 xchartl 2 sub 45 mul i add def %range 0...359 /yi ymax i ydel1 mul sub def /hmini LAB*h50M 0 get cvi def /hmaxi LAB*h50M 48 get cvi def /ik45d ik45 hmini add def ik45d 360 ge {/ik45d ik45d 360 sub def} if /i361d LAB*h361Mi ik45 get round cvi def xd0 yi moveto LAB*h361Mi ik45d get cvishow xs0 yi moveto habs361M ik45 get cvishow xe0 yi moveto habe361M ik45 get cvishow x0x x01 add yi moveto r*d361Mi ik45d get cvsshow3r x0x x02 add yi moveto g*d361Mi ik45d get cvsshow3r x0x x03 add yi moveto b*d361Mi ik45d get cvsshow3r x0x x04 add yi moveto LAB*L361Mi ik45d get cvsshow1r x0x x05 add yi moveto LAB*a361Mi ik45d get cvsshow1r x0x x06 add yi moveto LAB*b361Mi ik45d get cvsshow1r x0x x07 add yi moveto LAB*C361Mi ik45d get cvsshow1r x0x x08 add yi moveto LAB*h361Mi ik45d get cvishow /i361s habs361M ik45 get def i361s 360 ge {/i361s i361s 360 sub def} if /ik45ds i361s def /ik45s ik45 30 add def ik45s 360 ge {/ik45s ik45s 360 sub def} if x1x x01 add yi moveto r*d361Mi ik45ds get cvsshow3r x1x x02 add yi moveto g*d361Mi ik45ds get cvsshow3r x1x x03 add yi moveto b*d361Mi ik45ds get cvsshow3r x1x x04 add yi moveto LAB*L361Mi ik45ds get cvsshow1r x1x x05 add yi moveto LAB*a361Mi ik45ds get cvsshow1r x1x x06 add yi moveto LAB*b361Mi ik45ds get cvsshow1r x1x x07 add yi moveto LAB*C361Mi ik45ds get cvsshow1r x1x x08 add yi moveto LAB*h361Mi ik45ds get cvishow x1x x09 add yi moveto r*s361Mi ik45s get cvsshow3r x1x x10 add yi moveto g*s361Mi ik45s get cvsshow3r x1x x11 add yi moveto b*s361Mi ik45s get cvsshow3r /i361e habe361M ik45 get def i361e 360 ge {/i361e i361e 360 sub def} if /ik45de i361e def /ik45e ik45 30 add def ik45e 360 ge {/ik45e ik45e 360 sub def} if x2x x01 add yi moveto r*d361Mi ik45de get cvsshow3r x2x x02 add yi moveto g*d361Mi ik45de get cvsshow3r x2x x03 add yi moveto b*d361Mi ik45de get cvsshow3r x2x x04 add yi moveto LAB*L361Mi ik45de get cvsshow1r x2x x05 add yi moveto LAB*a361Mi ik45de get cvsshow1r x2x x06 add yi moveto LAB*b361Mi ik45de get cvsshow1r x2x x07 add yi moveto LAB*C361Mi ik45de get cvsshow1r x2x x08 add yi moveto LAB*h361Mi ik45de get cvishow x2x x09 add yi moveto r*e361Mi ik45e get cvsshow3r x2x x10 add yi moveto g*e361Mi ik45e get cvsshow3r x2x x11 add yi moveto b*e361Mi ik45e get cvsshow3r r*e361Mi ik45e get g*e361Mi ik45e get b*e361Mi ik45e get setrgbcolor xd1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath fill r*d361Mi ik45ds get g*d361Mi ik45ds get b*d361Mi ik45ds get setrgbcolor xs1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath fill r*d361Mi ik45de get g*d361Mi ik45de get b*d361Mi ik45de get setrgbcolor xe1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath fill 0 setgray xd1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath stroke xs1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath stroke xe1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath stroke xchartl 2 eq ik45 000 eq and xchartl 3 eq ik45 060 eq and or xchartl 4 eq ik45 120 eq and or xchartl 5 eq ik45 180 eq and or xchartl 6 eq ik45 180 eq and or xchartl 7 eq ik45 240 eq and or xchartl 8 eq ik45 300 eq and or xchartl 9 eq ik45 360 eq and or {/ik 1 def} {/ik 0 def} ifelse ik 1 eq {x1x x01 add yi ydel1 0.7 mul add moveto x2x x11 add 600 add yi ydel1 0.7 mul add lineto stroke x1x x01 add yi ydel1 0.3 mul sub moveto x2x x11 add 600 add yi ydel1 0.3 mul sub lineto stroke} if ik 1 eq {TBIK x1x x11 add 320 add yi moveto RJGCBMs xchartl 1 sub get show TBS 0 -80 rmoveto (s) show 0 80 rmoveto TK TBIK x2x x11 add 320 add yi moveto RJGCBMs xchartl 1 sub get show TBS 0 -80 rmoveto (e) show 0 80 rmoveto TK} if 0 8 48 {/it exch def %it=0,8,48 LAB*h50M it get LAB*h361Mi ik45d get ge LAB*h50M it get LAB*h361Mi ik45d 1 add get lt and {x0x x01 add yi ydel1 0.3 mul sub moveto x1x x01 add yi ydel1 0.3 mul sub lineto stroke TBIK x1x x01 add 400 sub yi moveto RJGCBM it 8 idiv get show TBS 0 -80 rmoveto (d) show 0 80 rmoveto TK} if } for %it=0,8,48 } for i%=0,45 } ifelse %xchartl=1,>1 } ifelse %xchartl=0,>0 showpage grestore %} for %xchartl=00,09 grestore %} for %xcharti=00,10 %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 020 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM moveto ( ) show 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 18 %line 409 %!PS-Adobe-3.0 EPSF-3.0 OG440-8, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (OG440-8,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 197 MM translate 10 /Times-ISOL1 FS 1 1 scale -77 -91 translate %%BeginDocument: Bild 12 %line 419 %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 21 %line 429 %!PS-Adobe-3.0 EPSF-3.0 OG441-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 (OG441-1,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 22 %line 439 %!PS-Adobe-3.0 EPSF-3.0 OG441-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 (OG441-2,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 23 %line 449 %!PS-Adobe-3.0 EPSF-3.0 OG441-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 (OG441-3,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 24 %line 459 %!PS-Adobe-3.0 EPSF-3.0 OG441-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 (OG441-4,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 25 %line 469 %!PS-Adobe-3.0 EPSF-3.0 OG441-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 (OG441-5,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 26 %line 479 %!PS-Adobe-3.0 EPSF-3.0 OG441-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 (OG441-6,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 020 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 27 %line 489 %!PS-Adobe-3.0 EPSF-3.0 OG441-7, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (OG441-7,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 020 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM moveto ( ) show 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 28 %line 499 %!PS-Adobe-3.0 EPSF-3.0 OG441-8, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (OG441-8,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 080 MM add 008 MM translate %80 MM Breite von TestStreifen 10 /Times-ISOL1 FS 53 MM 1 MM moveto () show 1 1 scale -77 21 MM sub -91 translate %%BeginDocument: Bild 29 Teststreifen Ueberlaenge %line 509 %%EndDocument EndEPSF grestore gsave BeginEPSF -0.0 MM -0.0 MM translate %xy-Verschiebung Rechteckrahmen nach innen% %%BeginDocument: Bild 30 %Rechteckrahmen %line 519 %!PS-Adobe-3.0 EPSF-3.0 Frame arround with Internet text OG44 20110301 %%BoundingBox: 0 0 598 845 %%EndProlog gsave /lanind 1 def /lantex [(G) (E) (S) (N) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 0 def /lanind2 0 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES where {pop %/IMES IMES def } {/IMES 0 def} ifelse /i*ptrsc where {pop %/i*ptrsc i*ptrsc def } {/i*ptrsc 0 def} ifelse gsave /xchartg where {pop /xchart xchartg def} {/xchart 0 def} ifelse /scountg where {pop /scount scountg def} {/scount 1 def} ifelse %xchart 0 eq {%beg if xchart=0 0 setgray 0.15 MM setlinewidth /x 20 array def /y 20 array def /d 20 array def /x [000 296 296 000 002 294 294 002 005 291 291 005 %speziell 006 290 290 006 008 288 288 008 ] def /y [000 000 210 210 002 002 208 208 005 005 205 205 %speziell 006 006 204 204 008 008 202 202 ] def /d [060 017 -60 -17 058 015 -58 -15 056 013 -56 -13 054 011 -54 -11 052 009 -52 -09 ] def /xlu 017 MM def /ylu 017 MM def /xro 279 MM def /yro 193 MM def /xlo 017 MM def /ylo 193 MM def /xru 279 MM def /yru 017 MM def xlu 8 MM sub ylu moveto 16 MM 0 rlineto stroke xlu ylu 8 MM sub moveto 0 16 MM rlineto stroke xro 8 MM add yro moveto -16 MM 0 rlineto stroke xro yro 8 MM add moveto 0 -16 MM rlineto stroke xru 8 MM sub yru moveto 16 MM 0 rlineto stroke xru yru 8 MM sub moveto 0 16 MM rlineto stroke xlo 8 MM add ylo moveto -16 MM 0 rlineto stroke xlo ylo 8 MM add moveto 0 -16 MM rlineto stroke 1 2 7 {/i exch def %Zentrierkreise xlu ylu i MM 0 360 arc stroke xro yro i MM 0 360 arc stroke xru yru i MM 0 360 arc stroke xlo ylo i MM 0 360 arc stroke } for %i 12 4 16 {/i exch def /i0 i def %i=0,16 %0 4 16 {/i exch def /i0 i def %i=0,16 /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse 0 setgray x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto x i0 get MM y i0 get MM lineto stroke i 16 eq {6 /Times-ISOL1 FS /x00 67 def /xdif 32 def /y0o 202.3 def /y0u 6.3 def /x0l 6.1 def /x0r 288 def /y00 22 def /ydif 32 def x00 xdif 0 mul add MM y0o MM moveto (V) show x00 xdif 0 mul add MM y0u MM moveto (C) show x00 xdif 1 mul add MM y0o MM moveto (L) show x00 xdif 1 mul add MM y0u MM moveto (M) show x00 xdif 2 mul add MM y0o MM moveto (O) show x00 xdif 2 mul add MM y0u MM moveto (Y) show x00 xdif 3 mul add MM y0o MM moveto (Y) show x00 xdif 3 mul add MM y0u MM moveto (O) show x00 xdif 4 mul add MM y0o MM moveto (M) show x00 xdif 4 mul add MM y0u MM moveto (L) show x00 xdif 5 mul add MM y0o MM moveto (C) show x00 xdif 5 mul add MM y0u MM moveto (V) show x0l MM y00 ydif 0 mul add MM moveto (V) show x0r MM y00 ydif 0 mul add MM moveto (C) show x0l MM y00 ydif 1 mul add MM moveto (L) show x0r MM y00 ydif 1 mul add MM moveto (M) show x0l MM y00 ydif 2 mul add MM moveto (O) show x0r MM y00 ydif 2 mul add MM moveto (Y) show x0l MM y00 ydif 3 mul add MM moveto (Y) show x0r MM y00 ydif 3 mul add MM moveto (O) show x0l MM y00 ydif 4 mul add MM moveto (M) show x0r MM y00 ydif 4 mul add MM moveto (L) show x0l MM y00 ydif 5 mul add MM moveto (C) show x0r MM y00 ydif 5 mul add MM moveto (V) show } if } for %i=0,16 0 1 10 {/j0 exch def /j1 j0 1 add def %j0 j0 0 eq {tzccmy0* setcmykcolor} if j0 1 eq {0 setgray} if j0 2 eq {tzmcmy0* setcmykcolor} if j0 3 eq {0 setgray} if j0 4 eq {tzycmy0* setcmykcolor} if j0 5 eq {0 setgray} if j0 6 eq {tzocmy0* setcmykcolor} if j0 7 eq {0 setgray} if j0 8 eq {tzlcmy0* setcmykcolor} if j0 9 eq {0 setgray} if j0 10 eq {tzvcmy0* setcmykcolor} if 12 4 16 {/i exch def /i0 i def %i=0,16 %0 4 16 {/i exch def /i0 i def %i=0,16 /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse x i0 get d i0 get add 16 j0 mul add MM y i0 get MM moveto x i0 get d i0 get add 16 j1 mul add MM y i0 get MM lineto stroke x i1 get MM y i1 get d i1 get add 16 j0 mul add MM moveto x i1 get MM y i1 get d i1 get add 16 j1 mul add MM lineto stroke x i2 get d i2 get add 16 j0 mul sub MM y i2 get MM moveto x i2 get d i2 get add 16 j1 mul sub MM y i2 get MM lineto stroke x i3 get MM y i3 get d i3 get add 16 j0 mul sub MM moveto x i3 get MM y i3 get d i3 get add 16 j1 mul sub MM lineto stroke } for %i=0,16 } for %j0 0.15 MM setlinewidth /s 7 MM def /s1 8 MM def /s5 36 MM def 16 1 20 {/j exch def /j0 j 16 sub def %j=16,20 /ix0 xlu 8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def 0 1 3 {/ij exch def %ij=0,3 ij 0 eq {/ix0 xlu 8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def} if ij 1 eq {/ix0 xru 43 MM sub j0 7 MM mul add def /iy0 yru 8 MM sub def} if ij 2 eq {/ix0 xlo 8 MM add j0 7 MM mul add def /iy0 ylo 1 MM add def} if ij 3 eq {/ix0 xro 43 MM sub j0 7 MM mul add def /iy0 yro 1 MM add def} if i*ptrsc 0 eq i*ptrsc 2 eq or {%i*ptrsc=0,2 cmy0* setcmykcolor j 16 eq {tzan j get dup dup 0 setcmykcolor ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if tzan j get dup dup 0 setcmykcolor ix0 iy0 s s rec fill } if %i*ptrsc=0,2 i*ptrsc 1 eq i*ptrsc 3 eq or {%i*ptrsc=1,3 www* setrgbcolor j 16 eq {1 tzan j get 1 sub dup dup setrgbcolor %N ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 1 tzan j get sub dup dup setrgbcolor %N ix0 iy0 s s rec fill } if %i*ptrsc=1,3 i*ptrsc 4 eq i*ptrsc 5 eq or {%i*ptrsc=4,5 [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace j 16 eq {tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add setcolor %N ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add setcolor %N ix0 iy0 s s rec fill } if %i*ptrsc=4,5 i*ptrsc 6 eq {%i*ptrsc=6 000n* setcmykcolor j 16 eq {0 0 0 tzan j get setcmykcolor ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 0 0 0 tzan j get setcmykcolor ix0 iy0 s s rec fill } if %i*ptrsc=6 i*ptrsc 7 eq {%i*ptrsc=7 w* setgray j 16 eq {1 tzan j get sub setgray ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 1 tzan j get sub setgray ix0 iy0 s s rec fill } if %i*ptrsc=7 } for %ij=0,3 } for %j=16,20 0 setgray 018 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show 018 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show 276 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show 276 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show 018 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show 018 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show 276 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show 276 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show 0 setgray 12 /Times-ISOL1 FS 61 MM 13 MM moveto (TUB\255Pr\374fvorlage OG44; 48- & 360-stufige Bunttonkreise) showde (TUB\255test chart OG44; 48 and 360 step hue circles) showen (, Page ) showen (, Seite ) showde xchart 1 add cvishow (/) show xchart20m 1 add cvishow 61 MM 09 MM moveto 12 /Times-ISOL1 FS ( Daten von LCD\255Projektor 1, Keine Separation, D65) showde ( Data of LCD projector 1, no separation, D65) showen 186 MM 13 MM moveto 12 /Times-ISOL1 FS ( input: ) showen (Eingabe: ) showde 12 /TimesI-ISOL1 FS (rgb*) show -2 -2 rmoveto 8 /Times-ISOL1 FS (d) show 0 2 rmoveto 12 /TimesI-ISOL1 FS ( setrgbcolor) show 12 /Times-ISOL1 FS 186 MM 9 MM moveto ( output: ) showen (Ausgabe: ) showde %12 /Times-ISOL1 FS %( = ) show %12 /TimesI-ISOL1 FS (f) show %0 -2 rmoveto 8 /Times-ISOL1 FS (6) show 0 2 rmoveto %12 /TimesI-ISOL1 FS %( \050rgb) show %-2 -2 rmoveto 8 /Times-ISOL1 FS (d) show 0 2 rmoveto %12 /TimesI-ISOL1 FS %(\051) show LSC$ (N) eq {%LSC$=N 12 /Times-ISOL1 FS %xchart 1 le { (no change) showen (keine \304nderung) showde % } % {12 /TimesI-ISOL1 FS (->cmy0 setcmykcolor) show % 12 /Times-ISOL1 FS % } ifelse } 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 / w* setgray) 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/OG44/OG44L) 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 (OG44/OG44L) 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 16 MM 185 MM moveto -90 rotate (Siehe Original/Kopie: ) showde (See original or copy: ) showen (http://web.me.com/klaus.richter/OG44/OG44L) 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: 20110301\255OG44/OG44L) showde (TUB registration: 20110301\255OG44/OG44L) showen (0) show LSC$ show LEX$ show 90 rotate 281 MM 74 MM moveto -90 rotate (TUB\255Material: Code=rha4ta) showde (TUB material: code=rha4ta) showen 90 rotate 277 MM 185 MM moveto -90 rotate /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def ( Anwendung f\374r Messung von Drucker- oder Monitorsystemen) showde ( application for measurement of printer or monitor systems) showen ( application for measurement of printer or monitor systems) showes ( application for measurement of printer or monitor systems) showfr ( application for measurement of printer or monitor systems) showit ( application for measurement of printer or monitor systems) showjp ( application for measurement of printer or monitor systems) showm IMES 1 eq LSC$ (N) ne and { %IMES=1 (, Yr=) show Yre cvsshow1 (, XYZ) show } if %IMES=1 90 rotate /i0 8 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def 0.30 MM setlinewidth 0 setgray x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto x i0 get MM y i0 get MM lineto stroke %} if %end if xchart=0 /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