%!PS-Adobe-3.0 EPSF-3.0 XE080-7N
%%BoundingBox: 70 83 392 335

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

% !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I

/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

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string } bind def

/TS {190 /Times-ISOL1 FS} bind def
/TK {240 /Times-ISOL1 FS} bind def
/TM {290 /Times-ISOL1 FS} bind def
/TG {340 /Times-ISOL1 FS} bind def

/TIS {190 /TimesI-ISOL1 FS} bind def
/TIK {240 /TimesI-ISOL1 FS} bind def
/TIM {290 /TimesI-ISOL1 FS} bind def
/TIG {340 /TimesI-ISOL1 FS} bind def

/TBS {190 /TimesB-ISOL1 FS} bind def
/TBK {240 /TimesB-ISOL1 FS} bind def
/TBM {290 /TimesB-ISOL1 FS} bind def
/TBG {340 /TimesB-ISOL1 FS} bind def

/TBIS {190 /TimesBI-ISOL1 FS} bind def
/TBIK {240 /TimesBI-ISOL1 FS} bind def
/TBIM {290 /TimesBI-ISOL1 FS} bind def
/TBIG {340 /TimesBI-ISOL1 FS} bind def

/SS {190 1 sub /Symbol FS} bind def
/SK {240 1 sub /Symbol FS} bind def
/SM {290 1 sub /Symbol FS} bind def
/SG {340 1 sub /Symbol FS} bind def

%XCHA01.PS BEG
/rec %x, y width heigth
  {/heigth exch def /width exch def
   moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto
   closepath } bind def
/circ %x, y radius
  {dcirc 0 360 arc } bind def

/colrecfi %x y width heigth c m y k
  {setcmyk_olvcolor rec fill} bind def

/colrecst %x y width heigth c m y k
  {setcmyk_olvcolor rec stroke} bind def

/colarcfi %x y c m y k
  {setcmyk_olvcolor circ fill} bind def

/colarcst %x y width heigth c m y k
  {setcmyk_olvcolor circ stroke} bind def

/rem %x, y width heigth
  {/heigth exch 0.5 mul def /width exch 0.5 mul def
   /yleftb exch heigth 0.5 mul add def
   /xleftb exch width  0.5 mul add def
   xleftb yleftb
   moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto
   closepath } bind def

/colremfi %x y width heigth c m y k
  {setcmykcolor rem fill} bind def

/colremst %x y width heigth c m y k
  {setcmykcolor rem stroke} bind def

/tzr {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben
/tzg {1.0 0.0 1.0 0.0} bind def
/tzb {1.0 1.0 0.0 0.0} bind def
/tzc {1.0 0.0 0.0 0.0} bind def
/tzm {0.0 1.0 0.0 0.0} bind def
/tzy {0.0 0.0 1.0 0.0} bind def

/tzn {0.0 0.0 0.0 1.00} bind def %Graureihe
/tzd {0.0 0.0 0.0 0.75} bind def
/tzz {0.0 0.0 0.0 0.50} bind def
/tzh {0.0 0.0 0.0 0.25} bind def
/tzw {0.0 0.0 0.0 0.00} bind def

/tfr {0.0 1.0 1.0 0.0 setcmyk_olvcolor} bind def %Reproduktionsfarben
/tfg {1.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def
/tfb {1.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def
/tfc {1.0 0.0 0.0 0.0 setcmyk_olvcolor} bind def
/tfm {0.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def
/tfy {0.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def

/tfrz {0.0 1.0 1.0 0.5 setcmyk_olvcolor} bind def %Reproduktionsfarben
/tfgz {1.0 0.0 1.0 0.5 setcmyk_olvcolor} bind def
/tfbz {1.0 1.0 0.0 0.5 setcmyk_olvcolor} bind def
/tfcz {1.0 0.0 0.0 0.5 setcmyk_olvcolor} bind def
/tfmz {0.0 1.0 0.0 0.5 setcmyk_olvcolor} bind def
/tfyz {0.0 0.0 1.0 0.5 setcmyk_olvcolor} bind def

/tfn {0.0 0.0 0.0 1.00 setcmyk_olvcolor} bind def %Graureihe
/tfd {0.0 0.0 0.0 0.75 setcmyk_olvcolor} bind def
/tfz {0.0 0.0 0.0 0.50 setcmyk_olvcolor} bind def
/tfh {0.0 0.0 0.0 0.25 setcmyk_olvcolor} bind def
/tfw {0.0 0.0 0.0 0.00 setcmyk_olvcolor} bind def

/cvishow {cvi 10 string cvs show} def
/cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def

%%EndProlog
gsave

/lanind 1 def
/lantex [(G) (E) (S) (F) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showes {2 lanind eq {show} {pop} ifelse} bind def
/showfr {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

/lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def
                    /lanindd laninddf def}
               {/lanind1 1 def /lanind2 1 def} ifelse
/colormf where {pop /colorm1 colormf def /colorm2 colormf def
                    /colorMD colormdf def}
               {/colorm1 0 def} ifelse
/deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def
                    /deintpd deintpdf def}
               {/deintp1 0 def} ifelse
/xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def
                    /xcolord xcolordf def}
               {/xcolor1 3 def} ifelse
/xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def
                    /xchartd xchartdf def
                    /xchartm xchart2f xchart1f sub 1 add def}
               {/xchart1 0 def /xchartm 1 def} ifelse
/xchart3f where {pop /xchart3 xchart3f def}
                {/xchart3 0 def} ifelse
/xchart4f where {pop /xchart4 xchart4f def}
                {/xchart4 0 def} ifelse
/pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def
                    /pchartd pchartdf def}
               {/pchart1 3 def} ifelse
/colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def
                    /colsepd colsepdf def}
               {/colsep1 0 def} ifelse
/pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def
                    /pmetaMD pmetamdf def}
               {/pmetam1 0 def} ifelse

