%!PS-Adobe-3.0 EPSF-3.0 AE050-3N
%%BoundingBox: 70 82 785 270

%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: http://farbe.li.tu-berlin.de/AE05/AE05.HTM)
  /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
  /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik)
  /Keywords (image reproduction, colour devices)
  /Creator (klaus.richter@mac.com)
  /CreationDate (D:2016040112000)
  /ModDate (D:20160401112000)
/DOCINFO pdfmark03
[ /View [ /FitB ]
/DOCVIEW pdfmark03
%END  PDFDE011

/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

/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

/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

/TBS {200 /TimesB-ISOL1 FS} bind def
/TBK {250 /TimesB-ISOL1 FS} bind def
/TBM {300 /TimesB-ISOL1 FS} bind def
/TBG {350 /TimesB-ISOL1 FS} bind def

/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

/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

/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

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

/tznw* {0.00} bind def %grey series
/tzdw* {0.25} bind def
/tzzw* {0.50} bind def
/tzhw* {0.75} bind def
/tzww* {1.00} bind def

/tfnw* {tznw* setgray} def
/tfww* {tzww* setgray} def

/tfn {0 setgray} bind def
/tfw {1 setgray} bind def

/trn {0.0 0.0 0.0} def %Reproduktionsfarben NZW
/trz {0.5 0.5 0.5} def
/trw {1.0 1.0 1.0} def

/tgn {trn setrgbcolor} def
/tgz {trz setrgbcolor} def
/tgw {trw setrgbcolor} 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

/rem %x0, y0 width heigth
  {/heigth exch def /width exch def /y0 exch def /x0 exch def
   x0 width 0.5 mul add y0 heigth 0.5 mul add moveto
   width 0 rlineto 0 heigth rlineto width neg 0 rlineto
   closepath } bind def

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

/proc_16rec1 {%BEG proc_16rec1
                %requires 0<=iout<=1
                %requires deintp=0,1

15 setlinewidth
tfw
0 0  moveto 24800 0 rlineto 0 6250 rlineto
           -24800 0 rlineto closepath fill

tfn
0 0  moveto 24800 0 rlineto 0 6250 rlineto
           -24800 0 rlineto closepath stroke

/iout 0 def
tfn
TK
100 -230 moveto
iout 0 eq {(AE050-3, ) show}
          {(AE050-5, ) show} ifelse
(Bild ) showde
(picture ) showen
(Fig. ) showes
(Fig. ) showfr
(Fig. ) showit
(Figur ) showjp

iout 0 eq {(A1) show}
          {(A2) show} ifelse
(W) show Txx show (: ) show

TIK (PS) show TK
(\255Operator:) showde
( operator:) showen
( operator:) showes
( op\351rateur :) showfr
( operator:) showit
( operator:) showjp

TIK
xcolor 0 eq {( 000n setcmykcolor) show} if
xcolor 1 eq {( w setgray) show} if
xcolor 2 eq {( nnn0 setcmykcolor) show} if
xcolor 3 eq {( www setrgbcolor) show} if
TK

%%%%%%%%%%%   oberer Schriftzug %%%%%%%%%%%%%%%%
tfn
/x0  100 def
/y0 5000 def
/yd  300 def

iout 0 eq {%iout=0,1
TBG
x0 y0 0800 add moveto
(This test chart is designed for a luminance test ) show
(according to ISO 9241-306, ) show
(and for the usual use of displays in offices: ) show
x0 y0 0450 add moveto
(If possible the luminance (brightness) ) show
(of the white screen shall be adjusted visually to about 142 cd/m) show
TBM 0 50 rmoveto (2) show 0 -50 rmoveto TM (.) show

TM
x0 y0 yd 0 mul sub moveto
(The luminance of this upper white rectangle ) show
(shall be covered by a white cardboard (no light goes thru) ) show
(and shall be visually equal to the lower white display rectangle ) show
(at the work place.) show

x0 y0 yd 1 mul sub moveto (Remarks: ) show
x0 y0 yd 2 mul sub moveto
(Usually this upper white cardboard looks more yellowish. ) show
(Still try to adjust the luminance of this upper and the lower rectangle ) show
(by minimizing the luminance contrast.) show
x0 y0 yd 3 mul sub moveto
(For any other viewing situation visual fatique is reduced, ) show
( if equal luminance is adjusted for the white cardboard ) show
(and of the white display.) show
} %iout=0

{%iout=1
/y0 5900 def
TM
x0 y0 yd 0 mul sub moveto
(Use the display "luminance (brightness)" bottom of the display to equal ) show
(the luminance of this lower and the ) show
(upper white rectangle (covered with a white cardboard).) show
x0 y0 yd 1 mul sub moveto
(If possible, measure the luminance of this lower display white ) show
(with a luminance meter. Is the value arround 142 cd/m) show
TK 0 40 rmoveto (2) show 0 -40 rmoveto TM
(?) show
x0 y0 yd 2 mul sub moveto
(If possible, measure the illuminance of this lower display white ) show
(with a lux meter. Is the value arround 500 lux?) show
x0 y0 yd 3 mul sub moveto
(If no measurement is possible, asume that the display luminance is ) show
(142 cd/m) show TK 0 40 rmoveto (2) show 0 -40 rmoveto TM (.) show
x0 y0 yd 4 mul sub moveto
(Remarks:) show
x0 y0 yd 5 mul sub moveto
(The luminance ) show
(142 cd/m) show TK 0 40 rmoveto (2) show 0 -40 rmoveto TM
( corresponds to a display illuminance of 500 lux ) show
(by the usual reflection of 90% of the white cardboard.) show
x0 y0 yd 6 mul sub moveto
(The room illuminance 500 lux is asumed according to ISO 8995-1.) show
( In bright daylight the illuminance may be up to ten times higher.) show

} ifelse %iout=0,1


} def %END proc_16rec1

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

/cviht {dup 0 ge {0.49 add}{0.49 sub} ifelse cvi} def
/cvishow {dup 0 ge {0.5 add} {0.5 sub} ifelse
          cvi 6 string cvs show} def
/cvsshow1 {dup 0 ge {0.05 add} {0.05 sub} ifelse
           10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2 {dup 0 ge {0.005 add} {0.005 sub} ifelse
           100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3 {dup 0 ge {0.0005 add} {0.0005 sub} ifelse
           1000 mul cvi 0.001 mul 7 string cvs show} def
    
/A4quer {598 0 tl 90 rotate} def
%%EndProlog
gsave

/lanind 1 def
/lantex [(G) (E) (S) (N) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showes {2 lanind eq {show} {pop} ifelse} bind def
/showfr {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showea {1 lanind le {show} {pop} ifelse} bind def
/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 02 def /pchart2 02 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 /lanindm lanindmf def} if
/colormf where {pop /colorm1 colormf  def /colorm2 colormf  def
                    /colormd colormdf def /colormm colormmf def} if
/deintpf where {pop /deintp1 deintpf  def /deintp2 deintpf  def
                    /deintpd deintpdf def /deintpm deintpmf def} if
/xcolorf where {pop /xcolor1 xcolorf  def /xcolor2 xcolorf  def
                    /xcolord xcolordf def /xcolorm xcolormf def} if
/xchartf where {pop /xchart1 xchartf  def /xchart2 xchartf  def
                    /xchartd xchartdf def /xchartm xchartmf def} if
/pchartf where {pop /pchart1 pchartf  def /pchart2 pchartf  def
                    /pchartd pchartdf def /pchartm pchartmf def} if
/colsepf where {pop /colsep1 colsepf  def /colsep2 colsepf  def
                    /colsepd colsepdf def /colsepm colsepmf def} if
/pmetamf where {pop /pmetam1 pmetamf  def /pmetam2 pmetamf  def
                    /pmetamd pmetamdf def /pmetamm pmetammf 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
%0 1 1 {/colorml exch def %colorml=0,1

/xcolorl xcolor def
%0 1 3 {/xcolorl exch def %xcolorl=0,3

/xchartl xchart def
%0 1 7 {/xchartl exch def %xchartl=0,7

/pchartl pchart def
%0 1 2 {/pchartl exch def %pchartl=0,2

colorml 0 eq deintp 0 eq and {/Txx (dd) def  /Fxx (d) def} if
colorml 0 eq deintp 1 eq and {/Txx (de) def  /Fxx (e) def} if
colorml 1 eq deintp 0 eq and {/Txx (*dd) def /Fxx (d) def} if
colorml 1 eq deintp 1 eq and {/Txx (*de) def /Fxx (e) def} if
%xchart 0 eq {/Txx (-) def /Fxx (-) def} if

gsave

xcolorl 0 eq {/tfnx* {0 0 0 1 setcmykcolor} def
              /tfwx* {0 0 0 0 setcmykcolor} def
              /colrecfix* {setcmykcolor rec fill} bind def
              /colrecstx* {setcmykcolor rec stroke} bind def
             } if
xcolorl 1 eq {/tfnx* {0 setgray} def
              /tfwx* {1 setgray} def
              /colrecfix* {setgray rec fill} bind def
              /colrecstx* {setgray rec stroke} bind def
             } if
xcolorl 2 eq {/tfnx* {1 1 1 0 setcmykcolor} def
              /tfwx* {0 0 0 0 setcmykcolor} def
              /colrecfix* {setcmykcolor rec fill} bind def
              /colrecstx* {setcmykcolor rec stroke} bind def
             } if
xcolorl 3 eq {/tfnx* {0 0 0 setrgbcolor} def
              /tfwx* {1 1 1 setrgbcolor} def
              /colrecfix* {setrgbcolor rec fill} bind def
              /colrecstx* {setrgbcolor rec stroke} bind def
             } if


68 90 translate
0.01 MM dup scale

0 setgray
15 setlinewidth

/iout 3 def
/INW 0 def
200 0 translate
proc_16rec1 %**********************************************************

showpage
grestore

%} for %pchartl=0,2

%} for %xchartl=0,7

%} for %xcolorl=0,3

%} for %colorml=0,1

%%Trailer