%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/her4/her40-6a
%%BoundingBox: 70 85 236 206
%START PDFDE011.EPS
/pdfmark06 where {pop} {userdict /pdfmark06 /cleartomark load put} ifelse
/languagelevel where {pop languagelevel} {1} ifelse
2 lt { userdict (<<) cvn ([) cvn load put
userdict (>>) cvn (]) cvn load put} if
[/Title (PostScript pictures: farbe.li.tu-berlin.de/her4/her4.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:2024120112000)
/ModDate (D:20241201112000)
/DOCINFO pdfmark06
[ /View [ /Fit ]
/DOCVIEW pdfmark06
%END PDFDE011
%SETCMYK_OLV.PS
/setcmyk_olvcolor %transfer cmyk to olv
{/ncolor exch def /ycolor exch def
/mcolor exch def /ccolor exch def
ncolor 0 eq {1 ccolor sub
1 mcolor sub
1 ycolor sub setrgbcolor
}
{ccolor 0 eq
mcolor 0 eq and
ycolor 0 eq and {%only black n
1 ncolor sub
dup
dup
setrgbcolor
}
{%cmy and black n
1 ccolor sub 1 ncolor sub mul
1 mcolor sub 1 ncolor sub mul
1 ycolor sub 1 ncolor sub mul
setrgbcolor
} ifelse
} ifelse
} bind def
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string } bind def
/A4querL {598 0 translate 90 rotate} def
/languagelevel where {pop languagelevel} {1} ifelse
/PSL12 exch def
/dictende {counttomark 2 idiv dup dict begin {def}
repeat pop currentdict end} bind def
/Times-Roman findfont dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/Times-ISOL1 exch definefont pop
/Times-Italic findfont dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/TimesI-ISOL1 exch definefont pop
/Times-Bold findfont dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/TimesB-ISOL1 exch definefont pop
/Times-BoldItalic findfont dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/TimesBI-ISOL1 exch definefont pop
/Courier findfont dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/Courier-ISOL1 exch definefont pop
/Courier-Bold findfont dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/CourierB-ISOL1 exch definefont pop
%font0311.ps***********************************************
/CW {100 /Courier-ISOL1 FS} bind def
/CV {150 /Courier-ISOL1 FS} bind def
/CS {200 /Courier-ISOL1 FS} bind def
/CK {250 /Courier-ISOL1 FS} bind def
/CM {300 /Courier-ISOL1 FS} bind def
/CG {350 /Courier-ISOL1 FS} bind def
/CBW {100 /CourierB-ISOL1 FS} bind def
/CBV {150 /CourierB-ISOL1 FS} bind def
/CBS {200 /CourierB-ISOL1 FS} bind def
/CBK {250 /CourierB-ISOL1 FS} bind def
/CBM {300 /CourierB-ISOL1 FS} bind def
/CBG {350 /CourierB-ISOL1 FS} bind def
/RW {100 /Times-Roman FS} bind def
/RV {150 /Times-Roman FS} bind def
/RS {200 /Times-Roman FS} bind def
/RK {250 /Times-Roman FS} bind def
/RM {300 /Times-Roman FS} bind def
/RG {350 /Times-Roman FS} bind def
/RIW {100 /Times-Italic FS} bind def
/RIV {150 /Times-Italic FS} bind def
/RIS {200 /Times-Italic FS} bind def
/RIK {250 /Times-Italic FS} bind def
/RIM {300 /Times-Italic FS} bind def
/RIG {350 /Times-Italic FS} bind def
/RBW {100 /Times-Bold FS} bind def
/RBV {150 /Times-Bold FS} bind def
/RBS {200 /Times-Bold FS} bind def
/RBK {250 /Times-Bold FS} bind def
/RBM {300 /Times-Bold FS} bind def
/RBG {350 /Times-Bold FS} bind def
/RBIW {100 /Times-BoldItalic FS} bind def
/RBIV {150 /Times-BoldItalic FS} bind def
/RBIS {200 /Times-BoldItalic FS} bind def
/RBIK {250 /Times-BoldItalic FS} bind def
/RBIM {300 /Times-BoldItalic FS} bind def
/RBIG {350 /Times-BoldItalic FS} bind def
/TW {100 /Times-ISOL1 FS} bind def
/TV {150 /Times-ISOL1 FS} bind def
/TS {200 /Times-ISOL1 FS} bind def
/TK {250 /Times-ISOL1 FS} bind def
/TM {300 /Times-ISOL1 FS} bind def
/TG {350 /Times-ISOL1 FS} bind def
/TIW {100 /TimesI-ISOL1 FS} bind def
/TIV {150 /TimesI-ISOL1 FS} bind def
/TIS {200 /TimesI-ISOL1 FS} bind def
/TIK {250 /TimesI-ISOL1 FS} bind def
/TIM {300 /TimesI-ISOL1 FS} bind def
/TIG {350 /TimesI-ISOL1 FS} bind def
/TBW {100 /TimesB-ISOL1 FS} bind def
/TBV {150 /TimesB-ISOL1 FS} bind def
/TBS {200 /TimesB-ISOL1 FS} bind def
/TBK {250 /TimesB-ISOL1 FS} bind def
/TBM {300 /TimesB-ISOL1 FS} bind def
/TBG {295 /TimesB-ISOL1 FS} bind def
/TBIW {100 /TimesBI-ISOL1 FS} bind def
/TBIV {150 /TimesBI-ISOL1 FS} bind def
/TBIS {200 /TimesBI-ISOL1 FS} bind def
/TBIK {250 /TimesBI-ISOL1 FS} bind def
/TBIM {300 /TimesBI-ISOL1 FS} bind def
/TBIG {350 /TimesBI-ISOL1 FS} bind def
/SW {100 /Symbol FS} bind def
/SV {150 /Symbol FS} bind def
/SS {200 /Symbol FS} bind def
/SK {250 /Symbol FS} bind def
/SM {300 /Symbol FS} bind def
/SG {350 /Symbol FS} bind def
/tfn {0 setgray} bind def /tfw {1 setgray} bind def
/tfbs {0 0.5 1 setrgbcolor} bind def
%font0311.ps***********************************************
/cvishow {0.5 add cvi 6 string cvs show} def
/cvsshow1 {0.05 add 10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2 {0.005 add 100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3 {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show} def
/MULX 1250 def
/proz_curve_MUXY {%BEG proz_curve_MUXY
0 3 27 {/k exch def %k=0,27
k 0 eq {%k=0
/xst {Xi k get MULX mul} bind def
/yst {Yi k get MULY mul} bind def
xst yst moveto
} if %k=0
/xst {Xi k get MULX mul} bind def
/yst {Yi k get MULY mul} bind def
/x20 {Xi k 1 add get MULX mul} bind def
/y20 {Yi k 1 add get MULY mul} bind def
/x21 {Xi k 2 add get MULX mul} bind def
/y21 {Yi k 2 add get MULY mul} bind def
/x22 {Xi k 3 add get MULX mul} bind def
/y22 {Yi k 3 add get MULY mul} bind def
x20 y20 x21 y21 x22 y22 curveto
} for %k=0,27
stroke
} bind def %END proz_curve_MUXY
%*******************************************************************
/proz_eq_table {%BEG proz_eq_table
/xwtab 4700 def
/ywtab 2600 def
/i0eq ixeq xwtab add 420 sub def
/iyeq0 360 def
/iyeqt iyeq 100 add def
60 setlinewidth
1 setgray
ixeq 050 sub iyeq ywtab sub 400 add moveto
xwtab 0000 rlineto 0000 ywtab rlineto
xwtab neg 0000 rlineto fill
0 setgray
ixeq 050 sub iyeq ywtab sub 400 add moveto
xwtab 0000 rlineto 0000 ywtab rlineto
xwtab neg 0000 rlineto closepath stroke
%always L*-Table
ixeq iyeqt moveto
TIM (L*) show TM ( =) show TIM (V ) show TM (\050) show
TIM (L) show TK 0 -80 rmoveto (s) show 0 80 rmoveto TM (/) show
TIM (s) show TM (\051) show TK 0 80 rmoveto (n) show 0 -80 rmoveto TM
TM ([\0501-) show TIM (s) show TM (+) show TIM (s) show 50 0 rmoveto
TIM (L) show TM (/) show TIM (L) show
TK 0 -80 rmoveto (s) show 0 80 rmoveto TM (\051) show
TK 0 80 rmoveto (n) show 0 -80 rmoveto TM
TM (-1]) show
i0eq iyeqt moveto TM ([1]) show
ixeq iyeqt iyeq0 1 mul sub moveto
ixeq iyeqt iyeq0 1 mul sub moveto
TIM (n) show TM ( = -0,25) show
i0eq iyeqt iyeq0 1 mul sub moveto TM ([2]) show
ixeq iyeqt iyeq0 2 mul sub moveto
TIM (V) show TM ( = 1/\0500,036) show
50 0 rmoveto TIM (n) show 50 0 rmoveto (L) show
TK 0 -80 rmoveto (u) show 0 80 rmoveto TM
TK -80 80 rmoveto (-0,30) show 0 -80 rmoveto TM (\051) show
i0eq iyeqt iyeq0 2 mul sub moveto TM ([3]) show
ixeq iyeqt iyeq0 3 mul sub moveto
TIM (L) show TK 0 -80 rmoveto (s) show 0 80 rmoveto
TM ( = 0,025) show 50 0 rmoveto TIM (L) show
TK 0 -80 rmoveto (u) show 0 80 rmoveto TM
TK -80 80 rmoveto (0,705) show 0 -80 rmoveto TM
i0eq iyeqt iyeq0 3 mul sub moveto TM ([4]) show
ixeq iyeqt iyeq0 4 mul sub moveto
TIM (s) show TM ( = 1/[1+\050) show
50 0 rmoveto TIM (n V L) show
TK 0 -80 rmoveto (s) show 0 80 rmoveto TM
TK -80 80 rmoveto (n) show 0 -80 rmoveto TM
TM (\051) show
TK 00 80 rmoveto (1/\0501\255) show
TIK (n) show TK (\051) show 0 -80 rmoveto TM
TM (]) show
i0eq iyeqt iyeq0 4 mul sub moveto TM ([5]) show
ixeq iyeqt iyeq0 5 mul sub moveto
TIM (L) show TK 0 -80 rmoveto (u) show 0 80 rmoveto TM
TM ( = 0,1; 1; 10; 100; 1000 cd/m) show
TK 00 80 rmoveto (2) show 0 -80 rmoveto TM
i0eq iyeqt iyeq0 5 mul sub moveto TM ([6]) show
%delLi i y01 y02 mul y05 mul put %{1/[n*V]}*{[Ls/s]**(1-n)}
%*{1-s+[s*L/Ls]}**(1-n)}
%always dL-Table
ixeq iyeqt iyeq0 6 mul sub moveto
TIM (dL) show TM (=[1/n) show TIM (V) show TM (][) show
TIM (L) show TK 0 -80 rmoveto (s) show 0 80 rmoveto TM (/) show TIM (s) show
TM (]) show TK 0 80 rmoveto (1-n) show 0 -80 rmoveto
TM ([1-) show TIM (s) show TM (+) show TIM (s) show 50 0 rmoveto
TIM (L) show TM (/) show TIM (L) show
TK 0 -80 rmoveto (s) show 0 80 rmoveto TM (]) show
TK 0 80 rmoveto (1-n) show 0 -80 rmoveto
i0eq iyeqt iyeq0 6 mul sub moveto TM ([7]) show
} bind def %END proz_eq_table
%****************************************************
/proz_eq_tabl2 {%BEG proz_eq_tabl2
/xwtab 5250 def
/ywtab 0800 def
/i0eq ixeq xwtab add 520 sub def
/iyeq0 360 def
/iyeqt iyeq 100 add def
60 setlinewidth
1 setgray
ixeq 050 sub iyeq ywtab sub 400 add moveto
xwtab 0000 rlineto 0000 ywtab rlineto
xwtab neg 0000 rlineto fill
0 setgray
ixeq 050 sub iyeq ywtab sub 400 add moveto
xwtab 0000 rlineto 0000 ywtab rlineto
xwtab neg 0000 rlineto closepath stroke
%always L*-Table
ixeq iyeqt moveto
TIM (L*) show TM ( =) show TIM (V ) show TM (\050) show
TIM (L) show TK 0 -80 rmoveto (s) show 0 80 rmoveto TM (/) show
TIM (s) show TM (\051) show TK 0 80 rmoveto (n) show 0 -80 rmoveto TM
TM ([\0501-s\050) show
TIM (L) show TM (-) show TIM (L) show
TK 0 -80 rmoveto (s) show 0 80 rmoveto
TM (\051/) show
TIM (L) show TK 0 -80 rmoveto (s) show 0 80 rmoveto
TM (\051) show
TK 0 80 rmoveto (n) show 0 -80 rmoveto TM
TM (-1]) show
i0eq iyeqt moveto TM ([8]) show
%delLi i y01 y02 mul y05 mul put %{1/[n*V]}*{[Ls/s]**(1-n)}
%*{1-s+[s*L/Ls]}**(1-n)}
%always dL-Table
ixeq iyeqt iyeq0 1 mul sub moveto
TIM (dL) show TM (=[1/n) show TIM (V) show TM (][) show
TIM (L) show TK 0 -80 rmoveto (s) show 0 80 rmoveto TM (/) show TIM (s) show
TM (]) show TK 0 80 rmoveto (1-n) show 0 -80 rmoveto
TM ([\0501-s\050) show
TIM (L) show TM (-) show TIM (L) show
TK 0 -80 rmoveto (s) show 0 80 rmoveto
TM (\051/) show
TIM (L) show TK 0 -80 rmoveto (s) show 0 80 rmoveto
TM (\051) show
TK 0 80 rmoveto (1-n) show 0 -80 rmoveto TM
TM (]) show
i0eq iyeqt iyeq0 1 mul sub moveto TM ([9]) show
} bind def %END proz_eq_tabl2
%************************************************************************
/proz_tx_refe1 {%BEG proz_tx_refe1
/xwtab 5250 def
/ywtab 0700 def
/i0eq ixeq xwtab add 520 sub def
/iyeq0 360 def
/iyeqt iyeq 100 add def
60 setlinewidth
1 setgray
ixeq 050 sub iyeq ywtab sub 400 add moveto
xwtab 0000 rlineto 0000 ywtab rlineto
xwtab neg 0000 rlineto fill
0 setgray
ixeq 050 sub iyeq ywtab sub 400 add moveto
xwtab 0000 rlineto 0000 ywtab rlineto
xwtab neg 0000 rlineto closepath stroke
%always text reference within the above frame
ixeq iyeqt moveto
(Richter, K. (1993), CIE proceedings,) show
ixeq iyeqt iyeq0 1 mul sub moveto
(Advanced Colorimetry, p. 79-84, CIE3 &) show
%ixeq iyeqt iyeq0 2 mul sub moveto
%RBM tfbs (http://color.li.tu-berlin.de/BUA4BF.PDF) show tfn
} bind def %END proz_tx_refe1
%************************************************************************
/proz_co_system {%BEG proz_co_system
/txl [ () (-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3) ( 4)] def %0..8
/txt [ () ( 0,001) ( 0,01) ( 0,1) ( 1) ( 10) ( 100)
( 1000) ( 10000)] def %0..8
/ty0 [(-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3) ( 4) ()] def %0..8 DL
/ty1 [(-5) ( 0) ( 5) (10) (15) (20) (25) (30) (35)] def %0..8 DL/L
/ty2 [(-3) (-2) (-1) ( 0) ( 1) ( 2) () () ()] def %0..8 log DL/L
/ty3 [(-25) ( 0) ( 25) ( 50) ( 75) (100) (125) (150) (175)] def %0..8 L*
/ty4 [(-1) ( 0) ( 1) ( 2) ( 3) ( 4) () ( ) ( )] def %0..8 DL
/ty5 [() ( 0) ( 1) ( 2) ( 3) ( 4) () () ()] def %0..8 DL/L
/ty6 [(-2) (-1) ( 0) ( 1) ( 2) ( 3) () () ()] def %0..8 log DL/L
/ty7 [() ( 0) ( 1) ( 2) ( 3) ( 4) () () ()] def %0..8 L*
60 setlinewidth
ix0 iy0 moveto 10300 0 rlineto stroke %x
ix0 iy0 moveto 0 6600 rlineto stroke %y
60 setlinewidth
ix0 10300 add iy0 moveto -200 100 rlineto stroke %x_arrow
ix0 10300 add iy0 moveto -200 -100 rlineto stroke %x_arrow
ix0 iy0 6600 add moveto -100 -200 rlineto stroke %y_arrow
ix0 iy0 6600 add moveto 100 -200 rlineto stroke %y_arrow
60 setlinewidth
/ix2t ix0 200 sub def
/ix1t ix0 500 sub def
/iy1t iy0 500 sub def
1 1 8 {/i exch def %xtext
ix0 ixsD2 sub i ixs mul add iy0 100 sub moveto 0 200 rlineto stroke
ix2t ixsD2 sub i ixs mul add iy0 400 sub moveto txl i get show
ix1t ixsD2 sub i ixs mul add iy0 200 add moveto txt i get show
} for
/ix6a ix0 5.8 ixs mul add def
/ix7a ix0 6.8 ixs mul add def
/iy6a iy0 600 sub def
ix6a iy6a moveto ix7a iy6a lineto stroke
ix7a iy6a moveto -200 100 rlineto stroke
ix7a iy6a moveto -200 -100 rlineto stroke
ix7a 150 add iy6a 100 sub moveto
TBM (log) show 60 0 rmoveto TBIM (L) show TBM (/[cd/m) show
TBK 0 80 rmoveto (2) show 0 -80 rmoveto TBM (]) show
ix6a 1200 sub iy0 500 add moveto
TBM
(Infeldleuchtdichte ) showde
(central\255field luminance ) showea
TBIM (L) show TBM (/[cd/m) show
TBK 0 80 rmoveto (2) show 0 -80 rmoveto TBM (]) show
} bind def %END proz_co_system
%***************************************************************
/proz_Li_func047 {%END proz_Li_func047
%function L/delta L
/Li 31 array def
/logLi 31 array def
/delLi 31 array def
/delLui 5 array def
/Xi 31 array def
/Yi 31 array def
/Yi0 31 array def
/Yi1 31 array def
/Yi2 31 array def
/Yi3 31 array def
/Yi4 31 array def
/LSi 31 array def
/Luj 6 array def
/Vuj 6 array def
/Lsj 6 array def
/sj 6 array def
/Yuj0 6 array def
/Yuj1 6 array def
/Yuj2 6 array def
/Yuj3 6 array def
/Luj [0.1 1 10 100 1000 10000] def
/Lulogj [-1 0 1 2 3 4] def
/Ltj [( 0,1) ( 1) ( 10) ( 100) ( 1000) (10000)] def
0 1 30 {/i exch def %i=0,30 range -3 to +4 logLi
logLi i -3 0.25 i mul add put
Li i 10 logLi i get exp put
Xi i 3 logLi i get add put
} for %i=0,30
/n -0.25 def
/1Mn 1 n sub def %1,25
/1D1Mn 1 1Mn div def %0,80
/nv1 0.036 def
/nv2 -0.30 def
/nl1 0.025 def
/nl2 0.705 def
0 1 04 {/j exch def %j=0,4 range 0,1 to 1000 Lu
/V01 Luj j get nv2 exp def %Lu**(-0,30)
/V02 nv1 n mul def %0.036*n
/V03 V02 V01 mul def %0.036*n*Lu**(-0.30)
Vuj j 1 V03 div put %1/[0.036*n*Lu**(-0.30)]
/L01 Luj j get nl2 exp def %Lu**(0.705)
Lsj j nl1 L01 mul put %0.025*Lu**(0.705)
/s01 Lsj j get n exp def %Ls**n
/s02 n Vuj j get mul s01 mul def %n*V*Ls**n
/s03 s02 1D1Mn exp def %[n*V*Ls**n]**[1/(1-n)]
/s04 1 s03 add def %1+[n*V*Ls**n]**[1/(1-n)]
sj j 1 s04 div put %1/{1+[n*V*Ls**n]**[1/(1-n)]}
} for %j=0,4
0 1 04 {/j exch def %j=0,4 range 0,1 to 1000 Lu
0 1 30 {/i exch def %i=0,30 range -3 to +4 logLi
%delta L
/y01 1 n Vuj j get mul div def %1/[n*V]
/y02 Lsj j get sj j get div 1Mn exp def %[Ls/s]**(1-n)
/y03 sj j get Li i get mul Lsj j get div def %s*L/Ls
/y04 1 sj j get sub y03 add def %1-s+[s*L/Ls]
/y05 y04 1Mn exp def %{1-s+[s*L/Ls]}**(1-n)
delLi i y01 y02 mul y05 mul put %{1/[n*V]}*{[Ls/s]**(1-n)}
%*{1-s+[s*L/Ls]}**(1-n)}
%L*
/LS01 Vuj j get def %V
/LS02 Lsj j get sj j get div n exp def %(Ls/s)**n
/LS03 sj j get Li i get mul Lsj j get div def %(s*L/Ls)
/LS04 1 sj j get sub LS03 add def %(1-s+s*L/Ls)
/LS05 LS04 n exp 1 sub def %(1-s+s*L/Ls)**n-1
LSi i LS01 LS02 mul LS05 mul put %V*{(Ls/s)**n}
%*{(1-s+sL/Ls)**n-1}
j 0 eq {Yi0 i} if
j 1 eq {Yi1 i} if
j 2 eq {Yi2 i} if
j 3 eq {Yi3 i} if
j 4 eq {Yi4 i} if
xchartl 4 eq {delLi i get put} if
xchartl 5 eq {Li i get delLi i get div put} if
xchartl 6 eq {Li i get delLi i get div put} if
xchartl 7 eq {LSi i get put} if
xchartl 4 eq {%xchartl=4
j 0 eq i 08 eq and {Yuj0 0 Yi0 i get put} if
j 1 eq i 12 eq and {Yuj0 1 Yi1 i get put} if
j 2 eq i 16 eq and {Yuj0 2 Yi2 i get put} if
j 3 eq i 20 eq and {Yuj0 3 Yi3 i get put} if
j 4 eq i 24 eq and {Yuj0 4 Yi4 i get put} if
} if %xchartl=4
xchartl 5 eq {%xchartl=5
j 0 eq i 08 eq and {Yuj1 0 Yi0 i get put} if
j 1 eq i 12 eq and {Yuj1 1 Yi1 i get put} if
j 2 eq i 16 eq and {Yuj1 2 Yi2 i get put} if
j 3 eq i 20 eq and {Yuj1 3 Yi3 i get put} if
j 4 eq i 24 eq and {Yuj1 4 Yi4 i get put} if
} if %xchartl=5
xchartl 6 eq {%xchartl=6
j 0 eq i 08 eq and {Yuj2 0 Yi0 i get put} if
j 1 eq i 12 eq and {Yuj2 1 Yi1 i get put} if
j 2 eq i 16 eq and {Yuj2 2 Yi2 i get put} if
j 3 eq i 20 eq and {Yuj2 3 Yi3 i get put} if
j 4 eq i 24 eq and {Yuj2 4 Yi4 i get put} if
} if %xchartl=6
xchartl 7 eq {%xchartl=7
j 0 eq i 08 eq and {Yuj3 0 Yi0 i get put} if
j 1 eq i 12 eq and {Yuj3 1 Yi1 i get put} if
j 2 eq i 16 eq and {Yuj3 2 Yi2 i get put} if
j 3 eq i 20 eq and {Yuj3 3 Yi3 i get put} if
j 4 eq i 24 eq and {Yuj3 4 Yi4 i get put} if
} if %xchartl=7
} for %i=0,30
} for %j=0,4
%normalization
0 1 04 {/j exch def %j=0,4 range 0,1 to 1000 Lu
0 1 30 {/i exch def %i=0,30 range -3 to +4 logLi
%delta L
/y01 1 n Vuj j get mul div def %1/[n*V]
/y02 Lsj j get sj j get div 1Mn exp def %[Ls/s]**(1-n)
/y03 sj j get Li i get mul Lsj j get div def %s*L/Ls
/y04 1 sj j get sub y03 add def %1-s+[s*L/Ls]
/y05 y04 1Mn exp def %{1-s+[s*L/Ls]}**(1-n)
delLi i y01 y02 mul y05 mul put %{1/[n*V]}*{[Ls/s]**(1-n)}
%*{1-s+[s*L/Ls]}**(1-n)}
%L*
/LS01 Vuj j get def %V
/LS02 Lsj j get sj j get div n exp def %(Ls/s)**n
/LS03 sj j get Li i get mul Lsj j get div def %(s*L/Ls)
/LS04 1 sj j get sub LS03 add def %(1-s+s*L/Ls)
/LS05 LS04 n exp 1 sub def %(1-s+s*L/Ls)**n-1
LSi i LS01 LS02 mul LS05 mul put %V*{(Ls/s)**n}
%*{(1-s+sL/Ls)**n-1}
j 0 eq {Yi0 i} if
j 1 eq {Yi1 i} if
j 2 eq {Yi2 i} if
j 3 eq {Yi3 i} if
j 4 eq {Yi4 i} if
xchartl 4 eq {delLi i get
Yuj0 j get div log 1 add put} if
xchartl 5 eq {Li i get delLi i get div
Yuj1 j get div put} if
xchartl 6 eq {Li i get delLi i get div
Yuj2 j get div log 1 add put} if
xchartl 7 eq {LSi i get
Yuj3 j get div put} if
} for %i=0,30
} for %j=0,4
} bind def %%END proz_Li_func047
%************************************************************************
%%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
/showfr {2 lanind eq {show} {pop} ifelse} bind def
/showes {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
/showm {6 lanind eq {show} {pop} ifelse} bind def
%default values
/lanind1 1 def /lanind2 1 def /lanindd 01 def /lanindm 01 def
/colorm1 00 def /colorm2 00 def /colormd 01 def /colormm 01 def
/deintp1 00 def /deintp2 00 def /deintpd 01 def /deintpm 01 def
/xcolor1 03 def /xcolor2 03 def /xcolord 01 def /xcolorm 01 def
/xchart1 00 def /xchart2 00 def /xchartd 01 def /xchartm 01 def
/pchart1 01 def /pchart2 01 def /pchartd 01 def /pchartm 01 def
/colsep1 00 def /colsep2 00 def /colsepd 01 def /colsepm 01 def
/pmetam1 00 def /pmetam2 00 def /pmetamd 01 def /pmetamm 01 def
/xchart3 00 def /xchart4 00 def /xchart5 00 def
%usual change of default values
/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} if
/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
/xchart3f where {pop /xchart3 xchart3f def} if
/xchart4f where {pop /xchart4 xchart4f def} if
/xchart5f where {pop /xchart5 xchart5f 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 where {pop %/IMES IMES def
}
{/IMES 0 def} ifelse
/colorml colorm def
/xcolorl xcolor def
/xchartl xchart def
/pchartl pchart def
gsave
72 90 translate
0.01 MM dup scale
/xwhl 11600 def /ywhl 8550 def
20 setlinewidth
1.0 setgray
%0 0 moveto xwhl 0 rlineto 0 ywhl rlineto xwhl neg 0 rlineto closepath fill
0 setgray
%0 0 moveto xwhl 0 rlineto 0 ywhl rlineto xwhl neg 0 rlineto closepath stroke
0 setgray
/iLuLm 1 def %0:Lu, 1:Lu,Lm
/xbtex0 0 def
xbtex0 1 eq {%xbtex0=1
TV
50 -150 moveto
(her40-6a fek20-6a) show
} if %xbtex0=1
5 1 5 {/xchartl exch def %xchartl=4,7
20 setlinewidth
% xchartl 0 eq { 100 4500 translate} if
% xchartl 1 eq { 5850 4500 translate} if
% xchartl 2 eq { 100 0250 translate} if
% xchartl 3 eq { 5850 0250 translate} if
% xchartl 4 eq { 100 4500 translate} if
% xchartl 5 eq { 5850 4500 translate} if
% xchartl 6 eq { 100 0250 translate} if
% xchartl 7 eq { 5850 0250 translate} if
/cvishow {cvi 6 string cvs show} def
0 setgray
TV
50 -150 moveto
(her40-) show xchartl 1 add cvishow (a) show %a
20 setlinewidth
[ ] 0 setdash
/yhoe 4000 def /xwidth 5650 def
0.9 0.9 0.0 setrgbcolor
0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto
closepath fill
0 setgray
0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto
closepath stroke
/ix0 700 def
/iy0 900 def
/ix1 300 def %1
/y00 7300 def
gsave
0 setlinewidth
0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto
closepath clip
0.5 0.5 scale
/ixs 1250 def
/ixsD2 ixs 0.5 mul def
60 setlinewidth
%******************************************************************
xchartl 4 eq {%xchartl=4
/iys 1250 def
/MULY iys def
/ix0t ix0 ixsD2 add def
/iy0t iy0 iys add def
ix1 100 add y00 350 add moveto
TBM (log [ ) show SM (D) show TBIM (L) show
TBM ( / ) show SM (D) show TBIM (L) show
TBK 0 -80 rmoveto (u) show 0 80 rmoveto
TBM ( ] ) show
TBM (nomalized central\255field threshold) showea
(Normierte Infeldschwellen) showde
%equation table; table
/ixeq ix0 250 add def
/iyeq iy0 iys 4.9 mul add def
/iyeqd 400 def
proz_co_system
/xtu 9200 def
/ytu 3100 def
xtu ytu 350 add moveto
1000 0000 rlineto stroke
xtu 1000 add ytu 350 add moveto
-200 100 rlineto stroke
xtu 1000 add ytu 350 add moveto
-200 -100 rlineto stroke
xtu ytu moveto
TBM (surround\255field) showea
(Umfeld\255) showde
xtu ytu 350 sub moveto
TBM (luminance) showea
(Leuchtdichte) showde
xtu ytu 700 sub moveto
TBIM (L) show TBK 0 -80 rmoveto (u) show 0 80 rmoveto
TBM (/[cd/m) show
TBK 0 80 rmoveto (2) show 0 -80 rmoveto TBM (]) show
%ytex
TBM
0 1 6 {/i exch def %i=1,6 ytex
ix0 100 sub iy0 i iys mul add moveto 200 0 rlineto stroke
ix0 500 sub iy0 i iys mul add 100 sub moveto
ty4 i get show
} for %i=1,6
ix0t iy0t translate
proz_Li_func047
/JPPM 4 def
0 1 JPPM {/jkurv exch def %jkurv=0,4
[ ] 0 setdash %usually continues curves
jkurv 0 eq {0.00 setgray [100 100] 0 setdash} if
jkurv 1 eq {0.25 setgray [100 100] 0 setdash} if
jkurv 2 eq {0.00 setgray [] 0 setdash} if
jkurv 3 eq {0.75 setgray [100 100] 0 setdash} if
jkurv 4 eq {1.00 setgray [100 100] 0 setdash} if
0 1 30 {/i exch def %i=0,30
jkurv 0 eq {Yi i Yi0 i get put} if
jkurv 1 eq {Yi i Yi1 i get put} if
jkurv 2 eq {Yi i Yi2 i get put} if
jkurv 3 eq {Yi i Yi3 i get put} if
jkurv 4 eq {Yi i Yi4 i get put} if
} for %i=0,30
% 0 1 2 3 4
/kurvi [1 1 1 1 1] def
kurvi jkurv get 1 eq {%kurvi=1
proz_curve_MUXY
} if %kurvi=1
jkurv 2 eq {%NW mean
1.00 setgray [100 100] 0 setdash
proz_curve_MUXY
} if %SM
} for %jkurv=0,JPPM
0 setgray
[100 100] 0 setdash
/JPPM 4 def
0 1 JPPM {/jkurv exch def %jkurv=0,4
[100 100] 0 setdash
8 4 24 {/i exch def %i=8,4,24
i 08 eq {Yi i Yi0 i get put} if
i 12 eq {Yi i Yi1 i get put} if
i 16 eq {Yi i Yi2 i get put} if
i 20 eq {Yi i Yi3 i get put} if
i 24 eq {Yi i Yi4 i get put} if
Xi i get MULX mul
Yi i get MULY mul moveto
Xi i get MULX mul
-0.4 MULY mul lineto stroke
Xi i get MULX mul
Yi i get MULY mul 100 0 360 arc fill
i 08 eq
jkurv 0 eq and {
Xi i get MULX mul 400 sub
Yi i get MULY mul 200 add moveto Ltj jkurv get show
} if
i 12 eq
jkurv 1 eq and {
Xi i get MULX mul 400 sub
Yi i get MULY mul 200 add moveto Ltj jkurv get show
} if
i 16 eq
jkurv 2 eq and {
Xi i get MULX mul 400 sub
Yi i get MULY mul 200 add moveto Ltj jkurv get show
} if
i 20 eq
jkurv 3 eq and {
Xi i get MULX mul 400 sub
Yi i get MULY mul 200 add moveto Ltj jkurv get show
} if
i 24 eq
jkurv 4 eq and {
Xi i get MULX mul 400 sub
Yi i get MULY mul 200 add moveto Ltj jkurv get show
} if
} for %i=8,4,24
[] 0 setdash
} for %jkurv=0,JPPM
iLuLm 1 eq {%iLuLm 0:Lu, 1:Lu,Lm
/JPPM 4 def
0 1 JPPM {/jkurv exch def %jkurv=0,4
[50 100] 0 setdash
1 0 0 setrgbcolor
0 1 24 {/i exch def %i=0,1,24
i 10 eq {Yi i Yi0 i get put} if
i 14 eq {Yi i Yi1 i get put} if
i 17 eq {Yi i Yi2 i get put} if
i 20 eq {Yi i Yi3 i get put} if
i 23 eq {Yi i Yi4 i get put} if
i 10 eq
i 14 eq or
i 17 eq or
i 20 eq or
i 23 eq or {%i=10,14,17,20,23
Xi i get MULX mul
Yi i get MULY mul moveto
Xi i get MULX mul
0 MULY mul lineto stroke
Xi i get MULX mul
Yi i get MULY mul 100 0 360 arc fill
i 10 eq
jkurv 0 eq and {
Xi i get MULX mul 400 sub
Yi i get MULY mul 200 add moveto Ltj jkurv get show
} if
i 14 eq
jkurv 1 eq and {
Xi i get MULX mul 400 sub
Yi i get MULY mul 200 add moveto Ltj jkurv get show
} if
i 17 eq
jkurv 2 eq and {
Xi i get MULX mul 400 sub
Yi i get MULY mul 200 add moveto Ltj jkurv get show
} if
i 20 eq
jkurv 3 eq and {
Xi i get MULX mul 400 sub
Yi i get MULY mul 200 add 300 add moveto Ltj jkurv get show
} if
i 23 eq
jkurv 4 eq and {
Xi i get MULX mul 400 sub
Yi i get MULY mul 200 add 000 add moveto Ltj jkurv get show
} if
} if %i=10,14,17,20,23
} for %i=0,24
[ ] 0 setdash
} for %jkurv=0,JPPM
0 0 0 setrgbcolor } if %iLuLm 0:Lu, 1:Lu,Lm
ix0t neg iy0t neg translate
%equation table; table at end
/ixeq ix0 250 add def
/iyeq iy0 iys 4.9 mul add def
/iyeqd 400 def
/iyeq0 360 def
proz_eq_table
%equation table; table at end
/ixeq ix0 5200 add def
/iyeq iy0 iys 4.9 mul add def
/iyeqd 400 def
/iyeq0 360 def
proz_eq_tabl2
%equation refe1; refe1 at end
/ixeq ix0 5200 add def
/iyeq iy0 iys 4.0 mul add def
/iyeq0 360 def
proz_tx_refe1
} if %xchartl=4
%******************************************************************
xchartl 5 eq {%xchartl=5
/iys 1250 def
/MULY iys def
/ix0t ix0 ixsD2 add def
/iy0t iy0 iys add def
ix1 100 add y00 350 add moveto
TBM (\050) show
TBIM (L) show TBM ( / ) show SM (D) show TBIM (L\051 / \050) show
TBIM (L) show TBK 0 -80 rmoveto (u) show 0 80 rmoveto
TBM ( / ) show SM (D) show TBIM (L) show
TBK 0 -80 rmoveto (u) show 0 80 rmoveto TBM (\051 ) show
TBM (nomalized central\255field threshold contrast) showea
(Normierter Infeldschwellen\255Kontrast) showde
%equation table; table at end
/ixeq ix0 250 add def
/iyeq iy0 iys 4.9 mul add def
/iyeqd 400 def
proz_co_system
/xtu 0800 def
/ytu 4200 def
xtu ytu moveto
TBM (surround\255field luminance ) showea
(Umfeld\255Leuchtdichte ) showde
xtu ytu 350 sub moveto
1000 0000 rlineto stroke
xtu 1000 add ytu 350 sub moveto
-200 100 rlineto stroke
xtu 1000 add ytu 350 sub moveto
-200 -100 rlineto stroke
xtu 1200 add ytu 450 sub moveto
TBIM (L) show TBK 0 -80 rmoveto (u) show 0 80 rmoveto
TBM (/[cd/m) show
TBK 0 80 rmoveto (2) show 0 -80 rmoveto TBM (]) show
%ytex
TBM
0 1 7 {/i exch def %i=1,7 ytex
ix0 100 sub iy0 i iys mul add moveto 200 0 rlineto stroke
ix0 500 sub iy0 i iys mul add 100 sub moveto
ty5 i get show
} for %i=1,7
ix0t iy0t translate
proz_Li_func047
/JPPM 4 def
0 1 JPPM {/jkurv exch def %jkurv=0,4
[ ] 0 setdash %usually continues curves
jkurv 0 eq {0.00 setgray [100 100] 0 setdash} if
jkurv 1 eq {0.25 setgray [100 100] 0 setdash} if
jkurv 2 eq {0.00 setgray [] 0 setdash} if
jkurv 3 eq {0.75 setgray [100 100] 0 setdash} if
jkurv 4 eq {1.00 setgray [100 100] 0 setdash} if
0 1 30 {/i exch def %i=0,30
jkurv 0 eq {Yi i Yi0 i get put} if
jkurv 1 eq {Yi i Yi1 i get put} if
jkurv 2 eq {Yi i Yi2 i get put} if
jkurv 3 eq {Yi i Yi3 i get put} if
jkurv 4 eq {Yi i Yi4 i get put} if
} for %i=0,30
% 0 1 2 3 4
/kurvi [1 1 1 1 1] def
kurvi jkurv get 1 eq {%kurvi=1
proz_curve_MUXY
} if %kurvi=1
jkurv 2 eq {%NW mean
1.00 setgray [100 100] 0 setdash
proz_curve_MUXY
} if %SM
} for %jkurv=0,JPPM
0 setgray
[100 100] 0 setdash
/JPPM 4 def
0 1 JPPM {/jkurv exch def %jkurv=0,4
[100 100] 0 setdash
8 4 24 {/i exch def %i=8,4,24
i 08 eq {Yi i Yi0 i get put} if
i 12 eq {Yi i Yi1 i get put} if
i 16 eq {Yi i Yi2 i get put} if
i 20 eq {Yi i Yi3 i get put} if
i 24 eq {Yi i Yi4 i get put} if
Xi i get MULX mul
Yi i get MULY mul moveto
Xi i get MULX mul
-0.5 MULY mul lineto stroke
Xi i get MULX mul
Yi i get MULY mul 100 0 360 arc fill
i 08 eq
jkurv 0 eq and {
Xi i get MULX mul 400 sub
Yi i get MULY mul 200 add moveto Ltj jkurv get show
} if
i 12 eq
jkurv 1 eq and {
Xi i get MULX mul 400 sub
Yi i get MULY mul 200 add moveto Ltj jkurv get show
} if
i 16 eq
jkurv 2 eq and {
Xi i get MULX mul 400 sub
Yi i get MULY mul 200 add moveto Ltj jkurv get show
} if
i 20 eq
jkurv 3 eq and {
Xi i get MULX mul 400 sub
Yi i get MULY mul 200 add 000 add moveto Ltj jkurv get show
} if
i 24 eq
jkurv 4 eq and {
Xi i get MULX mul 400 sub
Yi i get MULY mul 200 add 000 add moveto Ltj jkurv get show
} if
} for %i=8,4,24
[] 0 setdash
} for %jkurv=0,JPPM
iLuLm 1 eq {%iLuLm 0:Lu, 1:Lu,Lm
/JPPM 4 def
0 1 JPPM {/jkurv exch def %jkurv=0,4
[50 100] 0 setdash
1 0 0 setrgbcolor
0 1 24 {/i exch def %i=0,1,24
i 10 eq {Yi i Yi0 i get put} if
i 14 eq {Yi i Yi1 i get put} if
i 17 eq {Yi i Yi2 i get put} if
i 20 eq {Yi i Yi3 i get put} if
i 23 eq {Yi i Yi4 i get put} if
i 10 eq
i 14 eq or
i 17 eq or
i 20 eq or
i 23 eq or {%i=10,14,17,20,23
Xi i get MULX mul
Yi i get MULY mul moveto
Xi i get MULX mul
0 MULY mul lineto stroke
Xi i get MULX mul
Yi i get MULY mul 100 0 360 arc fill
i 10 eq
jkurv 0 eq and {
Xi i get MULX mul 400 sub
Yi i get MULY mul 200 add moveto Ltj jkurv get show
} if
i 14 eq
jkurv 1 eq and {
Xi i get MULX mul 400 sub
Yi i get MULY mul 200 add moveto Ltj jkurv get show
} if
i 17 eq
jkurv 2 eq and {
Xi i get MULX mul 400 sub
Yi i get MULY mul 200 add moveto Ltj jkurv get show
} if
i 20 eq
jkurv 3 eq and {
Xi i get MULX mul 400 sub
Yi i get MULY mul 200 add 300 add moveto Ltj jkurv get show
} if
i 23 eq
jkurv 4 eq and {
Xi i get MULX mul 400 sub
Yi i get MULY mul 200 add 300 add moveto Ltj jkurv get show
} if
} if %i=10,14,17,20,23
} for %i=0,24
[ ] 0 setdash
} for %jkurv=0,JPPM
0 0 0 setrgbcolor } if %iLuLm 0:Lu, 1:Lu,Lm
ix0t neg iy0t neg translate
%equation table; table at end
/ixeq ix0 250 add def
/iyeq iy0 iys 4.9 mul add def
/iyeqd 400 def
/iyeq0 360 def
proz_eq_table
%equation table; table at end
/ixeq ix0 5200 add def
/iyeq iy0 iys 4.9 mul add def
/iyeqd 400 def
/iyeq0 360 def
proz_eq_tabl2
%equation refe1; refe1 at end
/ixeq ix0 5200 add def
/iyeq iy0 iys 4.0 mul add def
/iyeq0 360 def
proz_tx_refe1
} if %xchartl=5
%******************************************************************
xchartl 6 eq {%xchartl=6
/iys 1250 def
/MULY iys def
/ix0t ix0 ixsD2 add def
/iy0t iy0 iys add def
ix1 100 add y00 350 add moveto
TBM (log [\050) show
TBIM (L) show TBM ( / ) show SM (D) show TBIM (L\051 / \050) show
TBIM (L) show TBK 0 -80 rmoveto (u) show 0 80 rmoveto
TBM ( / ) show SM (D) show TBIM (L) show
TBK 0 -80 rmoveto (u) show 0 80 rmoveto TBM (\051] ) show
TBM (nomalized central\255field threshold contrast) showea
(Normierter Infeldschwellen\255Kontrast) showde
%equation table; table at end
/ixeq ix0 250 add def
/iyeq iy0 iys 4.9 mul add def
/iyeqd 400 def
proz_co_system
/xtu 4000 def
/ytu 4500 def
xtu ytu moveto
TBM (surround\255field luminance ) showea
(Umfeld\255Leuchtdichte ) showde
xtu ytu 350 sub moveto
1000 0000 rlineto stroke
xtu 1000 add ytu 350 sub moveto
-200 100 rlineto stroke
xtu 1000 add ytu 350 sub moveto
-200 -100 rlineto stroke
xtu 1200 add ytu 450 sub moveto
TBIM (L) show TBK 0 -80 rmoveto (u) show 0 80 rmoveto
TBM (/[cd/m) show
TBK 0 80 rmoveto (2) show 0 -80 rmoveto TBM (]) show
%ytex
TBM
0 1 6 {/i exch def %i=1,6 ytex
ix0 100 sub iy0 i iys mul add moveto 200 0 rlineto stroke
ix0 500 sub iy0 i iys mul add 100 sub moveto
ty6 i get show
} for %i=1,6
ix0t iy0t translate
proz_Li_func047
/JPPM 4 def
0 1 JPPM {/jkurv exch def %jkurv=0,4
[ ] 0 setdash %usually continues curves
jkurv 0 eq {0.00 setgray [100 100] 0 setdash} if
jkurv 1 eq {0.25 setgray [100 100] 0 setdash} if
jkurv 2 eq {0.00 setgray [] 0 setdash} if
jkurv 3 eq {0.75 setgray [100 100] 0 setdash} if
jkurv 4 eq {1.00 setgray [100 100] 0 setdash} if
0 1 30 {/i exch def %i=0,30
jkurv 0 eq {Yi i Yi0 i get put} if
jkurv 1 eq {Yi i Yi1 i get put} if
jkurv 2 eq {Yi i Yi2 i get put} if
jkurv 3 eq {Yi i Yi3 i get put} if
jkurv 4 eq {Yi i Yi4 i get put} if
} for %i=0,30
% 0 1 2 3 4
/kurvi [1 1 1 1 1] def
kurvi jkurv get 1 eq {%kurvi=1
proz_curve_MUXY
} if %kurvi=1
jkurv 2 eq {%NW mean
1.00 setgray [100 100] 0 setdash
proz_curve_MUXY
} if %SM
} for %jkurv=0,JPPM
0 setgray
[100 100] 0 setdash
/JPPM 4 def
0 1 JPPM {/jkurv exch def %jkurv=0,4
[100 100] 0 setdash
8 4 24 {/i exch def %i=8,4,24
i 08 eq {Yi i Yi0 i get put} if
i 12 eq {Yi i Yi1 i get put} if
i 16 eq {Yi i Yi2 i get put} if
i 20 eq {Yi i Yi3 i get put} if
i 24 eq {Yi i Yi4 i get put} if
Xi i get MULX mul
Yi i get MULY mul moveto
Xi i get MULX mul
-0.4 MULY mul lineto stroke
Xi i get MULX mul
Yi i get MULY mul 100 0 360 arc fill
i 08 eq
jkurv 0 eq and {
Xi i get MULX mul 400 sub
Yi i get MULY mul 200 add moveto Ltj jkurv get show
} if
i 12 eq
jkurv 1 eq and {
Xi i get MULX mul 400 sub
Yi i get MULY mul 200 add moveto Ltj jkurv get show
} if
i 16 eq
jkurv 2 eq and {
Xi i get MULX mul 400 sub
Yi i get MULY mul 200 add moveto Ltj jkurv get show
} if
i 20 eq
jkurv 3 eq and {
Xi i get MULX mul 400 sub
Yi i get MULY mul 200 add moveto Ltj jkurv get show
} if
i 24 eq
jkurv 4 eq and {
Xi i get MULX mul 400 sub
Yi i get MULY mul 200 add moveto Ltj jkurv get show
} if
} for %i=8,4,24
[] 0 setdash
} for %jkurv=0,JPPM
iLuLm 1 eq {%iLuLm 0:Lu, 1:Lu,Lm
/JPPM 4 def
0 1 JPPM {/jkurv exch def %jkurv=0,4
[50 100] 0 setdash
1 0 0 setrgbcolor
0 1 24 {/i exch def %i=0,1,24
i 10 eq {Yi i Yi0 i get put} if
i 14 eq {Yi i Yi1 i get put} if
i 17 eq {Yi i Yi2 i get put} if
i 20 eq {Yi i Yi3 i get put} if
i 23 eq {Yi i Yi4 i get put} if
i 10 eq
i 14 eq or
i 17 eq or
i 20 eq or
i 23 eq or {%i=10,14,17,20,23
Xi i get MULX mul
Yi i get MULY mul moveto
Xi i get MULX mul
0 MULY mul lineto stroke
Xi i get MULX mul
Yi i get MULY mul 100 0 360 arc fill
i 10 eq
jkurv 0 eq and {
Xi i get MULX mul 400 sub
Yi i get MULY mul 200 add moveto Ltj jkurv get show
} if
i 14 eq
jkurv 1 eq and {
Xi i get MULX mul 400 sub
Yi i get MULY mul 200 add moveto Ltj jkurv get show
} if
i 17 eq
jkurv 2 eq and {
Xi i get MULX mul 400 sub
Yi i get MULY mul 200 add moveto Ltj jkurv get show
} if
i 20 eq
jkurv 3 eq and {
Xi i get MULX mul 400 sub
Yi i get MULY mul 200 add 300 add moveto Ltj jkurv get show
} if
i 23 eq
jkurv 4 eq and {
Xi i get MULX mul 400 sub
Yi i get MULY mul 200 add 300 add moveto Ltj jkurv get show
} if
} if %i=10,14,17,20,23
} for %i=0,24
[ ] 0 setdash
} for %jkurv=0,JPPM
0 0 0 setrgbcolor } if %iLuLm 0:Lu, 1:Lu,Lm
ix0t neg iy0t neg translate
%equation table; table at end
/ixeq ix0 250 add def
/iyeq iy0 iys 4.9 mul add def
/iyeqd 400 def
/iyeq0 360 def
proz_eq_table
%equation table; table at end
/ixeq ix0 5200 add def
/iyeq iy0 iys 4.9 mul add def
/iyeqd 400 def
/iyeq0 360 def
proz_eq_tabl2
%equation refe1; refe1 at end
/ixeq ix0 5200 add def
/iyeq iy0 iys 4.0 mul add def
/iyeq0 360 def
proz_tx_refe1
} if %xchartl=6
%******************************************************************
xchartl 7 eq {%xchartl=7
/iys 1250 def
/MULY iys def
/ix0t ix0 ixsD2 add def
/iy0t iy0 iys add def
ix1 100 add y00 350 add moveto
TBIM (L) show TBK 0 60 rmoveto (*) show 0 -60 rmoveto TBM ( / ) show
TBIM (L) show TBK 0 60 rmoveto (*) show 0 -60 rmoveto
TBK -60 -80 rmoveto (u) show 0 80 rmoveto TBM ( ) show
TBM (nomalized central\255field lightness) showea
(Normierte Infeldhelligkeit) showde
%equation table; table at end
/ixeq ix0 250 add def
/iyeq iy0 iys 4.9 mul add def
/iyeqd 400 def
proz_co_system
/xtu 0800 def
/ytu 4200 def
xtu ytu moveto
TBM (surround\255field luminance ) showea
(Umfeld\255Leuchtdichte ) showde
xtu ytu 350 sub moveto
1000 0000 rlineto stroke
xtu 1000 add ytu 350 sub moveto
-200 100 rlineto stroke
xtu 1000 add ytu 350 sub moveto
-200 -100 rlineto stroke
xtu 1200 add ytu 450 sub moveto
TBIM (L) show TBK 0 -80 rmoveto (u) show 0 80 rmoveto
TBM (/[cd/m) show
TBK 0 80 rmoveto (2) show 0 -80 rmoveto TBM (]) show
%ytex
TBM
0 1 6 {/i exch def %i=1,6 ytex
ix0 100 sub iy0 i iys mul add moveto 200 0 rlineto stroke
%special 600 instead of 500 sub
ix0 600 sub iy0 i iys mul add 100 sub moveto
ty7 i get show
} for %i=1,6
ix0t iy0t translate
proz_Li_func047
/JPPM 4 def
0 1 JPPM {/jkurv exch def %jkurv=0,4
[ ] 0 setdash %usually continues curves
jkurv 0 eq {0.00 setgray [100 100] 0 setdash} if
jkurv 1 eq {0.25 setgray [100 100] 0 setdash} if
jkurv 2 eq {0.00 setgray [] 0 setdash} if
jkurv 3 eq {0.75 setgray [100 100] 0 setdash} if
jkurv 4 eq {1.00 setgray [100 100] 0 setdash} if
0 1 30 {/i exch def %i=0,30
jkurv 0 eq {Yi i Yi0 i get put} if
jkurv 1 eq {Yi i Yi1 i get put} if
jkurv 2 eq {Yi i Yi2 i get put} if
jkurv 3 eq {Yi i Yi3 i get put} if
jkurv 4 eq {Yi i Yi4 i get put} if
} for %i=0,30
% 0 1 2 3 4
/kurvi [1 1 1 1 1] def
kurvi jkurv get 1 eq {%kurvi=1
proz_curve_MUXY
} if %kurvi=1
jkurv 2 eq {%SW
1.00 setgray [100 100] 0 setdash
proz_curve_MUXY
} if %SM
} for %jkurv=0,JPPM
0 setgray
[100 100] 0 setdash
/JPPM 4 def
0 1 JPPM {/jkurv exch def %jkurv=0,4
[100 100] 0 setdash
8 4 24 {/i exch def %i=8,4,24
i 08 eq {Yi i Yi0 i get put} if
i 12 eq {Yi i Yi1 i get put} if
i 16 eq {Yi i Yi2 i get put} if
i 20 eq {Yi i Yi3 i get put} if
i 24 eq {Yi i Yi4 i get put} if
Xi i get MULX mul
Yi i get MULY mul moveto
Xi i get MULX mul
-0.5 MULY mul lineto stroke
Xi i get MULX mul
Yi i get MULY mul 100 0 360 arc fill
i 08 eq
jkurv 0 eq and {
Xi i get MULX mul 400 sub
Yi i get MULY mul 200 add moveto Ltj jkurv get show
} if
i 12 eq
jkurv 1 eq and {
Xi i get MULX mul 400 sub
Yi i get MULY mul 200 add moveto Ltj jkurv get show
} if
i 16 eq
jkurv 2 eq and {
Xi i get MULX mul 400 sub
Yi i get MULY mul 200 add moveto Ltj jkurv get show
} if
i 20 eq
jkurv 3 eq and {
Xi i get MULX mul 400 sub
Yi i get MULY mul 200 add moveto Ltj jkurv get show
} if
i 24 eq
jkurv 4 eq and {
Xi i get MULX mul 400 sub
Yi i get MULY mul 200 add moveto Ltj jkurv get show
} if
} for %i=8,4,24
[] 0 setdash
} for %jkurv=0,JPPM
iLuLm 1 eq {%iLuLm 0:Lu, 1:Lu,Lm
/JPPM 4 def
0 1 JPPM {/jkurv exch def %jkurv=0,4
[100 50] 0 setdash
1 0 0 setrgbcolor
0 1 24 {/i exch def %i=0,1,24
i 10 eq {Yi i Yi0 i get put} if
i 14 eq {Yi i Yi1 i get put} if
i 17 eq {Yi i Yi2 i get put} if
i 20 eq {Yi i Yi3 i get put} if
i 23 eq {Yi i Yi4 i get put} if
i 10 eq
i 14 eq or
i 17 eq or
i 20 eq or
i 23 eq or {%i=10,14,17,20,23
Xi i get MULX mul
Yi i get MULY mul moveto
Xi i get MULX mul
0 MULY mul lineto stroke
Xi i get MULX mul
Yi i get MULY mul 100 0 360 arc fill
i 10 eq
jkurv 0 eq and {
Xi i get MULX mul 400 sub
Yi i get MULY mul 200 add moveto Ltj jkurv get show
} if
i 14 eq
jkurv 1 eq and {
Xi i get MULX mul 400 sub
Yi i get MULY mul 200 add moveto Ltj jkurv get show
} if
i 17 eq
jkurv 2 eq and {
Xi i get MULX mul 400 sub
Yi i get MULY mul 200 add moveto Ltj jkurv get show
} if
i 20 eq
jkurv 3 eq and {
Xi i get MULX mul 400 sub
Yi i get MULY mul 200 add 300 add moveto Ltj jkurv get show
} if
i 23 eq
jkurv 4 eq and {
Xi i get MULX mul 400 sub
Yi i get MULY mul 200 add 000 add moveto Ltj jkurv get show
} if
} if %i=10,14,17,20,23
} for %i=0,24
[ ] 0 setdash
} for %jkurv=0,JPPM
0 0 0 setrgbcolor } if %iLuLm 0:Lu, 1:Lu,Lm
ix0t neg iy0t neg translate
%equation table; table at end
/ixeq ix0 250 add def
/iyeq iy0 iys 4.9 mul add def
/iyeqd 400 def
/iyeq0 360 def
proz_eq_table
%equation table; table at end
/ixeq ix0 5200 add def
/iyeq iy0 iys 4.9 mul add def
/iyeqd 400 def
/iyeq0 360 def
proz_eq_tabl2
%equation refe1; refe1 at end
/ixeq ix0 5200 add def
/iyeq iy0 iys 4.0 mul add def
/iyeq0 360 def
proz_tx_refe1
} if %xchartl=7
%******************************************************************
grestore %end because of clip
% xchartl 0 eq { 100 neg 4500 neg translate} if
% xchartl 1 eq { 5850 neg 4500 neg translate} if
% xchartl 2 eq { 100 neg 0250 neg translate} if
% xchartl 3 eq { 5850 neg 0250 neg translate} if
% xchartl 4 eq { 100 neg 4500 neg translate} if
% xchartl 5 eq { 5850 neg 4500 neg translate} if
% xchartl 6 eq { 100 neg 0250 neg translate} if
% xchartl 7 eq { 5850 neg 0250 neg translate} if
} for %xchartl=4,7
showpage
grestore
%%Trailer