%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/fgo4/fgo40-3n 20240401
%%BoundingBox: 70 82 415 320

%START PDFDE011.EPS
/pdfmark03 where {pop} {userdict /pdfmark03 /cleartomark load put} ifelse
/languagelevel where {pop languagelevel} {1} ifelse
2 lt { userdict (<<) cvn ([) cvn load put
       userdict (>>) cvn (]) cvn load put} if
[ /Title (PostScript pictures: farbe.li.tu-berlin.de/fgo4/fgo4.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 pdfmark03
[ /View [ /Fit ]
/DOCVIEW pdfmark03
%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

/cvishow {dup 0 ge {0.5 add} {0.5 sub} ifelse
          cvi 6 string cvs show} 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 %2:CIELAB_W, 3:CIELAB_U, 4:IECsRGB_W

0 setgray
TV
100 -120 moveto 
(fgo40-3n) 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
TBIL
(Weber\255Fechner) show
TBL (\255Gesetz in CIE 230:2019 f\374r Schwellen\255Farbdifferenzen ) showde
( law in CIE 230:2019 for threshold colour differences ) showea
(von K\366rper\255) showde
(of surface) showea

ix0 yhoe iyd 2 mul sub moveto
TBL
(colours) showea
(farben) showde
(; relations between tristimulus value, luminance, and lightness) showea
(; Beziehung Hellbezugswert, Leuchtdichte und Helligkeit) showde
  
20 setlinewidth
0 yhoe iyd 2 mul sub 50 sub moveto xwidth 0 rlineto stroke

/yhod yhoe 500 sub def

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 (rW) 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 (rW) 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) 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 (rW) show 10 30 rmoveto 
TL (=) show TIL (Y) show TL (/90.) 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 (rW) 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) show 0 30 rmoveto
TBL ( = 116 ) show TBIL (L) show
0 -30 rmoveto TBV (rW) show 0 30 rmoveto
0 50 rmoveto TBV (1/3) show 0 -50 rmoveto
20 0 rmoveto TBL (-16 = 66 ) 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) show
TBL (, ) show
TBL (Approximation: ) showea
(N\344herung: ) showde

TBIL (L*) show -10 -30 rmoveto TBV (IEC,sRGB) show 0 30 rmoveto
TBL ( = 100 ) show TBIL (L) show
0 -30 rmoveto TBV (rW) show 0 30 rmoveto
0 50 rmoveto TBV (1/2,4) show 0 -50 rmoveto
%
5750 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 (rW) show 0 30 rmoveto
TL ( = ) show TIL (c) show 
0 -30 rmoveto TV (W) show 0 30 rmoveto
20 0 rmoveto
TIL (L) show 0 -30 rmoveto TV (rW) show 0 30 rmoveto
5750 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 (rW) show 0 30 rmoveto
TL (=t) show 
0 -30 rmoveto TV (W) show 0 30 rmoveto
30 0 rmoveto TL (log\050) show
TIL (L) show 0 -30 rmoveto TV (rW) show 0 30 rmoveto TL (\051.) show 
5750 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 (rW) show 0 30 rmoveto TL (=1 ) show
TL (to the linear equation: ) showea
(zur linearen Gleichung: ) showde
TIL (L) show 0 -30 rmoveto TV (rW) show 0 30 rmoveto
TL (/) show SL (D) show
TIL (L) show 0 -30 rmoveto TV (rW) show 0 30 rmoveto TL (=t) show
0 -30 rmoveto TV (W) show 0 30 rmoveto
TL (=57.) show
5750 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 (=90:3,6) show
(.) show

%**************************************************************
%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    
/ixi   [0030      1100   1850        2850        3850      4950 6000] def


%      0          1      2           3           4         5
/ty14i [(White W) (90)  (142)        (5)         ()        ()] def
%/ty15i[((paper)) (=20*5)(=30,1*5)   ()          (=50+44)  (=t*log(5))] def
/ty15i [((paper)) (=18*5)(=28,2*5)   ()          ()        ()] def
/iy14i [0         0      0           0           0         0] def
/iy15i [0         0      0           0           0         0] def
 
/ty16i [(Grey U) (18)    (28,2)      (1)         ()        ()] def
%/ty17i[((paper))()      ()          ()          (=50)     (=t*log(1))] def
/ty17i [((paper))()      ()          ()          ()        ()] def
/iy16i [0        0       0           0           0         0] def
/iy17i [0        0       0           0           0         0] def

