%!PS-Adobe-3.0 EPSF-3.0 LE930-7N.EPS or Dg131-3N.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:2011030112000)
  /ModDate (D:2011030112000)
/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

%***********************************************************
/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 2) showde (Part 2) showen
9000 -240 moveto (LE930-7) show
(, De131-3) showen
(, Dg131-3) showde

/y0 7800 def
/yd 320 def
310 /TimesB-ISOL1 FS
10 y0 moveto
(Discriminability of 16 step grey series by four grey definitions) showen
( (Yes/No decision)) showen
(Unterscheidbarkeit von 16\255stufigen Graureihen mit 4 Definitionen) showde
( (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
(The adjacent and separated are identical.) showen
(Aneinandergrenzende und separate sind identisch.) showde
6000 y0 yd 8.6 mul sub moveto
(Separated greys are less distiguishable.) showen
(Separate Graus sind weniger unterscheidbar.) showde

6000 y0 yd 9.8 mul sub moveto
(Any grey colour is defined by four different) showen
(Jede graue Farbe ist definiert durch vier) showde
6000 y0 yd 10.8 mul sub moveto
(PS\255operators in four rows) showen
(verschiedene PS\255Operatoren im vier Reihen) showde

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

xpN 650 sub ypN 400 sub moveto
(    Black N) showen
(Schwarz N) showde
xpN xsize add 400 sub ypN 400 sub moveto
(White W) showen
(Wei\337 W) showde
xpN 800 add ypN 400 sub moveto
(16 steps, 15 differences) showen
(16 Stufen, 15 Differenzen) 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 03550 def
/x00 00100 def
/x10 00900 def
/x01 10100 def
/x20 10900 def

50 setlinewidth
100 yt0 moveto
TBM (All) showen (Alle) showde
TM
( the 16 steps of the eight series N-W should be distinguishable) showen
( 16 Stufen der acht Serien N-W sollten unterscheidbar sein) showde

TBM
x00 yt0 yd 1 mul sub moveto
(Are all 15 grey differences of the eight rows distinguishable?) showen
(Sind alle 15 Graudifferenzen der acht Reihen unterscheidbar?) showde
TBM
x00 8900 add yt0 yd 1 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 2.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 3.1 mul sub moveto
(Test of adjacent grey samples (four upper rows):) showen
(Pr\374fung von aneinandergrenzenden Graumustern (vier obere Reihen):) showde

TM
x00 300 add yt0 yd 4.1 mul sub moveto
(Are the 15 grey differences of the four series distinguishable?) showen
(Sind die 15 Graudifferenzen der vier Serien unterscheidbar?) showde
TM
x00 8900 add yt0 yd 4.1 mul sub moveto
(underline:  Yes/No) showen
(unterstreiche: Ja/Nein) showde

TBM
x00 300 add yt0 yd 5.1 mul sub  moveto
(Only in case of "No":) showen
(Nur bei "Nein":) showde
TM
x00 600 add yt0 yd 6.1 mul sub moveto
(Are the 15 grey differences of series no. 1 distinguishable?) showen
(Sind die 15 Graudifferenzen der Serie Nr. 1 unterscheidbar?) showde
x00 8900 add yt0 yd 6.1 mul sub moveto
(underline:  Yes/No) showen
(unterstreiche: Ja/Nein) showde


x00 600 add yt0 yd 7.1 mul sub moveto
(Are the 15 grey differences of series no. 2 distinguishable?) showen
(Sind die 15 Graudifferenzen der Serie Nr. 2 unterscheidbar?) showde
x00 8900 add yt0 yd 7.1 mul sub moveto
(underline:  Yes/No) showen
(unterstreiche: Ja/Nein) showde


x00 600 add yt0 yd 8.1 mul sub moveto
(Are the 15 grey differences of series no. 3 distinguishable?) showen
(Sind die 15 Graudifferenzen der Serie Nr. 3 unterscheidbar?) showde
x00 8900 add yt0 yd 8.1 mul sub moveto
(underline:  Yes/No) showen
(unterstreiche: Ja/Nein) showde


x00 600 add yt0 yd 9.1 mul sub moveto
(Are the 15 grey differences of series no. 4 distinguishable?) showen
(Sind die 15 Graudifferenzen der Serie Nr. 4 unterscheidbar?) showde
TM
x00 8900 add yt0 yd 9.1 mul sub moveto
(underline:  Yes/No) showen
(unterstreiche: Ja/Nein) showde


%TM
%x00 300 add yt0 yd 9.2 mul sub moveto
%(Test of separate grey samples (four lower rows):) showen
%(Pr\374fung von separaten Graumustern (vier untere Reihen):) showde
%TM
%x00 300 add yt0 yd 9.2 mul sub moveto
%(Are the 15 grey differences of the four series distinguishable?) showen
%(Sind die 15 Graudifferenzen der vier Serien unterscheidbar?) showde
%TM
%x00 8900 add yt0 yd 9.2 mul sub moveto
%(underline:  Yes/No) showen
%(unterstreiche: Ja/Nein) showde

TM
x00 yt0 yd 10.0 mul sub moveto
%(Remarks: ........................................................) showen
%(Anmerkungen: ....................................................) showde

(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 10.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