%either defaul values for xchart=0 or values for xchart=1
/lanind lanind1 def %
/colorm colorm1 def %
/deintp deintp1 def %
/xcolor xcolor1 def %
/xchart xchart1 def %
/pchart pchart1 def %
/colsep colsep1 def %
/pmetam pmetam1 def %

colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0
colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1
colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0
colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1
xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output

5 /Times-ISOL1 FS
/cvishow {cvi 6 string cvs show} def
75 85 moveto
lanind cvishow (-) show
colorm cvishow
deintp cvishow
xcolor cvishow
xchart cvishow
pchart cvishow
colsep cvishow (-L) show pmetam cvishow

gsave
/xchart xchart1 def

%0 1 2 {/xchart4 exch def %xchart4=0,2

5 /Times-ISOL1 FS
340 85 moveto
(XE080-7N) show
%xchart 0 eq {(N) show}
%            {deintp colorm 2 mul add cvishow} ifelse

72 90 translate

/yhoe 8500 def
0.01 MM dup scale

15 setlinewidth
0.0 0.0 1.0 0.0 setcmyk_olvcolor
0 0  moveto 11200 0 rlineto 0 yhoe rlineto -11200 0 rlineto
closepath fill
0.0 0.0 0.0 1.0 setcmyk_olvcolor
 0 0  moveto 11200 0 rlineto 0 yhoe rlineto -11200 0 rlineto
closepath stroke
 
 0 yhoe 550 sub  moveto 11200 0 rlineto stroke
 
/ns {340 /Times-ISOL1 FS  show TG} bind def
/ks {340 /TimesI-ISOL1 FS  show TG} bind def
/bs {340 /TimesB-ISOL1 FS  show TG} bind def
/js {340 /TimesBI-ISOL1 FS  show TG} bind def
/ss {340 /Symbol FS  show TG} bind def
/is {240 /Times-ISOL1 FS 0 -90 rmoveto show 0   90 rmoveto TG} bind def
/is0 {240 /Times-ISOL1 FS -30 -90 rmoveto show 0   90 rmoveto TG} bind def
/es {240 /Times-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto TG} bind def
%/ipoint {340 /Times-ISOL1 FS 50 50 rmoveto show 50 -50 rmoveto TG} bind def
%/ip {(.) ipoint} bind def
/ip {(\267) ns TG} bind def
/ib {(\267) bs TG} bind def

%20% kleiner
/ns2 {290 /Times-ISOL1 FS  show TM} bind def
/ks2 {290 /TimesI-ISOL1 FS  show TM} bind def
/bs2 {290 /TimesB-ISOL1 FS  show TM} bind def
/js2 {290 /TimesBI-ISOL1 FS  show TM} bind def
/is2 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TM} bind def
/is20 {200 /Times-ISOL1 FS -20 -60 rmoveto show 0 60 rmoveto TM} bind def
/iks2 {200 /TimesI-ISOL1 FS 10 -40 rmoveto show -10 40 rmoveto TM} bind def
/es2 {240 /Times-ISOL1 FS 0 160 rmoveto show 0 -160 rmoveto TM} bind def
/ip2 {(\267) ns2 TM} bind def
/ib2 {(\267) bs2 TM} bind def

%40% kleiner
/ns4 {240 /Times-ISOL1 FS  show TK} bind def
/ks4 {240 /TimesI-ISOL1 FS  show TK} bind def
/bs4 {240 /TimesB-ISOL1 FS  show TK} bind def
/js4 {240 /TimesBI-ISOL1 FS  show TK} bind def
/is4 {160 /Times-ISOL1 FS 8 -48 rmoveto show -8 48 rmoveto TK} bind def
/iks4 {160 /TimesI-ISOL1 FS 8 -48 rmoveto show -8 48 rmoveto TK} bind def
/es4 {200 /Times-ISOL1 FS 0 190 rmoveto show 0 -190 rmoveto TK} bind def
/ip4 {(\267) ns4 TK} bind def
/ib4 {(\267) bs4 TK} bind def