/ty18i [(Black N)(3,6)   (5,6)       (0,2)       ()        ()] def
%/ty19i[((paper))(=20/5) (30,1/5)    ()          (=50-32)  (=t*log(0,2))] def
/ty19i [((paper))(=18/5) (28,2/5)    ()          ()        ()] def
/iy18i [0        0       0           0           0         0] def
/iy19i [0        0       0           0           0         0] def

%**************************************************************************

%      0            1        2         3       4          5
/dy14i [(Wei\337 W) (90)     (142)     (5)     ()         ()] def
%/dy15i[((Papier))   (=20*5)  (=30.1*5) ()      ()        (=t*log(5))] def
/dy15i [((Papier))  (=18*5)  (=28,2*5) ()      ()         ()] def
 
/dy16i [(Grau Z)    (18)     (28,2)    (1)     ()         ()] def
%/dy17i[((Papier))  ()       ()        ()      ()         (=t*log(1))] def
/dy17i [((Papier))  ()       ()        ()      ()         ()] def

/dy18i [(Schwarz N) (3.6)    (5,6)     (0,2)   ()         ()] def
%/dy19i[(Papier)    (=20/5)  (30,1/5)  ()      ()         (=t*log(0,2))] def
/dy19i [(Papier)    (=18/5)  (28,2/5)  ()      ()         ()] def

