%!PS-Adobe-3.0 EPSF-3.0 LG921-7N.EPS, De121-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 {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 0 def /lanind2 0 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 4) showde (Part 4) showen
9000 -240 moveto (LG921-7, De121-3) show

/y0 7900 def
/yd 320 def
TBG
100 y0 moveto
(Discriminability of 16 step colour series (Yes/No decision)) showen
(Unterscheidbarkeit von 16\255stufigen Farbreihen (Ja/Nein\255Entscheidung))
showde


TM
400 y0 yd 1.1 mul sub moveto
(Layoutbeispiel: drei 16\255stufige Farbreihen) showde
(Layout example: three 16 step colour series) showen
TBM 1 0 0 setrgbcolor
( RECS colour atlas, linearized offset print) showen
( RECS\255Farbatlas, linearisierter Offsetdruck) showde
TM 0 setgray

TM
6200 y0 yd 2.0 mul sub moveto
(There are three basic colours on each page:) showen
(Es gibt drei Grundfarben auf jeder Seite:) showde
6200 y0 yd 3.0 mul sub moveto
(Black N, White W and Chromatic X.) showen
(Schwarz N, Wei\337 W und Bunt X.) showde
6200 y0 yd 4.2 mul sub moveto
(Ten pages include 10 hue planes) showen
(Zehn Seiten enthalten 10 Bunttonebenen) showde
6200 y0 yd 5.2 mul sub moveto
(X = OYLCVM and RJGB.) showen
(X = OYLCVM und RJGB.) showde
6200 y0 yd 6.2 mul sub moveto
(There are at maximum 45 distinguashable steps.) showen
(Es gibt maximal 45 unterscheidbare Stufen.) showde

6200 y0 yd 7.5 mul sub moveto
TBM 1 0 0 setrgbcolor
(PDF test chart 1) showen
(PDF\255Pr\374fvorlage 1) showde
TBIM ( \050rgb -> rgb*) show
TBK 0 -30 rmoveto (d) show 0 30 rmoveto TBIM
(-> cmyn*) show
TBK 0 -30 rmoveto (d) show 0 30 rmoveto TBIM (\051 ) show TBM

6200 y0 yd 8.5 mul sub moveto
(according to DIN 33872-2, file -> offset) showen
(nach DIN 33872-2, Datei -> Offsetdruck) showde
TM 0 setgray

/xp  1800 def
/yp  7300 def
xp 1300 sub yp 100 sub moveto
(White W) showen
(Wei\337 W) showde
xp 2100 add yp 1100 sub moveto
(Chromatic X) showen
(Bunt X) showde
xp 1400 sub yp 2100 sub moveto
(    Black N) showen
(Schwarz N) showde

xp yp 2000 sub moveto 2000 1000 rlineto -2000 1000 rlineto closepath stroke
TM
xp 1000 add yp 0350 sub moveto (16 steps, 15 differences) showen 
                               (16 Stufen, 15 Differenzen) showde
TM 0 setgray
xp 1000 add yp 1850 sub moveto (16 steps, 15 differences) showen
                               (16 Stufen, 15 Differenzen) showde
xp 1300 sub yp 1200 sub moveto (16 steps) showen (16 Stufen) showde

/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 15 div def
0 1 15 {/i exch def
       /xi xp def
       /yi ypN xm i mul add def
       xi yi 050 0 360 arc fill
       /xi xp xm i mul add def
       /yi ypN xm 0.5 mul i mul add def
       xi yi 050 0 360 arc fill
       /xi xpC xm i mul sub def
       /yi ypC xm 0.5 mul i mul add def
       xi yi 050 0 360 arc fill
      } for

/yd0 04850 def
100 yd0 moveto
TBM (All) showen (Alle) showde
TM
( steps of the three series N-W, W-X and X-N should be distinguishable on) showen
( Stufen der drei Serien N-W, W-X und X-N sollen unterscheidbar sein auf) showde
TBM ( all) showen TM ( pages.) showen
TBM ( allen) showde TM ( Seiten.) showde

/yt0 03800 def
/x00 00100 def
/x10 00200 def
/x01 10100 def
/x20 10900 def