/ydel 300 def

%Titeltext
 100 8100 moveto TBG
(Relative & skalierte visuelle Differenz; ) showde                  %08560-7 1
(Relative and scaled visual differences; ) showea                   %18560-7 1
(Triplets & Paare; separate Farben) showde                          %08560-7 11
(triplets and pairs; separate colours) showea                       %18560-7 11

/ix1  0100 def
/ix2  3400 def
/ix20 ix2 250 sub def
/ix3  5500 def
/ix4  8100 def

ix1 7650 moveto TG
(relative visuelle) showde
(relative visual) showea
ix1 7300 moveto
(Skala ) showde
(scale ) showea
SG (D) show -40 0 rmoveto TIG (V) show 
            -40 0 rmoveto (3,i) is TM ( (i=0,1)) show
ix1 6950 moveto
TG
(Bereich 0 bis 1) showde
(range 0 to 1) showea


ix1 100 moveto TG
(2 Experimente von 5 Beobachtern) showde
(2 experiments of 5 observers) showea

ix3 500 sub 100 moveto TG
( slider to adjust the sample) showea
(Schieber\255Musterjustierung) showde


ix20 500 sub 7650 moveto TG
(Paarvergleich) showde
(pair comparison) showea
TIG ( (P)) show TG
ix20 500 sub 7300 moveto
(Grau \255 Gr\374n) showde
(to grey \255 turquoise) showea
ix20 500 sub 6950 moveto
SG (D) show TIG (P*) show (i) is0 TG ( : ) show 
SG (D) show TIG (V*) show (R) is0 TG (=10) show

ix3 200 add 7650 moveto TG
(relative visual) showea
(relative visuelle) showde
ix3 200 add 7300 moveto
(scale between) showea
(Skala zwischen) showde
ix3 200 add 6950 moveto TIG
xchart4 0 eq {(N-Z) show} if
xchart4 1 eq {(G_Z) show} if
xchart4 2 eq {(B-Z) show} if
TG
( and ) showea
( und ) showde
TIG 
xchart4 0 eq {(Z-W) show} if
xchart4 1 eq {(Z_M) show} if
xchart4 2 eq {(Z-Y) show} if

/ix41 ix4 200 add def

ix41 7650 moveto TG
(skalierte Daten) showde
(scaled visual data) showea

ix41 7300 moveto
SG (D) show -40 0 rmoveto TIG (V*) show (i) is
TG (=) show
SG (D) show -40 0 rmoveto TIG (V) show -40 0 rmoveto (6,i) is2
ip SG (D) show TIG (P*) show (i) is0
TM ((i=0,4)) show

/ixj [200 600 1500 2200] def
/ixi [200 800 1700 2400] def

ix41 6950 moveto
SK (D) show TIK (V) show (6,i) is2
ix41 ixj 1 get add 6950 moveto
SK (D) show TIK (P*) show (i) is20
ix41 ixj 2 get add 6950 moveto
SK (D) show TIK (V*) show (i) is20
ix41 ixj 3 get add 6950 moveto
SK (D) show TIK (V*) show (ri) is20

/col3 [
%1
0.00 0.00 0.00 1.00 %N
0.00 0.00 0.00 0.50 %Z
0.00 0.00 0.00 0.00 %W

%2
1.00 0.00 1.00 0.00 %G
0.00 0.00 0.00 0.50 %Z
0.00 1.00 0.00 0.00 %M

%3
1.00 1.00 0.00 0.00 %B
0.00 0.00 0.00 0.50 %Z
0.00 0.00 1.00 0.00 %Y
      ] def

/col6 [
%1
0.00 0.00 0.00 1.00 %N
0.00 0.00 0.00 0.50 %Z

0.00 0.00 0.00 0.50 %Z
0.00 0.00 0.00 0.00 %W

%2
1.00 0.00 1.00 0.00 %G
0.00 0.00 0.00 0.50 %Z

0.00 0.00 0.00 0.50 %Z
0.00 1.00 0.00 0.00 %M

%3
1.00 1.00 0.00 0.00 %B
0.00 0.00 0.00 0.50 %Z

0.00 0.00 0.00 0.50 %Z
0.00 0.00 1.00 0.00 %Y
      ] def

