%!PS-Adobe-3.0 EPSF-3.0 DG781-7N
%%BoundingBox: 70 83 413 318

%START PDFDE011.EPS
/pdfmark17 where {pop} {userdict /pdfmark17 /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/DG78/DG78.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, colour vision)
  /Creator (klaus.richter@mac.com)
  /CreationDate (D:2018120112000)
  /ModDate (D:2018120112000)
/DOCINFO pdfmark17
[ /View [ /FitB ]
/DOCVIEW pdfmark17
%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

/RK {250 /Times-Roman 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

/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 le {show} {pop} ifelse} bind def
/showes {2 lanind eq {show} {pop} ifelse} bind def
/showfr {3 lanind le {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind le {show} {pop} ifelse} bind def
/showea {lanind 1 ge {show} {pop} ifelse} bind def

/lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def}
               {/lanind1 0 def /lanind2 0 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
380 85 moveto
    (DG781-7N) show
     
72 90 translate

/ytit 550 def 
/yhoe 8500 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

/yt 300 def %y-Zeilenabstand for text
/yd 400 def %y-Zeilenabstand for formula

%Spalten
/S1 100 def
/S2  1500 def
/S3  2300 def
/S4  5900 def
/S5  7700 def
/S6  8500 def

/yz 400 def
/yu5 7600 def
/yu4 7100 def
/yu3 5800 def
/yu2 5800 def
/yu1 5800 def

/yhoey yhoet  550 sub def
/yhoe2 yhoet 1250 sub def

%vertical
% S2 100 sub yhoey moveto 0 yhoey neg rlineto stroke

%horizontal
0 yu4 300 add moveto xwide 0 rlineto stroke

%Titeltext

TBK
 S1 yu5 moveto
(Output - Input - Output: A loop for relative colour fidelity with the visual) showea
(Ausgabe - Eingabe - Ausgabe: Schleife f\374r relative Farbtreue mit visuellen) showde
TBIK ( rgb*) show
TBK ( and) showea (\255 und) showde 
TBIK ( LCh*) show
TBK
( CIELAB data) showea
(\255CIELAB\255Daten) showde

0000 -200 translate %triangle

S1 7200 moveto
TBK (Erzeuge Referenz\255Pr\374fvorlage mit 729 CIELAB\255Farben) showde
(Produce a reference test chart with 729 CIELAB colours) showea

S1 6900 moveto
TK (oder kaufe, oder benutze PG4311L von) showde
(or buy one, or use PG4311L of) showea
TIK
( Farbe und Farbsehen,) showde
( Colour and Colour Vision,) showea

S1 6600 moveto
TK (siehe ) showde
(see ) showea
0 0 1 setrgbcolor
RK
(http://standards.iso.org/iso/9241/306/ed-2/ES15.PDF ) showea
(http://standards.iso.org/iso/9241/306/ed-2/GS15.PDF ) showde
TK
0 setgray


S1 6200 moveto
TBK (Example: Linearized output in offset print) showea
(Beispiel: Linearisierte Ausgabe im Offsetdruck) showde

S1 5900 moveto
TK (Ausgabelinearsierung erzeugt f\374r 729=9\2679\2679) showde
(Output linearization produces for 729=9\2679\2679) showea
TIK ( rgb) show
TK ( input data) showea
(\255Eingabedaten) showde

S1 5600 moveto
TK (the 729) showea
(die 729) showde
TIK ( LCh*) show
TK
( CIELAB output colours. Use the file) showea
( CIELAB\255Ausgabefarben. Benutze die Datei) showde

S1 5300 moveto
0 0 1 setrgbcolor
RK
(http://standards.iso.org/iso/9241/306/ed-2/) show
S1 5000 moveto
(AE49/AE49F0PX_CY8_1.PDF ) showea
(AG49/AG49F0PX_CY8_1.PDF ) showde
TK

0 setgray

S1 4600 moveto
TK (Use the OLM16 method) showea
(Benutze die OLM16\255Methode) showde
( for output linearization,) showea
( f\374r Ausgabe\255) showde

S1 4300 moveto
TK
(see) showea
(Linearisierung, siehe) showde

S1 4000 moveto
0 0 1 setrgbcolor
RK
(http://farbe.li.tu-berlin.de/OUTLIN16_01.PDF ) show
TK
0 setgray

S1 3600 moveto
(produce a Table ) showea
(erzeuge eine Tabelle ) showde
TIK
(rgb -> rgb' ) show 
TK
(for 729=9\2679\2679 colours) showea
(f\374r 729=9\2679\2679 Farben) showde

S1 3300 moveto
(apply a method to transfer any value ) showea
(wende Transfermethode an f\374r jeden Wert ) showde
TIK
(rgb -> rgb') show
S1 3000 moveto
TK
(for 256\267256\267256 (16 million) colours) showea
(f\374r 256\267256\267256 (16 Millionen) Farben) showde

 100 2650 moveto
0 setgray
TBK (Offset) showea
    (Offset) showde
TBIK
( rgb*) show
TBK
( data input and) showea
(\255Dateneingabe und) showde
TBIK
( LCh*) show
TBK ( data output) showea
(\255Datenausgabe) showde

/S10  100 def
/S11  400 def

/S20 2500 def
/S21 2800 def
/S23 3100 def

/S30 3500 def
/S31 3800 def
/S33 4100 def 

/Z10 2350 def
/Z1R 2050 def
/Z1Y 1750 def
/Z1G 1450 def
/Z1B 1150 def
/Z1N 0850 def
/Z1W 0550 def

S10 Z10 moveto
TBK (Color) showea
(Farbe) showde

S20 Z10 moveto
TBIK (rgb*) show

S30 Z10 moveto
TBIK (LCh*) show

%Z1R****************************
S10 Z1R moveto
TBIK (R) show (e) ishow
S11 Z1R moveto
TK (Elementar\255Rot) showde
(elementary red) showea
S20 Z1R moveto
TBK (1 0 0) show
S30 Z1R moveto
TK (47, 74,) show TBK ( 26) show TK

%Z1Y****************************
S10 Z1Y moveto
TBIK (Y) show (e) ishow
S11 Z1Y moveto
TK (Elementar\255Gelb) showde
(elementary yellow) showea
S20 Z1Y moveto
TBK (1 1 0) show
S30 Z1Y moveto
TK (86, 88,) show TBK ( 92) show TK

%Z1G****************************
S10 Z1G moveto
TBIK (G) show (e) ishow
S11 Z1G moveto
TK (Elementar\255Gr\374n) showde
(elementary green) showea
S20 Z1G moveto
TBK (0 1 0) show
S30 Z1G moveto
TK (53, 57,) show TBK ( 164) show TK

%Z1B****************************
S10 Z1B moveto
TBIK (B) show (e) ishow
S11 Z1B moveto
TK (Elementar\255Blau) showde
(elementary blue) showea
S20 Z1B moveto
TBK (0 0 1) show
S30 Z1B moveto
TK (42, 45,) show TBK ( 271) show TK

%Z1N****************************
S10 Z1N moveto
TBIK (N) show
S11 Z1N moveto
TK (Schwarz) showde
(black) showea
S20 Z1N moveto
TBK (0 0 0) show
S30 Z1N moveto
TK (18,) show TBK ( 0, 0) show TK

%Z1W****************************
S10 Z1W moveto
TBIK (W) show
S11 Z1W moveto
TK (Wei\337) showde
(white) showea
S20 Z1W moveto
TBK (1 1 1) show
S30 Z1W moveto
TK (95,) show TBK ( 0, 0) show

S10 300 moveto
TIK 
((data according to test chart DIN 33872\2552, p. 9\25512)) showea
((Daten nach Pr\374fvorlage DIN 33872\2552, S. 9\25512)) showde

0000 200 translate

%***************************************************************
%SCAN of Reference test chart

/xt2 8750 def
/yt2 5300 def
xt2 yt2 translate

0 setgray
-2300 1700 moveto
TBK (Benutze diese Pr\374fvorlage mit 729 CIELAB Farben) showde
(Use reference test chart with 729 CIELAB colours) showea

-2300 1300 moveto
TK
(Colour scanners or cameras produce 729) showea
(Farbscanner und \255Kameras erzeugen 729) showde
TIK ( rgb) show
TK ( data.) showea
(\255Daten.) showde


-2300 0900 moveto
TK
(Transfer the 729) showea
(Transferiere die 729) showde
TIK ( rgb) show
TK ( data to the 729) showea
(\255Daten zu den 729) showde
TIK ( rgb*) show
TK ( data.) showea
(\255Daten.) showde

-2300 0500 moveto
TK (Nach der linearisierten Eingabe benutze die 729) showde
(After the linearized input the 729 colour data) showea
TIK ( rgb*) show (\255) showde

-2300 0200 moveto
TK (may be used again for the linearized output.) showea
(Daten erneut f\374r die linearisierte Ausgabe.) showde

xt2 neg yt2 neg translate

%*************************************************************************
/xt3 8900 def
/yt3 3000 def
xt3 yt3 translate
/dx 050 def
/dy 100 def
/ydy 300 def

40 setlinewidth
newpath
0 0 2000 0 360 arc stroke
0 0 1 setrgbcolor
0 2000 100 0 360 arc fill
0 2000 moveto -4300 0 rlineto 0 300 rlineto 0 -600 rlineto stroke
-3800 2000 moveto -200  70 rlineto stroke
-3800 2000 moveto -200 -70 rlineto stroke
0 setgray

2000 045 cos mul 2000 045 sin mul moveto  140 -030 rlineto stroke
2000 045 cos mul 2000 045 sin mul moveto  030 -170 rlineto stroke
2000 045 cos mul -100 add 2000 045 sin mul 200 add moveto
TBIM (rgb*) show

2000 135 cos mul 2000 135 sin mul moveto  140  030 rlineto stroke
2000 135 cos mul 2000 135 sin mul moveto  060  170 rlineto stroke
0 0 1 setrgbcolor
2000 135 cos mul -1800 add 2000 135 sin mul 700 add moveto
TBIK (rgb=rgb*->LCh*) show
0 500 sub 2130 moveto
TBK 
(ISO file) showea
(ISO\255Datei) showde


2000 135 cos mul -1800 add 2000 135 sin mul 350 add moveto
TBK (OLM16) show
(\255Ausgabe\255) showde
( output) showea
2000 135 cos mul -1800 add 2000 135 sin mul 050 add moveto
TBK
(Linearisierungs\255) showde
(linearization) showea
2000 135 cos mul -1800 add 2000 135 sin mul 250 sub moveto
TBK
(Methode) showde
(method) showea
0 setgray

2000 225 cos mul 2000 225 sin mul moveto -140  030 rlineto stroke
2000 225 cos mul 2000 225 sin mul moveto -030  170 rlineto stroke
2000 225 cos mul -900 add 2000 225 sin mul 200 sub moveto
TBIM (LCh*) show
1 0 0 setrgbcolor
2000 225 cos mul -2050 add 2000 225 sin mul 450 sub moveto
TBK
(visueller Test) showde
(visual test) showea
2000 225 cos mul -2050 add 2000 225 sin mul 700 sub moveto
TK
(Elementarbuntton (J/N)?) showde
(elementary hue (Y/N)?) showea
2000 225 cos mul -2050 add 2000 225 sin mul 950 sub moveto
TK
(gleiche Stufung (J/N)?) showde
(equal spacing (Y/N)?) showea
2000 225 cos mul -2050 add 2000 225 sin mul 1200 sub moveto
TK
(Benutze Farben in) showde
(use colours in) showea
2000 225 cos mul -2050 add 2000 225 sin mul 1450 sub moveto
TK (Spalte) showde
TK (colum) showea
TBIK ( b) show TK
( bis ) showde
( to ) showea
TBIK (j) show TK
0 setgray

2000 315 cos mul 2000 315 sin mul moveto -140 -030 rlineto stroke
2000 315 cos mul 2000 315 sin mul moveto -060 -170 rlineto stroke
2000 315 cos mul -200 add 2000 315 sin mul -400 add moveto
TBIM (rgb) show
0 0 1 setrgbcolor
2000 315 cos mul 400 add 2000 315 sin mul 250 add moveto
TBK
(Eingabeli\255) showde
(input) showea
2000 315 cos mul 300 add 2000 315 sin mul 050 sub moveto
TBK
(nearisierung) showde
(linearization) showea
2000 315 cos mul 300 add 2000 315 sin mul 300 sub moveto
TBIK (rgb->rgb*) show
0 setgray

30 setlinewidth

/xre -2950 def
/yre -0950 def
/xyw  1900 def
1 setgray
xre yre moveto xyw 0 rlineto 0 xyw rlineto
               xyw neg 0 rlineto closepath fill
0 setgray
xre yre moveto xyw 0 rlineto 0 xyw rlineto
               xyw neg 0 rlineto closepath stroke


xre dx add  yre dy add moveto
TBIK (rgb* -> LCh*) show
xre dx add  yre dy add ydy 1 mul add moveto
TK (Display, Projektor) showde
(display, projector) showea
xre dx add  yre dy add ydy 2 mul add moveto
TK (Drucker, Offset,) showde
(printer, offset,) showea
xre dx add  yre dy add ydy 3 mul add moveto
TBK (Hardware) showde
(hardware) showea
xre dx add  yre dy add ydy 4 mul add moveto
TK (digital -> analog) show
xre dx add  yre dy add ydy 5 mul add moveto
TBK (Bildprozess) showde
(image process) showea

%************************************
/xre -0950 def
/yre -2950 def
/xyw  1900 def
1 setgray
xre yre moveto xyw 0 rlineto 0 xyw rlineto
               xyw neg 0 rlineto closepath fill
0 setgray
xre yre moveto xyw 0 rlineto 0 xyw rlineto
               xyw neg 0 rlineto closepath stroke

xre dx add  yre dy add moveto
TBIK (LCh* -> rgb) show
xre dx add  yre dy add ydy 1 mul add moveto
TK (Farbkamera) showde
(colour camera) showea
xre dx add  yre dy add ydy 2 mul add moveto
TK (Farbscanner,) showde
(colour scanner,) showea
xre dx add  yre dy add ydy 3 mul add moveto
TBK (Hardware) showde
(hardware) showea
xre dx add  yre dy add ydy 4 mul add moveto
TK (analog -> digital) show
xre dx add  yre dy add ydy 5 mul add moveto
TBK (Bildprozess) showde
(image process) showea

%*************************************
/xre  1050 def
/yre -0900 def
/xyw  1900 def
1 setgray
xre yre moveto xyw 0 rlineto 0 xyw rlineto
               xyw neg 0 rlineto closepath fill
0 setgray
xre yre moveto xyw 0 rlineto 0 xyw rlineto
               xyw neg 0 rlineto closepath stroke

xre dx add  yre dy add moveto
TBIK (rgb -> rgb*) show
xre dx add  yre dy add ydy 1 mul add moveto
TK (Tabelle / \344hnlich) showde
(table or similar) showea
xre dx add  yre dy add ydy 2 mul add moveto
TIK (ICC Look_Up) show
xre dx add  yre dy add ydy 3 mul add moveto
TBK (Software) showde
(software) showea
xre dx add  yre dy add ydy 4 mul add moveto
TK (digital -> digital) show
xre dx add  yre dy add ydy 5 mul add moveto
TBK (Bildprozess) showde
(image process) showea

xt3 neg yt3 neg translate
%*************************************************************************

showpage
grestore

%%Trailer