%!PS-Adobe-3.0 EPSF-3.0 AE161-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/AE16/AE16.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 1 def /lanind2 1 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 (AE161-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 (AE161-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