/colall 96 array def
/colNZW 96 array def
/colNZW [
0.00 0.00 0.00 1.00 %N
0.00 0.00 0.00 0.90 %N+0.1
0.00 0.00 0.00 0.50 %Z

0.00 0.00 0.00 1.00 %N
0.00 0.00 0.00 0.80 %N+0.2
0.00 0.00 0.00 0.50 %Z

0.00 0.00 0.00 1.00 %N
0.00 0.00 0.00 0.70 %N+0.3
0.00 0.00 0.00 0.50 %Z

0.00 0.00 0.00 1.00 %N
0.00 0.00 0.00 0.60 %N+0.4
0.00 0.00 0.00 0.50 %Z

%0.00 0.00 0.00 0.50 %Z

0.00 0.00 0.00 0.50 %Z
0.00 0.00 0.00 0.40 %Z+0.1
0.00 0.00 0.00 0.00 %W

0.00 0.00 0.00 0.50 %Z
0.00 0.00 0.00 0.30 %Z+0.2
0.00 0.00 0.00 0.00 %W

0.00 0.00 0.00 0.50 %Z
0.00 0.00 0.00 0.20 %Z+0.3
0.00 0.00 0.00 0.00 %W

0.00 0.00 0.00 0.50 %Z
0.00 0.00 0.00 0.10 %Z+0.4
0.00 0.00 0.00 0.00 %W
] def %colNZW                                  

/colGRZ 96 array def
/colGZR [
1.00 0.00 1.00 0.00 %G
0.80 0.00 0.80 0.10 %G+0.1
0.00 0.00 0.00 0.50 %Z

1.00 0.00 1.00 0.00 %G
0.60 0.00 0.60 0.20 %N+0.2
0.00 0.00 0.00 0.50 %Z

1.00 0.00 1.00 0.00 %G
0.40 0.00 0.40 0.30 %N+0.3
0.00 0.00 0.00 0.50 %Z

1.00 0.00 1.00 0.00 %G
0.20 0.00 0.20 0.40 %N+0.4
0.00 0.00 0.00 0.50 %Z

%0.00 0.00 0.00 0.50 %Z

0.00 0.00 0.00 0.50 %Z
0.00 0.20 0.00 0.40 %Z+0.1
0.00 1.00 0.00 0.00 %M

0.00 0.00 0.00 0.50 %Z
0.00 0.40 0.00 0.30 %Z+0.2
0.00 1.00 0.00 0.00 %M

0.00 0.00 0.00 0.50 %Z
0.00 0.60 0.00 0.20 %Z+0.3
0.00 1.00 0.00 0.00 %M

0.00 0.00 0.00 0.50 %Z
0.00 0.80 0.00 0.10 %Z+0.4
0.00 1.00 0.00 0.00 %M

] def %colGZR

/colBZY 96 array def
/colBZY [
1.00 1.00 0.00 0.00 %B
0.80 0.80 0.00 0.10 %B+0.1
0.00 0.00 0.00 0.50 %Z

1.00 1.00 0.00 0.00 %B
0.60 0.60 0.00 0.20 %B+0.2
0.00 0.00 0.00 0.50 %Z

1.00 1.00 0.00 0.00 %B
0.40 0.40 0.00 0.30 %B+0.3
0.00 0.00 0.00 0.50 %Z

1.00 1.00 0.00 0.00 %B
0.20 0.20 0.00 0.40 %B+0.4
0.00 0.00 0.00 0.50 %Z

%0.00 0.00 0.00 0.50 %Z

0.00 0.00 0.00 0.50 %Z
0.00 0.00 0.20 0.40 %Z+0.1
0.00 0.00 1.00 0.00 %Y

0.00 0.00 0.00 0.50 %Z
0.00 0.00 0.40 0.30 %Z+0.2
0.00 0.00 1.00 0.00 %Y

0.00 0.00 0.00 0.50 %Z
0.00 0.00 0.60 0.20 %Z+0.3
0.00 0.00 1.00 0.00 %Y

0.00 0.00 0.00 0.50 %Z
0.00 0.00 0.80 0.10 %Z+0.4
0.00 0.00 1.00 0.00 %Y

] def %colBZY

%Reference colour
/colTZ 96 array def
/colTZ [
1.00 0.00 0.50 0.00 %T
0.00 0.00 0.00 0.50 %Z
] def %colTZ

/txt30 [(  0) (0,70) (  1)] def %NDW
/txt31 [(  0) (0,60) (  1)] def %GDV
/txt32 [(  0) (0,40) (  1)] def %BDY

/txx00n [(16,7) (R=10) ()] def %NZ
/txx01n [( 5,0) (R=10) ()] def %ZW

/txx10n [(14,3)  (R=10) ()] def %GZ
/txx11n [(11,3)  (R=10) ()] def %ZM

/txx20n [(  4,2) (R=10) ()] def %BZ
/txx21n [(10,8)  (R=10) ()] def %ZY

/txx00x [(16,7)   (5,0) (10,0)] def %NZW + Ref
/txx01x [(14,3)  (11,3) (10,0)] def %GZR + Ref
/txx02x [(4,2)   (10,8) (10,0)] def %BZY + Ref

