%!PS-Adobe-3.0 EPSF-3.0 AS161-3N.EPS 'AL0X'Y11-3N_AL19_JSO.EPS
%%BoundingBox: 70 82 430 360

%START PDFDE011.EPS
/pdfmark13 where {pop} {userdict /pdfmark13 /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/AS16/AS16.HTM)
  /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
  /Subject (goto: http://farbe.li.tu-berlin.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 pdfmark13
[ /View [ /FitB ]
/DOCVIEW pdfmark13
%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 3 def /lanind2 3 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

colorml 0 eq deintp 0 eq and {/TxS () def /Txx (dd) def /Fxx (d) def} if
colorml 0 eq deintp 1 eq and {/TxS () def /Txx (de) def /Fxx (e) def} if
colorml 1 eq deintp 0 eq and {/TxS () def /Txx (dd) def /Fxx (d) def} if
colorml 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; Y11-3N_AL19_JSO_2P2S.EPS; table B4/C4 to B6/C6

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

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

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

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

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

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

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

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

/SW {100 /Symbol FS} bind def
/SV {130 /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

/iout 5 def %iout=0_2:CMY,NZW, iout=3-5: OLV,NZW
/ioutT [(N) (Z) (W) (N) (Z) (W)] def
/ioutG [(Schwarz) (Grau) (Wei\337) (Schwarz) (Grau) (Wei\337)] def
/ioutE [(Black) (Grey) (White) (Black) (Grey) (White)] def
/ioutS [(Negro) (Gris) (Blanco) (Negro) (Gris) (Blanco)] def
/ioutF [(Noir) (Gris) (Blanc) (Noir) (Gris) (Blanc)] def
/ioutI [(Nero) (Grigio) (Bianco) (Nero) (Grigio) (Bianco)] def
/ioutN [(svart) (gra) (hvit) (svart) (gra) (hvit)] def

/cvishow {cvi 6 string cvs show} def

72 90 translate
0.02 MM dup scale
15 setlinewidth

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

4500 -120 moveto
(AS161-3N) 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  5100 def %3

/ix21 2600 def %W-R
/ix22 3300 def %W-G
/ix23 4000 def %W-B
/ix24 4700 def %W-N
/ix25 5700 def %W-Z

/iyd   145 def          %line difference

/ix20 0020 def %Text and colour W-O etc.
/ix21 1200 def %Question
/ix22 3800 def %of 16 steps
/ix23 5200 def %Yes/No

/ix2i 3 array def
ix2i 0 ix21 put
ix2i 1 ix22 put
ix2i 2 ix23 put

/iyt2 4080 def                 %Recognition frequency = 2x top + 8 lines
/iy02 iyt2 iyd 0.0 mul sub def %RF
/iy12 iyt2 iyd 1.0 mul sub def

/iy22 iyt2 iyd  2.1 mul sub def %W-O
/iy32 iyt2 iyd  3.1 mul sub def 

/iy42 iyt2 iyd  4.2 mul sub def %W-L
/iy52 iyt2 iyd  5.2 mul sub def

/iy62 iyt2 iyd  6.3 mul sub def %W-V
/iy72 iyt2 iyd  7.3 mul sub def

/iy82 iyt2 iyd  8.4 mul sub def %W-N
/iy92 iyt2 iyd  9.4 mul sub def

/iy2i 4 array def
iy2i 0 iy22 put
iy2i 1 iy42 put
iy2i 2 iy62 put
iy2i 3 iy82 put

ix20 iy02 moveto
TBV
(Pr\374fung der 16 visuell gleichabst\344ndigen ) showde
(Buntstufen der Farbreihen ) showde
(Test of 16 visually equally spaced steps of the colour rows ) showen
(Prueba de 16 visualmente pasos equidistantes ) showes
( de la series de color ) showes
(Test de 16 \351tapes espac\351es \351galement visuellement ) showfr
(de a s\351rie de coleurs) showfr
(Prova di 16 visivamente ugualmente distanziate le fasi ) showit
(della serie a colori) showit
(Test av 16 visuelt like stor avstand mellom merkeplasseringene ) showjp
RBV
(trinn av serien) showjp

iout 2 le {RBIV ioutT iout get show (-C) show (d) jshowTV (, ) show
           RBIV ioutT iout get show (-M) show (d) jshowTV (, ) show
           RBIV ioutT iout get show (-Y) show (d) jshowTV}
          {RBIV ioutT iout get show (-R) show (d) jshowTV (, ) show
           RBIV ioutT iout get show (-G) show (d) jshowTV (, ) show
           RBIV ioutT iout get show (-B) show (d) jshowTV} ifelse
TBV
( und ) showde
(, and ) showen
( y ) showes
( et ) showfr
( e ) showit
( og ) showjp

RBIV (W-N ) show

ix20 iy12 moveto 
TBV
(nach Bild ) showde
(according to picture ) showen
(seg\372n el gr\341fico ) showes
(selon graphic ) showfr
(secondo un grafico ) showit
(i henhold til grafisk ) showjp

iout 2 le {(B4) show}{(D4) show} ifelse
ioutT iout get show TxS show Txx jshowTV

ix20 iy22 moveto
iout 2 le {RBV ioutT iout get show RBIV (-C) show (d ) jshowTV}
          {RBV ioutT iout get show RBIV (-R) show (d ) jshowTV} ifelse

ix20 iy22 iyd sub moveto
iout 2 le {TV ioutG iout get showde RV ( - Cyanblau:) showde
           RV ioutE iout get showen ( - Cyanblue:) showen
           RV ioutS iout get showes ( - Cian azul:) showes
           RV ioutF iout get showfr ( - Blue cyan:) showfr
           RV ioutI iout get showit ( - Blu ciano:) showit
           RV ioutN iout get showjp ( - Cyan bla:) showjp}
          {TV ioutG iout get showde RV ( - Rot:) showde
           RV ioutE iout get showen ( - Red:) showen
           RV ioutS iout get showes ( - Rojo:) showes
           RV ioutF iout get showfr ( - Rouge:) showfr
           RV ioutI iout get showit ( - Rosso:) showit
           RV ioutN iout get showjp ( - Rod:) showjp
          } ifelse

ix20 iy42 moveto
iout 2 le {RBV ioutT iout get show RBIV (-M) show (d ) jshowTV}
          {RBV ioutT iout get show RBIV (-G) show (d ) jshowTV} ifelse

ix20 iy42 iyd sub moveto
iout 2 le {TV ioutG iout get showde RV ( - Magentarot:) showde
           RV ioutE iout get showen ( - Magentared:) showen
           RV ioutS iout get showes ( - Rojo magenta:) showes
           RV ioutF iout get showfr ( - Rouge Magenta:) showfr
           RV ioutI iout get showit ( - Rosso magenta:) showit
           RV ioutN iout get showjp ( - Magenta rod:) showjp}
          {TV ioutG iout get showde RV ( - ) showde TV (Gr\374n:) showde
           RV ioutE iout get showen ( - Green:) showen
           RV ioutS iout get showes ( - Verde:) showes
           RV ioutF iout get showfr ( - Vert:) showfr
           RV ioutI iout get showit ( - Verde:) showit
           RV ioutN iout get showjp ( - Gronn:) showjp
          } ifelse

ix20 iy62 moveto
iout 2 le {RBV ioutT iout get show RBIV (-Y) show (d) jshowTV}
          {RBV ioutT iout get show RBIV (-B) show (d) jshowTV} ifelse

ix20 iy62 iyd sub moveto
iout 2 le {RV ioutG iout get showde RV ( - Gelb:) showde
           RV ioutE iout get showen ( - Yellow:) showen
           RV ioutS iout get showes ( - Amarillo:) showes
           RV ioutF iout get showfr ( - Jaune:) showfr
           RV ioutI iout get showit ( - Giallo:) showit
           RV ioutN iout get showjp ( - Gul:) showjp}

          {RV ioutG iout get showde RV ( - Blau:) showde
           RV ioutE iout get showen ( - Blue:) showen
           RV ioutS iout get showes ( - Azul:) showes
           RV ioutF iout get showfr ( - Bleu:) showfr
           RV ioutI iout get showit ( - Blu:) showit
           RV ioutN iout get showjp ( - Bla:) showjp
          } ifelse

ix20 iy82 moveto
RBIV
(W-N ) show
ix20 iy82 iyd sub moveto
TV (Wei\337) showde RV ( - Schwarz:) showde
(White - Black:) showen
(Bianco - Negro:) showes
(Blanc - Noir:) showfr
(Bianco - Nero:) showit
(Hvit - Svart:) showjp

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

i 0 eq {%i=0
ix2i i get iy2i j get moveto
RV
(Sind alle Stufen unterscheidbar?) showde
(Are all the 16 steps distinguishable?) showen
(Son todos los 16 pasos discriminable?) showes
(Sont tout les 16 palier discriminable?) showfr
(Sont tutti i 16 pasos discriminabile?) showit
(Alle de 16 trinnene discriminable?) showjp

5500 iy2i j get moveto
TBV
(Ja/Nein) showde
(Yes/No) showen
(Si/No) showes
(Qui/Non) showfr
(Si/No) showit
(Ja/Nei) showjp

ix2i i get iy2i j get iyd sub 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

} if %i=0

i 1 eq {%i=1
ix2i i get iy2i j get iyd sub moveto
TV
(von 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
} if %i=1

i 2 eq {%i=2
5350 iy2i j get iyd sub moveto
TBV
(......  Stufen) showde
(......  Steps) showen
(......  pasos) showes
(......  paliers) showfr
(......  passi) showit
(......  trinn) showjp

} if %i=2

} for %i=0,3
} for %j=0,3

%********************************************
/ix30 0020 def %Question
/ix31 0200 def %LR size
/ix32 1200 def %letters
/ix33 2000 def %Ring N
/ix34 3000 def %Ring O
/ix35 4000 def %Ring L
/ix36 5000 def %Ring V

/ix3i 7 array def
ix3i 0 ix30 put
ix3i 1 ix31 put
ix3i 2 ix32 put
ix3i 3 ix33 put
ix3i 4 ix34 put
ix3i 5 ix35 put
ix3i 6 ix36 put

/iyt3 2550 def                 %Tests of characters = 2x top + 5 lines

/iy13 iyt3 iyd 0.0 mul sub def %TC
/iy23 iyt3 iyd 1.0 mul sub def
/iy33 iyt3 iyd 2.1 mul sub def %Relative size
/iy43 iyt3 iyd 3.1 mul sub def %10
/iy53 iyt3 iyd 4.1 mul sub def %08
/iy63 iyt3 iyd 5.1 mul sub def %06
/iy73 iyt3 iyd 6.1 mul sub def %04

/iy3i 7 array def
iy3i 0 iy13 put
iy3i 1 iy23 put
iy3i 2 iy33 put
iy3i 3 iy43 put
iy3i 4 iy53 put
iy3i 5 iy63 put
iy3i 6 iy73 put

ix30 iy13 moveto
TBV
(Pr\374fung von Schrift und Landoltringen in vier Gr\366\337en ) showde
RBV
(Test of characters and Landolt-rings in four sizes ) showen
(Prueba de caracteres y anillos de Landolt en cuatro tamanos ) showes
TBV
(Test de caract\350res et les anneaux de Landolt en quatre tailles ) showfr
(Il test de caratteri e gli anelu di Landolt in quatro dimensione ) showit
(Test av tengn og ringer av Landolt i fire storrelser ) showjp

TBV
(nach Bild ) showde
(according to picture ) showen
(seg\372n el gr\341fico ) showes
(selon graphic ) showfr
(secondo un grafico ) showit
(i henhold til grafisk ) showjp

iout 2 le {(B5) show} {(D5) show} ifelse
ioutT iout get show Txx ishowTV

ix30 iy23 moveto
TV
(Ist die Erkennung > 50% f\374r Schriftzeichen ) showde
(Is the recognition > 50% for letters ) showen
(Es el reconocimiento > 50% para cartas ) showes
(C'est la reconnaisance > 50% pour les lettres ) showfr
(\310 le riconocimento > 50% per lettere ) showit
(Er den anerkjennelsen > 50% for bokstaver ) showjp

RV
((mindestens 17 von 32)? ) showde
((17 of 32 at least)? ) showen
((17 de 32 al menos)? ) showes
((17 de 32 au moins)? ) showfr
((17 di 32 almento)? ) showit
((17 av 32 minst)? ) showjp

RV
(, and for Landolt-rings (minimum 5 of 8)?) showen
TV
( und f\374r Landoltringe (min. 5 von 8)?) showde
( y para anillos de Landolt (5 de 8 al menos)?) showes
( et pour anneaux de Landolt (5 de 8 au moins)?) showfr
( e per gli anelli di Landolt (5 di 8 almento)?) showit
( or for ringer av Landolt (5 av 8 minst)?) showjp

ix31 iy33 moveto
TBV
(Relative Gr\366\337e) showde
(Relative size) showen
(Tarmano relativo) showes
(Taille relative) showfr
(Dimensione relativa) showit
(Relativ storrelse) showjp

ix32 iy33 moveto
TBV
(Schriftzeichen) showde
(Letters) showen
(Cartas) showes
(Des lettres) showfr
(Lettere) showit
(Brev) showjp

ix33 iy33 moveto
TBV
(Ringe ) showde
(Rings ) showen
(Annilos ) showes
(Anneaux ) showfr
(Anelli ) showit
(Ringer ) showjp
TBIV
(N) show

ix34 iy33 moveto
TBV
(Ringe ) showde
(Rings ) showen
(Annilos ) showes
(Anneaux ) showfr
(Anelli ) showit
(Ringer ) showjp
 
iout 2 le {TBIV (C) show (d) jshowTV}
          {TBIV (R) show (d) jshowTV} ifelse

ix35 iy33 moveto
TBV
(Ringe ) showde
(Rings ) showen
(Annilos ) showes
(Anneaux ) showfr
(Anelli ) showit
(Ringer ) showjp
 
iout 2 le {TBIV (M) show (d) jshowTV}
          {TBIV (G) show (d) jshowTV} ifelse

ix36 iy33 moveto
TBV
(Ringe ) showde
(Rings ) showen
(Annilos ) showes
(Anneaux ) showfr
(Anelli ) showit
(Ringer ) showjp
 
iout 2 le {TBIV (Y) show (d) jshowTV}
          {TBIV (B) show (d) jshowTV} ifelse

/isize [( ) ( ) ( ) (10) (  8) (  6) (  4)] def

3 1 6 {/j exch def %j=3,6
1 1 6 {/i exch def %i=1,6
ix3i i get iy3i j get moveto
TV
i 1 eq {isize j get show} if
i 2 ge {%i>=2
(Ja/Nein) showde
(Yes/No) showen
(Si/No) showes
(Qui/Non) showfr
(Si/No) showit
(Ja/Nei) showjp
       } if %i>=2
} for %i=1,6
} for %j=3,6

%***************************************************
/ix40 0020 def %Question
/ix41 0100 def %CR W-O
/ix42 0700 def %Y/N
/ix43 1600 def %CR W-L
/ix44 2200 def %Y/N
/ix45 3100 def %CR W-V
/ix46 3700 def %Y/N
/ix47 4600 def %CR W-N
/ix48 5200 def %Y/N

/ix4i 9 array def
ix4i 0 ix40 put
ix4i 1 ix41 put
ix4i 2 ix42 put
ix4i 3 ix43 put
ix4i 4 ix44 put
ix4i 5 ix45 put
ix4i 6 ix46 put
ix4i 7 ix47 put
ix4i 8 ix48 put

/iyt4 1500 def                 %Recognition frequency = 2x top + 8 lines
/iy04 iyt4 iyd 0.0 mul sub def %RF
/iy140 iyt4 iyd 1.0 mul sub def
/iy141 iyt4 iyd 2.0 mul sub def

/iy24 iyt4 iyd  3.1 mul sub def %CR
/iy34 iyt4 iyd  4.1 mul sub def %BR
/iy44 iyt4 iyd  5.1 mul sub def %0-1
/iy54 iyt4 iyd  6.1 mul sub def %7-8
/iy64 iyt4 iyd  7.1 mul sub def %E-F
/iy74 iyt4 iyd  8.1 mul sub def %2-0
/iy84 iyt4 iyd  9.1 mul sub def %8-6
/iy94 iyt4 iyd 10.1 mul sub def %F-D

/iy5i 6 array def
iy5i 0 iy44 put
iy5i 1 iy54 put
iy5i 2 iy64 put
iy5i 3 iy74 put
iy5i 4 iy84 put
iy5i 5 iy94 put

ix40 iy04 moveto
TBV
(Pr\374fund der ) showde
RBV
(Erkennbarkeits-Frequenz der Landolt-Ringe ) showde
(Test of the recognition frequency of the Landolt rings ) showen
(Prueba de reconocimiento de la frecuencia de los anillos de Landolt ) showes
TBV
(Test de la recognnaissance de la fr\351quence de l'anneaux de Landolt ) showfr
(Il test del riconoscimento delle frequenza degli anelli di Landolt ) showit
(Test av anerkjennelse av frkvensen til Landolt ringer ) showjp

iout 2 le {RBIV ioutT iout get show (-C) show (d) jshowTV (, ) show
           RBIV ioutT iout get show (-M) show (d) jshowTV (, ) show
           RBIV ioutT iout get show (-Y) show (d) jshowTV}
          {RBIV ioutT iout get show (-R) show (d) jshowTV (, ) show
           RBIV ioutT iout get show (-G) show (d) jshowTV (, ) show
           RBIV ioutT iout get show (-B) show (d) jshowTV} ifelse

TBV
( und ) showde
(, and ) showen
( y ) showes
( et ) showfr
( e ) showit
( og ) showjp

RBIV (W-N ) show

ix40 iy140 moveto
TBV
(nach Bild ) showde
(according to picture ) showen
(seg\372n el gr\341fico ) showes
(selon graphic ) showfr
(secondo un grafico ) showit
(i henhold til grafisk ) showjp

iout 2 le {(B6) show} {(D6) show} ifelse
ioutT iout get show Txx jshowTV

TBV
( und ) showde
(, and ) showen
( y ) showes
( et ) showfr
( e ) showit
( og ) showjp

iout 2 le {(B7) show} {(D7) show} ifelse
ioutT iout get show Txx jshowTV

ix40 iy141 moveto
RV
(Ist die Erkennbarkeits-Frequenz der Landolt-Ringe ) showde
(Is the recognition frequency of the Landolt rings ) showen
(Es el reconocimiento de los anillos de Landolt ) showes
(C'est la recognnaissance de l'anneaux de Landolt ) showfr
TV
(\310 il riconoscimento degli anelli di Landolt ) showit
(Er det en anerkjennelse av Landolt ringer ) showjp

(> 50% (mindestens 5 von 8)?) showde
(> 50% (5 of 8 at least)?) showen
(> 50% (5 de 8 al menos)?) showes
(> 50% (5 de 8 au moins)?) showfr
(> 50% (5 di 8 almento)?) showit
(> 50% (5 av 8 minst)?) showjp

ix41 iy24 moveto
TBV
(Farbreihe ) showde
(Colour row ) showen
(Color serie ) showes
(S\351rie couleur ) showfr
(Serie a colori ) showit
RBV
(farge-serien ) showjp

iout 2 le {RBIV ioutT iout get show (-C) show (d) jshowTV}
          {RBIV ioutT iout get show (-R) show (d) jshowTV} ifelse

ix43 iy24 moveto
TBV
(Farbreihe ) showde
(Colour row ) showen
(Color serie ) showes
(S\351rie couleur ) showfr
(Serie a colori ) showit
RBV
(farge-serien ) showjp

iout 2 le {RBIV ioutT iout get show (-M) show (d) jshowTV}
          {RBIV ioutT iout get show (-G) show (d) jshowTV} ifelse

ix45 iy24 moveto
TBV
(Farbreihe ) showde
(Colour row ) showen
(Color serie ) showes
(S\351rie couleur ) showfr
(Serie a colori ) showit
RBV
(farge-serien ) showjp

iout 2 le {RBIV ioutT iout get show (-Y) show (d) jshowTV}
          {RBIV ioutT iout get show (-B) show (d) jshowTV} ifelse

ix47 iy24 moveto
TBV
(Farbreihe ) showde
(Colour row ) showen
(Color serie ) showes
(S\351rie couleur ) showfr
(Serie a colori ) showit
RBV
(farge-serien ) showjp

RBIV (W-N) show

1 2 7 {/i exch def %i=1,2,7
ix4i i get iy34 moveto
RBV
(Umfeld - Ring) showde
(background - ring) showen
(antesedentes - ring) showes
(background - ring) showfr
(sfondo - l'anello) showit
(bakgrunn - ring) showjp
} for %it=1,2,7

RV
0 1 5 {/j exch def %j=0,5
1 2 7 {/i exch def %i=1,2,7
ix4i i get iy5i j get moveto
j 0 eq {(0 - 1) show} if
j 1 eq {(7 - 8) show} if
j 2 eq {(E - F) show} if
j 3 eq {(2 - 0) show} if
j 4 eq {(8 - 6) show} if
j 5 eq {(F - D) show} if
} for %i=1,2,7
} for %j=0,5

0 1 5 {/j exch def %j=0,5
2 2 8 {/i exch def %i=2,2,8
ix4i i get iy5i j get moveto
TV
(Ja/Nein) showde
(Yes/No) showen
(Si/No) showes
(Qui/Non) showfr
(Si/No) showit
(Ja/Nei) showjp
} for %i=2,2,8
} for %j=0,5

} if %pchartl=1; Y11-3N_AL19_JSO_2P2S.EPS; table B4/C4 to B6/C6

pchartl 2 eq {%pchartl=2; 'AL0X'Y11-3N_AL09_JSO_2P3A.EPS; graphic in-out

%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

colorml 0 eq {/ilx 0 def
             }
             {%colorml=1
              xchartl xchartd idiv 2 le {/ilx xchartl def} if
              xchartl xchartd idiv 3 eq {/ilx       4 def} if
              xchartl xchartd idiv 4 eq {/ilx       8 def} if
              xchartl xchartd idiv 5 eq {/ilx      16 def} if
              xchartl xchartd idiv 6 eq {/ilx      32 def} if
              xchartl xchartd idiv 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
/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

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

0 setgray
RV
4100 -110 moveto
(AS161-3) show
Txx show (: ) show
deintp  cvishow
colorml cvishow
xcolorl cvishow
xchartl cvishow
pchartl cvishow

50 -130 moveto
(Teil 2, ) showde
(part 2, ) showen
(parte 2, ) showes
(la part 2, ) showfr
(la parte 2, ) showit
(artikkelen 2, ) showjp

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

1 setgray
 0 0 moveto 5400 0 rlineto 0 4000 rlineto   %relatives Bildfeld 54 x 40mm
           -5400 0 rlineto closepath fill
0 setgray
 0 0 moveto 5400 0 rlineto 0 4000 rlineto   %relatives Bildfeld 54 x 40mm
           -5400 0 rlineto closepath stroke
  
 0 setgray
  
 0800  0400 translate %Nullpunkt Zeichnung
  
 0 0 moveto  4000 0 rlineto  stroke
 0 0 moveto  0 3200 rlineto  stroke
  
 %! 100 S-Einheiten = 2000 Skalen-Einheiten
TV
    0 -50 moveto  0 100 rlineto  stroke
  800 -50 moveto  0 100 rlineto  stroke
 1600 -50 moveto  0 100 rlineto  stroke
 2400 -50 moveto  0 100 rlineto  stroke
 3200 -50 moveto  0 100 rlineto  stroke
 4000 -50 moveto  0 100 rlineto  stroke
 -300 -300 moveto (N  0,0) show
  700 -300 moveto (0,25) show
 1500 -300 moveto (0,50) show
 2300 -300 moveto (0,75) show
 3100 -300 moveto (1,00  W) show
  
 %! 100 S-Einheiten = 2000 Skalen-Einheiten
  -50    0 moveto  100 0 rlineto  stroke
  -50  800 moveto  100 0 rlineto  stroke
  -50 1600 moveto  100 0 rlineto  stroke
  -50 2400 moveto  100 0 rlineto  stroke
  -50 3200 moveto  100 0 rlineto  stroke
 -530  -60 moveto (N 0,00) show
 -350  740 moveto (0,25) show
 -350 1540 moveto (0,50) show
 -350 2340 moveto (0,75) show
 -530 3140 moveto (W 1,00) show
  
 -700 2900 moveto TIV (w*') show (output) ishowTV
 -700 2700 moveto TIV (w'*) show (output) ishowTV
 3000  200 moveto TIV (w*) show (input) ishowTV

0 setgray
 0 0 moveto 3200 3200 lineto stroke
  [100] 0 setdash
 0 3200 0.133 mul     moveto
 3200  3200 3200 0.0333 mul add lineto stroke
 0 3200 0.133 mul neg moveto
 3200  3200 3200 0.0333 mul sub lineto stroke 

colorml 1 eq {/xchartNl xchartl 8 idiv def
              /xchartPl xchartl xchartl 8 idiv 8 mul sub def
              /gammaNl 1 2.4 xchartNl 0.18 mul sub 2.4 div div def
              /gammaPl   2.4 xchartPl 0.18 mul sub 2.4 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

0 0 1 setrgbcolor
40 setlinewidth
[100] 0 setdash 
 0 1 15 {/i exch def
          /xw l*i i get def 
          /yw l*i i get colorml 1 eq {gammal exp} if def 
          xw 3200 mul yw 3200 mul
          i 0 eq { moveto} {lineto} ifelse
         } for stroke %i

0 0 1 setrgbcolor
40 setlinewidth
[100] 0 setdash 
 0 1 15 {/i exch def
          /xw l*i i get def 
          /yw l*i i get colorml 1 eq {1 gammal div exp} if def 
          xw 3200 mul yw 3200 mul
          i 0 eq { moveto} {lineto} ifelse
         } for stroke %i

1 0 0 setrgbcolor
25 setlinewidth
[50] 0 setdash
 0 1 15 {/i exch def
          /xw i 15 div def
          /yw xw colorml 1 eq {gammal exp} if def
          xw 3200 mul yw 3200 mul
          i 0 eq { moveto} {lineto} ifelse
         } for stroke %i

0 1 15 {/i exch def
          /xw i 15 div def
          /yw xw colorml 1 eq {1 gammal div exp} if def
          xw 3200 mul yw 3200 mul
          i 0 eq { moveto} {lineto} ifelse
         } for stroke %i
         
0 setgray

-00 3450 moveto
TV
(F\374r linearisierte Ausgabe der 16 Graustufen von ) showde
(For linearized output of the 16 grey steps of ) showen
(Para salida linealizada de los 16 pasos de gris de ) showes
(Pour la linearized output de la 16 palier de gris in ) showfr
(Per l'uscita linearizzada dei 16 passaggi di gridio nella ) showit
(For linearized utgang av 16 gra tinnene i ) showjp

(Bild) showde
(Picture) showen
(fig.) showes
(Fig.) showfr
(Fig.) showit
(Figur) showjp

( A7) show
TxS show Txx ishowTV

0 0 1 setrgbcolor
100 3200 moveto
RBIV
('* (Strich-Stern)-Koordinaten um die) showde
('* (dash-star) coordinates to reach) showen
('* (dash-star) coordenadas para illegar a la) showes
('* (dash-star) coordonne pour atteindre la) showfr
('* (dash-stelle) coordinates per raggiungere) showit
('* (dash-sterners) koordinater for linearized) showjp

100 3000 moveto
RBIV
(linearisierte Ausgabe mit realer Display-) showde
TBIV
(the linearized output with the real) showen
(salida linealizada con la pandala real) showes
(sortie linearized output avec reflet) showfr
(l'uscita linearizzato con il display) showit
(linearized utgang med ekte vise refleksjon) showjp

100 2800 moveto
TBIV
(Reflexion im B\374roraum zu erreichen;) showde
(display reflection in office room;) showen
(reflexi\363n en la sala de la oficina;) showes
(r\351el dans la chambre bureau;) showfr
(reale riflesso in ufficio;) showit
RBIV
(refleksjon i office-rommet;) showjp

100 2600 moveto
TBIV
(hellere (positive P) Ausgabe) showde
(lighter (positiv P) output) showen
(salida (positiv P) encendedor) showes
(plus claire sortie (positiv P)) showfr
(uscita (positiv P) accendisigari) showit
(lettere (positiv P) utgang) showjp

1 0 0 setrgbcolor
100 2350 moveto
TBIV (w'*) show (output) jshowTV
TBV ( = [) show
TBIV (w*) show (input) jshowTV
TBV (] ) show
0 60 rmoveto
colorml 0 eq {(1,00) show} {xchartd 1 eq {gammaPl}{1 gammaNl div} ifelse
              cvsshow3x
             } ifelse
0 -60 rmoveto

0 0 1 setrgbcolor
2200 1400 moveto
RBIV
(*' (Stern-Strich)-Koordinaten) showde
(*' (star-dash) coordinates) showen
(*' (star-dash) coordenadas) showes
(*' (star-dash)) showfr TBIV ( coordonn\351es) showfr
RBIV
(*' (stelle-dash) coordinate) showit
(*' (sterners-dash) koordinatene) showjp

2200 1200 moveto
TBIV
(von realer Ausgabe mit realer) showde
(of real output with real) showen
(de la producci\363n real con pantalla) showes
(de la production r\351el reflet) showfr
(della produzione reale con display) showit
(of real output with real til real\255) showjp

2200 1000 moveto
TBIV
(Displayreflexion im B\374roraum;) showde
(display reflection in office room;) showen
(real reflexi\363n en la sala de la oficina;) showes
(dans la chambe de bureau;) showfr
(reale riflessione in ufficio stanzza;) showit
RBIV
(utgang med virkelig vise refleksjon) showjp

2200 0800 moveto
TBIV
(dunklere (negative N) Ausgabe) showde
(darker (negativ N) output) showen
(m\341s oscuro (negativo N) salida) showes
(plus fonc\351s sortie (n\351gative N)) showfr
(pi\371 scuro (negativo N) output) showit
(morkere (negativ N) utgang) showjp

1 0 0 setrgbcolor
2200 0550 moveto
TBIV (w*') show (output) jshowTV
TBV ( = [) show
TBIV (w*) show (input) jshowTV
TBV (] ) show
0 60 rmoveto
colorml 0 eq {(1,00) show} {xchartd 1 eq {1 gammaPl div}{gammaNl} ifelse
              cvsshow3x
             } ifelse
0 -60 rmoveto

 -0800 -0400 translate %Nullpunkt Zeichnung

} if %pchartl=2; 'AL0X'Y11-3N_AL09_JSO_2P3A.EPS; graphic in-out


showpage
grestore

%} for %pchartl=0,2

%} for %xchartl=0,7

%} for %xcolorl=0,3

%} for %colorml=0,1

%%Trailer