%!PS-Adobe-3.0 EPSF-3.0 AGG90-3N
%%BoundingBox: 70 83 418 333

%START PDFDE011.PDF
/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/AGG9/AGG9.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:2020090112000)
 /ModDate (D:20200901112000)
/DOCINFO pdfmark03
[ /View [ /FitB ]
/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

/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
72 85 moveto
    (AGG90-3N) show
     
72 90 translate

/yhoe  8500 def
/xwide 12100 def
/ytit   550 def
/yhoet yhoe ytit sub 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
1 1 1 setrgbcolor
0 0  moveto xwide 0 rlineto 0 yhoe rlineto
            xwide neg 0 rlineto closepath fill
0 0 0 setrgbcolor
0 0  moveto xwide 0 rlineto 0 yhoe 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
/yu7 6500 def
/yu6 8200 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

%title text

TBK
 S1 yu6 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

%horizontal
0 yu6 100 sub moveto xwide 0 rlineto stroke


S1 yu6 400 sub moveto
TK (For the ISO\255test file with 729 colours, see ) showea
(Erzeuge ISO\255Datei mit 729 Farben, siehe ) showde

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

S1 yu6 700 sub moveto
TK (Use the OLM16 method) showea
(Benutze OLM16\255Methode) showde
( for output linearization, see) showea
( f\374r Ausgabelinearisierung,) showde

S1 yu6 1000 sub moveto
0 0 1 setrgbcolor
RK
(http://farbe.li.tu-berlin.de/OUTLIN16_01.PDF) show
TK
(.) showea
(,) showde
0 setgray

S1 yu6 1300 sub moveto
TK (Then there are linear relations between ) showea
(ergibt lineare Beziehungen zwischen ) showde
TIK
(rgb*) show
TK ( and ) showea
( und ) showde
TIK
(LCh*.) show

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

S1 yu7 moveto
TBK (Ergonomic and colorimetric goals as option) showea
(Ergonomische und farbmetrische Ziele als Option) showde

/xds 5400 def
S1 50 sub yu7 1.2 0.8 sub yt mul sub moveto
/yds 6.1 yt mul neg def
xds 0 rlineto 0 yds rlineto
xds neg 0 rlineto closepath stroke

S1 yu7 1.2 yt mul sub moveto
TBK
(Improved standardization) showea
(Verbesserte Normung) showde

S1 yu7 2.2 yt mul sub moveto
TK
(Interdisciplinary standards shall replace isolated) showea
(Interdisciplin\344re Normen sollen die isolierten) showde

S1 yu7 3.2 yt mul sub moveto
TK
(standards to realize the properties of the ISO\255colour) showea
(ersetzen und Eigenschaften der ISO\255Farbschleife) showde

S1 yu7 4.2 yt mul sub moveto
TK (loop. The output shall be equal for rgb*/cmyk* data) showea
(realisieren. Die Ausgabe soll f\374r rgb*/cmyk*\255Daten) showde

S1 yu7 5.2 yt mul sub moveto
TK (according to the 1\255Minus\255Relation (1MR)) showea
(gleich sein nach der 1\255Minus\255Relation (1MR)) showde

S1 yu7 6.2 yt mul sub moveto
TK (and continous.) showea
(und continuierlich.) showde


/xds 5400 def
S1 50 sub yu7 7.6 0.8 sub yt mul sub moveto
/yds 5.1 yt mul neg def
xds 0 rlineto 0 yds rlineto
xds neg 0 rlineto closepath stroke    

S1 yu7 7.6 yt mul sub moveto
TBK
(Display output with rgb*/cmyk* data) showea
(Displayausgabe mit rgb*/cmyk*\255Daten) showde

S1 yu7 8.6 yt mul sub moveto
TK
(For different display reflections at work places) showea
(F\374r verschiedene Displayreflexionen am Arbeitplatz) showde

S1 yu7 9.6 yt mul sub moveto
TK
(a relative gamma slider and/or gamma profiles) showea
(sollte ein relativer Schieber und/oder Gammaprofil) showde

S1 yu7 10.6 yt mul sub moveto
TK
(shall produce an ergomomic output for the) showea
(eine ergonomische Ausgabe f\374r das ganze Display) showde

S1 yu7 11.6 yt mul sub moveto
TK
(whole display.) showea
(erzeugen.) showde
   

/xds 5400 def
S1 50 sub yu7 13.0 0.8 sub yt mul sub moveto
/yds 6.1 yt mul neg def
xds 0 rlineto 0 yds rlineto
xds neg 0 rlineto closepath stroke

S1 yu7 13.0 yt mul sub moveto
TBK
(Print output with rgb*/cmyk* data) showea
(Druckausgabe mit rgb*/cmyk*\255Daten) showde

S1 yu7 14.0 yt mul sub moveto
TK
(For different paper contrast at work places) showea
(F\374r verschiedene Papierkontraste solltem mit dem) showde

S1 yu7 15.0 yt mul sub moveto
TK
(with the display or printer driver different) showea
(Display\255 oder Druckertreiber verschiedene relative) showde

S1 yu7 16.0 yt mul sub moveto
TK
(relative gamma shall produce an ergomomic output.) showea
(Gamma f\374r ergonomische Ausgabe erzeugt werden.) showde

S1 yu7 17.0 yt mul sub moveto
TK
(Any printer shall have a cmyk*\255input channel) showea
(Jeder Drucker sollte einen cmyk*\255Eingabekanal als) showde

S1 yu7 18.0 yt mul sub moveto
TK
(as an option to produce an ergomomic output.) showea
(eine Option f\374r eine ergonomische Ausgabe haben.) showde


S1 yu7 19.4 yt mul sub moveto
TIK
(A general ergonomic solution instead of the) showea
(Eine generelle ergonomische L\366sung anstelle des) showde


S1 yu7 20.4 yt mul sub moveto
(gamma transfer is the transfer of 16,7 million) showea
(Gammatransfers ist der Transfer von 16,7 Millionen) showde


S1 yu7 21.4 yt mul sub moveto
TIK
(rgb*/cmyk* to rgb*'/cmyk*' data.) showea
(rgb*/cmyk* nach rgb*'/cmyk*'\255Daten.) showde


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

/xt2 8750 def
/yt2 5300 def
xt2 yt2 translate

/x0right -3100 def

0 setgray

x0right 2200 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

x0right 1900 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

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

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


x0right 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

x0right 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

x0right 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 9000 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 -3270 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

1 0 0 setrgbcolor
0 700 sub  150 moveto
TBM
(ISO\255colour) showea
(ISO\255Farb\255) showde

0 700 sub -150 moveto
TBM
(      loop) showea
(  schleife) showde
0 setgray

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 (rgb* 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