%!PS-Adobe-3.0 EPSF-3.0 xxx/OG41/OG41L0XX.PS 20110301 %%BoundingBox: 14 08 828 584 /pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put } if [/Title (PostScript pictures: http://130.149.60.445/~farbmetrik/OG41/OG41.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 OG41/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 OG41/OUTLIN10.PS Output Linearization (OL) olv*->olv'* 20110301 %BEG OG41/OUTLIN1X.PS 20110301 %EMPTY %END OG41/OUTLIN1X.PS 20110301 /CFilenameS1g %START output of step S1g (OG41L0N) def %Link file name for data /CDateS1g (2011-03-01, Name) def %Date of calculation, Tester /CDeviceS1g (unknown ) def %Device name /CMeasS1g (OG41/OG41L0N) 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 1.0 1.0 scale /pgsave save def %%EndPageSetup 0.0 MM 0.0 MM translate %Verschiebung nach oben und links fuer Belichter gsave /SS$ [(G) (E) (S) (F) (I) (J) (M)] def /SC$ [(N) (F) (S) (D) (T) (E) (C)] def /SX$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)%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$ [(A.TXT /.PS) (B.BMP /.PS) (G.GIF /.PS) (H.HTM /.PS) (I.HTM /.PS) (J.JPE /.PS) (P.PDF /.PS) (T.TIF /.PS)] def /EY$ [(A.DAT) (B.DAT) (G.DAT) (H.DAT) (I.DAT) (J.DAT) (P.DAT) (T.DAT)] def /lanindg1 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 %pcount1g 1 pcount2x {/pcountg exch def %p=page, e. g. 1,1,250 /xchart10 0 def /xchart20 109 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 (/OG41/ ) 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 OG410-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 (OG410-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 OG410-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 (OG410-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 OG410-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 (OG410-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 OG410-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 (OG410-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 OG410-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 (OG410-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 OG410-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 (OG410-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 OG410-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/OG41/) /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 (LECD monitor, anti glossy, no separation, D65) def /FileDatde (LECD\255Monitor, wenig Glanz, keine Separation, D65) def /xyY0 4320 array def %1080x4 /xyY0 [%Apple MacBook 17" without glossy display %Measurement new Apple MacBookPro 17", 2009-12-07, BAM %Colours of file IE31L0NP.PDF (1080 output pages); Mac Preview used %produced with the settings of the LED-LCD (LECD) monitor; full white used 01 3226 3333 0031 %N00V 02 2304 1885 0036 %N13V 03 1820 1083 0047 %N25V 04 1681 0847 0060 %N38V 05 1604 0740 0076 %N50V 06 1562 0680 0095 %N63V 07 1531 0640 0117 %N75V 08 1509 0622 0150 %N88V 09 1474 0613 0239 %N99V 10 3100 4639 0078 11 2480 3118 0082 12 1992 1854 0093 13 1800 1355 0107 14 1686 1109 0123 15 1630 0957 0141 16 1589 0860 0164 17 1552 0790 0196 18 1503 0718 0285 % 19 3036 5559 0199 20 2700 4493 0203 21 2257 3076 0215 22 2029 2340 0229 23 1882 1874 0244 24 1782 1572 0263 25 1713 1361 0286 26 1651 1185 0318 27 1570 0976 0406 28 3007 5880 0354 % 29 2800 5130 0358 30 2445 3910 0369 31 2215 3139 0382 32 2055 2578 0399 33 1938 2182 0417 34 1845 1876 0440 35 1782 1615 0472 36 1647 1274 0560 % 37 3010 6022 0545 38 2864 5490 0550 39 2582 4503 0561 40 2373 3771 0574 41 2210 3190 0590 42 2081 2748 0609 43 1980 2381 0632 44 1880 2058 0664 45 1736 1598 0752 46 3025 6105 0771 % 47 2909 5700 0775 48 2681 4900 0786 49 2500 4258 0799 50 2343 3692 0815 51 2215 3240 0834 52 2104 2848 0856 53 1996 2478 0889 54 1828 1930 0977 55 3035 6156 1065 % 56 2952 5857 1070 57 2772 5217 1081 58 2617 4661 1094 59 2474 4148 1110 60 2348 3709 1128 61 2234 3312 1151 62 2120 2920 1183 63 1933 2300 1272 64 3058 6194 1478 % 65 2998 5973 1482 66 2856 5477 1494 67 2726 5015 1507 68 2600 4570 1523 69 2485 4165 1541 70 2375 3782 1564 71 2259 3386 1596 72 2059 2723 1684 73 3097 6226 2227 % 74 3051 6073 2231 75 2952 5720 2243 76 2851 5373 2257 77 2750 5017 2272 78 2650 4677 2291 79 2550 4338 2313 80 2442 3969 2346 81 2238 3300 2435 82 4250 3325 0045 % 83 3100 2160 0049 84 2251 1295 0061 85 1954 0997 0074 86 1800 0844 0090 87 1713 0756 0109 88 1645 0704 0131 89 1597 0669 0164 90 1530 0643 0253 91 3810 4405 0091 % 92 3056 3156 0096 93 2339 1963 0107 94 2044 1467 0120 95 1872 1190 0136 96 1773 1023 0155 97 1695 0917 0177 98 1634 0831 0210 99 1555 0746 0299 100 3400 5327 0212 % 101 1020 4485 0217 102 2500 3100 0228 103 2216 2390 0242 104 2031 1927 0258 105 1903 1621 0277 106 1805 1400 0300 107 1729 1220 0331 108 1621 1000 0420 109 3230 5705 0367 % 110 3000 5035 0372 111 2620 3902 0384 112 2369 3156 0397 113 2177 2604 0413 114 2040 2210 0431 115 1928 1904 0454 116 1831 1642 0484 117 1695 1292 0575 118 3165 5901 0560 % 119 3008 5402 0565 120 2712 4469 0576 121 2490 3768 0589 122 2311 3203 0606 123 2170 2766 0623 124 2050 2404 0667 125 1942 2078 0679 126 1780 1615 0768 127 3130 6010 0786 % 128 3020 5638 0790 129 2787 4869 0802 130 2592 4220 0816 131 2427 3695 0831 132 2287 3250 0849 133 2167 2859 0873 134 2050 2494 0904 135 1868 1944 0994 136 3118 6092 1082 % 137 3034 5800 1086 138 2850 5184 1097 139 2687 4643 1111 140 2540 4142 1127 141 2408 3710 1146 142 2288 3316 1168 143 2167 2928 1200 144 1970 2312 1289 145 3117 6143 1495 % 146 3058 5927 1500 147 2913 5447 1510 148 2780 4997 1523 149 2650 4559 1540 150 2532 4161 1558 151 2419 3782 1581 152 2300 3390 1613 153 2090 2730 1702 154 3135 6192 2239 % 155 3092 6042 2244 156 2990 5694 2255 157 2890 5353 3368 158 2783 5002 2284 159 2683 4666 2303 160 2582 4329 2326 161 2470 3964 2358 162 2263 3298 2447 163 5200 3375 0081 % 164 4130 2537 0086 165 3033 1681 0097 166 2524 1300 0111 167 2229 1075 0126 168 2040 0940 0144 169 1907 0849 0168 170 1800 0783 0200 171 1661 0715 0289 172 4696 4040 0127 % 173 3946 3225 0132 174 3015 2200 0143 175 2557 1690 0157 176 2266 1378 0173 177 2080 1184 0191 178 1946 1045 0213 179 1831 0934 0246 180 1684 0814 0335 181 4040 4931 0249 % 182 3627 4217 0253 183 3000 3140 0265 184 2623 2487 0278 185 2355 2036 0294 186 2172 1729 0313 187 2030 1497 0335 188 1910 1305 0368 189 1742 1061 0457 190 5693 5387 0404 % 191 3440 4825 0409 192 2999 3850 0420 193 2683 3172 0433 194 2445 2654 0449 195 2270 2275 0468 196 2123 1970 0491 197 1994 1704 0523 198 1810 1344 0612 199 3498 5653 0597 % 200 3330 5226 0602 201 3000 4391 0613 202 2747 3750 0626 203 2531 3217 0643 204 2365 2796 0661 205 2219 2444 0684 206 2087 2121 0716 207 1883 1657 0894 208 3378 5829 0823 % 209 3261 5476 0828 210 3010 4781 0840 211 2797 4200 0853 212 2608 3681 0869 213 2453 3256 0888 214 2311 2881 0910 215 2177 2521 0942 216 1964 1977 1031 217 3305 5939 1119 % 218 3216 5674 1124 219 3025 5101 1136 220 2850 4590 1148 221 2686 4115 1164 222 2545 3702 1183 223 2412 3322 1205 224 2276 2942 1238 225 2055 2333 1327 226 3260 6031 1532 % 227 3194 5826 1537 228 3044 5371 1547 229 2905 4943 1561 230 2770 4524 1577 231 2640 4142 1595 232 2520 3772 1618 233 2390 3394 1650 234 2165 2743 1740 235 3230 6112 2273 % 236 3186 5970 2278 237 3080 5635 2290 238 2975 5306 2303 239 2869 4966 2318 240 2763 4639 2337 241 2658 4310 2361 242 2540 3952 2393 243 2323 3298 2482 244 5660 3370 0126 % 245 4820 2787 0131 246 3680 2006 0143 247 3070 1585 0156 248 2668 1316 0172 249 2405 1143 0190 250 2205 1013 0213 251 2040 0915 0245 252 1820 0803 0335 253 5230 3855 0172 % 254 4567 3260 0177 255 3613 2402 0189 256 3057 1910 0202 257 2680 1580 0219 258 2424 1355 0237 259 2226 1190 0280 260 2062 1059 0292 261 1840 0898 0382 262 4550 4600 0294 % 263 4150 4063 0299 264 3480 3173 0311 265 3038 2582 0325 266 2713 2152 0340 267 2473 1846 0359 268 2286 1604 0382 269 2120 1400 0414 270 1889 1132 0504 271 4110 5085 0450 272 3860 4623 0455 273 3380 3802 0466 274 3025 3198 0479 275 2745 2710 0496 276 2530 2343 0515 277 2348 2043 0537 278 2184 1775 0569 279 1945 1405 0659 280 3830 5395 0643 % 281 3657 5027 0648 282 3305 4302 0660 283 3324 3722 0673 284 2782 3226 0689 285 2587 2830 0708 286 2418 2486 0731 287 2254 2170 0763 288 2010 1705 0852 289 3645 5606 0869 % 290 3522 5307 0874 291 3255 4680 0886 292 3029 4149 0900 293 2820 3666 0915 294 2642 3265 0934 295 2485 2902 0957 296 2328 2553 0989 297 2080 2012 1078 298 3515 5767 1165 % 299 3422 5527 1170 300 3220 5002 1182 301 3035 4528 1195 302 2860 4082 1211 303 2704 3690 1229 304 2560 3324 1253 305 2410 2955 1285 306 2160 2358 1374 307 3418 5897 1578 % 308 3353 5707 1583 309 3200 5280 1594 310 3052 4877 1607 311 2906 4481 1624 312 2772 4115 1642 313 2640 3762 1665 314 2501 3392 1698 315 2257 2756 1787 316 3340 6018 2318 % 317 3296 5880 2322 318 3190 5562 2334 319 3082 5247 2348 320 2970 4919 2364 321 2860 4605 2383 322 2750 4287 2406 323 2627 3939 2438 324 2396 3299 2528 325 5924 3370 0186 % 326 5278 2943 0192 327 4238 2287 0203 328 3590 1856 0217 329 3125 1560 0233 330 2800 1360 0250 331 2540 1200 0274 332 2315 1078 0306 333 2014 0912 0397 334 5577 3724 0232 % 335 5040 3285 0237 336 4140 2580 0249 337 3550 2123 0263 338 3112 1783 0279 339 2800 1545 0297 340 2548 1358 0320 341 2330 1200 0353 342 2030 0999 0443 343 4963 4338 0354 % 344 4600 3928 0360 345 3940 3207 0371 346 3465 2685 0385 347 3090 2277 0401 348 2808 1976 0420 349 2577 1730 0443 350 2368 1514 0475 351 2068 1221 0565 352 4500 4802 0509 % 353 4255 4436 0515 354 3770 3751 0527 355 3393 3215 0540 356 3080 2773 0557 357 2828 2423 0575 358 2610 2128 0598 359 2413 1864 0630 360 2114 1479 0720 361 4170 5139 0703 % 362 3995 4826 0708 363 3635 4208 0720 364 3333 3690 0734 365 3070 3240 0750 366 2846 2865 0768 367 2650 2540 0791 368 2461 2229 0823 369 2166 1763 0914 370 3935 5380 0930 % 371 3806 5118 0934 372 3530 4570 0946 373 3288 4090 0960 374 3063 3650 0976 375 2869 3270 0994 376 2690 2926 1017 377 2510 2588 1049 378 2223 2057 1139 379 3750 5576 1224 % 380 3659 5360 1230 381 3448 4890 1242 382 3252 4458 1255 383 3066 4044 1270 384 2895 3674 1290 385 2734 3326 1312 386 2570 2973 1345 387 2288 2388 1434 388 3604 5740 1636 % 389 3538 5570 1641 390 3380 5175 1654 391 3228 4803 1666 392 3075 4430 1682 393 2931 4085 1701 394 2789 3748 1724 395 2639 3392 1756 396 2370 2771 1846 397 3478 5900 2374 % 398 3432 5773 2380 399 3322 5474 2391 400 3212 5176 2404 401 3094 4864 2420 402 2981 4565 2439 403 2863 4260 2462 404 2735 3923 2494 405 2490 3299 2585 406 6080 3377 0259 % 407 5575 3064 0264 408 4680 2500 0277 409 4049 2104 0290 410 3555 1799 0306 411 3188 1573 0325 412 2885 1394 0347 413 2613 1236 0380 414 2227 1028 0471 415 5811 3635 0304 416 5374 3312 0310 417 4576 2729 0322 418 3988 2312 0335 419 3525 1980 0352 420 3175 1728 0371 421 2883 1530 0394 422 2618 1350 0426 423 2237 1109 0517 424 5282 4135 0425 % 425 4965 3828 0431 426 4343 3239 0443 427 3866 2778 0457 428 3470 2400 0473 429 3152 2106 0492 430 2884 1859 0515 431 2634 1633 0547 432 2266 1317 0637 433 4839 4560 0580 % 434 4610 4270 0586 435 4140 3700 0598 436 3750 3238 0612 437 3412 2830 0627 438 3134 2503 0646 439 2890 2218 0670 440 2657 1952 0701 441 2300 1557 0792 442 4487 4899 0773 % 443 4320 4642 0778 444 3958 4115 0790 445 3649 3660 0803 446 3362 3251 0820 447 3122 2905 0839 448 2899 2594 0861 449 2684 2292 0894 450 2340 1826 0984 451 4215 5160 0998 % 452 4090 4939 1004 453 3815 4460 1016 454 3561 4030 1029 455 3322 3630 1046 456 3112 3278 1064 457 2913 2952 1087 458 2714 2627 1119 459 2383 2103 1209 460 3996 5380 1293 % 461 3902 5194 1299 462 3688 4772 1312 463 3483 4383 1325 464 3288 4003 1340 465 3104 3658 1360 466 2932 3331 1382 467 2749 2990 1415 468 2436 2422 1505 469 3807 5576 1706 % 470 3740 5420 1711 471 3578 5063 1723 472 3420 4721 1736 473 3260 4370 1753 474 3108 4051 1772 475 2958 3733 1795 476 2794 3391 1827 477 2500 2790 1918 478 3630 5774 2443 479 3585 5655 2448 480 3472 5375 2460 481 3358 5098 2474 482 3236 4805 2490 483 3118 4520 2509 484 2995 4228 2532 485 2858 3904 2564 486 2597 3300 2655 487 6192 3378 0353 % 488 5809 3141 0360 489 5054 2680 0372 490 4471 2325 0385 491 3977 2025 0401 492 3587 1793 0420 493 3253 1594 0442 494 2940 1417 0475 495 2475 1166 0566 496 5984 3570 0399 % 497 5640 3330 0405 498 4949 2862 0417 499 4499 2486 0430 500 3935 2170 0445 501 3563 1922 0465 502 3240 1710 0488 503 2938 1518 0521 504 2481 1240 0612 505 5543 3972 0520 % 506 5270 3738 0526 507 4712 3260 0538 508 4254 2865 0551 509 3850 2526 0568 510 3512 2243 0586 511 3220 2000 0610 512 2936 1770 0642 513 2500 1430 0733 514 5140 4346 0674 % 515 4930 4121 0680 516 4488 3654 0692 517 4110 3258 0706 518 3761 2895 0722 519 3466 2590 0741 520 3202 2318 0764 521 2938 2055 0796 522 2521 1652 0887 523 4790 4666 0866 % 524 4630 4460 0872 525 4286 4025 0884 526 3971 3631 0898 527 3680 3264 0914 528 3422 2948 0933 529 3182 2655 0956 530 2942 2364 0988 531 2546 1903 1079 532 4508 4934 1092 % 533 4386 4749 1098 534 4110 4341 1110 535 3855 3967 1123 536 3607 3609 1140 537 3382 3286 1158 538 3169 2984 1182 539 2950 2674 1213 540 2576 2163 1304 541 4258 5173 1387 % 542 4165 5007 1393 543 3950 4646 1405 544 3744 4299 1418 545 5336 3955 1435 546 3345 3640 1453 547 3158 3334 1477 548 2960 3013 1509 549 2612 2462 1600 550 4032 5393 1800 % 551 3966 5253 1806 552 3801 4936 1818 553 3639 4627 1831 554 3474 4310 1847 555 3313 4011 1855 556 3153 3713 1889 557 2977 3390 1921 558 2658 2813 2012 559 3807 5626 2535 % 560 3762 5516 2541 561 3646 5261 2553 562 3530 5004 2567 563 3405 4733 2583 564 3281 4465 2602 565 3155 4190 2625 566 3008 3882 2657 567 2730 3301 2750 568 6269 3383 0472 % 569 5973 3202 0478 570 5351 2823 0491 571 4828 2510 0503 572 4362 2232 0520 573 3971 2000 0539 574 3620 1796 0561 575 3280 1604 0594 576 2746 1315 0686 577 6113 3529 0518 578 5837 3340 0523 579 5254 2963 0536 580 4762 2640 0550 581 4314 2350 0565 582 3940 2110 0584 583 3602 1895 0607 584 3270 1690 0640 585 2750 1383 0731 586 5750 3848 0639 % 587 5520 3665 0644 588 5032 3280 0657 589 4606 2946 0670 590 4211 2639 0686 591 3874 2379 0705 592 3560 2142 0728 593 3251 1913 0761 594 2758 1556 0852 595 5394 4167 0793 % 596 5212 3992 0799 597 4810 3612 0811 598 4446 3275 0825 599 4105 2955 0841 600 3805 2679 0860 601 3520 2420 0883 602 3236 2166 0915 603 2766 1759 1006 604 5068 4464 0986 % 605 4920 4297 0991 606 4594 3936 1004 607 4292 3601 1017 608 3997 3270 1033 609 3732 2992 1052 610 3480 2720 1076 611 3220 2445 1107 612 2780 1989 1198 613 4782 4720 1212 % 614 4666 4570 1217 615 4402 4225 1229 616 4150 3905 1243 617 3900 3589 1260 618 3667 3298 1278 619 3444 3017 1301 620 3206 2725 1333 621 2793 2232 1424 622 4518 4965 1507 % 623 4429 4828 1513 624 4217 4515 1525 625 4012 4212 1539 626 3802 3905 1555 627 3603 3620 1573 628 3407 3338 1596 629 3193 3038 1629 630 2812 2510 1720 631 4270 5201 1919 % 632 4204 5082 1925 633 4040 4802 1938 634 2873 4528 1950 635 3704 4242 1967 636 3540 3969 1986 637 3371 3692 2009 638 3185 3390 2041 639 2840 2840 2133 640 4006 5463 2654 % 641 3957 5363 2660 642 3842 5134 2672 643 3722 4901 2686 644 3593 4650 2702 645 3466 4403 2721 646 3332 4146 2744 647 3180 3858 2776 648 2883 3305 2868 649 6354 3382 0667 % 650 6133 3250 0671 651 5652 2963 0682 652 5210 2702 0695 653 4790 2458 0711 654 4419 2240 0730 655 4070 2040 0752 656 3712 1838 0784 657 3113 1514 0874 658 6238 3485 0712 % 659 6028 3355 0716 660 5564 3064 0728 661 5144 2799 0741 662 4741 3549 0756 663 4382 2326 0775 664 4041 2117 0798 665 3695 1910 0830 666 3112 1573 0920 667 5955 3732 0834 % 668 5775 3600 0839 669 5370 3307 0850 670 4993 3034 0862 671 4630 2774 0878 672 4302 2541 0897 673 3987 2320 0920 674 3663 2095 0952 675 3108 1724 1042 676 5661 3989 0990 % 677 5508 3860 0995 678 5160 3569 1006 679 4832 3296 1019 680 4508 3030 1036 681 4212 2785 1054 682 3925 2552 1077 683 3624 2311 1109 684 3103 1904 1199 685 5370 4245 1186 % 686 5240 4121 1191 687 4946 3839 1203 688 4663 3567 1216 689 4382 3298 1232 690 4120 3049 1251 691 3861 2807 1274 692 3588 2552 1306 693 3100 2113 1396 694 5101 4481 1417 % 695 4995 4362 1422 696 4746 4092 1434 697 4506 3830 1447 698 4261 3560 1464 699 4030 3312 1482 700 3800 3064 1506 701 3550 2800 1538 702 3098 2332 1627 703 4837 4718 1717 % 704 4751 4606 1723 705 4547 4352 1734 706 4345 4100 1748 707 4137 3841 1765 708 3937 3593 1783 709 3734 3346 1806 % 710 3513 3077 1838 711 3098 2584 1927 712 4576 4958 2133 713 4508 4859 2138 714 4345 4624 2149 715 4182 4390 2162 716 4010 4145 2178 717 3840 3906 2198 718 3668 3663 2221 719 3472 3393 2252 720 3100 2885 2342 721 4276 5240 2866 % 722 4228 5256 2871 723 4108 4956 2883 724 3987 4750 2896 725 3854 4530 2912 726 3723 4310 2931 727 3584 4080 2953 728 3425 3821 2986 729 3109 3312 3075 %End of measurement series; measurement pause of 30 min 730 3114 3315 3096 %15 min wait decreases luminance from 3125 to 3096 731 2892 3311 2904 732 2741 3308 2783 733 2607 3305 2686 734 2497 3302 2610 735 2403 3300 2547 736 2327 3299 2499 737 2265 3298 2462 738 2240 3297 2446 739 3472 3392 2270 % 740 3187 3390 2073 741 2983 3388 1952 742 2800 3389 1854 743 2643 3389 1778 744 2506 3388 1715 745 2392 3386 1666 746 2300 3384 1626 747 2259 3381 1607 748 3730 3344 1823 % 749 3402 3336 1626 750 3158 3330 1506 751 2934 3325 1407 752 2736 3320 1331 753 2560 3319 1269 754 2413 3314 1221 755 2286 3309 1181 756 2234 3301 1162 757 4019 3308 1499 % 758 3658 3294 1303 759 3377 3283 1182 760 3110 3276 1085 761 2868 3266 1010 762 2644 3257 0947 763 2454 3250 0899 764 2288 3240 0859 765 2212 3230 0841 766 4366 3295 1248 767 3983 3275 1053 768 3670 3261 0933 769 3358 3246 0835 770 3064 3234 0760 771 2783 3220 0698 772 2530 3205 0651 773 2307 3191 0613 774 2207 3180 0595 775 4810 3292 1033 % 776 4425 3279 0839 777 4096 3250 0719 778 3742 3228 0622 779 3388 3206 0547 780 3025 3187 0486 781 2684 3167 0439 782 2367 3145 0402 783 2213 3130 0384 784 5350 3303 0860 % 785 5015 3278 0666 786 4699 3258 0547 787 4333 3228 0450 788 3935 3200 0375 789 3471 3169 0314 790 3000 3127 0268 791 2500 3088 0230 792 2255 3065 0216 793 6018 3352 0723 % 794 5824 3340 0529 795 5626 3325 0409 796 5370 3305 0313 797 5034 3287 0239 798 4554 3255 0178 799 3937 3204 0133 800 3055 3140 0096 801 2490 3100 0082 802 6356 3382 0671 % 803 6276 3381 0476 804 6195 3378 0356 805 6075 3382 0261 806 5921 3375 0187 807 5676 3370 0127 808 5228 3351 0081 809 4250 3333 0045 810 3226 3333 0031 811 3108 3310 3071 % 812 2842 2843 2144 813 2616 2466 1612 814 2386 2109 1219 815 2167 1763 0916 816 1946 1404 0661 817 1744 1062 0458 818 1556 0744 0300 819 1475 0610 0238 820 3423 3819 2982 % 821 3185 3388 2053 822 2960 3012 1521 823 2714 2628 1128 824 2460 2229 0826 825 2185 1776 0572 826 1909 1302 0369 827 1634 0834 0210 828 1509 0619 0148 829 3583 4081 2949 % 830 3368 3685 2021 831 3157 3330 1488 832 2914 2952 1096 833 2649 2535 0794 834 2350 2039 0540 835 2029 1493 0337 836 1695 0913 0179 837 1531 0640 0117 838 3721 4310 2926 % 839 3535 3962 1997 840 3342 3633 1465 841 3110 3273 1073 842 2846 2861 0771 843 2528 2340 0517 844 2169 1724 0314 845 1768 1023 0155 846 1563 0674 0094 847 3854 4530 2906 % 848 3700 4234 1976 849 3535 3949 1446 850 3321 3624 1053 851 3065 3232 0752 852 2742 2704 0498 853 2354 2032 0296 854 1877 1190 0137 855 1602 0738 0076 856 3985 4751 2890 % 857 3871 4520 1962 858 3738 4292 1429 859 3556 4026 1037 860 3332 3686 0736 861 3024 3185 0481 862 2620 2480 0279 863 2041 1470 0120 864 1674 0851 0060 865 4106 4957 2877 % 866 4038 4796 1948 867 3946 4635 1415 868 3812 4452 1023 869 3632 4203 0722 870 3380 3799 0468 871 2992 3133 0266 %kor 2133->3133 872 2340 1956 0108 873 1820 1090 0047 874 4226 5158 2866 % 875 4201 5079 1936 876 4162 5007 1403 877 4094 4932 1011 878 3995 4830 0710 879 3854 4625 0455 880 3626 4212 0254 881 3059 3158 0096 882 2340 1869 0035 883 4276 5242 2861 % 884 4271 5201 1929 885 4258 5172 1396 886 4220 5156 1005 887 4172 5138 0704 888 4115 5085 0450 889 4035 4931 0249 890 3800 4396 0091 891 3200 3333 0030 892 3106 3309 3069 % 893 3097 2881 2336 894 3095 2581 1923 895 3097 2331 1627 896 3100 2113 1399 897 3104 1907 1205 898 3109 1727 1047 899 3114 1574 0924 900 3115 1515 0878 901 3179 3852 2787 % 902 3184 3388 2051 903 3191 3036 1640 904 3205 2726 1344 905 3217 2446 1117 906 3233 2168 0923 907 3250 1912 0767 908 3269 1691 0644 909 3279 1602 0597 910 3152 4182 2634 % 911 3152 3706 1898 912 3158 3329 1486 913 3166 2982 1190 914 3180 2653 0965 915 3197 2316 0770 916 3216 1997 0614 917 3237 1710 0492 918 3250 1592 0445 919 3116 4509 2515 % 920 3107 4043 1778 921 3104 3651 1366 922 3108 3274 1070 923 3118 2899 0844 924 3131 2501 0651 925 3146 2103 0495 926 3170 1725 0373 927 3180 1569 0326 928 3093 4856 2421 % 929 3072 4422 1684 930 3063 4036 1273 931 3060 3641 0977 932 3064 3231 0751 933 3074 2763 0558 934 3086 2274 0402 935 3104 1781 0280 936 3115 1560 0233 937 3079 5238 2346 % 938 3051 4871 1607 939 3032 4523 1195 940 3027 4142 0900 941 3024 3713 0674 942 3024 3185 0481 943 3036 2577 0325 944 3049 1906 0203 945 3061 1586 0157 946 3077 5630 2286 % 947 3044 5366 1547 948 3020 5094 1134 949 3006 4775 0840 950 3000 4382 0614 951 2995 3845 0421 952 2995 3133 0265 953 3008 2187 0144 954 3015 1670 0098 955 3087 6042 2240 % 956 3055 5924 1497 957 3030 5799 1085 958 3018 5620 0790 959 3005 5400 0564 960 3000 5020 0372 961 3015 4385 0218 962 3059 3145 0096 963 3080 2140 0050 964 3096 6225 2220 % 965 3061 6196 1474 966 3035 6157 1062 967 3021 6102 0768 968 3012 6025 0543 969 3008 5870 0352 970 3023 5550 0198 971 3100 4650 0076 972 3152 3300 0031 973 3152 3370 0031 % 974 3050 3140 0096 975 2999 3129 0265 976 3023 3187 0480 977 3063 3233 0750 978 3109 3273 1070 979 3155 3329 1485 980 3182 3387 2050 981 3105 3308 3068 982 3200 3333 0030 % 983 3050 3150 0096 984 3000 3129 0265 985 3023 3185 0480 986 3063 3231 0750 987 3108 3271 1070 988 3156 3330 1485 989 3182 3388 2050 990 3105 3308 3067 991 3200 3333 0031 992 3046 3135 0095 993 3000 3129 0265 994 3021 3189 0480 995 3062 3231 0750 996 3108 3273 1070 997 3156 3330 1485 998 3183 3387 2050 999 3105 3309 3067 1000 3200 3333 0031 % 1001 3069 3158 0096 1002 2999 3129 0265 1003 3021 3187 0480 1004 3060 3231 0750 1005 3108 3273 1070 1006 3156 3329 1486 1007 3183 3388 2050 1008 3104 3308 3067 1009 3200 3333 0030 1010 3200 3290 0042 1011 3040 3120 0103 1012 2973 3098 0199 1013 3025 3161 0288 1014 3027 3160 0396 1015 3034 3193 0522 1016 3050 3221 0672 1017 3066 3225 0824 1018 3095 3255 1002 1019 3116 3284 1203 1020 3144 3316 1430 1021 3170 3352 1701 1022 3185 3381 2014 1023 3207 3422 2420 1024 3105 3308 3068 1025 3200 3333 0031 1026 3205 3282 0043 1027 3050 3123 0104 1028 2975 3110 0200 1029 3024 3155 0289 1030 3020 3164 0398 1031 3033 3191 0524 1032 3054 3223 0673 1033 3068 3227 0827 1034 3094 3257 1004 1035 3116 3285 1206 1036 3145 3315 1433 1037 3170 3352 1704 1038 3185 3382 2017 1039 3208 3423 2422 1040 3106 3309 3069 1041 3200 3333 0031 1042 3206 3282 0042 1043 3040 3120 0104 1044 2969 3105 0199 1045 3020 3162 0289 1046 3020 3163 0397 1047 3032 3191 0522 1048 3054 3221 0673 1049 3068 3224 0825 1050 3094 3256 1002 1051 3115 3286 1204 1052 3143 3316 1432 1053 3170 3351 1703 1054 3185 3381 2016 1055 3208 3423 2421 1056 3105 3308 3069 1057 3222 3333 0031 % 1058 3200 3270 0043 1059 3030 3121 0104 1060 2969 3109 0199 1061 3026 3154 0288 1062 3022 3160 0396 1063 3035 3190 0522 1064 3052 3220 0671 1065 3066 3236 0825 1066 3094 3256 1002 1067 3116 3285 1204 1068 3144 3315 1432 1069 3170 3351 1702 1070 3185 3380 2014 1071 3207 3422 2421 1072 3104 3308 3068 1073 3200 3330 0031 %N1072 1074 3105 3307 3067 %W1073 1075 6354 3380 0670 %O 1076 2236 3288 2428 %C 1077 4276 5242 2859 %Y 1078 1476 0611 0239 %V 1079 3093 6224 2229 %L 1080 3114 1513 0878 %M ] def %*********************************************************** /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 %*********************************************************** /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_to_XYZ729 { %BEG procedure xyY0_to_XYZ729 %requires /xyY0 4320 array def %4x1080 %requires /(XYZ)rx089 729 array def % /(XYZ)rx100 729 array def /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 xyY0_to_XYZ729 %*********************************************************** /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 xyY0_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 (OG410-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 ( OG410-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 OG410-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 (OG410-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 OG411-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 (OG411-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 OG411-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 (OG411-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 OG411-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 (OG411-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 OG411-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 (OG411-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 OG411-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 (OG411-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 OG411-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 (OG411-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 OG411-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 (OG411-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 OG411-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 (OG411-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 OG41 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 OG41; 48- & 360-stufige Bunttonkreise) showde (TUB\255test chart OG41; 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 LECD\255Display, wenig Glanz, Keine Separation, D65) showde ( Data of LECD display, anti glossy, 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/OG41/OG41L) 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 (OG41/OG41L) 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/OG41/OG41L) 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\255OG41/OG41L) showde (TUB registration: 20110301\255OG41/OG41L) 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