/txx00y [(15,2=0,7)  (6,5=0,3)] def %NZW 0.7*21.7= 15.2 - 6.5
/txx01y [(15,4=0,6)  (10,2=0,4)] def %GZR 0.6*25.6=15.4 - 10.2
/txx02y [(6,0=0,4)   (9,0=0,6)] def %BZY 0.4*15.0= 6.0 - 9.0

/txx00y1 [(21,7)  (21,7) (10,0)] def %NZW 0.7*21.7= 15.2 - 6.5
/txx01y1 [(25,6)  (25,6) (10,0)] def %GZR 0.6*25.6=15.4 - 10.2
/txx02y1 [(15,0)  (15,0) (10,0)] def %BZY 0.4*15.0= 6.0 - 9.0

/txx00 [(0) (a) (1)] def

/txx30Vn [(0,70) (0,30)] def %NZW %visual
/txx31Vn [(0,60) (0,40)] def %GZV
/txx32Vn [(0,40) (0,60)] def %BZY

/txr00 [(0,77=16,7/21,7=)
        (0,56=14,3/25,6=)
        (0,28=4,2/15,0=)] def
/txr01 [(0,23=5,0/21,7=)
        (0,44=11,3/25,6=)
        (0,72=10,8/15,0=)] def

/ix0 0100 def
/iy0 0500 def
/s 700 def

ix0 iy0 8100 s 9 mul 0.0 0.0 0.0 0.47 colrecfi %grey surround

/s 500 def
/iy0 5900 def
/ix0 0300 def
/ix1 0050 def
/ixl 0300 def
/n 0 def
 0 1 2 {/j exch def
        TBK
        /n12 xchart4 12 mul j 4 mul add def
        1 1 1 setrgbcolor 
        ix0 j 0.3 add s mul add
        j 1 eq {s add} if
        j 2 eq {s 2 mul add} if
        iy0 680 add moveto
        j 1 eq {TBIK} if
                txx00 j get show j 1 eq {(i) is2 TBK} if
                tfn
        /dcirc 280 def
        newpath
        ix0 j s mul add dcirc add 100 sub
        j 1 eq {s add} if
        j 2 eq {s 2 mul add} if
%        iy0 s s
        iy0 dcirc add
        col3 n12 0 add get
        col3 n12 1 add get
        col3 n12 2 add get
        col3 n12 3 add get 
        colarcfi

        col3 n12 0 add get 0.00 eq
        col3 n12 1 add get 0.00 eq and
        col3 n12 2 add get 0.00 eq and
        col3 n12 3 add get 0.50 eq and
        {%eq Z
        newpath
        ix0 j s mul add dcirc add 100 sub
        j 1 eq {s add} if
        j 2 eq {s 2 mul add} if
%        iy0 s s
        iy0 dcirc add
        0 0 0 0
        colarcst
        } if %eq Z

        tfn
        ix0 j s mul add
        j 1 eq {s add} if
        j 2 eq {s 2 mul add} if
        iy0 300 sub moveto
        xchart4 0 eq {txt30 j get show} if
        xchart4 1 eq {txt31 j get show} if
        xchart4 2 eq {txt32 j get show} if

        j 1 le {%j<=1
        ix0 j 0.9 add s mul add 100 add
        j 1 eq {s add} if
        j 2 eq {s 2 mul add} if
        iy0 600 sub moveto
        xchart4 0 eq {txx30Vn j get show} if
        xchart4 1 eq {txx31Vn j get show} if
        xchart4 2 eq {txx32Vn j get show} if
        } if %j<=1

        j 0 eq {tfn
                ix0 j 0.4 add s mul sub 020 add
                iy0 600 sub moveto
                SK (D) show TBIK (V) show (3,i) is2 tfn
               } if

       } for %j

        TBK tfw
        ix0 1.1 s mul add
        iy0 0900 sub moveto
        txr00 xchart4 get show
        SK (D) show TBIK (P*) show (0) is20 TBK ( / ) show
        SK (D) show TBIK (S*) show


        j 1 le {%j<=1
        ix0 j 0.9 add s mul add 100 add
        j 1 eq {s add} if
        xchart4 0 eq {txx30Vn j get show} if
        xchart4 1 eq {txx31Vn j get show} if
        xchart4 2 eq {txx32Vn j get show} if
        } if %j<=1

        ix0 1.1 s mul add s 2 mul add
        iy0 1200 sub moveto
        txr01 xchart4 get show
        SK (D) show TBIK (P*) show (1) is20 TBK ( / ) show
        SK (D) show TBIK (S*) show

        ix0 1.1 s mul add
        iy0 1500 sub moveto
        (\050pair comparison, ) showea
        (\050Paarvergleich, ) showde
        SK (D) show TBIK (S*) show TBK ( = ) show
        SK (D) show TBIK (P*) show (0) is20 TBK (+) show
        SK (D) show TBIK (P*) show (1) is20 TBK ( \051) show
        TBK
        tfn

