%!PS-Adobe-3.0 EPSF-3.0 AG060-3N.EPS Y10-3N_AL09_JSO.EPS
%%BoundingBox: 70 82 430 360

%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: http://farbe.li.tu-berlin.de/AG06/AG06.HTM)
  /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
  /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik)
  /Keywords (image reproduction, colour devices)
  /Creator (klaus.richter@mac.com)
  /CreationDate (D:2017040112000)
  /ModDate (D:20170401112000)
/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
/A4querL {598 0 translate 90 rotate} 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

/Courier findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/Courier-ISOL1 exch definefont pop

/Courier-Bold findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/CourierB-ISOL1 exch definefont pop

/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
/showfr {2 lanind eq {show} {pop} ifelse} bind def
/showes {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
/showea {1 lanind le {show} {pop} ifelse} bind def
/showm  {6 lanind eq {show} {pop} ifelse} bind def

%default values
/lanind1 0 def /lanind2 0 def /lanindd 01 def /lanindm 01 def
/colorm1 00 def /colorm2 00 def /colormd 01 def /colormm 01 def
/deintp1 00 def /deintp2 00 def /deintpd 01 def /deintpm 01 def
/xcolor1 03 def /xcolor2 03 def /xcolord 01 def /xcolorm 01 def
/xchart1 00 def /xchart2 00 def /xchartd 01 def /xchartm 01 def
/pchart1 01 def /pchart2 01 def /pchartd 01 def /pchartm 01 def
/colsep1 00 def /colsep2 00 def /colsepd 01 def /colsepm 01 def
/pmetam1 00 def /pmetam2 00 def /pmetamd 01 def /pmetamm 01 def
/xchart3 00 def /xchart4 00 def /xchart5 00 def

%usual change of default values
/lanindf where {pop /lanind1 lanindf  def /lanind2 lanindf  def
                    /lanindd laninddf def /lanindm lanindmf def} if
/colormf where {pop /colorm1 colormf  def /colorm2 colormf  def
                    /colormd colormdf def /colormm colormmf def} if
/deintpf where {pop /deintp1 deintpf  def /deintp2 deintpf  def
                    /deintpd deintpdf def /deintpm deintpmf def} if
/xcolorf where {pop /xcolor1 xcolorf  def /xcolor2 xcolorf  def
                    /xcolord xcolordf def /xcolorm xcolormf def} if
/xchartf where {pop /xchart1 xchartf  def /xchart2 xchartf  def
                    /xchartd xchartdf def /xchartm xchartmf def} if
/pchartf where {pop /pchart1 pchartf  def /pchart2 pchartf  def
                    /pchartd pchartdf def /pchartm pchartmf def} if
/colsepf where {pop /colsep1 colsepf  def /colsep2 colsepf  def
                    /colsepd colsepdf def /colsepm colsepmf def} if
/pmetamf where {pop /pmetam1 pmetamf  def /pmetam2 pmetamf  def
                    /pmetamd pmetamdf def /pmetamm pmetammf def} if
/xchart3f where {pop /xchart3 xchart3f def} if
/xchart4f where {pop /xchart4 xchart4f def} if
/xchart5f where {pop /xchart5 xchart5f def} if

/lanind lanind1 def %
/colorm colorm1 def %
/deintp deintp1 def %
/xcolor xcolor1 def %
/xchart xchart1 def %
/pchart pchart1 def %
/colsep colsep1 def %
/pmetam pmetam1 def %

/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
      
/colorml colorm def
%0 1 1 {/colorml exch def %colorml=0,1

/xcolorl xcolor def
%0 1 3 {/xcolorl exch def %xcolorl=0,3

/xchartl xchart def
%0 1 7 {/xchartl exch def %xchartl=0,7

/pchartl pchart def
%0 1 2 {/pchartl exch def %pchartl=0,2

colorm 0 eq deintp 0 eq and {/TxS () def /Txx (dd) def  /Fxx (d) def} if
colorm 0 eq deintp 1 eq and {/TxS () def /Txx (de) def  /Fxx (e) def} if
colorm 1 eq deintp 0 eq and {/TxS () def /Txx (dd) def /Fxx (d) def} if
colorm 1 eq deintp 1 eq and {/TxS () def /Txx (de) def /Fxx (e) def} if
%xchart 0 eq {/Txx (-) def /Fxx (-) def} if

gsave

xcolorl 0 eq {/tfnx* {0 0 0 1 setcmykcolor} def
              /tfwx* {0 0 0 0 setcmykcolor} def
              /colrecfix* {setcmykcolor rec fill} bind def
              /colrecstx* {setcmykcolor rec stroke} bind def
             } if
xcolorl 1 eq {/tfnx* {0 setgray} def
              /tfwx* {1 setgray} def
              /colrecfix* {setgray rec fill} bind def
              /colrecstx* {setgray rec stroke} bind def
             } if
xcolorl 2 eq {/tfnx* {1 1 1 0 setcmykcolor} def
              /tfwx* {0 0 0 0 setcmykcolor} def
              /colrecfix* {setcmykcolor rec fill} bind def
              /colrecstx* {setcmykcolor rec stroke} bind def
             } if
xcolorl 3 eq {/tfnx* {0 0 0 setrgbcolor} def
              /tfwx* {1 1 1 setrgbcolor} def
              /colrecfix* {setrgbcolor rec fill} bind def
              /colrecstx* {setrgbcolor rec stroke} bind def
             } if

pchartl 1 eq {%pchartl=1; Y10-3N_AL09_JSO_1P2S.EPS; table A1 to A3

%font0309.ps***********************************************
/CW {100 /Courier-ISOL1 FS} bind def
/CV {150 /Courier-ISOL1 FS} bind def
/CS {200 /Courier-ISOL1 FS} bind def
/CK {250 /Courier-ISOL1 FS} bind def
/CM {300 /Courier-ISOL1 FS} bind def
/CG {350 /Courier-ISOL1 FS} bind def

/CBW {100 /CourierB-ISOL1 FS} bind def
/CBV {150 /CourierB-ISOL1 FS} bind def
/CBS {200 /CourierB-ISOL1 FS} bind def
/CBK {250 /CourierB-ISOL1 FS} bind def
/CBM {300 /CourierB-ISOL1 FS} bind def
/CBG {350 /CourierB-ISOL1 FS} bind def

/RW {100 /Times-Roman FS} bind def
/RV {150 /Times-Roman FS} bind def
/RS {200 /Times-Roman FS} bind def
/RK {250 /Times-Roman FS} bind def
/RM {300 /Times-Roman FS} bind def
/RG {350 /Times-Roman FS} bind def

/RIW {100 /Times-Italic FS} bind def
/RIV {150 /Times-Italic FS} bind def
/RIS {200 /Times-Italic FS} bind def
/RIK {250 /Times-Italic FS} bind def
/RIM {300 /Times-Italic FS} bind def
/RIG {350 /Times-Italic FS} bind def

/RBW {100 /Times-Bold FS} bind def
/RBV {150 /Times-Bold FS} bind def
/RBS {200 /Times-Bold FS} bind def
/RBK {250 /Times-Bold FS} bind def
/RBM {300 /Times-Bold FS} bind def
/RBG {350 /Times-Bold FS} bind def

/RBIW {100 /Times-BoldItalic FS} bind def
/RBIV {150 /Times-BoldItalic FS} bind def
/RBIS {200 /Times-BoldItalic FS} bind def
/RBIK {250 /Times-BoldItalic FS} bind def
/RBIM {300 /Times-BoldItalic FS} bind def
/RBIG {350 /Times-BoldItalic FS} bind def

/TW {100 /Times-ISOL1 FS} bind def
/TV {150 /Times-ISOL1 FS} bind def
/TS {200 /Times-ISOL1 FS} bind def
/TK {250 /Times-ISOL1 FS} bind def
/TM {300 /Times-ISOL1 FS} bind def
/TG {350 /Times-ISOL1 FS} bind def

/TIW {100 /TimesI-ISOL1 FS} bind def
/TIV {150 /TimesI-ISOL1 FS} bind def
/TIS {200 /TimesI-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

/TBW {100 /TimesB-ISOL1 FS} bind def
/TBV {150 /TimesB-ISOL1 FS} bind def
/TBS {200 /TimesB-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

/TBIW {100 /TimesBI-ISOL1 FS} bind def
/TBIV {150 /TimesBI-ISOL1 FS} bind def
/TBIS {200 /TimesBI-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

/SW {100 /Symbol FS} bind def
/SV {150 /Symbol FS} bind def
/SS {200 /Symbol FS} bind def
/SK {250 /Symbol FS} bind def
/SM {300 /Symbol FS} bind def
/SG {350 /Symbol FS} bind def

/ishowRV  {RW  -00 -30 rmoveto
           show 00  30 rmoveto RV} def
/jshowRV  {RBW -00 -30 rmoveto
           show 00  30 rmoveto RBV} def

/ishowTV  {TW  -00 -30 rmoveto
           show 00  30 rmoveto TV} def
/jshowTV  {TBW -00 -30 rmoveto
           show 00  30 rmoveto TBV} def

/ishowRS  {RV  -00 -40 rmoveto
           show 00  40 rmoveto RS} def
/jshowRS  {RBV -00 -40 rmoveto
           show 00  40 rmoveto RBS} def

/ishowTS  {TV  -00 -40 rmoveto
           show 00  40 rmoveto TS} def
/jshowTS  {TBV -00 -40 rmoveto
           show 00  40 rmoveto TBS} def

/ishowRK  {RS  -00 -50 rmoveto
           show 00  50 rmoveto RK} def
/jshowRK  {RBS -00 -50 rmoveto
           show 00  50 rmoveto RBK} def

/ishowTK  {TS  -00 -50 rmoveto
           show 00  50 rmoveto TK} def
/jshowTK  {TBS -00 -50 rmoveto
           show 00  50 rmoveto TBK} def

/ishowRM  {RK  -00 -60 rmoveto
           show 00  60 rmoveto RM} def
/jshowRM  {RBK -00 -60 rmoveto
           show 00  60 rmoveto RBM} def

/ishowTM  {TK  -00 -60 rmoveto
           show 00  60 rmoveto TM} def
/jshowTM  {TBK -00 -60 rmoveto
           show 00  60 rmoveto TBM} def

/ishowRG  {RM  -00 -70 rmoveto
           show 00  70 rmoveto RG} def
/jshowRG  {RBM -00 -70 rmoveto
           show 00  70 rmoveto RBG} def

/ishowTG  {TM  -00 -70 rmoveto
           show 00  70 rmoveto TG} def
/jshowTG  {TBM -00 -70 rmoveto
           show 00  70 rmoveto TBG} def
%font0309.ps***********************************************

/iout 3 def %iout=0_2:CMY, iout=3-5: RGB
/ioutT [(W) (N) (Z) (W) (N) (Z)] def
/ioutE [(White) (Black) (Grey) (White) (Black) (Grey)] def
/ioutG [(Wei\337) (Schwarz) (Grau) (Wei\337) (Schwarz) (Grau)] def

/cvishow {cvi 6 string cvs show} def

72 90 translate
0.02 MM dup scale
15 setlinewidth
/iyd   150 def          %line difference

0 setgray
0 -120 moveto
TV
(Teil 1, ) showde
(part 1, ) showen
(parte 1, ) showes
(la part 1, ) showfr
(la parte 1, ) showit
(artikkelen 1, ) showjp

4300 -120 moveto
RV
(AG060-3) show Txx show (: ) show
deintp  cvishow
colorml cvishow
xcolorl cvishow
xchartl cvishow
pchartl cvishow

1 setgray
0 0  moveto 6000 0 rlineto 0 4200 rlineto
           -6000 0 rlineto closepath fill
0 setgray
0 0  moveto 6000 0 rlineto 0 4200 rlineto
           -6000 0 rlineto closepath stroke

/ix1    50 def %1
/ix2  1600 def %2
/ix3  5400 def %3

/iyd   175 def          %line difference
/y00  3850 def

/iyt0 3650 def             %cero line below top
/iy00 iyt0 def
/iy10 iyt0 iyd 1 mul sub def
/iy20 iyt0 iyd 2 mul sub def
/iy30 iyt0 iyd 3 mul sub def

/iyt1 2950 def
/iy11 iyt1 iyd 0 mul sub def
/iy21 iyt1 iyd 1 mul sub def
/iy31 iyt1 iyd 2 mul sub def

/iyt2 2400 def
/iy12 iyt2 iyd 0 mul sub def
/iy22 iyt2 iyd 1 mul sub def
/iy32 iyt2 iyd 2 mul sub def

/iyt3 1850 def
/iy13 iyt3 iyd 0 mul sub def
/iy23 iyt3 iyd 1 mul sub def
/iy33 iyt3 iyd 2 mul sub def

/iyt4 1300 def             %cero line below top
/iy04 iyt4 def
/iy14 iyt4 iyd 1 mul sub def
/iy24 iyt4 iyd 2 mul sub def
/iy34 iyt4 iyd 3 mul sub def

/iyt5 0600 def             %cero line below top
/iy05 iyt5 def
/iy15 iyt5 iyd 1 mul sub def
/iy25 iyt5 iyd 2 mul sub def
/iy35 iyt5 iyd 3 mul sub def

ix1 y00 200 add moveto
TBV
(Pr\374fung der linearisierten Ausgabe der Bilder ) showde
(Test of visual linearized output of pictures ) showen
(Prueba visual de linearized output de imagen ) showes
(Test visuel de linearized output d'image ) showfr
(Test visivo di linearized output di immagine ) showit
(Visual test of linearized output av bilde ) showjp

iout 2 le {(C1) show}{(A1) show} ifelse
ioutT iout get show TxS show Txx jshowTV
TBV
( bis ) showde
( to ) showen
( a ) showes
( \340 ) showfr
( a ) showit
( til ) showjp

iout 2 le {(C3) show}{(A3) show} ifelse
ioutT iout get show TxS show Txx jshowTV

TV
(  ) show
(unterstreiche) showde
(please underline) showen
(por favor underline) showes
(veuillez souligner) showfr
(si prega di sottolineare) showit
(vennligst underline) showjp

ix3 y00 200 add moveto
TBV
(Ja/Nein) showde
(Yes/No) showen
(Si/No) showes
(Qui/Non) showfr
(Si/No) showit
(Ja/Nei) showjp

ix1 y00 moveto
TBV
(Ausgabepr\374fung mit Rechnerdisplay (  )) showde
( oder externen Display (  )) showde
(Output test with computer display (  )) showen
( or the external display (  )) showen
(Prueba de salida con pantalla del ordenador (  )) showes
( o en la pantale externa (  )) showes
(Test de sortie avec \351cran de l'ordinateur (  )) showfr
( ou l'\351cran externe (  )) showfr
(Test di uscita con le schermo del computer (  )) showit
( o il monitor esterno (  )) showit
(Teste utganger med skjermen pa datamaskinen (  )) showjp
( eller den eksterne skjermen (  )) showjp

4400 y00 moveto
TV
(   bitte markieren mit (x)!) showde
(      please mark by (x)!) showen
( veuillez marquer par (x)!) showfr
3950 y00 160 sub moveto
(                 por favor marca (x)!) showes
(si prega di contrassegnare de (x)!) showit
(                 vennligst merk av (x)!) showjp

ix1  iy00 moveto
TBV
(Pr\374fung der Radialgitter nach Bild ) showde
(Test of the radial grating according to picture ) showen
(Prueba de Siemens estrellas seg\372n el gr\341fico ) showes
(Test de Siemens \351toiles selon graphic ) showfr
(Test di Siemens stelle secondo un grafico ) showit
(Test av Siemens stjerner i henhold til grafisk ) showjp

iout 2 le {(C1) show}{(A1) show} ifelse
ioutT iout get show TxS show Txx jshowTV

/iy1i 4 array def
iy1i 0 iy10 put
iy1i 1 iy11 put
iy1i 2 iy12 put
iy1i 3 iy13 put

/texi 4 array def
/texi [(N-W-) (W-N-) (N-Z-) (W-Z-)] def

0 1 3 {/i exch def %i=0,3

ix1  iy1i i get moveto
RIV
texi i get show
TV
(Radiales Gitter:) showde
(radial grating:) showen
(Siemens estrella:) showes
(Siemens \351toiles:) showfr
(Siemens stelle:) showit
(Siemens stjerner:) showjp

ix2  iy1i i get moveto
TV
(Ist der Aufl\366sungsdurchmesser < 6 mm?) showde
(Is the resolution diameter < 6 mm?) showen
(Es la resoluci\363n di\341metro < 6 mm?) showes
(Le diam\350tre de la r\351solution est < 6 mm?) showfr
(\310 la risoluzione diametro < 6 mm?) showit
(Diameteren pa opplosning < 6 mm?) showjp

ix3  iy1i i get moveto
TBV
(Ja/Nein) showde
(Yes/No) showen
(Si/No) showes
(Qui/Non) showfr
(Si/No) showit
(Ja/Nei) showjp

ix2  iy1i i get iyd 1 mul sub moveto
TV 
(Pr\374fung mit Vergr\366\337erungsglas (z. B. 6x)) showde
(Test with magnifying glass (e.g. 6x)) showen
(Prueba con lupa (por ejemplo 6x)) showes
(Test avec loupe (par ex. 6x)) showfr
(Prova con lente di ingradimento (ad esempio 6x)) showit
(Test med forstorrelses glass (f.eks 6x)) showjp

ix2  iy1i i get iyd 2 mul sub moveto
TV 
(Aufl\366sungsdurchmesser) showde
(resolution diameter) showen
(di\341metro de la resoluc\i363n) showes
(diam\350tre de la r\351solution) showfr
(diametro di risoluzione) showit
(resolution diameter) showjp

ix3  iy1i i get iyd 2 mul sub moveto
TBV
(......  mm) show

} for %i=0,3

ix1  iy04 moveto
TBV
(Pr\374fung von 5 gleichabst\344ndigen ) showde
(Test of 5 visual equidistant ) showen
(Visual test de los 5 pasos de gris ) showes
(Test de l\351quidistance visuell 5 ) showfr
(Prova del 5 visual equidistanti ) showit
(Test av 5 visuell equidistante ) showjp
TBIV
(L*) show RBV (-) show
TBV
(GrauStufen nach Bild ) showde
(grey steps according to picture ) showen
(equidistante visual seg\372n el gr\341fico ) showes
(gris selon graphic ) showfr
(grigio passi secondo un grafico ) showit
(gra trinn i henhold til grafisk ) showjp

iout 2 le {(C2) show}{(A2) show} ifelse
ioutT iout get show TxS show Txx jshowTV

ix1  iy14 moveto
TV
(Sind die 5 Stufen in der oberen Reihe unterscheidbar?) showde
(Are the 5 steps on the upper rows distinguishable?) showen
(Sont los 5 pasos de la file superior discriminable?) showes
(Sont les 5 paliers de la rang\351e sup\351rieure discriminable?) showfr
(Sono le 5 fasi della filla superiore separable?) showit
(Er de 5 trinnene i overste linje discriminable?) showjp
        
ix3  iy14 moveto
TBV 
(Ja/Nein) showde
(Yes/No) showen
(Si/No) showes
(Qui/Non) showfr
(Si/No) showit
(Ja/Nei) showjp

ix1  iy24 moveto
TV
(Wenn Nein: Wieviel Stufen sind unterscheibar?) showde
(If No: How many steps can be distinguished?) showen
(Si No: ? Qu\341ntos pasos discriminable?) showes
(If Non: Combien de paliers sont discriminable?) showfr
(Se No: quanti sono i passaggi discriminabile?) showit
(Hvis Nei: Hvor mange trinn er discriminable?) showjp

ix2  iy34 moveto
TV
(von den gegebenen 5 Stufen:) showde
(of the given 5 steps:) showen
(de los 5 pasos:) showes
(compte tenu des 5 paliers:) showfr
(del dato 5 passi:) showit
(av gitt 5 trinn:) showjp

ix3 200 sub iy34 moveto
TBV
(......  Stufen) showde
(......  Steps) showen
(......  pasos) showes
(......  paliers) showfr
(......  passi) showit
(......  trinn) showjp

ix1  iy05 moveto
TBV
(Pr\374fung von 16 gleichabst\344ndigen ) showde
(Test of 16 visual equidistant ) showen
(Visual test de los 16 pasos de gris ) showes
(Test de l\351quidistance visuell 16 ) showfr
(Prova del 16 visual equidistanti ) showit
(Test av 16 visuell equidistante ) showjp
TBIV
(L*) show RBV (-) show
TBV
(GrauStufen nach Bild ) showde
(grey steps according to picture ) showen
(equidistante visual seg\372n el gr\341fico ) showes
(gris selon graphic ) showfr
(grigio passi secondo un grafico ) showit
(gra trinn i henhold til grafisk ) showjp

iout 2 le {(C3) show}{(A3) show} ifelse
ioutT iout get show TxS show Txx jshowTV

ix1  iy15 moveto
TV
(Sind die 16 Stufen in der oberen Reihe unterscheidbar?) showde
(Are the 16 steps on the upper rows distinguishable?) showen
(Sont los 16 pasos de la file superior discriminable?) showes
(Sont les 16 paliers de la rang\351e sup\351rieure discriminable?) showfr
(Sono le 16 fasi della filla superiore separable?) showit
(Er de 16 trinnene i overste linje discriminable?) showjp
        
ix3  iy15 moveto
TBV 
(Ja/Nein) showde
(Yes/No) showen
(Si/No) showes
(Qui/Non) showfr
(Si/No) showit
(Ja/Nei) showjp

ix1  iy25 moveto
TV
(Wenn Nein: Wieviel Stufen sind unterscheibar?) showde
(If No: How many steps can be distinguished?) showen
(Si No: ? Qu\341ntos pasos discriminable?) showes
(If Non: Combien de paliers sont discriminable?) showfr
(Se No: quanti sono i passaggi discriminabile?) showit
(Hvis Nei: Hvor mange trinn er discriminable?) showjp

ix2  iy35 moveto
TV
(von den gegebenen 16 Stufen:) showde
(of the given 16 steps:) showen
(de los 16 pasos:) showes
(compte tenu des 16 paliers:) showfr
(del dato 16 passi:) showit
(av gitt 16 trinn:) showjp

ix3 200 sub iy35 moveto
TBV
(......  Stufen) showde
(......  Steps) showen
(......  pasos) showes
(......  paliers) showfr
(......  passi) showit
(......  trinn) showjp

} if %pchartl=1; Y10-3N_AL09_JSO_1P2S.EPS; table A1 to A3


pchartl 2 eq {%pchartl=2; Y10-3N_AL09_JSO_1P3A.EPS; table colour rendering

%font0309A.ps***********************************************
%only T*V, R*V, T*W, R*W, jshowTV, jshowTR with T*W, R*W

/RW {100 /Times-Roman FS} bind def
/RV {150 /Times-Roman FS} bind def

/RIW {100 /Times-Italic FS} bind def
/RIV {150 /Times-Italic FS} bind def

/RBW {100 /Times-Bold FS} bind def
/RBV {150 /Times-Bold FS} bind def

/RBIW {100 /Times-BoldItalic FS} bind def
/RBIV {150 /Times-BoldItalic FS} bind def

/TW {100 /Times-ISOL1 FS} bind def
/TV {150 /Times-ISOL1 FS} bind def

/TIW {100 /TimesI-ISOL1 FS} bind def
/TIV {150 /TimesI-ISOL1 FS} bind def

/TBW {100 /TimesB-ISOL1 FS} bind def
/TBV {150 /TimesB-ISOL1 FS} bind def

/TBIW {100 /TimesBI-ISOL1 FS} bind def
/TBIV {150 /TimesBI-ISOL1 FS} bind def

/SW {100 /Symbol FS} bind def
/SV {150 /Symbol FS} bind def

/ishowRV  {RW  -00 -30 rmoveto
           show 00  30 rmoveto RV} def
/jshowRV  {RBW -00 -30 rmoveto
           show 00  30 rmoveto RBV} def

/ishowTV  {TW  -00 -30 rmoveto
           show 00  30 rmoveto TV} def
/jshowTV  {TBW -00 -30 rmoveto
           show 00  30 rmoveto TBV} def

%font0309A.ps***********************************************

/CMeasSxl (Measure: unknown) def
/CDeviceSxl (Device: unknown) def
/CDateSxl (Date: unknown) def

/DecodeXYZ* {dup 6 29 div ge {dup dup mul mul}
            {4 29 div sub 108 841 div mul} ifelse} bind def

/xchartn xchartl xchartd idiv def
colorml 0 eq {/ilx 0 def
             }
             {%colorml=1
              xchartn 2 le {/ilx xchartn def} if
              xchartn 3 eq {/ilx       4 def} if
              xchartn 4 eq {/ilx       8 def} if
              xchartn 5 eq {/ilx      16 def} if
              xchartn 6 eq {/ilx      32 def} if
              xchartn 7 eq {/ilx      64 def} if
             } ifelse
             
/Xnref 0.63 ilx mul 0.9505 mul def
/Ynref 0.63 ilx mul def
/Znref 0.63 ilx mul 1.0890 mul def
     
/XQ Xnref  95.05 div def
/YQ Ynref 100.00 div def
/ZQ Znref 108.90 div def
XQ 0 lt {/XQ 0.00000001 def} if
YQ 0 lt {/YQ 0.00000001 def} if
ZQ 0 lt {/ZQ 0.00000001 def} if
/L*ref YQ 0.008856 lt {903.3 YQ mul}
                      {YQ 0.33333333 exp 116 mul 16 sub} ifelse def
/a*ref XQ 0.008856 lt {7.787 XQ mul 16 116 div add}
                      {XQ 0.33333333 exp} ifelse
       YQ 0.008856 lt {7.787 YQ mul 16 116 div add}
                      {YQ 0.33333333 exp} ifelse sub 500 mul def
/b*ref YQ 0.008856 lt {7.787 YQ mul 16 116 div add}
                      {YQ 0.33333333 exp} ifelse
       ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add}
                      {ZQ 0.33333333 exp} ifelse sub 200 mul def

/L*N L*ref def /L*W 95.41 def

/L*i 21 array def %different for xchartl=0,7
/a*i 21 array def
/b*i 21 array def
/l*i 21 array def
/Yi  21 array def

%equal distance between L*N and L*W
0 1 20 {/i exch def %steps from black to white
        i 15 le {/i0  0 def /istep 15 def}
                {/i0 16 def /istep  4 def} ifelse
         L*i i L*N L*W L*N sub i i0 sub istep div mul add put
         a*i i 0 put
         b*i i 0 put
         l*i i L*i i get L*N sub L*W L*N sub div put
        /Y* {L*i i get 16 add 116 div} bind def
        Yi i Y* DecodeXYZ* 100.00 mul put
       } for

/cvishow {cvi 6 string cvs show} def

72 90 translate
0.023 MM dup scale %attention different scale
15 setlinewidth

0 setgray
RV
4100 -120 moveto
(AG060-3) show
Txx show (: ) show
deintp  cvishow
colorml cvishow
xcolorl cvishow
xchartl cvishow
pchartl cvishow
 
50 -120 moveto
(Teil 1, ) showde
(part 1, ) showen
(parte 1, ) showes
(la part 1, ) showfr
(la parte 1, ) showit
(artikkelen 1, ) showjp

%(; ) show
%CMeasSxl show (; ) show
%CDeviceSxl show (; ) show
%CDateSxl show

/cvishow {cvi 6 string cvs show} def
/cvsshow0 {10 mul 0.5 add cvi 0.1 mul 10 string cvs show} def
/cvsshow1 {10 mul 0.5 add cvi 0.1 mul %new980310
           dup 0 ge {(  ) show} if
           dup abs 10 lt {(  ) show} if
           10 string cvs show} def
/cvsshow2 {100 mul 0.5 add cvi 0.01 mul %new980310
           dup 0 ge {(  ) show} if
           dup abs 10 lt {(  ) show} if
           10 string cvs show} def
/cvsshow3 {1000 mul 0.5 add cvi 0.001 mul 10 string cvs show} def

/cvsshow1x {/nxx exch def                              %example nxx=99.1/99.0
             nxx 10 mul cvi /nxi exch def              %nxi=991/990
             nxi 10 idiv /nxa exch def                 %nxa=99
             nxi nxa 10 mul sub /nxb exch def          %nxb=1/0
             nxa cvishow (,) show                      %nxa=99
             nxb cvishow                               %nxb=1/0
           } def
/cvsshow2x {/nxx exch def                              %example nxx=99.12/99,02/99,00
             nxx 100 mul cvi /nxi exch def             %nxi=9912/9902/00
             nxi 100 idiv /nxa exch def                %nxa=99
             nxi nxa 100 mul sub /nxb exch def         %nxb=12/02/00
             nxa cvishow (,) show                      %nxb=99,
             nxb 10 ge {nxb cvishow} if                %nxb=12
             nxb  1 ge
             nxb  9 le and {(0) show nxb cvishow} if   %nxb=02
             nxb  0 eq {(00) show} if                  %nxb=00
           } def
/cvsshow3x {/nxx exch def                              %example nxx=99.123/99.012/99.001/99.000
             nxx 1000 mul cvi /nxi exch def            %nxi=99123/99012/99001/99000
             nxi 1000 idiv /nxa exch def               %nxa=99
             nxi nxa 1000 mul sub /nxb exch def        %nxb=123/012/001/000
             nxa cvishow (,) show                      %nxb=99,
             nxb 100 ge {nxb cvishow} if               %nxb=123/012/001/000
             nxb  10 ge
             nxb  99 le and {(0) show nxb cvishow} if  %nxb=012
             nxb   1 ge
             nxb   9 le and {(00) show nxb cvishow} if %nxb=001
             nxb   0 eq {(000) show} if                %nxb=000
           } def
           
1 setgray
20 20 moveto 5400 0 rlineto 0 4000 rlineto   %relatives Bildfeld 54 x 40mm
            -5400 0 rlineto closepath fill
0 setgray
20 20 moveto 5400 0 rlineto 0 4000 rlineto   %relatives Bildfeld 54 x 40mm
            -5400 0 rlineto closepath stroke

/x0 050 def /y0 3700 def /yd 170 def
/xpos 18 array def
/xtex 18 array def
/xtexi 18 array def

/xpos [ 10  150   450  750            %i, LAB*refi(ikor)
            1000                      %d
            1300 1600 1900            %LAB*outi(ikor)
            2200 2500 2800            %dLABTO(ikor,ikor), dE*
            3050 3350 3850            %
            4200 4500 4800 5100] def  %
/xtex [(i) (LAB*) ( ) ( ) (l*)
           (LAB*) ( ) ( )
           (LAB*) ( ) ( ) (E*)
           ( ) ( ) ( )
           ( ) ( ) ( )] def

/xtexi [() (ref) ( ) ( ) (out)
           (out) ( ) ( )
           (out-ref) ( ) ( ) ()
           ( ) ( ) ( )
           ( ) ( ) ( )] def
 
0 1 16 { /j exch def
         RIV
         x0 xpos j get add y0 yd add moveto
         j 11 eq {SV (D) show RIV} if
         xtex j get show
         xtexi j get ishowRV 
       } for %j=0,1,...,16

colorml 1 eq {/xchartNl xchartl 8 idiv def
              /xchartPl xchartl xchartl 8 idiv 8 mul sub def
              /gammaNl 1 xchartNl 0.18 mul add def
              /gammaPl 1 1 xchartPl 0.18 mul add div def
              /gammal gammaNl gammaPl mul def
             } if

/L*gi 21 array def %different for xchartl=0,7
/a*gi 21 array def
/b*gi 21 array def
/l*gi 21 array def
/Ygi  21 array def

%distance between L*N and L*W using gamma
0 1 20 {/i exch def %steps from black to white
        l*gi i l*i i get colorm 1 eq {gammal exp} if put
         L*gi i L*W L*N sub l*gi i get mul L*N add put
         a*gi i 0 put
         b*gi i 0 put
        /Y* {L*gi i get 16 add 116 div} bind def
        Ygi i Y* DecodeXYZ* 100.00 mul put
       } for

/sumdL*  0 def /sumda* 0 def /sumdb* 0 def /sumdE* 0 def
/sumdNL* 0 def /sumdNa* 0 def /sumdNb* 0 def /sumdNE* 0 def
/sumdBL* 0 def /sumdBa* 0 def /sumdBb* 0 def /sumdBE* 0 def
/sumdRL* 0 def
/sumdFL* 0 def

0 1 20 {/i exch def %21 colours

0 1 12 {/j exch def %17 Positionen

RW
x0 xpos j get add y0 yd i mul sub moveto
 
j 0 eq {i 1 add cvishow } if
j 1 eq {L*i i get cvsshow2x} if
j 2 eq {a*i i get cvsshow2x} if
j 3 eq {b*i i get cvsshow2x} if

j 4 eq {l*gi i get cvsshow2x} if 
j 5 eq {L*gi i get cvsshow2x} if
j 6 eq {a*gi i get cvsshow2x} if
j 7 eq {b*gi i get cvsshow2x} if

j 8 eq {L*gi i get dup L*i i get sub cvsshow2x L*i i get sub
         abs /sumdL* exch sumdL* add def
       } if %j=8
j 9 eq {a*gi i get dup a*i i get sub cvsshow2x a*i i get sub
        abs /sumda* exch sumda* add def
       } if %j=9
j 10 eq {b*gi i get dup b*i i get sub cvsshow2x b*i i get sub
         abs /sumdb* exch sumdb* add def
        } if %j=10
 
j 11 eq {L*gi i get L*i i get sub dup mul
         a*gi i get a*i i get sub dup mul add
         b*gi i get b*i i get sub dup mul add 0.0001 add sqrt
         dup cvsshow2x /sumdE* exch sumdE* add def
        } if %j=11
 
i 15 lt {%16 Stufen
j 11 eq {L*gi i get L*i i get sub dup mul
         a*gi i get a*i i get sub dup mul add
         b*gi i get b*i i get sub dup mul add 0.0001 add sqrt
         /sumdBE* exch sumdBE* add def
        } if %j=11
        } if %16 Stufen
 
i 16 ge {%5 Unbunt=Noir
j 11 eq {L*gi i get L*i i get sub dup mul
         a*gi i get a*i i get sub dup mul add
         b*gi i get b*i i get sub dup mul add 0.0001 add sqrt
         /sumdNE* exch sumdNE* add def
        } if %j=11
        } if %5 Unbunt=Noir

12 j eq {%j=12
         i 00 eq {TBV
                  (Kennzeichnung nach) showde
                  (Specification according to) showen
                  (Especificati\363n de acuerdo) showes
                  (Selon la sp\351cification \340 la) showfr
                  (Specificatione secondo) showit
                  (Spesifikasjion i henhold) showjp

                  x0 xpos j get add y0 yd add moveto
                  TBV
                  (Startausgabe S1) showde
                  (Start output S1) showen
                  (a la salida S1) showes
                  (la sortie S1) showfr
                  (all'usica S1) showit
                  (til utgang S1) showjp
                  } if %i=0

         i 01 eq {TBV
                  (ISO/IEC 15775 Anhang G) showde
                  (ISO/IEC 15775 Annex G) showen
                  (ISO/IEC 15775 Anexo G) showes
                  (ISO/IEC 15775 Annexe G) showfr
                  (ISO/IEC 15775 Allegato G) showit
                  (ISO/IEC 15775 Anneks G) showjp
                 } if %i=1

         i 02 eq {RBV
                  (und DIN 33866-1 Anhang G) showde
                  (and DIN 33866-1 Annex G) showen
                  (y DIN 33866-1 Anexo G) showes
                  (et DIN 33866-1 Annexe G) showfr
                  (e DIN 33866-1 Allegato G) showit
                  (og DIN 33866-1 Anneks G) showjp
                 } if %i=2

           i 13 eq {TBV
                    (Mittlerer Helligkeitsabstand) showde
                    (Mean lightness difference) showen
                    (Diferencia de luminosidad) showes
                    (Difference moyenne de clart\351) showfr
                    (Significa differenza di) showit
                    (Gjennomsnittlig skryt) showjp
                   } if i%=13

           i 14 eq {TBV
                    ((16 Stufen)) showde
                    ((16 steps)) showen
                    (media (16 escalones)) showes
                    ((16 palier)) showfr
                    (luminosit\340 (16 passi)) showit
                    (forskjellen (16 trinn)) showjp
                   } if i%=14

            i 15 eq {SV (D) show TBIV (E*) show
                     (CIELAB) jshowTV ( = ) show
                     sumdBE* 16 div cvsshow1x
                    } if %i=15

           i 18 eq {TBV
                    (Mittlerer Helligkeitsabstand) showde
                    (Mean lightness difference) showen
                    (Diferencia de luminosidad) showes
                    (Difference moyenne de clart\351) showfr
                    (Significa differenza di) showit
                    (Gjennomsnittlig skryt) showjp
                   } if i%=18

           i 19 eq {TBV
                    ((5 Stufen)) showde
                    ((5 steps)) showen
                    (media (5 escalones)) showes
                    ((5 palier)) showfr
                    (luminosit\340 (5 passi)) showit
                    (forskjellen (5 trinn)) showjp
                   } if i%=19

           i 20 eq {SV (D) show TBIV (L*) show
                     (CIELAB) jshowTV ( = ) show
                     sumdNE* 05 div cvsshow1x
                   } if %i=20

           } if %j=12

} for %j=0,12

} for %i=0,20

/j 1 def
 x0 xpos j get add 000 add y0 yd 21 mul sub moveto
RBV
(Mittlerer Farbwiedergabe-Index:) showde
TBV
(Mean colour reproduction index:) showen
(Media del indice de reproducti\363n de color:) showes
(Moyenne de l'indice de reproduction de couleur:) showfr
(Colore medio indice di riproduzione:) showit
(Gjennomsmittlig fargegjengivelse indeks:) showjp
 
 TBIV ( R*) show (ab,m) jshowTV ( = ) show
 100 sumdBE* 21 div
 sumdNE* 21 div add 4.6 mul sub cvsshow1x

} if %pchartl=2; Y10-3N_AL09_JSO_1P3A.EPS; table colour rendering


showpage
grestore

%} for %pchartl=0,2

%} for %xchartl=0,7

%} for %xcolorl=0,3

%} for %colorml=0,1

%%Trailer