%!PS-Adobe-3.0 EPSF-3.0 xxx/OE40/OE40L0XX.PS 20110301 %%BoundingBox: 00 00 414 292 /pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put } if [/Title (PostScript pictures: http://130.149.60.445/~farbmetrik/OE40/OE40.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 OE40/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 OE40/OUTLIN10.PS Output Linearization (OL) olv*->olv'* 20110301 %BEG OE40/OUTLIN1X.PS 20110301 %EMPTY %END OE40/OUTLIN1X.PS 20110301 /CFilenameS1g %START output of step S1g (OE40L0N) def %Link file name for data /CDateS1g (2011-03-01, Name) def %Date of calculation, Tester /CDeviceS1g (unknown ) def %Device name /CMeasS1g (OE40/OE40L0N) def %File name measured in step S1g %change scount2g from 2 to 10 for 10 series %change pcount2g from 8 to 240 for 240 pages of each series /scount1g 1 def /scount2g 1 def /scountg 1 def /pcount1g 1 def /pcount2g 1 def /pcountg 1 def /xchart1g 0 def /xchart2g 1 def /xchartg 0 def /BeginEPSF { % def % Prepare for EPS file /b4_Inc_state save def % Save state for cleanup /dict_count countdictstack def /op_count count 1 sub def % Count objects on op stack userdict begin % Make userdict current dict /showpage {} def 0 setgray 0 setlinecap 1 setlinewidth 0 setlinejoin 10 setmiterlimit [] 0 setdash newpath /languagelevel where % If level not equal to 1 then {pop languagelevel where % If level not equal to 1 then 1 ne {false setstrokeadjust false setoverprint } if } if } bind def /EndEPSF { % def count op_count sub {pop} repeat countdictstack dict_count sub {end} repeat % Clean up dict stack b4_Inc_state restore } bind def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /CBKK {200 /CourierB-ISOL1 FS} bind def /CBK {250 /CourierB-ISOL1 FS} bind def /CBM {300 /CourierB-ISOL1 FS} bind def /CBG {350 /CourierB-ISOL1 FS} bind def %ANFA CMYKDEF %CMYKDEA0 (A0=Standard-Drucker-CMYKDEF) 15.3.97 /tzac [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzam [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzay [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzan [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tza0 [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000] def /tza1 [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000] def %ENDE CMYKD /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfiLAB* %x y width heigth LAB* { setcolor rec fill} bind def /colrecstLAB* %x y width heigth LAB* { setcolor rec stroke} bind def /colrecficmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec fill} bind def /colrecstcmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec stroke} bind def /colrecfiw* %x y width heigth w* { setgray rec fill} bind def /colrecstw* %x y width heigth w* { setgray rec stroke} bind def /colrecfiolv* %x y width heigth olv* { setrgbcolor rec fill} bind def /colrecstolv* %x y width heigth olv* { setrgbcolor rec stroke} bind def /tzocmy0* {0.0 1.0 1.0 0.0} bind def %Reproduction colours /tzlcmy0* {1.0 0.0 1.0 0.0} bind def %cmyn* setcmykcolor /tzvcmy0* {1.0 1.0 0.0 0.0} bind def /tzccmy0* {1.0 0.0 0.0 0.0} bind def /tzmcmy0* {0.0 1.0 0.0 0.0} bind def /tzycmy0* {0.0 0.0 1.0 0.0} bind def /tzoolv* {1.0 0.0 0.0} bind def %Reproduction colours /tzlolv* {0.0 1.0 0.0} bind def %olv* setrgbcolor /tzvolv* {0.0 0.0 1.0} bind def /tzcolv* {0.0 1.0 1.0} bind def /tzmolv* {1.0 0.0 1.0} bind def /tzyolv* {1.0 1.0 0.0} bind def /tzoLAB* [53.34 72.46 50.66] def %Reproduction colours /tzlLAB* [84.93 -79.83 74.80] def %LAB* setcolor /tzvLAB* [32.20 24.88 -37.89] def /tzcLAB* [88.10 -44.88 -13.36] def /tzmLAB* [59.66 90.32 -19.65] def /tzyLAB* [93.76 -20.24 85.93] def /tzncmy0* {1.00 1.00 1.00 0.00} bind def %grey series /tzdcmy0* {0.75 0.75 0.75 0.00} bind def %cmy0* setcmykcolor /tzzcmy0* {0.50 0.50 0.50 0.00} bind def /tzhcmy0* {0.25 0.25 0.25 0.00} bind def /tzwcmy0* {0.00 0.00 0.00 0.00} bind def /tzn000n* {0.00 0.00 0.00 1.00} bind def %grey series 000n* /tzd000n* {0.00 0.00 0.00 0.75} bind def %000n* setcmykcolor /tzz000n* {0.00 0.00 0.00 0.50} bind def /tzh000n* {0.00 0.00 0.00 0.25} bind def /tzw000n* {0.00 0.00 0.00 0.00} bind def /tznw* {0.00} bind def %grey series /tzdw* {0.25} bind def %w* setgray /tzzw* {0.50} bind def /tzhw* {0.75} bind def /tzww* {1.00} bind def /tznolv* {0.00 0.00 0.00} bind def %grey series /tzdolv* {0.25 0.25 0.25} bind def %olv* setrgbcolor /tzzolv* {0.50 0.50 0.50} bind def /tzholv* {0.75 0.75 0.75} bind def /tzwolv* {1.00 1.00 1.00} bind def /tznLAB* [18.01 0.00 0.00] def %grey series /tzdLAB* [37.36 0.00 0.00] def %LAB* setcolor /tzzLAB* [56.71 0.00 0.00] def /tzhLAB* [76.06 0.00 0.00] def /tzwLAB* [95.41 0.00 0.00] def /tfn {0 setgray} bind def /tfw {1 setgray} bind def /A4quer {598 0 translate 90 rotate} def %0 %1 /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def /tzank [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /LAB*TE [(ORS18) (TLS00) (FRS06) (TSL18) (NLS00) (NLS18) (SRS18) (TLS70) (TLS00) (TLS06) (TLS11) (TLS18) (TLS27) (TLS38) (TLS52) (TLS70) (OLS00) (OLS06) (OLS11) (OLS18) (OLS27) (OLS38) (OLS52) (OLS70)] def %BEG 61 lines comment or new PS operators possible %1 %2 %3 %%EndProlog %%BeginPageSetup /#copies 1 def %A4quer 0.5 0.5 scale /pgsave save def %%EndPageSetup 0.0 MM 0.0 MM translate %Verschiebung nach oben und links fuer Belichter gsave /SS$ [(G) (E) (S) (F) (I) (J) (M)] def /SC$ [(N) (F) (S) (D) (T) (E) (C)] def /SX$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)%max 32 (G) (H) (I) (J) (K) (L) (M) (N) (O) (P) (Q) (R) (S) (T) (U) (V)] def /SY$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)%max 32 (G) (H) (I) (J) (K) (L) (M) (N) (O) (P) (Q) (R) (S) (T) (U) (V)] def % 0 1 2 3 4 5 % 6 7 8 /EX$ [(1.TXT /.PS) (B.BMP /.PS) (G.GIF /.PS) (H.HTM /.PS) (I.HTM /.PS) (J.JPE /.PS) (P.PDF /.PS) (T.TIF /.PS)] def /EY$ [(1.DAT) (B.DAT) (G.DAT) (H.DAT) (I.DAT) (J.DAT) (P.DAT) (T.DAT)] def /lanindg1 1 def /lanindg2 1 def /colormg1 0 def /colormg2 0 def /xcolorg1 0 def /xcolorg2 0 def /xchartg1 0 def /xchartg2 0 def /lanindg lanindg1 def %no loops /colormg colormg1 def /xcolorg xcolorg1 def /xchartg xchartg1 def /pcount2x pcount2g xchart2g sub 2 add def %scount1g 1 scount2g {/scountg exch def %s=serie, e. g. 1,1,10 %1 1 1 {/pcountg exch def %p=page, e. g. 1,1,250 /xchart10 0 def /xchart20 0 def /xchart20m xchart20 def %pcountg pcount1g eq {/xchart10 0 def /xchart20 0 def} % {/xchart10 1 def /xchart20 1 def} ifelse %%pcountg pcount2x eq {/xchart10 2 def /xchart20 9 def} if /xchartf where {pop /xchart10 xchartf def /xchart20 xchartf def /xchart20m xchart20f def} if xchart10 1 xchart20 {/xchartg exch def /ausz 8 def /colorm colormg def /xchart xchartg def /xchartg0 0 def %needs Definition of xcharti, is only in OUTLIN1X.PS %2 MM /Times-Roman FS %274 MM 82 MM moveto -90 rotate (/OE40/ ) 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 OE400-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 (OE400-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 OE400-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 (OE400-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 OE400-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 (OE400-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 OE400-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 (OE400-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 OE400-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 (OE400-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 OE400-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 (OE400-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 OE400-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/OE40/) /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 /FileData0 (%BEG GE27_22.TXT) def /FileDaten (sRGB standard device; no separation, D65) def /FileDatde (sRGB Norm\255Ger\344t; keine Separation, D65) def /RGB0 3240 array def %1080*3 /RGB0 [%1000 x rgb* nr. pos 1080 colours 0000 0000 0000 %0000 A01 0000 0000 0125 %0001 A02 0000 0000 0250 %0002 A03 0000 0000 0375 %0003 A04 0000 0000 0500 %0004 A05 0000 0000 0625 %0005 A06 0000 0000 0750 %0006 A07 0000 0000 0875 %0007 A08 0000 0000 1000 %0008 A09 0000 0125 0000 %0009 B01 0000 0125 0125 %0010 B02 0000 0125 0250 %0011 B03 0000 0125 0375 %0012 B04 0000 0125 0500 %0013 B05 0000 0125 0625 %0014 B06 0000 0125 0750 %0015 B07 0000 0125 0875 %0016 B08 0000 0125 1000 %0017 B09 0000 0250 0000 %0018 C01 0000 0250 0125 %0019 C02 0000 0250 0250 %0020 C03 0000 0250 0375 %0021 C04 0000 0250 0500 %0022 C05 0000 0250 0625 %0023 C06 0000 0250 0750 %0024 C07 0000 0250 0875 %0025 C08 0000 0250 1000 %0026 C09 0000 0375 0000 %0027 D01 0000 0375 0125 %0028 D02 0000 0375 0250 %0029 D03 0000 0375 0375 %0030 D04 0000 0375 0500 %0031 D05 0000 0375 0625 %0032 D06 0000 0375 0750 %0033 D07 0000 0375 0875 %0034 D08 0000 0375 1000 %0035 D09 0000 0500 0000 %0036 E01 0000 0500 0125 %0037 E02 0000 0500 0250 %0038 E03 0000 0500 0375 %0039 E04 0000 0500 0500 %0040 E05 0000 0500 0625 %0041 E06 0000 0500 0750 %0042 E07 0000 0500 0875 %0043 E08 0000 0500 1000 %0044 E09 0000 0625 0000 %0045 F01 0000 0625 0125 %0046 F02 0000 0625 0250 %0047 F03 0000 0625 0375 %0048 F04 0000 0625 0500 %0049 F05 0000 0625 0625 %0050 F06 0000 0625 0750 %0051 F07 0000 0625 0875 %0052 F08 0000 0625 1000 %0053 F09 0000 0750 0000 %0054 G01 0000 0750 0125 %0055 G02 0000 0750 0250 %0056 G03 0000 0750 0375 %0057 G04 0000 0750 0500 %0058 G05 0000 0750 0625 %0059 G06 0000 0750 0750 %0060 G07 0000 0750 0875 %0061 G08 0000 0750 1000 %0062 G09 0000 0875 0000 %0063 H01 0000 0875 0125 %0064 H02 0000 0875 0250 %0065 H03 0000 0875 0375 %0066 H04 0000 0875 0500 %0067 H05 0000 0875 0625 %0068 H06 0000 0875 0750 %0069 H07 0000 0875 0875 %0070 H08 0000 0875 1000 %0071 H09 0000 1000 0000 %0072 I01 0000 1000 0125 %0073 I02 0000 1000 0250 %0074 I03 0000 1000 0375 %0075 I04 0000 1000 0500 %0076 I05 0000 1000 0625 %0077 I06 0000 1000 0750 %0078 I07 0000 1000 0875 %0079 I08 0000 1000 1000 %0080 I09 0125 0000 0000 %0081 J01 0125 0000 0125 %0082 J02 0125 0000 0250 %0083 J03 0125 0000 0375 %0084 J04 0125 0000 0500 %0085 J05 0125 0000 0625 %0086 J06 0125 0000 0750 %0087 J07 0125 0000 0875 %0088 J08 0125 0000 1000 %0089 J09 0125 0125 0000 %0090 K01 0125 0125 0125 %0091 K02 0125 0125 0250 %0092 K03 0125 0125 0375 %0093 K04 0125 0125 0500 %0094 K05 0125 0125 0625 %0095 K06 0125 0125 0750 %0096 K07 0125 0125 0875 %0097 K08 0125 0125 1000 %0098 K09 0125 0250 0000 %0099 L01 0125 0250 0125 %0100 L02 0125 0250 0250 %0101 L03 0125 0250 0375 %0102 L04 0125 0250 0500 %0103 L05 0125 0250 0625 %0104 L06 0125 0250 0750 %0105 L07 0125 0250 0875 %0106 L08 0125 0250 1000 %0107 L09 0125 0375 0000 %0108 M01 0125 0375 0125 %0109 M02 0125 0375 0250 %0110 M03 0125 0375 0375 %0111 M04 0125 0375 0500 %0112 M05 0125 0375 0625 %0113 M06 0125 0375 0750 %0114 M07 0125 0375 0875 %0115 M08 0125 0375 1000 %0116 M09 0125 0500 0000 %0117 N01 0125 0500 0125 %0118 N02 0125 0500 0250 %0119 N03 0125 0500 0375 %0120 N04 0125 0500 0500 %0121 N05 0125 0500 0625 %0122 N06 0125 0500 0750 %0123 N07 0125 0500 0875 %0124 N08 0125 0500 1000 %0125 N09 0125 0625 0000 %0126 O01 0125 0625 0125 %0127 O02 0125 0625 0250 %0128 O03 0125 0625 0375 %0129 O04 0125 0625 0500 %0130 O05 0125 0625 0625 %0131 O06 0125 0625 0750 %0132 O07 0125 0625 0875 %0133 O08 0125 0625 1000 %0134 O09 0125 0750 0000 %0135 P01 0125 0750 0125 %0136 P02 0125 0750 0250 %0137 P03 0125 0750 0375 %0138 P04 0125 0750 0500 %0139 P05 0125 0750 0625 %0140 P06 0125 0750 0750 %0141 P07 0125 0750 0875 %0142 P08 0125 0750 1000 %0143 P09 0125 0875 0000 %0144 Q01 0125 0875 0125 %0145 Q02 0125 0875 0250 %0146 Q03 0125 0875 0375 %0147 Q04 0125 0875 0500 %0148 Q05 0125 0875 0625 %0149 Q06 0125 0875 0750 %0150 Q07 0125 0875 0875 %0151 Q08 0125 0875 1000 %0152 Q09 0125 1000 0000 %0153 R01 0125 1000 0125 %0154 R02 0125 1000 0250 %0155 R03 0125 1000 0375 %0156 R04 0125 1000 0500 %0157 R05 0125 1000 0625 %0158 R06 0125 1000 0750 %0159 R07 0125 1000 0875 %0160 R08 0125 1000 1000 %0161 R09 0250 0000 0000 %0162 S01 0250 0000 0125 %0163 S02 0250 0000 0250 %0164 S03 0250 0000 0375 %0165 S04 0250 0000 0500 %0166 S05 0250 0000 0625 %0167 S06 0250 0000 0750 %0168 S07 0250 0000 0875 %0169 S08 0250 0000 1000 %0170 S09 0250 0125 0000 %0171 T01 0250 0125 0125 %0172 T02 0250 0125 0250 %0173 T03 0250 0125 0375 %0174 T04 0250 0125 0500 %0175 T05 0250 0125 0625 %0176 T06 0250 0125 0750 %0177 T07 0250 0125 0875 %0178 T08 0250 0125 1000 %0179 T09 0250 0250 0000 %0180 U01 0250 0250 0125 %0181 U02 0250 0250 0250 %0182 U03 0250 0250 0375 %0183 U04 0250 0250 0500 %0184 U05 0250 0250 0625 %0185 U06 0250 0250 0750 %0186 U07 0250 0250 0875 %0187 U08 0250 0250 1000 %0188 U09 0250 0375 0000 %0189 V01 0250 0375 0125 %0190 V02 0250 0375 0250 %0191 V03 0250 0375 0375 %0192 V04 0250 0375 0500 %0193 V05 0250 0375 0625 %0194 V06 0250 0375 0750 %0195 V07 0250 0375 0875 %0196 V08 0250 0375 1000 %0197 V09 0250 0500 0000 %0198 W01 0250 0500 0125 %0199 W02 0250 0500 0250 %0200 W03 0250 0500 0375 %0201 W04 0250 0500 0500 %0202 W05 0250 0500 0625 %0203 W06 0250 0500 0750 %0204 W07 0250 0500 0875 %0205 W08 0250 0500 1000 %0206 W09 0250 0625 0000 %0207 X01 0250 0625 0125 %0208 X02 0250 0625 0250 %0209 X03 0250 0625 0375 %0210 X04 0250 0625 0500 %0211 X05 0250 0625 0625 %0212 X06 0250 0625 0750 %0213 X07 0250 0625 0875 %0214 X08 0250 0625 1000 %0215 X09 0250 0750 0000 %0216 Y01 0250 0750 0125 %0217 Y02 0250 0750 0250 %0218 Y03 0250 0750 0375 %0219 Y04 0250 0750 0500 %0220 Y05 0250 0750 0625 %0221 Y06 0250 0750 0750 %0222 Y07 0250 0750 0875 %0223 Y08 0250 0750 1000 %0224 Y09 0250 0875 0000 %0225 Z01 0250 0875 0125 %0226 Z02 0250 0875 0250 %0227 Z03 0250 0875 0375 %0228 Z04 0250 0875 0500 %0229 Z05 0250 0875 0625 %0230 Z06 0250 0875 0750 %0231 Z07 0250 0875 0875 %0232 Z08 0250 0875 1000 %0233 Z09 0250 1000 0000 %0234 a01 0250 1000 0125 %0235 a02 0250 1000 0250 %0236 a03 0250 1000 0375 %0237 a04 0250 1000 0500 %0238 a05 0250 1000 0625 %0239 a06 0250 1000 0750 %0240 a07 0250 1000 0875 %0241 a08 0250 1000 1000 %0242 a09 0375 0000 0000 %0243 A10 0375 0000 0125 %0244 A11 0375 0000 0250 %0245 A12 0375 0000 0375 %0246 A13 0375 0000 0500 %0247 A14 0375 0000 0625 %0248 A15 0375 0000 0750 %0249 A16 0375 0000 0875 %0250 A17 0375 0000 1000 %0251 A18 0375 0125 0000 %0252 B10 0375 0125 0125 %0253 B11 0375 0125 0250 %0254 B12 0375 0125 0375 %0255 B13 0375 0125 0500 %0256 B14 0375 0125 0625 %0257 B15 0375 0125 0750 %0258 B16 0375 0125 0875 %0259 B17 0375 0125 1000 %0260 B18 0375 0250 0000 %0261 C10 0375 0250 0125 %0262 C11 0375 0250 0250 %0263 C12 0375 0250 0375 %0264 C13 0375 0250 0500 %0265 C14 0375 0250 0625 %0266 C15 0375 0250 0750 %0267 C16 0375 0250 0875 %0268 C17 0375 0250 1000 %0269 C18 0375 0375 0000 %0270 D10 0375 0375 0125 %0271 D11 0375 0375 0250 %0272 D12 0375 0375 0375 %0273 D13 0375 0375 0500 %0274 D14 0375 0375 0625 %0275 D15 0375 0375 0750 %0276 D16 0375 0375 0875 %0277 D17 0375 0375 1000 %0278 D18 0375 0500 0000 %0279 E10 0375 0500 0125 %0280 E11 0375 0500 0250 %0281 E12 0375 0500 0375 %0282 E13 0375 0500 0500 %0283 E14 0375 0500 0625 %0284 E15 0375 0500 0750 %0285 E16 0375 0500 0875 %0286 E17 0375 0500 1000 %0287 E18 0375 0625 0000 %0288 F10 0375 0625 0125 %0289 F11 0375 0625 0250 %0290 F12 0375 0625 0375 %0291 F13 0375 0625 0500 %0292 F14 0375 0625 0625 %0293 F15 0375 0625 0750 %0294 F16 0375 0625 0875 %0295 F17 0375 0625 1000 %0296 F18 0375 0750 0000 %0297 G10 0375 0750 0125 %0298 G11 0375 0750 0250 %0299 G12 0375 0750 0375 %0300 G13 0375 0750 0500 %0301 G14 0375 0750 0625 %0302 G15 0375 0750 0750 %0303 G16 0375 0750 0875 %0304 G17 0375 0750 1000 %0305 G18 0375 0875 0000 %0306 H10 0375 0875 0125 %0307 H11 0375 0875 0250 %0308 H12 0375 0875 0375 %0309 H13 0375 0875 0500 %0310 H14 0375 0875 0625 %0311 H15 0375 0875 0750 %0312 H16 0375 0875 0875 %0313 H17 0375 0875 1000 %0314 H18 0375 1000 0000 %0315 I10 0375 1000 0125 %0316 I11 0375 1000 0250 %0317 I12 0375 1000 0375 %0318 I13 0375 1000 0500 %0319 I14 0375 1000 0625 %0320 I15 0375 1000 0750 %0321 I16 0375 1000 0875 %0322 I17 0375 1000 1000 %0323 I18 0500 0000 0000 %0324 J10 0500 0000 0125 %0325 J11 0500 0000 0250 %0326 J12 0500 0000 0375 %0327 J13 0500 0000 0500 %0328 J14 0500 0000 0625 %0329 J15 0500 0000 0750 %0330 J16 0500 0000 0875 %0331 J17 0500 0000 1000 %0332 J18 0500 0125 0000 %0333 K10 0500 0125 0125 %0334 K11 0500 0125 0250 %0335 K12 0500 0125 0375 %0336 K13 0500 0125 0500 %0337 K14 0500 0125 0625 %0338 K15 0500 0125 0750 %0339 K16 0500 0125 0875 %0340 K17 0500 0125 1000 %0341 K18 0500 0250 0000 %0342 L10 0500 0250 0125 %0343 L11 0500 0250 0250 %0344 L12 0500 0250 0375 %0345 L13 0500 0250 0500 %0346 L14 0500 0250 0625 %0347 L15 0500 0250 0750 %0348 L16 0500 0250 0875 %0349 L17 0500 0250 1000 %0350 L18 0500 0375 0000 %0351 M10 0500 0375 0125 %0352 M11 0500 0375 0250 %0353 M12 0500 0375 0375 %0354 M13 0500 0375 0500 %0355 M14 0500 0375 0625 %0356 M15 0500 0375 0750 %0357 M16 0500 0375 0875 %0358 M17 0500 0375 1000 %0359 M18 0500 0500 0000 %0360 N10 0500 0500 0125 %0361 N11 0500 0500 0250 %0362 N12 0500 0500 0375 %0363 N13 0500 0500 0500 %0364 N14 0500 0500 0625 %0365 N15 0500 0500 0750 %0366 N16 0500 0500 0875 %0367 N17 0500 0500 1000 %0368 N18 0500 0625 0000 %0369 O10 0500 0625 0125 %0370 O11 0500 0625 0250 %0371 O12 0500 0625 0375 %0372 O13 0500 0625 0500 %0373 O14 0500 0625 0625 %0374 O15 0500 0625 0750 %0375 O16 0500 0625 0875 %0376 O17 0500 0625 1000 %0377 O18 0500 0750 0000 %0378 P10 0500 0750 0125 %0379 P11 0500 0750 0250 %0380 P12 0500 0750 0375 %0381 P13 0500 0750 0500 %0382 P14 0500 0750 0625 %0383 P15 0500 0750 0750 %0384 P16 0500 0750 0875 %0385 P17 0500 0750 1000 %0386 P18 0500 0875 0000 %0387 Q10 0500 0875 0125 %0388 Q11 0500 0875 0250 %0389 Q12 0500 0875 0375 %0390 Q13 0500 0875 0500 %0391 Q14 0500 0875 0625 %0392 Q15 0500 0875 0750 %0393 Q16 0500 0875 0875 %0394 Q17 0500 0875 1000 %0395 Q18 0500 1000 0000 %0396 R10 0500 1000 0125 %0397 R11 0500 1000 0250 %0398 R12 0500 1000 0375 %0399 R13 0500 1000 0500 %0400 R14 0500 1000 0625 %0401 R15 0500 1000 0750 %0402 R16 0500 1000 0875 %0403 R17 0500 1000 1000 %0404 R18 0625 0000 0000 %0405 S10 0625 0000 0125 %0406 S11 0625 0000 0250 %0407 S12 0625 0000 0375 %0408 S13 0625 0000 0500 %0409 S14 0625 0000 0625 %0410 S15 0625 0000 0750 %0411 S16 0625 0000 0875 %0412 S17 0625 0000 1000 %0413 S18 0625 0125 0000 %0414 T10 0625 0125 0125 %0415 T11 0625 0125 0250 %0416 T12 0625 0125 0375 %0417 T13 0625 0125 0500 %0418 T14 0625 0125 0625 %0419 T15 0625 0125 0750 %0420 T16 0625 0125 0875 %0421 T17 0625 0125 1000 %0422 T18 0625 0250 0000 %0423 U10 0625 0250 0125 %0424 U11 0625 0250 0250 %0425 U12 0625 0250 0375 %0426 U13 0625 0250 0500 %0427 U14 0625 0250 0625 %0428 U15 0625 0250 0750 %0429 U16 0625 0250 0875 %0430 U17 0625 0250 1000 %0431 U18 0625 0375 0000 %0432 V10 0625 0375 0125 %0433 V11 0625 0375 0250 %0434 V12 0625 0375 0375 %0435 V13 0625 0375 0500 %0436 V14 0625 0375 0625 %0437 V15 0625 0375 0750 %0438 V16 0625 0375 0875 %0439 V17 0625 0375 1000 %0440 V18 0625 0500 0000 %0441 W10 0625 0500 0125 %0442 W11 0625 0500 0250 %0443 W12 0625 0500 0375 %0444 W13 0625 0500 0500 %0445 W14 0625 0500 0625 %0446 W15 0625 0500 0750 %0447 W16 0625 0500 0875 %0448 W17 0625 0500 1000 %0449 W18 0625 0625 0000 %0450 X10 0625 0625 0125 %0451 X11 0625 0625 0250 %0452 X12 0625 0625 0375 %0453 X13 0625 0625 0500 %0454 X14 0625 0625 0625 %0455 X15 0625 0625 0750 %0456 X16 0625 0625 0875 %0457 X17 0625 0625 1000 %0458 X18 0625 0750 0000 %0459 Y10 0625 0750 0125 %0460 Y11 0625 0750 0250 %0461 Y12 0625 0750 0375 %0462 Y13 0625 0750 0500 %0463 Y14 0625 0750 0625 %0464 Y15 0625 0750 0750 %0465 Y16 0625 0750 0875 %0466 Y17 0625 0750 1000 %0467 Y18 0625 0875 0000 %0468 Z10 0625 0875 0125 %0469 Z11 0625 0875 0250 %0470 Z12 0625 0875 0375 %0471 Z13 0625 0875 0500 %0472 Z14 0625 0875 0625 %0473 Z15 0625 0875 0750 %0474 Z16 0625 0875 0875 %0475 Z17 0625 0875 1000 %0476 Z18 0625 1000 0000 %0477 a10 0625 1000 0125 %0478 a11 0625 1000 0250 %0479 a12 0625 1000 0375 %0480 a13 0625 1000 0500 %0481 a14 0625 1000 0625 %0482 a15 0625 1000 0750 %0483 a16 0625 1000 0875 %0484 a17 0625 1000 1000 %0485 a18 0750 0000 0000 %0486 A19 0750 0000 0125 %0487 A20 0750 0000 0250 %0488 A21 0750 0000 0375 %0489 A22 0750 0000 0500 %0490 A23 0750 0000 0625 %0491 A24 0750 0000 0750 %0492 A25 0750 0000 0875 %0493 A26 0750 0000 1000 %0494 A27 0750 0125 0000 %0495 B19 0750 0125 0125 %0496 B20 0750 0125 0250 %0497 B21 0750 0125 0375 %0498 B22 0750 0125 0500 %0499 B23 0750 0125 0625 %0500 B24 0750 0125 0750 %0501 B25 0750 0125 0875 %0502 B26 0750 0125 1000 %0503 B27 0750 0250 0000 %0504 C19 0750 0250 0125 %0505 C20 0750 0250 0250 %0506 C21 0750 0250 0375 %0507 C22 0750 0250 0500 %0508 C23 0750 0250 0625 %0509 C24 0750 0250 0750 %0510 C25 0750 0250 0875 %0511 C26 0750 0250 1000 %0512 C27 0750 0375 0000 %0513 D19 0750 0375 0125 %0514 D20 0750 0375 0250 %0515 D21 0750 0375 0375 %0516 D22 0750 0375 0500 %0517 D23 0750 0375 0625 %0518 D24 0750 0375 0750 %0519 D25 0750 0375 0875 %0520 D26 0750 0375 1000 %0521 D27 0750 0500 0000 %0522 E19 0750 0500 0125 %0523 E20 0750 0500 0250 %0524 E21 0750 0500 0375 %0525 E22 0750 0500 0500 %0526 E23 0750 0500 0625 %0527 E24 0750 0500 0750 %0528 E25 0750 0500 0875 %0529 E26 0750 0500 1000 %0530 E27 0750 0625 0000 %0531 F19 0750 0625 0125 %0532 F20 0750 0625 0250 %0533 F21 0750 0625 0375 %0534 F22 0750 0625 0500 %0535 F23 0750 0625 0625 %0536 F24 0750 0625 0750 %0537 F25 0750 0625 0875 %0538 F26 0750 0625 1000 %0539 F27 0750 0750 0000 %0540 G19 0750 0750 0125 %0541 G20 0750 0750 0250 %0542 G21 0750 0750 0375 %0543 G22 0750 0750 0500 %0544 G23 0750 0750 0625 %0545 G24 0750 0750 0750 %0546 G25 0750 0750 0875 %0547 G26 0750 0750 1000 %0548 G27 0750 0875 0000 %0549 H19 0750 0875 0125 %0550 H20 0750 0875 0250 %0551 H21 0750 0875 0375 %0552 H22 0750 0875 0500 %0553 H23 0750 0875 0625 %0554 H24 0750 0875 0750 %0555 H25 0750 0875 0875 %0556 H26 0750 0875 1000 %0557 H27 0750 1000 0000 %0558 I19 0750 1000 0125 %0559 I20 0750 1000 0250 %0560 I21 0750 1000 0375 %0561 I22 0750 1000 0500 %0562 I23 0750 1000 0625 %0563 I24 0750 1000 0750 %0564 I25 0750 1000 0875 %0565 I26 0750 1000 1000 %0566 I27 0875 0000 0000 %0567 J19 0875 0000 0125 %0568 J20 0875 0000 0250 %0569 J21 0875 0000 0375 %0570 J22 0875 0000 0500 %0571 J23 0875 0000 0625 %0572 J24 0875 0000 0750 %0573 J25 0875 0000 0875 %0574 J26 0875 0000 1000 %0575 J27 0875 0125 0000 %0576 K19 0875 0125 0125 %0577 K20 0875 0125 0250 %0578 K21 0875 0125 0375 %0579 K22 0875 0125 0500 %0580 K23 0875 0125 0625 %0581 K24 0875 0125 0750 %0582 K25 0875 0125 0875 %0583 K26 0875 0125 1000 %0584 K27 0875 0250 0000 %0585 L19 0875 0250 0125 %0586 L20 0875 0250 0250 %0587 L21 0875 0250 0375 %0588 L22 0875 0250 0500 %0589 L23 0875 0250 0625 %0590 L24 0875 0250 0750 %0591 L25 0875 0250 0875 %0592 L26 0875 0250 1000 %0593 L27 0875 0375 0000 %0594 M19 0875 0375 0125 %0595 M20 0875 0375 0250 %0596 M21 0875 0375 0375 %0597 M22 0875 0375 0500 %0598 M23 0875 0375 0625 %0599 M24 0875 0375 0750 %0600 M25 0875 0375 0875 %0601 M26 0875 0375 1000 %0602 M27 0875 0500 0000 %0603 N19 0875 0500 0125 %0604 N20 0875 0500 0250 %0605 N21 0875 0500 0375 %0606 N22 0875 0500 0500 %0607 N23 0875 0500 0625 %0608 N24 0875 0500 0750 %0609 N25 0875 0500 0875 %0610 N26 0875 0500 1000 %0611 N27 0875 0625 0000 %0612 O19 0875 0625 0125 %0613 O20 0875 0625 0250 %0614 O21 0875 0625 0375 %0615 O22 0875 0625 0500 %0616 O23 0875 0625 0625 %0617 O24 0875 0625 0750 %0618 O25 0875 0625 0875 %0619 O26 0875 0625 1000 %0620 O27 0875 0750 0000 %0621 P19 0875 0750 0125 %0622 P20 0875 0750 0250 %0623 P21 0875 0750 0375 %0624 P22 0875 0750 0500 %0625 P23 0875 0750 0625 %0626 P24 0875 0750 0750 %0627 P25 0875 0750 0875 %0628 P26 0875 0750 1000 %0629 P27 0875 0875 0000 %0630 Q19 0875 0875 0125 %0631 Q20 0875 0875 0250 %0632 Q21 0875 0875 0375 %0633 Q22 0875 0875 0500 %0634 Q23 0875 0875 0625 %0635 Q24 0875 0875 0750 %0636 Q25 0875 0875 0875 %0637 Q26 0875 0875 1000 %0638 Q27 0875 1000 0000 %0639 R19 0875 1000 0125 %0640 R20 0875 1000 0250 %0641 R21 0875 1000 0375 %0642 R22 0875 1000 0500 %0643 R23 0875 1000 0625 %0644 R24 0875 1000 0750 %0645 R25 0875 1000 0875 %0646 R26 0875 1000 1000 %0647 R27 1000 0000 0000 %0648 S19 1000 0000 0125 %0649 S20 1000 0000 0250 %0650 S21 1000 0000 0375 %0651 S22 1000 0000 0500 %0652 S23 1000 0000 0625 %0653 S24 1000 0000 0750 %0654 S25 1000 0000 0875 %0655 S26 1000 0000 1000 %0656 S27 1000 0125 0000 %0657 T19 1000 0125 0125 %0658 T20 1000 0125 0250 %0659 T21 1000 0125 0375 %0660 T22 1000 0125 0500 %0661 T23 1000 0125 0625 %0662 T24 1000 0125 0750 %0663 T25 1000 0125 0875 %0664 T26 1000 0125 1000 %0665 T27 1000 0250 0000 %0666 U19 1000 0250 0125 %0667 U20 1000 0250 0250 %0668 U21 1000 0250 0375 %0669 U22 1000 0250 0500 %0670 U23 1000 0250 0625 %0671 U24 1000 0250 0750 %0672 U25 1000 0250 0875 %0673 U26 1000 0250 1000 %0674 U27 1000 0375 0000 %0675 V19 1000 0375 0125 %0676 V20 1000 0375 0250 %0677 V21 1000 0375 0375 %0678 V22 1000 0375 0500 %0679 V23 1000 0375 0625 %0680 V24 1000 0375 0750 %0681 V25 1000 0375 0875 %0682 V26 1000 0375 1000 %0683 V27 1000 0500 0000 %0684 W19 1000 0500 0125 %0685 W20 1000 0500 0250 %0686 W21 1000 0500 0375 %0687 W22 1000 0500 0500 %0688 W23 1000 0500 0625 %0689 W24 1000 0500 0750 %0690 W25 1000 0500 0875 %0691 W26 1000 0500 1000 %0692 W27 1000 0625 0000 %0693 X19 1000 0625 0125 %0694 X20 1000 0625 0250 %0695 X21 1000 0625 0375 %0696 X22 1000 0625 0500 %0697 X23 1000 0625 0625 %0698 X24 1000 0625 0750 %0699 X25 1000 0625 0875 %0700 X26 1000 0625 1000 %0701 X27 1000 0750 0000 %0702 Y19 1000 0750 0125 %0703 Y20 1000 0750 0250 %0704 Y21 1000 0750 0375 %0705 Y22 1000 0750 0500 %0706 Y23 1000 0750 0625 %0707 Y24 1000 0750 0750 %0708 Y25 1000 0750 0875 %0709 Y26 1000 0750 1000 %0710 Y27 1000 0875 0000 %0711 Z19 1000 0875 0125 %0712 Z20 1000 0875 0250 %0713 Z21 1000 0875 0375 %0714 Z22 1000 0875 0500 %0715 Z23 1000 0875 0625 %0716 Z24 1000 0875 0750 %0717 Z25 1000 0875 0875 %0718 Z26 1000 0875 1000 %0719 Z27 1000 1000 0000 %0720 a19 1000 1000 0125 %0721 a20 1000 1000 0250 %0722 a21 1000 1000 0375 %0723 a22 1000 1000 0500 %0724 a23 1000 1000 0625 %0725 a24 1000 1000 0750 %0726 a25 1000 1000 0875 %0727 a26 1000 1000 1000 %0728 a27 1000 1000 1000 %0729 b01 0875 1000 1000 %0730 b02 0750 1000 1000 %0731 b03 0625 1000 1000 %0732 b04 0500 1000 1000 %0733 b05 0375 1000 1000 %0734 b06 0250 1000 1000 %0735 b07 0125 1000 1000 %0736 b08 0000 1000 1000 %0737 b09 1000 0875 0875 %0738 c01 0875 0875 0875 %0739 c02 0750 0875 0875 %0740 c03 0625 0875 0875 %0741 c04 0500 0875 0875 %0742 c05 0375 0875 0875 %0743 c06 0250 0875 0875 %0744 c07 0125 0875 0875 %0745 c08 0000 0875 0875 %0746 c09 1000 0750 0750 %0747 d01 0875 0750 0750 %0748 d02 0750 0750 0750 %0749 d03 0625 0750 0750 %0750 d04 0500 0750 0750 %0751 d05 0375 0750 0750 %0752 d06 0250 0750 0750 %0753 d07 0125 0750 0750 %0754 d08 0000 0750 0750 %0755 d09 1000 0625 0625 %0756 e01 0875 0625 0625 %0757 e02 0750 0625 0625 %0758 e03 0625 0625 0625 %0759 e04 0500 0625 0625 %0760 e05 0375 0625 0625 %0761 e06 0250 0625 0625 %0762 e07 0125 0625 0625 %0763 e08 0000 0625 0625 %0764 e09 1000 0500 0500 %0765 f01 0875 0500 0500 %0766 f02 0750 0500 0500 %0767 f03 0625 0500 0500 %0768 f04 0500 0500 0500 %0769 f05 0375 0500 0500 %0770 f06 0250 0500 0500 %0771 f07 0125 0500 0500 %0772 f08 0000 0500 0500 %0773 f09 1000 0375 0375 %0774 g01 0875 0375 0375 %0775 g02 0750 0375 0375 %0776 g03 0625 0375 0375 %0777 g04 0500 0375 0375 %0778 g05 0375 0375 0375 %0779 g06 0250 0375 0375 %0780 g07 0125 0375 0375 %0781 g08 0000 0375 0375 %0782 g09 1000 0250 0250 %0783 h01 0875 0250 0250 %0784 h02 0750 0250 0250 %0785 h03 0625 0250 0250 %0786 h04 0500 0250 0250 %0787 h05 0375 0250 0250 %0788 h06 0250 0250 0250 %0789 h07 0125 0250 0250 %0790 h08 0000 0250 0250 %0791 h09 1000 0125 0125 %0792 i01 0875 0125 0125 %0793 i02 0750 0125 0125 %0794 i03 0625 0125 0125 %0795 i04 0500 0125 0125 %0796 i05 0375 0125 0125 %0797 i06 0250 0125 0125 %0798 i07 0125 0125 0125 %0799 i08 0000 0125 0125 %0800 i09 1000 0000 0000 %0801 j01 0875 0000 0000 %0802 j02 0750 0000 0000 %0803 j03 0625 0000 0000 %0804 j04 0500 0000 0000 %0805 j05 0375 0000 0000 %0806 j06 0250 0000 0000 %0807 j07 0125 0000 0000 %0808 j08 0000 0000 0000 %0809 j09 1000 1000 1000 %0810 b10 0875 0875 1000 %0811 b11 0750 0750 1000 %0812 b12 0625 0625 1000 %0813 b13 0500 0500 1000 %0814 b14 0375 0375 1000 %0815 b15 0250 0250 1000 %0816 b16 0125 0125 1000 %0817 b17 0000 0000 1000 %0818 b18 1000 1000 0875 %0819 c10 0875 0875 0875 %0820 c11 0750 0750 0875 %0821 c12 0625 0625 0875 %0822 c13 0500 0500 0875 %0823 c14 0375 0375 0875 %0824 c15 0250 0250 0875 %0825 c16 0125 0125 0875 %0826 c17 0000 0000 0875 %0827 c18 1000 1000 0750 %0828 d10 0875 0875 0750 %0829 d11 0750 0750 0750 %0830 d12 0625 0625 0750 %0831 d13 0500 0500 0750 %0832 d14 0375 0375 0750 %0833 d15 0250 0250 0750 %0834 d16 0125 0125 0750 %0835 d17 0000 0000 0750 %0836 d18 1000 1000 0625 %0837 e10 0875 0875 0625 %0838 e11 0750 0750 0625 %0839 e12 0625 0625 0625 %0840 e13 0500 0500 0625 %0841 e14 0375 0375 0625 %0842 e15 0250 0250 0625 %0843 e16 0125 0125 0625 %0844 e17 0000 0000 0625 %0845 e18 1000 1000 0500 %0846 f10 0875 0875 0500 %0847 f11 0750 0750 0500 %0848 f12 0625 0625 0500 %0849 f13 0500 0500 0500 %0850 f14 0375 0375 0500 %0851 f15 0250 0250 0500 %0852 f16 0125 0125 0500 %0853 f17 0000 0000 0500 %0854 f18 1000 1000 0375 %0855 g10 0875 0875 0375 %0856 g11 0750 0750 0375 %0857 g12 0625 0625 0375 %0858 g13 0500 0500 0375 %0859 g14 0375 0375 0375 %0860 g15 0250 0250 0375 %0861 g16 0125 0125 0375 %0862 g17 0000 0000 0375 %0863 g18 1000 1000 0250 %0864 h10 0875 0875 0250 %0865 h11 0750 0750 0250 %0866 h12 0625 0625 0250 %0867 h13 0500 0500 0250 %0868 h14 0375 0375 0250 %0869 h15 0250 0250 0250 %0870 h16 0125 0125 0250 %0871 h17 0000 0000 0250 %0872 h18 1000 1000 0125 %0873 i10 0875 0875 0125 %0874 i11 0750 0750 0125 %0875 i12 0625 0625 0125 %0876 i13 0500 0500 0125 %0877 i14 0375 0375 0125 %0878 i15 0250 0250 0125 %0879 i16 0125 0125 0125 %0880 i17 0000 0000 0125 %0881 i18 1000 1000 0000 %0882 j10 0875 0875 0000 %0883 j11 0750 0750 0000 %0884 j12 0625 0625 0000 %0885 j13 0500 0500 0000 %0886 j14 0375 0375 0000 %0887 j15 0250 0250 0000 %0888 j16 0125 0125 0000 %0889 j17 0000 0000 0000 %0890 j18 1000 1000 1000 %0891 b19 1000 0875 1000 %0892 b20 1000 0750 1000 %0893 b21 1000 0625 1000 %0894 b22 1000 0500 1000 %0895 b23 1000 0375 1000 %0896 b24 1000 0250 1000 %0897 b25 1000 0125 1000 %0898 b26 1000 0000 1000 %0899 b27 0875 1000 0875 %0900 c19 0875 0875 0875 %0901 c20 0875 0750 0875 %0902 c21 0875 0625 0875 %0903 c22 0875 0500 0875 %0904 c23 0875 0375 0875 %0905 c24 0875 0250 0875 %0906 c25 0875 0125 0875 %0907 c26 0875 0000 0875 %0908 c27 0750 1000 0750 %0909 d19 0750 0875 0750 %0910 d20 0750 0750 0750 %0911 d21 0750 0625 0750 %0912 d22 0750 0500 0750 %0913 d23 0750 0375 0750 %0914 d24 0750 0250 0750 %0915 d25 0750 0125 0750 %0916 d26 0750 0000 0750 %0917 d27 0625 1000 0625 %0918 e19 0625 0875 0625 %0919 e20 0625 0750 0625 %0920 e21 0625 0625 0625 %0921 e22 0625 0500 0625 %0922 e23 0625 0375 0625 %0923 e24 0625 0250 0625 %0924 e25 0625 0125 0625 %0925 e26 0625 0000 0625 %0926 e27 0500 1000 0500 %0927 f19 0500 0875 0500 %0928 f20 0500 0750 0500 %0929 f21 0500 0625 0500 %0930 f22 0500 0500 0500 %0931 f23 0500 0375 0500 %0932 f24 0500 0250 0500 %0933 f25 0500 0125 0500 %0934 f26 0500 0000 0500 %0935 f27 0375 1000 0375 %0936 g19 0375 0875 0375 %0937 g20 0375 0750 0375 %0938 g21 0375 0625 0375 %0939 g22 0375 0500 0375 %0940 g23 0375 0375 0375 %0941 g24 0375 0250 0375 %0942 g25 0375 0125 0375 %0943 g26 0375 0000 0375 %0944 g27 0250 1000 0250 %0945 h19 0250 0875 0250 %0946 h20 0250 0750 0250 %0947 h21 0250 0625 0250 %0948 h22 0250 0500 0250 %0949 h23 0250 0375 0250 %0950 h24 0250 0250 0250 %0951 h25 0250 0125 0250 %0952 h26 0250 0000 0250 %0953 h27 0125 1000 0125 %0954 i19 0125 0875 0125 %0955 i20 0125 0750 0125 %0956 i21 0125 0625 0125 %0957 i22 0125 0500 0125 %0958 i23 0125 0375 0125 %0959 i24 0125 0250 0125 %0960 i25 0125 0125 0125 %0961 i26 0125 0000 0125 %0962 i27 0000 1000 0000 %0963 j19 0000 0875 0000 %0964 j20 0000 0750 0000 %0965 j21 0000 0625 0000 %0966 j22 0000 0500 0000 %0967 j23 0000 0375 0000 %0968 j24 0000 0250 0000 %0969 j25 0000 0125 0000 %0970 j26 0000 0000 0000 %0971 j27 0000 0000 0000 %0972 k01 0125 0125 0125 %0973 k02 0250 0250 0250 %0974 k03 0375 0375 0375 %0975 k04 0500 0500 0500 %0976 k05 0625 0625 0625 %0977 k06 0750 0750 0750 %0978 k07 0875 0875 0875 %0979 k08 1000 1000 1000 %0980 k09 0000 0000 0000 %0981 l01 0125 0125 0125 %0982 l02 0250 0250 0250 %0983 l03 0375 0375 0375 %0984 l04 0500 0500 0500 %0985 l05 0625 0625 0625 %0986 l06 0750 0750 0750 %0987 l07 0875 0875 0875 %0988 l08 1000 1000 1000 %0989 l09 0000 0000 0000 %0990 m01 0125 0125 0125 %0991 m02 0250 0250 0250 %0992 m03 0375 0375 0375 %0993 m04 0500 0500 0500 %0994 m05 0625 0625 0625 %0995 m06 0750 0750 0750 %0996 m07 0875 0875 0875 %0997 m08 1000 1000 1000 %0998 m09 0000 0000 0000 %0999 n01 0125 0125 0125 %1000 n02 0250 0250 0250 %1001 n03 0375 0375 0375 %1002 n04 0500 0500 0500 %1003 n05 0625 0625 0625 %1004 n06 0750 0750 0750 %1005 n07 0875 0875 0875 %1006 n08 1000 1000 1000 %1007 n09 0000 0000 0000 %1008 k10 0066 0066 0066 %1009 k11 0133 0133 0133 %1010 k12 0200 0200 0200 %1011 k13 0266 0266 0266 %1012 k14 0333 0333 0333 %1013 k15 0400 0400 0400 %1014 k16 0466 0466 0466 %1015 k17 0533 0533 0533 %1016 k18 0600 0600 0600 %1017 k19 0666 0666 0666 %1018 k20 0734 0734 0734 %1019 k21 0800 0800 0800 %1020 k22 0866 0866 0866 %1021 k23 0933 0933 0933 %1022 k24 1000 1000 1000 %1023 k25 0000 0000 0000 %1024 l10 0066 0066 0066 %1025 l11 0133 0133 0133 %1026 l12 0200 0200 0200 %1027 l13 0266 0266 0266 %1028 l14 0333 0333 0333 %1029 l15 0400 0400 0400 %1030 l16 0466 0466 0466 %1031 l17 0533 0533 0533 %1032 l18 0600 0600 0600 %1033 l19 0666 0666 0666 %1034 l20 0734 0734 0734 %1035 l21 0800 0800 0800 %1036 l22 0866 0866 0866 %1037 l23 0933 0933 0933 %1038 l24 1000 1000 1000 %1039 l25 0000 0000 0000 %1040 m10 0066 0066 0066 %1041 m11 0133 0133 0133 %1042 m12 0200 0200 0200 %1043 m13 0266 0266 0266 %1044 m14 0333 0333 0333 %1045 m15 0400 0400 0400 %1046 m16 0466 0466 0466 %1047 m17 0533 0533 0533 %1048 m18 0600 0600 0600 %1049 m19 0666 0666 0666 %1050 m20 0734 0734 0734 %1051 m21 0800 0800 0800 %1052 m22 0866 0866 0866 %1053 m23 0933 0933 0933 %1054 m24 1000 1000 1000 %1055 m25 0000 0000 0000 %1056 n10 0066 0066 0066 %1057 n11 0133 0133 0133 %1058 n12 0200 0200 0200 %1059 n13 0266 0266 0266 %1060 n14 0333 0333 0333 %1061 n15 0400 0400 0400 %1062 n16 0466 0466 0466 %1063 n17 0533 0533 0533 %1064 n18 0600 0600 0600 %1065 n19 0666 0666 0666 %1066 n20 0734 0734 0734 %1067 n21 0800 0800 0800 %1068 n22 0866 0866 0866 %1069 n23 0933 0933 0933 %1070 n24 1000 1000 1000 %1071 n25 0000 0000 0000 %1072 k26 1000 1000 1000 %1073 k27 1000 0000 0000 %1074 l26 0000 1000 1000 %1075 l27 1000 1000 0000 %1076 m26 0000 0000 1000 %1077 m27 0000 1000 0000 %1078 n26 1000 0000 1000 %1079 n27 0000 1000 0000 %1078 nx6 1000 0000 1000 %1079 nx7 ] def %END RGB0 %*********************************************************** /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 /RGB0_to_XYZ729 { %BEG procedure RGB0_to_XYZ729 %requires /(XYZ)rx089 729 array def % /(XYZ)rx100 729 array def %requires in addition /RGB0 1080 array def /IM0 729 def /IM1 IM0 1 sub def 0 1 IM1 {/i exch def %i=0,IM1 /j30 i 3 mul def /j31 j30 1 add def /j32 j30 2 add def RGB0 j30 get 0.04045 le %equations of IEC 61966-2-1:2003 {/RsRGB RGB0 j30 get 12.92 div def} {/RsRGB RGB0 j30 get 0.001 mul 0.055 add 1.055 div 2.4 exp def} ifelse RGB0 j31 get 0.04045 le {/GsRGB RGB0 j31 get 12.92 div def} {/GsRGB RGB0 j31 get 0.001 mul 0.055 add 1.055 div 2.4 exp def} ifelse RGB0 j32 get 0.04045 le {/BsRGB RGB0 j32 get 12.92 div def} {/BsRGB RGB0 j32 get 0.001 mul 0.055 add 1.055 div 2.4 exp def} ifelse Xrx100 i 0.4124 RsRGB mul 0.3576 GsRGB mul add 0.1805 BsRGB mul add 100 mul put Yrx100 i 0.2126 RsRGB mul 0.7152 GsRGB mul add 0.0722 BsRGB mul add 100 mul put Zrx100 i 0.0193 RsRGB mul 0.1192 GsRGB mul add 0.9505 BsRGB mul add 100 mul put } for %i=0,IM1 0 1 IM1 {/i exch def %i=0,IM1 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 RGB0_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 1 def /lanind2 1 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES where {pop %/IMES IMES def } {/IMES 0 def} ifelse /xchartg where {pop /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 RGB0_to_XYZ729 %0 <=xchart <=87 /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 (OE400-7N) show (, Page of series ) showen (, Seite der Serie ) showde xchartl 1 add cvishow (/9, ) 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=adapted) showen (, nicht adaptiert=adaptiert) showde } {(, not adapted=adapted) showen (, nicht adaptiert=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 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 ( OE400-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 2800 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 (de) 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 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 } for %l=0,8 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 %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 (de) 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 (ds) 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 calculated.) showen ( berechnet.) 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*d361Mi ik45d get g*d361Mi ik45d get b*d361Mi ik45d 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 OE400-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 (OE400-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 OE401-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 (OE401-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 OE401-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 (OE401-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 OE401-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 (OE401-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 OE401-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 (OE401-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 OE401-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 (OE401-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 OE401-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 (OE401-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 OE401-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 (OE401-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 OE401-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 (OE401-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 OE40 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 OE40; 48\255, 360\255stufige Bunttonkreise) showde (TUB\255test chart OE40; 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 Norm\255Monitor) showde ( Data of standard monitor) showen 12 /TimesI-ISOL1 FS ( sRGB, ) show 12 /Times-ISOL1 FS (keine Separation, D65) showde (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/OE40/OE40L) 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 (OE40/OE40L) 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/OE40/OE40L) 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\255OE40/OE40L) showde (TUB registration: 20110301\255OE40/OE40L) 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