%!PS-Adobe-3.0 EPSF-3.0 DG780-3N
%%BoundingBox: 70 83 413 320

%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: 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 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
380 85 moveto
    (DG780-3N) show
     
72 90 translate

/xw0 12000 def
/yw0  8000 def
/yt0 300 def %y-Zeilenabstand for text
/yd0 400 def %y-Zeilenabstand for formula

%Spalten
/S1 100 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 setgray
0 0  moveto xw0 0 rlineto 0 yw0 rlineto xw0 neg 0 rlineto
closepath fill
0 setgray
 
0 0  moveto xw0 0 rlineto 0 yw0 rlineto xw0 neg 0 rlineto
closepath stroke

%Titeltext
/yu0 yw0 300 sub def
TBK
 S1 yu0 moveto
(Designers and users: Ergonomic management of colour material in a virtual showroom ) showea
(Designer und Benutzer: Egonomisches Managment von Farbmaterial in einem virtuellen Vorzeigeraum ) showde

TIK
S1 yu0 300 sub moveto
(ISO\255Ergonomie der Mensch\255System\255Interaktion - ) showde 
(ISO\255Ergonomics of human\255systems interaction - ) showea
(Vor\255Ort\255Bewertungsverfahren f\374r elektronische optische Anzeigen) showde 
(Field assessment methods for electronic visual displays) showea