/s 500 def
/ydef 700 def
/iy0 5900 def
/ix0 ix2 def
/ixl 0300 def
 0 1 1 {/n exch def
 0 1 1 {/j exch def
        TBK
        /n16 xchart4 16 mul n 8 mul add j 4 mul add def

%        /iyn ydef 4.4 mul n mul def
        /iyn ydef 4.0 mul n mul def
        j 0 eq {1 1 1 setrgbcolor 
                ix0 0.5 s mul add
                iy0 650 add iyn sub moveto
                SK (D) show TBIK (P*) show 
                n 0 eq {(0)}{(1)} ifelse is20 TBK
                (=) show
                xchart4 0 eq {txx00x n get show} if
                xchart4 1 eq {txx01x n get show} if
                xchart4 2 eq {txx02x n get show} if

                tfn

                ix0 0.0 s mul sub
                iy0 650 add s 1.8 mul sub iyn sub moveto
                SK (D) show TBIK (V*) show 
                n 0 eq {(0)}{(1)} ifelse is20 TBK
                (=) show 
                xchart4 0 eq {txx00y n get show ib4 TBK txx00y1 n get show} if
                xchart4 1 eq {txx01y n get show ib4 TBK txx01y1 n get show} if
                xchart4 2 eq {txx02y n get show ib4 TBK txx02y1 n get show} if

                ix0 0.0 s mul sub
                iy0 650 add s 2.4 mul sub iyn sub moveto
                TBK (=) show SK (D) show TBIK (V) show 
                n 0 eq {(3,0)}{(3,1)} ifelse is2 ip2 
                SK (D) show TBK (S*) show 
                tfn
               } if %j=0

        newpath
        ix0 j s mul add dcirc add
        j 1 eq {s add} if
%        iy0 n ydef mul 4.4 mul sub s s
%        iy0 n ydef mul 4.4 mul sub dcirc add
        iy0 iyn sub dcirc add
        col6 n16 0 add get
        col6 n16 1 add get
        col6 n16 2 add get
        col6 n16 3 add get
        colarcfi

        col6 n16 0 add get 0.00 eq
        col6 n16 1 add get 0.00 eq and
        col6 n16 2 add get 0.00 eq and
        col6 n16 3 add get 0.50 eq and
        {%eq Z
        newpath
        ix0 j s mul add dcirc add
        j 1 eq {s add} if
%        iy0 n ydef mul 4.4 mul sub s s
%        iy0 n ydef mul 4.4 mul sub dcirc add
        iy0 iyn sub dcirc add
        0 0 0 0
        colarcst
        } if %eq Z

        tfn
       } for %j
       } for %n


%referenz colours T-Z
TBK
/j 0 def
/n 1 def
/iyn ydef 3.5 mul 2.0 mul def

1 1 1 setrgbcolor 
ix0 0.5 s mul add
iy0 650 add iyn sub moveto
SK (D) show TBIK (V*) show (R) is20 TBK 
(=10,0) show
ix0 0.2 s mul add
iy0 650 add iyn sub 1.8 s mul sub moveto
(reference pair) showea
(Referenzpaar) showde
tfn



newpath
/j 0 def
ix0 j s mul add dcirc add
j 1 eq {s add} if
ix0 j s 1 mul mul add dcirc add
iy0 iyn sub dcirc add
0 0 0 0 colarcst

/j 1 def
ix0 j s mul add dcirc add
j 1 eq {s add} if
ix0 j s 2 mul mul add dcirc add
iy0 iyn sub dcirc add
1 0 0.25 0 colarcfi


/gstep 24 array def
/gstep
[(  0) (  1) (  5)
 (  0) (  2) (  5)
 (  0) (  3) (  5)
 (  0) (  4) (  5)
 (  5) (  6) (10)
 (  5) (  7) (10)
 (  5) (  8) (10)
 (  5) (  9) (10)] def


0 1 95 {/i exch def %i=0,95
       xchart4 0 eq {colall i colNZW i get put} if
       xchart4 1 eq {colall i colGZR i get put} if
       xchart4 2 eq {colall i colBZY i get put} if
       } for %i=0,95

