%!PS-Adobe-3.0 EPSF-3.0 ggt61-3n
%%BoundingBox: 70 83 421 335

%START PDFDE011.EPS
/pdfmark13 where {pop} {userdict /pdfmark13 /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/ggt6/ggt6.HTM)
 /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
 /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de)
 /Keywords (image reproduction, colour devices, colour vision)
 /Creator (klaus.richter@mac.com)
 /CreationDate (D:2022060112000)
 /ModDate (D:2022060112000)
/DOCINFO pdfmark13
[ /View [ /FitB ]
/DOCVIEW pdfmark13
%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

/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 {160 /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

/RVV {120 /Times-Roman 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
%%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 1 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
    (ggt61-3n) show
     
72 90 translate

gsave

0.010 MM dup scale
/yhoe 8500 def /xwidth 12050 def

25 setlinewidth
0.0 0.0 1.0 0.0 setcmyk_olvcolor
0 0  moveto xwidth 0 rlineto 0 yhoe rlineto
            xwidth neg 0 rlineto closepath fill
0.0 0.0 0.0 1.0 setcmyk_olvcolor

0 0  moveto xwidth 0 rlineto 0 yhoe rlineto
            xwidth neg 0 rlineto closepath stroke

%line under title
0 yhoe 400 sub moveto xwidth 0 rlineto stroke
 
grestore

0.014 MM dup scale

/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 yhoe  550 sub def
/yhoe2 yhoe 1250 sub def

%Titeltext

TBK
 S1 5670 175 add moveto
(ISO colour file and loop: ) showen
(file -> print -> scan or photo -> file) showen
(ISO\255Farbdatei und Schleife: ) showde
(Datei -> Druck -> Scan oder Foto -> Datei) showde

/s9o16 1 def
/ilin 0 def %0:TUB-FF_LM, 1:OLM16

TS
S1 5670 100 sub moveto
s9o16 0 eq {%s9o16=0
            (use the ISO file with 729 (=9x9x9) colours, ) showea
            (and with 9 and 16 step grey scales:) showea
            (benutze die ISO\255Datei mit 729(=9x9x9) Farben ) showde
            (und mit 9 und 16stufigen Grauskalen:) showde
           }
           {%s9o19=1
            (use die ISO file with 9 and 16 step colour scales: ) showea
            (W_R(O), W_G(L), W_B(V), and W_N) showea
            (benutze die ISO\255Datei mit 9 und 16stufigen ) showde
            (Farbreihen: W_R(O), W_G(L), W_B(V) und W_N) showde
           } ifelse


 S1 5670 350 sub moveto
RS
0 0 1 setrgbcolor
s9o16 0 eq {%s9o16=0
(http://standards.iso.org/iso/9241/306/ed-2/AE49/AE49F0PX_CY8_1.PDF) showen
(http://standards.iso.org/iso/9241/306/ed-2/AG49/AG49F0PX_CY8_1.PDF) showde
           }
           {%s9o19=1
(http://standards.iso.org/iso-iec/15775/ed-2/en/Test_Chart_4.PDF)
showea
(http://standards.iso.org/iso-iec/15775/ed-2/en/Test_Chart_4.PDF)
showde  
           } ifelse

0 setgray


/y1h   5000 def
/yshd  0250 def

0 0 1 setrgbcolor
S1 y1h moveto 
TBK (ISO colour file, and ) showen
(ISO\255Farbatei und ) showde

ilin 1 eq {TBIK (TUB) showen (TUB\255) showde} if


S1 y1h yshd sub moveto
TBIK ilin 0 eq {(TUB) show}{(OLM16) show} ifelse
TBK ( method for) showen
(\255Methode f\374r) showde

S1 y1h yshd 2 mul sub moveto
TBK (device output) showen
(Ger\344teausgabe\255) showde

S1 y1h yshd 3 mul sub moveto
TBK (linearization) showen
(Linearisierung) showde
0 setgray


/y2h   1000 def
/yshd  0250 def

1 0 0 setrgbcolor
S1 y2h moveto
TBK
(visueller Test: ) showde
(visual test: ) showea
TK
(gleiche) showde
(equal) showea

%TK
%(Elementarbuntton (J/N)?) showde
%(elementary hue (Y/N)?) showea

S1 y2h yshd sub moveto
(relative Stufung (J/N)?) showde
(relative spacing (Y/N)?) showea

TK
S1 y2h yshd 2 mul sub moveto
s9o16 0 eq {%s9o16=0
            (Benutze Farben in) showde
            (use colours in) showea
           }
           {%s9o19=1
            (Benutze die 16stufigen) showde
            (use the 9 and 16 step colour) showea
           } ifelse 

S1 y2h yshd 3 mul sub moveto
s9o16 0 eq {%s9o16=0
            (Spalte) showde
            (colum) showea
            TBIK ( b) show TK
            ( bis ) showde
            ( to ) showea
            TBIK (j) show TK
           }
           {%s9o19=1
            (Farbreihen in Bild D4) showde
            (series in Picture D4) showea
           } ifelse

0 setgray

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

50 setlinewidth
newpath
0 0 2000 0 360 arc stroke
0 0 1 setrgbcolor
0 0 2000 100 0 360 arc fill

1 setgray
0 0 0840 0 360 arc fill
0 setgray
0 0 0840 0 360 arc stroke
0  840 moveto  100  080 rlineto stroke
0  840 moveto  100 -080 rlineto stroke
0 -840 moveto -100  080 rlineto stroke
0 -840 moveto -100 -080 rlineto stroke
-670  200 moveto TBK (Realization) showen 
                     (Realisierung) showde
-770 -100 moveto TBIK (TUB) show TBK ( software) showen (\255Software) showde
-420 -400 moveto TBIK (FF_LM) show


TBK
-500 1700 moveto (ISO file) showen (ISO\255Datei) showde
-1100 1400 moveto (with ) showen (mit ) showde
TBIK (rgb*) show
TBK ( colour data) showen (\255Farbdaten) showde
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 067 cos mul -50 add 2000 067 sin mul 100 add moveto
TBIM (rgb*) show

/lwin 0130 def
2000 lwin cos mul 2000 lwin sin mul moveto
140  030 rlineto stroke
2000 lwin cos mul 2000 lwin sin mul moveto
060  170 rlineto stroke

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

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
TBIK (TUB\255) showde (TUB) showen
TBK
(Ger\344teeingabe\255) showde
(device input) showea
2000 315 cos mul 300 add 2000 315 sin mul 050 sub moveto
TBK
(Linearisierung) showde
(linearization) showea
2000 315 cos mul 300 add 2000 315 sin mul 300 sub moveto
TBIK (rgb->rgb*) show
0 setgray

30 setlinewidth

lanind 0 eq {/xre -3150 def} {/xre -2950 def} ifelse
/yre -0950 def
lanind 0 eq {/xyw1 2150 def} {/xyw1 1950 def} ifelse
/xyw2  1850 def 
1 setgray
xre yre moveto xyw1 0 rlineto 0 xyw2 rlineto
               xyw1 neg 0 rlineto closepath fill
0 setgray
xre yre moveto xyw1 0 rlineto 0 xyw2 rlineto
               xyw1 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 (Drucker oder Offset) showde
(printer or offset) showen
xre dx add  yre dy add ydy 2 mul add moveto
TK (Farbdisplay) showde
(colour display) showen
xre dx add  yre dy add ydy 3 mul add moveto
TBK (Hardware) showde
(hardware) showen
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) showen

%************************************
/xre -0950 def
/yre -2950 def
/xyw  1850 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) showen
xre dx add  yre dy add ydy 2 mul add moveto
TK (Farbscanner,) showde
(colour scanner,) showen
xre dx add  yre dy add ydy 3 mul add moveto
TBK (Hardware) showde
(hardware) showen
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) showen

%*************************************
/xre  1050 def
/yre -0900 def
lanind 0 eq {/xyw 2150 def} {/xyw 1950 def} ifelse
1 setgray
xre yre moveto xyw 0 rlineto 0 1850 rlineto
               xyw neg 0 rlineto closepath fill
0 setgray
xre yre moveto xyw 0 rlineto 0 1850 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 (risierung ) showde (rization ) showen
TIK ((FF_LM)) show
xre dx add  yre dy add ydy 2 mul add moveto
TK (Rahmendatei\255Linea\255) showde (Frame File linea\255) showen
xre dx add  yre dy add ydy 3 mul add moveto
TBIK (TUB\255) showde (TUB ) showen
TBK (software) showde
(software) showen
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) showen

xt3 neg yt3 neg translate

/iout 1 def
iout 1 eq {%iout=1

/xpo4 5100 def
/ypo4 5100 def
xpo4 ypo4 moveto
TV (Literatur f\374r Ein\255 und Ausgabelinearisierung) showde
(Literature for input and output linearization) showen

ilin 0 eq {%ilin=0
xpo4 ypo4 200 sub moveto
TIV
(Richter, K., ) show
TV
(Frame File Colour Management (FF_LM)) showen
(Rahmendatei-Farbmanagement (FF_LM)) showde

xpo4 ypo4 400 sub moveto
TV
(for the ergonomic display output ...) showen
(f\374r die ergonomische Displayausgabe ...) showde
(, siehe) showde
(, see) showen

xpo4 ypo4 600 sub moveto
RV
0 0 1 setrgbcolor
(http://color.li.tu-berlin.de/disgam25e.pdf ) showen
(http://farbe.li.tu-berlin.de/disgam25d.pdf ) showde
0 setgray
(&) show

TV
xpo4 ypo4 800 sub moveto
RV
0 0 1 setrgbcolor
(http://color.li.tu-berlin.de/dislum25e.pdf ) showen
(http://farbe.li.tu-berlin.de/dislum25d.pdf ) showde
} if %ilin=0

ilin 1 eq {%ilin=1
xpo4 ypo4 200 sub moveto
TIV
(Richter, K., ) show
TV
(Output Linearisation Method) show

xpo4 ypo4 400 sub moveto
TIV
(TUB ) show
TV
(for Displays, Offset, and Printers) show
(, siehe) showde
(, see) showen

xpo4 ypo4 600 sub moveto
RV
0 0 1 setrgbcolor
(http://color.li.tu-berlin.de/OUTLIN16_01.PDF) show
0 setgray

TV
xpo4 ypo4 800 sub moveto
(similar to CIE R8\25509:2016 (for CIE members)) showen
(\344hnlich CIE R8\25509:2016 (f\374r CIE\255Mitglieder)) showde
} if %ilin=1


/xpo5 4450 def
/ypo5 1000 def
/ydel 0180 def
0 setgray
xpo5 ypo5 0 ydel mul sub moveto
TV
(ISO files with equally spaced color scales:) showen
(ISO\255Dateien mit gleichabst\344ndigen Farbskalen:)
showde

0 0 1 setrgbcolor
RV
xpo5 ypo5 1 ydel mul sub moveto
(http://standards.iso.org/iso/9241/306/ed-2/index.html)
show

xpo5 ypo5 2 ydel mul sub moveto
(http://standards.iso.org/iso-iec/15775/ed-2/en)
show

0 setgray
xpo5 ypo5 3.2 ydel mul sub moveto
TV
(TUB files with equally spaced color scales and FF_LM:) showen
(TUB\255Dateien mit gleichabst\344ndigen Farbskalen & FF_LM:) showde

0 0 1 setrgbcolor
RV
xpo5 ypo5 4.2 ydel mul sub moveto
(http://color.li.tu-berlin.de/gens.htm) showen
(http://farbe.li.tu-berlin.de/ggns.htm) showde

xpo5 ypo5 5.2 ydel mul sub moveto
(http://color.li.tu-berlin.de/gen3/gen3l0np.pdf) showen
(http://farbe.li.tu-berlin.de/ggn3/ggn3l0np.pdf) showde

0 setgray

} if %iout=1

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

showpage
grestore

%%Trailer