%!PS-Adobe-3.0 EPSF-3.0 LE961-7N.EPS, De161-3N.EPS
%%BoundingBox: 70 82 420 330

%START PDFDE011.EPS
/pdfmark17 where {pop} {userdict /pdfmark17 /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:2011030112000)
  /ModDate (D:2011030112000)
/DOCINFO pdfmark17
[ /View [ /FitB ]
/DOCVIEW pdfmark17
%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 {315 /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
100 -240 moveto (Teil 4) showde (Part 4) showen
9000 -240 moveto (LE961-7, De161-3) show
%(Test of regular chromatic spacing at the grey axis) showen
%(Pr\374fung der regul\344ren chromatischen Stufung an der Grauachse)
%showde

/y0 7800 def
/yd 320 def
TBG
100 y0 moveto
(Regular colour spacing between colours Z-X' and Z-X (Yes/No decision)) showen
(Gleichm\344\337ige Farbstufung zwischen Farben Z-X' und Z-X (Ja/Nein\255Entscheidung))
showde

TM
200 y0 yd 1.5 mul sub moveto
(Layoutbeispiel: Bunttonebene O-C, Y-V, L-M mit 9 Farbstufen) showde
(Layout example: hue plane O-C, Y-V, L-M with 9 colour steps) showen
TBM 1 0 0 setrgbcolor
( MacBookPro 17", anti Glare) showen
( MacBookPro 17", Antiglanz) showde
TM 0 setgray

TM
6500 y0 yd 3.5 mul sub moveto
(There are three opposite hue planes) showen
(Es gibt drei gegenfarbige Bunttonebenen) showde
6500 y0 yd 4.5 mul sub moveto
(O-C, Y-V, and L-M.) showen
(O-C, Y-V und L-M.) showde
6500 y0 yd 5.7 mul sub moveto
(The colour steps are separate in the) showen
(Die Farbstufen sind separat in dem oberen) showde
6500 y0 yd 6.7 mul sub moveto
(upper figure part and ajacent) showen
(Teil von Bild 1 und aneinandergrenzend) showde
6500 y0 yd 7.7 mul sub moveto
(ajacent in the lower figure part.) showen
(im unteren Teil von Bild 1.) showde
6500 y0 yd 8.7 mul sub moveto
(Between X' and X there are 9 colour steps.) showen
(Zwischen X' und X gibt es 9 Farbstufen.) showde
6500 y0 yd 9.7 mul sub moveto
(Mean grey Z is the mean step of X'-X.) showen
(Mittelgrau Z ist die mittlere Stufe von X'-X.) showde


/xp  2300 def
/yp  6800 def
xp 1300 sub yp 100 sub moveto
(White W) showen
(Wei\337 W) showde
xp 1700 sub yp 2100 sub moveto
(Chromatic X') showen
(     Bunt X') showde
xp 1700 sub yp 2450 sub moveto
(X' = C, V, M) show

xp 2100 add yp 100 sub moveto
(Chromatic X) showen
(Bunt X) showde
xp 2100 add yp 450 sub moveto
(X = O, Y, L) show
xp 2100 add yp 2100 sub moveto
(    Black N) showen
(Schwarz N) showde


xp yp 2000 sub moveto 2000 0000 rlineto 0000 2000 rlineto
                     -2000 0000 rlineto closepath stroke


TM
xp 100 add yp 0350 sub moveto (9 colour) showen 
                               (9 Farb\255) showde
xp 100 add yp 0700 sub moveto (steps) showen
                               (Stufen) showde
xp 1150 add yp 1300 sub moveto (Z) show

/xpN xp def
/ypN yp 2000 sub def
/xpW xp def
/ypW yp def
/xpC xp 2000 add def
/ypC yp 1000 sub def

newpath
/xm 2000 09 div def

1 1 09 {/j exch def %j=0,09
1 1 09 {/i exch def %i=0,09
        i j eq {/xi xpW xm i mul add def
                /yi ypN xm j 1 sub mul add def
                xi yi moveto xi yi xm add lineto
                xi xm sub yi xm add lineto
                xi xm sub yi lineto closepath stroke
               } if
      } for %i=0,09
      } for %j=0,09

/yd0 3950 def
100 yd0 moveto
TBM (All) showen (Alle) showde
TM
( colour steps of the three hue planes O-L, Y-V and L-M should be regular for) showen
( Farbstufen der drei Farbebenen O-L, Y-V and L-M sollen gleichm\344\337ig sein zwischen den) showde

100 yd0 yd 1.0 mul sub moveto
(separate and adjacent colours without large chromatic jumps at mean grey Z) showen
(Farben X' und X f\374r separate und aneinandergrenzende Farben ohne Farbspr\374nge bei Mittelgrau Z)
showde

/yt0 03300 def
/x00 00100 def
/x10 00500 def %00900 def
/x01 10100 def
/x20 10900 def

TBM
50 setlinewidth
x00 yt0 yd 1.0 mul sub moveto
(Is the colour spacing regular at mean grey Z?) showen
(Ist die Farbstufung gleichm\344\337ig bei Mittelgrau Z?) showde
TBM
x00 8900 add yt0 yd 1.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


TM
x00 yt0 yd 2.5 mul sub moveto
(Remark: The colour spacing is not regular if there is at least one Yes) showen
(Anmerkung: Die Farbtufung ist nicht gleichm\344\337ig wenn es mindestens ein Ja) showde
x00 yt0 yd 3.5 mul sub moveto
(in one of the following cases; for example see Annex (X):) showen
(in einem der folgenden F\344lle gibt; f\374r Beispiele siehe Anhang (X):) showde

TM
x10 yt0 yd 5 mul sub moveto
(Are there colour jumps at the mean grey colour Z) showen
(Gibt es Farbspr\374nge bei der mittelgrauen Farbe Z)
showde
( towards X or X') showen
( nach X oder X' hin) showde

x10 yt0 yd 6 mul sub moveto
(for adjacent colours?) showen
(f\374r aneinandergrenzende Farben?) showde

x00 8900 add yt0 yd 6 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

TM
x10 yt0 yd 7.5 mul sub moveto
(Are there colour jumps at the mean grey colour Z) showen
(Gibt es Farbspr\374nge bei der mittelgrauen Farbe Z)
showde
( towards X or X') showen
( nach X oder X' hin) showde

x10 yt0 yd 8.5 mul sub moveto
(for separate colours) showen
(f\374r separate Farben?) showde

x00 8900 add yt0 yd 8.5 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

x00 yt0 yd 10 mul sub moveto
TBM 1 0 0 setrgbcolor
(PDF output of test chart 1 according to DIN 33872\2556; software Mac PDF\255Preview) showen
(PDF\255Ausgabe der Pr\374fvorlage 1 nach DIN 33872\2556; Software Mac\255PDF\255Preview) showde
TM 0 setgray

showpage
grestore

%%Trailer