%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/CGP9/CGP9L00XX.PS 20220301 %%BoundingBox: 07 04 414 292 /pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [/Title (PostScript pictures: http://farbe.li.tu-berlin.de/CGP9/CGP9.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2022030112000) /ModDate (D:20220301112000) /DOCINFO pdfmark [ /View [ /FitB ] /DOCVIEW pdfmark %Y10G00NA.PS6.PS /sfgray {setgray} bind def %Early Frame File (f) definition /sfrgbcolor {setrgbcolor} bind def /sfcmykcolor {setcmykcolor} bind def %line 20****************************************************** %BEG CGP9/OUTLIN10.PS Emty 20210418 %END CGP9/OUTLIN10.PS Emty 20210418 %BEG CGP9/OUTLIN1X.PS 20210418 %EMPTY %END CGP9/OUTLIN1X.PS 20210418 %BEG CGP9/OUTLIN1Y2.PS Emty 20210418 %END CGP9/OUTLIN1Y2.PS Emty 20210418 /BeginEPSF {% def % Prepare for EPS file /b4_Inc_state save def % Save state for cleanup /dict_count countdictstack def /op_count count 1 sub def % Count objects on op stack userdict begin % Make userdict current dict /showpage {} def 0 setgray 0 setlinecap 1 setlinewidth 0 setlinejoin 10 setmiterlimit [] 0 setdash newpath /languagelevel where % If level not equal to 1 then {pop languagelevel where % If level not equal to 1 then 1 ne {false setstrokeadjust false setoverprint } if } if } bind def /EndEPSF {% def % End for EPS file count op_count sub {pop} repeat countdictstack dict_count sub {end} repeat % Clean up dict stack b4_Inc_state restore } bind def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def %ANFA CMYKDEF %CMYKDEA0 (A0=Standard-Drucker-CMYKDEF) 15.3.97 /tzac [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzam [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzay [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzan [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tza0 [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000] def /tza1 [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000] def %ENDE CMYKD /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfiLAB* %x y width heigth LAB* { setcolor rec fill} bind def /colrecstLAB* %x y width heigth LAB* { setcolor rec stroke} bind def /colrecficmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec fill} bind def /colrecstcmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec stroke} bind def /colrecfiw* %x y width heigth w* { setgray rec fill} bind def /colrecstw* %x y width heigth w* { setgray rec stroke} bind def /colrecfiolv* %x y width heigth olv* { setrgbcolor rec fill} bind def /colrecstolv* %x y width heigth olv* { setrgbcolor rec stroke} bind def /tzocmy0* {0.0 1.0 1.0 0.0} bind def %Reproduction colours /tzlcmy0* {1.0 0.0 1.0 0.0} bind def %cmyn* setcmykcolor /tzvcmy0* {1.0 1.0 0.0 0.0} bind def /tzccmy0* {1.0 0.0 0.0 0.0} bind def /tzmcmy0* {0.0 1.0 0.0 0.0} bind def /tzycmy0* {0.0 0.0 1.0 0.0} bind def /tzoolv* {1.0 0.0 0.0} bind def %Reproduction colours /tzlolv* {0.0 1.0 0.0} bind def %olv* setrgbcolor /tzvolv* {0.0 0.0 1.0} bind def /tzcolv* {0.0 1.0 1.0} bind def /tzmolv* {1.0 0.0 1.0} bind def /tzyolv* {1.0 1.0 0.0} bind def /tzoLAB* [53.34 72.46 50.66] def %Reproduction colours /tzlLAB* [84.93 -79.83 74.80] def %LAB* setcolor /tzvLAB* [32.20 24.88 -37.89] def /tzcLAB* [88.10 -44.88 -13.36] def /tzmLAB* [59.66 90.32 -19.65] def /tzyLAB* [93.76 -20.24 85.93] def /tzncmy0* {1.00 1.00 1.00 0.00} bind def %grey series /tzdcmy0* {0.75 0.75 0.75 0.00} bind def %cmy0* setcmykcolor /tzzcmy0* {0.50 0.50 0.50 0.00} bind def /tzhcmy0* {0.25 0.25 0.25 0.00} bind def /tzwcmy0* {0.00 0.00 0.00 0.00} bind def /tzn000n* {0.00 0.00 0.00 1.00} bind def %grey series 000n* /tzd000n* {0.00 0.00 0.00 0.75} bind def %000n* setcmykcolor /tzz000n* {0.00 0.00 0.00 0.50} bind def /tzh000n* {0.00 0.00 0.00 0.25} bind def /tzw000n* {0.00 0.00 0.00 0.00} bind def /tznw* {0.00} bind def %grey series /tzdw* {0.25} bind def %w* setgray /tzzw* {0.50} bind def /tzhw* {0.75} bind def /tzww* {1.00} bind def /tznolv* {0.00 0.00 0.00} bind def %grey series /tzdolv* {0.25 0.25 0.25} bind def %olv* setrgbcolor /tzzolv* {0.50 0.50 0.50} bind def /tzholv* {0.75 0.75 0.75} bind def /tzwolv* {1.00 1.00 1.00} bind def /tznLAB* [18.01 0.00 0.00] def %grey series /tzdLAB* [37.36 0.00 0.00] def %LAB* setcolor /tzzLAB* [56.71 0.00 0.00] def /tzhLAB* [76.06 0.00 0.00] def /tzwLAB* [95.41 0.00 0.00] def /tfn {0 setgray} bind def /tfw {1 setgray} bind def /A4quer {598 0 translate 90 rotate} def /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def %%EndProlog %*********************************************************** %%BeginPageSetup /#copies 1 def %A4querF 0.5 0.5 scale /pgsave save def %%EndPageSetup /SS$ [(G) (E) (S) (F) (I) (J) (M)] def /SC$ [(N) (F) (S) (D) (T) (E) (C)] def /SX$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def /SY$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def % 0 1 2 3 4 5 % 6 7 8 /EX$ [(1.TXT /.PS) (B.BMP /.PS) (G.GIF /.PS) (H.HTM /.PS) (I.HTM /.PS) (J.JPE /.PS) (P.PDF /.PS) (T.TIF /.PS)] def /EY$ [(1.DAT) (B.DAT) (G.DAT) (H.DAT) (I.DAT) (J.DAT) (P.DAT) (T.DAT)] def %******************************************************************* /lanind1f 00 def /lanind2f 00 def /laninddf 01 def /colorm1f 00 def /colorm2f 00 def /colormdf 01 def /deintp1f 00 def /deintp2f 00 def /deintpdf 01 def /xcolor1f 00 def /xcolor2f 00 def /xcolordf 01 def /xchart1f 00 def /xchart2f 00 def /xchartdf 01 def /xchart3f 01 def /xchart4f 00 def /xchart5f 00 def /pchart1f 03 def /pchart2f 03 def /pchartdf 01 def %=3 for sRGB, Lr=0 /colsep1f 00 def /colsep2f 00 def /colsepdf 01 def /pmetam1f 00 def /pmetam2f 00 def /pmetamdf 01 def %/lanindf lanind1f def % /lanindf lanind1f def %lanind1f laninddf lanind2f {/lanindf exch def %/colormf colorm1f def % /colormf colorm1f def %colorm1f colormdf colorm2f {/colormf exch def %/deintpf deintp1f def % /deintpf deintp1f def %deintp1f deintpdf deintp2f {/deintpf exch def %/xcolorf xcolor1f def % /xcolorf xcolor1f def %xcolor1f xcolordf xcolor2f {/xcolorf exch def %/xchartf xchart1f def % /xchartf xchart1f def %xchart1f xchartdf xchart2f {/xchartf exch def %/pchartf pchart1f def % /pchartf pchart1f def %pchart1f pchartdf pchart2f {/pchartf exch def %/colsepf colsep1f def % /colsepf colsep1f def %colsep1f colsepdf colsep2f {/colsepf exch def /lanind lanindf def /colorm colormf def /deintp deintpf def /xcolor xcolorf def /xchart xchartf def /xchartm xchart2f xchart1f sub 1 add def /xchart3 xchart3f def /xchart4 xchart4f def /pchart pchartf def /colsep colsepf def %/pmetamf pmetam1f def % /pmetamf pmetam1f def %pmetam1f pmetamdf pmetam2f {/pmetamf exch def /pmetam pmetamf def %************************************************************* /setgray {sfgray} bind def /setrgbcolor {sfrgbcolor} bind def /setcmykcolor {sfcmykcolor} bind def %72 90 translate %0.01 MM dup scale %0 0 moveto 24600 0 rlineto 0 17220 rlineto % -24600 0 rlineto closepath stroke %000 -240 moveto %240 /Times-ISOL1 FS %lanindf cvishow (-) show %colormf cvishow %deintpf cvishow %xcolorf cvishow %xchartf cvishow %pchartf cvishow %colsepf cvishow (-F) show pmetamf cvishow %grestore gsave /GSS$ SS$ lanind get def /GSC$ SC$ colorm get def /GSX$ SX$ xcolor xcolor 16 idiv 16 mul sub get def /GSY$ SY$ xchart xchart 16 idiv 16 mul sub get def /GEX$ EX$ 0 get def /GEY$ EY$ 0 get def %01 %02 %03 %04 %05 %06 %07 %08 %09 %10 %11 %12 %13 %14 %15 %16 %17 %18 %gsave BeginEPSF 28 MM 197 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto 1 1 scale -77 -91 translate %%BeginDocument: Bild 10 %line 329 %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto 1 1 scale -77 -91 translate %%BeginDocument: Bild 11 %line 339 %!PS-Adobe-3.0 EPSF-3.0 CGP90-1, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (CGP90-1,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 12 %line 349 %!PS-Adobe-3.0 EPSF-3.0 CGP90-2, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (CGP90-2,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 13 %line 359 %!PS-Adobe-3.0 EPSF-3.0 CGP90-3, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (CGP90-3,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 14 %line 369 %!PS-Adobe-3.0 EPSF-3.0 CGP90-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 (CGP90-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 CGP90-5, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (CGP90-5,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 16 %line 389 %!PS-Adobe-3.0 EPSF-3.0 CGP90-6, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (CGP90-6,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF /xc1 16 def /yc1 12 def /xt 1 def xchart 1 eq {/xt 1 def} if 28 MM 20 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 17 %line 399 %!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/CGP9/CGP90-7N 220107 %%BoundingBox: 70 82 415 580 /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://farbe.li.tu-berlin.de/CGP9/CGP9.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2022010712000) /ModDate (D:20220107112000) /DOCINFO pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 % !change Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TV {120 /Times-ISOL1 FS} bind def /TS {160 /Times-ISOL1 FS} bind def /TK {200 /Times-ISOL1 FS} bind def /TM {250 /Times-ISOL1 FS} bind def /TG {300 /Times-ISOL1 FS} bind def /TKi {160 /Times-ISOL1 FS} bind def /TIV {120 /TimesI-ISOL1 FS} bind def /TIS {160 /TimesI-ISOL1 FS} bind def /TIK {200 /TimesI-ISOL1 FS} bind def /TIM {250 /TimesI-ISOL1 FS} bind def /TIG {300 /TimesI-ISOL1 FS} bind def /TBV {120 /TimesB-ISOL1 FS} bind def /TBS {160 /TimesB-ISOL1 FS} bind def /TBK {200 /TimesB-ISOL1 FS} bind def /TBM {250 /TimesB-ISOL1 FS} bind def /TBG {300 /TimesB-ISOL1 FS} bind def /TBKe {160 /TimesB-ISOL1 FS} bind def /TBIV {120 /TimesBI-ISOL1 FS} bind def /TBIS {160 /TimesBI-ISOL1 FS} bind def /TBIK {200 /TimesBI-ISOL1 FS} bind def /TBIM {250 /TimesBI-ISOL1 FS} bind def /TBIG {300 /TimesBI-ISOL1 FS} bind def /SV {120 10 sub /Symbol FS} bind def /SS {160 10 sub /Symbol FS} bind def /SK {200 10 sub /Symbol FS} bind def /SM {250 12 sub /Symbol FS} bind def /SG {300 14 sub /Symbol FS} bind def /nshowG {TG show} bind def /kshowG {TIG show} bind def /bshowG {TBG show} bind def /bishowG {TBIG show} bind def /ishowG {TM 0 -50 rmoveto show 0 50 rmoveto} bind def /ebshowG {TBM 0 160 rmoveto show 0 -160 rmoveto} bind def /sshowG {SG show} bind def /nshowM {TM show} bind def /kshowM {TIM show} bind def /bshowM {TBM show} bind def /bishowM {TBIM show} bind def /ishowM {TK 0 -30 rmoveto show 0 30 rmoveto} bind def /ebshowM {TBK 0 090 rmoveto show 0 -090 rmoveto} bind def /sshowM {SM show} bind def /nshowK {TK show} bind def /kshowK {TIK show} bind def /bshowK {TBK show} bind def /bishowK {TBIK show} bind def /ishowK {TKi 0 -25 rmoveto show 0 25 rmoveto} bind def /ebshowK {TBKe 0 100 rmoveto show 0 -100 rmoveto} bind def /sshowK {SK show} bind def %CNJ0 R G B C M Y /tr000 [0.00 0.00 0.00] def %rgb-black /tr111 [1.00 1.00 1.00] def %rgb-white /tf000 {0.00 0.00 0.00 setrgbcolor} def /tf111 {1.00 1.00 1.00 setrgbcolor} def /tfn {0.00 0.00 0.00 setrgbcolor} def /tfw {1.00 1.00 1.00 setrgbcolor} def /scolors %CMYN 49 Farbkreis-Reihenfolge; 47+2 Sonder-Farben [{0.25 0.00 1.00} {0.13 0.00 1.00} {0.00 0.00 1.00} {0.00 0.13 1.00} %03 02:V {0.00 0.25 1.00} {0.00 0.38 1.00} {0.00 0.50 1.00} {0.00 0.63 1.00} %07 06:B {0.00 0.75 1.00} {0.00 0.88 1.00} {0.00 1.00 1.00} {0.00 1.00 0.88} %11 10:C {0.00 1.00 0.75} {0.00 1.00 0.63} {0.00 1.00 0.50} {0.00 1.00 0.38} %15 {0.00 1.00 0.25} {0.00 1.00 0.13} {0.00 1.00 0.00} {0.13 1.00 0.00} %19 18:G {0.25 1.00 0.00} {0.38 1.00 0.00} {0.50 1.00 0.00} {0.63 1.00 0.00} %23 {0.75 1.00 0.00} {0.88 1.00 0.00} {1.00 1.00 0.00} {1.00 0.88 0.00} %27 26:Y {1.00 0.75 0.00} {1.00 0.63 0.00} {1.00 0.50 0.00} {1.00 0.38 0.00} %31 {1.00 0.25 0.00} {1.00 0.13 0.00} {1.00 0.00 0.00} {1.00 0.00 0.13} %35 34:R {1.00 0.00 0.25} {1.00 0.00 0.38} {1.00 0.00 0.50} {1.00 0.00 0.63} %39 {1.00 0.00 0.75} {1.00 0.00 0.88} {1.00 0.00 1.00} {0.88 0.00 1.00} %43 42:M {0.75 0.00 1.00} {0.63 0.00 1.00} {0.50 0.00 1.00} {0.38 0.00 1.00} %46 {0.00 0.00 0.00} {1.00 1.00 1.00}] def %48 /ifa %Verteilung 48 Farben auf 64 Wellenlaengen ohne Purpur, 400_700/5:0_60 %0 1 2 3 4 5 6 7 8 9 i=(W-400)/5 %400 405 410 415 420 425 430 435 440 445 [00 01 01 01 02 02 03 03 04 04 %09 %450 455 460 465 470 475 480 485 490 495 05 05 05 06 06 07 07 08 09 10 %19 %500 505 510 515 520 525 530 535 540 545 11 13 15 16 17 18 18 19 20 21 %29 %550 555 560 565 570 575 580 585 590 595 22 23 24 25 26 27 28 29 30 30 %39 %600 605 610 615 620 625 630 635 640 645 31 31 32 32 33 33 34 34 34 34 %49 %650 655 660 665 670 675 680 685 690 695 700 34 34 34 34 35 35 35 35 35 35 35 48 49] def %60:R, 61:N, 62:W %colors in rgb for wavelength range 400 to 700nm /tr400 {scolors ifa 00 get get} def /tr407 {scolors ifa 01 get get} def /tr420 {scolors ifa 04 get get} def /tr432 {scolors ifa 06 get get} def /tr445 {scolors ifa 09 get get} def /tr457 {scolors ifa 61 get get} def %11->61(N) /tr470 {scolors ifa 14 get get} def /tr482 {scolors ifa 16 get get} def /tr495 {scolors ifa 19 get get} def /tr507 {scolors ifa 21 get get} def /tr520 {scolors ifa 24 get get} def /tr532 {scolors ifa 26 get get} def /tr545 {scolors ifa 29 get get} def /tr557 {scolors ifa 62 get get} def %31->62(W) /tr570 {scolors ifa 34 get get} def /tr582 {scolors ifa 36 get get} def /tr595 {scolors ifa 39 get get} def /tr607 {scolors ifa 41 get get} def /tr620 {scolors ifa 44 get get} def /tr632 {scolors ifa 46 get get} def /tr700 {scolors ifa 46 get get} def /trBe {tr470} bind def /trGe {tr520} bind def /trYe {tr570} bind def /trRe {tr620} bind def /tf400 {scolors ifa 00 get get exec setrgbcolor} def /tf407 {scolors ifa 01 get get exec setrgbcolor} def /tf420 {scolors ifa 04 get get exec setrgbcolor} def /tf432 {scolors ifa 06 get get exec setrgbcolor} def /tf445 {scolors ifa 09 get get exec setrgbcolor} def /tf457 {scolors ifa 61 get get exec setrgbcolor} def %11->61(N) /tf470 {scolors ifa 14 get get exec setrgbcolor} def /tf482 {scolors ifa 16 get get exec setrgbcolor} def /tf495 {scolors ifa 19 get get exec setrgbcolor} def /tf507 {scolors ifa 21 get get exec setrgbcolor} def /tf520 {scolors ifa 24 get get exec setrgbcolor} def /tf532 {scolors ifa 26 get get exec setrgbcolor} def /tf545 {scolors ifa 29 get get exec setrgbcolor} def /tf557 {scolors ifa 62 get get exec setrgbcolor} def %31->62(W) /tf570 {scolors ifa 34 get get exec setrgbcolor} def /tf582 {scolors ifa 36 get get exec setrgbcolor} def /tf595 {scolors ifa 39 get get exec setrgbcolor} def /tf607 {scolors ifa 41 get get exec setrgbcolor} def /tf620 {scolors ifa 44 get get exec setrgbcolor} def /tf632 {scolors ifa 46 get get exec setrgbcolor} def /tf700 {scolors ifa 46 get get exec setrgbcolor} def /tfBe {tf470} bind def /tfGe {tf520} bind def /tfYe {tf570} bind def /tfRe {tf620} bind def /A4quer {598 0 tl 90 rotate} def /outSM {sshowM} def /outSK {sshowK} def %for output test only /tspace {dup abs 1.0 le {( ) show} if dup dup -1.0 le exch -10 gt and {( ) show} if dup dup 1.0 gt exch 10 lt and {( ) show} if dup dup 1.0 gt exch 10 ge and {( ) show} if } bind def /trushow {tspace 0.005 add 100 mul truncate 100 div 10 string cvs show} bind def /troshow {0.005 add 100 mul truncate 100 div 10 string cvs show} bind def /trushow4 {0.00005 add 10000 mul truncate 10000 div 10 string cvs show} 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 /rgbrecfi %x y width heigth r g b {setrgbcolor rec fill} bind def /rgbrecst %x y width heigth r g b {setrgbcolor rec stroke} bind def /cvishow {dup 0 ge {0.5 add} {0.5 sub} ifelse 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 /cvsshow2r {dup 0 lt {(-) show} if %with round abs 100 mul 0.5 add cvi 0.01 mul 7 string cvs show} def /cvsshow2x {/nxx exch def %example nxx=99.12/99,02 nxx 100 mul cvi /nxi exch def %nxi=9912/9902/00 nxi 100 idiv /nxa exch def %nxa=99 nxi nxa 100 mul sub /nxb exch def %nxb=12/02/00 nxa cvishow (,) show %nxb=99, nxb 10 ge {nxb cvishow} if %nxb=12 nxb 1 ge nxb 9 le and {(0) show nxb cvishow} if %nxb=02 nxb 0 eq {(00) show} if %nxb=00 } def /cvsshow2rx {dup 0 lt {(-) show} if %with round abs 100 mul 0.5 add cvi 0.01 mul /nxx exch def %example nxx=99.12/99,02 nxx 100 mul cvi /nxi exch def %nxi=9912/9902/00 nxi 100 idiv /nxa exch def %nxa=99 nxi nxa 100 mul sub /nxb exch def %nxb=12/02/00 nxa cvishow (,) show %nxb=99, nxb 10 ge {nxb cvishow} if %nxb=12 nxb 1 ge nxb 9 le and {(0) show nxb cvishow} if %nxb=02 nxb 0 eq {(00) show} if %nxb=00 } def %******************************************** /proz_data6 {%BEG proz_data6 /YEXN00 88 array def /YEXN01 88 array def /YEXN02 88 array def /YEXN03 88 array def /YEXN04 88 array def /YEXN05 88 array def /YEXN06 88 array def /YEXN07 88 array def /YEXN08 88 array def /YEXN09 88 array def /YEXN10 88 array def /YEXN11 88 array def /YEXN12 88 array def /YEXL00 88 array def /YEXL01 88 array def /YEXL02 88 array def /YEXL03 88 array def /YEXL04 88 array def /YEXL05 88 array def /YEXL06 88 array def /YEXL07 88 array def /YEXL08 88 array def /YEXL09 88 array def /YEXL10 88 array def /YEXL11 88 array def /YEXL12 88 array def /YEXP00 88 array def /YEXP01 88 array def /YEXP02 88 array def /YEXP03 88 array def /YEXP04 88 array def /YEXP05 88 array def /YEXP06 88 array def /YEXP07 88 array def /YEXP08 88 array def /YEXP09 88 array def /YEXP10 88 array def /YEXP11 88 array def /YEXP12 88 array def /Xi 88 array def /Yi 88 array def /KURVA 13 array def %13 actual curves /KURVA1 13 array def %13 curves, Sensitivity, one or two colours /KURVA2 13 array def %13 curves, Saturation, one or two colours /IDA100 13 array def %13 curves, Sensitivity, setdash, 1st part, 1st curve /IDA101 13 array def %13 curves, Sensitivity, setdash, 2nd part, 1st curve /IDA110 13 array def %13 curves, Saturation, setdash, 1st part, 1st curve /IDA111 13 array def %13 curves, Saturation, setdash, 2nd part, 1st curve /IDA200 13 array def %13 curves, Sensitivity, setdash, 1st part, 2nd curve /IDA201 13 array def %13 curves, Sensitivity, setdash, 2nd part, 2nd curve /IDA210 13 array def %13 curves, Saturation, setdash, 1st part, 2nd curve /IDA211 13 array def %13 curves, Saturation, setdash, 2nd part, 2nd curve /FKUR1 13 array def %Actual colour R, Sensitivity /FKUR2 13 array def %Actual colour R, Saturation /FKUG1 13 array def %Actual colour G, Sensitivity /FKUG2 13 array def %Actual colour G, Saturation /FKUB1 13 array def %Actual colour B, Sensitivity /FKUB2 13 array def %Actual colour B, Saturation /FKURI00 13 array def %R Colour 1, Sensitivity /FKURI01 13 array def %R Colour 2 on top, Sensitivity /FKURI10 13 array def %R Colour 1, Saturation /FKURI11 13 array def %R Colour 2 on top, Saturation /FKUGI00 13 array def %G Colour 1, Sensitivity /FKUGI01 13 array def %G Colour 2 on top, Sensitivity /FKUGI10 13 array def %G Colour 1, Saturation /FKUGI11 13 array def %G Colour 2 on top, Saturation /FKUBI00 13 array def %B Colour 1, Sensitivity /FKUBI01 13 array def %B Colour 2 on top, Sensitivity /FKUBI10 13 array def %B Colour 1, Saturation /FKUBI11 13 array def %B Colour 2 on top, Saturation % 0 1 2 3 4 5 6 7 8 9 10 11 12 % V R O L V M G C B N S r s % 557 620 595 570 557 545 520 495 470 457 445 420 400 ] def FKURI00 00 tr557 0 get put %V FKUGI00 00 tr557 1 get put FKUBI00 00 tr557 2 get put FKURI00 01 tr620 0 get put %R FKUGI00 01 tr620 1 get put FKUBI00 01 tr620 2 get put FKURI00 02 tr595 0 get put %O FKUGI00 02 tr595 1 get put FKUBI00 02 tr595 2 get put FKURI00 03 tr570 0 get put %L FKUGI00 03 tr570 1 get put FKUBI00 03 tr570 2 get put FKURI00 04 tr557 0 get put %V FKUGI00 04 tr557 1 get put FKUBI00 04 tr557 2 get put FKURI00 05 tr545 0 get put %M FKUGI00 05 tr545 1 get put FKUBI00 05 tr545 2 get put FKURI00 06 tr520 0 get put %G FKUGI00 06 tr520 1 get put FKUBI00 06 tr520 2 get put FKURI00 07 tr495 0 get put %C FKUGI00 07 tr495 1 get put FKUBI00 07 tr495 2 get put FKURI00 08 tr470 0 get put %B FKUGI00 08 tr470 1 get put FKUBI00 08 tr470 2 get put FKURI00 09 tr000 0 get put %v FKUGI00 09 tr000 1 get put FKUBI00 09 tr000 2 get put FKURI00 10 tr445 0 get put %S FKUGI00 10 tr445 1 get put FKUBI00 10 tr445 2 get put FKURI00 11 tr420 0 get put %r FKUGI00 11 tr420 1 get put FKUBI00 11 tr420 2 get put FKURI00 12 tr400 0 get put %s FKUGI00 12 tr400 1 get put FKUBI00 12 tr400 2 get put FKURI01 00 tr000 0 get put %V FKUGI01 00 tr000 1 get put FKUBI01 00 tr000 2 get put FKURI01 01 tr000 0 get put %R FKUGI01 01 tr000 1 get put FKUBI01 01 tr000 2 get put FKURI01 02 tr000 0 get put %O FKUGI01 02 tr000 1 get put FKUBI01 02 tr000 2 get put FKURI01 03 tr000 0 get put %L FKUGI01 03 tr000 1 get put FKUBI01 03 tr000 2 get put FKURI01 04 tr000 0 get put %V FKUGI01 04 tr000 1 get put FKUBI01 04 tr000 2 get put FKURI01 05 tr000 0 get put %M FKUGI01 05 tr000 1 get put FKUBI01 05 tr000 2 get put FKURI01 06 tr000 0 get put %G FKUGI01 06 tr000 1 get put FKUBI01 06 tr000 2 get put FKURI01 07 tr000 0 get put %C FKUGI01 07 tr000 1 get put FKUBI01 07 tr000 2 get put FKURI01 08 tr557 0 get put %B FKUGI01 08 tr557 1 get put FKUBI01 08 tr557 2 get put FKURI01 09 tr557 0 get put %v FKUGI01 09 tr557 1 get put FKUBI01 09 tr557 2 get put FKURI01 10 tr557 0 get put %S FKUGI01 10 tr557 1 get put FKUBI01 10 tr557 2 get put FKURI01 11 tr557 0 get put %r FKUGI01 11 tr557 1 get put FKUBI01 11 tr557 2 get put FKURI01 12 tr557 0 get put %s FKUGI01 12 tr557 1 get put FKUBI01 12 tr557 2 get put FKURI10 00 tr557 0 get put %V FKUGI10 00 tr557 1 get put FKUBI10 00 tr557 2 get put FKURI10 01 tr620 0 get put %R FKUGI10 01 tr620 1 get put FKUBI10 01 tr620 2 get put FKURI10 02 tr595 0 get put %O FKUGI10 02 tr595 1 get put FKUBI10 02 tr595 2 get put FKURI10 03 tr570 0 get put %L FKUGI10 03 tr570 1 get put FKUBI10 03 tr570 2 get put FKURI10 04 tr557 0 get put %V FKUGI10 04 tr557 1 get put FKUBI10 04 tr557 2 get put FKURI10 05 tr545 0 get put %M FKUGI10 05 tr545 1 get put FKUBI10 05 tr545 2 get put FKURI10 06 tr520 0 get put %G FKUGI10 06 tr520 1 get put FKUBI10 06 tr520 2 get put FKURI10 07 tr495 0 get put %C FKUGI10 07 tr495 1 get put FKUBI10 07 tr495 2 get put FKURI10 08 tr470 0 get put %B FKUGI10 08 tr470 1 get put FKUBI10 08 tr470 2 get put FKURI10 09 tr000 0 get put %v FKUGI10 09 tr000 1 get put FKUBI10 09 tr000 2 get put FKURI10 10 tr445 0 get put %S FKUGI10 10 tr445 1 get put FKUBI10 10 tr445 2 get put FKURI10 11 tr420 0 get put %r FKUGI10 11 tr420 1 get put FKUBI10 11 tr420 2 get put FKURI10 12 tr400 0 get put %s FKUGI10 12 tr400 1 get put FKUBI10 12 tr400 2 get put FKURI11 00 tr000 0 get put %V FKUGI11 00 tr000 1 get put FKUBI11 00 tr000 2 get put FKURI11 01 tr000 0 get put %R FKUGI11 01 tr000 1 get put FKUBI11 01 tr000 2 get put FKURI11 02 tr000 0 get put %O FKUGI11 02 tr000 1 get put FKUBI11 02 tr000 2 get put FKURI11 03 tr000 0 get put %L FKUGI11 03 tr000 1 get put FKUBI11 03 tr000 2 get put FKURI11 04 tr000 0 get put %V FKUGI11 04 tr000 1 get put FKUBI11 04 tr000 2 get put FKURI11 05 tr000 0 get put %M FKUGI11 05 tr000 1 get put FKUBI11 05 tr000 2 get put FKURI11 06 tr000 0 get put %G FKUGI11 06 tr000 1 get put FKUBI11 06 tr000 2 get put FKURI11 07 tr000 0 get put %C FKUGI11 07 tr000 1 get put FKUBI11 07 tr000 2 get put FKURI11 08 tr557 0 get put %B FKUGI11 08 tr557 1 get put FKUBI11 08 tr557 2 get put FKURI11 09 tr557 0 get put %v FKUGI11 09 tr557 1 get put FKUBI11 09 tr557 2 get put FKURI11 10 tr557 0 get put %S FKUGI11 10 tr557 1 get put FKUBI11 10 tr557 2 get put FKURI11 11 tr557 0 get put %r FKUGI11 11 tr557 1 get put FKUBI11 11 tr557 2 get put FKURI11 12 tr557 0 get put %s FKUGI11 12 tr557 1 get put FKUBI11 12 tr557 2 get put } bind def %END proz_data6 %********************************************************** /proz_ScalePQR_400_700 {%BEG proz_ScalePQR_400_700 40 setlinewidth 1 1 1 setrgbcolor TBM /tx [ (400) (500) (600) (700) (400)] def /tyl [(0,0) () (0,5) () (1,0)] def /tyl1 [( 0) () ( 1) () ( 2)] def /tye [(-2) () (-1) () ( 0)] def /tys [( -1) ( ) ( 0) ( ) ( 1) ] def /tu [ ( -3) (-1) ( 1) ( 3)] def /ty2 [(-2) ( ) ( 0) ( ) ( 2) ] def %!u-Achse: 100 Einheiten = 1200 Skalen-Einheiten ILU 1 eq {%ILU=1 0 1 3 {/i exch def %i=0,3 /ixt {-180 i 1200 mul add} def /ixl { 000 i 1200 mul add} def ixt 130 moveto tu i get exec show } for %i=0,3 3600 0.7 1200 mul add 100 sub 130 moveto (-3) show 4000 130 moveto TBIM (u) show % 550 nm; u=0.0 /ixt -180 1.50 1200 mul add def /ixl 000 1.50 1200 mul add def tf557 ixt 100 add 100 moveto ( 0) show /ixt 20 1860 add def ixt 250 sub -270 moveto (550) show ixl 75 moveto 0 -150 rlineto stroke } if %ILU=1 %!x-Achse: 100 Einheiten = 1200 Skalen-Einheiten tfw 0 1 4 {/i exch def TBM /id1 i def i 4 eq {/id1 3.7 def} if /ixt {-150 id1 1200 mul add} def /ixl { 000 id1 1200 mul add} def ixt -270 moveto tx i get exec show ixl 70 moveto 0 -120 rlineto stroke ILU 0 eq {%ILU=0 i 3 eq {TBK ixt 100 sub 100 moveto (495Ec) show} if i 4 eq {TBK ixt 100 sub 100 moveto (565Ec) show} if } if %ILU=0 } for %!x-ScaleTex TBK tfw 2700 -270 moveto (l) outSK (d) ishowM 30 0 rmoveto (/nm) nshowM 3900 -270 moveto (l) outSK (c) ishowM TBM %!y-Achse: 100 S-Einheiten = 960 = 1200*0.8 Skalen-Einheiten 0 1 4 {/i exch def /iyt {150 i 0480 mul add} def /iyl {240 i 0480 mul add} def -450 iyt moveto LiLo 0 eq {%LiLo=0 ILS 0 eq {tyl i get exec show} {ty2 i get exec show} ifelse } if %LiLo=0 LiLo 1 eq {%LiLo=1 ILS 0 eq {tye i get exec show} {tys i get exec show} ifelse } if %LiLo=1 LiLo 2 eq {%LiLo=2 ILS 0 eq {tye i get exec show} {ty2 i get exec show} ifelse } if %LiLo=2 -075 iyl moveto 150 0 rlineto stroke } for 40 setlinewidth } bind def %END proz_ScalePQR_400_700 %********************************************************** /proz_PosLine {%BEG proz_PosLine % 0 1 2 3 4 5 6 7 8 9 10 11 12 /XposW [557 620 595 570 557 545 520 495 470 457 445 420 400 ] def /XposF [(V) (R) (O) (L) (V) (M) (G) (C) (B) (N) (S) (r) (s)] def /ipos0 [1 1 1 1 1 1 0 1 1 1 1 1 1 ] def %special for g(520) 0 1 12 {/i exch def %i=0,12 iposW i get abs 1 eq {%Xpos /Xpos XposW i get 400 sub 100 div 1200 mul def %Name on top %vertical position 2400*0.8=1920 + 200 scale shift Xpos 50 sub iposW i get -1 eq {200 sub} if 1920 240 add 130 add moveto XposF i get show ipos0 i get 0 eq {(o) show} {(a) show} ifelse %vertical dashed line /Ypos 0 def xchartl 2 ge i 6 eq and {0.8 1 0 setrgbcolor /Ypos 220 def} if [100 100] 0 setdash Xpos 0 moveto 0 1920 240 add rlineto stroke [ ] 0 setdash %wavelength on bottom left or right (iposW -1 or +1) i 11 le {%i<=11 Xpos 20 add iposW i get -1 eq {450 sub} if 150 Ypos add moveto XposW i get cvishow tfw } if %i<=11 } if %Xpos } for %i=0,12 } bind def %proz_PosLine %********************************************************** /proz_TitTexrl {%BEG proz_TitTexrl ILU 1 eq {4500 750 moveto (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (=) show (\050) bshowM (l) outSM 4500 450 moveto (-550\051/50) bshowM } if ILS 1 eq {%ILS=1 4400 2650 moveto TBM tfw (saturation ) showen (S\344ttigung ) showde xchartl 0 ge xchartl 7 le and {tf570 (L) show} if } if %ILS=1 4500 2300 moveto TBM tfw (adaptation) showen (Adaptation) showde 4500 2000 moveto tfw TBM (L&B: 520) show 4500 1700 moveto tfw (t) show 0 -40 rmoveto TBK (s) show 0 40 rmoveto TBM (=) show tsa cvsshow2 /xtexr1 3200 def /xtexr2 3900 def xtexr1 3800 moveto tfw (log) bshowM 30 0 rmoveto X1 Xo xtexr2 3800 moveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM X1Win (]) TBM tfw show (2) ebshowM xtexr1 3500 moveto tfw (log) bshowM 30 0 rmoveto X2 Xo xtexr2 3500 moveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM X2Win (]) TBM tfw show (2) ebshowM %j 0 1 2 3 4 5 6 7 8 9 10 11 12 %N V R O L V M G C B N S r s %W 557 620 595 570 557 545 520 495 470 457 445 420 400 ] def %im 31,5 44 39 34 31,5 29 24 19 14 11,5 09 04 0 /YEXN03_24 YEXN03 24 get def /YVada 0.00 def xtexr1 3200 moveto tfw (log) bshowM 30 0 rmoveto X1 Xa 50 0 rmoveto tfw (= log) bshowM 50 0 rmoveto X1 Xo tfw (+) bshowM YVada abs cvsshow2rx /Yvada 0.00 def xtexr1 2900 moveto tfw (log) bshowM 30 0 rmoveto X2 Xa 50 0 rmoveto tfw (= log) bshowM 50 0 rmoveto X2 Xo tfw (+) bshowM Yvada abs cvsshow2rx ILS 0 eq {%ILS=0 xtexr1 900 add 2620 moveto tfw (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (=\050) bshowM (l) outSM (-550\051/50) bshowM } if %ILS=0 %left side /xtexl1 0050 def /xtexl2 0750 def xtexl1 3800 moveto LiLo 0 eq {(lin) show} if LiLo 1 eq LiLo 2 eq or {(log) show} if ILS 0 eq {([sensitivity]) showen ([Empfindlichkeit]) showde} if ILS 1 eq {([saturation]) showen ([S\344ttigung]) showde} if xtexl1 3500 moveto tfw (log) bshowM 30 0 rmoveto X0 Xo xtexl2 3500 moveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM X0Win (]) TBM tfw show (2) ebshowM xtexl1 3200 moveto tfw (log) bshowM 30 0 rmoveto X0 Xa 50 0 rmoveto tfw (= log) bshowM 50 0 rmoveto X0 Xo tfw xchartl 1 le {/YGada 0.00 def (+) bshowM} {/YGada YEXN03_24 neg def (-) bshowM} ifelse YGada abs cvsshow2rx tfw 010 2900 moveto LiLo 0 eq {() show} if LiLo 1 eq {(log) show} if LiLo 2 eq {(log) show} if ILS 0 eq {%iLS=0,1 ( [) bshowM xchartl 2 ge {X0 Xa tfw (, ) bshowM} if xchartl 4 ne {X1 Xa tfw (, ) bshowM} if xchartl 6 ne {X2 Xa} if tfw (]) bshowM }%ILS=0 {%ILS=1 ( [) bshowM xchartl 2 ge {X0 Xa tfw (/) bshowM X0 Xa tfw (, ) bshowM} if xchartl 5 ne {X1 Xa tfw (/) bshowM X0 Xa tfw (, ) bshowM} if xchartl 7 ne {X2 Xa tfw (/) bshowM X0 Xa} if tfw (]) bshowM } ifelse %ILS=0,1 } bind def %END proz_TitTexrl %********************************************************* /proz_YPLx_Yi_tra {%BEG proz_YPLx_Yi_tra %i 0 1 2 3 4 5 6 7 8 9 10 11 12 %N V R O L V M G C B N S r s %W 557 620 595 570 557 545 520 495 470 457 445 420 400 ] def %im 31,5 44 39 34 31,5 29 24 19 14 11,5 09 04 0 %adaptation of L3 and B8 to G6' /YEXN03_24 YEXN03 24 get def 0 1 74 {/i exch def %i=0,78: 400_700_400(74) xchartl 1 ge {%xchartl<=1 j 06 eq {YEXP06 i YEXP06 i get YEXN03_24 add put} if } if %xchartl<=1 } for %i=0,78: 400_700_400(74) } bind def %END proz_YPLx_Yi_tra %********************************************************* /proz_YPLo_Yi {%BEG proz_YPLo_Yi proz_YPLx_Yi_tra 0 1 74 {/i exch def %i=0,78: 400_700_400(74) Xi i i 5 mul 400 add put j 00 eq {Yi i YEXP00 i get put} if %V 557 j 01 eq {Yi i YEXP01 i get put} if %R 620 j 02 eq {Yi i YEXP02 i get put} if %O 595 j 03 eq {Yi i YEXP03 i get put} if %L 570 j 04 eq {Yi i YEXP04 i get put} if %V 557 j 05 eq {Yi i YEXP05 i get put} if %M 545 j 06 eq {Yi i YEXP06 i get put} if %G 520 j 07 eq {Yi i YEXP07 i get put} if %C 495 j 08 eq {Yi i YEXP08 i get put} if %B 470 j 09 eq {Yi i YEXP09 i get put} if %v 457 j 10 eq {Yi i YEXP10 i get put} if %S 445 j 11 eq {Yi i YEXP11 i get put} if %r 420 j 12 eq {Yi i YEXP12 i get put} if %s 400 } for %i=0,78: 400_700_400(74) } bind def %proz_YPLo_Yi %***************************************************** /proz_YPLi_Yi {%BEG proz_YPLi_Yi proz_YPLx_Yi_tra 0 1 74 {/i exch def %i=0,78: 400_700_400(74) Xi i i 5 mul 400 add put j 00 eq {Yi i 10 YEXP00 i get exp put} if %V 557 j 01 eq {Yi i 10 YEXP01 i get exp put} if %R 620 j 02 eq {Yi i 10 YEXP02 i get exp put} if %O 595 j 03 eq {Yi i 10 YEXP03 i get exp put} if %L 570 j 04 eq {Yi i 10 YEXP04 i get exp put} if %V 557 j 05 eq {Yi i 10 YEXP05 i get exp put} if %M 545 j 06 eq {Yi i 10 YEXP06 i get exp put} if %G 520 j 07 eq {Yi i 10 YEXP07 i get exp put} if %C 495 j 08 eq {Yi i 10 YEXP08 i get exp put} if %B 470 j 09 eq {Yi i 10 YEXP09 i get exp put} if %v 457 j 10 eq {Yi i 10 YEXP10 i get exp put} if %S 445 j 11 eq {Yi i 10 YEXP11 i get exp put} if %r 420 j 12 eq {Yi i 10 YEXP12 i get exp put} if %s 400 } for %i=0,78: 400_700_400(74) } bind def %proz_YPLi_Yi %************************************************************** /proz_YSkLo_Yi {%BEG proz_YSkLo_Yi 0 1 74 {/i exch def %i=0,78: 400_700_400(74) Xi i i 5 mul 400 add put k 00 eq {/YD YEXP00 i get def} if %V 557 k 01 eq {/YD YEXP01 i get def} if %R 620 k 02 eq {/YD YEXP02 i get def} if %O 595 k 03 eq {/YD YEXP03 i get def} if %L 570 k 04 eq {/YD YEXP04 i get def} if %V 557 k 05 eq {/YD YEXP05 i get def} if %M 545 k 06 eq {/YD YEXP06 i get def} if %G 520 k 07 eq {/YD YEXP07 i get def} if %C 495 k 08 eq {/YD YEXP08 i get def} if %B 470 k 09 eq {/YD YEXP09 i get def} if %v 457 k 10 eq {/YD YEXP10 i get def} if %S 445 k 11 eq {/YD YEXP11 i get def} if %r 420 k 12 eq {/YD YEXP12 i get def} if %s 400 j 00 eq {Yi i YEXP00 i get YD sub put} if %V 557 j 01 eq {Yi i YEXP01 i get YD sub put} if %R 620 j 02 eq {Yi i YEXP02 i get YD sub put} if %O 595 j 03 eq {Yi i YEXP03 i get YD sub put} if %L 570 j 04 eq {Yi i YEXP04 i get YD sub put} if %V 557 j 05 eq {Yi i YEXP05 i get YD sub put} if %M 545 j 06 eq {Yi i YEXP06 i get YD sub put} if %G 520 j 07 eq {Yi i YEXP07 i get YD sub put} if %C 495 j 08 eq {Yi i YEXP08 i get YD sub put} if %B 470 j 09 eq {Yi i YEXP09 i get YD sub put} if %v 457 j 10 eq {Yi i YEXP10 i get YD sub put} if %S 445 j 11 eq {Yi i YEXP11 i get YD sub put} if %r 420 j 12 eq {Yi i YEXP12 i get YD sub put} if %s 400 } for %i=0,78: 400_700_400(74) } bind def %proz_YSkLo_Yi %***************************************************** /proz_YSkLi_Yi {%BEG proz_YSkLi_Yi 0 1 74 {/i exch def %i=0,78: 400_700_400(74) Xi i i 5 mul 400 add put k 00 eq {/YD 10 YEXP00 i get exp def} if %V 557 k 01 eq {/YD 10 YEXP01 i get exp def} if %R 620 k 02 eq {/YD 10 YEXP02 i get exp def} if %O 595 k 03 eq {/YD 10 YEXP03 i get exp def} if %L 570 k 04 eq {/YD 10 YEXP04 i get exp def} if %V 557 k 05 eq {/YD 10 YEXP05 i get exp def} if %M 545 k 06 eq {/YD 10 YEXP06 i get exp def} if %G 520 k 07 eq {/YD 10 YEXP07 i get exp def} if %C 495 k 08 eq {/YD 10 YEXP08 i get exp def} if %B 470 k 09 eq {/YD 10 YEXP09 i get exp def} if %v 457 k 10 eq {/YD 10 YEXP10 i get exp def} if %S 445 k 11 eq {/YD 10 YEXP11 i get exp def} if %r 420 k 12 eq {/YD 10 YEXP12 i get exp def} if %s 400 j 00 eq {Yi i 10 YEXP00 i get exp YD div put} if %V 557 j 01 eq {Yi i 10 YEXP01 i get exp YD div put} if %R 620 j 02 eq {Yi i 10 YEXP02 i get exp YD div put} if %O 595 j 03 eq {Yi i 10 YEXP03 i get exp YD div put} if %L 570 j 04 eq {Yi i 10 YEXP04 i get exp YD div put} if %V 557 j 05 eq {Yi i 10 YEXP05 i get exp YD div put} if %M 545 j 06 eq {Yi i 10 YEXP06 i get exp YD div put} if %G 520 j 07 eq {Yi i 10 YEXP07 i get exp YD div put} if %C 495 j 08 eq {Yi i 10 YEXP08 i get exp YD div put} if %B 470 j 09 eq {Yi i 10 YEXP09 i get exp YD div put} if %v 457 j 10 eq {Yi i 10 YEXP10 i get exp YD div put} if %S 445 j 11 eq {Yi i 10 YEXP11 i get exp YD div put} if %r 420 j 12 eq {Yi i 10 YEXP12 i get exp YD div put} if %s 400 } for %i=0,78: 400_700_400(74) } bind def %proz_YPLi_Yi %************************************************************** /proz_curXiYi {%BEG proz_curXiYi /xst {Xi 0 get 550 sub CX div MULX mul} bind def /yst {IORY Yi 0 get MULY mul add} bind def /i1 01 def /i2 74 def xst yst moveto i1 1 i2 {/i exch def %i=0,72 /xst {Xi i get 550 sub CX div MULX mul} bind def /yst {IORY Yi i get MULY mul add} bind def xst yst lineto i i2 eq {stroke} if } for %i=0,72 %[ ] 0 setdash } bind def %proz_curXiYi %************************************************************** /proz_curXiYi_i1_i2 {%BEG proz_curXiYi_i1_i2 % 0 1 2 3 4 5 6 7 8 9 10 11 12 % V R O L V M G C B N S r s % 557 620 595 570 557 545 520 495 470 457 445 420 400 ] def %0:(607-400)/5=41 or %0:(620-400)/5=44 %1:(557-400)/5=31 or %1:(570-400)/5=34 %2:(507-400)/5=21 or %2:(520-400)/5=24 %3:(457-400)/5=11 or %3:(470-400)/5=14 %520_620=21_41-3 j 3 eq {/i1 24 def /i2 44 def} if j 8 eq {/i1 04 def /i2 24 def} if xchartl 4 ge j 3 eq j 8 eq or and {%xchartl>=4, j=3 or 8 i1 04 eq {tf470} if i1 24 eq {tf570} if i1 1 i2 {/i exch def %i=0,78 400_700_400(74) i i1 eq {/xst { Xi i1 get 550 sub CX div MULX mul} bind def /yst {IORY Yi i1 get MULY mul add} bind def xst yst moveto } if i i1 gt i i2 lt and {%i>1 and <=i2 /x20 { Xi i 1 add get 550 sub CX div MULX mul} bind def /y20 {IORY Yi i 1 add get MULY mul add} bind def x20 y20 lineto } if %i<=i2 i i2 eq {closepath fill} if } for %i=i1,i2 400_700_400(74) } if %xchartl>=4 xchartl 6 ge j 3 eq j 8 eq or and {%xchartl>=6, j=3 or 8 i1 04 eq {tf570} if i1 24 eq {tf470} if /Yi2 Yi i2 get def i2 -1 i1 {/i exch def %i=0,78 400_700_400(74) i i2 eq {/xst { Xi i2 get 550 sub CX div MULX mul} bind def /yst {IORY Yi2 Yi i2 get Yi2 sub sub MULY mul add} bind def xst yst moveto } if i i1 gt i i2 lt and {%i>i1 and ii1 and i0 %YPLi/Lo=curve data for sensitivity Li or Lo LiLo 0 eq {proz_YPLi_Yi} {proz_YPLo_Yi} ifelse /iout_OLM 1 def iout_OLM 1 eq {%iout_OLM=1 proz_LiLo_dpr } if %iout_OLM=1 %now KURVM=1 or 2 1 1 KURVM {/KURM exch def %KURM=1,2 KURM 1 eq {[ ] 0 setdash FKURI00 j get FKUGI00 j get FKUBI00 j get setrgbcolor } if %KURM=1 ILS0 0 eq KURM 2 eq and {%ILS0=0 and KURM=2 [IDAI00 j get IDAI01 j get] 0 setdash FKURI01 j get FKUGI01 j get FKUBI01 j get setrgbcolor } if %ILS0=0 and KURM=2 ILS0 0 eq {proz_curXiYi} {proz_curXiYi_i1_i2} ifelse } for %KURM=1,2 } if %KURVM>0 } for %j=0,JPPM } for %ILS0=0,ILS0M 0:stroke, 1:fill } if %ILS=0 sensitivity %******************************************************************* 50 setlinewidth ILS 1 eq {%ILS=1 saturation 0 1 JPPM {/j exch def %j=0,JPPM 50 setlinewidth [ ] 0 setdash /KURVM KURVA2 j get def %only KURVM=0,1,2 KURVM 1 ge {%KURVM>0 %YPLi/Lo=curve data for saturation Li or Lo xchartl 0 eq %not used here %i 0 1 2 3 4 5 6 7 8 9 10 11 12 %N V R O L V M G C B N S r s %W 557 620 595 570 557 545 520 495 470 457 445 420 400 ] def %im 31,5 44 39 34 31,5 29 24 19 14 11,5 09 04 0 xchartl 1 eq or {/k 6 def} if %saturation compared to Go xchartl 2 eq xchartl 3 eq or {/k 6 def} if %saturation compared to Ga xchartl 4 eq xchartl 5 eq or {/k 6 def} if %saturation compared to Ga xchartl 6 eq xchartl 7 eq or {/k 6 def} if %saturation compared to Ga LiLo 0 eq {proz_YPLi_Yi proz_YSkLi_Yi} {proz_YPLo_Yi proz_YSkLo_Yi} ifelse %now KURVM=1 or 2 1 1 KURVM {/KURM exch def %KURM=1,2 KURM 1 eq {[ ] 0 setdash FKURI10 j get FKUGI10 j get FKUBI10 j get setrgbcolor } if %KURM=1 KURM 2 eq {[IDAI10 j get IDAI11 j get] 0 setdash FKURI11 j get FKUGI11 j get FKUBI11 j get setrgbcolor } if %KURM=2 proz_curXiYi } for %KURM=1,2 } if %KURVM>0 } for %j=0,JPPM } if %ILS=1 saturation %**************************************************** LiLo 0 eq ILS 0 eq and {0 480 4 mul translate} if LiLo 0 eq ILS 1 eq and {0 480 2 mul translate} if LiLo 2 eq ILS 0 eq and {0 480 4 mul translate} if LiLo 2 eq ILS 1 eq and {0 480 2 mul translate} if X0t neg 0 translate xtr1 neg ytr1 neg translate %*************************************************** grestore %end because of clip xchartl 0 eq { 100 neg 13000 neg translate} if xchartl 1 eq { 6100 neg 13000 neg translate} if xchartl 2 eq { 100 neg 08750 neg translate} if xchartl 3 eq { 6100 neg 08750 neg translate} if xchartl 4 eq { 100 neg 4500 neg translate} if xchartl 5 eq { 6100 neg 4500 neg translate} if xchartl 6 eq { 100 neg 0250 neg translate} if xchartl 7 eq { 6100 neg 0250 neg translate} if } for %xchartl=0,07 showpage grestore %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 020 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM moveto ( ) show 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 18 %line 409 %!PS-Adobe-3.0 EPSF-3.0 CGP90-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 (CGP90-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 8 sub 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 8 sub 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 CGP91-1, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (CGP91-1,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 8 sub 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 CGP91-2, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (CGP91-2,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 8 sub 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 CGP91-3, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (CGP91-3,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 8 sub 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 CGP91-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 (CGP91-4,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 8 sub 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 CGP91-5, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (CGP91-5,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 8 sub 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 CGP91-6, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (CGP91-6,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 8 sub 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 http://farbe.li.tu-berlin.de/CGP9/CGP91-7N 220107 %%BoundingBox: 70 82 415 580 /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://farbe.li.tu-berlin.de/CGP9/CGP9.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2022010712000) /ModDate (D:20220107112000) /DOCINFO pdfmark17 [ /View [ /FitB ] /DOCVIEW pdfmark17 % !change Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TV {120 /Times-ISOL1 FS} bind def /TS {160 /Times-ISOL1 FS} bind def /TK {200 /Times-ISOL1 FS} bind def /TM {250 /Times-ISOL1 FS} bind def /TG {300 /Times-ISOL1 FS} bind def /TKi {160 /Times-ISOL1 FS} bind def /TIV {120 /TimesI-ISOL1 FS} bind def /TIS {160 /TimesI-ISOL1 FS} bind def /TIK {200 /TimesI-ISOL1 FS} bind def /TIM {250 /TimesI-ISOL1 FS} bind def /TIG {300 /TimesI-ISOL1 FS} bind def /TBV {120 /TimesB-ISOL1 FS} bind def /TBS {160 /TimesB-ISOL1 FS} bind def /TBK {200 /TimesB-ISOL1 FS} bind def /TBM {250 /TimesB-ISOL1 FS} bind def /TBG {300 /TimesB-ISOL1 FS} bind def /TBKe {160 /TimesB-ISOL1 FS} bind def /TBIV {120 /TimesBI-ISOL1 FS} bind def /TBIS {160 /TimesBI-ISOL1 FS} bind def /TBIK {200 /TimesBI-ISOL1 FS} bind def /TBIM {250 /TimesBI-ISOL1 FS} bind def /TBIG {300 /TimesBI-ISOL1 FS} bind def /SV {120 10 sub /Symbol FS} bind def /SS {160 10 sub /Symbol FS} bind def /SK {200 10 sub /Symbol FS} bind def /SM {250 12 sub /Symbol FS} bind def /SG {300 14 sub /Symbol FS} bind def /nshowG {TG show} bind def /kshowG {TIG show} bind def /bshowG {TBG show} bind def /bishowG {TBIG show} bind def /ishowG {TM 0 -50 rmoveto show 0 50 rmoveto} bind def /ebshowG {TBM 0 160 rmoveto show 0 -160 rmoveto} bind def /sshowG {SG show} bind def /nshowM {TM show} bind def /kshowM {TIM show} bind def /bshowM {TBM show} bind def /bishowM {TBIM show} bind def /ishowM {TK 0 -30 rmoveto show 0 30 rmoveto} bind def /ebshowM {TBK 0 090 rmoveto show 0 -090 rmoveto} bind def /sshowM {SM show} bind def /nshowK {TK show} bind def /kshowK {TIK show} bind def /bshowK {TBK show} bind def /bishowK {TBIK show} bind def /ishowK {TKi 0 -25 rmoveto show 0 25 rmoveto} bind def /ebshowK {TBKe 0 100 rmoveto show 0 -100 rmoveto} bind def /sshowK {SK show} bind def %CNJ0 R G B C M Y /tr000 [0.00 0.00 0.00] def %rgb-black /tr111 [1.00 1.00 1.00] def %rgb-white /tf000 {0.00 0.00 0.00 setrgbcolor} def /tf111 {1.00 1.00 1.00 setrgbcolor} def /tfn {0.00 0.00 0.00 setrgbcolor} def /tfw {1.00 1.00 1.00 setrgbcolor} def /scolors %CMYN 49 Farbkreis-Reihenfolge; 47+2 Sonder-Farben [{0.25 0.00 1.00} {0.13 0.00 1.00} {0.00 0.00 1.00} {0.00 0.13 1.00} %03 02:V {0.00 0.25 1.00} {0.00 0.38 1.00} {0.00 0.50 1.00} {0.00 0.63 1.00} %07 06:B {0.00 0.75 1.00} {0.00 0.88 1.00} {0.00 1.00 1.00} {0.00 1.00 0.88} %11 10:C {0.00 1.00 0.75} {0.00 1.00 0.63} {0.00 1.00 0.50} {0.00 1.00 0.38} %15 {0.00 1.00 0.25} {0.00 1.00 0.13} {0.00 1.00 0.00} {0.13 1.00 0.00} %19 18:G {0.25 1.00 0.00} {0.38 1.00 0.00} {0.50 1.00 0.00} {0.63 1.00 0.00} %23 {0.75 1.00 0.00} {0.88 1.00 0.00} {1.00 1.00 0.00} {1.00 0.88 0.00} %27 26:Y {1.00 0.75 0.00} {1.00 0.63 0.00} {1.00 0.50 0.00} {1.00 0.38 0.00} %31 {1.00 0.25 0.00} {1.00 0.13 0.00} {1.00 0.00 0.00} {1.00 0.00 0.13} %35 34:R {1.00 0.00 0.25} {1.00 0.00 0.38} {1.00 0.00 0.50} {1.00 0.00 0.63} %39 {1.00 0.00 0.75} {1.00 0.00 0.88} {1.00 0.00 1.00} {0.88 0.00 1.00} %43 42:M {0.75 0.00 1.00} {0.63 0.00 1.00} {0.50 0.00 1.00} {0.38 0.00 1.00} %46 {0.00 0.00 0.00} {1.00 1.00 1.00}] def %48 /ifa %Verteilung 48 Farben auf 64 Wellenlaengen ohne Purpur, 400_700/5:0_60 %0 1 2 3 4 5 6 7 8 9 i=(W-400)/5 %400 405 410 415 420 425 430 435 440 445 [00 01 01 01 02 02 03 03 04 04 %09 %450 455 460 465 470 475 480 485 490 495 05 05 05 06 06 07 07 08 09 10 %19 %500 505 510 515 520 525 530 535 540 545 11 13 15 16 17 18 18 19 20 21 %29 %550 555 560 565 570 575 580 585 590 595 22 23 24 25 26 27 28 29 30 30 %39 %600 605 610 615 620 625 630 635 640 645 31 31 32 32 33 33 34 34 34 34 %49 %650 655 660 665 670 675 680 685 690 695 700 34 34 34 34 35 35 35 35 35 35 35 48 49] def %60:R, 61:N, 62:W %colors in rgb for wavelength range 400 to 700nm /tr400 {scolors ifa 00 get get} def /tr407 {scolors ifa 01 get get} def /tr420 {scolors ifa 04 get get} def /tr432 {scolors ifa 06 get get} def /tr445 {scolors ifa 09 get get} def /tr457 {scolors ifa 61 get get} def %11->61(N) /tr470 {scolors ifa 14 get get} def /tr482 {scolors ifa 16 get get} def /tr495 {scolors ifa 19 get get} def /tr507 {scolors ifa 21 get get} def /tr520 {scolors ifa 24 get get} def /tr532 {scolors ifa 26 get get} def /tr545 {scolors ifa 29 get get} def /tr557 {scolors ifa 62 get get} def %31->62(W) /tr570 {scolors ifa 34 get get} def /tr582 {scolors ifa 36 get get} def /tr595 {scolors ifa 39 get get} def /tr607 {scolors ifa 41 get get} def /tr620 {scolors ifa 44 get get} def /tr632 {scolors ifa 46 get get} def /tr700 {scolors ifa 46 get get} def /trBe {tr470} bind def /trGe {tr520} bind def /trYe {tr570} bind def /trRe {tr620} bind def /tf400 {scolors ifa 00 get get exec setrgbcolor} def /tf407 {scolors ifa 01 get get exec setrgbcolor} def /tf420 {scolors ifa 04 get get exec setrgbcolor} def /tf432 {scolors ifa 06 get get exec setrgbcolor} def /tf445 {scolors ifa 09 get get exec setrgbcolor} def /tf457 {scolors ifa 61 get get exec setrgbcolor} def %11->61(N) /tf470 {scolors ifa 14 get get exec setrgbcolor} def /tf482 {scolors ifa 16 get get exec setrgbcolor} def /tf495 {scolors ifa 19 get get exec setrgbcolor} def /tf507 {scolors ifa 21 get get exec setrgbcolor} def /tf520 {scolors ifa 24 get get exec setrgbcolor} def /tf532 {scolors ifa 26 get get exec setrgbcolor} def /tf545 {scolors ifa 29 get get exec setrgbcolor} def /tf557 {scolors ifa 62 get get exec setrgbcolor} def %31->62(W) /tf570 {scolors ifa 34 get get exec setrgbcolor} def /tf582 {scolors ifa 36 get get exec setrgbcolor} def /tf595 {scolors ifa 39 get get exec setrgbcolor} def /tf607 {scolors ifa 41 get get exec setrgbcolor} def /tf620 {scolors ifa 44 get get exec setrgbcolor} def /tf632 {scolors ifa 46 get get exec setrgbcolor} def /tf700 {scolors ifa 46 get get exec setrgbcolor} def /tfBe {tf470} bind def /tfGe {tf520} bind def /tfYe {tf570} bind def /tfRe {tf620} bind def /A4quer {598 0 tl 90 rotate} def /outSM {sshowM} def /outSK {sshowK} def %for output test only /tspace {dup abs 1.0 le {( ) show} if dup dup -1.0 le exch -10 gt and {( ) show} if dup dup 1.0 gt exch 10 lt and {( ) show} if dup dup 1.0 gt exch 10 ge and {( ) show} if } bind def /trushow {tspace 0.005 add 100 mul truncate 100 div 10 string cvs show} bind def /troshow {0.005 add 100 mul truncate 100 div 10 string cvs show} bind def /trushow4 {0.00005 add 10000 mul truncate 10000 div 10 string cvs show} 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 /rgbrecfi %x y width heigth r g b {setrgbcolor rec fill} bind def /rgbrecst %x y width heigth r g b {setrgbcolor rec stroke} bind def /cvishow {dup 0 ge {0.5 add} {0.5 sub} ifelse 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 /cvsshow2r {dup 0 lt {(-) show} if %with round abs 100 mul 0.5 add cvi 0.01 mul 7 string cvs show} def /cvsshow2x {/nxx exch def %example nxx=99.12/99,02 nxx 100 mul cvi /nxi exch def %nxi=9912/9902/00 nxi 100 idiv /nxa exch def %nxa=99 nxi nxa 100 mul sub /nxb exch def %nxb=12/02/00 nxa cvishow (,) show %nxb=99, nxb 10 ge {nxb cvishow} if %nxb=12 nxb 1 ge nxb 9 le and {(0) show nxb cvishow} if %nxb=02 nxb 0 eq {(00) show} if %nxb=00 } def /cvsshow2rx {dup 0 lt {(-) show} if %with round abs 100 mul 0.5 add cvi 0.01 mul /nxx exch def %example nxx=99.12/99,02 nxx 100 mul cvi /nxi exch def %nxi=9912/9902/00 nxi 100 idiv /nxa exch def %nxa=99 nxi nxa 100 mul sub /nxb exch def %nxb=12/02/00 nxa cvishow (,) show %nxb=99, nxb 10 ge {nxb cvishow} if %nxb=12 nxb 1 ge nxb 9 le and {(0) show nxb cvishow} if %nxb=02 nxb 0 eq {(00) show} if %nxb=00 } def %******************************************** /proz_data6 {%BEG proz_data6 /YEXN00 88 array def /YEXN01 88 array def /YEXN02 88 array def /YEXN03 88 array def /YEXN04 88 array def /YEXN05 88 array def /YEXN06 88 array def /YEXN07 88 array def /YEXN08 88 array def /YEXN09 88 array def /YEXN10 88 array def /YEXN11 88 array def /YEXN12 88 array def /YEXL00 88 array def /YEXL01 88 array def /YEXL02 88 array def /YEXL03 88 array def /YEXL04 88 array def /YEXL05 88 array def /YEXL06 88 array def /YEXL07 88 array def /YEXL08 88 array def /YEXL09 88 array def /YEXL10 88 array def /YEXL11 88 array def /YEXL12 88 array def /YEXP00 88 array def /YEXP01 88 array def /YEXP02 88 array def /YEXP03 88 array def /YEXP04 88 array def /YEXP05 88 array def /YEXP06 88 array def /YEXP07 88 array def /YEXP08 88 array def /YEXP09 88 array def /YEXP10 88 array def /YEXP11 88 array def /YEXP12 88 array def /Xi 88 array def /Yi 88 array def /KURVA 13 array def %13 actual curves /KURVA1 13 array def %13 curves, Sensitivity, one or two colours /KURVA2 13 array def %13 curves, Saturation, one or two colours /IDA100 13 array def %13 curves, Sensitivity, setdash, 1st part, 1st curve /IDA101 13 array def %13 curves, Sensitivity, setdash, 2nd part, 1st curve /IDA110 13 array def %13 curves, Saturation, setdash, 1st part, 1st curve /IDA111 13 array def %13 curves, Saturation, setdash, 2nd part, 1st curve /IDA200 13 array def %13 curves, Sensitivity, setdash, 1st part, 2nd curve /IDA201 13 array def %13 curves, Sensitivity, setdash, 2nd part, 2nd curve /IDA210 13 array def %13 curves, Saturation, setdash, 1st part, 2nd curve /IDA211 13 array def %13 curves, Saturation, setdash, 2nd part, 2nd curve /FKUR1 13 array def %Actual colour R, Sensitivity /FKUR2 13 array def %Actual colour R, Saturation /FKUG1 13 array def %Actual colour G, Sensitivity /FKUG2 13 array def %Actual colour G, Saturation /FKUB1 13 array def %Actual colour B, Sensitivity /FKUB2 13 array def %Actual colour B, Saturation /FKURI00 13 array def %R Colour 1, Sensitivity /FKURI01 13 array def %R Colour 2 on top, Sensitivity /FKURI10 13 array def %R Colour 1, Saturation /FKURI11 13 array def %R Colour 2 on top, Saturation /FKUGI00 13 array def %G Colour 1, Sensitivity /FKUGI01 13 array def %G Colour 2 on top, Sensitivity /FKUGI10 13 array def %G Colour 1, Saturation /FKUGI11 13 array def %G Colour 2 on top, Saturation /FKUBI00 13 array def %B Colour 1, Sensitivity /FKUBI01 13 array def %B Colour 2 on top, Sensitivity /FKUBI10 13 array def %B Colour 1, Saturation /FKUBI11 13 array def %B Colour 2 on top, Saturation % 0 1 2 3 4 5 6 7 8 9 10 11 12 % V R O L V M G C B N S r s % 557 620 595 570 557 545 520 495 470 457 445 420 400 ] def FKURI00 00 tr557 0 get put %V FKUGI00 00 tr557 1 get put FKUBI00 00 tr557 2 get put FKURI00 01 tr620 0 get put %R FKUGI00 01 tr620 1 get put FKUBI00 01 tr620 2 get put FKURI00 02 tr595 0 get put %O FKUGI00 02 tr595 1 get put FKUBI00 02 tr595 2 get put FKURI00 03 tr570 0 get put %L FKUGI00 03 tr570 1 get put FKUBI00 03 tr570 2 get put FKURI00 04 tr557 0 get put %V FKUGI00 04 tr557 1 get put FKUBI00 04 tr557 2 get put FKURI00 05 tr545 0 get put %M FKUGI00 05 tr545 1 get put FKUBI00 05 tr545 2 get put FKURI00 06 tr520 0 get put %G FKUGI00 06 tr520 1 get put FKUBI00 06 tr520 2 get put FKURI00 07 tr495 0 get put %C FKUGI00 07 tr495 1 get put FKUBI00 07 tr495 2 get put FKURI00 08 tr470 0 get put %B FKUGI00 08 tr470 1 get put FKUBI00 08 tr470 2 get put FKURI00 09 tr000 0 get put %v FKUGI00 09 tr000 1 get put FKUBI00 09 tr000 2 get put FKURI00 10 tr445 0 get put %S FKUGI00 10 tr445 1 get put FKUBI00 10 tr445 2 get put FKURI00 11 tr420 0 get put %r FKUGI00 11 tr420 1 get put FKUBI00 11 tr420 2 get put FKURI00 12 tr400 0 get put %s FKUGI00 12 tr400 1 get put FKUBI00 12 tr400 2 get put FKURI01 00 tr000 0 get put %V FKUGI01 00 tr000 1 get put FKUBI01 00 tr000 2 get put FKURI01 01 tr000 0 get put %R FKUGI01 01 tr000 1 get put FKUBI01 01 tr000 2 get put FKURI01 02 tr000 0 get put %O FKUGI01 02 tr000 1 get put FKUBI01 02 tr000 2 get put FKURI01 03 tr000 0 get put %L FKUGI01 03 tr000 1 get put FKUBI01 03 tr000 2 get put FKURI01 04 tr000 0 get put %V FKUGI01 04 tr000 1 get put FKUBI01 04 tr000 2 get put FKURI01 05 tr000 0 get put %M FKUGI01 05 tr000 1 get put FKUBI01 05 tr000 2 get put FKURI01 06 tr000 0 get put %G FKUGI01 06 tr000 1 get put FKUBI01 06 tr000 2 get put FKURI01 07 tr000 0 get put %C FKUGI01 07 tr000 1 get put FKUBI01 07 tr000 2 get put FKURI01 08 tr557 0 get put %B FKUGI01 08 tr557 1 get put FKUBI01 08 tr557 2 get put FKURI01 09 tr557 0 get put %v FKUGI01 09 tr557 1 get put FKUBI01 09 tr557 2 get put FKURI01 10 tr557 0 get put %S FKUGI01 10 tr557 1 get put FKUBI01 10 tr557 2 get put FKURI01 11 tr557 0 get put %r FKUGI01 11 tr557 1 get put FKUBI01 11 tr557 2 get put FKURI01 12 tr557 0 get put %s FKUGI01 12 tr557 1 get put FKUBI01 12 tr557 2 get put FKURI10 00 tr557 0 get put %V FKUGI10 00 tr557 1 get put FKUBI10 00 tr557 2 get put FKURI10 01 tr620 0 get put %R FKUGI10 01 tr620 1 get put FKUBI10 01 tr620 2 get put FKURI10 02 tr595 0 get put %O FKUGI10 02 tr595 1 get put FKUBI10 02 tr595 2 get put FKURI10 03 tr570 0 get put %L FKUGI10 03 tr570 1 get put FKUBI10 03 tr570 2 get put FKURI10 04 tr557 0 get put %V FKUGI10 04 tr557 1 get put FKUBI10 04 tr557 2 get put FKURI10 05 tr545 0 get put %M FKUGI10 05 tr545 1 get put FKUBI10 05 tr545 2 get put FKURI10 06 tr520 0 get put %G FKUGI10 06 tr520 1 get put FKUBI10 06 tr520 2 get put FKURI10 07 tr495 0 get put %C FKUGI10 07 tr495 1 get put FKUBI10 07 tr495 2 get put FKURI10 08 tr470 0 get put %B FKUGI10 08 tr470 1 get put FKUBI10 08 tr470 2 get put FKURI10 09 tr000 0 get put %v FKUGI10 09 tr000 1 get put FKUBI10 09 tr000 2 get put FKURI10 10 tr445 0 get put %S FKUGI10 10 tr445 1 get put FKUBI10 10 tr445 2 get put FKURI10 11 tr420 0 get put %r FKUGI10 11 tr420 1 get put FKUBI10 11 tr420 2 get put FKURI10 12 tr400 0 get put %s FKUGI10 12 tr400 1 get put FKUBI10 12 tr400 2 get put FKURI11 00 tr000 0 get put %V FKUGI11 00 tr000 1 get put FKUBI11 00 tr000 2 get put FKURI11 01 tr000 0 get put %R FKUGI11 01 tr000 1 get put FKUBI11 01 tr000 2 get put FKURI11 02 tr000 0 get put %O FKUGI11 02 tr000 1 get put FKUBI11 02 tr000 2 get put FKURI11 03 tr000 0 get put %L FKUGI11 03 tr000 1 get put FKUBI11 03 tr000 2 get put FKURI11 04 tr000 0 get put %V FKUGI11 04 tr000 1 get put FKUBI11 04 tr000 2 get put FKURI11 05 tr000 0 get put %M FKUGI11 05 tr000 1 get put FKUBI11 05 tr000 2 get put FKURI11 06 tr000 0 get put %G FKUGI11 06 tr000 1 get put FKUBI11 06 tr000 2 get put FKURI11 07 tr000 0 get put %C FKUGI11 07 tr000 1 get put FKUBI11 07 tr000 2 get put FKURI11 08 tr557 0 get put %B FKUGI11 08 tr557 1 get put FKUBI11 08 tr557 2 get put FKURI11 09 tr557 0 get put %v FKUGI11 09 tr557 1 get put FKUBI11 09 tr557 2 get put FKURI11 10 tr557 0 get put %S FKUGI11 10 tr557 1 get put FKUBI11 10 tr557 2 get put FKURI11 11 tr557 0 get put %r FKUGI11 11 tr557 1 get put FKUBI11 11 tr557 2 get put FKURI11 12 tr557 0 get put %s FKUGI11 12 tr557 1 get put FKUBI11 12 tr557 2 get put } bind def %END proz_data6 %********************************************************** /proz_ScalePQR_400_700 {%BEG proz_ScalePQR_400_700 40 setlinewidth 1 1 1 setrgbcolor TBM /tx [ (400) (500) (600) (700) (400)] def /tyl [(0,0) () (0,5) () (1,0)] def /tyl1 [( 0) () ( 1) () ( 2)] def /tye [(-2) () (-1) () ( 0)] def /tys [( -1) ( ) ( 0) ( ) ( 1) ] def /tu [ ( -3) (-1) ( 1) ( 3)] def /ty2 [(-2) ( ) ( 0) ( ) ( 2) ] def %!u-Achse: 100 Einheiten = 1200 Skalen-Einheiten ILU 1 eq {%ILU=1 0 1 3 {/i exch def %i=0,3 /ixt {-180 i 1200 mul add} def /ixl { 000 i 1200 mul add} def ixt 130 moveto tu i get exec show } for %i=0,3 3600 0.7 1200 mul add 100 sub 130 moveto (-3) show 4000 130 moveto TBIM (u) show % 550 nm; u=0.0 /ixt -180 1.50 1200 mul add def /ixl 000 1.50 1200 mul add def tf557 ixt 100 add 100 moveto ( 0) show /ixt 20 1860 add def ixt 250 sub -270 moveto (550) show ixl 75 moveto 0 -150 rlineto stroke } if %ILU=1 %!x-Achse: 100 Einheiten = 1200 Skalen-Einheiten tfw 0 1 4 {/i exch def TBM /id1 i def i 4 eq {/id1 3.7 def} if /ixt {-150 id1 1200 mul add} def /ixl { 000 id1 1200 mul add} def ixt -270 moveto tx i get exec show ixl 70 moveto 0 -120 rlineto stroke ILU 0 eq {%ILU=0 i 3 eq {TBK ixt 100 sub 100 moveto (495Ec) show} if i 4 eq {TBK ixt 100 sub 100 moveto (565Ec) show} if } if %ILU=0 } for %!x-ScaleTex TBK tfw 2700 -270 moveto (l) outSK (d) ishowM 30 0 rmoveto (/nm) nshowM 3900 -270 moveto (l) outSK (c) ishowM TBM %!y-Achse: 100 S-Einheiten = 960 = 1200*0.8 Skalen-Einheiten 0 1 4 {/i exch def /iyt {150 i 0480 mul add} def /iyl {240 i 0480 mul add} def -450 iyt moveto LiLo 0 eq {%LiLo=0 ILS 0 eq {tyl i get exec show} {ty2 i get exec show} ifelse } if %LiLo=0 LiLo 1 eq {%LiLo=1 ILS 0 eq {tye i get exec show} {tys i get exec show} ifelse } if %LiLo=1 LiLo 2 eq {%LiLo=2 ILS 0 eq {tye i get exec show} {ty2 i get exec show} ifelse } if %LiLo=2 -075 iyl moveto 150 0 rlineto stroke } for 40 setlinewidth } bind def %END proz_ScalePQR_400_700 %********************************************************** /proz_PosLine {%BEG proz_PosLine % 0 1 2 3 4 5 6 7 8 9 10 11 12 /XposW [557 620 595 570 557 545 520 495 470 457 445 420 400 ] def /XposF [(V) (R) (O) (L) (V) (M) (G) (C) (B) (N) (S) (r) (s)] def /ipos0 [1 1 1 1 1 1 0 1 1 1 1 1 1 ] def %special for g(520) 0 1 12 {/i exch def %i=0,12 iposW i get abs 1 eq {%Xpos /Xpos XposW i get 400 sub 100 div 1200 mul def %Name on top %vertical position 2400*0.8=1920 + 200 scale shift Xpos 50 sub iposW i get -1 eq {200 sub} if 1920 240 add 130 add moveto XposF i get show ipos0 i get 0 eq {(o) show} {(a) show} ifelse %vertical dashed line /Ypos 0 def xchartl 2 ge i 6 eq and {0.8 1 0 setrgbcolor /Ypos 220 def} if [100 100] 0 setdash Xpos 0 moveto 0 1920 240 add rlineto stroke [ ] 0 setdash %wavelength on bottom left or right (iposW -1 or +1) i 11 le {%i<=11 Xpos 20 add iposW i get -1 eq {450 sub} if 150 Ypos add moveto XposW i get cvishow tfw } if %i<=11 } if %Xpos } for %i=0,12 } bind def %proz_PosLine %********************************************************** /proz_TitTexrl {%BEG proz_TitTexrl ILU 1 eq {4500 750 moveto (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (=) show (\050) bshowM (l) outSM 4500 450 moveto (-550\051/50) bshowM } if ILS 1 eq {%ILS=1 4400 2650 moveto TBM tfw (saturation ) showen (S\344ttigung ) showde xchartl 0 ge xchartl 7 le and {tf570 (L) show} if } if %ILS=1 4500 2300 moveto TBM tfw (adaptation) showen (Adaptation) showde 4500 2000 moveto tfw TBM (L&B: 520) show 4500 1700 moveto tfw (t) show 0 -40 rmoveto TBK (s) show 0 40 rmoveto TBM (=) show tsa cvsshow2 /xtexr1 3200 def /xtexr2 3900 def xtexr1 3800 moveto tfw (log) bshowM 30 0 rmoveto X1 Xo xtexr2 3800 moveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM X1Win (]) TBM tfw show (2) ebshowM xtexr1 3500 moveto tfw (log) bshowM 30 0 rmoveto X2 Xo xtexr2 3500 moveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM X2Win (]) TBM tfw show (2) ebshowM %j 0 1 2 3 4 5 6 7 8 9 10 11 12 %N V R O L V M G C B N S r s %W 557 620 595 570 557 545 520 495 470 457 445 420 400 ] def %im 31,5 44 39 34 31,5 29 24 19 14 11,5 09 04 0 /YEXN03_24 YEXN03 24 get def /YVada 0.00 def xtexr1 3200 moveto tfw (log) bshowM 30 0 rmoveto X1 Xa 50 0 rmoveto tfw (= log) bshowM 50 0 rmoveto X1 Xo tfw (+) bshowM YVada abs cvsshow2rx /Yvada 0.00 def xtexr1 2900 moveto tfw (log) bshowM 30 0 rmoveto X2 Xa 50 0 rmoveto tfw (= log) bshowM 50 0 rmoveto X2 Xo tfw (+) bshowM Yvada abs cvsshow2rx ILS 0 eq {%ILS=0 xtexr1 900 add 2620 moveto tfw (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (=\050) bshowM (l) outSM (-550\051/50) bshowM } if %ILS=0 %left side /xtexl1 0050 def /xtexl2 0750 def xtexl1 3800 moveto LiLo 0 eq {(lin) show} if LiLo 1 eq LiLo 2 eq or {(log) show} if ILS 0 eq {([sensitivity]) showen ([Empfindlichkeit]) showde} if ILS 1 eq {([saturation]) showen ([S\344ttigung]) showde} if xtexl1 3500 moveto tfw (log) bshowM 30 0 rmoveto X0 Xo xtexl2 3500 moveto tfw (= -0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM X0Win (]) TBM tfw show (2) ebshowM xtexl1 3200 moveto tfw (log) bshowM 30 0 rmoveto X0 Xa 50 0 rmoveto tfw (= log) bshowM 50 0 rmoveto X0 Xo tfw xchartl 1 le {/YGada 0.00 def (+) bshowM} {/YGada YEXN03_24 neg def (-) bshowM} ifelse YGada abs cvsshow2rx tfw 010 2900 moveto LiLo 0 eq {() show} if LiLo 1 eq {(log) show} if LiLo 2 eq {(log) show} if ILS 0 eq {%iLS=0,1 ( [) bshowM xchartl 2 ge {X0 Xa tfw (, ) bshowM} if xchartl 4 ne {X1 Xa tfw (, ) bshowM} if xchartl 6 ne {X2 Xa} if tfw (]) bshowM }%ILS=0 {%ILS=1 ( [) bshowM xchartl 2 ge {X0 Xa tfw (/) bshowM X0 Xa tfw (, ) bshowM} if xchartl 5 ne {X1 Xa tfw (/) bshowM X0 Xa tfw (, ) bshowM} if xchartl 7 ne {X2 Xa tfw (/) bshowM X0 Xa} if tfw (]) bshowM } ifelse %ILS=0,1 } bind def %END proz_TitTexrl %********************************************************* /proz_YPLx_Yi_tra {%BEG proz_YPLx_Yi_tra %i 0 1 2 3 4 5 6 7 8 9 10 11 12 %N V R O L V M G C B N S r s %W 557 620 595 570 557 545 520 495 470 457 445 420 400 ] def %im 31,5 44 39 34 31,5 29 24 19 14 11,5 09 04 0 %adaptation of L3 and B8 to G6' /YEXN03_24 YEXN03 24 get def 0 1 74 {/i exch def %i=0,78: 400_700_400(74) xchartl 1 ge {%xchartl<=1 j 06 eq {YEXP06 i YEXP06 i get YEXN03_24 add put} if } if %xchartl<=1 } for %i=0,78: 400_700_400(74) } bind def %END proz_YPLx_Yi_tra %********************************************************* /proz_YPLo_Yi {%BEG proz_YPLo_Yi proz_YPLx_Yi_tra 0 1 74 {/i exch def %i=0,78: 400_700_400(74) Xi i i 5 mul 400 add put j 00 eq {Yi i YEXP00 i get put} if %V 557 j 01 eq {Yi i YEXP01 i get put} if %R 620 j 02 eq {Yi i YEXP02 i get put} if %O 595 j 03 eq {Yi i YEXP03 i get put} if %L 570 j 04 eq {Yi i YEXP04 i get put} if %V 557 j 05 eq {Yi i YEXP05 i get put} if %M 545 j 06 eq {Yi i YEXP06 i get put} if %G 520 j 07 eq {Yi i YEXP07 i get put} if %C 495 j 08 eq {Yi i YEXP08 i get put} if %B 470 j 09 eq {Yi i YEXP09 i get put} if %v 457 j 10 eq {Yi i YEXP10 i get put} if %S 445 j 11 eq {Yi i YEXP11 i get put} if %r 420 j 12 eq {Yi i YEXP12 i get put} if %s 400 } for %i=0,78: 400_700_400(74) } bind def %proz_YPLo_Yi %***************************************************** /proz_YPLi_Yi {%BEG proz_YPLi_Yi proz_YPLx_Yi_tra 0 1 74 {/i exch def %i=0,78: 400_700_400(74) Xi i i 5 mul 400 add put j 00 eq {Yi i 10 YEXP00 i get exp put} if %V 557 j 01 eq {Yi i 10 YEXP01 i get exp put} if %R 620 j 02 eq {Yi i 10 YEXP02 i get exp put} if %O 595 j 03 eq {Yi i 10 YEXP03 i get exp put} if %L 570 j 04 eq {Yi i 10 YEXP04 i get exp put} if %V 557 j 05 eq {Yi i 10 YEXP05 i get exp put} if %M 545 j 06 eq {Yi i 10 YEXP06 i get exp put} if %G 520 j 07 eq {Yi i 10 YEXP07 i get exp put} if %C 495 j 08 eq {Yi i 10 YEXP08 i get exp put} if %B 470 j 09 eq {Yi i 10 YEXP09 i get exp put} if %v 457 j 10 eq {Yi i 10 YEXP10 i get exp put} if %S 445 j 11 eq {Yi i 10 YEXP11 i get exp put} if %r 420 j 12 eq {Yi i 10 YEXP12 i get exp put} if %s 400 } for %i=0,78: 400_700_400(74) } bind def %proz_YPLi_Yi %************************************************************** /proz_YSkLo_Yi {%BEG proz_YSkLo_Yi 0 1 74 {/i exch def %i=0,78: 400_700_400(74) Xi i i 5 mul 400 add put k 00 eq {/YD YEXP00 i get def} if %V 557 k 01 eq {/YD YEXP01 i get def} if %R 620 k 02 eq {/YD YEXP02 i get def} if %O 595 k 03 eq {/YD YEXP03 i get def} if %L 570 k 04 eq {/YD YEXP04 i get def} if %V 557 k 05 eq {/YD YEXP05 i get def} if %M 545 k 06 eq {/YD YEXP06 i get def} if %G 520 k 07 eq {/YD YEXP07 i get def} if %C 495 k 08 eq {/YD YEXP08 i get def} if %B 470 k 09 eq {/YD YEXP09 i get def} if %v 457 k 10 eq {/YD YEXP10 i get def} if %S 445 k 11 eq {/YD YEXP11 i get def} if %r 420 k 12 eq {/YD YEXP12 i get def} if %s 400 j 00 eq {Yi i YEXP00 i get YD sub put} if %V 557 j 01 eq {Yi i YEXP01 i get YD sub put} if %R 620 j 02 eq {Yi i YEXP02 i get YD sub put} if %O 595 j 03 eq {Yi i YEXP03 i get YD sub put} if %L 570 j 04 eq {Yi i YEXP04 i get YD sub put} if %V 557 j 05 eq {Yi i YEXP05 i get YD sub put} if %M 545 j 06 eq {Yi i YEXP06 i get YD sub put} if %G 520 j 07 eq {Yi i YEXP07 i get YD sub put} if %C 495 j 08 eq {Yi i YEXP08 i get YD sub put} if %B 470 j 09 eq {Yi i YEXP09 i get YD sub put} if %v 457 j 10 eq {Yi i YEXP10 i get YD sub put} if %S 445 j 11 eq {Yi i YEXP11 i get YD sub put} if %r 420 j 12 eq {Yi i YEXP12 i get YD sub put} if %s 400 } for %i=0,78: 400_700_400(74) } bind def %proz_YSkLo_Yi %***************************************************** /proz_YSkLi_Yi {%BEG proz_YSkLi_Yi 0 1 74 {/i exch def %i=0,78: 400_700_400(74) Xi i i 5 mul 400 add put k 00 eq {/YD 10 YEXP00 i get exp def} if %V 557 k 01 eq {/YD 10 YEXP01 i get exp def} if %R 620 k 02 eq {/YD 10 YEXP02 i get exp def} if %O 595 k 03 eq {/YD 10 YEXP03 i get exp def} if %L 570 k 04 eq {/YD 10 YEXP04 i get exp def} if %V 557 k 05 eq {/YD 10 YEXP05 i get exp def} if %M 545 k 06 eq {/YD 10 YEXP06 i get exp def} if %G 520 k 07 eq {/YD 10 YEXP07 i get exp def} if %C 495 k 08 eq {/YD 10 YEXP08 i get exp def} if %B 470 k 09 eq {/YD 10 YEXP09 i get exp def} if %v 457 k 10 eq {/YD 10 YEXP10 i get exp def} if %S 445 k 11 eq {/YD 10 YEXP11 i get exp def} if %r 420 k 12 eq {/YD 10 YEXP12 i get exp def} if %s 400 j 00 eq {Yi i 10 YEXP00 i get exp YD div put} if %V 557 j 01 eq {Yi i 10 YEXP01 i get exp YD div put} if %R 620 j 02 eq {Yi i 10 YEXP02 i get exp YD div put} if %O 595 j 03 eq {Yi i 10 YEXP03 i get exp YD div put} if %L 570 j 04 eq {Yi i 10 YEXP04 i get exp YD div put} if %V 557 j 05 eq {Yi i 10 YEXP05 i get exp YD div put} if %M 545 j 06 eq {Yi i 10 YEXP06 i get exp YD div put} if %G 520 j 07 eq {Yi i 10 YEXP07 i get exp YD div put} if %C 495 j 08 eq {Yi i 10 YEXP08 i get exp YD div put} if %B 470 j 09 eq {Yi i 10 YEXP09 i get exp YD div put} if %v 457 j 10 eq {Yi i 10 YEXP10 i get exp YD div put} if %S 445 j 11 eq {Yi i 10 YEXP11 i get exp YD div put} if %r 420 j 12 eq {Yi i 10 YEXP12 i get exp YD div put} if %s 400 } for %i=0,78: 400_700_400(74) } bind def %proz_YPLi_Yi %************************************************************** /proz_curXiYi {%BEG proz_curXiYi /xst {Xi 0 get 550 sub CX div MULX mul} bind def /yst {IORY Yi 0 get MULY mul add} bind def /i1 01 def /i2 74 def xst yst moveto i1 1 i2 {/i exch def %i=0,72 /xst {Xi i get 550 sub CX div MULX mul} bind def /yst {IORY Yi i get MULY mul add} bind def xst yst lineto i i2 eq {stroke} if } for %i=0,72 %[ ] 0 setdash } bind def %proz_curXiYi %************************************************************** /proz_curXiYi_i1_i2 {%BEG proz_curXiYi_i1_i2 % 0 1 2 3 4 5 6 7 8 9 10 11 12 % V R O L V M G C B N S r s % 557 620 595 570 557 545 520 495 470 457 445 420 400 ] def %0:(607-400)/5=41 or %0:(620-400)/5=44 %1:(557-400)/5=31 or %1:(570-400)/5=34 %2:(507-400)/5=21 or %2:(520-400)/5=24 %3:(457-400)/5=11 or %3:(470-400)/5=14 %520_620=21_41-3 j 3 eq {/i1 24 def /i2 44 def} if j 8 eq {/i1 04 def /i2 24 def} if xchartl 4 ge j 3 eq j 8 eq or and {%xchartl>=4, j=3 or 8 i1 04 eq {tf470} if i1 24 eq {tf570} if i1 1 i2 {/i exch def %i=0,78 400_700_400(74) i i1 eq {/xst { Xi i1 get 550 sub CX div MULX mul} bind def /yst {IORY Yi i1 get MULY mul add} bind def xst yst moveto } if i i1 gt i i2 lt and {%i>1 and <=i2 /x20 { Xi i 1 add get 550 sub CX div MULX mul} bind def /y20 {IORY Yi i 1 add get MULY mul add} bind def x20 y20 lineto } if %i<=i2 i i2 eq {closepath fill} if } for %i=i1,i2 400_700_400(74) } if %xchartl>=4 xchartl 6 ge j 3 eq j 8 eq or and {%xchartl>=6, j=3 or 8 i1 04 eq {tf570} if i1 24 eq {tf470} if /Yi2 Yi i2 get def i2 -1 i1 {/i exch def %i=0,78 400_700_400(74) i i2 eq {/xst { Xi i2 get 550 sub CX div MULX mul} bind def /yst {IORY Yi2 Yi i2 get Yi2 sub sub MULY mul add} bind def xst yst moveto } if i i1 gt i i2 lt and {%i>i1 and ii1 and i0 %YPLi/Lo=curve data for sensitivity Li or Lo LiLo 0 eq {proz_YPLi_Yi} {proz_YPLo_Yi} ifelse /iout_OLM 1 def iout_OLM 1 eq {%iout_OLM=1 proz_LiLo_dpr } if %iout_OLM=1 %now KURVM=1 or 2 1 1 KURVM {/KURM exch def %KURM=1,2 KURM 1 eq {[ ] 0 setdash FKURI00 j get FKUGI00 j get FKUBI00 j get setrgbcolor } if %KURM=1 ILS0 0 eq KURM 2 eq and {%ILS0=0 and KURM=2 [IDAI00 j get IDAI01 j get] 0 setdash FKURI01 j get FKUGI01 j get FKUBI01 j get setrgbcolor } if %ILS0=0 and KURM=2 ILS0 0 eq {proz_curXiYi} {proz_curXiYi_i1_i2} ifelse } for %KURM=1,2 } if %KURVM>0 } for %j=0,JPPM } for %ILS0=0,ILS0M 0:stroke, 1:fill } if %ILS=0 sensitivity %******************************************************************* 50 setlinewidth ILS 1 eq {%ILS=1 saturation 0 1 JPPM {/j exch def %j=0,JPPM 50 setlinewidth [ ] 0 setdash /KURVM KURVA2 j get def %only KURVM=0,1,2 KURVM 1 ge {%KURVM>0 %YPLi/Lo=curve data for saturation Li or Lo xchartl 0 eq %not used here %i 0 1 2 3 4 5 6 7 8 9 10 11 12 %N V R O L V M G C B N S r s %W 557 620 595 570 557 545 520 495 470 457 445 420 400 ] def %im 31,5 44 39 34 31,5 29 24 19 14 11,5 09 04 0 xchartl 1 eq or {/k 6 def} if %saturation compared to Go xchartl 2 eq xchartl 3 eq or {/k 6 def} if %saturation compared to Ga xchartl 4 eq xchartl 5 eq or {/k 6 def} if %saturation compared to Ga xchartl 6 eq xchartl 7 eq or {/k 6 def} if %saturation compared to Ga LiLo 0 eq {proz_YPLi_Yi proz_YSkLi_Yi} {proz_YPLo_Yi proz_YSkLo_Yi} ifelse %now KURVM=1 or 2 1 1 KURVM {/KURM exch def %KURM=1,2 KURM 1 eq {[ ] 0 setdash FKURI10 j get FKUGI10 j get FKUBI10 j get setrgbcolor } if %KURM=1 KURM 2 eq {[IDAI10 j get IDAI11 j get] 0 setdash FKURI11 j get FKUGI11 j get FKUBI11 j get setrgbcolor } if %KURM=2 proz_curXiYi } for %KURM=1,2 } if %KURVM>0 } for %j=0,JPPM } if %ILS=1 saturation %**************************************************** LiLo 0 eq ILS 0 eq and {0 480 4 mul translate} if LiLo 0 eq ILS 1 eq and {0 480 2 mul translate} if LiLo 2 eq ILS 0 eq and {0 480 4 mul translate} if LiLo 2 eq ILS 1 eq and {0 480 2 mul translate} if X0t neg 0 translate xtr1 neg ytr1 neg translate %*************************************************** grestore %end because of clip xchartl 0 eq { 100 neg 13000 neg translate} if xchartl 1 eq { 6100 neg 13000 neg translate} if xchartl 2 eq { 100 neg 08750 neg translate} if xchartl 3 eq { 6100 neg 08750 neg translate} if xchartl 4 eq { 100 neg 4500 neg translate} if xchartl 5 eq { 6100 neg 4500 neg translate} if xchartl 6 eq { 100 neg 0250 neg translate} if xchartl 7 eq { 6100 neg 0250 neg translate} if } for %xchartl=0,07 showpage grestore %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 8 sub 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 CGP91-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 (CGP91-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 8 sub MM 080 MM add 008 MM translate %80 MM Breite von TestStreifen 10 /Times-ISOL1 FS 53 MM 1 MM moveto () show 1 1 scale -77 21 MM sub -91 translate %%BeginDocument: Bild 29 Teststreifen Ueberlaenge %line 509 %%EndDocument EndEPSF grestore gsave BeginEPSF -0.0 MM -0.0 MM translate %xy-Verschiebung Rechteckrahmen nach innen% %%BeginDocument: Bild 30 %Rechteckrahmen %line 519 %!PS-Adobe-3.0 EPSF-3.0 Frame arround with Internet text DG02 20070101 %%BoundingBox: 0 0 598 845 %%EndProlog gsave /lanind 1 def /lantex [(G) (E) (S) (N) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanind1 01 def /lanind2 01 def /lanindd 01 def /colorm1 00 def /colorm2 00 def /colormd 01 def /deintp1 00 def /deintp2 00 def /deintpd 01 def /xcolor1 00 def /xcolor2 00 def /xcolord 01 def /xchart1 00 def /xchart2 00 def /xchartd 01 def /pchart1 00 def /pchart2 00 def /pchartd 01 def /colsep1 00 def /colsep2 00 def /colsepd 01 def /pmetam1 00 def /pmetam2 00 def /pmetamd 01 def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} if /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} if /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} if /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} if /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 1 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} if /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} if /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} if /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES 0 def /i*ptrsc 0 def gsave 0 setgray 1.0 1.0 scale 0.0 MM 0.0 MM translate 0.15 MM setlinewidth /x 20 array def /y 20 array def /d 20 array def /x [000 296 296 000 002 294 294 002 005 291 291 005 %speziell 006 290 290 006 008 288 288 008 ] def /y [000 000 210 210 002 002 208 208 005 005 205 205 %speziell 006 006 204 204 008 008 202 202 ] def /d [060 017 -60 -17 058 015 -58 -15 056 013 -56 -13 054 011 -54 -11 052 009 -52 -09 ] def colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart xchart3 lt {/Txx (-) def /Fxx (-) def} if xchart xchart3 ge {%xchart>=xchart3 /i0 12 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def 2.5 MM /Times-ISOL1 FS x i0 get MM 40 MM add y i0 get MM 1 MM sub moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolor cvishow xchart cvishow pchart cvishow colsep cvishow (-F) show pmetam cvishow } if %xchart>=xchart3 /xt 1 def xchart 1 eq {/xt 1 def} if xt 0 eq {%xt=0,1 ifelse /i0 12 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def 2.5 MM /Times-Roman FS x i0 get MM 110 MM add y i0 get MM 1 MM sub moveto (http://farbe.li.tu\255berlin.de/CGP9/CGP9) show colorm cvishow deintp cvishow colorm 0 eq {(N) show} {(F) show} ifelse (P.PDF & ) show (http://farbe.li.tu\255berlin.de/CGP9/CGP9) show colorm cvishow deintp cvishow colorm 0 eq {(N) show} {(F) show} ifelse (P.TXT & ) show (http://farbe.li.tu\255berlin.de/CGP9/CGP9.HTM) show 2.5 MM /Times-ISOL1 FS } %xt=0 { %xt=1 /xlu 017 MM def /ylu 017 MM def /xro 279 MM def /yro 193 MM def /xlo 017 MM def /ylo 193 MM def /xru 279 MM def /yru 017 MM def xlu 8 MM sub ylu moveto 16 MM 0 rlineto stroke xlu ylu 8 MM sub moveto 0 16 MM rlineto stroke xro 8 MM add yro moveto -16 MM 0 rlineto stroke xro yro 8 MM add moveto 0 -16 MM rlineto stroke xru 8 MM sub yru moveto 16 MM 0 rlineto stroke xru yru 8 MM sub moveto 0 16 MM rlineto stroke xlo 8 MM add ylo moveto -16 MM 0 rlineto stroke xlo ylo 8 MM add moveto 0 -16 MM rlineto stroke 1 2 7 {/i exch def %Zentrierkreise xlu ylu i MM 0 360 arc stroke xro yro i MM 0 360 arc stroke xru yru i MM 0 360 arc stroke xlo ylo i MM 0 360 arc stroke } for %i 12 4 16 {/i exch def /i0 i def %i=0,16 %0 4 16 {/i exch def /i0 i def %i=0,16 /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse 0 setgray x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto x i0 get MM y i0 get MM lineto stroke i 16 eq {6 /Times-ISOL1 FS /x00 67 def /xdif 32 def /y0o 202.3 def /y0u 6.3 def /x0l 6.1 def /x0r 288 def /y00 22 def /ydif 32 def x00 xdif 0 mul add MM y0o MM moveto (V) show x00 xdif 0 mul add MM y0u MM moveto (C) show x00 xdif 1 mul add MM y0o MM moveto (L) show x00 xdif 1 mul add MM y0u MM moveto (M) show x00 xdif 2 mul add MM y0o MM moveto (O) show x00 xdif 2 mul add MM y0u MM moveto (Y) show x00 xdif 3 mul add MM y0o MM moveto (Y) show x00 xdif 3 mul add MM y0u MM moveto (O) show x00 xdif 4 mul add MM y0o MM moveto (M) show x00 xdif 4 mul add MM y0u MM moveto (L) show x00 xdif 5 mul add MM y0o MM moveto (C) show x00 xdif 5 mul add MM y0u MM moveto (V) show x0l MM y00 ydif 0 mul add MM moveto (V) show x0r MM y00 ydif 0 mul add MM moveto (C) show x0l MM y00 ydif 1 mul add MM moveto (L) show x0r MM y00 ydif 1 mul add MM moveto (M) show x0l MM y00 ydif 2 mul add MM moveto (O) show x0r MM y00 ydif 2 mul add MM moveto (Y) show x0l MM y00 ydif 3 mul add MM moveto (Y) show x0r MM y00 ydif 3 mul add MM moveto (O) show x0l MM y00 ydif 4 mul add MM moveto (M) show x0r MM y00 ydif 4 mul add MM moveto (L) show x0l MM y00 ydif 5 mul add MM moveto (C) show x0r MM y00 ydif 5 mul add MM moveto (V) show } if } for %i=0,16 0 1 10 {/j0 exch def /j1 j0 1 add def %j0 j0 0 eq {tzcolv* setrgbcolor} if j0 1 eq {0 setgray} if j0 2 eq {tzmolv* setrgbcolor} if j0 3 eq {0 setgray} if j0 4 eq {tzyolv* setrgbcolor} if j0 5 eq {0 setgray} if j0 6 eq {tzoolv* setrgbcolor} if j0 7 eq {0 setgray} if j0 8 eq {tzlolv* setrgbcolor} if j0 9 eq {0 setgray} if j0 10 eq {tzvolv* setrgbcolor} 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 {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=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 /10TIN {10 /Times-ISOL1 FS} def /10TRN {10 /Times-Roman FS} def /12TIN {12 /Times-ISOL1 FS} def /12TRN {12 /Times-Roman FS} def /10TII {10 /TimesI-ISOL1 FS} def /10TRI {10 /Times-Italic FS} def /12TII {12 /TimesI-ISOL1 FS} def /12TRI {12 /Times-Italic FS} def /10TIB {10 /TimesB-ISOL1 FS} def /10TRB {10 /Times-Bold FS} def /12TIB {12 /TimesB-ISOL1 FS} def /12TRB {12 /Times-Bold FS} def /10TIBI {10 /TimesBI-ISOL1 FS} def /10TRBI {10 /Times-BoldItalic FS} def /12TIBI {12 /TimesBI-ISOL1 FS} def /12TRBI {12 /Times-BoldItalic FS} def %special /10TIN_10 {10TIN 0 -2 rmoveto xcolor 1 eq {(10) show} if 0 2 rmoveto} def /10TINK10 {10TIN 0 -2 rmoveto xcolor 1 eq {(,10) show} if 0 2 rmoveto} def /TELi 8 array def /TELi [(D65) (D50) (P40) (A00) (E00) (C00) (P00) (Q00)] def /xchart4 0 def /xchartA 9 def 0 setgray 12 /Times-ISOL1 FS 61 MM 13.5 MM moveto (TUB\255Pr\374fvorlage CGP9; ) showde (TUB\255test chart CGP9; ) showen (gr\341fico TUB\255CGP9; ) showes (TUB\255test graphique CGP9; ) showfr (grafico TUB\255CGP9; ) showit (TUB\255test chart CGP9; ) showjp xchartA 0 eq xchartA 1 eq or {%xchartA=0,1 (Zapfenverh\344ltnis L:M:S->L/V & M/V & S/V, ) showde (Retina-cone ratio L:M:S->L/V & M/V & S/V, ) showen } if %xchartA=0,1 xchartA 2 eq xchartA 4 eq or {%xchartA=2,4 (Empfindlichkeit LMV->L/V & M/V, ) showde (sensitivity LMV->L/V & M/V, ) showen } if %xchartA=2,4 xchartA 3 eq xchartA 5 eq or xchartA 6 eq or {%xchartA=3,5,6 (Empfindlichkeit LMO->M/L & O/L, ) showde (sensitivity LMO->M/L & O/L, ) showen } if %xchartA=3,5,6 xchartA 7 eq {%xchartA=7 (Empfindlichkeit LMO->L/V & O/V, ) showde (sensitivity LMO->L/V & O/V, ) showen } if %xchartA=7 xchartA 8 eq {%xchartA=8 (Empfindlichkeit 557,457,507, VNg->V/g & N/g, ) showde (sensitivity 557,457,507, VNg->V/g & N/g, ) showen } if %xchartA=8 xchartA 9 eq {%xchartA=8 (Empfindlichkeit 570,470,520, LBG->L/G & B/G, ) showde (sensitivity 570,470,520, LBG->L/G & B/G, ) showen } if %xchartA=9 %BEG for ALL xchart4 1 le {(lin[Schwellen]=0 & 0,04) showde} if xchart4 2 eq {(lin[Schwellen]=0 & 0,10) showde} if xchart4 1 le {(lin[thresholds]=0 & 0,04) showen} if xchart4 2 eq {(lin[thresholds]=0 & 0,10) showen} if 61 MM 09.5 MM moveto 12 /Times-ISOL1 FS xchart4 0 eq {%xchart4=0 (lin[Empfindlichkeit], lin[Verh\344ltnis], ) showde (lin[sensitivity] and lin[ratio], ) showea } if %xchart4=0 xchart4 1 eq {%xchart4=1 (log[Empfindlichkeit], log[Verh\344ltnis], ) showde (log[sensitivity] and log[ratio], ) showea } if %xchart4=1 xchart4 2 eq {%xchart4=2 (log[Empfindlichkeit], log[Verh\344ltnis], ) showde (log[sensitivity] and log[ratio], ) showea } if %xchart4=2 %END for ALL xchartA 0 eq {%xchartA=0 (LMS\255R21, ) show (L:M:S=) show (Rot:Gr\374n:Blau) showde (Red:Green:Blue) showen (=16:8:1) show } if %xchartA=0 xchartA 1 eq {%xchartA=1 %(LMS\255R21, ) show %(=570,545,445, ) show (L:M:S=) show (Gelb:gr\374nliches Gelb:r\366tliches Blau) showde (Yellow:greenish Yellow:redish Blue) showen (=16:8:1) show } if %xchartA=1 xchartA 2 eq {%xchartA=2 (LMS\255R21) show (=570,545,557, ) show (adaptation 557) showen (Adaptation 557) showde } if %xchartA=2 xchartA 3 eq {%xchartA=3 (LMS\255R21) show (=595,570,545, ) show (adaptation 570) showen (Adaptation 570) showde } if %xchartA=3 xchartA 4 eq {%xchartA=4 (LMS\255R21, ) show %(=570,557,545, ) show (4 adaptations: 620,570,520,470) showen (4 Adaptationen: 620,570,520,470) showde } if %xchartA=4 xchartA 5 eq {%xchartA=5 (LMS\255R21, ) show %(=595,570,545, ) show (4 adaptations: 595,570,545,520) showen (4 Adaptationen: 595,570,545,520) showde } if %xchartA=5 xchartA 6 eq {%xchartA=6 (LMS\255R21, ) show %(=595,570,545, ) show (4 adaptations: 620,570,520,470) showen (4 Adaptationen: 620,570,520,470) showde } if %xchartA=6 xchartA 7 eq {%xchartA=7 (LMS\255R21, ) show %(=595,570,545, ) show (4 adaptations: 595,570,545,520) showen (4 Adaptationen: 595,570,545,520) showde } if %xchartA=7 xchartA 8 eq {%xchartA=8 (LMS\255R21) show (=557,457,507, ) show (WN\255Antigonismus) showde (WN antigonisme) showen } if %xchartA=8 xchartA 9 eq {%xchartA=9 (LMS\255R21) show (=570,470,520, ) show (YB\255Antigonismus) showde (YB antigonisme) showen } if %xchartA=9 /iout 0 def iout 1 eq {%iout=1 12 /Times-ISOL1 FS 175 MM 13.5 MM moveto (Eingabe: ) showde (input: ) showen (entrada: ) showes (entr\351e: ) showfr (immettere: ) showit (input: ) showjp 12 /TimesI-ISOL1 FS (w/rgb/cmyk -> rgb) show 12 /Times-ISOL1 FS 168 MM 9.5 MM moveto (Ausgabe: ) showde (output: ) showen (salida: ) showes (sortie: ) showfr (uscita: ) showit (output: ) showjp %colorm=0,1! 12 /Times-ISOL1 FS (keine \304nderung) showde (no change) showen (ning\372n cambio) showes (aucun changement) showfr (nessun cambiamento) showit (no change compared) showjp } if %iout=1 12 /Times-ISOL1 FS 62 MM 198.5 MM moveto 12TRN (http://farbe.li.tu-berlin.de/CGP9/CGP9L) show 12TIN (0) show % LSC$ show LEX$ show (; only vector graphic VG) showen (; nur Vektorgrafik VG) showde (; ) show (Start\255Ausgabe) showde (start output) showen (comience salida) showes (sortie de production) showfr (cominciare l'uscita) showit (start output) showjp 62 MM 194 MM moveto LSC$ (N) eq LSC$ (C) eq or { (N: Keine 3D\255Linearisierung (OL) ) showde (N: no 3D\255linearization (OL) ) showen (N: ninguna 3D\255linealizaci\363n (OL) ) showes (N: aucun linearisation 3D (OL) ) showfr (N: nessun 3D\255linearizzazione (OL) ) showit (N: no 3D\255linearization (OL) ) showjp (in Datei (F) oder PS\255Startup (S)) showde (in file (F) or PS\255startup (S)) showen (en archivo (F) o PS\255startup (S)) showes (dans fichier (F) ou PS\255startup (S)) showfr (nel file (F) o PS\255startup (S)) showit (in file (F) or PS\255startup (S)) showjp } {LSC$ show (: ) show (3D\255Linearisierung) showde (3D\255linearization) showen (3D\255linealizaci\363n) showes (linearisation 3D) showfr (3D\255linearizzzazione) showit (3D\255linearization) showjp ( CGP9/CGP9L) show LSS$ show LSX$ show (0) show % LSC$ show LEY$ show } ifelse LSC$ (F) eq { ( in Datei (F)) showde ( in file (F)) showen ( en archivo (F)) showes ( dans fichier (F)) showfr ( nel file (F)) showit ( in file (F)) showjp } if LSC$ (S) eq { ( im Distiller Startup (S) Directory) showde ( in Distiller Startup (S) Directory) showen ( en el Distiller Startup (S) Directory) showes ( dans le Distiller Startup (S) Directory) showfr ( nel Distiller Startup (S) Directory) showit ( in Distiller Startup (S) Directory) showjp %5CGP9X-Y 1800# } if LSC$ (D) eq { ( in PS\255Device (D)) showde ( in PS\255device (D)) showen ( en el PS\255device (D)) showes ( dans l'appareil PS (D)) showfr ( nel PS\255dispositivo (D)) showit ( in PS\255Device (D)) showjp } if LSC$ (T) eq { ( im Distiller Startup (S) Directory) showde ( in Distiller Startup (S) Directory) showen ( en el Distiller Startup (S) Directory) showes ( dans le Distiller Startup (S) Directory) showfr ( nel Distiller Startup (S) Directory) showit ( in Distiller Startup (S) Directory) showjp } if LSC$ (E) eq { ( in PS\255Device (D)) showde ( in PS\255device (D)) showen ( en el PS\255device (D)) showes ( dans appareil PS (D)) showfr ( nel PS\255dispositivo (D)) showit ( in PS\255Device (D)) showjp } if %0 setgray %end white and unvisible (, Seite ) showde (, page ) showen (, p\341gina ) showes (, page ) showfr (, pagina ) showit (, page ) showjp %5CGP9X-Y 2200# xchart 1 add cvishow (/) show xchartm cvishow 16 MM 185 MM moveto -90 rotate (Siehe \344hnliche Dateien: ) showde (see similar files: ) showen (vea archivos semejantes: ) showes (voir des fichiers similaires: ) showfr (vedere dei file simili: ) showit (see similar files: ) showjp 12TRN (http://farbe.li.tu-berlin.de/CGP9/CGP9.HTM) show 12TIN 90 rotate 12 MM 185 MM moveto -90 rotate (Technische Information: ) showde (technical information: ) showen (informaci\363n t\351cnica: ) showes (informations techniques: ) showfr (informazioni tecniche: ) showit (technical information: ) showjp 12TRN (http://farbe.li.tu-berlin.de) show 12TIN ( oder ) showde ( or ) showen ( o ) showes ( ou ) showfr ( o ) showit ( or ) showjp 12TRN (http://color.li.tu-berlin.de) show 12TIN 90 rotate 281 MM 185 MM moveto -90 rotate (TUB\255Registrierung: 20220301\255CGP9/CGP9L) showde (TUB registration: 20220301\255CGP9/CGP9L) showen (TUB matr\355cula: 20220301\255CGP9/CGP9L) showes (TUB enregistrement: 20220301\255CGP9/CGP9L) showfr (TUB iscrizione: 20220301\255CGP9/CGP9L) showit (TUB registration: 20220301\255CGP9/CGP9L) showjp (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 (TUB material: code=rha4ta) showes (TUB mat\351riel: code=rha4ta) showfr (TUB materiale: code=rha4ta) showit (TUB material: code=rha4ta) showjp 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 Beurteilung und Messung ) showde ( application for evaluation and measurement ) showen ( aplicaci\363n para la medida ) showes ( application pour la mesure ) showfr ( la domanda per la misura ) showit ( application for measurement ) showjp xchart5f 0 eq {%xchart5f=0 (von Display\255 oder Druck\255Ausgabe) showde (of display or print output) showen (de display output) showes (de sortie sur \350cran) showfr (di stampa di display) showit (of display output) showjp } if %xchart5f=0 xchart5f 1 eq xchart5f 2 eq or {%xchart5f=1,2 (von Offsetdruck\255Ausgabe) showde (of offset print output) showen (salida en la impressi\363n offset) showes (des sorties sur offset) showfr (uscita nella stampa di offset) showit (of offset print output) showjp } if %xchart5f=1,2 xchart5f 3 eq {%xchart5f=3 (von Laserdrucker\255Ausgabe) showde (of laser printer output) showen (salida de impresora l\341ser) showes (des sorties sur imprimante laser) showfr (di uscita della stampante laser) showit (of laser printer output) showjp } if %xchart5f=3 90 rotate /i0 8 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def 0.30 MM setlinewidth 0 setgray x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto x i0 get MM y i0 get MM lineto stroke %/xlu1 013 MM def /ylu1 010 MM def %/xro1 283 MM def /yro1 200 MM def %/xlo1 013 MM def /ylo1 200 MM def %/xru1 283 MM def /yru1 010 MM def %xlu1 4 MM sub ylu1 moveto 8 MM 0 rlineto stroke %xlu1 ylu1 4 MM sub moveto 0 8 MM rlineto stroke %xro1 4 MM add yro1 moveto -8 MM 0 rlineto stroke %xro1 yro1 4 MM add moveto 0 -8 MM rlineto stroke %xru1 4 MM sub yru1 moveto 8 MM 0 rlineto stroke %xru1 yru1 4 MM sub moveto 0 8 MM rlineto stroke %xlo1 4 MM add ylo1 moveto -8 MM 0 rlineto stroke %xlo1 ylo1 4 MM add moveto 0 -8 MM rlineto stroke } ifelse %xt=1 grestore gsave %********************************************************** %%Trailer %%EndDocument EndEPSF grestore gsave showpage grestore %} for %colsepf=0,1 %} for pchartf=0,0 %} for %xchartf=0,1 %} for %xcolorf=3,3 %} for %deintpf=0,1 %} for %colormf=0,1 %} for %lanindf=0,0 %%Trailer