%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/fgq9/fgq91-3n 240107 %%BoundingBox: 70 85 415 335 /pdfmark13 where {pop} {userdict /pdfmark13 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [/Title (PostScript pictures: http://farbe.li.tu-berlin.de/fgq9/fgq9.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:2024010712000) /ModDate (D:20240107112000) /DOCINFO pdfmark13 [ /View [ /FitB ] /DOCVIEW pdfmark13 % !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 4500 neg translate} if xchartl 1 eq { 6100 neg 4500 neg translate} if xchartl 2 eq { 100 neg 0250 neg translate} if xchartl 3 eq { 6100 neg 0250 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