%!PS-Adobe-3.0 EPSF-3.0 VE650-7N.EPS
%%BoundingBox: 70 82 420 330

%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: Image Technology)
  /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
  /Subject (goto: http://www.ps.bam.de or http://130.149.60.445/~farbmetrik)
  /Keywords (image reproduction, colour devices)
  /Creator (klaus.richter@mac.com)
  /CreationDate (D:2015030112000)
  /ModDate (D:2015030112000)
/DOCINFO pdfmark07
[ /View [ /FitB ]
/DOCVIEW pdfmark07
%END  PDFDE011

/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

/TK {250 /Times-ISOL1 FS} bind def
/TM {300 /Times-ISOL1 FS} bind def
/TG {350 /Times-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

/TBK {250 /TimesB-ISOL1 FS} bind def
/TBM {300 /TimesB-ISOL1 FS} bind def
/TBG {350 /TimesB-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

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

/nshow {300 /Times-ISOL1 FS  show} bind def
/kshow {300 /TimesI-ISOL1 FS  show} bind def
/bshow {300 /TimesB-ISOL1 FS  show} bind def
/jshow {300 /TimesBI-ISOL1 FS  show} bind def
/sshow {300 /Symbol FS  show} bind def
/ishow {220 /Times-ISOL1 FS -00 -50 rmoveto show 00 50 rmoveto} bind def
/eshow {220 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto} bind def


/cvishow {0.5 add cvi 6 string cvs show} def
/cvsshow1 {0.05 add 10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2 {0.005 add 100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3 {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show} def

%%EndProlog
gsave

/lanind 1 def
/lantex [(G) (E) (S) (N) (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
/showm {6 lanind eq {show} {pop} ifelse} bind def
/lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def}
               {/lanind1 1 def /lanind2 1 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
      
/xchartg where {pop /xchart   xchartg def} {/xchart   0 def} ifelse
/xcolorg where {pop /xcolor   xcolorg def} {/xcolor   0 def} ifelse

72 90 translate

0.01 MM dup scale

gsave

20 setlinewidth
1.0 setgray
0 0 moveto 12000 0 rlineto 0 8200 rlineto
          -12000 0 rlineto closepath fill

0.0 setgray
0 0 moveto 12000 0 rlineto 0 8200 rlineto
          -12000 0 rlineto closepath stroke

TM
%00100 -240 moveto (Teil 2) showde (Part 2) showen
9000 -240 moveto (VE650-7) show
(, De151-3) showen
(, Dg151-3) showde

/y0 7900 def
/yd 320 def
TBG
100 y0 moveto
(Discriminability of colours with 20 hues (Yes/No decision)) showen
(Unterscheidbarkeit 20 Buntt\366ne (Ja/Nein\255Entscheidung))
showde
TBM 1 0 0 setrgbcolor
( Example) showen TBIM ( PostScript) showen TBM ( Printer) showen
TBM
( PS\255Drucker) showde
TM 0 setgray

TM
/xshift 5650 def
xshift y0 yd 2.4 mul sub moveto
(There are four elementary hues on each page: Red) showen
(Es gibt vier Elementarbuntt\366ne auf jeder Seite: Rot) showde
xshift y0 yd 3.4 mul sub moveto
(R, Yellow J (=french Jaune), Green G, and Blue B.) showen
(R, Gelb J (= french Jaune), Gr\374n G und Blau B.) showde

/ise {0 -40 rmoveto TK (e) show 0 40 rmoveto TM
      0 0 0 setrgbcolor} def

xshift y0 yd 4.7 mul sub moveto
(Input data 1 0 0 should produce Red R) showen
(Eingabedaten 1 0 0 sollten Rot R erzeugen) showde
1 0 0 setrgbcolor (=R) show ise (.) show
xshift y0 yd 5.7 mul sub moveto
(Input data 0 1 0 should produce Green G) showen
(Eingabedaten 0 1 0 sollten Gr\374n G erzeugen) showde
1 0 0 setrgbcolor (=G) show ise (.) show
xshift y0 yd 6.7 mul sub moveto
(Input data 0 0 1 should produce Blue B) showen
(Eingabedaten 0 0 1 sollten Blau B erzeugen) showde
1 0 0 setrgbcolor (=B) show ise (.) show
xshift y0 yd 7.7 mul sub moveto
(Input data 1 1 0 should produce Yellow J) showen
(Eingabedaten 1 1 0 sollten Gelb J erzeugen) showde
1 0 0 setrgbcolor (=Y) show ise (.) show

xshift y0 yd 9.0 mul sub moveto
(Four hue steps are between:) showen
(Vier Bunttonstufen sind zwischen:) showde
xshift y0 yd 10.0 mul sub moveto
(Red R and Yellow J, Yellow J and Green G,) showen
(Rot R und Gelb J, Gelb J und Gr\374n G,) showde
xshift y0 yd 11.0 mul sub moveto
(Green G and Blue B, and Blue B and Red R.) showen
(Gr\374n G und Blau B und Blau B und Rot R.) showde

xshift y0 yd 12.3 mul sub moveto
(This test uses a hue circle with 20 hues.) showen
(Die Pr\374fung benutzt einen Bunttonkreis mit 20) showde
xshift y0 yd 13.3 mul sub moveto
(All 20 hues should be distinguishable.) showen
(Buntt\366nen. Alle 20 sollen unterscheidbar sein.) showde

xshift y0 yd 14.5 mul sub moveto
(For this test it is) showen TBM ( not) showen TM
( necessary:) showen
(F\374r diese Pr\374fung ist) showde TBM ( nicht) showde
TM ( notwendig:) showde
xshift y0 yd 15.5 mul sub moveto
(1. All 20 differences are visually equal.) showen
(1. Alle 20 Unterschiede sind visuell gleich.) showde
xshift y0 yd 16.5 mul sub moveto
(2. Elementary hues locate at 00, 05, 10, and 15.) showen
(2. Elementarbuntt\366ne liegen bei 00, 05, 10 und 15.) showde


/yt0 02100 def
/x00 00100 def
/x10 00900 def
/x01 10100 def
/x20 10900 def

TBM
50 setlinewidth
/yt0
x00 yt0 yd 0 mul sub moveto
(Are all 20 colours) showen
(Sind alle 20 Farben) showde
( of the 20 hues distinguishable?) showen
( der 20 Buntt\366ne unterscheidbar?) showde
TBM
x00 8900 add yt0 yd 0 mul sub moveto
(underline:  Yes/No) showen
(unterstreiche: Ja/Nein) showde
%Yes/Ja
%lanind 1 eq {1 0 0 setrgbcolor  -900 -60 rmoveto 450 0 rlineto stroke 0 setgray
%            }
%            {1 0 0 setrgbcolor  -950 -60 rmoveto 300 0 rlineto stroke 0 setgray
%            } ifelse

%No/Nein
lanind 1 eq {1 0 0 setrgbcolor -400 -60 rmoveto 400 0 rlineto stroke 0 setgray
            }
            {1 0 0 setrgbcolor -600 -60 rmoveto 600 0 rlineto stroke 0 setgray
            } ifelse


TBM
x00 yt0 yd 1.1 mul sub  moveto
(Only in case of "No":) showen
(Nur bei "Nein":) showde

TM
x00 300 add yt0 yd 2.1 mul sub moveto
(The colours of the two hue steps no. (e. g. 00 and 01) ...............) showen
(Die Farben der zwei Bunttonstufen Nr. (z. B. 00 und 01) ..............) showde
TBM 1 0 0 setrgbcolor
-800 30 rmoveto (00, 01) show
600 -30 rmoveto
TM 0 setgray
x00 8500 add yt0 yd 2.1 mul sub moveto
(are not distinguishable ) showen
(sind nicht unterscheidbar) showde

x00 300 add yt0 yd 3.1 mul sub moveto
(The colours of the two hue steps no. (e. g. 14 and 15) ...............) showen
(Die Farben der zwei Bunttonstufen Nr. (z. B. 14 und 15) ..............) showde
TBM 1 0 0 setrgbcolor
-800 30 rmoveto (10, 11) show
600 -30 rmoveto
TM 0 setgray
x00 8500 add yt0 yd 3.1 mul sub moveto
(are not distinguishable ) showen
(sind nicht unterscheidbar) showde

x00 300 add yt0 yd 4.1 mul sub moveto
(The colours of the two hue steps no. (e. g. 15 and 16) ...............) showen
(Die Farben der zwei Bunttonstufen Nr. (z. B. 15 und 16) ..............) showde
TBM 1 0 0 setrgbcolor
-800 30 rmoveto (15, 16) show
600 -30 rmoveto
TM 0 setgray
x00 8500 add yt0 yd 4.1 mul sub moveto
(are not distinguishable ) showen
(sind nicht unterscheidbar) showde

x00 300 add yt0 yd 5.1 mul sub moveto
(List other pairs: ........ ) showen
(Liste andere Paare: ........) showde

TM
x00 300 add yt0 yd 6.1 mul sub moveto
(Result: Of the 20 hue differences (e.g. 18) .........) showen
(Ergebnis: Von den 20 Bunttonunterschieden sind (z. B. 18) .........) showde
TBM 1 0 0 setrgbcolor
-500 30 rmoveto (17) show
400 -30 rmoveto
TM 0 setgray
( differences are visible.) showen
( Unterschiede erkennbar.) showde


%BEG Elementary-Hue Circle
2800 4900 translate
TM
-2700 0.9 mul 2600 moveto
(Layoutbeispiel: ) showde (Layout example: ) showen
(discriminability of 20 hues) showen
(Unterscheidbarkeit von 20 Buntt\366nen) showde
TBM 1 0 0 setrgbcolor
( Test chart 1) showen
( Pr\374fvorlage 1) showde
TBIM ( (rgb)) show TBM
( according to DIN 33872-5) showen
( nach DIN 33872-5) showde
TM 0 setgray

0.90 dup scale
1.0 setgray
-2700 -2700 moveto 5400 0 rlineto 0 5400 rlineto
                   5400 neg 0 rlineto closepath fill
0.0 setgray
%-2700 -2700 moveto 5400 0 rlineto 0 5400 rlineto
%                   5400 neg 0 rlineto closepath stroke
 
-1500 0 moveto 1500 0 lineto stroke
0 -1500 moveto 0 1500 lineto stroke

/AngrgbTabt 88 array def
/AngrgbTabt [%31 angles = 360/18 + 1 = 20 + 1
000 1.0 0.0 0.0
018 1.0 0.2 0.0
036 1.0 0.4 0.0
054 1.0 0.6 0.0
072 1.0 0.8 0.0
090 1.0 1.0 0.0
108 0.8 1.0 0.0
126 0.6 1.0 0.0
144 0.4 1.0 0.0
162 0.2 1.0 0.0
180 0.0 1.0 0.0
198 0.0 1.0 0.4
216 0.0 1.0 0.8
234 0.0 0.8 1.0
252 0.0 0.4 1.0
270 0.0 0.0 1.0
288 0.4 0.0 1.0
306 0.8 0.0 1.0
324 1.0 0.0 0.8
342 1.0 0.0 0.4
360 1.0 0.0 0.0
] def

0 0 2400 0 360 arc stroke
/rx 2400 def
/xd2 200 def

0 1 19 {/j exch def %j=0,19
/xpos rx AngrgbTabt j 4 mul get cos mul def
/ypos rx AngrgbTabt j 4 mul get sin mul def
1 setgray
xpos ypos xd2 0 360 arc fill
0 setgray
xpos ypos xd2 0 360 arc stroke
} for %j=0,19

newpath
0 1 19 {/j exch def %j=0,19
/xpos rx AngrgbTabt j 4 mul get cos mul def
/ypos rx AngrgbTabt j 4 mul get sin mul def
xpos 150 sub ypos 100 sub moveto
j 9 le {(0) show j cvishow} {j cvishow} ifelse
} for %j=0,19

/j 0 def
/xpos rx 650 sub AngrgbTabt j 4 mul get cos mul def
/ypos rx 650 sub AngrgbTabt j 4 mul get sin mul def
xpos 200 sub ypos 100 sub moveto
(= R) bshow

/j 5 def
/xpos rx 400 sub AngrgbTabt j 4 mul get cos mul def
/ypos rx 400 sub AngrgbTabt j 4 mul get sin mul def
xpos 200 sub ypos 100 sub moveto
(= J) bshow

/j 10 def
/xpos rx 500 sub AngrgbTabt j 4 mul get cos mul def
/ypos rx 500 sub AngrgbTabt j 4 mul get sin mul def
xpos 250 sub ypos 100 sub moveto
(= G) bshow

/j 15 def
/xpos rx 400 sub AngrgbTabt j 4 mul get cos mul def
/ypos rx 400 sub AngrgbTabt j 4 mul get sin mul def
xpos 250 sub ypos 100 sub moveto
(= B) bshow

2800 neg 5100 neg translate
%END Elementary-Hue Circle
    
showpage
grestore

%%Trailer