%!PS-Adobe-3.0 EPSF-3.0 LE930-3N.EPS and Dg130-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: www.ps.bam.de/De13/De13.HTM)
  /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 {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

%***********************************************************
/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

/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 (LE930-3) show
(, De130-3) showen
(, Dg130-3) showde

/y0 7800 def
/yd 320 def
TBG
100 y0 moveto
(Equality of grey series by four grey definitions (Yes/No decision)) showen
(Gleichheit von Graureihen mit vier Graudefinitionen (Ja/Nein\255Entscheidung))
showde

TM
400 y0 yd 1.1 mul sub moveto
(Layoutbeispiel: 16\255stufige Graureihen mit vier Graudefinitionen) showde
(Layout example: 16 step grey series with four grey definitions) showen
TBM 1 0 0 setrgbcolor
( Apple LaserWriter 12-640) show
TM 0 setgray

TM
6000 y0 yd 2.2 mul sub moveto
(There are two basic colours on each page:) showen
(Es gibt zwei Grundfarben auf jeder Seite:) showde
6000 y0 yd 3.2 mul sub moveto
(Black N and White W in mean grey background.) showen
(Schwarz N und Wei\337 W in grauem Umfeld.) showde

6000 y0 yd 4.4 mul sub moveto
(There are adjacent (upper row)) showen
(Es gibt aneinandergrenzende (obere Reihe)) showde
6000 y0 yd 5.4 mul sub moveto
(and separate grey samples (lower row).) showen
(und separate Graumuster (untere Reihe).) showde
6000 y0 yd 6.4 mul sub moveto
(This gives eight grey series.) showen
(Dies erzeugt acht Graureihen.) showde

6000 y0 yd 7.6 mul sub moveto
(In each colunme the four adjacent greys) showen
(In jeder Spalte sollten die vier aneinander\255) showde
6000 y0 yd 8.6 mul sub moveto
(should be equal.) showen
(grenzenden Graustufen gleich sein.) showde

6000 y0 yd 9.8 mul sub moveto
(The four grey series are defined by four) showen
(Die vier Graureihen sind mit vier) showde
6000 y0 yd 10.8 mul sub moveto
( different PS\255operators.) showen
( verschiedenen PS\255Operatoren definiert.) showde

/xpN  1000 def
/ypN  4300 def
/xsize 4400 def
/ysize 4500 0.7 mul def
/ysiz4 ysize 0.25 mul def

xpN 600 sub ypN 400 sub moveto
(    Black N) showen
(Schwarz N) showde
xpN xsize add 500 sub ypN 400 sub moveto
(White W) showen
(Wei\337 W) showde
xpN 1400 add ypN 400 sub moveto
(16 steps) showen
(16 Stufen) showde

newpath
0.5 setgray
xpN 150 sub ypN 100 sub moveto
xsize 200 add 0 rlineto 0 ysize rlineto
xsize 200 add neg 0 rlineto closepath fill
0.0 setgray
xpN 150 sub ypN 100 sub moveto
xsize 200 add 0 rlineto 0 ysize rlineto
xsize 200 add neg 0 rlineto closepath stroke
0.3 setlinewidth
1.0 setgray
xpN 100 sub ypN 100 sub ysiz4 1 mul add moveto xsize 000 sub 0 rlineto stroke
xpN 100 sub ypN 100 sub ysiz4 2 mul add moveto xsize 000 sub 0 rlineto stroke
xpN 100 sub ypN 100 sub ysiz4 3 mul add moveto xsize 000 sub 0 rlineto stroke

/ifak 0.2 def
0 1 3 {/k exch def %k=0,3
/ypNk ypN ysiz4 k mul add def
/iy0 ypNk 50 add def
/s 0700 ifak mul def
 0 1 15 {/j exch def
         /ix0 xpN j 1400 ifak mul mul add def
         1 setgray
         ix0 iy0 s s rec fill
         0 setgray
         ix0 iy0 s s rec stroke
        } for %j

/s 1400 ifak mul def /iy0 ypNk 1500 ifak mul add def
 0 1 15 {/j exch def
         /ix0 xpN j 1400 ifak mul mul 350 ifak mul sub add def
         1 setgray
         ix0 iy0 s s rec fill
         0 setgray
         ix0 iy0 s s rec stroke
        } for %j

} for %k=0,3

0 setgray
xpN 360 sub ypN 2600 add moveto (1) show
xpN 360 sub ypN 1800 add moveto (2) show
xpN 360 sub ypN 1000 add moveto (3) show
xpN 360 sub ypN  200 add moveto (4) show

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

50 setlinewidth
100 yt0 moveto
TM
(This test uses only the four upper adjacent grey series N-W.) showen
(Die Pr\374fung benutzt nur die vier oberen aneinandergrenzenden) showde
( Graureihen N-W.) showde 

100 yt0 yd 1 mul sub moveto
(For the upper grey series and in each columne) showen
( the four greys should be equal for) showen
(F\374r die oberen Graureihen und in jeder Spalte) showde
( sollten die vier Graus f\374r) showde 
TBM
( all) showen ( alle) showde
TM
( the 16 steps.) showen
( 16 Stufen gleich sein.) showde

TBM
x00 yt0 yd 2.2 mul sub moveto
(Are in each columne) showen
(Sind in jeder Spalte) showde
( the four greys for all the 16 steps equal?) showen
( die vier Graus f\374r alle 16 Stufen gleich?) showde
TBM

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

TBM
x00 yt0 yd 3.4 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 4.6 mul sub moveto
(Is row no. 3 most different compared to all others ?) showen
(Ist Reihe Nr. 3 am meisten verschieden von allen anderen?) showde
x00 8900 add yt0 yd 4.6 mul sub moveto
(underline:  Yes/No) showen
(unterstreiche: Ja/Nein) showde


x00 300 add yt0 yd 5.6 mul sub moveto
(Are the series no. 1, no. 2, and no. 4 equal?) showen
(Sind die Reihen Nr. 1, Nr. 2 und Nr. 4 gleich?) showde
x00 8900 add yt0 yd 5.6 mul sub moveto
(underline:  Yes/No) showen
(unterstreiche: Ja/Nein) showde


TBM
x00 300 add yt0 yd 6.8 mul sub  moveto
(Only in case of "No":) showen
(Nur bei "Nein":) showde
TM
x00 600 add yt0 yd 7.8 mul sub moveto
(Are the rows no. 2 and no. 4 equal ?) showen
(Sind die Reihen Nr. 2 und Nr. 4 gleich?) showde
x00 8900 add yt0 yd 7.8 mul sub moveto
(underline:  Yes/No) showen
(unterstreiche: Ja/Nein) showde

TM
x00 yt0 yd 9 mul sub moveto
(Remarks: ) showen
(Anmerkungen: ) showde
TBM 1 0 0 setrgbcolor
(PS or ) showen
(PS\255 oder ) showde
(PDF output of test chart 1 according to DIN 33872\2553; PS printer) showen
(PDF\255Ausgabe der Pr\374fvorlage 1 nach DIN 33872\2553; PS\255Drucker) showde
TM 0 setgray

x00 yt0 yd 9.9 mul sub moveto
TBM 1 0 0 setrgbcolor
(or software: ) showen  (oder Software: ) showde TBIM
(Adobe Acrobat, version 8; Windows Vista or Mac OS 10.6)  showen
(Adobe Acrobat, Version 8; Windows Vista oder Mac OS 10.6)  showde
TM 0 setgray

showpage
grestore

%%Trailer