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

%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: 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 pdfmark03
[ /View [ /FitB ]
/DOCVIEW pdfmark03
%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 1) showde (Part 1) showen
9000 -240 moveto (VE650-3) show
(, De150-3) showen
(, Dg150-3) showde
%(Test of agreement with elementary hues) showen
%(Pr\374fung der \334bereinstimmung mit Elementarfarben)
%showde

/y0 7900 def
/yd 320 def
TBG
100 y0 050 sub moveto
(Agreement with elementary hues (Yes/No decision)) showen
(\334bereinstimmung Elementarfarben (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
(The elementary hues Red R and Green G) showen
(Die Elementar\255Buntt\366ne Rot R und Gr\374n G) showde
xshift y0 yd 10.0 mul sub moveto
(should locate on the horizontal axis.) showen
(sollten auf der horizontalen Achse liegen.) showde
xshift y0 yd 11.0 mul sub moveto
(The elementary hues Yellow J and Blue B) showen
(Die Elementar\255Buntt\366ne Gelb J und Blau B ) showde
xshift y0 yd 12.0 mul sub moveto
(should locate on the vertical axis.) showen
(sollten auf der vertikalen Achse liegen.) showde

xshift y0 yd 13.3 mul sub moveto
(This test uses a hue circle with) showen
(Die Pr\374fung benutzt einen Bunttonkreis) showde
xshift y0 yd 14.3 mul sub moveto
(20 hues.) showen
(mit 20 Buntt\366nen.) showde
xshift y0 yd 15.5 mul sub moveto
(No. 00 and 10 should be Red R and Green G.) showen
(Nr. 00 und 10 sollten Rot R und Gr\374n G sein.) showde
xshift y0 yd 16.5 mul sub moveto
(No. 05 and 15 should be Yellow J and Blue B.) showen
(Nr. 05 und 15 sollten Gelb J und Blau B sein.) 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 no. 00, 05, 10, and 15) showen
(Sind Nr. 00, 05, 10 und 15) showde
( the four elementary hues R, J, G and B?) showen
( die vier Elementarfarben R, J, G und B?) 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
1 0 0 setrgbcolor
( inapplicable) showen
( entf\344llt) showde
0 setgray

TM
x00 300 add yt0 yd 2.1 mul sub moveto
(Elementary Red R is hue step no. (e. g. 00, 01, 19) ........ ) showen
(Elementarrot R ist die Bunttonstufe Nr. (z. B. 00, 01, 19) ........) showde
x00 8100 add yt0 yd 2.1 mul sub moveto
((neither yellowish nor blueish)) showen
((weder gelblich noch bl\344ulich)) showde

x00 300 add yt0 yd 3.1 mul sub moveto
(Elementary Yellow J is hue step no. (e. g. 05, 04, 06) ........ ) showen
(Elementargelb J ist die Bunttonstufe Nr. (z. B. 05, 04, 06) ........) showde
x00 8100 add yt0 yd 3.1 mul sub moveto
((neither reddish nor greenish)) showen
((weder r\366tlich noch gr\374nlich)) showde

x00 300 add yt0 yd 4.1 mul sub moveto
(Elementary Green G is hue step no. (e. g. 10, 09, 11) ........ ) showen
(Elementargr\374n G ist die Bunttonstufe Nr. (z. B. 10, 09, 11) ........) showde
x00 8100 add yt0 yd 4.1 mul sub moveto
((neither yellowish nor blueish)) showen
((weder gelblich noch bl\344ulich)) showde

x00 300 add yt0 yd 5.1 mul sub moveto
(Elementary Blue B is hue step no. (e. g. 15, 14, 16) ........ ) showen
(Elementarblau B ist die Bunttonstufe Nr. (z. B. 15, 14, 16) ........) showde
x00 8100 add yt0 yd 5.1 mul sub moveto
((neither reddish nor greenish)) showen
((weder r\366tlich noch gr\374nlich)) showde

TM
x00 300 add yt0 yd 6.1 mul sub moveto
(Result: Of the 4 elementary hues (e.g. three) .........) showen
( are at the intended location) showen
(Ergebnis: Von den 4 Elementarfarben sind (z. B. drei) .........) showde
( an der angestrebten Position) showde


%BEG Elementary-Hue Circle
2800 4900 translate
TM
-2700 0.95 mul 2600 moveto
(Layoutbeispiel: ) showde (Layout Example: ) showen
(agreement with elementary hues) showen
(\334bereinstimmung mit Elementarfarben) 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

0 1 1 {/j exch def %j=0,1
/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
} for %j=0,1

/j 19 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

4 1 6 {/j exch def %j=4,6
/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
} for %j=4,6

9 1 11 {/j exch def %j=9,11
/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
} for %j=9,11

14 1 16 {/j exch def %j=4,6
/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
} for %j=14,16

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

%%Trailer