%!PS-Adobe-3.0 EPSF-3.0 DE440-8N
%%BoundingBox: 70 85 226 206

%START PDFDE011.EPS
/pdfmark08 where {pop} {userdict /pdfmark08 /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/DE44/DE44.HTM)
  /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
  /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik)
  /Keywords (image reproduction, colour devices)
  /Creator (klaus.richter@mac.com)
  /CreationDate (D:2018070112000)
  /ModDate (D:20180701112000)
/DOCINFO pdfmark08
[ /View [ /Fit ]
/DOCVIEW pdfmark08
%END  PDFDE011

/BeginEPSF {% def               % Prepare for EPS file
/b4_Inc_state save def          % Save state for cleanup
/dict_count countdictstack def
/op_count count 1 sub def       % Count objects on op stack
userdict begin                  % Make userdict current dict
/showpage {} def
0 setgray 0 setlinecap
1 setlinewidth 0 setlinejoin
10 setmiterlimit [] 0 setdash newpath
/languagelevel where            % If level not equal to 1 then
 {pop languagelevel where       % If level not equal to 1 then
 1 ne
 {false setstrokeadjust false setoverprint
 } if
} if
} bind def

/EndEPSF  {% def              % End for EPS file
 count op_count sub {pop} repeat
 countdictstack dict_count sub {end} repeat	% Clean up dict stack
 b4_Inc_state restore
} bind def


% !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 /str {8 string } 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

/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

/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 {350 /TimesB-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

/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

/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

/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

/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

/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

/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
  {setrgbcolor rec fill} bind def
 
/colrecst %x y width heigth c m y k
  {setrgbcolor rec stroke} bind def
 
/cvishow {0.5 add 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
/cvsshow4  {10000 mul cvi 0.0001 mul 8 string cvs show} def
 
%%EndProlog
%lanindL3 START  20160701
/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

/lanind1 1 def /lanind2 1 def /lanindd 01 def /lanindm 01 def
/xcolor1 00 def /xcolor2 00 def /xcolord 01 def /xcolorm 01 def
/xchart1 00 def /xchart2 00 def /xchartd 01 def /xchartm 01 def
/pchart1 00 def /pchart2 00 def /pchartd 01 def /pchartm 01 def
/xchart3 01 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
/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
/xchart3f where {pop /xchart3 xchart3f def} if
/xchart4f where {pop /xchart4 xchart4f def} if
/xchart5f where {pop /xchart5 xchart5f def} if

/lanind lanind1 def %
/xcolor xcolor1 def %
/xchart xchart1 def %
/pchart 2 def %

%lanindL3 START  20160701
gsave

/cname1 [(C) (B) (M)] def
/cname2 [(R) (Y) (G)] def
/dshow {4 /Times-Roman FS 0 -1 rmoveto (d) show 0 1 rmoveto
        5 /Times-Roman FS} def
/gshow {RBS 0 -50 rmoveto (d) show 0 50 rmoveto RBK} def

%0 1 4 {/pchart exch def %BEG pchart=0,4

/xchart 4 def
%0 4 8 {/xchart exch def %BEG xchart=0,4,8

gsave

/xs 300 def /ys xs def /d2 xs 2 div def /d8 xs 8 div def

72 90 translate

120 -4 moveto
4 /Times-Roman FS
(DE440-8N) show

0.01 MM dup scale

15 setlinewidth

pchart 0 eq {0.5 setgray} if
pchart 1 eq {0.0 setgray} if
pchart 2 eq {1.0 setgray} if
pchart 3 eq {0 1 1 setrgbcolor} if
pchart 4 eq {1 0 0 setrgbcolor} if

0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
closepath fill

0.0 setgray
0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
closepath stroke

RBIK
pchart 1 ne {0 setgray} {1 setgray} ifelse
0400 1850 moveto cname1 xchart 4 idiv get show gshow %left mean
4700 1850 moveto cname2 xchart 4 idiv get show gshow %right mean
2970 3780 moveto (W) show gshow %mean top
2920 0080 moveto (N) show gshow %mean down

grestore
gsave

72 90 translate

/fakt 2540 4 div def

0.01 MM dup scale

0 0 translate
0 setlinewidth

0 setgray

/ymax 5000 def
/xmin 180 def
/xd 270 def
/yd 270 def
/xsd xs xd sub 0.5 mul def
/ysd xs xd sub 0.5 mul def

20 setlinewidth

/xtr 825 def /ytr 250 def
xtr ytr translate

%3x rgbcmy
/id 1 8 div def
/rijn 81 array def %for intermediate storage
/gijn 81 array def /bijn 81 array def

/n -1 def
/xaddr -2000 def
/yaddr 000 def
xaddr yaddr translate
-45 rotate

/lmin xchart 4 idiv def
/lmax lmin def
lmin 1 lmax {/l exch def %l=0,lmax
             /xadd 0 def
             /yadd 0 def
          
%for intermediate storage of l=0,lmax
0 1 01 {/jchart exch def %jchart=0,1
        /xchartj l jchart 3 mul add def
0 1 08 {/j exch def %j=0,7
        /im 8 j sub def
jchart 1 im {/i exch def %i=0,8
        /ia 1 id j mul sub def
        /argb ia def /brgb ia i id mul sub def
        xchartj 0 eq {/r argb def /g brgb def /b brgb def} if
        xchartj 1 eq {/r argb def /g argb def /b brgb def} if
        xchartj 2 eq {/r brgb def /g argb def /b brgb def} if
        xchartj 3 eq {/r brgb def /g argb def /b argb def} if
        xchartj 4 eq {/r brgb def /g brgb def /b argb def} if
        xchartj 5 eq {/r argb def /g brgb def /b argb def} if
        jchart 0 eq {/in i j add def /jn j def}
                    {/in j def /jn i j add def} ifelse
                     rijn in 9 mul jn add r put
                     gijn in 9 mul jn add g put
                     bijn in 9 mul jn add b put
        } for %i=0,7
        } for %j=0,8
        } for %jchart=0,1
        
%for output of l=0,lmax

%        0   1   2   3   4   5   6   7   8
/xchar [(A) (B) (C) (D) (E) (F) (G) (H) (I)] def

TS
/xa xmin xadd add def
/ya ymax yadd sub def
0.5 0.5 0.5 setrgbcolor
xa xsd sub ya xs add xsd sub xs 9 mul xs 9 mul neg rec fill

0 1 08 {/j exch def %j=0,8
0 1 08 {/i exch def %i=0,8
        /r rijn i j 9 mul add get def
        /g gijn i j 9 mul add get def
        /b bijn i j 9 mul add get def
        
        /xa xmin xs j mul add xadd add def
        /ya ymax xs i mul sub yadd sub def
        
        r g b setrgbcolor
        xa ya xd dup rec fill
        pchart 1 ne {0 setgray} {1 setgray} ifelse
        i 0 eq {xa xd 0.3 mul add ya yd 1.2 mul add moveto xchar j get show} if
        j 0 eq {xa xd 0.8 mul sub ya yd 0.3 mul add moveto i cvishow} if
        } for %i=0,8
        } for %j=0,8

        } for %l=0,lmax
        
        45 rotate
        xadd neg yadd neg translate
       
xtr neg ytr neg translate
        
showpage

/ioutd 0 def
ioutd 1 eq {%ioutd=1

0 1 000010 {/j exch def
0 1 100000 {/i exch def %dummy for 1s? display time
            } for %dummy for 1s? display time
            } for %dummy

} if %ioutd=1

grestore

%} for %xchart=0,4,8

%} for %pchart=0,4

%%Trailer