/s 500 def
/iy0 5900 def
/ix0 ix2 1200 add s 2 mul add def
/ixl 0300 def
 0 1 7 {/n exch def
 0 1 2 {/j exch def
        n 3 le {/j4 j 4 mul n 12 mul add def} if
        n 4 ge {/j4 j 4 mul n 12 mul add def} if

        n 0 eq {%n=0
                1 1 1 setrgbcolor TBIK 
                ix0 j s mul add 0.1 s mul sub
                j 1 eq {s add} if
                j 2 eq {s 2.2 mul add} if
                iy0 650 add moveto
                j 0 eq {xchart4 0 eq {(    N) show} if
                        xchart4 1 eq {(    G) show} if
                        xchart4 2 eq {(    B) show} if
                       } if
                j 1 eq {xchart4 0 eq            {( grey) show} if
                        xchart4 1 eq n 3 le and {(greenish) show} if
                        xchart4 2 eq n 3 le and {( bluish) show} if
                       } if
                j 2 eq {(  Z) show} if
               } if %n=0

        n 3 eq {%n=3
                1 1 1 setrgbcolor TBIK
                ix0 j s mul add 0.1 s mul sub
                j 1 eq {s add} if
                j 2 eq {s 2.2 mul add} if
                iy0 650 add ydef 4.4 mul sub moveto
                j 0 eq {(    Z) show} if
                j 1 eq {xchart4 0 eq {(  grey) show} if
                        xchart4 1 eq {(  redish)  show} if
                        xchart4 2 eq {(yellowish) show} if
                       } if
                j 2 eq {xchart4 0 eq {(  W) show} if
                        xchart4 1 eq {(  M) show} if
                        xchart4 2 eq {(  Y) show} if
                       } if
               } if %n=3

        TBK
        tfw
        /nn n n 4 ge {0.4 add} if def
        /n3 n 3 mul j add def
        ix0 j s mul add 0.6 s mul sub
        j 1 eq {s add} if
        j 2 eq {s 2 mul add} if
        iy0 nn ydef mul sub 0.3 s mul add moveto
        gstep n3 get show

        newpath
        ix0 j s mul add dcirc add
        j 1 eq {s add} if
        j 2 eq {s 2 mul add} if
%        iy0 nn ydef mul sub s s
        iy0 nn ydef mul sub dcirc add
        colall j4 0 add get
        colall j4 1 add get
        colall j4 2 add get
        colall j4 3 add get
        colarcfi

        colall j4 0 add get 0.00 eq
        colall j4 1 add get 0.00 eq and
        colall j4 2 add get 0.00 eq and
        colall j4 3 add get 0.50 eq and
        {%eq Z
        newpath
        ix0 j s mul add dcirc add
        j 1 eq {s add} if
        j 2 eq {s 2 mul add} if
        /nn n n 4 ge {0.4 add} if def
%        iy0 nn ydef mul sub s s
        iy0 nn ydef mul sub dcirc add
        0 0 0 0
        colarcst
        } if %eq Z

        tfn
       } for %j
       } for %n

/ix0 ix4 def

/iy0 5900 def
/SV*0 [16.7 16.7 16.7 16.7
        5.0  5.0  5.0  5.0] def
/SV*1 [14.3 14.3 14.3 14.3
       11.3 11.3 11.3 11.3] def
/SV*2 [ 4.2  4.2  4.2  4.2
       10.8 10.8 10.8 10.8] def
/DVi [0.20 0.40 0.60 0.80
      0.20 0.40 0.60 0.80] def
/SV*t0 [(16,7) (16,7) (16,7) (16,7)
         (5,0)  (5,0)  (5,0)  (5,0)] def
/SV*t1 [(14,3) (14,3) (14,3) (14,3)
        (11,3) (11,3) (11,3) (11,3)] def
/SV*t2 [( 4,2) ( 4,2) ( 4,2) ( 4,2)
        (10,8) (10,8) (10,8) (10,8)] def
/DV0t [(0,20) (0,40) (0,60) (0,80)
       (0,20) (0,40) (0,60) (0,80)] def
/DV1t [(0,20) (0,40) (0,60) (0,80)
       (0,20) (0,40) (0,60) (0,80)] def
/DVit [(0,20) (0,40) (0,60) (0,80) 
       (0,20) (0,40) (0,60) (0,80)] def
/DVxt0 [(3,34) (3,34) (3,34) (3,34)
        (1,00) (1,00) (1,00) (1,00)] def
/DVxt1 [(2,86) (2,86) (2,86) (2,86)
        (2,26) (2,26) (2,26) (2,26)] def
/DVxt2 [(0,84) (0,84) (0,84) (0,84)
        (2,16) (2,16) (2,16) (2,16)] def