%**********************************************************************  
/proz_Y_L*_CIELAB_W {%BEG proz_Y_L*_CIELAB_W
/YQ Ynref 100.00 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_Y_L*_CIELAB_W

%**********************************************************************
/proz_Y_L*_CIELAB_U {%BEG proz_Y_L*_CIELAB_U
/YQ Ynref 100.00 div def
/YQ2 Ynref 18.00 div def
/Ynr18 18 def
/A_CIELAB_U 18 100 div 0.33333333 exp 116 mul def
/L*ref YQ 0.008856 lt {903.3 YQ mul}
                      {YQ2 0.33333333 exp A_CIELAB_U mul 16 sub} ifelse def
} bind def %END proz_Y_L*_CIELAB_U

%**********************************************************************
/proz_Y_L*_IECsRGB_W {%BEG proz_Y_L*_IECsRGB_W
/YQ Ynref 100.00 div def
/A_IECsRGB_W 100 def
/L*ref YQ 1 2.4 div exp A_IECsRGB_W mul def
} bind def %END proz_Y_L*_IECsRGB_W

%**********************************************************************
/proz_Y_L*_IECsRGB_U {%BEG proz_Y_L*_IECsRGB_U
/YQ Ynref 18.00 div def
/A_IECsRGB_U 18 100 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_Y_L*_IECsRGB_U

%**********************************************************************
/proz_Y_L*_TUBLOG_W {%BEG proz_Y_L*_TUBLOG_W
/YQ Ynref 100.00 div def
/A_TUBLOG_W 100.00 18.00 div 40 mul 5 log div def
/L*ref YQ 1 2.4 div exp A_TUBLOG_W mul def
} bind def %END proz_Y_L*_TUBLOG_W

%**********************************************************************
/proz_Y_L*_TUBLOG_U {%BEG proz_Y_L*_TUBLOG_U
/YQ Ynref 18 div def
/A_TUBLOG_U 50 5 log div def
/L*ref YQ log A_TUBLOG_U mul def
} bind def %END proz_Y_L*_TUBLOG_U

%**********************************************************************
/Y_refi 9 array def
/L*refi 9 array def
%       p2   p1  N   D  U   H   W   P1  P2
%       0    1   2   3  4   5   6   7   8
/Y_refi [1.8 2.5 3.6 0  0   0   0   0   0] def

Y_refi 3 Y_refi 2 get   2.24 mul put %D    8.9
Y_refi 4 Y_refi 2 get   5.00 mul put %U   18
Y_refi 5 Y_refi 2 get  12.24 mul put %H   45
Y_refi 6 Y_refi 2 get  25.00 mul put %W   90
Y_refi 7 Y_refi 2 get  50.00 mul put %P1 180
Y_refi 8 Y_refi 2 get 100.00 mul put %P2 360

%**********************************************************************  
/iyd 190 def
/iyd2 iyd 2 mul def
/ixs 030 def
/iytab 2000 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

0 1 9 {/i exch def %i=0,9
       iyi i 2 mul 0 add iytab i iyd2 mul sub put
       iyi i 2 mul 1 add iyi i 2 mul get iyd sub 20 add put
      } for %i=0,9

/yhod iytab 300 add def
0 setgray
ix0 yhod 050 sub moveto
TBL (Table 1: ) showea (Tabelle 1: ) showde
(CIE tristimulus value ) showea (Normfarbwert ) showde
TBIL (Y, ) show
TBL (luminance ) showea (Leuchtdichte ) showde
TBIL (L) show
TBL (, and lightness ) showea ( und Helligkeit ) showde
TBIL (L* ) show

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 0 get iyi 00 get moveto (Colour) showea        (Farbe) showde
ixi 0 get iyi 01 get moveto ((matte paper)) showea ((Mattpapier)) 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
ixi 2 get iyi 00 get moveto (SDR office) showea    (SDR\255B\374ro\255) showde
ixi 2 get iyi 01 get moveto (luminance) showea     (Leuchtdichte) showde
ixi 3 get iyi 00 get moveto (relative) showea      (relative) showde
ixi 3 get iyi 01 get moveto (luminance) showea     (Leuchtdichte) showde

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
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 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
ixi 0 get iyi 02 get yp add moveto TBL (Contrast W:N) showea 
                                       (Kontrast W:N) showde
ixi 1 get iyi 02 get yp add moveto TBIL (Y) show
ixi 2 get iyi 02 get yp add moveto TBIL (L) show
ixi 3 get iyi 02 get yp add moveto TBIL (L) show
                                   0 -30 rmoveto TBV (rU) show 0 30 rmoveto
ispace 2 eq {%CIELAB_W
ixi 4 get iyi 02 get yp add moveto TBIL (L*) show
                     -20 -30 rmoveto TBV (CIELAB_W) show 0 30 rmoveto
            } if %CIELAB_W

ispace 4 eq {%IECsRGB_W
ixi 4 get iyi 02 get yp add moveto TBIL (L*) show
                     -20 -30 rmoveto TBV (IECsRGB_W) show 0 30 rmoveto
            } if %CIELAB_W

ixi 5 get iyi 02 get yp add moveto TBIL (L*) show
                     -0 -30 rmoveto TBV (TUBLOG_U) show 0 30 rmoveto


ixi 0 get iyi 03 get moveto TBL ((25:1=90:3,6)) show
ixi 1 get iyi 03 get moveto () show
ixi 2 get iyi 03 get moveto TBL ([cd/m) show
                            0 40 rmoveto TBV (2) show 0 -40 rmoveto
                            TBL (]) show
ixi 3 get iyi 03 get moveto TBIL (=L/L) show
                            0 -30 rmoveto TBV (U) 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
ispace 2 eq {%CIELAB_W
ixi 4 get -20 0 rmoveto
          iyi 03 get moveto 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 40 rmoveto TBV (1/3) show 0 -40 rmoveto
                            TBL (-16) show
            } if %CIELAB_W
%ispace 1 eq {%TUBLOG_U allways
ixi 5 get -20 0 rmoveto
          iyi 03 get moveto TBIL (=t) show
                            0 -30 rmoveto TBV (U) show 0 30 rmoveto
                            0 0 rmoveto TBL (log\050) show TBIL (L) show
                            0 -30 rmoveto TBV (rU) show 0 30 rmoveto
                            TBL (\051+50) show
%            } if %TUBLOG_U  

ispace 4 eq {%IECsRGB_W
ixi 4 get -20 0 rmoveto
          iyi 03 get moveto TBL (=s) 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/2,4) show 0 -50 rmoveto
            } if %IECsRGB_W
0 setgray

0 1 5 {/i exch def
       iy14i i get 0 eq {1 1 1 setrgbcolor} if
       iy14i i get 1 eq {1 1 0 setrgbcolor} if
       iy14i i get 2 eq {0 1 0 setrgbcolor} if
       iy14i i get 3 eq {1 0 0 setrgbcolor} if
       ixi i get ixs sub iyi 04 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
       iy15i i get 0 eq {1 1 1 setrgbcolor} if
       iy15i i get 1 eq {1 1 0 setrgbcolor} if
       iy15i i get 2 eq {0 1 0 setrgbcolor} if
       iy15i i get 3 eq {1 0 0 setrgbcolor} if
       ixi i get ixs sub iyi 05 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 iyi 04 get moveto ty14i 0 get showea dy14i 0 get showde
ixi 1 get iyi 04 get moveto ty14i 1 get showea dy14i 1 get showde
ixi 2 get iyi 04 get moveto ty14i 2 get showea dy14i 2 get showde
ixi 3 get iyi 04 get moveto ty14i 3 get showea dy14i 3 get showde
ixi 4 get iyi 04 get moveto ty14i 4 get showea dy14i 4 get showde
ixi 5 get iyi 04 get moveto ty14i 5 get showea dy14i 5 get showde

ixi 0 get iyi 05 get moveto ty15i 0 get showea dy15i 0 get showde
ixi 1 get iyi 05 get moveto ty15i 1 get showea dy15i 1 get showde
ixi 2 get iyi 05 get moveto ty15i 2 get showea dy15i 2 get showde
ixi 3 get iyi 05 get moveto ty15i 3 get showea dy15i 3 get showde
ixi 4 get iyi 05 get moveto ty15i 4 get showea dy15i 4 get showde
ixi 5 get iyi 05 get moveto ty15i 5 get showea dy15i 5 get showde

%=t log(5)
%1 0 0 setrgbcolor
ixi 5 get -20 0 rmoveto iyi 05 get moveto
TIL (=t) show 00 0 rmoveto TL (log(5)+50) show
0 setgray

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 iyi 06 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 iyi 07 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 iyi 06 get moveto ty16i 0 get showea dy16i 0 get showde
ixi 1 get iyi 06 get moveto ty16i 1 get showea dy16i 1 get showde
ixi 2 get iyi 06 get moveto ty16i 2 get showea dy16i 2 get showde
ixi 3 get iyi 06 get moveto ty16i 3 get showea dy16i 3 get showde
ixi 4 get iyi 06 get moveto ty16i 4 get showea dy16i 4 get showde
ixi 5 get iyi 06 get moveto ty16i 5 get showea dy16i 5 get showde

ixi 0 get iyi 07 get moveto ty17i 0 get showea dy17i 0 get showde
ixi 1 get iyi 07 get moveto ty17i 1 get showea dy17i 1 get showde
ixi 2 get iyi 07 get moveto ty17i 2 get showea dy17i 2 get showde
ixi 3 get iyi 07 get moveto ty17i 3 get showea dy17i 3 get showde
ixi 4 get iyi 07 get moveto ty17i 4 get showea dy17i 4 get showde
ixi 5 get iyi 07 get moveto ty17i 5 get showea dy17i 5 get showde

%=t log(1)
%1 0 0 setrgbcolor
ixi 5 get iyi 07 get moveto
TIL (=t) show 20 0 rmoveto TL (log(1)+50) show
0 setgray

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 iyi 08 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 iyi 09 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 iyi 08 get moveto ty18i 0 get showea dy18i 0 get showde
ixi 1 get iyi 08 get moveto ty18i 1 get showea dy18i 1 get showde
ixi 2 get iyi 08 get moveto ty18i 2 get showea dy18i 2 get showde
ixi 3 get iyi 08 get moveto ty18i 3 get showea dy18i 3 get showde
ixi 4 get iyi 08 get moveto ty18i 4 get showea dy18i 4 get showde
ixi 5 get iyi 08 get moveto ty18i 5 get showea dy18i 5 get showde

ixi 0 get iyi 09 get moveto ty19i 0 get showea dy19i 0 get showde
ixi 1 get iyi 09 get moveto ty19i 1 get showea dy19i 1 get showde
ixi 2 get iyi 09 get moveto ty19i 2 get showea dy19i 2 get showde
ixi 3 get iyi 09 get moveto ty19i 3 get showea dy19i 3 get showde
ixi 4 get iyi 09 get moveto ty19i 4 get showea dy19i 4 get showde
ixi 5 get iyi 09 get moveto ty19i 5 get showea dy19i 5 get showde

%=t log(5)
%1 0 0 setrgbcolor
ixi 5 get iyi 09 get moveto
TIL (=t) show 20 0 rmoveto TL (log(0,2)+50) show
0 setgray

20 setlinewidth
/lupt iytab iyd add 40 sub 20 add def
/llot iytab iyd 9 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 10 add moveto 0 ldit rlineto stroke
      } for %i=1,5

%horizontal lines
1 2 9 {/i exch def %i=1,9,2
       0 iyi i get 60 sub moveto
       xwidth 0 rlineto stroke
       } for %i=1,9,2

%Lu/Lw special vertical line
ixi 3 get xp add 20 sub llot 10 sub moveto
0 ldit iyd 2 mul sub 00 sub rlineto stroke

0 1 8 {/i exch def %i=0,8
       /Ynref Y_refi i get def
       ispace 2 eq {proz_Y_L*_CIELAB_W} if
       ispace 3 eq {proz_Y_L*_CIELAB_U} if
       ispace 4 eq {proz_Y_L*_IECsRGB_W} if
       L*refi i L*ref put
      } for %i=0,8

ixi 4 get iyi 08 get moveto L*refi 2 get cvishow
(=50) show L*refi 2 get 50 sub cvishow %N
ixi 4 get iyi 06 get moveto L*refi 4 get cvishow
(=50) show L*refi 4 get 50 sub cvishow %U
ixi 4 get iyi 04 get moveto L*refi 6 get cvishow
(=50+) show L*refi 6 get 50 sub cvishow %W

ispace 2 eq {%CIELAB_W
ixi 4 get iyi 09 get moveto TL (=c(0,04)) show
TV 0 50 rmoveto (1/3) show 0 -50 rmoveto TL (-16) show
ixi 4 get iyi 07 get moveto TL (=c(0,2)) show
TV 0 50 rmoveto (1/3) show 0 -50 rmoveto TL (-16) show
ixi 4 get iyi 05 get moveto TL (=c(1)) show
TV 0 50 rmoveto (1/3) show 0 -50 rmoveto TL (-16) show
            } if %CIELAB_W

ispace 3 eq {%CIELAB_U
ixi 4 get iyi 09 get moveto TL (=c(0,2)) show
TV 0 50 rmoveto (1/3) show 0 -50 rmoveto TL (-16) show
ixi 4 get iyi 07 get moveto TL (=c(1,0)) show
TV 0 50 rmoveto (1/3) show 0 -50 rmoveto TL (-16) show
ixi 4 get iyi 05 get moveto TL (=c(5)) show
TV 0 50 rmoveto (1/3) show 0 -50 rmoveto TL (-16) show
            } if %CIELAB_U

ispace 4 eq {%IECsRGB_W
ixi 4 get iyi 09 get moveto TL (=c(0,04)) show
TV 0 50 rmoveto (1/2,4) show 0 -50 rmoveto TL
ixi 4 get iyi 07 get moveto TL (=c(0,2)) show
TV 0 50 rmoveto (1/2,4) show 0 -50 rmoveto TL
ixi 4 get iyi 05 get moveto TL (=c(1)) show
TV 0 50 rmoveto (1/2,4) show 0 -50 rmoveto TL
            } if %IECsRGB_W

0 1 8 {/i exch def %i=0,8
       /Ynref Y_refi i get def
       proz_Y_L*_TUBLOG_U
       L*refi i L*ref 50 add put
      } for %i=0,8

ixi 5 get iyi 08 get moveto L*refi 2 get cvishow
(=50-) show L*refi 2 get 50 sub abs cvishow %N
ixi 5 get iyi 06 get moveto L*refi 4 get cvishow
(=50+) show L*refi 4 get 50 sub cvishow %U
ixi 5 get iyi 04 get moveto L*refi 6 get cvishow
(=50+) show L*refi 6 get 50 sub cvishow %W

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 iyi 04 get moveto (1) show
TL ixi 3 get xp add iyi 06 get moveto (0,2) show
TL ixi 3 get xp add iyi 08 get moveto (0,04) show

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 (: c) show TV 0 -30 rmoveto (U) show 0 30 rmoveto
TL (=c) 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 (: d) show TV 0 -30 rmoveto (W) show 0 30 rmoveto
TL (=d) 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)=57) show

/yhoe 4000 def /xwidth xwidth def
15 setlinewidth
0 setgray
0 0  moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto
closepath stroke

%*****************************************************************
grestore %end because of clip

showpage
grestore

%%Trailer