%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/iga0/iga00-7n 20240401
%%BoundingBox: 70 82 415 320
%START PDFDE011.EPS
/pdfmark07 where {pop} {userdict /pdfmark07 /cleartomark load put} ifelse
/languagelevel where {pop languagelevel} {1} ifelse
2 lt { userdict (<<) cvn ([) cvn load put
userdict (>>) cvn (]) cvn load put} if
[ /Title (PostScript pictures: farbe.li.tu-berlin.de/iga0/iga0.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:2024040112000)
/ModDate (D:20240401112000)
/DOCINFO pdfmark07
[ /View [ /Fit ]
/DOCVIEW pdfmark07
%END PDFDE011
%SETCMYK_OLV.PS
/setcmyk_olvcolor %transfer cmyk to olv
{/ncolor exch def /ycolor exch def
/mcolor exch def /ccolor exch def
ncolor 0 eq {1 ccolor sub
1 mcolor sub
1 ycolor sub setrgbcolor
}
{ccolor 0 eq
mcolor 0 eq and
ycolor 0 eq and {%only black n
1 ncolor sub
dup
dup
setrgbcolor
}
{%cmy and black n
1 ccolor sub 1 ncolor sub mul
1 mcolor sub 1 ncolor sub mul
1 ycolor sub 1 ncolor sub mul
setrgbcolor
} ifelse
} ifelse
} bind def
% 40mm = 80*72/25.4 = 232; 232+90+13 = 335
% !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I
/Times-Roman findfont dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/Times-ISOL1 exch definefont pop
/Times-Italic findfont dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/TimesI-ISOL1 exch definefont pop
/Times-Bold findfont dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/TimesB-ISOL1 exch definefont pop
/Times-BoldItalic findfont dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/TimesBI-ISOL1 exch definefont pop
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
/TV {120 /Times-ISOL1 FS} bind def
/TL {160 /Times-ISOL1 FS} bind def
/TS {200 /Times-ISOL1 FS} bind def
/TK {240 /Times-ISOL1 FS} bind def
/TM {280 /Times-ISOL1 FS} bind def
/TG {320 /Times-ISOL1 FS} bind def
/TIV {120 /TimesI-ISOL1 FS} bind def
/TIL {160 /TimesI-ISOL1 FS} bind def
/TIS {200 /TimesI-ISOL1 FS} bind def
/TIK {240 /TimesI-ISOL1 FS} bind def
/TIM {280 /TimesI-ISOL1 FS} bind def
/TIG {320 /TimesI-ISOL1 FS} bind def
/TBV {120 /TimesB-ISOL1 FS} bind def
/TBL {160 /TimesB-ISOL1 FS} bind def
/TBS {200 /TimesB-ISOL1 FS} bind def
/TBK {240 /TimesB-ISOL1 FS} bind def
/TBM {280 /TimesB-ISOL1 FS} bind def
/TBG {320 /TimesB-ISOL1 FS} bind def
/TBIV {120 /TimesBI-ISOL1 FS} bind def
/TBIL {160 /TimesBI-ISOL1 FS} bind def
/TBIS {200 /TimesBI-ISOL1 FS} bind def
/TBIK {240 /TimesBI-ISOL1 FS} bind def
/TBIM {280 /TimesBI-ISOL1 FS} bind def
/TBIG {320 /TimesBI-ISOL1 FS} bind def
/SV {120 /Symbol FS} bind def
/SL {160 /Symbol FS} bind def
/SS {200 /Symbol FS} bind def
/SK {240 /Symbol FS} bind def
/SM {280 /Symbol FS} bind def
/SG {320 /Symbol FS} bind def
/RV {120 /Times-Roman FS} bind def
/RL {160 /Times-Roman FS} bind def
/RS {200 /Times-Roman FS} bind def
/RK {240 /Times-Roman FS} bind def
/RM {280 /Times-Roman FS} bind def
/RG {320 /Times-Roman FS} bind def
/RIV {120 /Times-Italic FS} bind def
/RIL {160 /Times-Italic FS} bind def
/RIS {200 /Times-Italic FS} bind def
/RIK {240 /Times-Italic FS} bind def
/RIM {280 /Times-Italic FS} bind def
/RIG {320 /Times-Italic FS} bind def
/RBV {120 /Times-Bold FS} bind def
/RBL {160 /Times-Bold FS} bind def
/RBS {200 /Times-Bold FS} bind def
/RBK {240 /Times-Bold FS} bind def
/RBM {280 /Times-Bold FS} bind def
/RBG {320 /Times-Bold FS} bind def
/RBIV {120 /Times-BoldItalic FS} bind def
/RBIL {160 /Times-BoldItalic FS} bind def
/RBIS {200 /Times-BoldItalic FS} bind def
/RBIK {240 /Times-BoldItalic FS} bind def
/RBIM {280 /Times-BoldItalic FS} bind def
/RBIG {320 /Times-BoldItalic FS} bind def
/rec %x, y width heigth
{/heigth exch def /width exch def
moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto
closepath } bind def
/colrecfi %x y width heigth c m y k
{setcmykcolor rec fill} bind def
/colrecst %x y width heigth c m y k
{setcmykcolor rec stroke} bind def
/cvishowr {dup 0 ge {0.5 add} {0.5 sub} ifelse
cvi 6 string cvs show} 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
/cvishowr {/nxx exch def %example nxx=99.1/99.0
nxx 0 lt {(-) show /nxx nxx abs def} if
nxx 10 mul cvi /nxi exch def %nxi=991/990
nxi 10 idiv /nxa exch def %nxa=99
nxi nxa 10 mul sub /nxb exch def %nxb=1/0
nxa cvishow (,) show %nxa=99
nxb cvishow %nxb=1/0
} def
/cvsshow2g {/nxx exch def %example nxx=99.12/99,02/99,00
nxx 0 lt {(-) show /nxx nxx abs def} if
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
/cvsshow3g {/nxx exch def %example nxx=99.123/99.012/99.001/99.000
nxx 0 lt {(-) show /nxx nxx abs def} if
nxx 1000 mul cvi /nxi exch def %nxi=99123/99012/99001/99000
nxi 1000 idiv /nxa exch def %nxa=99
nxi nxa 1000 mul sub /nxb exch def %nxb=123/012/001/000
nxa cvishow (,) show %nxb=99,
nxb 100 ge {nxb cvishow} if %nxb=123/012/001/000
nxb 10 ge
nxb 99 le and {(0) show nxb cvishow} if %nxb=012
nxb 1 ge
nxb 9 le and {(00) show nxb cvishow} if %nxb=001
nxb 0 eq {(000) show} if %nxb=000
} def
%%EndProlog
gsave
%lanindL2 START 20000505
/lanind 1 def
/lantex [(G) (E) (S) (F) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showes {3 lanind eq {show} {pop} ifelse} bind def
/showfr {2 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showea {1 lanind le {show} {pop} ifelse} bind def
/lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def
/lanindd laninddf def}
{/lanind1 0 def /lanind2 0 def} ifelse
/colormf where {pop /colorm1 colormf def /colorm2 colormf def
/colormd colormdf def}
{/colorm1 0 def} ifelse
/deintpf where {pop /deintP1 deintpf def /deintP2 deintpf def
/deintpd deintpdf def}
{/deintP1 0 def} ifelse
/xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def
/xcolord xcolordf def}
{/xcolor1 0 def} ifelse
/xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def
/xchartd xchartdf def
/xchartm xchart2f xchart1f sub 1 add def}
{/xchart1 0 def /xchartm 1 def} ifelse
/xchart3f where {pop /xchart3 xchart3f def}
{/xchart3 0 def} ifelse
/xchart4f where {pop /xchart4 xchart4f def}
{/xchart4 0 def} ifelse
/pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def
/pchartd pchartdf def}
{/pchart1 3 def} ifelse
/colsepf where {pop /colseP1 colsepf def /colseP2 colsepf def
/colsepd colsepdf def}
{/colseP1 0 def} ifelse
/pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def
/pmetamd pmetamdf def}
{/pmetam1 0 def} ifelse
%either defaul values for xchart=0 or values for xchart=1
/lanind lanind1 def %
/colorm colorm1 def %
/deintp deintP1 def %
/xcolor xcolor1 def %
/xchart xchart1 def %
/pchart pchart1 def %
/colsep colseP1 def %
/pmetam pmetam1 def %
colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0
colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1
colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0
colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1
xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output
gsave
72 90 translate
0.02 MM dup scale
/xchartl 0 def %not used
/ispace 2 def %LOG + 2:CIELAB_W, 3:CIELAB_U, 4:IECsRGB_W all three for YnU, YnW
% %LOG + 2:CIELAB_W, 3:CIELAB_U, 4:IECsRGB_W all three for LrU, LrW
% %5:ITUsRGB_W, 6:ITUsRGB_P2 both for LrU, LrW
%fno0_7: choose for 4 tables: 2, 3, 4 and ispaca=1 with 4
%fno8: choose for 4 tables: 2, 3, 5 and ispaca=1 with 4
%fno9: choose for 4 tables: 2, 3, 6 and ispace=1 with 4
/ispaca 0 def %0/1: whithout/with additional IEC space
%'fno8'Y10-7N.EPS is copied to 'fno9' with 'fnox'PROZ_FNO9.COM
0 setgray
TV
100 -120 moveto
(iga00-7n) show
30 setlinewidth
/yhoe 4000 def /xwidth 6000 def
1 setgray
0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto
closepath fill
0 setgray
0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto
closepath stroke
gsave %start because of clip
%*****************************************************************
/ix0 0030 def
/iyd 0150 def %line distance
/iyds 0165 def %line distance for equations
/ix1 2000 def %left border
/iy1 0200 def %down border
/ix2 3400 def %right border
/iy2 3800 def %top border
/ixl ix2 ix1 sub def %x-size
/iyl iy2 iy1 sub def %y-size
/iym 3700 def %top line
0 setgray
ix0 yhoe iyd 1 mul sub moveto
TBL
(Colourimetric scaling of achromatic colours ) showea
(between peak white and black.) showea
(Farbmetrische Skalierung von unbunten Farben ) showde
(zwischen Spitzenwei\337 und Schwarz.) showde
ix0 yhoe iyd 2 mul sub moveto
TBL
(Relations between tristimulus value ) showea
(Beziehungen Hellbezugswert ) showde
TBIL (Y, ) show
TBL (luminance ) showea
(Leuchtdichte ) showde
TBIL (L) show
TBL (, and lightness ) showea
( und Helligkeit ) showde
TBIL (L* ) show
TBL (of ISO\255standards) showea
(nach ISO\255Normen) showde
20 setlinewidth
%0 yhoe iyd 2 mul sub 40 sub moveto xwidth 0 rlineto stroke
/yhod yhoe 500 sub def
/iout 0 def
iout 1 eq {%iout=1
ix0 yhod iyds 0 mul sub moveto
TL
(The ) showea (Die ) showde
TIL
(Weber\255Fechner) show
TL (\255Gesetz\255Helligkeit ) showde
( law describes the lightness ) showea
TIL (L*) show 0 -30 rmoveto TV (rU) show 0 30 rmoveto
TL ( as ) showea TBIL (logarithmic ) showea TL (function of ) showea
( ist eine ) showde TBIL (logarithmische ) showde TL (Funktion von ) showde
TIL (L) show 0 -30 rmoveto TV (rU) show 10 30 rmoveto TL (.) show
ix0 yhod iyds 1 mul sub moveto
TL (The ) showea (Die ) showde
TIL
(Stevens) show
TL (\255Gesetz\255Helligkeit ) showde
( law describes the lightness ) showea
TIL (L*) show -20 -30 rmoveto TV (CIELAB,U) show 0 30 rmoveto
TL ( as ) showea TBIL (potential ) showea TL (function of ) showea
( ist eine ) showde TBIL (Potenzfunktion ) showde TL (von ) showde
TIL (L) show 0 -30 rmoveto TV (rU) show 10 30 rmoveto
TL (=) show TIL (Y) show TL (/5.) show
ix0 yhod iyds 2 mul sub moveto
TL
%(IEC 61966\2552\2551 uses a similar potential function ) showea
%(IEC 61966\2552\2551 benutzt eine \344hnliche Potenzfunktion ) showde
%TIL (L*) show -10 -30 rmoveto TV (IEC) show 0 30 rmoveto
%TIL ( = m ) show TIL (L) show
%0 -30 rmoveto TV (rU) show 0 30 rmoveto
%0 50 rmoveto TV (1/2,4) show 0 -50 rmoveto
%TL (.) show
TBIL (L*) show -30 -30 rmoveto TBV (CIELAB,U) show 0 30 rmoveto
TBL ( = 116 ) show TBIL (L) show
0 -30 rmoveto TBV (rU) show 0 30 rmoveto
0 50 rmoveto TBV (1/3) show 0 -50 rmoveto
20 0 rmoveto TBL (-16 = c ) show
0 -30 rmoveto TBV (u) show 0 30 rmoveto
TBIL (L) show
0 -30 rmoveto TBV (rU) show 0 30 rmoveto
0 50 rmoveto TBV (1/3) show 0 -50 rmoveto
20 0 rmoveto TBL (-16) show
TBL (, ) show
TBL (Approximation: ) showea
(N\344herung: ) showde
TBIL (L*) show -10 -30 rmoveto TBV (IEC,sRGB) show 0 30 rmoveto
TBL ( = 50 ) show TBIL (L) show
0 -30 rmoveto TBV (rU) show 0 30 rmoveto
0 50 rmoveto TBV (1/2,4) show 0 -50 rmoveto
%
5700 yhod iyds 2 mul sub moveto TL ([1]) show
ix0 yhod iyds 3.1 mul sub moveto
TL (The ) showea (Das ) showde
TIL
(Weber\255Fechner) show
TL (\255Gesetz ist \344quivalent zur Gleichung: ) showde
( law is equivalent to the equation: ) showea
SL (D) show TIL (L) show 0 -30 rmoveto TV (rU) show 0 30 rmoveto
TL ( = ) show TIL (c) show 20 0 rmoveto
TIL (L) show 0 -30 rmoveto TV (rU) show 0 30 rmoveto
5700 yhod iyds 3.1 mul sub moveto TL ([2]) show
0 setgray
TL
ix0 yhod iyds 4.2 mul sub moveto
TIL
(Integration ) show
TL (leads to the logarithmic equation: ) showea
(f\374hrt zur logarithmischen Gleichung: ) showde
TIL (L*) show 0 -30 rmoveto TV (rU) show 0 30 rmoveto
TL (=t) show
TV 0 -30 rmoveto (U) 0 30 rmoveto
20 0 rmoveto TL (log\050) show
TIL (L) show 0 -30 rmoveto TV (rU) show 0 30 rmoveto TL (\051.) show
5700 yhod iyds 4.2 mul sub moveto TL ([3]) show
ix0 yhod iyds 5.3 mul sub moveto
TIL
(Derivation ) showea
(Ableitung ) showde
TL (leads for ) showea
(f\374hrt f\374r ) showde
SL (D) show TIL (L*) show 0 -30 rmoveto TV (rU) show 0 30 rmoveto TL (=1 ) show
TL (to the linear equation: ) showea
(zur linearen Gleichung: ) showde
TIL (L) show 0 -30 rmoveto TV (rU) show 0 30 rmoveto
TL (/) show SL (D) show
TIL (L) show 0 -30 rmoveto TV (rU) show 0 30 rmoveto TL (=t=57.) show
5700 yhod iyds 5.3 mul sub moveto TL ([4]) show
ix0 yhod iyds 6.4 mul sub moveto
TL (For ) showea
(f\374r ) showde
TBIL (adjacent ) showea
(aneinandergrenzende ) showde
TL (colours in offices the standard contrast range is ) showea
(Farben im B\374ro ist der NormKontrastbereich ) showde
TBL (25:1) show TL (=100:4) show
(.) show
} if %iout=0
%**************************************************************
%allows to mark squares by colours
/iy00i [0 0 0 0 0 0] def
/iy01i [0 0 0 0 0 0] def
/iy02i [0 0 0 0 0 0] def
/iy03i [0 0 0 0 0 0] def
%**********************************************************************
% 0 1 2 3 4 5 6
/ixi [0030 1100 1850 2850 3850 4850 6000] def
%P2 0 1 2 3 4 5
/ty10i [() (500) (1000) (25) () ()] def
/ty11i [() (=20*25) (=40*25) () () ()] def
%/ty11i [() (=18*10) (=28,2*11,2)() (=50+44) ()] def
/iy10i [0 0 0 0 0 0] def
/iy11i [0 0 0 0 0 0] def
%W 0 1 2 3 4 5
/ty12i [() (100) (200) (5) () ()] def
/ty13i [() (=20*5) (=40*5) () () ()] def
%/ty13i [() (=18*5) (=28,2*5) () () ()] def
/iy12i [0 0 0 0 0 0] def
/iy13i [0 0 0 0 0 0] def
%H 0 1 2 3 4 5
/ty14i [() (44,8) (89,6) (2,24) () ()] def
/ty15i [() (=20*2,24)(=40*2,24) () () ()] def
%/ty15i [() (=18*2,24)(=28,2*2,24)() () ()] def
/iy14i [0 0 0 0 0 0] def
/iy15i [0 0 0 0 0 0] def
%U 0 1 2 3 4 5
/ty16i [() (20) (40) (1) () ()] def
%/ty17i [() () () () () ()] def
/ty17i [() () (40*1) () () ()] def
/iy16i [0 0 0 0 0 0] def
/iy17i [0 0 0 0 0 0] def
%D 0 1 2 3 4 5
/ty18i [() (8,9) (17,8) (0,45) () ()] def
%/ty19i [() (=18/2,24)() () () ()] def
/ty19i [() (=20/2,24)(40/2,24) () () ()] def
/iy18i [0 0 0 0 0 0] def
/iy19i [0 0 0 0 0 0] def
%N 0 1 2 3 4 5
/ty20i [() (4) (8) (0,20) () ()] def
/ty21i [() (=20/5) (40/5) () () ()] def
%/ty21i [() (=18/5) (28,2/5) () () ()] def
/iy20i [0 0 0 0 0 0] def
/iy21i [0 0 0 0 0 0] def
%P1 0 1 2 3 4 5
/ty22i [() (1,9) (3,6) (0,09) () ()] def
/ty23i [() (=20/11,2)(40/11,2) () () ()] def
%/ty23i [() (=18/11,2)(28,2/11,2) () () ()] def
/iy22i [0 0 0 0 0 0] def
/iy23i [0 0 0 0 0 0] def
%**********************************************************************
/proz_L_L*_CIELAB_W {%BEG proz_L_L*_CIELAB_W
/YQ Lrref L_refW div def
/A_CIELAB_W 116 def
YQ 0 lt {/YQ 0.00000001 def} if
/L*ref YQ 0.008856 lt {903.3 YQ mul}
{YQ 0.33333333 exp A_CIELAB_W mul 16 sub} ifelse def
} bind def %END proz_L_L*_CIELAB_W
%**********************************************************************
/proz_L_L*_CIELAB_U {%BEG proz_L_L*_CIELAB_U
/YQ Lrref L_refU div def
/A_CIELAB_U L_refU L_refW div 0.33333333 exp 116 mul def
/L*ref YQ 0.008856 lt {903.3 YQ mul}
{YQ 0.33333333 exp A_CIELAB_U mul 16 sub} ifelse def
} bind def %END proz_L_L*_CIELAB_U
%**********************************************************************
/proz_L_L*_IECsRGB_W {%BEG proz_L_L*_IECsRGB_W
/YQ Lrref L_refW div def
/A_IECsRGB_W 100 def
/L*ref YQ 1 2.4 div exp A_IECsRGB_W mul def
} bind def %END proz_L_L*_IECsRGB_W
%**********************************************************************
/proz_L_L*_IECsRGB_U {%BEG proz_L_L*_IECsRGB_U
/YQ Lrref L_refU div def
/A_IECsRGB_U L_refU L_refW div 1 2.4 div exp 100 mul def
/L*ref YQ 1 2.4 div exp A_IECsRGB_U mul def
} bind def %END proz_L_L*_IECsRGB_U
%**********************************************************************
/proz_L_L*_TUBLOG_W {%BEG proz_L_L*_TUBLOG_W
/YQ Lrref L_refW div def
/A_TUBLOG_W L_refW L_refU div 40 mul 5 log div def
/L*ref YQ 1 2.4 div exp A_TUBLOG_W mul def
} bind def %END proz_L_L*_TUBLOG_W
%**********************************************************************
/proz_L_L*_TUBLOG_U {%BEG proz_L_L*_TUBLOG_U
/YQ Lrref L_refU div def
/A_TUBLOG_U 50 5 log div def
/L*ref YQ log A_TUBLOG_U mul def
} bind def %END proz_L_L*_TUBLOG_U
%**********************************************************************
/proz_L_L*_ITUsRGB_W {%BEG proz_L_L*_ITUsRGB_W
/YQ Lrref L_refW div def
/A_ITUsRGB_W 100 def
%0.45 = 1/2,222 (instead of 1/2,4)
/L*ref YQ 0.45 exp 1.099 mul 0.099 sub A_ITUsRGB_W mul def
L*ref 0.001 lt {/L*ref 0.001 def} if
} bind def %END proz_L_L*_ITUsRGB_W
%**********************************************************************
/proz_L_L*_ITUsRGB_P2 {%BEG proz_L_L*_ITUsRGB_P2
%YQ=1.00 for L_refPx=10.000 cd/m^2 (P3)
%YQ=? for L_refPx= 1.000 cd/m^2 (P2)
%YQ=? for L_refPx= 200 cd/m^2 (P1)
%
%E'=1,099*(59,5208E)^0.45 - 0,099
%E =[(1+0,099)/1,099]=[59,5208*E]^0,45
% 1^1,22=1=59,5208*E
%E = 1/59,5208 (P3)
%E1000 = 0,1*E10000
%E = 0.1/59,5208 (P2)
%E'=1,099*(0.1)^0.45 - 0.099
% =1,099*0,3548 - 0,099
% =0,3899 - 0,099 = 0,2909
%E0200 = 0,02*E10000
%E = 0,02/59,5208 (P1)
%E'=1,099*(0.02)^0.45 - 0,099
% =1,099*0,1719 - 0,099
% =0,1900 - 0,099 = 0,0900
/L_refP3 1.00 59.5208 div def %for 10000 cd/m^2
/L_refP2 0.10 59.5208 div def %for 1000 cd/m^2
/L_refP1 0.02 59.5208 div def %for 200 cd/m^2
/YQ Lrref L_refP3 div def
/A_ITUsRGB 100 def
/L*refP1 0.02 0.45 exp 1.099 mul 0.099 sub def
L*refP1 0.001 le {/L*refP1 0.001 def} if
/L*refx 59.5208 YQ mul 0.45 exp 1.099 mul 0.099 sub def
L*refx 0.001 le {/L*refx 0.001 def} if
/L*ref L*refx L*refP1 div A_ITUsRGB mul def
} bind def %END proz_L_L*_ITUsRGB_P2
%**********************************************************************
/Y_refi 7 array def
/L_refi 7 array def
/L*refi 7 array def
% P1 N D U H W P2
% 0 1 2 3 4 5 6
/Y_refi [1.8 4.0 8.9 20 44.8 100 500] def
/L_refi [3.6 8.0 17.9 40 89.6 200 1000] def
% Y_refi 1=4
%Y_refi 2 Y_refi 1 get 2.24 mul 1.00 mul put %D 8.5
%Y_refi 3 Y_refi 1 get 5.00 mul 1.00 nul put %U 20.0
%Y_refi 4 Y_refi 1 get 11.20 mul 1.00 mul put %H 44.8
%Y_refi 5 Y_refi 1 get 25.00 mul 1.00 mul put %W 100.0
%Y_refi 6 Y_refi 1 get 25.00 mul 5.00 mul put %P1 500.0
0 1 6 {/i exch def %i=0,6
L_refi i Y_refi i get 2 mul put
} for %i=0,6
/L_refU L_refi 3 get def
/L_refW L_refi 5 get def
/Y_refU 20 def
/Y_refW 100 def
/L_reUi 7 array def
/L_reWi 7 array def
0 1 6 {/i exch def %i=0,6
L_reUi i Y_refi i get 20 div put
L_reWi i Y_refi i get 100 div put
} for %i=0,6
%**********************************************************************
/iyd 190 def
/iyd2 iyd 2 mul def
/ixs 030 def
/iytab 2000 iyd 7.8 mul add def
/iyi 50 array def
0 1 3 {/i exch def %i=0,3
iyi i 2 mul 0 add iytab i iyd2 mul sub put
iyi i 2 mul 1 add iytab i iyd2 mul sub iyd sub 20 add put
} for %i=0,3
%$STOP2
/yhod1 iytab 300 add def
0 setgray
0 1 5 {/i exch def
iy00i i get 0 eq {1 1 1 setrgbcolor} if
iy00i i get 1 eq {1 1 0 setrgbcolor} if
iy00i i get 2 eq {0 1 0 setrgbcolor} if
iy00i i get 3 eq {1 0 0 setrgbcolor} if
ixi i get ixs sub iyi 00 get ixs sub moveto
/ixd ixi i 1 add get ixi i get sub def
ixd 0 rlineto 0 iyd rlineto
ixd neg 0 rlineto closepath fill
} for
0 1 5 {/i exch def
iy01i i get 0 eq {1 1 1 setrgbcolor} if
iy01i i get 1 eq {1 1 0 setrgbcolor} if
iy01i i get 2 eq {0 1 0 setrgbcolor} if
iy01i i get 3 eq {1 0 0 setrgbcolor} if
ixi i get ixs sub iyi 01 get ixs sub moveto
/ixd ixi i 1 add get ixi i get sub def
ixd 0 rlineto 0 iyd rlineto
ixd neg 0 rlineto closepath fill
} for
0 setgray
TBL
ixi 4 get iyi 00 get moveto
ispace 2 eq {(CIELAB) show 0 -50 rmoveto (W) show 0 50 rmoveto} if
ispace 3 eq {(CIELAB) show 0 -50 rmoveto (U) show 0 50 rmoveto} if
ispace 4 eq {(IECsRGB) show 0 -50 rmoveto (W) show 0 50 rmoveto} if
ispace 5 eq {(ITUsRGB) show 0 -50 rmoveto (W) show 0 50 rmoveto} if
ispace 6 eq {(ITUsRGB) show 0 -50 rmoveto (P2) show 0 50 rmoveto} if
ispaca 1 eq {ixi 2 get iyi 00 get moveto
(IECsRGB) show 0 -50 rmoveto (W) show 0 50 rmoveto
ixi 2 get iyi 01 get moveto
(lightness) showea (Helligkeit) showde
} if
ixi 4 get iyi 01 get moveto (lightness) showea (Helligkeit) showde
ixi 5 get iyi 00 get moveto (TUBLOG) show
0 -50 rmoveto (U) show 0 50 rmoveto
ixi 5 get iyi 01 get moveto (lightness) showea (Helligkeit) showde
0 setgray
0 1 5 {/i exch def
iy02i i get 0 eq {1 1 1 setrgbcolor} if
iy02i i get 1 eq {1 1 0 setrgbcolor} if
iy02i i get 2 eq {0 1 0 setrgbcolor} if
iy02i i get 3 eq {1 0 0 setrgbcolor} if
ixi i get ixs sub iyi 02 get ixs sub moveto
/ixd ixi i 1 add get ixi i get sub def
ixd 0 rlineto 0 iyd rlineto
ixd neg 0 rlineto closepath fill
} for
0 1 5 {/i exch def
iy03i i get 0 eq {1 1 1 setrgbcolor} if
iy03i i get 1 eq {1 1 0 setrgbcolor} if
iy03i i get 2 eq {0 1 0 setrgbcolor} if
iy03i i get 3 eq {1 0 0 setrgbcolor} if
ixi i get ixs sub iyi 03 get ixs sub moveto
/ixd ixi i 1 add get ixi i get sub def
ixd 0 rlineto 0 iyd rlineto
ixd neg 0 rlineto closepath fill
} for
0 setgray
/xp 480 def
/yp 20 def
%L*
ispace 2 eq {ixi 4 get iyi 02 get 20 add moveto TBIL (L*) show
-20 -30 rmoveto TBV (CIELAB) show 0 30 rmoveto
0 -50 rmoveto (W) show 0 50 rmoveto} if
ispace 3 eq {ixi 4 get iyi 02 get 20 add moveto TBIL (L*) show
-20 -30 rmoveto TBV (CIELAB) show 0 30 rmoveto
0 -50 rmoveto (U) show 0 50 rmoveto} if
ispace 4 eq {ixi 4 get iyi 02 get 20 add moveto TBIL (L*) show
-20 -30 rmoveto TBV (IECsRGB) show 0 30 rmoveto
0 -50 rmoveto (W) show 0 50 rmoveto} if
ispace 5 eq {ixi 4 get iyi 02 get 20 add moveto TBIL (L*) show
-20 -30 rmoveto TBV (ITUsRGB) show 0 30 rmoveto
0 -50 rmoveto (W) show 0 50 rmoveto} if
ispace 6 eq {ixi 4 get iyi 02 get 20 add moveto TBIL (L*) show
-20 -30 rmoveto TBV (ITUsRGB) show 0 30 rmoveto
0 -50 rmoveto (P2) show 0 50 rmoveto} if
ispaca 1 eq {ixi 2 get iyi 02 get 20 add moveto TBIL (L*) show
-20 -30 rmoveto TBV (IECsRGB) show 0 30 rmoveto
0 -50 rmoveto (W) show 0 50 rmoveto} if
%L*r
ixi 5 get iyi 02 get 20 add moveto
TBIL (L*) show -0 -30 rmoveto TBV (TUBLOG) show 0 30 rmoveto
0 -50 rmoveto (U) show 0 50 rmoveto
0 setgray
ispaca 0 eq {%ispaca=0
%[cd/m2]
ixi 2 get iyi 03 get moveto
%1 0 0 setrgbcolor
TBL ([cd/m) show 0 50 rmoveto TBV (2) show 0 -50 rmoveto
TBL (]) show
} if %ispaca=0
ispace 2 eq {%CIELAB_W
%=Lr(1/3)
ixi 4 get iyi 03 get moveto
-10 0 rmoveto TBL (=c) show
0 -30 rmoveto TBV (W) show 0 30 rmoveto
0 0 rmoveto TBIL (L) show
0 -30 rmoveto TBV (rW) show 0 30 rmoveto
0 50 rmoveto TBV (1/3) show 0 -50 rmoveto
0 0 rmoveto TBL (-16) show
} if
ispace 3 eq {%CIELAB_U
%=Lr(1/3)
ixi 4 get iyi 03 get moveto
TBL (=d) show
0 -30 rmoveto TBV (U) show 0 30 rmoveto
0 0 rmoveto TBIL (L) show
0 -30 rmoveto TBV (rU) show 0 30 rmoveto
0 50 rmoveto TBV (1/3) show 0 -50 rmoveto
0 0 rmoveto TBL (-16) show
} if
ispace 4 eq {%IECsRGB_W
%=Lr(1/2,4)
ixi 4 get iyi 03 get moveto
TBL (=s) show
0 -30 rmoveto TBV (W) show 0 30 rmoveto
20 0 rmoveto TBIL (L) show
0 -30 rmoveto TBV (rW) show 0 30 rmoveto
0 50 rmoveto TBV (1/2,4) show 0 -50 rmoveto
} if
ispace 5 eq {%ITUsRGB_W
%L*=1,099*Lr(1/2,22)-0,099=d*Lr(1/2,22)-c
ixi 4 get iyi 03 get moveto
TBL (=i) show
0 -30 rmoveto TBV (W) show 0 30 rmoveto
10 0 rmoveto TBIL (L) show
0 -40 rmoveto TBV (rW) show 0 40 rmoveto
-150 65 rmoveto TBV (0,45) show 0 -65 rmoveto
TBL (-) show 20 0 rmoveto (10) show
} if
ispace 6 eq {%IECsRGB_W
%L*=[1,1*Lr(1/2,22)-0,1]/[1,1*0,02*(0,45)-0,1]
ixi 4 get iyi 03 get moveto
TBL (=j) show
0 -30 rmoveto TBV (W) show 0 30 rmoveto
10 0 rmoveto TBIL (L) show
0 -40 rmoveto TBV (rW) show 0 40 rmoveto
-150 65 rmoveto TBV (0,45) show 0 -65 rmoveto
TBL (-) show 20 0 rmoveto (10) show
} if
ispaca 1 eq {%IECsRGB_W
%=Lr(1/2,4)
ixi 2 get iyi 03 get moveto
TBL (=s) show
0 -30 rmoveto TBV (W) show 0 30 rmoveto
20 0 rmoveto TBIL (L) show
0 -30 rmoveto TBV (rW) show 0 30 rmoveto
0 50 rmoveto TBV (1/2,4) show 0 -50 rmoveto
} if
%=k log(Lr)
ixi 5 get iyi 03 get moveto
TBL (=t) show
0 -30 rmoveto TBV (U) show 0 30 rmoveto
20 0 rmoveto TBL (log\050) show TBIL (L) show
0 -30 rmoveto TBV (rU) show 0 30 rmoveto
TBL (\051+50) show
0 setgray
%***********************************************************************
/iy1i 50 array def
/iytab1 2000 iyd 3.8 mul add def
%definition iy1i:10_23
0 1 6 {/i exch def %i=0,6
iy1i i 2 mul 10 add iytab1 i iyd2 mul sub put
iy1i i 2 mul 11 add iytab1 i iyd2 mul sub iyd sub 20 add put
} for %i=0,6
0 1 5 {/i exch def
iy10i i get 0 eq {1 1 1 setrgbcolor} if
iy10i i get 1 eq {1 1 0 setrgbcolor} if
iy10i i get 2 eq {0 1 0 setrgbcolor} if
iy10i i get 3 eq {1 0 0 setrgbcolor} if
ixi i get ixs sub iy1i 10 get ixs sub moveto
/ixd ixi i 1 add get ixi i get sub def
ixd 0 rlineto 0 iyd rlineto
ixd neg 0 rlineto closepath fill
} for
0 1 5 {/i exch def
iy11i i get 0 eq {1 1 1 setrgbcolor} if
iy11i i get 1 eq {1 1 0 setrgbcolor} if
iy11i i get 2 eq {0 1 0 setrgbcolor} if
iy11i i get 3 eq {1 0 0 setrgbcolor} if
ixi i get ixs sub iy1i 11 get ixs sub moveto
/ixd ixi i 1 add get ixi i get sub def
ixd 0 rlineto 0 iyd rlineto
ixd neg 0 rlineto closepath fill
} for
0 setgray
TL
ixi 0 get iy1i 10 get moveto ty10i 0 get show
ixi 1 get iy1i 10 get moveto ty10i 1 get show
ispaca 0 eq {ixi 2 get iy1i 10 get moveto ty10i 2 get show} if
ixi 3 get iy1i 10 get moveto ty10i 3 get show
ixi 0 get iy1i 11 get moveto ty11i 0 get show
ixi 1 get iy1i 11 get moveto ty11i 1 get show
ispaca 0 eq {ixi 2 get iy1i 11 get moveto ty11i 2 get show} if
ixi 3 get iy1i 11 get moveto ty11i 3 get show
TL
ixi 0 get iy1i 12 get moveto ty12i 0 get show
ixi 1 get iy1i 12 get moveto ty12i 1 get show
ispaca 0 eq {ixi 2 get iy1i 12 get moveto ty12i 2 get show} if
ixi 3 get iy1i 12 get moveto ty12i 3 get show
ixi 0 get iy1i 13 get moveto ty13i 0 get show
ixi 1 get iy1i 13 get moveto ty13i 1 get show
ispaca 0 eq {ixi 2 get iy1i 13 get moveto ty13i 2 get show} if
ixi 3 get iy1i 13 get moveto ty13i 3 get show
TL
ixi 0 get iy1i 14 get moveto ty14i 0 get show
ixi 1 get iy1i 14 get moveto ty14i 1 get show
ispaca 0 eq {ixi 2 get iy1i 14 get moveto ty14i 2 get show} if
ixi 3 get iy1i 14 get moveto ty14i 3 get show
ixi 0 get iy1i 15 get moveto ty15i 0 get show
ixi 1 get iy1i 15 get moveto ty15i 1 get show
ispaca 0 eq {ixi 2 get iy1i 15 get moveto ty15i 2 get show} if
ixi 3 get iy1i 15 get moveto ty15i 3 get show
0 1 5 {/i exch def
iy16i i get 0 eq {1 1 1 setrgbcolor} if
iy16i i get 1 eq {1 1 0 setrgbcolor} if
iy16i i get 2 eq {0 1 0 setrgbcolor} if
iy16i i get 3 eq {1 0 0 setrgbcolor} if
ixi i get ixs sub iy1i 16 get ixs sub moveto
/ixd ixi i 1 add get ixi i get sub def
ixd 0 rlineto 0 iyd rlineto
ixd neg 0 rlineto closepath fill
} for
0 1 5 {/i exch def
iy17i i get 0 eq {1 1 1 setrgbcolor} if
iy17i i get 1 eq {1 1 0 setrgbcolor} if
iy17i i get 2 eq {0 1 0 setrgbcolor} if
iy17i i get 3 eq {1 0 0 setrgbcolor} if
ixi i get ixs sub iy1i 17 get ixs sub moveto
/ixd ixi i 1 add get ixi i get sub def
ixd 0 rlineto 0 iyd rlineto
ixd neg 0 rlineto closepath fill
} for
0 setgray
TL
ixi 0 get iy1i 16 get moveto ty16i 0 get show
ixi 1 get iy1i 16 get moveto ty16i 1 get show
ispaca 0 eq {ixi 2 get iy1i 16 get moveto ty16i 2 get show} if
ixi 3 get iy1i 16 get moveto ty16i 3 get show
ixi 0 get iy1i 17 get moveto ty17i 0 get show
ixi 1 get iy1i 17 get moveto ty17i 1 get show
ispaca 0 eq {ixi 2 get iy1i 17 get moveto ty17i 2 get show} if
ixi 3 get iy1i 17 get moveto ty17i 3 get show
0 1 5 {/i exch def
iy18i i get 0 eq {1 1 1 setrgbcolor} if
iy18i i get 1 eq {1 1 0 setrgbcolor} if
iy18i i get 2 eq {0 1 0 setrgbcolor} if
iy18i i get 3 eq {1 0 0 setrgbcolor} if
ixi i get ixs sub iy1i 18 get ixs sub moveto
/ixd ixi i 1 add get ixi i get sub def
ixd 0 rlineto 0 iyd rlineto
ixd neg 0 rlineto closepath fill
} for
0 1 5 {/i exch def
iy19i i get 0 eq {1 1 1 setrgbcolor} if
iy19i i get 1 eq {1 1 0 setrgbcolor} if
iy19i i get 2 eq {0 1 0 setrgbcolor} if
iy19i i get 3 eq {1 0 0 setrgbcolor} if
ixi i get ixs sub iy1i 19 get ixs sub moveto
/ixd ixi i 1 add get ixi i get sub def
ixd 0 rlineto 0 iyd rlineto
ixd neg 0 rlineto closepath fill
} for
0 setgray
TL
ixi 0 get iy1i 18 get moveto ty18i 0 get show
ixi 1 get iy1i 18 get moveto ty18i 1 get show
ispaca 0 eq {ixi 2 get iy1i 18 get moveto ty18i 2 get show} if
ixi 3 get iy1i 18 get moveto ty18i 3 get show
ixi 0 get iy1i 19 get moveto ty19i 0 get show
ixi 1 get iy1i 19 get moveto ty19i 1 get show
ispaca 0 eq {ixi 2 get iy1i 19 get moveto ty19i 2 get show} if
ixi 3 get iy1i 19 get moveto ty19i 3 get show
0 1 5 {/i exch def
iy20i i get 0 eq {1 1 1 setrgbcolor} if
iy20i i get 1 eq {1 1 0 setrgbcolor} if
iy20i i get 2 eq {0 1 0 setrgbcolor} if
iy20i i get 3 eq {1 0 0 setrgbcolor} if
ixi i get ixs sub iy1i 20 get ixs sub moveto
/ixd ixi i 1 add get ixi i get sub def
ixd 0 rlineto 0 iyd rlineto
ixd neg 0 rlineto closepath fill
} for
0 1 5 {/i exch def
iy21i i get 0 eq {1 1 1 setrgbcolor} if
iy21i i get 1 eq {1 1 0 setrgbcolor} if
iy21i i get 2 eq {0 1 0 setrgbcolor} if
iy21i i get 3 eq {1 0 0 setrgbcolor} if
ixi i get ixs sub iy1i 21 get ixs sub moveto
/ixd ixi i 1 add get ixi i get sub def
ixd 0 rlineto 0 iyd rlineto
ixd neg 0 rlineto closepath fill
} for
0 setgray
TL
ixi 0 get iy1i 20 get moveto ty20i 0 get show
ixi 1 get iy1i 20 get moveto ty20i 1 get show
ispaca 0 eq {ixi 2 get iy1i 20 get moveto ty20i 2 get show} if
ixi 3 get iy1i 20 get moveto ty20i 3 get show
ixi 0 get iy1i 21 get moveto ty21i 0 get show
ixi 1 get iy1i 21 get moveto ty21i 1 get show
ispaca 0 eq {ixi 2 get iy1i 21 get moveto ty21i 2 get show} if
ixi 3 get iy1i 21 get moveto ty21i 3 get show
0 1 5 {/i exch def
iy22i i get 0 eq {1 1 1 setrgbcolor} if
iy22i i get 1 eq {1 1 0 setrgbcolor} if
iy22i i get 2 eq {0 1 0 setrgbcolor} if
iy22i i get 3 eq {1 0 0 setrgbcolor} if
ixi i get ixs sub iy1i 22 get ixs sub moveto
/ixd ixi i 1 add get ixi i get sub def
ixd 0 rlineto 0 iyd rlineto
ixd neg 0 rlineto closepath fill
} for
0 1 5 {/i exch def
iy23i i get 0 eq {1 1 1 setrgbcolor} if
iy23i i get 1 eq {1 1 0 setrgbcolor} if
iy23i i get 2 eq {0 1 0 setrgbcolor} if
iy23i i get 3 eq {1 0 0 setrgbcolor} if
ixi i get ixs sub iy1i 23 get ixs sub moveto
/ixd ixi i 1 add get ixi i get sub def
ixd 0 rlineto 0 iyd rlineto
ixd neg 0 rlineto closepath fill
} for
0 setgray
TL
ixi 0 get iy1i 22 get moveto ty22i 0 get show
ixi 1 get iy1i 22 get moveto ty22i 1 get show
ispaca 0 eq {ixi 2 get iy1i 22 get moveto ty22i 2 get show} if
ixi 3 get iy1i 22 get moveto ty22i 3 get show
ixi 0 get iy1i 23 get moveto ty23i 0 get show
ixi 1 get iy1i 23 get moveto ty23i 1 get show
ispaca 0 eq {ixi 2 get iy1i 23 get moveto ty23i 2 get show} if
ixi 3 get iy1i 23 get moveto ty23i 3 get show
TBL
ixi 0 get iyi 00 get moveto (Colour \050light) showea (Farbe \050Licht) showde
ixi 0 get iyi 01 get moveto (or paper\051) showea (oder Papier\051) showde
ixi 1 get iyi 00 get moveto (tristimu\255) showea (Norm\255) showde
ixi 1 get iyi 01 get moveto (lus values) showea (farbwert) showde
ispaca 0 eq {%ispaca=0
ixi 2 get iyi 00 get moveto (HDR display) showea (HDR\255Display\255) showde
ixi 2 get iyi 01 get moveto (luminance) showea (Leuchtdichte) showde
} if %spaca=0
ixi 3 get iyi 00 get moveto (relative) showea (relative) showde
ixi 3 get iyi 01 get moveto (luminance) showea (Leuchtdichte) showde
ixi 0 get iyi 02 get moveto (Contrast W:N) showea (Kontrast W:N) showde
ixi 1 get iyi 02 get moveto TBIL (Y) show
ispaca 0 eq {ixi 2 get iyi 02 get moveto TBIL (L) show} if
ixi 0 get iyi 03 get moveto TBL ((25:1=100:4)) show
ixi 1 get iyi 03 get moveto TL (\0505) show
0 40 rmoveto TV (0,5) show 0 -40 rmoveto
TL (=2,24) show
TL
ixi 0 get iy1i 10 get moveto (White P2) showea (Wei\337 P2) showde
ixi 0 get iy1i 11 get moveto ((light)) showea ((Licht)) showde
ixi 0 get iy1i 12 get moveto (White W \050fluo\255) showea
(Wei\337 W \050Fluo\255) showde
ixi 0 get iy1i 13 get moveto (recent paper\051) showea
(reszenspapier\051) showde
ixi 0 get iy1i 14 get moveto (light Grey H) showea (Hellgrau H) showde
ixi 0 get iy1i 15 get moveto ((paper)) showea ((Papier)) showde
ixi 0 get iy1i 16 get moveto (Grey U) showea (Grau U) showde
ixi 0 get iy1i 17 get moveto ((paper)) showea ((Papier)) showde
ixi 0 get iy1i 18 get moveto (dark Grey D) showea (Dunkelgrau D) showde
ixi 0 get iy1i 19 get moveto ((paper)) showea ((Papier)) showde
ixi 0 get iy1i 20 get moveto (Black N) showea (Schwarz N) showde
ixi 0 get iy1i 21 get moveto ((paper)) showea ((Papier)) showde
ixi 0 get iy1i 22 get moveto (Black P2) showea (Schwarz P2) showde
ixi 0 get iy1i 23 get moveto ((glossy paper)) showea ((Glanzpapier)) showde
ispace 2 eq {%CIELAB_W
TL
0 1 6 {/i exch def %i=0,6
/Lrref L_refi i get def
proz_L_L*_CIELAB_W
L*refi i L*ref put
ixi 4 get iy1i 23 i 2 mul sub get moveto TL (=c\050) show
L_reWi i get 0.005 add cvsshow2g %with rounding
(\051) show TV 0 50 rmoveto (1/3) show 0 -50 rmoveto TL (-16) show
ixi 4 get iy1i 22 i 2 mul sub get moveto
L*refi i get cvishow
(=50) show L*refi i get 50 sub
dup 0 ge {(+) show}{(-) show} ifelse abs cvishow
} for
} if %CIELAB_W
ispace 3 eq {%CIELAB_U
TL
0 1 6 {/i exch def %i=0,6
/Lrref L_refi i get def
proz_L_L*_CIELAB_U
L*refi i L*ref put
ixi 4 get iy1i 23 i 2 mul sub get moveto TL (=c\050) show
L_reUi i get 0.005 add cvsshow2g %with rounding
(\051) show TV 0 50 rmoveto (1/3) show 0 -50 rmoveto TL (-16) show
ixi 4 get iy1i 22 i 2 mul sub get moveto
L*refi i get cvishow
(=50) show L*refi i get 50 sub
dup 0 ge {(+) show}{(-) show} ifelse abs cvishow
} for %CIELAB_U
} if %CIELAB_U
ispace 4 eq {%IECsRGB_W
TL
0 1 6 {/i exch def %i=0,6
/Lrref L_refi i get def
proz_L_L*_IECsRGB_W
L*refi i L*ref put
ixi 4 get iy1i 23 i 2 mul sub get moveto TL (=s\050) show
L_reWi i get 0.005 add cvsshow2g %with rounding
(\051) show TV 0 50 rmoveto (1/2,4) show TL
ixi 4 get iy1i 22 i 2 mul sub get moveto
L*refi i get cvishow
(=50) show L*refi i get 50 sub
dup 0 ge {(+) show}{(-) show} ifelse abs cvishow
} for %i=0,6
} if %ispace=4
ispace 5 eq {%ITUsRGB_W
TL
0 1 6 {/i exch def %i=0,6
/Lrref L_refi i get def
proz_L_L*_ITUsRGB_W
L*refi i L*ref put
ixi 4 get iy1i 23 i 2 mul sub get moveto TL (=i) show 20 0 rmoveto
(\050) show L_reWi i get 0.005 add cvsshow2g %with rounding
(\051) show TV 0 70 rmoveto (0,45) show 0 -70 rmoveto
-90 0 rmoveto TL (-) show 10 0 rmoveto (10) show
ixi 4 get iy1i 22 i 2 mul sub get moveto
L*refi i get cvishow
(=50) show L*refi i get 50 sub
dup 0 ge {(+) show}{(-) show} ifelse abs cvishow
} for %i=0,6
} if %ispace=5
ispace 6 eq {%ITUsRGB_P2
%not complete, under consideration, see ITU_R BT.2390-10
%section 5.3.1 modified for range up to 200 cd/m^2
%with headroom between 200 cd/m^2 (W) and 1000 cd/m^2 (P2)
TL
/E'0i 7 array def
/G'0i 7 array def
/F'0i 7 array def
/Lrrefi 7 array def
/Lnrefi 7 array def
/Yrrefi 7 array def
/Y1refi 7 array def
0 1 6 {/i exch def %i=0,6
% /i 0 def
%L_refi
Lrrefi i L_refi i get put %L-range 0 to 1000 cd/m^2
Lnrefi i L_refi i get 5 div put %L_range 0 to 200 cd/m^2
Yrrefi i Lnrefi i get 2 div put %Y-values 0 to 100
Y1refi i Yrrefi i get 100 div put %Y-values 0 to 1
% formula
% E'(Y) = 1,099 (2,7 Y)^0,45 - 0,099
%
% E'(1) = 1,099 (2,7)^0,45 - 0,099 = 1,56 %limit of HDR range
% E'(1/2,7) = 1,099 (1)^0,45 - 0,099 = 1,00 %limit of SRD range
% E'(Y=0) < E'(Y=1/2,7) = E'(2,7/2,7) = 1,00 SDR range [0, 1,00]
% E'(Y=1/2,7) < E'(Y=1) = E'(2,7) = 1,56 HDR head room [1, 1,56]
% the range [0, 1,56] is the full range
% table Y-Values 0,2/2,7; 0,5/2,7; 1,0/2,7; 1,35/2,7; 2,7/2,7
%$STOPa
/Ytj 5 array def
/Y0j 5 array def
% 0 1 2 3 4
/Ytj [0.2 0.5 1.0 1.35 2.70] def
0 1 4 {/j exch def %j=0,4
Y0j j Ytj j get 2.7 div put
} for %j=1,4
/a0 0.018 def
/b0 2.700 def
/c0 a0 b0 div def
/d0 1.099 def
/e0 0.099 def
/f0 4.500 def
/n0 0.450 def
% formula for Y>=0.018/2.700
% E'(Y) = 1,099 (2,7 Y)^n0 - 0,099
% E'(Y) = d0 (b0 Y)^n0 - e0
%
% formula for Y<0.018/2.700
% E'(Y) = 4,5 (2,7 Y)
% E'(Y) = f0 (b0 Y)
Y1refi i get c0 le {G'0i i f0 b0 mul Y1refi i get mul put
E'0i i f0 b0 mul Y1refi i get mul put}
{G'0i i Y1refi i get b0 mul 0.45 exp put
E'0i i G'0i i get d0 mul e0 sub put
} ifelse
ixi 4 get iy1i 23 i 2 mul sub get moveto TL (=j) show 20 0 rmoveto
(\050) show Y1refi i get 0.005 add cvsshow2g %with rounding
(\051) show TV 0 70 rmoveto (0,45) show 0 -70 rmoveto
-90 0 rmoveto TL (-) show 10 0 rmoveto (10) show
ixi 4 get iy1i 22 i 2 mul sub get moveto
E'0i i get 100 mul cvishow
(=50) show E'0i i get 100 mul 50 sub
dup 0 ge {(+) show}{(-) show} ifelse abs cvishow
} for %i=0,6
%$STOP2
/iout 0 def
iout 1 eq {%iout=1
0 1 6 {/i exch def %i=0,6
/TVS {080 /Times-ISOL1 FS} bind def
TVS
/xr -1000 def
ixi 4 get xr add iy1i 23 i 2 mul sub get 150 add moveto
0 1 4 {/j exch def %j=0,4
Y0j j get cvsshow3g (; ) show
} for %j=0,4
ixi 4 get xr add iy1i 23 i 2 mul sub get 60 add moveto
0 1 4 {/j exch def %j=0,4
G'0i j get cvsshow3g (; ) show
} for %j=0,4
ixi 4 get xr add iy1i 23 i 2 mul sub get 30 sub moveto
0 1 4 {/j exch def %j=0,4
E'0i j get cvsshow3g (; ) show
} for %j=0,4
%normalization for E0=100 cd/m^2 instead of 10000 cd/m^2
ixi 4 get iy1i 23 i 2 mul sub get moveto TL (=j) show 20 0 rmoveto
(\050) show E'001 0.000 add cvsshow2g %without rounding
(\051) show TV 0 70 rmoveto (0,45) show 0 -70 rmoveto TL
-90 0 rmoveto TL (-) show 10 0 rmoveto (10) show
ixi 4 get iy1i 22 i 2 mul sub get moveto
E' E'0 div 100 mul cvishow
(=50) show E' E' div 100 mul 50 sub
dup 0 ge {(+) show}{(-) show} ifelse abs cvishow
} for %i=0,6
} if %iout=1
} if %ispace=6
%log allways
TL
0 1 6 {/i exch def %i=0,6
/Lrref L_refi i get def
proz_L_L*_TUBLOG_U
L*refi i L*ref put
ixi 5 get iy1i 23 i 2 mul sub get moveto TL (=t log\050) show
L_reUi i get 0.005 add cvsshow2g %with rounding
(\051+50) show
ixi 5 get iy1i 22 i 2 mul sub get moveto
L*refi i get 50 add cvishow
(=50) show L*refi i get 2 add
dup 0 ge {(+) show}{(-) show} ifelse abs cvishow
} for %i=0,6
ispaca 1 eq {%ispaca
%BEG special additional IECsRGB_W
TL
0 1 6 {/i exch def %i=0,6
/Lrref L_refi i get def
proz_L_L*_IECsRGB_W
L*refi i L*ref put
ixi 2 get iy1i 23 i 2 mul sub get moveto TL (=s\050) show
L_reWi i get 0.005 add cvsshow2g %with rounding
(\051) show TV 0 50 rmoveto (1/2,4) show TL
ixi 2 get iy1i 22 i 2 mul sub get moveto
L*refi i get cvishow
(=50) show L*refi i get 50 sub
dup 0 ge {(+) show}{(-) show} ifelse abs cvishow
} for %i=0,6
} if %ispaca=1
ixi 3 get iyi 02 get moveto
TBIL (L) show 0 -30 rmoveto TBV (rU) show 0 30 rmoveto
ixi 3 get iyi 03 get moveto
TBIL (=L/L) show 0 -30 rmoveto TBV (U) show 0 30 rmoveto
/xp 480 def
ixi 3 get xp add iyi 02 get moveto
TBIL (L) show 0 -30 rmoveto TBV (rW) show 0 30 rmoveto
ixi 3 get xp add iyi 03 get moveto
TBIL (=L/L) show 0 -30 rmoveto TBV (W) show 0 30 rmoveto
TL
ixi 3 get xp add iy1i 10 get moveto (5,00) show
ixi 3 get xp add iy1i 12 get moveto (1,00) show
ixi 3 get xp add iy1i 14 get moveto (0,45) show
ixi 3 get xp add iy1i 16 get moveto (0,20) show
ixi 3 get xp add iy1i 18 get moveto (0,09) show
ixi 3 get xp add iy1i 20 get moveto (0,04) show
ixi 3 get xp add iy1i 22 get moveto (0,022) show
20 setlinewidth
/lupt iytab iyd 1 mul add 40 sub def
/llot iytab iyd 17 mul sub 40 sub def
/ldit lupt llot sub def
0 lupt 20 add moveto xwidth 0 rlineto stroke %line upper table
1 1 5 {/i exch def %i=1,5
ixi i get ixs sub llot moveto 0 ldit rlineto stroke
} for %i=1,5
%Lu/Lw special vertical line
ixi 3 get xp add 20 sub llot 00 sub iyd 0 mul sub moveto
0 ldit iyd 2 mul sub -20 add rlineto stroke
%horizontal lines top
1 2 3 {/i exch def %i=1,2,3
0 iyi i get 60 sub moveto
xwidth 0 rlineto stroke
} for %i=1,2,3
%horizontal lines
1 2 13 {/i exch def %i=1,13,2
0 iy1i i 10 add get 60 sub moveto
xwidth 0 rlineto stroke
} for %i=1,13,2
ix0 0070 moveto
TL (It is valid: ) showea
(Es gilt: ) showde
ispace 2 eq {%CIELAB_W
TL (CIELAB) show TV 0 -30 rmoveto (W) show 0 30 rmoveto
TL (: c) show TV 0 -30 rmoveto (W) show 0 30 rmoveto
TL (=c) show
TL (=116, ) show
} if %CIELAB_W
ispace 3 eq {%CIELAB_U
TL (CIELAB) show TV 0 -30 rmoveto (U) show 0 30 rmoveto
TL (: d) show TV 0 -30 rmoveto (U) show 0 30 rmoveto
TL (=d) show
TL (=66, ) show
} if %CIELAB_U
ispace 4 eq {%IECsRGB_W
TL (IECsRGB) show TV 0 -30 rmoveto (W) show 0 30 rmoveto
TL (: s) show TV 0 -30 rmoveto (W) show 0 30 rmoveto
TL (=s) show
TL (=100, ) show
} if %IECsRGB_W
ispace 5 eq {%ITUsRGB_W
TL (ITUsRGB) show TV 0 -30 rmoveto (W) show 0 30 rmoveto
TL (: i) show TV 0 -30 rmoveto (W) show 0 30 rmoveto
TL (=i) show
TL (=110, ) show
} if %ITUsRGB_W
ispace 6 eq {%ITUsRGB_P2
TL (ITUsRGB) show TV 0 -30 rmoveto (W) show 0 30 rmoveto
TL (: j) show TV 0 -30 rmoveto (W) show 0 30 rmoveto
TL (=j) show
TL (=110, ) show
} if %ITUsRGB_P2
ispaca 1 eq {%IECsRGB_W
TL (IECsRGB) show TV 0 -30 rmoveto (W) show 0 30 rmoveto
TL (: s) show TV 0 -30 rmoveto (W) show 0 30 rmoveto
TL (=s) show
TL (=100, ) show
} if %IECsRGB_W
TL (TUBLOG) show TV 0 -30 rmoveto (U) show 0 30 rmoveto
TL (: t) show TV 0 -30 rmoveto (U) show 0 30 rmoveto
TL (=t) show
TL (=) show TL (50/log(5)=72) show
/yhoe 4000 def /xwidth xwidth def
15 setlinewidth
0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto
closepath stroke
%*****************************************************************
grestore %end because of clip
showpage
grestore
%%Trailer