TK
S1 yu0 600 sub moveto
(F\374r ISO\255Pr\374fvorlagen nach ISO 9241\255306:2018, siehe: ) showde
(For ISO\255test charts according to ISO 9241\255306:2018 see: ) showea
RK
0 0 1 setrgbcolor
(http://standards.iso.org/iso/306/ed-2/index.html) show
0 setgray
TK

S1 yu0 700 sub moveto xw0 0 rlineto stroke


100 500 moveto
(If the example is a house, the showroom master ) showea
(M shows his visual room view for the showroom clients.) showea
(Wenn das Beispiel ein Haus ist, zeigt der ) showde
(Showroom\255Meister M seine visuelle Raumsicht den Showroom\255Kunden.) showde

100 200 moveto
(The showroom master M can walk from room to room, ) showea
(Der Showroom\255Meister kann von Raum zu Raum wandern ) showde

(and change a given wall paper or a given textile of a sofa.) showea
(und eine Tapete oder die Textilie eines Sofas \344ndern.) showde

/xw0 100 def

%***************************************************************
/xt1 00100 def
/yt1 01000 def
/xw1 11700 def
/yw1 04000 def
/xw10 0 def
/yw10 0 def
/xw11 xw1 def
/yw11 yw1 def

xt1 yt1 translate

1 1 0.5 setrgbcolor
0 0 moveto xw1 0 rlineto 0 yw1 rlineto
           xw1 neg 0 rlineto closepath fill
0 setgray
0 0 moveto xw1 0 rlineto 0 yw1 rlineto
           xw1 neg 0 rlineto closepath stroke

%window1
1 setgray
1000 0 moveto 2000 0 rlineto stroke
[100] 0 setdash
0 setgray
1000 0 moveto 2000 0 rlineto stroke
[] 0 setdash
1000 -100 moveto 0 200 rlineto stroke
3000 -100 moveto 0 200 rlineto stroke
%1400 50 moveto
%(window) showea
%(Fenster) showde

%window2
1 setgray
7000 0 moveto 2000 0 rlineto stroke
[100] 0 setdash
0 setgray
7000 0 moveto 2000 0 rlineto stroke
[] 0 setdash
 7000 -100 moveto 0 200 rlineto stroke
 9000 -100 moveto 0 200 rlineto stroke
% 7400 50 moveto
%(window) showea
%(Fenster) showde

/xw11 xw1 def
/yw11 yw1 100 sub def

%xw0 600 add yw1 300 sub moveto
%(ergonomic input:) showea
%(ergonomische Eingabe:) showde
%xw0 600 add yw1 600 sub moveto
%(scanner or photography) showea
%(Scanner oder) showde
%xw0 600 add yw1 900 sub moveto
%(Photographie) showde

%xw0 yw10 moveto
%TK
%(Text11) show

%window2, screen: 11700
1 0 0 setrgbcolor
07000 1500 add 0 moveto
03200 1000 rlineto -03200 1000 rlineto stroke

/xtra1 03200 0.7 mul def
/ytra1 01000 0.7 mul def
/xtra2 -3200 0.3 mul def
/ytra2 01000 0.3 mul def
07000 1500 add xtra1 add 0 ytra1 add moveto
-150 0 rlineto 150 0 rlineto -110 -090 rlineto stroke
07000 1500 add 03200 add xtra2 add
0 1000 add ytra2 add moveto
150 0 rlineto -150 0 rlineto 110 -090 rlineto stroke

10000 2300 moveto
(eight standard) showea
(acht Standard\255) showde
10000 2000 moveto
(ISO reflexions) showea
(ISO\255Refexionen) showde
0 setgray

xt1 neg yt1 neg translate

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

/xt2 00500 def
/yt2 02000 def
/xw2 03100 def
/yw2 02000 def
/xw20 0 def
/yw20 0 def
/xw21 xw2 def
/yw21 yw2 def

xt2 yt2 translate

1 setgray
0 0 moveto xw2 0 rlineto 0 yw2 rlineto
           xw2 neg 0 rlineto closepath fill
0 setgray
0 0 moveto xw2 0 rlineto 0 yw2 rlineto
           xw2 neg 0 rlineto closepath stroke

/xw02 xw0 xw2 add def
/yw02 yw2 0.5 mul def
xw02 -100 add yw02 moveto 0500  0 rlineto stroke

/it1 0 def
it1 1 eq {%it1=1
xw02 200 add yw02 moveto 0 -2800 rlineto stroke
xw02 200 add yw02 moveto 0 -1400 rlineto -50 100 rlineto stroke
xw02 200 add yw02 moveto 0 -1400 rlineto  50 100 rlineto stroke

xw02 200 add yw02 2200 sub moveto
200 0 rlineto -100 50 rlineto 100 -50 rlineto -100 -50 rlineto stroke
xw02 200 add yw02 2500 sub moveto
200 0 rlineto -100 50 rlineto 100 -50 rlineto -100 -50 rlineto stroke
xw02 200 add yw02 2800 sub moveto
200 0 rlineto -100 50 rlineto 100 -50 rlineto -100 -50 rlineto stroke

xw02 500 add yw02 2250 sub moveto
(printer) showea
(Drucker) showde
xw02 500 add yw02 2550 sub moveto
(digital print) showea
(digitaler Druck) showde
xw02 500 add yw02 2850 sub moveto
(offset print) showea
(Offsetdruck) showde

xw02 1250 sub yw02 2400 sub moveto
(ergonomic) showea
(ergonomische) showde
xw02 1250 sub yw02 2700 sub moveto
(output:) showea
(Ausgabe: ) showde
} if %it1

xw0 yw2 0300 sub moveto
TBK
(Computer with ) showea
(Rechner + ) showde
TBK
(ergonomic) showea
(ergonomischer) showde

xw0 yw2 0600 sub moveto
(colour processor (ECP)) showea
(Farbprozessor (ECP)) showde

TK
xw0 yw2 0900 sub moveto
(start architecture) showea
(Start Architektur) showde

xw0 yw2 1200 sub moveto
(start design) showea
(Start Design) showde

xw0 yw2 1500 sub moveto
(start colour palette (CP)) showea
(Start Farbpalette (CP)) showde

xw0 yw2 1800 sub moveto
(change colour palette ) showea
(\304nderung Farbpalette ) showde
0 75 rmoveto 200 0 rlineto
%arraw
100 50 rlineto -100 -50 rlineto 100 -50 rlineto -100 50 rlineto 
%shift to master
300 0 rlineto 0 2200 rlineto 2000 0 rlineto
100 50 rlineto -100 -50 rlineto 100 -50 rlineto -100 50 rlineto
1500 0 rlineto stroke


newpath
xw20 00 add yw20 300 sub 150 0 360 arc fill
xw20 00 add 200 add yw20 350 sub moveto
TK
((product colour) designer D) showea
((Produktfarb\255)Designer D) showde
xw20 00 add yw20 300 sub moveto
-150 0 rlineto 0 1150 rlineto 150 0 rlineto stroke
%arrow
xw20 00 add yw20 300 sub 1150 add moveto -100 -50 rlineto stroke
xw20 00 add yw20 300 sub 1150 add moveto -100  50 rlineto stroke

%second design
xw20 00 add yw20 300 sub moveto
-150 0 rlineto 0 0850 rlineto 150 0 rlineto stroke
%arrow
xw20 00 add yw20 300 sub 0850 add moveto -100 -50 rlineto stroke
xw20 00 add yw20 300 sub 0850 add moveto -100  50 rlineto stroke

xw20 00 add yw20 600 sub 150 0 360 arc fill
xw20 00 add 200 add yw20 650 sub moveto
((product) architect A) showea
((Produkt\255)Architekt A) showde
xw20 00 add yw20 600 sub moveto
-300 0 rlineto 0 1750 rlineto 300 0 rlineto stroke
%arrow
xw20 00 add yw20 600 sub 1750 add moveto -100 -50 rlineto stroke
xw20 00 add yw20 600 sub 1750 add moveto -100  50 rlineto stroke

/xw22 xw20 200 add def
/yw22 yw21 def
/zd22 2700 def
%arrow

xw22 yw22 moveto  0 zd22 rlineto stroke
xw22 yw22 moveto  50 100 rlineto stroke
xw22 yw22 moveto -50 100 rlineto stroke


/yw23 yw22 zd22 add def

xw22 000 sub yw23 75 add 150 0 360 arc fill

newpath
xw22 200 add yw23 000 sub moveto
TK
((material) producer (P)) showea
((Material\255)Produzent (P)) showde

xw22 50 add yw23 400 sub moveto
(For applications he offers) showea
(F\374r Anwendungen bietet er) showde

xw22 50 add yw23 700 sub moveto
(a colour palette (CP) with) showea
(eine Farbpalette (CP) mit) showde

xw22 50 add yw23 1000 sub moveto
(the linearly connected) showea
(den linear verbundenen) showde
xw22 50 add yw23 1300 sub moveto
TIK (rgb*) show
TK
( and CIELAB ) showea
(\255 und CIELAB ) showde
TIK
(LCh*) show
TK
( data.) showea
(\255Daten.) showde

/it2 0 def
it2 1 eq {%it2=1
xw22 50 add yw23 300 sub moveto
(with texture:) showea
(mit Textur:) showde
xw22 200 add yw23 600 sub moveto
(textiles, wall paper, parquet,..) showea
(Textilien, Tapete, Parkett,..) showde

xw22 50 add yw23 900 sub moveto
(without texture:) showea
(ohne Textur:) showde
xw22 200 add yw23 1200 sub moveto
(color system samples, vector) showea
(Farbsystem\255Muster, Vektor\255) showde
xw22 200 add yw23 1500 sub moveto
(graphic, web design, ...) showea
(grafik, Webdesign, ...) showde
} if %it2=1


/xw24 xw22 3500 add def
/yw24 yw23 def
/yw25 yw24 0950 sub def
/yw26 yw24 1300 sub def

xw24 yw24 000 sub moveto
(General goal of a vitual showroom) showea
(Generelles Ziel eines virtuellen Showrooms) showde

xw24 yw24 300 sub moveto
(The showroom master M uses ISO\255test charts according to ) showea
(Der Showroom\255Meister M benutzt ISO\255Pr\374fvorlagen nach ) showde
(ISO 9241\255306 ) show
xw24 yw24 600 sub moveto
(to optimize the output for (showroom) clients C.) showea
(zur Optimierung der Ausgabe f\374r Showroom\255Kunden C.) showde


xw24 yw25 000 sub moveto
(The showroom master M accepts proposals of the producer P, ) showea
(Der Showroom\255Meister M akzeptiert Vorschl\344ge des Produzenten P, des) showde
xw24 yw25 300 sub moveto
(of the architect A, the Designer D and the Clients C ) showea 
(for design changes.) showea
(Architekten A, des Designers D und der Kunden C ) showde
(f\374r Design\344nderungen.) showde
                                                                   
/it3 0 def
it3 1 eq {%it3=1
xw24 yw24 000 sub moveto 
(Goal 1: the producer (P) offers his colour palette (CP) to be included) showea
(Ziel 1: Der Produzent (P) bietet seine Farbpalette (CP) zur Einf\374gung) showde
xw24 yw24 300 sub moveto
(in the final design for clients (customers) C.) showea
(in das finale Design f\374r Kunden (Verbraucher) C.) showde

xw24 yw25 000 sub moveto
(Goal 2: the master M uses ISO\255test charts according to ISO ) showea
(Ziel 2: Der Meister M benutzt ISO\255Pr\374fvorlagen nach ISO ) showde
(ISO 9241\255306 ) show
xw24 yw25 300 sub moveto
(to optimize the output for (showroom) clients C.) showea
(zur Optimierung der Ausgabe f\374r Showroom\255Kunden C.) showde

xw24 yw26 000 sub moveto
(Goal 3: the master M offers colour palettes of different design) showea
(Ziel 3: Der Meister M offeriert Farbpaletten von verschiedenem Design) showde 
xw24 yw26 300 sub moveto
(to reach a final design for clients C.) showea
(um ein finales Design f\374r Kunden C zu erreichen.) showde
} if %it3=1

xt2 neg yt2 neg translate

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

/xt3 04000 def
/yt3 02500 def
/xw3 02300 def
/yw3 01300 def
/xw30 0 def
/yw30 0 def
/xw31 xw3 def
/yw31 yw3 def

xt3 yt3 translate

1 setgray
0 0 moveto xw3 0 rlineto 0 yw3 rlineto
       xw3 neg 0 rlineto closepath fill

0 setgray
0 0 moveto xw3 0 rlineto 0 yw3 rlineto
       xw3 neg 0 rlineto closepath stroke

/xw31 xw3 def
/yw31 yw3 100 sub def

xw0 yw30 1000 add moveto
TK
(Computer display) showea
(Rechner\255display) showde
xw0 yw30 700 add moveto
TK
(virtual output ) showea
(virtuelle Ausgabe ) showde
0 100 rmoveto 300 0 rlineto 
%arrow
-100 50 rlineto 100 -50 rlineto -100 -50 rlineto 100 50 rlineto
%rest shift different (ea, de)
lanind 0 eq {400 0 rlineto}
            {850 0 rlineto} ifelse
0 1150 rlineto stroke

%master
xw0 2550 add yw30 700 add 1250 add 300 add moveto
((showroom) master M) showea
((Showroom\255)Master M) showde
xw0 0300 sub yw30 550 add 1250 add 300 add moveto
(device for CP change) showea
(Ger\344t f\374r CP\255\304nderung) showde
xw0 0500 sub yw30 150 add 1250 add 300 add moveto
((device for room change)) showea
((Ger\344t f\374r Raum\344nderung)) showde

newpath
%person
xw0 2550 add yw30 700 add 1250 add 150 0 360 arc fill

%virtual spectacle
xw0 2550 add yw30 700 add 1250 add 150 sub moveto 
0200 0 rlineto 0 300 rlineto
-200 0 rlineto closepath stroke


xw0 yw30 400 add moveto
TK
(projector output ) showea 
(Projektor\255Ausgabe ) showde
0 100 rmoveto 200 0 rlineto
%arrow
-100 50 rlineto 100 -50 rlineto -100 -50 rlineto 100 50 rlineto 
300 0 rlineto
[100] 0 setdash
lanind 1 eq
{5500 2000 rlineto 0 -4000 rlineto -5500 2000 rlineto stroke}
{5200 2000 rlineto 0 -4000 rlineto -5200 2000 rlineto stroke} ifelse
            
[ ] 0 setdash

/it4 0 def
it4 1 eq {%it4=1
xw0 yw30 100 add moveto
TK
(internet output ) showea
(Internet\255Ausgabe ) showde
0 100 rmoveto 250 0 rlineto 
%arrow
-100 50 rlineto 100 -50 rlineto -100 -50 rlineto 100 50 rlineto
%rest shift different (ea, de)
lanind 0 eq {350 0 rlineto}
            {600 0 rlineto} ifelse
0 -2400 rlineto 100 0 rlineto stroke
xw0 2400 add yw30 1800 sub 150 0 360 arc fill
newpath
xw0 2600 add yw30 1800 sub 75 sub moveto 
((internet) observer (O) display) showea
((Internet\255)Beobachter\255Display) showde
xw0 2600 add yw30 2100 sub 75 sub moveto
((internet) observer (O) printer) showea
((Internet\255)Beobachter\255Drucker) showde
} if %it4

newpath
xt3 neg yt3 neg translate

%***************************************************************
/xt4 07000 def
/yt4 02000 def
/xw4 02000 def
/yw4 02000 def
/xw40 0 def
/yw40 0 def
/xw41 xw4 def
/yw41 yw4 def

xt4 yt4 translate

/xw41 xw4 def
/yw41 yw4 100 sub def

%clients
0 1 1 {/j exch def %j=0,1
0 1 4 {/i exch def %i=0,4
xw41 500 j mul sub yw40 i 500 mul add 150 0 360 arc fill
} for %i=0,4
} for %j=0,1

newpath
xw40 300 add yw40 500 sub moveto
((showroom) clients C) showea
((Showroom\255)Kunden C) showde

newpath
xt4 neg yt4 neg translate

showpage
grestore

%%Trailer