%!PS-Adobe-3.0 EPSF-3.0 LE960-3N.EPS, De160-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:2011030112000)
  /ModDate (D:2011030112000)
/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 {295 /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 1) showde (Part 1) showen
9000 -240 moveto (LE960-3, De160-3 ) show
%(Test of equivalent spacing for separate and adjacent colours) showen
%(Pr\374fung der \344quivalenten Stufung f\374r separate und aneinandergrenzende Farben)
%showde

/y0 7800 def
/yd 320 def
TBG
100 y0 moveto
(Equivalent spacing for separate and adjacent colours (Yes/No decision)) showen
(\304quivalente Stufung f\374r separate und aneinandergrenzende Farben (Ja/Nein\255Entscheidung))
showde

TM
200 y0 yd 1.5 mul sub moveto
(Layoutbeispiel: Bunttonebene O-C, Y-V,L-M mit 9 Graustufen) showde
(Layout example: hue plane O-C, Y-V or L-M with 9 grey 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) showen
(Die Farbstufen sind) showde
6500 y0 yd 6.7 mul sub moveto
(separate in the upper figure part and) showen
(separat im oberen Teil von Bild 1 und anein\255) showde
6500 y0 yd 7.7 mul sub moveto
(ajacent in the lower figure part.) showen
(andergrenzend im unteren Teil von Bild 1.) showde
6500 y0 yd 8.7 mul sub moveto
(Between N and W there are 9 grey steps.) showen
(Zwischen N und W gibt es 9 Graustufen.) showde
6500 y0 yd 9.7 mul sub moveto
(Mean grey Z is the mean step of N-W.) showen
(Mittelgrau Z ist die mittlere Stufe von N-W.) 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 1000 add yp 0350 sub moveto (9 grey) showen 
                               (9 Grau\255) showde
xp 1000 add yp 0700 sub moveto (steps) showen
                               (Stufen) showde
xp 0650 add yp 1250 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 ypW xm j mul sub 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
( the stepings of the three hue planes O-L, Y-V and L-M should be equivalent for) showen
( Stufungen der drei Farbebenen O-L, Y-V and L-M sollen f\374r separate und) showde

100 yd0 yd 1.0 mul sub moveto
(separate and adjacent colours.) showen
(aneinandergrenzende Farben \344quivalent sein.) showde

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

TBM
50 setlinewidth
x00 yt0 yd 0.5 mul sub moveto
(Is the spacing equivalent for separate and adjacent colours?) showen
(Ist die Stufung \344quivalent f\374r separate und aneinandergrenzende Farben?) 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 spacing is not equivalent if there is at least one Yes) showen
(Anmerkung: Die Stufung ist nicht \344quivalent 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
(Is there a continuous colour change) showen
(Gibt es einen kontinuierlichen Farbverlauf) showde

x10 yt0 yd 6 mul sub moveto
(for adjacent colours and not for separate colours?) showen
(f\374r aneinandergrenzende Farben und nicht f\374r separate 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 maxima and minima in the colour change) showen
(Gibt es Maxima and Minima im Farbverlauf (Farbschwebungen)) showde

x10 yt0 yd 8.5 mul sub moveto
(for adjacent colours and not for separate colours?) showen
(f\374r aneinandergrenzende Farben und nicht 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
(PS output of test chart 1 according to DIN 33872\2556; software Mac PS Preview) showen
(PS\255Ausgabe der Pr\374fvorlage 1 nach DIN 33872\2556; Software Mac\255PS\255Preview) showde
TM 0 setgray

showpage
grestore

%%Trailer