%!PS-Adobe-3.0 EPSF-3.0 DG69/DG69.HTM Y10G00NA.PS6 20180801 %%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: farbe.li.tu-berlin.de/DG69/DG69.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2018080112000) /ModDate (D:20180801112000) /DOCINFO pdfmark [ /View [ /Fit ] /DOCVIEW pdfmark /sfgray {setgray} bind def %Early Frame File (f) definition /sfrgbcolor {setrgbcolor} bind def /sfcmykcolor {setcmykcolor} bind def %line 20****************************************************** %BEG DG69/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 DG69/OUTLIN10.PS Output Linearization (OL) olv*->olv'* 20110301 %BEG DG69/OUTLIN1X.PS 20110801 %EMPTY %END DG69/OUTLIN1X.PS 20110801 %BEG DG69/OUTLIN1Y2.PS Emty 20101101 %END DG69/OUTLIN1Y2.PS Emty 20101101 /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 % End for EPS file count op_count sub {pop} repeat countdictstack dict_count sub {end} repeat % Clean up dict stack b4_Inc_state restore } bind def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def %ANFA CMYKDEF %CMYKDEA0 (A0=Standard-Drucker-CMYKDEF) 15.3.97 /tzac [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzam [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzay [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzan [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tza0 [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000] def /tza1 [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000] def %ENDE CMYKD /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfiLAB* %x y width heigth LAB* { setcolor rec fill} bind def /colrecstLAB* %x y width heigth LAB* { setcolor rec stroke} bind def /colrecficmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec fill} bind def /colrecstcmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec stroke} bind def /colrecfiw* %x y width heigth w* { setgray rec fill} bind def /colrecstw* %x y width heigth w* { setgray rec stroke} bind def /colrecfiolv* %x y width heigth olv* { setrgbcolor rec fill} bind def /colrecstolv* %x y width heigth olv* { setrgbcolor rec stroke} bind def /tzocmy0* {0.0 1.0 1.0 0.0} bind def %Reproduction colours /tzlcmy0* {1.0 0.0 1.0 0.0} bind def %cmyn* setcmykcolor /tzvcmy0* {1.0 1.0 0.0 0.0} bind def /tzccmy0* {1.0 0.0 0.0 0.0} bind def /tzmcmy0* {0.0 1.0 0.0 0.0} bind def /tzycmy0* {0.0 0.0 1.0 0.0} bind def /tzoolv* {1.0 0.0 0.0} bind def %Reproduction colours /tzlolv* {0.0 1.0 0.0} bind def %olv* setrgbcolor /tzvolv* {0.0 0.0 1.0} bind def /tzcolv* {0.0 1.0 1.0} bind def /tzmolv* {1.0 0.0 1.0} bind def /tzyolv* {1.0 1.0 0.0} bind def /tzoLAB* [53.34 72.46 50.66] def %Reproduction colours /tzlLAB* [84.93 -79.83 74.80] def %LAB* setcolor /tzvLAB* [32.20 24.88 -37.89] def /tzcLAB* [88.10 -44.88 -13.36] def /tzmLAB* [59.66 90.32 -19.65] def /tzyLAB* [93.76 -20.24 85.93] def /tzncmy0* {1.00 1.00 1.00 0.00} bind def %grey series /tzdcmy0* {0.75 0.75 0.75 0.00} bind def %cmy0* setcmykcolor /tzzcmy0* {0.50 0.50 0.50 0.00} bind def /tzhcmy0* {0.25 0.25 0.25 0.00} bind def /tzwcmy0* {0.00 0.00 0.00 0.00} bind def /tzn000n* {0.00 0.00 0.00 1.00} bind def %grey series 000n* /tzd000n* {0.00 0.00 0.00 0.75} bind def %000n* setcmykcolor /tzz000n* {0.00 0.00 0.00 0.50} bind def /tzh000n* {0.00 0.00 0.00 0.25} bind def /tzw000n* {0.00 0.00 0.00 0.00} bind def /tznw* {0.00} bind def %grey series /tzdw* {0.25} bind def %w* setgray /tzzw* {0.50} bind def /tzhw* {0.75} bind def /tzww* {1.00} bind def /tznolv* {0.00 0.00 0.00} bind def %grey series /tzdolv* {0.25 0.25 0.25} bind def %olv* setrgbcolor /tzzolv* {0.50 0.50 0.50} bind def /tzholv* {0.75 0.75 0.75} bind def /tzwolv* {1.00 1.00 1.00} bind def /tznLAB* [18.01 0.00 0.00] def %grey series /tzdLAB* [37.36 0.00 0.00] def %LAB* setcolor /tzzLAB* [56.71 0.00 0.00] def /tzhLAB* [76.06 0.00 0.00] def /tzwLAB* [95.41 0.00 0.00] def /tfn {0 setgray} bind def /tfw {1 setgray} bind def /A4quer {598 0 translate 90 rotate} def /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 %%EndProlog %*********************************************************** %%BeginPageSetup /#copies 1 def %A4querF 0.5 0.5 scale /pgsave save def %%EndPageSetup /SS$ [(G) (E) (S) (F) (I) (J) (M)] def /SC$ [(N) (F) (S) (D) (T) (E) (C)] def /SX$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def /SY$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def % 0 1 2 3 4 5 % 6 7 8 /EX$ [(1.TXT /.PS) (B.BMP /.PS) (G.GIF /.PS) (H.HTM /.PS) (I.HTM /.PS) (J.JPE /.PS) (P.PDF /.PS) (T.TIF /.PS)] def /EY$ [(1.DAT) (B.DAT) (G.DAT) (H.DAT) (I.DAT) (J.DAT) (P.DAT) (T.DAT)] def %******************************************************************* /lanind1f 00 def /lanind2f 00 def /laninddf 01 def /colorm1f 00 def /colorm2f 00 def /colormdf 01 def /deintp1f 00 def /deintp2f 00 def /deintpdf 01 def /xcolor1f 00 def /xcolor2f 05 def /xcolordf 01 def %6 observers, CIE02/20/F02.. /xchart1f 00 def /xchart2f 00 def /xchartdf 01 def %max 8 diagrams, 4 intern used /xchart3f 01 def /xchart4f 00 def /xchart5f 02 def %not used /pchart1f 00 def /pchart2f 00 def /pchartdf 01 def %5 ab chromaticity systems /colsep1f 00 def /colsep2f 00 def /colsepdf 01 def /pmetam1f 00 def /pmetam2f 00 def /pmetamdf 01 def %/lanindf lanind1f def % /lanindf lanind1f def %/lanind1f laninddf lanind2f {/lanindf exch def %/colormf colorm1f def % /colormf colorm1f def %/colorm1f colormdf colorm2f {/colormf exch def %/deintpf deintp1f def % /deintpf deintp1f def %/deintp1f deintpdf deintp2f {/deintpf exch def %/pchartf pchart1f def % pchart1f pchartdf pchart2f {/pchartf exch def /pchartm 5 def %/xcolorf xcolor1f def % xcolor1f xcolordf xcolor2f {/xcolorf exch def /xcolorm 6 def %/xchartf xchart1f def % /xchartf xchart1f def %xchart1f xchartdf xchart2f {/xchartf exch def %/colsepf colsep1f def % /colsepf colsep1f def %/colsep1f colsepdf colsep2f {/colsepf exch def /lanind lanindf def /colorm colormf def /deintp deintpf def /xcolor xcolorf def /xchart xchartf def /xchartm xchart2f xchart1f sub 1 add def /xchart3 xchart3f def /xchart4 xchart4f def /xchart5 xchart5f def /pchart pchartf def /colsep colsepf def %/pmetamf pmetam1f def % /pmetamf pmetam1f def %pmetam1f pmetamdf pmetam2f {/pmetamf exch def /pmetam pmetamf def %************************************************************* /setgray {sfgray} bind def /setrgbcolor {sfrgbcolor} bind def /setcmykcolor {sfcmykcolor} bind def %72 90 translate %0.01 MM dup scale %0 0 moveto 24600 0 rlineto 0 17220 rlineto % -24600 0 rlineto closepath stroke %000 -240 moveto %240 /Times-ISOL1 FS %lanindf cvishow (-) show %colormf cvishow %deintpf cvishow %xcolorf cvishow %xchartf cvishow %pchartf cvishow %colsepf cvishow (-F) show pmetamf cvishow %grestore gsave /GSS$ SS$ lanind get def /GSC$ SC$ colorm get def /GSX$ SX$ xcolor xcolor 16 idiv 16 mul sub get def /GSY$ SY$ xchart xchart 16 idiv 16 mul sub get def /GEX$ EX$ 0 get def /GEY$ EY$ 0 get def %01 %02 %03 %04 %05 %06 %07 %08 %09 %10 %11 %12 %13 %14 %15 %16 %17 %18 %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 DG690-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 (DG690-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 DG690-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 (DG690-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 DG690-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 (DG690-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 DG690-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 (DG690-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 DG690-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 (DG690-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 DG690-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 (DG690-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 /xc1 16 def /yc1 12 def /xt 1 def xchart 1 eq {/xt 1 def} if 28 MM xt 0 eq {16 MM sub} if 20 MM xt 0 eq {12 MM sub} if 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 http://farbe.li.tu-berlin.de/DG69/DG690-7N 20180801 %%BoundingBox: 70 82 405 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: farbe.li.tu-berlin.de/DG69/DG69.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2018080112000) /ModDate (D:20180801112000) /DOCINFO pdfmark07 [ /View [ /Fit ] /DOCVIEW pdfmark07 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % 40mm = 80*72/25.4 = 232; 232+90+13 = 335 % !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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /TV {120 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIV {120 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBV {120 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIV {120 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /SV {120 /Symbol FS} bind def /SL {160 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SG {350 /Symbol FS} bind def /RV {120 /Times-Roman FS} bind def /RL {160 /Times-Roman FS} bind def /RS {200 /Times-Roman FS} bind def /RK {240 /Times-Roman FS} bind def /RM {280 /Times-Roman FS} bind def /RG {350 /Times-Roman FS} bind def /RIV {120 /Times-Italic FS} bind def /RIL {160 /Times-Italic FS} bind def /RIS {200 /Times-Italic FS} bind def /RIK {240 /Times-Italic FS} bind def /RIM {280 /Times-Italic FS} bind def /RIG {350 /Times-Italic FS} bind def /RBV {120 /Times-Bold FS} bind def /RBL {160 /Times-Bold FS} bind def /RBS {200 /Times-Bold FS} bind def /RBK {240 /Times-Bold FS} bind def /RBM {280 /Times-Bold FS} bind def /RBG {350 /Times-Bold FS} bind def /RBIV {120 /Times-BoldItalic FS} bind def /RBIL {160 /Times-BoldItalic FS} bind def /RBIS {200 /Times-BoldItalic FS} bind def /RBIK {240 /Times-BoldItalic FS} bind def /RBIM {280 /Times-BoldItalic FS} bind def /RBIG {350 /Times-BoldItalic FS} bind def /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y k {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmykcolor rec stroke} bind def /cvishow {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def /isV {TV 0 -50 rmoveto show 0 50 rmoveto TL} bind def /esV {TV 0 50 rmoveto show 0 -50 rmoveto TL} bind def /ibV {TBV 0 -50 rmoveto show 0 50 rmoveto TL} bind def /ebV {TBV 0 50 rmoveto show 0 -50 rmoveto TL} bind def /ipV {TV 24 24 rmoveto (\267) show 24 -24 rmoveto TL} bind def /iyV {SV FS 0 -50 rmoveto show 0 50 rmoveto TL} bind def /ns {350 /Times-ISOL1 FS show} bind def /ks {350 /TimesI-ISOL1 FS show} bind def /bs {350 /TimesB-ISOL1 FS show} bind def /js {350 /TimesBI-ISOL1 FS show} bind def /sy {350 /Symbol FS show} bind def /is {280 /Times-ISOL1 FS 0 -90 rmoveto show 0 90 rmoveto} bind def /es {280 /Times-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto} bind def /ib {280 /TimesB-ISOL1 FS 0 -90 rmoveto show 0 90 rmoveto} bind def /eb {280 /TimesB-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto} bind def /ip {280 /Times-ISOL1 FS 50 50 rmoveto (\267) show 50 -50 rmoveto} bind def %20% kleiner /ns2 {280 /Times-ISOL1 FS show TM} bind def /ks2 {280 /TimesI-ISOL1 FS show TM} bind def /bs2 {280 /TimesB-ISOL1 FS show TM} bind def /js2 {280 /TimesBI-ISOL1 FS show TM} bind def /sy2 {280 /Symbol FS show TM} bind def /is2 {240 /Times-ISOL1 FS 0 -70 rmoveto show 0 70 rmoveto TM} bind def /es2 {240 /Times-ISOL1 FS 0 160 rmoveto show 0 -160 rmoveto TM} bind def /ib2 {240 /TimesB-ISOL1 FS 0 -70 rmoveto show 0 70 rmoveto TM} bind def /eb2 {240 /TimesB-ISOL1 FS 0 160 rmoveto show 0 -160 rmoveto TM} bind def /ip2 {240 /Times-ISOL1 FS 40 40 rmoveto (\267) show 40 -40 rmoveto TM} bind def /iy2 {240 /Symbol FS 0 -70 rmoveto show 0 70 rmoveto TM} bind def %40% kleiner /ns4 {240 /Times-ISOL1 FS show TK} bind def /ks4 {240 /TimesI-ISOL1 FS show TK} bind def /bs4 {240 /TimesB-ISOL1 FS show TK} bind def /js4 {240 /TimesBI-ISOL1 FS show TK} bind def /ss4 {240 /Symbol FS show TK} bind def /is4 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /es4 {200 /Times-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ib4 {200 /TimesB-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /eb4 {200 /TimesB-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ip4 {200 /Times-ISOL1 FS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def /iy4 {200 /Symbol FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def %60% kleiner /ns6 {200 /Times-ISOL1 FS show TS} bind def /ks6 {200 /TimesI-ISOL1 FS show TS} bind def /bs6 {200 /TimesB-ISOL1 FS show TS} bind def /js6 {200 /TimesBI-ISOL1 FS show TS} bind def /ss6 {200 /Symbol FS show TS} bind def /is6 {160 /Times-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /es6 {160 /Times-ISOL1 FS 0 110 rmoveto show 0 -110 rmoveto TS} bind def /ib6 {160 /TimesB-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /eb6 {160 /TimesB-ISOL1 FS 0 110 rmoveto show 0 -110 rmoveto TS} bind def /ip6 {160 /Times-ISOL1 FS 24 24 rmoveto (\267) show 24 -24 rmoveto TS} bind def /iy6 {160 /Symbol FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def %80% kleiner /ns8 {160 /Times-ISOL1 FS show TS} bind def /ks8 {160 /TimesI-ISOL1 FS show TS} bind def /bs8 {160 /TimesB-ISOL1 FS show TS} bind def /js8 {160 /TimesBI-ISOL1 FS show TS} bind def /ss8 {160 /Symbol FS show TS} bind def /is8 {120 /Times-ISOL1 FS 0 -40 rmoveto show 0 40 rmoveto TS} bind def /es8 {120 /Times-ISOL1 FS 0 90 rmoveto show 0 -90 rmoveto TS} bind def /ib8 {120 /TimesB-ISOL1 FS 0 -40 rmoveto show 0 40 rmoveto TS} bind def /eb8 {120 /TimesB-ISOL1 FS 0 90 rmoveto show 0 -90 rmoveto TS} bind def /ip8 {120 /Times-ISOL1 FS 24 24 rmoveto (\267) show 24 -24 rmoveto TS} bind def /iy8 {120 /Symbol FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /cvicvs {cvi 6 string cvs} def /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show ( ) show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show ( ) show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show ( ) show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show ( ) show} def /cvsshow5 {100000 mul cvi 0.00001 mul 9 string cvs show ( ) show} def /cvsshow1x {/nxx exch def %example nxx=99.1/99.0 nxx 0 lt {(-) show /nxx nxx abs def} {iplus 1 eq {(+) show} if} ifelse nxx 10 mul cvi /nxi exch def %nxi=991/990 nxi 10 idiv /nxa exch def %nxa=99 nxi nxa 10 mul sub /nxb exch def %nxb=1/0 nxa cvishow (,) show %nxa=99 nxb cvishow %nxb=1/0 } def /cvsshow2x {/nxx exch def %example nxx=99.12/99,02/99,00 nxx 0 lt {(-) show /nxx nxx abs def} {iplus 1 eq {(+) show} if} ifelse nxx 100 mul cvi /nxi exch def %nxi=9912/9902/00 nxi 100 idiv /nxa exch def %nxa=99 nxi nxa 100 mul sub /nxb exch def %nxb=12/02/00 nxa cvishow (,) show %nxb=99, nxb 10 ge {nxb cvishow} if %nxb=12 nxb 1 ge nxb 9 le and {(0) show nxb cvishow} if %nxb=02 nxb 0 eq {(00) show} if %nxb=00 } def /cvsshow3x {/nxx exch def %example nxx=99.123/99.012/99.001/99.000 nxx 0 lt {(-) show /nxx nxx abs def} {iplus 1 eq {(+) show} if} ifelse nxx 1000 mul cvi /nxi exch def %nxi=99123/99012/99001/99000 nxi 1000 idiv /nxa exch def %nxa=99 nxi nxa 1000 mul sub /nxb exch def %nxb=123/012/001/000 nxa cvishow (,) show %nxb=99, nxb 100 ge {nxb cvishow} if %nxb=123/012/001/000 nxb 10 ge nxb 99 le and {(0) show nxb cvishow} if %nxb=012 nxb 1 ge nxb 9 le and {(00) show nxb cvishow} if %nxb=001 nxb 0 eq {(000) show} if %nxb=000 } def /cvsshow4x {/nxx exch def %example nxx=99.1234/99.0123/99.0010/99.0001 nxx 0 lt {(-) show /nxx nxx abs def} {iplus 1 eq {(+) show} if} ifelse nxx 10000 mul cvi /nxi exch def %nxi=991234/990123/990010/990000 nxi 10000 idiv /nxa exch def %nxa=99 nxi nxa 10000 mul sub /nxb exch def %nxb=1234/0123/0010/0001 nxa cvishow (,) show %nxb=99, nxb 1000 ge {nxb cvishow} if %nxb=1234/0123/0010/0001 nxb 100 ge nxb 999 le and {(0) show nxb cvishow} if %nxb=012 nxb 10 ge nxb 99 le and {(00) show nxb cvishow} if %nxb=012 nxb 1 ge nxb 9 le and {(000) show nxb cvishow} if %nxb=001 nxb 0 eq {(000) show} if %nxb=000 } def %****************************************************************** /ishowG1 {0 -80 rmoveto TM (1) show 0 80 rmoveto} bind def /ishowG2 {0 -80 rmoveto TM (2) show 0 80 rmoveto} bind def /ishowGu {0 -80 rmoveto TM (u) show 0 80 rmoveto} bind def /ishowGw {0 -80 rmoveto TM (w) show 0 80 rmoveto} bind def /ishowM1 {0 -70 rmoveto TK (1) show 0 70 rmoveto} bind def /ishowM2 {0 -70 rmoveto TK (2) show 0 70 rmoveto} bind def /ishowMu {0 -70 rmoveto TK (u) show 0 70 rmoveto} bind def /ishowMw {0 -70 rmoveto TK (w) show 0 70 rmoveto} bind def /ishowK1 {0 -60 rmoveto TS (1) show 0 60 rmoveto} bind def /ishowK2 {0 -60 rmoveto TS (2) show 0 60 rmoveto} bind def /ishowKu {0 -60 rmoveto TS (u) show 0 60 rmoveto} bind def /ishowKw {0 -60 rmoveto TS (w) show 0 60 rmoveto} bind def /ishowS1 {0 -50 rmoveto TL (1) show 0 50 rmoveto} bind def /ishowS2 {0 -50 rmoveto TL (2) show 0 50 rmoveto} bind def /ishowSu {0 -50 rmoveto TL (u) show 0 50 rmoveto} bind def /ishowSw {0 -50 rmoveto TL (w) show 0 50 rmoveto} bind def /ishowL1 {0 -40 rmoveto TV (1) show 0 40 rmoveto} bind def /ishowL2 {0 -40 rmoveto TV (2) show 0 40 rmoveto} bind def /ishowLu {0 -40 rmoveto TV (u) show 0 40 rmoveto} bind def /ishowLw {0 -40 rmoveto TV (w) show 0 40 rmoveto} bind def /ishowLi {0 -40 rmoveto TV (i) show 0 40 rmoveto TL} bind def /qshow- {-40 60 rmoveto TL (-) show -00 -60 rmoveto TL} bind def /eshow- {-40 90 rmoveto TL (-) show -00 -90 rmoveto TL} bind def /gshow- {-20 90 rmoveto TL (-) show -00 -90 rmoveto TL} bind def /ishowL01 {0 -40 rmoveto TV (1) show -20 40 rmoveto TL} bind def /ishowL02 {0 -40 rmoveto TV (2) show -20 40 rmoveto TL} bind def /ishowL03 {0 -40 rmoveto TV (3) show -20 40 rmoveto TL} bind def /ishowL11 {0 -40 rmoveto TV (11) show 0 40 rmoveto TL} bind def /ishowL12 {0 -40 rmoveto TV (12) show 0 40 rmoveto TL} bind def /ishowL13 {0 -40 rmoveto TV (13) show 0 40 rmoveto TL} bind def /ishowL21 {0 -40 rmoveto TV (21) show 0 40 rmoveto TL} bind def /ishowL22 {0 -40 rmoveto TV (22) show 0 40 rmoveto TL} bind def /ishowL23 {0 -40 rmoveto TV (23) show 0 40 rmoveto TL} bind def /ishowL31 {0 -40 rmoveto TV (31) show 0 40 rmoveto TL} bind def /ishowL32 {0 -40 rmoveto TV (32) show 0 40 rmoveto TL} bind def /ishowL33 {0 -40 rmoveto TV (33) show 0 40 rmoveto TL} bind def /ishowLu {0 -40 rmoveto TV (u) show 0 40 rmoveto} bind def /ishowLw {0 -40 rmoveto TV (w) show 0 40 rmoveto} bind def /ishowLB {0 -50 rmoveto TV (B) show 0 50 rmoveto} bind def /ishowLG {0 -50 rmoveto TV (G) show 0 50 rmoveto} bind def /ishowLY {0 -50 rmoveto TV (Y) show 0 50 rmoveto} bind def /ishowLR {0 -50 rmoveto TV (R) show 0 50 rmoveto} bind def /iblue {0 0 1 setrgbcolor} bind def /TlamdaL {TL (\050) show SL (l) show TL (\051) show} bind def /KLa {/yu exch def /xu exch def SL xu yu moveto (\346) show xu yu iyd 1 mul sub moveto (\347) show xu yu iyd 2 mul sub moveto (\350) show} bind def /KLz {/yu exch def /xu exch def SL xu yu moveto (\366) show xu yu iyd 1 mul sub moveto (\367) show xu yu iyd 2 mul sub moveto (\370) show} bind def /TE3 {/T3 exch def /T2 exch def /T1 exch def /yu exch def /xu exch def TL xu yu moveto T1 show xu yu iyd 1 mul sub moveto T2 show xu yu iyd 2 mul sub moveto T3 show} bind def /TEk3 {/T3 exch def /T2 exch def /T1 exch def /yu exch def /xu exch def TIL xu yu moveto T1 show xu yu iyd 1 mul sub moveto T2 show xu yu iyd 2 mul sub moveto T3 show} bind def /TEk301 {/T3 exch def /T2 exch def /T1 exch def /yu exch def /xu exch def TIL xu yu moveto T1 show ishowL01 FONT xu yu iyd 1 mul sub moveto T2 show ishowL01 FONT xu yu iyd 2 mul sub moveto T3 show ishowL01 FONT} bind def /TEk30i {/T3 exch def /T2 exch def /T1 exch def /yu exch def /xu exch def TIL xu yu moveto T1 show ishowL01 FONT xu yu iyd 1 mul sub moveto T2 show ishowL02 FONT xu yu iyd 2 mul sub moveto T3 show ishowL03 FONT} bind def /TEk3xlamda {/T3 exch def /T2 exch def /T1 exch def /yu exch def /xu exch def xu yu moveto FONT T1 show ishowL01 FONT TlamdaL xu yu iyd 1 mul sub moveto FONT T2 show ishowL02 FONT TlamdaL xu yu iyd 2 mul sub moveto FONT T3 show ishowL03 FONT TlamdaL} bind def /TEk3lamda {/T3 exch def /T2 exch def /T1 exch def /yu exch def /xu exch def xu yu moveto FONT T1 show TlamdaL xu yu iyd 1 mul sub moveto FONT T2 show TlamdaL xu yu iyd 2 mul sub moveto FONT T3 show TlamdaL} bind def /TEk30ilamda {/T3 exch def /T2 exch def /T1 exch def /yu exch def /xu exch def xu yu moveto FONT T1 show eshow- TlamdaL xu yu iyd 1 mul sub moveto FONT T2 show qshow- TlamdaL xu yu iyd 2 mul sub moveto FONT T3 show eshow- TlamdaL} bind def /TEk31i {/T3 exch def /T2 exch def /T1 exch def /yu exch def /xu exch def xu yu moveto FONT T1 show ishowL11 xu yu iyd 1 mul sub moveto FONT T2 show ishowL12 xu yu iyd 2 mul sub moveto FONT T3 show ishowL13} bind def /TEk32i {/T3 exch def /T2 exch def /T1 exch def /yu exch def /xu exch def TIL xu yu moveto FONT T1 show ishowL21 xu yu iyd 1 mul sub moveto FONT T2 show ishowL22 xu yu iyd 2 mul sub moveto FONT T3 show ishowL23} bind def /TEk33i {/T3 exch def /T2 exch def /T1 exch def /yu exch def /xu exch def TIL xu yu moveto FONT T1 show ishowL31 xu yu iyd 1 mul sub moveto FONT T2 show ishowL32 xu yu iyd 2 mul sub moveto FONT T3 show ishowL33} bind def %************************************************** /TEk3i1 {/T3 exch def /T2 exch def /T1 exch def /yu exch def /xu exch def xu yu moveto FONT T1 show ishowL11 xu yu iyd 1 mul sub moveto FONT T2 show ishowL21 xu yu iyd 2 mul sub moveto FONT T3 show ishowL31} bind def /TEk3i2 {/T3 exch def /T2 exch def /T1 exch def /yu exch def /xu exch def xu yu moveto FONT T1 show ishowL12 xu yu iyd 1 mul sub moveto FONT T2 show ishowL22 xu yu iyd 2 mul sub moveto FONT T3 show ishowL32} bind def /TEk3i3 {/T3 exch def /T2 exch def /T1 exch def /yu exch def /xu exch def xu yu moveto FONT T1 show ishowL13 xu yu iyd 1 mul sub moveto FONT T2 show ishowL23 xu yu iyd 2 mul sub moveto FONT T3 show ishowL33} bind def %********************************* /A11 0.9093 def /A12 0.3338 def /A13 -0.0133 def /A21 1.0000 def /A22 0.0000 def /A23 0.0000 def /A31 0.4494 def /A32 -0.0574 def /A33 -0.4136 def %********************************* /B11 0.0000 def /B12 1.0000 def /B13 0.0000 def /B21 2.9797 def /B22 -2.6662 def /B23 -0.0960 def /B31 -0.4139 def /B32 1.4571 def /B33 -2.4046 def %********************************* /AL11 A11 def /AL12 A12 def /AL13 A13 def /AL21 A21 def /AL22 A22 def /AL23 A23 def /AL31 A11 A21 add A31 add def /AL32 A12 A22 add A32 add def /AL33 A13 A23 add A33 add def %********************************* /BE11 B11 B13 sub def /BE12 B12 B13 sub def /BE13 B13 def /BE21 B21 B23 sub def /BE22 B22 B23 sub def /BE23 B23 def /BE31 B31 B33 sub def /BE32 B32 B33 sub def /BE33 B33 def %********************************* /DOW 82 array def /DOWZ 17 array def /F02Z 51 array def /F10Z 51 array def /DOWZ %17 data [700 -495 -500 -505 -510 -515 -520 -525 -530 -535 -540 -545 -550 -555 -560 -565 400] def /F02Z %3x17 data 700 ... 400 [.01136 .01141 .01158 .01169 .01176 .01182 .01187 .01191 .01195 .01199 .01204 .01210 .01219 .01232 .01254 .01300 .01431 .00410 .00404 .00383 .00369 .00359 .00352 .00346 .00342 .00337 .00331 .00325 .00317 .00306 .00289 .00262 .00205 .00040 .00000 .00118 .00507 .00754 .00930 .01064 .01167 .01256 .01346 .01445 .01562 .01709 .01910 .02210 .02718 .03765 .06785] def /F10Z %3x17 data 700 ... 400 [.00958 .01015 .01037 .01053 .01065 .01075 .01085 .01096 .01108 .01122 .01139 .01163 .01201 .01268 .01416 .02078 .01911 .00372 .00361 .00357 .00355 .00352 .00351 .00349 .00347 .00345 .00342 .00339 .00335 .00328 .00316 .00289 .00170 .00200 .00000 .00517 .00718 .00858 .00972 .01063 .01150 .01245 .01354 .01478 .01635 .01856 .02194 .02795 .04136 .10106 .08601] def /aushow {TIL (a) show (u) isV} bind def /bushow {TIL (b) show (u) isV} bind def /anshow {TIL (a) show (n) isV} bind def /bnshow {TIL (b) show (n) isV} bind def /nashow {TIL (n) show (a) isV} bind def /nbshow {TIL (n) show (b) isV} bind def /bashow {TBIL (n) show (a) ibV} bind def /bbshow {TBIL (n) show (b) ibV} bind def /paushow {TIL (p) show (au) isV} bind def /pbushow {TIL (p) show (bu) isV} bind def /prushow {TIL (p) show (ru) isV} bind def /panshow {TIL (p) show (an) isV} bind def /pbnshow {TIL (p) show (bn) isV} bind def /prnshow {TIL (p) show (rn) isV} bind def /panushow {TIL (p) show (anu) isV} bind def /pbnushow {TIL (p) show (bnu) isV} bind def /prnushow {TIL (p) show (rnu) isV} bind def /paubshow {TBIL (p) show (au) ibV} bind def /pbubshow {TBIL (p) show (bu) ibV} bind def /prubshow {TBIL (p) show (ru) ibV} bind def /panbshow {TBIL (p) show (an) ibV} bind def /pbnbshow {TBIL (p) show (bn) ibV} bind def /prnbshow {TBIL (p) show (rn) ibV} bind def /panubshow {TBIL (p) show (anu) ibV} bind def /pbnubshow {TBIL (p) show (bnu) ibV} bind def /prnubshow {TBIL (p) show (rnu) ibV} bind def %Icotx [(B) (C) (G) (Y) (R) (M)] def /Iconr [0 0 0 1 1 1 ] def /Icong [0 1 1 1 0 0 ] def /Iconb [1 1 0 0 0 1 ] def %CE700-7R_13_01_13_03_14_02.TXT 180814 with xchart15=1 %1-000030-L0 CE700-7R %Ostwald colours (o) of maximum (m) CAB for D50, Yw=100, Ym=520_770, CIE02 %O5002xyzq tristimulus values, nominal wavelengths ldn and lcn, D50, CIE02 /O5002xyzq 800 array def /O5002xyzq [%BEG OS5002xyzq %ld ldn X Y Z x y z Code lc lcn l1 l2 no. (561c) 396 31.24 12.19 76.70 0.260 0.101 0.638 %29 (561) 561 619 490 #37 (463) 463 13.25 06.34 78.11 0.135 0.064 0.799 %30 (568) 568 495c 495 #00 (466) 466 13.27 08.01 79.21 0.132 0.079 0.788 %31 (569) 569 500c 500 #01 (471) 471 13.39 12.66 80.68 0.125 0.118 0.755 %32 (571) 571 510c 510 #02 (475) 475 14.00 19.22 81.44 0.122 0.167 0.710 %33 (573) 573 520c 520 #03 Bm (479) 479 15.61 27.50 81.85 0.124 0.220 0.654 %34 (577) 577 530c 530 #04 (481) 481 18.42 36.66 82.05 0.134 0.267 0.598 %35 (581) 581 540c 540 #05 (483) 483 20.35 41.45 82.11 0.141 0.288 0.570 %36 (583) 583 545c 545 #06 (484) 484 22.64 46.29 82.14 0.149 0.306 0.543 %37 (585) 585 550c 550 #07 %(484) 484 22.64 46.29 82.14 0.149 0.306 0.543 %38 (585) 585 554c 555 # (485) 485 25.29 51.06 82.16 0.159 0.322 0.518 %39 (587) 587 559c 560 #08 (486) 486 29.62 57.81 81.63 0.175 0.341 0.482 %00 (592) 592 405 564 #09 Cm (490) 490 26.32 58.17 63.51 0.177 0.393 0.429 %01 (631) 631 435 565 #10 (497) 497 23.01 58.66 42.48 0.185 0.472 0.342 %02 (497c) 702 450 566 #11 (501) 501 22.62 59.57 35.19 0.192 0.507 0.299 %03 (501c) 706 460 567 #12 (506) 506 22.26 60.29 28.28 0.200 0.543 0.255 %04 (506c) 711 465 568 #13 (519) 519 21.83 61.02 17.06 0.218 0.610 0.170 %05 (519c) 724 470 570 #14 (522) 522 24.04 63.42 17.06 0.230 0.606 0.163 %06 (522c) 727 475 573 #15 Gm (535) 535 27.22 66.19 09.71 0.263 0.641 0.094 %07 (535c) 740 480 578 #16 (544) 544 35.20 72.16 07.33 0.306 0.629 0.063 %08 (544c) 749 485 587 #17 (561) 561 65.07 87.80 05.54 0.410 0.554 0.034 %09 (561c) 766 490 619 #18 (568) 568 83.05 93.65 04.13 0.459 0.517 0.022 %10 (463) 463 495 495c #19 (569) 569 83.03 91.98 03.02 0.466 0.516 0.017 %11 (466) 466 500 500c #20 (571) 571 82.92 87.33 01.55 0.482 0.508 0.009 %12 (471) 471 510 510c #21 (573) 573 82.30 80.77 00.80 0.502 0.492 0.004 %13 (475) 475 520 520c #22 Ym (577) 577 80.69 72.49 00.38 0.525 0.472 0.002 %14 (479) 479 530 530c #23 (581) 581 77.88 63.33 00.18 0.550 0.447 0.001 %15 (481) 481 540 540c #24 (583) 583 75.96 58.54 00.13 0.564 0.434 0.000 %16 (483) 483 545 545c #25 (585) 585 73.67 53.70 00.09 0.577 0.421 0.000 %17 (484) 484 550 550c #26 %(585) 585 73.67 53.70 00.09 0.577 0.421 0.000 %18 (484) 484 555 554c # (587) 587 71.02 48.93 00.07 0.591 0.407 0.000 %19 (485) 485 560 559c #27 (592) 592 66.69 42.18 00.61 0.609 0.385 0.005 %20 (486) 486 564 405 #28 Rm (631) 631 69.99 41.82 18.72 0.536 0.320 0.143 %21 (490) 490 565 435 #29 (497c) 702 73.30 41.33 39.75 0.474 0.267 0.257 %22 (497) 497 566 450 #30 (501c) 706 73.69 40.42 47.04 0.457 0.250 0.291 %23 (501) 501 567 460 #31 (506c) 711 74.05 39.70 53.95 0.441 0.236 0.321 %24 (506) 506 568 465 #32 (519c) 724 74.48 38.97 65.18 0.416 0.218 0.364 %25 (519) 519 570 470 #33 (522c) 727 72.27 36.57 65.17 0.415 0.210 0.374 %26 (522) 522 573 475 #34 Mm (535c) 740 69.09 33.80 72.53 0.393 0.192 0.413 %27 (535) 535 578 480 #35 (544c) 749 61.10 27.83 74.91 0.372 0.169 0.457 %28 (544) 544 587 485 #36 (561c) 766 31.24 12.19 76.70 0.260 0.101 0.638 %29 (561) 561 619 490 #37 (463) 463 13.25 06.34 78.11 0.135 0.064 0.799 %30 (568) 568 495c 495 #38 %380...780 96.31 99.99 82.24 0.345 0.358 0.295 % D50, CIE02 # ] def %END O5002xyzq /XuO5002 96.31 def /YuO5002 99.99 def /ZuO5002 82.24 def /IMO5002 39 def /I1O5002 30 def /I2O5002 37 def /Icotx [(B) (C) (G) (Y) (R) (M)] def /Iconw [04 10 16 23 29 35] def /Icona [12 18 24 31 37 05] def %1-001030-L0 CE700-7R %Ostwald colours (o) of maximum (m) CAB,10 for D50, Yw,10=100, Ym=520_770, CIE10 %O5010xyzq tristimulus values, nominal wavelengths ldn and lcn, D50, CIE10 /O5010xyzq 800 array def /O5010xyzq [%BEG OS_D50_CIE10xyzq %ld ldn X Y Z x y z Code lc lcn l1 l2 no. (541c) 376 55.24 26.06 71.09 0.362 0.171 0.466 %27 (541) 541 590 480 #37 (458) 458 13.22 07.40 75.88 0.137 0.076 0.786 %28 (563) 563 485c 485 #00 (460) 460 13.26 08.90 77.34 0.133 0.089 0.777 %29 (564) 564 490c 490 #01 (462) 462 13.28 10.68 78.42 0.129 0.104 0.765 %30 (565) 565 495c 495 #02 (462) 462 13.28 10.68 78.42 0.129 0.104 0.765 %31 (565) 565 499c 500 #03 (468) 468 13.66 17.92 80.20 0.122 0.160 0.717 %32 (568) 568 510c 510 #04 (471) 471 14.70 24.41 80.73 0.122 0.203 0.673 %33 (571) 571 520c 520 #05 (473) 473 15.60 28.17 80.89 0.125 0.226 0.648 %34 (573) 573 529c 530 #06 (475) 475 18.32 36.37 81.08 0.134 0.267 0.597 %35 (577) 577 539c 540 #07 (477) 477 22.35 45.10 81.16 0.150 0.303 0.546 %36 (581) 581 545c 545 #08 (477) 477 22.35 45.10 81.16 0.150 0.303 0.546 %37 (581) 581 549c 550 #09 (479) 479 27.82 53.94 81.17 0.170 0.331 0.498 %38 (587) 587 555c 555 #10 (480) 480 30.64 58.21 79.20 0.182 0.346 0.471 %39 (591) 591 411 560 #11 %(479) 479 29.03 55.95 80.23 0.175 0.338 0.485 %00 (589) 589 405 559 # (484) 484 25.67 56.42 59.80 0.180 0.397 0.421 %01 (692) 692 435 560 #12 (492) 492 22.50 56.65 38.03 0.192 0.483 0.324 %02 (492c) 697 450 562 #13 (503) 503 21.56 57.40 24.28 0.208 0.555 0.235 %03 (503c) 708 460 564 #14 (512) 512 22.19 58.45 18.53 0.223 0.589 0.186 %04 (512c) 717 465 566 #15 (521) 521 24.28 60.61 13.79 0.246 0.614 0.139 %05 (521c) 726 470 570 #16 (531) 531 29.00 64.47 10.07 0.280 0.622 0.097 %06 (531c) 736 475 576 #17 (541) 541 41.39 73.93 10.07 0.330 0.589 0.080 %07 (541c) 746 480 590 #18 (563) 563 83.41 92.59 05.28 0.460 0.510 0.029 %08 (458) 458 485 485c #19 (564) 564 83.37 91.09 03.82 0.467 0.510 0.021 %09 (460) 460 490 490c #20 (565) 565 83.35 89.31 02.74 0.475 0.509 0.015 %10 (462) 462 495 495c #21 (565) 565 83.35 89.31 02.74 0.475 0.509 0.015 %11 (462) 462 500 499c #22 (568) 568 82.96 82.07 00.96 0.499 0.494 0.005 %12 (468) 468 510 510c #23 (571) 571 81.93 75.58 00.44 0.518 0.478 0.002 %13 (471) 471 520 520c #24 (573) 573 81.03 71.82 00.27 0.529 0.469 0.001 %14 (473) 473 530 529c #25 (577) 577 78.31 63.62 00.08 0.551 0.447 0.000 %15 (475) 475 540 539c #26 (581) 581 74.28 54.89 00.01 0.574 0.424 0.000 %16 (477) 477 545 545c #27 (581) 581 74.28 54.89 00.01 0.574 0.424 0.000 %17 (477) 477 550 549c #28 (587) 587 68.81 46.05 00.00 0.599 0.400 0.000 %18 (479) 479 555 555c #29 %(591) 591 65.99 41.78 01.97 0.601 0.380 0.017 %19 (480) 480 560 411 # (589) 589 67.60 44.04 00.93 0.600 0.391 0.008 %20 (479) 479 559 405 #30 (692) 692 70.96 43.57 21.37 0.522 0.320 0.157 %21 (484) 484 560 435 #31 (492c) 697 74.12 43.34 43.14 0.461 0.269 0.268 %22 (492) 492 562 450 #32 (503c) 708 75.07 42.59 56.88 0.430 0.244 0.325 %23 (503) 503 564 460 #33 (512c) 717 74.44 41.54 62.63 0.416 0.232 0.350 %24 (512) 512 566 465 #34 (521c) 726 72.35 39.38 67.38 0.403 0.219 0.376 %25 (521) 521 570 470 #35 (531c) 736 67.63 35.52 71.09 0.388 0.203 0.408 %26 (531) 531 576 475 #36 (541c) 746 55.24 26.06 71.09 0.362 0.171 0.466 %27 (541) 541 590 480 #37 (458) 458 13.22 07.40 75.88 0.137 0.076 0.786 %28 (563) 563 485c 485 #38 %380...780 96.63 100.00 81.17 0.347 0.359 0.292 % D50, CIE10 # ] def %END O5010xyzq /XuO5010 96.63 def /YuO5010 100.00 def /ZuO5010 81.17 def /IMO5010 39 def /I1O5010 32 def /I2O5010 37 def /Icotx [(B) (C) (G) (Y) (R) (M)] def /Iconw [04 10 16 23 29 35] def /Icona [12 18 24 31 37 05] def %1-002030-L0 CE700-7R %O50F02xyzq tristimulus values, nominal wavelengths ldn and lcn, D50, CIEF02 /O50F02xyzq 800 array def /O50F02xyzq [%BEG O50F02xyzq %ld ldn X Y Z x y z Code lc lcn l1 l2 no. (551c) 386 51.50 23.94 74.68 0.343 0.159 0.497 %28 (551) 551 597 485 #37 (460) 460 12.38 06.54 76.19 0.130 0.068 0.801 %29 (568) 568 490c 490 #00 %(460) 460 12.38 06.54 76.19 0.130 0.068 0.801 %30 (568) 568 494c 495 # (465) 465 12.41 09.58 78.25 0.123 0.095 0.780 %31 (569) 569 500c 500 #01 (467) 467 12.45 11.64 78.88 0.120 0.113 0.765 %32 (570) 570 509c 510 #02 (473) 473 13.31 20.43 79.83 0.117 0.179 0.702 %33 (573) 573 520c 520 #03 (475) 475 14.02 24.19 79.97 0.118 0.204 0.676 %34 (575) 575 529c 530 #04 (479) 479 17.82 36.92 80.16 0.132 0.273 0.594 %35 (580) 580 540c 540 #05 (479) 479 17.82 36.92 80.16 0.132 0.273 0.594 %36 (580) 580 544c 545 #06 (481) 481 21.98 46.03 80.20 0.148 0.310 0.541 %37 (585) 585 550c 550 #07 (481) 481 21.98 46.03 80.20 0.148 0.310 0.541 %38 (585) 585 554c 555 #08 (483) 483 27.52 55.03 80.21 0.169 0.338 0.492 %39 (590) 590 560c 560 #09 (484) 484 28.85 57.21 79.07 0.174 0.346 0.478 %00 (592) 592 405 565 #10 (489) 489 25.36 57.41 57.70 0.180 0.408 0.410 %01 (489c) 694 435 565 #11 (497) 497 22.33 57.50 36.81 0.191 0.492 0.315 %02 (497c) 702 450 566 #12 (505) 505 21.31 58.03 24.30 0.205 0.559 0.234 %03 (505c) 710 460 568 #13 (512) 512 21.41 58.69 18.79 0.216 0.593 0.190 %04 (512c) 717 465 569 #14 (521) 521 22.42 59.91 14.10 0.232 0.621 0.146 %05 (521c) 726 470 571 #15 (524) 524 25.32 62.97 14.10 0.247 0.614 0.137 %06 (524c) 729 475 575 #16 (539) 539 30.29 66.55 07.57 0.290 0.637 0.072 %07 (539c) 744 480 581 #17 (551) 551 44.95 76.05 05.53 0.355 0.600 0.043 %08 (551c) 756 485 597 #18 (568) 568 84.08 93.45 04.02 0.463 0.514 0.022 %09 (460) 460 490 490c #19 (568) 568 84.08 93.45 04.02 0.463 0.514 0.022 %10 (460) 460 495 494c #20 (569) 569 84.05 90.41 01.96 0.476 0.512 0.011 %11 (465) 465 500 500c #21 (570) 570 84.00 88.35 01.33 0.483 0.508 0.007 %12 (467) 467 510 509c #22 (573) 573 83.15 79.56 00.38 0.509 0.487 0.002 %13 (473) 473 520 520c #23 (575) 575 82.44 75.80 00.24 0.520 0.478 0.001 %14 (475) 475 530 529c #24 (580) 580 78.64 63.07 00.05 0.554 0.444 0.000 %15 (479) 479 540 540c #25 (580) 580 78.64 63.07 00.05 0.554 0.444 0.000 %16 (479) 479 545 544c #26 %(585) 585 74.48 53.96 00.02 0.579 0.420 0.000 %17 (481) 481 550 550c # (585) 585 74.48 53.96 00.02 0.579 0.420 0.000 %18 (481) 481 555 554c #27 (590) 590 68.94 44.96 00.00 0.605 0.394 0.000 %19 (483) 483 560 560c #28 (592) 592 67.61 42.78 01.14 0.606 0.383 0.010 %20 (484) 484 565 405 #29 (489c) 694 71.10 42.58 22.52 0.521 0.312 0.165 %21 (489) 489 565 435 #30 (497c) 702 74.12 42.49 43.40 0.463 0.265 0.271 %22 (497) 497 566 450 #31 (505c) 710 75.15 41.96 55.91 0.434 0.242 0.323 %23 (505) 505 568 460 #32 (512c) 717 75.05 41.30 61.43 0.422 0.232 0.345 %24 (512) 512 569 465 #33 (521c) 726 74.04 40.08 66.11 0.410 0.222 0.366 %25 (521) 521 571 470 #34 (524c) 729 71.14 37.02 66.11 0.408 0.212 0.379 %26 (524) 524 575 475 #35 (539c) 744 66.16 33.44 72.64 0.384 0.194 0.421 %27 (539) 539 581 480 #36 (551c) 756 51.50 23.94 74.68 0.343 0.159 0.497 %28 (551) 551 597 485 #37 (460) 460 12.38 06.54 76.19 0.130 0.068 0.801 %29 (568) 568 490c 490 #38 %380...780 96.46 100.00 80.22 0.348 0.361 0.289 % D50, CIEF02 # ] def %END O50F02xyzq /XuO50F02 96.46 def /YuO50F02 100.00 def /ZuO50F02 82.22 def /IMO50F02 39 def /I1O50F02 30 def /I2O50F02 37 def /Icotx [(B) (C) (G) (Y) (R) (M)] def /Iconw [04 10 16 23 29 35] def /Icona [12 18 24 31 37 05] def %1-003030-L0 CE700-7R %Ostwald colours (o) of maximum (m) CAB,F10 for D50, Yw,F10=100, Ym=520_770, CIEF10 %O50F10xyzq tristimulus values, nominal wavelengths ldn and lcn, D50, CIE02 /O50F10xyzq 800 array def /O50F10xyzq [%BEG O50F10xyzq %ld ldn X Y Z x y z Code lc lcn l1 l2 no. (545c) 380 52.92 25.78 74.65 0.345 0.168 0.486 %27 (545) 545 592 480 #37 (455) 455 13.14 06.61 74.65 0.139 0.070 0.790 %28 (563) 563 484c 485 #00 (460) 460 13.28 09.49 77.95 0.131 0.094 0.773 %29 (564) 564 490c 490 #01 (462) 462 13.30 11.32 78.97 0.128 0.109 0.762 %30 (565) 565 495c 495 #02 (464) 464 13.34 13.45 79.69 0.125 0.126 0.748 %31 (566) 566 500c 500 #03 (468) 468 13.69 18.67 80.47 0.121 0.165 0.713 %32 (568) 568 510c 510 #04 (471) 471 14.73 25.21 80.80 0.122 0.208 0.669 %33 (571) 571 520c 520 #05 (472) 472 15.63 28.96 80.89 0.124 0.230 0.644 %34 (573) 573 529c 530 #06 (475) 475 18.33 37.06 80.98 0.134 0.271 0.593 %35 (577) 577 539c 540 #07 (477) 477 22.39 45.70 81.01 0.150 0.306 0.543 %36 (581) 581 545c 545 #08 %(477) 477 22.39 45.70 81.01 0.150 0.306 0.543 %37 (581) 581 549c 550 # (477) 477 24.94 50.08 81.02 0.159 0.320 0.519 %38 (584) 584 554c 555 #09 (479) 479 30.58 58.60 78.68 0.182 0.349 0.468 %39 (591) 591 412 560 #10 (479) 479 29.07 56.38 80.12 0.175 0.340 0.483 %00 (588) 588 405 559 #11 (484) 484 25.63 56.72 59.32 0.180 0.400 0.418 %01 (484c) 689 435 560 #12 (492) 492 22.37 56.85 36.73 0.192 0.490 0.316 %02 (492c) 697 450 562 #13 (503) 503 21.57 57.63 22.95 0.211 0.564 0.224 %03 (503c) 708 460 564 #14 (511) 511 22.30 58.68 17.25 0.227 0.597 0.175 %04 (511c) 716 465 566 #15 (521) 521 24.56 60.88 12.62 0.250 0.620 0.128 %05 (521c) 726 470 570 #16 (532) 532 29.89 65.13 09.04 0.287 0.625 0.086 %06 (532c) 737 475 577 #17 (545) 545 43.82 74.21 06.37 0.352 0.596 0.051 %07 (545c) 750 480 592 #18 (563) 563 83.59 93.38 06.37 0.455 0.509 0.034 %08 (455) 455 485 484c #19 (564) 564 83.45 90.50 03.08 0.471 0.511 0.017 %09 (460) 460 490 490c #20 (565) 565 83.43 88.67 02.06 0.479 0.509 0.011 %10 (462) 462 495 495c #21 (566) 566 83.39 86.54 01.34 0.486 0.505 0.007 %11 (464) 464 500 500c #22 (568) 568 83.04 81.32 00.56 0.503 0.493 0.003 %12 (468) 468 510 510c #23 (571) 571 82.00 74.78 00.23 0.522 0.476 0.001 %13 (471) 471 520 520c #24 (573) 573 81.10 71.03 00.14 0.532 0.466 0.000 %14 (472) 472 530 529c #25 (577) 577 78.40 62.93 00.05 0.554 0.445 0.000 %15 (475) 475 540 539c #26 (581) 581 74.34 54.29 00.02 0.577 0.421 0.000 %16 (477) 477 545 545c #27 %(581) 581 74.34 54.29 00.02 0.577 0.421 0.000 %17 (477) 477 550 549c # (584) 584 71.79 49.91 00.01 0.589 0.410 0.000 %18 (477) 477 555 554c #28 (591) 591 66.15 41.39 02.34 0.601 0.376 0.021 %19 (479) 479 560 412 #29 (588) 588 67.67 43.61 00.91 0.603 0.388 0.008 %20 (479) 479 559 405 #30 (484c) 689 71.10 43.27 21.71 0.522 0.317 0.159 %21 (484) 484 560 435 #31 (492c) 697 74.36 43.14 44.30 0.459 0.266 0.273 %22 (492) 492 562 450 #32 (503c) 708 75.16 42.36 58.08 0.428 0.241 0.330 %23 (503) 503 564 460 #33 (511c) 716 74.43 41.31 63.78 0.414 0.230 0.355 %24 (511) 511 566 465 #34 (521c) 726 72.17 39.11 68.41 0.401 0.217 0.380 %25 (521) 521 570 470 #35 (532c) 737 66.84 34.86 71.99 0.384 0.200 0.414 %26 (532) 532 577 475 #36 (545c) 750 52.92 25.78 74.65 0.345 0.168 0.486 %27 (545) 545 592 480 #37 (455) 455 13.14 06.61 74.65 0.139 0.070 0.790 %28 (563) 563 484c 485 #38 %380...780 96.74 100.00 81.03 0.348 0.359 0.291 % D50, CIEF10 # ] def %END O50F10xyzq /XuO50F10 96.74 def /YuO50F10 100.00 def /ZuO50F10 81.03 def /IMO50F10 39 def /I1O50F10 31 def /I2O50F10 37 def /Icotx [(B) (C) (G) (Y) (R) (M)] def /Iconw [04 10 16 23 29 35] def /Icona [12 18 24 31 37 05] def %1-000030-L0 CE700-7R %Ostwald colours (o) of maximum (m) CAB for D50, Yw=100, Ym=520_770, R17M %O50R17Mxyzq tristimulus values, nominal wavelengths ldn and lcn, D50, CIE02 /O50R17Mxyzq 800 array def /O50R17Mxyzq [%BEG OR17Mxyzq %ld ldn X Y Z x y z Code lc lcn l1 l2 no. (538c) 373 50.84 23.58 64.46 0.366 0.169 0.464 %28 (538) 538 589 485 #32 (450) 450 26.22 10.37 70.14 0.245 0.097 0.657 %29 (553) 553 630 490 #00 (463) 463 19.81 09.03 72.38 0.195 0.089 0.715 %30 (557) 557 495c 495 #01 (465) 465 19.87 11.18 74.25 0.188 0.106 0.705 %31 (558) 558 500c 500 #02 (470) 470 20.04 16.47 77.00 0.176 0.145 0.678 %32 (561) 561 510c 510 #03 (474) 474 20.76 23.15 78.71 0.169 0.188 0.641 %33 (565) 565 520c 520 #04 (477) 477 22.69 31.32 79.75 0.169 0.234 0.596 %34 (570) 570 530c 530 #05 (479) 479 24.27 35.77 80.07 0.173 0.255 0.571 %35 (572) 572 539c 540 #06 (481) 481 28.86 45.22 80.48 0.186 0.292 0.520 %36 (578) 578 545c 545 #07 %(481) 481 28.86 45.22 80.48 0.186 0.292 0.520 %37 (578) 578 549c 550 # %(499) 499 18.37 49.10 38.38 0.173 0.463 0.362 %38 (499c) 704 457 555 # %(509) 509 18.84 52.92 27.66 0.189 0.532 0.278 %39 (509c) 714 468 560 # (482) 482 30.21 48.30 79.14 0.191 0.306 0.501 %00 (581) 581 405 550 #08 (487) 487 26.13 48.90 65.45 0.186 0.348 0.465 %01 (600) 600 435 551 #09 (496) 496 20.48 50.06 44.06 0.178 0.436 0.384 %02 (496c) 701 450 553 #10 (500) 500 20.60 52.31 38.55 0.184 0.469 0.345 %03 (500c) 705 460 555 #11 (509) 509 19.40 53.50 28.42 0.191 0.527 0.280 %04 (509c) 714 465 558 #12 (511) 511 21.83 56.54 28.46 0.204 0.529 0.266 %05 (511c) 716 470 561 #13 (518) 518 24.65 60.36 24.01 0.226 0.553 0.220 %06 (518c) 723 475 566 #14 (530) 530 29.99 65.40 16.35 0.268 0.585 0.146 %07 (530c) 735 480 574 #15 (538) 538 43.18 76.41 16.37 0.317 0.561 0.120 %08 (538c) 743 485 589 #16 (553) 553 67.80 89.62 10.69 0.403 0.533 0.063 %09 (450) 450 490 630 #17 (557) 557 74.22 90.96 08.45 0.427 0.523 0.048 %10 (463) 463 495 495c #18 (558) 558 74.15 88.81 06.58 0.437 0.523 0.038 %11 (465) 465 500 500c #19 (561) 561 73.98 83.52 03.84 0.458 0.517 0.023 %12 (470) 470 510 510c #20 (565) 565 73.27 76.84 02.12 0.481 0.504 0.013 %13 (474) 474 520 520c #21 (570) 570 71.33 68.67 01.09 0.505 0.486 0.007 %14 (477) 477 530 530c #22 (572) 572 69.75 64.22 00.76 0.517 0.476 0.005 %15 (479) 479 540 539c #23 (578) 578 65.16 54.77 00.35 0.541 0.455 0.002 %16 (481) 481 545 545c #24 %(578) 578 65.16 54.77 00.35 0.541 0.455 0.002 %17 (481) 481 550 549c # %(499c) 704 75.66 50.89 42.45 0.447 0.301 0.251 %18 (499) 499 555 457 # %(509c) 714 75.18 47.07 53.17 0.428 0.268 0.303 %19 (509) 509 560 468 # (581) 581 63.81 51.69 01.69 0.544 0.441 0.014 %20 (482) 482 550 405 #25 (600) 600 67.89 51.09 15.38 0.505 0.380 0.114 %21 (487) 487 551 435 #26 (500c) 705 73.42 47.68 42.28 0.449 0.291 0.258 %23 (500) 500 555 460 #27 (509c) 714 74.62 46.49 52.41 0.430 0.267 0.302 %24 (509) 509 558 465 #28 (511c) 716 72.19 43.45 52.37 0.429 0.258 0.311 %25 (511) 511 561 470 #29 (518c) 723 69.37 39.63 56.82 0.418 0.238 0.342 %26 (518) 518 566 475 #30 (530c) 735 64.03 34.59 64.49 0.392 0.212 0.395 %27 (530) 530 574 480 #31 (538c) 743 50.84 23.58 64.46 0.366 0.169 0.464 %28 (538) 538 589 485 #32 (450) 450 26.22 10.37 70.14 0.245 0.097 0.657 %29 (553) 553 630 490 #33 %380...780 94.03 100.00 80.84 0.342 0.363 0.294 % D50, R17M # ] def %END O50R17Mxyzq /XuO50R17M 94.03 def /YuO50R17M 100.00 def /ZuO50R17M 80.84 def /IMO50R17M 34 def /I1O50R17M 27 def /I2O50R17M 32 def /Icotx [(B) (C) (G) (Y) (R) (M)] def /Iconw [04 10 16 23 29 34] def /Icona [12 18 24 31 34 05] def %1-000030-L0 CE700-7R %Ostwald colours (o) of maximum (m) CAB for D50, Yw=100, Ym=520_770, R17Ms %O50R17Msxyzq tristimulus values, nominal wavelengths ldn and lcn, D50, CIE02 /O50R17Msxyzq 800 array def /O50R17Msxyzq [%BEG O50R17Msxyzq %ld ldn X Y Z x y z Code lc lcn l1 l2 no. (540c) 375 52.09 25.14 67.63 0.359 0.173 0.466 %28 (540) 540 589 485 #35 (444) 444 27.16 09.33 67.62 0.260 0.089 0.649 %29 (552) 552 630 490 #00 (463) 463 21.19 09.55 72.48 0.205 0.092 0.702 %30 (557) 557 495c 495 #01 (465) 465 21.27 11.71 74.36 0.198 0.109 0.692 %31 (558) 558 500c 500 #02 (470) 470 21.43 17.01 77.11 0.185 0.147 0.667 %32 (561) 561 510c 510 #03 (474) 474 22.09 23.68 78.83 0.177 0.190 0.632 %33 (565) 565 520c 520 #04 (476) 476 22.83 27.59 79.42 0.175 0.212 0.611 %34 (567) 567 529c 530 #05 (479) 479 25.44 36.25 80.19 0.179 0.255 0.565 %35 (572) 572 539c 540 #06 (480) 480 27.41 40.88 80.43 0.184 0.274 0.540 %36 (575) 575 544c 545 #07 (481) 481 29.88 45.66 80.60 0.191 0.292 0.516 %37 (578) 578 549c 550 #08 %(501) 501 21.79 53.98 38.52 0.190 0.472 0.337 %38 (501c) 706 457 555 # %(512) 512 22.32 57.57 27.75 0.207 0.534 0.257 %39 (512c) 717 468 560 # (482) 482 31.14 48.71 79.26 0.195 0.306 0.498 %00 (581) 581 405 550 #09 (488) 488 25.13 49.09 60.78 0.186 0.363 0.450 %01 (614) 614 435 551 #10 (496) 496 20.67 50.20 44.12 0.179 0.436 0.383 %02 (496c) 701 450 553 #11 (500) 500 20.63 52.39 38.61 0.184 0.469 0.345 %03 (500c) 705 460 555 #12 (505) 505 20.59 54.04 33.36 0.190 0.500 0.308 %04 (505c) 710 465 558 #13 (515) 515 20.38 55.82 24.00 0.203 0.557 0.239 %05 (515c) 720 470 561 #14 (522) 522 23.24 59.39 19.95 0.226 0.578 0.194 %06 (522c) 727 475 566 #15 (530) 530 29.26 65.20 16.37 0.264 0.588 0.147 %07 (530c) 735 480 574 #16 (540) 540 41.69 74.85 13.32 0.321 0.576 0.102 %08 (540c) 745 485 589 #17 (552) 552 66.62 90.66 13.33 0.390 0.531 0.078 %09 (444) 444 490 630 #18 (557) 557 72.59 90.44 08.47 0.423 0.527 0.049 %10 (463) 463 495 495c #19 (558) 558 72.51 88.28 06.59 0.433 0.527 0.039 %11 (465) 465 500 500c #20 (561) 561 72.35 82.98 03.84 0.454 0.521 0.024 %12 (470) 470 510 510c #21 (565) 565 71.69 76.31 02.12 0.477 0.508 0.014 %13 (474) 474 520 520c #22 (567) 567 70.95 72.40 01.53 0.489 0.499 0.010 %14 (476) 476 530 529c #23 (572) 572 68.34 63.74 00.76 0.514 0.479 0.005 %15 (479) 479 540 539c #24 (575) 575 66.36 59.11 00.52 0.526 0.469 0.004 %16 (480) 480 545 544c #25 (578) 578 63.90 54.33 00.35 0.538 0.458 0.003 %17 (481) 481 550 549c #26 %(501c) 706 71.98 46.01 42.43 0.448 0.286 0.264 %18 (501) 501 555 457 # %(512c) 717 71.46 42.42 53.20 0.427 0.253 0.318 %19 (512) 512 560 468 # (581) 581 62.64 51.28 01.69 0.541 0.443 0.014 %20 (482) 482 550 405 #27 (614) 614 68.65 50.90 20.17 0.491 0.364 0.144 %21 (488) 488 551 435 #28 (496c) 701 73.11 49.79 36.82 0.457 0.311 0.230 %22 (496) 496 553 450 #29 (500c) 705 73.15 47.60 42.34 0.448 0.291 0.259 %23 (500) 500 555 460 #30 (505c) 710 73.19 45.95 47.59 0.438 0.275 0.285 %24 (505) 505 558 465 #31 (515c) 720 73.40 44.17 56.94 0.420 0.253 0.326 %25 (515) 515 561 470 #32 (522c) 727 70.53 40.60 61.00 0.409 0.235 0.354 %26 (522) 522 566 475 #33 (530c) 735 64.52 34.79 64.58 0.393 0.212 0.394 %27 (530) 530 574 480 #34 (540c) 745 52.09 25.14 67.63 0.359 0.173 0.466 %28 (540) 540 589 485 #35 (444) 444 27.16 09.33 67.62 0.260 0.089 0.649 %29 (552) 552 630 490 #36 %380...780 93.78 99.99 80.95 0.341 0.363 0.294 % D50, R17Ms # ] def %END O50R17Msxyzq /XuO50R17Ms 93.78 def /YuO50R17Ms 100.00 def /ZuO50R17Ms 80.95 def /IMO50R17Ms 37 def /I1O50R17Ms 29 def /I2O50R17Ms 35 def /Icotx [(B) (C) (G) (Y) (R) (M)] def /Iconw [04 10 16 23 29 35] def /Icona [12 18 23 32 36 05] def %for order according to dominant wavelength and plot /Xni 40 array def /Yni 40 array def /Zni 40 array def /xani 40 array def /yani 40 array def /zani 40 array def /downi 40 array def /Lani 40 array def /aani 40 array def /bani 40 array def /cabni 40 array def /pani 40 array def /pbni 40 array def /prni 40 array def /habni 40 array def %calculated from pani, pbni /panui 40 array def /pbnui 40 array def /prnui 40 array def /habnui 40 array def %calculated from panui, pbnui /Anui 40 array def /Bnui 40 array def /CABnui 40 array def /hABnui 40 array def %calculated from Anui, Bnui %for order according to hue angle and plot /Xnio 40 array def /Ynio 40 array def /Znio 40 array def /xanio 40 array def /yanio 40 array def /zanio 40 array def /downio 40 array def /Lanio 40 array def /aanio 40 array def /banio 40 array def /cabnio 40 array def /panio 40 array def /pbnio 40 array def /prnio 40 array def /habnio 40 array def %calculated from panio, pbnio /panuio 40 array def /pbnuio 40 array def /prnuio 40 array def /habnuio 40 array def %calculated from panuio, pbnuio /Anuio 40 array def /Bnuio 40 array def /CABnuio 40 array def /hABnuio 40 array def %calculated from Anuio, Bnuio %**************************************************************** /proc_formel_old {%BEG proc_formel_old ix0 300 moveto TIL (a) show TL (=) show panshow TL (=) show nashow 20 0 rmoveto TIL (p) show (a) isV TL (=) show nashow TL ([\050) show TIL (b) show ishowL21 TL (-) show TIL (b) show ishowL23 TL (\051) show TIL (x) show TL (+\050) show TIL (b) show ishowL22 TL (-) show TIL (b) show ishowL23 TL (\051) show TIL (y) show TL (+) show TIL (b) show ishowL23 TL (]/) show TIL (y) show TL (=) show na0show TL (\050) show TL B21 B23 sub /iplus 0 def cvsshow4x /iplus 1 def TIL (x) show TL B22 B23 sub cvsshow4x TIL (y) show TL B23 cvsshow4x TL (\051/) show TIL (y) show %5200 300 moveto TL ((1)) show ix0 100 moveto TIL (b) show TL (=) show pbnshow TL (=) show nbshow 20 0 rmoveto TIL (p) show (b) isV TL (=) show nbshow TL ([\050) show TIL (b) show ishowL31 TL (-) show TIL (b) show ishowL33 TL (\051) show TIL (x) show TL (+\050) show TIL (b) show ishowL32 TL (-) show TIL (b) show ishowL33 TL (\051) show TIL (y) show TL (+) show TIL (b) show ishowL33 TL (]/) show TIL (y) show TL (=) show nb0show TL (\050) show TL B31 B33 sub /iplus 0 def cvsshow4x /iplus 1 def TIL (x) show TL B32 B33 sub cvsshow4x TIL (y) show TL B33 cvsshow4x (\051/) show TIL (y) show %5200 100 moveto TL ((2)) show } bind def %END proc_formel_old %**************************************************************** /proc_formel_new {%BEG proc_formel_new ix0 300 moveto TIL (a) show TL (=) show panshow TL (=) show nashow 20 0 rmoveto TIL (p) show (a) isV TL (=) show na0show TL ([\050) show AX1 cvsshow3x TIL (x) show /iplus 1 def TL AX2 cvsshow3x TL AX3 cvsshow3x /iplus 0 def TIL (z) show (\051/) show TIL (y) show TL (]) show ix0 100 moveto TIL (b) show TL (=) show pbnshow TL (=) show nbshow 20 0 rmoveto TIL (p) show (b) isV TL (=) show nb0show TL ([\050) show BX1 cvsshow3x TIL (x) show TL (+) show BX2 cvsshow3x /iplus 1 def TL BX3 cvsshow3x /iplus 0 def TIL (z) show (\051/) show TIL (y) show TL (]) show /ix1 ix0 3000 add def ix1 300 moveto TIL (A) show (nu) isV TL (=\050) show TIL (a) show TL (-) show TIL (a) show (u) isV TL (\051) show 20 0 rmoveto TIL (Y) show ix1 100 moveto TIL (B) show (nu) isV TL (=\050) show TIL (b) show TL (-) show TIL (b) show (u) isV TL (\051) show 20 0 rmoveto TIL (Y) show /ix2 ix0 4000 add def ix2 300 moveto TIL (C) show (ABnu) isV TL (=[) show TIL (A) show (2) esV -50 0 rmoveto (nu) isV TL (+) show TIL (B) show (2) esV -50 0 rmoveto (nu) isV TL (]) show (1/2) esV ix2 100 moveto TIL (h) show (ABnu) isV TL (=atan[) show TIL (B) show (nu) isV TL (/) show TIL (A) show (nu) isV TL (]) show } bind def %END proc_formel_new %%EndProlog gsave %lanindL2 START 20000505 /lanind 1 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {3 lanind eq {show} {pop} ifelse} bind def /showfr {2 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 /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 0 def /lanind2 0 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 0 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 0 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output /FL 0.00001 def %/Y18 25.3 def %Munsell background /Y18 18.0 def %Ostwald background ? /idyT 250 def /iyT 1800 def /xyzq 800 array def /xyzn 800 array def %allready normalized /AnYi 80 array def %for plot of diagrams (a5,b5), (AX,BX), (A*X,B*X), /BnYi 80 array def 72 90 translate 0.01 MM dup scale gsave /pchartl pchart def %0 1 4 {/pchartl exch def %pchartl=0,4 %A51x+A52y+A53=(A51-A52)x+(A52+A53)-A52z=(AX1*x+AX2+AX3*z) %B51x+B52y+B53=(B51-B52)x+(B52+B53)-B52z=(BX1*x+BX2+BX3*z) %A41x+A42y+A43=(B21-B23)x+(B22-B23)y+B23 %B41x+B42y+B43=(B31-B33)x+(B32-B33)y+B33 %AX=an(AX1*x+AX2+AX3*z)/y %BX=bn(BX1*x+BX2+BX3*z)/y pchartl 0 eq {%pchartl=0 /AX1 1 def /AX2 0 def /AX3 0 def /BX1 0 def /BX2 0 def /BX3 1 def /na 2.5 def /nb -1.0 def } if %pchartl=0 pchartl 1 eq {%pchartl=1 /AX1 1 def /AX2 0.171 neg def /AX3 0 def /BX1 0 def /BX2 0 def /BX3 1 def /na 2.5 def /nb -1.0 def } if %pchartl=1 pchartl 2 eq {%pchartl=2 /AX1 1 def /AX2 0.171 neg def /AX3 0 def /BX1 0 def /BX2 0 def /BX3 1 def /na 2.8 def /nb -1.0 def } if %pchartl=2 pchartl 3 eq {%pchartl=3 /A41 B21 B23 sub def /A42 B22 B23 sub def /A43 B23 def /B41 B31 B33 sub def /B42 B32 B33 sub def /B43 B33 def /na 1.4 def /nb 0.5 def } if %pchartl=3 pchartl 4 eq {%pchartl=4 /AX1 BE21 BE22 sub def /AX2 BE22 BE23 add def /AX3 BE22 neg def /BX1 BE31 BE32 sub def /BX2 BE32 BE33 add def /BX3 BE32 neg def /na 1.4 def /nb 0.5 def } if %pchartl=4 /xcolorl xcolor def %0 1 5 {/xcolorl exch def %xcolor= 0:CIE02, 1:CIE10, 2:CIEF02, 3:CIEF10, 4:R17M, 5:R17Ms gsave 20 setlinewidth 0 0 11600 17100 0.0 0.0 0.0 0.0 colrecfi %area white grey 0 0 11600 17100 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz TL 0 setgray 100 -150 moveto (DG690-7R_pchartl=) show pchartl cvishow (_xcolorl=) show xcolorl cvishow xcolorl 0 eq {((CIE02)) show} if xcolorl 1 eq {((CIE10)) show} if xcolorl 2 eq {((CIEF02)) show} if xcolorl 3 eq {((CIEF10)) show} if xcolorl 4 eq {((R17M)) show} if xcolorl 5 eq {((R17Ms)) show} if xcolorl 0 eq {%xcolor=0:CIE02 /IM IMO5002 def /IM1 I1O5002 def /IM2 I2O5002 def /ix IM 1 add 8 mul 1 sub def 0 1 ix {/i exch def %i=0,40*8-1 xyzn i O5002xyzq i get put } for %i=0,40*8-1 /Xu XuO5002 def /Yu YuO5002 def /Zu ZuO5002 def /name (CIE02) def } if %xcolor=0:CIE02 xcolorl 1 eq {%xcolor=1:CIE10 /IM IMO5010 def /IM1 I1O5010 def /IM2 I2O5010 def /ix IM def /ix IM 1 add 8 mul 1 sub def 0 1 ix {/i exch def %i=0,40*8-1 xyzn i O5010xyzq i get put } for %i=0,40*8-1 /Xu XuO5010 def /Yu YuO5010 def /Zu ZuO5010 def /name (CIE10) def } if %xcolor=1:CIE10 xcolorl 2 eq {%xcolor=2:CIEF02 /IM IMO50F02 def /IM1 I1O50F02 def /IM2 I2O50F02 def /ix IM 1 add 8 mul 1 sub def 0 1 ix {/i exch def %i=0,40*8-1 xyzn i O50F02xyzq i get put } for %i=0,40*8-1 /Xu XuO50F02 def /Yu YuO50F02 def /Zu ZuO50F02 def /name (CIEF02) def } if %xcolor=2:CIEF02 xcolorl 3 eq {%xcolor=1:CIEF10 /IM IMO50F10 def /IM1 I1O50F10 def /IM2 I2O50F10 def /ix IM 1 add 8 mul 1 sub def 0 1 ix {/i exch def %i=0,40*8-1 xyzn i O50F10xyzq i get put } for %i=0,40*8-1 /Xu XuO50F10 def /Yu YuO50F10 def /Zu ZuO50F10 def /name (CIEF10) def } if %xcolor=3:CIEF10 xcolorl 4 eq {%xcolor=4:R17M /IM IMO50R17M def /IM1 I1O50R17M def /IM2 I2O50R17M def /ix IM 1 add 8 mul 1 sub def 0 1 ix {/i exch def %i=0,40*8-1 xyzn i O50R17Mxyzq i get put } for %i=0,40*8-1 /Xu XuO50R17M def /Yu YuO50R17M def /Zu ZuO50R17M def /name (R17M) def } if %xcolor=4:R17M xcolorl 5 eq {%xcolor=5:R17Ms /IM IMO50R17Ms def /IM1 I1O50R17Ms def /IM2 I2O50R17Ms def /ix IM 1 add 8 mul 1 sub def 0 1 ix {/i exch def %i=0,40*8-1 xyzn i O50R17Msxyzq i get put } for %i=0,40*8-1 /Xu XuO50R17Ms def /Yu YuO50R17Ms def /Zu ZuO50R17Ms def /name (R17Ms) def } if %xcolor=5:R17Ms /IMA IM2 IM1 sub 1 add def /IMD IM2 IM1 sub def /Xn Xu def /Yn Yu def /Zn Zu def /SUMu Xu Yu add Zu add 0.0001 add def /XANu Xu SUMu div def /YANu Yu SUMu div def /ZANu Zu SUMu div def %Xn,Yn,Zn may be different compared to Xu,Yu,Zu /Xn Xu def /Yn Yu def /Zn Zu def /SUMn Xn Yn add Zn add 0.0001 add def /XANn Xn SUMn div def /YANn Yn SUMn div def /ZANn Zn SUMn div def /na0show {na cvsshow1x} bind def /nb0show {nb cvsshow1x} bind def /na1show {na cvsshow4x} bind def /nb1show {nb cvsshow4x} bind def %************************************************************************ /xchartl xchart def 0 1 7 {/xchartl exch def %xchartl=0,7 /iplus 0 def 20 setlinewidth xchartl 0 eq { 100 13000 translate} if xchartl 1 eq { 6100 13000 translate} if xchartl 2 eq { 100 08750 translate} if xchartl 3 eq { 6100 08750 translate} if xchartl 4 eq { 100 4500 translate} if xchartl 5 eq { 6100 4500 translate} if xchartl 6 eq { 100 0250 translate} if xchartl 7 eq { 6100 0250 translate} if 0 setgray 150 /Times-ISOL1 FS xchartl 2 eq {4500 -150 moveto (DG690-3N) show} if xchartl 3 eq {4500 -150 moveto (DG690-4N) show} if xchartl 6 eq {4500 -150 moveto (DG690-7N) show} if xchartl 7 eq {4500 -150 moveto (DG690-8N) show} if %xchartl 1 add cvishow %(A) show %A 30 setlinewidth [ ] 0 setdash /yhoe 8300 def /xwidth 5400 def xchartl 2 eq xchartl 3 eq or xchartl 6 eq or xchartl 7 eq or { 1 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath stroke } if %xchartl=2,3,7,8 /Ln Yn def pchartl 3 eq {%pchartl=3 /pan A41 XANn mul A42 YANn mul add A43 add YANn 0.0001 add div na mul def /pbn B41 XANn mul B42 YANn mul add B43 add YANn 0.0001 add div nb mul def }%pchartl=3 {%pchartl#3 /pan AX1 XANn mul AX2 add AX3 ZANn mul add YANn 0.0001 add div na mul def /pbn BX1 XANn mul BX2 add BX3 ZANn mul add YANn 0.0001 add div nb mul def } ifelse %pchartl=3,#3 /prn pan dup mul pbn dup mul add 0.0001 add sqrt def /habn pbn pan 0.0001 add atan def /Lu Yu def pchartl 3 eq {%pchartl=3 /pau A41 XANu mul A42 YANu mul add A43 add YANu 0.0001 add div na mul def /pbu B41 XANu mul B42 YANu mul add B43 add YANu 0.0001 add div nb mul def }%pchartl=3 {%pchartl#3 /pau AX1 XANu mul AX2 add AX3 ZANu mul add YANu 0.0001 add div na mul def /pbu BX1 XANu mul BX2 add BX3 ZANu mul add YANu 0.0001 add div nb mul def } ifelse %pchartl=3,#3 /pru pau dup mul pbu dup mul add 0.0001 add sqrt def /habu pbu pau 0.0001 add atan def /panu pan pau sub def /pbnu pbn pbu sub def /prnu panu dup mul pbnu dup mul add 0.0001 add sqrt def /habnu pbnu panu 0.0001 add atan def /Anu pan pau sub Lu mul def /Bnu pbn pbu sub Lu mul def /CABnu Anu dup mul Bnu dup mul add 0.0001 add sqrt def /hABnu Bnu Anu 0.0001 add atan def %***************************************************************** %data order according to dominant (nominal) wavelength /ix IM def 0 1 ix {/i exch def %i=0,ix /i8 i 8 mul def downi i xyzn i8 1 add get put %400, 410,...700,...400 Xni i xyzn i8 2 add get put Yni i xyzn i8 3 add get put Zni i xyzn i8 4 add get put /SUM Xni i get Yni i get add Zni i get add 0.0001 add def xani i xyzn i8 2 add get SUM div put yani i xyzn i8 3 add get SUM div put zani i xyzn i8 4 add get SUM div put Lani i Yni i get put pchartl 3 eq {%pchartl=3 pani i A41 xani i get mul A42 yani i get mul add A43 add yani i get div na mul put pbni i B41 xani i get mul B42 yani i get mul add B43 add yani i get div nb mul put }%pchartl=3 {%pchartl#3 pani i AX1 xani i get mul AX2 add AX3 zani i get mul add yani i get div na mul put pbni i BX1 xani i get mul BX2 add BX3 zani i get mul add yani i get div nb mul put } ifelse %pchartl=3,#3 prni i pani i get dup mul pbni i get dup mul add 0.0001 add sqrt put aani i pani i get Lani i get mul put bani i pbni i get Lani i get mul put cabni i aani i get dup mul bani i get dup mul add 0.0001 add sqrt put habni i pbni i get pani i get 0.0001 add atan put panui i pani i get pau sub put pbnui i pbni i get pbu sub put prnui i panui i get dup mul pbnui i get dup mul add 0.0001 add sqrt put habnui i pbnui i get panui i get 0.0001 add atan put Anui i panui i get Lani i get mul put Bnui i pbnui i get Lani i get mul put CABnui i prnui i get Lani i get mul put hABnui i Bnui i get Anui i get 0.0001 add atan put } for %i=0,ix /ix IM def %special if downi ix-1 get <700 instead of >700 downi ix 2 sub get 700 le {downi ix 2 sub 765 downi ix 2 sub get 400 sub add put} if downi ix 1 sub get 700 le {downi ix 1 sub 765 downi ix 1 sub get 400 sub add put} if downi ix 0 sub get 700 le {downi ix 0 sub 765 downi ix 0 sub get 400 sub add put} if %***************************************************************** %data order according to hue angle /ix IMD def 0 1 ix {/i exch def %i=0,ix, purple colours downio i downi IM1 i add get put Xnio i Xni IM1 i add get put Ynio i Yni IM1 i add get put Znio i Zni IM1 i add get put xanio i xani IM1 i add get put yanio i yani IM1 i add get put zanio i zani IM1 i add get put Lanio i Lani IM1 i add get put aanio i aani IM1 i add get put banio i bani IM1 i add get put cabnio i cabni IM1 i add get put panio i pani IM1 i add get put pbnio i pbni IM1 i add get put prnio i prni IM1 i add get put habnio i habni IM1 i add get put panuio i panui IM1 i add get put pbnuio i pbnui IM1 i add get put prnuio i prnui IM1 i add get put habnuio i habnui IM1 i add get put Anuio i panui IM1 i add get Lani IM1 i add get mul put Bnuio i pbnui IM1 i add get Lani IM1 i add get mul put CABnuio i prnui IM1 i add get Lani IM1 i add get mul put hABnuio i Bnuio i get Anuio i get 0.0001 add atan put } for %i=0,ix, purple colours /ix IM1 1 add def %including 2 purple colours at the end 0 1 ix {/i exch def %i=0,ix, regular data 400...700 downio IMD 1 add i add downi i get put Xnio IMD 1 add i add Xni i get put Ynio IMD 1 add i add Yni i get put Znio IMD 1 add i add Zni i get put xanio IMD 1 add i add xani i get put yanio IMD 1 add i add yani i get put zanio IMD 1 add i add zani i get put Lanio IMD 1 add i add Lani i get put aanio IMD 1 add i add aani i get put banio IMD 1 add i add bani i get put cabnio IMD 1 add i add cabni i get put panio IMD 1 add i add pani i get put pbnio IMD 1 add i add pbni i get put prnio IMD 1 add i add prni i get put habnio IMD 1 add i add habni i get put panuio IMD 1 add i add panui i get put pbnuio IMD 1 add i add pbnui i get put prnuio IMD 1 add i add prnui i get put habnuio IMD 1 add i add habnui i get put Anuio IMD 1 add i add panui i get Lani i get mul put Bnuio IMD 1 add i add pbnui i get Lani i get mul put CABnuio IMD 1 add i add prnui i get Lani i get mul put hABnuio IMD 1 add i add Bnuio IMD 1 add i add get Anuio IMD 1 add i add get 0.0001 add atan put } for %i=0,ix, regular data 400...700 %special if habnio or habnuio 0 get <100 instead of >360 habnio 0 get 100 le {habnio 0 habnio 0 get 360 add put} if habnuio 0 get 100 le {habnuio 0 habnuio 0 get 360 add put} if hABnuio 0 get 100 le {hABnuio 0 hABnuio 0 get 360 add put} if habnio 1 get 100 le {habnio 1 habnio 1 get 360 add put} if habnuio 1 get 100 le {habnuio 1 habnuio 1 get 360 add put} if hABnuio 1 get 100 le {hABnuio 1 hABnuio 1 get 360 add put} if /ix IM def %special if habnio ix-1 get >300 instead of -00x habnio ix 2 sub get 300 ge {habnio ix 2 sub habnio ix 2 sub get 360 sub put} if habnio ix 1 sub get 300 ge {habnio ix 1 sub habnio ix 1 sub get 360 sub put} if habnio ix get 300 ge {habnio ix habnio ix get 360 sub put} if %special if habnuio ix get >300 instead of -00x habnuio ix 2 sub get 300 ge {habnuio ix 2 sub habnuio ix 2 sub get 360 sub put} if habnuio ix 1 sub get 300 ge {habnuio ix 1 sub habnuio ix 1 sub get 360 sub put} if habnuio ix get 300 ge {habnuio ix habnuio ix get 360 sub put} if hABnuio ix 2 sub get 300 ge {hABnuio ix 2 sub hABnuio ix 2 sub get 360 sub put} if hABnuio ix 1 sub get 300 ge {hABnuio ix 1 sub hABnuio ix 1 sub get 360 sub put} if hABnuio ix get 300 ge {hABnuio ix hABnuio ix get 360 sub put} if %***************************************************************** xchartl 0 eq {%xchartl=0 %STOP0 } if %xchartl=0 %**************************************************************************** xchartl 1 eq {%xchartl=1 %STOP1 } if %xchartl=1 %**************************************************************************** xchartl 2 eq xchartl 6 eq or {%xchartl=2 or 6, %a5=(AX1x+AX2+AX3z)/y, b5=(BX1x+BX2+BX3z)/y %STOP2 /ix0 0030 def /iy0 3200 def /ixd 0500 def /iyd 0160 def /yhoe 8300 def 0 setgray ix0 yhoe 150 sub moveto TBL name show TBL (\255Normfarbwerte) showde ( tristimulus values) showea (, Buntwerte und Farbarten ) showde (, chromatic values, and putities ) showea TBL (\050) show bashow TBL (=) show na0show (, ) show bbshow TBL (=) show nb0show (\051.) show /ixM 0100 def /iyM 7350 def /ixdM 580 def /iydM 170 def %table rectangle 15 setlinewidth ixM 50 sub iyM 550 add moveto 5300 0 rlineto 0 -7450 rlineto -5300 0 rlineto closepath stroke ixM 50 sub iyM iydM 0.77 mul add moveto 5300 0 rlineto stroke 20 setlinewidth % 0 1 2 3 4 5 6 7 8 9 10 /xposj [100 0750 1200 1750 2250 2700 3150 3650 4125 4550 5050 ] def /textposj [( l) (X) (Y) (Z) (x) (y) (z) (A) (B) (C) (h) ] def /textpoij [( n) ( ) ( ) ( ) ( ) ( ) ( ) (nu) (nu) (ABnu)(ABnu)] def /xpos1 ixM ixdM 01 mul add def /xpos2 ixM ixdM 06 mul add def /xpos3 ixM ixdM 10 mul add def xposj 1 get 30 sub iyM 550 add moveto 0 -7450 rlineto stroke xposj 7 get 30 sub iyM 550 add moveto 0 -7450 rlineto stroke ix0 yhoe 320 sub moveto TL (Normierte ) showde (Normalized ) showea TIL (Ostwald (O)) show TL (\255Farbwerte ) showde ( tristimulus values ) showea TL (\050) show TIL (Y) show ishowLw TL (=) show Yu 0.5 add cvishow (\051) show (, geordnet nach ) showde (, odered by ) showea xchartl 2 eq {(wavelength.) showea (Wellenl\344nge.) showde} if xchartl 6 eq {(hue angle.) showea (Bunttonwinkel.) showde} if TBIL xposj 0 get iyM iydM 2.20 mul add moveto (no. O C) showea xposj 1 get iyM iydM 2.20 mul add moveto TBL (tristimulus values and chromaticities) showea (Normfarbwerte und \255anteile) showde xposj 7 get iyM iydM 2.20 mul add moveto TBIL (nu) show TBL (\255chromatic values) showea (\255Buntwerte) showde /ix IM def 0 1 10 {/j exch def %j=0,10 xposj j get j 01 eq {000 add} if %Xi j 02 eq {000 add} if %Yi j 03 eq {000 add} if %Zi j 04 eq {000 add} if %xi j 05 eq {050 sub} if %yi j 06 eq {000 add} if %zi j 07 eq {000 add} if %Anui j 08 eq {000 add} if %Bnui j 09 eq {000 sub} if %CABnui j 10 eq {100 sub} if %hABnui iyM iydM 1.20 mul add moveto j 0 eq {SL}{TBIL} ifelse textposj j get show TBL xposj j get 080 add j 01 eq {000 add} if %Xi j 02 eq {000 add} if %Yi j 03 eq {000 add} if %Zi j 04 eq {000 add} if %xi j 05 eq {050 sub} if %yi j 06 eq {000 add} if %zi j 07 eq {000 add} if %Anui j 08 eq {000 add} if %Bnui j 09 eq {000 sub} if %CABnui j 10 eq {100 sub} if %hABnui iyM iydM 1.20 mul add moveto textpoij j get ibV } for %j=0,9 0 1 10 {/j exch def %j=0,10 /ix IM def 0 1 ix {/i exch def %i=0,ix xchartl 2 eq {%xchartl=2, order according to wavelength xposj j get iyM iydM i mul sub moveto TL j 0 eq {i 9 le {(0) show} if i cvishow ( ) show downi i get cvishow 0 1 5 {/k exch def %k=0,5 i Iconw k get eq {Icotx k get show} if } for %k=0,5 } if j 01 eq {Xni i get cvsshow2x} if j 02 eq {Yni i get cvsshow2x} if j 03 eq {Zni i get cvsshow2x} if j 04 eq {xani i get cvsshow3x} if j 05 eq {yani i get cvsshow3x} if j 06 eq {zani i get cvsshow3x} if j 07 eq {Anui i get dup 0 ge {( ) show} if cvsshow1x} if j 08 eq {Bnui i get dup 0 ge {( ) show} if cvsshow1x} if j 09 eq {CABnui i get dup 0 ge {( ) show} if cvsshow1x} if j 10 eq {hABnui i get dup 100 lt {( ) show} if cvishow} if } if %xchartl=2, order according to wavelength xchartl 6 eq {%xchartl=6, order according to hue angle xposj j get iyM iydM i mul sub moveto TL j 0 eq {i 9 le {(0) show} if i cvishow ( ) show downio i get cvishow 0 1 5 {/k exch def %k=0,5 i Icona k get eq {Icotx k get show} if } for %k=0,5 } if j 01 eq {Xnio i get cvsshow2x} if j 02 eq {Ynio i get cvsshow2x} if j 03 eq {Znio i get cvsshow2x} if j 04 eq {xanio i get cvsshow3x} if j 05 eq {yanio i get cvsshow3x} if j 06 eq {zanio i get cvsshow3x} if j 07 eq {Anuio i get dup 0 ge {( ) show} if cvsshow1x} if j 08 eq {Bnuio i get dup 0 ge {( ) show} if cvsshow1x} if j 09 eq {CABnuio i get dup 0 ge {( ) show} if cvsshow1x} if j 10 eq {hABnuio i get dup 100 lt {( ) show} if cvishow} if } if %xchartl=6, order according to hue angle } for %i=0,ix } for %j=0,10 /i IM 1.3 add def TBL 0 1 10 {/j exch def %j=0,10 xposj j get iyM iydM i mul sub moveto j 00 eq {(U=D50) show} if j 01 eq {Xu cvsshow2x} if j 02 eq {Yu cvsshow2x} if j 03 eq {Zu cvsshow2x} if j 04 eq {XANu cvsshow3x} if j 05 eq {YANu cvsshow3x} if j 06 eq {YANu cvsshow3x} if j 07 eq {150 0 rmoveto Anu cvsshow1x} if j 08 eq {150 0 rmoveto Bnu cvsshow1x} if j 09 eq {150 0 rmoveto CABnu cvsshow1x} if j 10 eq {150 0 rmoveto hABnu cvishow} if } for %j=0,10 pchartl 3 eq {%pchartl=3 proc_formel_old }%pchartl=3 {%pchartl#3 proc_formel_new } ifelse %pchartl=3,#3 } if %xchartl=2 or 6, %(a5,b5) %**************************************************************************** xchartl 3 eq xchartl 7 eq or {%xchartl=3 %a5=(AX1x+AX2+AX3z)/y, b5=(BX1x+BX2+BX3z)/y %STOP3 /ix0 0050 def /iy0 3200 def /ixd 0500 def /iyd 0160 def /yhoe 8300 def 0 setgray ix0 yhoe 150 sub moveto TBL name show TBL (\255Normfarbwerte) showde ( tristimulus values) showea (, Buntwerte und Farbarten ) showde (, chromatic values, and putities ) showea TBL (\050) show bashow TBL (=) show na0show (, ) show bbshow TBL (=) show nb0show (\051.) show /ixM 0100 def /iyM 7350 def /ixdM 580 def /iydM 170 def %table rectangle 15 setlinewidth ixM 50 sub iyM 550 add moveto 5300 0 rlineto 0 -7450 rlineto -5300 0 rlineto closepath stroke ixM 50 sub iyM iydM 0.77 mul add moveto 5300 0 rlineto stroke 20 setlinewidth % 0 1 2 3 4 5 6 7 8 9 /xposj [100 0750 1200 1750 2300 2900 3350 3850 4350 4950] def /textposj [( l) (Y) (p) (p) (p) (h) (p) (p) (p) (h) ] def /textpoij [( n) ( ) (an) (bn) (rn) (abn)(anu)(bnu)(rnu)(abnu)] def /xpos1 ixM ixdM 01 mul add def /xpos2 ixM ixdM 06 mul add def /xpos3 ixM ixdM 10 mul add def xposj 1 get 30 sub iyM 550 add moveto 0 -7450 rlineto stroke xposj 6 get 30 sub iyM 550 add moveto 0 -7450 rlineto stroke ix0 yhoe 320 sub moveto TL (Normierte ) showde (Normalized ) showea TIL (Ostwald (O)) show TL (\255Farbwerte ) showde ( tristimulus values ) showea TL (\050) show TIL (Y) show ishowLw TL (=) show Yu 0.5 add cvishow (\051) show (, geordnet nach ) showde (, odered by ) showea xchartl 3 eq {(wavelength.) showea (Wellenl\344nge.) showde} if xchartl 7 eq {(hue angle.) showea (Bunttonwinkel.) showde} if TBIL xposj 0 get iyM iydM 2.20 mul add moveto (no. O C) showea xposj 2 get iyM iydM 2.20 mul add moveto TBIL (n) show TBL (\255purities) showea (\255Farbart) showde xposj 6 get iyM iydM 2.20 mul add moveto TBIL (nu) show TBL (\255purities) showea (\255Farbart) showde /ix IM def 0 1 9 {/j exch def %j=0,9 xposj j get j 2 eq {000 add} if %pani j 3 eq {000 add} if %pbni j 4 eq {000 add} if %prni j 5 eq {050 sub} if %habni j 6 eq {000 add} if %panui j 7 eq {000 add} if %pbnui j 8 eq {000 add} if %prnui j 9 eq {100 sub} if %habnui iyM iydM 1.20 mul add moveto j 0 eq {SL}{TBIL} ifelse textposj j get show TBL xposj j get 080 add j 2 eq {000 add} if %pani j 3 eq {000 add} if %pbni j 4 eq {000 add} if %prni j 5 eq {050 sub} if %habni j 6 eq {000 add} if %panui j 7 eq {000 add} if %pbnui j 8 eq {000 add} if %prnui j 9 eq {100 sub} if %habnui iyM iydM 1.20 mul add moveto textpoij j get ibV } for %j=0,9 0 1 9 {/j exch def %j=0,9 /ix IM def 0 1 ix {/i exch def %i=0,ix xchartl 3 eq {%xchartl=3, order according to wavelength xposj j get iyM iydM i mul sub moveto TL j 0 eq {i 9 le {(0) show} if i cvishow ( ) show downi i get cvishow 0 1 5 {/k exch def %k=0,5 i Iconw k get eq {Icotx k get show} if } for %k=0,5 } if j 1 eq {Lani i get cvsshow2x} if j 2 eq {pani i get dup 0 ge {( ) show} if cvsshow2x} if j 3 eq {pbni i get dup 0 ge {( ) show} if cvsshow2x} if j 4 eq {prni i get dup 0 ge {( ) show} if cvsshow2x} if j 5 eq {habni i get dup 100 lt {( ) show} if cvishow} if j 6 eq {panui i get dup 0 ge {( ) show} if cvsshow2x} if j 7 eq {pbnui i get dup 0 ge {( ) show} if cvsshow2x} if j 8 eq {prnui i get dup 0 ge {( ) show} if cvsshow2x} if j 9 eq {habnui i get dup 100 lt {( ) show} if cvishow} if } if %xchartl=2, order according to wavelength xchartl 7 eq {%xchartl=7, order according to hue angle xposj j get iyM iydM i mul sub moveto TL j 0 eq {i 9 le {(0) show} if i cvishow ( ) show downio i get cvishow 0 1 5 {/k exch def %k=0,5 i Icona k get eq {Icotx k get show} if } for %k=0,5 } if j 1 eq {Lanio i get cvsshow2x} if j 2 eq {panio i get dup 0 ge {( ) show} if cvsshow2x} if j 3 eq {pbnio i get dup 0 ge {( ) show} if cvsshow2x} if j 4 eq {prnio i get dup 0 ge {( ) show} if cvsshow2x} if j 5 eq {habnio i get dup 100 lt {( ) show} if cvishow} if j 6 eq {panuio i get dup 0 ge {( ) show} if cvsshow2x} if j 7 eq {pbnuio i get dup 0 ge {( ) show} if cvsshow2x} if j 8 eq {prnuio i get dup 0 ge {( ) show} if cvsshow2x} if j 9 eq {habnuio i get dup 100 lt {( ) show} if cvishow} if } if %xchartl=6, order according to hue angle } for %i=0,ix } for %j=0,9 /i IM 1.3 add def TBL 0 1 9 {/j exch def %j=0,9 xposj j get iyM iydM i mul sub moveto j 0 eq {(U=D50) show} if j 1 eq {Lu cvsshow2x} if j 2 eq {100 0 rmoveto pau cvsshow3x} if j 3 eq {100 0 rmoveto pbu cvsshow3x} if j 4 eq {100 0 rmoveto pru cvsshow3x} if j 5 eq {100 0 rmoveto habu cvishow} if j 06 eq {150 0 rmoveto panu cvsshow1x} if j 07 eq {150 0 rmoveto pbnu cvsshow1x} if j 08 eq {150 0 rmoveto prnu cvsshow1x} if j 09 eq {150 0 rmoveto habnu cvishow} if } for %j=0,9 pchartl 3 eq {%pchartl=3 proc_formel_old }%pchartl=3 {%pchartl#3 proc_formel_new } ifelse %pchartl=3,#3 } if %xchartl=3 or 7 %(a5,b5) %**************************************************************************** xchartl 4 eq {%xchartl=3 %a5=(AX1x+AX2+AX3z)/y, b5=(BX1x+BX2+BX3z)/y %STOP4 } if %xchartl=4 %(a5,b5) %**************************************************************************** xchartl 5 eq {%xchartl=3 %a5=(AX1x+AX2+AX3z)/y, b5=(BX1x+BX2+BX3z)/y %STOP5 } if %xchartl=5 %(a5,b5) %**************************************************************************** %xchartl 6 eq {%xchartl=6 %a5=(AX1x+AX2+AX3z)/y, b5=(BX1x+BX2+BX3z)/y %STOP6 %} if %xchartl=6 %(a5,b5) %**************************************************************************** %xchartl 7 eq {%xchartl=7 %a5=(AX1x+AX2+AX3z)/y, b5=(BX1x+BX2+BX3z)/y %STOP7 %} if %xchartl=7 %(a5,b5) %***************************************************************** xchartl 0 eq { 100 neg 13000 neg translate} if xchartl 1 eq { 6100 neg 13000 neg translate} if xchartl 2 eq { 100 neg 08750 neg translate} if xchartl 3 eq { 6100 neg 08750 neg translate} if xchartl 4 eq { 100 neg 4500 neg translate} if xchartl 5 eq { 6100 neg 4500 neg translate} if xchartl 6 eq { 100 neg 0250 neg translate} if xchartl 7 eq { 6100 neg 0250 neg translate} if } for %xchartl=0,7 showpage grestore %} for %xcolorl=0,5 %} for %pchartl=0,4 %} for %output with langind end %%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 DG690-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 (DG690-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 08 MM sub 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 DG691-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 (DG691-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 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 DG691-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 (DG691-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 08 MM sub 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 DG691-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 (DG691-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 DG691-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 (DG691-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 08 MM sub 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 DG691-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 (DG691-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 DG691-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 (DG691-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 08 MM sub 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 http://farbe.li.tu-berlin.de/DG69/DG691-7N 20180801 %%BoundingBox: 70 82 405 580 %START PDFDE011.EPS /pdfmark17 where {pop} {userdict /pdfmark17 /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: farbe.li.tu-berlin.de/DG69/DG69.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2018080112000) /ModDate (D:20180801112000) /DOCINFO pdfmark17 [ /View [ /Fit ] /DOCVIEW pdfmark17 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % 40mm = 80*72/25.4 = 232; 232+90+13 = 335 % !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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /TV {120 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIV {120 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBV {120 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIV {120 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /SV {120 /Symbol FS} bind def /SL {160 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SG {350 /Symbol FS} bind def /RV {120 /Times-Roman FS} bind def /RL {160 /Times-Roman FS} bind def /RS {200 /Times-Roman FS} bind def /RK {240 /Times-Roman FS} bind def /RM {280 /Times-Roman FS} bind def /RG {350 /Times-Roman FS} bind def /RIV {120 /Times-Italic FS} bind def /RIL {160 /Times-Italic FS} bind def /RIS {200 /Times-Italic FS} bind def /RIK {240 /Times-Italic FS} bind def /RIM {280 /Times-Italic FS} bind def /RIG {350 /Times-Italic FS} bind def /RBV {120 /Times-Bold FS} bind def /RBL {160 /Times-Bold FS} bind def /RBS {200 /Times-Bold FS} bind def /RBK {240 /Times-Bold FS} bind def /RBM {280 /Times-Bold FS} bind def /RBG {350 /Times-Bold FS} bind def /RBIV {120 /Times-BoldItalic FS} bind def /RBIL {160 /Times-BoldItalic FS} bind def /RBIS {200 /Times-BoldItalic FS} bind def /RBIK {240 /Times-BoldItalic FS} bind def /RBIM {280 /Times-BoldItalic FS} bind def /RBIG {350 /Times-BoldItalic FS} bind def /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y k {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmykcolor rec stroke} bind def /tfo {1 0 0 setrgbcolor} bind def /tfl {0 1 0 setrgbcolor} bind def /tfv {0 0 1 setrgbcolor} bind def /tfc {0 1 1 setrgbcolor} bind def /tfm {1 0 1 setrgbcolor} bind def /tfy {1 1 0 setrgbcolor} bind def /tfn {0 0 0 setrgbcolor} bind def /tfw {1 1 1 setrgbcolor} bind def /tfu {0.5 0.5 0.5 setrgbcolor} bind def /cvishow {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def /isV {TV 0 -50 rmoveto show 0 50 rmoveto TL} bind def /esV {TV 0 50 rmoveto show 0 -50 rmoveto TL} bind def /ibV {TBV 0 -50 rmoveto show 0 50 rmoveto TL} bind def /ebV {TBV 0 50 rmoveto show 0 -50 rmoveto TL} bind def /ipV {TV 24 24 rmoveto (\267) show 24 -24 rmoveto TL} bind def /iyV {SV FS 0 -50 rmoveto show 0 50 rmoveto TL} bind def /ns {350 /Times-ISOL1 FS show} bind def /ks {350 /TimesI-ISOL1 FS show} bind def /bs {350 /TimesB-ISOL1 FS show} bind def /js {350 /TimesBI-ISOL1 FS show} bind def /sy {350 /Symbol FS show} bind def /is {280 /Times-ISOL1 FS 0 -90 rmoveto show 0 90 rmoveto} bind def /es {280 /Times-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto} bind def /ib {280 /TimesB-ISOL1 FS 0 -90 rmoveto show 0 90 rmoveto} bind def /eb {280 /TimesB-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto} bind def /ip {280 /Times-ISOL1 FS 50 50 rmoveto (\267) show 50 -50 rmoveto} bind def %20% kleiner /ns2 {280 /Times-ISOL1 FS show TM} bind def /ks2 {280 /TimesI-ISOL1 FS show TM} bind def /bs2 {280 /TimesB-ISOL1 FS show TM} bind def /js2 {280 /TimesBI-ISOL1 FS show TM} bind def /sy2 {280 /Symbol FS show TM} bind def /is2 {240 /Times-ISOL1 FS 0 -70 rmoveto show 0 70 rmoveto TM} bind def /es2 {240 /Times-ISOL1 FS 0 160 rmoveto show 0 -160 rmoveto TM} bind def /ib2 {240 /TimesB-ISOL1 FS 0 -70 rmoveto show 0 70 rmoveto TM} bind def /eb2 {240 /TimesB-ISOL1 FS 0 160 rmoveto show 0 -160 rmoveto TM} bind def /ip2 {240 /Times-ISOL1 FS 40 40 rmoveto (\267) show 40 -40 rmoveto TM} bind def /iy2 {240 /Symbol FS 0 -70 rmoveto show 0 70 rmoveto TM} bind def %40% kleiner /ns4 {240 /Times-ISOL1 FS show TK} bind def /ks4 {240 /TimesI-ISOL1 FS show TK} bind def /bs4 {240 /TimesB-ISOL1 FS show TK} bind def /js4 {240 /TimesBI-ISOL1 FS show TK} bind def /ss4 {240 /Symbol FS show TK} bind def /is4 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /es4 {200 /Times-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ib4 {200 /TimesB-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /eb4 {200 /TimesB-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ip4 {200 /Times-ISOL1 FS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def /iy4 {200 /Symbol FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def %60% kleiner /ns6 {200 /Times-ISOL1 FS show TS} bind def /ks6 {200 /TimesI-ISOL1 FS show TS} bind def /bs6 {200 /TimesB-ISOL1 FS show TS} bind def /js6 {200 /TimesBI-ISOL1 FS show TS} bind def /ss6 {200 /Symbol FS show TS} bind def /is6 {160 /Times-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /es6 {160 /Times-ISOL1 FS 0 110 rmoveto show 0 -110 rmoveto TS} bind def /ib6 {160 /TimesB-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /eb6 {160 /TimesB-ISOL1 FS 0 110 rmoveto show 0 -110 rmoveto TS} bind def /ip6 {160 /Times-ISOL1 FS 24 24 rmoveto (\267) show 24 -24 rmoveto TS} bind def /iy6 {160 /Symbol FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def %80% kleiner /ns8 {160 /Times-ISOL1 FS show TS} bind def /ks8 {160 /TimesI-ISOL1 FS show TS} bind def /bs8 {160 /TimesB-ISOL1 FS show TS} bind def /js8 {160 /TimesBI-ISOL1 FS show TS} bind def /ss8 {160 /Symbol FS show TS} bind def /is8 {120 /Times-ISOL1 FS 0 -40 rmoveto show 0 40 rmoveto TS} bind def /es8 {120 /Times-ISOL1 FS 0 90 rmoveto show 0 -90 rmoveto TS} bind def /ib8 {120 /TimesB-ISOL1 FS 0 -40 rmoveto show 0 40 rmoveto TS} bind def /eb8 {120 /TimesB-ISOL1 FS 0 90 rmoveto show 0 -90 rmoveto TS} bind def /ip8 {120 /Times-ISOL1 FS 24 24 rmoveto (\267) show 24 -24 rmoveto TS} bind def /iy8 {120 /Symbol FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /cvicvs {cvi 6 string cvs} def /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show ( ) show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show ( ) show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show ( ) show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show ( ) show} def /cvsshow5 {100000 mul cvi 0.00001 mul 9 string cvs show ( ) show} def /cvsshow1x {/nxx exch def %example nxx=99.1/99.0 nxx 0 lt {(-) show /nxx nxx abs def} {iplus 1 eq {(+) show} if} ifelse nxx 10 mul cvi /nxi exch def %nxi=991/990 nxi 10 idiv /nxa exch def %nxa=99 nxi nxa 10 mul sub /nxb exch def %nxb=1/0 nxa cvishow (,) show %nxa=99 nxb cvishow %nxb=1/0 } def /cvsshow2x {/nxx exch def %example nxx=99.12/99,02/99,00 nxx 0 lt {(-) show /nxx nxx abs def} {iplus 1 eq {(+) show} if} ifelse nxx 100 mul cvi /nxi exch def %nxi=9912/9902/00 nxi 100 idiv /nxa exch def %nxa=99 nxi nxa 100 mul sub /nxb exch def %nxb=12/02/00 nxa cvishow (,) show %nxb=99, nxb 10 ge {nxb cvishow} if %nxb=12 nxb 1 ge nxb 9 le and {(0) show nxb cvishow} if %nxb=02 nxb 0 eq {(00) show} if %nxb=00 } def /cvsshow3x {/nxx exch def %example nxx=99.123/99.012/99.001/99.000 nxx 0 lt {(-) show /nxx nxx abs def} {iplus 1 eq {(+) show} if} ifelse nxx 1000 mul cvi /nxi exch def %nxi=99123/99012/99001/99000 nxi 1000 idiv /nxa exch def %nxa=99 nxi nxa 1000 mul sub /nxb exch def %nxb=123/012/001/000 nxa cvishow (,) show %nxb=99, nxb 100 ge {nxb cvishow} if %nxb=123/012/001/000 nxb 10 ge nxb 99 le and {(0) show nxb cvishow} if %nxb=012 nxb 1 ge nxb 9 le and {(00) show nxb cvishow} if %nxb=001 nxb 0 eq {(000) show} if %nxb=000 } def /cvsshow4x {/nxx exch def %example nxx=99.1234/99.0123/99.0010/99.0001 nxx 0 lt {(-) show /nxx nxx abs def} {iplus 1 eq {(+) show} if} ifelse nxx 10000 mul cvi /nxi exch def %nxi=991234/990123/990010/990000 nxi 10000 idiv /nxa exch def %nxa=99 nxi nxa 10000 mul sub /nxb exch def %nxb=1234/0123/0010/0001 nxa cvishow (,) show %nxb=99, nxb 1000 ge {nxb cvishow} if %nxb=1234/0123/0010/0001 nxb 100 ge nxb 999 le and {(0) show nxb cvishow} if %nxb=012 nxb 10 ge nxb 99 le and {(00) show nxb cvishow} if %nxb=012 nxb 1 ge nxb 9 le and {(000) show nxb cvishow} if %nxb=001 nxb 0 eq {(000) show} if %nxb=000 } def %****************************************************************** /ishowG1 {0 -80 rmoveto TM (1) show 0 80 rmoveto} bind def /ishowG2 {0 -80 rmoveto TM (2) show 0 80 rmoveto} bind def /ishowGu {0 -80 rmoveto TM (u) show 0 80 rmoveto} bind def /ishowGw {0 -80 rmoveto TM (w) show 0 80 rmoveto} bind def /ishowM1 {0 -70 rmoveto TK (1) show 0 70 rmoveto} bind def /ishowM2 {0 -70 rmoveto TK (2) show 0 70 rmoveto} bind def /ishowMu {0 -70 rmoveto TK (u) show 0 70 rmoveto} bind def /ishowMw {0 -70 rmoveto TK (w) show 0 70 rmoveto} bind def /ishowK1 {0 -60 rmoveto TS (1) show 0 60 rmoveto} bind def /ishowK2 {0 -60 rmoveto TS (2) show 0 60 rmoveto} bind def /ishowKu {0 -60 rmoveto TS (u) show 0 60 rmoveto} bind def /ishowKw {0 -60 rmoveto TS (w) show 0 60 rmoveto} bind def /ishowS1 {0 -50 rmoveto TL (1) show 0 50 rmoveto} bind def /ishowS2 {0 -50 rmoveto TL (2) show 0 50 rmoveto} bind def /ishowSu {0 -50 rmoveto TL (u) show 0 50 rmoveto} bind def /ishowSw {0 -50 rmoveto TL (w) show 0 50 rmoveto} bind def /ishowL1 {0 -40 rmoveto TV (1) show 0 40 rmoveto} bind def /ishowL2 {0 -40 rmoveto TV (2) show 0 40 rmoveto} bind def /ishowLu {0 -40 rmoveto TV (u) show 0 40 rmoveto} bind def /ishowLw {0 -40 rmoveto TV (w) show 0 40 rmoveto} bind def /ishowLi {0 -40 rmoveto TV (i) show 0 40 rmoveto TL} bind def /qshow- {-40 60 rmoveto TL (-) show -00 -60 rmoveto TL} bind def /eshow- {-40 90 rmoveto TL (-) show -00 -90 rmoveto TL} bind def /gshow- {-20 90 rmoveto TL (-) show -00 -90 rmoveto TL} bind def /ishowL01 {0 -40 rmoveto TV (1) show -20 40 rmoveto TL} bind def /ishowL02 {0 -40 rmoveto TV (2) show -20 40 rmoveto TL} bind def /ishowL03 {0 -40 rmoveto TV (3) show -20 40 rmoveto TL} bind def /ishowL11 {0 -40 rmoveto TV (11) show 0 40 rmoveto TL} bind def /ishowL12 {0 -40 rmoveto TV (12) show 0 40 rmoveto TL} bind def /ishowL13 {0 -40 rmoveto TV (13) show 0 40 rmoveto TL} bind def /ishowL21 {0 -40 rmoveto TV (21) show 0 40 rmoveto TL} bind def /ishowL22 {0 -40 rmoveto TV (22) show 0 40 rmoveto TL} bind def /ishowL23 {0 -40 rmoveto TV (23) show 0 40 rmoveto TL} bind def /ishowL31 {0 -40 rmoveto TV (31) show 0 40 rmoveto TL} bind def /ishowL32 {0 -40 rmoveto TV (32) show 0 40 rmoveto TL} bind def /ishowL33 {0 -40 rmoveto TV (33) show 0 40 rmoveto TL} bind def /ishowLu {0 -40 rmoveto TV (u) show 0 40 rmoveto} bind def /ishowLw {0 -40 rmoveto TV (w) show 0 40 rmoveto} bind def /ishowLB {0 -50 rmoveto TV (B) show 0 50 rmoveto} bind def /ishowLG {0 -50 rmoveto TV (G) show 0 50 rmoveto} bind def /ishowLY {0 -50 rmoveto TV (Y) show 0 50 rmoveto} bind def /ishowLR {0 -50 rmoveto TV (R) show 0 50 rmoveto} bind def /iblue {0 0 1 setrgbcolor} bind def /TlamdaL {TL (\050) show SL (l) show TL (\051) show} bind def /KLa {/yu exch def /xu exch def SL xu yu moveto (\346) show xu yu iyd 1 mul sub moveto (\347) show xu yu iyd 2 mul sub moveto (\350) show} bind def /KLz {/yu exch def /xu exch def SL xu yu moveto (\366) show xu yu iyd 1 mul sub moveto (\367) show xu yu iyd 2 mul sub moveto (\370) show} bind def /TE3 {/T3 exch def /T2 exch def /T1 exch def /yu exch def /xu exch def TL xu yu moveto T1 show xu yu iyd 1 mul sub moveto T2 show xu yu iyd 2 mul sub moveto T3 show} bind def /TEk3 {/T3 exch def /T2 exch def /T1 exch def /yu exch def /xu exch def TIL xu yu moveto T1 show xu yu iyd 1 mul sub moveto T2 show xu yu iyd 2 mul sub moveto T3 show} bind def /TEk301 {/T3 exch def /T2 exch def /T1 exch def /yu exch def /xu exch def TIL xu yu moveto T1 show ishowL01 FONT xu yu iyd 1 mul sub moveto T2 show ishowL01 FONT xu yu iyd 2 mul sub moveto T3 show ishowL01 FONT} bind def /TEk30i {/T3 exch def /T2 exch def /T1 exch def /yu exch def /xu exch def TIL xu yu moveto T1 show ishowL01 FONT xu yu iyd 1 mul sub moveto T2 show ishowL02 FONT xu yu iyd 2 mul sub moveto T3 show ishowL03 FONT} bind def /TEk3xlamda {/T3 exch def /T2 exch def /T1 exch def /yu exch def /xu exch def xu yu moveto FONT T1 show ishowL01 FONT TlamdaL xu yu iyd 1 mul sub moveto FONT T2 show ishowL02 FONT TlamdaL xu yu iyd 2 mul sub moveto FONT T3 show ishowL03 FONT TlamdaL} bind def /TEk3lamda {/T3 exch def /T2 exch def /T1 exch def /yu exch def /xu exch def xu yu moveto FONT T1 show TlamdaL xu yu iyd 1 mul sub moveto FONT T2 show TlamdaL xu yu iyd 2 mul sub moveto FONT T3 show TlamdaL} bind def /TEk30ilamda {/T3 exch def /T2 exch def /T1 exch def /yu exch def /xu exch def xu yu moveto FONT T1 show eshow- TlamdaL xu yu iyd 1 mul sub moveto FONT T2 show qshow- TlamdaL xu yu iyd 2 mul sub moveto FONT T3 show eshow- TlamdaL} bind def /TEk31i {/T3 exch def /T2 exch def /T1 exch def /yu exch def /xu exch def xu yu moveto FONT T1 show ishowL11 xu yu iyd 1 mul sub moveto FONT T2 show ishowL12 xu yu iyd 2 mul sub moveto FONT T3 show ishowL13} bind def /TEk32i {/T3 exch def /T2 exch def /T1 exch def /yu exch def /xu exch def TIL xu yu moveto FONT T1 show ishowL21 xu yu iyd 1 mul sub moveto FONT T2 show ishowL22 xu yu iyd 2 mul sub moveto FONT T3 show ishowL23} bind def /TEk33i {/T3 exch def /T2 exch def /T1 exch def /yu exch def /xu exch def TIL xu yu moveto FONT T1 show ishowL31 xu yu iyd 1 mul sub moveto FONT T2 show ishowL32 xu yu iyd 2 mul sub moveto FONT T3 show ishowL33} bind def %************************************************** /TEk3i1 {/T3 exch def /T2 exch def /T1 exch def /yu exch def /xu exch def xu yu moveto FONT T1 show ishowL11 xu yu iyd 1 mul sub moveto FONT T2 show ishowL21 xu yu iyd 2 mul sub moveto FONT T3 show ishowL31} bind def /TEk3i2 {/T3 exch def /T2 exch def /T1 exch def /yu exch def /xu exch def xu yu moveto FONT T1 show ishowL12 xu yu iyd 1 mul sub moveto FONT T2 show ishowL22 xu yu iyd 2 mul sub moveto FONT T3 show ishowL32} bind def /TEk3i3 {/T3 exch def /T2 exch def /T1 exch def /yu exch def /xu exch def xu yu moveto FONT T1 show ishowL13 xu yu iyd 1 mul sub moveto FONT T2 show ishowL23 xu yu iyd 2 mul sub moveto FONT T3 show ishowL33} bind def %********************************* /A11 0.9093 def /A12 0.3338 def /A13 -0.0133 def /A21 1.0000 def /A22 0.0000 def /A23 0.0000 def /A31 0.4494 def /A32 -0.0574 def /A33 -0.4136 def %********************************* /B11 0.0000 def /B12 1.0000 def /B13 0.0000 def /B21 2.9797 def /B22 -2.6662 def /B23 -0.0960 def /B31 -0.4139 def /B32 1.4571 def /B33 -2.4046 def %********************************* /AL11 A11 def /AL12 A12 def /AL13 A13 def /AL21 A21 def /AL22 A22 def /AL23 A23 def /AL31 A11 A21 add A31 add def /AL32 A12 A22 add A32 add def /AL33 A13 A23 add A33 add def %********************************* /BE11 B11 B13 sub def /BE12 B12 B13 sub def /BE13 B13 def /BE21 B21 B23 sub def /BE22 B22 B23 sub def /BE23 B23 def /BE31 B31 B33 sub def /BE32 B32 B33 sub def /BE33 B33 def %********************************* /DOW 82 array def /DOWZ 17 array def /F02Z 51 array def /F10Z 51 array def /DOWZ %17 data [700 -495 -500 -505 -510 -515 -520 -525 -530 -535 -540 -545 -550 -555 -560 -565 400] def /F02Z %3x17 data 700 ... 400 [.01136 .01141 .01158 .01169 .01176 .01182 .01187 .01191 .01195 .01199 .01204 .01210 .01219 .01232 .01254 .01300 .01431 .00410 .00404 .00383 .00369 .00359 .00352 .00346 .00342 .00337 .00331 .00325 .00317 .00306 .00289 .00262 .00205 .00040 .00000 .00118 .00507 .00754 .00930 .01064 .01167 .01256 .01346 .01445 .01562 .01709 .01910 .02210 .02718 .03765 .06785] def /F10Z %3x17 data 700 ... 400 [.00958 .01015 .01037 .01053 .01065 .01075 .01085 .01096 .01108 .01122 .01139 .01163 .01201 .01268 .01416 .02078 .01911 .00372 .00361 .00357 .00355 .00352 .00351 .00349 .00347 .00345 .00342 .00339 .00335 .00328 .00316 .00289 .00170 .00200 .00000 .00517 .00718 .00858 .00972 .01063 .01150 .01245 .01354 .01478 .01635 .01856 .02194 .02795 .04136 .10106 .08601] def /aushow {TIL (a) show (u) isV} bind def /bushow {TIL (b) show (u) isV} bind def /anshow {TIL (a) show (n) isV} bind def /bnshow {TIL (b) show (n) isV} bind def /nashow {TIL (n) show (a) isV} bind def /nbshow {TIL (n) show (b) isV} bind def /bashow {TBIL (n) show (a) ibV} bind def /bbshow {TBIL (n) show (b) ibV} bind def /paushow {TIL (p) show (au) isV} bind def /pbushow {TIL (p) show (bu) isV} bind def /prushow {TIL (p) show (ru) isV} bind def /panshow {TIL (p) show (an) isV} bind def /pbnshow {TIL (p) show (bn) isV} bind def /prnshow {TIL (p) show (rn) isV} bind def /panushow {TIL (p) show (anu) isV} bind def /pbnushow {TIL (p) show (bnu) isV} bind def /prnushow {TIL (p) show (rnu) isV} bind def /paubshow {TBIL (p) show (au) ibV} bind def /pbubshow {TBIL (p) show (bu) ibV} bind def /prubshow {TBIL (p) show (ru) ibV} bind def /panbshow {TBIL (p) show (an) ibV} bind def /pbnbshow {TBIL (p) show (bn) ibV} bind def /prnbshow {TBIL (p) show (rn) ibV} bind def /panubshow {TBIL (p) show (anu) ibV} bind def /pbnubshow {TBIL (p) show (bnu) ibV} bind def /prnubshow {TBIL (p) show (rnu) ibV} bind def /Anubshow {TBIL (A) show (nu) ibV} bind def /Bnubshow {TBIL (B) show (nu) ibV} bind def /CABnubshow {TBIL (C) show (ABnu) ibV} bind def %Icotx [(B) (C) (G) (Y) (R) (M)] def /Iconr [0 0 0 1 1 1 ] def /Icong [0 1 1 1 0 0 ] def /Iconb [1 1 0 0 0 1 ] def %CE700-7R_13_01_13_03_14_02.TXT 180814 with xchart15=1 %1-000030-L0 CE700-7R %Ostwald colours (o) of maximum (m) CAB for D50, Yw=100, Ym=520_770, CIE02 %O5002xyzq tristimulus values, nominal wavelengths ldn and lcn, D50, CIE02 /O5002xyzq 800 array def /O5002xyzq [%BEG OS5002xyzq %ld ldn X Y Z x y z Code lc lcn l1 l2 no. (561c) 396 31.24 12.19 76.70 0.260 0.101 0.638 %29 (561) 561 619 490 #37 (463) 463 13.25 06.34 78.11 0.135 0.064 0.799 %30 (568) 568 495c 495 #00 (466) 466 13.27 08.01 79.21 0.132 0.079 0.788 %31 (569) 569 500c 500 #01 (471) 471 13.39 12.66 80.68 0.125 0.118 0.755 %32 (571) 571 510c 510 #02 (475) 475 14.00 19.22 81.44 0.122 0.167 0.710 %33 (573) 573 520c 520 #03 Bm (479) 479 15.61 27.50 81.85 0.124 0.220 0.654 %34 (577) 577 530c 530 #04 (481) 481 18.42 36.66 82.05 0.134 0.267 0.598 %35 (581) 581 540c 540 #05 (483) 483 20.35 41.45 82.11 0.141 0.288 0.570 %36 (583) 583 545c 545 #06 (484) 484 22.64 46.29 82.14 0.149 0.306 0.543 %37 (585) 585 550c 550 #07 %(484) 484 22.64 46.29 82.14 0.149 0.306 0.543 %38 (585) 585 554c 555 # (485) 485 25.29 51.06 82.16 0.159 0.322 0.518 %39 (587) 587 559c 560 #08 (486) 486 29.62 57.81 81.63 0.175 0.341 0.482 %00 (592) 592 405 564 #09 Cm (490) 490 26.32 58.17 63.51 0.177 0.393 0.429 %01 (631) 631 435 565 #10 (497) 497 23.01 58.66 42.48 0.185 0.472 0.342 %02 (497c) 702 450 566 #11 (501) 501 22.62 59.57 35.19 0.192 0.507 0.299 %03 (501c) 706 460 567 #12 (506) 506 22.26 60.29 28.28 0.200 0.543 0.255 %04 (506c) 711 465 568 #13 (519) 519 21.83 61.02 17.06 0.218 0.610 0.170 %05 (519c) 724 470 570 #14 (522) 522 24.04 63.42 17.06 0.230 0.606 0.163 %06 (522c) 727 475 573 #15 Gm (535) 535 27.22 66.19 09.71 0.263 0.641 0.094 %07 (535c) 740 480 578 #16 (544) 544 35.20 72.16 07.33 0.306 0.629 0.063 %08 (544c) 749 485 587 #17 (561) 561 65.07 87.80 05.54 0.410 0.554 0.034 %09 (561c) 766 490 619 #18 (568) 568 83.05 93.65 04.13 0.459 0.517 0.022 %10 (463) 463 495 495c #19 (569) 569 83.03 91.98 03.02 0.466 0.516 0.017 %11 (466) 466 500 500c #20 (571) 571 82.92 87.33 01.55 0.482 0.508 0.009 %12 (471) 471 510 510c #21 (573) 573 82.30 80.77 00.80 0.502 0.492 0.004 %13 (475) 475 520 520c #22 Ym (577) 577 80.69 72.49 00.38 0.525 0.472 0.002 %14 (479) 479 530 530c #23 (581) 581 77.88 63.33 00.18 0.550 0.447 0.001 %15 (481) 481 540 540c #24 (583) 583 75.96 58.54 00.13 0.564 0.434 0.000 %16 (483) 483 545 545c #25 (585) 585 73.67 53.70 00.09 0.577 0.421 0.000 %17 (484) 484 550 550c #26 %(585) 585 73.67 53.70 00.09 0.577 0.421 0.000 %18 (484) 484 555 554c # (587) 587 71.02 48.93 00.07 0.591 0.407 0.000 %19 (485) 485 560 559c #27 (592) 592 66.69 42.18 00.61 0.609 0.385 0.005 %20 (486) 486 564 405 #28 Rm (631) 631 69.99 41.82 18.72 0.536 0.320 0.143 %21 (490) 490 565 435 #29 (497c) 702 73.30 41.33 39.75 0.474 0.267 0.257 %22 (497) 497 566 450 #30 (501c) 706 73.69 40.42 47.04 0.457 0.250 0.291 %23 (501) 501 567 460 #31 (506c) 711 74.05 39.70 53.95 0.441 0.236 0.321 %24 (506) 506 568 465 #32 (519c) 724 74.48 38.97 65.18 0.416 0.218 0.364 %25 (519) 519 570 470 #33 (522c) 727 72.27 36.57 65.17 0.415 0.210 0.374 %26 (522) 522 573 475 #34 Mm (535c) 740 69.09 33.80 72.53 0.393 0.192 0.413 %27 (535) 535 578 480 #35 (544c) 749 61.10 27.83 74.91 0.372 0.169 0.457 %28 (544) 544 587 485 #36 (561c) 766 31.24 12.19 76.70 0.260 0.101 0.638 %29 (561) 561 619 490 #37 (463) 463 13.25 06.34 78.11 0.135 0.064 0.799 %30 (568) 568 495c 495 #38 %380...780 96.31 99.99 82.24 0.345 0.358 0.295 % D50, CIE02 # ] def %END O5002xyzq /XuO5002 96.31 def /YuO5002 99.99 def /ZuO5002 82.24 def /IMO5002 39 def /I1O5002 30 def /I2O5002 37 def /Icotx [(B) (C) (G) (Y) (R) (M)] def /Iconw [04 10 16 23 29 35] def /Icona [12 18 24 31 37 05] def %1-001030-L0 CE700-7R %Ostwald colours (o) of maximum (m) CAB,10 for D50, Yw,10=100, Ym=520_770, CIE10 %O5010xyzq tristimulus values, nominal wavelengths ldn and lcn, D50, CIE10 /O5010xyzq 800 array def /O5010xyzq [%BEG OS_D50_CIE10xyzq %ld ldn X Y Z x y z Code lc lcn l1 l2 no. (541c) 376 55.24 26.06 71.09 0.362 0.171 0.466 %27 (541) 541 590 480 #37 (458) 458 13.22 07.40 75.88 0.137 0.076 0.786 %28 (563) 563 485c 485 #00 (460) 460 13.26 08.90 77.34 0.133 0.089 0.777 %29 (564) 564 490c 490 #01 (462) 462 13.28 10.68 78.42 0.129 0.104 0.765 %30 (565) 565 495c 495 #02 (462) 462 13.28 10.68 78.42 0.129 0.104 0.765 %31 (565) 565 499c 500 #03 (468) 468 13.66 17.92 80.20 0.122 0.160 0.717 %32 (568) 568 510c 510 #04 (471) 471 14.70 24.41 80.73 0.122 0.203 0.673 %33 (571) 571 520c 520 #05 (473) 473 15.60 28.17 80.89 0.125 0.226 0.648 %34 (573) 573 529c 530 #06 (475) 475 18.32 36.37 81.08 0.134 0.267 0.597 %35 (577) 577 539c 540 #07 (477) 477 22.35 45.10 81.16 0.150 0.303 0.546 %36 (581) 581 545c 545 #08 (477) 477 22.35 45.10 81.16 0.150 0.303 0.546 %37 (581) 581 549c 550 #09 (479) 479 27.82 53.94 81.17 0.170 0.331 0.498 %38 (587) 587 555c 555 #10 (480) 480 30.64 58.21 79.20 0.182 0.346 0.471 %39 (591) 591 411 560 #11 %(479) 479 29.03 55.95 80.23 0.175 0.338 0.485 %00 (589) 589 405 559 # (484) 484 25.67 56.42 59.80 0.180 0.397 0.421 %01 (692) 692 435 560 #12 (492) 492 22.50 56.65 38.03 0.192 0.483 0.324 %02 (492c) 697 450 562 #13 (503) 503 21.56 57.40 24.28 0.208 0.555 0.235 %03 (503c) 708 460 564 #14 (512) 512 22.19 58.45 18.53 0.223 0.589 0.186 %04 (512c) 717 465 566 #15 (521) 521 24.28 60.61 13.79 0.246 0.614 0.139 %05 (521c) 726 470 570 #16 (531) 531 29.00 64.47 10.07 0.280 0.622 0.097 %06 (531c) 736 475 576 #17 (541) 541 41.39 73.93 10.07 0.330 0.589 0.080 %07 (541c) 746 480 590 #18 (563) 563 83.41 92.59 05.28 0.460 0.510 0.029 %08 (458) 458 485 485c #19 (564) 564 83.37 91.09 03.82 0.467 0.510 0.021 %09 (460) 460 490 490c #20 (565) 565 83.35 89.31 02.74 0.475 0.509 0.015 %10 (462) 462 495 495c #21 (565) 565 83.35 89.31 02.74 0.475 0.509 0.015 %11 (462) 462 500 499c #22 (568) 568 82.96 82.07 00.96 0.499 0.494 0.005 %12 (468) 468 510 510c #23 (571) 571 81.93 75.58 00.44 0.518 0.478 0.002 %13 (471) 471 520 520c #24 (573) 573 81.03 71.82 00.27 0.529 0.469 0.001 %14 (473) 473 530 529c #25 (577) 577 78.31 63.62 00.08 0.551 0.447 0.000 %15 (475) 475 540 539c #26 (581) 581 74.28 54.89 00.01 0.574 0.424 0.000 %16 (477) 477 545 545c #27 (581) 581 74.28 54.89 00.01 0.574 0.424 0.000 %17 (477) 477 550 549c #28 (587) 587 68.81 46.05 00.00 0.599 0.400 0.000 %18 (479) 479 555 555c #29 %(591) 591 65.99 41.78 01.97 0.601 0.380 0.017 %19 (480) 480 560 411 # (589) 589 67.60 44.04 00.93 0.600 0.391 0.008 %20 (479) 479 559 405 #30 (692) 692 70.96 43.57 21.37 0.522 0.320 0.157 %21 (484) 484 560 435 #31 (492c) 697 74.12 43.34 43.14 0.461 0.269 0.268 %22 (492) 492 562 450 #32 (503c) 708 75.07 42.59 56.88 0.430 0.244 0.325 %23 (503) 503 564 460 #33 (512c) 717 74.44 41.54 62.63 0.416 0.232 0.350 %24 (512) 512 566 465 #34 (521c) 726 72.35 39.38 67.38 0.403 0.219 0.376 %25 (521) 521 570 470 #35 (531c) 736 67.63 35.52 71.09 0.388 0.203 0.408 %26 (531) 531 576 475 #36 (541c) 746 55.24 26.06 71.09 0.362 0.171 0.466 %27 (541) 541 590 480 #37 (458) 458 13.22 07.40 75.88 0.137 0.076 0.786 %28 (563) 563 485c 485 #38 %380...780 96.63 100.00 81.17 0.347 0.359 0.292 % D50, CIE10 # ] def %END O5010xyzq /XuO5010 96.63 def /YuO5010 100.00 def /ZuO5010 81.17 def /IMO5010 39 def /I1O5010 32 def /I2O5010 37 def /Icotx [(B) (C) (G) (Y) (R) (M)] def /Iconw [04 10 16 23 29 35] def /Icona [12 18 24 31 37 05] def %1-002030-L0 CE700-7R %O50F02xyzq tristimulus values, nominal wavelengths ldn and lcn, D50, CIEF02 /O50F02xyzq 800 array def /O50F02xyzq [%BEG O50F02xyzq %ld ldn X Y Z x y z Code lc lcn l1 l2 no. (551c) 386 51.50 23.94 74.68 0.343 0.159 0.497 %28 (551) 551 597 485 #37 (460) 460 12.38 06.54 76.19 0.130 0.068 0.801 %29 (568) 568 490c 490 #00 %(460) 460 12.38 06.54 76.19 0.130 0.068 0.801 %30 (568) 568 494c 495 # (465) 465 12.41 09.58 78.25 0.123 0.095 0.780 %31 (569) 569 500c 500 #01 (467) 467 12.45 11.64 78.88 0.120 0.113 0.765 %32 (570) 570 509c 510 #02 (473) 473 13.31 20.43 79.83 0.117 0.179 0.702 %33 (573) 573 520c 520 #03 (475) 475 14.02 24.19 79.97 0.118 0.204 0.676 %34 (575) 575 529c 530 #04 (479) 479 17.82 36.92 80.16 0.132 0.273 0.594 %35 (580) 580 540c 540 #05 (479) 479 17.82 36.92 80.16 0.132 0.273 0.594 %36 (580) 580 544c 545 #06 (481) 481 21.98 46.03 80.20 0.148 0.310 0.541 %37 (585) 585 550c 550 #07 (481) 481 21.98 46.03 80.20 0.148 0.310 0.541 %38 (585) 585 554c 555 #08 (483) 483 27.52 55.03 80.21 0.169 0.338 0.492 %39 (590) 590 560c 560 #09 (484) 484 28.85 57.21 79.07 0.174 0.346 0.478 %00 (592) 592 405 565 #10 (489) 489 25.36 57.41 57.70 0.180 0.408 0.410 %01 (489c) 694 435 565 #11 (497) 497 22.33 57.50 36.81 0.191 0.492 0.315 %02 (497c) 702 450 566 #12 (505) 505 21.31 58.03 24.30 0.205 0.559 0.234 %03 (505c) 710 460 568 #13 (512) 512 21.41 58.69 18.79 0.216 0.593 0.190 %04 (512c) 717 465 569 #14 (521) 521 22.42 59.91 14.10 0.232 0.621 0.146 %05 (521c) 726 470 571 #15 (524) 524 25.32 62.97 14.10 0.247 0.614 0.137 %06 (524c) 729 475 575 #16 (539) 539 30.29 66.55 07.57 0.290 0.637 0.072 %07 (539c) 744 480 581 #17 (551) 551 44.95 76.05 05.53 0.355 0.600 0.043 %08 (551c) 756 485 597 #18 (568) 568 84.08 93.45 04.02 0.463 0.514 0.022 %09 (460) 460 490 490c #19 (568) 568 84.08 93.45 04.02 0.463 0.514 0.022 %10 (460) 460 495 494c #20 (569) 569 84.05 90.41 01.96 0.476 0.512 0.011 %11 (465) 465 500 500c #21 (570) 570 84.00 88.35 01.33 0.483 0.508 0.007 %12 (467) 467 510 509c #22 (573) 573 83.15 79.56 00.38 0.509 0.487 0.002 %13 (473) 473 520 520c #23 (575) 575 82.44 75.80 00.24 0.520 0.478 0.001 %14 (475) 475 530 529c #24 (580) 580 78.64 63.07 00.05 0.554 0.444 0.000 %15 (479) 479 540 540c #25 (580) 580 78.64 63.07 00.05 0.554 0.444 0.000 %16 (479) 479 545 544c #26 %(585) 585 74.48 53.96 00.02 0.579 0.420 0.000 %17 (481) 481 550 550c # (585) 585 74.48 53.96 00.02 0.579 0.420 0.000 %18 (481) 481 555 554c #27 (590) 590 68.94 44.96 00.00 0.605 0.394 0.000 %19 (483) 483 560 560c #28 (592) 592 67.61 42.78 01.14 0.606 0.383 0.010 %20 (484) 484 565 405 #29 (489c) 694 71.10 42.58 22.52 0.521 0.312 0.165 %21 (489) 489 565 435 #30 (497c) 702 74.12 42.49 43.40 0.463 0.265 0.271 %22 (497) 497 566 450 #31 (505c) 710 75.15 41.96 55.91 0.434 0.242 0.323 %23 (505) 505 568 460 #32 (512c) 717 75.05 41.30 61.43 0.422 0.232 0.345 %24 (512) 512 569 465 #33 (521c) 726 74.04 40.08 66.11 0.410 0.222 0.366 %25 (521) 521 571 470 #34 (524c) 729 71.14 37.02 66.11 0.408 0.212 0.379 %26 (524) 524 575 475 #35 (539c) 744 66.16 33.44 72.64 0.384 0.194 0.421 %27 (539) 539 581 480 #36 (551c) 756 51.50 23.94 74.68 0.343 0.159 0.497 %28 (551) 551 597 485 #37 (460) 460 12.38 06.54 76.19 0.130 0.068 0.801 %29 (568) 568 490c 490 #38 %380...780 96.46 100.00 80.22 0.348 0.361 0.289 % D50, CIEF02 # ] def %END O50F02xyzq /XuO50F02 96.46 def /YuO50F02 100.00 def /ZuO50F02 82.22 def /IMO50F02 39 def /I1O50F02 30 def /I2O50F02 37 def /Icotx [(B) (C) (G) (Y) (R) (M)] def /Iconw [04 10 16 23 29 35] def /Icona [12 18 24 31 37 05] def %1-003030-L0 CE700-7R %Ostwald colours (o) of maximum (m) CAB,F10 for D50, Yw,F10=100, Ym=520_770, CIEF10 %O50F10xyzq tristimulus values, nominal wavelengths ldn and lcn, D50, CIE02 /O50F10xyzq 800 array def /O50F10xyzq [%BEG O50F10xyzq %ld ldn X Y Z x y z Code lc lcn l1 l2 no. (545c) 380 52.92 25.78 74.65 0.345 0.168 0.486 %27 (545) 545 592 480 #37 (455) 455 13.14 06.61 74.65 0.139 0.070 0.790 %28 (563) 563 484c 485 #00 (460) 460 13.28 09.49 77.95 0.131 0.094 0.773 %29 (564) 564 490c 490 #01 (462) 462 13.30 11.32 78.97 0.128 0.109 0.762 %30 (565) 565 495c 495 #02 (464) 464 13.34 13.45 79.69 0.125 0.126 0.748 %31 (566) 566 500c 500 #03 (468) 468 13.69 18.67 80.47 0.121 0.165 0.713 %32 (568) 568 510c 510 #04 (471) 471 14.73 25.21 80.80 0.122 0.208 0.669 %33 (571) 571 520c 520 #05 (472) 472 15.63 28.96 80.89 0.124 0.230 0.644 %34 (573) 573 529c 530 #06 (475) 475 18.33 37.06 80.98 0.134 0.271 0.593 %35 (577) 577 539c 540 #07 (477) 477 22.39 45.70 81.01 0.150 0.306 0.543 %36 (581) 581 545c 545 #08 %(477) 477 22.39 45.70 81.01 0.150 0.306 0.543 %37 (581) 581 549c 550 # (477) 477 24.94 50.08 81.02 0.159 0.320 0.519 %38 (584) 584 554c 555 #09 (479) 479 30.58 58.60 78.68 0.182 0.349 0.468 %39 (591) 591 412 560 #10 (479) 479 29.07 56.38 80.12 0.175 0.340 0.483 %00 (588) 588 405 559 #11 (484) 484 25.63 56.72 59.32 0.180 0.400 0.418 %01 (484c) 689 435 560 #12 (492) 492 22.37 56.85 36.73 0.192 0.490 0.316 %02 (492c) 697 450 562 #13 (503) 503 21.57 57.63 22.95 0.211 0.564 0.224 %03 (503c) 708 460 564 #14 (511) 511 22.30 58.68 17.25 0.227 0.597 0.175 %04 (511c) 716 465 566 #15 (521) 521 24.56 60.88 12.62 0.250 0.620 0.128 %05 (521c) 726 470 570 #16 (532) 532 29.89 65.13 09.04 0.287 0.625 0.086 %06 (532c) 737 475 577 #17 (545) 545 43.82 74.21 06.37 0.352 0.596 0.051 %07 (545c) 750 480 592 #18 (563) 563 83.59 93.38 06.37 0.455 0.509 0.034 %08 (455) 455 485 484c #19 (564) 564 83.45 90.50 03.08 0.471 0.511 0.017 %09 (460) 460 490 490c #20 (565) 565 83.43 88.67 02.06 0.479 0.509 0.011 %10 (462) 462 495 495c #21 (566) 566 83.39 86.54 01.34 0.486 0.505 0.007 %11 (464) 464 500 500c #22 (568) 568 83.04 81.32 00.56 0.503 0.493 0.003 %12 (468) 468 510 510c #23 (571) 571 82.00 74.78 00.23 0.522 0.476 0.001 %13 (471) 471 520 520c #24 (573) 573 81.10 71.03 00.14 0.532 0.466 0.000 %14 (472) 472 530 529c #25 (577) 577 78.40 62.93 00.05 0.554 0.445 0.000 %15 (475) 475 540 539c #26 (581) 581 74.34 54.29 00.02 0.577 0.421 0.000 %16 (477) 477 545 545c #27 %(581) 581 74.34 54.29 00.02 0.577 0.421 0.000 %17 (477) 477 550 549c # (584) 584 71.79 49.91 00.01 0.589 0.410 0.000 %18 (477) 477 555 554c #28 (591) 591 66.15 41.39 02.34 0.601 0.376 0.021 %19 (479) 479 560 412 #29 (588) 588 67.67 43.61 00.91 0.603 0.388 0.008 %20 (479) 479 559 405 #30 (484c) 689 71.10 43.27 21.71 0.522 0.317 0.159 %21 (484) 484 560 435 #31 (492c) 697 74.36 43.14 44.30 0.459 0.266 0.273 %22 (492) 492 562 450 #32 (503c) 708 75.16 42.36 58.08 0.428 0.241 0.330 %23 (503) 503 564 460 #33 (511c) 716 74.43 41.31 63.78 0.414 0.230 0.355 %24 (511) 511 566 465 #34 (521c) 726 72.17 39.11 68.41 0.401 0.217 0.380 %25 (521) 521 570 470 #35 (532c) 737 66.84 34.86 71.99 0.384 0.200 0.414 %26 (532) 532 577 475 #36 (545c) 750 52.92 25.78 74.65 0.345 0.168 0.486 %27 (545) 545 592 480 #37 (455) 455 13.14 06.61 74.65 0.139 0.070 0.790 %28 (563) 563 484c 485 #38 %380...780 96.74 100.00 81.03 0.348 0.359 0.291 % D50, CIEF10 # ] def %END O50F10xyzq /XuO50F10 96.74 def /YuO50F10 100.00 def /ZuO50F10 81.03 def /IMO50F10 39 def /I1O50F10 31 def /I2O50F10 37 def /Icotx [(B) (C) (G) (Y) (R) (M)] def /Iconw [04 10 16 23 29 35] def /Icona [12 18 24 31 37 05] def %1-000030-L0 CE700-7R %Ostwald colours (o) of maximum (m) CAB for D50, Yw=100, Ym=520_770, R17M %O50R17Mxyzq tristimulus values, nominal wavelengths ldn and lcn, D50, CIE02 /O50R17Mxyzq 800 array def /O50R17Mxyzq [%BEG OR17Mxyzq %ld ldn X Y Z x y z Code lc lcn l1 l2 no. (538c) 373 50.84 23.58 64.46 0.366 0.169 0.464 %28 (538) 538 589 485 #32 (450) 450 26.22 10.37 70.14 0.245 0.097 0.657 %29 (553) 553 630 490 #00 (463) 463 19.81 09.03 72.38 0.195 0.089 0.715 %30 (557) 557 495c 495 #01 (465) 465 19.87 11.18 74.25 0.188 0.106 0.705 %31 (558) 558 500c 500 #02 (470) 470 20.04 16.47 77.00 0.176 0.145 0.678 %32 (561) 561 510c 510 #03 (474) 474 20.76 23.15 78.71 0.169 0.188 0.641 %33 (565) 565 520c 520 #04 (477) 477 22.69 31.32 79.75 0.169 0.234 0.596 %34 (570) 570 530c 530 #05 (479) 479 24.27 35.77 80.07 0.173 0.255 0.571 %35 (572) 572 539c 540 #06 (481) 481 28.86 45.22 80.48 0.186 0.292 0.520 %36 (578) 578 545c 545 #07 %(481) 481 28.86 45.22 80.48 0.186 0.292 0.520 %37 (578) 578 549c 550 # %(499) 499 18.37 49.10 38.38 0.173 0.463 0.362 %38 (499c) 704 457 555 # %(509) 509 18.84 52.92 27.66 0.189 0.532 0.278 %39 (509c) 714 468 560 # (482) 482 30.21 48.30 79.14 0.191 0.306 0.501 %00 (581) 581 405 550 #08 (487) 487 26.13 48.90 65.45 0.186 0.348 0.465 %01 (600) 600 435 551 #09 (496) 496 20.48 50.06 44.06 0.178 0.436 0.384 %02 (496c) 701 450 553 #10 (500) 500 20.60 52.31 38.55 0.184 0.469 0.345 %03 (500c) 705 460 555 #11 (509) 509 19.40 53.50 28.42 0.191 0.527 0.280 %04 (509c) 714 465 558 #12 (511) 511 21.83 56.54 28.46 0.204 0.529 0.266 %05 (511c) 716 470 561 #13 (518) 518 24.65 60.36 24.01 0.226 0.553 0.220 %06 (518c) 723 475 566 #14 (530) 530 29.99 65.40 16.35 0.268 0.585 0.146 %07 (530c) 735 480 574 #15 (538) 538 43.18 76.41 16.37 0.317 0.561 0.120 %08 (538c) 743 485 589 #16 (553) 553 67.80 89.62 10.69 0.403 0.533 0.063 %09 (450) 450 490 630 #17 (557) 557 74.22 90.96 08.45 0.427 0.523 0.048 %10 (463) 463 495 495c #18 (558) 558 74.15 88.81 06.58 0.437 0.523 0.038 %11 (465) 465 500 500c #19 (561) 561 73.98 83.52 03.84 0.458 0.517 0.023 %12 (470) 470 510 510c #20 (565) 565 73.27 76.84 02.12 0.481 0.504 0.013 %13 (474) 474 520 520c #21 (570) 570 71.33 68.67 01.09 0.505 0.486 0.007 %14 (477) 477 530 530c #22 (572) 572 69.75 64.22 00.76 0.517 0.476 0.005 %15 (479) 479 540 539c #23 (578) 578 65.16 54.77 00.35 0.541 0.455 0.002 %16 (481) 481 545 545c #24 %(578) 578 65.16 54.77 00.35 0.541 0.455 0.002 %17 (481) 481 550 549c # %(499c) 704 75.66 50.89 42.45 0.447 0.301 0.251 %18 (499) 499 555 457 # %(509c) 714 75.18 47.07 53.17 0.428 0.268 0.303 %19 (509) 509 560 468 # (581) 581 63.81 51.69 01.69 0.544 0.441 0.014 %20 (482) 482 550 405 #25 (600) 600 67.89 51.09 15.38 0.505 0.380 0.114 %21 (487) 487 551 435 #26 (500c) 705 73.42 47.68 42.28 0.449 0.291 0.258 %23 (500) 500 555 460 #27 (509c) 714 74.62 46.49 52.41 0.430 0.267 0.302 %24 (509) 509 558 465 #28 (511c) 716 72.19 43.45 52.37 0.429 0.258 0.311 %25 (511) 511 561 470 #29 (518c) 723 69.37 39.63 56.82 0.418 0.238 0.342 %26 (518) 518 566 475 #30 (530c) 735 64.03 34.59 64.49 0.392 0.212 0.395 %27 (530) 530 574 480 #31 (538c) 743 50.84 23.58 64.46 0.366 0.169 0.464 %28 (538) 538 589 485 #32 (450) 450 26.22 10.37 70.14 0.245 0.097 0.657 %29 (553) 553 630 490 #33 %380...780 94.03 100.00 80.84 0.342 0.363 0.294 % D50, R17M # ] def %END O50R17Mxyzq /XuO50R17M 94.03 def /YuO50R17M 100.00 def /ZuO50R17M 80.84 def /IMO50R17M 34 def /I1O50R17M 27 def /I2O50R17M 32 def /Icotx [(B) (C) (G) (Y) (R) (M)] def /Iconw [04 10 16 23 29 34] def /Icona [12 18 24 31 34 05] def %1-000030-L0 CE700-7R %Ostwald colours (o) of maximum (m) CAB for D50, Yw=100, Ym=520_770, R17Ms %O50R17Msxyzq tristimulus values, nominal wavelengths ldn and lcn, D50, CIE02 /O50R17Msxyzq 800 array def /O50R17Msxyzq [%BEG O50R17Msxyzq %ld ldn X Y Z x y z Code lc lcn l1 l2 no. (540c) 375 52.09 25.14 67.63 0.359 0.173 0.466 %28 (540) 540 589 485 #35 (444) 444 27.16 09.33 67.62 0.260 0.089 0.649 %29 (552) 552 630 490 #00 (463) 463 21.19 09.55 72.48 0.205 0.092 0.702 %30 (557) 557 495c 495 #01 (465) 465 21.27 11.71 74.36 0.198 0.109 0.692 %31 (558) 558 500c 500 #02 (470) 470 21.43 17.01 77.11 0.185 0.147 0.667 %32 (561) 561 510c 510 #03 (474) 474 22.09 23.68 78.83 0.177 0.190 0.632 %33 (565) 565 520c 520 #04 (476) 476 22.83 27.59 79.42 0.175 0.212 0.611 %34 (567) 567 529c 530 #05 (479) 479 25.44 36.25 80.19 0.179 0.255 0.565 %35 (572) 572 539c 540 #06 (480) 480 27.41 40.88 80.43 0.184 0.274 0.540 %36 (575) 575 544c 545 #07 (481) 481 29.88 45.66 80.60 0.191 0.292 0.516 %37 (578) 578 549c 550 #08 %(501) 501 21.79 53.98 38.52 0.190 0.472 0.337 %38 (501c) 706 457 555 # %(512) 512 22.32 57.57 27.75 0.207 0.534 0.257 %39 (512c) 717 468 560 # (482) 482 31.14 48.71 79.26 0.195 0.306 0.498 %00 (581) 581 405 550 #09 (488) 488 25.13 49.09 60.78 0.186 0.363 0.450 %01 (614) 614 435 551 #10 (496) 496 20.67 50.20 44.12 0.179 0.436 0.383 %02 (496c) 701 450 553 #11 (500) 500 20.63 52.39 38.61 0.184 0.469 0.345 %03 (500c) 705 460 555 #12 (505) 505 20.59 54.04 33.36 0.190 0.500 0.308 %04 (505c) 710 465 558 #13 (515) 515 20.38 55.82 24.00 0.203 0.557 0.239 %05 (515c) 720 470 561 #14 (522) 522 23.24 59.39 19.95 0.226 0.578 0.194 %06 (522c) 727 475 566 #15 (530) 530 29.26 65.20 16.37 0.264 0.588 0.147 %07 (530c) 735 480 574 #16 (540) 540 41.69 74.85 13.32 0.321 0.576 0.102 %08 (540c) 745 485 589 #17 (552) 552 66.62 90.66 13.33 0.390 0.531 0.078 %09 (444) 444 490 630 #18 (557) 557 72.59 90.44 08.47 0.423 0.527 0.049 %10 (463) 463 495 495c #19 (558) 558 72.51 88.28 06.59 0.433 0.527 0.039 %11 (465) 465 500 500c #20 (561) 561 72.35 82.98 03.84 0.454 0.521 0.024 %12 (470) 470 510 510c #21 (565) 565 71.69 76.31 02.12 0.477 0.508 0.014 %13 (474) 474 520 520c #22 (567) 567 70.95 72.40 01.53 0.489 0.499 0.010 %14 (476) 476 530 529c #23 (572) 572 68.34 63.74 00.76 0.514 0.479 0.005 %15 (479) 479 540 539c #24 (575) 575 66.36 59.11 00.52 0.526 0.469 0.004 %16 (480) 480 545 544c #25 (578) 578 63.90 54.33 00.35 0.538 0.458 0.003 %17 (481) 481 550 549c #26 %(501c) 706 71.98 46.01 42.43 0.448 0.286 0.264 %18 (501) 501 555 457 # %(512c) 717 71.46 42.42 53.20 0.427 0.253 0.318 %19 (512) 512 560 468 # (581) 581 62.64 51.28 01.69 0.541 0.443 0.014 %20 (482) 482 550 405 #27 (614) 614 68.65 50.90 20.17 0.491 0.364 0.144 %21 (488) 488 551 435 #28 (496c) 701 73.11 49.79 36.82 0.457 0.311 0.230 %22 (496) 496 553 450 #29 (500c) 705 73.15 47.60 42.34 0.448 0.291 0.259 %23 (500) 500 555 460 #30 (505c) 710 73.19 45.95 47.59 0.438 0.275 0.285 %24 (505) 505 558 465 #31 (515c) 720 73.40 44.17 56.94 0.420 0.253 0.326 %25 (515) 515 561 470 #32 (522c) 727 70.53 40.60 61.00 0.409 0.235 0.354 %26 (522) 522 566 475 #33 (530c) 735 64.52 34.79 64.58 0.393 0.212 0.394 %27 (530) 530 574 480 #34 (540c) 745 52.09 25.14 67.63 0.359 0.173 0.466 %28 (540) 540 589 485 #35 (444) 444 27.16 09.33 67.62 0.260 0.089 0.649 %29 (552) 552 630 490 #36 %380...780 93.78 99.99 80.95 0.341 0.363 0.294 % D50, R17Ms # ] def %END O50R17Msxyzq /XuO50R17Ms 93.78 def /YuO50R17Ms 100.00 def /ZuO50R17Ms 80.95 def /IMO50R17Ms 37 def /I1O50R17Ms 29 def /I2O50R17Ms 35 def /Icotx [(B) (C) (G) (Y) (R) (M)] def /Iconw [04 10 16 23 29 35] def /Icona [12 18 23 32 36 05] def %for order according to dominant wavelength and plot /Xni 40 array def /Yni 40 array def /Zni 40 array def /xani 40 array def /yani 40 array def /zani 40 array def /downi 40 array def /Lani 40 array def /aani 40 array def /bani 40 array def /cabni 40 array def /pani 40 array def /pbni 40 array def /prni 40 array def /habni 40 array def %calculated from pani, pbni /panui 40 array def /pbnui 40 array def /prnui 40 array def /habnui 40 array def %calculated from panui, pbnui /Anui 40 array def /Bnui 40 array def /CABnui 40 array def /hABnui 40 array def %calculated from Anui, Bnui %for order according to hue angle and plot /Xnio 40 array def /Ynio 40 array def /Znio 40 array def /xanio 40 array def /yanio 40 array def /zanio 40 array def /downio 40 array def /Lanio 40 array def /aanio 40 array def /banio 40 array def /cabnio 40 array def /panio 40 array def /pbnio 40 array def /prnio 40 array def /habnio 40 array def %calculated from panio, pbnio /panuio 40 array def /pbnuio 40 array def /prnuio 40 array def /habnuio 40 array def %calculated from panuio, pbnuio /Anuio 40 array def /Bnuio 40 array def /CABnuio 40 array def /hABnuio 40 array def %calculated from Anuio, Bnuio %**************************************************************** /proc_formel_old {%BEG proc_formel_old ix0 300 moveto TIL (a) show TL (=) show panshow TL (=) show nashow 20 0 rmoveto TIL (p) show (a) isV TL (=) show nashow TL ([\050) show TIL (b) show ishowL21 TL (-) show TIL (b) show ishowL23 TL (\051) show TIL (x) show TL (+\050) show TIL (b) show ishowL22 TL (-) show TIL (b) show ishowL23 TL (\051) show TIL (y) show TL (+) show TIL (b) show ishowL23 TL (]/) show TIL (y) show TL (=) show na0show TL (\050) show TL B21 B23 sub /iplus 0 def cvsshow4x /iplus 1 def TIL (x) show TL B22 B23 sub cvsshow4x TIL (y) show TL B23 cvsshow4x TL (\051/) show TIL (y) show %5200 300 moveto TL ((1)) show ix0 100 moveto TIL (b) show TL (=) show pbnshow TL (=) show nbshow 20 0 rmoveto TIL (p) show (b) isV TL (=) show nbshow TL ([\050) show TIL (b) show ishowL31 TL (-) show TIL (b) show ishowL33 TL (\051) show TIL (x) show TL (+\050) show TIL (b) show ishowL32 TL (-) show TIL (b) show ishowL33 TL (\051) show TIL (y) show TL (+) show TIL (b) show ishowL33 TL (]/) show TIL (y) show TL (=) show nb0show TL (\050) show TL B31 B33 sub /iplus 0 def cvsshow4x /iplus 1 def TIL (x) show TL B32 B33 sub cvsshow4x TIL (y) show TL B33 cvsshow4x (\051/) show TIL (y) show %5200 100 moveto TL ((2)) show } bind def %END proc_formel_old %**************************************************************** /proc_formel_old_tab {%BEG proc_formel_old_tab -3400 iyT idyT 4 mul sub moveto TIS (a) show pchartl cvicvs is6 TS (=) show na0show TS (\050) show TS B21 B23 sub /iplus 0 def cvsshow4x /iplus TIS (x) show TS B22 B23 sub cvsshow4x TIS (y) show TS B23 cvsshow4x TL (\051/) show TIS (y) show -3400 iyT idyT 5 mul sub moveto TIS (b) show pchartl cvicvs is6 TS (=) show nb0show TS (\050) show TS B31 B33 sub /iplus 0 def cvsshow4x /iplu TIS (x) show TS B32 B33 sub cvsshow4x TIS (y) show TS B33 cvsshow4x (\051/) show TIS (y) show } bind def %END proc_formel_old_tab %**************************************************************** /proc_formel_new {%BEG proc_formel_new ix0 300 moveto TIL (a) show TL (=) show panshow TL (=) show nashow 20 0 rmoveto TIL (p) show (a) isV TL (=) show na0show TL ([\050) show AX1 cvsshow3x TIL (x) show /iplus 1 def TL AX2 cvsshow3x TL AX3 cvsshow3x /iplus 0 def TIL (z) show (\051/) show TIL (y) show TL (]) show ix0 100 moveto TIL (b) show TL (=) show pbnshow TL (=) show nbshow 20 0 rmoveto TIL (p) show (b) isV TL (=) show nb0show TL ([\050) show BX1 cvsshow3x TIL (x) show TL (+) show BX2 cvsshow3x /iplus 1 def TL BX3 cvsshow3x /iplus 0 def TIL (z) show (\051/) show TIL (y) show TL (]) show /ix1 ix0 3000 add def ix1 300 moveto TIL (A) show (nu) isV TL (=\050) show TIL (a) show TL (-) show TIL (a) show (u) isV TL (\051) show 20 0 rmoveto TIL (Y) show ix1 100 moveto TIL (B) show (nu) isV TL (=\050) show TIL (b) show TL (-) show TIL (b) show (u) isV TL (\051) show 20 0 rmoveto TIL (Y) show /ix2 ix0 4000 add def ix2 300 moveto TIL (C) show (ABnu) isV TL (=[) show TIL (A) show (2) esV -50 0 rmoveto (nu) isV TL (+) show TIL (B) show (2) esV -50 0 rmoveto (nu) isV TL (]) show (1/2) esV ix2 100 moveto TIL (h) show (ABnu) isV TL (=atan[) show TIL (B) show (nu) isV TL (/) show TIL (A) show (nu) isV TL (]) show } bind def %END proc_formel_new %**************************************************************** /proc_formel_new_tab {%BEG proc_formel_new_tab -3400 iyT idyT 4 mul sub moveto TIS (a) show pchartl cvicvs is6 TS (=) show TIS (n) show (a) is6 TS ([\050) show AX1 cvsshow3x TIS (x) show /iplus 1 def TS AX2 cvsshow3x TS AX3 cvsshow3x /iplus 0 def TIS (z) show (\051/) show TIS (y) show TS (]) show -3400 iyT idyT 5 mul sub moveto TIS (b) show pchartl cvicvs is6 TS (=) show TIS (n) show (b) is6 TS ([\050) show BX1 cvsshow3x TIS (x) show TS (+) show BX2 cvsshow3x /iplus 1 def TS BX3 cvsshow3x /iplus 0 def TIS (z) show (\051/) show TIS (y) show TS (]) show } bind def %END proc_formel_new_tab %*********************************************************** /proc_xaxis_pchartl_coor %former xchartl -> pchartl (d=diagram, for example A6,B6) {%BEG proc_xaxis_pchartl_coor pchartl 0 eq {%pchartl=0,#0 pchartl 6 eq xcolor 1 eq and {TBIV} {TBIS} ifelse (x) show xcolor 1 eq {(10) pchartl 6 eq {ib8}{ib6} ifelse} if }%pchartl=0 {%pchartl#0, 1 case xchartl10: abx (x=0,6) xchartl10 0 eq {%xchartl10=0, abx pchartl 1 ge pchartl 7 le and {%pchartl=1<=7 pchartl 6 eq xcolor 1 eq and {TBIV} {TBIS} ifelse (a) show pchartl 1 sub cvicvs ib6 xcolor 1 eq {(,10) pchartl 6 eq {ib8}{ib6} ifelse} if } if %pchartl=1,7 pchartl 1 eq pchartl 3 eq or pchartl 7 eq or {%pchartl=1,3,7 TBS (=) show TBIS (x) show xcolor 1 eq {(10) ib6} if TBS (/) show TBIS (y) show xcolor 1 eq {(10) ib6} if } if %pchartl=1,3,7 pchartl 2 eq pchartl 4 eq or pchartl 5 eq or {%pchartl=2,4,5 TBS (=\050) show TBIS (x) show xcolor 1 eq {(10) ib6} if TBS (-0,171\051/) show TBIS (y) show xcolor 1 eq {(10) ib6} if } if %pchartl#2,4,5 pchartl 6 eq {%pchartl=6 xcolor 1 eq {TBV} {TBS} ifelse (=\0500,86) show xcolor 1 eq {TBIV} {TBIS} ifelse (x) show xcolor 1 eq {(10) pchartl 6 eq {ib8}{ib6} ifelse} if xcolor 1 eq {TBV} {TBS} ifelse (-0,72) show xcolor 1 eq {TBIV} {TBIS} ifelse (y) show xcolor 1 eq {(10) pchartl 6 eq {ib8}{ib6} ifelse} if xcolor 1 eq {TBV} {TBS} ifelse (-0,027\051/) show xcolor 1 eq {TBIV} {TBIS} ifelse (y) show xcolor 1 eq {(10) pchartl 6 eq {ib8}{ib6} ifelse} if } if %pchartl=6 } if %xchartl10=0, abx } ifelse %xchart=0,#0 } bind def %END proc_xaxis_pchartl_coor %*********************************************************** /proc_yaxis_pchartl_coor {%BEG proc_yaxis_pchartl_coor pchartl 0 eq {%pchartl=0,#0 pchartl 6 eq xcolor 1 eq and {TBIV} {TBIS} ifelse (y) show xcolor 1 eq {(10) pchartl 6 eq {ib8}{ib6} ifelse} if }%pchartl=0 {%pchartl#0, 1 casesxchartl10: abx xchartl10 0 eq {%xchartl10=0, abx pchartl 1 ge pchartl 7 le and {%pchartl=1,7 pchartl 6 eq xcolor 1 eq and {TBIV} {TBIS} ifelse (b) show pchartl 1 sub cvicvs ib6 xcolor 1 eq {(,10) pchartl 6 eq {ib8}{ib6} ifelse} if } if %pchartl=1,7 pchartl 1 eq pchartl 2 eq or {%pchartl=1,2 TBS (=-0,40) show TBIS (z) show xcolor 1 eq {(10) ib6} if TBS (/) show TBIS (y) show xcolor 1 eq {(10) ib6} if } if %pchartl=1,2 pchartl 3 eq pchartl 5 eq or {%pchartl=3,5 TBS (=\050) show mP1 cvsshow3x TBIS (x) show xcolor 1 eq {(10) ib6} if TBS (+) show bP1 cvsshow3x TBS (\051/) show TBIS (y) show xcolor 1 eq {(10) ib6} if } if %pchartl=3,5 pchartl 4 eq pchartl 7 eq or {%pchartl=4,7 TBS (=\050) show mD1 cvsshow3x TBIS (x) show xcolor 1 eq {(10) ib6} if TBS (+) show bD1 cvsshow3x TBS (\051/) show TBIS (y) show xcolor 1 eq {(10) ib6} if } if %pchartl=4,7 pchartl 6 eq {%pchartl=6 xcolor 1 eq {TBV} {TBS} ifelse (=\0500,20) show (x) show xcolor 1 eq {(10) pchartl 6 eq {ib8}{ib6} ifelse} if xcolor 1 eq {TBV} {TBS} ifelse (+0,37) show xcolor 1 eq {TBIV} {TBIS} ifelse TBIV (y) show xcolor 1 eq {(10) pchartl 6 eq {ib8}{ib6} ifelse} if xcolor 1 eq {TBV} {TBS} ifelse (-0,24\051/) show xcolor 1 eq {TBIV} {TBIS} ifelse (y) show xcolor 1 eq {(10) pchartl 6 eq {ib8}{ib6} ifelse} if } if %pchartl=6 } if %xchartl10=0, abx } ifelse %xchart#0 } bind def %END proc_yaxis_pchartl_coor %*********************************************************** /proc_diagram_pchartl_txt {%BEG proc_diagram_pchartl_txt pchartl 0 eq {%pchartl=0,#0 (Normfarbtafel) showde (chromaticity) showea TBS ( \050) show TBIS (x) show xcolor 1 eq {(10) ib6} if TBS (, ) show TBIS (y) show xcolor 1 eq {(10) ib6} if TBS (\051) show }%pchartl=0 {%pchartl#0, 3 cases xchartl10: abx, ABx, AB*x xchartl10 0 eq {%%xchartl10=0, abx (Farbarttafel) showde (chromaticity) showea TBS ( \050) show TBIS (a) show pchartl cvicvs ib6 xcolor 1 eq {(,10) ib6} if TBS (, ) show TBIS (b) show pchartl cvicvs ib6 xcolor 1 eq {(,10) ib6} if TBS (\051) show } if %%xchartl10=0, abx xchartl10 1 eq {%%xchartl10=1, ABx (Buntwert) showde (chromatic value) showea TBS ( \050) show TBIS (A) show pchartl cvicvs ib6 xcolor 1 eq {(,10) ib6} if TBS (, ) show TBIS (B) show pchartl cvicvs ib6 xcolor 1 eq {(,10) ib6} if TBS (\051) show } if %%xchartl10=1, abx xchartl10 2 eq {%xchartl10=2, AB*x (Buntheit) showde (chroma) showea TBS ( \050) show TBIS (A*) show pchartl cvicvs ib6 xcolor 1 eq {(,10) ib6} if TBS (, ) show TBIS (B*) show pchartl cvicvs ib6 xcolor 1 eq {(,10) ib6} if TBS (\051) show } if %%xchartl10=2, AB*x } ifelse %xchart#0 } bind def %END proc_diagram_pchartl_txt %******************************************************** /proc_tab1Nsimple {%BEG proc_tab1Nsimple /xxt 0.000 def /yyt 0.000 def /xat 0.000 def /yat 0.000 def /idyT 250 def /iyT 1800 def -3400 iyT moveto TIS (X) show (w) is6 TS (=) show Xu cvsshow2x (, ) show TIS (Y) show (w) is6 TS (=) show Yu cvsshow2x (, ) show TIS (Z) show (w) is6 TS (=) show Zu cvsshow2x -3400 iyT idyT 1 mul sub moveto TIS (x) show (w) is6 TS (=) show XANu cvsshow4x ( ) show TIS (y) show (w) is6 TS (=) show YANu cvsshow4x ( ) show TIS (z) show (w) is6 TS (=) show ZANu cvsshow4x -3400 iyT idyT 2 mul sub moveto xchartl 6 eq {TIS (a) show xchartl10 3 eq {TS (') show} if pchartl cvicvs is6 (,nu) is6 } if xchartl 7 eq {TIS (A) show pchartl cvicvs is6} if TS (=\050) show TIS (a) show pchartl cvicvs is6 TS (-) show TIS (a) show pchartl cvicvs is6 (,u) is6 TS (\051 ) show xchartl 6 eq {TIS (Y) show (18) is6 xchartl10 3 eq {30 0 rmoveto TS ([) show TIS (Y) show TS (/) show TIS (Y) show (18) is6 TS (]) show (1/3) es6} if } if xchartl 7 eq {TIS (Y) show xchartl10 2 eq {20 0 rmoveto TS (/[) show TIS (Y) show TS (/) show TIS (Y) show (18) is6 TS (]) show (1/3) es6} if } if -3400 iyT idyT 3 mul sub moveto xchartl 6 eq {TIS (b) show xchartl10 3 eq {TS (') show} if pchartl cvicvs is6 (,nu) is6 } if xchartl 7 eq {TIS (B) show pchartl cvicvs is6} if TS (=\050) show TIS (b) show pchartl cvicvs is6 TS (-) show TIS (b) show pchartl cvicvs is6 (,u) is6 TS (\051 ) show xchartl 6 eq {TIS (Y) show (18) is6 xchartl10 3 eq {30 0 rmoveto TS ([) show TIS (Y) show TS (/) show TIS (Y) show (18) is6 TS (]) show (1/3) es6} if } if xchartl 7 eq {TIS (Y) show xchartl10 2 eq {20 0 rmoveto TS (/[) show TIS (Y) show TS (/) show TIS (Y) show (18) is6 TS (]) show (1/3) es6} if } if pchartl 3 eq {%pchartl=3 proc_formel_old_tab }%pchartl=3 {%pchartl#3 proc_formel_new_tab } ifelse %pchartl=3,#3 -3400 iyT idyT 6 mul sub moveto TIS (n) show (a) is6 TS ( = ) show na cvsshow2x (, ) show TIS (n) show (b) is6 TS ( = ) show nb cvsshow2x -3400 iyT idyT 7 mul sub moveto TIS (n) show TS ( = D50) show -3400 iyT idyT 11 mul sub moveto SS (l) show (B,G,Y,R) is6 TS (=475,503,574,494c,E nm) show -3400 iyT idyT 12 mul sub moveto TIS (Ostwald) showde TS ( Farben (o)) showde %0CE341-7 02581 TIS (Ostwald) showen TS ( colours (o)) showen %1CE341-7 02581 TS (Colores) showes TIS ( Ostwald (o)) showes %2CE341-7 02581 TS (Couleurs) showfr TIS ( Ostwald (o)) showfr %3CE341-7 02581 TS (Colori) showit TIS ( Ostwald (o)) showit %4CE341-7 02581 TIS (Ostwald) showjp TS ( colours (o)) showjp %5CE341-7 02581 TIS (, Y) show 0 -60 rmoveto (w) show 0 60 rmoveto TS (=) show Yu cvsshow2x -3400 iyT idyT 13 mul sub moveto TS (max (m) Buntwert, ) showde %0CE341-7 03581 (max (m) chromatic value, ) showen %1CE341-7 03581 (chromatic m\341x (m), ) showes %2CE341-7 03581 (max (m) chromatic valeur, ) showfr %3CE341-7 03581 (max (m) chromatic value, ) showit %4CE341-7 03581 (max (m) chromatic value, ) showjp %5CE341-7 03581 (D50) show -3400 iyT idyT 14 mul sub moveto TS xchartl10 0 eq {%xchartl10=0 (Farbart) showde (purity) showea TS ( \050) show TIS (a) show pchartl cvicvs is6 xcolor 1 eq {(,10) is6} if TS (, ) show TIS (b) show pchartl cvicvs is6 xcolor 1 eq {(,10) is6} if TS (\051) show TIS (Y) show (18) is6 } if %xchartl10=0 xchartl10 1 eq {%xchartl10=1,ABx (Buntwert) showde (chromatic value) showea TS ( \050) show TIS (A) show pchartl cvicvs is6 xcolor 1 eq {(,10) is6} if TS (, ) show TIS (B) show pchartl cvicvs is6 xcolor 1 eq {(,10) is6} if TS (\051) show } if %xchartl10=1,ABx xchartl10 2 eq {%xchartl10=2,AB*x (Buntheit) showde (chroma) showea TS ( \050) show TIS (A*) show pchartl cvicvs is6 xcolor 1 eq {(,10) is6} if TS (, ) show TIS (B*) show pchartl cvicvs is6 xcolor 1 eq {(,10) is6} if TS (\051) show } if %xchartl10=2,AB*x xchartl10 3 eq {%xchartl10=3 (Farbart) showde (purity) showea TS ( \050) show TIS (a) show -50 0 rmoveto pchartl cvicvs is6 xcolor 1 eq {(,10) is6} if TS (, ) show TIS (b) show -50 0 rmoveto pchartl cvicvs is6 xcolor 1 eq {(,10) is6} if TS (\051) show TIS (Y) show (18) is6 TS (\050) show TIS (Y/Y) show (18) is6 TS (051) (1/3) es6 } if %xchartl10=3 } bind def %END proc_tab1Nsimple %********************************************************** %%EndProlog gsave %lanindL2 START 20000505 /lanind 1 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {3 lanind eq {show} {pop} ifelse} bind def /showfr {2 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 /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 0 def /lanind2 0 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 0 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 0 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output /FL 0.00001 def %/Y18 25.3 def %Munsell background /Y18 18.0 def %Ostwald background ? /idyT 250 def /iyT 1800 def /xyzq 800 array def /xyzn 800 array def %allready normalized /AnYi 80 array def %for plot of diagrams (a5,b5), (AX,BX), (A*X,B*X), /BnYi 80 array def 72 90 translate 0.01 MM dup scale gsave /pchartl pchart def %0 1 4 {/pchartl exch def %pchartl=0,4 %A51x+A52y+A53=(A51-A52)x+(A52+A53)-A52z=(AX1*x+AX2+AX3*z) %B51x+B52y+B53=(B51-B52)x+(B52+B53)-B52z=(BX1*x+BX2+BX3*z) %A41x+A42y+A43=(B21-B23)x+(B22-B23)y+B23 %B41x+B42y+B43=(B31-B33)x+(B32-B33)y+B33 %AX=an(AX1*x+AX2+AX3*z)/y %BX=bn(BX1*x+BX2+BX3*z)/y pchartl 0 eq {%pchartl=0 /AX1 1 def /AX2 0 def /AX3 0 def /BX1 0 def /BX2 0 def /BX3 1 def /na 2.5 def /nb -1.0 def } if %pchartl=0 pchartl 1 eq {%pchartl=1 /AX1 1 def /AX2 0.171 neg def /AX3 0 def /BX1 0 def /BX2 0 def /BX3 1 def /na 2.5 def /nb -1.0 def } if %pchartl=1 pchartl 2 eq {%pchartl=2 /AX1 1 def /AX2 0.171 neg def /AX3 0 def /BX1 0 def /BX2 0 def /BX3 1 def /na 2.8 def /nb -1.0 def } if %pchartl=2 pchartl 3 eq {%pchartl=3 /AX1 1 def %default /AX2 0.171 neg def /AX3 0 def /BX1 0 def /BX2 0 def /BX3 1 def /A41 B21 B23 sub def /A42 B22 B23 sub def /A43 B23 def /B41 B31 B33 sub def /B42 B32 B33 sub def /B43 B33 def /na 1.4 def /nb 0.5 def } if %pchartl=3 pchartl 4 eq {%pchartl=4 /AX1 BE21 BE22 sub def /AX2 BE22 BE23 add def /AX3 BE22 neg def /BX1 BE31 BE32 sub def /BX2 BE32 BE33 add def /BX3 BE32 neg def /na 1.4 def /nb 0.5 def } if %pchartl=4 /xcolorl xcolor def %0 1 5 {/xcolorl exch def %xcolor= 0:CIE02, 1:CIE10, 2:CIEF02, 3:CIEF10, 4:R17M, 5:R17Ms gsave 20 setlinewidth 0 0 11600 17100 0.0 0.0 0.0 0.0 colrecfi %area white grey 0 0 11600 17100 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz TL 0 setgray 100 -150 moveto (DG691-7R_pchartl=) show pchartl cvishow (_xcolorl=) show xcolorl cvishow xcolorl 0 eq {((CIE02)) show} if xcolorl 1 eq {((CIE10)) show} if xcolorl 2 eq {((CIEF02)) show} if xcolorl 3 eq {((CIEF10)) show} if xcolorl 4 eq {((R17M)) show} if xcolorl 5 eq {((R17Ms)) show} if xcolorl 0 eq {%xcolor=0:CIE02 /IM IMO5002 def /IM1 I1O5002 def /IM2 I2O5002 def /ix IM 1 add 8 mul 1 sub def 0 1 ix {/i exch def %i=0,40*8-1 xyzn i O5002xyzq i get put } for %i=0,40*8-1 /Xu XuO5002 def /Yu YuO5002 def /Zu ZuO5002 def /name (CIE02) def } if %xcolor=0:CIE02 xcolorl 1 eq {%xcolor=1:CIE10 /IM IMO5010 def /IM1 I1O5010 def /IM2 I2O5010 def /ix IM def /ix IM 1 add 8 mul 1 sub def 0 1 ix {/i exch def %i=0,40*8-1 xyzn i O5010xyzq i get put } for %i=0,40*8-1 /Xu XuO5010 def /Yu YuO5010 def /Zu ZuO5010 def /name (CIE10) def } if %xcolor=1:CIE10 xcolorl 2 eq {%xcolor=2:CIEF02 /IM IMO50F02 def /IM1 I1O50F02 def /IM2 I2O50F02 def /ix IM 1 add 8 mul 1 sub def 0 1 ix {/i exch def %i=0,40*8-1 xyzn i O50F02xyzq i get put } for %i=0,40*8-1 /Xu XuO50F02 def /Yu YuO50F02 def /Zu ZuO50F02 def /name (CIEF02) def } if %xcolor=2:CIEF02 xcolorl 3 eq {%xcolor=1:CIEF10 /IM IMO50F10 def /IM1 I1O50F10 def /IM2 I2O50F10 def /ix IM 1 add 8 mul 1 sub def 0 1 ix {/i exch def %i=0,40*8-1 xyzn i O50F10xyzq i get put } for %i=0,40*8-1 /Xu XuO50F10 def /Yu YuO50F10 def /Zu ZuO50F10 def /name (CIEF10) def } if %xcolor=3:CIEF10 xcolorl 4 eq {%xcolor=4:R17M /IM IMO50R17M def /IM1 I1O50R17M def /IM2 I2O50R17M def /ix IM 1 add 8 mul 1 sub def 0 1 ix {/i exch def %i=0,40*8-1 xyzn i O50R17Mxyzq i get put } for %i=0,40*8-1 /Xu XuO50R17M def /Yu YuO50R17M def /Zu ZuO50R17M def /name (R17M) def } if %xcolor=4:R17M xcolorl 5 eq {%xcolor=5:R17Ms /IM IMO50R17Ms def /IM1 I1O50R17Ms def /IM2 I2O50R17Ms def /ix IM 1 add 8 mul 1 sub def 0 1 ix {/i exch def %i=0,40*8-1 xyzn i O50R17Msxyzq i get put } for %i=0,40*8-1 /Xu XuO50R17Ms def /Yu YuO50R17Ms def /Zu ZuO50R17Ms def /name (R17Ms) def } if %xcolor=5:R17Ms /IMA IM2 IM1 sub 1 add def /IMD IM2 IM1 sub def /Xn Xu def /Yn Yu def /Zn Zu def /SUMu Xu Yu add Zu add 0.0001 add def /XANu Xu SUMu div def /YANu Yu SUMu div def /ZANu Zu SUMu div def %Xn,Yn,Zn may be different compared to Xu,Yu,Zu /Xn Xu def /Yn Yu def /Zn Zu def /SUMn Xn Yn add Zn add 0.0001 add def /XANn Xn SUMn div def /YANn Yn SUMn div def /ZANn Zn SUMn div def /na0show {na cvsshow1x} bind def /nb0show {nb cvsshow1x} bind def /na1show {na cvsshow4x} bind def /nb1show {nb cvsshow4x} bind def %xchart7 0 def %Ostwald colours without name or Y %xchart7 1 def %Ostwald colours with name %xchart7 2 def %Ostwald colours with CIE Y /xchart7 2 def %0:-, 1:name, 2:Y %************************************************************************ /xchartl xchart def 0 1 7 {/xchartl exch def %xchartl=0,7 /iplus 0 def 20 setlinewidth xchartl 0 eq { 100 13000 translate} if xchartl 1 eq { 6100 13000 translate} if xchartl 2 eq { 100 08750 translate} if xchartl 3 eq { 6100 08750 translate} if xchartl 4 eq { 100 4500 translate} if xchartl 5 eq { 6100 4500 translate} if xchartl 6 eq { 100 0250 translate} if xchartl 7 eq { 6100 0250 translate} if 0 setgray 150 /Times-ISOL1 FS xchartl 2 eq {4500 -150 moveto (DG691-3N) show} if xchartl 3 eq {4500 -150 moveto (DG691-4N) show} if xchartl 6 eq {4500 -150 moveto (DG691-7N) show} if xchartl 7 eq {4500 -150 moveto (DG691-8N) show} if %xchartl 1 add cvishow %(A) show %A 30 setlinewidth [ ] 0 setdash /yhoe 8300 def /xwidth 5400 def xchartl 2 eq xchartl 3 eq or xchartl 6 eq or xchartl 7 eq or { 1 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath stroke 20 setlinewidth /yhoe1 yhoe 0.5 mul def xchartl 2 eq xchartl 3 eq or {/yhoe1 yhoe1 150 add def} if 0 yhoe1 moveto xwidth 0 rlineto stroke 30 setlinewidth } if %xchartl=2,3,7,8 /Ln Yn def pchartl 3 eq {%pchartl=3 /pan A41 XANn mul A42 YANn mul add A43 add YANn 0.0001 add div na mul def /pbn B41 XANn mul B42 YANn mul add B43 add YANn 0.0001 add div nb mul def }%pchartl=3 {%pchartl#3 /pan AX1 XANn mul AX2 add AX3 ZANn mul add YANn 0.0001 add div na mul def /pbn BX1 XANn mul BX2 add BX3 ZANn mul add YANn 0.0001 add div nb mul def } ifelse %pchartl=3,#3 /prn pan dup mul pbn dup mul add 0.0001 add sqrt def /habn pbn pan 0.0001 add atan def /Lu Yu def pchartl 3 eq {%pchartl=3 /pau A41 XANu mul A42 YANu mul add A43 add YANu 0.0001 add div na mul def /pbu B41 XANu mul B42 YANu mul add B43 add YANu 0.0001 add div nb mul def }%pchartl=3 {%pchartl#3 /pau AX1 XANu mul AX2 add AX3 ZANu mul add YANu 0.0001 add div na mul def /pbu BX1 XANu mul BX2 add BX3 ZANu mul add YANu 0.0001 add div nb mul def } ifelse %pchartl=3,#3 /pru pau dup mul pbu dup mul add 0.0001 add sqrt def /habu pbu pau 0.0001 add atan def /panu pan pau sub def /pbnu pbn pbu sub def /prnu panu dup mul pbnu dup mul add 0.0001 add sqrt def /habnu pbnu panu 0.0001 add atan def /Anu pan pau sub Lu mul def /Bnu pbn pbu sub Lu mul def /CABnu Anu dup mul Bnu dup mul add 0.0001 add sqrt def /hABnu Bnu Anu 0.0001 add atan def %***************************************************************** %data order according to dominant (nominal) wavelength /ix IM def 0 1 ix {/i exch def %i=0,ix /i8 i 8 mul def downi i xyzn i8 1 add get put %400, 410,...700,...400 Xni i xyzn i8 2 add get put Yni i xyzn i8 3 add get put Zni i xyzn i8 4 add get put /SUM Xni i get Yni i get add Zni i get add 0.0001 add def xani i xyzn i8 2 add get SUM div put yani i xyzn i8 3 add get SUM div put zani i xyzn i8 4 add get SUM div put Lani i Yni i get put pchartl 3 eq {%pchartl=3 pani i A41 xani i get mul A42 yani i get mul add A43 add yani i get div na mul put pbni i B41 xani i get mul B42 yani i get mul add B43 add yani i get div nb mul put }%pchartl=3 {%pchartl#3 pani i AX1 xani i get mul AX2 add AX3 zani i get mul add yani i get div na mul put pbni i BX1 xani i get mul BX2 add BX3 zani i get mul add yani i get div nb mul put } ifelse %pchartl=3,#3 prni i pani i get dup mul pbni i get dup mul add 0.0001 add sqrt put aani i pani i get Lani i get mul put bani i pbni i get Lani i get mul put cabni i aani i get dup mul bani i get dup mul add 0.0001 add sqrt put habni i pbni i get pani i get 0.0001 add atan put panui i pani i get pau sub put pbnui i pbni i get pbu sub put prnui i panui i get dup mul pbnui i get dup mul add 0.0001 add sqrt put habnui i pbnui i get panui i get 0.0001 add atan put Anui i panui i get Lani i get mul put Bnui i pbnui i get Lani i get mul put CABnui i prnui i get Lani i get mul put hABnui i Bnui i get Anui i get 0.0001 add atan put } for %i=0,ix /ix IM def %special if downi ix-1 get <700 instead of >700 downi ix 2 sub get 700 le {downi ix 2 sub 765 downi ix 2 sub get 400 sub add put} if downi ix 1 sub get 700 le {downi ix 1 sub 765 downi ix 1 sub get 400 sub add put} if downi ix 0 sub get 700 le {downi ix 0 sub 765 downi ix 0 sub get 400 sub add put} if %***************************************************************** %data order according to hue angle /ix IMD def 0 1 ix {/i exch def %i=0,ix, purple colours downio i downi IM1 i add get put Xnio i Xni IM1 i add get put Ynio i Yni IM1 i add get put Znio i Zni IM1 i add get put xanio i xani IM1 i add get put yanio i yani IM1 i add get put zanio i zani IM1 i add get put Lanio i Lani IM1 i add get put aanio i aani IM1 i add get put banio i bani IM1 i add get put cabnio i cabni IM1 i add get put panio i pani IM1 i add get put pbnio i pbni IM1 i add get put prnio i prni IM1 i add get put habnio i habni IM1 i add get put panuio i panui IM1 i add get put pbnuio i pbnui IM1 i add get put prnuio i prnui IM1 i add get put habnuio i habnui IM1 i add get put Anuio i panui IM1 i add get Lani IM1 i add get mul put Bnuio i pbnui IM1 i add get Lani IM1 i add get mul put CABnuio i prnui IM1 i add get Lani IM1 i add get mul put hABnuio i Bnuio i get Anuio i get 0.0001 add atan put } for %i=0,ix, purple colours /ix IM1 1 add def %including 2 purple colours at the end 0 1 ix {/i exch def %i=0,ix, regular data 400...700 downio IMD 1 add i add downi i get put Xnio IMD 1 add i add Xni i get put Ynio IMD 1 add i add Yni i get put Znio IMD 1 add i add Zni i get put xanio IMD 1 add i add xani i get put yanio IMD 1 add i add yani i get put zanio IMD 1 add i add zani i get put Lanio IMD 1 add i add Lani i get put aanio IMD 1 add i add aani i get put banio IMD 1 add i add bani i get put cabnio IMD 1 add i add cabni i get put panio IMD 1 add i add pani i get put pbnio IMD 1 add i add pbni i get put prnio IMD 1 add i add prni i get put habnio IMD 1 add i add habni i get put panuio IMD 1 add i add panui i get put pbnuio IMD 1 add i add pbnui i get put prnuio IMD 1 add i add prnui i get put habnuio IMD 1 add i add habnui i get put Anuio IMD 1 add i add panui i get Lani i get mul put Bnuio IMD 1 add i add pbnui i get Lani i get mul put CABnuio IMD 1 add i add prnui i get Lani i get mul put hABnuio IMD 1 add i add Bnuio IMD 1 add i add get Anuio IMD 1 add i add get 0.0001 add atan put } for %i=0,ix, regular data 400...700 %special if habnio or habnuio 0 get <100 instead of >360 habnio 0 get 100 le {habnio 0 habnio 0 get 360 add put} if habnuio 0 get 100 le {habnuio 0 habnuio 0 get 360 add put} if hABnuio 0 get 100 le {hABnuio 0 hABnuio 0 get 360 add put} if habnio 1 get 100 le {habnio 1 habnio 1 get 360 add put} if habnuio 1 get 100 le {habnuio 1 habnuio 1 get 360 add put} if hABnuio 1 get 100 le {hABnuio 1 hABnuio 1 get 360 add put} if /ix IM def %special if habnio ix-1 get >300 instead of -00x habnio ix 2 sub get 300 ge {habnio ix 2 sub habnio ix 2 sub get 360 sub put} if habnio ix 1 sub get 300 ge {habnio ix 1 sub habnio ix 1 sub get 360 sub put} if habnio ix get 300 ge {habnio ix habnio ix get 360 sub put} if %special if habnuio ix get >300 instead of -00x habnuio ix 2 sub get 300 ge {habnuio ix 2 sub habnuio ix 2 sub get 360 sub put} if habnuio ix 1 sub get 300 ge {habnuio ix 1 sub habnuio ix 1 sub get 360 sub put} if habnuio ix get 300 ge {habnuio ix habnuio ix get 360 sub put} if hABnuio ix 2 sub get 300 ge {hABnuio ix 2 sub hABnuio ix 2 sub get 360 sub put} if hABnuio ix 1 sub get 300 ge {hABnuio ix 1 sub hABnuio ix 1 sub get 360 sub put} if hABnuio ix get 300 ge {hABnuio ix hABnuio ix get 360 sub put} if %***************************************************************** xchartl 0 eq {%xchartl=0 %STOP0 } if %xchartl=0 %**************************************************************************** xchartl 1 eq {%xchartl=1 %STOP1 } if %xchartl=1 %**************************************************************************** xchartl 2 eq { %STOP2 /faktxa 40 3 div def %scale hue angle /faktxw 36 3 div def %scale wavelength /fakty 10 def %scale XYZ, ABC /ix0 0050 def /iy0 3200 def /ixd 0500 def /iyd 0160 def /jcur 0 def 0 1 1 {/jcur exch def %jcur=0,1 /xtrans3 430 def jcur 0 eq {/ytrans3 650 def}{/ytrans3 4600 def} ifelse xtrans3 ytrans3 translate 30 setlinewidth 0 setgray %x- and y-scale line 0 0 moveto 1200 4 mul 100 add 0 rlineto stroke 0 0 moveto 0 3450 150 add rlineto stroke 1200 4 mul 150 add 0 moveto -100 50 rlineto 0 -100 rlineto closepath fill 0 3450 200 add moveto -50 -100 rlineto 100 0 rlineto closepath fill /rmove1 250 def /rmoved 700 def /ix00 150 def ix00 3450 moveto tfo 200 0 rlineto stroke ix00 rmove1 add 3400 moveto tfn TBL Anubshow TBL (, ) show /ix01 ix00 rmoved 1 mul add def ix01 3450 moveto tfv 200 0 rlineto stroke ix01 rmove1 add 3400 moveto TBL Bnubshow TBL (, ) show /ix02 ix00 rmoved 2 mul add def ix02 3450 moveto tfn 200 0 rlineto stroke ix02 rmove1 add 3400 moveto TBL CABnubshow TBL (, ) show /ix03 ix00 rmoved 3 mul add 100 add def %longer text before ix03 3450 moveto [100] 100 setdash tfl 200 0 rlineto stroke [ ] 0 setdash tfn ix03 rmove1 add 3400 moveto TBIL (Y) show %TBL ( of ) showea ( von ) showde %name show [100] 100 setdash 0 1500 moveto 400 12 mul 300 add 0 rlineto stroke %cero line [ ] 0 setdash %x-scale jcur 0 eq {%jcur=0 1200 4 mul 150 sub 150 moveto TBIS (h) show 0 -30 rmoveto TBL (ab) show 0 30 rmoveto } if %jcur=0 jcur 1 eq {%jcur=1 1200 4 mul 050 sub -250 moveto SS (l) show 0 -30 rmoveto TBL (n) show 0 30 rmoveto TS 1200 4 mul 200 sub 150 moveto SS (l) show 0 -30 rmoveto TBL (c,E) show 0 30 rmoveto TS } if %jcur=1 TBL /txl [ (400) (500) (600) (700) (736) (772)] def /txc [ () () () (495c)(531c) (567c)] def /txw [ ( 0) ( 90) (180) (270) (360) ( )] def /tye [(-10) ( -5) ( 0) ( 5) ( 10) ( 15)] def /tyY [( 0)( 20)( 40) ( 60) ( 80)(100)] def /tyl [(-1,0) (-0,5) ( 0,0) ( 0,5) ( 1,0) ( 1,5) ( 2,0) ( 2,5) ( 3,0)] def /tyC [(-150) (-100) ( -50) ( 00) ( 50) ( 100) ( 150)] def %!x-Achse: 100 Einheiten = 1200 Skalen-Einheiten 0 1 5 {/i exch def %i=0,5 jcur 0 eq {%jcur=0 /ixt {-150 i 1200 mul add} def /ixl { 000 i 1200 mul add} def ixt -200 moveto txw i get exec show ixl 75 moveto 0 -150 rlineto stroke } if %jcur=0 jcur 1 eq {%jcur=1 /ip i def i 4 eq {/ip 3.36 def} if i 5 eq {/ip 3.72 def} if /ixt {-150 ip 1200 mul add} def /ixl { 000 ip 1200 mul add} def ixt -200 moveto txl i get exec show ixt 050 sub 150 moveto txc i get exec show ixl 75 moveto 0 -150 rlineto stroke } if %jcur=1 } for %i=0,5 %!y-Achse: 100 S-Einheiten = 0500 Skalen-Einheiten TBL 0 1 6 {/i exch def /iyt {-50 i 0500 mul add} def /iyl {000 i 0500 mul add} def -350 iyt moveto tyC i get show -75 iyl moveto 150 0 rlineto stroke } for /x0t 150 def /x1t 3100 def x0t 3200 moveto TBL name show TL (, ) show TIL (RG, YB) showea TIL (RG\255, YB\255) showde TL (, and radial directions:) showea ( und radiale Richtungen:) showde TIL ( a, b, r) show x1t 3200 moveto TL nashow TL (=) show na cvsshow4x TL (, ) show TL nbshow TL (=) show nb cvsshow4x TL (, D50) show x1t 3000 moveto TL panushow TL (=) show panshow TL (-) show paushow TL (=) show panshow TL (-) show pau cvsshow3x x1t 2800 moveto TL pbnushow TL (=) show pbnshow TL (-) show pbushow TL (=) show pbnshow TL (-\050) show pbu cvsshow3x TL (\051) show /icurm 2 def [] 0 setdash 0 0 0 setrgbcolor %CAB %************************************************************* jcur 0 eq { %jcur=0 %BEG fig down gsave %for clip 0 setlinewidth tfn 0 0 moveto 5000 0 rlineto 0 3150 rlineto 5000 neg 0 rlineto closepath clip 30 setlinewidth /icurm 2 def 0 1 icurm {/icur exch def %icur=0,2 icur 0 eq {tfo} if icur 1 eq {tfv} if icur 2 eq {tfn} if /ix IM def 0 1 ix {/i exch def %i=0,ix habnuio i get faktxa mul icur 0 eq {Anuio i get} if icur 1 eq {Bnuio i get} if icur 2 eq {CABnuio i get} if 150 add fakty mul i 0 eq {moveto} if i 1 ge i ix le and {lineto} if i ix eq {stroke} if } for %i=0,ix icur 0 eq {%icur=0 tfl [100] 100 setdash /ix IM def 0 1 ix {/i exch def %i=0,ix habnuio i get faktxa mul Lanio i get 150 add fakty mul i 0 eq {moveto} if i 1 ge i ix le and {lineto} if i ix eq {stroke} if } for %i=0,ix } if %icur=0 [ ] 0 setdash icur 0 eq {%icur=0 /ix IM def 0 1 ix {/i exch def %i=0,ix 0 1 1 {/m exch def %m=0,1 0 1 5 {/k exch def %k=0,5 i Icona k get eq {/xpos habnuio i get faktxa mul def m 0 eq {/ypos CABnuio i get 150 add fakty mul def} {/ypos Lanio i get 150 add fakty mul def} ifelse 0 setgray xpos ypos 50 0 360 arc fill Iconr k get Icong k get Iconb k get setrgbcolor xpos ypos 40 0 360 arc fill 0 setgray xpos 60 sub ypos 70 add moveto Icotx k get show newpath} if } for %k=0,5 } for %m=0,1 } for %i=0,ix } if %icur=0 } for %icur=0,2 grestore %for clip } if %jcur=0 %END fig down %************************************************************* 40 setlinewidth %wavelength lamda jcur 1 eq { %jcur=1 %fig top gsave %for clip 0 setlinewidth tfn 0 0 moveto 5000 0 rlineto 0 3150 rlineto 5000 neg 0 rlineto closepath clip 30 setlinewidth 0 1 icurm {/icur exch def %icur=0,2 icur 0 eq {tfo} if icur 1 eq {tfv} if icur 2 eq {tfn} if /ix IM def 0 1 ix {/i exch def %i=0,ix downi i get 400 sub faktxw mul %wavelength lamda icur 0 eq {Anui i get} if icur 1 eq {Bnui i get} if icur 2 eq {CABnui i get} if 150 add fakty mul i 0 eq {moveto} if i 1 ge i ix le and {lineto} if i ix eq {stroke} if } for %i=0,ix icur 0 eq {%icur=0 tfl [100] 100 setdash /ix IM def 0 1 ix {/i exch def %i=0,ix downi i get 400 sub faktxw mul %wavelength lamda Lani i get 150 add fakty mul i 0 eq {moveto} if i 1 ge i ix le and {lineto} if i ix eq {stroke} if } for %i=0,ix } if %icur=0 [ ] 0 setdash icur 0 eq {%icur=0 /ix IM def 0 1 ix {/i exch def %i=0,ix 0 1 1 {/m exch def %m=0,1 0 1 5 {/k exch def %k=0,5 i Iconw k get eq {/xpos downi i get 400 sub faktxw mul def m 0 eq {/ypos CABnui i get 150 add fakty mul def} {/ypos Lani i get 150 add fakty mul def} ifelse 0 setgray xpos ypos 50 0 360 arc fill Iconr k get Icong k get Iconb k get setrgbcolor xpos ypos 40 0 360 arc fill 0 setgray xpos 60 sub ypos 70 add moveto Icotx k get show newpath} if } for %k=0,5 } for %m=0,1 } for %i=0,ix } if %icur=0 } for %icur=0,2 grestore %for clip } if %jcur=1 %fig top xtrans3 neg ytrans3 neg translate } for %jcur=0,1 pchartl 3 eq {%pchartl=3 proc_formel_old }%pchartl=3 {%pchartl#3 proc_formel_new } ifelse %pchartl=3,#3 } if %xchartl=2 %**************************************************************************** xchartl 3 eq {%xchartl=3 %a5=(AX1x+AX2+AX3z)/y, b5=(BX1x+BX2+BX3z)/y %STOP3 /faktxa 40 3 div def %scale hue angle /faktxw 36 3 div def %scale wavelength /fakty 1000 def %scale XYZ, ABC /ix0 0050 def /iy0 3200 def /ixd 0500 def /iyd 0160 def /jcur 0 def 0 1 1 {/jcur exch def %jcur=0,1 /xtrans3 430 def jcur 0 eq {/ytrans3 650 def}{/ytrans3 4600 def} ifelse xtrans3 ytrans3 translate 30 setlinewidth 0 setgray %x- and y-scale line 0 0 moveto 1200 4 mul 100 add 0 rlineto stroke 0 0 moveto 0 3450 150 add rlineto stroke 1200 4 mul 150 add 0 moveto -100 50 rlineto 0 -100 rlineto closepath fill 0 3450 200 add moveto -50 -100 rlineto 100 0 rlineto closepath fill /rmove1 0250 def /rmoved 0900 def /ix00 150 def ix00 3450 moveto tfo 100 0 rlineto stroke ix00 100 add 3450 moveto tfl 100 0 rlineto stroke ix00 rmove1 add 3400 moveto tfn TBL (log) show 30 0 rmoveto panubshow TBL (, ) show /ix01 ix00 rmoved 1 mul add def ix01 3450 moveto tfv 100 0 rlineto stroke ix01 100 add 3450 moveto tfy 100 0 rlineto stroke ix01 rmove1 add 3400 moveto tfn TBL (log) show 30 0 rmoveto pbnubshow TBL (, ) show /ix02 ix00 rmoved 2 mul add def ix02 3450 moveto tfn 200 0 rlineto stroke ix02 rmove1 add 3400 moveto tfn TBL (log) show 30 0 rmoveto prnubshow TBL (, ) show /ix03 ix00 rmoved 3 mul add def ix03 3450 moveto [70] 70 setdash tfl 210 0 rlineto stroke [ ] 0 setdash tfn ix03 rmove1 add 3400 moveto tfn TBL (log) show 30 0 rmoveto TBIL (Y) show TBL (, ) show /ix04 ix00 rmoved 4 mul add 200 sub def ix04 3400 moveto tfn TBL (0,5[log) show 30 0 rmoveto prnubshow 30 0 rmoveto TBL (+log) show 30 0 rmoveto TBIL (Y) show TBL (]) show [100] 100 setdash 0 1000 moveto 400 12 mul 300 add 0 rlineto stroke %cero line [ ] 0 setdash %x-scale jcur 0 eq {%jcur=0 1200 4 mul 150 sub 150 moveto TBIS (h) show 0 -30 rmoveto TBL (ab) show 0 30 rmoveto } if %jcur=0 jcur 1 eq {%jcur=1 1200 4 mul 050 sub -250 moveto SS (l) show 0 -30 rmoveto TBL (n) show 0 30 rmoveto TS 1200 4 mul 150 sub 150 moveto SS (l) show 0 -30 rmoveto TBL (c,E) show 0 30 rmoveto TS } if %jcur=1 TBL /txl [ (400) (500) (600) (700) (736) (772)] def /txc [ () () () (495c)(531c) (567c)] def /txw [ ( 0) ( 90) (180) (270) (360) ( )] def /tye [(-10) ( -5) ( 0) ( 5) ( 10) ( 15)] def /tyY [( 0)( 20)( 40) ( 60) ( 80)(100)] def /tyl [(-1,0) (-0,5) ( 0,0) ( 0,5) ( 1,0) ( 1,5) ( 2,0) ( 2,5) ( 3,0)] def %!x-Achse: 100 Einheiten = 1200 Skalen-Einheiten 0 1 5 {/i exch def %i=0,5 jcur 0 eq {%jcur=0 /ixt {-150 i 1200 mul add} def /ixl { 000 i 1200 mul add} def ixt -200 moveto txw i get exec show ixl 75 moveto 0 -150 rlineto stroke } if %jcur=0 jcur 1 eq {%jcur=1 /ip i def i 4 eq {/ip 3.36 def} if i 5 eq {/ip 3.72 def} if /ixt {-150 ip 1200 mul add} def /ixl { 000 ip 1200 mul add} def ixt -200 moveto txl i get exec show ixt 050 sub 150 moveto txc i get exec show ixl 75 moveto 0 -150 rlineto stroke } if %jcur=1 } for %i=0,5 %!y-Achse: 100 S-Einheiten = 0500 Skalen-Einheiten TBL 0 1 7 {/i exch def /iyt {-50 i 0500 mul add} def /iyl {000 i 0500 mul add} def -350 iyt moveto tyl i get show -75 iyl moveto 150 0 rlineto stroke } for /x0t 150 def /x1t 3100 def x0t 3200 moveto TBL name show TL (, ) show TIL (RG, YB) showea TIL (RG\255, YB\255) showde TL (, and radial directions:) showea ( und radiale Richtungen:) showde TIL ( a, b, r) show x1t 3200 moveto TL nashow TL (=) show na cvsshow4x TL (, ) show TL nbshow TL (=) show nb cvsshow4x TL (, D50) show x1t 3000 moveto TL panushow TL (=) show panshow TL (-) show paushow TL (=) show panshow TL (-) show pau cvsshow3x x1t 2800 moveto TL pbnushow TL (=) show pbnshow TL (-) show pbushow TL (=) show pbnshow TL (-\050) show pbu cvsshow3x TL (\051) show /icurm 2 def [] 0 setdash tfn %CAB %************************************************************* jcur 0 eq { %jcur=0 %BEG fig down gsave %for clip tfn 0 setlinewidth 0 0 moveto 5000 0 rlineto 0 3150 rlineto 5000 neg 0 rlineto closepath clip tfn 30 setlinewidth /icurm 2 def 0 1 icurm {/icur exch def %icur=0,2 icur 0 eq {tfo} if icur 1 eq {tfv} if icur 2 eq {tfn} if /ix IM def 0 1 ix {/i exch def %i=0,ix habnuio i get faktxa mul icur 0 eq {panuio i get abs log} if icur 1 eq {pbnuio i get abs log} if icur 2 eq {prnuio i get log} if 1 add fakty mul i 0 eq {moveto} if i 1 ge i ix le and {lineto} if i ix eq {stroke} if } for %i=0,ix icur 0 eq {%icur=0 tfl [100] 100 setdash /ix IM def 0 1 ix {/i exch def %i=0,ix habnuio i get faktxa mul Lanio i get log 1 add fakty mul i 0 eq {moveto} if i 1 ge i ix le and {lineto} if i ix eq {stroke} if } for %i=0,ix } if %icur=0 [ ] 0 setdash icur 0 eq {%icur=0 0 1 1 {/k exch def %k=0,1 k 0 eq {tfn [] 0 setdash} if k 1 eq {tfl [100] 100 setdash} if /ix IM def 0 1 ix {/i exch def %i=0,ix habnuio i get faktxa mul Lanio i get prnuio i get mul log 0.5 mul 1 add fakty mul i 0 eq {moveto} if i 1 ge i ix le and {lineto} if i ix eq {stroke} if } for %i=0,ix } for %k=0,1 } if %icur=0 [ ] 0 setdash icur 1 eq {%icur=1 %green<0, red>0 /ix IM 1 sub def 0 1 ix {/i exch def %i=0,ix panuio i 0 add get 0 ge panuio i 1 add get 0 lt and {/ix1 i 1 add def exit} if } for %i=1,ix ix1 1 ix {/i exch def %i=ix1,ix panuio i 0 add get 0 lt panuio i 1 add get 0 ge and {/ix2 i 1 add def exit} if } for %i=ix1,ix tfl ix1 1 ix2 {/i exch def %i=ix1,ix2 habnuio i get faktxa mul panuio i get abs log 1 add fakty mul i ix1 eq {moveto} if i ix1 1 add ge i ix2 le and {lineto} if i ix2 eq {stroke} if } for %i=0,ix2 } if %icur=1 icur 2 eq {%icur=1 %blue<0, yellow>0 /ix IM 1 sub def 1 1 ix {/i exch def %i=1,ix pbnuio i 0 add get 0 lt pbnuio i 1 add get 0 ge and {/ix1 i 1 add def exit} if } for %i=1,ix ix1 1 ix {/i exch def %i=ix1,ix pbnuio i 0 add get 0 ge pbnuio i 1 add get 0 lt and {/ix2 i 1 add def exit} if } for %i=ix1,ix tfy ix1 1 ix2 {/i exch def %i=ix1,ix2 habnuio i get faktxa mul pbnuio i get abs log 1 add fakty mul i ix1 eq {moveto} if i ix1 1 add ge i ix2 le and {lineto} if i ix2 eq {stroke} if } for %i=ix1,ix2 } if %icur=2 icur 0 eq {%icur=0 /ix IM def 0 1 ix {/i exch def %i=0,ix 0 1 1 {/m exch def %m=0,1 0 1 5 {/k exch def %k=0,5 i Icona k get eq {/xpos habnuio i get faktxa mul def m 0 eq {/ypos prnuio i get log 1 add fakty mul def} {/ypos Lanio i get log 1 add fakty mul def} ifelse 0 setgray xpos ypos 50 0 360 arc fill Iconr k get Icong k get Iconb k get setrgbcolor xpos ypos 40 0 360 arc fill 0 setgray xpos 60 sub ypos 70 add moveto Icotx k get show newpath} if } for %k=0,5 } for %m=0,1 } for %i=0,ix } if %icur=0 } for %icur=0,2 tfn grestore %for clip } if %jcur=0 %END fig down %************************************************************* 40 setlinewidth %wavelength lamda jcur 1 eq { %jcur=1 %fig top gsave %for clip 0 setlinewidth tfn 0 0 moveto 5000 0 rlineto 0 3150 rlineto 5000 neg 0 rlineto closepath clip 30 setlinewidth 0 1 icurm {/icur exch def %icur=0,2 icur 0 eq {tfo} if icur 1 eq {tfv} if icur 2 eq {tfn} if /ix IM def 0 1 ix {/i exch def %i=0,ix downi i get 400 sub faktxw mul %wavelength lamda icur 0 eq {panui i get abs log} if icur 1 eq {pbnui i get abs log} if icur 2 eq {prnui i get log} if 1 add fakty mul i 0 eq {moveto} if i 1 ge i ix le and {lineto} if i ix eq {stroke} if } for %i=0,ix icur 0 eq {%icur=0 tfl [100] 100 setdash /ix IM def 0 1 ix {/i exch def %i=0,ix downi i get 400 sub faktxw mul %wavelength lamda Lani i get log 1 add fakty mul i 0 eq {moveto} if i 1 ge i ix le and {lineto} if i ix eq {stroke} if } for %i=0,ix } if %icur=0 [ ] 0 setdash icur 0 eq {%icur=0 0 1 1 {/k exch def %k=0,1 k 0 eq {tfn [] 0 setdash} if k 1 eq {tfl [100] 100 setdash} if /ix IM def 0 1 ix {/i exch def %i=0,ix downi i get 400 sub faktxw mul %wavelength lamda Lani i get log 0.5 mul prnui i get log 0.5 mul add 1 add fakty mul i 0 eq {moveto} if i 1 ge i ix le and {lineto} if i ix eq {stroke} if } for %i=0,ix } for %k=0,1 } if %icur=0 [ ] 0 setdash icur 1 eq {%icur=1 %green<0, red>0 /ix IM 1 sub def 0 1 ix {/i exch def %i=0,ix panui i 0 add get 0 ge panui i 1 add get 0 lt and {/ix1 i 1 add def exit} if } for %i=0,ix ix1 1 ix {/i exch def %i=ix1,ix panui i 0 add get 0 lt panui i 1 add get 0 ge and {/ix2 i 1 add def exit} if } for %i=0,ix tfl ix1 1 ix2 {/i exch def %i=ix1,ix2 downi i get 400 sub faktxw mul %wavelength lamda panui i get abs log 1 add fakty mul i ix1 eq {moveto} if i ix1 1 add ge i ix2 le and {lineto} if i ix2 eq {stroke} if } for %i=ix1,ix2 } if %icur=1 icur 2 eq {%icur=1 %blue<0, yellow>0 /ix IM 1 sub def 0 1 ix {/i exch def %i=0,ix pbnui i 0 add get 0 lt pbnui i 1 add get 0 ge and {/ix1 i 1 add def exit} if } for %i=0,ix ix1 1 ix {/i exch def %i=ix1,ix pbnui i 0 add get 0 ge pbnui i 1 add get 0 lt and {/ix2 i 1 add def exit} if } for %i=ix1,ix tfy ix1 1 ix2 {/i exch def %i=ix1,ix2 downi i get 400 sub faktxw mul %wavelength lamda pbnui i get abs log 1 add fakty mul i ix1 eq {moveto} if i ix1 1 add ge i ix2 le and {lineto} if i ix2 eq {stroke} if } for %i=ix1,ix2 } if %icur=2 icur 0 eq {%icur=0 /ix IM def 0 1 ix {/i exch def %i=0,ix 0 1 1 {/m exch def %m=0,1 0 1 5 {/k exch def %k=0,5 i Iconw k get eq {/xpos downi i get 400 sub faktxw mul def m 0 eq {/ypos prnui i get log 1 add fakty mul def} {/ypos Lani i get log 1 add fakty mul def} ifelse 0 setgray xpos ypos 50 0 360 arc fill Iconr k get Icong k get Iconb k get setrgbcolor xpos ypos 40 0 360 arc fill 0 setgray xpos 60 sub ypos 70 add moveto Icotx k get show newpath} if } for %k=0,5 } for %m=0,1 } for %i=0,ix } if %icur=0 } for %icur=0,2 tfn grestore %for clip } if %jcur=1 %fig top xtrans3 neg ytrans3 neg translate } for %jcur=0,1 pchartl 3 eq {%pchartl=3 proc_formel_old }%pchartl=3 {%pchartl#3 proc_formel_new } ifelse %pchartl=3,#3 } if %xchartl=3 %(a5,b5) %**************************************************************************** xchartl 4 eq {%xchartl=3 %a5=(AX1x+AX2+AX3z)/y, b5=(BX1x+BX2+BX3z)/y %STOP4 } if %xchartl=4 %(a5,b5) %**************************************************************************** xchartl 5 eq {%xchartl=3 %a5=(AX1x+AX2+AX3z)/y, b5=(BX1x+BX2+BX3z)/y %STOP5 } if %xchartl=5 %(a5,b5) %**************************************************************************** xchartl 6 eq {%xchartl=6 %a5=(AX1x+AX2+AX3z)/y, b5=(BX1x+BX2+BX3z)/y %STOP6 %xchartl10 0 def %for Y10G00NA.PS6.PS -> chromaticity coordinates (ai,bi) %xchartl10 1 def %for Y10G00NA.PS6.PS -> chromatic values (Ai,Bi) %xchartl10 2 def %for Y10G00NA.PS6.PS -> chroma (A*i,B*i) %/n0e=1.0000 for (ai,bi) and (Ai,Bi); 0.3333 for (A*i,B*i) %xchartl10 1 le {/n0e 1.0000 def} % {/n0e 0.3333 def} ifelse 0 1 1 {/iplot exch def %iplot=0,1 BEG Fig down and top %************************ %Special coordinate system for (Ax,Bx) digrams*************** %***************** iplot 0 eq {/xchartl10 0 def } %diagram 0:(50ai,50bi), 3:(50ai,50bi) {/xchartl10 3 def } ifelse /xtrans7 3500 def iplot 0 eq {/ytrans7 2000 def} {/ytrans7 6200 def} ifelse xtrans7 ytrans7 translate %for scala and graphic %axis and scales 0 0 0 1 setcmyk_olvcolor -2250 0 moveto 3950 0 rlineto stroke 0 -1880 moveto 0 3600 rlineto stroke 1700 100 sub 50 moveto 100 -50 rlineto -100 -50 rlineto closepath fill 0 50 sub 1800 100 sub moveto 50 100 rlineto 50 -100 rlineto closepath fill /xt10x 5 array def /yt10x 5 array def /xt10x [(-200) () () () ( 200)] def /yt10x [(-200) (-100) () ( 100) ( 200)] def 0 0 0 1 setcmyk_olvcolor 0 1 4 {/i exch def %i=0,4 x-axis -1600 i 800 mul add -75 moveto 0 150 rlineto stroke -1800 i 800 mul add -250 moveto TBS xt10x i get show i 4 eq {%i=4 -1600 i 800 mul add 0 moveto -100 150 rmoveto TBIM (a) show xchartl10 2 eq {-20 0 rmoveto (*) show -100 -20 rmoveto} if TBS pchartl cvicvs ib6 } if %i=4 } for %i=0,4 0 1 4 {/i exch def %i=0,4 y-axis -75 -1600 i 800 mul add moveto 150 0 rlineto stroke 100 -1600 i 800 mul add 100 sub moveto TBS yt10x i get show i 4 eq {%i=4 -100 -1600 i 800 mul add moveto -250 150 rmoveto TBIM (b) show xchartl10 2 eq {-20 0 rmoveto (*) show -100 -20 rmoveto} if TBS pchartl cvicvs ib6 } if %i=4 } for %i=0,4 1300 1600 moveto TBL name show /fakt 8 def %default proc_tab1Nsimple /ix IM def 0 1 ix {/i exch def %i=0,ix xchartl10 0 eq {/Ykor 18 def} if xchartl10 3 eq {/Ykor 18 Lani i get 18 div 0.3333 exp mul def} if AnYi i panui i get Ykor mul fakt mul put %aX, a'X BnYi i pbnui i get Ykor mul fakt mul put %bX, b'X AnYi i get BnYi i get i 0 eq {moveto} if i 1 ge i ix 1 sub le and {lineto} if i ix eq {lineto closepath stroke} if } for %i=0,ix 0 1 ix {/i exch def %i=0,ix 0 1 5 {/k exch def %k=0,5 i Iconw k get eq {/xpos AnYi i get def /ypos BnYi i get def 0 setgray xpos ypos 50 0 360 arc fill Iconr k get Icong k get Iconb k get setrgbcolor xpos ypos 40 0 360 arc fill 0 setgray /angl ypos xpos atan def /xposa 45 sin 100 mul xpos add def /yposa 45 cos 100 mul ypos add def xposa yposa moveto Icotx k get show newpath} if } for %k=0,5 } for %i=0,ix xtrans7 neg ytrans7 neg translate %for scala and graphic } for %iplot=0,1 END Fig down and top } if %xchartl=6 %(a5,b5) %**************************************************************************** xchartl 7 eq {%xchartl=7 %a5=(AX1x+AX2+AX3z)/y, b5=(BX1x+BX2+BX3z)/y %STOP7 %xchartl10 0 def %for Y10G00NA.PS6.PS -> chromaticity coordinates (ai,bi) %xchartl10 1 def %for Y10G00NA.PS6.PS -> chromatic values (Ai,Bi) %xchartl10 2 def %for Y10G00NA.PS6.PS -> chroma (A*i,B*i) %/n0e=1.0000 for (ai,bi) and (Ai,Bi); 0.3333 for (A*i,B*i) %xchartl10 1 le {/n0e 1.0000 def} % {/n0e 0.3333 def} ifelse 0 1 1 {/iplot exch def %iplot=0,1 BEG Fig down and top %************************ %Special coordinate system for (Ax,Bx) digrams*************** %***************** iplot 0 eq {/xchartl10 1 def } %diagram 1:(Ai,Bi), 2:(A*i,B*i) {/xchartl10 2 def } ifelse /xtrans7 3500 def iplot 0 eq {/ytrans7 2000 def} {/ytrans7 6200 def} ifelse xtrans7 ytrans7 translate %for scala and graphic %axis and scales tfn -2250 0 moveto 3950 0 rlineto stroke 0 -1880 moveto 0 3600 rlineto stroke 1700 100 sub 50 moveto 100 -50 rlineto -100 -50 rlineto closepath fill 0 50 sub 1800 100 sub moveto 50 100 rlineto 50 -100 rlineto closepath fill /xt10x 5 array def /yt10x 5 array def /xt10x [(-200) () () () ( 200)] def /yt10x [(-200) (-100) () ( 100) ( 200)] def 0 0 0 1 setcmyk_olvcolor 0 1 4 {/i exch def %i=0,4 x-axis -1600 i 800 mul add -75 moveto 0 150 rlineto stroke -1800 i 800 mul add -250 moveto TBS xt10x i get show i 4 eq {%i=4 -1600 i 800 mul add 0 moveto -100 150 rmoveto TBIM (A) show xchartl10 2 eq {-20 0 rmoveto (*) show -100 -20 rmoveto} if TBS pchartl cvicvs ib6 } if %i=4 } for %i=0,4 0 1 4 {/i exch def %i=0,4 y-axis -75 -1600 i 800 mul add moveto 150 0 rlineto stroke 100 -1600 i 800 mul add 100 sub moveto TBS yt10x i get show i 4 eq {%i=4 -100 -1600 i 800 mul add moveto -250 150 rmoveto TBIM (B) show xchartl10 2 eq {-20 0 rmoveto (*) show -100 -20 rmoveto} if TBS pchartl cvicvs ib6 } if %i=4 } for %i=0,4 1300 1600 moveto TBL name show /fakt 8 def %default proc_tab1Nsimple /ix IM def 0 1 ix {/i exch def %i=0,ix xchartl10 1 eq {%xchartl10=1 AnYi i panui i get Lani i get mul fakt mul put %AX BnYi i pbnui i get Lani i get mul fakt mul put %BX } if %xchartl10=1 xchartl10 2 eq {%xchartl10=2 AnYi i panui i get Lani i get mul Lani i get 18 div 0.3333 exp div fakt mul put %A*X BnYi i pbnui i get Lani i get mul Lani i get 18 div 0.3333 exp div fakt mul put %B*X } if %xchartl10=2 AnYi i get BnYi i get i 0 eq {moveto} if i 1 ge i ix 1 sub le and {lineto} if i ix eq {lineto closepath stroke} if } for %i=0,ix 0 1 ix {/i exch def %i=0,ix 0 1 5 {/k exch def %k=0,5 i Iconw k get eq {/xpos AnYi i get def /ypos BnYi i get def 0 setgray xpos ypos 50 0 360 arc fill Iconr k get Icong k get Iconb k get setrgbcolor xpos ypos 40 0 360 arc fill 0 setgray /angl ypos xpos atan def /xposa 45 sin 100 mul xpos add def /yposa 45 cos 100 mul ypos add def xposa yposa moveto Icotx k get show newpath} if } for %k=0,5 } for %i=0,ix xtrans7 neg ytrans7 neg translate %for scala and graphic } for %iplot=0,1 END Fig down and top } if %xchartl=7 %(a5,b5) %***************************************************************** xchartl 0 eq { 100 neg 13000 neg translate} if xchartl 1 eq { 6100 neg 13000 neg translate} if xchartl 2 eq { 100 neg 08750 neg translate} if xchartl 3 eq { 6100 neg 08750 neg translate} if xchartl 4 eq { 100 neg 4500 neg translate} if xchartl 5 eq { 6100 neg 4500 neg translate} if xchartl 6 eq { 100 neg 0250 neg translate} if xchartl 7 eq { 6100 neg 0250 neg translate} if } for %xchartl=0,7 showpage grestore %} for %xcolorl=0,5 %} for %pchartl=0,4 %} for %output with langind end %%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 DG691-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 (DG691-8,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 080 MM add 008 MM translate %80 MM Breite von TestStreifen 10 /Times-ISOL1 FS 53 MM 1 MM moveto () show 1 1 scale -77 21 MM sub -91 translate %%BeginDocument: Bild 29 Teststreifen Ueberlaenge %line 509 %%EndDocument EndEPSF grestore gsave BeginEPSF -0.0 MM -0.0 MM translate %xy-Verschiebung Rechteckrahmen nach innen% %%BeginDocument: Bild 30 %Rechteckrahmen %line 519 %!PS-Adobe-3.0 EPSF-3.0 Frame arround with Internet text DG02 20070101 %%BoundingBox: 0 0 598 845 %%EndProlog gsave /lanind 1 def /lantex [(G) (E) (S) (N) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanind1 01 def /lanind2 01 def /lanindd 01 def /colorm1 00 def /colorm2 00 def /colormd 01 def /deintp1 00 def /deintp2 00 def /deintpd 01 def /xcolor1 00 def /xcolor2 00 def /xcolord 01 def /xchart1 00 def /xchart2 00 def /xchartd 01 def /pchart1 00 def /pchart2 00 def /pchartd 01 def /colsep1 00 def /colsep2 00 def /colsepd 01 def /pmetam1 00 def /pmetam2 00 def /pmetamd 01 def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} if /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} if /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} if /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} if /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 1 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /xchart5f where {pop /xchart5 xchart5f def} {/xchart5 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} if /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} if /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} if /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % /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 0 def /i*ptrsc 0 def gsave 0 setgray 1.0 1.0 scale 0.0 MM 0.0 MM translate 0.15 MM setlinewidth /x 20 array def /y 20 array def /d 20 array def /x [000 296 296 000 002 294 294 002 005 291 291 005 %speziell 006 290 290 006 008 288 288 008 ] def /y [000 000 210 210 002 002 208 208 005 005 205 205 %speziell 006 006 204 204 008 008 202 202 ] def /d [060 017 -60 -17 058 015 -58 -15 056 013 -56 -13 054 011 -54 -11 052 009 -52 -09 ] def colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart xchart3 lt {/Txx (-) def /Fxx (-) def} if xchart xchart3 ge {%xchart>=xchart3 /i0 12 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def 2.5 MM /Times-ISOL1 FS x i0 get MM 40 MM add y i0 get MM 1 MM sub moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolor cvishow xchart cvishow pchart cvishow colsep cvishow (-F) show pmetam cvishow } if %xchart>=xchart3 /xt 1 def xchart 1 eq {/xt 1 def} if xt 0 eq {%xt=0,1 ifelse /i0 12 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def 2.5 MM /Times-ISOL1 FS x i0 get MM 110 MM add y i0 get MM 1 MM sub moveto (http://130.149.60.45/~farbmetrik/DG69/DG69) show colorm cvishow deintp cvishow colorm 0 eq {(N) show} {(F) show} ifelse (P.PDF & ) show (http://130.149.60.45/~farbmetrik/DG69/DG69) show colorm cvishow deintp cvishow colorm 0 eq {(N) show} {(F) show} ifelse (P.TXT & ) show (http://130.149.60.45/~farbmetrik/DG69/DG69.HTM) show } %xt=0 { %xt=1 /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 %xchart3 0 def %with Munsell colours %xchart3 1 def %with Ostwald colours %xchart3 2 det %without any colour %steered: xchart3 2 def %diagram 0:Munsell colours, 1:Ostwald colours, 2:- %xchart5 0 def %without marc illuminant and text %xchart5 1 def %with marc illuminant %xchart5 2 def %with marc illuminant and text %steered: xchart5 2 def %0:-, 1:illuminant, 2:illuminant and text %xchart6 0 def %without chromaticity_lines %xchart6 1 def %with chromaticity_lines %xchart6 2 def %with chromaticity_lines and names /xchart6 2 def %0:-, 1:chromaticity_lines 2:chromaticity_lines & names %xchart7 0 def %Ostwald colours without Name or Y %xchart7 1 def %Ostwald colours with Name %xchart7 2 def %Ostwald colours with CIE Y /xchart7 2 def %0:-, 1:Name, 2:Y %xchartl with 0 1 2 3 4 5 6 7 %xchart8 0 def %0:Pxx (P60, P55, P50, P45, P40, P35, P30, P25) colours %xchart8 1 def %1:Dxx (D65, D50, P40, A00, E00, C00, P00, Q00) colours /xchart8 0 def %0:Pxx, 1:Dxx colours %xchart9 0 def %for Y10-7R.EPS -> Table XYZ, not used here %xchart9 1 def %for Y10-7R.EPS -> Table CAB, not used here %xchart9 2 def %for Y10-7R.EPS -> Table (a,b), not used here /xchart9 0 def %Table 0:(XYZ), 1:(CAB), 2(ab) %xchart10 0 def %for Y10G00NA.PS6.PS -> chromaticity coordinates (ai,bi) %xchart10 1 def %for Y10G00NA.PS6.PS -> chromatic values (Ai,Bi) %xchart10 2 def %for Y10G00NA.PS6.PS -> chroma (A*i,B*i) /xchart10 0 def %diagram 0:(ai,bi), 1:(Ai,Bi), 2:(A*i,B*i) /TELi 8 array def xchart8 0 eq {%xchart8=0 /TELi [(P60) (P55) (P50) (P45) (P40) (P35) (P30) (P25)] def }%xchart8=0 {%xchart8=1 /TELi [(D65) (D50) (P40) (A00) (E00) (C00) (P00) (Q00)] def } ifelse %xchart8=1 /10TIN {10 /Times-ISOL1 FS} def /10TRN {10 /Times-Roman FS} def /12TIN {12 /Times-ISOL1 FS} def /12TRN {12 /Times-Roman FS} def /10TII {10 /TimesI-ISOL1 FS} def /10TRI {10 /Times-Italic FS} def /12TII {12 /TimesI-ISOL1 FS} def /12TRI {12 /Times-Italic FS} def /10TIB {10 /TimesB-ISOL1 FS} def /10TRB {10 /Times-Bold FS} def /12TIB {12 /TimesB-ISOL1 FS} def /12TRB {12 /Times-Bold FS} def /10TIBI {10 /TimesBI-ISOL1 FS} def /10TRBI {10 /Times-BoldItalic FS} def /12TIBI {12 /TimesBI-ISOL1 FS} def /12TRBI {12 /Times-BoldItalic FS} def %special /10TIN10 {10TIN 0 -3 rmoveto xcolor 1 eq {(10) show} if 0 3 rmoveto} def /10TINi10 {10TIN 0 -3 rmoveto (i) show xcolor 1 eq {(,10) show} if 0 3 rmoveto} def 0 setgray 12TIN 61 MM 14 MM moveto (TUB\255Pr\374fvorlage DG69; ) showde %0DG69X-Y 0000# (TUB\255test chart DG69; ) showen %1DG69X-Y 0000# (gr\341fico TUB\255DG69; ) showes %2DG69X-Y 0000# (TUB\255test graphique DG69; ) showfr %3DG69X-Y 0000# (grafico TUB\255DG69; ) showit %4DG69X-Y 0000# (TUB\255test chart DG69; ) showjp %5DG69X-Y 0000# 12TIN (4 CIE and 2 R17M) showea (4 CIE\255 & 2 R17M) showde 12TIN ( observers, colorimetric calculations ) showea (\255Beobachter, farbmetrische Berechnungen ) showde 12TIN (von Buntwerten) showde (of chromatic values) showea 61 MM 09.5 MM moveto 12TIN (purity definition: ) showea (Farbartdefinition: ) showde pchart 0 eq {(a=2,5[x/y], b=-1,0[z/y]) show} if pchart 1 eq {(a=2,5[(x-0,171)/y], b=-1,0[z/y]) show} if pchart 2 eq {(a=2,8[(x-0,171)/y], b=-1,0[z/y]) show} if pchart 3 eq {(a=1,4[3,0757x-2,5702y-0,0960]/y, ) show (b=0,5[1,9906x+3,8617y-2,4046]/y]) show} if pchart 4 eq {(a=1,4[5,645x-2.666+2.570z]/y, ) show (b=0,5[-1,871x+1,457-3,861z]/y) show} if /iout 0 def iout 1 eq {%iout=1 180 MM 14 MM moveto (Eingabe: ) showde %0DG69X-Y 0500# (input: ) showen %1DG69X-Y 0500# (entrada: ) showes %2DG69X-Y 0500# (entr\351e: ) showfr %3DG69X-Y 0500# (immettere: ) showit %4DG69X-Y 0500# (input: ) showjp %5DG69X-Y 0500# 12TII (w/rgb/cmyk -> rgb) show xchart xchart3 lt {(w/rgb/cmyk) show } if xchart xchart3 ge {%xchart>=xchart3 (rgb) show } if %xchart>=xchart3 10TIN 0 -2 rmoveto Txx show 0 2 rmoveto 12TIN 12TIN 165 MM 9 MM moveto (Ausgabe: ) showde %0DG69X-Y 0600# (output: ) showen %1DG69X-Y 0600# (salida: ) showes %2DG69X-Y 0600# (sortie: ) showfr %3DG69X-Y 0600# (uscita: ) showit %4DG69X-Y 0600# (output: ) showjp %5DG69X-Y 0600# %colorm=0,1! xchart xchart3 lt {%xchart=xchart3 12TIN (keine \304nderung) showde %0DG69X-Y 0700# (no change) showen %1DG69X-Y 0700# (ning\372n cambio) showes %2DG69X-Y 0700# (aucun changement) showfr %3DG69X-Y 0700# (nessun cambiamento) showit %4DG69X-Y 0700# (no change compared) showjp %5DG69X-Y 0700# }%xchart=xchart3 12TIN colorm 0 eq {%colorm=0 (Transfer nach ) showde %0DG69X-Y 0800# (transfer to ) showen %1DG69X-Y 0800# (transfiera a ) showes %2DG69X-Y 0800# (transf\351rer \340 ) showfr %3DG69X-Y 0800# (trasferire a ) showit %4DG69X-Y 0800# (transfer to ) showjp %5DG69X-Y 0800# }%colorm=0 {%colorm=1 (3D\255Linearisierung ) showde %0DG69X-Y 0900# (3D\255linearization to ) showen %1DG69X-Y 0900# (3D\255linealizaci\363n a ) showes %2DG69X-Y 0900# (linearisation 3D selon ) showfr %3DG69X-Y 0900# (3D\255linearizzazione a ) showit %4DG69X-Y 0900# (3D\255linearization to ) showjp %5DG69X-Y 0900# } ifelse %colorm=1 12TII xchart5f 0 eq {(rgb) show} if xchart5f 1 eq {(cmyk) show} if xchart5f 2 eq {(cmy0) show} if xchart5f 3 eq {(cmyk) show} if colorm 1 eq {(*) show} if 10TIN 0 -2 rmoveto Txx show 0 2 rmoveto 12TIN } ifelse %xchart=xchart3 } if %iout=1 %0 setgray %end white and unvisible 62 MM 198.5 MM moveto 12TRN (http://farbe.li.tu-berlin.de/DG69/DG69) show 12TIN (L0) show LSC$ show LEX$ show iout 1 eq {%iout=1 %1 setgray %start white and unvisible (; ) show xchart xchart3 lt { (Start\255Ausgabe) showde %0DG69X-Y 1000# (start output) showen %1DG69X-Y 1000# (comience salida) showes %2DG69X-Y 1000# (sortie de production) showfr %3DG69X-Y 1000# (cominciare l'uscita) showit %4DG69X-Y 1000# (start output) showjp %5DG69X-Y 1000# } if LSC$ (C) eq { (Start\255Ausgabe) showde %0DG69X-Y 1100# (start output) showen %1DG69X-Y 1100# (comience salida) showes %2DG69X-Y 1100# (sortie de production) showfr %3DG69X-Y 1100# (cominciare l'uscita) showit %4DG69X-Y 1100# (start output) showjp %5DG69X-Y 1100# } if xchart xchart3 ge {%xchart>=xchart3 colorm 0 eq {%colorm=0,1 (Transfer Ausgabe) showde %0DG69X-Y 1200# (transfer output) showen %1DG69X-Y 1200# (salida de transferencia) showes %2DG69X-Y 1200# (sortie de transfert) showfr %3DG69X-Y 1200# (uscita di trasferimento) showit %4DG69X-Y 1200# (transfer output) showjp %5DG69X-Y 1200# }%colorm=0 {%colorm=1 (3D\255Linearisierung) showde %0DG69X-Y 1300# (3D\255linearization) showen %1DG69X-Y 1300# (3D\255linealizaci\363n) showes %2DG69X-Y 1300# (linearisation 3D) showfr %3DG69X-Y 1300# (3D\255linearizzzazione) showit %4DG69X-Y 1300# (3D\255linearization) showjp %5DG69X-Y 1300# } ifelse %colorm=0,1 } if %xchart>=xchart3 } if %iout=1 62 MM 194 MM moveto 12TIN LSC$ (N) eq LSC$ (C) eq or { (N: Keine 3D\255Linearisierung (OL) ) showde %0DG69X-Y 1400# (N: no 3D\255linearization (OL) ) showen %1DG69X-Y 1400# (N: ninguna 3D\255linealizaci\363n (OL) ) showes %2DG69X-Y 1400# (N: aucun linearisation 3D (OL) ) showfr %3DG69X-Y 1400# (N: nessun 3D\255linearizzazione (OL) ) showit %4DG69X-Y 1400# (N: no 3D\255linearization (OL) ) showjp %5DG69X-Y 1400# (in Datei (F) oder PS\255Startup (S)) showde %0DG69X-Y 1500# (in file (F) or PS\255startup (S)) showen %1DG69X-Y 1500# (en archivo (F) o PS\255startup (S)) showes %2DG69X-Y 1500# (dans fichier (F) ou PS\255startup (S)) showfr %3DG69X-Y 1500# (nel file (F) o PS\255startup (S)) showit %4DG69X-Y 1500# (in file (F) or PS\255startup (S)) showjp %5DG69X-Y 1500# } {LSC$ show (: ) show (3D\255Linearisierung) showde %0DG69X-Y 1600# (3D\255linearization) showen %1DG69X-Y 1600# (3D\255linealizaci\363n) showes %2DG69X-Y 1600# (linearisation 3D) showfr %3DG69X-Y 1600# (3D\255linearizzzazione) showit %4DG69X-Y 1600# (3D\255linearization) showjp %5DG69X-Y 1600# ( DG69/DG69L) show LSS$ show LSX$ show (0) show LSC$ show LEY$ show } ifelse LSC$ (F) eq { ( in Datei (F)) showde %0DG69X-Y 1700# ( in file (F)) showen %1DG69X-Y 1700# ( en archivo (F)) showes %2DG69X-Y 1700# ( dans fichier (F)) showfr %3DG69X-Y 1700# ( nel file (F)) showit %4DG69X-Y 1700# ( in file (F)) showjp %5DG69X-Y 1700# } if LSC$ (S) eq { ( im Distiller Startup (S) Directory) showde %0DG69X-Y 1800# ( in Distiller Startup (S) Directory) showen %1DG69X-Y 1800# ( en el Distiller Startup (S) Directory) showes %2DG69X-Y 1800# ( dans le Distiller Startup (S) Directory) showfr %3DG69X-Y 1800# ( nel Distiller Startup (S) Directory) showit %4DG69X-Y 1800# ( in Distiller Startup (S) Directory) showjp %5DG69X-Y 1800# } if LSC$ (D) eq { ( in PS\255Device (D)) showde %0DG69X-Y 1900# ( in PS\255device (D)) showen %1DG69X-Y 1900# ( en el PS\255device (D)) showes %2DG69X-Y 1900# ( dans l'appareil PS (D)) showfr %3DG69X-Y 1900# ( nel PS\255dispositivo (D)) showit %4DG69X-Y 1900# ( in PS\255Device (D)) showjp %5DG69X-Y 1900# } if LSC$ (T) eq { ( im Distiller Startup (S) Directory) showde %0DG69X-Y 2000# ( in Distiller Startup (S) Directory) showen %1DG69X-Y 2000# ( en el Distiller Startup (S) Directory) showes %2DG69X-Y 2000# ( dans le Distiller Startup (S) Directory) showfr %3DG69X-Y 2000# ( nel Distiller Startup (S) Directory) showit %4DG69X-Y 2000# ( in Distiller Startup (S) Directory) showjp %5DG69X-Y 2000# } if LSC$ (E) eq { ( in PS\255Device (D)) showde %0DG69X-Y 2100# ( in PS\255device (D)) showen %1DG69X-Y 2100# ( en el PS\255device (D)) showes %2DG69X-Y 2100# ( dans appareil PS (D)) showfr %3DG69X-Y 2100# ( nel PS\255dispositivo (D)) showit %4DG69X-Y 2100# ( in PS\255Device (D)) showjp %5DG69X-Y 2100# } if %0 setgray %end white and unvisible (, Seite ) showde %0DG69X-Y 2200# (, page ) showen %1DG69X-Y 2200# (, p\341gina ) showes %2DG69X-Y 2200# (, page ) showfr %3DG69X-Y 2200# (, pagina ) showit %4DG69X-Y 2200# (, page ) showjp %5DG69X-Y 2200# xcolor 1 add cvishow (/) show pchartm xcolorm mul cvishow 16 MM 185 MM moveto 12TIN -90 rotate (Siehe \344hnliche Dateien: ) showde %0DG69X-Y 2300# (see similar files: ) showen %1DG69X-Y 2300# (vea archivos semejantes: ) showes %2DG69X-Y 2300# (voir des fichiers similaires: ) showfr %3DG69X-Y 2300# (vedere dei file simili: ) showit %4DG69X-Y 2300# (see similar files: ) showjp %5DG69X-Y 2300# 12TRN (http://farbe.li.tu-berlin.de/DG69/DG69.HTM) show 12TIN %(0) show %LSC$ show LEX$ show 90 rotate 12 MM 185 MM moveto 12TIN -90 rotate (Technische Information: ) showde %0DG69X-Y 2400# (technical information: ) showen %1DG69X-Y 2400# (informaci\363n t\351cnica: ) showes %2DG69X-Y 2400# (informations techniques: ) showfr %3DG69X-Y 2400# (informazioni tecniche: ) showit %4DG69X-Y 2400# (technical information: ) showjp %5DG69X-Y 2400# 12TRN (http://farbe.li.tu-berlin.de) show 12TIN ( oder ) showde %0DG69X-Y 2500# ( or ) showen %1DG69X-Y 2500# ( o ) showes %2DG69X-Y 2500# ( ou ) showfr %3DG69X-Y 2500# ( o ) showit %4DG69X-Y 2500# ( or ) showjp %5DG69X-Y 2500# 12TRN (http://130.149.60.45/~farbmetrik) show 12TIN 90 rotate 281 MM 185 MM moveto 12TIN -90 rotate (TUB\255Registrierung: 20180801\255DG69/DG69L) showde %0DG69X-Y 2600# (TUB registration: 20180801\255DG69/DG69L) showen %1DG69X-Y 2600# (TUB matr\355cula: 20180801\255DG69/DG69L) showes %2DG69X-Y 2600# (TUB enregistrement: 20180801\255DG69/DG69L) showfr %3DG69X-Y 2600# (TUB iscrizione: 20180801\255DG69/DG69L) showit %4DG69X-Y 2600# (TUB registration: 20180801\255DG69/DG69L) showjp %5DG69X-Y 2600# (0) show LSC$ show LEX$ show 90 rotate 281 MM 74 MM moveto 12TIN -90 rotate (TUB\255Material: Code=rha4ta) showde %0DG69X-Y 2700# (TUB material: code=rha4ta) showen %1DG69X-Y 2700# (TUB material: code=rha4ta) showes %2DG69X-Y 2700# (TUB mat\351riel: code=rha4ta) showfr %3DG69X-Y 2700# (TUB materiale: code=rha4ta) showit %4DG69X-Y 2700# (TUB material: code=rha4ta) showjp %5DG69X-Y 2700# 90 rotate 277 MM 185 MM moveto 12TIN -90 rotate ( Anwendung f\374r Messung ) showde %0DG69X-Y 2800# ( application for measurement ) showen %1DG69X-Y 2800# ( aplicaci\363n para la medida ) showes %2DG69X-Y 2800# ( application pour la mesure ) showfr %3DG69X-Y 2800# ( la domanda per la misura ) showit %4DG69X-Y 2800# ( application for measurement ) showjp %5DG69X-Y 2800# xchart5f 0 eq {%xchart5f=0 (von Display-Ausgabe) showde %0DG69X-Y 2900# (of display output) showen %1DG69X-Y 2900# (de display output) showes %2DG69X-Y 2900# (de sortie sur \350cran) showfr %3DG69X-Y 2900# (di stampa di display) showit %4DG69X-Y 2900# (of display output) showjp %5DG69X-Y 2900# } if %xchart5f=0 xchart5f 1 eq xchart5f 2 eq or {%xchart5f=1,2 (von Offsetdruck\255Ausgabe) showde %0DG69X-Y 3000# (of offset print output) showen %1DG69X-Y 3000# (salida en la impressi\363n offset) showes %2DG69X-Y 3000# (des sorties sur offset) showfr %3DG69X-Y 3000# (uscita nella stampa di offset) showit %4DG69X-Y 3000# (of offset print output) showjp %5DG69X-Y 3000# } if %xchart5f=1,2 xchart5f 3 eq {%xchart5f=3 (von Laserdrucker\255Ausgabe) showde %0DG69X-Y 3100# (of laser printer output) showen %1DG69X-Y 3100# (salida de impresora l\341ser) showes %2DG69X-Y 3100# (des sorties sur imprimante laser) showfr %3DG69X-Y 3100# (di uscita della stampante laser) showit %4DG69X-Y 3100# (of laser printer output) showjp %5DG69X-Y 3100# } if %xchart5f=3 iout 1 eq {%iout=1 xchart xchart3 ge {%xchart>=xchart3 xchart5f 0 eq {%xchart5f=0 (, keine Separation) showde %0DG69X-Y 3200# (, no separation) showen %1DG69X-Y 3200# (, ninguna separaci\363n) showes %2DG69X-Y 3200# (, aucune s\351paration) showfr %3DG69X-Y 3200# (, nessuna separazione) showit %4DG69X-Y 3200# (, no separation) showjp %5DG69X-Y 3200# } if %chart5f=0 xchart5f 1 ge {%xchart5f>=1 (, Separation) showde %0DG69X-Y 3300# (, separation) showen %1DG69X-Y 3300# (, separaci\363n) showes %2DG69X-Y 3300# (, s\351paration) showfr %3DG69X-Y 3300# (, separazione) showit %4DG69X-Y 3300# (, separation) showjp %5DG69X-Y 3300# xchart5f 1 eq xchart5f 3 eq or {(cmyn6) show} if xchart5f 2 eq {(cmy0) show} if colorm 1 eq {(*) show} if colsep 0 eq {( (CMYK))}{( (CMY0))} ifelse show } if %xchart5f>=1 } if %xchart>=xchart3 } if %iout=1 IMES 1 eq LSC$ (N) ne and { %IMES=1 (, Yr=) show Yre cvsshow1 (, XYZ) show } if %IMES=1 90 rotate /i0 8 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def 0.30 MM setlinewidth 0 setgray x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto x i0 get MM y i0 get MM lineto stroke %/xlu1 013 MM def /ylu1 010 MM def %/xro1 283 MM def /yro1 200 MM def %/xlo1 013 MM def /ylo1 200 MM def %/xru1 283 MM def /yru1 010 MM def %xlu1 4 MM sub ylu1 moveto 8 MM 0 rlineto stroke %xlu1 ylu1 4 MM sub moveto 0 8 MM rlineto stroke %xro1 4 MM add yro1 moveto -8 MM 0 rlineto stroke %xro1 yro1 4 MM add moveto 0 -8 MM rlineto stroke %xru1 4 MM sub yru1 moveto 8 MM 0 rlineto stroke %xru1 yru1 4 MM sub moveto 0 8 MM rlineto stroke %xlo1 4 MM add ylo1 moveto -8 MM 0 rlineto stroke %xlo1 ylo1 4 MM add moveto 0 -8 MM rlineto stroke } ifelse %xt=1 grestore gsave %********************************************************** %%Trailer %%EndDocument EndEPSF grestore gsave showpage grestore %} for %colsepf=0,1 %} for %xchartf=0,7 } for %xcolorf=0,5 } for %pchartf=0,0 %} for %deintpf=0,1 %} for %colormf=0,1 %} for %lanindf=0,0 %%Trailer