%!PS-Adobe-3.0 EPSF-3.0 ME17L0NX.PS 20101101 %%BoundingBox: 00 00 414 292 /pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put } if [ /Title (PDF/PS pictures: http://130.149.60.445/~farbmetrik/ME17/ME17.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.445/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2010110112000) /ModDate (D:2010110112000) /DOCINFO pdfmark [ /View [ /Fit ] /DOCVIEW pdfmark %BEG ME17/OUTLIN10.PS Output Linearization (OL) 20101101 %IDENTICAL TO ME17/OUTLIN11.PS %Early Binding: needed for colour transfer /sgcmykcolor {setcmykcolor} bind def /sggray {setgray} bind def /sgrgbcolor {setrgbcolor} bind def %FILE PREPARED FOR MIXED MODE, e. g. input ORS18 and output TLS00 /IMES 0 def %0=LAB* used, no reflection factor necessary %/IMES 1 def /Yre 2.52 def %1=XYZ measurement and standard device reflection %/i*ptrsc 0 def %LAB* setcolor to cmy0* / 000n* setcmykcolor /i*ptrsc 1 def %LAB* setcolor to olv* setrgbcolor / w* setgray %/i*ptrsc 2 def %LAB* setcolor to cmy0* / nnn0* setcmykcolor %/i*ptrsc 3 def %LAB* setcolor to olv* / www* setrgbcolor %/i*ptrsc 4 def %LAB* setcolor to lab* setcolor %/i*ptrsc 5 def %LAB* setcolor to LAB* setcolor %/i*ptrsc 6 def %LAB* setcolor to 000n* setcmykcolor %/i*ptrsc 7 def %LAB* setcolor to w* setgray /ISIN*ioG 0 def %default input for Offset Reflective System (ORS18) /ISOU*ioG 0 def %default output dto. %/ISIN*ioG 1 def %input for Television Luminous System (TLS00) %/ISOU*ioG 1 def %output dto. %/ISIN*ioG 2 def %input for Device Reflective measurement system (FRS06) %/ISOU*ioG 2 def %output dto. %/ISIN*ioG 3 def %input for Television Luminous Reflection System (TLS18) %/ISOU*ioG 3 def %output dto. %/ISIN*ioG 4 def %input for Natural Luminous System (NLS00) %/ISOU*ioG 4 def %output dto. %/ISIN*ioG 5 def %input for Natural Reflective System (NRS18) %/ISOU*ioG 5 def %output dto. %/ISIN*ioG 6 def %input for Standard Reflective System (SRS18) %/ISOU*ioG 6 def %output dto. %/ISIN*ioG 7 def %input for Standard Reflective System (TLS70) %/ISOU*ioG 7 def %output dto. /iLAB 0 def /ISIO*ioG 0 def /ISRL*ioG 0 def % for io-System, only once /auszg 8 def /halfg 0 def /ausz 8 def /half 0 def /VisTol*ioG 1.00 def %END ME17/OUTLIN10.PS Output Linearization (OL) 20090901 %BEG ME17/OUTLIN1X.PS Emty 20101101 %END ME17/OUTLIN1X.PS Emty 20101101 %1 %2 %3 %4 %5 %change scount2g from 2 to 10 for 10 series %change pcount2g from 8 to 240 for 240 pages of each series /scount1g 1 def /scount2g 1 def /scountg 1 def /pcount1g 1 def /pcount2g 1 def /pcountg 1 def /xchart1g 0 def /xchart2g 1 def /xchartg 0 def /BeginEPSF { % def % Prepare for EPS file /b4_Inc_state save def % Save state for cleanup /dict_count countdictstack def /op_count count 1 sub def % Count objects on op stack userdict begin % Make userdict current dict /showpage {} def 0 setgray 0 setlinecap 1 setlinewidth 0 setlinejoin 10 setmiterlimit [] 0 setdash newpath /languagelevel where % If level not equal to 1 then {pop languagelevel where % If level not equal to 1 then 1 ne {false setstrokeadjust false setoverprint } if } if } bind def /EndEPSF { % def count op_count sub {pop} repeat countdictstack dict_count sub {end} repeat % Clean up dict stack b4_Inc_state restore } bind def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /CBKK {200 /CourierB-ISOL1 FS} bind def /CBK {250 /CourierB-ISOL1 FS} bind def /CBM {300 /CourierB-ISOL1 FS} bind def /CBG {350 /CourierB-ISOL1 FS} bind def %ANFA CMYKDEF %CMYKDEA0 (A0=Standard-Drucker-CMYKDEF) 15.3.97 /tzac [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzam [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzay [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzan [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tza0 [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000] def /tza1 [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000] def %ENDE CMYKD /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfiLAB* %x y width heigth LAB* { setcolor rec fill} bind def /colrecstLAB* %x y width heigth LAB* { setcolor rec stroke} bind def /colrecficmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec fill} bind def /colrecstcmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec stroke} bind def /colrecfiw* %x y width heigth w* { setgray rec fill} bind def /colrecstw* %x y width heigth w* { setgray rec stroke} bind def /colrecfiolv* %x y width heigth olv* { setrgbcolor rec fill} bind def /colrecstolv* %x y width heigth olv* { setrgbcolor rec stroke} bind def /tzocmy0* {0.0 1.0 1.0 0.0} bind def %Reproduction colours /tzlcmy0* {1.0 0.0 1.0 0.0} bind def %cmyn* setcmykcolor /tzvcmy0* {1.0 1.0 0.0 0.0} bind def /tzccmy0* {1.0 0.0 0.0 0.0} bind def /tzmcmy0* {0.0 1.0 0.0 0.0} bind def /tzycmy0* {0.0 0.0 1.0 0.0} bind def /tzoolv* {1.0 0.0 0.0} bind def %Reproduction colours /tzlolv* {0.0 1.0 0.0} bind def %olv* setrgbcolor /tzvolv* {0.0 0.0 1.0} bind def /tzcolv* {0.0 1.0 1.0} bind def /tzmolv* {1.0 0.0 1.0} bind def /tzyolv* {1.0 1.0 0.0} bind def /tzoLAB* [53.34 72.46 50.66] def %Reproduction colours /tzlLAB* [84.93 -79.83 74.80] def %LAB* setcolor /tzvLAB* [32.20 24.88 -37.89] def /tzcLAB* [88.10 -44.88 -13.36] def /tzmLAB* [59.66 90.32 -19.65] def /tzyLAB* [93.76 -20.24 85.93] def /tzncmy0* {1.00 1.00 1.00 0.00} bind def %grey series /tzdcmy0* {0.75 0.75 0.75 0.00} bind def %cmy0* setcmykcolor /tzzcmy0* {0.50 0.50 0.50 0.00} bind def /tzhcmy0* {0.25 0.25 0.25 0.00} bind def /tzwcmy0* {0.00 0.00 0.00 0.00} bind def /tzn000n* {0.00 0.00 0.00 1.00} bind def %grey series 000n* /tzd000n* {0.00 0.00 0.00 0.75} bind def %000n* setcmykcolor /tzz000n* {0.00 0.00 0.00 0.50} bind def /tzh000n* {0.00 0.00 0.00 0.25} bind def /tzw000n* {0.00 0.00 0.00 0.00} bind def /tznw* {0.00} bind def %grey series /tzdw* {0.25} bind def %w* setgray /tzzw* {0.50} bind def /tzhw* {0.75} bind def /tzww* {1.00} bind def /tznolv* {0.00 0.00 0.00} bind def %grey series /tzdolv* {0.25 0.25 0.25} bind def %olv* setrgbcolor /tzzolv* {0.50 0.50 0.50} bind def /tzholv* {0.75 0.75 0.75} bind def /tzwolv* {1.00 1.00 1.00} bind def /tznLAB* [18.01 0.00 0.00] def %grey series /tzdLAB* [37.36 0.00 0.00] def %LAB* setcolor /tzzLAB* [56.71 0.00 0.00] def /tzhLAB* [76.06 0.00 0.00] def /tzwLAB* [95.41 0.00 0.00] def /tfn {0 setgray} bind def /tfw {1 setgray} bind def /A4quer {598 0 translate 90 rotate} def %0 %1 /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def /tzank [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def %BEG 61 lines comment or new PS operators possible %1 %2 %3 %4 %5 %6 %7 %8 %%EndProlog %%BeginPageSetup /#copies 1 def %A4quer 0.5 0.5 scale /pgsave save def %%EndPageSetup 0.0 MM 0.0 MM translate %Verschiebung nach oben und links fuer Belichter gsave /SS$ [(G) (E) (S) (F) (I) (J) (M)] def /SC$ [(N) (F) (S) (D) (T) (E) (C)] def /SX$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)%max 32 (G) (H) (I) (J) (K) (L) (M) (N) (O) (P) (Q) (R) (S) (T) (U) (V)] def /SY$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)%max 32 (G) (H) (I) (J) (K) (L) (M) (N) (O) (P) (Q) (R) (S) (T) (U) (V)] def % 0 1 2 3 4 5 % 6 7 8 /EX$ [(1.TXT /.PS) (B.BMP /.PS) (G.GIF /.PS) (H.HTM /.PS) (I.HTM /.PS) (J.JPE /.PS) (P.PDF /.PS) (T.TIF /.PS)] def /EY$ [(1.DAT) (B.DAT) (G.DAT) (H.DAT) (I.DAT) (J.DAT) (P.DAT) (T.DAT)] def /lanindg1 1 def /lanindg2 1 def /colormg1 0 def /colormg2 0 def /xcolorg1 0 def /xcolorg2 0 def /xchartg1 0 def /xchartg2 0 def /lanindg lanindg1 def %no loops /colormg colormg1 def /xcolorg xcolorg1 def /xchartg xchartg1 def /pcount2x pcount2g xchart2g sub 2 add def %scount1g 1 scount2g {/scountg exch def %s=serie, e. g. 1,1,10 %1 1 1 {/pcountg exch def %p=page, e. g. 1,1,250 /xchart10 0 def /xchart20 0 def %pcountg pcount1g eq {/xchart10 0 def /xchart20 0 def} % {/xchart10 1 def /xchart20 1 def} ifelse %%pcountg pcount2x eq {/xchart10 2 def /xchart20 9 def} if /xchartg 0 def %xchart10 1 xchart20 {/xchartg exch def /ausz 8 def /colorm colormg def /xchart xchartg def /xchartg0 0 def %needs Definition of xcharti, is only in OUTLIN1X.PS colorm 1 eq {proc_ColTra*ioG} if %proc_ColTra*ioL only in Y10-7! %2 MM /Times-Roman FS %274 MM 82 MM moveto -90 rotate (/ME17/ ) show (Form: ) show %xchartg 1 add cvi 6 string cvs show (/) show %xchart2g 1 add cvi 6 string cvs show (,) show 90 rotate %274 MM 65 MM moveto -90 rotate (Serie: ) show %scountg cvi 6 string cvs show (/) show %scount2g cvi 6 string cvs show (,) show 90 rotate %274 MM 55 MM moveto -90 rotate %lanindg 0 eq {(Seite: )}{(Page: )} ifelse show %pcountg xchartg xchart10 sub add cvi 6 string cvs show 90 rotate %274 MM 45 MM moveto %-90 rotate %lanindg 0 eq {(Seitenz\344hlung )}{(Page: count: )} ifelse show %scountg 1 sub pcount2g mul pcountg add %pcountg pcount2x eq {xchartg add pcount1g pcount2x ne {2 sub } if} if %cvi 6 string cvs show %90 rotate /GSS$ SS$ lanindg get def /GSC$ SC$ colormg get def /GSX$ SX$ xcolorg xcolorg 16 idiv 16 mul sub get def /GSY$ SY$ xchartg xchartg 16 idiv 16 mul sub get def %special /GEX$ EX$ 0 get def /GEY$ EY$ 0 get def %gsave BeginEPSF 28 MM 197 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto 1 1 scale -77 -91 translate %%BeginDocument: Bild 10 %line 329 %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto 1 1 scale -77 -91 translate %%BeginDocument: Bild 11 %line 339 %!PS-Adobe-3.0 EPSF-3.0 ME170-1N %%BoundingBox: 70 83 226 206 %%old BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark01 where {pop} {userdict /pdfmark01 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/ME17/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.richter@me.com) /CreationDate (D:2010110112000) /ModDate (D:2010110112000) /DOCINFO pdfmark01 [ /View [ /FitB ] /DOCVIEW pdfmark01 %END PDFDE011 /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 /str {8 string } bind def /TKS {150 16.67 div /Times-ISOL1 FS} bind def /TKK {200 16.67 div /Times-ISOL1 FS} bind def /TK1 {230 16.67 div /Times-ISOL1 FS} bind def /TK {250 16.67 div /Times-ISOL1 FS} bind def /TM {300 16.67 div /Times-ISOL1 FS} bind def /TG {350 16.67 div /Times-ISOL1 FS} bind def /TIKS {150 16.67 div /TimesI-ISOL1 FS} bind def /TIKK {200 16.67 div /TimesI-ISOL1 FS} bind def /TIK1 {230 16.67 div /TimesI-ISOL1 FS} bind def /TIK {250 16.67 div /TimesI-ISOL1 FS} bind def /TIM {300 16.67 div /TimesI-ISOL1 FS} bind def /TIG {350 16.67 div /TimesI-ISOL1 FS} bind def /TBKS {150 16.67 div /TimesB-ISOL1 FS} bind def /TBKK {200 16.67 div /TimesB-ISOL1 FS} bind def /TBK1 {230 16.67 div /TimesB-ISOL1 FS} bind def /TBK {250 16.67 div /TimesB-ISOL1 FS} bind def /TBM {300 16.67 div /TimesB-ISOL1 FS} bind def /TBG {335 16.67 div /TimesB-ISOL1 FS} bind def /TBIKS {150 16.67 div /TimesBI-ISOL1 FS} bind def /TBIKK {200 16.67 div /TimesBI-ISOL1 FS} bind def /TBIK1 {230 16.67 div /TimesBI-ISOL1 FS} bind def /TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def /TBIM {300 16.67 div /TimesBI-ISOL1 FS} bind def /TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def /SKS {200 16.67 div 1 sub /Symbol FS} bind def /SKK {200 16.67 div 1 sub /Symbol FS} bind def /SK {250 16.67 div 1 sub /Symbol FS} bind def /SM {300 16.67 div 1 sub /Symbol FS} bind def /SG {350 16.67 div 1 sub /Symbol FS} bind def /tolvfcol %Farbkreis-Reihenfolge [ (000) (F00) (FF0) (0F0) (0FF) (00F) (F0F) (FFF) (777) (700) (770) (070) (077) (007) (707) (F07) %15=R (333) (F77) (FF7) (7F7) (7FF) (77F) (F7F) (07F) %23=B (BBB) (F70) (7F0) (0F7) (07F) (70F) (F07) (0F7) %31=G ] def /tcmyfcol %Farbkreis-Reihenfolge [ (FFF) (0FF) (00F) (F0F) (F00) (FF0) (0F0) (000) (888) (8FF) (88F) (F8F) (F88) (FF8) (8F8) (0F8) %15=R (CCC) (088) (008) (808) (800) (880) (080) (F80) %23=B (444) (08F) (80F) (F08) (F80) (8F0) (0F8) (F08) %31=G ] def /tcmykfcol %Farbkreis-Reihenfolge [ (000F) (0FF0) (00F0) (F0F0) (F000) (FF00) (0F00) (0000) (0008) (0FF8) (00F8) (F0F8) (F008) (FF08) (0F08) (0F80) %15=R (000C) (0880) (0080) (8080) (8000) (8800) (0800) (F800) %23=B (0004) (0F80) (80F0) (F080) (F800) (8F00) (0F80) (F080) %31=G ] def /tolvfcols %Farbkreis-Reihenfolge [ (000*) (F00*) (FF0*) (0F0*) (0FF*) (00F*) (F0F*) (FFF*) (777*) (700*) (770*) (070*) (077*) (007*) (707*) (F07*) %15=R (333*) (F77*) (FF7*) (7F7*) (7FF*) (77F*) (F7F*) (07F*) %23=B (BBB*) (F70*) (7F0*) (0F7*) (07F*) (70F*) (F07*) (0F7*) %31=G ] def /tcmyfcols %Farbkreis-Reihenfolge [ (FFF*) (0FF*) (00F*) (F0F*) (F00*) (FF0*) (0F0*) (000*) (888*) (8FF*) (88F*) (F8F*) (F88*) (FF8*) (8F8*) (0F8*) %15=R (CCC*) (088*) (008*) (808*) (800*) (880*) (080*) (F80*) %23=B (444*) (08F*) (80F*) (F08*) (F80*) (8F0*) (0F8*) (F08*) %31=G ] def /tcmykfcols %Farbkreis-Reihenfolge [ (000F*) (0FF0*) (00F0*) (F0F0*) (F000*) (FF00*) (0F00*) (0000*) (0008*) (0FF8*) (00F8*) (F0F8*) (F008*) (FF08*) (0F08*) (0F80*) %15=R (000C*) (0880*) (0080*) (8080*) (8000*) (8800*) (0800*) (F800*) %23=B (0004*) (0F80*) (80F0*) (F080*) (F800*) (8F00*) (0F80*) (F080*) %31=G ] def /fcolors %CMYN 32 Testfarben Nr. 0 bis 31; Farbkreis-Reihenfolge [{0.0 0.0 0.0 1.0} {0.0 1.0 1.0 0.0} {0.0 0.0 1.0 0.0} {1.0 0.0 1.0 0.0} {1.0 0.0 0.0 0.0} {1.0 1.0 0.0 0.0} {0.0 1.0 0.0 0.0} {0.0 0.0 0.0 0.0} {0.0 0.0 0.0 0.5} {0.0 1.0 1.0 0.5} {0.0 0.0 1.0 0.5} {1.0 0.0 1.0 0.5} {1.0 0.0 0.0 0.5} {1.0 1.0 0.0 0.5} {0.0 1.0 0.0 0.5} {0.0 1.0 0.5 0.0} {0.0 0.0 0.0 0.75} {0.0 0.5 0.5 0.0} {0.0 0.0 0.5 0.0} {0.5 0.0 0.5 0.0} {0.5 0.0 0.0 0.0} {0.5 0.5 0.0 0.0} {0.0 0.5 0.0 0.0} {1.0 0.5 0.0 0.0} {0.0 0.0 0.0 0.25} {0.0 0.5 1.0 0.0} {0.5 0.0 1.0 0.0} {1.0 0.0 0.5 0.0} {1.0 0.5 0.0 0.0} {0.5 1.0 0.0 0.0} {0.0 1.0 0.5 0.0} {1.0 0.0 0.5 0.0} ] def /fak 0.5 def /Far %Farbkreis-Reihenfolge [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %R 16 17 18 19 20 21 22 23 %B 24 25 26 27 28 29 30 31 %G ] def /cFar %Kompensativ-Farbkreis-Reihenfolge [ 8 4 5 6 1 2 3 0 0 20 21 22 17 18 19 31 %G 24 12 13 14 9 10 11 2 %J 16 28 29 30 25 26 27 15 %R ] def /Btx %Farbkreis- -> %Btx-Reihenfolge [ 0 1 3 2 5 6 4 7 8 9 11 10 13 14 12 15 %R 16 17 19 18 21 22 20 23 %B 24 25 26 27 28 29 30 31 %G ] def /cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge [ 7 4 6 5 2 3 1 0 8 20 22 21 18 19 17 31 %G 24 12 14 13 10 11 9 2 %J 16 25 26 27 28 29 30 15 %R ] 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 /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %ANFA OUTLIN00 951204 /pixf 1.0 def /ueg 1 pixf mul def /uek 1 pixf mul def /ues 1 pixf mul def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /pss ues def /outxshowf {show} bind def /outxshow {show} bind def /outSK {250 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSM {300 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSG {350 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outshowf {setcmykcolor show} bind def /outrecfi { %x y width heigth c m y k setcmykcolor rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmykcolor lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmykcolor stroke} bind def /cvishow {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def /cvsshow1 {dup 0 ge {0.05 add} {0.05 sub} ifelse 10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {dup 0 ge {0.005 add} {0.005 sub} ifelse 100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {dup 0 ge {0.0005 add} {0.0005 sub} ifelse 1000 mul cvi 0.001 mul 7 string cvs show} def %%EndProlog gsave %LANINDL2 START 20000505 /lanind 0 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 {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /xcolorg where {pop /xcolor xcolorg def} {/xcolor 0 def} ifelse /xchartg where {pop /xchart xchartg def} {/xchart 0 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave 72 90 translate /pixf 1.0 def 0.1667 pixf div MM dup scale /FMM 16.67 def 20 FMM div setlinewidth /xchartl 2 def 20 FMM div setlinewidth 0 setgray 150 FMM div /Times-ISOL1 FS 4300 FMM div -150 FMM div moveto xchartl 7 le {(ME170-1N) show} {(ME171-) show} ifelse xchartl 7 le {/ibil 0 def /iton xchartl def} {/ibil 1 def /iton xchartl 8 sub def} ifelse xchartl 00 ge xchartl 07 le and {%00<=xchartl<=07 /ausz 8 def %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F 0 0 320 240 0.0 0.0 0.0 0.5 colrecfi %Rechteck Mittelgrau TBG %Schrift Times-Bold-Gross 0.0 0.0 0.0 0.0 setcmykcolor %Schrift Weiss 120 006 moveto (Wellenl\344nge ) showde %08250-1 1 (wavelength ) showen %18250-1 1 (Ancho de banda ) showes %28250-1 1 (wavelength ) showfr %38250-1 1 (wavelength ) showit %48250-1 1 (wavelength ) showjp %58250-1 1 (l) outSG TBG 2 0 rmoveto (/nm) show 002 222 moveto (Monochromatische Elementarfarben) showde %08250-1 2 (monochromatic elementary colours) showen %18250-1 2 (Modelo espectral para producci\363n) showes %28250-1 2 (spectral masks for the creation) showfr %38250-1 2 (spectral masks for the creation) showit %48250-1 2 (spectral masks for the creation) showjp %58250-1 2 002 202 moveto (und Elementar\255Optimalfarben) showde %08250-1 3 (and elementary optimal colors) showen %18250-1 3 (optima del color complementario) showes %28250-1 3 (of complementary optimal colors) showfr %38250-1 3 (of complementary optimal colors) showit %48250-1 3 (of complementary optimal colors) showjp %58250-1 3 /xd 4.0 def /xd2 8.0 def /ix0 33 def /iy0 44 def /yexp 77 array def 0 1 76 {/i exch def yexp i 1.0 put} for /scolors %CMYN 49 Farbkreis-Reihenfolge; 48+1 Sonder-Farben [{0.75 1.00 0.00 0.0} {0.87 1.00 0.00 0.0} {1.00 1.00 0.00 0.0} {1.00 0.87 0.00 0.0} {1.00 0.75 0.00 0.0} {1.00 0.62 0.00 0.0} {1.00 0.50 0.00 0.0} {1.00 0.37 0.00 0.0} {1.00 0.25 0.00 0.0} {1.00 0.12 0.00 0.0} {1.00 0.00 0.00 0.0} {1.00 0.00 0.12 0.0} {1.00 0.00 0.25 0.0} {1.00 0.00 0.37 0.0} {1.00 0.00 0.50 0.0} {1.00 0.00 0.62 0.0} {1.00 0.00 0.75 0.0} {1.00 0.00 0.87 0.0} {1.00 0.00 1.00 0.0} {0.87 0.00 1.00 0.0} %->1 {0.75 0.00 1.00 0.0} {0.62 0.00 1.00 0.0} {0.50 0.00 1.00 0.0} {0.37 0.00 1.00 0.0} {0.25 0.00 1.00 0.0} {0.12 0.00 1.00 0.0} {0.00 0.00 1.00 0.0} {0.00 0.12 1.00 0.0} {0.00 0.25 1.00 0.0} {0.00 0.37 1.00 0.0} {0.00 0.50 1.00 0.0} {0.00 0.62 1.00 0.0} {0.00 0.75 1.00 0.0} {0.00 0.87 1.00 0.0} {0.00 1.00 1.00 0.0} {0.00 1.00 0.87 0.0} {0.00 1.00 0.75 0.0} {0.00 1.00 0.62 0.0} {0.00 1.00 0.50 0.0} {0.00 1.00 0.37 0.0} {0.00 1.00 0.25 0.0} {0.00 1.00 0.12 0.0} {0.00 1.00 0.00 0.0} {0.12 1.00 0.00 0.0} {0.25 1.00 0.00 0.0} {0.37 1.00 0.00 0.0} {0.50 1.00 0.00 0.0} {0.62 1.00 0.00 0.0} {0.00 0.00 0.00 1.0}] def /ifa %Verteilung 48 Farben auf 65 Wellenlaengen ohne Purpur [00 00 00 01 01 01 02 02 03 03 04 04 05 05 06 06 07 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 30 31 31 32 32 33 33 34 34 34 34 34 34 34 34 35 35 35 35 35 35 35 35 35] def %black background /x10 ix0 1 xd mul add def /iy01 iy0 000 add def /iy02 iy0 150 add def 0 0 0 1 setcmykcolor x10 iy01 moveto x10 64 xd mul add iy01 lineto x10 64 xd mul add iy02 lineto x10 iy02 lineto closepath fill /iy01 iy0 100 add def %Spektrum I 3 1 66 {/i exch def /y11 {yexp i get exec 50 mul} bind def /y20 {yexp i 1 add get exec 50 mul} bind def /x10 {ix0 i 2 sub xd mul add} bind def /k {ifa i 3 sub get exec} def scolors k get exec setcmykcolor x10 iy01 moveto x10 xd add iy01 lineto x10 xd add iy01 y20 add lineto x10 iy01 y11 add lineto closepath fill } for %i-Schleife /iy01 iy0 50 add def %Spektrum II 3 1 66 {/i exch def /y11 {yexp i get exec 50 mul} bind def /y20 {yexp i 1 add get exec 50 mul} bind def /x10 {ix0 i 2 sub xd mul add} bind def /k {ifa i 3 sub get exec} def iton 0 eq {i 25 ge i 75 le and } if iton 1 eq {i 20 ge i 38 le and } if iton 2 eq {i 27 ge i 75 le and } if iton 3 eq {i 20 ge i 38 le and } if iton 4 eq {i 20 ge i 33 le and } if iton 5 eq {i 27 ge i 33 le and } if iton 6 eq {i 20 ge i 26 le and } if iton 7 eq {i 34 ge i 75 le and } if {scolors k get exec setcmykcolor } {0.0 0.0 0.0 1.0 setcmykcolor} ifelse /y20m y20 def %default /y11m y11 def %default iton 3 eq {i 27 ge i 38 le and {/y20m y20 0.8 mul def /y11m y11 0.8 mul def} if} if x10 iy01 moveto x10 xd add iy01 lineto x10 xd add iy01 y20m add lineto x10 iy01 y11m add lineto closepath fill } for %i-Schleife /iy01 iy0 100 add def %spectrum parts BR, BG, GJ, RJ /y20m y20 def %default /y11m y11 def %default /i 19.5 def /x10 {ix0 i 2 sub xd mul add} bind def /y11 {yexp i get exec 50 mul} bind def /y20 {yexp i 1 add get exec 50 mul} bind def 1 setgray x10 iy01 moveto x10 xd add iy01 lineto x10 xd add iy01 y20m add lineto x10 iy01 y11m add lineto closepath fill 1 setgray x10 8 sub iy01 0 add moveto 19 0 rlineto 0 15 rlineto -19 0 rlineto closepath fill 0 setgray TBIKK x10 6 sub iy01 5 add moveto (B) show TBKS 0 -3 rmoveto (m) show 0 3 rmoveto 1 setgray /xm0 x10 45 sub def /ym0 iy0 123 add def xm0 ym0 03 sub moveto 23 0 rlineto 0 15 rlineto -23 0 rlineto closepath fill 0 setgray xm0 01 add ym0 02 add moveto TBIKK (BR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto /i 26.5 def /x10 {ix0 i 2 sub xd mul add} bind def /y11 {yexp i get exec 50 mul} bind def /y20 {yexp i 1 add get exec 50 mul} bind def 1 setgray x10 iy01 moveto x10 xd add iy01 lineto x10 xd add iy01 y20m add lineto x10 iy01 y11m add lineto closepath fill 1 setgray x10 8 sub iy01 0 add moveto 19 0 rlineto 0 15 rlineto -19 0 rlineto closepath fill 0 setgray TBIKK x10 6 sub iy01 5 add moveto (G) show TBKS 0 -3 rmoveto (m) show 0 3 rmoveto 1 setgray /xm0 x10 24 sub def /ym0 iy0 123 add def xm0 ym0 03 sub moveto 23 0 rlineto 0 15 rlineto -23 0 rlineto closepath fill 0 setgray xm0 01 add ym0 02 add moveto TBIKK (BG) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto /i 38.5 def /x10 {ix0 i 2 sub xd mul add} bind def /y11 {yexp i get exec 50 mul} bind def /y20 {yexp i 1 add get exec 50 mul} bind def 1 setgray x10 iy01 moveto x10 xd add iy01 lineto x10 xd add iy01 y20m add lineto x10 iy01 y11m add lineto closepath fill 1 setgray x10 8 sub iy01 0 add moveto 19 0 rlineto 0 15 rlineto -19 0 rlineto closepath fill 0 setgray TBIKK x10 6 sub iy01 5 add moveto (J) show TBKS 0 -3 rmoveto (m) show 0 3 rmoveto 1 setgray 1 setgray /xm0 x10 30 sub def /ym0 iy0 123 add def xm0 ym0 03 sub moveto 23 0 rlineto 0 15 rlineto -23 0 rlineto closepath fill 0 setgray xm0 01 add ym0 02 add moveto TBIKK (JG) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 x10 30 add def /ym0 iy0 123 add def xm0 ym0 03 sub moveto 23 0 rlineto 0 15 rlineto -23 0 rlineto closepath fill 0 setgray xm0 ym0 02 add moveto TBIKK (JR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto /iy01 iy0 000 add def %Spektrum III 3 1 66 {/i exch def /y11 {yexp i get exec 50 mul} bind def /y20 {yexp i 1 add get exec 50 mul} bind def /x10 {ix0 i 2 sub xd mul add} bind def /k {ifa i 3 sub get exec} def iton 0 eq {i 25 ge i 75 le and } if iton 1 eq {i 20 ge i 38 le and } if iton 2 eq {i 27 ge i 75 le and } if iton 3 eq {i 20 ge i 38 le and } if iton 4 eq {i 20 ge i 33 le and } if iton 5 eq {i 27 ge i 33 le and } if iton 6 eq {i 20 ge i 26 le and } if iton 7 eq {i 34 ge i 75 le and } if {0.0 0.0 0.0 1.0 setcmykcolor} {scolors k get exec setcmykcolor } ifelse /y20m y20 def %default /y11m y11 def %default iton 3 eq {i 20 lt {/y20m y20 0.2 mul def /y11m y11 0.2 mul def} if} if x10 iy01 moveto x10 xd add iy01 lineto x10 xd add iy01 y20m add lineto x10 iy01 y11m add lineto closepath fill } for %i-Schleife %horizontale Linien ix0 3 sub iy0 1 sub 273 2 fcolors 7 get exec colrecfi ix0 3 sub iy0 1 sub 050 add 273 2 fcolors 7 get exec colrecfi ix0 3 sub iy0 1 sub 100 add 273 2 fcolors 7 get exec colrecfi ix0 3 sub iy0 1 sub 150 add 273 2 fcolors 7 get exec colrecfi /tx [ (400) (500) (600) (700)] def /ix0 33 def /iy0 44 def 0.0 0.0 0.0 0.0 setcmykcolor %W ix0 18 sub iy0 050 add 20 add moveto (I) show ix0 23 sub iy0 20 add moveto (II) show TBM 1.0 0.5 0.0 0.0 setcmykcolor %Schrift B ix0 028 sub iy0 100 add 20 add moveto (UV) show 0.0 1.0 1.0 0.0 setcmykcolor %Schrift O ix0 265 add iy0 100 add 20 add moveto (IR) show TBG 0.0 0.0 0.0 0.0 setcmykcolor %Schrift Weiss 0 1 3 {/i exch def %x-Achsen-Beschriftung ix0 23 sub 5 i 20 mul add xd mul add iy0 21 sub moveto tx i get exec show } for 5 20 65 {/ixd exch def ix0 9 sub ixd xd mul add iy0 3 sub 2 8 fcolors 07 get exec colrecfi } for %Schleife ixd ix0 3 sub iy0 1 sub 273 2 fcolors 7 get exec colrecfi ix0 1 sub iy0 3 sub 2 153 fcolors 7 get exec colrecfi 0 50 150 {/iyd exch def 10 iy0 iyd add 1 sub 300 2 fcolors 07 get exec colrecfi } for %Schleife iyd 0.0 0.0 0.0 0.0 setcmykcolor %W wavelength range TBK iton 0 eq {TBKK %serie 1 ix0 32 sub 5 1 20 mul add xd mul add iy0 55 add moveto (500) show ix0 06 sub 5 1 20 mul add xd mul add iy0 07 add moveto (500) show 1 setgray /xm0 ix0 52 sub 5 2 20 mul add xd mul add def /ym0 iy0 75 add def xm0 ym0 16 sub moveto 60 0 rlineto 0 26 rlineto -60 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 572nm) show xm0 ym0 00 sub moveto TBKK (Yellow) showen ( Gelb) showde TBIKK ( Y) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 170 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 75 0 rlineto 0 26 rlineto -75 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 465nm) show xm0 ym0 00 sub moveto TBKK (Violet Blue) showen (Violettblau) showde TBIKK ( V) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 1 eq {TBK %serie 1 ix0 52 sub 5 1 20 mul add xd mul add iy0 55 add moveto (475) show ix0 30 sub 5 2 20 mul add xd mul add iy0 55 add moveto (575) show 1 setgray /xm0 ix0 20 sub 5 2 20 mul add xd mul add def /ym0 iy0 85 add def xm0 ym0 16 sub moveto 75 0 rlineto 0 26 rlineto -75 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 525nm) show xm0 ym0 00 sub moveto % TBKK (Leaf Green) showen (Laubgr\374n) showde TBIKK (L) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=BG) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (+JG) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 15 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 60 0 rlineto 0 26 rlineto -60 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 600nm) show xm0 ym0 00 sub moveto % TBKK (Yellow Red) showen (Gelbrot) showde TBIKK ( JR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 170 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 60 0 rlineto 0 26 rlineto -60 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 450nm) show xm0 ym0 00 sub moveto % TBKK (Blue Red) showen (Blaurot) showde TBIKK ( BR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 104 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 68 0 rlineto 0 26 rlineto -68 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 525nm) show xm0 ym0 00 sub moveto % TBKK (Mixture) showen (Mischung) showde TBIKK (M) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=BR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (+JR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 2 eq {TBK %serie 1 1 setgray ix0 24 sub 5 1 20 mul add xd mul add iy0 55 add moveto (513) show 1 setgray /xm0 ix0 65 sub 5 2 20 mul add xd mul add def /ym0 iy0 75 add def xm0 ym0 16 sub moveto 135 0 rlineto 0 26 rlineto -135 0 rlineto closepath fill 0 setgray xm0 2 add ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 575nm, ) show TBIKK (h) show TBKS 0 -3 rmoveto (ab) show 0 3 rmoveto TBKK ( = 92) show xm0 2 add ym0 00 sub moveto TBKK (Optimal colour Yellow) showen (Optimalfarbe Gelb) showde TBIKK ( J) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 65 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 125 0 rlineto 0 26 rlineto -125 0 rlineto closepath fill 0 setgray xm0 2 add ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 475nm, ) show TBIKK (h) show TBKS 0 -3 rmoveto (ab) show 0 3 rmoveto TBKK ( = 272) show xm0 2 add ym0 00 sub moveto TBKK (Optimal colour Blue) showen (Optimalfarbe Blau) showde TBIKK ( B) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 3 eq {TBK %serie 1 ix0 52 sub 5 1 20 mul add xd mul add iy0 55 add moveto (475) show ix0 30 sub 5 2 20 mul add xd mul add iy0 55 add moveto (575) show 1 setgray /xm0 ix0 20 sub 5 2 20 mul add xd mul add def /ym0 iy0 85 add def xm0 ym0 16 sub moveto 95 0 rlineto 0 26 rlineto -95 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 513nm) show xm0 ym0 00 sub moveto % TBKK (Leaf Green) showen (Laubgr\374n) showde TBIKK (L) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=BG) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (+0,8GJ) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 10 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 60 0 rlineto 0 26 rlineto -60 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 600nm) show xm0 ym0 00 sub moveto TBIKK (JR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 170 sub 5 2 20 mul add xd mul add def /ym0 iy0 32 add def xm0 ym0 16 sub moveto 60 0 rlineto 0 26 rlineto -60 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 450nm) show xm0 ym0 00 sub moveto TBIKK (0,2BR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 105 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 71 0 rlineto 0 26 rlineto -71 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 494nm) show xm0 ym0 00 sub moveto % TBKK (Mixture) showen (Mischung) showde TBIKK (R) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=xBR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (+JR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 4 eq {TBK %serie 1 ix0 52 sub 5 1 20 mul add xd mul add iy0 55 add moveto (475) show ix0 50 sub 5 2 20 mul add xd mul add iy0 55 add moveto (550) show 1 setgray /xm0 ix0 25 sub 5 2 20 mul add xd mul add def /ym0 iy0 85 add def xm0 ym0 16 sub moveto 102 0 rlineto 0 26 rlineto -102 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 513nm) show xm0 ym0 00 sub moveto % TBKK (Leaf Green) showen (Laubgr\374n) showde TBIKK (L) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=BG) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (+0,6JG) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=G) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 15 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 60 0 rlineto 0 26 rlineto -60 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 590nm) show xm0 ym0 00 sub moveto % TBKK (Yellow Red) showen (Gelbrot) showde TBIKK ( O) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 170 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 60 0 rlineto 0 26 rlineto -60 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 450nm) show xm0 ym0 00 sub moveto % TBKK (Blue Red) showen (Blaurot) showde TBIKK ( BR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 106 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 65 0 rlineto 0 26 rlineto -65 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 513nm) show xm0 ym0 00 sub moveto % TBKK (Mixture) showen (Mischung) showde TBIKK (M) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=BR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (+O) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 5 eq {TBK %serie 1 ix0 24 sub 5 1 20 mul add xd mul add iy0 55 add moveto (513) show ix0 50 sub 5 2 20 mul add xd mul add iy0 55 add moveto (550) show 1 setgray /xm0 ix0 174 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 92 0 rlineto 0 26 rlineto -92 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 475nm) show xm0 ym0 00 sub moveto TBKK (Violet Blue) showen (Violettblau) showde TBIKK ( V) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=B) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 27 sub 5 2 20 mul add xd mul add def /ym0 iy0 85 add def xm0 ym0 16 sub moveto 80 0 rlineto 0 26 rlineto -80 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 531nm) show xm0 ym0 00 sub moveto TBKK (Leaf Green) showen (Laubgr\374n) showde TBIKK ( L) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto % TBIKK (=JG) show % TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 29 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 87 0 rlineto 0 26 rlineto -87 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 590nm) show xm0 ym0 00 sub moveto TBKK (Orange Red) showen (Orangerot) showde TBIKK ( O) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto % TBIKK (=JR) show % TBKS 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 6 eq {TBK %serie 1 ix0 52 sub 5 1 20 mul add xd mul add iy0 55 add moveto (475) show ix0 78 sub 5 2 20 mul add xd mul add iy0 55 add moveto (513) show 1 setgray /xm0 ix0 45 sub 5 2 20 mul add xd mul add def /ym0 iy0 85 add def xm0 ym0 16 sub moveto 80 0 rlineto 0 26 rlineto -80 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 494nm) show xm0 ym0 00 sub moveto TBKK (Cyan ) showen (Cyan ) showde TBIKK (C) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=BG) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto % TBIKK (+0,6JG) show % TBKS 0 -3 rmoveto (o) show 0 3 rmoveto % TBIKK (=R) show % TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 15 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 70 0 rlineto 0 26 rlineto -70 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 575nm) show xm0 ym0 00 sub moveto TBKK (Yellow) showen (Gelb) showde TBIKK ( Y) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=J) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 170 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 60 0 rlineto 0 26 rlineto -60 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 450nm) show xm0 ym0 00 sub moveto % TBKK (Blue Red) showen (Blaurot) showde TBIKK ( BR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 106 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 80 0 rlineto 0 26 rlineto -80 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 494nm) show xm0 ym0 00 sub moveto % TBKK (Mixture) showen (Mischung) showde TBIKK (M) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=BR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (+Y) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=R) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 7 eq {TBK %serie 1 ix0 03 add 5 1 20 mul add xd mul add iy0 55 add moveto (550) show ix0 30 add 5 1 20 mul add xd mul add iy0 07 add moveto (550) show 1 setgray /xm0 ix0 50 sub 5 2 20 mul add xd mul add def /ym0 iy0 75 add def xm0 ym0 16 sub moveto 125 0 rlineto 0 26 rlineto -125 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 590nm) show xm0 ym0 00 sub moveto TBKK (Yellow) showen ( Gelb) showde TBIKK ( Y) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBKK ( = ) show TBIKK (0,4JG) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBKK (+) show TBIKK (JR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 170 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 105 0 rlineto 0 26 rlineto -105 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 494nm) show xm0 ym0 00 sub moveto TBKK (Cyan) showen (Cyan) showde TBIKK ( C) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=B) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (+0,6JG) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto } if } if %00<=xchartl<=07 xchartl 08 ge xchartl 15 le and {%08<=xchartl<=15 /ausz 8 def %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F 0 0 320 240 0.0 0.0 0.0 0.5 colrecfi %Rechteck Mittelgrau TBG %Schrift Times-Bold-Gross 0.0 0.0 0.0 0.0 setcmykcolor %Schrift Weiss 120 006 moveto (Wellenl\344nge ) showde %08250-1 1 (wavelength ) showen %18250-1 1 (Ancho de banda ) showes %28250-1 1 (wavelength ) showfr %38250-1 1 (wavelength ) showit %48250-1 1 (wavelength ) showjp %58250-1 1 (l) outSG TBG 2 0 rmoveto (/nm) show 003 220 moveto (Spektralschablonen zur Erzeugung) showde %08250-1 2 (spectral masks for the creation) showen %18250-1 2 (Modelo espectral para producci\363n) showes %28250-1 2 (spectral masks for the creation) showfr %38250-1 2 (spectral masks for the creation) showit %48250-1 2 (spectral masks for the creation) showjp %58250-1 2 003 202 moveto xchartl 8 eq xchartl 9 eq or { (von drei additiven Optimalfarben) showde (of three additive optimal colors) showen } { (komplement\344rer Optimalfarben) showde %08250-1 3 (of complementary optimal colors) showen %18250-1 3 (optima del color complementario) showes %28250-1 3 (of complementary optimal colors) showfr %38250-1 3 (of complementary optimal colors) showit %48250-1 3 (of complementary optimal colors) showjp %58250-1 3 } ifelse /xd 4.0 def /xd2 8.0 def /ix0 33 def /iy0 44 def /yexp 77 array def 0 1 76 {/i exch def yexp i 1.0 put} for /scolors %CMYN 49 Farbkreis-Reihenfolge; 48+1 Sonder-Farben [{0.75 1.00 0.00 0.0} {0.87 1.00 0.00 0.0} {1.00 1.00 0.00 0.0} {1.00 0.87 0.00 0.0} {1.00 0.75 0.00 0.0} {1.00 0.62 0.00 0.0} {1.00 0.50 0.00 0.0} {1.00 0.37 0.00 0.0} {1.00 0.25 0.00 0.0} {1.00 0.12 0.00 0.0} {1.00 0.00 0.00 0.0} {1.00 0.00 0.12 0.0} {1.00 0.00 0.25 0.0} {1.00 0.00 0.37 0.0} {1.00 0.00 0.50 0.0} {1.00 0.00 0.62 0.0} {1.00 0.00 0.75 0.0} {1.00 0.00 0.87 0.0} {1.00 0.00 1.00 0.0} {0.87 0.00 1.00 0.0} %->1 {0.75 0.00 1.00 0.0} {0.62 0.00 1.00 0.0} {0.50 0.00 1.00 0.0} {0.37 0.00 1.00 0.0} {0.25 0.00 1.00 0.0} {0.12 0.00 1.00 0.0} {0.00 0.00 1.00 0.0} {0.00 0.12 1.00 0.0} {0.00 0.25 1.00 0.0} {0.00 0.37 1.00 0.0} {0.00 0.50 1.00 0.0} {0.00 0.62 1.00 0.0} {0.00 0.75 1.00 0.0} {0.00 0.87 1.00 0.0} {0.00 1.00 1.00 0.0} {0.00 1.00 0.87 0.0} {0.00 1.00 0.75 0.0} {0.00 1.00 0.62 0.0} {0.00 1.00 0.50 0.0} {0.00 1.00 0.37 0.0} {0.00 1.00 0.25 0.0} {0.00 1.00 0.12 0.0} {0.00 1.00 0.00 0.0} {0.12 1.00 0.00 0.0} {0.25 1.00 0.00 0.0} {0.37 1.00 0.00 0.0} {0.50 1.00 0.00 0.0} {0.62 1.00 0.00 0.0} {0.00 0.00 0.00 1.0}] def /ifa %Verteilung 48 Farben auf 65 Wellenlaengen ohne Purpur [00 00 00 01 01 01 02 02 03 03 04 04 05 05 06 06 07 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 30 31 31 32 32 33 33 34 34 34 34 34 34 34 34 35 35 35 35 35 35 35 35 35] def %black background /x10 ix0 1 xd mul add def /iy01 iy0 000 add def /iy02 iy0 150 add def 0 0 0 1 setcmykcolor x10 iy01 moveto x10 64 xd mul add iy01 lineto x10 64 xd mul add iy02 lineto x10 iy02 lineto closepath fill /iy01 iy0 100 add def %Spektrum I 3 1 66 {/i exch def /y11 {yexp i get exec 50 mul} bind def /y20 {yexp i 1 add get exec 50 mul} bind def /x10 {ix0 i 2 sub xd mul add} bind def /k {ifa i 3 sub get exec} def scolors k get exec setcmykcolor x10 iy01 moveto x10 xd add iy01 lineto x10 xd add iy01 y20 add lineto x10 iy01 y11 add lineto closepath fill } for %i-Schleife /iy01 iy0 50 add def %Spektrum II 3 1 66 {/i exch def /y20m y20 def %default /y11m y11 def %default /y11 {yexp i get exec 50 mul} bind def /y20 {yexp i 1 add get exec 50 mul} bind def /x10 {ix0 i 2 sub xd mul add} bind def /k {ifa i 3 sub get exec} def iton 0 eq {i 25 ge i 44 le and } if iton 1 eq {i 27 ge i 38 le and } if iton 2 eq {i 20 ge i 75 le and } if iton 3 eq {i 20 ge i 26 le and } if iton 4 eq {i 26 ge i 27 le and } if iton 5 eq {i 10 ge i 11 le and i 45 ge i 46 le and or} if iton 6 eq {i 00 ge i 75 le and } if iton 7 eq {i 00 ge i 75 le and } if iton 5 eq {i 10 ge i 11 le and {/y20m y20 0.3 mul def /y11m y11 0.3 mul def} if} if iton 5 eq {i 45 ge i 46 le and {/y20m y20 def /y11m y11 def} if} if iton 6 eq {i 26 lt i 27 gt or {/y20m y20 0.3 mul def /y11m y11 0.3 mul def} if} if iton 7 eq {i 45 lt i 46 gt or {/y20m y20 0.3 mul def /y11m y11 0.3 mul def} if} if iton 7 eq {i 10 ge i 11 le and {/y20m y20 0.5 mul def /y11m y11 0.5 mul def} if} if {scolors k get exec setcmykcolor } {0.0 0.0 0.0 1.0 setcmykcolor} ifelse x10 iy01 moveto x10 xd add iy01 lineto x10 xd add iy01 y20m add lineto x10 iy01 y11m add lineto closepath fill } for %i-Schleife /iy01 iy0 100 add def %spectrum parts BR, BG, GJ, RJ /y20m y20 def %default /y11m y11 def %default /i 19.5 def /x10 {ix0 i 2 sub xd mul add} bind def /y11 {yexp i get exec 50 mul} bind def /y20 {yexp i 1 add get exec 50 mul} bind def 1 setgray x10 iy01 moveto x10 xd add iy01 lineto x10 xd add iy01 y20m add lineto x10 iy01 y11m add lineto closepath fill /xm0 x10 45 sub def /ym0 iy0 123 add def xm0 ym0 03 sub moveto 23 0 rlineto 0 15 rlineto -23 0 rlineto closepath fill 0 setgray xm0 01 add ym0 02 add moveto TBIKK (BR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto /i 26.5 def /x10 {ix0 i 2 sub xd mul add} bind def /y11 {yexp i get exec 50 mul} bind def /y20 {yexp i 1 add get exec 50 mul} bind def 1 setgray x10 iy01 moveto x10 xd add iy01 lineto x10 xd add iy01 y20m add lineto x10 iy01 y11m add lineto closepath fill /xm0 x10 24 sub def /ym0 iy0 123 add def xm0 ym0 03 sub moveto 23 0 rlineto 0 15 rlineto -23 0 rlineto closepath fill 0 setgray xm0 01 add ym0 02 add moveto TBIKK (BG) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto /i 38.5 def /x10 {ix0 i 2 sub xd mul add} bind def /y11 {yexp i get exec 50 mul} bind def /y20 {yexp i 1 add get exec 50 mul} bind def 1 setgray x10 iy01 moveto x10 xd add iy01 lineto x10 xd add iy01 y20m add lineto x10 iy01 y11m add lineto closepath fill 1 setgray /xm0 x10 30 sub def /ym0 iy0 123 add def xm0 ym0 03 sub moveto 23 0 rlineto 0 15 rlineto -23 0 rlineto closepath fill 0 setgray xm0 01 add ym0 02 add moveto TBIKK (JG) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 x10 30 add def /ym0 iy0 123 add def xm0 ym0 03 sub moveto 23 0 rlineto 0 15 rlineto -23 0 rlineto closepath fill 0 setgray xm0 ym0 02 add moveto TBIKK (JR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto /iy01 iy0 00 add def %Spektrum III 3 1 66 {/i exch def /y20m y20 def %default /y11m y11 def %default /y11 {yexp i get exec 50 mul} bind def /y20 {yexp i 1 add get exec 50 mul} bind def /x10 {ix0 i 2 sub xd mul add} bind def /k {ifa i 3 sub get exec} def iton 0 eq {i 25 ge i 44 le and } if iton 1 eq {i 27 ge i 38 le and } if iton 2 eq {i 20 ge i 75 le and } if iton 3 eq {i 20 ge i 26 le and } if iton 4 eq {i 26 ge i 27 le and } if iton 5 eq {i 45 ge i 46 le and } if iton 6 eq {i 26 ge i 27 le and } if iton 7 eq {i 45 ge i 46 le and } if %iton 5 eq {i 10 ge i 11 le and {/y20m y20 0.3 mul def % /y11m y11 0.3 mul def} if} if iton 5 eq {i 0 ge i 10 lt and i 11 gt i 45 lt and or i 46 gt i 75 le and or {/y20m y20 1.0 mul def /y11m y11 1.0 mul def} if} if iton 5 eq {i 10 eq i 11 eq or {/y20m y20 0.7 mul def /y11m y11 0.7 mul def} if} if iton 6 eq {i 26 lt i 27 gt or {/y20m y20 0.7 mul def /y11m y11 0.7 mul def} if} if iton 7 eq {i 0 ge i 10 lt and i 11 gt i 45 lt and or i 46 gt i 75 le and or {/y20m y20 0.7 mul def /y11m y11 0.7 mul def} if} if iton 7 eq {i 10 eq i 11 eq or {/y20m y20 0.5 mul def /y11m y11 0.5 mul def} if} if {0.0 0.0 0.0 1.0 setcmykcolor} {scolors k get exec setcmykcolor } ifelse x10 iy01 moveto x10 xd add iy01 lineto x10 xd add iy01 y20m add lineto x10 iy01 y11m add lineto closepath fill } for %i-Schleife %horizontale Linien ix0 3 sub iy0 1 sub 273 2 fcolors 7 get exec colrecfi ix0 3 sub iy0 1 sub 050 add 273 2 fcolors 7 get exec colrecfi ix0 3 sub iy0 1 sub 100 add 273 2 fcolors 7 get exec colrecfi ix0 3 sub iy0 1 sub 150 add 273 2 fcolors 7 get exec colrecfi /tx [ (400) (500) (600) (700)] def /ix0 33 def /iy0 44 def 0.0 0.0 0.0 0.0 setcmykcolor %W ix0 18 sub iy0 050 add 20 add moveto (I) show ix0 23 sub iy0 20 add moveto (II) show TBM 1.0 0.5 0.0 0.0 setcmykcolor %Schrift B ix0 028 sub iy0 100 add 20 add moveto (UV) show 0.0 1.0 1.0 0.0 setcmykcolor %Schrift O ix0 265 add iy0 100 add 20 add moveto (IR) show TBG 0.0 0.0 0.0 0.0 setcmykcolor %Schrift Weiss 0 1 3 {/i exch def %x-Achsen-Beschriftung ix0 23 sub 5 i 20 mul add xd mul add iy0 21 sub moveto tx i get exec show } for 5 20 65 {/ixd exch def ix0 9 sub ixd xd mul add iy0 3 sub 2 8 fcolors 07 get exec colrecfi } for %Schleife ixd ix0 3 sub iy0 1 sub 273 2 fcolors 7 get exec colrecfi ix0 1 sub iy0 3 sub 2 153 fcolors 7 get exec colrecfi 0 50 150 {/iyd exch def 10 iy0 iyd add 1 sub 300 2 fcolors 07 get exec colrecfi } for %Schleife iyd 0.0 0.0 0.0 0.0 setcmykcolor %W wavelength range TBK iton 0 eq {TBK %serie 2 ix0 35 sub 5 1 20 mul add xd mul add iy0 55 add moveto (500) show ix0 07 sub 5 2 20 mul add xd mul add iy0 55 add moveto (600) show 1 setgray /xm0 ix0 170 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 75 0 rlineto 0 26 rlineto -75 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 465nm) show xm0 ym0 00 sub moveto TBKK (Violet Blue) showen (Violettblau) showde TBIKK ( V) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 03 sub 5 2 20 mul add xd mul add def /ym0 iy0 85 add def xm0 ym0 16 sub moveto 75 0 rlineto 0 26 rlineto -75 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 555nm) show xm0 ym0 00 sub moveto TBKK (Leaf Green) showen (Laubgr\374n) showde TBIKK ( L) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 05 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 80 0 rlineto 0 26 rlineto -80 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 620nm) show xm0 ym0 00 sub moveto TBKK (Orange Red) showen (Orangerot) showde TBIKK ( O) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 1 eq {TBK %serie 2 ix0 24 sub 5 1 20 mul add xd mul add iy0 55 add moveto (513) show ix0 30 sub 5 2 20 mul add xd mul add iy0 55 add moveto (575) show 1 setgray /xm0 ix0 174 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 93 0 rlineto 0 26 rlineto -93 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 474nm) show xm0 ym0 00 sub moveto TBKK (Violet Blue) showen (Violettblau) showde TBIKK ( V) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=B) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 27 sub 5 2 20 mul add xd mul add def /ym0 iy0 85 add def xm0 ym0 16 sub moveto 100 0 rlineto 0 26 rlineto -100 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 545nm) show xm0 ym0 00 sub moveto TBKK (Leaf Green) showen (Laubgr\374n) showde TBIKK ( L) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=JG) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 29 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 107 0 rlineto 0 26 rlineto -107 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 600nm) show xm0 ym0 00 sub moveto TBKK (Orange Red) showen (Orangerot) showde TBIKK ( O) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=JR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 2 eq {TBK %serie 2 ix0 52 sub 5 1 20 mul add xd mul add iy0 55 add moveto (475) show ix0 27 sub 5 1 20 mul add xd mul add iy0 07 add moveto (475) show 1 setgray /xm0 ix0 52 sub 5 2 20 mul add xd mul add def /ym0 iy0 75 add def xm0 ym0 16 sub moveto 130 0 rlineto 0 26 rlineto -130 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 540nm) show xm0 ym0 00 sub moveto TBKK (Yellow) showen ( Gelb) showde TBIKK ( Y) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBKK (=BG) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBKK (+JG) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBKK (+JR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 172 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 60 0 rlineto 0 26 rlineto -60 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 450nm) show xm0 ym0 00 sub moveto % TBKK (Blue Red) showen (Blaurot) showde TBIKK ( BR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 3 eq {TBK %serie 2 ix0 52 sub 5 1 20 mul add xd mul add iy0 55 add moveto (475) show ix0 04 add 5 1 20 mul add xd mul add iy0 55 add moveto (513) show 1 setgray /xm0 ix0 62 sub 5 2 20 mul add xd mul add def /ym0 iy0 85 add def xm0 ym0 16 sub moveto 100 0 rlineto 0 26 rlineto -100 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 494nm) show xm0 ym0 00 sub moveto TBKK (Cyan Blue) showen (Cyanblau) showde TBIKK ( C) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=BG) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 47 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 110 0 rlineto 0 26 rlineto -110 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 600nm) show xm0 ym0 00 sub moveto TBKK (Yellow) showen (Gelb) showde TBIKK ( Y) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=JG) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=+JR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 172 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 60 0 rlineto 0 26 rlineto -60 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 450nm) show xm0 ym0 00 sub moveto % TBKK (Blue Red) showen (Blaurot) showde TBIKK ( BR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 4 eq {TBK %serie 2 ix0 27 sub 5 1 20 mul add xd mul add iy0 55 add moveto (513) show 1 setgray /xm0 ix0 52 sub 5 2 20 mul add xd mul add def /ym0 iy0 75 add def xm0 ym0 16 sub moveto 75 0 rlineto 0 26 rlineto -75 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 513nm) show xm0 ym0 00 sub moveto TBKK (Green) showen (Gr\374n) showde TBIKK ( G) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 62 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 90 0 rlineto 0 26 rlineto -90 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 513nm) show xm0 ym0 00 sub moveto TBKK (Magenta Red) showen (Magentarot) showde TBIKK ( M) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 5 eq {TBK %serie 2 ix0 55 sub 5 1 20 mul add xd mul add iy0 55 add moveto (450) show ix0 80 add 5 1 20 mul add xd mul add iy0 55 add moveto (600) show 1 setgray /xm0 ix0 92 sub 5 2 20 mul add xd mul add def /ym0 iy0 75 add def xm0 ym0 16 sub moveto 75 0 rlineto 0 26 rlineto -75 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 494nm) show xm0 ym0 00 sub moveto TBKK ( Red) showen ( Rot) showde TBIKK ( R) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 36 sub 5 1 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 80 0 rlineto 0 26 rlineto -80 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK ( = 494nm) show xm0 ym0 00 sub moveto TBKK (Leaf Green) showen (Blattgr\374n) showde TBIKK ( L) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 6 eq {TBK %serie 2 ix0 23 sub 5 1 20 mul add xd mul add iy0 70 add moveto (513) show 1 setgray /xm0 ix0 52 sub 5 2 20 mul add xd mul add def /ym0 iy0 85 add def xm0 ym0 16 sub moveto 75 0 rlineto 0 26 rlineto -75 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 513nm) show xm0 ym0 00 sub moveto TBKK (Green) showen (Gr\374n) showde TBIKK ( G) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 62 sub 5 2 20 mul add xd mul add def /ym0 iy0 20 add def xm0 ym0 16 sub moveto 90 0 rlineto 0 26 rlineto -90 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 513nm) show xm0 ym0 00 sub moveto TBKK (Magenta Red) showen (Magentarot) showde TBIKK ( M) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 7 eq {TBK %serie 2 ix0 55 sub 5 1 20 mul add xd mul add iy0 70 add moveto (450) show ix0 80 add 5 1 20 mul add xd mul add iy0 70 add moveto (600) show 1 setgray /xm0 ix0 92 sub 5 2 20 mul add xd mul add def /ym0 iy0 85 add def xm0 ym0 16 sub moveto 75 0 rlineto 0 26 rlineto -75 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 494nm) show xm0 ym0 00 sub moveto TBKK ( Red) showen ( Rot) showde TBIKK ( R) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 36 sub 5 1 20 mul add xd mul add def /ym0 iy0 20 add def xm0 ym0 16 sub moveto 80 0 rlineto 0 26 rlineto -80 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK ( = 494nm) show xm0 ym0 00 sub moveto TBKK (Leaf Green) showen (Blattgr\374n) showde TBIKK ( L) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto } if } if %08<=xchartl<=15 showpage grestore } for %output with langind end %%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 ME170-2N %%BoundingBox: 70 83 226 206 %%old BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark02 where {pop} {userdict /pdfmark02 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/ME17/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.richter@mac.com) /CreationDate (D:2010110112000) /ModDate (D:2010110112000) /DOCINFO pdfmark02 [ /View [ /FitB ] /DOCVIEW pdfmark02 %END PDFDE011 /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 /str {8 string } bind def /TKS {150 16.67 div /Times-ISOL1 FS} bind def /TKK {200 16.67 div /Times-ISOL1 FS} bind def /TK1 {230 16.67 div /Times-ISOL1 FS} bind def /TK {250 16.67 div /Times-ISOL1 FS} bind def /TM {300 16.67 div /Times-ISOL1 FS} bind def /TG {350 16.67 div /Times-ISOL1 FS} bind def /TIKS {150 16.67 div /TimesI-ISOL1 FS} bind def /TIKK {200 16.67 div /TimesI-ISOL1 FS} bind def /TIK1 {230 16.67 div /TimesI-ISOL1 FS} bind def /TIK {250 16.67 div /TimesI-ISOL1 FS} bind def /TIM {300 16.67 div /TimesI-ISOL1 FS} bind def /TIG {350 16.67 div /TimesI-ISOL1 FS} bind def /TBKS {150 16.67 div /TimesB-ISOL1 FS} bind def /TBKK {200 16.67 div /TimesB-ISOL1 FS} bind def /TBK1 {230 16.67 div /TimesB-ISOL1 FS} bind def /TBK {250 16.67 div /TimesB-ISOL1 FS} bind def /TBM {300 16.67 div /TimesB-ISOL1 FS} bind def /TBG {335 16.67 div /TimesB-ISOL1 FS} bind def /TBIKS {150 16.67 div /TimesBI-ISOL1 FS} bind def /TBIKK {200 16.67 div /TimesBI-ISOL1 FS} bind def /TBIK1 {230 16.67 div /TimesBI-ISOL1 FS} bind def /TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def /TBIM {300 16.67 div /TimesBI-ISOL1 FS} bind def /TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def /SKS {200 16.67 div 1 sub /Symbol FS} bind def /SKK {200 16.67 div 1 sub /Symbol FS} bind def /SK {250 16.67 div 1 sub /Symbol FS} bind def /SM {300 16.67 div 1 sub /Symbol FS} bind def /SG {350 16.67 div 1 sub /Symbol FS} bind def /tolvfcol %Farbkreis-Reihenfolge [ (000) (F00) (FF0) (0F0) (0FF) (00F) (F0F) (FFF) (777) (700) (770) (070) (077) (007) (707) (F07) %15=R (333) (F77) (FF7) (7F7) (7FF) (77F) (F7F) (07F) %23=B (BBB) (F70) (7F0) (0F7) (07F) (70F) (F07) (0F7) %31=G ] def /tcmyfcol %Farbkreis-Reihenfolge [ (FFF) (0FF) (00F) (F0F) (F00) (FF0) (0F0) (000) (888) (8FF) (88F) (F8F) (F88) (FF8) (8F8) (0F8) %15=R (CCC) (088) (008) (808) (800) (880) (080) (F80) %23=B (444) (08F) (80F) (F08) (F80) (8F0) (0F8) (F08) %31=G ] def /tcmykfcol %Farbkreis-Reihenfolge [ (000F) (0FF0) (00F0) (F0F0) (F000) (FF00) (0F00) (0000) (0008) (0FF8) (00F8) (F0F8) (F008) (FF08) (0F08) (0F80) %15=R (000C) (0880) (0080) (8080) (8000) (8800) (0800) (F800) %23=B (0004) (0F80) (80F0) (F080) (F800) (8F00) (0F80) (F080) %31=G ] def /tolvfcols %Farbkreis-Reihenfolge [ (000*) (F00*) (FF0*) (0F0*) (0FF*) (00F*) (F0F*) (FFF*) (777*) (700*) (770*) (070*) (077*) (007*) (707*) (F07*) %15=R (333*) (F77*) (FF7*) (7F7*) (7FF*) (77F*) (F7F*) (07F*) %23=B (BBB*) (F70*) (7F0*) (0F7*) (07F*) (70F*) (F07*) (0F7*) %31=G ] def /tcmyfcols %Farbkreis-Reihenfolge [ (FFF*) (0FF*) (00F*) (F0F*) (F00*) (FF0*) (0F0*) (000*) (888*) (8FF*) (88F*) (F8F*) (F88*) (FF8*) (8F8*) (0F8*) %15=R (CCC*) (088*) (008*) (808*) (800*) (880*) (080*) (F80*) %23=B (444*) (08F*) (80F*) (F08*) (F80*) (8F0*) (0F8*) (F08*) %31=G ] def /tcmykfcols %Farbkreis-Reihenfolge [ (000F*) (0FF0*) (00F0*) (F0F0*) (F000*) (FF00*) (0F00*) (0000*) (0008*) (0FF8*) (00F8*) (F0F8*) (F008*) (FF08*) (0F08*) (0F80*) %15=R (000C*) (0880*) (0080*) (8080*) (8000*) (8800*) (0800*) (F800*) %23=B (0004*) (0F80*) (80F0*) (F080*) (F800*) (8F00*) (0F80*) (F080*) %31=G ] def /fcolors %CMYN 32 Testfarben Nr. 0 bis 31; Farbkreis-Reihenfolge [{0.0 0.0 0.0 1.0} {0.0 1.0 1.0 0.0} {0.0 0.0 1.0 0.0} {1.0 0.0 1.0 0.0} {1.0 0.0 0.0 0.0} {1.0 1.0 0.0 0.0} {0.0 1.0 0.0 0.0} {0.0 0.0 0.0 0.0} {0.0 0.0 0.0 0.5} {0.0 1.0 1.0 0.5} {0.0 0.0 1.0 0.5} {1.0 0.0 1.0 0.5} {1.0 0.0 0.0 0.5} {1.0 1.0 0.0 0.5} {0.0 1.0 0.0 0.5} {0.0 1.0 0.5 0.0} {0.0 0.0 0.0 0.75} {0.0 0.5 0.5 0.0} {0.0 0.0 0.5 0.0} {0.5 0.0 0.5 0.0} {0.5 0.0 0.0 0.0} {0.5 0.5 0.0 0.0} {0.0 0.5 0.0 0.0} {1.0 0.5 0.0 0.0} {0.0 0.0 0.0 0.25} {0.0 0.5 1.0 0.0} {0.5 0.0 1.0 0.0} {1.0 0.0 0.5 0.0} {1.0 0.5 0.0 0.0} {0.5 1.0 0.0 0.0} {0.0 1.0 0.5 0.0} {1.0 0.0 0.5 0.0} ] def /fak 0.5 def /Far %Farbkreis-Reihenfolge [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %R 16 17 18 19 20 21 22 23 %B 24 25 26 27 28 29 30 31 %G ] def /cFar %Kompensativ-Farbkreis-Reihenfolge [ 8 4 5 6 1 2 3 0 0 20 21 22 17 18 19 31 %G 24 12 13 14 9 10 11 2 %J 16 28 29 30 25 26 27 15 %R ] def /Btx %Farbkreis- -> %Btx-Reihenfolge [ 0 1 3 2 5 6 4 7 8 9 11 10 13 14 12 15 %R 16 17 19 18 21 22 20 23 %B 24 25 26 27 28 29 30 31 %G ] def /cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge [ 7 4 6 5 2 3 1 0 8 20 22 21 18 19 17 31 %G 24 12 14 13 10 11 9 2 %J 16 25 26 27 28 29 30 15 %R ] 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 /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %ANFA OUTLIN00 951204 /pixf 1.0 def /ueg 1 pixf mul def /uek 1 pixf mul def /ues 1 pixf mul def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /pss ues def /outxshowf {show} bind def /outxshow {show} bind def /outSK {250 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSM {300 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSG {350 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outshowf {setcmykcolor show} bind def /outrecfi { %x y width heigth c m y k setcmykcolor rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmykcolor lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmykcolor stroke} bind def /cvishow {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def /cvsshow1 {dup 0 ge {0.05 add} {0.05 sub} ifelse 10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {dup 0 ge {0.005 add} {0.005 sub} ifelse 100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {dup 0 ge {0.0005 add} {0.0005 sub} ifelse 1000 mul cvi 0.001 mul 7 string cvs show} def %%EndProlog gsave %LANINDL2 START 20000505 /lanind 0 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 {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /xcolorg where {pop /xcolor xcolorg def} {/xcolor 0 def} ifelse /xchartg where {pop /xchart xchartg def} {/xchart 0 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave 72 90 translate /pixf 1.0 def 0.1667 pixf div MM dup scale /FMM 16.67 def 20 FMM div setlinewidth /xchartl 2 def 20 FMM div setlinewidth 0 setgray 150 FMM div /Times-ISOL1 FS 4300 FMM div -150 FMM div moveto xchartl 7 le {(ME170-2N) show} {(ME171-) show} ifelse xchartl 7 le {/ibil 0 def /iton xchartl def} {/ibil 1 def /iton xchartl 8 sub def} ifelse xchartl 00 ge xchartl 07 le and {%00<=xchartl<=07 /ausz 8 def %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F 0 0 320 240 0.0 0.0 0.0 0.5 colrecfi %Rechteck Mittelgrau TBG %Schrift Times-Bold-Gross 0.0 0.0 0.0 0.0 setcmykcolor %Schrift Weiss 120 006 moveto (Wellenl\344nge ) showde %08250-1 1 (wavelength ) showen %18250-1 1 (Ancho de banda ) showes %28250-1 1 (wavelength ) showfr %38250-1 1 (wavelength ) showit %48250-1 1 (wavelength ) showjp %58250-1 1 (l) outSG TBG 2 0 rmoveto (/nm) show 002 222 moveto (Monochromatische Elementarfarben) showde %08250-1 2 (monochromatic elementary colours) showen %18250-1 2 (Modelo espectral para producci\363n) showes %28250-1 2 (spectral masks for the creation) showfr %38250-1 2 (spectral masks for the creation) showit %48250-1 2 (spectral masks for the creation) showjp %58250-1 2 002 202 moveto (und Elementar\255K\366rperfarben) showde %08250-1 3 (and elementary surface colors) showen %18250-1 3 (optima del color complementario) showes %28250-1 3 (of complementary optimal colors) showfr %38250-1 3 (of complementary optimal colors) showit %48250-1 3 (of complementary optimal colors) showjp %58250-1 3 /xd 4.0 def /xd2 8.0 def /ix0 33 def /iy0 44 def /yexp 77 array def 0 1 76 {/i exch def yexp i 1.0 put} for /scolors %CMYN 49 Farbkreis-Reihenfolge; 48+1 Sonder-Farben [{0.75 1.00 0.00 0.0} {0.87 1.00 0.00 0.0} {1.00 1.00 0.00 0.0} {1.00 0.87 0.00 0.0} {1.00 0.75 0.00 0.0} {1.00 0.62 0.00 0.0} {1.00 0.50 0.00 0.0} {1.00 0.37 0.00 0.0} {1.00 0.25 0.00 0.0} {1.00 0.12 0.00 0.0} {1.00 0.00 0.00 0.0} {1.00 0.00 0.12 0.0} {1.00 0.00 0.25 0.0} {1.00 0.00 0.37 0.0} {1.00 0.00 0.50 0.0} {1.00 0.00 0.62 0.0} {1.00 0.00 0.75 0.0} {1.00 0.00 0.87 0.0} {1.00 0.00 1.00 0.0} {0.87 0.00 1.00 0.0} %->1 {0.75 0.00 1.00 0.0} {0.62 0.00 1.00 0.0} {0.50 0.00 1.00 0.0} {0.37 0.00 1.00 0.0} {0.25 0.00 1.00 0.0} {0.12 0.00 1.00 0.0} {0.00 0.00 1.00 0.0} {0.00 0.12 1.00 0.0} {0.00 0.25 1.00 0.0} {0.00 0.37 1.00 0.0} {0.00 0.50 1.00 0.0} {0.00 0.62 1.00 0.0} {0.00 0.75 1.00 0.0} {0.00 0.87 1.00 0.0} {0.00 1.00 1.00 0.0} {0.00 1.00 0.87 0.0} {0.00 1.00 0.75 0.0} {0.00 1.00 0.62 0.0} {0.00 1.00 0.50 0.0} {0.00 1.00 0.37 0.0} {0.00 1.00 0.25 0.0} {0.00 1.00 0.12 0.0} {0.00 1.00 0.00 0.0} {0.12 1.00 0.00 0.0} {0.25 1.00 0.00 0.0} {0.37 1.00 0.00 0.0} {0.50 1.00 0.00 0.0} {0.62 1.00 0.00 0.0} {0.00 0.00 0.00 1.0}] def /ifa %Verteilung 48 Farben auf 65 Wellenlaengen ohne Purpur [00 00 00 01 01 01 02 02 03 03 04 04 05 05 06 06 07 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 30 31 31 32 32 33 33 34 34 34 34 34 34 34 34 35 35 35 35 35 35 35 35 35] def %black background /x10 ix0 1 xd mul add def /iy01 iy0 000 add def /iy02 iy0 150 add def 0 0 0 1 setcmykcolor x10 iy01 moveto x10 64 xd mul add iy01 lineto x10 64 xd mul add iy02 lineto x10 iy02 lineto closepath fill /iy01 iy0 100 add def %Spektrum I 3 1 66 {/i exch def /y11 {yexp i get exec 50 mul} bind def /y20 {yexp i 1 add get exec 50 mul} bind def /x10 {ix0 i 2 sub xd mul add} bind def /k {ifa i 3 sub get exec} def scolors k get exec setcmykcolor x10 iy01 moveto x10 xd add iy01 lineto x10 xd add iy01 y20 add lineto x10 iy01 y11 add lineto closepath fill } for %i-Schleife /yex10 [ %Reflexion Gelb J 050 050 050 050 050 050 050 050 053 075 133 223 372 555 702 782 821 842 855 865 872 878 883 888 892 897 901 906 910 915 918 922 924 926 928 930 932 934 936 ] def /yexp 77 array def 0 1 38 {/i exch def yexp i 2 mul %Werte 0,2,...,76 yex10 i get exec 0.001 mul put} for 0 1 37 {/i exch def yexp i 2 mul 1 add %Werte 1,3,...,75 yex10 i get exec yex10 i 1 add get exec add 0.5 mul 0.001 mul put} for /iy01 iy0 50 add def %Spektrum II 3 1 66 {/i exch def /y11 {yexp i get exec 50 mul} bind def /y20 {yexp i 1 add get exec 50 mul} bind def /x10 {ix0 i 2 sub xd mul add} bind def /k {ifa i 3 sub get exec} def scolors k get exec setcmykcolor /y20m y20 def %default /y11m y11 def %default iton 3 eq {i 27 ge i 38 le and {/y20m y20 0.8 mul def /y11m y11 0.8 mul def} if} if x10 iy01 moveto x10 xd add iy01 lineto x10 xd add iy01 y20m add lineto x10 iy01 y11m add lineto closepath fill } for %i-Schleife /iy01 iy0 100 add def %spectrum parts BR, BG, GJ, RJ /y20m y20 def %default /y11m y11 def %default /i 19.5 def /x10 {ix0 i 2 sub xd mul add} bind def /y11 {yexp i get exec 50 mul} bind def /y20 {yexp i 1 add get exec 50 mul} bind def 1 setgray x10 iy01 moveto x10 xd add iy01 lineto x10 xd add iy01 50 add lineto x10 iy01 50 add lineto closepath fill 1 setgray x10 8 sub iy01 0 add moveto 19 0 rlineto 0 15 rlineto -19 0 rlineto closepath fill 0 setgray TBIKK x10 6 sub iy01 5 add moveto (B) show TBKS 0 -3 rmoveto (m) show 0 3 rmoveto 1 setgray /xm0 x10 45 sub def /ym0 iy0 123 add def xm0 ym0 03 sub moveto 23 0 rlineto 0 15 rlineto -23 0 rlineto closepath fill 0 setgray xm0 01 add ym0 02 add moveto TBIKK (BR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto /i 26.5 def /x10 {ix0 i 2 sub xd mul add} bind def /y11 {yexp i get exec 50 mul} bind def /y20 {yexp i 1 add get exec 50 mul} bind def 1 setgray x10 iy01 moveto x10 xd add iy01 lineto x10 xd add iy01 50 add lineto x10 iy01 50 add lineto closepath fill 1 setgray x10 8 sub iy01 0 add moveto 19 0 rlineto 0 15 rlineto -19 0 rlineto closepath fill 0 setgray TBIKK x10 6 sub iy01 5 add moveto (G) show TBKS 0 -3 rmoveto (m) show 0 3 rmoveto 1 setgray /xm0 x10 24 sub def /ym0 iy0 123 add def xm0 ym0 03 sub moveto 23 0 rlineto 0 15 rlineto -23 0 rlineto closepath fill 0 setgray xm0 01 add ym0 02 add moveto TBIKK (BG) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto /i 38.5 def /x10 {ix0 i 2 sub xd mul add} bind def /y11 {yexp i get exec 50 mul} bind def /y20 {yexp i 1 add get exec 50 mul} bind def 1 setgray x10 iy01 moveto x10 xd add iy01 lineto x10 xd add iy01 50 add lineto x10 iy01 50 add lineto closepath fill 1 setgray x10 8 sub iy01 0 add moveto 19 0 rlineto 0 15 rlineto -19 0 rlineto closepath fill 0 setgray TBIKK x10 6 sub iy01 5 add moveto (J) show TBKS 0 -3 rmoveto (m) show 0 3 rmoveto 1 setgray 1 setgray /xm0 x10 30 sub def /ym0 iy0 123 add def xm0 ym0 03 sub moveto 23 0 rlineto 0 15 rlineto -23 0 rlineto closepath fill 0 setgray xm0 01 add ym0 02 add moveto TBIKK (JG) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 x10 30 add def /ym0 iy0 123 add def xm0 ym0 03 sub moveto 23 0 rlineto 0 15 rlineto -23 0 rlineto closepath fill 0 setgray xm0 ym0 02 add moveto TBIKK (JR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto /yex10 [ %Reflexion Blau 107 107 107 115 169 282 412 450 483 445 387 317 244 180 125 086 063 050 045 043 042 042 042 042 042 043 044 045 046 053 085 148 228 308 388 468 548 628 708 ] def /yexp 77 array def 0 1 38 {/i exch def yexp i 2 mul %Werte 0,2,...,76 yex10 i get exec 0.001 mul put} for 0 1 37 {/i exch def yexp i 2 mul 1 add %Werte 1,3,...,75 yex10 i get exec yex10 i 1 add get exec add 0.5 mul 0.001 mul put} for /iy01 iy0 000 add def %Spektrum III 3 1 66 {/i exch def /y11 {yexp i get exec 50 mul} bind def /y20 {yexp i 1 add get exec 50 mul} bind def /x10 {ix0 i 2 sub xd mul add} bind def /k {ifa i 3 sub get exec} def scolors k get exec setcmykcolor /y20m y20 def %default /y11m y11 def %default iton 3 eq {i 20 lt {/y20m y20 0.2 mul def /y11m y11 0.2 mul def} if} if x10 iy01 moveto x10 xd add iy01 lineto x10 xd add iy01 y20m add lineto x10 iy01 y11m add lineto closepath fill } for %i-Schleife %horizontale Linien ix0 3 sub iy0 1 sub 273 2 fcolors 7 get exec colrecfi ix0 3 sub iy0 1 sub 050 add 273 2 fcolors 7 get exec colrecfi ix0 3 sub iy0 1 sub 100 add 273 2 fcolors 7 get exec colrecfi ix0 3 sub iy0 1 sub 150 add 273 2 fcolors 7 get exec colrecfi /tx [ (400) (500) (600) (700)] def /ix0 33 def /iy0 44 def 0.0 0.0 0.0 0.0 setcmykcolor %W ix0 18 sub iy0 050 add 20 add moveto (I) show ix0 23 sub iy0 20 add moveto (II) show TBM 1.0 0.5 0.0 0.0 setcmykcolor %Schrift B ix0 028 sub iy0 100 add 20 add moveto (UV) show 0.0 1.0 1.0 0.0 setcmykcolor %Schrift O ix0 265 add iy0 100 add 20 add moveto (IR) show TBG 0.0 0.0 0.0 0.0 setcmykcolor %Schrift Weiss 0 1 3 {/i exch def %x-Achsen-Beschriftung ix0 23 sub 5 i 20 mul add xd mul add iy0 21 sub moveto tx i get exec show } for 5 20 65 {/ixd exch def ix0 9 sub ixd xd mul add iy0 3 sub 2 8 fcolors 07 get exec colrecfi } for %Schleife ixd ix0 3 sub iy0 1 sub 273 2 fcolors 7 get exec colrecfi ix0 1 sub iy0 3 sub 2 153 fcolors 7 get exec colrecfi 0 50 150 {/iyd exch def 10 iy0 iyd add 1 sub 300 2 fcolors 07 get exec colrecfi } for %Schleife iyd 0.0 0.0 0.0 0.0 setcmykcolor %W wavelength range TBK iton 0 eq {TBKK %serie 1 ix0 32 sub 5 1 20 mul add xd mul add iy0 55 add moveto (500) show ix0 06 sub 5 1 20 mul add xd mul add iy0 07 add moveto (500) show 1 setgray /xm0 ix0 52 sub 5 2 20 mul add xd mul add def /ym0 iy0 75 add def xm0 ym0 16 sub moveto 60 0 rlineto 0 26 rlineto -60 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 572nm) show xm0 ym0 00 sub moveto TBKK (Yellow) showen ( Gelb) showde TBIKK ( Y) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 170 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 75 0 rlineto 0 26 rlineto -75 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 465nm) show xm0 ym0 00 sub moveto TBKK (Violet Blue) showen (Violettblau) showde TBIKK ( V) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 1 eq {TBK %serie 1 ix0 52 sub 5 1 20 mul add xd mul add iy0 55 add moveto (475) show ix0 30 sub 5 2 20 mul add xd mul add iy0 55 add moveto (575) show 1 setgray /xm0 ix0 20 sub 5 2 20 mul add xd mul add def /ym0 iy0 85 add def xm0 ym0 16 sub moveto 75 0 rlineto 0 26 rlineto -75 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 525nm) show xm0 ym0 00 sub moveto % TBKK (Leaf Green) showen (Laubgr\374n) showde TBIKK (L) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=BG) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (+JG) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 15 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 60 0 rlineto 0 26 rlineto -60 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 600nm) show xm0 ym0 00 sub moveto % TBKK (Yellow Red) showen (Gelbrot) showde TBIKK ( JR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 170 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 60 0 rlineto 0 26 rlineto -60 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 450nm) show xm0 ym0 00 sub moveto % TBKK (Blue Red) showen (Blaurot) showde TBIKK ( BR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 104 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 68 0 rlineto 0 26 rlineto -68 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 525nm) show xm0 ym0 00 sub moveto % TBKK (Mixture) showen (Mischung) showde TBIKK (M) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=BR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (+JR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 2 eq {TBK %serie 1 ix0 34 sub 5 1 20 mul add xd mul add % iy0 55 add moveto % (513) show % ix0 04 add 5 1 20 mul add xd mul add % iy0 07 add moveto % (513) show 1 setgray /xm0 ix0 52 sub 5 2 20 mul add xd mul add def /ym0 iy0 75 add def xm0 ym0 16 sub moveto 130 0 rlineto 0 26 rlineto -130 0 rlineto closepath fill 0 setgray xm0 2 add ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 575nm, ) show TBIKK (h) show TBKS 0 -3 rmoveto (ab) show 0 3 rmoveto TBKK ( = 92) show xm0 2 add ym0 00 sub moveto TBKK (Surface colour Yellow) showen (K\366rperfarbe Gelb) showde TBIKK ( J) show TBKS 0 -3 rmoveto (s) show 0 3 rmoveto 1 setgray /xm0 ix0 64 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 120 0 rlineto 0 26 rlineto -120 0 rlineto closepath fill 0 setgray xm0 2 add ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 475nm, ) show TBIKK (h) show TBKS 0 -3 rmoveto (ab) show 0 3 rmoveto TBKK ( = 272) show xm0 2 add ym0 00 sub moveto TBKK (Surface colour Blue) showen (K\366rperfarbe Blau) showde TBIKK ( B) show TBKS 0 -3 rmoveto (s) show 0 3 rmoveto } if iton 3 eq {TBK %serie 1 ix0 52 sub 5 1 20 mul add xd mul add iy0 55 add moveto (475) show ix0 30 sub 5 2 20 mul add xd mul add iy0 55 add moveto (575) show 1 setgray /xm0 ix0 20 sub 5 2 20 mul add xd mul add def /ym0 iy0 85 add def xm0 ym0 16 sub moveto 95 0 rlineto 0 26 rlineto -95 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 513nm) show xm0 ym0 00 sub moveto % TBKK (Leaf Green) showen (Laubgr\374n) showde TBIKK (L) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=BG) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (+0,8GJ) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 10 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 60 0 rlineto 0 26 rlineto -60 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 600nm) show xm0 ym0 00 sub moveto TBIKK (JR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 170 sub 5 2 20 mul add xd mul add def /ym0 iy0 32 add def xm0 ym0 16 sub moveto 60 0 rlineto 0 26 rlineto -60 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 450nm) show xm0 ym0 00 sub moveto TBIKK (0,2BR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 105 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 71 0 rlineto 0 26 rlineto -71 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 494nm) show xm0 ym0 00 sub moveto % TBKK (Mixture) showen (Mischung) showde TBIKK (R) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=xBR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (+JR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 4 eq {TBK %serie 1 ix0 52 sub 5 1 20 mul add xd mul add iy0 55 add moveto (475) show ix0 50 sub 5 2 20 mul add xd mul add iy0 55 add moveto (550) show 1 setgray /xm0 ix0 25 sub 5 2 20 mul add xd mul add def /ym0 iy0 85 add def xm0 ym0 16 sub moveto 102 0 rlineto 0 26 rlineto -102 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 513nm) show xm0 ym0 00 sub moveto % TBKK (Leaf Green) showen (Laubgr\374n) showde TBIKK (L) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=BG) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (+0,6JG) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=G) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 15 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 60 0 rlineto 0 26 rlineto -60 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 590nm) show xm0 ym0 00 sub moveto % TBKK (Yellow Red) showen (Gelbrot) showde TBIKK ( O) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 170 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 60 0 rlineto 0 26 rlineto -60 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 450nm) show xm0 ym0 00 sub moveto % TBKK (Blue Red) showen (Blaurot) showde TBIKK ( BR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 106 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 65 0 rlineto 0 26 rlineto -65 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 513nm) show xm0 ym0 00 sub moveto % TBKK (Mixture) showen (Mischung) showde TBIKK (M) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=BR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (+O) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 5 eq {TBK %serie 1 ix0 24 sub 5 1 20 mul add xd mul add iy0 55 add moveto (513) show ix0 50 sub 5 2 20 mul add xd mul add iy0 55 add moveto (550) show 1 setgray /xm0 ix0 174 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 92 0 rlineto 0 26 rlineto -92 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 475nm) show xm0 ym0 00 sub moveto TBKK (Violet Blue) showen (Violettblau) showde TBIKK ( V) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=B) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 27 sub 5 2 20 mul add xd mul add def /ym0 iy0 85 add def xm0 ym0 16 sub moveto 80 0 rlineto 0 26 rlineto -80 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 531nm) show xm0 ym0 00 sub moveto TBKK (Leaf Green) showen (Laubgr\374n) showde TBIKK ( L) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto % TBIKK (=JG) show % TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 29 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 87 0 rlineto 0 26 rlineto -87 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 590nm) show xm0 ym0 00 sub moveto TBKK (Orange Red) showen (Orangerot) showde TBIKK ( O) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto % TBIKK (=JR) show % TBKS 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 6 eq {TBK %serie 1 ix0 52 sub 5 1 20 mul add xd mul add iy0 55 add moveto (475) show ix0 78 sub 5 2 20 mul add xd mul add iy0 55 add moveto (513) show 1 setgray /xm0 ix0 45 sub 5 2 20 mul add xd mul add def /ym0 iy0 85 add def xm0 ym0 16 sub moveto 80 0 rlineto 0 26 rlineto -80 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 494nm) show xm0 ym0 00 sub moveto TBKK (Cyan ) showen (Cyan ) showde TBIKK (C) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=BG) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto % TBIKK (+0,6JG) show % TBKS 0 -3 rmoveto (o) show 0 3 rmoveto % TBIKK (=R) show % TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 15 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 70 0 rlineto 0 26 rlineto -70 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 575nm) show xm0 ym0 00 sub moveto TBKK (Yellow) showen (Gelb) showde TBIKK ( Y) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=J) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 170 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 60 0 rlineto 0 26 rlineto -60 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 450nm) show xm0 ym0 00 sub moveto % TBKK (Blue Red) showen (Blaurot) showde TBIKK ( BR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 106 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 80 0 rlineto 0 26 rlineto -80 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 494nm) show xm0 ym0 00 sub moveto % TBKK (Mixture) showen (Mischung) showde TBIKK (M) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=BR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (+Y) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=R) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 7 eq {TBK %serie 1 ix0 03 add 5 1 20 mul add xd mul add iy0 55 add moveto (550) show ix0 30 add 5 1 20 mul add xd mul add iy0 07 add moveto (550) show 1 setgray /xm0 ix0 50 sub 5 2 20 mul add xd mul add def /ym0 iy0 75 add def xm0 ym0 16 sub moveto 125 0 rlineto 0 26 rlineto -125 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 590nm) show xm0 ym0 00 sub moveto TBKK (Yellow) showen ( Gelb) showde TBIKK ( Y) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBKK ( = ) show TBIKK (0,4JG) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBKK (+) show TBIKK (JR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 170 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 105 0 rlineto 0 26 rlineto -105 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 494nm) show xm0 ym0 00 sub moveto TBKK (Cyan) showen (Cyan) showde TBIKK ( C) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=B) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (+0,6JG) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto } if } if %00<=xchartl<=07 xchartl 08 ge xchartl 15 le and {%08<=xchartl<=15 /ausz 8 def %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F 0 0 320 240 0.0 0.0 0.0 0.5 colrecfi %Rechteck Mittelgrau TBG %Schrift Times-Bold-Gross 0.0 0.0 0.0 0.0 setcmykcolor %Schrift Weiss 120 006 moveto (Wellenl\344nge ) showde %08250-1 1 (wavelength ) showen %18250-1 1 (Ancho de banda ) showes %28250-1 1 (wavelength ) showfr %38250-1 1 (wavelength ) showit %48250-1 1 (wavelength ) showjp %58250-1 1 (l) outSG TBG 2 0 rmoveto (/nm) show 003 220 moveto (Spektralschablonen zur Erzeugung) showde %08250-1 2 (spectral masks for the creation) showen %18250-1 2 (Modelo espectral para producci\363n) showes %28250-1 2 (spectral masks for the creation) showfr %38250-1 2 (spectral masks for the creation) showit %48250-1 2 (spectral masks for the creation) showjp %58250-1 2 003 202 moveto xchartl 8 eq xchartl 9 eq or { (von drei additiven Optimalfarben) showde (of three additive optimal colors) showen } { (komplement\344rer Optimalfarben) showde %08250-1 3 (of complementary optimal colors) showen %18250-1 3 (optima del color complementario) showes %28250-1 3 (of complementary optimal colors) showfr %38250-1 3 (of complementary optimal colors) showit %48250-1 3 (of complementary optimal colors) showjp %58250-1 3 } ifelse /xd 4.0 def /xd2 8.0 def /ix0 33 def /iy0 44 def /yexp 77 array def 0 1 76 {/i exch def yexp i 1.0 put} for /scolors %CMYN 49 Farbkreis-Reihenfolge; 48+1 Sonder-Farben [{0.75 1.00 0.00 0.0} {0.87 1.00 0.00 0.0} {1.00 1.00 0.00 0.0} {1.00 0.87 0.00 0.0} {1.00 0.75 0.00 0.0} {1.00 0.62 0.00 0.0} {1.00 0.50 0.00 0.0} {1.00 0.37 0.00 0.0} {1.00 0.25 0.00 0.0} {1.00 0.12 0.00 0.0} {1.00 0.00 0.00 0.0} {1.00 0.00 0.12 0.0} {1.00 0.00 0.25 0.0} {1.00 0.00 0.37 0.0} {1.00 0.00 0.50 0.0} {1.00 0.00 0.62 0.0} {1.00 0.00 0.75 0.0} {1.00 0.00 0.87 0.0} {1.00 0.00 1.00 0.0} {0.87 0.00 1.00 0.0} %->1 {0.75 0.00 1.00 0.0} {0.62 0.00 1.00 0.0} {0.50 0.00 1.00 0.0} {0.37 0.00 1.00 0.0} {0.25 0.00 1.00 0.0} {0.12 0.00 1.00 0.0} {0.00 0.00 1.00 0.0} {0.00 0.12 1.00 0.0} {0.00 0.25 1.00 0.0} {0.00 0.37 1.00 0.0} {0.00 0.50 1.00 0.0} {0.00 0.62 1.00 0.0} {0.00 0.75 1.00 0.0} {0.00 0.87 1.00 0.0} {0.00 1.00 1.00 0.0} {0.00 1.00 0.87 0.0} {0.00 1.00 0.75 0.0} {0.00 1.00 0.62 0.0} {0.00 1.00 0.50 0.0} {0.00 1.00 0.37 0.0} {0.00 1.00 0.25 0.0} {0.00 1.00 0.12 0.0} {0.00 1.00 0.00 0.0} {0.12 1.00 0.00 0.0} {0.25 1.00 0.00 0.0} {0.37 1.00 0.00 0.0} {0.50 1.00 0.00 0.0} {0.62 1.00 0.00 0.0} {0.00 0.00 0.00 1.0}] def /ifa %Verteilung 48 Farben auf 65 Wellenlaengen ohne Purpur [00 00 00 01 01 01 02 02 03 03 04 04 05 05 06 06 07 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 30 31 31 32 32 33 33 34 34 34 34 34 34 34 34 35 35 35 35 35 35 35 35 35] def %black background /x10 ix0 1 xd mul add def /iy01 iy0 000 add def /iy02 iy0 150 add def 0 0 0 1 setcmykcolor x10 iy01 moveto x10 64 xd mul add iy01 lineto x10 64 xd mul add iy02 lineto x10 iy02 lineto closepath fill /iy01 iy0 100 add def %Spektrum I 3 1 66 {/i exch def /y11 {yexp i get exec 50 mul} bind def /y20 {yexp i 1 add get exec 50 mul} bind def /x10 {ix0 i 2 sub xd mul add} bind def /k {ifa i 3 sub get exec} def scolors k get exec setcmykcolor x10 iy01 moveto x10 xd add iy01 lineto x10 xd add iy01 y20 add lineto x10 iy01 y11 add lineto closepath fill } for %i-Schleife /iy01 iy0 50 add def %Spektrum II 3 1 66 {/i exch def /y20m y20 def %default /y11m y11 def %default /y11 {yexp i get exec 50 mul} bind def /y20 {yexp i 1 add get exec 50 mul} bind def /x10 {ix0 i 2 sub xd mul add} bind def /k {ifa i 3 sub get exec} def iton 0 eq {i 25 ge i 44 le and } if iton 1 eq {i 27 ge i 38 le and } if iton 2 eq {i 20 ge i 75 le and } if iton 3 eq {i 20 ge i 26 le and } if iton 4 eq {i 26 ge i 27 le and } if iton 5 eq {i 10 ge i 11 le and i 45 ge i 46 le and or} if iton 6 eq {i 00 ge i 75 le and } if iton 7 eq {i 00 ge i 75 le and } if iton 5 eq {i 10 ge i 11 le and {/y20m y20 0.3 mul def /y11m y11 0.3 mul def} if} if iton 5 eq {i 45 ge i 46 le and {/y20m y20 def /y11m y11 def} if} if iton 6 eq {i 26 lt i 27 gt or {/y20m y20 0.3 mul def /y11m y11 0.3 mul def} if} if iton 7 eq {i 45 lt i 46 gt or {/y20m y20 0.3 mul def /y11m y11 0.3 mul def} if} if iton 7 eq {i 10 ge i 11 le and {/y20m y20 0.5 mul def /y11m y11 0.5 mul def} if} if {scolors k get exec setcmykcolor } {0.0 0.0 0.0 1.0 setcmykcolor} ifelse x10 iy01 moveto x10 xd add iy01 lineto x10 xd add iy01 y20m add lineto x10 iy01 y11m add lineto closepath fill } for %i-Schleife /iy01 iy0 100 add def %spectrum parts BR, BG, GJ, RJ /y20m y20 def %default /y11m y11 def %default /i 19.5 def /x10 {ix0 i 2 sub xd mul add} bind def /y11 {yexp i get exec 50 mul} bind def /y20 {yexp i 1 add get exec 50 mul} bind def 1 setgray x10 iy01 moveto x10 xd add iy01 lineto x10 xd add iy01 y20m add lineto x10 iy01 y11m add lineto closepath fill /xm0 x10 45 sub def /ym0 iy0 123 add def xm0 ym0 03 sub moveto 23 0 rlineto 0 15 rlineto -23 0 rlineto closepath fill 0 setgray xm0 01 add ym0 02 add moveto TBIKK (BR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto /i 26.5 def /x10 {ix0 i 2 sub xd mul add} bind def /y11 {yexp i get exec 50 mul} bind def /y20 {yexp i 1 add get exec 50 mul} bind def 1 setgray % x10 iy01 moveto % x10 xd add iy01 lineto % x10 xd add iy01 y20m add lineto % x10 iy01 y11m add lineto % closepath fill /xm0 x10 24 sub def /ym0 iy0 123 add def xm0 ym0 03 sub moveto 23 0 rlineto 0 15 rlineto -23 0 rlineto closepath fill % 0 setgray % xm0 01 add ym0 02 add moveto % TBIKK (BG) show % TBKS 0 -3 rmoveto (o) show 0 3 rmoveto /i 38.5 def /x10 {ix0 i 2 sub xd mul add} bind def /y11 {yexp i get exec 50 mul} bind def /y20 {yexp i 1 add get exec 50 mul} bind def 1 setgray % x10 iy01 moveto % x10 xd add iy01 lineto % x10 xd add iy01 y20m add lineto % x10 iy01 y11m add lineto % closepath fill 1 setgray /xm0 x10 30 sub def /ym0 iy0 123 add def xm0 ym0 03 sub moveto 23 0 rlineto 0 15 rlineto -23 0 rlineto closepath fill 0 setgray xm0 01 add ym0 02 add moveto TBIKK (JG) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 x10 30 add def /ym0 iy0 123 add def xm0 ym0 03 sub moveto 23 0 rlineto 0 15 rlineto -23 0 rlineto closepath fill 0 setgray xm0 ym0 02 add moveto TBIKK (JR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto /iy01 iy0 00 add def %Spektrum III 3 1 66 {/i exch def /y20m y20 def %default /y11m y11 def %default /y11 {yexp i get exec 50 mul} bind def /y20 {yexp i 1 add get exec 50 mul} bind def /x10 {ix0 i 2 sub xd mul add} bind def /k {ifa i 3 sub get exec} def iton 0 eq {i 25 ge i 44 le and } if iton 1 eq {i 27 ge i 38 le and } if iton 2 eq {i 20 ge i 75 le and } if iton 3 eq {i 20 ge i 26 le and } if iton 4 eq {i 26 ge i 27 le and } if iton 5 eq {i 45 ge i 46 le and } if iton 6 eq {i 26 ge i 27 le and } if iton 7 eq {i 45 ge i 46 le and } if %iton 5 eq {i 10 ge i 11 le and {/y20m y20 0.3 mul def % /y11m y11 0.3 mul def} if} if iton 5 eq {i 0 ge i 10 lt and i 11 gt i 45 lt and or i 46 gt i 75 le and or {/y20m y20 1.0 mul def /y11m y11 1.0 mul def} if} if iton 5 eq {i 10 eq i 11 eq or {/y20m y20 0.7 mul def /y11m y11 0.7 mul def} if} if iton 6 eq {i 26 lt i 27 gt or {/y20m y20 0.7 mul def /y11m y11 0.7 mul def} if} if iton 7 eq {i 0 ge i 10 lt and i 11 gt i 45 lt and or i 46 gt i 75 le and or {/y20m y20 0.7 mul def /y11m y11 0.7 mul def} if} if iton 7 eq {i 10 eq i 11 eq or {/y20m y20 0.5 mul def /y11m y11 0.5 mul def} if} if {0.0 0.0 0.0 1.0 setcmykcolor} {scolors k get exec setcmykcolor } ifelse x10 iy01 moveto x10 xd add iy01 lineto x10 xd add iy01 y20m add lineto x10 iy01 y11m add lineto closepath fill } for %i-Schleife %horizontale Linien ix0 3 sub iy0 1 sub 273 2 fcolors 7 get exec colrecfi ix0 3 sub iy0 1 sub 050 add 273 2 fcolors 7 get exec colrecfi ix0 3 sub iy0 1 sub 100 add 273 2 fcolors 7 get exec colrecfi ix0 3 sub iy0 1 sub 150 add 273 2 fcolors 7 get exec colrecfi /tx [ (400) (500) (600) (700)] def /ix0 33 def /iy0 44 def 0.0 0.0 0.0 0.0 setcmykcolor %W ix0 18 sub iy0 050 add 20 add moveto (I) show ix0 23 sub iy0 20 add moveto (II) show TBM 1.0 0.5 0.0 0.0 setcmykcolor %Schrift B ix0 028 sub iy0 100 add 20 add moveto (UV) show 0.0 1.0 1.0 0.0 setcmykcolor %Schrift O ix0 265 add iy0 100 add 20 add moveto (IR) show TBG 0.0 0.0 0.0 0.0 setcmykcolor %Schrift Weiss 0 1 3 {/i exch def %x-Achsen-Beschriftung ix0 23 sub 5 i 20 mul add xd mul add iy0 21 sub moveto tx i get exec show } for 5 20 65 {/ixd exch def ix0 9 sub ixd xd mul add iy0 3 sub 2 8 fcolors 07 get exec colrecfi } for %Schleife ixd ix0 3 sub iy0 1 sub 273 2 fcolors 7 get exec colrecfi ix0 1 sub iy0 3 sub 2 153 fcolors 7 get exec colrecfi 0 50 150 {/iyd exch def 10 iy0 iyd add 1 sub 300 2 fcolors 07 get exec colrecfi } for %Schleife iyd 0.0 0.0 0.0 0.0 setcmykcolor %W wavelength range TBK iton 0 eq {TBK %serie 2 ix0 35 sub 5 1 20 mul add xd mul add iy0 55 add moveto (500) show ix0 07 sub 5 2 20 mul add xd mul add iy0 55 add moveto (600) show 1 setgray /xm0 ix0 170 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 75 0 rlineto 0 26 rlineto -75 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 465nm) show xm0 ym0 00 sub moveto TBKK (Violet Blue) showen (Violettblau) showde TBIKK ( V) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 03 sub 5 2 20 mul add xd mul add def /ym0 iy0 85 add def xm0 ym0 16 sub moveto 75 0 rlineto 0 26 rlineto -75 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 555nm) show xm0 ym0 00 sub moveto TBKK (Leaf Green) showen (Laubgr\374n) showde TBIKK ( L) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 05 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 80 0 rlineto 0 26 rlineto -80 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 620nm) show xm0 ym0 00 sub moveto TBKK (Orange Red) showen (Orangerot) showde TBIKK ( O) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 1 eq {TBK %serie 2 ix0 24 sub 5 1 20 mul add xd mul add iy0 55 add moveto (513) show ix0 30 sub 5 2 20 mul add xd mul add iy0 55 add moveto (575) show 1 setgray /xm0 ix0 174 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 93 0 rlineto 0 26 rlineto -93 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 474nm) show xm0 ym0 00 sub moveto TBKK (Violet Blue) showen (Violettblau) showde TBIKK ( V) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=B) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 27 sub 5 2 20 mul add xd mul add def /ym0 iy0 85 add def xm0 ym0 16 sub moveto 100 0 rlineto 0 26 rlineto -100 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 545nm) show xm0 ym0 00 sub moveto TBKK (Leaf Green) showen (Laubgr\374n) showde TBIKK ( L) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=JG) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 29 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 107 0 rlineto 0 26 rlineto -107 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 600nm) show xm0 ym0 00 sub moveto TBKK (Orange Red) showen (Orangerot) showde TBIKK ( O) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=JR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 2 eq {TBK %serie 2 ix0 52 sub 5 1 20 mul add xd mul add iy0 55 add moveto (475) show ix0 27 sub 5 1 20 mul add xd mul add iy0 07 add moveto (475) show 1 setgray /xm0 ix0 52 sub 5 2 20 mul add xd mul add def /ym0 iy0 75 add def xm0 ym0 16 sub moveto 130 0 rlineto 0 26 rlineto -130 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 540nm) show xm0 ym0 00 sub moveto TBKK (Yellow) showen ( Gelb) showde TBIKK ( Y) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBKK (=BG) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBKK (+JG) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBKK (+JR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 172 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 60 0 rlineto 0 26 rlineto -60 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 450nm) show xm0 ym0 00 sub moveto % TBKK (Blue Red) showen (Blaurot) showde TBIKK ( BR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 3 eq {TBK %serie 2 ix0 52 sub 5 1 20 mul add xd mul add iy0 55 add moveto (475) show ix0 04 add 5 1 20 mul add xd mul add iy0 55 add moveto (513) show 1 setgray /xm0 ix0 62 sub 5 2 20 mul add xd mul add def /ym0 iy0 85 add def xm0 ym0 16 sub moveto 100 0 rlineto 0 26 rlineto -100 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 494nm) show xm0 ym0 00 sub moveto TBKK (Cyan Blue) showen (Cyanblau) showde TBIKK ( C) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=BG) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 47 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 110 0 rlineto 0 26 rlineto -110 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 600nm) show xm0 ym0 00 sub moveto TBKK (Yellow) showen (Gelb) showde TBIKK ( Y) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=JG) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=+JR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 172 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 60 0 rlineto 0 26 rlineto -60 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 450nm) show xm0 ym0 00 sub moveto % TBKK (Blue Red) showen (Blaurot) showde TBIKK ( BR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 4 eq {TBK %serie 2 ix0 27 sub 5 1 20 mul add xd mul add iy0 55 add moveto (513) show 1 setgray /xm0 ix0 52 sub 5 2 20 mul add xd mul add def /ym0 iy0 75 add def xm0 ym0 16 sub moveto 75 0 rlineto 0 26 rlineto -75 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 513nm) show xm0 ym0 00 sub moveto TBKK (Green) showen (Gr\374n) showde TBIKK ( G) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 62 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 90 0 rlineto 0 26 rlineto -90 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 513nm) show xm0 ym0 00 sub moveto TBKK (Magenta Red) showen (Magentarot) showde TBIKK ( M) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 5 eq {TBK %serie 2 ix0 55 sub 5 1 20 mul add xd mul add iy0 55 add moveto (450) show ix0 80 add 5 1 20 mul add xd mul add iy0 55 add moveto (600) show 1 setgray /xm0 ix0 92 sub 5 2 20 mul add xd mul add def /ym0 iy0 75 add def xm0 ym0 16 sub moveto 75 0 rlineto 0 26 rlineto -75 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 494nm) show xm0 ym0 00 sub moveto TBKK ( Red) showen ( Rot) showde TBIKK ( R) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 36 sub 5 1 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 80 0 rlineto 0 26 rlineto -80 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK ( = 494nm) show xm0 ym0 00 sub moveto TBKK (Leaf Green) showen (Blattgr\374n) showde TBIKK ( L) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 6 eq {TBK %serie 2 ix0 23 sub 5 1 20 mul add xd mul add iy0 70 add moveto (513) show 1 setgray /xm0 ix0 52 sub 5 2 20 mul add xd mul add def /ym0 iy0 85 add def xm0 ym0 16 sub moveto 75 0 rlineto 0 26 rlineto -75 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 513nm) show xm0 ym0 00 sub moveto TBKK (Green) showen (Gr\374n) showde TBIKK ( G) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 62 sub 5 2 20 mul add xd mul add def /ym0 iy0 20 add def xm0 ym0 16 sub moveto 90 0 rlineto 0 26 rlineto -90 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 513nm) show xm0 ym0 00 sub moveto TBKK (Magenta Red) showen (Magentarot) showde TBIKK ( M) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 7 eq {TBK %serie 2 ix0 55 sub 5 1 20 mul add xd mul add iy0 70 add moveto (450) show ix0 80 add 5 1 20 mul add xd mul add iy0 70 add moveto (600) show 1 setgray /xm0 ix0 92 sub 5 2 20 mul add xd mul add def /ym0 iy0 85 add def xm0 ym0 16 sub moveto 75 0 rlineto 0 26 rlineto -75 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 494nm) show xm0 ym0 00 sub moveto TBKK ( Red) showen ( Rot) showde TBIKK ( R) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 36 sub 5 1 20 mul add xd mul add def /ym0 iy0 20 add def xm0 ym0 16 sub moveto 80 0 rlineto 0 26 rlineto -80 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK ( = 494nm) show xm0 ym0 00 sub moveto TBKK (Leaf Green) showen (Blattgr\374n) showde TBIKK ( L) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto } if } if %08<=xchartl<=15 showpage grestore } for %output with langind end %%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 ME170-3N.EPS %%BoundingBox: 70 83 226 206 %%old BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark03 where {pop} {userdict /pdfmark03 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/ME17/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.richter@me.com) /CreationDate (D:2010110112000) /ModDate (D:2010110112000) /DOCINFO pdfmark03 [ /View [ /FitB ] /DOCVIEW pdfmark03 %END PDFDE011 /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 /str {8 string } bind def /TK {250 16.67 div /Times-ISOL1 FS} bind def /TM {300 16.67 div /Times-ISOL1 FS} bind def /TG {350 16.67 div /Times-ISOL1 FS} bind def /TIK {250 16.67 div /TimesI-ISOL1 FS} bind def /TIM {300 16.67 div /TimesI-ISOL1 FS} bind def /TIG {350 16.67 div /TimesI-ISOL1 FS} bind def /TBK {250 16.67 div /TimesB-ISOL1 FS} bind def /TBM {300 16.67 div /TimesB-ISOL1 FS} bind def /TBG {350 16.67 div /TimesB-ISOL1 FS} bind def /TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def /TBIM {300 16.67 div /TimesBI-ISOL1 FS} bind def /TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def /tolvfcol %Farbkreis-Reihenfolge [ (000) (F00) (FF0) (0F0) (0FF) (00F) (F0F) (FFF) (777) (700) (770) (070) (077) (007) (707) (F07) %15=R (333) (F77) (FF7) (7F7) (7FF) (77F) (F7F) (07F) %23=B (BBB) (F70) (7F0) (0F7) (07F) (70F) (F07) (0F7) %31=G ] def /tcmyfcol %Farbkreis-Reihenfolge [ (FFF) (0FF) (00F) (F0F) (F00) (FF0) (0F0) (000) (888) (8FF) (88F) (F8F) (F88) (FF8) (8F8) (0F8) %15=R (CCC) (088) (008) (808) (800) (880) (080) (F80) %23=B (444) (08F) (80F) (F08) (F80) (8F0) (0F8) (F08) %31=G ] def /tcmykfcol %Farbkreis-Reihenfolge [ (000F) (0FF0) (00F0) (F0F0) (F000) (FF00) (0F00) (0000) (0008) (0FF8) (00F8) (F0F8) (F008) (FF08) (0F08) (0F80) %15=R (000C) (0880) (0080) (8080) (8000) (8800) (0800) (F800) %23=B (0004) (0F80) (80F0) (F080) (F800) (8F00) (0F80) (F080) %31=G ] def /tolvfcols %Farbkreis-Reihenfolge [ (000*) (F00*) (FF0*) (0F0*) (0FF*) (00F*) (F0F*) (FFF*) (777*) (700*) (770*) (070*) (077*) (007*) (707*) (F07*) %15=R (333*) (F77*) (FF7*) (7F7*) (7FF*) (77F*) (F7F*) (07F*) %23=B (BBB*) (F70*) (7F0*) (0F7*) (07F*) (70F*) (F07*) (0F7*) %31=G ] def /tcmyfcols %Farbkreis-Reihenfolge [ (FFF*) (0FF*) (00F*) (F0F*) (F00*) (FF0*) (0F0*) (000*) (888*) (8FF*) (88F*) (F8F*) (F88*) (FF8*) (8F8*) (0F8*) %15=R (CCC*) (088*) (008*) (808*) (800*) (880*) (080*) (F80*) %23=B (444*) (08F*) (80F*) (F08*) (F80*) (8F0*) (0F8*) (F08*) %31=G ] def /tcmykfcols %Farbkreis-Reihenfolge [ (000F*) (0FF0*) (00F0*) (F0F0*) (F000*) (FF00*) (0F00*) (0000*) (0008*) (0FF8*) (00F8*) (F0F8*) (F008*) (FF08*) (0F08*) (0F80*) %15=R (000C*) (0880*) (0080*) (8080*) (8000*) (8800*) (0800*) (F800*) %23=B (0004*) (0F80*) (80F0*) (F080*) (F800*) (8F00*) (0F80*) (F080*) %31=G ] def /fcolors %CMYN 32 Testfarben Nr. 0 bis 31; Farbkreis-Reihenfolge [{0.0 0.0 0.0 1.0} {0.0 1.0 1.0 0.0} {0.0 0.0 1.0 0.0} {1.0 0.0 1.0 0.0} {1.0 0.0 0.0 0.0} {1.0 1.0 0.0 0.0} {0.0 1.0 0.0 0.0} {0.0 0.0 0.0 0.0} {0.0 0.0 0.0 0.5} {0.0 1.0 1.0 0.5} {0.0 0.0 1.0 0.5} {1.0 0.0 1.0 0.5} {1.0 0.0 0.0 0.5} {1.0 1.0 0.0 0.5} {0.0 1.0 0.0 0.5} {0.0 1.0 0.5 0.0} {0.0 0.0 0.0 0.75} {0.0 0.5 0.5 0.0} {0.0 0.0 0.5 0.0} {0.5 0.0 0.5 0.0} {0.5 0.0 0.0 0.0} {0.5 0.5 0.0 0.0} {0.0 0.5 0.0 0.0} {1.0 0.5 0.0 0.0} {0.0 0.0 0.0 0.25} {0.0 0.5 1.0 0.0} {0.5 0.0 1.0 0.0} {1.0 0.0 0.5 0.0} {1.0 0.5 0.0 0.0} {0.5 1.0 0.0 0.0} {0.0 1.0 0.5 0.0} {1.0 0.0 0.5 0.0} ] def /fak 0.5 def /Far %Farbkreis-Reihenfolge [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %R 16 17 18 19 20 21 22 23 %B 24 25 26 27 28 29 30 31 %G ] def /cFar %Kompensativ-Farbkreis-Reihenfolge [ 8 4 5 6 1 2 3 0 0 20 21 22 17 18 19 31 %G 24 12 13 14 9 10 11 2 %J 16 28 29 30 25 26 27 15 %R ] def /Btx %Farbkreis- -> %Btx-Reihenfolge [ 0 1 3 2 5 6 4 7 8 9 11 10 13 14 12 15 %R 16 17 19 18 21 22 20 23 %B 24 25 26 27 28 29 30 31 %G ] def /cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge [ 7 4 6 5 2 3 1 0 8 20 22 21 18 19 17 31 %G 24 12 14 13 10 11 9 2 %J 16 25 26 27 28 29 30 15 %R ] 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 /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.75 0.0} bind def %Elementarfarben %new /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.75 0.5} bind def %Elementarfarben vergraut %new /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %ANFA OUTLIN00 951204 /pixf 1.0 def /ueg 1 pixf mul def /uek 1 pixf mul def /ues 1 pixf mul def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /pss ues def /outxshowf {show} bind def /outxshow {show} bind def /outSK {250 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSM {300 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSG {350 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outshowf {setcmykcolor show} bind def /outrecfi { %x y width heigth c m y k setcmykcolor rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmykcolor lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmykcolor stroke} bind def %%EndProlog gsave %LANINDL2 START 20000505 /lanind 0 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 {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END 5 /Times-ISOL1 FS 190 85 moveto (ME170-3N, B2_42C1) show % ( B8541_3, M8151-3, B2_42, N=2_42) show 72 90 translate /pixf 1.0 def 0.1667 pixf div MM dup scale /ausz 8 def %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F 0 0 320 240 0.0 0.0 0.0 0.5 colrecfi %Rechteck Mittelgrau TBIG %Schrift Times-Bold-Gross 0.0 0.0 0.0 0.0 setcmykcolor %Schrift Weiss 2 setlinewidth /ir 19 def /ixm 169 def /iym 119 def %Definitionen Rechtecke 0.0 0.0 0.0 1.0 setcmykcolor %N ixm 119 100 0 360 arc stroke ixm 120 moveto ixm 239 3 setlinewidth tzj outlinetos 2 setlinewidth %J ixm 1 add 119 moveto 319 119 tzr outlinetos %R ixm 000 moveto ixm 118 tzb outlinetos %B 000 119 moveto ixm 1 sub 119 tzg outlinetos %G ixm ir sub 000 add iym ir sub 101 add 38 38 tzy outrecfi4 %J ixm ir sub 100 add iym ir sub 000 add 38 38 tzr outrecfi4 %R ixm ir sub 000 add iym ir sub 100 sub 38 38 tzb outrecfi4 %B ixm ir sub 100 sub iym ir sub 000 add 38 38 tzg outrecfi4 %G TBIG /itx 9 def /ity 6 def ixm itx sub 000 add 00 add iym ity sub 101 add moveto (J) tzb outshowf %J mit Schriftfarbe %B TBIM 0 -3 rmoveto (o) show TBIG ixm itx sub 100 add 00 sub iym ity sub 000 add moveto (R) tzg outshowf %R mit Schriftfarbe G TBIM 0 -3 rmoveto (o) show TBIG ixm itx sub 000 add 00 add iym ity sub 100 sub moveto (B) tzy outshowf %B mit Schriftfarbe J TBIM 0 -3 rmoveto (o) show TBIG ixm itx sub 100 sub 00 sub iym ity sub 000 add moveto (G) tzr outshowf %G mit Schriftfarbe R TBIM 0 -3 rmoveto (o) show TBIG TBG 0.0 0.0 0.0 0.0 setcmykcolor %W 004 221 moveto (vier Elementar\255) showde (four elementary) showen 004 201 moveto (Optimal\255) showde (optimal) showen 004 181 moveto (farben) showde (colors) showen 004 025 moveto TBIG (o) show TBG (=) show 004 005 moveto (Optimalfarben) showde (optimal colours) showen showpage grestore } for %output with langind end %%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 ME170-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 (ME170-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 ME170-5N %%BoundingBox: 70 83 226 206 %%old BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark05 where {pop} {userdict /pdfmark05 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/ME17/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.richter@me.com) /CreationDate (D:2010110112000) /ModDate (D:2010110112000) /DOCINFO pdfmark05 [ /View [ /FitB ] /DOCVIEW pdfmark05 %END PDFDE011 /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 /str {8 string } bind def /TK {250 16.67 div /Times-ISOL1 FS} bind def /TM {300 16.67 div /Times-ISOL1 FS} bind def /TG {350 16.67 div /Times-ISOL1 FS} bind def /TIK {250 16.67 div /TimesI-ISOL1 FS} bind def /TIM {300 16.67 div /TimesI-ISOL1 FS} bind def /TIG {350 16.67 div /TimesI-ISOL1 FS} bind def /TBK {250 16.67 div /TimesB-ISOL1 FS} bind def /TBM {300 16.67 div /TimesB-ISOL1 FS} bind def /TBG {350 16.67 div /TimesB-ISOL1 FS} bind def /TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def /TBIM {300 16.67 div /TimesBI-ISOL1 FS} bind def /TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def /tolvfcol %Farbkreis-Reihenfolge [ (000) (F00) (FF0) (0F0) (0FF) (00F) (F0F) (FFF) (777) (700) (770) (070) (077) (007) (707) (F07) %15=R (333) (F77) (FF7) (7F7) (7FF) (77F) (F7F) (07F) %23=B (BBB) (F70) (7F0) (0F7) (07F) (70F) (F07) (0F7) %31=G ] def /tcmyfcol %Farbkreis-Reihenfolge [ (FFF) (0FF) (00F) (F0F) (F00) (FF0) (0F0) (000) (888) (8FF) (88F) (F8F) (F88) (FF8) (8F8) (0F8) %15=R (CCC) (088) (008) (808) (800) (880) (080) (F80) %23=B (444) (08F) (80F) (F08) (F80) (8F0) (0F8) (F08) %31=G ] def /tcmykfcol %Farbkreis-Reihenfolge [ (000F) (0FF0) (00F0) (F0F0) (F000) (FF00) (0F00) (0000) (0008) (0FF8) (00F8) (F0F8) (F008) (FF08) (0F08) (0F80) %15=R (000C) (0880) (0080) (8080) (8000) (8800) (0800) (F800) %23=B (0004) (0F80) (80F0) (F080) (F800) (8F00) (0F80) (F080) %31=G ] def /tolvfcols %Farbkreis-Reihenfolge [ (000*) (F00*) (FF0*) (0F0*) (0FF*) (00F*) (F0F*) (FFF*) (777*) (700*) (770*) (070*) (077*) (007*) (707*) (F07*) %15=R (333*) (F77*) (FF7*) (7F7*) (7FF*) (77F*) (F7F*) (07F*) %23=B (BBB*) (F70*) (7F0*) (0F7*) (07F*) (70F*) (F07*) (0F7*) %31=G ] def /tcmyfcols %Farbkreis-Reihenfolge [ (FFF*) (0FF*) (00F*) (F0F*) (F00*) (FF0*) (0F0*) (000*) (888*) (8FF*) (88F*) (F8F*) (F88*) (FF8*) (8F8*) (0F8*) %15=R (CCC*) (088*) (008*) (808*) (800*) (880*) (080*) (F80*) %23=B (444*) (08F*) (80F*) (F08*) (F80*) (8F0*) (0F8*) (F08*) %31=G ] def /tcmykfcols %Farbkreis-Reihenfolge [ (000F*) (0FF0*) (00F0*) (F0F0*) (F000*) (FF00*) (0F00*) (0000*) (0008*) (0FF8*) (00F8*) (F0F8*) (F008*) (FF08*) (0F08*) (0F80*) %15=R (000C*) (0880*) (0080*) (8080*) (8000*) (8800*) (0800*) (F800*) %23=B (0004*) (0F80*) (80F0*) (F080*) (F800*) (8F00*) (0F80*) (F080*) %31=G ] def /fcolors %CMYN 32 Testfarben Nr. 0 bis 31; Farbkreis-Reihenfolge [{0.0 0.0 0.0 1.0} {0.0 1.0 1.0 0.0} {0.0 0.0 1.0 0.0} {1.0 0.0 1.0 0.0} {1.0 0.0 0.0 0.0} {1.0 1.0 0.0 0.0} {0.0 1.0 0.0 0.0} {0.0 0.0 0.0 0.0} {0.0 0.0 0.0 0.5} {0.0 1.0 1.0 0.5} {0.0 0.0 1.0 0.5} {1.0 0.0 1.0 0.5} {1.0 0.0 0.0 0.5} {1.0 1.0 0.0 0.5} {0.0 1.0 0.0 0.5} {0.0 1.0 0.5 0.0} {0.0 0.0 0.0 0.75} {0.0 0.5 0.5 0.0} {0.0 0.0 0.5 0.0} {0.5 0.0 0.5 0.0} {0.5 0.0 0.0 0.0} {0.5 0.5 0.0 0.0} {0.0 0.5 0.0 0.0} {1.0 0.5 0.0 0.0} {0.0 0.0 0.0 0.25} {0.0 0.5 1.0 0.0} {0.5 0.0 1.0 0.0} {1.0 0.0 0.5 0.0} {1.0 0.5 0.0 0.0} {0.5 1.0 0.0 0.0} {0.0 1.0 0.5 0.0} {1.0 0.0 0.5 0.0} ] def /fak 0.5 def /Far %Farbkreis-Reihenfolge [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %R 16 17 18 19 20 21 22 23 %B 24 25 26 27 28 29 30 31 %G ] def /cFar %Kompensativ-Farbkreis-Reihenfolge [ 8 4 5 6 1 2 3 0 0 20 21 22 17 18 19 31 %G 24 12 13 14 9 10 11 2 %J 16 28 29 30 25 26 27 15 %R ] def /Btx %Farbkreis- -> %Btx-Reihenfolge [ 0 1 3 2 5 6 4 7 8 9 11 10 13 14 12 15 %R 16 17 19 18 21 22 20 23 %B 24 25 26 27 28 29 30 31 %G ] def /cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge [ 7 4 6 5 2 3 1 0 8 20 22 21 18 19 17 31 %G 24 12 14 13 10 11 9 2 %J 16 25 26 27 28 29 30 15 %R ] 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 /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.75 0.0} bind def %Elementarfarben %new /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.75 0.5} bind def %Elementarfarben vergraut %new /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %ANFA OUTLIN00 951204 /pixf 1.0 def /ueg 1 pixf mul def /uek 1 pixf mul def /ues 1 pixf mul def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /pss ues def /outxshowf {show} bind def /outxshow {show} bind def /outSK {250 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSM {300 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSG {350 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outshowf {setcmykcolor show} bind def /outrecfi { %x y width heigth c m y k setcmykcolor rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmykcolor lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmykcolor stroke} bind def %%EndProlog gsave %LANINDL2 START 20000505 /lanind 0 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 {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END 5 /Times-ISOL1 FS 190 86 moveto (ME170-5N) show % ( B8541_3, M8151-3, B2_42, N=2_42) show 72 90 translate /pixf 1.0 def 0.1667 pixf div MM dup scale /ausz 8 def %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F 0 0 320 240 0.0 0.0 0.0 0.5 colrecfi %Rechteck Mittelgrau TBIG %Schrift Times-Bold-Gross 0.0 0.0 0.0 0.0 setcmykcolor %Schrift Weiss 2 setlinewidth /ir 19 def /ixm 169 def /iym 119 def %Definitionen Rechtecke 0.0 0.0 0.0 1.0 setcmykcolor %N ixm 119 100 0 360 arc stroke ixm 120 moveto ixm 239 3 setlinewidth tzj outlinetos 2 setlinewidth %J ixm 1 add 119 moveto 319 119 tzr outlinetos %R ixm 000 moveto ixm 118 tzb outlinetos %B 000 119 moveto ixm 1 sub 119 tzg outlinetos %G ixm ir sub 000 add iym ir sub 101 add 38 38 tzy outrecfi4 %J ixm ir sub 100 add iym ir sub 000 add 38 38 tzr outrecfi4 %R ixm ir sub 000 add iym ir sub 100 sub 38 38 tzb outrecfi4 %B ixm ir sub 100 sub iym ir sub 000 add 38 38 tzg outrecfi4 %G TBIG /itx 9 def /ity 6 def ixm itx sub 000 add 00 add iym ity sub 101 add moveto (J) tzb outshowf %J mit Schriftfarbe %B TBIM 0 -3 rmoveto (o) show TBIG ixm itx sub 100 add 00 sub iym ity sub 000 add moveto (R) tzg outshowf %R mit Schriftfarbe G TBIM 0 -3 rmoveto (o) show TBIG ixm itx sub 000 add 00 add iym ity sub 100 sub moveto (B) tzy outshowf %B mit Schriftfarbe J TBIM 0 -3 rmoveto (o) show TBIG ixm itx sub 100 sub 00 sub iym ity sub 000 add moveto (G) tzr outshowf %G mit Schriftfarbe R TBIM 0 -3 rmoveto (o) show TBIG ixm ir sub 000 add iym ir sub 061 add 38 38 tzy outrecfi4 %J ixm ir sub 050 add iym ir sub 000 add 38 38 tzr outrecfi4 %R ixm ir sub 000 add iym ir sub 040 sub 38 38 tzb outrecfi4 %B ixm ir sub 050 sub iym ir sub 000 add 38 38 tzg outrecfi4 %G TBIG /itx 9 def /ity 6 def ixm itx sub 000 add 00 add iym ity sub 061 add moveto (J) tzb outshowf %J mit Schriftfarbe %B TBIM 0 -3 rmoveto (s) show TBIG ixm itx sub 050 add 00 sub iym ity sub 000 add moveto (R) tzg outshowf %R mit Schriftfarbe G TBIM 0 -3 rmoveto (s) show TBIG ixm itx sub 000 add 00 add iym ity sub 040 sub moveto (B) tzy outshowf %B mit Schriftfarbe J TBIM 0 -3 rmoveto (s) show TBIG ixm itx sub 050 sub 00 sub iym ity sub 000 add moveto (G) tzr outshowf %G mit Schriftfarbe R TBIM 0 -3 rmoveto (s) show TBIG TBG 0.0 0.0 0.0 0.0 setcmykcolor %W 004 221 moveto (vier Elementar\255) showde (four elementary) showen 004 201 moveto (farben) showde (colors) showen 004 025 moveto TBIG (o) show TBG ( = ) show (Optimal) showde (optimal) showen 004 005 moveto TBIG (s) show TBG ( = ) show (K\366rper) showde (surface) showen showpage grestore } for %output with langind end %%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 ME170-6N %%BoundingBox: 70 83 226 206 %%old BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark06 where {pop} {userdict /pdfmark06 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/ME17/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.richter@me.com) /CreationDate (D:2010110112000) /ModDate (D:2010110112000) /DOCINFO pdfmark06 [ /View [ /FitB ] /DOCVIEW pdfmark06 %END PDFDE011 /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 /str {8 string } bind def /TK {250 16.67 div /Times-ISOL1 FS} bind def /TM {300 16.67 div /Times-ISOL1 FS} bind def /TG {350 16.67 div /Times-ISOL1 FS} bind def /TIK {250 16.67 div /TimesI-ISOL1 FS} bind def /TIM {300 16.67 div /TimesI-ISOL1 FS} bind def /TIG {350 16.67 div /TimesI-ISOL1 FS} bind def /TBK {250 16.67 div /TimesB-ISOL1 FS} bind def /TBM {300 16.67 div /TimesB-ISOL1 FS} bind def /TBG {350 16.67 div /TimesB-ISOL1 FS} bind def /TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def /TBIM {300 16.67 div /TimesBI-ISOL1 FS} bind def /TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def /tolvfcol %Farbkreis-Reihenfolge [ (000) (F00) (FF0) (0F0) (0FF) (00F) (F0F) (FFF) (777) (700) (770) (070) (077) (007) (707) (F07) %15=R (333) (F77) (FF7) (7F7) (7FF) (77F) (F7F) (07F) %23=B (BBB) (F70) (7F0) (0F7) (07F) (70F) (F07) (0F7) %31=G ] def /tcmyfcol %Farbkreis-Reihenfolge [ (FFF) (0FF) (00F) (F0F) (F00) (FF0) (0F0) (000) (888) (8FF) (88F) (F8F) (F88) (FF8) (8F8) (0F8) %15=R (CCC) (088) (008) (808) (800) (880) (080) (F80) %23=B (444) (08F) (80F) (F08) (F80) (8F0) (0F8) (F08) %31=G ] def /tcmykfcol %Farbkreis-Reihenfolge [ (000F) (0FF0) (00F0) (F0F0) (F000) (FF00) (0F00) (0000) (0008) (0FF8) (00F8) (F0F8) (F008) (FF08) (0F08) (0F80) %15=R (000C) (0880) (0080) (8080) (8000) (8800) (0800) (F800) %23=B (0004) (0F80) (80F0) (F080) (F800) (8F00) (0F80) (F080) %31=G ] def /tolvfcols %Farbkreis-Reihenfolge [ (000*) (F00*) (FF0*) (0F0*) (0FF*) (00F*) (F0F*) (FFF*) (777*) (700*) (770*) (070*) (077*) (007*) (707*) (F07*) %15=R (333*) (F77*) (FF7*) (7F7*) (7FF*) (77F*) (F7F*) (07F*) %23=B (BBB*) (F70*) (7F0*) (0F7*) (07F*) (70F*) (F07*) (0F7*) %31=G ] def /tcmyfcols %Farbkreis-Reihenfolge [ (FFF*) (0FF*) (00F*) (F0F*) (F00*) (FF0*) (0F0*) (000*) (888*) (8FF*) (88F*) (F8F*) (F88*) (FF8*) (8F8*) (0F8*) %15=R (CCC*) (088*) (008*) (808*) (800*) (880*) (080*) (F80*) %23=B (444*) (08F*) (80F*) (F08*) (F80*) (8F0*) (0F8*) (F08*) %31=G ] def /tcmykfcols %Farbkreis-Reihenfolge [ (000F*) (0FF0*) (00F0*) (F0F0*) (F000*) (FF00*) (0F00*) (0000*) (0008*) (0FF8*) (00F8*) (F0F8*) (F008*) (FF08*) (0F08*) (0F80*) %15=R (000C*) (0880*) (0080*) (8080*) (8000*) (8800*) (0800*) (F800*) %23=B (0004*) (0F80*) (80F0*) (F080*) (F800*) (8F00*) (0F80*) (F080*) %31=G ] def /fcolors %CMYN 32 Testfarben Nr. 0 bis 31; Farbkreis-Reihenfolge [{0.0 0.0 0.0 1.0} {0.0 1.0 1.0 0.0} {0.0 0.0 1.0 0.0} {1.0 0.0 1.0 0.0} {1.0 0.0 0.0 0.0} {1.0 1.0 0.0 0.0} {0.0 1.0 0.0 0.0} {0.0 0.0 0.0 0.0} {0.0 0.0 0.0 0.5} {0.0 1.0 1.0 0.5} {0.0 0.0 1.0 0.5} {1.0 0.0 1.0 0.5} {1.0 0.0 0.0 0.5} {1.0 1.0 0.0 0.5} {0.0 1.0 0.0 0.5} {0.0 1.0 0.5 0.0} {0.0 0.0 0.0 0.75} {0.0 0.5 0.5 0.0} {0.0 0.0 0.5 0.0} {0.5 0.0 0.5 0.0} {0.5 0.0 0.0 0.0} {0.5 0.5 0.0 0.0} {0.0 0.5 0.0 0.0} {1.0 0.5 0.0 0.0} {0.0 0.0 0.0 0.25} {0.0 0.5 1.0 0.0} {0.5 0.0 1.0 0.0} {1.0 0.0 0.5 0.0} {1.0 0.5 0.0 0.0} {0.5 1.0 0.0 0.0} {0.0 1.0 0.5 0.0} {1.0 0.0 0.5 0.0} ] def /fak 0.5 def /Far %Farbkreis-Reihenfolge [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %R 16 17 18 19 20 21 22 23 %B 24 25 26 27 28 29 30 31 %G ] def /cFar %Kompensativ-Farbkreis-Reihenfolge [ 8 4 5 6 1 2 3 0 0 20 21 22 17 18 19 31 %G 24 12 13 14 9 10 11 2 %J 16 28 29 30 25 26 27 15 %R ] def /Btx %Farbkreis- -> %Btx-Reihenfolge [ 0 1 3 2 5 6 4 7 8 9 11 10 13 14 12 15 %R 16 17 19 18 21 22 20 23 %B 24 25 26 27 28 29 30 31 %G ] def /cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge [ 7 4 6 5 2 3 1 0 8 20 22 21 18 19 17 31 %G 24 12 14 13 10 11 9 2 %J 16 25 26 27 28 29 30 15 %R ] 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 /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.75 0.0} bind def %Elementarfarben %new /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.75 0.5} bind def %Elementarfarben vergraut %new /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %ANFA OUTLIN00 951204 /pixf 1.0 def /ueg 1 pixf mul def /uek 1 pixf mul def /ues 1 pixf mul def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /pss ues def /outxshowf {show} bind def /outxshow {show} bind def /outSK {250 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSM {300 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSG {350 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outshowf {setcmykcolor show} bind def /outrecfi { %x y width heigth c m y k setcmykcolor rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmykcolor lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmykcolor stroke} bind def %%EndProlog gsave %LANINDL2 START 20000505 /lanind 0 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 {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END 5 /Times-ISOL1 FS 190 86 moveto (ME170-6N) show % ( B8541_3, M8151-3, B2_42, N=2_42) show 72 90 translate /pixf 1.0 def 0.1667 pixf div MM dup scale /ausz 8 def %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F 0 0 320 480 0.0 0.0 0.0 0.5 colrecfi %Rechteck Mittelgrau TBIG %Schrift Times-Bold-Gross 0.0 0.0 0.0 0.0 setcmykcolor %Schrift Weiss 2 setlinewidth /ir 19 def /ixm 159 def /iym 279 def %Definitionen Rechtecke 0.0 0.0 0.0 1.0 setcmykcolor %N ixm iym 100 0 360 arc stroke ixm iym moveto ixm 479 3 setlinewidth tzj outlinetos 2 setlinewidth %J ixm 1 add iym moveto 319 iym tzr outlinetos %R ixm 000 moveto ixm iym tzb outlinetos %B 000 iym moveto ixm 1 sub iym tzg outlinetos %G ixm ir sub 000 add iym ir sub 101 add 38 38 tzy outrecfi4 %J ixm ir sub 100 add iym ir sub 000 add 38 38 tzr outrecfi4 %R ixm ir sub 000 add iym ir sub 100 sub 38 38 tzb outrecfi4 %B ixm ir sub 100 sub iym ir sub 000 add 38 38 tzg outrecfi4 %G TBIG /itx 9 def /ity 6 def ixm itx sub 000 add 00 add iym ity sub 101 add moveto (J) tzb outshowf %J mit Schriftfarbe %B TBIM 0 -3 rmoveto (o) show TBIG ixm itx sub 100 add 00 sub iym ity sub 000 add moveto (R) tzg outshowf %R mit Schriftfarbe G TBIM 0 -3 rmoveto (o) show TBIG ixm itx sub 000 add 00 add iym ity sub 100 sub moveto (B) tzy outshowf %B mit Schriftfarbe J TBIM 0 -3 rmoveto (o) show TBIG ixm itx sub 100 sub 00 sub iym ity sub 000 add moveto (G) tzr outshowf %G mit Schriftfarbe R TBIM 0 -3 rmoveto (o) show TBIG ixm ir sub 000 add iym ir sub 061 add 38 38 tzy outrecfi4 %J ixm ir sub 050 add iym ir sub 000 add 38 38 tzr outrecfi4 %R ixm ir sub 000 add iym ir sub 040 sub 38 38 tzb outrecfi4 %B ixm ir sub 050 sub iym ir sub 000 add 38 38 tzg outrecfi4 %G TBIG /itx 9 def /ity 6 def ixm itx sub 000 add 00 add iym ity sub 061 add moveto (J) tzb outshowf %J mit Schriftfarbe %B TBIM 0 -3 rmoveto (s) show TBIG ixm itx sub 050 add 00 sub iym ity sub 000 add moveto (R) tzg outshowf %R mit Schriftfarbe G TBIM 0 -3 rmoveto (s) show TBIG ixm itx sub 000 add 00 add iym ity sub 040 sub moveto (B) tzy outshowf %B mit Schriftfarbe J TBIM 0 -3 rmoveto (s) show TBIG ixm itx sub 050 sub 00 sub iym ity sub 000 add moveto (G) tzr outshowf %G mit Schriftfarbe R TBIM 0 -3 rmoveto (s) show TBIG /irA 15 def ixm irA sub 000 add iym irA sub 141 add 30 30 tzy outrecfi4 %J ixm irA sub 144 add iym irA sub 000 add 30 30 tzr outrecfi4 %R ixm irA sub 000 add iym irA sub 140 sub 30 30 tzb outrecfi4 %B ixm irA sub 144 sub iym irA sub 000 add 30 30 tzg outrecfi4 %G TBIG /itx 9 def /ity 6 def ixm itx sub 000 add 00 add iym ity sub 141 add moveto (J) tzb outshowf %J mit Schriftfarbe %B TBIM 0 -3 rmoveto (A) show TBIG ixm itx sub 144 add 00 sub iym ity sub 000 add moveto (R) tzg outshowf %R mit Schriftfarbe G TBIM 0 -3 rmoveto (A) show TBIG ixm itx sub 000 add 00 add iym ity sub 140 sub moveto (B) tzy outshowf %B mit Schriftfarbe J TBIM 0 -3 rmoveto (A) show TBIG ixm itx sub 144 sub 00 sub iym ity sub 000 add moveto (G) tzr outshowf %G mit Schriftfarbe R TBIM 0 -3 rmoveto (A) show TBIG TBG 0.0 0.0 0.0 0.0 setcmykcolor %W 004 461 moveto (vier Elementar\255) showde (four elementary) showen 004 441 moveto (farben) showde (colors) showen 004 025 moveto TBIG (o) show TBG ( = ) show (Optimal) showde (optimal) showen 004 005 moveto TBIG (s) show TBG ( = ) show (K\366rper) showde (surface) showen /xAr 162 def xAr 105 moveto TBIG (A) show TBG ( = ) show TBIG (Ahrens\255) showde (Ahrens) showen TBG xAr 085 moveto (Farben,) showde (colours,) showen xAr 065 moveto (Eine von 2) showde (One of two) showen xAr 045 moveto (monochromatischen) showde (monochromatic) showen xAr 025 moveto (komplementaeren) showde (complementary) showen xAr 005 moveto (Farben) showde (colours) showen showpage grestore } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 020 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 17 %line 399 %!PS-Adobe-3.0 EPSF-3.0 ME170-1N %%BoundingBox: 70 83 415 206 %%old BoundingBox: 70 82 415 206 %START PDFDE011.EPS /pdfmark07 where {pop} {userdict /pdfmark07 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/ME17/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.richter@me.com) /CreationDate (D:2010110112000) /ModDate (D:2010110112000) /DOCINFO pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 %END PDFDE011 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /TK {250 /Times-ISOL1 FS} bind def %%EndProlog gsave /lanind 0 def /lantex [(G) (E) (S) (N) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES where {pop}%/IMES IMES def {/IMES 0 def} ifelse /xchartg where {pop /xchartx xchartg def} {/xchartx 0 def} ifelse /colormg where {pop /colorm colormg def} {/colorm 0 def} ifelse /cvishow {cvi 6 string cvs show ( ) show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show ( ) show} def /cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show ( ) show} def /cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show ( ) show} def /cvsshow4 {10000 mul cvi 0.0001 mul 7 string cvs show ( ) show} def %D65XYZ.PS /SE00 80 array def %380 bis 775 mit deltalambda=05 /SD65 80 array def %380 bis 775 mit deltalambda=05 /SD50 80 array def %380 bis 775 mit deltalambda=05 /SDAK 80 array def %380 bis 775 mit deltalambda=05 /RA 80 array def %380 bis 770 nm /F2 240 array def %3 x 80 Daten fuer Bereich 380 bis 770nm /F2N 240 array def %normiert auf Y=100 fuer D65 und 10nm %C %C LITERATURQUELLEN LICHTARTEN %C SA,SC,SD65, CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 1.1.1, SEITE 81 %C SD55,SD75, CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 1.1.4, SEITE 85 %C LINEAR INTERPOLIERT VON 5 ZU 5NM %C SG,SP,SXE, DIN 5033, BLATT 7 ,SEITE 8-9 %C AUSGABE 1966 /SE00 %80 data 5 nm [100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0] def %0.0 not used /SD65 %80 data 5 nm [50.0 52.3 54.6 68.7 82.8 87.1 91.5 92.5 93.4 90.1 86.7 95.8 104.9 110.9 117.0 117.4 117.8 116.3 114.9 115.4 115.9 112.4 108.8 109.1 109.4 108.6 107.8 106.3 104.8 106.2 107.7 106.0 104.4 104.2 104.0 102.0 100.0 98.2 96.3 96.1 95.8 92.2 88.7 89.3 90.0 89.8 89.6 88.6 87.7 85.5 83.3 83.5 83.7 81.9 80.0 80.1 80.2 81.2 82.3 80.3 78.3 74.0 69.7 70.7 71.6 73.0 74.3 68.0 61.6 65.7 69.9 72.5 75.1 69.3 63.6 55.0 46.4 56.6 66.8 65.1] def /SD50 %80 data 5 nm CIE 15.3, Seite 30 [24.5 27.2 29.9 39.6 49.3 52.9 56.5 58.3 60.0 58.9 57.8 66.3 74.8 81.0 87.2 88.9 90.6 91.0 91.4 93.2 95.1 93.5 92.0 93.8 95.7 96.2 96.6 96.8 97.1 99.6 102.1 101.4 100.8 101.5 102.3 101.2 100.0 98.9 97.7 98.3 98.9 96.2 93.5 95.6 97.7 98.5 99.3 99.2 99.0 97.4 95.7 97.3 98.9 97.3 95.7 96.9 98.2 100.6 103.0 101.1 99.1 93.3 87.4 89.5 91.6 92.2 92.9 84.9 76.9 81.7 86.5 89.5 92.6 85.4 78.2 68.0 57.7 70.3 82.9 0.0] def %0.0 not used /SA00 %80 data 5 nm CIE 15.3 Seite 30 [9.80 10.90 12.09 13.35 14.71 16.15 17.68 19.29 20.99 22.79 24.67 26.64 28.70 30.85 33.09 35.41 37.81 40.30 42.87 45.52 48.24 51.04 53.91 56.85 59.86 62.93 66.06 69.25 72.50 75.79 79.13 82.52 85.95 89.41 92.91 96.44 100.00 103.58 107.18 110.80 114.44 118.08 121.73 125.39 129.04 132.70 136.35 139.99 143.62 147.24 150.84 154.42 157.98 161.52 165.03 168.51 171.96 175.38 178.77 182.12 185.43 188.70 191.93 195.12 198.26 201.36 204.41 207.41 210.36 213.27 216.12 218.92 221.67 224.36 227.00 229.59 232.12 234.59 237.01 239.37 0.0] def %0.0 not used %C LITERATURQUELLEN SPEKTRALWERTE %C F2 CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 2.1, SEITE 93-102 /F2 %3x80 data [.001368 .002236 .004243 .007650 .01431 .02319 .04351 .07763 .1344 .2148 .2839 .3285 .3483 .3481 .3362 .3187 .2908 .2511 .1954 .1421 .09564 .05795 .03201 .01470 .0049 .0024 .0093 .0291 .06327 .1096 .1655 .2257 .2904 .3597 .4334 .5121 .5945 .6784 .7621 .8425 .9163 .9786 1.0263 1.0567 1.0622 1.0456 1.0026 .9384 .8544 .7514 .6424 .5419 .4479 .3608 .2835 .2187 .1649 .1212 .0874 .0636 .04677 .03290 .02270 .01584 .01136 .00811 .00579 .004109 .002899 .002049 .001440 .0009999 .0006901 .000476 .0003323 .0002348 .0001662 .0001174 .00008308 .00005871 .000039 .000064 .00012 .000217 .000396 .00064 .00121 .00218 .004 .0073 .0116 .01684 .023 .0298 .0380 .048 .06 .0739 .09098 .1126 .139 .1693 .208 .2586 .323 .4073 .503 .6082 .71 .7932 .862 .9149 .954 .9803 .995 1.0 .995 .9786 .952 .9154 .870 .8163 .757 .6949 .631 .5668 .503 .4412 .381 .321 .265 .217 .175 .1382 .107 .0816 .061 .04458 .032 .0232 .017 .01192 .00821 .005723 .004102 .002929 .002091 .001484 .001047 .00074 .00052 .0003611 .0002492 .0001719 .00012 .0000848 .00006 .0000424 .00003 .0000212 .00645 .01055 .02005 .03621 .06785 .1102 .2074 .3713 .6456 1.0391 1.3856 1.623 1.7471 1.7826 1.7721 1.7441 1.6692 1.5281 1.2876 1.0419 .8130 .6162 .4652 .3533 .2720 .2123 .1582 .1117 .07825 .05725 .04216 .02984 .0203 .0134 .00875 .00575 .0039 .00275 .0021 .0018 .00165 .0014 .0011 .0010 .0008 .0006 .00034 .00024 .00019 .0001 .00005 .00003 .00002 .00001 % 26*0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %10 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %20 0.0 0.0 0.0 0.0 0.0 0.0 %26 ] def /DAKTE [(E00) (D65) (D50) (A00)] def /RGB0*tx 11 array def /RGB0*tx [(%O=JR 00 575_770) (%Y=J=JG+JR 01 515_770) (%L=JG 02 515_575) (%Gs 03 0,35*JG+0,65*BG) %=0,35*515_575+0,65*475_515) (%Cs=BG 04 475_515) (%V=B=BR+BG 05 380_515) (%Ms=BR 06 380_475) (%Rs 07 0,14*BR+0,86*JR) %=0,14*380_475+0,86*575_770 (%O=JR 08 575_770) (%N0(r=0,001) 09 380_770) (%W1(r=1,000) 10 380_770) ] def /RX0 880 array def %11x80 /RX0 [ %(%O=JR 00 575_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0000 0000 0000 0000 0000 0000 0000 0000 0000 0500 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %(%Y=J=GJ+JR 01 515_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0000 0000 0000 0000 0000 0000 0000 0500 1000 1000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %(%L=JG 02 515_575) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0000 0000 0000 0000 0000 0000 0000 0500 1000 1000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 1000 1000 1000 1000 1000 1000 1000 1000 1000 0500 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %(%Gs 03 0,35*JG+0,65*BG) %=0,35*515_575+0,65*475_515 %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0000 0000 0000 0000 0000 0000 0000 0000 0000 0325 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0650 0650 0650 0650 0650 0650 0650 0500 0350 0350 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0350 0350 0350 0350 0350 0350 0350 0350 0350 0175 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %(%Cs=BG 04 475_515) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0000 0000 0000 0000 0000 0000 0000 0000 0000 0500 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 1000 1000 1000 1000 1000 1000 1000 0500 0000 0000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %(%V=B=BR+BG 05 380_515) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 1000 1000 1000 1000 1000 1000 1000 0500 0000 0000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %(%Ms=BR 06 380_475) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 1000 1000 1000 1000 1000 1000 1000 1000 1000 0500 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %(%Rs 07 0,14*BR+0,86*JR) %=0,14*380_475+0,86*575_770 %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0140 0140 0140 0140 0140 0140 0140 0140 0140 0140 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0140 0140 0140 0140 0140 0140 0140 0140 0140 0070 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0000 0000 0000 0000 0000 0000 0000 0000 0000 0430 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0860 0860 0860 0860 0860 0860 0860 0860 0860 0860 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0860 0860 0860 0860 0860 0860 0860 0860 0860 0860 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0860 0860 0860 0860 0860 0860 0860 0860 0860 0860 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0860 0860 0860 0860 0860 0860 0860 0860 0860 0860 %(%O=JR 08 575_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0000 0000 0000 0000 0000 0000 0000 0000 0000 0500 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %(%N0(r=0,001) 09 380_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %(%W1(r=1,000) 10 380_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 ] def /RGB1*tx 11 array def /RGB1*tx [(%O=JR 00 575_770) (%Y=J=JG+JR 01 515_770) (%L=JG 02 515_575) (%G 03 0,70*L+0,30*C) %=0,70*515_575+0,30*380_575) (%C=L+V 04 380_575) (%V=B=BR+BG 05 380_515) (%M=V+O 06 380_515+575_770) (%R 07 0,18*M+0,82*O) %=0,18*(380_475+575_770)+0,82*575_770 (%O=JR 08 575_770) (%N0(r=0,001) 09 380_770) (%W1(r=1,000) 10 380_770) ] def /RX1 880 array def %11x80 /RX1 [ %(%O=JR 00 575_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0000 0000 0000 0000 0000 0000 0000 0000 0000 0500 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %(%Y=J=GJ+JR 01 515_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0000 0000 0000 0000 0000 0000 0000 0500 1000 1000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %(%L=JG 02 515_575) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0000 0000 0000 0000 0000 0000 0000 0500 1000 1000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 1000 1000 1000 1000 1000 1000 1000 1000 1000 0500 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %(%G 03 0,70*L+0,30*C) %=0,70*515_575+0,30*380_575, 100% of 515..575 %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0300 0300 0300 0300 0300 0300 0300 0300 0300 0300 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0300 0300 0300 0300 0300 0300 0300 0300 0300 0300 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0300 0300 0300 0300 0300 0300 0300 0650 1000 1000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 1000 1000 1000 1000 1000 1000 1000 1000 1000 0500 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %(%C=L+V 04 380_575) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 1000 1000 1000 1000 1000 1000 1000 1000 1000 0500 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %(%V=B=BR+BG 05 380_515) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 1000 1000 1000 1000 1000 1000 1000 0500 0000 0000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %(%M=V+O 06 380_515+575_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 1000 1000 1000 1000 1000 1000 1000 0500 0000 0000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0000 0000 0000 0000 0000 0000 0000 0000 0000 0500 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %(%R 07 0,18*M+0,82*O) %=0,18*(380_515+575_770)+0,82*575_770 %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0180 0180 0180 0180 0180 0180 0180 0180 0180 0180 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0180 0180 0180 0180 0180 0180 0180 0180 0180 0180 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0180 0180 0180 0180 0180 0180 0180 0090 0000 0000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0000 0000 0000 0000 0000 0000 0000 0000 0000 0500 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %(%O=JR 08 575_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0000 0000 0000 0000 0000 0000 0000 0000 0000 0500 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %(%N0(r=0,001) 09 380_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %(%W1(r=1,000) 10 380_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 ] def /X_k 11 array def /Y_k 11 array def /Z_k 11 array def /ak_k 11 array def /bk_k 11 array def /ck_k 11 array def /A_k 11 array def /B_k 11 array def /C_k 11 array def /LAB*Lk 11 array def /LAB*ak 11 array def /LAB*bk 11 array def /LAB*Ck 11 array def /as_k 11 array def /bs_k 11 array def /cs_k 11 array def gsave 72 90 translate 0.010 MM dup scale gsave /xchartx 1 def /xchartk xchartx def %00 1 1 {/xchartk exch def 20 setlinewidth /ymax 3320 def /ydel 203 def 200 /Times-ISOL1 FS 0 setgray 200 -200 moveto (ME170-7N) show %(, Page ) showen (, Seite ) showde xchartk 1 add cvishow (/1, ) show %FileData show (, ) show DAKTE DAK get show Param show %xchartl 5 le {(, not adapted)}{(, adapted)} ifelse show 20 setlinewidth 1 1 1 setrgbcolor 0 0 moveto 12000 0 rlineto 0 4000 rlineto 12000 neg 0 rlineto closepath fill 0 0 0 setrgbcolor 0 0 moveto 12000 0 rlineto 0 4000 rlineto 12000 neg 0 rlineto closepath stroke /DAKx 1 def 1 1 1 {/DAK exch def %DAK=0,3 %4 illuminants 0 1 79 {/i exch def %i=0,79 SDAK i DAK 0 eq {SE00 i get} if DAK 1 eq {SD65 i get} if DAK 2 eq {SD50 i get} if DAK 3 eq {SA00 i get} if put } for %i=0,79 /YKSUM 0 def 0 1 79 {/i exch def %i=0,1,79 /YKSUM YKSUM SDAK i get F2 80 i add get mul add def } for %i=0,1,79 0 1 79 {/i exch def %i=0,1,79 F2N 00 i add SDAK i get F2 00 i add get mul YKSUM div 100 mul put F2N 80 i add SDAK i get F2 80 i add get mul YKSUM div 100 mul put F2N 160 i add SDAK i get F2 160 i add get mul YKSUM div 100 mul put } for %i=0,1,79 %Xw,Yw,Zw for white /Xw 0 def /Yw 0 def /Zw 0 def 0 1 079 {/i exch def %i=0,79 /Xw Xw F2N 00 i add get add def /Yw Yw F2N 80 i add get add def /Zw Zw F2N 160 i add get add def } for %i=0,79 /XDAKW Xw def %for E, D65, D50, A /YDAKW Yw def /ZDAKW Zw def 0 1 10 {/k exch def %k=0,8 %11 Reflections /kx k 80 mul def 0 1 79 {/i exch def %i=0,79 RA i xchartk 0 eq {RX0} if xchartk 1 eq {RX1} if xchartk 2 eq {RX2} if xchartk 3 eq {RX3} if xchartk 4 eq {RX4} if xchartk 5 eq {RX5} if xchartk 6 eq {RX6} if xchartk 7 eq {RX7} if xchartk 8 eq {RX8} if xchartk 9 eq {RX9} if xchartk 10 eq {RX10} if xchartk 11 eq {RX11} if kx i add get 1000 div put } for %i=0,79 /X 0 def /Y 0 def /Z 0 def 0 1 079 {/i exch def %i=0,79 /X X F2N 00 i add get RA i get mul add def /Y Y F2N 80 i add get RA i get mul add def /Z Z F2N 160 i add get RA i get mul add def } for %i=0,79 /XQ X XDAKW div def /YQ Y YDAKW div def /ZQ Z ZDAKW div def XQ 0 le {/XQ 0.0001 def} if YQ 0 le {/YQ 0.0001 def} if ZQ 0 le {/ZQ 0.0001 def} if /LAB*L YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse def /LAB*a XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul def /LAB*b YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul def X_k k X put Y_k k Y put Z_k k Z put LAB*Lk k LAB*L put LAB*ak k LAB*a put LAB*bk k LAB*b put } for %k=0,10 0 setgray /xdel 880 def /FileData(OYLCVM_ONW_) def 300 /TimesB-ISOL1 FS /ymaxt ymax 375 add def 20 ymaxt moveto (Optimal colours for CIE ) showen (Optimalfarben f\374r CIE ) showde DAK 0 eq {(Illuminant E) showen (Lichtart E) showde} if DAK 1 eq {(Standard Illuminant D65) showen (Norm\255Lichtart D65) showde} if DAK 2 eq {(Illuminant D50) showen (Lichtart D50) showde} if DAK 3 eq {(Standard Illuminant A) showen (Norm\255Lichtart A) showde} if 300 /TimesBI-ISOL1 FS /ymaxt ymax 000 add def 120 xdel 0 mul add ymaxt moveto (X) show 120 xdel 1 mul add ymaxt moveto (Y) show 120 xdel 2 mul add ymaxt moveto (Z) show 120 xdel 3 mul add ymaxt moveto (x) show 120 xdel 4.1 mul add ymaxt moveto (y) show 120 xdel 5.2 mul add ymaxt moveto (A) show 120 xdel 6.2 mul add ymaxt moveto (B) show 120 xdel 7.2 mul add ymaxt moveto (C) show 0 -100 rmoveto 250 /TimesB-ISOL1 FS (r) show 300 /TimesBI-ISOL1 FS 0 100 rmoveto 120 xdel 8.1 mul add ymaxt moveto FileData show xchartk cvishow 260 /CourierB-ISOL1 FS /a10n0 X_k 10 get Y_k 10 get div def /b10n0 Z_k 10 get Y_k 10 get div def /a10n a10n0 def /b10n b10n0 0.4 mul neg def /as10n0 1 X_k 10 get div 0.333333 exp def /as10n0 1 Z_k 10 get div 0.333333 exp def /as10n as10n0 def /bs10n as10n0 0.4 mul neg def /DAK0 DAKx DAK sub def 0 1 10 {/k exch def %k=0,10 /ymaxd 3600 DAK0 mul k 1 add 290 mul add def 20 xdel 0 mul add ymax ymaxd sub moveto X_k k get cvsshow1 20 xdel 1 mul add ymax ymaxd sub moveto Y_k k get cvsshow1 20 xdel 2 mul add ymax ymaxd sub moveto Z_k k get cvsshow1 /SUMk X_k k get Y_k k get add Z_k k get add 0.001 add def 20 xdel 3 mul add ymax ymaxd sub moveto X_k k get SUMk div cvsshow3 20 xdel 4.1 mul add ymax ymaxd sub moveto Y_k k get SUMk div cvsshow3 20 xdel 5.2 mul add ymax ymaxd sub moveto A_k k X_k k get Y_k k get div a10n0 sub Y_k k get mul put A_k k get cvsshow1 20 xdel 6.2 mul add ymax ymaxd sub moveto B_k k Z_k k get Y_k k get div b10n0 sub 0.4 mul neg Y_k k get mul put B_k k get cvsshow1 20 xdel 7.2 mul add ymax ymaxd sub moveto C_k k A_k k get dup mul B_k k get dup mul add sqrt put C_k k get cvsshow1 20 xdel 8.1 mul add ymax ymaxd sub moveto xchartk 0 eq {k 08 le {RGB0*tx k get show} if k 09 eq {(%N0\050) show 260 /Symbol FS (b) show 260 /CourierB-ISOL1 FS (=0,001\051 09 380_770) show} if k 10 eq {(%W1\050) show 260 /Symbol FS (b) show 260 /CourierB-ISOL1 FS (=1,000\051 10 380_770) show} if } if xchartk 1 eq {k 08 le {RGB1*tx k get show} if k 09 eq {(%N0\050) show 260 /Symbol FS (b) show 260 /CourierB-ISOL1 FS (=0,001\051 09 380_770) show} if k 10 eq {(%W1\050) show 260 /Symbol FS (b) show 260 /CourierB-ISOL1 FS (=1,000\051 10 380_770) show} if } if } for %k=0,10 } for %DAK=0,4 showpage grestore gsave %} for %xchartk=0,1 %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 020 MM translate 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 ME170-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 (ME170-8,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 197 MM translate 10 /Times-ISOL1 FS 1 1 scale -77 -91 translate %%BeginDocument: Bild 12 %line 419 %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 21 %line 429 %!PS-Adobe-3.0 EPSF-3.0 ME171-1N %%BoundingBox: 70 83 226 206 %%old BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark11 where {pop} {userdict /pdfmark11 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/ME17/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.richter@me.com) /CreationDate (D:2010110112000) /ModDate (D:2010110112000) /DOCINFO pdfmark11 [ /View [ /FitB ] /DOCVIEW pdfmark11 %END PDFDE011 /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 %Umrechnung Inch -> mm /A4quer {598 0 translate 90 rotate} def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /TKK {200 /Times-ISOL1 FS} bind def /TK {250 /Times-ISOL1 FS} bind def /TM {290 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIKK {200 /TimesI-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBKK {200 /TimesB-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /TKr {250 /Times-Roman FS} bind def /TMr {300 /Times-Roman FS} bind def /TGr {350 /Times-Roman FS} bind def /TIKr {250 /Times-Italic FS} bind def /TIMr {300 /Times-Italic FS} bind def /TIGr {350 /Times-Italic FS} bind def /TBKr {250 /Times-Bold FS} bind def /TBMr {300 /Times-Bold FS} bind def /TBGr {350 /Times-Bold FS} bind def /TBIKr {250 /Times-BoldItalic FS} bind def /TBIMr {300 /Times-BoldItalic FS} bind def /TBIGr {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 %%EndProlog gsave %LANINDL2.EPS START 20000505 /lanind 0 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 {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %no loops /colorml colorm1 def /xcolorl xcolor1 def /xchart xchart1 def gsave %LANINDL2 END 0 setgray 4 /Times-Roman FS 72 86 moveto ( ME171-1N) show /LAB*a [%Natural symmetric Luminous System OYLCVMO+NW (NLS18) 43.81 67.03 38.70 %O 0 77.40/2 = 38.70 69.61 00.00 77.40 %Y 1 C*ab = 77.40 43.81 -67.03 38.70 %L 2 0.866 C*ab = 67.03 69.61 -67.03 -38.70 %C 3 delta L*=25.8 43.81 00.00 -77.40 %V 4 43.81=18.01+25.80 69.61 67.03 -38.70 %M 5 69.61=18.01+2*25.80 18.01 0.00 0.00 %N 6 18.01+77.40/3 = 18.01+25.80=43.81 95.41 0.00 0.00 %W 7 18.01+77.40*(2/3) = 18.01+51.60=69.61 ] def %CVMOYLC+NW gsave 72 90 translate 0.01 MM dup scale /DEintp 0 def /xcharts 10 def 20 setlinewidth 1.0 setgray 0 0 moveto 5300 0 rlineto 0 4000 rlineto -5300 0 rlineto closepath fill 0.0 setgray 0 0 moveto 5300 0 rlineto 0 4000 rlineto -5300 0 rlineto closepath stroke TBK 050 3800 moveto (8 Device Colours in 1 elementary hue system) showen (8 Ger\344tefarben im Elementarbuntton\255System) showde 050 3500 moveto TIK (OYLCVM, RGB) show TK (, and) showen ( und) showde TIK ( NW) show 3000 3500 moveto TK (triangle systems:) showen (Dreiecks\255System:) showde 3000 3200 moveto TK (surface colours) showen (K\366rperfarben) showde TBIK ( rgb*) show TK TKK -150 -100 rmoveto (s) show 150 100 rmoveto TK %3000 2900 moveto TK (optimal colours) showen % (Optimalfarben) showde % TBIK ( rgb*) show TK % TKK -150 -100 rmoveto (o) show 150 100 rmoveto TKK 2300 0350 moveto TIKK (more coordinates and relations:) showen (mehr Koordinaten und Beziehungen:) showde 2300 0100 moveto TIKK (http://www.ps.bam.de/33872E) showen (http://www.ps.bam.de/33872) showde TIM 1800 1300 translate 0 -1000 moveto 0 2500 rlineto stroke /rx 774 def %standard hexagon gamut /fakt 1.5 def /iangle 10 def /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0.0 setgray /a0 0 def /b0 rx 1.5 mul def /c0 rx 1.5 mul neg def /faktr 0.6 def /fakt0 1.4 def 100 1500 moveto (t*) show %************************************BEGs /iangle 170 def /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 30 60 210 {/iangle exch def %iangle=30,60,210 /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray [50 50] 0 setdash iangle 030 eq {c d moveto} if c d lineto iangle 210 eq {stroke} if } for %iangle=30,60,210 /antx [0.75 0.20 0.50] def 20 setlinewidth 0 1 2 {/inr exch def /ant antx inr get def inr 0 eq {/iangle1 330 def /iangle2 030 def} if inr 1 eq {/iangle1 150 def /iangle2 210 def} if inr 2 eq {/iangle1 210 def /iangle2 270 def} if /a1 rx iangle1 cos mul def /b1 rx iangle1 sin mul def /a0x1 a1 b1 0.5 mul add def /b0x1 b1 0.5 mul def /a2 rx iangle2 cos mul def /b2 rx iangle2 sin mul def /a0x2 a2 b2 0.5 mul add def /b0x2 b2 0.5 mul def /ant /a0x a0x1 a0x2 a0x1 sub ant mul add def /b0x b0x1 b0x2 b0x1 sub ant mul add def inr 1 eq {%inr=1 inr 0 ge inr 1 eq or {[50 50] 0 setdash} {[ ] 0 setdash} ifelse %[50 50] 0 setdash inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor %0 0 moveto a0x b0x lineto stroke a0 c0 moveto a0x a0 sub fakt0 mul b0x c0 sub fakt0 mul rlineto stroke newpath a0x b0x moveto a0x b0x 100 0 360 arc fill 0 0 0 setrgbcolor [ ] 0 setdash %[50 50] 0 setdash a0x b0x 100 0 360 arc stroke } if %inr=1 } for %inr=0,2 210 60 390 {/iangle exch def %iangle=210,60,390 /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray [ ] 0 setdash %[50 50] 0 setdash iangle 210 eq {c d moveto} if c d lineto iangle 390 eq {stroke} if } for %iangle=210,60,390 30 60 330 {/iangle exch def %iangle=30,60,330 /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray iangle 090 ge iangle 150 le and {[50 50] 0 setdash} {[ ] 0 setdash} ifelse %[50 50] 0 setdash a0 b0 moveto c d lineto stroke iangle 090 ge iangle 150 le and {[50 50] 0 setdash} {[ ] 0 setdash} ifelse %[50 50] 0 setdash a0 c0 moveto c d lineto stroke iangle 030 eq {/r*x 1 def /g*x 0 def /b*x 0 def} if iangle 090 eq {/r*x 1 def /g*x 1 def /b*x 0 def} if iangle 150 eq {/r*x 0 def /g*x 1 def /b*x 0 def} if iangle 210 eq {/r*x 0 def /g*x 1 def /b*x 1 def} if iangle 270 eq {/r*x 0 def /g*x 0 def /b*x 1 def} if iangle 330 eq {/r*x 1 def /g*x 0 def /b*x 1 def} if r*x g*x b*x setrgbcolor c d 100 0 360 arc fill } for %iangle=30,60,330 %************************************ENDs 1 1 1 setrgbcolor %W a0 b0 100 0 360 arc fill 0 0 0 setrgbcolor %N a0 b0 100 0 360 arc stroke 0 0 0 setrgbcolor %N a0 c0 100 0 360 arc fill %plot line of actual hue 50 setlinewidth xcharts 0 eq {/r*x 1 def /g*x 0 def /b*x 0 def} if xcharts 1 eq {/r*x 1 def /g*x 1 def /b*x 0 def} if xcharts 2 eq {/r*x 0 def /g*x 1 def /b*x 0 def} if xcharts 3 eq {/r*x 0 def /g*x 1 def /b*x 1 def} if xcharts 4 eq {/r*x 0 def /g*x 0 def /b*x 1 def} if xcharts 5 eq {/r*x 1 def /g*x 0 def /b*x 1 def} if xcharts 5 le {%xcharts<=5 r*x g*x b*x setrgbcolor 0 0 moveto /A*Ma LAB*a xcharts 3 mul 1 add get def /B*Ma LAB*a xcharts 3 mul 2 add get def A*Ma 10 mul B*Ma 10 mul lineto stroke } if %xcharts<=5 %****************************************BEGs /antx [0.75 0.20 0.50] def 20 setlinewidth 0 1 2 {/inr exch def /ant antx inr get def inr 0 eq {/iangle1 330 def /iangle2 030 def} if inr 1 eq {/iangle1 150 def /iangle2 210 def} if inr 2 eq {/iangle1 210 def /iangle2 270 def} if /a1 rx iangle1 cos mul def /b1 rx iangle1 sin mul def /a0x1 a1 b1 0.5 mul add def /b0x1 b1 0.5 mul def /a2 rx iangle2 cos mul def /b2 rx iangle2 sin mul def /a0x2 a2 b2 0.5 mul add def /b0x2 b2 0.5 mul def /ant /a0x a0x1 a0x2 a0x1 sub ant mul add def /b0x b0x1 b0x2 b0x1 sub ant mul add def inr 0 eq inr 2 eq or {%inr=0,2 inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor %0 0 moveto a0x b0x lineto stroke a0 c0 moveto a0x a0 sub fakt0 mul inr 2 eq {1.1 mul} if b0x c0 sub fakt0 mul inr 2 eq {1.1 mul} if rlineto stroke newpath a0x b0x moveto a0x b0x 100 0 360 arc fill } if %inr=0,2 inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor inr 0 eq {a0 a0x a0 sub fakt0 mul add 100 sub c0 b0x c0 sub fakt0 mul add 300 add moveto (r*) show TK -150 -100 rmoveto (s) show 150 100 rmoveto TIM } if inr 1 eq {a0 a0x a0 sub fakt0 mul add 100 sub c0 b0x c0 sub fakt0 mul add 200 add moveto (g*) show TK -150 -100 rmoveto (s) show 150 100 rmoveto TIM } if inr 2 eq {a0 a0x a0 sub fakt0 mul add 550 sub c0 b0x c0 sub fakt0 mul add 400 add moveto (b*) show TK -150 -100 rmoveto (s) show 150 100 rmoveto TIM } if 0 0 0 setrgbcolor newpath [ ] 0 setdash a0x b0x 100 0 360 arc stroke newpath } for %inr=0,2 %****************************************ENDs -1200 -1300 translate 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 ME171-2N %%BoundingBox: 70 83 226 206 %%old BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark12 where {pop} {userdict /pdfmark12 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/ME17/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.richter@me.com) /CreationDate (D:2010110112000) /ModDate (D:2010110112000) /DOCINFO pdfmark12 [ /View [ /FitB ] /DOCVIEW pdfmark12 %END PDFDE011 /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 %Umrechnung Inch -> mm /A4quer {598 0 translate 90 rotate} def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /TKK {200 /Times-ISOL1 FS} bind def /TK {250 /Times-ISOL1 FS} bind def /TM {290 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIKK {200 /TimesI-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBKK {200 /TimesB-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /TKr {250 /Times-Roman FS} bind def /TMr {300 /Times-Roman FS} bind def /TGr {350 /Times-Roman FS} bind def /TIKr {250 /Times-Italic FS} bind def /TIMr {300 /Times-Italic FS} bind def /TIGr {350 /Times-Italic FS} bind def /TBKr {250 /Times-Bold FS} bind def /TBMr {300 /Times-Bold FS} bind def /TBGr {350 /Times-Bold FS} bind def /TBIKr {250 /Times-BoldItalic FS} bind def /TBIMr {300 /Times-BoldItalic FS} bind def /TBIGr {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 %%EndProlog gsave %LANINDL2.EPS START 20000505 /lanind 0 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 {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %no loops /colorml colorm1 def /xcolorl xcolor1 def /xchart xchart1 def gsave %LANINDL2 END 0 setgray 4 /Times-Roman FS 72 86 moveto ( ME171-2N) show /LAB*a [%Natural symmetric Luminous System OYLCVMO+NW (NLS18) 43.81 67.03 38.70 %O 0 77.40/2 = 38.70 69.61 00.00 77.40 %Y 1 C*ab = 77.40 43.81 -67.03 38.70 %L 2 0.866 C*ab = 67.03 69.61 -67.03 -38.70 %C 3 delta L*=25.8 43.81 00.00 -77.40 %V 4 43.81=18.01+25.80 69.61 67.03 -38.70 %M 5 69.61=18.01+2*25.80 18.01 0.00 0.00 %N 6 18.01+77.40/3 = 18.01+25.80=43.81 95.41 0.00 0.00 %W 7 18.01+77.40*(2/3) = 18.01+51.60=69.61 ] def %CVMOYLC+NW gsave 72 90 translate 0.01 MM dup scale /DEintp 0 def /xcharts 10 def 20 setlinewidth 1.0 setgray 0 0 moveto 5300 0 rlineto 0 4000 rlineto -5300 0 rlineto closepath fill 0.0 setgray 0 0 moveto 5300 0 rlineto 0 4000 rlineto -5300 0 rlineto closepath stroke TBK 050 3800 moveto (8 Device Colours in 1 elementary hue system) showen (8 Ger\344tefarben im Elementarbuntton\255System) showde 050 3500 moveto TIK (OYLCVM, RGB) show TK (, and) showen ( und) showde TIK ( NW) show 3000 3500 moveto TK (triangle systems:) showen (Dreiecks\255System:) showde 3000 3200 moveto TK (optimal colours) showen (Optimalfarben) showde TBIK ( rgb*) show TK TKK -150 -100 rmoveto (o) show 150 100 rmoveto TK %3000 2900 moveto TK (optimal colours) showen % (Optimalfarben) showde % TBIK ( rgb*) show TK % TKK -150 -100 rmoveto (o) show 150 100 rmoveto TKK %2300 0350 moveto TIKK (more coordinates and relations:) showen % (mehr Koordinaten und Beziehungen:) showde %2300 0100 moveto TIKK (http://www.ps.bam.de/33872E) showen % (http://www.ps.bam.de/33872) showde TIM 2300 1300 translate 0 -1000 moveto 0 2500 rlineto stroke /rx 774 def %standard hexagon gamut /fakt 1.5 def /iangle 10 def /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0.0 setgray /a0 0 def /b0 rx 1.5 mul def /c0 rx 1.5 mul neg def /faktr 0.6 def /fakt0 1.4 def 100 1500 moveto (t*) show %************************************BEGs /rx rx 1.35 mul def /iangle 170 def /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 30 60 210 {/iangle exch def %iangle=30,60,210 /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray [50 50] 0 setdash iangle 030 eq {c d moveto} if c d lineto iangle 210 eq {stroke} if } for %iangle=30,60,210 /antx [0.75 0.20 0.50] def 20 setlinewidth 0 1 2 {/inr exch def /ant antx inr get def inr 0 eq {/iangle1 330 def /iangle2 030 def} if inr 1 eq {/iangle1 150 def /iangle2 210 def} if inr 2 eq {/iangle1 210 def /iangle2 270 def} if /a1 rx iangle1 cos mul def /b1 rx iangle1 sin mul def /a0x1 a1 b1 0.5 mul add def /b0x1 b1 0.5 mul def /a2 rx iangle2 cos mul def /b2 rx iangle2 sin mul def /a0x2 a2 b2 0.5 mul add def /b0x2 b2 0.5 mul def /ant /a0x a0x1 a0x2 a0x1 sub ant mul add def /b0x b0x1 b0x2 b0x1 sub ant mul add def inr 1 eq {%inr=1 inr 0 ge inr 1 eq or {[50 50] 0 setdash} {[ ] 0 setdash} ifelse %[50 50] 0 setdash inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor %0 0 moveto a0x b0x lineto stroke a0 c0 moveto a0x a0 sub fakt0 mul b0x c0 sub fakt0 mul rlineto stroke newpath a0x b0x moveto a0x b0x 100 0 360 arc fill 0 0 0 setrgbcolor [ ] 0 setdash %[50 50] 0 setdash a0x b0x 100 0 360 arc stroke } if %inr=1 } for %inr=0,2 210 60 390 {/iangle exch def %iangle=210,60,390 /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray [ ] 0 setdash %[50 50] 0 setdash iangle 210 eq {c d moveto} if c d lineto iangle 390 eq {stroke} if } for %iangle=210,60,390 30 60 330 {/iangle exch def %iangle=30,60,330 /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray iangle 090 ge iangle 150 le and {[50 50] 0 setdash} {[ ] 0 setdash} ifelse %[50 50] 0 setdash a0 b0 moveto c d lineto stroke iangle 090 ge iangle 150 le and {[50 50] 0 setdash} {[ ] 0 setdash} ifelse %[50 50] 0 setdash a0 c0 moveto c d lineto stroke iangle 030 eq {/r*x 1 def /g*x 0 def /b*x 0 def} if iangle 090 eq {/r*x 1 def /g*x 1 def /b*x 0 def} if iangle 150 eq {/r*x 0 def /g*x 1 def /b*x 0 def} if iangle 210 eq {/r*x 0 def /g*x 1 def /b*x 1 def} if iangle 270 eq {/r*x 0 def /g*x 0 def /b*x 1 def} if iangle 330 eq {/r*x 1 def /g*x 0 def /b*x 1 def} if r*x g*x b*x setrgbcolor c d 100 0 360 arc fill } for %iangle=30,60,330 %************************************ENDs 1 1 1 setrgbcolor %W a0 b0 100 0 360 arc fill 0 0 0 setrgbcolor %N a0 b0 100 0 360 arc stroke 0 0 0 setrgbcolor %N a0 c0 100 0 360 arc fill %plot line of actual hue 50 setlinewidth xcharts 0 eq {/r*x 1 def /g*x 0 def /b*x 0 def} if xcharts 1 eq {/r*x 1 def /g*x 1 def /b*x 0 def} if xcharts 2 eq {/r*x 0 def /g*x 1 def /b*x 0 def} if xcharts 3 eq {/r*x 0 def /g*x 1 def /b*x 1 def} if xcharts 4 eq {/r*x 0 def /g*x 0 def /b*x 1 def} if xcharts 5 eq {/r*x 1 def /g*x 0 def /b*x 1 def} if xcharts 5 le {%xcharts<=5 r*x g*x b*x setrgbcolor 0 0 moveto /A*Ma LAB*a xcharts 3 mul 1 add get def /B*Ma LAB*a xcharts 3 mul 2 add get def A*Ma 10 mul B*Ma 10 mul lineto stroke } if %xcharts<=5 %****************************************BEGs /antx [0.75 0.20 0.50] def 20 setlinewidth 0 1 2 {/inr exch def /ant antx inr get def inr 0 eq {/iangle1 330 def /iangle2 030 def} if inr 1 eq {/iangle1 150 def /iangle2 210 def} if inr 2 eq {/iangle1 210 def /iangle2 270 def} if /a1 rx iangle1 cos mul def /b1 rx iangle1 sin mul def /a0x1 a1 b1 0.5 mul add def /b0x1 b1 0.5 mul def /a2 rx iangle2 cos mul def /b2 rx iangle2 sin mul def /a0x2 a2 b2 0.5 mul add def /b0x2 b2 0.5 mul def /ant /a0x a0x1 a0x2 a0x1 sub ant mul add def /b0x b0x1 b0x2 b0x1 sub ant mul add def inr 0 eq inr 2 eq or {%inr=0,2 inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor %0 0 moveto a0x b0x lineto stroke a0 c0 moveto a0x a0 sub fakt0 mul inr 2 eq {1.1 mul} if b0x c0 sub fakt0 mul inr 2 eq {1.1 mul} if rlineto stroke newpath a0x b0x moveto a0x b0x 100 0 360 arc fill } if %inr=0,2 inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor inr 0 eq {a0 a0x a0 sub fakt0 mul add 100 sub c0 b0x c0 sub fakt0 mul add 300 add moveto (r*) show TK -150 -100 rmoveto (o) show 150 100 rmoveto TIM } if inr 1 eq {a0 a0x a0 sub fakt0 mul add 100 sub c0 b0x c0 sub fakt0 mul add 200 add moveto (g*) show TK -150 -100 rmoveto (o) show 150 100 rmoveto TIM } if inr 2 eq {a0 a0x a0 sub fakt0 mul add 550 sub c0 b0x c0 sub fakt0 mul add 400 add moveto (b*) show TK -150 -100 rmoveto (o) show 150 100 rmoveto TIM } if 0 0 0 setrgbcolor newpath [ ] 0 setdash a0x b0x 100 0 360 arc stroke newpath } for %inr=0,2 %****************************************ENDs -1200 -1300 translate grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 23 %line 449 %!PS-Adobe-3.0 EPSF-3.0 ME171-3N %%BoundingBox: 70 83 226 206 %%old BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark13 where {pop} {userdict /pdfmark13 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/ME17/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.richter@me.com) /CreationDate (D:2010110112000) /ModDate (D:2010110112000) /DOCINFO pdfmark13 [ /View [ /FitB ] /DOCVIEW pdfmark13 %END PDFDE011 /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 %Umrechnung Inch -> mm /A4quer {598 0 translate 90 rotate} def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /TKK {200 /Times-ISOL1 FS} bind def /TK {250 /Times-ISOL1 FS} bind def /TM {290 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIKK {200 /TimesI-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBKK {200 /TimesB-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /TKr {250 /Times-Roman FS} bind def /TMr {300 /Times-Roman FS} bind def /TGr {350 /Times-Roman FS} bind def /TIKr {250 /Times-Italic FS} bind def /TIMr {300 /Times-Italic FS} bind def /TIGr {350 /Times-Italic FS} bind def /TBKr {250 /Times-Bold FS} bind def /TBMr {300 /Times-Bold FS} bind def /TBGr {350 /Times-Bold FS} bind def /TBIKr {250 /Times-BoldItalic FS} bind def /TBIMr {300 /Times-BoldItalic FS} bind def /TBIGr {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 %%EndProlog gsave %LANINDL2.EPS START 20000505 /lanind 0 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 {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %no loops /colorml colorm1 def /xcolorl xcolor1 def /xchart xchart1 def gsave %LANINDL2 END 0 setgray 4 /Times-Roman FS 72 86 moveto ( ME171-3N) show /LAB*a [%Natural symmetric Luminous System OYLCVMO+NW (NLS18) 43.81 67.03 38.70 %O 0 77.40/2 = 38.70 69.61 00.00 77.40 %Y 1 C*ab = 77.40 43.81 -67.03 38.70 %L 2 0.866 C*ab = 67.03 69.61 -67.03 -38.70 %C 3 delta L*=25.8 43.81 00.00 -77.40 %V 4 43.81=18.01+25.80 69.61 67.03 -38.70 %M 5 69.61=18.01+2*25.80 18.01 0.00 0.00 %N 6 18.01+77.40/3 = 18.01+25.80=43.81 95.41 0.00 0.00 %W 7 18.01+77.40*(2/3) = 18.01+51.60=69.61 ] def %CVMOYLC+NW gsave 72 90 translate 0.01 MM dup scale /DEintp 0 def /xcharts 10 def 20 setlinewidth 1.0 setgray 0 0 moveto 5300 0 rlineto 0 4000 rlineto -5300 0 rlineto closepath fill 0.0 setgray 0 0 moveto 5300 0 rlineto 0 4000 rlineto -5300 0 rlineto closepath stroke TBK 050 3800 moveto (8 Device Colours in 1 elementary hue system) showen (8 Ger\344tefarben im Elementarbuntton\255System) showde 050 3500 moveto TIK (OYLCVM, RGB) show TK (, and) showen ( und) showde TIK ( NW) show 3000 3500 moveto TK (triangle systems:) showen (Dreiecks\255System:) showde 3000 3200 moveto TIK (Arens) showen TK ( colours) showen TIK (Arens) showde TK (\255Farben) showde TBIK ( rgb*) show TK TKK -150 -100 rmoveto (A) show 150 100 rmoveto TK %3000 3200 moveto TK (optimal colours) showen % (Optimalfarben) showde % TBIK ( rgb*) show TK % TKK -150 -100 rmoveto (o) show 150 100 rmoveto TK %3000 2900 moveto TK (optimal colours) showen % (Optimalfarben) showde % TBIK ( rgb*) show TK % TKK -150 -100 rmoveto (o) show 150 100 rmoveto TKK %2300 0350 moveto TIKK (more coordinates and relations:) showen % (mehr Koordinaten und Beziehungen:) showde %2300 0100 moveto TIKK (http://www.ps.bam.de/33872E) showen % (http://www.ps.bam.de/33872) showde TIM 2300 1300 translate 0 -1000 moveto 0 2500 rlineto stroke /rx 774 def %standard hexagon gamut /fakt 1.5 def /iangle 10 def /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0.0 setgray /a0 0 def /b0 rx 1.5 mul def /c0 rx 1.5 mul neg def /faktr 0.6 def /fakt0 1.4 def 100 1500 moveto (t*) show %************************************BEGs /rx rx 1.7 mul def /iangle 170 def /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 30 60 210 {/iangle exch def %iangle=30,60,210 /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray [50 50] 0 setdash iangle 030 eq {c d moveto} if c d lineto iangle 210 eq {stroke} if } for %iangle=30,60,210 /antx [0.75 0.20 0.50] def 20 setlinewidth 0 1 2 {/inr exch def /ant antx inr get def inr 0 eq {/iangle1 330 def /iangle2 030 def} if inr 1 eq {/iangle1 150 def /iangle2 210 def} if inr 2 eq {/iangle1 210 def /iangle2 270 def} if /a1 rx iangle1 cos mul def /b1 rx iangle1 sin mul def /a0x1 a1 b1 0.5 mul add def /b0x1 b1 0.5 mul def /a2 rx iangle2 cos mul def /b2 rx iangle2 sin mul def /a0x2 a2 b2 0.5 mul add def /b0x2 b2 0.5 mul def /ant /a0x a0x1 a0x2 a0x1 sub ant mul add def /b0x b0x1 b0x2 b0x1 sub ant mul add def inr 1 eq {%inr=1 inr 0 ge inr 1 eq or {[50 50] 0 setdash} {[ ] 0 setdash} ifelse %[50 50] 0 setdash inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor %0 0 moveto a0x b0x lineto stroke a0 c0 moveto a0x a0 sub fakt0 mul b0x c0 sub fakt0 mul rlineto stroke newpath a0x b0x moveto a0x b0x 100 0 360 arc fill 0 0 0 setrgbcolor [ ] 0 setdash %[50 50] 0 setdash a0x b0x 100 0 360 arc stroke } if %inr=1 } for %inr=0,2 210 60 390 {/iangle exch def %iangle=210,60,390 /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray [ ] 0 setdash %[50 50] 0 setdash iangle 210 eq {c d moveto} if c d lineto iangle 390 eq {stroke} if } for %iangle=210,60,390 30 60 330 {/iangle exch def %iangle=30,60,330 /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray iangle 090 ge iangle 150 le and {[50 50] 0 setdash} {[ ] 0 setdash} ifelse %[50 50] 0 setdash a0 b0 moveto c d lineto stroke iangle 090 ge iangle 150 le and {[50 50] 0 setdash} {[ ] 0 setdash} ifelse %[50 50] 0 setdash a0 c0 moveto c d lineto stroke iangle 030 eq {/r*x 1 def /g*x 0 def /b*x 0 def} if iangle 090 eq {/r*x 1 def /g*x 1 def /b*x 0 def} if iangle 150 eq {/r*x 0 def /g*x 1 def /b*x 0 def} if iangle 210 eq {/r*x 0 def /g*x 1 def /b*x 1 def} if iangle 270 eq {/r*x 0 def /g*x 0 def /b*x 1 def} if iangle 330 eq {/r*x 1 def /g*x 0 def /b*x 1 def} if r*x g*x b*x setrgbcolor c d 100 0 360 arc fill } for %iangle=30,60,330 %************************************ENDs 1 1 1 setrgbcolor %W a0 b0 100 0 360 arc fill 0 0 0 setrgbcolor %N a0 b0 100 0 360 arc stroke 0 0 0 setrgbcolor %N a0 c0 100 0 360 arc fill %plot line of actual hue 50 setlinewidth xcharts 0 eq {/r*x 1 def /g*x 0 def /b*x 0 def} if xcharts 1 eq {/r*x 1 def /g*x 1 def /b*x 0 def} if xcharts 2 eq {/r*x 0 def /g*x 1 def /b*x 0 def} if xcharts 3 eq {/r*x 0 def /g*x 1 def /b*x 1 def} if xcharts 4 eq {/r*x 0 def /g*x 0 def /b*x 1 def} if xcharts 5 eq {/r*x 1 def /g*x 0 def /b*x 1 def} if xcharts 5 le {%xcharts<=5 r*x g*x b*x setrgbcolor 0 0 moveto /A*Ma LAB*a xcharts 3 mul 1 add get def /B*Ma LAB*a xcharts 3 mul 2 add get def A*Ma 10 mul B*Ma 10 mul lineto stroke } if %xcharts<=5 %****************************************BEGs /antx [0.75 0.20 0.50] def 20 setlinewidth 0 1 2 {/inr exch def /ant antx inr get def inr 0 eq {/iangle1 330 def /iangle2 030 def} if inr 1 eq {/iangle1 150 def /iangle2 210 def} if inr 2 eq {/iangle1 210 def /iangle2 270 def} if /a1 rx iangle1 cos mul def /b1 rx iangle1 sin mul def /a0x1 a1 b1 0.5 mul add def /b0x1 b1 0.5 mul def /a2 rx iangle2 cos mul def /b2 rx iangle2 sin mul def /a0x2 a2 b2 0.5 mul add def /b0x2 b2 0.5 mul def /ant /a0x a0x1 a0x2 a0x1 sub ant mul add def /b0x b0x1 b0x2 b0x1 sub ant mul add def inr 0 eq inr 2 eq or {%inr=0,2 inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor %0 0 moveto a0x b0x lineto stroke a0 c0 moveto a0x a0 sub fakt0 mul inr 2 eq {1.1 mul} if b0x c0 sub fakt0 mul inr 2 eq {1.1 mul} if rlineto stroke newpath a0x b0x moveto a0x b0x 100 0 360 arc fill } if %inr=0,2 inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor inr 0 eq {a0 a0x a0 sub fakt0 mul add 100 sub c0 b0x c0 sub fakt0 mul add 300 add moveto (r*) show TK -150 -100 rmoveto (A) show 150 100 rmoveto TIM } if inr 1 eq {a0 a0x a0 sub fakt0 mul add 100 sub c0 b0x c0 sub fakt0 mul add 200 add moveto (g*) show TK -150 -100 rmoveto (A) show 150 100 rmoveto TIM } if inr 2 eq {a0 a0x a0 sub fakt0 mul add 550 sub c0 b0x c0 sub fakt0 mul add 400 add moveto (b*) show TK -150 -100 rmoveto (A) show 150 100 rmoveto TIM } if 0 0 0 setrgbcolor newpath [ ] 0 setdash a0x b0x 100 0 360 arc stroke newpath } for %inr=0,2 %****************************************ENDs -1200 -1300 translate 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 ME171-4N %%BoundingBox: 70 83 226 206 %%old BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark14 where {pop} {userdict /pdfmark14 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/ME17/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.richter@me.com) /CreationDate (D:2010110112000) /ModDate (D:2010110112000) /DOCINFO pdfmark14 [ /View [ /FitB ] /DOCVIEW pdfmark14 %END PDFDE011 /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 %Umrechnung Inch -> mm /A4quer {598 0 translate 90 rotate} def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /TKK {200 /Times-ISOL1 FS} bind def /TK {250 /Times-ISOL1 FS} bind def /TM {290 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIKK {200 /TimesI-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBKK {200 /TimesB-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /TKr {250 /Times-Roman FS} bind def /TMr {300 /Times-Roman FS} bind def /TGr {350 /Times-Roman FS} bind def /TIKr {250 /Times-Italic FS} bind def /TIMr {300 /Times-Italic FS} bind def /TIGr {350 /Times-Italic FS} bind def /TBKr {250 /Times-Bold FS} bind def /TBMr {300 /Times-Bold FS} bind def /TBGr {350 /Times-Bold FS} bind def /TBIKr {250 /Times-BoldItalic FS} bind def /TBIMr {300 /Times-BoldItalic FS} bind def /TBIGr {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 %%EndProlog gsave %LANINDL2.EPS START 20000505 /lanind 0 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 {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %no loops /colorml colorm1 def /xcolorl xcolor1 def /xchart xchart1 def gsave %LANINDL2 END 0 setgray 4 /Times-Roman FS 72 86 moveto ( ME171-4N) show /LAB*a [%Natural symmetric Luminous System OYLCVMO+NW (NLS18) 43.81 67.03 38.70 %O 0 77.40/2 = 38.70 69.61 00.00 77.40 %Y 1 C*ab = 77.40 43.81 -67.03 38.70 %L 2 0.866 C*ab = 67.03 69.61 -67.03 -38.70 %C 3 delta L*=25.8 43.81 00.00 -77.40 %V 4 43.81=18.01+25.80 69.61 67.03 -38.70 %M 5 69.61=18.01+2*25.80 18.01 0.00 0.00 %N 6 18.01+77.40/3 = 18.01+25.80=43.81 95.41 0.00 0.00 %W 7 18.01+77.40*(2/3) = 18.01+51.60=69.61 ] def %CVMOYLC+NW gsave 72 90 translate 0.01 MM dup scale /DEintp 0 def /xcharts 10 def 20 setlinewidth 1.0 setgray 0 0 moveto 5300 0 rlineto 0 4000 rlineto -5300 0 rlineto closepath fill 0.0 setgray 0 0 moveto 5300 0 rlineto 0 4000 rlineto -5300 0 rlineto closepath stroke TBK 050 3800 moveto (8 Device Colours in 2 elementary hue systems) showen (8 Ger\344tefarben in 2 Elementarbuntton\255Systemen) showde 050 3500 moveto TIK (OYLCVM, RGB) show TK (, and) showen ( und) showde TIK ( NW) show 3000 3500 moveto TK (triangle systems:) showen (Dreiecks\255System:) showde 3000 3200 moveto TK (surface colours) showen (K\366rperfarben) showde TBIK ( rgb*) show TK TKK -150 -100 rmoveto (s) show 150 100 rmoveto TK 3000 2900 moveto TK (optimal colours) showen (Optimalfarben) showde TBIK ( rgb*) show TK TKK -150 -100 rmoveto (o) show 150 100 rmoveto TK %3000 2600 moveto TIK (Arens) showen TK ( colours) showen % TIK (Arens) showde TK (\255Farben) showde % TBIK ( rgb*) show TK % TKK -150 -100 rmoveto (A) show 150 100 rmoveto TK %2300 0350 moveto TIKK (more coordinates and relations:) showen % (mehr Koordinaten und Beziehungen:) showde %2300 0100 moveto TIKK (http://www.ps.bam.de/33872E) showen % (http://www.ps.bam.de/33872) showde TIM 2300 1300 translate 0 -1000 moveto 0 2500 rlineto stroke /rx 774 def %standard hexagon gamut /fakt 1.5 def /iangle 10 def /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0.0 setgray /a0 0 def /b0 rx 1.5 mul def /c0 rx 1.5 mul neg def /faktr 0.6 def /fakt0 1.5 def 100 1500 moveto (t*) show %************************************BEGs /iangle 170 def /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 30 60 210 {/iangle exch def %iangle=30,60,210 /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray [50 50] 0 setdash iangle 030 eq {c d moveto} if c d lineto iangle 210 eq {stroke} if } for %iangle=30,60,210 /antx [0.75 0.20 0.50] def 20 setlinewidth 0 1 2 {/inr exch def /ant antx inr get def inr 0 eq {/iangle1 330 def /iangle2 030 def} if inr 1 eq {/iangle1 150 def /iangle2 210 def} if inr 2 eq {/iangle1 210 def /iangle2 270 def} if /a1 rx iangle1 cos mul def /b1 rx iangle1 sin mul def /a0x1 a1 b1 0.5 mul add def /b0x1 b1 0.5 mul def /a2 rx iangle2 cos mul def /b2 rx iangle2 sin mul def /a0x2 a2 b2 0.5 mul add def /b0x2 b2 0.5 mul def /ant /a0x a0x1 a0x2 a0x1 sub ant mul add def /b0x b0x1 b0x2 b0x1 sub ant mul add def inr 1 eq {%inr=1 %inr 0 ge inr 1 eq or {[50 50] 0 setdash} {[ ] 0 setdash} ifelse [50 50] 0 setdash inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor %0 0 moveto a0x b0x lineto stroke a0 c0 moveto a0x a0 sub fakt0 mul b0x c0 sub fakt0 mul rlineto stroke newpath a0x b0x moveto a0x b0x 100 0 360 arc fill 0 0 0 setrgbcolor [ ] 0 setdash a0x b0x 100 0 360 arc stroke } if %inr=1 } for %inr=0,2 210 60 390 {/iangle exch def %iangle=210,60,390 /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray %[ ] 0 setdash [50 50] 0 setdash iangle 210 eq {c d moveto} if c d lineto iangle 390 eq {stroke} if } for %iangle=210,60,390 30 60 330 {/iangle exch def %iangle=30,60,330 /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray %iangle 090 ge iangle 150 le and {[50 50] 0 setdash} {[ ] 0 setdash} ifelse [50 50] 0 setdash a0 b0 moveto c d lineto stroke %iangle 090 ge iangle 150 le and {[50 50] 0 setdash} {[ ] 0 setdash} ifelse [50 50] 0 setdash a0 c0 moveto c d lineto stroke iangle 030 eq {/r*x 1 def /g*x 0 def /b*x 0 def} if iangle 090 eq {/r*x 1 def /g*x 1 def /b*x 0 def} if iangle 150 eq {/r*x 0 def /g*x 1 def /b*x 0 def} if iangle 210 eq {/r*x 0 def /g*x 1 def /b*x 1 def} if iangle 270 eq {/r*x 0 def /g*x 0 def /b*x 1 def} if iangle 330 eq {/r*x 1 def /g*x 0 def /b*x 1 def} if r*x g*x b*x setrgbcolor c d 100 0 360 arc fill } for %iangle=30,60,330 %************************************ENDs %************************************BEGo /rxo rx 1.35 mul def /iangle 170 def /a rxo iangle cos mul def /b rxo iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 30 60 210 {/iangle exch def %iangle=30,60,210 /a rxo iangle cos mul def /b rxo iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray [50 50] 0 setdash iangle 030 eq {c d moveto} if c d lineto iangle 210 eq {stroke} if } for %iangle=30,60,210 /antx [0.75 0.20 0.50] def 20 setlinewidth 0 1 2 {/inr exch def /ant antx inr get def inr 0 eq {/iangle1 330 def /iangle2 030 def} if inr 1 eq {/iangle1 150 def /iangle2 210 def} if inr 2 eq {/iangle1 210 def /iangle2 270 def} if /a1 rxo iangle1 cos mul def /b1 rxo iangle1 sin mul def /a0x1 a1 b1 0.5 mul add def /b0x1 b1 0.5 mul def /a2 rxo iangle2 cos mul def /b2 rxo iangle2 sin mul def /a0x2 a2 b2 0.5 mul add def /b0x2 b2 0.5 mul def /ant /a0x a0x1 a0x2 a0x1 sub ant mul add def /b0x b0x1 b0x2 b0x1 sub ant mul add def inr 1 eq {%inr=1 inr 0 ge inr 1 eq or {[50 50] 0 setdash} {[ ] 0 setdash} ifelse %[50 50] 0 setdash %NEW inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor %0 0 moveto a0x b0x lineto stroke a0 c0 moveto a0x a0 sub fakt0 mul b0x c0 sub fakt0 mul rlineto stroke newpath a0x b0x moveto a0x b0x 100 0 360 arc fill 0 0 0 setrgbcolor [ ] 0 setdash a0x b0x 100 0 360 arc stroke } if %inr=1 } for %inr=0,2 210 60 390 {/iangle exch def %iangle=210,60,390 /a rxo iangle cos mul def /b rxo iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray [ ] 0 setdash %[50 50] 0 setdash iangle 210 eq {c d moveto} if c d lineto iangle 390 eq {stroke} if } for %iangle=210,60,390 30 60 330 {/iangle exch def %iangle=30,60,330 /a rxo iangle cos mul def /b rxo iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray iangle 090 ge iangle 150 le and {[50 50] 0 setdash} {[ ] 0 setdash} ifelse %[50 50] 0 setdash a0 b0 moveto c d lineto stroke iangle 090 ge iangle 150 le and {[50 50] 0 setdash} {[ ] 0 setdash} ifelse %[50 50] 0 setdash a0 c0 moveto c d lineto stroke iangle 030 eq {/r*x 1 def /g*x 0 def /b*x 0 def} if iangle 090 eq {/r*x 1 def /g*x 1 def /b*x 0 def} if iangle 150 eq {/r*x 0 def /g*x 1 def /b*x 0 def} if iangle 210 eq {/r*x 0 def /g*x 1 def /b*x 1 def} if iangle 270 eq {/r*x 0 def /g*x 0 def /b*x 1 def} if iangle 330 eq {/r*x 1 def /g*x 0 def /b*x 1 def} if r*x g*x b*x setrgbcolor c d 100 0 360 arc fill } for %iangle=30,60,330 %************************************ENDo 1 1 1 setrgbcolor %W a0 b0 100 0 360 arc fill 0 0 0 setrgbcolor %N a0 b0 100 0 360 arc stroke 0 0 0 setrgbcolor %N a0 c0 100 0 360 arc fill %plot line of actual hue 50 setlinewidth xcharts 0 eq {/r*x 1 def /g*x 0 def /b*x 0 def} if xcharts 1 eq {/r*x 1 def /g*x 1 def /b*x 0 def} if xcharts 2 eq {/r*x 0 def /g*x 1 def /b*x 0 def} if xcharts 3 eq {/r*x 0 def /g*x 1 def /b*x 1 def} if xcharts 4 eq {/r*x 0 def /g*x 0 def /b*x 1 def} if xcharts 5 eq {/r*x 1 def /g*x 0 def /b*x 1 def} if xcharts 5 le {%xcharts<=5 r*x g*x b*x setrgbcolor 0 0 moveto /A*Ma LAB*a xcharts 3 mul 1 add get def /B*Ma LAB*a xcharts 3 mul 2 add get def A*Ma 10 mul B*Ma 10 mul lineto stroke } if %xcharts<=5 %************************************BEGs /antx [0.75 0.20 0.50] def 20 setlinewidth 0 1 2 {/inr exch def /ant antx inr get def inr 0 eq {/iangle1 330 def /iangle2 030 def} if inr 1 eq {/iangle1 150 def /iangle2 210 def} if inr 2 eq {/iangle1 210 def /iangle2 270 def} if /a1 rx iangle1 cos mul def /b1 rx iangle1 sin mul def /a0x1 a1 b1 0.5 mul add def /b0x1 b1 0.5 mul def /a2 rx iangle2 cos mul def /b2 rx iangle2 sin mul def /a0x2 a2 b2 0.5 mul add def /b0x2 b2 0.5 mul def /ant /a0x a0x1 a0x2 a0x1 sub ant mul add def /b0x b0x1 b0x2 b0x1 sub ant mul add def inr 0 eq inr 2 eq or {%inr=0,2 inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor %0 0 moveto a0x b0x lineto stroke a0 c0 moveto a0x a0 sub fakt0 mul inr 2 eq {1.1 mul} if b0x c0 sub fakt0 mul inr 2 eq {1.1 mul} if rlineto stroke newpath a0x b0x moveto a0x b0x 100 0 360 arc fill } if %inr=0,2 inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor inr 0 eq {a0 a0x a0 sub fakt0 mul add 100 sub c0 b0x c0 sub fakt0 mul add 300 add moveto (r*) show TK -150 -100 rmoveto (s) show 150 100 rmoveto TIM } if inr 1 eq {a0 a0x a0 sub fakt0 mul add 100 sub c0 b0x c0 sub fakt0 mul add 200 add moveto (g*) show TK -150 -100 rmoveto (s) show 150 100 rmoveto TIM } if inr 2 eq {a0 a0x a0 sub fakt0 mul add 550 sub c0 b0x c0 sub fakt0 mul add 400 add moveto (b*) show TK -150 -100 rmoveto (s) show 150 100 rmoveto TIM } if 0 0 0 setrgbcolor newpath [ ] 0 setdash a0x b0x 100 0 360 arc stroke newpath } for %inr=0,2 %************************************ENDs %****************************************BEGo /rxo rx 1.35 mul def /antx [0.75 0.20 0.50] def 20 setlinewidth 0 1 2 {/inr exch def /ant antx inr get def inr 0 eq {/iangle1 330 def /iangle2 030 def} if inr 1 eq {/iangle1 150 def /iangle2 210 def} if inr 2 eq {/iangle1 210 def /iangle2 270 def} if /a1 rxo iangle1 cos mul def /b1 rxo iangle1 sin mul def /a0x1 a1 b1 0.5 mul add def /b0x1 b1 0.5 mul def /a2 rxo iangle2 cos mul def /b2 rxo iangle2 sin mul def /a0x2 a2 b2 0.5 mul add def /b0x2 b2 0.5 mul def /ant /a0x a0x1 a0x2 a0x1 sub ant mul add def /b0x b0x1 b0x2 b0x1 sub ant mul add def inr 0 eq inr 2 eq or {%inr=0,2 inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor %0 0 moveto a0x b0x lineto stroke a0 c0 moveto a0x a0 sub fakt0 mul inr 2 eq {1.1 mul} if b0x c0 sub fakt0 mul inr 2 eq {1.1 mul} if rlineto stroke newpath a0x b0x moveto a0x b0x 100 0 360 arc fill } if %inr=0,2 inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor inr 0 eq {a0 a0x a0 sub fakt0 mul add 100 sub c0 b0x c0 sub fakt0 mul add 100 add moveto (r*) show TK -150 -100 rmoveto (o) show 150 100 rmoveto TIM } if inr 1 eq {a0 a0x a0 sub fakt0 mul add 100 sub c0 b0x c0 sub fakt0 mul add 100 add moveto (g*) show TK -150 -100 rmoveto (o) show 150 100 rmoveto TIM } if inr 2 eq {a0 a0x a0 sub fakt0 mul add 300 sub c0 b0x c0 sub fakt0 mul add 250 add moveto (b*) show TK -150 -100 rmoveto (o) show 150 100 rmoveto TIM } if 0 0 0 setrgbcolor newpath [ ] 0 setdash a0x b0x 100 0 360 arc stroke newpath } for %inr=0,2 %***************************************************ENDo 1 1 1 setrgbcolor %W a0 b0 100 0 360 arc fill 0 0 0 setrgbcolor %N a0 b0 100 0 360 arc stroke 0 0 0 setrgbcolor %N a0 c0 100 0 360 arc fill -1200 -1300 translate grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 25 %line 469 %!PS-Adobe-3.0 EPSF-3.0 ME171-5N %%BoundingBox: 70 83 226 206 %%old BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark15 where {pop} {userdict /pdfmark15 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/ME17/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.richter@me.com) /CreationDate (D:2010110112000) /ModDate (D:2010110112000) /DOCINFO pdfmark15 [ /View [ /FitB ] /DOCVIEW pdfmark15 %END PDFDE011 /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 %Umrechnung Inch -> mm /A4quer {598 0 translate 90 rotate} def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /TKK {200 /Times-ISOL1 FS} bind def /TK {250 /Times-ISOL1 FS} bind def /TM {290 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIKK {200 /TimesI-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBKK {200 /TimesB-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /TKr {250 /Times-Roman FS} bind def /TMr {300 /Times-Roman FS} bind def /TGr {350 /Times-Roman FS} bind def /TIKr {250 /Times-Italic FS} bind def /TIMr {300 /Times-Italic FS} bind def /TIGr {350 /Times-Italic FS} bind def /TBKr {250 /Times-Bold FS} bind def /TBMr {300 /Times-Bold FS} bind def /TBGr {350 /Times-Bold FS} bind def /TBIKr {250 /Times-BoldItalic FS} bind def /TBIMr {300 /Times-BoldItalic FS} bind def /TBIGr {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 %%EndProlog gsave %LANINDL2.EPS START 20000505 /lanind 0 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 {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %no loops /colorml colorm1 def /xcolorl xcolor1 def /xchart xchart1 def gsave %LANINDL2 END 0 setgray 4 /Times-Roman FS 72 86 moveto ( ME171-5N) show /LAB*a [%Natural symmetric Luminous System OYLCVMO+NW (NLS18) 43.81 67.03 38.70 %O 0 77.40/2 = 38.70 69.61 00.00 77.40 %Y 1 C*ab = 77.40 43.81 -67.03 38.70 %L 2 0.866 C*ab = 67.03 69.61 -67.03 -38.70 %C 3 delta L*=25.8 43.81 00.00 -77.40 %V 4 43.81=18.01+25.80 69.61 67.03 -38.70 %M 5 69.61=18.01+2*25.80 18.01 0.00 0.00 %N 6 18.01+77.40/3 = 18.01+25.80=43.81 95.41 0.00 0.00 %W 7 18.01+77.40*(2/3) = 18.01+51.60=69.61 ] def %CVMOYLC+NW gsave 72 90 translate 0.01 MM dup scale /DEintp 0 def /xcharts 10 def 20 setlinewidth 1.0 setgray 0 0 moveto 5300 0 rlineto 0 4000 rlineto -5300 0 rlineto closepath fill 0.0 setgray 0 0 moveto 5300 0 rlineto 0 4000 rlineto -5300 0 rlineto closepath stroke TBK 050 3800 moveto (8 Device Colours in 2 elementary hue systems) showen (8 Ger\344tefarben in 2 Elementarbuntton\255Systemen) showde 050 3500 moveto TIK (OYLCVM, RGB) show TK (, and) showen ( und) showde TIK ( NW) show 3000 3500 moveto TK (triangle systems:) showen (Dreiecks\255System:) showde 3000 3200 moveto TK (surface colours) showen (K\366rperfarben) showde TBIK ( rgb*) show TK TKK -150 -100 rmoveto (s) show 150 100 rmoveto TK 3000 2900 moveto TK (optimal colours) showen (Optimalfarben) showde TBIK ( rgb*) show TK TKK -150 -100 rmoveto (o) show 150 100 rmoveto TK %3000 2600 moveto TIK (Arens) showen TK ( colours) showen % TIK (Arens) showde TK (\255Farben) showde % TBIK ( rgb*) show TK % TKK -150 -100 rmoveto (A) show 150 100 rmoveto TK %2300 0350 moveto TIKK (more coordinates and relations:) showen % (mehr Koordinaten und Beziehungen:) showde %2300 0100 moveto TIKK (http://www.ps.bam.de/33872E) showen % (http://www.ps.bam.de/33872) showde TIM 2300 1300 translate 0 -1000 moveto 0 2500 rlineto stroke /rx 774 def %standard hexagon gamut /fakt 1.5 def /iangle 10 def /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0.0 setgray /a0 0 def /b0 rx 1.5 mul def /c0 rx 1.5 mul neg def /faktr 0.6 def /fakt0 1.5 def 100 1500 moveto (t*) show %************************************BEGs /iangle 170 def /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 30 60 210 {/iangle exch def %iangle=30,60,210 /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray [50 50] 0 setdash iangle 030 eq {c d moveto} if c d lineto iangle 210 eq {stroke} if } for %iangle=30,60,210 /antx [0.75 0.20 0.50] def 20 setlinewidth 0 1 2 {/inr exch def /ant antx inr get def inr 0 eq {/iangle1 330 def /iangle2 030 def} if inr 1 eq {/iangle1 150 def /iangle2 210 def} if inr 2 eq {/iangle1 210 def /iangle2 270 def} if /a1 rx iangle1 cos mul def /b1 rx iangle1 sin mul def /a0x1 a1 b1 0.5 mul add def /b0x1 b1 0.5 mul def /a2 rx iangle2 cos mul def /b2 rx iangle2 sin mul def /a0x2 a2 b2 0.5 mul add def /b0x2 b2 0.5 mul def /ant /a0x a0x1 a0x2 a0x1 sub ant mul add def /b0x b0x1 b0x2 b0x1 sub ant mul add def inr 1 eq {%inr=1 %inr 0 ge inr 1 eq or {[50 50] 0 setdash} {[ ] 0 setdash} ifelse [50 50] 0 setdash inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor %0 0 moveto a0x b0x lineto stroke a0 c0 moveto a0x a0 sub fakt0 mul b0x c0 sub fakt0 mul rlineto stroke newpath a0x b0x moveto a0x b0x 100 0 360 arc fill 0 0 0 setrgbcolor [ ] 0 setdash a0x b0x 100 0 360 arc stroke } if %inr=1 } for %inr=0,2 210 60 390 {/iangle exch def %iangle=210,60,390 /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray %[ ] 0 setdash [50 50] 0 setdash iangle 210 eq {c d moveto} if c d lineto iangle 390 eq {stroke} if } for %iangle=210,60,390 30 60 330 {/iangle exch def %iangle=30,60,330 /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray %iangle 090 ge iangle 150 le and {[50 50] 0 setdash} {[ ] 0 setdash} ifelse [50 50] 0 setdash a0 b0 moveto c d lineto stroke %iangle 090 ge iangle 150 le and {[50 50] 0 setdash} {[ ] 0 setdash} ifelse [50 50] 0 setdash a0 c0 moveto c d lineto stroke iangle 030 eq {/r*x 1 def /g*x 0 def /b*x 0 def} if iangle 090 eq {/r*x 1 def /g*x 1 def /b*x 0 def} if iangle 150 eq {/r*x 0 def /g*x 1 def /b*x 0 def} if iangle 210 eq {/r*x 0 def /g*x 1 def /b*x 1 def} if iangle 270 eq {/r*x 0 def /g*x 0 def /b*x 1 def} if iangle 330 eq {/r*x 1 def /g*x 0 def /b*x 1 def} if r*x g*x b*x setrgbcolor c d 100 0 360 arc fill } for %iangle=30,60,330 %************************************ENDs %************************************BEGo /rxo rx 1.35 mul def /iangle 170 def /a rxo iangle cos mul def /b rxo iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 30 60 210 {/iangle exch def %iangle=30,60,210 /a rxo iangle cos mul def /b rxo iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray [50 50] 0 setdash iangle 030 eq {c d moveto} if c d lineto iangle 210 eq {stroke} if } for %iangle=30,60,210 /antx [0.75 0.20 0.50] def 20 setlinewidth 0 1 2 {/inr exch def /ant antx inr get def inr 0 eq {/iangle1 330 def /iangle2 030 def} if inr 1 eq {/iangle1 150 def /iangle2 210 def} if inr 2 eq {/iangle1 210 def /iangle2 270 def} if /a1 rxo iangle1 cos mul def /b1 rxo iangle1 sin mul def /a0x1 a1 b1 0.5 mul add def /b0x1 b1 0.5 mul def /a2 rxo iangle2 cos mul def /b2 rxo iangle2 sin mul def /a0x2 a2 b2 0.5 mul add def /b0x2 b2 0.5 mul def /ant /a0x a0x1 a0x2 a0x1 sub ant mul add def /b0x b0x1 b0x2 b0x1 sub ant mul add def inr 1 eq {%inr=1 inr 0 ge inr 1 eq or {[50 50] 0 setdash} {[ ] 0 setdash} ifelse %[50 50] 0 setdash %NEW inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor %0 0 moveto a0x b0x lineto stroke a0 c0 moveto a0x a0 sub fakt0 mul b0x c0 sub fakt0 mul rlineto stroke newpath a0x b0x moveto a0x b0x 100 0 360 arc fill 0 0 0 setrgbcolor [ ] 0 setdash a0x b0x 100 0 360 arc stroke } if %inr=1 } for %inr=0,2 210 60 390 {/iangle exch def %iangle=210,60,390 /a rxo iangle cos mul def /b rxo iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray [ ] 0 setdash %[50 50] 0 setdash iangle 210 eq {c d moveto} if c d lineto iangle 390 eq {stroke} if } for %iangle=210,60,390 30 60 330 {/iangle exch def %iangle=30,60,330 /a rxo iangle cos mul def /b rxo iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray iangle 090 ge iangle 150 le and {[50 50] 0 setdash} {[ ] 0 setdash} ifelse %[50 50] 0 setdash a0 b0 moveto c d lineto stroke iangle 090 ge iangle 150 le and {[50 50] 0 setdash} {[ ] 0 setdash} ifelse %[50 50] 0 setdash a0 c0 moveto c d lineto stroke iangle 030 eq {/r*x 1 def /g*x 0 def /b*x 0 def} if iangle 090 eq {/r*x 1 def /g*x 1 def /b*x 0 def} if iangle 150 eq {/r*x 0 def /g*x 1 def /b*x 0 def} if iangle 210 eq {/r*x 0 def /g*x 1 def /b*x 1 def} if iangle 270 eq {/r*x 0 def /g*x 0 def /b*x 1 def} if iangle 330 eq {/r*x 1 def /g*x 0 def /b*x 1 def} if r*x g*x b*x setrgbcolor c d 100 0 360 arc fill } for %iangle=30,60,330 %************************************ENDo 1 1 1 setrgbcolor %W a0 b0 100 0 360 arc fill 0 0 0 setrgbcolor %N a0 b0 100 0 360 arc stroke 0 0 0 setrgbcolor %N a0 c0 100 0 360 arc fill %plot line of actual hue 50 setlinewidth xcharts 0 eq {/r*x 1 def /g*x 0 def /b*x 0 def} if xcharts 1 eq {/r*x 1 def /g*x 1 def /b*x 0 def} if xcharts 2 eq {/r*x 0 def /g*x 1 def /b*x 0 def} if xcharts 3 eq {/r*x 0 def /g*x 1 def /b*x 1 def} if xcharts 4 eq {/r*x 0 def /g*x 0 def /b*x 1 def} if xcharts 5 eq {/r*x 1 def /g*x 0 def /b*x 1 def} if xcharts 5 le {%xcharts<=5 r*x g*x b*x setrgbcolor 0 0 moveto /A*Ma LAB*a xcharts 3 mul 1 add get def /B*Ma LAB*a xcharts 3 mul 2 add get def A*Ma 10 mul B*Ma 10 mul lineto stroke } if %xcharts<=5 %************************************BEGs /antx [0.75 0.20 0.50] def 20 setlinewidth 0 1 2 {/inr exch def /ant antx inr get def inr 0 eq {/iangle1 330 def /iangle2 030 def} if inr 1 eq {/iangle1 150 def /iangle2 210 def} if inr 2 eq {/iangle1 210 def /iangle2 270 def} if /a1 rx iangle1 cos mul def /b1 rx iangle1 sin mul def /a0x1 a1 b1 0.5 mul add def /b0x1 b1 0.5 mul def /a2 rx iangle2 cos mul def /b2 rx iangle2 sin mul def /a0x2 a2 b2 0.5 mul add def /b0x2 b2 0.5 mul def /ant /a0x a0x1 a0x2 a0x1 sub ant mul add def /b0x b0x1 b0x2 b0x1 sub ant mul add def inr 0 eq inr 2 eq or {%inr=0,2 inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor %0 0 moveto a0x b0x lineto stroke a0 c0 moveto a0x a0 sub fakt0 mul inr 2 eq {1.1 mul} if b0x c0 sub fakt0 mul inr 2 eq {1.1 mul} if rlineto stroke newpath a0x b0x moveto a0x b0x 100 0 360 arc fill } if %inr=0,2 inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor inr 0 eq {a0 a0x a0 sub fakt0 mul add 100 sub c0 b0x c0 sub fakt0 mul add 300 add moveto (r*) show TK -150 -100 rmoveto (s) show 150 100 rmoveto TIM } if inr 1 eq {a0 a0x a0 sub fakt0 mul add 100 sub c0 b0x c0 sub fakt0 mul add 200 add moveto (g*) show TK -150 -100 rmoveto (s) show 150 100 rmoveto TIM } if inr 2 eq {a0 a0x a0 sub fakt0 mul add 550 sub c0 b0x c0 sub fakt0 mul add 400 add moveto (b*) show TK -150 -100 rmoveto (s) show 150 100 rmoveto TIM } if 0 0 0 setrgbcolor newpath [ ] 0 setdash a0x b0x 100 0 360 arc stroke newpath } for %inr=0,2 %************************************ENDs %****************************************BEGo /rxo rx 1.35 mul def /antx [0.75 0.20 0.50] def 20 setlinewidth 0 1 2 {/inr exch def /ant antx inr get def inr 0 eq {/iangle1 330 def /iangle2 030 def} if inr 1 eq {/iangle1 150 def /iangle2 210 def} if inr 2 eq {/iangle1 210 def /iangle2 270 def} if /a1 rxo iangle1 cos mul def /b1 rxo iangle1 sin mul def /a0x1 a1 b1 0.5 mul add def /b0x1 b1 0.5 mul def /a2 rxo iangle2 cos mul def /b2 rxo iangle2 sin mul def /a0x2 a2 b2 0.5 mul add def /b0x2 b2 0.5 mul def /ant /a0x a0x1 a0x2 a0x1 sub ant mul add def /b0x b0x1 b0x2 b0x1 sub ant mul add def inr 0 eq inr 2 eq or {%inr=0,2 inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor %0 0 moveto a0x b0x lineto stroke a0 c0 moveto a0x a0 sub fakt0 mul inr 2 eq {1.1 mul} if b0x c0 sub fakt0 mul inr 2 eq {1.1 mul} if rlineto stroke newpath a0x b0x moveto a0x b0x 100 0 360 arc fill } if %inr=0,2 inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor inr 0 eq {a0 a0x a0 sub fakt0 mul add 100 sub c0 b0x c0 sub fakt0 mul add 100 add moveto (r*) show TK -150 -100 rmoveto (o) show 150 100 rmoveto TIM } if inr 1 eq {a0 a0x a0 sub fakt0 mul add 100 sub c0 b0x c0 sub fakt0 mul add 100 add moveto (g*) show TK -150 -100 rmoveto (o) show 150 100 rmoveto TIM } if inr 2 eq {a0 a0x a0 sub fakt0 mul add 300 sub c0 b0x c0 sub fakt0 mul add 250 add moveto (b*) show TK -150 -100 rmoveto (o) show 150 100 rmoveto TIM } if 0 0 0 setrgbcolor newpath [ ] 0 setdash a0x b0x 100 0 360 arc stroke newpath } for %inr=0,2 %***************************************************ENDo /iangle 30 def %Optimal colours /rxo rx 1.35 mul def /a rxo iangle cos mul def /b rxo iangle sin mul def /co a b 0.5 mul add def /do b 0.5 mul def 50 setlinewidth 1 0 0 setrgbcolor a0 c0 moveto %N a0 co add 0.55 mul c0 do add 0.5 mul lineto co do lineto %R co a0 add 0.6 mul do b0 add 0.5 mul lineto a0 b0 lineto stroke %W 1 1 1 setrgbcolor %W a0 b0 100 0 360 arc fill 0 0 0 setrgbcolor %N a0 b0 100 0 360 arc stroke 0 0 0 setrgbcolor %N a0 c0 100 0 360 arc fill -1200 -1300 translate 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 ME171-6N %%BoundingBox: 70 83 226 206 %%old BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark16 where {pop} {userdict /pdfmark16 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/ME17/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.richter@me.com) /CreationDate (D:2010110112000) /ModDate (D:2010110112000) /DOCINFO pdfmark16 [ /View [ /FitB ] /DOCVIEW pdfmark16 %END PDFDE011 /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 %Umrechnung Inch -> mm /A4quer {598 0 translate 90 rotate} def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /TKK {200 /Times-ISOL1 FS} bind def /TK {250 /Times-ISOL1 FS} bind def /TM {290 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIKK {200 /TimesI-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBKK {200 /TimesB-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /TKr {250 /Times-Roman FS} bind def /TMr {300 /Times-Roman FS} bind def /TGr {350 /Times-Roman FS} bind def /TIKr {250 /Times-Italic FS} bind def /TIMr {300 /Times-Italic FS} bind def /TIGr {350 /Times-Italic FS} bind def /TBKr {250 /Times-Bold FS} bind def /TBMr {300 /Times-Bold FS} bind def /TBGr {350 /Times-Bold FS} bind def /TBIKr {250 /Times-BoldItalic FS} bind def /TBIMr {300 /Times-BoldItalic FS} bind def /TBIGr {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 %%EndProlog gsave %LANINDL2.EPS START 20000505 /lanind 0 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 {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %no loops /colorml colorm1 def /xcolorl xcolor1 def /xchart xchart1 def gsave %LANINDL2 END 0 setgray 4 /Times-Roman FS 72 86 moveto ( ME171-6N) show /LAB*a [%Natural symmetric Luminous System OYLCVMO+NW (NLS18) 43.81 67.03 38.70 %O 0 77.40/2 = 38.70 69.61 00.00 77.40 %Y 1 C*ab = 77.40 43.81 -67.03 38.70 %L 2 0.866 C*ab = 67.03 69.61 -67.03 -38.70 %C 3 delta L*=25.8 43.81 00.00 -77.40 %V 4 43.81=18.01+25.80 69.61 67.03 -38.70 %M 5 69.61=18.01+2*25.80 18.01 0.00 0.00 %N 6 18.01+77.40/3 = 18.01+25.80=43.81 95.41 0.00 0.00 %W 7 18.01+77.40*(2/3) = 18.01+51.60=69.61 ] def %CVMOYLC+NW gsave 72 90 translate 0.01 MM dup scale /DEintp 0 def /xcharts 10 def 20 setlinewidth 1.0 setgray 0 0 moveto 5300 0 rlineto 0 4000 rlineto -5300 0 rlineto closepath fill 0.0 setgray 0 0 moveto 5300 0 rlineto 0 4000 rlineto -5300 0 rlineto closepath stroke TBK 050 3800 moveto (8 Device Colours in 3 elementary hue systems) showen (8 Ger\344tefarben in 3 Elementarbuntton\255Systemen) showde 050 3500 moveto TIK (OYLCVM, RGB) show TK (, and) showen ( und) showde TIK ( NW) show 3000 3500 moveto TK (triangle systems:) showen (Dreiecks\255System:) showde 3000 3200 moveto TK (surface colours) showen (K\366rperfarben) showde TBIK ( rgb*) show TK TKK -150 -100 rmoveto (s) show 150 100 rmoveto TK 3000 2900 moveto TK (optimal colours) showen (Optimalfarben) showde TBIK ( rgb*) show TK TKK -150 -100 rmoveto (o) show 150 100 rmoveto TK 3000 2600 moveto TIK (Arens) showen TK ( colours) showen TIK (Arens) showde TK (\255Farben) showde TBIK ( rgb*) show TK TKK -150 -100 rmoveto (A) show 150 100 rmoveto TK %2300 0350 moveto TIKK (more coordinates and relations:) showen % (mehr Koordinaten und Beziehungen:) showde %2300 0100 moveto TIKK (http://www.ps.bam.de/33872E) showen % (http://www.ps.bam.de/33872) showde TIM 2300 1300 translate 0 -1000 moveto 0 2500 rlineto stroke /rx 774 def %standard hexagon gamut /fakt 1.5 def /iangle 10 def /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0.0 setgray /a0 0 def /b0 rx 1.5 mul def /c0 rx 1.5 mul neg def /faktr 0.6 def /fakt0 1.5 def 100 1500 moveto (t*) show %************************************BEGs /iangle 170 def /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 30 60 210 {/iangle exch def %iangle=30,60,210 /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray [50 50] 0 setdash iangle 030 eq {c d moveto} if c d lineto iangle 210 eq {stroke} if } for %iangle=30,60,210 /antx [0.75 0.20 0.50] def 20 setlinewidth 0 1 2 {/inr exch def /ant antx inr get def inr 0 eq {/iangle1 330 def /iangle2 030 def} if inr 1 eq {/iangle1 150 def /iangle2 210 def} if inr 2 eq {/iangle1 210 def /iangle2 270 def} if /a1 rx iangle1 cos mul def /b1 rx iangle1 sin mul def /a0x1 a1 b1 0.5 mul add def /b0x1 b1 0.5 mul def /a2 rx iangle2 cos mul def /b2 rx iangle2 sin mul def /a0x2 a2 b2 0.5 mul add def /b0x2 b2 0.5 mul def /ant /a0x a0x1 a0x2 a0x1 sub ant mul add def /b0x b0x1 b0x2 b0x1 sub ant mul add def inr 1 eq {%inr=1 %inr 0 ge inr 1 eq or {[50 50] 0 setdash} {[ ] 0 setdash} ifelse [50 50] 0 setdash inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor %0 0 moveto a0x b0x lineto stroke a0 c0 moveto a0x a0 sub fakt0 mul b0x c0 sub fakt0 mul rlineto stroke newpath a0x b0x moveto a0x b0x 100 0 360 arc fill 0 0 0 setrgbcolor [ ] 0 setdash a0x b0x 100 0 360 arc stroke } if %inr=1 } for %inr=0,2 210 60 390 {/iangle exch def %iangle=210,60,390 /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray %[ ] 0 setdash [50 50] 0 setdash iangle 210 eq {c d moveto} if c d lineto iangle 390 eq {stroke} if } for %iangle=210,60,390 30 60 330 {/iangle exch def %iangle=30,60,330 /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray %iangle 090 ge iangle 150 le and {[50 50] 0 setdash} {[ ] 0 setdash} ifelse [50 50] 0 setdash a0 b0 moveto c d lineto stroke %iangle 090 ge iangle 150 le and {[50 50] 0 setdash} {[ ] 0 setdash} ifelse [50 50] 0 setdash a0 c0 moveto c d lineto stroke iangle 030 eq {/r*x 1 def /g*x 0 def /b*x 0 def} if iangle 090 eq {/r*x 1 def /g*x 1 def /b*x 0 def} if iangle 150 eq {/r*x 0 def /g*x 1 def /b*x 0 def} if iangle 210 eq {/r*x 0 def /g*x 1 def /b*x 1 def} if iangle 270 eq {/r*x 0 def /g*x 0 def /b*x 1 def} if iangle 330 eq {/r*x 1 def /g*x 0 def /b*x 1 def} if r*x g*x b*x setrgbcolor c d 100 0 360 arc fill } for %iangle=30,60,330 %************************************ENDs %************************************BEGo /rxo rx 1.35 mul def /iangle 170 def /a rxo iangle cos mul def /b rxo iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 30 60 210 {/iangle exch def %iangle=30,60,210 /a rxo iangle cos mul def /b rxo iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray [50 50] 0 setdash iangle 030 eq {c d moveto} if c d lineto iangle 210 eq {stroke} if } for %iangle=30,60,210 /antx [0.75 0.20 0.50] def 20 setlinewidth 0 1 2 {/inr exch def /ant antx inr get def inr 0 eq {/iangle1 330 def /iangle2 030 def} if inr 1 eq {/iangle1 150 def /iangle2 210 def} if inr 2 eq {/iangle1 210 def /iangle2 270 def} if /a1 rxo iangle1 cos mul def /b1 rxo iangle1 sin mul def /a0x1 a1 b1 0.5 mul add def /b0x1 b1 0.5 mul def /a2 rxo iangle2 cos mul def /b2 rxo iangle2 sin mul def /a0x2 a2 b2 0.5 mul add def /b0x2 b2 0.5 mul def /ant /a0x a0x1 a0x2 a0x1 sub ant mul add def /b0x b0x1 b0x2 b0x1 sub ant mul add def inr 1 eq {%inr=1 %inr 0 ge inr 1 eq or {[50 50] 0 setdash} {[ ] 0 setdash} ifelse [50 50] 0 setdash %NEW inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor %0 0 moveto a0x b0x lineto stroke a0 c0 moveto a0x a0 sub fakt0 mul b0x c0 sub fakt0 mul rlineto stroke newpath a0x b0x moveto a0x b0x 100 0 360 arc fill 0 0 0 setrgbcolor [ ] 0 setdash a0x b0x 100 0 360 arc stroke } if %inr=1 } for %inr=0,2 210 60 390 {/iangle exch def %iangle=210,60,390 /a rxo iangle cos mul def /b rxo iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray %[ ] 0 setdash [50 50] 0 setdash iangle 210 eq {c d moveto} if c d lineto iangle 390 eq {stroke} if } for %iangle=210,60,390 30 60 330 {/iangle exch def %iangle=30,60,330 /a rxo iangle cos mul def /b rxo iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray %iangle 090 ge iangle 150 le and {[50 50] 0 setdash} {[ ] 0 setdash} ifelse [50 50] 0 setdash a0 b0 moveto c d lineto stroke %iangle 090 ge iangle 150 le and {[50 50] 0 setdash} {[ ] 0 setdash} ifelse [50 50] 0 setdash a0 c0 moveto c d lineto stroke iangle 030 eq {/r*x 1 def /g*x 0 def /b*x 0 def} if iangle 090 eq {/r*x 1 def /g*x 1 def /b*x 0 def} if iangle 150 eq {/r*x 0 def /g*x 1 def /b*x 0 def} if iangle 210 eq {/r*x 0 def /g*x 1 def /b*x 1 def} if iangle 270 eq {/r*x 0 def /g*x 0 def /b*x 1 def} if iangle 330 eq {/r*x 1 def /g*x 0 def /b*x 1 def} if r*x g*x b*x setrgbcolor c d 100 0 360 arc fill } for %iangle=30,60,330 %************************************ENDo %************************************BEGA /rxo rx 1.70 mul def /iangle 170 def /a rxo iangle cos mul def /b rxo iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 30 60 210 {/iangle exch def %iangle=30,60,210 /a rxo iangle cos mul def /b rxo iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray [50 50] 0 setdash iangle 030 eq {c d moveto} if c d lineto iangle 210 eq {stroke} if } for %iangle=30,60,210 /antx [0.75 0.20 0.50] def 20 setlinewidth 0 1 2 {/inr exch def /ant antx inr get def inr 0 eq {/iangle1 330 def /iangle2 030 def} if inr 1 eq {/iangle1 150 def /iangle2 210 def} if inr 2 eq {/iangle1 210 def /iangle2 270 def} if /a1 rxo iangle1 cos mul def /b1 rxo iangle1 sin mul def /a0x1 a1 b1 0.5 mul add def /b0x1 b1 0.5 mul def /a2 rxo iangle2 cos mul def /b2 rxo iangle2 sin mul def /a0x2 a2 b2 0.5 mul add def /b0x2 b2 0.5 mul def /ant /a0x a0x1 a0x2 a0x1 sub ant mul add def /b0x b0x1 b0x2 b0x1 sub ant mul add def inr 1 eq {%inr=1 %inr 0 ge inr 1 eq or {[50 50] 0 setdash} {[ ] 0 setdash} ifelse [50 50] 0 setdash %NEW inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor %0 0 moveto a0x b0x lineto stroke a0 c0 moveto a0x a0 sub fakt0 mul b0x c0 sub fakt0 mul rlineto stroke newpath a0x b0x moveto a0x b0x 100 0 360 arc fill 0 0 0 setrgbcolor [ ] 0 setdash a0x b0x 100 0 360 arc stroke } if %inr=1 } for %inr=0,2 210 60 390 {/iangle exch def %iangle=210,60,390 /a rxo iangle cos mul def /b rxo iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray [ ] 0 setdash iangle 210 eq {c d moveto} if c d lineto iangle 390 eq {stroke} if } for %iangle=210,60,390 30 60 330 {/iangle exch def %iangle=30,60,330 /a rxo iangle cos mul def /b rxo iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray iangle 090 ge iangle 150 le and {[50 50] 0 setdash} {[ ] 0 setdash} ifelse a0 b0 moveto c d lineto stroke iangle 090 ge iangle 150 le and {[50 50] 0 setdash} {[ ] 0 setdash} ifelse a0 c0 moveto c d lineto stroke iangle 030 eq {/r*x 1 def /g*x 0 def /b*x 0 def} if iangle 090 eq {/r*x 1 def /g*x 1 def /b*x 0 def} if iangle 150 eq {/r*x 0 def /g*x 1 def /b*x 0 def} if iangle 210 eq {/r*x 0 def /g*x 1 def /b*x 1 def} if iangle 270 eq {/r*x 0 def /g*x 0 def /b*x 1 def} if iangle 330 eq {/r*x 1 def /g*x 0 def /b*x 1 def} if r*x g*x b*x setrgbcolor c d 100 0 360 arc fill } for %iangle=30,60,330 %************************************ENDA 1 1 1 setrgbcolor %W a0 b0 100 0 360 arc fill 0 0 0 setrgbcolor %N a0 b0 100 0 360 arc stroke 0 0 0 setrgbcolor %N a0 c0 100 0 360 arc fill %plot line of actual hue 50 setlinewidth xcharts 0 eq {/r*x 1 def /g*x 0 def /b*x 0 def} if xcharts 1 eq {/r*x 1 def /g*x 1 def /b*x 0 def} if xcharts 2 eq {/r*x 0 def /g*x 1 def /b*x 0 def} if xcharts 3 eq {/r*x 0 def /g*x 1 def /b*x 1 def} if xcharts 4 eq {/r*x 0 def /g*x 0 def /b*x 1 def} if xcharts 5 eq {/r*x 1 def /g*x 0 def /b*x 1 def} if xcharts 5 le {%xcharts<=5 r*x g*x b*x setrgbcolor 0 0 moveto /A*Ma LAB*a xcharts 3 mul 1 add get def /B*Ma LAB*a xcharts 3 mul 2 add get def A*Ma 10 mul B*Ma 10 mul lineto stroke } if %xcharts<=5 %************************************BEGs /antx [0.75 0.20 0.50] def 20 setlinewidth 0 1 2 {/inr exch def /ant antx inr get def inr 0 eq {/iangle1 330 def /iangle2 030 def} if inr 1 eq {/iangle1 150 def /iangle2 210 def} if inr 2 eq {/iangle1 210 def /iangle2 270 def} if /a1 rx iangle1 cos mul def /b1 rx iangle1 sin mul def /a0x1 a1 b1 0.5 mul add def /b0x1 b1 0.5 mul def /a2 rx iangle2 cos mul def /b2 rx iangle2 sin mul def /a0x2 a2 b2 0.5 mul add def /b0x2 b2 0.5 mul def /ant /a0x a0x1 a0x2 a0x1 sub ant mul add def /b0x b0x1 b0x2 b0x1 sub ant mul add def inr 0 eq inr 2 eq or {%inr=0,2 inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor %0 0 moveto a0x b0x lineto stroke a0 c0 moveto a0x a0 sub fakt0 mul inr 2 eq {1.1 mul} if b0x c0 sub fakt0 mul inr 2 eq {1.1 mul} if rlineto stroke newpath a0x b0x moveto a0x b0x 100 0 360 arc fill } if %inr=0,2 inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor inr 0 eq {a0 a0x a0 sub fakt0 mul add 100 sub c0 b0x c0 sub fakt0 mul add 300 add moveto (r*) show TK -150 -100 rmoveto (s) show 150 100 rmoveto TIM } if inr 1 eq {a0 a0x a0 sub fakt0 mul add 100 sub c0 b0x c0 sub fakt0 mul add 200 add moveto (g*) show TK -150 -100 rmoveto (s) show 150 100 rmoveto TIM } if inr 2 eq {a0 a0x a0 sub fakt0 mul add 550 sub c0 b0x c0 sub fakt0 mul add 400 add moveto (b*) show TK -150 -100 rmoveto (s) show 150 100 rmoveto TIM } if 0 0 0 setrgbcolor newpath [ ] 0 setdash a0x b0x 100 0 360 arc stroke newpath } for %inr=0,2 %************************************ENDs %****************************************BEGo /rxo rx 1.35 mul def /antx [0.75 0.20 0.50] def 20 setlinewidth 0 1 2 {/inr exch def /ant antx inr get def inr 0 eq {/iangle1 330 def /iangle2 030 def} if inr 1 eq {/iangle1 150 def /iangle2 210 def} if inr 2 eq {/iangle1 210 def /iangle2 270 def} if /a1 rxo iangle1 cos mul def /b1 rxo iangle1 sin mul def /a0x1 a1 b1 0.5 mul add def /b0x1 b1 0.5 mul def /a2 rxo iangle2 cos mul def /b2 rxo iangle2 sin mul def /a0x2 a2 b2 0.5 mul add def /b0x2 b2 0.5 mul def /ant /a0x a0x1 a0x2 a0x1 sub ant mul add def /b0x b0x1 b0x2 b0x1 sub ant mul add def inr 0 eq inr 2 eq or {%inr=0,2 inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor %0 0 moveto a0x b0x lineto stroke a0 c0 moveto a0x a0 sub fakt0 mul inr 2 eq {1.1 mul} if b0x c0 sub fakt0 mul inr 2 eq {1.1 mul} if rlineto stroke newpath a0x b0x moveto a0x b0x 100 0 360 arc fill } if %inr=0,2 inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor inr 0 eq {a0 a0x a0 sub fakt0 mul add 100 sub c0 b0x c0 sub fakt0 mul add 100 add moveto (r*) show TK -150 -100 rmoveto (o) show 150 100 rmoveto TIM } if inr 1 eq {a0 a0x a0 sub fakt0 mul add 100 sub c0 b0x c0 sub fakt0 mul add 100 add moveto (g*) show TK -150 -100 rmoveto (o) show 150 100 rmoveto TIM } if inr 2 eq {a0 a0x a0 sub fakt0 mul add 300 sub c0 b0x c0 sub fakt0 mul add 250 add moveto (b*) show TK -150 -100 rmoveto (o) show 150 100 rmoveto TIM } if 0 0 0 setrgbcolor newpath [ ] 0 setdash a0x b0x 100 0 360 arc stroke newpath } for %inr=0,2 %***************************************************ENDo %****************************************BEGA /rxo rx 1.7 mul def /antx [0.75 0.20 0.50] def 20 setlinewidth 0 1 2 {/inr exch def /ant antx inr get def inr 0 eq {/iangle1 330 def /iangle2 030 def} if inr 1 eq {/iangle1 150 def /iangle2 210 def} if inr 2 eq {/iangle1 210 def /iangle2 270 def} if /a1 rxo iangle1 cos mul def /b1 rxo iangle1 sin mul def /a0x1 a1 b1 0.5 mul add def /b0x1 b1 0.5 mul def /a2 rxo iangle2 cos mul def /b2 rxo iangle2 sin mul def /a0x2 a2 b2 0.5 mul add def /b0x2 b2 0.5 mul def /ant /a0x a0x1 a0x2 a0x1 sub ant mul add def /b0x b0x1 b0x2 b0x1 sub ant mul add def inr 0 eq inr 2 eq or {%inr=0,2 inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor %0 0 moveto a0x b0x lineto stroke a0 c0 moveto a0x a0 sub fakt0 mul inr 2 eq {1.1 mul} if b0x c0 sub fakt0 mul inr 2 eq {1.1 mul} if rlineto stroke newpath a0x b0x moveto a0x b0x 100 0 360 arc fill } if %inr=0,2 inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor inr 0 eq {a0 a0x a0 sub fakt0 mul add 100 sub c0 b0x c0 sub fakt0 mul add 100 add moveto (r*) show TK -150 -100 rmoveto (A) show 150 100 rmoveto TIM } if inr 1 eq {a0 a0x a0 sub fakt0 mul add 100 sub c0 b0x c0 sub fakt0 mul add 100 add moveto (g*) show TK -150 -100 rmoveto (A) show 150 100 rmoveto TIM } if inr 2 eq {a0 a0x a0 sub fakt0 mul add 300 sub c0 b0x c0 sub fakt0 mul add 250 add moveto (b*) show TK -150 -100 rmoveto (A) show 150 100 rmoveto TIM } if 0 0 0 setrgbcolor newpath [ ] 0 setdash a0x b0x 100 0 360 arc stroke newpath } for %inr=0,2 %***************************************************ENDA /iangle 30 def %Optimal colours /rxo rx 1.35 mul def /a rxo iangle cos mul def /b rxo iangle sin mul def /co a b 0.5 mul add def /do b 0.5 mul def 50 setlinewidth 1 0 0 setrgbcolor a0 c0 moveto %N a0 co add 0.55 mul c0 do add 0.5 mul lineto co do lineto %R co a0 add 0.6 mul do b0 add 0.5 mul lineto a0 b0 lineto stroke %W 1 1 1 setrgbcolor %W a0 b0 100 0 360 arc fill 0 0 0 setrgbcolor %N a0 b0 100 0 360 arc stroke 0 0 0 setrgbcolor %N a0 c0 100 0 360 arc fill -1200 -1300 translate grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 020 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 27 %line 489 %!PS-Adobe-3.0 EPSF-3.0 ME171-7N %%BoundingBox: 70 83 415 206 %%old BoundingBox: 70 82 415 206 %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: http://130.149.60.45/~farbmetrik/ME17/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.richter@mac.com) /CreationDate (D:2010060112000) /ModDate (D:2010060112000) /DOCINFO pdfmark17 [ /View [ /FitB ] /DOCVIEW pdfmark17 %END PDFDE011 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /TK {250 /Times-ISOL1 FS} bind def %%EndProlog gsave /lanind 0 def /lantex [(G) (E) (S) (N) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES where {pop}%/IMES IMES def {/IMES 0 def} ifelse /xchartg where {pop /xchartx xchartg def} {/xchartx 0 def} ifelse /colormg where {pop /colorm colormg def} {/colorm 0 def} ifelse /cvishow {cvi 6 string cvs show ( ) show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show ( ) show} def /cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show ( ) show} def /cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show ( ) show} def /cvsshow4 {10000 mul cvi 0.0001 mul 7 string cvs show ( ) show} def %D65XYZ.PS /SE00 80 array def %380 bis 775 mit deltalambda=05 /SD65 80 array def %380 bis 775 mit deltalambda=05 /SD50 80 array def %380 bis 775 mit deltalambda=05 /SDAK 80 array def %380 bis 775 mit deltalambda=05 /RA 80 array def %380 bis 770 nm /F2 240 array def %3 x 80 Daten fuer Bereich 380 bis 770nm /F2N 240 array def %normiert auf Y=100 fuer D65 und 10nm %C %C LITERATURQUELLEN LICHTARTEN %C SA,SC,SD65, CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 1.1.1, SEITE 81 %C SD55,SD75, CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 1.1.4, SEITE 85 %C LINEAR INTERPOLIERT VON 5 ZU 5NM %C SG,SP,SXE, DIN 5033, BLATT 7 ,SEITE 8-9 %C AUSGABE 1966 /SE00 %80 data 5 nm [100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0] def %0.0 not used /SD65 %80 data 5 nm [50.0 52.3 54.6 68.7 82.8 87.1 91.5 92.5 93.4 90.1 86.7 95.8 104.9 110.9 117.0 117.4 117.8 116.3 114.9 115.4 115.9 112.4 108.8 109.1 109.4 108.6 107.8 106.3 104.8 106.2 107.7 106.0 104.4 104.2 104.0 102.0 100.0 98.2 96.3 96.1 95.8 92.2 88.7 89.3 90.0 89.8 89.6 88.6 87.7 85.5 83.3 83.5 83.7 81.9 80.0 80.1 80.2 81.2 82.3 80.3 78.3 74.0 69.7 70.7 71.6 73.0 74.3 68.0 61.6 65.7 69.9 72.5 75.1 69.3 63.6 55.0 46.4 56.6 66.8 65.1] def /SD50 %80 data 5 nm CIE 15.3, Seite 30 [24.5 27.2 29.9 39.6 49.3 52.9 56.5 58.3 60.0 58.9 57.8 66.3 74.8 81.0 87.2 88.9 90.6 91.0 91.4 93.2 95.1 93.5 92.0 93.8 95.7 96.2 96.6 96.8 97.1 99.6 102.1 101.4 100.8 101.5 102.3 101.2 100.0 98.9 97.7 98.3 98.9 96.2 93.5 95.6 97.7 98.5 99.3 99.2 99.0 97.4 95.7 97.3 98.9 97.3 95.7 96.9 98.2 100.6 103.0 101.1 99.1 93.3 87.4 89.5 91.6 92.2 92.9 84.9 76.9 81.7 86.5 89.5 92.6 85.4 78.2 68.0 57.7 70.3 82.9 0.0] def %0.0 not used /SA00 %80 data 5 nm CIE 15.3 Seite 30 [9.80 10.90 12.09 13.35 14.71 16.15 17.68 19.29 20.99 22.79 24.67 26.64 28.70 30.85 33.09 35.41 37.81 40.30 42.87 45.52 48.24 51.04 53.91 56.85 59.86 62.93 66.06 69.25 72.50 75.79 79.13 82.52 85.95 89.41 92.91 96.44 100.00 103.58 107.18 110.80 114.44 118.08 121.73 125.39 129.04 132.70 136.35 139.99 143.62 147.24 150.84 154.42 157.98 161.52 165.03 168.51 171.96 175.38 178.77 182.12 185.43 188.70 191.93 195.12 198.26 201.36 204.41 207.41 210.36 213.27 216.12 218.92 221.67 224.36 227.00 229.59 232.12 234.59 237.01 239.37 0.0] def %0.0 not used %C LITERATURQUELLEN SPEKTRALWERTE %C F2 CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 2.1, SEITE 93-102 /F2 %3x80 data [.001368 .002236 .004243 .007650 .01431 .02319 .04351 .07763 .1344 .2148 .2839 .3285 .3483 .3481 .3362 .3187 .2908 .2511 .1954 .1421 .09564 .05795 .03201 .01470 .0049 .0024 .0093 .0291 .06327 .1096 .1655 .2257 .2904 .3597 .4334 .5121 .5945 .6784 .7621 .8425 .9163 .9786 1.0263 1.0567 1.0622 1.0456 1.0026 .9384 .8544 .7514 .6424 .5419 .4479 .3608 .2835 .2187 .1649 .1212 .0874 .0636 .04677 .03290 .02270 .01584 .01136 .00811 .00579 .004109 .002899 .002049 .001440 .0009999 .0006901 .000476 .0003323 .0002348 .0001662 .0001174 .00008308 .00005871 .000039 .000064 .00012 .000217 .000396 .00064 .00121 .00218 .004 .0073 .0116 .01684 .023 .0298 .0380 .048 .06 .0739 .09098 .1126 .139 .1693 .208 .2586 .323 .4073 .503 .6082 .71 .7932 .862 .9149 .954 .9803 .995 1.0 .995 .9786 .952 .9154 .870 .8163 .757 .6949 .631 .5668 .503 .4412 .381 .321 .265 .217 .175 .1382 .107 .0816 .061 .04458 .032 .0232 .017 .01192 .00821 .005723 .004102 .002929 .002091 .001484 .001047 .00074 .00052 .0003611 .0002492 .0001719 .00012 .0000848 .00006 .0000424 .00003 .0000212 .00645 .01055 .02005 .03621 .06785 .1102 .2074 .3713 .6456 1.0391 1.3856 1.623 1.7471 1.7826 1.7721 1.7441 1.6692 1.5281 1.2876 1.0419 .8130 .6162 .4652 .3533 .2720 .2123 .1582 .1117 .07825 .05725 .04216 .02984 .0203 .0134 .00875 .00575 .0039 .00275 .0021 .0018 .00165 .0014 .0011 .0010 .0008 .0006 .00034 .00024 .00019 .0001 .00005 .00003 .00002 .00001 % 26*0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %10 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %20 0.0 0.0 0.0 0.0 0.0 0.0 %26 ] def /DAKTE [(E00) (D65) (D50) (A00)] def /RGB0*tx 11 array def /RGB0*tx [(%O=JR 00 575_770) (%Y=J=JG+JR 01 515_770) (%L=JG 02 515_575) (%Gs 03 0,35*JG+0,65*BG) %=0,35*515_575+0,65*475_515) (%Cs=BG 04 475_515) (%V=B=BR+BG 05 380_515) (%Ms=BR 06 380_475) (%Rs 07 0,14*BR+0,86*JR) %=0,14*380_475+0,86*575_770 (%O=JR 08 575_770) (%N0(r=0,001) 09 380_770) (%W1(r=1,000) 10 380_770) ] def /RX0 880 array def %11x80 /RX0 [ %(%O=JR 00 575_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0000 0000 0000 0000 0000 0000 0000 0000 0000 0500 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %(%Y=J=GJ+JR 01 515_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0000 0000 0000 0000 0000 0000 0000 0500 1000 1000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %(%L=JG 02 515_575) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0000 0000 0000 0000 0000 0000 0000 0500 1000 1000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 1000 1000 1000 1000 1000 1000 1000 1000 1000 0500 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %(%Gs 03 0,35*JG+0,65*BG) %=0,35*515_575+0,65*475_515 %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0000 0000 0000 0000 0000 0000 0000 0000 0000 0325 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0650 0650 0650 0650 0650 0650 0650 0500 0350 0350 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0350 0350 0350 0350 0350 0350 0350 0350 0350 0175 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %(%Cs=BG 04 475_515) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0000 0000 0000 0000 0000 0000 0000 0000 0000 0500 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 1000 1000 1000 1000 1000 1000 1000 0500 0000 0000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %(%V=B=BR+BG 05 380_515) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 1000 1000 1000 1000 1000 1000 1000 0500 0000 0000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %(%Ms=BR 06 380_475) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 1000 1000 1000 1000 1000 1000 1000 1000 1000 0500 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %(%Rs 07 0,14*BR+0,86*JR) %=0,14*380_475+0,86*575_770 %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0140 0140 0140 0140 0140 0140 0140 0140 0140 0140 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0140 0140 0140 0140 0140 0140 0140 0140 0140 0070 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0000 0000 0000 0000 0000 0000 0000 0000 0000 0430 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0860 0860 0860 0860 0860 0860 0860 0860 0860 0860 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0860 0860 0860 0860 0860 0860 0860 0860 0860 0860 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0860 0860 0860 0860 0860 0860 0860 0860 0860 0860 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0860 0860 0860 0860 0860 0860 0860 0860 0860 0860 %(%O=JR 08 575_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0000 0000 0000 0000 0000 0000 0000 0000 0000 0500 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %(%N0(r=0,001) 09 380_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %(%W1(r=1,000) 10 380_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 ] def /RGB1*tx 11 array def /RGB1*tx [(%O=JR 00 575_770) (%Y=J=JG+JR 01 515_770) (%L=JG 02 515_575) (%G 03 0,70*L+0,30*C) %=0,70*515_575+0,30*380_575) (%C=L+V 04 380_575) (%V=B=BR+BG 05 380_515) (%M=V+O 06 380_515+575_770) (%R 07 0,18*M+0,82*O) %=0,18*(380_475+575_770)+0,82*575_770 (%O=JR 08 575_770) (%N0(r=0,001) 09 380_770) (%W1(r=1,000) 10 380_770) ] def /RX1 880 array def %11x80 /RX1 [ %(%O=JR 00 575_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0000 0000 0000 0000 0000 0000 0000 0000 0000 0500 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %(%Y=J=GJ+JR 01 515_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0000 0000 0000 0000 0000 0000 0000 0500 1000 1000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %(%L=JG 02 515_575) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0000 0000 0000 0000 0000 0000 0000 0500 1000 1000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 1000 1000 1000 1000 1000 1000 1000 1000 1000 0500 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %(%G 03 0,70*L+0,30*C) %=0,70*515_575+0,30*380_575, 100% of 515..575 %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0300 0300 0300 0300 0300 0300 0300 0300 0300 0300 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0300 0300 0300 0300 0300 0300 0300 0300 0300 0300 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0300 0300 0300 0300 0300 0300 0300 0650 1000 1000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 1000 1000 1000 1000 1000 1000 1000 1000 1000 0500 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %(%C=L+V 04 380_575) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 1000 1000 1000 1000 1000 1000 1000 1000 1000 0500 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %(%V=B=BR+BG 05 380_515) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 1000 1000 1000 1000 1000 1000 1000 0500 0000 0000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %(%M=V+O 06 380_515+575_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 1000 1000 1000 1000 1000 1000 1000 0500 0000 0000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0000 0000 0000 0000 0000 0000 0000 0000 0000 0500 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %(%R 07 0,18*M+0,82*O) %=0,18*(380_515+575_770)+0,82*575_770 %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0180 0180 0180 0180 0180 0180 0180 0180 0180 0180 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0180 0180 0180 0180 0180 0180 0180 0180 0180 0180 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0180 0180 0180 0180 0180 0180 0180 0090 0000 0000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0000 0000 0000 0000 0000 0000 0000 0000 0000 0500 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %(%O=JR 08 575_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0000 0000 0000 0000 0000 0000 0000 0000 0000 0500 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %(%N0(r=0,001) 09 380_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 %(%W1(r=1,000) 10 380_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 ] def /X_k 11 array def /Y_k 11 array def /Z_k 11 array def /ak_k 11 array def /bk_k 11 array def /ck_k 11 array def /A_k 11 array def /B_k 11 array def /C_k 11 array def /LAB*Lk 11 array def /LAB*ak 11 array def /LAB*bk 11 array def /LAB*Ck 11 array def /as_k 11 array def /bs_k 11 array def /cs_k 11 array def gsave 72 90 translate 0.010 MM dup scale gsave /xchartx 1 def /xchartk xchartx def %00 1 1 {/xchartk exch def 20 setlinewidth /ymax 3320 def /ydel 203 def 200 /Times-ISOL1 FS 0 setgray 200 -200 moveto (ME171-7N) show %(, Page ) showen (, Seite ) showde xchartk 1 add cvishow (/1, ) show %FileData show (, ) show DAKTE DAK get show Param show %xchartl 5 le {(, not adapted)}{(, adapted)} ifelse show 20 setlinewidth 1 1 1 setrgbcolor 0 0 moveto 12000 0 rlineto 0 4000 rlineto 12000 neg 0 rlineto closepath fill 0 0 0 setrgbcolor 0 0 moveto 12000 0 rlineto 0 4000 rlineto 12000 neg 0 rlineto closepath stroke /DAKx 3 def 3 1 3 {/DAK exch def %DAK=0,3 %4 illuminants 0 1 79 {/i exch def %i=0,79 SDAK i DAK 0 eq {SE00 i get} if DAK 1 eq {SD65 i get} if DAK 2 eq {SD50 i get} if DAK 3 eq {SA00 i get} if put } for %i=0,79 /YKSUM 0 def 0 1 79 {/i exch def %i=0,1,79 /YKSUM YKSUM SDAK i get F2 80 i add get mul add def } for %i=0,1,79 0 1 79 {/i exch def %i=0,1,79 F2N 00 i add SDAK i get F2 00 i add get mul YKSUM div 100 mul put F2N 80 i add SDAK i get F2 80 i add get mul YKSUM div 100 mul put F2N 160 i add SDAK i get F2 160 i add get mul YKSUM div 100 mul put } for %i=0,1,79 %Xw,Yw,Zw for white /Xw 0 def /Yw 0 def /Zw 0 def 0 1 079 {/i exch def %i=0,79 /Xw Xw F2N 00 i add get add def /Yw Yw F2N 80 i add get add def /Zw Zw F2N 160 i add get add def } for %i=0,79 /XDAKW Xw def %for E, D65, D50, A /YDAKW Yw def /ZDAKW Zw def 0 1 10 {/k exch def %k=0,8 %11 Reflections /kx k 80 mul def 0 1 79 {/i exch def %i=0,79 RA i xchartk 0 eq {RX0} if xchartk 1 eq {RX1} if xchartk 2 eq {RX2} if xchartk 3 eq {RX3} if xchartk 4 eq {RX4} if xchartk 5 eq {RX5} if xchartk 6 eq {RX6} if xchartk 7 eq {RX7} if xchartk 8 eq {RX8} if xchartk 9 eq {RX9} if xchartk 10 eq {RX10} if xchartk 11 eq {RX11} if kx i add get 1000 div put } for %i=0,79 /X 0 def /Y 0 def /Z 0 def 0 1 079 {/i exch def %i=0,79 /X X F2N 00 i add get RA i get mul add def /Y Y F2N 80 i add get RA i get mul add def /Z Z F2N 160 i add get RA i get mul add def } for %i=0,79 /XQ X XDAKW div def /YQ Y YDAKW div def /ZQ Z ZDAKW div def XQ 0 le {/XQ 0.0001 def} if YQ 0 le {/YQ 0.0001 def} if ZQ 0 le {/ZQ 0.0001 def} if /LAB*L YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse def /LAB*a XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul def /LAB*b YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul def X_k k X put Y_k k Y put Z_k k Z put LAB*Lk k LAB*L put LAB*ak k LAB*a put LAB*bk k LAB*b put } for %k=0,10 0 setgray /xdel 880 def /FileData(OYLCVM_ONW_) def 300 /TimesB-ISOL1 FS /ymaxt ymax 375 add def 20 ymaxt moveto (Optimal colours for CIE ) showen (Optimalfarben f\374r CIE ) showde DAK 0 eq {(Illuminant E) showen (Lichtart E) showde} if DAK 1 eq {(Standard Illuminant D65) showen (Norm\255Lichtart D65) showde} if DAK 2 eq {(Illuminant D50) showen (Lichtart D50) showde} if DAK 3 eq {(Standard Illuminant A) showen (Norm\255Lichtart A) showde} if 300 /TimesBI-ISOL1 FS /ymaxt ymax 000 add def 120 xdel 0 mul add ymaxt moveto (X) show 120 xdel 1 mul add ymaxt moveto (Y) show 120 xdel 2 mul add ymaxt moveto (Z) show 120 xdel 3 mul add ymaxt moveto (x) show 120 xdel 4.1 mul add ymaxt moveto (y) show 120 xdel 5.2 mul add ymaxt moveto (A) show 120 xdel 6.2 mul add ymaxt moveto (B) show 120 xdel 7.2 mul add ymaxt moveto (C) show 0 -100 rmoveto 250 /TimesB-ISOL1 FS (r) show 300 /TimesBI-ISOL1 FS 0 100 rmoveto 120 xdel 8.1 mul add ymaxt moveto FileData show xchartk cvishow 260 /CourierB-ISOL1 FS /a10n0 X_k 10 get Y_k 10 get div def /b10n0 Z_k 10 get Y_k 10 get div def /a10n a10n0 def /b10n b10n0 0.4 mul neg def /as10n0 1 X_k 10 get div 0.333333 exp def /as10n0 1 Z_k 10 get div 0.333333 exp def /as10n as10n0 def /bs10n as10n0 0.4 mul neg def /DAK0 DAKx DAK sub def 0 1 10 {/k exch def %k=0,10 /ymaxd 3600 DAK0 mul k 1 add 290 mul add def 20 xdel 0 mul add ymax ymaxd sub moveto X_k k get cvsshow1 20 xdel 1 mul add ymax ymaxd sub moveto Y_k k get cvsshow1 20 xdel 2 mul add ymax ymaxd sub moveto Z_k k get cvsshow1 /SUMk X_k k get Y_k k get add Z_k k get add 0.001 add def 20 xdel 3 mul add ymax ymaxd sub moveto X_k k get SUMk div cvsshow3 20 xdel 4.1 mul add ymax ymaxd sub moveto Y_k k get SUMk div cvsshow3 20 xdel 5.2 mul add ymax ymaxd sub moveto A_k k X_k k get Y_k k get div a10n0 sub Y_k k get mul put A_k k get cvsshow1 20 xdel 6.2 mul add ymax ymaxd sub moveto B_k k Z_k k get Y_k k get div b10n0 sub 0.4 mul neg Y_k k get mul put B_k k get cvsshow1 20 xdel 7.2 mul add ymax ymaxd sub moveto C_k k A_k k get dup mul B_k k get dup mul add sqrt put C_k k get cvsshow1 20 xdel 8.1 mul add ymax ymaxd sub moveto xchartk 0 eq {k 08 le {RGB0*tx k get show} if k 09 eq {(%N0\050) show 260 /Symbol FS (b) show 260 /CourierB-ISOL1 FS (=0,001\051 09 380_770) show} if k 10 eq {(%W1\050) show 260 /Symbol FS (b) show 260 /CourierB-ISOL1 FS (=1,000\051 10 380_770) show} if } if xchartk 1 eq {k 08 le {RGB1*tx k get show} if k 09 eq {(%N0\050) show 260 /Symbol FS (b) show 260 /CourierB-ISOL1 FS (=0,001\051 09 380_770) show} if k 10 eq {(%W1\050) show 260 /Symbol FS (b) show 260 /CourierB-ISOL1 FS (=1,000\051 10 380_770) show} if } if } for %k=0,10 } for %DAK=0,4 showpage grestore gsave %} for %xchartk=0,1 %%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 ME171-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 (ME171-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 ME17 20101101 %%BoundingBox: 0 0 598 845 %%EndProlog gsave /lanind 1 def /lantex [(G) (E) (S) (N) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 0 def /lanind2 0 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES where {pop %/IMES IMES def } {/IMES 0 def} ifelse /i*ptrsc where {pop %/i*ptrsc i*ptrsc def } {/i*ptrsc 0 def} ifelse gsave /xchartg where {pop /xchart xchartg def} {/xchart 0 def} ifelse /scountg where {pop /scount scountg def} {/scount 1 def} ifelse xchart 0 eq {%beg if xchart=0 0 setgray 0.15 MM setlinewidth /x 20 array def /y 20 array def /d 20 array def /x [000 296 296 000 002 294 294 002 005 291 291 005 %speziell 006 290 290 006 008 288 288 008 ] def /y [000 000 210 210 002 002 208 208 005 005 205 205 %speziell 006 006 204 204 008 008 202 202 ] def /d [060 017 -60 -17 058 015 -58 -15 056 013 -56 -13 054 011 -54 -11 052 009 -52 -09 ] def /xlu 017 MM def /ylu 017 MM def /xro 279 MM def /yro 193 MM def /xlo 017 MM def /ylo 193 MM def /xru 279 MM def /yru 017 MM def xlu 8 MM sub ylu moveto 16 MM 0 rlineto stroke xlu ylu 8 MM sub moveto 0 16 MM rlineto stroke xro 8 MM add yro moveto -16 MM 0 rlineto stroke xro yro 8 MM add moveto 0 -16 MM rlineto stroke xru 8 MM sub yru moveto 16 MM 0 rlineto stroke xru yru 8 MM sub moveto 0 16 MM rlineto stroke xlo 8 MM add ylo moveto -16 MM 0 rlineto stroke xlo ylo 8 MM add moveto 0 -16 MM rlineto stroke 1 2 7 {/i exch def %Zentrierkreise xlu ylu i MM 0 360 arc stroke xro yro i MM 0 360 arc stroke xru yru i MM 0 360 arc stroke xlo ylo i MM 0 360 arc stroke } for %i 12 4 16 {/i exch def /i0 i def %i=0,16 %0 4 16 {/i exch def /i0 i def %i=0,16 /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse 0 setgray x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto x i0 get MM y i0 get MM lineto stroke i 16 eq {6 /Times-ISOL1 FS /x00 67 def /xdif 32 def /y0o 202.3 def /y0u 6.3 def /x0l 6.1 def /x0r 288 def /y00 22 def /ydif 32 def x00 xdif 0 mul add MM y0o MM moveto (V) show x00 xdif 0 mul add MM y0u MM moveto (C) show x00 xdif 1 mul add MM y0o MM moveto (L) show x00 xdif 1 mul add MM y0u MM moveto (M) show x00 xdif 2 mul add MM y0o MM moveto (O) show x00 xdif 2 mul add MM y0u MM moveto (Y) show x00 xdif 3 mul add MM y0o MM moveto (Y) show x00 xdif 3 mul add MM y0u MM moveto (O) show x00 xdif 4 mul add MM y0o MM moveto (M) show x00 xdif 4 mul add MM y0u MM moveto (L) show x00 xdif 5 mul add MM y0o MM moveto (C) show x00 xdif 5 mul add MM y0u MM moveto (V) show x0l MM y00 ydif 0 mul add MM moveto (V) show x0r MM y00 ydif 0 mul add MM moveto (C) show x0l MM y00 ydif 1 mul add MM moveto (L) show x0r MM y00 ydif 1 mul add MM moveto (M) show x0l MM y00 ydif 2 mul add MM moveto (O) show x0r MM y00 ydif 2 mul add MM moveto (Y) show x0l MM y00 ydif 3 mul add MM moveto (Y) show x0r MM y00 ydif 3 mul add MM moveto (O) show x0l MM y00 ydif 4 mul add MM moveto (M) show x0r MM y00 ydif 4 mul add MM moveto (L) show x0l MM y00 ydif 5 mul add MM moveto (C) show x0r MM y00 ydif 5 mul add MM moveto (V) show } if } for %i=0,16 0 1 10 {/j0 exch def /j1 j0 1 add def %j0 j0 0 eq {tzccmy0* setcmykcolor} if j0 1 eq {0 setgray} if j0 2 eq {tzmcmy0* setcmykcolor} if j0 3 eq {0 setgray} if j0 4 eq {tzycmy0* setcmykcolor} if j0 5 eq {0 setgray} if j0 6 eq {tzocmy0* setcmykcolor} if j0 7 eq {0 setgray} if j0 8 eq {tzlcmy0* setcmykcolor} if j0 9 eq {0 setgray} if j0 10 eq {tzvcmy0* setcmykcolor} if 12 4 16 {/i exch def /i0 i def %i=0,16 %0 4 16 {/i exch def /i0 i def %i=0,16 /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse x i0 get d i0 get add 16 j0 mul add MM y i0 get MM moveto x i0 get d i0 get add 16 j1 mul add MM y i0 get MM lineto stroke x i1 get MM y i1 get d i1 get add 16 j0 mul add MM moveto x i1 get MM y i1 get d i1 get add 16 j1 mul add MM lineto stroke x i2 get d i2 get add 16 j0 mul sub MM y i2 get MM moveto x i2 get d i2 get add 16 j1 mul sub MM y i2 get MM lineto stroke x i3 get MM y i3 get d i3 get add 16 j0 mul sub MM moveto x i3 get MM y i3 get d i3 get add 16 j1 mul sub MM lineto stroke } for %i=0,16 } for %j0 0.15 MM setlinewidth /s 7 MM def /s1 8 MM def /s5 36 MM def 16 1 20 {/j exch def /j0 j 16 sub def %j=16,20 /ix0 xlu 8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def 0 1 3 {/ij exch def %ij=0,3 ij 0 eq {/ix0 xlu 8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def} if ij 1 eq {/ix0 xru 43 MM sub j0 7 MM mul add def /iy0 yru 8 MM sub def} if ij 2 eq {/ix0 xlo 8 MM add j0 7 MM mul add def /iy0 ylo 1 MM add def} if ij 3 eq {/ix0 xro 43 MM sub j0 7 MM mul add def /iy0 yro 1 MM add def} if i*ptrsc 0 eq i*ptrsc 2 eq or {%i*ptrsc=0,2 cmy0* setcmykcolor j 16 eq {tzan j get dup dup 0 setcmykcolor ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if tzan j get dup dup 0 setcmykcolor ix0 iy0 s s rec fill } if %i*ptrsc=0,2 i*ptrsc 1 eq i*ptrsc 3 eq or {%i*ptrsc=1,3 www* setrgbcolor j 16 eq {1 tzan j get 1 sub dup dup setrgbcolor %N ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 1 tzan j get sub dup dup setrgbcolor %N ix0 iy0 s s rec fill } if %i*ptrsc=1,3 i*ptrsc 4 eq i*ptrsc 5 eq or {%i*ptrsc=4,5 [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace j 16 eq {tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add setcolor %N ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add setcolor %N ix0 iy0 s s rec fill } if %i*ptrsc=4,5 i*ptrsc 6 eq {%i*ptrsc=6 000n* setcmykcolor j 16 eq {0 0 0 tzan j get setcmykcolor ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 0 0 0 tzan j get setcmykcolor ix0 iy0 s s rec fill } if %i*ptrsc=6 i*ptrsc 7 eq {%i*ptrsc=7 w* setgray j 16 eq {1 tzan j get sub setgray ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 1 tzan j get sub setgray ix0 iy0 s s rec fill } if %i*ptrsc=7 } for %ij=0,3 } for %j=16,20 0 setgray 018 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show 018 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show 276 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show 276 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show 018 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show 018 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show 276 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show 276 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show 0 setgray 12 /Times-ISOL1 FS 61 MM 13 MM moveto (TUB\255Pr\374fvorlage ME17; Richter: Computergrafik und Farbmetrik) showde (TUB\255test chart ME17; Richter: Computer graphics, colorimetry) showen 12 /Times-ISOL1 FS 61 MM 09 MM moveto (Farbbuchserien: Farbsysteme und Farbmessung Nr. 3) showde (Colour book series: Colour systems and measurement no. 3) showen 175 MM 13 MM moveto (input: ) showen (Eingabe: ) showde 12 /TimesI-ISOL1 FS (cmyk setcmykcolor) show 12 /Times-ISOL1 FS 175 MM 9 MM moveto (output: ) showen (Ausgabe: ) showde LSC$ (N) eq {%LSC$=N 12 /Times-ISOL1 FS xchart 1 le {(no colour data change) showen (keine Farbdaten\344nderung) showde} {12 /TimesI-ISOL1 FS (->cmy0 setcmykcolor) show 12 /Times-ISOL1 FS} ifelse } if %LSC$=N %1 setgray %start white and unvisible LSC$ (S) eq { (Startup (S) data dependend) show } if LSC$ (F) eq { 12 /Times-Italic FS i*ptrsc 0 eq {(cmy0* / 000n* setcmykcolor) show} if i*ptrsc 1 eq {(olv* setrgbcolor / w* setgray) show} if i*ptrsc 2 eq {(cmy0* / nnn0* setcmykcolor) show} if i*ptrsc 3 eq {(olv* / www* setrgbcolor) show} if i*ptrsc 4 eq {(lab* setcolor) show} if i*ptrsc 5 eq {(LAB* setcolor) show} if i*ptrsc 6 eq {(000n* setcmykcolor) show} if i*ptrsc 7 eq {(w* setgray) show} if } if %0 setgray %end white and unvisible 12 /Times-ISOL1 FS 62 MM 198.5 MM moveto (http://130.149.60.45/~farbmetrik/ME17/ME17L) show (0) show LSC$ show LEX$ show %1 setgray %start white and unvisible (; ) show LSC$ (N) eq { (Start\255Ausgabe) showde (start output) showen (start output) showes (start output) showfr (start output) showit (start output) showjp (start output) showm } if LSC$ (C) eq { (Start\255Ausgabe) showde (start output) showen (start output) showes (start output) showfr (start output) showit (start output) showjp (start output) showm } if LSC$ (F) eq { (Linearisierte\255Ausgabe) showde (linearized output) showen (linearized output) showes (linearized output) showfr (linearized output) showit (linearized output) showjp (linearized output) showm } if 62 MM 194 MM moveto LSC$ (N) eq LSC$ (C) eq or { (N: Keine Ausgabe\255Linearisierung (OL) in Datei (F), Startup (S), Ger\344t (D)) showde (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showen (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showes (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showfr (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showit (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showjp (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showm } {LSC$ show (: ) show (Ausgabe\255Linearisierung (OL\255Daten) ) showde (Output Linearization (OL) data ) showen (Output Linearization (OL) data ) showes (Output Linearization (OL) data ) showfr (Output Linearization (OL) data ) showit (Output Linearization (OL) data ) showjp (Output Linearization (OL) data ) showm (ME17/ME17L) show LSS$ show LSX$ show (0) show LSC$ show LEY$ show } ifelse LSC$ (F) eq { ( in der Datei (F)) showde ( in File (F)) showen ( in File (F)) showes ( in File (F)) showfr ( in File (F)) showit ( in File (F)) showjp ( in File (F)) showm } if LSC$ (S) eq { ( im Distiller Startup (S) Directory) showde ( in Distiller Startup (S) Directory) showen ( in Distiller Startup (S) Directory) showes ( in Distiller Startup (S) Directory) showfr ( in Distiller Startup (S) Directory) showit ( in Distiller Startup (S) Directory) showjp ( in Distiller Startup (S) Directory) showm } if LSC$ (D) eq { ( in PostScript Device (D)) showde ( in PostScript Device (D)) showen ( in PostScript Device (D)) showes ( in PostScript Device (D)) showfr ( in PostScript Device (D)) showit ( in PostScript Device (D)) showjp ( in PostScript Device (D)) showm } if LSC$ (T) eq { ( von Distiller Startup (S) Directory) showde ( of Distiller Startup (S) Directory) showen ( of Distiller Startup (S) Directory) showes ( of Distiller Startup (S) Directory) showfr ( of Distiller Startup (S) Directory) showit ( of Distiller Startup (S) Directory) showjp ( of Distiller Startup (S) Directory) showm } if LSC$ (E) eq { ( von PostScript Device (D)) showde ( of PostScript Device (D)) showen ( of PostScript Device (D)) showes ( of PostScript Device (D)) showfr ( of PostScript Device (D)) showit ( of PostScript Device (D)) showjp ( of PostScript Device (D)) showm } if %0 setgray %end white and unvisible 16 MM 185 MM moveto -90 rotate (Siehe Original/Kopie: ) showde (See original or copy: ) showen (http://web.me.com/klaus.richter/ME17/ME17L) show (0) show LSC$ show LEX$ show 90 rotate 12 MM 185 MM moveto -90 rotate (Technische Information: ) showde (Technical information: ) showen (http://www.ps.bam.de) show ( or ) showen ( oder ) showde (http://130.149.60.45/~farbmetrik) show 90 rotate 281 MM 185 MM moveto -90 rotate (TUB\255Registrierung: 20101101\255ME17/ME17L) showde (TUB registration: 20101101\255ME17/ME17L) showen (0) show LSC$ show LEX$ show 90 rotate 281 MM 74 MM moveto -90 rotate (TUB\255Material: Code=rha4ta) showde (TUB material: code=rha4ta) showen 90 rotate 277 MM 185 MM moveto -90 rotate /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def ( Anwendung f\374r Messung von Drucker- oder Monitorsystemen) showde ( application for measurement of printer or monitor systems) showen ( application for measurement of printer or monitor systems) showes ( application for measurement of printer or monitor systems) showfr ( application for measurement of printer or monitor systems) showit ( application for measurement of printer or monitor systems) showjp ( application for measurement of printer or monitor systems) showm IMES 1 eq LSC$ (N) ne and { %IMES=1 (, Yr=) show Yre cvsshow1 (, XYZ) show } if %IMES=1 90 rotate /i0 8 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def 0.30 MM setlinewidth 0 setgray x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto x i0 get MM y i0 get MM lineto stroke } if %end if xchart=0 /xlu1 013 MM def /ylu1 010 MM def /xro1 283 MM def /yro1 200 MM def /xlo1 013 MM def /ylo1 200 MM def /xru1 283 MM def /yru1 010 MM def xlu1 4 MM sub ylu1 moveto 8 MM 0 rlineto stroke xlu1 ylu1 4 MM sub moveto 0 8 MM rlineto stroke xro1 4 MM add yro1 moveto -8 MM 0 rlineto stroke xro1 yro1 4 MM add moveto 0 -8 MM rlineto stroke xru1 4 MM sub yru1 moveto 8 MM 0 rlineto stroke xru1 yru1 4 MM sub moveto 0 8 MM rlineto stroke xlo1 4 MM add ylo1 moveto -8 MM 0 rlineto stroke xlo1 ylo1 4 MM add moveto 0 -8 MM rlineto stroke %} for %output with xchart end %} for %output with colorm end %} for %output with xcolor end %} for %output with lanind end %%Trailer %%EndDocument EndEPSF grestore gsave showpage grestore %} for %end for xchartg=xchartg1,xchartg2 %} for %end for pcountg=pcountg1,pcount2g %} for %end for scountg=scountg1,scount2g %%Trailer