TBM
50 setlinewidth
x00 yt0 yd 2.2 mul add moveto
(Are the three 16step series distinguishable on all pages?) showen
(Sind die drei 16\255stufigen Reihen auf allen Seiten unterscheidbar?) showde
TBM
x00 8900 add yt0 yd 2.2 mul add 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.0 mul add moveto
(in case of No: ) showen
(Falls Nein: ) showde
TM
(Are the three 16 step series on Page x of 10 pages distinguishable?) showen
(Sind die drei 16\255stufigen Reihen auf Seite x von 10 Seiten unterscheidbar?) showde
TBM 1 0 0 setrgbcolor
( inapplicable) showen
( entf\344llt) showde
TM 0 setgray

x10 yt0 yd 0 mul sub moveto
(Underline Yes/No and give in case of No the number) showen
( of distinguishable steps?) showen
(Unterstreiche Ja/Nein und gib im Fall von Nein die Anzahl) showde
( unterscheidbarer Stufen an) showde

x10 yt0 yd 1 mul sub moveto
(Page   1: Yes/No, if No  ../45 ) showen
(step differences are distinguashable of O = Orange Red) showen
(Seite   1: Ja/Nein, wenn Nein ../45 ) showde
(Differenzen sind unterscheidbar von O = Orangerot) showde

x10 yt0 yd 2 mul sub moveto
(Page   2: Yes/No, if No  ../45 ) showen
(step differences are distinguashable of Y = Yellow) showen
(Seite   2: Ja/Nein, wenn Nein ../45 ) showde
(Differenzen sind unterscheidbar von Y = Gelb) showde

x10 yt0 yd 3 mul sub moveto
(Page   3: Yes/No, if No  ../45 ) showen
(step differences are distinguashable of L = Leaf green) showen
(Seite   3: Ja/Nein, wenn Nein ../45 ) showde
(Differenzen sind unterscheidbar von L = Laubgr\374n) showde

x10 yt0 yd 4 mul sub moveto
(Page   4: Yes/No, if No  ../45 ) showen
(step differences are distinguashable of C = Cyan blue) showen
(Seite   4: Ja/Nein, wenn Nein ../45 ) showde
(Differenzen sind unterscheidbar von C = Cyanblau) showde

x10 yt0 yd 5 mul sub moveto
(Page   5: Yes/No, if No  ../45 ) showen
(step differences are distinguashable of V = Violett blue) showen
(Seite   5: Ja/Nein, wenn Nein ../45 ) showde
(Differenzen sind unterscheidbar von V = Violettblau) showde

x10 yt0 yd 6 mul sub moveto
(Page   6: Yes/No, if No  ../45 ) showen
(step differences are distinguashable of M = Magenta Red) showen
(Seite   6: Ja/Nein, wenn Nein ../45 ) showde
(Differenzen sind unterscheidbar von M = Magentarot) showde

x10 yt0 yd 7 mul sub moveto
(Page   7: Yes/No, if No  ../45 ) showen
(step differences are distinguashable of R = Elementary Red) showen
(Seite   7: Ja/Nein, wenn Nein ../45 ) showde
(Differenzen sind unterscheidbar von R = Elementarrot) showde

x10 yt0 yd 8 mul sub moveto
(Page   8: Yes/No, if No  ../45 ) showen
(step differences are distinguashable of J = Elementary yellow) showen
(Seite   8: Ja/Nein, wenn Nein ../45 ) showde
(Differenzen sind unterscheidbar von J = Elementargelb) showde

x10 yt0 yd 9 mul sub moveto
(Page   9: Yes/No, if No  ../45 ) showen
(step differences are distinguashable of G = Elemantary Green) showen
(Seite   9: Ja/Nein, wenn Nein ../45 ) showde
(Differenzen sind unterscheidbar von G = Elementargr\374n) showde

x10 yt0 yd 10 mul sub moveto
(Page 10: Yes/No, if No  ../45 ) showen
(step differences are distinguashable of B = Elementary blue) showen
(Seite 10: Ja/Nein, wenn Nein ../45 ) showde
(Differenzen sind unterscheidbar von B = Elementarblau) showde

x00 yt0 yd 10.6 mul sub moveto
(----------------------------------------------------) show

x00 yt0 yd 11.3 mul sub moveto
(Sum: ../10 Yes\255Pages and) showen
( .../450 step differences are distingishable) showen
(Summe: ../10 Ja\255Seiten und) showde
( .../450 Differenzen sind unterscheidbar) showde

showpage
grestore


%%Trailer