%!PS-Adobe-3.0 EPSF-3.0 AE870-3N
%%BoundingBox: 70 83 413 190

%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/AE87/AE87.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:2020080112000)
 /ModDate (D:2020080112000)
/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

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string } bind 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

/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
%%EndProlog
gsave

/nshow {TS  show} bind def
/kshow {TIS show} bind def
/bshow {TBS show} bind def
/jshow {TBIS show} bind def
/ibshown {TBS -50 -50 rmoveto show 0 50 rmoveto TBS} bind def
/ibshow0 {TBS -00 -50 rmoveto show 0 50 rmoveto TBS} bind def
/ishown  {TS  -50 -50 rmoveto show 0 50 rmoveto TS } bind def
/ishow0  {TS  -00 -50 rmoveto show 0 50 rmoveto TS } bind def

/lanind 0 def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showfr {2 lanind eq {show} {pop} ifelse} bind def
/showes {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showea {1 lanind le {show} {pop} ifelse} bind def
/showm  {6 lanind eq {show} {pop} ifelse} bind def

/lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def}
               {/lanind1 1 def /lanind2 1 def} ifelse
/colormg where {pop /colorm1 colormg def /colorm2 colormg def}
               {/colorm1 0 def /colorm2 0 def} ifelse
/xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def}
               {/xcolor1 0 def /xcolor2 0 def} ifelse
/xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def}
               {/xchart1 0 def /xchart2 0 def} ifelse
/lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage
/colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage
/xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage
/xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage

/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

5 /Times-ISOL1 FS
72 85 moveto
    (AE870-3N) show
     
72 90 translate

/ytit 550 def 
/yhoe 4000 def
/yhoet yhoe ytit sub def
/xwide 12000 def
/ishow {-50 -100 rmoveto 200 /Times-ISOL1 FS show
          0  100 rmoveto TM} bind def

0.01 MM 0.01 MM scale

15 setlinewidth
0.0 0.0 0.0 0.0 setcmykcolor
0 0  moveto xwide 0 rlineto 0 yhoet rlineto xwide neg 0 rlineto
closepath fill
0.0 0.0 0.0 1.0 setcmykcolor
 
0 0  moveto xwide 0 rlineto 0 yhoet rlineto xwide neg 0 rlineto
closepath stroke

/xt1 0 def
/yt1 300 def

xt1 yt1 translate

/ytop 2800 def
/yd 350 def
 100 ytop moveto
0 setgray
TBM (Multifunctional device) showea
    (Multifunktionsger\344t) showde
100 ytop yd 1 mul sub moveto
TK
(with the following modes:) showea
(mit folgenden Funktionen:) showde

TBM
100 ytop yd 2.2 mul sub moveto
(- copier) showea
(- Kopierer) showde
100 ytop yd 3.2 mul sub moveto
(- scanner) showea
(- Scanner) showde
100 ytop yd 4.2 mul sub moveto
(- printer) showea
(- Drucker) showde

xt1 neg yt1 neg translate

%*************************************************************************%RJGB
/xt2 2900 def
/yt2 1000 def

50 setlinewidth
xt2 yt2 translate

0 0 moveto 9000 0 rlineto 0 2000 rlineto
          -9000 0 rlineto closepath stroke
4500 0 moveto 0 1650 rlineto stroke

0 1 0 setrgbcolor
1000 1600 moveto 7000 0 rlineto 0 0800 rlineto
                -7000 0 rlineto closepath fill
0 setgray
1000 1600 moveto 7000 0 rlineto 0 0800 rlineto
                -7000 0 rlineto closepath stroke


TBM
1800 2100 moveto
(high colour fidelity with function copier) showea
(hohe Farbtreue mit Funktion Kopierer) showde

1 0 0 setrgbcolor
-1800 500 sub -350 moveto 300 000 rlineto stroke

0 setgray
-1800 -400 moveto
(lower colour fidelity) showea
(niedrigere Farbtreue) showde

0 1 0 setrgbcolor
-1800 500 sub -650 moveto 300 000 rlineto stroke

0 setgray
-1800 -700 moveto
(high colour fidelity) showea
(hohe Farbtreue) showde
            

1100 1700 moveto
TBIM (LCh* -> rgb -> rgb*       -> ) show

5000 1700 moveto
TBIM (rgb* -> LCh*) show

1450 1200 moveto
TBM (scanner) showea
(Scanner) showde

5000 1700 moveto
TBIM (rgb* -> LCh*) show

5500 1200 moveto
TBM (printer) showea
(Drucker) showde

1 0 0 setrgbcolor
1400  1300 moveto -300 000 rlineto
0000 -2200 rlineto
4000  0000 rlineto 0000 2200 rlineto 300 000 rlineto 
-100 070 rlineto 100 -070 rlineto
-100 -70 rlineto stroke

1400 300 sub  000 sub
1300 000 sub  300 sub moveto
 070 100 rlineto -070 -100 rlineto
-070 100 rlineto stroke


0 1 0 setrgbcolor
2550  1300 moveto  250 000 rlineto
0000 -1100 rlineto
4150  0000 rlineto 0000 1070 rlineto -300 000 rlineto
100 070 rlineto -100 -070 rlineto
100 -70 rlineto
stroke

2500 300 add  000 sub
1300 000 sub  300 sub moveto
 070 100 rlineto -070 -100 rlineto
-070 100 rlineto stroke

0 setgray
1200 -300 moveto
TBM
(File output) showea
(Dateiausgabe) showde

 1200  -600 moveto
TBIM
(rgb) show

/ixk 2100 def
/iyk -600 def
ixk iyk moveto
(-> rgb*) show
1 0 0 setrgbcolor
(  ?) show
30 setlinewidth
ixk iyk -025 add moveto 1000  200 rlineto stroke
ixk iyk  175 add moveto 1000 -200 rlineto stroke
0 setgray

2900 1000 moveto
TBM
(Benutzer\255) showde

2900 700 moveto
(user wish:) showea
(wunsch:) showde

2900 400 moveto
TBIM
(rgb-> rgb*) show

5200 -300 moveto
TBM
(File input) showea
(Dateieingabe) showde

5200  -600 moveto
TBIM
(rgb) show

/ixk 6200 def
/iyk -600 def
ixk iyk moveto
(-> rgb*) show
1 0 0 setrgbcolor
(  ?) show
30 setlinewidth
ixk iyk -025 add moveto 1000  200 rlineto stroke
ixk iyk  175 add moveto 1000 -200 rlineto stroke
0 setgray

7050 1000 moveto
TBM
(Benutzer\255) showde

7050 700 moveto
(user wish:) showea
(wunsch:) showde

7050 400 moveto
TBIM
(rgb* -> LCh*) show

xt2 neg yt2 neg translate

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

showpage
grestore

%%Trailer