/iy01 iy0 200 add def


 0 1 7 {/n exch def
 0 1 3 {/j exch def
        TK
        /j4 j 4 mul n 24 mul add def
                TK
                /nn n n 4 ge {0.4 add} if def
                ix0 ixi 0 get add
                iy01 nn ydef mul sub moveto
                DVit n get show

                ix0 ixi 1 get add
                iy01 nn ydef mul sub moveto
                xchart4 0 eq {SV*t0 n get show} if
                xchart4 1 eq {SV*t1 n get show} if
                xchart4 2 eq {SV*t2 n get show} if

                ix0 ixi 2 get add
                iy01 nn ydef mul sub moveto
                DVi n get
                xchart4 0 eq {SV*0 n get mul cvsshow2} if
                xchart4 1 eq {SV*1 n get mul cvsshow2} if
                xchart4 2 eq {SV*2 n get mul cvsshow2} if

                ix0 ixi 3 get add
                iy01 nn ydef mul sub 350 add moveto
                xchart4 0 eq {DVxt0 n get show} if
                xchart4 1 eq {DVxt1 n get show} if
                xchart4 2 eq {DVxt2 n get show} if

                n 3 eq {ix0 ixi 3 get add
                        iy01 nn 1 add ydef mul sub 350 add moveto
                        xchart4 0 eq {DVxt0 n get show} if
                        xchart4 1 eq {DVxt1 n get show} if
                        xchart4 2 eq {DVxt2 n get show} if

                       } if
                n 7 eq {ix0 ixi 3 get add
                        iy01 nn 1 add ydef mul sub 350 add moveto
                        xchart4 0 eq {DVxt0 n get show} if
                        xchart4 1 eq {DVxt1 n get show} if
                        xchart4 2 eq {DVxt2 n get show} if
                       } if
       } for %j
       } for %n

15 setlinewidth
/xwidth 3100 def
/ywidth 3100 def
/xwidtz xwidth 400 sub def
/ywidtz ywidth 400 sub def
/xr0 200 def
/yr0 600 def
/xr1 xr0 200 add def
/yr1 yr0 200 add def
0.0 0.0 0.0 0.0 setcmyk_olvcolor %W
xr0 yr0 moveto xwidth 0 rlineto 0 ywidth rlineto
               xwidth neg 0 rlineto closepath fill
0.0 0.0 0.0 0.5 setcmyk_olvcolor %Z
xr1 yr1 moveto xwidtz 0 rlineto 0 ywidtz rlineto 
               xwidtz neg 0 rlineto closepath fill
0.0 0.0 0.0 1.0 setcmyk_olvcolor %N
xr0 yr0 moveto xwidth 0 rlineto 0 ywidth rlineto
               xwidth neg 0 rlineto closepath stroke

xchart4 0 eq {0.0 0.0 0.0 1.0 setcmyk_olvcolor} if %N
xchart4 1 eq {1.0 0.0 1.0 0.0 setcmyk_olvcolor} if %G
xchart4 2 eq {1.0 1.0 0.0 0.0 setcmyk_olvcolor} if %B
xr1 xwidtz 0.2 mul add 
yr1 ywidtz 0.8 mul add dcirc 0 360 arc fill

xchart4 0 eq {0.0 0.0 0.0 0.0 setcmyk_olvcolor} if %W
xchart4 1 eq {0.0 1.0 0.0 0.0 setcmyk_olvcolor} if %R
xchart4 2 eq {0.0 0.0 1.0 0.0 setcmyk_olvcolor} if %Y
xr1 xwidtz 0.8 mul add
yr1 ywidtz 0.8 mul add dcirc 0 360 arc fill

0.0 0.0 0.0 0.0 setcmyk_olvcolor %Z
xr1 xwidtz 0.5 mul add
yr1 ywidtz 0.5 mul add dcirc 0 360 arc stroke

newpath
TBG tfn
xr1 900 add yr1 700 add moveto (0 ... 10) show
%xr1 500 add yr1 400 add moveto (  slider for) showen
%(Schieber \f374r) showde
xchart4 0 eq {xr1 500 add yr1 400 add moveto
              (  grey step) showen
              (  Graustufe) showde
             } if
xchart4 1 ge {xr1 500 add yr1 400 add moveto
              ( colour step) showen
              (  Farbstufe) showde
             } if
TBIG
xchart4 0 eq {xr1 500 add yr1 100 add moveto
              (    N...Z...W) show
             } if
xchart4 1 eq {xr1 500 add yr1 100 add moveto
              (    G...Z...M) show
             } if
xchart4 2 eq {xr1 500 add yr1 100 add moveto
              (    B...Z...Y) show
             } if

xr1 200 add yr1 1500 add moveto
TBIG
xchart4 0 eq {(N) show TBG (=0) show} if
xchart4 1 eq {(G) show TBG (=0) show} if
xchart4 2 eq {(B) show TBG (=0) show} if
xr1 1800 add yr1 1500 add moveto
TBIG
xchart4 0 eq {(W) show TBG (=10) show} if
xchart4 1 eq {(M) show TBG (=10) show} if
xchart4 2 eq {(Y) show TBG (=10) show} if

TBG
0.0 0.0 0.0 1.0 setcmyk_olvcolor %N
xr0 yr0 ywidth add 100 add moveto
(   viewing situation) showen
(Beobachtungssituation) showde

showpage
grestore

%} for %xchart4=0,2

%%Trailer