%!PS-Adobe-3.0 EPSF-3.0 www.ps.bam.de/LE22/10L/L22E00XX.PS 20030101 %%BoundingBox: 00 00 414 292 /pdfmark where {pop} {userdict /pdfmark /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: www.ps.bam.de/LE22/LE22.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: www.ps.bam.de or http://o2.ps.bam.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@bam.de) /CreationDate (D:2003010112000) /ModDate (D:2003010112000) /DOCINFO pdfmark [ /View [ /Fit ] /DOCVIEW pdfmark %BEG LE22/10L/L22N00ZED NO Output Linearization LAB* -> cmyolvnw* 20030101 %BEG OUTLIN10.PS /MTLoutaS0g 21 array def /MTLoutaS0g [18.01 23.17 28.33 33.49 38.65 43.81 48.97 54.13 59.29 64.45 69.61 74.77 79.93 85.09 90.25 95.41 18.01 37.36 56.71 76.06 95.41] def %FILE PREPARED FOR MIXED MODE, e. g. input ORS and output TLS /IMES 0 def %0=LAB* used, no reflection factor necessary %/IMES 1 def /Yre 2.52 def %1=XYZ measurement and standard device reflection /i*ptrsc 0 def %LAB* setcolor to cmy0* / 000n* setcmykcolor %/i*ptrsc 1 def %LAB* setcolor to olv* setrgbcolor / w* setgray %/i*ptrsc 2 def %LAB* setcolor to cmy0* / nnn0* setcmykcolor %/i*ptrsc 3 def %LAB* setcolor to olv* / www* setrgbcolor %/i*ptrsc 4 def %LAB* setcolor to lab* setcolor %/i*ptrsc 5 def %LAB* setcolor to LAB* setcolor %/i*ptrsc 6 def %LAB* setcolor to 000n* setcmykcolor %/i*ptrsc 7 def %LAB* setcolor to w* setgray /ISYSLAB 0 def %default input for Offset Reflective System (ORS18) /ISYSTEM 0 def %default output for Offset Reflective System (ORS18) %/ISYSLAB 1 def %input for Television Luminous System (TLS00) %/ISYSTEM 1 def %output for Television Luminous System (TLS00) %/ISYSLAB 2 def %input for Device Reflective measurement system (DRSXX) %/ISYSTEM 2 def %output for Device Reflective measurement system (DRSXX) %/ISYSLAB 3 def %input for Television Luminous Reflection System (TLS18) %/ISYSTEM 3 def %output for Television Luminous Reflection System (TLS18) %/ISYSLAB 4 def %input for Device Luminous measurement system (DLSXX) %/ISYSTEM 4 def %output for Device Luminous measurement system (DLSXX) /iLAB 0 def % for preparing input-output system data only once %END LE22/10L/EARLY BINDING %END LE22/10L/L22N00ZED NO Output Linearisation (OL) LAB* -> cmyolvnw* 20030101 /BeginEPSF { % def % Prepare for EPS file /b4_Inc_state save def % Save state for cleanup /dict_count countdictstack def /op_count count 1 sub def % Count objects on op stack userdict begin % Make userdict current dict /showpage {} def 0 setgray 0 setlinecap 1 setlinewidth 0 setlinejoin 10 setmiterlimit [] 0 setdash newpath /languagelevel where % If level not equal to 1 then {pop languagelevel where % If level not equal to 1 then 1 ne {false setstrokeadjust false setoverprint } if } if } bind def /EndEPSF { % def count op_count sub {pop} repeat countdictstack dict_count sub {end} repeat % Clean up dict stack b4_Inc_state restore } bind def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def %ANFA CMYKDEF %CMYKDEA0 (A0=Standard-Drucker-CMYKDEF) 15.3.97 /tzac [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzam [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzay [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzan [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tza0 [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000] def /tza1 [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000] def %ENDE CMYKD /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfiLAB* %x y width heigth LAB* { setcolor rec fill} bind def /colrecstLAB* %x y width heigth LAB* { setcolor rec stroke} bind def /colrecficmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec fill} bind def /colrecstcmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec stroke} bind def /colrecfiw* %x y width heigth w* { setgray rec fill} bind def /colrecstw* %x y width heigth w* { setgray rec stroke} bind def /colrecfiolv* %x y width heigth olv* { setrgbcolor rec fill} bind def /colrecstolv* %x y width heigth olv* { setrgbcolor rec stroke} bind def /tzocmy0* {0.0 1.0 1.0 0.0} bind def %Reproduction colours /tzlcmy0* {1.0 0.0 1.0 0.0} bind def %cmyn* setcmykcolor /tzvcmy0* {1.0 1.0 0.0 0.0} bind def /tzccmy0* {1.0 0.0 0.0 0.0} bind def /tzmcmy0* {0.0 1.0 0.0 0.0} bind def /tzycmy0* {0.0 0.0 1.0 0.0} bind def /tzoolv* {1.0 0.0 0.0} bind def %Reproduction colours /tzlolv* {0.0 1.0 0.0} bind def %olv* setrgbcolor /tzvolv* {0.0 0.0 1.0} bind def /tzcolv* {0.0 1.0 1.0} bind def /tzmolv* {1.0 0.0 1.0} bind def /tzyolv* {1.0 1.0 0.0} bind def /tzoLAB* [53.34 72.46 50.66] def %Reproduction colours /tzlLAB* [84.93 -79.83 74.80] def %LAB* setcolor /tzvLAB* [32.20 24.88 -37.89] def /tzcLAB* [88.10 -44.88 -13.36] def /tzmLAB* [59.66 90.32 -19.65] def /tzyLAB* [93.76 -20.24 85.93] def /tzncmy0* {1.00 1.00 1.00 0.00} bind def %grey series /tzdcmy0* {0.75 0.75 0.75 0.00} bind def %cmy0* setcmykcolor /tzzcmy0* {0.50 0.50 0.50 0.00} bind def /tzhcmy0* {0.25 0.25 0.25 0.00} bind def /tzwcmy0* {0.00 0.00 0.00 0.00} bind def /tzn000n* {0.00 0.00 0.00 1.00} bind def %grey series 000n* /tzd000n* {0.00 0.00 0.00 0.75} bind def %000n* setcmykcolor /tzz000n* {0.00 0.00 0.00 0.50} bind def /tzh000n* {0.00 0.00 0.00 0.25} bind def /tzw000n* {0.00 0.00 0.00 0.00} bind def /tznw* {0.00} bind def %grey series /tzdw* {0.25} bind def %w* setgray /tzzw* {0.50} bind def /tzhw* {0.75} bind def /tzww* {1.00} bind def /tznolv* {0.00 0.00 0.00} bind def %grey series /tzdolv* {0.25 0.25 0.25} bind def %olv* setrgbcolor /tzzolv* {0.50 0.50 0.50} bind def /tzholv* {0.75 0.75 0.75} bind def /tzwolv* {1.00 1.00 1.00} bind def /tznLAB* [18.01 0.00 0.00] def %grey series /tzdLAB* [37.36 0.00 0.00] def %LAB* setcolor /tzzLAB* [56.71 0.00 0.00] def /tzhLAB* [76.06 0.00 0.00] def /tzwLAB* [95.41 0.00 0.00] def /tfn {0 setgray} bind def /tfw {1 setgray} bind def /A4quer {598 0 translate 90 rotate} def %0 %1 /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def /tzank [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def %BEG 61 lines comment or new PS operators possible %02 %03 %04 %05 %06 %07 %08 %09 %11 %12 %13 %14 %15 %16 %17 %18 %19 %21 %22 %23 %24 %25 %26 %27 %28 %29 %31 %32 %33 %34 %35 %36 %37 %38 %39 %41 %42 %43 %44 %45 %46 %47 %48 %49 %51 %52 %53 %54 %55 %56 %57 %58 %59 %61 %62 %63 %64 %65 %66 %67 %68 %69 %END 71 lines comment or new PS operators possible %%EndProlog %%BeginPageSetup /#copies 1 def %A4quer 0.5 0.5 scale /pgsave save def %%EndPageSetup 0.5 MM 0.5 MM translate %Verschiebung nach oben und links fuer Belichter gsave /SS$ [(G) (E) (S) (F) (I) (J) (M)] def /SC$ [(N) (F) (S) (D) (T) (E) (C)] def /SX$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def /SY$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def % 0 1 2 3 4 5 % 6 7 8 /EX$ [(1.PS/.TXT) (B.PS/.BMP) (G.PS/.GIF) (H.PS/.HTM) (I.PS/.HTM) (J.PS/.JPE) (P.PS/.PDF) (T.PS/.TIF)] def /EY$ [(1.DAT) (B.DAT) (G.DAT) (H.DAT) (I.DAT) (J.DAT) (P.DAT) (T.DAT)] def /lanindg1 1 def /lanindg2 1 def /colormg1 0 def /colormg2 0 def /xcolorg1 0 def /xcolorg2 0 def /xchartg1 0 def /xchartg2 0 def /lanindg lanindg1 def %no loops /colormg colormg1 def xcolorg1 1 xcolorg2 {/xcolorg exch def %/xcolorg xcolorg1 def /xchartg xchartg1 def /GSS$ SS$ lanindg get def /GSC$ SC$ colormg get def /GSX$ SX$ xcolorg get def /GSY$ SY$ xchartg get def /GEX$ EX$ 0 get def /GEY$ EY$ 0 get def gsave BeginEPSF 28 MM 3 MM sub 197 MM translate 10 /Times-ISOL1 FS 1 1 scale -77 -91 translate %%BeginDocument: Bild 10 %line 329 %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 3 MM sub 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 11 %!PS-Adobe-3.0 EPSF-3.0 LE22/L10-1N.EPS 20040101 %%BoundingBox: 70 80 405 206 %%Creator: K. Richter, BAM und TU Berlin, 2000.06.16 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def %ANFA CMYKDEF %CMYKDEA0 (A0=Standard-Drucker-CMYKDEF) 15.3.97 /tzac [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzam [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzay [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzan [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tza0 [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000] def /tza1 [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000] def %ENDE CMYKD /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y n {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y n {setcmykcolor rec stroke} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %ANFA OUTLINO0 951204 /pixf 1.0 def /ueg {1.6 pixf mul} bind def /uek {0.8 pixf mul} bind def /ues {0.7 pixf mul} bind def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /outxshowf {show} bind def /outxshow {show} bind def /SK {250 16.67 div 1 sub pixf mul /Symbol FS} bind def /SM {300 16.67 div 1 sub pixf mul /Symbol FS} bind def /SG {350 16.67 div 1 sub pixf mul /Symbol FS} bind def /outSK {250 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSM {300 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSG {350 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outshowf {setcmykcolor show} bind def /outrecfi { %x y width heigth c m y k setcmykcolor rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmykcolor lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmykcolor stroke} bind def %%EndProlog gsave %LANINDL0.EPS START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %no loops /xcolorl xcolor1 def /xchart xchart1 def %LANINDL0 END 8 /Times-Roman FS %72 82 moveto %!2 (LE22/L10-1N.eps) show xcolorl 1 eq {%xcolorl=1 8 /Times-ISOL1 FS 72 82 moveto (Bild D4w: 16 gleichabst\344ndige Stufen ) showde (Picture D4w: 16 equidistant steps ) showen 8 /Times-BoldItalic FS (W-C, W-M, W-Y ) show 8 /Times-Roman FS (und ) showde (and ) showen 8 /Times-BoldItalic FS (W-N) show 8 /Times-ISOL1 FS (; PS operator) showde (; PS operator) showen (; PS operator) showes (; PS operator) showfr (; PS operator) showit (; PS operator) showjp (; PS operator) showm 8 /TimesI-ISOL1 FS ( LAB* setcolor) show 8 /Times-ISOL1 FS 72 90 translate /pixf 16.67 def 0.1667 pixf div MM dup scale /nshow {180 /TimesI-ISOL1 FS show} def /ishow {140 /Times-ISOL1 FS -100 -75 rmoveto show 50 75 rmoveto} def 1 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath fill 0 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath stroke /yab -850 def 000 3950 translate /ntex* [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def /tef [(C) (M) (Y) (N)] def 0 setgray 0 1 16 {/j exch def /ix0 j 700 mul def /iy0 -850 def %j=0,16 ix0 25 add iy0 3100 sub moveto 000 4000 rlineto -50 000 rlineto 000 -4000 rlineto closepath fill } for %j=0,16 /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse 0 1 3 {/ncol exch def %ncol=0,3 0 yab translate /l 0 def /iLAB 0 def 0 1 15 {/j exch def /ix0 15 j sub 700 mul def /iy0 0 def j 15 le { %16 Testfarben; Nr. 16 fuer weisse Linie [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace /ISYSLAB where {pop /ISYSLABL ISYSLAB def} {/ISYSLABL 0 def} ifelse /ISYSTEM where {pop /ISYSTEML ISYSTEM def} {/ISYSTEML 0 def} ifelse ISYSLABL 0 eq {0 ncol eq {/LABs0X [40.62 -30.34 -45.01] def} if %C 1 ncol eq {/LABs0X [30.12 75.28 -8.36] def} if %M 2 ncol eq {/LABs0X [72.37 -10.26 91.75] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 1 eq {0 ncol eq {/LABs0X [86.87 -46.16 -13.55] def} if %C 1 ncol eq {/LABs0X [57.29 94.35 -20.69] def} if %M 2 ncol eq {/LABs0X [92.65 -20.69 90.75] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [95.40 0.00 0.00] def %LABW100 /L*NN 18.00 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.40 def /A*WW 0.00 def /B*WW 0.00 def } if ISYSLABL 2 eq {0 ncol eq {/LABs0X [40.62 -30.34 -45.01] def} if %C 1 ncol eq {/LABs0X [30.12 75.28 -8.36] def} if %M 2 ncol eq {/LABs0X [72.37 -10.26 91.75] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 3 eq {0 ncol eq {/LABs0X [69.43 -44.46 -13.14] def} if %C 1 ncol eq {/LABs0X [41.25 89.48 -19.47] def} if %M 2 ncol eq {/LABs0X [75.03 -20.05 85.13] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.70 0.00 0.00] def %LABW100 /L*NN 17.70 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.41 def /A*WW 0.00 def /B*WW 0.00 def } if /jmul j 15 div def /LSs0 LABs0X 0 get LABs0W 0 get LABs0X 0 get sub jmul mul add def /LS* LSs0 18.01 add def /l*CIE LS* L*NN sub L*WW L*NN sub 0.0001 add div def /ASs0 LABs0X 1 get LABs0W 1 get LABs0X 1 get sub jmul mul add def /AS* ASs0 A*NN A*WW A*NN sub l*CIE mul add add def /BSs0 LABs0X 2 get LABs0W 2 get LABs0X 2 get sub jmul mul add def /BS* BSs0 B*NN B*WW B*NN sub l*CIE mul add add def LS* AS* BS* setcolor l 0 eq {/ixd 700 def /iyd 700 def %ixd,iyd ix0 iy0 moveto ixd 000 rlineto 000 iyd rlineto ixd neg 000 rlineto closepath fill } if %ixd,iyd } if %16 Testfarben; Nr. 16 fuer weisse Linie } for %j 0 setgray TBIG 11350 300 moveto tef ncol get show 0 setgray TBM ncol 3 eq { %N 0 1 15 {/j exch def /ix0 250 j 700 mul add def /iy0 -400 def ix0 iy0 moveto ntex* j get show } for %j } if %N } for %ncol=0,3 000 -550 translate 15 setlinewidth 0 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath stroke showpage } if %xcolorl=1 xcolorl 2 eq {%xcolorl=2 8 /Times-ISOL1 FS 72 82 moveto (Bild B4n: 16 gleichabst\344ndige Stufen ) showde (Picture B4n: 16 equidistant steps ) showen 8 /Times-BoldItalic FS (W-C, W-M, W-Y ) show 8 /Times-Roman FS (und ) showde (and ) showen 8 /Times-BoldItalic FS (W-N) show 8 /Times-ISOL1 FS (; PS operator) showde (; PS operator) showen (; PS operator) showes (; PS operator) showfr (; PS operator) showit (; PS operator) showjp (; PS operator) showm 8 /TimesI-ISOL1 FS ( LAB* setcolor) show 8 /Times-ISOL1 FS 72 90 translate /pixf 16.67 def 0.1667 pixf div MM dup scale /nshow {180 /TimesI-ISOL1 FS show} def /ishow {140 /Times-ISOL1 FS -100 -75 rmoveto show 50 75 rmoveto} def 1 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath fill 0 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath stroke /yab -850 def 000 3950 translate /ntex* [(a) (b) (c) (d) (e) (f) (g) (h) (i) (j) (k) (l) (m) (n) (o) (p)] def /tef [(C) (M) (Y) (W)] def 0 setgray 0 1 16 {/j exch def /ix0 j 700 mul def /iy0 -850 def %j=0,16 ix0 25 add iy0 3100 sub moveto 000 4000 rlineto -50 000 rlineto 000 -4000 rlineto closepath fill } for %j=0,16 /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse 0 1 3 {/ncol exch def %ncol=0,3 0 yab translate /l 0 def /iLAB 0 def 0 1 15 {/j exch def /ix0 15 j sub 700 mul def /iy0 0 def j 15 le { %16 Testfarben; Nr. 16 fuer weisse Linie [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace /ISYSLAB where {pop /ISYSLABL ISYSLAB def} {/ISYSLABL 0 def} ifelse /ISYSTEM where {pop /ISYSTEML ISYSTEM def} {/ISYSTEML 0 def} ifelse ISYSLABL 0 eq {0 ncol eq {/LABs0X [40.62 -30.34 -45.01] def} if %C 1 ncol eq {/LABs0X [30.12 75.28 -8.36] def} if %M 2 ncol eq {/LABs0X [72.37 -10.26 91.75] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 1 eq {0 ncol eq {/LABs0X [86.87 -46.16 -13.55] def} if %C 1 ncol eq {/LABs0X [57.29 94.35 -20.69] def} if %M 2 ncol eq {/LABs0X [92.65 -20.69 90.75] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [95.40 0.00 0.00] def %LABW100 /L*NN 18.00 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.40 def /A*WW 0.00 def /B*WW 0.00 def } if ISYSLABL 2 eq {0 ncol eq {/LABs0X [40.62 -30.34 -45.01] def} if %C 1 ncol eq {/LABs0X [30.12 75.28 -8.36] def} if %M 2 ncol eq {/LABs0X [72.37 -10.26 91.75] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 3 eq {0 ncol eq {/LABs0X [69.43 -44.46 -13.14] def} if %C 1 ncol eq {/LABs0X [41.25 89.48 -19.47] def} if %M 2 ncol eq {/LABs0X [75.03 -20.05 85.13] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.70 0.00 0.00] def %LABW100 /L*NN 17.70 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.41 def /A*WW 0.00 def /B*WW 0.00 def } if /jmul 1 j 15 div sub def ncol 2 le { /LSs0 LABs0X 0 get jmul mul def /LS* LSs0 18.01 add def /l*CIE LS* L*NN sub L*WW L*NN sub 0.0001 add div def /ASs0 LABs0X 1 get jmul mul def /AS* ASs0 A*NN A*WW A*NN sub l*CIE mul add add def /BSs0 LABs0X 2 get jmul mul def /BS* BSs0 B*NN B*WW B*NN sub l*CIE mul add add def } { /LSs0 LABs0X 0 get LABs0W 0 get LABs0X 0 get sub jmul mul add def /LS* LSs0 18.01 add def /l*CIE LS* L*NN sub L*WW L*NN sub 0.0001 add div def /ASs0 LABs0X 1 get LABs0W 1 get LABs0X 1 get sub jmul mul add def /AS* ASs0 A*NN A*WW A*NN sub l*CIE mul add add def /BSs0 LABs0X 2 get LABs0W 2 get LABs0X 2 get sub jmul mul add def /BS* BSs0 B*NN B*WW B*NN sub l*CIE mul add add def } ifelse LS* AS* BS* setcolor l 0 eq {/ixd 700 def /iyd 700 def %ixd,iyd ix0 iy0 moveto ixd 000 rlineto 000 iyd rlineto ixd neg 000 rlineto closepath fill } if %ixd,iyd } if %16 Testfarben; Nr. 16 fuer weisse Linie } for %j 0 setgray TBIG 11350 300 moveto tef ncol get show 0 setgray TBM ncol 3 eq { %N 0 1 15 {/j exch def /ix0 250 j 700 mul add def /iy0 -400 def ix0 iy0 moveto ntex* j get show } for %j } if %N } for %ncol=0,3 000 -550 translate 15 setlinewidth 0 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath stroke showpage } if %xcolorl=2 xcolorl 3 eq {%xcolorl=3 8 /Times-ISOL1 FS 72 82 moveto (Bild B4n: 16 gleichabst\344ndige Stufen ) showde (Picture B4n: 16 equidistant steps ) showen 8 /Times-BoldItalic FS (W-C, W-M, W-Y ) show 8 /Times-Roman FS (und ) showde (and ) showen 8 /Times-BoldItalic FS (W-N) show 8 /Times-ISOL1 FS (; PS operator) showde (; PS operator) showen (; PS operator) showes (; PS operator) showfr (; PS operator) showit (; PS operator) showjp (; PS operator) showm 8 /TimesI-ISOL1 FS ( LAB* setcolor) show 8 /Times-ISOL1 FS 72 90 translate /pixf 16.67 def 0.1667 pixf div MM dup scale /nshow {180 /TimesI-ISOL1 FS show} def /ishow {140 /Times-ISOL1 FS -100 -75 rmoveto show 50 75 rmoveto} def 1 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath fill 0 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath stroke /yab -850 def 000 3950 translate /ntex* [(a) (b) (c) (d) (e) (f) (g) (h) (i) (j) (k) (l) (m) (n) (o) (p)] def /tef [(C) (M) (Y) (W)] def 0 setgray 0 1 16 {/j exch def /ix0 j 700 mul def /iy0 -850 def %j=0,16 ix0 25 add iy0 3100 sub moveto 000 4000 rlineto -50 000 rlineto 000 -4000 rlineto closepath fill } for %j=0,16 /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse 0 1 3 {/ncol exch def %ncol=0,3 0 yab translate /l 0 def /iLAB 0 def 0 1 15 {/j exch def /ix0 15 j sub 700 mul def /iy0 0 def j 15 le { %16 Testfarben; Nr. 16 fuer weisse Linie [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace /ISYSLAB where {pop /ISYSLABL ISYSLAB def} {/ISYSLABL 0 def} ifelse /ISYSTEM where {pop /ISYSTEML ISYSTEM def} {/ISYSTEML 0 def} ifelse ISYSLABL 0 eq {0 ncol eq {/LABs0X [40.62 -30.34 -45.01] def} if %C 1 ncol eq {/LABs0X [30.12 75.28 -8.36] def} if %M 2 ncol eq {/LABs0X [72.37 -10.26 91.75] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 1 eq {0 ncol eq {/LABs0X [86.87 -46.16 -13.55] def} if %C 1 ncol eq {/LABs0X [57.29 94.35 -20.69] def} if %M 2 ncol eq {/LABs0X [92.65 -20.69 90.75] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [95.40 0.00 0.00] def %LABW100 /L*NN 18.00 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.40 def /A*WW 0.00 def /B*WW 0.00 def } if ISYSLABL 2 eq {0 ncol eq {/LABs0X [40.62 -30.34 -45.01] def} if %C 1 ncol eq {/LABs0X [30.12 75.28 -8.36] def} if %M 2 ncol eq {/LABs0X [72.37 -10.26 91.75] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 3 eq {0 ncol eq {/LABs0X [69.43 -44.46 -13.14] def} if %C 1 ncol eq {/LABs0X [41.25 89.48 -19.47] def} if %M 2 ncol eq {/LABs0X [75.03 -20.05 85.13] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.70 0.00 0.00] def %LABW100 /L*NN 17.70 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.41 def /A*WW 0.00 def /B*WW 0.00 def } if /jmul 1 j 15 div sub def ncol 2 le { /LSs0 LABs0X 0 get jmul mul def /LS* LSs0 18.01 add def /l*CIE LS* L*NN sub L*WW L*NN sub 0.0001 add div def /ASs0 LABs0X 1 get jmul mul def /AS* ASs0 A*NN A*WW A*NN sub l*CIE mul add add def /BSs0 LABs0X 2 get jmul mul def /BS* BSs0 B*NN B*WW B*NN sub l*CIE mul add add def } { /LSs0 LABs0X 0 get LABs0W 0 get LABs0X 0 get sub jmul mul add def /LS* LSs0 18.01 add def /l*CIE LS* L*NN sub L*WW L*NN sub 0.0001 add div def /ASs0 LABs0X 1 get LABs0W 1 get LABs0X 1 get sub jmul mul add def /AS* ASs0 A*NN A*WW A*NN sub l*CIE mul add add def /BSs0 LABs0X 2 get LABs0W 2 get LABs0X 2 get sub jmul mul add def /BS* BSs0 B*NN B*WW B*NN sub l*CIE mul add add def } ifelse LS* AS* BS* setcolor l 0 eq {/ixd 700 def /iyd 700 def %ixd,iyd ix0 iy0 moveto ixd 000 rlineto 000 iyd rlineto ixd neg 000 rlineto closepath fill } if %ixd,iyd } if %16 Testfarben; Nr. 16 fuer weisse Linie } for %j 0 setgray TBIG 11350 300 moveto tef ncol get show 0 setgray TBM ncol 3 eq { %N 0 1 15 {/j exch def /ix0 250 j 700 mul add def /iy0 -400 def ix0 iy0 moveto ntex* j get show } for %j } if %N } for %ncol=0,3 000 -550 translate 15 setlinewidth 0 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath stroke showpage } if %xcolorl=3 xcolorl 4 eq {%xcolorl=4 8 /Times-ISOL1 FS 72 82 moveto (Bild D4n: 16 gleichabst\344ndige Stufen ) showde (Picture D4n: 16 equidistant steps ) showen 8 /TimesBI-ISOL1 FS (W\255O, W\255L, W\255V ) show 8 /Times-ISOL1 FS (und ) showde (and ) showen 8 /TimesBI-ISOL1 FS (W\255N) show 8 /Times-ISOL1 FS (; PS\255Operator) showde (; PS operator) showen (; PS operator) showes (; PS operator) showfr (; PS operator) showit (; PS operator) showjp (; PS operator) showm 8 /TimesI-ISOL1 FS ( LAB* setcolor) show 8 /Times-ISOL1 FS 72 90 translate /pixf 16.67 def 0.1667 pixf div MM dup scale /nshow {180 /TimesI-ISOL1 FS show} def /ishow {140 /Times-ISOL1 FS -100 -75 rmoveto show 50 75 rmoveto} def 1 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath fill 0 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath stroke /yab -850 def 000 3950 translate /ntex* [(a) (b) (c) (d) (e) (f) (g) (h) (i) (j) (k) (l) (m) (n) (o) (p)] def /tef [(O) (L) (V) (W)] def 0 setgray 0 1 16 {/j exch def /ix0 j 700 mul def /iy0 -850 def %j=0,16 ix0 25 add iy0 3100 sub moveto 000 4000 rlineto -50 000 rlineto 000 -4000 rlineto closepath fill } for %j=0,16 /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse 0 1 3 {/ncol exch def %ncol=0,3 0 yab translate /l 0 def /iLAB 0 def 0 1 15 {/j exch def /ix0 15 j sub 700 mul def /iy0 0 def j 15 le { %16 Testfarben; Nr. 16 fuer weisse Linie [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace /ISYSLAB where {pop /ISYSLABL ISYSLAB def} {/ISYSLABL 0 def} ifelse /ISYSTEM where {pop /ISYSTEML ISYSTEM def} {/ISYSTEML 0 def} ifelse ISYSLABL 0 eq {0 ncol eq {/LABs0X [29.93 65.39 50.52] def} if %O 1 ncol eq {/LABs0X [32.89 -62.83 34.96] def} if %L 2 ncol eq {/LABs0X [ 7.71 31.10 -44.40] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 1 eq {0 ncol eq {/LABs0X [50.49 76.92 64.55] def} if %O 1 ncol eq {/LABs0X [83.62 -82.75 79.90] def} if %L 2 ncol eq {/LABs0X [25.71 31.45 -44.29] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [95.40 0.00 0.00] def %LABW100 /L*NN 18.00 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.40 def /A*WW 0.00 def /B*WW 0.00 def } if ISYSLABL 2 eq {0 ncol eq {/LABs0X [29.93 65.39 50.52] def} if %O 1 ncol eq {/LABs0X [32.89 -62.83 34.96] def} if %L 2 ncol eq {/LABs0X [ 7.71 31.10 -44.40] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 3 eq {0 ncol eq {/LABs0X [34.99 71.79 50.18] def} if %O 1 ncol eq {/LABs0X [66.29 -79.08 74.11] def} if %L 2 ncol eq {/LABs0X [14.04 24.65 -37.54] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.70 0.00 0.00] def %LABW100 /L*NN 17.70 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.41 def /A*WW 0.00 def /B*WW 0.00 def } if /jmul 1 j 15 div sub def ncol 2 le { /LSs0 LABs0X 0 get jmul mul def /LS* LSs0 18.01 add def /l*CIE LS* L*NN sub L*WW L*NN sub 0.0001 add div def /ASs0 LABs0X 1 get jmul mul def /AS* ASs0 A*NN A*WW A*NN sub l*CIE mul add add def /BSs0 LABs0X 2 get jmul mul def /BS* BSs0 B*NN B*WW B*NN sub l*CIE mul add add def } { /LSs0 LABs0X 0 get LABs0W 0 get LABs0X 0 get sub jmul mul add def /LS* LSs0 18.01 add def /l*CIE LS* L*NN sub L*WW L*NN sub 0.0001 add div def /ASs0 LABs0X 1 get LABs0W 1 get LABs0X 1 get sub jmul mul add def /AS* ASs0 A*NN A*WW A*NN sub l*CIE mul add add def /BSs0 LABs0X 2 get LABs0W 2 get LABs0X 2 get sub jmul mul add def /BS* BSs0 B*NN B*WW B*NN sub l*CIE mul add add def } ifelse LS* AS* BS* setcolor l 0 eq {/ixd 700 def /iyd 700 def %ixd,iyd ix0 iy0 moveto ixd 000 rlineto 000 iyd rlineto ixd neg 000 rlineto closepath fill } if %ixd,iyd } if %16 Testfarben; Nr. 16 fuer weisse Linie } for %j 0 setgray TBIG 11350 300 moveto tef ncol get show 0 setgray TBM ncol 3 eq { %N 0 1 15 {/j exch def /ix0 250 j 700 mul add def /iy0 -400 def ix0 iy0 moveto ntex* j get show } for %j } if %N } for %ncol=0,3 000 -550 translate 15 setlinewidth 0 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath stroke showpage } if %xcolorl=4 %%Trailer %line 339 %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 12 %line 349 %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 3 MM sub 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 13 %!PS-Adobe-3.0 EPSF-3.0 LE22/L10-3N.EPS 20040101 %%BoundingBox: 70 80 392 206 %%Creator: K. Richter, BAM und TU Berlin, 2000.06.16 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def %ANFA CMYKDEF %CMYKDEA0 (A0=Standard-Drucker-CMYKDEF) 15.3.97 /tzac [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzam [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzay [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzan [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tza0 [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000] def /tza1 [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000] def %ENDE CMYKD /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y n {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y n {setcmykcolor rec stroke} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfa {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %ANFA OUTLINO0 951204 /pixf 1.0 def /ueg {1.6 pixf mul} bind def /uek {0.8 pixf mul} bind def /ues {0.7 pixf mul} bind def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /outxshowf {show} bind def /outxshow {show} bind def /SK {250 16.67 div 1 sub pixf mul /Symbol FS} bind def /SM {300 16.67 div 1 sub pixf mul /Symbol FS} bind def /SG {350 16.67 div 1 sub pixf mul /Symbol FS} bind def /outSK {250 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSM {300 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSG {350 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outshowf {setcmykcolor show} bind def /outrecfi { %x y width heigth c m y k setcmykcolor rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmykcolor lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmykcolor stroke} bind def /A4quer {595 0 translate 90 rotate} def %%EndProlog gsave %LANINDL0.EPS START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %no loops /xcolorl xcolor1 def /xchart xchart1 def %LANINDL0 END 8 /Times-Roman FS %72 82 moveto %!2 (LE22/L10-3N.eps) show xcolorl 1 eq {%xcolorl=1 8 /Times-ISOL1 FS 72 82 moveto (Bild B5w: Schrift und Landoltringe ) showde (Picture B5w: Script and Landolt\255rings ) showen 8 /TimesBI-ISOL1 FS (N, C, M ) show 8 /Times-ISOL1 FS (und ) showde (and ) showen 8 /TimesBI-ISOL1 FS (Y) show 8 /Times-ISOL1 FS (; PS-Operator) showde (; PS operator) showen (; PS operator) showes (; PS operator) showfr (; PS operator) showit (; PS operator) showjp (; PS operator) showm 8 /TimesI-ISOL1 FS ( LAB* setcolor ) show 8 /Times-ISOL1 FS 72 90 translate /pixf 16.67 def 0.1667 pixf div MM 0.1667 pixf div MM scale 15 setlinewidth 0 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath stroke /na [(+-:.) (xyz;) (tuvw) (pqrs) (lmno) (hijk) (defg) (!abc) (lmno) (hijk) (defg) (!abc) (+-:.) (xyz;) (tuvw) (pqrs) (pqrs) (lmno) (hijk) (+-:.) (xyz;) (tuvw) (defg) (!abc) (tuvw) (pqrs) (lmno) (hijk) (+-:.) (!abc) (xyz;) (defg)] def /ar 72 def /ak [4 3 2 8 7 1 5 6 8 5 3 7 2 1 4 6 6 3 5 4 3 7 2 8 4 1 6 7 8 2 3 5 1 5 4 8 7 2 3 6 8 1 7 6 2 5 4 3 1 2 5 8 4 3 6 7 5 3 2 8 7 6 1 4 6 4 1 2 7 3 5 8 7 1 8 5 2 6 3 4 7 6 3 4 8 5 2 1 7 6 1 4 5 3 2 8 4 3 2 8 7 1 5 6 2 1 4 6 8 5 3 7 8 2 7 1 4 5 3 6 6 7 8 2 5 3 1 4] def /nf [(N) (C) (M) (Y)] def /ng [(10) ( 8) ( 6) ( 4)] def /mg -1 def /xtrans [0 3500 3000 2500] def /j 0 def 0 1 2 {/ncol exch def %ncol=0,1,2 /ISYSLAB where {pop /ISYSLABL ISYSLAB def} {/ISYSLABL 0 def} ifelse /ISYSTEM where {pop /ISYSTEML ISYSTEM def} {/ISYSTEML 0 def} ifelse ISYSLABL 0 eq {0 ncol eq {/LABs0X [40.62 -30.34 -45.01] def} if %C 1 ncol eq {/LABs0X [30.12 75.28 -8.36] def} if %M 2 ncol eq {/LABs0X [72.37 -10.26 91.75] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 1 eq {0 ncol eq {/LABs0X [86.87 -46.16 -13.55] def} if %C 1 ncol eq {/LABs0X [57.29 94.35 -20.69] def} if %M 2 ncol eq {/LABs0X [92.65 -20.69 90.75] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [95.40 0.00 0.00] def %LABW100 /L*NN 18.00 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.40 def /A*WW 0.00 def /B*WW 0.00 def } if ISYSLABL 2 eq {0 ncol eq {/LABs0X [40.62 -30.34 -45.01] def} if %C 1 ncol eq {/LABs0X [30.12 75.28 -8.36] def} if %M 2 ncol eq {/LABs0X [72.37 -10.26 91.75] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 3 eq {0 ncol eq {/LABs0X [69.43 -44.46 -13.14] def} if %C 1 ncol eq {/LABs0X [41.25 89.48 -19.47] def} if %M 2 ncol eq {/LABs0X [75.03 -20.05 85.13] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.70 0.00 0.00] def %LABW100 /L*NN 17.70 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.41 def /A*WW 0.00 def /B*WW 0.00 def } if /jmul j 15 div def /LSs0 LABs0X 0 get LABs0W 0 get LABs0X 0 get sub jmul mul add def /LS* LSs0 18.01 add def /l*CIE LS* L*NN sub L*WW L*NN sub 0.0001 add div def /ASs0 LABs0X 1 get LABs0W 1 get LABs0X 1 get sub jmul mul add def /AS* ASs0 A*NN A*WW A*NN sub l*CIE mul add add def /BSs0 LABs0X 2 get LABs0W 2 get LABs0X 2 get sub jmul mul add def /BS* BSs0 B*NN B*WW B*NN sub l*CIE mul add add def ncol 0 eq {/tfc1 LS* def /tfc2 AS* def /tfc3 BS* def} if ncol 1 eq {/tfm1 LS* def /tfm2 AS* def /tfm3 BS* def} if ncol 2 eq {/tfy1 LS* def /tfy2 AS* def /tfy3 BS* def} if } for %ncol=0,1,2 200 000 translate /igroe -1 def 10 -2 04 {/n exch def /mg mg 1 add def /igroe igroe 1 add def /n480 40 n mul def /n600 45 n mul def /n300 25 n mul def /n150 15 n mul def /n360 30 n mul def /nar 6 n mul def /n6000 480 n mul def /n5000 400 n mul def xtrans mg get 0 translate /ix0 0 def n480 /Times-Roman FS 0 setgray 0 1 07 {/j exch def /iy0 3500 j n600 mul sub def ix0 100 add iy0 200 add moveto na j igroe 8 mul add get exec show j 7 eq { %Zusatz Schriftgroesse 10, 8, 6, 4 ix0 100 add iy0 200 add n600 sub moveto ng mg get exec show} if } for 0 1 03 {/ncol exch def /ix0 n600 2 mul ncol n600 mul add def /iy0 3500 8 n600 mul sub 0 1 07 {/j exch def /iy0 3500 j n600 mul sub def /k ncol 8 mul j add igroe 32 mul add def n setlinewidth [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace ncol 0 eq {L*NN A*NN B*NN setcolor} if ncol 1 eq {tfc1 tfc2 tfc3 setcolor} if ncol 2 eq {tfm1 tfm2 tfm3 setcolor} if ncol 3 eq {tfy1 tfy2 tfy3 setcolor} if newpath nar setlinewidth ix0 300 add iy0 300 add nar 2.5 mul 0 360 arc closepath fill 1 setgray ix0 300 add iy0 300 add nar 1.5 mul 0 360 arc closepath fill 1 setgray ix0 300 add iy0 300 add moveto /m ak k get exec def m 1 eq {nar 2.6 mul 0 rlineto closepath stroke} if %0 m 2 eq {nar 2.6 mul 45 sin mul nar 2.6 mul 45 cos mul rlineto closepath stroke} if %45 m 3 eq {0 nar 2.6 mul rlineto closepath stroke} if %90 m 4 eq {nar 2.6 mul 135 sin mul nar 2.6 mul 135 cos mul rlineto closepath stroke} if %135 m 5 eq {nar 2.6 mul neg 0 rlineto closepath stroke} if %0 m 6 eq {nar 2.6 mul 235 sin mul nar 2.6 mul 235 cos mul rlineto closepath stroke} if %45 m 7 eq {0 nar 2.6 mul neg rlineto closepath stroke} if %0 m 8 eq {nar 2.6 mul 315 sin mul nar 2.6 mul 315 cos mul rlineto closepath stroke} if %45 } for %j acht Orientierungen 0 setgray ix0 300 add n150 sub iy0 300 add n600 sub n150 sub moveto nf ncol get show } for %ncol=N,C,M,Y } for %n vier Schrift-Groessen showpage } if %xcolorl=1 xcolorl 2 eq {%xcolorl=2 8 /Times-ISOL1 FS 72 82 moveto (Bild D5n: Schrift und Landoltringe ) showde (Picture D5n: Script and Landolt\255rings ) showen 8 /TimesBI-ISOL1 FS (W, C, M ) show 8 /Times-ISOL1 FS (und ) showde (and ) showen 8 /TimesBI-ISOL1 FS (Y) show 8 /Times-ISOL1 FS (; PS-Operator) showde (; PS operator) showen (; PS operator) showes (; PS operator) showfr (; PS operator) showit (; PS operator) showjp (; PS operator) showm 8 /TimesI-ISOL1 FS ( LAB* setcolor ) show 8 /Times-ISOL1 FS 72 90 translate /pixf 16.67 def 0.1667 pixf div MM 0.1667 pixf div MM scale 15 setlinewidth 0 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath fill 1 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath stroke /na [(+-:.) (xyz;) (tuvw) (pqrs) (lmno) (hijk) (defg) (!abc) (lmno) (hijk) (defg) (!abc) (+-:.) (xyz;) (tuvw) (pqrs) (pqrs) (lmno) (hijk) (+-:.) (xyz;) (tuvw) (defg) (!abc) (tuvw) (pqrs) (lmno) (hijk) (+-:.) (!abc) (xyz;) (defg)] def /ar 72 def /ak [4 3 2 8 7 1 5 6 8 5 3 7 2 1 4 6 6 3 5 4 3 7 2 8 4 1 6 7 8 2 3 5 1 5 4 8 7 2 3 6 8 1 7 6 2 5 4 3 1 2 5 8 4 3 6 7 5 3 2 8 7 6 1 4 6 4 1 2 7 3 5 8 7 1 8 5 2 6 3 4 7 6 3 4 8 5 2 1 7 6 1 4 5 3 2 8 4 3 2 8 7 1 5 6 2 1 4 6 8 5 3 7 8 2 7 1 4 5 3 6 6 7 8 2 5 3 1 4] def /nf [(W) (C) (M) (Y)] def /ng [(10) ( 8) ( 6) ( 4)] def /mg -1 def /xtrans [0 3500 3000 2500] def /j 0 def 0 1 2 {/ncol exch def %ncol=0,1,2 /ISYSLAB where {pop /ISYSLABL ISYSLAB def} {/ISYSLABL 0 def} ifelse /ISYSTEM where {pop /ISYSTEML ISYSTEM def} {/ISYSTEML 0 def} ifelse ISYSLABL 0 eq {0 ncol eq {/LABs0X [40.62 -30.34 -45.01] def} if %C 1 ncol eq {/LABs0X [30.12 75.28 -8.36] def} if %M 2 ncol eq {/LABs0X [72.37 -10.26 91.75] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 1 eq {0 ncol eq {/LABs0X [86.87 -46.16 -13.55] def} if %C 1 ncol eq {/LABs0X [57.29 94.35 -20.69] def} if %M 2 ncol eq {/LABs0X [92.65 -20.69 90.75] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [95.40 0.00 0.00] def %LABW100 /L*NN 18.00 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.40 def /A*WW 0.00 def /B*WW 0.00 def } if ISYSLABL 2 eq {0 ncol eq {/LABs0X [40.62 -30.34 -45.01] def} if %C 1 ncol eq {/LABs0X [30.12 75.28 -8.36] def} if %M 2 ncol eq {/LABs0X [72.37 -10.26 91.75] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 3 eq {0 ncol eq {/LABs0X [69.43 -44.46 -13.14] def} if %C 1 ncol eq {/LABs0X [41.25 89.48 -19.47] def} if %M 2 ncol eq {/LABs0X [75.03 -20.05 85.13] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.70 0.00 0.00] def %LABW100 /L*NN 17.70 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.41 def /A*WW 0.00 def /B*WW 0.00 def } if /jmul 1 j 15 div sub def /LSs0 LABs0X 0 get jmul mul def /LS* LSs0 18.01 add def /l*CIE LS* L*NN sub L*WW L*NN sub 0.0001 add div def /ASs0 LABs0X 1 get jmul mul def /AS* ASs0 A*NN A*WW A*NN sub l*CIE mul add add def /BSs0 LABs0X 2 get jmul mul def /BS* BSs0 B*NN B*WW B*NN sub l*CIE mul add add def ncol 0 eq {/tfc1 LS* def /tfc2 AS* def /tfc3 BS* def} if ncol 1 eq {/tfm1 LS* def /tfm2 AS* def /tfm3 BS* def} if ncol 2 eq {/tfy1 LS* def /tfy2 AS* def /tfy3 BS* def} if } for %ncol=0,1,2 200 000 translate /igroe -1 def 10 -2 04 {/n exch def /mg mg 1 add def /igroe igroe 1 add def /n480 40 n mul def /n600 45 n mul def /n300 25 n mul def /n150 15 n mul def /n360 30 n mul def /nar 6 n mul def /n6000 480 n mul def /n5000 400 n mul def xtrans mg get 0 translate /ix0 0 def n480 /Times-Roman FS 1 setgray 0 1 07 {/j exch def /iy0 3500 j n600 mul sub def ix0 100 add iy0 200 add moveto na j igroe 8 mul add get exec show j 7 eq { %Zusatz Schriftgroesse 10, 8, 6, 4 ix0 100 add iy0 200 add n600 sub moveto ng mg get exec show} if } for 0 1 03 {/ncol exch def /ix0 n600 2 mul ncol n600 mul add def /iy0 3500 8 n600 mul sub 0 1 07 {/j exch def /iy0 3500 j n600 mul sub def /k ncol 8 mul j add igroe 32 mul add def n setlinewidth [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace ncol 0 eq {L*WW A*WW B*WW setcolor} if ncol 1 eq {tfc1 tfc2 tfc3 setcolor} if ncol 2 eq {tfm1 tfm2 tfm3 setcolor} if ncol 3 eq {tfy1 tfy2 tfy3 setcolor} if newpath nar setlinewidth ix0 300 add iy0 300 add nar 2.5 mul 0 360 arc closepath fill L*NN A*NN B*NN setcolor ix0 300 add iy0 300 add nar 1.5 mul 0 360 arc closepath fill L*NN A*NN B*NN setcolor ix0 300 add iy0 300 add moveto /m ak k get exec def m 1 eq {nar 2.6 mul 0 rlineto closepath stroke} if %0 m 2 eq {nar 2.6 mul 45 sin mul nar 2.6 mul 45 cos mul rlineto closepath stroke} if %45 m 3 eq {0 nar 2.6 mul rlineto closepath stroke} if %90 m 4 eq {nar 2.6 mul 135 sin mul nar 2.6 mul 135 cos mul rlineto closepath stroke} if %135 m 5 eq {nar 2.6 mul neg 0 rlineto closepath stroke} if %0 m 6 eq {nar 2.6 mul 235 sin mul nar 2.6 mul 235 cos mul rlineto closepath stroke} if %45 m 7 eq {0 nar 2.6 mul neg rlineto closepath stroke} if %0 m 8 eq {nar 2.6 mul 315 sin mul nar 2.6 mul 315 cos mul rlineto closepath stroke} if %45 } for %j acht Orientierungen 1 setgray ix0 300 add n150 sub iy0 300 add n600 sub n150 sub moveto nf ncol get show } for %ncol=N,C,M,Y } for %n vier Schrift-Groessen showpage } if %xcolorl=2 xcolorl 3 eq {%xcolorl=3 8 /Times-ISOL1 FS 72 82 moveto (Bild D5n: Schrift und Landoltringe ) showde (Picture D5n: Script and Landolt\255rings ) showen 8 /TimesBI-ISOL1 FS (W, C, M ) show 8 /Times-ISOL1 FS (und ) showde (and ) showen 8 /TimesBI-ISOL1 FS (Y) show 8 /Times-ISOL1 FS (; PS-Operator) showde (; PS operator) showen (; PS operator) showes (; PS operator) showfr (; PS operator) showit (; PS operator) showjp (; PS operator) showm 8 /TimesI-ISOL1 FS ( LAB* setcolor ) show 8 /Times-ISOL1 FS 72 90 translate /pixf 16.67 def 0.1667 pixf div MM 0.1667 pixf div MM scale 15 setlinewidth 0 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath fill 1 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath stroke /na [(+-:.) (xyz;) (tuvw) (pqrs) (lmno) (hijk) (defg) (!abc) (lmno) (hijk) (defg) (!abc) (+-:.) (xyz;) (tuvw) (pqrs) (pqrs) (lmno) (hijk) (+-:.) (xyz;) (tuvw) (defg) (!abc) (tuvw) (pqrs) (lmno) (hijk) (+-:.) (!abc) (xyz;) (defg)] def /ar 72 def /ak [4 3 2 8 7 1 5 6 8 5 3 7 2 1 4 6 6 3 5 4 3 7 2 8 4 1 6 7 8 2 3 5 1 5 4 8 7 2 3 6 8 1 7 6 2 5 4 3 1 2 5 8 4 3 6 7 5 3 2 8 7 6 1 4 6 4 1 2 7 3 5 8 7 1 8 5 2 6 3 4 7 6 3 4 8 5 2 1 7 6 1 4 5 3 2 8 4 3 2 8 7 1 5 6 2 1 4 6 8 5 3 7 8 2 7 1 4 5 3 6 6 7 8 2 5 3 1 4] def /nf [(W) (C) (M) (Y)] def /ng [(10) ( 8) ( 6) ( 4)] def /mg -1 def /xtrans [0 3500 3000 2500] def /j 0 def 0 1 2 {/ncol exch def %ncol=0,1,2 /ISYSLAB where {pop /ISYSLABL ISYSLAB def} {/ISYSLABL 0 def} ifelse /ISYSTEM where {pop /ISYSTEML ISYSTEM def} {/ISYSTEML 0 def} ifelse ISYSLABL 0 eq {0 ncol eq {/LABs0X [40.62 -30.34 -45.01] def} if %C 1 ncol eq {/LABs0X [30.12 75.28 -8.36] def} if %M 2 ncol eq {/LABs0X [72.37 -10.26 91.75] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 1 eq {0 ncol eq {/LABs0X [86.87 -46.16 -13.55] def} if %C 1 ncol eq {/LABs0X [57.29 94.35 -20.69] def} if %M 2 ncol eq {/LABs0X [92.65 -20.69 90.75] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [95.40 0.00 0.00] def %LABW100 /L*NN 18.00 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.40 def /A*WW 0.00 def /B*WW 0.00 def } if ISYSLABL 2 eq {0 ncol eq {/LABs0X [40.62 -30.34 -45.01] def} if %C 1 ncol eq {/LABs0X [30.12 75.28 -8.36] def} if %M 2 ncol eq {/LABs0X [72.37 -10.26 91.75] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 3 eq {0 ncol eq {/LABs0X [69.43 -44.46 -13.14] def} if %C 1 ncol eq {/LABs0X [41.25 89.48 -19.47] def} if %M 2 ncol eq {/LABs0X [75.03 -20.05 85.13] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.70 0.00 0.00] def %LABW100 /L*NN 17.70 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.41 def /A*WW 0.00 def /B*WW 0.00 def } if /jmul 1 j 15 div sub def /LSs0 LABs0X 0 get jmul mul def /LS* LSs0 18.01 add def /l*CIE LS* L*NN sub L*WW L*NN sub 0.0001 add div def /ASs0 LABs0X 1 get jmul mul def /AS* ASs0 A*NN A*WW A*NN sub l*CIE mul add add def /BSs0 LABs0X 2 get jmul mul def /BS* BSs0 B*NN B*WW B*NN sub l*CIE mul add add def ncol 0 eq {/tfc1 LS* def /tfc2 AS* def /tfc3 BS* def} if ncol 1 eq {/tfm1 LS* def /tfm2 AS* def /tfm3 BS* def} if ncol 2 eq {/tfy1 LS* def /tfy2 AS* def /tfy3 BS* def} if } for %ncol=0,1,2 200 000 translate /igroe -1 def 10 -2 04 {/n exch def /mg mg 1 add def /igroe igroe 1 add def /n480 40 n mul def /n600 45 n mul def /n300 25 n mul def /n150 15 n mul def /n360 30 n mul def /nar 6 n mul def /n6000 480 n mul def /n5000 400 n mul def xtrans mg get 0 translate /ix0 0 def n480 /Times-Roman FS 1 setgray 0 1 07 {/j exch def /iy0 3500 j n600 mul sub def ix0 100 add iy0 200 add moveto na j igroe 8 mul add get exec show j 7 eq { %Zusatz Schriftgroesse 10, 8, 6, 4 ix0 100 add iy0 200 add n600 sub moveto ng mg get exec show} if } for 0 1 03 {/ncol exch def /ix0 n600 2 mul ncol n600 mul add def /iy0 3500 8 n600 mul sub 0 1 07 {/j exch def /iy0 3500 j n600 mul sub def /k ncol 8 mul j add igroe 32 mul add def n setlinewidth [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace ncol 0 eq {L*WW A*WW B*WW setcolor} if ncol 1 eq {tfc1 tfc2 tfc3 setcolor} if ncol 2 eq {tfm1 tfm2 tfm3 setcolor} if ncol 3 eq {tfy1 tfy2 tfy3 setcolor} if newpath nar setlinewidth ix0 300 add iy0 300 add nar 2.5 mul 0 360 arc closepath fill L*NN A*NN B*NN setcolor ix0 300 add iy0 300 add nar 1.5 mul 0 360 arc closepath fill L*NN A*NN B*NN setcolor ix0 300 add iy0 300 add moveto /m ak k get exec def m 1 eq {nar 2.6 mul 0 rlineto closepath stroke} if %0 m 2 eq {nar 2.6 mul 45 sin mul nar 2.6 mul 45 cos mul rlineto closepath stroke} if %45 m 3 eq {0 nar 2.6 mul rlineto closepath stroke} if %90 m 4 eq {nar 2.6 mul 135 sin mul nar 2.6 mul 135 cos mul rlineto closepath stroke} if %135 m 5 eq {nar 2.6 mul neg 0 rlineto closepath stroke} if %0 m 6 eq {nar 2.6 mul 235 sin mul nar 2.6 mul 235 cos mul rlineto closepath stroke} if %45 m 7 eq {0 nar 2.6 mul neg rlineto closepath stroke} if %0 m 8 eq {nar 2.6 mul 315 sin mul nar 2.6 mul 315 cos mul rlineto closepath stroke} if %45 } for %j acht Orientierungen 1 setgray ix0 300 add n150 sub iy0 300 add n600 sub n150 sub moveto nf ncol get show } for %ncol=N,C,M,Y } for %n vier Schrift-Groessen showpage } if %xcolorl=3 xcolorl 4 eq {%xcolorl=4 8 /Times-ISOL1 FS 72 82 moveto (Bild D5n: Schrift und Landoltringe ) showde (Picture D5n: Script and Landolt\255rings ) showen 8 /TimesBI-ISOL1 FS (W, O, L ) show 8 /Times-ISOL1 FS (und ) showde (and ) showen 8 /TimesBI-ISOL1 FS (V) show 8 /Times-ISOL1 FS (; PS-Operator) showde (; PS operator) showen (; PS operator) showes (; PS operator) showfr (; PS operator) showit (; PS operator) showjp (; PS operator) showm 8 /TimesI-ISOL1 FS ( LAB* setcolor ) show 8 /Times-ISOL1 FS 72 90 translate /pixf 16.67 def 0.1667 pixf div MM 0.1667 pixf div MM scale 15 setlinewidth 0 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath fill 1 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath stroke /na [(+-:.) (xyz;) (tuvw) (pqrs) (lmno) (hijk) (defg) (!abc) (lmno) (hijk) (defg) (!abc) (+-:.) (xyz;) (tuvw) (pqrs) (pqrs) (lmno) (hijk) (+-:.) (xyz;) (tuvw) (defg) (!abc) (tuvw) (pqrs) (lmno) (hijk) (+-:.) (!abc) (xyz;) (defg)] def /ar 72 def /ak [4 3 2 8 7 1 5 6 8 5 3 7 2 1 4 6 6 3 5 4 3 7 2 8 4 1 6 7 8 2 3 5 1 5 4 8 7 2 3 6 8 1 7 6 2 5 4 3 1 2 5 8 4 3 6 7 5 3 2 8 7 6 1 4 6 4 1 2 7 3 5 8 7 1 8 5 2 6 3 4 7 6 3 4 8 5 2 1 7 6 1 4 5 3 2 8 4 3 2 8 7 1 5 6 2 1 4 6 8 5 3 7 8 2 7 1 4 5 3 6 6 7 8 2 5 3 1 4] def /nf [(N) (O) (L) (V)] def /ng [(10) ( 8) ( 6) ( 4)] def /mg -1 def /xtrans [0 3500 3000 2500] def /j 0 def 0 1 2 {/ncol exch def %ncol=0,1,2 /ISYSLAB where {pop /ISYSLABL ISYSLAB def} {/ISYSLABL 0 def} ifelse /ISYSTEM where {pop /ISYSTEML ISYSTEM def} {/ISYSTEML 0 def} ifelse ISYSLABL 0 eq {0 ncol eq {/LABs0X [29.93 65.39 50.52] def} if %O 1 ncol eq {/LABs0X [32.89 -62.83 34.96] def} if %L 2 ncol eq {/LABs0X [ 7.71 31.10 -44.40] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 1 eq {0 ncol eq {/LABs0X [50.49 76.92 64.55] def} if %O 1 ncol eq {/LABs0X [83.62 -82.75 79.90] def} if %L 2 ncol eq {/LABs0X [25.71 31.45 -44.29] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [95.40 0.00 0.00] def %LABW100 /L*NN 18.00 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.40 def /A*WW 0.00 def /B*WW 0.00 def } if ISYSLABL 2 eq {0 ncol eq {/LABs0X [29.93 65.39 50.52] def} if %O 1 ncol eq {/LABs0X [32.89 -62.83 34.96] def} if %L 2 ncol eq {/LABs0X [ 7.71 31.10 -44.40] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 3 eq {0 ncol eq {/LABs0X [34.99 71.79 50.18] def} if %O 1 ncol eq {/LABs0X [66.29 -79.08 74.11] def} if %L 2 ncol eq {/LABs0X [14.04 24.65 -37.54] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.70 0.00 0.00] def %LABW100 /L*NN 17.70 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.41 def /A*WW 0.00 def /B*WW 0.00 def } if /jmul 1 j 15 div sub def /LSs0 LABs0X 0 get jmul mul def /LS* LSs0 18.01 add def /l*CIE LS* L*NN sub L*WW L*NN sub 0.0001 add div def /ASs0 LABs0X 1 get jmul mul def /AS* ASs0 A*NN A*WW A*NN sub l*CIE mul add add def /BSs0 LABs0X 2 get jmul mul def /BS* BSs0 B*NN B*WW B*NN sub l*CIE mul add add def ncol 0 eq {/tfo1 LS* def /tfo2 AS* def /tfo3 BS* def} if ncol 1 eq {/tfl1 LS* def /tfl2 AS* def /tfl3 BS* def} if ncol 2 eq {/tfv1 LS* def /tfv2 AS* def /tfv3 BS* def} if } for %ncol=0,1,2 200 000 translate /igroe -1 def 10 -2 04 {/n exch def /mg mg 1 add def /igroe igroe 1 add def /n480 40 n mul def /n600 45 n mul def /n300 25 n mul def /n150 15 n mul def /n360 30 n mul def /nar 6 n mul def /n6000 480 n mul def /n5000 400 n mul def xtrans mg get 0 translate /ix0 0 def n480 /Times-Roman FS 1 setgray 0 1 07 {/j exch def /iy0 3500 j n600 mul sub def ix0 100 add iy0 200 add moveto na j igroe 8 mul add get exec show j 7 eq { %Zusatz Schriftgroesse 10, 8, 6, 4 ix0 100 add iy0 200 add n600 sub moveto ng mg get exec show} if } for 0 1 03 {/ncol exch def /ix0 n600 2 mul ncol n600 mul add def /iy0 3500 8 n600 mul sub 0 1 07 {/j exch def /iy0 3500 j n600 mul sub def /k ncol 8 mul j add igroe 32 mul add def n setlinewidth [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace ncol 0 eq {L*WW A*WW B*WW setcolor} if ncol 1 eq {tfo1 tfo2 tfo3 setcolor} if ncol 2 eq {tfl1 tfl2 tfl3 setcolor} if ncol 3 eq {tfv1 tfv2 tfv3 setcolor} if newpath nar setlinewidth ix0 300 add iy0 300 add nar 2.5 mul 0 360 arc closepath fill L*NN A*NN B*NN setcolor ix0 300 add iy0 300 add nar 1.5 mul 0 360 arc closepath fill L*NN A*NN B*NN setcolor ix0 300 add iy0 300 add moveto /m ak k get exec def m 1 eq {nar 2.6 mul 0 rlineto closepath stroke} if %0 m 2 eq {nar 2.6 mul 45 sin mul nar 2.6 mul 45 cos mul rlineto closepath stroke} if %45 m 3 eq {0 nar 2.6 mul rlineto closepath stroke} if %90 m 4 eq {nar 2.6 mul 135 sin mul nar 2.6 mul 135 cos mul rlineto closepath stroke} if %135 m 5 eq {nar 2.6 mul neg 0 rlineto closepath stroke} if %0 m 6 eq {nar 2.6 mul 235 sin mul nar 2.6 mul 235 cos mul rlineto closepath stroke} if %45 m 7 eq {0 nar 2.6 mul neg rlineto closepath stroke} if %0 m 8 eq {nar 2.6 mul 315 sin mul nar 2.6 mul 315 cos mul rlineto closepath stroke} if %45 } for %j acht Orientierungen 1 setgray ix0 300 add n150 sub iy0 300 add n600 sub n150 sub moveto nf ncol get show } for %ncol=N,O,L,V } for %n vier Schrift-Groessen showpage } if %xcolorl=4 %%Trailer %line 359 %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 14 %line 369 %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 3 MM sub 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 15 %!PS-Adobe-3.0 EPSF-3.0 LE22/L10-5N.EPS 20040101 %%BoundingBox: 70 80 392 206 %%Creator: K. Richter, BAM und TU Berlin, 2000.06.16 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def %ANFA CMYKDEF %CMYKDEA0 (A0=Standard-Drucker-CMYKDEF) 15.3.97 /tzac [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzam [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzay [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzan [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tza0 [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000] def /tza1 [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000] def %ENDE CMYKD /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y n {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y n {setcmykcolor rec stroke} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %ANFA OUTLINO0 951204 /pixf 1.0 def /ueg {1.6 pixf mul} bind def /uek {0.8 pixf mul} bind def /ues {0.7 pixf mul} bind def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /outxshowf {show} bind def /outxshow {show} bind def /SK {250 16.67 div 1 sub pixf mul /Symbol FS} bind def /SM {300 16.67 div 1 sub pixf mul /Symbol FS} bind def /SG {350 16.67 div 1 sub pixf mul /Symbol FS} bind def /outSK {250 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSM {300 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSG {350 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outshowf {setcmykcolor show} bind def /outrecfi { %x y width heigth c m y k setcmykcolor rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmykcolor lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmykcolor stroke} bind def %%EndProlog gsave %LANINDL0.EPS START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %no loops /xcolorl xcolor1 def /xchart xchart1 def %LANINDL0 END 8 /Times-Roman FS %72 82 moveto %!2 (LE22/L10-5N.eps) show xcolorl 1 eq {%xcolorl=1 8 /Times-ISOL1 FS 72 82 moveto (Bild B6w: Landoltringe ) showde (Picture B6w: Landolt\255rings ) showen 8 /TimesBI-ISOL1 FS (W\255C ) show 8 /Times-ISOL1 FS (und ) showde (and ) showen 8 /TimesBI-ISOL1 FS (W\255M) show 8 /Times-ISOL1 FS (; PS\255Operator) showde (; PS operator) showen (; PS operator) showes (; PS operator) showfr (; PS operator) showit (; PS operator) showjp (; PS operator) showm 8 /TimesI-ISOL1 FS ( LAB* setcolor) show 8 /Times-ISOL1 FS 72 90 translate /pixf 16.67 def 0.1667 pixf div MM 0.1667 pixf div MM scale 15 setlinewidth 1 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath fill 0 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath stroke /xab 5400 def 50 0 translate /ar 80 def ar setlinewidth /tef [(W-C) (W-M) (W-Y) (W-N)] def /tzc4 64 array def /tzm4 64 array def /tza4 64 array def 0 1 1 {/ncol exch def 0 1 15 {/j exch def [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace /ISYSLAB where {pop /ISYSLABL ISYSLAB def} {/ISYSLABL 0 def} ifelse /ISYSTEM where {pop /ISYSTEML ISYSTEM def} {/ISYSTEML 0 def} ifelse ISYSLABL 0 eq {0 ncol eq {/LABs0X [40.62 -30.34 -45.01] def} if %C 1 ncol eq {/LABs0X [30.12 75.28 -8.36] def} if %M 2 ncol eq {/LABs0X [72.37 -10.26 91.75] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 1 eq {0 ncol eq {/LABs0X [86.87 -46.16 -13.55] def} if %C 1 ncol eq {/LABs0X [57.29 94.35 -20.69] def} if %M 2 ncol eq {/LABs0X [92.65 -20.69 90.75] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [95.40 0.00 0.00] def %LABW100 /L*NN 18.00 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.40 def /A*WW 0.00 def /B*WW 0.00 def } if ISYSLABL 2 eq {0 ncol eq {/LABs0X [40.62 -30.34 -45.01] def} if %C 1 ncol eq {/LABs0X [30.12 75.28 -8.36] def} if %M 2 ncol eq {/LABs0X [72.37 -10.26 91.75] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 3 eq {0 ncol eq {/LABs0X [69.43 -44.46 -13.14] def} if %C 1 ncol eq {/LABs0X [41.25 89.48 -19.47] def} if %M 2 ncol eq {/LABs0X [75.03 -20.05 85.13] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.70 0.00 0.00] def %LABW100 /L*NN 17.70 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.41 def /A*WW 0.00 def /B*WW 0.00 def } if /jmul j 15 div def /LSs0 LABs0X 0 get LABs0W 0 get LABs0X 0 get sub jmul mul add def /LS* LSs0 18.01 add def /l*CIE LS* L*NN sub L*WW L*NN sub 0.0001 add div def /ASs0 LABs0X 1 get LABs0W 1 get LABs0X 1 get sub jmul mul add def /AS* ASs0 A*NN A*WW A*NN sub l*CIE mul add add def /BSs0 LABs0X 2 get LABs0W 2 get LABs0X 2 get sub jmul mul add def /BS* BSs0 B*NN B*WW B*NN sub l*CIE mul add add def ncol 0 eq {/j4 j 4 mul def tzc4 j4 LS* put tzc4 j4 1 add AS* put tzc4 j4 2 add BS* put } if %O ncol 1 eq {/j4 j 4 mul def tzm4 j4 LS* put tzm4 j4 1 add AS* put tzm4 j4 2 add BS* put } if %L } for %j=0,15 } for %ncol=0,1 0 1 1 {/ncol exch def %=0,1,2,3 C,M,Y,N ncol 0 eq { %C /tza4 tzc4 def /nc [(F-D) (8-6) (2-0) (E-F) (7-8) (0-1)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [4 3 2 8 7 1 5 6 8 5 3 7 2 1 4 6 6 3 5 4 3 7 2 8 4 1 6 7 8 2 3 5 1 5 4 8 7 2 3 6 8 1 7 6 2 5 4 3] def /ndif1 2 def /ndif2 -1 def } if %C ncol 1 eq { %M /tza4 tzm4 def /nc [(F-D) (8-6) (2-0) (E-F) (7-8) (0-1)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [6 7 8 2 3 5 4 1 7 2 3 6 1 5 4 8 6 4 8 5 3 7 2 1 7 2 8 6 3 5 4 3 8 1 7 5 2 6 4 3 4 3 2 8 7 1 5 6] def /ndif1 2 def /ndif2 -1 def } if %M ncol 2 eq { %Y /tza4 tzy4 def /nc [(F-B) (9-5) (4-0) (D-F) (6-8) (0-2)] def /nl [0 6 11 2 9 15] def %entspricht F 9 4, D 6 0, +4, -2 /ak [8 5 3 7 2 1 4 6 6 3 5 4 3 7 2 8 4 3 2 8 7 1 5 6 5 3 2 8 7 6 1 4 8 4 5 1 6 3 2 7 7 6 5 2 3 4 1 8] def /ndif1 4 def /ndif2 -2 def } if %Y ncol 3 eq { %N /tza4 tzn4 def /nc [(F-D) (8-6) (2-0) (E-F) (7-8) (0-1)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [6 7 8 2 3 5 4 1 7 2 3 6 1 5 4 8 6 4 8 5 3 7 2 1 7 2 8 6 3 5 4 3 8 1 7 5 2 6 4 3 4 3 2 8 7 1 5 6] def /ndif1 2 def /ndif2 -1 def } if %N 0 setgray 250 /Times-Roman FS 0 1 5 {/j exch def /iy0 500 j 600 mul add def 5000 iy0 moveto nc j get show } for %j TK [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace 0 1 07 {/j exch def /ix0 0100 j 600 mul add def 0 1 05 {/l exch def /iy0 0300 l 600 mul add def /k l 8 mul j add def /i1 nl l get def /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor /ixd 600 def ix0 iy0 moveto ixd 000 rlineto 000 ixd rlineto ixd neg 000 rlineto closepath fill l 2 le {/i1 nl l get ndif1 add def} {/i1 nl l get ndif2 add def} ifelse /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor ix0 300 add iy0 300 add ar 2.5 mul 0 360 arc closepath fill /i1 nl l get def /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor ix0 300 add iy0 300 add ar 1.5 mul 0 360 arc closepath fill /i1 nl l get def /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor ix0 300 add iy0 300 add moveto /m ak k get exec def m 1 eq {ar 2.6 mul 0 rlineto closepath stroke} if %0 m 2 eq {ar 2.6 mul 45 sin mul ar 2.6 mul 45 cos mul rlineto closepath stroke} if %45 m 3 eq {0 ar 2.6 mul rlineto closepath stroke} if %90 m 4 eq {ar 2.6 mul 135 sin mul ar 2.6 mul 135 cos mul rlineto closepath stroke} if %135 m 5 eq {ar 2.6 mul neg 0 rlineto closepath stroke} if %0 m 6 eq {ar 2.6 mul 235 sin mul ar 2.6 mul 235 cos mul rlineto closepath stroke} if %45 m 7 eq {0 ar 2.6 mul neg rlineto closepath stroke} if %0 m 8 eq {ar 2.6 mul 315 sin mul ar 2.6 mul 315 cos mul rlineto closepath stroke} if %45 } for %l } for %j 0 setgray 250 /Times-Roman FS 1500 50 moveto (Landoltringe ) showde (Landolt-rings ) showen 250 /Times-Italic FS tef ncol get show 5000 50 moveto (Code) show xab 0 translate 50 0 translate } for %ncol=0,1,2,3 showpage } if %xcolorl=1 xcolorl 2 eq {%xcolorl=2 8 /Times-ISOL1 FS 72 82 moveto (Bild B6n: Landoltringe ) showde (Picture B6n: Landolt\255rings ) showen 8 /TimesBI-ISOL1 FS (N\255C ) show 8 /Times-ISOL1 FS (und ) showde (and ) showen 8 /TimesBI-ISOL1 FS (N\255M) show 8 /Times-ISOL1 FS (; PS\255Operator) showde (; PS operator) showen (; PS operator) showes (; PS operator) showfr (; PS operator) showit (; PS operator) showjp (; PS operator) showm 8 /TimesI-ISOL1 FS ( LAB* setcolor) show 8 /Times-ISOL1 FS 72 90 translate /pixf 16.67 def 0.1667 pixf div MM 0.1667 pixf div MM scale 15 setlinewidth 1 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath fill 0 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath stroke /xab 5400 def 50 0 translate /ar 80 def ar setlinewidth /tef [(N-C) (N-M) (N-Y) (N-W)] def /tzc4 64 array def /tzm4 64 array def /tza4 64 array def 0 1 1 {/ncol exch def 0 1 15 {/j exch def [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace /ISYSLAB where {pop /ISYSLABL ISYSLAB def} {/ISYSLABL 0 def} ifelse /ISYSTEM where {pop /ISYSTEML ISYSTEM def} {/ISYSTEML 0 def} ifelse ISYSLABL 0 eq {0 ncol eq {/LABs0X [40.62 -30.34 -45.01] def} if %C 1 ncol eq {/LABs0X [30.12 75.28 -8.36] def} if %M 2 ncol eq {/LABs0X [72.37 -10.26 91.75] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 1 eq {0 ncol eq {/LABs0X [86.87 -46.16 -13.55] def} if %C 1 ncol eq {/LABs0X [57.29 94.35 -20.69] def} if %M 2 ncol eq {/LABs0X [92.65 -20.69 90.75] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [95.40 0.00 0.00] def %LABW100 /L*NN 18.00 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.40 def /A*WW 0.00 def /B*WW 0.00 def } if ISYSLABL 2 eq {0 ncol eq {/LABs0X [40.62 -30.34 -45.01] def} if %C 1 ncol eq {/LABs0X [30.12 75.28 -8.36] def} if %M 2 ncol eq {/LABs0X [72.37 -10.26 91.75] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 3 eq {0 ncol eq {/LABs0X [69.43 -44.46 -13.14] def} if %C 1 ncol eq {/LABs0X [41.25 89.48 -19.47] def} if %M 2 ncol eq {/LABs0X [75.03 -20.05 85.13] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.70 0.00 0.00] def %LABW100 /L*NN 17.70 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.41 def /A*WW 0.00 def /B*WW 0.00 def } if /jmul 1 j 15 div sub def /LSs0 LABs0X 0 get jmul mul def /LS* LSs0 18.01 add def /l*CIE LS* L*NN sub L*WW L*NN sub 0.0001 add div def /ASs0 LABs0X 1 get jmul mul def /AS* ASs0 A*NN A*WW A*NN sub l*CIE mul add add def /BSs0 LABs0X 2 get jmul mul def /BS* BSs0 B*NN B*WW B*NN sub l*CIE mul add add def ncol 0 eq {/j4 j 4 mul def tzc4 j4 LS* put tzc4 j4 1 add AS* put tzc4 j4 2 add BS* put } if %O ncol 1 eq {/j4 j 4 mul def tzm4 j4 LS* put tzm4 j4 1 add AS* put tzm4 j4 2 add BS* put } if %L } for %j=0,15 } for %ncol=0,1 0 1 1 {/ncol exch def %=0,1,2,3 C,M,Y,N ncol 0 eq { %C /tza4 tzc4 def /nc [(p-n) (i-g) (c-a) (o-p) (h-i) (a-b)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [4 3 2 8 7 1 5 6 8 5 3 7 2 1 4 6 6 3 5 4 3 7 2 8 4 1 6 7 8 2 3 5 1 5 4 8 7 2 3 6 8 1 7 6 2 5 4 3] def /ndif1 2 def /ndif2 -1 def } if %C ncol 1 eq { %M /tza4 tzm4 def /nc [(p-n) (i-g) (c-a) (o-p) (h-i) (a-b)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [6 7 8 2 3 5 4 1 7 2 3 6 1 5 4 8 6 4 8 5 3 7 2 1 7 2 8 6 3 5 4 3 8 1 7 5 2 6 4 3 4 3 2 8 7 1 5 6] def /ndif1 2 def /ndif2 -1 def } if %M ncol 2 eq { %Y /tza4 tzy4 def /nc [(p-n) (i-g) (c-a) (o-p) (h-i) (a-b)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [8 5 3 7 2 1 4 6 6 3 5 4 3 7 2 8 4 3 2 8 7 1 5 6 5 3 2 8 7 6 1 4 8 4 5 1 6 3 2 7 7 6 5 2 3 4 1 8] def /ndif1 4 def /ndif2 -2 def } if %Y ncol 3 eq { %N /tza4 tzn4 def /nc [(p-n) (i-g) (c-a) (o-p) (h-i) (a-b)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [6 7 8 2 3 5 4 1 7 2 3 6 1 5 4 8 6 4 8 5 3 7 2 1 7 2 8 6 3 5 4 3 8 1 7 5 2 6 4 3 4 3 2 8 7 1 5 6] def /ndif1 2 def /ndif2 -1 def } if %N 0 setgray 250 /Times-Roman FS 0 1 5 {/j exch def /iy0 500 j 600 mul add def 5000 iy0 moveto nc j get show } for %j TK [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace 0 1 07 {/j exch def /ix0 0100 j 600 mul add def 0 1 05 {/l exch def /iy0 0300 l 600 mul add def /k l 8 mul j add def /i1 nl l get def /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor /ixd 600 def ix0 iy0 moveto ixd 000 rlineto 000 ixd rlineto ixd neg 000 rlineto closepath fill l 2 le {/i1 nl l get ndif1 add def} {/i1 nl l get ndif2 add def} ifelse /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor ix0 300 add iy0 300 add ar 2.5 mul 0 360 arc closepath fill /i1 nl l get def /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor ix0 300 add iy0 300 add ar 1.5 mul 0 360 arc closepath fill /i1 nl l get def /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor ix0 300 add iy0 300 add moveto /m ak k get exec def m 1 eq {ar 2.6 mul 0 rlineto closepath stroke} if %0 m 2 eq {ar 2.6 mul 45 sin mul ar 2.6 mul 45 cos mul rlineto closepath stroke} if %45 m 3 eq {0 ar 2.6 mul rlineto closepath stroke} if %90 m 4 eq {ar 2.6 mul 135 sin mul ar 2.6 mul 135 cos mul rlineto closepath stroke} if %135 m 5 eq {ar 2.6 mul neg 0 rlineto closepath stroke} if %0 m 6 eq {ar 2.6 mul 235 sin mul ar 2.6 mul 235 cos mul rlineto closepath stroke} if %45 m 7 eq {0 ar 2.6 mul neg rlineto closepath stroke} if %0 m 8 eq {ar 2.6 mul 315 sin mul ar 2.6 mul 315 cos mul rlineto closepath stroke} if %45 } for %l } for %j 0 setgray 250 /Times-Roman FS 1500 50 moveto (Landoltringe ) showde (Landolt-rings ) showen 250 /Times-Italic FS tef ncol get show 5000 50 moveto (Code) show xab 0 translate 50 0 translate } for %ncol=0,1,2,3 showpage } if %xcolorl=2 xcolorl 3 eq {%xcolorl=3 8 /Times-ISOL1 FS 72 82 moveto (Bild B6n: Landoltringe ) showde (Picture B6n: Landolt\255rings ) showen 8 /TimesBI-ISOL1 FS (N\255C ) show 8 /Times-ISOL1 FS (und ) showde (and ) showen 8 /TimesBI-ISOL1 FS (N\255M) show 8 /Times-ISOL1 FS (; PS\255Operator) showde (; PS operator) showen (; PS operator) showes (; PS operator) showfr (; PS operator) showit (; PS operator) showjp (; PS operator) showm 8 /TimesI-ISOL1 FS ( LAB* setcolor) show 8 /Times-ISOL1 FS 72 90 translate /pixf 16.67 def 0.1667 pixf div MM 0.1667 pixf div MM scale 15 setlinewidth 1 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath fill 0 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath stroke /xab 5400 def 50 0 translate /ar 80 def ar setlinewidth /tef [(N-C) (N-M) (N-Y) (N-W)] def /tzc4 64 array def /tzm4 64 array def /tza4 64 array def 0 1 1 {/ncol exch def 0 1 15 {/j exch def [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace /ISYSLAB where {pop /ISYSLABL ISYSLAB def} {/ISYSLABL 0 def} ifelse /ISYSTEM where {pop /ISYSTEML ISYSTEM def} {/ISYSTEML 0 def} ifelse ISYSLABL 0 eq {0 ncol eq {/LABs0X [40.62 -30.34 -45.01] def} if %C 1 ncol eq {/LABs0X [30.12 75.28 -8.36] def} if %M 2 ncol eq {/LABs0X [72.37 -10.26 91.75] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 1 eq {0 ncol eq {/LABs0X [86.87 -46.16 -13.55] def} if %C 1 ncol eq {/LABs0X [57.29 94.35 -20.69] def} if %M 2 ncol eq {/LABs0X [92.65 -20.69 90.75] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [95.40 0.00 0.00] def %LABW100 /L*NN 18.00 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.40 def /A*WW 0.00 def /B*WW 0.00 def } if ISYSLABL 2 eq {0 ncol eq {/LABs0X [40.62 -30.34 -45.01] def} if %C 1 ncol eq {/LABs0X [30.12 75.28 -8.36] def} if %M 2 ncol eq {/LABs0X [72.37 -10.26 91.75] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 3 eq {0 ncol eq {/LABs0X [69.43 -44.46 -13.14] def} if %C 1 ncol eq {/LABs0X [41.25 89.48 -19.47] def} if %M 2 ncol eq {/LABs0X [75.03 -20.05 85.13] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.70 0.00 0.00] def %LABW100 /L*NN 17.70 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.41 def /A*WW 0.00 def /B*WW 0.00 def } if /jmul 1 j 15 div sub def /LSs0 LABs0X 0 get jmul mul def /LS* LSs0 18.01 add def /l*CIE LS* L*NN sub L*WW L*NN sub 0.0001 add div def /ASs0 LABs0X 1 get jmul mul def /AS* ASs0 A*NN A*WW A*NN sub l*CIE mul add add def /BSs0 LABs0X 2 get jmul mul def /BS* BSs0 B*NN B*WW B*NN sub l*CIE mul add add def ncol 0 eq {/j4 j 4 mul def tzc4 j4 LS* put tzc4 j4 1 add AS* put tzc4 j4 2 add BS* put } if %O ncol 1 eq {/j4 j 4 mul def tzm4 j4 LS* put tzm4 j4 1 add AS* put tzm4 j4 2 add BS* put } if %L } for %j=0,15 } for %ncol=0,1 0 1 1 {/ncol exch def %=0,1,2,3 C,M,Y,N ncol 0 eq { %C /tza4 tzc4 def /nc [(p-n) (i-g) (c-a) (o-p) (h-i) (a-b)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [4 3 2 8 7 1 5 6 8 5 3 7 2 1 4 6 6 3 5 4 3 7 2 8 4 1 6 7 8 2 3 5 1 5 4 8 7 2 3 6 8 1 7 6 2 5 4 3] def /ndif1 2 def /ndif2 -1 def } if %C ncol 1 eq { %M /tza4 tzm4 def /nc [(p-n) (i-g) (c-a) (o-p) (h-i) (a-b)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [6 7 8 2 3 5 4 1 7 2 3 6 1 5 4 8 6 4 8 5 3 7 2 1 7 2 8 6 3 5 4 3 8 1 7 5 2 6 4 3 4 3 2 8 7 1 5 6] def /ndif1 2 def /ndif2 -1 def } if %M ncol 2 eq { %Y /tza4 tzy4 def /nc [(p-n) (i-g) (c-a) (o-p) (h-i) (a-b)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [8 5 3 7 2 1 4 6 6 3 5 4 3 7 2 8 4 3 2 8 7 1 5 6 5 3 2 8 7 6 1 4 8 4 5 1 6 3 2 7 7 6 5 2 3 4 1 8] def /ndif1 4 def /ndif2 -2 def } if %Y ncol 3 eq { %N /tza4 tzn4 def /nc [(p-n) (i-g) (c-a) (o-p) (h-i) (a-b)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [6 7 8 2 3 5 4 1 7 2 3 6 1 5 4 8 6 4 8 5 3 7 2 1 7 2 8 6 3 5 4 3 8 1 7 5 2 6 4 3 4 3 2 8 7 1 5 6] def /ndif1 2 def /ndif2 -1 def } if %N 0 setgray 250 /Times-Roman FS 0 1 5 {/j exch def /iy0 500 j 600 mul add def 5000 iy0 moveto nc j get show } for %j TK [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace 0 1 07 {/j exch def /ix0 0100 j 600 mul add def 0 1 05 {/l exch def /iy0 0300 l 600 mul add def /k l 8 mul j add def /i1 nl l get def /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor /ixd 600 def ix0 iy0 moveto ixd 000 rlineto 000 ixd rlineto ixd neg 000 rlineto closepath fill l 2 le {/i1 nl l get ndif1 add def} {/i1 nl l get ndif2 add def} ifelse /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor ix0 300 add iy0 300 add ar 2.5 mul 0 360 arc closepath fill /i1 nl l get def /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor ix0 300 add iy0 300 add ar 1.5 mul 0 360 arc closepath fill /i1 nl l get def /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor ix0 300 add iy0 300 add moveto /m ak k get exec def m 1 eq {ar 2.6 mul 0 rlineto closepath stroke} if %0 m 2 eq {ar 2.6 mul 45 sin mul ar 2.6 mul 45 cos mul rlineto closepath stroke} if %45 m 3 eq {0 ar 2.6 mul rlineto closepath stroke} if %90 m 4 eq {ar 2.6 mul 135 sin mul ar 2.6 mul 135 cos mul rlineto closepath stroke} if %135 m 5 eq {ar 2.6 mul neg 0 rlineto closepath stroke} if %0 m 6 eq {ar 2.6 mul 235 sin mul ar 2.6 mul 235 cos mul rlineto closepath stroke} if %45 m 7 eq {0 ar 2.6 mul neg rlineto closepath stroke} if %0 m 8 eq {ar 2.6 mul 315 sin mul ar 2.6 mul 315 cos mul rlineto closepath stroke} if %45 } for %l } for %j 0 setgray 250 /Times-Roman FS 1500 50 moveto (Landoltringe ) showde (Landolt-rings ) showen 250 /Times-Italic FS tef ncol get show 5000 50 moveto (Code) show xab 0 translate 50 0 translate } for %ncol=0,1,2,3 showpage } if %xcolorl=3 xcolorl 4 eq {%xcolorl=4 8 /Times-ISOL1 FS 72 82 moveto (Bild D6n: Landoltringe ) showde (Picture D6n: Landolt\255rings ) showen 8 /TimesBI-ISOL1 FS (N\255O ) show 8 /Times-ISOL1 FS (und ) showde (and ) showen 8 /TimesBI-ISOL1 FS (N\255L) show 8 /Times-ISOL1 FS (; PS\255Operator) showde (; PS operator) showen (; PS operator) showes (; PS operator) showfr (; PS operator) showit (; PS operator) showjp (; PS operator) showm 8 /TimesI-ISOL1 FS ( LAB* setcolor ) show 8 /Times-ISOL1 FS 72 90 translate /pixf 16.67 def 0.1667 pixf div MM dup scale 15 setlinewidth 1 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath fill 0 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath stroke /xab 5400 def 50 0 translate /ar 80 def ar setlinewidth /tef [(N-O) (N-L) (N-V) (N-W)] def /tzo4 64 array def /tzl4 64 array def /tza4 64 array def 0 1 1 {/ncol exch def 0 1 15 {/j exch def [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace /ISYSLAB where {pop /ISYSLABL ISYSLAB def} {/ISYSLABL 0 def} ifelse /ISYSTEM where {pop /ISYSTEML ISYSTEM def} {/ISYSTEML 0 def} ifelse ISYSLABL 0 eq {0 ncol eq {/LABs0X [29.93 65.39 50.52] def} if %O 1 ncol eq {/LABs0X [32.89 -62.83 34.96] def} if %L 2 ncol eq {/LABs0X [ 7.71 31.10 -44.40] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 1 eq {0 ncol eq {/LABs0X [50.49 76.92 64.55] def} if %O 1 ncol eq {/LABs0X [83.62 -82.75 79.90] def} if %L 2 ncol eq {/LABs0X [25.71 31.45 -44.29] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [95.40 0.00 0.00] def %LABW100 /L*NN 18.00 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.40 def /A*WW 0.00 def /B*WW 0.00 def } if ISYSLABL 2 eq {0 ncol eq {/LABs0X [29.93 65.39 50.52] def} if %O 1 ncol eq {/LABs0X [32.89 -62.83 34.96] def} if %L 2 ncol eq {/LABs0X [ 7.71 31.10 -44.40] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 3 eq {0 ncol eq {/LABs0X [34.99 71.79 50.18] def} if %O 1 ncol eq {/LABs0X [66.29 -79.08 74.11] def} if %L 2 ncol eq {/LABs0X [14.04 24.65 -37.54] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.70 0.00 0.00] def %LABW100 /L*NN 17.70 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.41 def /A*WW 0.00 def /B*WW 0.00 def } if /jmul 1 j 15 div sub def /LSs0 LABs0X 0 get jmul mul def /LS* LSs0 18.01 add def /l*CIE LS* L*NN sub L*WW L*NN sub 0.0001 add div def /ASs0 LABs0X 1 get jmul mul def /AS* ASs0 A*NN A*WW A*NN sub l*CIE mul add add def /BSs0 LABs0X 2 get jmul mul def /BS* BSs0 B*NN B*WW B*NN sub l*CIE mul add add def ncol 0 eq {/j4 j 4 mul def tzo4 j4 LS* put tzo4 j4 1 add AS* put tzo4 j4 2 add BS* put } if %O ncol 1 eq {/j4 j 4 mul def tzl4 j4 LS* put tzl4 j4 1 add AS* put tzl4 j4 2 add BS* put } if %L } for %j=0,15 } for %ncol=0,1 0 1 1 {/ncol exch def %=0,1,2,3 O,L,V,N ncol 0 eq { %O /tza4 tzo4 def /nc [(p-n) (i-g) (c-a) (o-p) (h-i) (a-b)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [4 3 2 8 7 1 5 6 8 5 3 7 2 1 4 6 6 3 5 4 3 7 2 8 4 1 6 7 8 2 3 5 1 5 4 8 7 2 3 6 8 1 7 6 2 5 4 3] def /ndif1 2 def /ndif2 -1 def } if %C ncol 1 eq { %L /tza4 tzl4 def /nc [(p-n) (i-g) (c-a) (o-p) (h-i) (a-b)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [6 7 8 2 3 5 4 1 7 2 3 6 1 5 4 8 6 4 8 5 3 7 2 1 7 2 8 6 3 5 4 3 8 1 7 5 2 6 4 3 4 3 2 8 7 1 5 6] def /ndif1 2 def /ndif2 -1 def } if %M ncol 2 eq { %V /tza4 tzv4 def /nc [(p-n) (i-g) (c-a) (o-p) (h-i) (a-b)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [8 5 3 7 2 1 4 6 6 3 5 4 3 7 2 8 4 3 2 8 7 1 5 6 5 3 2 8 7 6 1 4 8 4 5 1 6 3 2 7 7 6 5 2 3 4 1 8] def /ndif1 2 def /ndif2 -1 def } if %V ncol 3 eq { %N /tza4 tzn4 def /nc [(p-n) (i-g) (c-a) (o-p) (h-i) (a-b)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [6 7 8 2 3 5 4 1 7 2 3 6 1 5 4 8 6 4 8 5 3 7 2 1 7 2 8 6 3 5 4 3 8 1 7 5 2 6 4 3 4 3 2 8 7 1 5 6] def /ndif1 2 def /ndif2 -1 def } if %N 0 setgray 250 /Times-Roman FS 0 1 5 {/j exch def /iy0 500 j 600 mul add def 5000 iy0 moveto nc j get show } for %j TK [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace 0 1 07 {/j exch def /ix0 0100 j 600 mul add def 0 1 05 {/l exch def /iy0 0300 l 600 mul add def /k l 8 mul j add def /i1 nl l get def /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor /ixd 600 def ix0 iy0 moveto ixd 000 rlineto 000 ixd rlineto ixd neg 000 rlineto closepath fill l 2 le {/i1 nl l get ndif1 add def} {/i1 nl l get ndif2 add def} ifelse /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor ix0 300 add iy0 300 add ar 2.5 mul 0 360 arc closepath fill /i1 nl l get def /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor ix0 300 add iy0 300 add ar 1.5 mul 0 360 arc closepath fill /i1 nl l get def /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor ix0 300 add iy0 300 add moveto /m ak k get exec def m 1 eq {ar 2.6 mul 0 rlineto closepath stroke} if %0 m 2 eq {ar 2.6 mul 45 sin mul ar 2.6 mul 45 cos mul rlineto closepath stroke} if %45 m 3 eq {0 ar 2.6 mul rlineto closepath stroke} if %90 m 4 eq {ar 2.6 mul 135 sin mul ar 2.6 mul 135 cos mul rlineto closepath stroke} if %135 m 5 eq {ar 2.6 mul neg 0 rlineto closepath stroke} if %0 m 6 eq {ar 2.6 mul 235 sin mul ar 2.6 mul 235 cos mul rlineto closepath stroke} if %45 m 7 eq {0 ar 2.6 mul neg rlineto closepath stroke} if %0 m 8 eq {ar 2.6 mul 315 sin mul ar 2.6 mul 315 cos mul rlineto closepath stroke} if %45 } for %l } for %j 0 setgray 250 /Times-Roman FS 1500 50 moveto (Landoltringe ) showde (Landolt-rings ) showen 250 /Times-Italic FS tef ncol get show 5000 50 moveto (Code) show xab 0 translate 50 0 translate } for %ncol=0,1,2,3 grestore showpage } if %xcolorl=4 %%Trailer %line 379 %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 16 %line 389 %%EndDocument EndEPSF grestore gsave BeginEPSF 25.5 MM 20.5 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 17 %!PS-Adobe-3.0 EPSF-3.0 LE22/L10-7N.EPS 20040101 %%BoundingBox: 60 80 785 580 %%Creator: K. Richter, BAM und TU Berlin, 2000.06.16 /bd {bind}bind def /xc {exch}bd def /tl {translate}bd def /mv {moveto}bd def /rmv {rmoveto}bd def /rl {rlineto}bd def /cl {closepath}bd def /sk {stroke}bd def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def %ANFA CMYKDEF %CMYKDEA0 (A0=Standard-Drucker-CMYKDEF) 15.3.97 /tzac [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzam [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzay [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzan [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tza0 [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000] def /tza1 [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000] def %ENDE CMYKD /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y n {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y n {setcmykcolor rec stroke} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %ANFA OUTLINO0 951204 /pixf 1.0 def /ueg {1.6 pixf mul} bind def /uek {0.8 pixf mul} bind def /ues {0.7 pixf mul} bind def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /outxshowf {show} bind def /outxshow {show} bind def /SK {250 16.67 div 1 sub pixf mul /Symbol FS} bind def /SM {300 16.67 div 1 sub pixf mul /Symbol FS} bind def /SG {350 16.67 div 1 sub pixf mul /Symbol FS} bind def /outSK {250 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSM {300 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSG {350 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outshowf {setcmykcolor show} bind def /outrecfi { %x y width heigth c m y k setcmykcolor rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmykcolor lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmykcolor stroke} bind def %%EndProlog gsave %LANINDL0.EPS START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %no loops /xcolorl xcolor1 def /xchart xchart1 def %LANINDL0 END 8 /Times-Roman FS %72 83 moveto %!2 (LE22/L10-7N.eps) show xcolorl 0 eq {%xcolorl=0 /cvishow {cvi 6 string cvs show} def /nr1 [(01) (02) (03) (04) (05) (06) (07) (08) (09) (10) (11) (12) (13) (14)] def /tx1 [(A) (B) (C) (D) (E) (F) (G) (H) (I) (J) (K) (L) (M) (N) (O) (P) (Q)] def /cmyktx [(c000*) (1my0*) (0m00*) (c1y0*) (00y0*) (cm10*) (0my0*) (c110*) (c0y0*) (1m10*) (cm00*) (11y0*) (cmy0*) (000n*)] def /olvtx [(o11*) (0lv*) (1l1*) (o0v*) (11v*) (ol0*) (1lv*) (o00*) (o1v*) (0l0*) (ol1*) (00v*) (olv*) (w*)] def /testcolorsLAB[ 61.45 17.53 11.74 % Nr.1 17 Testfarben nach DIN 6169 in LAB 60.69 0.08 28.92 % Nr.2 62.02 -20.58 44.41 % Nr.3 61.20 -33.16 17.07 % Nr.4 62.40 -17.47 -8.55 % Nr.5 61.51 -0.36 -28.39 % Nr.6 61.12 20.15 -24.55 % Nr.7 62.77 27.42 -13.63 % Nr.8 39.92 58.74 27.99 % Nr.9 81.26 -2.89 71.56 % Nr.10 52.23 -42.42 13.60 % Nr.11 30.57 1.41 -46.47 % Nr.12 80.23 11.37 21.04 % Nr.13 40.75 -13.80 24.23 % Nr.14 22.27 0.12 -0.17 % Nr.15 51.65 0.00 0.04 % Nr.16 89.93 0.02 0.03 % Nr.17 ] def /testcolorsCMYK[ 70.8 137.9 120.5 %L no. 01 cmy*PR18/CIETC 102.6 114.7 181.7 %L no. 02 cmy*PR18/CIETC 132.7 65.4 223.5 %L no. 03 cmy*PR18/CIETC 174.1 33.1 159.1 %L no. 04 cmy*PR18/CIETC 165.4 52.0 80.5 %L no. 05 cmy*PR18/CIETC 167.1 78.0 -8.8 %L no. 06 cmy*PR18/CIETC 124.8 130.6 -29.0 %L no. 07 cmy*PR18/CIETC 78.8 139.2 -2.7 %L no. 08 cmy*PR18/CIETC 49.2 267.3 197.0 %L no. 09 cmy*PR18/CIETC 23.1 42.6 220.2 %L no. 10 cmy*PR18/CIETC 230.6 34.1 182.2 %L no. 11 cmy*PR18/CIETC 295.7 165.2 28.5 %L no. 12 cmy*PR18/CIETC 17.9 68.1 88.5 %L no. 13 cmy*PR18/CIETC 197.8 149.1 243.6 %L no. 14 cmy*PR18/CIETC 255.0 255.0 255.0 %L 1.0000 cmy*PR18/N 255.0 0.0 0.0 %L 0.0000 cmy*PR18/C 0.0 255.0 0.0 %L 1.0000 cmy*PR18/M ]def /ISYSLAB where {pop /ISYSLABL ISYSLAB def} {/ISYSLABL 0 def} ifelse /ISYSTEM where {pop /ISYSTEML ISYSTEM def} {/ISYSTEML 0 def} ifelse ISYSLABL 0 eq { %ORS18 /Lab_Feld[ 58.62 -30.63 -42.75 %C 48.13 75.2 -6.8 %M 90.37 -11.16 96.17 %Y 47.94 65.31 52.07 %O 50.9 -62.96 36.71 %L 25.72 31.35 -44.36 %V 18.01 0.5 -0.46 %N 95.41 -0.98 4.76 %W ]def }if ISYSLABL 1 eq { %TLS00 L*=95.41 für Weiss D65 /Lab_Feld[ 86.88 -46.17 -13.56 %C 57.3 94.35 -58.42 %M 92.66 -20.7 90.75 %Y 50.5 76.92 64.54 %O 83.63 -82.77 79.9 %L 30.39 76.06 -103.58 %V 0.0 0.0 0.0 %N 95.41 0.0 0.0 %W ]def }if /Lcya Lab_Feld 0 get def /acya Lab_Feld 1 get def /bcya Lab_Feld 2 get def /Lmag Lab_Feld 3 get def /amag Lab_Feld 4 get def /bmag Lab_Feld 5 get def /Lyel Lab_Feld 6 get def /ayel Lab_Feld 7 get def /byel Lab_Feld 8 get def /Lred Lab_Feld 9 get def /ared Lab_Feld 10 get def /bred Lab_Feld 11 get def /Lgre Lab_Feld 12 get def /agre Lab_Feld 13 get def /bgre Lab_Feld 14 get def /Lblu Lab_Feld 15 get def /ablu Lab_Feld 16 get def /bblu Lab_Feld 17 get def /L*NN Lab_Feld 18 get def /A*NN Lab_Feld 19 get def /B*NN Lab_Feld 20 get def /L*WW Lab_Feld 21 get def /A*WW Lab_Feld 22 get def /B*WW Lab_Feld 23 get def /xs 1150 def /ys xs def /d2 xs 2 div def /d8 xs 8 div def 8 /Times-ISOL1 FS 72 82.5 mv ( 16 equidistant CIELAB steps:) showen ( 16 gleichabst\344ndige CIELAB-Stufen:) showde 8 /TimesI-ISOL1 FS ( C-W, C-N, M-W, M-N, Y-W, Y-N, O-W, ) show (O-N, L-W, L-N, V-W, V-N, N-W, W-N) show 8 /Times-ISOL1 FS ( and 14 CIE\255test colours (left)) showen ( und 14 CIE\255Testfarben (links)) showde 72 90 tl 0.01 MM dup scale 0 0 mv 25000 0 rl 0 17000 rl -25000 0 rl cl sk -600 0 tl 20 setlinewidth 500 /Times-ISOL1 FS 0 setgray 1 1 14 {/i xc def %i=1,14 /x xs 0.8 mul def /y 14.5 ys mul ys i mul sub def x y mv nr1 i 1 sub get show } for %i=1,14 1 1 17 {/i xc def %i=1,17 /x xs i 1 add mul def /y 14.3 ys mul def x y mv tx1 i 1 sub get show } for %i=1,17 400 /Helvetica-Oblique FS [/CIEBasedABC << /RangeABC [0 100 -128 127 -128 127] %L*=0..100, a*=-128..127, b*=-128..127 /DecodeABC [{16 add 116 div} bd {500 div} bd {200 div} bd] %(L*+16)/116, a*/500, b*/200 /MatrixABC [1 1 1 1 0 0 0 0 -1] %L'*+a*, L'*, L'*-b'* /DecodeLMN % fallunterscheidung, vgl. buch S.190 [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bd {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bd {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bd] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace 1 1 14 {/j xc def %j=1,14 1 j eq {/L L*WW Lcya sub def /a acya def /b bcya def} if 2 j eq {/L Lcya def /a acya def /b bcya def} if 3 j eq {/L L*WW Lmag sub def /a amag def /b bmag def} if 4 j eq {/L Lmag def /a amag def /b bmag def} if 5 j eq {/L L*WW Lyel sub def /a ayel def /b byel def} if 6 j eq {/L Lyel def /a ayel def /b byel def} if 7 j eq {/L L*WW Lred sub def /a ared def /b bred def} if 8 j eq {/L Lred def /a ared def /b bred def} if 9 j eq {/L L*WW Lgre sub def /a agre def /b bgre def} if 10 j eq {/L Lgre def /a agre def /b bgre def} if 11 j eq {/L L*WW Lblu sub def /a ablu def /b bblu def} if 12 j eq {/L Lblu def /a ablu def /b bblu def} if 13 j eq {/L L*WW L*NN sub def /a A*NN def /b B*NN def}if 14 j eq {/L L*WW def /a A*WW def /b B*WW def}if 1 1 17 {/i xc def %i=1,17 /x 18.5 xs mul xs i mul sub def /y 13.1 ys mul ys j 1 sub mul sub def j 2 mod 1 eq i 17 lt and { /Ls L*WW L sub i 1 sub 15 div L mul add def /as a a A*WW sub i 1 sub mul 15 div sub def /bs b b B*WW sub i 1 sub mul 15 div sub def } if j 2 mod 1 ne i 17 lt and { /Ls L L L*NN sub i 1 sub mul 15 div sub def /as a a A*NN sub i 1 sub mul 15 div sub def /bs b b B*NN sub i 1 sub mul 15 div sub def } if i 17 eq {%cya mag yel bla setcmykcolor} if /Ls testcolorsLAB j 1 sub 3 mul get def /as testcolorsLAB j 1 sub 3 mul 1 add get def /bs testcolorsLAB j 1 sub 3 mul 2 add get def } if x y mv xs 0 rl 0 ys rl xs neg 0 rl cl Ls as bs setcolor fill } for %i=1,17 } for %j=1,14 25 setlinewidth 0 setgray 0 1 14 {/j xc def %j=1,14 0 1 17 {/i xc def %i=1,17 /xl 18.5 xs mul xs i mul sub xs 4 div sub def /x 18.5 xs mul xs i mul sub def /y 13.1 ys mul ys j 1 sub mul sub def /yu 13.1 ys mul ys j 1 sub mul sub ys 4 div sub def 0 i eq {xl xs 4 div add y mv xs -4 div 0 rl sk} if 0 i ne i 17 ne and {xl y mv xs 2 div 0 rl sk} if 17 i eq {xl xs 4 div add y mv xs 4 div 0 rl sk} if 0 j eq {x y mv 0 ys -4 div rl sk} if 0 j ne j 14 ne and {x yu mv 0 ys 2 div rl sk} if 14 j eq {x y mv 0 ys 4 div rl sk} if } for %i=1,17 } for %j=1,14 ISYSLABL 0 eq {/LAB*T (ORS18) def} if ISYSLABL 1 eq {/LAB*T (TLS00) def} if /showi {0 0.1 ys mul neg rmoveto 300 /Helvetica FS show 0 0.1 ys mul rmoveto 400 /Helvetica-Oblique FS } def 400 /Helvetica FS xs 18.8 mul ys 14.4 mul mv (benutzte Koordinate) showde xs 18.8 mul ys 14.0 mul mv (Quadrate) showde %xs 18.8 mul xs 1.5 mul add ys 14.0 mul mv %(Infeld) showde xs 18.8 mul ys 14.4 mul mv (used coordinate) showen xs 18.8 mul ys 14.0 mul mv (squares) showen %xs 18.8 mul xs 1.5 mul add ys 14.0 mul mv %(center) showen 400 /Helvetica-Oblique FS 1 1 14 {/i xc def %i=1,14 /x xs 18.8 mul def /y 14.5 ys mul ys i mul sub def x y mv (LAB*) show LAB*T showi } for %i=1,14 /colorn [(C) (C) (M) (M) (Y) (Y) (O) (O) (L) (L) (V) (V) (N/W) (N/W)] def 500 /Helvetica-BoldOblique FS 1 2 13 {/i xc def %i=1,13 /x xs 18.6 mul def /y 14.5 ys mul ys i 0.5 add mul sub def x y mv colorn i 1 sub get show } for %i=1,13 600 0 tl showpage } if %xcolorl=0 xcolorl 1 eq {%xcolorl=1 8 /Times-ISOL1 FS 72 82 moveto (Bild B7w: Landoltringe ) showde (Picture B7w: Landolt\255rings ) showen 8 /TimesBI-ISOL1 FS (W\255Y ) show 8 /Times-ISOL1 FS (und ) showde (and ) showen 8 /TimesBI-ISOL1 FS (W\255N) show 8 /Times-ISOL1 FS (; PS\255Operator) showde (; PS operator) showen (; PS operator) showes (; PS operator) showfr (; PS operator) showit (; PS operator) showjp (; PS operator) showm 8 /TimesI-ISOL1 FS ( LAB* setcolor) show 8 /Times-ISOL1 FS 72 90 translate /pixf 16.67 def 0.1667 pixf div MM dup scale 15 setlinewidth 1 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath fill 0 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath stroke /xab 5400 def 50 0 translate /ar 80 def ar setlinewidth /tef [(W-C) (W-M) (W-Y) (W-N)] def /tzy4 64 array def /tzn4 64 array def /tza4 64 array def 2 1 3 {/ncol exch def 0 1 15 {/j exch def [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace /ISYSLAB where {pop /ISYSLABL ISYSLAB def} {/ISYSLABL 0 def} ifelse /ISYSTEM where {pop /ISYSTEML ISYSTEM def} {/ISYSTEML 0 def} ifelse ISYSLABL 0 eq {0 ncol eq {/LABs0X [40.62 -30.34 -45.01] def} if %C 1 ncol eq {/LABs0X [30.12 75.28 -8.36] def} if %M 2 ncol eq {/LABs0X [72.37 -10.26 91.75] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 1 eq {0 ncol eq {/LABs0X [86.87 -46.16 -13.55] def} if %C 1 ncol eq {/LABs0X [57.29 94.35 -20.69] def} if %M 2 ncol eq {/LABs0X [92.65 -20.69 90.75] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [95.40 0.00 0.00] def %LABW100 /L*NN 18.00 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.40 def /A*WW 0.00 def /B*WW 0.00 def } if ISYSLABL 2 eq {0 ncol eq {/LABs0X [40.62 -30.34 -45.01] def} if %C 1 ncol eq {/LABs0X [30.12 75.28 -8.36] def} if %M 2 ncol eq {/LABs0X [72.37 -10.26 91.75] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 3 eq {0 ncol eq {/LABs0X [69.43 -44.46 -13.14] def} if %C 1 ncol eq {/LABs0X [41.25 89.48 -19.47] def} if %M 2 ncol eq {/LABs0X [75.03 -20.05 85.13] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.70 0.00 0.00] def %LABW100 /L*NN 17.70 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.41 def /A*WW 0.00 def /B*WW 0.00 def } if /jmul j 15 div def /LSs0 LABs0X 0 get LABs0W 0 get LABs0X 0 get sub jmul mul add def /LS* LSs0 18.01 add def /l*CIE LS* L*NN sub L*WW L*NN sub 0.0001 add div def /ASs0 LABs0X 1 get LABs0W 1 get LABs0X 1 get sub jmul mul add def /AS* ASs0 A*NN A*WW A*NN sub l*CIE mul add add def /BSs0 LABs0X 2 get LABs0W 2 get LABs0X 2 get sub jmul mul add def /BS* BSs0 B*NN B*WW B*NN sub l*CIE mul add add def ncol 2 eq {/j4 j 4 mul def tzy4 j4 LS* put tzy4 j4 1 add AS* put tzy4 j4 2 add BS* put } if %O ncol 3 eq {/j4 j 4 mul def tzn4 j4 LS* put tzn4 j4 1 add AS* put tzn4 j4 2 add BS* put } if %L } for %j=0,15 } for %ncol=2,3 2 1 3 {/ncol exch def %=0,1,2,3 C,M,Y,N ncol 0 eq { %C /tza4 tzc4 def /nc [(F-D) (8-6) (2-0) (E-F) (7-8) (0-1)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [4 3 2 8 7 1 5 6 8 5 3 7 2 1 4 6 6 3 5 4 3 7 2 8 4 1 6 7 8 2 3 5 1 5 4 8 7 2 3 6 8 1 7 6 2 5 4 3] def /ndif1 2 def /ndif2 -1 def } if %C ncol 1 eq { %M /tza4 tzm4 def /nc [(F-D) (8-6) (2-0) (E-F) (7-8) (0-1)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [6 7 8 2 3 5 4 1 7 2 3 6 1 5 4 8 6 4 8 5 3 7 2 1 7 2 8 6 3 5 4 3 8 1 7 5 2 6 4 3 4 3 2 8 7 1 5 6] def /ndif1 2 def /ndif2 -1 def } if %M ncol 2 eq { %Y /tza4 tzy4 def /nc [(F-B) (9-5) (4-0) (D-F) (6-8) (0-2)] def /nl [0 6 11 2 9 15] def %entspricht F 9 4, D 6 0, +4, -2 /ak [8 5 3 7 2 1 4 6 6 3 5 4 3 7 2 8 4 3 2 8 7 1 5 6 5 3 2 8 7 6 1 4 8 4 5 1 6 3 2 7 7 6 5 2 3 4 1 8] def /ndif1 4 def /ndif2 -2 def } if %Y ncol 3 eq { %N /tza4 tzn4 def /nc [(F-D) (8-6) (2-0) (E-F) (7-8) (0-1)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [6 7 8 2 3 5 4 1 7 2 3 6 1 5 4 8 6 4 8 5 3 7 2 1 7 2 8 6 3 5 4 3 8 1 7 5 2 6 4 3 4 3 2 8 7 1 5 6] def /ndif1 2 def /ndif2 -1 def } if %N 0 setgray 250 /Times-Roman FS 0 1 5 {/j exch def /iy0 500 j 600 mul add def 5000 iy0 moveto nc j get show } for %j TK [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace 0 1 07 {/j exch def /ix0 0100 j 600 mul add def 0 1 05 {/l exch def /iy0 0300 l 600 mul add def /k l 8 mul j add def /i1 nl l get def /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor /ixd 600 def ix0 iy0 moveto ixd 000 rlineto 000 ixd rlineto ixd neg 000 rlineto closepath fill l 2 le {/i1 nl l get ndif1 add def} {/i1 nl l get ndif2 add def} ifelse /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor ix0 300 add iy0 300 add ar 2.5 mul 0 360 arc closepath fill /i1 nl l get def /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor ix0 300 add iy0 300 add ar 1.5 mul 0 360 arc closepath fill /i1 nl l get def /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor ix0 300 add iy0 300 add moveto /m ak k get exec def m 1 eq {ar 2.6 mul 0 rlineto closepath stroke} if %0 m 2 eq {ar 2.6 mul 45 sin mul ar 2.6 mul 45 cos mul rlineto closepath stroke} if %45 m 3 eq {0 ar 2.6 mul rlineto closepath stroke} if %90 m 4 eq {ar 2.6 mul 135 sin mul ar 2.6 mul 135 cos mul rlineto closepath stroke} if %135 m 5 eq {ar 2.6 mul neg 0 rlineto closepath stroke} if %0 m 6 eq {ar 2.6 mul 235 sin mul ar 2.6 mul 235 cos mul rlineto closepath stroke} if %45 m 7 eq {0 ar 2.6 mul neg rlineto closepath stroke} if %0 m 8 eq {ar 2.6 mul 315 sin mul ar 2.6 mul 315 cos mul rlineto closepath stroke} if %45 } for %l } for %j 0 setgray 250 /Times-Roman FS 1500 50 moveto (Landoltringe ) showde (Landolt-rings ) showen 250 /Times-Italic FS tef ncol get show 5000 50 moveto (Code) show xab 0 translate 50 0 translate } for %ncol=0,1,2,3 showpage } if %xcolorl=1 xcolorl 2 eq {%xcolorl=2 8 /Times-ISOL1 FS 72 82 moveto (Bild B7n: Landoltringe ) showde (Picture B7n: Landolt\255rings ) showen 8 /TimesBI-ISOL1 FS (W\255Y ) show 8 /Times-ISOL1 FS (und ) showde (and ) showen 8 /TimesBI-ISOL1 FS (W\255N) show 8 /Times-ISOL1 FS (; PS\255Operator) showde (; PS operator) showen (; PS operator) showes (; PS operator) showfr (; PS operator) showit (; PS operator) showjp (; PS operator) showm 8 /TimesI-ISOL1 FS ( LAB* setcolor) show 8 /Times-ISOL1 FS 72 90 translate /pixf 16.67 def 0.1667 pixf div MM dup scale 15 setlinewidth 1 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath fill 0 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath stroke /xab 5400 def 50 0 translate /ar 80 def ar setlinewidth /tef [(N-C) (N-M) (N-Y) (N-W)] def /tzy4 64 array def /tzn4 64 array def /tza4 64 array def 2 1 3 {/ncol exch def 0 1 15 {/j exch def [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace /ISYSLAB where {pop /ISYSLABL ISYSLAB def} {/ISYSLABL 0 def} ifelse /ISYSTEM where {pop /ISYSTEML ISYSTEM def} {/ISYSTEML 0 def} ifelse ISYSLABL 0 eq {0 ncol eq {/LABs0X [40.62 -30.34 -45.01] def} if %C 1 ncol eq {/LABs0X [30.12 75.28 -8.36] def} if %M 2 ncol eq {/LABs0X [72.37 -10.26 91.75] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 1 eq {0 ncol eq {/LABs0X [86.87 -46.16 -13.55] def} if %C 1 ncol eq {/LABs0X [57.29 94.35 -20.69] def} if %M 2 ncol eq {/LABs0X [92.65 -20.69 90.75] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [95.40 0.00 0.00] def %LABW100 /L*NN 18.00 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.40 def /A*WW 0.00 def /B*WW 0.00 def } if ISYSLABL 2 eq {0 ncol eq {/LABs0X [40.62 -30.34 -45.01] def} if %C 1 ncol eq {/LABs0X [30.12 75.28 -8.36] def} if %M 2 ncol eq {/LABs0X [72.37 -10.26 91.75] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 3 eq {0 ncol eq {/LABs0X [69.43 -44.46 -13.14] def} if %C 1 ncol eq {/LABs0X [41.25 89.48 -19.47] def} if %M 2 ncol eq {/LABs0X [75.03 -20.05 85.13] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.70 0.00 0.00] def %LABW100 /L*NN 17.70 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.41 def /A*WW 0.00 def /B*WW 0.00 def } if /jmul 1 j 15 div sub def ncol 2 le { /LSs0 LABs0X 0 get jmul mul def /LS* LSs0 18.01 add def /l*CIE LS* L*NN sub L*WW L*NN sub 0.0001 add div def /ASs0 LABs0X 1 get jmul mul def /AS* ASs0 A*NN A*WW A*NN sub l*CIE mul add add def /BSs0 LABs0X 2 get jmul mul def /BS* BSs0 B*NN B*WW B*NN sub l*CIE mul add add def } { /LSs0 LABs0X 0 get LABs0W 0 get LABs0X 0 get sub jmul mul add def /LS* LSs0 18.01 add def /l*CIE LS* L*NN sub L*WW L*NN sub 0.0001 add div def /ASs0 LABs0X 1 get LABs0W 1 get LABs0X 1 get sub jmul mul add def /AS* ASs0 A*NN A*WW A*NN sub l*CIE mul add add def /BSs0 LABs0X 2 get LABs0W 2 get LABs0X 2 get sub jmul mul add def /BS* BSs0 B*NN B*WW B*NN sub l*CIE mul add add def } ifelse ncol 2 eq {/j4 j 4 mul def tzy4 j4 LS* put tzy4 j4 1 add AS* put tzy4 j4 2 add BS* put } if %O ncol 3 eq {/j4 j 4 mul def tzn4 j4 LS* put tzn4 j4 1 add AS* put tzn4 j4 2 add BS* put } if %L } for %j=0,15 } for %ncol=2,3 2 1 3 {/ncol exch def %=0,1,2,3 C,M,Y,N ncol 0 eq { %C /tza4 tzc4 def /nc [(p-n) (i-g) (c-a) (o-p) (h-i) (a-b)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [4 3 2 8 7 1 5 6 8 5 3 7 2 1 4 6 6 3 5 4 3 7 2 8 4 1 6 7 8 2 3 5 1 5 4 8 7 2 3 6 8 1 7 6 2 5 4 3] def /ndif1 2 def /ndif2 -1 def } if %C ncol 1 eq { %M /tza4 tzm4 def /nc [(p-n) (i-g) (c-a) (o-p) (h-i) (a-b)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [6 7 8 2 3 5 4 1 7 2 3 6 1 5 4 8 6 4 8 5 3 7 2 1 7 2 8 6 3 5 4 3 8 1 7 5 2 6 4 3 4 3 2 8 7 1 5 6] def /ndif1 2 def /ndif2 -1 def } if %M ncol 2 eq { %Y /tza4 tzy4 def /nc [(p-n) (i-g) (c-a) (o-p) (h-i) (a-b)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [8 5 3 7 2 1 4 6 6 3 5 4 3 7 2 8 4 3 2 8 7 1 5 6 5 3 2 8 7 6 1 4 8 4 5 1 6 3 2 7 7 6 5 2 3 4 1 8] def /ndif1 2 def /ndif2 -1 def } if %Y ncol 3 eq { %N /tza4 tzn4 def /nc [(p-n) (i-g) (c-a) (o-p) (h-i) (a-b)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [6 7 8 2 3 5 4 1 7 2 3 6 1 5 4 8 6 4 8 5 3 7 2 1 7 2 8 6 3 5 4 3 8 1 7 5 2 6 4 3 4 3 2 8 7 1 5 6] def /ndif1 2 def /ndif2 -1 def } if %N 0 setgray 250 /Times-Roman FS 0 1 5 {/j exch def /iy0 500 j 600 mul add def 5000 iy0 moveto nc j get show } for %j TK [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace 0 1 07 {/j exch def /ix0 0100 j 600 mul add def 0 1 05 {/l exch def /iy0 0300 l 600 mul add def /k l 8 mul j add def /i1 nl l get def /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor /ixd 600 def ix0 iy0 moveto ixd 000 rlineto 000 ixd rlineto ixd neg 000 rlineto closepath fill l 2 le {/i1 nl l get ndif1 add def} {/i1 nl l get ndif2 add def} ifelse /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor ix0 300 add iy0 300 add ar 2.5 mul 0 360 arc closepath fill /i1 nl l get def /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor ix0 300 add iy0 300 add ar 1.5 mul 0 360 arc closepath fill /i1 nl l get def /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor ix0 300 add iy0 300 add moveto /m ak k get exec def m 1 eq {ar 2.6 mul 0 rlineto closepath stroke} if %0 m 2 eq {ar 2.6 mul 45 sin mul ar 2.6 mul 45 cos mul rlineto closepath stroke} if %45 m 3 eq {0 ar 2.6 mul rlineto closepath stroke} if %90 m 4 eq {ar 2.6 mul 135 sin mul ar 2.6 mul 135 cos mul rlineto closepath stroke} if %135 m 5 eq {ar 2.6 mul neg 0 rlineto closepath stroke} if %0 m 6 eq {ar 2.6 mul 235 sin mul ar 2.6 mul 235 cos mul rlineto closepath stroke} if %45 m 7 eq {0 ar 2.6 mul neg rlineto closepath stroke} if %0 m 8 eq {ar 2.6 mul 315 sin mul ar 2.6 mul 315 cos mul rlineto closepath stroke} if %45 } for %l } for %j 0 setgray 250 /Times-Roman FS 1500 50 moveto (Landoltringe ) showde (Landolt-rings ) showen 250 /Times-Italic FS tef ncol get show 5000 50 moveto (Code) show xab 0 translate 50 0 translate } for %ncol=0,1,2,3 showpage } if %xcolorl=2 xcolorl 3 eq {%xcolorl=3 8 /Times-ISOL1 FS 72 82 moveto (Bild B7n: Landoltringe ) showde (Picture B7n: Landolt\255rings ) showen 8 /TimesBI-ISOL1 FS (W\255Y ) show 8 /Times-ISOL1 FS (und ) showde (and ) showen 8 /TimesBI-ISOL1 FS (W\255N) show 8 /Times-ISOL1 FS (; PS\255Operator) showde (; PS operator) showen (; PS operator) showes (; PS operator) showfr (; PS operator) showit (; PS operator) showjp (; PS operator) showm 8 /TimesI-ISOL1 FS ( LAB* setcolor) show 8 /Times-ISOL1 FS 72 90 translate /pixf 16.67 def 0.1667 pixf div MM dup scale 15 setlinewidth 1 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath fill 0 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath stroke /xab 5400 def 50 0 translate /ar 80 def ar setlinewidth /tef [(N-C) (N-M) (N-Y) (N-W)] def /tzy4 64 array def /tzn4 64 array def /tza4 64 array def 2 1 3 {/ncol exch def 0 1 15 {/j exch def [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace /ISYSLAB where {pop /ISYSLABL ISYSLAB def} {/ISYSLABL 0 def} ifelse /ISYSTEM where {pop /ISYSTEML ISYSTEM def} {/ISYSTEML 0 def} ifelse ISYSLABL 0 eq {0 ncol eq {/LABs0X [40.62 -30.34 -45.01] def} if %C 1 ncol eq {/LABs0X [30.12 75.28 -8.36] def} if %M 2 ncol eq {/LABs0X [72.37 -10.26 91.75] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 1 eq {0 ncol eq {/LABs0X [86.87 -46.16 -13.55] def} if %C 1 ncol eq {/LABs0X [57.29 94.35 -20.69] def} if %M 2 ncol eq {/LABs0X [92.65 -20.69 90.75] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [95.40 0.00 0.00] def %LABW100 /L*NN 18.00 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.40 def /A*WW 0.00 def /B*WW 0.00 def } if ISYSLABL 2 eq {0 ncol eq {/LABs0X [40.62 -30.34 -45.01] def} if %C 1 ncol eq {/LABs0X [30.12 75.28 -8.36] def} if %M 2 ncol eq {/LABs0X [72.37 -10.26 91.75] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 3 eq {0 ncol eq {/LABs0X [69.43 -44.46 -13.14] def} if %C 1 ncol eq {/LABs0X [41.25 89.48 -19.47] def} if %M 2 ncol eq {/LABs0X [75.03 -20.05 85.13] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.70 0.00 0.00] def %LABW100 /L*NN 17.70 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.41 def /A*WW 0.00 def /B*WW 0.00 def } if /jmul 1 j 15 div sub def ncol 2 le { /LSs0 LABs0X 0 get jmul mul def /LS* LSs0 18.01 add def /l*CIE LS* L*NN sub L*WW L*NN sub 0.0001 add div def /ASs0 LABs0X 1 get jmul mul def /AS* ASs0 A*NN A*WW A*NN sub l*CIE mul add add def /BSs0 LABs0X 2 get jmul mul def /BS* BSs0 B*NN B*WW B*NN sub l*CIE mul add add def } { /LSs0 LABs0X 0 get LABs0W 0 get LABs0X 0 get sub jmul mul add def /LS* LSs0 18.01 add def /l*CIE LS* L*NN sub L*WW L*NN sub 0.0001 add div def /ASs0 LABs0X 1 get LABs0W 1 get LABs0X 1 get sub jmul mul add def /AS* ASs0 A*NN A*WW A*NN sub l*CIE mul add add def /BSs0 LABs0X 2 get LABs0W 2 get LABs0X 2 get sub jmul mul add def /BS* BSs0 B*NN B*WW B*NN sub l*CIE mul add add def } ifelse ncol 2 eq {/j4 j 4 mul def tzy4 j4 LS* put tzy4 j4 1 add AS* put tzy4 j4 2 add BS* put } if %O ncol 3 eq {/j4 j 4 mul def tzn4 j4 LS* put tzn4 j4 1 add AS* put tzn4 j4 2 add BS* put } if %L } for %j=0,15 } for %ncol=2,3 2 1 3 {/ncol exch def %=0,1,2,3 C,M,Y,N ncol 0 eq { %C /tza4 tzc4 def /nc [(p-n) (i-g) (c-a) (o-p) (h-i) (a-b)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [4 3 2 8 7 1 5 6 8 5 3 7 2 1 4 6 6 3 5 4 3 7 2 8 4 1 6 7 8 2 3 5 1 5 4 8 7 2 3 6 8 1 7 6 2 5 4 3] def /ndif1 2 def /ndif2 -1 def } if %C ncol 1 eq { %M /tza4 tzm4 def /nc [(p-n) (i-g) (c-a) (o-p) (h-i) (a-b)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [6 7 8 2 3 5 4 1 7 2 3 6 1 5 4 8 6 4 8 5 3 7 2 1 7 2 8 6 3 5 4 3 8 1 7 5 2 6 4 3 4 3 2 8 7 1 5 6] def /ndif1 2 def /ndif2 -1 def } if %M ncol 2 eq { %Y /tza4 tzy4 def /nc [(p-n) (i-g) (c-a) (o-p) (h-i) (a-b)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [8 5 3 7 2 1 4 6 6 3 5 4 3 7 2 8 4 3 2 8 7 1 5 6 5 3 2 8 7 6 1 4 8 4 5 1 6 3 2 7 7 6 5 2 3 4 1 8] def /ndif1 2 def /ndif2 -1 def } if %Y ncol 3 eq { %N /tza4 tzn4 def /nc [(p-n) (i-g) (c-a) (o-p) (h-i) (a-b)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [6 7 8 2 3 5 4 1 7 2 3 6 1 5 4 8 6 4 8 5 3 7 2 1 7 2 8 6 3 5 4 3 8 1 7 5 2 6 4 3 4 3 2 8 7 1 5 6] def /ndif1 2 def /ndif2 -1 def } if %N 0 setgray 250 /Times-Roman FS 0 1 5 {/j exch def /iy0 500 j 600 mul add def 5000 iy0 moveto nc j get show } for %j TK [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace 0 1 07 {/j exch def /ix0 0100 j 600 mul add def 0 1 05 {/l exch def /iy0 0300 l 600 mul add def /k l 8 mul j add def /i1 nl l get def /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor /ixd 600 def ix0 iy0 moveto ixd 000 rlineto 000 ixd rlineto ixd neg 000 rlineto closepath fill l 2 le {/i1 nl l get ndif1 add def} {/i1 nl l get ndif2 add def} ifelse /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor ix0 300 add iy0 300 add ar 2.5 mul 0 360 arc closepath fill /i1 nl l get def /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor ix0 300 add iy0 300 add ar 1.5 mul 0 360 arc closepath fill /i1 nl l get def /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor ix0 300 add iy0 300 add moveto /m ak k get exec def m 1 eq {ar 2.6 mul 0 rlineto closepath stroke} if %0 m 2 eq {ar 2.6 mul 45 sin mul ar 2.6 mul 45 cos mul rlineto closepath stroke} if %45 m 3 eq {0 ar 2.6 mul rlineto closepath stroke} if %90 m 4 eq {ar 2.6 mul 135 sin mul ar 2.6 mul 135 cos mul rlineto closepath stroke} if %135 m 5 eq {ar 2.6 mul neg 0 rlineto closepath stroke} if %0 m 6 eq {ar 2.6 mul 235 sin mul ar 2.6 mul 235 cos mul rlineto closepath stroke} if %45 m 7 eq {0 ar 2.6 mul neg rlineto closepath stroke} if %0 m 8 eq {ar 2.6 mul 315 sin mul ar 2.6 mul 315 cos mul rlineto closepath stroke} if %45 } for %l } for %j 0 setgray 250 /Times-Roman FS 1500 50 moveto (Landoltringe ) showde (Landolt-rings ) showen 250 /Times-Italic FS tef ncol get show 5000 50 moveto (Code) show xab 0 translate 50 0 translate } for %ncol=0,1,2,3 showpage } if %xcolorl=3 xcolorl 4 eq {%xcolorl=4 8 /Times-ISOL1 FS 72 82 moveto (Bild D7n: Landoltringe ) showde (Picture D7n: Landolt\255rings ) showen 8 /TimesBI-ISOL1 FS (N\255V ) show 8 /Times-ISOL1 FS (und ) showde (and ) showen 8 /TimesBI-ISOL1 FS (N\255N) show 8 /Times-ISOL1 FS (; PS\255Operator) showde (; PS operator) showen (; PS operator) showes (; PS operator) showfr (; PS operator) showit (; PS operator) showjp (; PS operator) showm 8 /TimesI-ISOL1 FS ( LAB* setcolor) show 8 /Times-ISOL1 FS 72 90 translate /pixf 16.67 def 0.1667 pixf div MM dup scale 15 setlinewidth 1 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath fill 0 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath stroke /xab 5400 def 50 0 translate /ar 80 def ar setlinewidth /tef [(N-O) (N-L) (N-V) (N-W)] def /tzv4 64 array def /tzn4 64 array def /tza4 64 array def 2 1 3 {/ncol exch def %V,N 0 1 15 {/j exch def [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace /ISYSLAB where {pop /ISYSLABL ISYSLAB def} {/ISYSLABL 0 def} ifelse /ISYSTEM where {pop /ISYSTEML ISYSTEM def} {/ISYSTEML 0 def} ifelse ISYSLABL 0 eq {0 ncol eq {/LABs0X [29.93 65.39 50.52] def} if %O 1 ncol eq {/LABs0X [32.89 -62.83 34.96] def} if %L 2 ncol eq {/LABs0X [ 7.71 31.10 -44.40] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 1 eq {0 ncol eq {/LABs0X [50.49 76.92 64.55] def} if %O 1 ncol eq {/LABs0X [83.62 -82.75 79.90] def} if %L 2 ncol eq {/LABs0X [25.71 31.45 -44.29] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [95.40 0.00 0.00] def %LABW100 /L*NN 18.00 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.40 def /A*WW 0.00 def /B*WW 0.00 def } if ISYSLABL 2 eq {0 ncol eq {/LABs0X [29.93 65.39 50.52] def} if %O 1 ncol eq {/LABs0X [32.89 -62.83 34.96] def} if %L 2 ncol eq {/LABs0X [ 7.71 31.10 -44.40] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 3 eq {0 ncol eq {/LABs0X [34.99 71.79 50.18] def} if %O 1 ncol eq {/LABs0X [66.29 -79.08 74.11] def} if %L 2 ncol eq {/LABs0X [14.04 24.65 -37.54] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.70 0.00 0.00] def %LABW100 /L*NN 17.70 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.41 def /A*WW 0.00 def /B*WW 0.00 def } if /jmul 1 j 15 div sub def ncol 2 le { /LSs0 LABs0X 0 get jmul mul def /LS* LSs0 18.01 add def /l*CIE LS* L*NN sub L*WW L*NN sub 0.0001 add div def /ASs0 LABs0X 1 get jmul mul def /AS* ASs0 A*NN A*WW A*NN sub l*CIE mul add add def /BSs0 LABs0X 2 get jmul mul def /BS* BSs0 B*NN B*WW B*NN sub l*CIE mul add add def } { /LSs0 LABs0X 0 get LABs0W 0 get LABs0X 0 get sub jmul mul add def /LS* LSs0 18.01 add def /l*CIE LS* L*NN sub L*WW L*NN sub 0.0001 add div def /ASs0 LABs0X 1 get LABs0W 1 get LABs0X 1 get sub jmul mul add def /AS* ASs0 A*NN A*WW A*NN sub l*CIE mul add add def /BSs0 LABs0X 2 get LABs0W 2 get LABs0X 2 get sub jmul mul add def /BS* BSs0 B*NN B*WW B*NN sub l*CIE mul add add def } ifelse ncol 2 eq {/j4 j 4 mul def tzv4 j4 LS* put tzv4 j4 1 add AS* put tzv4 j4 2 add BS* put } if %O ncol 3 eq {/j4 j 4 mul def tzn4 j4 LS* put tzn4 j4 1 add AS* put tzn4 j4 2 add BS* put } if %L } for %j=0,15 } for %ncol=2,3 2 1 3 {/ncol exch def %=0,1,2,3 O,L,V,N ncol 0 eq { %O /tza4 tzo4 def /nc [(p-n) (i-g) (c-a) (o-p) (h-i) (a-b)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [4 3 2 8 7 1 5 6 8 5 3 7 2 1 4 6 6 3 5 4 3 7 2 8 4 1 6 7 8 2 3 5 1 5 4 8 7 2 3 6 8 1 7 6 2 5 4 3] def /ndif1 2 def /ndif2 -1 def } if %C ncol 1 eq { %L /tza4 tzl4 def /nc [(p-n) (i-g) (c-a) (o-p) (h-i) (a-b)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [6 7 8 2 3 5 4 1 7 2 3 6 1 5 4 8 6 4 8 5 3 7 2 1 7 2 8 6 3 5 4 3 8 1 7 5 2 6 4 3 4 3 2 8 7 1 5 6] def /ndif1 2 def /ndif2 -1 def } if %M ncol 2 eq { %V /tza4 tzv4 def /nc [(p-n) (i-g) (c-a) (o-p) (h-i) (a-b)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [8 5 3 7 2 1 4 6 6 3 5 4 3 7 2 8 4 3 2 8 7 1 5 6 5 3 2 8 7 6 1 4 8 4 5 1 6 3 2 7 7 6 5 2 3 4 1 8] def /ndif1 2 def /ndif2 -1 def } if %V ncol 3 eq { %N /tza4 tzn4 def /nc [(p-n) (i-g) (c-a) (o-p) (h-i) (a-b)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [6 7 8 2 3 5 4 1 7 2 3 6 1 5 4 8 6 4 8 5 3 7 2 1 7 2 8 6 3 5 4 3 8 1 7 5 2 6 4 3 4 3 2 8 7 1 5 6] def /ndif1 2 def /ndif2 -1 def } if %N 0 setgray 250 /Times-Roman FS 0 1 5 {/j exch def /iy0 500 j 600 mul add def 5000 iy0 moveto nc j get show } for %j [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace 0 1 07 {/j exch def /ix0 0100 j 600 mul add def 0 1 05 {/l exch def /iy0 0300 l 600 mul add def /k l 8 mul j add def /i1 nl l get def /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor /ixd 600 def ix0 iy0 moveto ixd 000 rlineto 000 ixd rlineto ixd neg 000 rlineto closepath fill l 2 le {/i1 nl l get ndif1 add def} {/i1 nl l get ndif2 add def} ifelse /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor ix0 300 add iy0 300 add ar 2.5 mul 0 360 arc closepath fill /i1 nl l get def /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor ix0 300 add iy0 300 add ar 1.5 mul 0 360 arc closepath fill /i1 nl l get def /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor ix0 300 add iy0 300 add moveto /m ak k get exec def m 1 eq {ar 2.6 mul 0 rlineto closepath stroke} if %0 m 2 eq {ar 2.6 mul 45 sin mul ar 2.6 mul 45 cos mul rlineto closepath stroke} if %45 m 3 eq {0 ar 2.6 mul rlineto closepath stroke} if %90 m 4 eq {ar 2.6 mul 135 sin mul ar 2.6 mul 135 cos mul rlineto closepath stroke} if %135 m 5 eq {ar 2.6 mul neg 0 rlineto closepath stroke} if %0 m 6 eq {ar 2.6 mul 235 sin mul ar 2.6 mul 235 cos mul rlineto closepath stroke} if %45 m 7 eq {0 ar 2.6 mul neg rlineto closepath stroke} if %0 m 8 eq {ar 2.6 mul 315 sin mul ar 2.6 mul 315 cos mul rlineto closepath stroke} if %45 } for %l } for %j 0 setgray 250 /Times-Roman FS 1500 50 moveto (Landoltringe ) showde (Landolt-rings ) showen 250 /Times-Italic FS tef ncol get show 5000 50 moveto (Code) show xab 0 translate 50 0 translate } for %ncol=0,1,2,3 grestore showpage } if %xcolorl=4 %%Trailer %line 399 %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 020 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM moveto ( ) show 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 18 %line 409 %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 197 MM translate 10 /Times-ISOL1 FS 1 1 scale -77 -91 translate %%BeginDocument: Bild 12 %line 419 %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 21 %!PS-Adobe-3.0 EPSF-3.0 LE22/L11-1N.EPS 20040101 %%BoundingBox: 70 80 405 206 %%Creator: K. Richter, BAM und TU Berlin, 2000.06.16 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def %ANFA CMYKDEF %CMYKDEA0 (A0=Standard-Drucker-CMYKDEF) 15.3.97 /tzac [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzam [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzay [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzan [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tza0 [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000] def /tza1 [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000] def %ENDE CMYKD /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y n {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y n {setcmykcolor rec stroke} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %ANFA OUTLINO0 951204 /pixf 1.0 def /ueg {1.6 pixf mul} bind def /uek {0.8 pixf mul} bind def /ues {0.7 pixf mul} bind def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /outxshowf {show} bind def /outxshow {show} bind def /SK {250 16.67 div 1 sub pixf mul /Symbol FS} bind def /SM {300 16.67 div 1 sub pixf mul /Symbol FS} bind def /SG {350 16.67 div 1 sub pixf mul /Symbol FS} bind def /outSK {250 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSM {300 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSG {350 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outshowf {setcmykcolor show} bind def /outrecfi { %x y width heigth c m y k setcmykcolor rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmykcolor lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmykcolor stroke} bind def %%EndProlog gsave %LANINDL0.EPS START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %no loops /xcolorl xcolor1 def /xchart xchart1 def %LANINDL0 END 8 /Times-Roman FS %72 82 moveto %!2 (LE22/L11-1N.eps) show xcolorl 1 eq {%xcolorl=1 8 /Times-ISOL1 FS 72 82 moveto (Bild D4w: 16 gleichabst\344ndige Stufen ) showde (Picture D4w: 16 equidistant steps ) showen 8 /TimesBI-ISOL1 FS (W\255O, W\255L, W\255V ) show 8 /Times-ISOL1 FS (und ) showde (and ) showen 8 /TimesBI-ISOL1 FS (W\255N) show 8 /Times-ISOL1 FS (; PS\255Operator) showde (; PS operator) showen (; PS operator) showes (; PS operator) showfr (; PS operator) showit (; PS operator) showjp (; PS operator) showm 8 /TimesI-ISOL1 FS ( LAB* setcolor) show 8 /Times-ISOL1 FS 72 90 translate /pixf 16.67 def 0.1667 pixf div MM dup scale /nshow {180 /TimesI-ISOL1 FS show} def /ishow {140 /Times-ISOL1 FS -100 -75 rmoveto show 50 75 rmoveto} def 1 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath fill 0 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath stroke /yab -850 def 000 3950 translate /ntex* [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def /tef [(O) (L) (V) (N)] def 0 setgray 0 1 16 {/j exch def /ix0 j 700 mul def /iy0 -850 def %j=0,16 ix0 25 add iy0 3100 sub moveto 000 4000 rlineto -50 000 rlineto 000 -4000 rlineto closepath fill } for %j=0,16 /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse 0 1 3 {/ncol exch def %ncol=0,3 0 yab translate /l 0 def /iLAB 0 def 0 1 15 {/j exch def /ix0 15 j sub 700 mul def /iy0 0 def j 15 le { %16 Testfarben; Nr. 16 fuer weisse Linie [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace /ISYSLAB where {pop /ISYSLABL ISYSLAB def} {/ISYSLABL 0 def} ifelse /ISYSTEM where {pop /ISYSTEML ISYSTEM def} {/ISYSTEML 0 def} ifelse ISYSLABL 0 eq {0 ncol eq {/LABs0X [29.93 65.39 50.52] def} if %O 1 ncol eq {/LABs0X [32.89 -62.83 34.96] def} if %L 2 ncol eq {/LABs0X [ 7.71 31.10 -44.40] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 1 eq {0 ncol eq {/LABs0X [50.49 76.92 64.55] def} if %O 1 ncol eq {/LABs0X [83.62 -82.75 79.90] def} if %L 2 ncol eq {/LABs0X [25.71 31.45 -44.29] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [95.40 0.00 0.00] def %LABW100 /L*NN 18.00 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.40 def /A*WW 0.00 def /B*WW 0.00 def } if ISYSLABL 2 eq {0 ncol eq {/LABs0X [29.93 65.39 50.52] def} if %O 1 ncol eq {/LABs0X [32.89 -62.83 34.96] def} if %L 2 ncol eq {/LABs0X [ 7.71 31.10 -44.40] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 3 eq {0 ncol eq {/LABs0X [34.99 71.79 50.18] def} if %O 1 ncol eq {/LABs0X [66.29 -79.08 74.11] def} if %L 2 ncol eq {/LABs0X [14.04 24.65 -37.54] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.70 0.00 0.00] def %LABW100 /L*NN 17.70 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.41 def /A*WW 0.00 def /B*WW 0.00 def } if /jmul j 15 div def /LSs0 LABs0X 0 get LABs0W 0 get LABs0X 0 get sub jmul mul add def /LS* LSs0 18.01 add def /l*CIE LS* L*NN sub L*WW L*NN sub 0.0001 add div def /ASs0 LABs0X 1 get LABs0W 1 get LABs0X 1 get sub jmul mul add def /AS* ASs0 A*NN A*WW A*NN sub l*CIE mul add add def /BSs0 LABs0X 2 get LABs0W 2 get LABs0X 2 get sub jmul mul add def /BS* BSs0 B*NN B*WW B*NN sub l*CIE mul add add def LS* AS* BS* setcolor l 0 eq {/ixd 700 def /iyd 700 def %ixd,iyd ix0 iy0 moveto ixd 000 rlineto 000 iyd rlineto ixd neg 000 rlineto closepath fill } if %ixd,iyd } if %16 Testfarben; Nr. 16 fuer weisse Linie } for %j 0 setgray TBIG 11350 300 moveto tef ncol get show 0 setgray TBM ncol 3 eq { %N 0 1 15 {/j exch def /ix0 250 j 700 mul add def /iy0 -400 def ix0 iy0 moveto ntex* j get show } for %j } if %N } for %ncol=0,3 000 -550 translate 15 setlinewidth 0 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath stroke showpage } if %xcolorl=1 xcolorl 2 eq {%xcolorl=2 8 /Times-ISOL1 FS 72 82 moveto (Bild D4n: 16 gleichabst\344ndige Stufen ) showde (Picture D4n: 16 equidistant steps ) showen 8 /TimesBI-ISOL1 FS (W\255O, W\255L, W\255V ) show 8 /Times-ISOL1 FS (und ) showde (and ) showen 8 /TimesBI-ISOL1 FS (W\255N) show 8 /Times-ISOL1 FS (; PS\255Operator) showde (; PS operator) showen (; PS operator) showes (; PS operator) showfr (; PS operator) showit (; PS operator) showjp (; PS operator) showm 8 /TimesI-ISOL1 FS ( LAB* setcolor) show 8 /Times-ISOL1 FS 72 90 translate /pixf 16.67 def 0.1667 pixf div MM dup scale /nshow {180 /TimesI-ISOL1 FS show} def /ishow {140 /Times-ISOL1 FS -100 -75 rmoveto show 50 75 rmoveto} def 1 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath fill 0 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath stroke /yab -850 def 000 3950 translate /ntex* [(a) (b) (c) (d) (e) (f) (g) (h) (i) (j) (k) (l) (m) (n) (o) (p)] def /tef [(O) (L) (V) (W)] def 0 setgray 0 1 16 {/j exch def /ix0 j 700 mul def /iy0 -850 def %j=0,16 ix0 25 add iy0 3100 sub moveto 000 4000 rlineto -50 000 rlineto 000 -4000 rlineto closepath fill } for %j=0,16 /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse 0 1 3 {/ncol exch def %ncol=0,3 0 yab translate /l 0 def /iLAB 0 def 0 1 15 {/j exch def /ix0 15 j sub 700 mul def /iy0 0 def j 15 le { %16 Testfarben; Nr. 16 fuer weisse Linie [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace /ISYSLAB where {pop /ISYSLABL ISYSLAB def} {/ISYSLABL 0 def} ifelse /ISYSTEM where {pop /ISYSTEML ISYSTEM def} {/ISYSTEML 0 def} ifelse ISYSLABL 0 eq {0 ncol eq {/LABs0X [29.93 65.39 50.52] def} if %O 1 ncol eq {/LABs0X [32.89 -62.83 34.96] def} if %L 2 ncol eq {/LABs0X [ 7.71 31.10 -44.40] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 1 eq {0 ncol eq {/LABs0X [50.49 76.92 64.55] def} if %O 1 ncol eq {/LABs0X [83.62 -82.75 79.90] def} if %L 2 ncol eq {/LABs0X [25.71 31.45 -44.29] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [95.40 0.00 0.00] def %LABW100 /L*NN 18.00 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.40 def /A*WW 0.00 def /B*WW 0.00 def } if ISYSLABL 2 eq {0 ncol eq {/LABs0X [29.93 65.39 50.52] def} if %O 1 ncol eq {/LABs0X [32.89 -62.83 34.96] def} if %L 2 ncol eq {/LABs0X [ 7.71 31.10 -44.40] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 3 eq {0 ncol eq {/LABs0X [34.99 71.79 50.18] def} if %O 1 ncol eq {/LABs0X [66.29 -79.08 74.11] def} if %L 2 ncol eq {/LABs0X [14.04 24.65 -37.54] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.70 0.00 0.00] def %LABW100 /L*NN 17.70 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.41 def /A*WW 0.00 def /B*WW 0.00 def } if /jmul 1 j 15 div sub def ncol 2 le { /LSs0 LABs0X 0 get jmul mul def /LS* LSs0 18.01 add def /l*CIE LS* L*NN sub L*WW L*NN sub 0.0001 add div def /ASs0 LABs0X 1 get jmul mul def /AS* ASs0 A*NN A*WW A*NN sub l*CIE mul add add def /BSs0 LABs0X 2 get jmul mul def /BS* BSs0 B*NN B*WW B*NN sub l*CIE mul add add def } { /LSs0 LABs0X 0 get LABs0W 0 get LABs0X 0 get sub jmul mul add def /LS* LSs0 18.01 add def /l*CIE LS* L*NN sub L*WW L*NN sub 0.0001 add div def /ASs0 LABs0X 1 get LABs0W 1 get LABs0X 1 get sub jmul mul add def /AS* ASs0 A*NN A*WW A*NN sub l*CIE mul add add def /BSs0 LABs0X 2 get LABs0W 2 get LABs0X 2 get sub jmul mul add def /BS* BSs0 B*NN B*WW B*NN sub l*CIE mul add add def } ifelse LS* AS* BS* setcolor l 0 eq {/ixd 700 def /iyd 700 def %ixd,iyd ix0 iy0 moveto ixd 000 rlineto 000 iyd rlineto ixd neg 000 rlineto closepath fill } if %ixd,iyd } if %16 Testfarben; Nr. 16 fuer weisse Linie } for %j 0 setgray TBIG 11350 300 moveto tef ncol get show 0 setgray TBM ncol 3 eq { %N 0 1 15 {/j exch def /ix0 250 j 700 mul add def /iy0 -400 def ix0 iy0 moveto ntex* j get show } for %j } if %N } for %ncol=0,3 000 -550 translate 15 setlinewidth 0 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath stroke showpage } if %xcolorl=2 xcolorl 3 eq {%xcolorl=3 8 /Times-ISOL1 FS 72 82 moveto (Bild D4w: 16 gleichabst\344ndige Stufen ) showde (Picture D4w: 16 equidistant steps ) showen 8 /Times-BoldItalic FS (W-C, W-M, W-Y ) show 8 /Times-Roman FS (und ) showde (and ) showen 8 /Times-BoldItalic FS (W-N) show 8 /Times-ISOL1 FS (; PS operator) showde (; PS operator) showen (; PS operator) showes (; PS operator) showfr (; PS operator) showit (; PS operator) showjp (; PS operator) showm 8 /TimesI-ISOL1 FS ( LAB* setcolor) show 8 /Times-ISOL1 FS 72 90 translate /pixf 16.67 def 0.1667 pixf div MM dup scale /nshow {180 /TimesI-ISOL1 FS show} def /ishow {140 /Times-ISOL1 FS -100 -75 rmoveto show 50 75 rmoveto} def 1 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath fill 0 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath stroke /yab -850 def 000 3950 translate /ntex* [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def /tef [(C) (M) (Y) (N)] def 0 setgray 0 1 16 {/j exch def /ix0 j 700 mul def /iy0 -850 def %j=0,16 ix0 25 add iy0 3100 sub moveto 000 4000 rlineto -50 000 rlineto 000 -4000 rlineto closepath fill } for %j=0,16 /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse 0 1 3 {/ncol exch def %ncol=0,3 0 yab translate /l 0 def /iLAB 0 def 0 1 15 {/j exch def /ix0 15 j sub 700 mul def /iy0 0 def j 15 le { %16 Testfarben; Nr. 16 fuer weisse Linie [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace /ISYSLAB where {pop /ISYSLABL ISYSLAB def} {/ISYSLABL 0 def} ifelse /ISYSTEM where {pop /ISYSTEML ISYSTEM def} {/ISYSTEML 0 def} ifelse ISYSLABL 0 eq {0 ncol eq {/LABs0X [40.62 -30.34 -45.01] def} if %C 1 ncol eq {/LABs0X [30.12 75.28 -8.36] def} if %M 2 ncol eq {/LABs0X [72.37 -10.26 91.75] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 1 eq {0 ncol eq {/LABs0X [86.87 -46.16 -13.55] def} if %C 1 ncol eq {/LABs0X [57.29 94.35 -20.69] def} if %M 2 ncol eq {/LABs0X [92.65 -20.69 90.75] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [95.40 0.00 0.00] def %LABW100 /L*NN 18.00 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.40 def /A*WW 0.00 def /B*WW 0.00 def } if ISYSLABL 2 eq {0 ncol eq {/LABs0X [40.62 -30.34 -45.01] def} if %C 1 ncol eq {/LABs0X [30.12 75.28 -8.36] def} if %M 2 ncol eq {/LABs0X [72.37 -10.26 91.75] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 3 eq {0 ncol eq {/LABs0X [69.43 -44.46 -13.14] def} if %C 1 ncol eq {/LABs0X [41.25 89.48 -19.47] def} if %M 2 ncol eq {/LABs0X [75.03 -20.05 85.13] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.70 0.00 0.00] def %LABW100 /L*NN 17.70 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.41 def /A*WW 0.00 def /B*WW 0.00 def } if /jmul j 15 div def /LSs0 LABs0X 0 get LABs0W 0 get LABs0X 0 get sub jmul mul add def /LS* LSs0 18.01 add def /l*CIE LS* L*NN sub L*WW L*NN sub 0.0001 add div def /ASs0 LABs0X 1 get LABs0W 1 get LABs0X 1 get sub jmul mul add def /AS* ASs0 A*NN A*WW A*NN sub l*CIE mul add add def /BSs0 LABs0X 2 get LABs0W 2 get LABs0X 2 get sub jmul mul add def /BS* BSs0 B*NN B*WW B*NN sub l*CIE mul add add def LS* AS* BS* setcolor l 0 eq {/ixd 700 def /iyd 700 def %ixd,iyd ix0 iy0 moveto ixd 000 rlineto 000 iyd rlineto ixd neg 000 rlineto closepath fill } if %ixd,iyd } if %16 Testfarben; Nr. 16 fuer weisse Linie } for %j 0 setgray TBIG 11350 300 moveto tef ncol get show 0 setgray TBM ncol 3 eq { %N 0 1 15 {/j exch def /ix0 250 j 700 mul add def /iy0 -400 def ix0 iy0 moveto ntex* j get show } for %j } if %N } for %ncol=0,3 000 -550 translate 15 setlinewidth 0 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath stroke showpage } if %xcolorl=3 xcolorl 4 eq {%xcolorl=4 8 /Times-ISOL1 FS 72 82 moveto (Bild D4w: 16 gleichabst\344ndige Stufen ) showde (Picture D4w: 16 equidistant steps ) showen 8 /TimesBI-ISOL1 FS (W\255O, W\255L, W\255V ) show 8 /Times-ISOL1 FS (und ) showde (and ) showen 8 /TimesBI-ISOL1 FS (W\255N) show 8 /Times-ISOL1 FS (; PS\255Operator) showde (; PS operator) showen (; PS operator) showes (; PS operator) showfr (; PS operator) showit (; PS operator) showjp (; PS operator) showm 8 /TimesI-ISOL1 FS ( LAB* setcolor) show 8 /Times-ISOL1 FS 72 90 translate /pixf 16.67 def 0.1667 pixf div MM dup scale /nshow {180 /TimesI-ISOL1 FS show} def /ishow {140 /Times-ISOL1 FS -100 -75 rmoveto show 50 75 rmoveto} def 1 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath fill 0 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath stroke /yab -850 def 000 3950 translate /ntex* [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def /tef [(O) (L) (V) (N)] def 0 setgray 0 1 16 {/j exch def /ix0 j 700 mul def /iy0 -850 def %j=0,16 ix0 25 add iy0 3100 sub moveto 000 4000 rlineto -50 000 rlineto 000 -4000 rlineto closepath fill } for %j=0,16 /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse 0 1 3 {/ncol exch def %ncol=0,3 0 yab translate /l 0 def /iLAB 0 def 0 1 15 {/j exch def /ix0 15 j sub 700 mul def /iy0 0 def j 15 le { %16 Testfarben; Nr. 16 fuer weisse Linie [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace /ISYSLAB where {pop /ISYSLABL ISYSLAB def} {/ISYSLABL 0 def} ifelse /ISYSTEM where {pop /ISYSTEML ISYSTEM def} {/ISYSTEML 0 def} ifelse ISYSLABL 0 eq {0 ncol eq {/LABs0X [29.93 65.39 50.52] def} if %O 1 ncol eq {/LABs0X [32.89 -62.83 34.96] def} if %L 2 ncol eq {/LABs0X [ 7.71 31.10 -44.40] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 1 eq {0 ncol eq {/LABs0X [50.49 76.92 64.55] def} if %O 1 ncol eq {/LABs0X [83.62 -82.75 79.90] def} if %L 2 ncol eq {/LABs0X [25.71 31.45 -44.29] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [95.40 0.00 0.00] def %LABW100 /L*NN 18.00 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.40 def /A*WW 0.00 def /B*WW 0.00 def } if ISYSLABL 2 eq {0 ncol eq {/LABs0X [29.93 65.39 50.52] def} if %O 1 ncol eq {/LABs0X [32.89 -62.83 34.96] def} if %L 2 ncol eq {/LABs0X [ 7.71 31.10 -44.40] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 3 eq {0 ncol eq {/LABs0X [34.99 71.79 50.18] def} if %O 1 ncol eq {/LABs0X [66.29 -79.08 74.11] def} if %L 2 ncol eq {/LABs0X [14.04 24.65 -37.54] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.70 0.00 0.00] def %LABW100 /L*NN 17.70 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.41 def /A*WW 0.00 def /B*WW 0.00 def } if /jmul j 15 div def /LSs0 LABs0X 0 get LABs0W 0 get LABs0X 0 get sub jmul mul add def /LS* LSs0 18.01 add def /l*CIE LS* L*NN sub L*WW L*NN sub 0.0001 add div def /ASs0 LABs0X 1 get LABs0W 1 get LABs0X 1 get sub jmul mul add def /AS* ASs0 A*NN A*WW A*NN sub l*CIE mul add add def /BSs0 LABs0X 2 get LABs0W 2 get LABs0X 2 get sub jmul mul add def /BS* BSs0 B*NN B*WW B*NN sub l*CIE mul add add def LS* AS* BS* setcolor l 0 eq {/ixd 700 def /iyd 700 def %ixd,iyd ix0 iy0 moveto ixd 000 rlineto 000 iyd rlineto ixd neg 000 rlineto closepath fill } if %ixd,iyd } if %16 Testfarben; Nr. 16 fuer weisse Linie } for %j 0 setgray TBIG 11350 300 moveto tef ncol get show 0 setgray TBM ncol 3 eq { %N 0 1 15 {/j exch def /ix0 250 j 700 mul add def /iy0 -400 def ix0 iy0 moveto ntex* j get show } for %j } if %N } for %ncol=0,3 000 -550 translate 15 setlinewidth 0 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath stroke showpage } if %xcolorl=4 %%Trailer %line 429 %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 22 %line 439 %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 23 %!PS-Adobe-3.0 EPSF-3.0 LE22/L11-3N.EPS 20040101 %%BoundingBox: 70 80 392 206 %%Creator: K. Richter, BAM und TU Berlin, 2000.06.16 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def %ANFA CMYKDEF %CMYKDEA0 (A0=Standard-Drucker-CMYKDEF) 15.3.97 /tzac [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzam [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzay [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzan [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tza0 [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000] def /tza1 [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000] def %ENDE CMYKD /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y n {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y n {setcmykcolor rec stroke} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfa {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %ANFA OUTLINO0 951204 /pixf 1.0 def /ueg {1.6 pixf mul} bind def /uek {0.8 pixf mul} bind def /ues {0.7 pixf mul} bind def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /outxshowf {show} bind def /outxshow {show} bind def /SK {250 16.67 div 1 sub pixf mul /Symbol FS} bind def /SM {300 16.67 div 1 sub pixf mul /Symbol FS} bind def /SG {350 16.67 div 1 sub pixf mul /Symbol FS} bind def /outSK {250 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSM {300 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSG {350 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outshowf {setcmykcolor show} bind def /outrecfi { %x y width heigth c m y k setcmykcolor rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmykcolor lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmykcolor stroke} bind def /A4quer {595 0 translate 90 rotate} def %%EndProlog gsave %LANINDL0.EPS START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %no loops /xcolorl xcolor1 def /xchart xchart1 def %LANINDL0 END 8 /Times-Roman FS %72 82 moveto %!2 (LE22/L11-3N.eps) show xcolorl 1 eq {%xcolorl=1 8 /Times-ISOL1 FS 72 82 moveto (Bild D5w: Schrift und Landoltringe ) showde (Picture D5w: Script and Landolt\255rings ) showen 8 /TimesBI-ISOL1 FS (N, O, L ) show 8 /Times-ISOL1 FS (und ) showde (and ) showen 8 /TimesBI-ISOL1 FS (V) show 8 /Times-ISOL1 FS (; PS-Operator) showde (; PS operator) showen (; PS operator) showes (; PS operator) showfr (; PS operator) showit (; PS operator) showjp (; PS operator) showm 8 /TimesI-ISOL1 FS ( LAB* setcolor ) show 8 /Times-ISOL1 FS 72 90 translate /pixf 16.67 def 0.1667 pixf div MM 0.1667 pixf div MM scale 15 setlinewidth 0 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath stroke /na [(+-:.) (xyz;) (tuvw) (pqrs) (lmno) (hijk) (defg) (!abc) (lmno) (hijk) (defg) (!abc) (+-:.) (xyz;) (tuvw) (pqrs) (pqrs) (lmno) (hijk) (+-:.) (xyz;) (tuvw) (defg) (!abc) (tuvw) (pqrs) (lmno) (hijk) (+-:.) (!abc) (xyz;) (defg)] def /ar 72 def /ak [4 3 2 8 7 1 5 6 8 5 3 7 2 1 4 6 6 3 5 4 3 7 2 8 4 1 6 7 8 2 3 5 1 5 4 8 7 2 3 6 8 1 7 6 2 5 4 3 1 2 5 8 4 3 6 7 5 3 2 8 7 6 1 4 6 4 1 2 7 3 5 8 7 1 8 5 2 6 3 4 7 6 3 4 8 5 2 1 7 6 1 4 5 3 2 8 4 3 2 8 7 1 5 6 2 1 4 6 8 5 3 7 8 2 7 1 4 5 3 6 6 7 8 2 5 3 1 4] def /nf [(N) (O) (L) (V)] def /ng [(10) ( 8) ( 6) ( 4)] def /mg -1 def /xtrans [0 3500 3000 2500] def /j 0 def 0 1 2 {/ncol exch def %ncol=0,1,2 /ISYSLAB where {pop /ISYSLABL ISYSLAB def} {/ISYSLABL 0 def} ifelse /ISYSTEM where {pop /ISYSTEML ISYSTEM def} {/ISYSTEML 0 def} ifelse ISYSLABL 0 eq {0 ncol eq {/LABs0X [29.93 65.39 50.52] def} if %O 1 ncol eq {/LABs0X [32.89 -62.83 34.96] def} if %L 2 ncol eq {/LABs0X [ 7.71 31.10 -44.40] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 1 eq {0 ncol eq {/LABs0X [50.49 76.92 64.55] def} if %O 1 ncol eq {/LABs0X [83.62 -82.75 79.90] def} if %L 2 ncol eq {/LABs0X [25.71 31.45 -44.29] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [95.40 0.00 0.00] def %LABW100 /L*NN 18.00 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.40 def /A*WW 0.00 def /B*WW 0.00 def } if ISYSLABL 2 eq {0 ncol eq {/LABs0X [29.93 65.39 50.52] def} if %O 1 ncol eq {/LABs0X [32.89 -62.83 34.96] def} if %L 2 ncol eq {/LABs0X [ 7.71 31.10 -44.40] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 3 eq {0 ncol eq {/LABs0X [34.99 71.79 50.18] def} if %O 1 ncol eq {/LABs0X [66.29 -79.08 74.11] def} if %L 2 ncol eq {/LABs0X [14.04 24.65 -37.54] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.70 0.00 0.00] def %LABW100 /L*NN 17.70 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.41 def /A*WW 0.00 def /B*WW 0.00 def } if /jmul j 15 div def /LSs0 LABs0X 0 get LABs0W 0 get LABs0X 0 get sub jmul mul add def /LS* LSs0 18.01 add def /l*CIE LS* L*NN sub L*WW L*NN sub 0.0001 add div def /ASs0 LABs0X 1 get LABs0W 1 get LABs0X 1 get sub jmul mul add def /AS* ASs0 A*NN A*WW A*NN sub l*CIE mul add add def /BSs0 LABs0X 2 get LABs0W 2 get LABs0X 2 get sub jmul mul add def /BS* BSs0 B*NN B*WW B*NN sub l*CIE mul add add def ncol 0 eq {/tfo1 LS* def /tfo2 AS* def /tfo3 BS* def} if ncol 1 eq {/tfl1 LS* def /tfl2 AS* def /tfl3 BS* def} if ncol 2 eq {/tfv1 LS* def /tfv2 AS* def /tfv3 BS* def} if } for %ncol=0,1,2 200 000 translate /igroe -1 def 10 -2 04 {/n exch def /mg mg 1 add def /igroe igroe 1 add def /n480 40 n mul def /n600 45 n mul def /n300 25 n mul def /n150 15 n mul def /n360 30 n mul def /nar 6 n mul def /n6000 480 n mul def /n5000 400 n mul def xtrans mg get 0 translate /ix0 0 def n480 /Times-Roman FS 0 setgray 0 1 07 {/j exch def /iy0 3500 j n600 mul sub def ix0 100 add iy0 200 add moveto na j igroe 8 mul add get exec show j 7 eq { %Zusatz Schriftgroesse 10, 8, 6, 4 ix0 100 add iy0 200 add n600 sub moveto ng mg get exec show} if } for 0 1 03 {/ncol exch def /ix0 n600 2 mul ncol n600 mul add def /iy0 3500 8 n600 mul sub 0 1 07 {/j exch def /iy0 3500 j n600 mul sub def /k ncol 8 mul j add igroe 32 mul add def n setlinewidth [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace ncol 0 eq {L*NN A*NN B*NN setcolor} if ncol 1 eq {tfo1 tfo2 tfo3 setcolor} if ncol 2 eq {tfl1 tfl2 tfl3 setcolor} if ncol 3 eq {tfv1 tfv2 tfv3 setcolor} if newpath nar setlinewidth ix0 300 add iy0 300 add nar 2.5 mul 0 360 arc closepath fill 1 setgray ix0 300 add iy0 300 add nar 1.5 mul 0 360 arc closepath fill 1 setgray ix0 300 add iy0 300 add moveto /m ak k get exec def m 1 eq {nar 2.6 mul 0 rlineto closepath stroke} if %0 m 2 eq {nar 2.6 mul 45 sin mul nar 2.6 mul 45 cos mul rlineto closepath stroke} if %45 m 3 eq {0 nar 2.6 mul rlineto closepath stroke} if %90 m 4 eq {nar 2.6 mul 135 sin mul nar 2.6 mul 135 cos mul rlineto closepath stroke} if %135 m 5 eq {nar 2.6 mul neg 0 rlineto closepath stroke} if %0 m 6 eq {nar 2.6 mul 235 sin mul nar 2.6 mul 235 cos mul rlineto closepath stroke} if %45 m 7 eq {0 nar 2.6 mul neg rlineto closepath stroke} if %0 m 8 eq {nar 2.6 mul 315 sin mul nar 2.6 mul 315 cos mul rlineto closepath stroke} if %45 } for %j acht Orientierungen 0 setgray ix0 300 add n150 sub iy0 300 add n600 sub n150 sub moveto nf ncol get show } for %ncol=N,O,L,V } for %n vier Schrift-Groessen showpage } if %xcolorl=1 xcolorl 2 eq {%xcolorl=2 8 /Times-ISOL1 FS 72 82 moveto (Bild D5n: Schrift und Landoltringe ) showde (Picture D5n: Script and Landolt\255rings ) showen 8 /TimesBI-ISOL1 FS (W, O, L ) show 8 /Times-ISOL1 FS (und ) showde (and ) showen 8 /TimesBI-ISOL1 FS (V) show 8 /Times-ISOL1 FS (; PS-Operator) showde (; PS operator) showen (; PS operator) showes (; PS operator) showfr (; PS operator) showit (; PS operator) showjp (; PS operator) showm 8 /TimesI-ISOL1 FS ( LAB* setcolor ) show 8 /Times-ISOL1 FS 72 90 translate /pixf 16.67 def 0.1667 pixf div MM 0.1667 pixf div MM scale 15 setlinewidth 0 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath fill 1 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath stroke /na [(+-:.) (xyz;) (tuvw) (pqrs) (lmno) (hijk) (defg) (!abc) (lmno) (hijk) (defg) (!abc) (+-:.) (xyz;) (tuvw) (pqrs) (pqrs) (lmno) (hijk) (+-:.) (xyz;) (tuvw) (defg) (!abc) (tuvw) (pqrs) (lmno) (hijk) (+-:.) (!abc) (xyz;) (defg)] def /ar 72 def /ak [4 3 2 8 7 1 5 6 8 5 3 7 2 1 4 6 6 3 5 4 3 7 2 8 4 1 6 7 8 2 3 5 1 5 4 8 7 2 3 6 8 1 7 6 2 5 4 3 1 2 5 8 4 3 6 7 5 3 2 8 7 6 1 4 6 4 1 2 7 3 5 8 7 1 8 5 2 6 3 4 7 6 3 4 8 5 2 1 7 6 1 4 5 3 2 8 4 3 2 8 7 1 5 6 2 1 4 6 8 5 3 7 8 2 7 1 4 5 3 6 6 7 8 2 5 3 1 4] def /nf [(N) (O) (L) (V)] def /ng [(10) ( 8) ( 6) ( 4)] def /mg -1 def /xtrans [0 3500 3000 2500] def /j 0 def 0 1 2 {/ncol exch def %ncol=0,1,2 /ISYSLAB where {pop /ISYSLABL ISYSLAB def} {/ISYSLABL 0 def} ifelse /ISYSTEM where {pop /ISYSTEML ISYSTEM def} {/ISYSTEML 0 def} ifelse ISYSLABL 0 eq {0 ncol eq {/LABs0X [29.93 65.39 50.52] def} if %O 1 ncol eq {/LABs0X [32.89 -62.83 34.96] def} if %L 2 ncol eq {/LABs0X [ 7.71 31.10 -44.40] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 1 eq {0 ncol eq {/LABs0X [50.49 76.92 64.55] def} if %O 1 ncol eq {/LABs0X [83.62 -82.75 79.90] def} if %L 2 ncol eq {/LABs0X [25.71 31.45 -44.29] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [95.40 0.00 0.00] def %LABW100 /L*NN 18.00 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.40 def /A*WW 0.00 def /B*WW 0.00 def } if ISYSLABL 2 eq {0 ncol eq {/LABs0X [29.93 65.39 50.52] def} if %O 1 ncol eq {/LABs0X [32.89 -62.83 34.96] def} if %L 2 ncol eq {/LABs0X [ 7.71 31.10 -44.40] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 3 eq {0 ncol eq {/LABs0X [34.99 71.79 50.18] def} if %O 1 ncol eq {/LABs0X [66.29 -79.08 74.11] def} if %L 2 ncol eq {/LABs0X [14.04 24.65 -37.54] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.70 0.00 0.00] def %LABW100 /L*NN 17.70 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.41 def /A*WW 0.00 def /B*WW 0.00 def } if /jmul 1 j 15 div sub def /LSs0 LABs0X 0 get jmul mul def /LS* LSs0 18.01 add def /l*CIE LS* L*NN sub L*WW L*NN sub 0.0001 add div def /ASs0 LABs0X 1 get jmul mul def /AS* ASs0 A*NN A*WW A*NN sub l*CIE mul add add def /BSs0 LABs0X 2 get jmul mul def /BS* BSs0 B*NN B*WW B*NN sub l*CIE mul add add def ncol 0 eq {/tfo1 LS* def /tfo2 AS* def /tfo3 BS* def} if ncol 1 eq {/tfl1 LS* def /tfl2 AS* def /tfl3 BS* def} if ncol 2 eq {/tfv1 LS* def /tfv2 AS* def /tfv3 BS* def} if } for %ncol=0,1,2 200 000 translate /igroe -1 def 10 -2 04 {/n exch def /mg mg 1 add def /igroe igroe 1 add def /n480 40 n mul def /n600 45 n mul def /n300 25 n mul def /n150 15 n mul def /n360 30 n mul def /nar 6 n mul def /n6000 480 n mul def /n5000 400 n mul def xtrans mg get 0 translate /ix0 0 def n480 /Times-Roman FS 1 setgray 0 1 07 {/j exch def /iy0 3500 j n600 mul sub def ix0 100 add iy0 200 add moveto na j igroe 8 mul add get exec show j 7 eq { %Zusatz Schriftgroesse 10, 8, 6, 4 ix0 100 add iy0 200 add n600 sub moveto ng mg get exec show} if } for 0 1 03 {/ncol exch def /ix0 n600 2 mul ncol n600 mul add def /iy0 3500 8 n600 mul sub 0 1 07 {/j exch def /iy0 3500 j n600 mul sub def /k ncol 8 mul j add igroe 32 mul add def n setlinewidth [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace ncol 0 eq {L*WW A*WW B*WW setcolor} if ncol 1 eq {tfo1 tfo2 tfo3 setcolor} if ncol 2 eq {tfl1 tfl2 tfl3 setcolor} if ncol 3 eq {tfv1 tfv2 tfv3 setcolor} if newpath nar setlinewidth ix0 300 add iy0 300 add nar 2.5 mul 0 360 arc closepath fill L*NN A*NN B*NN setcolor ix0 300 add iy0 300 add nar 1.5 mul 0 360 arc closepath fill L*NN A*NN B*NN setcolor ix0 300 add iy0 300 add moveto /m ak k get exec def m 1 eq {nar 2.6 mul 0 rlineto closepath stroke} if %0 m 2 eq {nar 2.6 mul 45 sin mul nar 2.6 mul 45 cos mul rlineto closepath stroke} if %45 m 3 eq {0 nar 2.6 mul rlineto closepath stroke} if %90 m 4 eq {nar 2.6 mul 135 sin mul nar 2.6 mul 135 cos mul rlineto closepath stroke} if %135 m 5 eq {nar 2.6 mul neg 0 rlineto closepath stroke} if %0 m 6 eq {nar 2.6 mul 235 sin mul nar 2.6 mul 235 cos mul rlineto closepath stroke} if %45 m 7 eq {0 nar 2.6 mul neg rlineto closepath stroke} if %0 m 8 eq {nar 2.6 mul 315 sin mul nar 2.6 mul 315 cos mul rlineto closepath stroke} if %45 } for %j acht Orientierungen 1 setgray ix0 300 add n150 sub iy0 300 add n600 sub n150 sub moveto nf ncol get show } for %ncol=N,O,L,V } for %n vier Schrift-Groessen showpage } if %xcolorl=2 xcolorl 3 eq {%xcolorl=3 8 /Times-ISOL1 FS 72 82 moveto (Bild B5w: Schrift und Landoltringe ) showde (Picture B5w: Script and Landolt\255rings ) showen 8 /TimesBI-ISOL1 FS (N, C, M ) show 8 /Times-ISOL1 FS (und ) showde (and ) showen 8 /TimesBI-ISOL1 FS (Y) show 8 /Times-ISOL1 FS (; PS-Operator) showde (; PS operator) showen (; PS operator) showes (; PS operator) showfr (; PS operator) showit (; PS operator) showjp (; PS operator) showm 8 /TimesI-ISOL1 FS ( LAB* setcolor ) show 8 /Times-ISOL1 FS 72 90 translate /pixf 16.67 def 0.1667 pixf div MM 0.1667 pixf div MM scale 15 setlinewidth 0 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath stroke /na [(+-:.) (xyz;) (tuvw) (pqrs) (lmno) (hijk) (defg) (!abc) (lmno) (hijk) (defg) (!abc) (+-:.) (xyz;) (tuvw) (pqrs) (pqrs) (lmno) (hijk) (+-:.) (xyz;) (tuvw) (defg) (!abc) (tuvw) (pqrs) (lmno) (hijk) (+-:.) (!abc) (xyz;) (defg)] def /ar 72 def /ak [4 3 2 8 7 1 5 6 8 5 3 7 2 1 4 6 6 3 5 4 3 7 2 8 4 1 6 7 8 2 3 5 1 5 4 8 7 2 3 6 8 1 7 6 2 5 4 3 1 2 5 8 4 3 6 7 5 3 2 8 7 6 1 4 6 4 1 2 7 3 5 8 7 1 8 5 2 6 3 4 7 6 3 4 8 5 2 1 7 6 1 4 5 3 2 8 4 3 2 8 7 1 5 6 2 1 4 6 8 5 3 7 8 2 7 1 4 5 3 6 6 7 8 2 5 3 1 4] def /nf [(N) (C) (M) (Y)] def /ng [(10) ( 8) ( 6) ( 4)] def /mg -1 def /xtrans [0 3500 3000 2500] def /j 0 def 0 1 2 {/ncol exch def %ncol=0,1,2 /ISYSLAB where {pop /ISYSLABL ISYSLAB def} {/ISYSLABL 0 def} ifelse /ISYSTEM where {pop /ISYSTEML ISYSTEM def} {/ISYSTEML 0 def} ifelse ISYSLABL 0 eq {0 ncol eq {/LABs0X [40.62 -30.34 -45.01] def} if %C 1 ncol eq {/LABs0X [30.12 75.28 -8.36] def} if %M 2 ncol eq {/LABs0X [72.37 -10.26 91.75] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 1 eq {0 ncol eq {/LABs0X [86.87 -46.16 -13.55] def} if %C 1 ncol eq {/LABs0X [57.29 94.35 -20.69] def} if %M 2 ncol eq {/LABs0X [92.65 -20.69 90.75] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [95.40 0.00 0.00] def %LABW100 /L*NN 18.00 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.40 def /A*WW 0.00 def /B*WW 0.00 def } if ISYSLABL 2 eq {0 ncol eq {/LABs0X [40.62 -30.34 -45.01] def} if %C 1 ncol eq {/LABs0X [30.12 75.28 -8.36] def} if %M 2 ncol eq {/LABs0X [72.37 -10.26 91.75] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 3 eq {0 ncol eq {/LABs0X [69.43 -44.46 -13.14] def} if %C 1 ncol eq {/LABs0X [41.25 89.48 -19.47] def} if %M 2 ncol eq {/LABs0X [75.03 -20.05 85.13] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.70 0.00 0.00] def %LABW100 /L*NN 17.70 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.41 def /A*WW 0.00 def /B*WW 0.00 def } if /jmul j 15 div def /LSs0 LABs0X 0 get LABs0W 0 get LABs0X 0 get sub jmul mul add def /LS* LSs0 18.01 add def /l*CIE LS* L*NN sub L*WW L*NN sub 0.0001 add div def /ASs0 LABs0X 1 get LABs0W 1 get LABs0X 1 get sub jmul mul add def /AS* ASs0 A*NN A*WW A*NN sub l*CIE mul add add def /BSs0 LABs0X 2 get LABs0W 2 get LABs0X 2 get sub jmul mul add def /BS* BSs0 B*NN B*WW B*NN sub l*CIE mul add add def ncol 0 eq {/tfc1 LS* def /tfc2 AS* def /tfc3 BS* def} if ncol 1 eq {/tfm1 LS* def /tfm2 AS* def /tfm3 BS* def} if ncol 2 eq {/tfy1 LS* def /tfy2 AS* def /tfy3 BS* def} if } for %ncol=0,1,2 200 000 translate /igroe -1 def 10 -2 04 {/n exch def /mg mg 1 add def /igroe igroe 1 add def /n480 40 n mul def /n600 45 n mul def /n300 25 n mul def /n150 15 n mul def /n360 30 n mul def /nar 6 n mul def /n6000 480 n mul def /n5000 400 n mul def xtrans mg get 0 translate /ix0 0 def n480 /Times-Roman FS 0 setgray 0 1 07 {/j exch def /iy0 3500 j n600 mul sub def ix0 100 add iy0 200 add moveto na j igroe 8 mul add get exec show j 7 eq { %Zusatz Schriftgroesse 10, 8, 6, 4 ix0 100 add iy0 200 add n600 sub moveto ng mg get exec show} if } for 0 1 03 {/ncol exch def /ix0 n600 2 mul ncol n600 mul add def /iy0 3500 8 n600 mul sub 0 1 07 {/j exch def /iy0 3500 j n600 mul sub def /k ncol 8 mul j add igroe 32 mul add def n setlinewidth [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace ncol 0 eq {L*NN A*NN B*NN setcolor} if ncol 1 eq {tfc1 tfc2 tfc3 setcolor} if ncol 2 eq {tfm1 tfm2 tfm3 setcolor} if ncol 3 eq {tfy1 tfy2 tfy3 setcolor} if newpath nar setlinewidth ix0 300 add iy0 300 add nar 2.5 mul 0 360 arc closepath fill 1 setgray ix0 300 add iy0 300 add nar 1.5 mul 0 360 arc closepath fill 1 setgray ix0 300 add iy0 300 add moveto /m ak k get exec def m 1 eq {nar 2.6 mul 0 rlineto closepath stroke} if %0 m 2 eq {nar 2.6 mul 45 sin mul nar 2.6 mul 45 cos mul rlineto closepath stroke} if %45 m 3 eq {0 nar 2.6 mul rlineto closepath stroke} if %90 m 4 eq {nar 2.6 mul 135 sin mul nar 2.6 mul 135 cos mul rlineto closepath stroke} if %135 m 5 eq {nar 2.6 mul neg 0 rlineto closepath stroke} if %0 m 6 eq {nar 2.6 mul 235 sin mul nar 2.6 mul 235 cos mul rlineto closepath stroke} if %45 m 7 eq {0 nar 2.6 mul neg rlineto closepath stroke} if %0 m 8 eq {nar 2.6 mul 315 sin mul nar 2.6 mul 315 cos mul rlineto closepath stroke} if %45 } for %j acht Orientierungen 0 setgray ix0 300 add n150 sub iy0 300 add n600 sub n150 sub moveto nf ncol get show } for %ncol=N,C,M,Y } for %n vier Schrift-Groessen showpage } if %xcolorl=3 xcolorl 4 eq {%xcolorl=4 8 /Times-ISOL1 FS 72 82 moveto (Bild D5w: Schrift und Landoltringe ) showde (Picture D5w: Script and Landolt\255rings ) showen 8 /TimesBI-ISOL1 FS (N, O, L ) show 8 /Times-ISOL1 FS (und ) showde (and ) showen 8 /TimesBI-ISOL1 FS (V) show 8 /Times-ISOL1 FS (; PS-Operator) showde (; PS operator) showen (; PS operator) showes (; PS operator) showfr (; PS operator) showit (; PS operator) showjp (; PS operator) showm 8 /TimesI-ISOL1 FS ( LAB* setcolor ) show 8 /Times-ISOL1 FS 72 90 translate /pixf 16.67 def 0.1667 pixf div MM 0.1667 pixf div MM scale 15 setlinewidth 0 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath stroke /na [(+-:.) (xyz;) (tuvw) (pqrs) (lmno) (hijk) (defg) (!abc) (lmno) (hijk) (defg) (!abc) (+-:.) (xyz;) (tuvw) (pqrs) (pqrs) (lmno) (hijk) (+-:.) (xyz;) (tuvw) (defg) (!abc) (tuvw) (pqrs) (lmno) (hijk) (+-:.) (!abc) (xyz;) (defg)] def /ar 72 def /ak [4 3 2 8 7 1 5 6 8 5 3 7 2 1 4 6 6 3 5 4 3 7 2 8 4 1 6 7 8 2 3 5 1 5 4 8 7 2 3 6 8 1 7 6 2 5 4 3 1 2 5 8 4 3 6 7 5 3 2 8 7 6 1 4 6 4 1 2 7 3 5 8 7 1 8 5 2 6 3 4 7 6 3 4 8 5 2 1 7 6 1 4 5 3 2 8 4 3 2 8 7 1 5 6 2 1 4 6 8 5 3 7 8 2 7 1 4 5 3 6 6 7 8 2 5 3 1 4] def /nf [(N) (O) (L) (V)] def /ng [(10) ( 8) ( 6) ( 4)] def /mg -1 def /xtrans [0 3500 3000 2500] def /j 0 def 0 1 2 {/ncol exch def %ncol=0,1,2 /ISYSLAB where {pop /ISYSLABL ISYSLAB def} {/ISYSLABL 0 def} ifelse /ISYSTEM where {pop /ISYSTEML ISYSTEM def} {/ISYSTEML 0 def} ifelse ISYSLABL 0 eq {0 ncol eq {/LABs0X [29.93 65.39 50.52] def} if %O 1 ncol eq {/LABs0X [32.89 -62.83 34.96] def} if %L 2 ncol eq {/LABs0X [ 7.71 31.10 -44.40] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 1 eq {0 ncol eq {/LABs0X [50.49 76.92 64.55] def} if %O 1 ncol eq {/LABs0X [83.62 -82.75 79.90] def} if %L 2 ncol eq {/LABs0X [25.71 31.45 -44.29] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [95.40 0.00 0.00] def %LABW100 /L*NN 18.00 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.40 def /A*WW 0.00 def /B*WW 0.00 def } if ISYSLABL 2 eq {0 ncol eq {/LABs0X [29.93 65.39 50.52] def} if %O 1 ncol eq {/LABs0X [32.89 -62.83 34.96] def} if %L 2 ncol eq {/LABs0X [ 7.71 31.10 -44.40] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 3 eq {0 ncol eq {/LABs0X [34.99 71.79 50.18] def} if %O 1 ncol eq {/LABs0X [66.29 -79.08 74.11] def} if %L 2 ncol eq {/LABs0X [14.04 24.65 -37.54] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.70 0.00 0.00] def %LABW100 /L*NN 17.70 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.41 def /A*WW 0.00 def /B*WW 0.00 def } if /jmul j 15 div def /LSs0 LABs0X 0 get LABs0W 0 get LABs0X 0 get sub jmul mul add def /LS* LSs0 18.01 add def /l*CIE LS* L*NN sub L*WW L*NN sub 0.0001 add div def /ASs0 LABs0X 1 get LABs0W 1 get LABs0X 1 get sub jmul mul add def /AS* ASs0 A*NN A*WW A*NN sub l*CIE mul add add def /BSs0 LABs0X 2 get LABs0W 2 get LABs0X 2 get sub jmul mul add def /BS* BSs0 B*NN B*WW B*NN sub l*CIE mul add add def ncol 0 eq {/tfo1 LS* def /tfo2 AS* def /tfo3 BS* def} if ncol 1 eq {/tfl1 LS* def /tfl2 AS* def /tfl3 BS* def} if ncol 2 eq {/tfv1 LS* def /tfv2 AS* def /tfv3 BS* def} if } for %ncol=0,1,2 200 000 translate /igroe -1 def 10 -2 04 {/n exch def /mg mg 1 add def /igroe igroe 1 add def /n480 40 n mul def /n600 45 n mul def /n300 25 n mul def /n150 15 n mul def /n360 30 n mul def /nar 6 n mul def /n6000 480 n mul def /n5000 400 n mul def xtrans mg get 0 translate /ix0 0 def n480 /Times-Roman FS 0 setgray 0 1 07 {/j exch def /iy0 3500 j n600 mul sub def ix0 100 add iy0 200 add moveto na j igroe 8 mul add get exec show j 7 eq { %Zusatz Schriftgroesse 10, 8, 6, 4 ix0 100 add iy0 200 add n600 sub moveto ng mg get exec show} if } for 0 1 03 {/ncol exch def /ix0 n600 2 mul ncol n600 mul add def /iy0 3500 8 n600 mul sub 0 1 07 {/j exch def /iy0 3500 j n600 mul sub def /k ncol 8 mul j add igroe 32 mul add def n setlinewidth [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace ncol 0 eq {L*NN A*NN B*NN setcolor} if ncol 1 eq {tfo1 tfo2 tfo3 setcolor} if ncol 2 eq {tfl1 tfl2 tfl3 setcolor} if ncol 3 eq {tfv1 tfv2 tfv3 setcolor} if newpath nar setlinewidth ix0 300 add iy0 300 add nar 2.5 mul 0 360 arc closepath fill 1 setgray ix0 300 add iy0 300 add nar 1.5 mul 0 360 arc closepath fill 1 setgray ix0 300 add iy0 300 add moveto /m ak k get exec def m 1 eq {nar 2.6 mul 0 rlineto closepath stroke} if %0 m 2 eq {nar 2.6 mul 45 sin mul nar 2.6 mul 45 cos mul rlineto closepath stroke} if %45 m 3 eq {0 nar 2.6 mul rlineto closepath stroke} if %90 m 4 eq {nar 2.6 mul 135 sin mul nar 2.6 mul 135 cos mul rlineto closepath stroke} if %135 m 5 eq {nar 2.6 mul neg 0 rlineto closepath stroke} if %0 m 6 eq {nar 2.6 mul 235 sin mul nar 2.6 mul 235 cos mul rlineto closepath stroke} if %45 m 7 eq {0 nar 2.6 mul neg rlineto closepath stroke} if %0 m 8 eq {nar 2.6 mul 315 sin mul nar 2.6 mul 315 cos mul rlineto closepath stroke} if %45 } for %j acht Orientierungen 0 setgray ix0 300 add n150 sub iy0 300 add n600 sub n150 sub moveto nf ncol get show } for %ncol=N,O,L,V } for %n vier Schrift-Groessen showpage } if %xcolorl=4 %%Trailer %line 449 %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 24 %line 459 %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 25 %!PS-Adobe-3.0 EPSF-3.0 LE22/L11-5N.EPS 20040101 %%BoundingBox: 70 80 392 206 %%Creator: K. Richter, BAM und TU Berlin, 2000.06.16 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def %ANFA CMYKDEF %CMYKDEA0 (A0=Standard-Drucker-CMYKDEF) 15.3.97 /tzac [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzam [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzay [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzan [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tza0 [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000] def /tza1 [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000] def %ENDE CMYKD /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y n {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y n {setcmykcolor rec stroke} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %ANFA OUTLINO0 951204 /pixf 1.0 def /ueg {1.6 pixf mul} bind def /uek {0.8 pixf mul} bind def /ues {0.7 pixf mul} bind def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /outxshowf {show} bind def /outxshow {show} bind def /SK {250 16.67 div 1 sub pixf mul /Symbol FS} bind def /SM {300 16.67 div 1 sub pixf mul /Symbol FS} bind def /SG {350 16.67 div 1 sub pixf mul /Symbol FS} bind def /outSK {250 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSM {300 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSG {350 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outshowf {setcmykcolor show} bind def /outrecfi { %x y width heigth c m y k setcmykcolor rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmykcolor lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmykcolor stroke} bind def %%EndProlog gsave %LANINDL0.EPS START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %no loops /xcolorl xcolor1 def /xchart xchart1 def %LANINDL0 END 8 /Times-Roman FS %72 82 moveto %!2 (LE22/L11-5N.eps) show xcolorl 1 eq {%xcolorl=1 8 /Times-ISOL1 FS 72 82 moveto (Bild D6w: Landoltringe ) showde (Picture D6w: Landolt\255rings ) showen 8 /TimesBI-ISOL1 FS (W\255O ) show 8 /Times-ISOL1 FS (und ) showde (and ) showen 8 /TimesBI-ISOL1 FS (W\255L) show 8 /Times-ISOL1 FS (; PS\255Operator) showde (; PS operator) showen (; PS operator) showes (; PS operator) showfr (; PS operator) showit (; PS operator) showjp (; PS operator) showm 8 /TimesI-ISOL1 FS ( LAB* setcolor ) show 8 /Times-ISOL1 FS 72 90 translate /pixf 16.67 def 0.1667 pixf div MM dup scale 15 setlinewidth 1 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath fill 0 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath stroke /xab 5400 def 50 0 translate /ar 80 def ar setlinewidth /tef [(W-O) (W-L) (W-V) (W-N)] def /tzo4 64 array def /tzl4 64 array def /tza4 64 array def 0 1 1 {/ncol exch def 0 1 15 {/j exch def [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace /ISYSLAB where {pop /ISYSLABL ISYSLAB def} {/ISYSLABL 0 def} ifelse /ISYSTEM where {pop /ISYSTEML ISYSTEM def} {/ISYSTEML 0 def} ifelse ISYSLABL 0 eq {0 ncol eq {/LABs0X [29.93 65.39 50.52] def} if %O 1 ncol eq {/LABs0X [32.89 -62.83 34.96] def} if %L 2 ncol eq {/LABs0X [ 7.71 31.10 -44.40] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 1 eq {0 ncol eq {/LABs0X [50.49 76.92 64.55] def} if %O 1 ncol eq {/LABs0X [83.62 -82.75 79.90] def} if %L 2 ncol eq {/LABs0X [25.71 31.45 -44.29] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [95.40 0.00 0.00] def %LABW100 /L*NN 18.00 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.40 def /A*WW 0.00 def /B*WW 0.00 def } if ISYSLABL 2 eq {0 ncol eq {/LABs0X [29.93 65.39 50.52] def} if %O 1 ncol eq {/LABs0X [32.89 -62.83 34.96] def} if %L 2 ncol eq {/LABs0X [ 7.71 31.10 -44.40] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 3 eq {0 ncol eq {/LABs0X [34.99 71.79 50.18] def} if %O 1 ncol eq {/LABs0X [66.29 -79.08 74.11] def} if %L 2 ncol eq {/LABs0X [14.04 24.65 -37.54] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.70 0.00 0.00] def %LABW100 /L*NN 17.70 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.41 def /A*WW 0.00 def /B*WW 0.00 def } if /jmul j 15 div def /LSs0 LABs0X 0 get LABs0W 0 get LABs0X 0 get sub jmul mul add def /LS* LSs0 18.01 add def /l*CIE LS* L*NN sub L*WW L*NN sub 0.0001 add div def /ASs0 LABs0X 1 get LABs0W 1 get LABs0X 1 get sub jmul mul add def /AS* ASs0 A*NN A*WW A*NN sub l*CIE mul add add def /BSs0 LABs0X 2 get LABs0W 2 get LABs0X 2 get sub jmul mul add def /BS* BSs0 B*NN B*WW B*NN sub l*CIE mul add add def ncol 0 eq {/j4 j 4 mul def tzo4 j4 LS* put tzo4 j4 1 add AS* put tzo4 j4 2 add BS* put } if %O ncol 1 eq {/j4 j 4 mul def tzl4 j4 LS* put tzl4 j4 1 add AS* put tzl4 j4 2 add BS* put } if %L } for %j=0,15 } for %ncol=0,1 0 1 1 {/ncol exch def %=0,1,2,3 O,L,V,N ncol 0 eq { %O /tza4 tzo4 def /nc [(F-D) (8-6) (2-0) (E-F) (7-8) (0-1)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [4 3 2 8 7 1 5 6 8 5 3 7 2 1 4 6 6 3 5 4 3 7 2 8 4 1 6 7 8 2 3 5 1 5 4 8 7 2 3 6 8 1 7 6 2 5 4 3] def /ndif1 2 def /ndif2 -1 def } if %C ncol 1 eq { %L /tza4 tzl4 def /nc [(F-D) (8-6) (2-0) (E-F) (7-8) (0-1)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [6 7 8 2 3 5 4 1 7 2 3 6 1 5 4 8 6 4 8 5 3 7 2 1 7 2 8 6 3 5 4 3 8 1 7 5 2 6 4 3 4 3 2 8 7 1 5 6] def /ndif1 2 def /ndif2 -1 def } if %M ncol 2 eq { %V /tza4 tzv4 def /nc [(F-D) (8-6) (2-0) (E-F) (7-8) (0-1)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [8 5 3 7 2 1 4 6 6 3 5 4 3 7 2 8 4 3 2 8 7 1 5 6 5 3 2 8 7 6 1 4 8 4 5 1 6 3 2 7 7 6 5 2 3 4 1 8] def /ndif1 2 def /ndif2 -1 def } if %V ncol 3 eq { %N /tza4 tzn4 def /nc [(F-D) (8-6) (2-0) (E-F) (7-8) (0-1)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [6 7 8 2 3 5 4 1 7 2 3 6 1 5 4 8 6 4 8 5 3 7 2 1 7 2 8 6 3 5 4 3 8 1 7 5 2 6 4 3 4 3 2 8 7 1 5 6] def /ndif1 2 def /ndif2 -1 def } if %N 0 setgray 250 /Times-Roman FS 0 1 5 {/j exch def /iy0 500 j 600 mul add def 5000 iy0 moveto nc j get show } for %j TK [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace 0 1 07 {/j exch def /ix0 0100 j 600 mul add def 0 1 05 {/l exch def /iy0 0300 l 600 mul add def /k l 8 mul j add def /i1 nl l get def /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor /ixd 600 def ix0 iy0 moveto ixd 000 rlineto 000 ixd rlineto ixd neg 000 rlineto closepath fill l 2 le {/i1 nl l get ndif1 add def} {/i1 nl l get ndif2 add def} ifelse /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor ix0 300 add iy0 300 add ar 2.5 mul 0 360 arc closepath fill /i1 nl l get def /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor ix0 300 add iy0 300 add ar 1.5 mul 0 360 arc closepath fill /i1 nl l get def /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor ix0 300 add iy0 300 add moveto /m ak k get exec def m 1 eq {ar 2.6 mul 0 rlineto closepath stroke} if %0 m 2 eq {ar 2.6 mul 45 sin mul ar 2.6 mul 45 cos mul rlineto closepath stroke} if %45 m 3 eq {0 ar 2.6 mul rlineto closepath stroke} if %90 m 4 eq {ar 2.6 mul 135 sin mul ar 2.6 mul 135 cos mul rlineto closepath stroke} if %135 m 5 eq {ar 2.6 mul neg 0 rlineto closepath stroke} if %0 m 6 eq {ar 2.6 mul 235 sin mul ar 2.6 mul 235 cos mul rlineto closepath stroke} if %45 m 7 eq {0 ar 2.6 mul neg rlineto closepath stroke} if %0 m 8 eq {ar 2.6 mul 315 sin mul ar 2.6 mul 315 cos mul rlineto closepath stroke} if %45 } for %l } for %j 0 setgray 250 /Times-Roman FS 1500 50 moveto (Landoltringe ) showde (Landolt-rings ) showen 250 /Times-Italic FS tef ncol get show 5000 50 moveto (Code) show xab 0 translate 50 0 translate } for %ncol=0,1,2,3 grestore showpage } if %xcolorl=1 xcolorl 2 eq {%xcolorl=2 8 /Times-ISOL1 FS 72 82 moveto (Bild D6n: Landoltringe ) showde (Picture D6n: Landolt\255rings ) showen 8 /TimesBI-ISOL1 FS (N\255O ) show 8 /Times-ISOL1 FS (und ) showde (and ) showen 8 /TimesBI-ISOL1 FS (N\255L) show 8 /Times-ISOL1 FS (; PS\255Operator) showde (; PS operator) showen (; PS operator) showes (; PS operator) showfr (; PS operator) showit (; PS operator) showjp (; PS operator) showm 8 /TimesI-ISOL1 FS ( LAB* setcolor ) show 8 /Times-ISOL1 FS 72 90 translate /pixf 16.67 def 0.1667 pixf div MM dup scale 15 setlinewidth 1 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath fill 0 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath stroke /xab 5400 def 50 0 translate /ar 80 def ar setlinewidth /tef [(N-O) (N-L) (N-V) (N-W)] def /tzo4 64 array def /tzl4 64 array def /tza4 64 array def 0 1 1 {/ncol exch def 0 1 15 {/j exch def [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace /ISYSLAB where {pop /ISYSLABL ISYSLAB def} {/ISYSLABL 0 def} ifelse /ISYSTEM where {pop /ISYSTEML ISYSTEM def} {/ISYSTEML 0 def} ifelse ISYSLABL 0 eq {0 ncol eq {/LABs0X [29.93 65.39 50.52] def} if %O 1 ncol eq {/LABs0X [32.89 -62.83 34.96] def} if %L 2 ncol eq {/LABs0X [ 7.71 31.10 -44.40] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 1 eq {0 ncol eq {/LABs0X [50.49 76.92 64.55] def} if %O 1 ncol eq {/LABs0X [83.62 -82.75 79.90] def} if %L 2 ncol eq {/LABs0X [25.71 31.45 -44.29] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [95.40 0.00 0.00] def %LABW100 /L*NN 18.00 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.40 def /A*WW 0.00 def /B*WW 0.00 def } if ISYSLABL 2 eq {0 ncol eq {/LABs0X [29.93 65.39 50.52] def} if %O 1 ncol eq {/LABs0X [32.89 -62.83 34.96] def} if %L 2 ncol eq {/LABs0X [ 7.71 31.10 -44.40] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 3 eq {0 ncol eq {/LABs0X [34.99 71.79 50.18] def} if %O 1 ncol eq {/LABs0X [66.29 -79.08 74.11] def} if %L 2 ncol eq {/LABs0X [14.04 24.65 -37.54] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.70 0.00 0.00] def %LABW100 /L*NN 17.70 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.41 def /A*WW 0.00 def /B*WW 0.00 def } if /jmul 1 j 15 div sub def /LSs0 LABs0X 0 get jmul mul def /LS* LSs0 18.01 add def /l*CIE LS* L*NN sub L*WW L*NN sub 0.0001 add div def /ASs0 LABs0X 1 get jmul mul def /AS* ASs0 A*NN A*WW A*NN sub l*CIE mul add add def /BSs0 LABs0X 2 get jmul mul def /BS* BSs0 B*NN B*WW B*NN sub l*CIE mul add add def ncol 0 eq {/j4 j 4 mul def tzo4 j4 LS* put tzo4 j4 1 add AS* put tzo4 j4 2 add BS* put } if %O ncol 1 eq {/j4 j 4 mul def tzl4 j4 LS* put tzl4 j4 1 add AS* put tzl4 j4 2 add BS* put } if %L } for %j=0,15 } for %ncol=0,1 0 1 1 {/ncol exch def %=0,1,2,3 O,L,V,N ncol 0 eq { %O /tza4 tzo4 def /nc [(p-n) (i-g) (c-a) (o-p) (h-i) (a-b)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [4 3 2 8 7 1 5 6 8 5 3 7 2 1 4 6 6 3 5 4 3 7 2 8 4 1 6 7 8 2 3 5 1 5 4 8 7 2 3 6 8 1 7 6 2 5 4 3] def /ndif1 2 def /ndif2 -1 def } if %C ncol 1 eq { %L /tza4 tzl4 def /nc [(p-n) (i-g) (c-a) (o-p) (h-i) (a-b)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [6 7 8 2 3 5 4 1 7 2 3 6 1 5 4 8 6 4 8 5 3 7 2 1 7 2 8 6 3 5 4 3 8 1 7 5 2 6 4 3 4 3 2 8 7 1 5 6] def /ndif1 2 def /ndif2 -1 def } if %M ncol 2 eq { %V /tza4 tzv4 def /nc [(p-n) (i-g) (c-a) (o-p) (h-i) (a-b)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [8 5 3 7 2 1 4 6 6 3 5 4 3 7 2 8 4 3 2 8 7 1 5 6 5 3 2 8 7 6 1 4 8 4 5 1 6 3 2 7 7 6 5 2 3 4 1 8] def /ndif1 2 def /ndif2 -1 def } if %V ncol 3 eq { %N /tza4 tzn4 def /nc [(p-n) (i-g) (c-a) (o-p) (h-i) (a-b)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [6 7 8 2 3 5 4 1 7 2 3 6 1 5 4 8 6 4 8 5 3 7 2 1 7 2 8 6 3 5 4 3 8 1 7 5 2 6 4 3 4 3 2 8 7 1 5 6] def /ndif1 2 def /ndif2 -1 def } if %N 0 setgray 250 /Times-Roman FS 0 1 5 {/j exch def /iy0 500 j 600 mul add def 5000 iy0 moveto nc j get show } for %j TK [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace 0 1 07 {/j exch def /ix0 0100 j 600 mul add def 0 1 05 {/l exch def /iy0 0300 l 600 mul add def /k l 8 mul j add def /i1 nl l get def /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor /ixd 600 def ix0 iy0 moveto ixd 000 rlineto 000 ixd rlineto ixd neg 000 rlineto closepath fill l 2 le {/i1 nl l get ndif1 add def} {/i1 nl l get ndif2 add def} ifelse /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor ix0 300 add iy0 300 add ar 2.5 mul 0 360 arc closepath fill /i1 nl l get def /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor ix0 300 add iy0 300 add ar 1.5 mul 0 360 arc closepath fill /i1 nl l get def /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor ix0 300 add iy0 300 add moveto /m ak k get exec def m 1 eq {ar 2.6 mul 0 rlineto closepath stroke} if %0 m 2 eq {ar 2.6 mul 45 sin mul ar 2.6 mul 45 cos mul rlineto closepath stroke} if %45 m 3 eq {0 ar 2.6 mul rlineto closepath stroke} if %90 m 4 eq {ar 2.6 mul 135 sin mul ar 2.6 mul 135 cos mul rlineto closepath stroke} if %135 m 5 eq {ar 2.6 mul neg 0 rlineto closepath stroke} if %0 m 6 eq {ar 2.6 mul 235 sin mul ar 2.6 mul 235 cos mul rlineto closepath stroke} if %45 m 7 eq {0 ar 2.6 mul neg rlineto closepath stroke} if %0 m 8 eq {ar 2.6 mul 315 sin mul ar 2.6 mul 315 cos mul rlineto closepath stroke} if %45 } for %l } for %j 0 setgray 250 /Times-Roman FS 1500 50 moveto (Landoltringe ) showde (Landolt-rings ) showen 250 /Times-Italic FS tef ncol get show 5000 50 moveto (Code) show xab 0 translate 50 0 translate } for %ncol=0,1,2,3 grestore showpage } if %xcolorl=2 xcolorl 3 eq {%xcolorl=3 8 /Times-ISOL1 FS 72 82 moveto (Bild B6w: Landoltringe ) showde (Picture B6w: Landolt\255rings ) showen 8 /TimesBI-ISOL1 FS (W\255C ) show 8 /Times-ISOL1 FS (und ) showde (and ) showen 8 /TimesBI-ISOL1 FS (W\255M) show 8 /Times-ISOL1 FS (; PS\255Operator) showde (; PS operator) showen (; PS operator) showes (; PS operator) showfr (; PS operator) showit (; PS operator) showjp (; PS operator) showm 8 /TimesI-ISOL1 FS ( LAB* setcolor) show 8 /Times-ISOL1 FS 72 90 translate /pixf 16.67 def 0.1667 pixf div MM 0.1667 pixf div MM scale 15 setlinewidth 1 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath fill 0 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath stroke /xab 5400 def 50 0 translate /ar 80 def ar setlinewidth /tef [(W-C) (W-M) (W-Y) (W-N)] def /tzc4 64 array def /tzm4 64 array def /tza4 64 array def 0 1 1 {/ncol exch def 0 1 15 {/j exch def [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace /ISYSLAB where {pop /ISYSLABL ISYSLAB def} {/ISYSLABL 0 def} ifelse /ISYSTEM where {pop /ISYSTEML ISYSTEM def} {/ISYSTEML 0 def} ifelse ISYSLABL 0 eq {0 ncol eq {/LABs0X [40.62 -30.34 -45.01] def} if %C 1 ncol eq {/LABs0X [30.12 75.28 -8.36] def} if %M 2 ncol eq {/LABs0X [72.37 -10.26 91.75] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 1 eq {0 ncol eq {/LABs0X [86.87 -46.16 -13.55] def} if %C 1 ncol eq {/LABs0X [57.29 94.35 -20.69] def} if %M 2 ncol eq {/LABs0X [92.65 -20.69 90.75] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [95.40 0.00 0.00] def %LABW100 /L*NN 18.00 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.40 def /A*WW 0.00 def /B*WW 0.00 def } if ISYSLABL 2 eq {0 ncol eq {/LABs0X [40.62 -30.34 -45.01] def} if %C 1 ncol eq {/LABs0X [30.12 75.28 -8.36] def} if %M 2 ncol eq {/LABs0X [72.37 -10.26 91.75] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 3 eq {0 ncol eq {/LABs0X [69.43 -44.46 -13.14] def} if %C 1 ncol eq {/LABs0X [41.25 89.48 -19.47] def} if %M 2 ncol eq {/LABs0X [75.03 -20.05 85.13] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.70 0.00 0.00] def %LABW100 /L*NN 17.70 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.41 def /A*WW 0.00 def /B*WW 0.00 def } if /jmul j 15 div def /LSs0 LABs0X 0 get LABs0W 0 get LABs0X 0 get sub jmul mul add def /LS* LSs0 18.01 add def /l*CIE LS* L*NN sub L*WW L*NN sub 0.0001 add div def /ASs0 LABs0X 1 get LABs0W 1 get LABs0X 1 get sub jmul mul add def /AS* ASs0 A*NN A*WW A*NN sub l*CIE mul add add def /BSs0 LABs0X 2 get LABs0W 2 get LABs0X 2 get sub jmul mul add def /BS* BSs0 B*NN B*WW B*NN sub l*CIE mul add add def ncol 0 eq {/j4 j 4 mul def tzc4 j4 LS* put tzc4 j4 1 add AS* put tzc4 j4 2 add BS* put } if %O ncol 1 eq {/j4 j 4 mul def tzm4 j4 LS* put tzm4 j4 1 add AS* put tzm4 j4 2 add BS* put } if %L } for %j=0,15 } for %ncol=0,1 0 1 1 {/ncol exch def %=0,1,2,3 C,M,Y,N ncol 0 eq { %C /tza4 tzc4 def /nc [(F-D) (8-6) (2-0) (E-F) (7-8) (0-1)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [4 3 2 8 7 1 5 6 8 5 3 7 2 1 4 6 6 3 5 4 3 7 2 8 4 1 6 7 8 2 3 5 1 5 4 8 7 2 3 6 8 1 7 6 2 5 4 3] def /ndif1 2 def /ndif2 -1 def } if %C ncol 1 eq { %M /tza4 tzm4 def /nc [(F-D) (8-6) (2-0) (E-F) (7-8) (0-1)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [6 7 8 2 3 5 4 1 7 2 3 6 1 5 4 8 6 4 8 5 3 7 2 1 7 2 8 6 3 5 4 3 8 1 7 5 2 6 4 3 4 3 2 8 7 1 5 6] def /ndif1 2 def /ndif2 -1 def } if %M ncol 2 eq { %Y /tza4 tzy4 def /nc [(F-B) (9-5) (4-0) (D-F) (6-8) (0-2)] def /nl [0 6 11 2 9 15] def %entspricht F 9 4, D 6 0, +4, -2 /ak [8 5 3 7 2 1 4 6 6 3 5 4 3 7 2 8 4 3 2 8 7 1 5 6 5 3 2 8 7 6 1 4 8 4 5 1 6 3 2 7 7 6 5 2 3 4 1 8] def /ndif1 4 def /ndif2 -2 def } if %Y ncol 3 eq { %N /tza4 tzn4 def /nc [(F-D) (8-6) (2-0) (E-F) (7-8) (0-1)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [6 7 8 2 3 5 4 1 7 2 3 6 1 5 4 8 6 4 8 5 3 7 2 1 7 2 8 6 3 5 4 3 8 1 7 5 2 6 4 3 4 3 2 8 7 1 5 6] def /ndif1 2 def /ndif2 -1 def } if %N 0 setgray 250 /Times-Roman FS 0 1 5 {/j exch def /iy0 500 j 600 mul add def 5000 iy0 moveto nc j get show } for %j TK [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace 0 1 07 {/j exch def /ix0 0100 j 600 mul add def 0 1 05 {/l exch def /iy0 0300 l 600 mul add def /k l 8 mul j add def /i1 nl l get def /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor /ixd 600 def ix0 iy0 moveto ixd 000 rlineto 000 ixd rlineto ixd neg 000 rlineto closepath fill l 2 le {/i1 nl l get ndif1 add def} {/i1 nl l get ndif2 add def} ifelse /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor ix0 300 add iy0 300 add ar 2.5 mul 0 360 arc closepath fill /i1 nl l get def /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor ix0 300 add iy0 300 add ar 1.5 mul 0 360 arc closepath fill /i1 nl l get def /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor ix0 300 add iy0 300 add moveto /m ak k get exec def m 1 eq {ar 2.6 mul 0 rlineto closepath stroke} if %0 m 2 eq {ar 2.6 mul 45 sin mul ar 2.6 mul 45 cos mul rlineto closepath stroke} if %45 m 3 eq {0 ar 2.6 mul rlineto closepath stroke} if %90 m 4 eq {ar 2.6 mul 135 sin mul ar 2.6 mul 135 cos mul rlineto closepath stroke} if %135 m 5 eq {ar 2.6 mul neg 0 rlineto closepath stroke} if %0 m 6 eq {ar 2.6 mul 235 sin mul ar 2.6 mul 235 cos mul rlineto closepath stroke} if %45 m 7 eq {0 ar 2.6 mul neg rlineto closepath stroke} if %0 m 8 eq {ar 2.6 mul 315 sin mul ar 2.6 mul 315 cos mul rlineto closepath stroke} if %45 } for %l } for %j 0 setgray 250 /Times-Roman FS 1500 50 moveto (Landoltringe ) showde (Landolt-rings ) showen 250 /Times-Italic FS tef ncol get show 5000 50 moveto (Code) show xab 0 translate 50 0 translate } for %ncol=0,1,2,3 showpage } if %xcolorl=3 xcolorl 4 eq {%xcolorl=4 8 /Times-ISOL1 FS 72 82 moveto (Bild D6w: Landoltringe ) showde (Picture D6w: Landolt\255rings ) showen 8 /TimesBI-ISOL1 FS (W\255O ) show 8 /Times-ISOL1 FS (und ) showde (and ) showen 8 /TimesBI-ISOL1 FS (W\255L) show 8 /Times-ISOL1 FS (; PS\255Operator) showde (; PS operator) showen (; PS operator) showes (; PS operator) showfr (; PS operator) showit (; PS operator) showjp (; PS operator) showm 8 /TimesI-ISOL1 FS ( LAB* setcolor ) show 8 /Times-ISOL1 FS 72 90 translate /pixf 16.67 def 0.1667 pixf div MM dup scale 15 setlinewidth 1 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath fill 0 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath stroke /xab 5400 def 50 0 translate /ar 80 def ar setlinewidth /tef [(W-O) (W-L) (W-V) (W-N)] def /tzo4 64 array def /tzl4 64 array def /tza4 64 array def 0 1 1 {/ncol exch def 0 1 15 {/j exch def [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace /ISYSLAB where {pop /ISYSLABL ISYSLAB def} {/ISYSLABL 0 def} ifelse /ISYSTEM where {pop /ISYSTEML ISYSTEM def} {/ISYSTEML 0 def} ifelse ISYSLABL 0 eq {0 ncol eq {/LABs0X [29.93 65.39 50.52] def} if %O 1 ncol eq {/LABs0X [32.89 -62.83 34.96] def} if %L 2 ncol eq {/LABs0X [ 7.71 31.10 -44.40] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 1 eq {0 ncol eq {/LABs0X [50.49 76.92 64.55] def} if %O 1 ncol eq {/LABs0X [83.62 -82.75 79.90] def} if %L 2 ncol eq {/LABs0X [25.71 31.45 -44.29] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [95.40 0.00 0.00] def %LABW100 /L*NN 18.00 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.40 def /A*WW 0.00 def /B*WW 0.00 def } if ISYSLABL 2 eq {0 ncol eq {/LABs0X [29.93 65.39 50.52] def} if %O 1 ncol eq {/LABs0X [32.89 -62.83 34.96] def} if %L 2 ncol eq {/LABs0X [ 7.71 31.10 -44.40] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 3 eq {0 ncol eq {/LABs0X [34.99 71.79 50.18] def} if %O 1 ncol eq {/LABs0X [66.29 -79.08 74.11] def} if %L 2 ncol eq {/LABs0X [14.04 24.65 -37.54] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.70 0.00 0.00] def %LABW100 /L*NN 17.70 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.41 def /A*WW 0.00 def /B*WW 0.00 def } if /jmul j 15 div def /LSs0 LABs0X 0 get LABs0W 0 get LABs0X 0 get sub jmul mul add def /LS* LSs0 18.01 add def /l*CIE LS* L*NN sub L*WW L*NN sub 0.0001 add div def /ASs0 LABs0X 1 get LABs0W 1 get LABs0X 1 get sub jmul mul add def /AS* ASs0 A*NN A*WW A*NN sub l*CIE mul add add def /BSs0 LABs0X 2 get LABs0W 2 get LABs0X 2 get sub jmul mul add def /BS* BSs0 B*NN B*WW B*NN sub l*CIE mul add add def ncol 0 eq {/j4 j 4 mul def tzo4 j4 LS* put tzo4 j4 1 add AS* put tzo4 j4 2 add BS* put } if %O ncol 1 eq {/j4 j 4 mul def tzl4 j4 LS* put tzl4 j4 1 add AS* put tzl4 j4 2 add BS* put } if %L } for %j=0,15 } for %ncol=0,1 0 1 1 {/ncol exch def %=0,1,2,3 O,L,V,N ncol 0 eq { %O /tza4 tzo4 def /nc [(F-D) (8-6) (2-0) (E-F) (7-8) (0-1)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [4 3 2 8 7 1 5 6 8 5 3 7 2 1 4 6 6 3 5 4 3 7 2 8 4 1 6 7 8 2 3 5 1 5 4 8 7 2 3 6 8 1 7 6 2 5 4 3] def /ndif1 2 def /ndif2 -1 def } if %C ncol 1 eq { %L /tza4 tzl4 def /nc [(F-D) (8-6) (2-0) (E-F) (7-8) (0-1)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [6 7 8 2 3 5 4 1 7 2 3 6 1 5 4 8 6 4 8 5 3 7 2 1 7 2 8 6 3 5 4 3 8 1 7 5 2 6 4 3 4 3 2 8 7 1 5 6] def /ndif1 2 def /ndif2 -1 def } if %M ncol 2 eq { %V /tza4 tzv4 def /nc [(F-D) (8-6) (2-0) (E-F) (7-8) (0-1)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [8 5 3 7 2 1 4 6 6 3 5 4 3 7 2 8 4 3 2 8 7 1 5 6 5 3 2 8 7 6 1 4 8 4 5 1 6 3 2 7 7 6 5 2 3 4 1 8] def /ndif1 2 def /ndif2 -1 def } if %V ncol 3 eq { %N /tza4 tzn4 def /nc [(F-D) (8-6) (2-0) (E-F) (7-8) (0-1)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [6 7 8 2 3 5 4 1 7 2 3 6 1 5 4 8 6 4 8 5 3 7 2 1 7 2 8 6 3 5 4 3 8 1 7 5 2 6 4 3 4 3 2 8 7 1 5 6] def /ndif1 2 def /ndif2 -1 def } if %N 0 setgray 250 /Times-Roman FS 0 1 5 {/j exch def /iy0 500 j 600 mul add def 5000 iy0 moveto nc j get show } for %j TK [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace 0 1 07 {/j exch def /ix0 0100 j 600 mul add def 0 1 05 {/l exch def /iy0 0300 l 600 mul add def /k l 8 mul j add def /i1 nl l get def /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor /ixd 600 def ix0 iy0 moveto ixd 000 rlineto 000 ixd rlineto ixd neg 000 rlineto closepath fill l 2 le {/i1 nl l get ndif1 add def} {/i1 nl l get ndif2 add def} ifelse /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor ix0 300 add iy0 300 add ar 2.5 mul 0 360 arc closepath fill /i1 nl l get def /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor ix0 300 add iy0 300 add ar 1.5 mul 0 360 arc closepath fill /i1 nl l get def /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor ix0 300 add iy0 300 add moveto /m ak k get exec def m 1 eq {ar 2.6 mul 0 rlineto closepath stroke} if %0 m 2 eq {ar 2.6 mul 45 sin mul ar 2.6 mul 45 cos mul rlineto closepath stroke} if %45 m 3 eq {0 ar 2.6 mul rlineto closepath stroke} if %90 m 4 eq {ar 2.6 mul 135 sin mul ar 2.6 mul 135 cos mul rlineto closepath stroke} if %135 m 5 eq {ar 2.6 mul neg 0 rlineto closepath stroke} if %0 m 6 eq {ar 2.6 mul 235 sin mul ar 2.6 mul 235 cos mul rlineto closepath stroke} if %45 m 7 eq {0 ar 2.6 mul neg rlineto closepath stroke} if %0 m 8 eq {ar 2.6 mul 315 sin mul ar 2.6 mul 315 cos mul rlineto closepath stroke} if %45 } for %l } for %j 0 setgray 250 /Times-Roman FS 1500 50 moveto (Landoltringe ) showde (Landolt-rings ) showen 250 /Times-Italic FS tef ncol get show 5000 50 moveto (Code) show xab 0 translate 50 0 translate } for %ncol=0,1,2,3 grestore showpage } if %xcolorl=4 %%Trailer %line 469 %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 26 %line 479 %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 020 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 27 %!PS-Adobe-3.0 EPSF-3.0 LE22/L11-1N.EPS 20040101 %%BoundingBox: 70 80 392 206 %%Creator: K. Richter, BAM und TU Berlin, 2000.06.16 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def %ANFA CMYKDEF %CMYKDEA0 (A0=Standard-Drucker-CMYKDEF) 15.3.97 /tzac [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzam [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzay [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzan [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tza0 [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000] def /tza1 [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000] def %ENDE CMYKD /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y n {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y n {setcmykcolor rec stroke} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %ANFA OUTLINO0 951204 /pixf 1.0 def /ueg {1.6 pixf mul} bind def /uek {0.8 pixf mul} bind def /ues {0.7 pixf mul} bind def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /outxshowf {show} bind def /outxshow {show} bind def /SK {250 16.67 div 1 sub pixf mul /Symbol FS} bind def /SM {300 16.67 div 1 sub pixf mul /Symbol FS} bind def /SG {350 16.67 div 1 sub pixf mul /Symbol FS} bind def /outSK {250 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSM {300 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSG {350 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outshowf {setcmykcolor show} bind def /outrecfi { %x y width heigth c m y k setcmykcolor rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmykcolor lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmykcolor stroke} bind def %%EndProlog gsave %LANINDL0.EPS START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %no loops /xcolorl xcolor1 def /xchart xchart1 def %LANINDL0 END 8 /Times-Roman FS %72 83 moveto %!2 (LE22/L11-7N.eps) show xcolorl 1 eq {%xcolorl=1 8 /Times-ISOL1 FS 72 82 moveto (Bild D7w: Landoltringe ) showde (Picture D7w: Landolt\255rings ) showen 8 /TimesBI-ISOL1 FS (W\255V ) show 8 /Times-ISOL1 FS (und ) showde (and ) showen 8 /TimesBI-ISOL1 FS (W\255N) show 8 /Times-ISOL1 FS (; PS\255Operator) showde (; PS operator) showen (; PS operator) showes (; PS operator) showfr (; PS operator) showit (; PS operator) showjp (; PS operator) showm 8 /TimesI-ISOL1 FS ( LAB* setcolor) show 8 /Times-ISOL1 FS 72 90 translate /pixf 16.67 def 0.1667 pixf div MM dup scale 15 setlinewidth 1 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath fill 0 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath stroke /xab 5400 def 50 0 translate /ar 80 def ar setlinewidth /tef [(W-O) (W-L) (W-V) (W-N)] def /tzv4 64 array def /tzn4 64 array def /tza4 64 array def 2 1 3 {/ncol exch def %V,N 0 1 15 {/j exch def [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace /ISYSLAB where {pop /ISYSLABL ISYSLAB def} {/ISYSLABL 0 def} ifelse /ISYSTEM where {pop /ISYSTEML ISYSTEM def} {/ISYSTEML 0 def} ifelse ISYSLABL 0 eq {0 ncol eq {/LABs0X [29.93 65.39 50.52] def} if %O 1 ncol eq {/LABs0X [32.89 -62.83 34.96] def} if %L 2 ncol eq {/LABs0X [ 7.71 31.10 -44.40] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 1 eq {0 ncol eq {/LABs0X [50.49 76.92 64.55] def} if %O 1 ncol eq {/LABs0X [83.62 -82.75 79.90] def} if %L 2 ncol eq {/LABs0X [25.71 31.45 -44.29] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [95.40 0.00 0.00] def %LABW100 /L*NN 18.00 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.40 def /A*WW 0.00 def /B*WW 0.00 def } if ISYSLABL 2 eq {0 ncol eq {/LABs0X [29.93 65.39 50.52] def} if %O 1 ncol eq {/LABs0X [32.89 -62.83 34.96] def} if %L 2 ncol eq {/LABs0X [ 7.71 31.10 -44.40] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 3 eq {0 ncol eq {/LABs0X [34.99 71.79 50.18] def} if %O 1 ncol eq {/LABs0X [66.29 -79.08 74.11] def} if %L 2 ncol eq {/LABs0X [14.04 24.65 -37.54] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.70 0.00 0.00] def %LABW100 /L*NN 17.70 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.41 def /A*WW 0.00 def /B*WW 0.00 def } if /jmul j 15 div def /LSs0 LABs0X 0 get LABs0W 0 get LABs0X 0 get sub jmul mul add def /LS* LSs0 18.01 add def /l*CIE LS* L*NN sub L*WW L*NN sub 0.0001 add div def /ASs0 LABs0X 1 get LABs0W 1 get LABs0X 1 get sub jmul mul add def /AS* ASs0 A*NN A*WW A*NN sub l*CIE mul add add def /BSs0 LABs0X 2 get LABs0W 2 get LABs0X 2 get sub jmul mul add def /BS* BSs0 B*NN B*WW B*NN sub l*CIE mul add add def ncol 2 eq {/j4 j 4 mul def tzv4 j4 LS* put tzv4 j4 1 add AS* put tzv4 j4 2 add BS* put } if %O ncol 3 eq {/j4 j 4 mul def tzn4 j4 LS* put tzn4 j4 1 add AS* put tzn4 j4 2 add BS* put } if %L } for %j=0,15 } for %ncol=2,3 2 1 3 {/ncol exch def %=0,1,2,3 O,L,V,N ncol 0 eq { %O /tza4 tzo4 def /nc [(F-D) (8-6) (2-0) (E-F) (7-8) (0-1)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [4 3 2 8 7 1 5 6 8 5 3 7 2 1 4 6 6 3 5 4 3 7 2 8 4 1 6 7 8 2 3 5 1 5 4 8 7 2 3 6 8 1 7 6 2 5 4 3] def /ndif1 2 def /ndif2 -1 def } if %C ncol 1 eq { %L /tza4 tzl4 def /nc [(F-D) (8-6) (2-0) (E-F) (7-8) (0-1)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [6 7 8 2 3 5 4 1 7 2 3 6 1 5 4 8 6 4 8 5 3 7 2 1 7 2 8 6 3 5 4 3 8 1 7 5 2 6 4 3 4 3 2 8 7 1 5 6] def /ndif1 2 def /ndif2 -1 def } if %M ncol 2 eq { %V /tza4 tzv4 def /nc [(F-D) (8-6) (2-0) (E-F) (7-8) (0-1)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [8 5 3 7 2 1 4 6 6 3 5 4 3 7 2 8 4 3 2 8 7 1 5 6 5 3 2 8 7 6 1 4 8 4 5 1 6 3 2 7 7 6 5 2 3 4 1 8] def /ndif1 2 def /ndif2 -1 def } if %V ncol 3 eq { %N /tza4 tzn4 def /nc [(F-D) (8-6) (2-0) (E-F) (7-8) (0-1)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [6 7 8 2 3 5 4 1 7 2 3 6 1 5 4 8 6 4 8 5 3 7 2 1 7 2 8 6 3 5 4 3 8 1 7 5 2 6 4 3 4 3 2 8 7 1 5 6] def /ndif1 2 def /ndif2 -1 def } if %N 0 setgray 250 /Times-Roman FS 0 1 5 {/j exch def /iy0 500 j 600 mul add def 5000 iy0 moveto nc j get show } for %j [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace 0 1 07 {/j exch def /ix0 0100 j 600 mul add def 0 1 05 {/l exch def /iy0 0300 l 600 mul add def /k l 8 mul j add def /i1 nl l get def /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor /ixd 600 def ix0 iy0 moveto ixd 000 rlineto 000 ixd rlineto ixd neg 000 rlineto closepath fill l 2 le {/i1 nl l get ndif1 add def} {/i1 nl l get ndif2 add def} ifelse /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor ix0 300 add iy0 300 add ar 2.5 mul 0 360 arc closepath fill /i1 nl l get def /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor ix0 300 add iy0 300 add ar 1.5 mul 0 360 arc closepath fill /i1 nl l get def /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor ix0 300 add iy0 300 add moveto /m ak k get exec def m 1 eq {ar 2.6 mul 0 rlineto closepath stroke} if %0 m 2 eq {ar 2.6 mul 45 sin mul ar 2.6 mul 45 cos mul rlineto closepath stroke} if %45 m 3 eq {0 ar 2.6 mul rlineto closepath stroke} if %90 m 4 eq {ar 2.6 mul 135 sin mul ar 2.6 mul 135 cos mul rlineto closepath stroke} if %135 m 5 eq {ar 2.6 mul neg 0 rlineto closepath stroke} if %0 m 6 eq {ar 2.6 mul 235 sin mul ar 2.6 mul 235 cos mul rlineto closepath stroke} if %45 m 7 eq {0 ar 2.6 mul neg rlineto closepath stroke} if %0 m 8 eq {ar 2.6 mul 315 sin mul ar 2.6 mul 315 cos mul rlineto closepath stroke} if %45 } for %l } for %j 0 setgray 250 /Times-Roman FS 1500 50 moveto (Landoltringe ) showde (Landolt-rings ) showen 250 /Times-Italic FS tef ncol get show 5000 50 moveto (Code) show xab 0 translate 50 0 translate } for %ncol=0,1,2,3 grestore showpage } if %xcolorl=1 xcolorl 2 eq {%xcolorl=2 8 /Times-ISOL1 FS 72 82 moveto (Bild D7n: Landoltringe ) showde (Picture D7n: Landolt\255rings ) showen 8 /TimesBI-ISOL1 FS (N\255V ) show 8 /Times-ISOL1 FS (und ) showde (and ) showen 8 /TimesBI-ISOL1 FS (N\255N) show 8 /Times-ISOL1 FS (; PS\255Operator) showde (; PS operator) showen (; PS operator) showes (; PS operator) showfr (; PS operator) showit (; PS operator) showjp (; PS operator) showm 8 /TimesI-ISOL1 FS ( LAB* setcolor) show 8 /Times-ISOL1 FS 72 90 translate /pixf 16.67 def 0.1667 pixf div MM dup scale 15 setlinewidth 1 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath fill 0 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath stroke /xab 5400 def 50 0 translate /ar 80 def ar setlinewidth /tef [(N-O) (N-L) (N-V) (N-W)] def /tzv4 64 array def /tzn4 64 array def /tza4 64 array def 2 1 3 {/ncol exch def %V,N 0 1 15 {/j exch def [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace /ISYSLAB where {pop /ISYSLABL ISYSLAB def} {/ISYSLABL 0 def} ifelse /ISYSTEM where {pop /ISYSTEML ISYSTEM def} {/ISYSTEML 0 def} ifelse ISYSLABL 0 eq {0 ncol eq {/LABs0X [29.93 65.39 50.52] def} if %O 1 ncol eq {/LABs0X [32.89 -62.83 34.96] def} if %L 2 ncol eq {/LABs0X [ 7.71 31.10 -44.40] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 1 eq {0 ncol eq {/LABs0X [50.49 76.92 64.55] def} if %O 1 ncol eq {/LABs0X [83.62 -82.75 79.90] def} if %L 2 ncol eq {/LABs0X [25.71 31.45 -44.29] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [95.40 0.00 0.00] def %LABW100 /L*NN 18.00 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.40 def /A*WW 0.00 def /B*WW 0.00 def } if ISYSLABL 2 eq {0 ncol eq {/LABs0X [29.93 65.39 50.52] def} if %O 1 ncol eq {/LABs0X [32.89 -62.83 34.96] def} if %L 2 ncol eq {/LABs0X [ 7.71 31.10 -44.40] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 3 eq {0 ncol eq {/LABs0X [34.99 71.79 50.18] def} if %O 1 ncol eq {/LABs0X [66.29 -79.08 74.11] def} if %L 2 ncol eq {/LABs0X [14.04 24.65 -37.54] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.70 0.00 0.00] def %LABW100 /L*NN 17.70 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.41 def /A*WW 0.00 def /B*WW 0.00 def } if /jmul 1 j 15 div sub def ncol 2 le { /LSs0 LABs0X 0 get jmul mul def /LS* LSs0 18.01 add def /l*CIE LS* L*NN sub L*WW L*NN sub 0.0001 add div def /ASs0 LABs0X 1 get jmul mul def /AS* ASs0 A*NN A*WW A*NN sub l*CIE mul add add def /BSs0 LABs0X 2 get jmul mul def /BS* BSs0 B*NN B*WW B*NN sub l*CIE mul add add def } { /LSs0 LABs0X 0 get LABs0W 0 get LABs0X 0 get sub jmul mul add def /LS* LSs0 18.01 add def /l*CIE LS* L*NN sub L*WW L*NN sub 0.0001 add div def /ASs0 LABs0X 1 get LABs0W 1 get LABs0X 1 get sub jmul mul add def /AS* ASs0 A*NN A*WW A*NN sub l*CIE mul add add def /BSs0 LABs0X 2 get LABs0W 2 get LABs0X 2 get sub jmul mul add def /BS* BSs0 B*NN B*WW B*NN sub l*CIE mul add add def } ifelse ncol 2 eq {/j4 j 4 mul def tzv4 j4 LS* put tzv4 j4 1 add AS* put tzv4 j4 2 add BS* put } if %O ncol 3 eq {/j4 j 4 mul def tzn4 j4 LS* put tzn4 j4 1 add AS* put tzn4 j4 2 add BS* put } if %L } for %j=0,15 } for %ncol=2,3 2 1 3 {/ncol exch def %=0,1,2,3 O,L,V,N ncol 0 eq { %O /tza4 tzo4 def /nc [(p-n) (i-g) (c-a) (o-p) (h-i) (a-b)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [4 3 2 8 7 1 5 6 8 5 3 7 2 1 4 6 6 3 5 4 3 7 2 8 4 1 6 7 8 2 3 5 1 5 4 8 7 2 3 6 8 1 7 6 2 5 4 3] def /ndif1 2 def /ndif2 -1 def } if %C ncol 1 eq { %L /tza4 tzl4 def /nc [(p-n) (i-g) (c-a) (o-p) (h-i) (a-b)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [6 7 8 2 3 5 4 1 7 2 3 6 1 5 4 8 6 4 8 5 3 7 2 1 7 2 8 6 3 5 4 3 8 1 7 5 2 6 4 3 4 3 2 8 7 1 5 6] def /ndif1 2 def /ndif2 -1 def } if %M ncol 2 eq { %V /tza4 tzv4 def /nc [(p-n) (i-g) (c-a) (o-p) (h-i) (a-b)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [8 5 3 7 2 1 4 6 6 3 5 4 3 7 2 8 4 3 2 8 7 1 5 6 5 3 2 8 7 6 1 4 8 4 5 1 6 3 2 7 7 6 5 2 3 4 1 8] def /ndif1 2 def /ndif2 -1 def } if %V ncol 3 eq { %N /tza4 tzn4 def /nc [(p-n) (i-g) (c-a) (o-p) (h-i) (a-b)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [6 7 8 2 3 5 4 1 7 2 3 6 1 5 4 8 6 4 8 5 3 7 2 1 7 2 8 6 3 5 4 3 8 1 7 5 2 6 4 3 4 3 2 8 7 1 5 6] def /ndif1 2 def /ndif2 -1 def } if %N 0 setgray 250 /Times-Roman FS 0 1 5 {/j exch def /iy0 500 j 600 mul add def 5000 iy0 moveto nc j get show } for %j [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace 0 1 07 {/j exch def /ix0 0100 j 600 mul add def 0 1 05 {/l exch def /iy0 0300 l 600 mul add def /k l 8 mul j add def /i1 nl l get def /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor /ixd 600 def ix0 iy0 moveto ixd 000 rlineto 000 ixd rlineto ixd neg 000 rlineto closepath fill l 2 le {/i1 nl l get ndif1 add def} {/i1 nl l get ndif2 add def} ifelse /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor ix0 300 add iy0 300 add ar 2.5 mul 0 360 arc closepath fill /i1 nl l get def /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor ix0 300 add iy0 300 add ar 1.5 mul 0 360 arc closepath fill /i1 nl l get def /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor ix0 300 add iy0 300 add moveto /m ak k get exec def m 1 eq {ar 2.6 mul 0 rlineto closepath stroke} if %0 m 2 eq {ar 2.6 mul 45 sin mul ar 2.6 mul 45 cos mul rlineto closepath stroke} if %45 m 3 eq {0 ar 2.6 mul rlineto closepath stroke} if %90 m 4 eq {ar 2.6 mul 135 sin mul ar 2.6 mul 135 cos mul rlineto closepath stroke} if %135 m 5 eq {ar 2.6 mul neg 0 rlineto closepath stroke} if %0 m 6 eq {ar 2.6 mul 235 sin mul ar 2.6 mul 235 cos mul rlineto closepath stroke} if %45 m 7 eq {0 ar 2.6 mul neg rlineto closepath stroke} if %0 m 8 eq {ar 2.6 mul 315 sin mul ar 2.6 mul 315 cos mul rlineto closepath stroke} if %45 } for %l } for %j 0 setgray 250 /Times-Roman FS 1500 50 moveto (Landoltringe ) showde (Landolt-rings ) showen 250 /Times-Italic FS tef ncol get show 5000 50 moveto (Code) show xab 0 translate 50 0 translate } for %ncol=0,1,2,3 grestore showpage } if %xcolorl=2 xcolorl 3 eq {%xcolorl=3 8 /Times-ISOL1 FS 72 82 moveto (Bild B7w: Landoltringe ) showde (Picture B7w: Landolt\255rings ) showen 8 /TimesBI-ISOL1 FS (W\255Y ) show 8 /Times-ISOL1 FS (und ) showde (and ) showen 8 /TimesBI-ISOL1 FS (W\255N) show 8 /Times-ISOL1 FS (; PS\255Operator) showde (; PS operator) showen (; PS operator) showes (; PS operator) showfr (; PS operator) showit (; PS operator) showjp (; PS operator) showm 8 /TimesI-ISOL1 FS ( LAB* setcolor) show 8 /Times-ISOL1 FS 72 90 translate /pixf 16.67 def 0.1667 pixf div MM dup scale 15 setlinewidth 1 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath fill 0 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath stroke /xab 5400 def 50 0 translate /ar 80 def ar setlinewidth /tef [(W-C) (W-M) (W-Y) (W-N)] def /tzy4 64 array def /tzn4 64 array def /tza4 64 array def 2 1 3 {/ncol exch def 0 1 15 {/j exch def [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace /ISYSLAB where {pop /ISYSLABL ISYSLAB def} {/ISYSLABL 0 def} ifelse /ISYSTEM where {pop /ISYSTEML ISYSTEM def} {/ISYSTEML 0 def} ifelse ISYSLABL 0 eq {0 ncol eq {/LABs0X [40.62 -30.34 -45.01] def} if %C 1 ncol eq {/LABs0X [30.12 75.28 -8.36] def} if %M 2 ncol eq {/LABs0X [72.37 -10.26 91.75] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 1 eq {0 ncol eq {/LABs0X [86.87 -46.16 -13.55] def} if %C 1 ncol eq {/LABs0X [57.29 94.35 -20.69] def} if %M 2 ncol eq {/LABs0X [92.65 -20.69 90.75] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [95.40 0.00 0.00] def %LABW100 /L*NN 18.00 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.40 def /A*WW 0.00 def /B*WW 0.00 def } if ISYSLABL 2 eq {0 ncol eq {/LABs0X [40.62 -30.34 -45.01] def} if %C 1 ncol eq {/LABs0X [30.12 75.28 -8.36] def} if %M 2 ncol eq {/LABs0X [72.37 -10.26 91.75] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 3 eq {0 ncol eq {/LABs0X [69.43 -44.46 -13.14] def} if %C 1 ncol eq {/LABs0X [41.25 89.48 -19.47] def} if %M 2 ncol eq {/LABs0X [75.03 -20.05 85.13] def} if %Y 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.70 0.00 0.00] def %LABW100 /L*NN 17.70 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.41 def /A*WW 0.00 def /B*WW 0.00 def } if /jmul j 15 div def /LSs0 LABs0X 0 get LABs0W 0 get LABs0X 0 get sub jmul mul add def /LS* LSs0 18.01 add def /l*CIE LS* L*NN sub L*WW L*NN sub 0.0001 add div def /ASs0 LABs0X 1 get LABs0W 1 get LABs0X 1 get sub jmul mul add def /AS* ASs0 A*NN A*WW A*NN sub l*CIE mul add add def /BSs0 LABs0X 2 get LABs0W 2 get LABs0X 2 get sub jmul mul add def /BS* BSs0 B*NN B*WW B*NN sub l*CIE mul add add def ncol 2 eq {/j4 j 4 mul def tzy4 j4 LS* put tzy4 j4 1 add AS* put tzy4 j4 2 add BS* put } if %O ncol 3 eq {/j4 j 4 mul def tzn4 j4 LS* put tzn4 j4 1 add AS* put tzn4 j4 2 add BS* put } if %L } for %j=0,15 } for %ncol=2,3 2 1 3 {/ncol exch def %=0,1,2,3 C,M,Y,N ncol 0 eq { %C /tza4 tzc4 def /nc [(F-D) (8-6) (2-0) (E-F) (7-8) (0-1)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [4 3 2 8 7 1 5 6 8 5 3 7 2 1 4 6 6 3 5 4 3 7 2 8 4 1 6 7 8 2 3 5 1 5 4 8 7 2 3 6 8 1 7 6 2 5 4 3] def /ndif1 2 def /ndif2 -1 def } if %C ncol 1 eq { %M /tza4 tzm4 def /nc [(F-D) (8-6) (2-0) (E-F) (7-8) (0-1)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [6 7 8 2 3 5 4 1 7 2 3 6 1 5 4 8 6 4 8 5 3 7 2 1 7 2 8 6 3 5 4 3 8 1 7 5 2 6 4 3 4 3 2 8 7 1 5 6] def /ndif1 2 def /ndif2 -1 def } if %M ncol 2 eq { %Y /tza4 tzy4 def /nc [(F-B) (9-5) (4-0) (D-F) (6-8) (0-2)] def /nl [0 6 11 2 9 15] def %entspricht F 9 4, D 6 0, +4, -2 /ak [8 5 3 7 2 1 4 6 6 3 5 4 3 7 2 8 4 3 2 8 7 1 5 6 5 3 2 8 7 6 1 4 8 4 5 1 6 3 2 7 7 6 5 2 3 4 1 8] def /ndif1 4 def /ndif2 -2 def } if %Y ncol 3 eq { %N /tza4 tzn4 def /nc [(F-D) (8-6) (2-0) (E-F) (7-8) (0-1)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [6 7 8 2 3 5 4 1 7 2 3 6 1 5 4 8 6 4 8 5 3 7 2 1 7 2 8 6 3 5 4 3 8 1 7 5 2 6 4 3 4 3 2 8 7 1 5 6] def /ndif1 2 def /ndif2 -1 def } if %N 0 setgray 250 /Times-Roman FS 0 1 5 {/j exch def /iy0 500 j 600 mul add def 5000 iy0 moveto nc j get show } for %j TK [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace 0 1 07 {/j exch def /ix0 0100 j 600 mul add def 0 1 05 {/l exch def /iy0 0300 l 600 mul add def /k l 8 mul j add def /i1 nl l get def /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor /ixd 600 def ix0 iy0 moveto ixd 000 rlineto 000 ixd rlineto ixd neg 000 rlineto closepath fill l 2 le {/i1 nl l get ndif1 add def} {/i1 nl l get ndif2 add def} ifelse /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor ix0 300 add iy0 300 add ar 2.5 mul 0 360 arc closepath fill /i1 nl l get def /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor ix0 300 add iy0 300 add ar 1.5 mul 0 360 arc closepath fill /i1 nl l get def /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor ix0 300 add iy0 300 add moveto /m ak k get exec def m 1 eq {ar 2.6 mul 0 rlineto closepath stroke} if %0 m 2 eq {ar 2.6 mul 45 sin mul ar 2.6 mul 45 cos mul rlineto closepath stroke} if %45 m 3 eq {0 ar 2.6 mul rlineto closepath stroke} if %90 m 4 eq {ar 2.6 mul 135 sin mul ar 2.6 mul 135 cos mul rlineto closepath stroke} if %135 m 5 eq {ar 2.6 mul neg 0 rlineto closepath stroke} if %0 m 6 eq {ar 2.6 mul 235 sin mul ar 2.6 mul 235 cos mul rlineto closepath stroke} if %45 m 7 eq {0 ar 2.6 mul neg rlineto closepath stroke} if %0 m 8 eq {ar 2.6 mul 315 sin mul ar 2.6 mul 315 cos mul rlineto closepath stroke} if %45 } for %l } for %j 0 setgray 250 /Times-Roman FS 1500 50 moveto (Landoltringe ) showde (Landolt-rings ) showen 250 /Times-Italic FS tef ncol get show 5000 50 moveto (Code) show xab 0 translate 50 0 translate } for %ncol=0,1,2,3 showpage } if %xcolorl=3 xcolorl 4 eq {%xcolorl=4 8 /Times-ISOL1 FS 72 82 moveto (Bild D7w: Landoltringe ) showde (Picture D7w: Landolt\255rings ) showen 8 /TimesBI-ISOL1 FS (W\255V ) show 8 /Times-ISOL1 FS (und ) showde (and ) showen 8 /TimesBI-ISOL1 FS (W\255N) show 8 /Times-ISOL1 FS (; PS\255Operator) showde (; PS operator) showen (; PS operator) showes (; PS operator) showfr (; PS operator) showit (; PS operator) showjp (; PS operator) showm 8 /TimesI-ISOL1 FS ( LAB* setcolor) show 8 /Times-ISOL1 FS 72 90 translate /pixf 16.67 def 0.1667 pixf div MM dup scale 15 setlinewidth 1 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath fill 0 setgray 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath stroke /xab 5400 def 50 0 translate /ar 80 def ar setlinewidth /tef [(W-O) (W-L) (W-V) (W-N)] def /tzv4 64 array def /tzn4 64 array def /tza4 64 array def 2 1 3 {/ncol exch def %V,N 0 1 15 {/j exch def [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace /ISYSLAB where {pop /ISYSLABL ISYSLAB def} {/ISYSLABL 0 def} ifelse /ISYSTEM where {pop /ISYSTEML ISYSTEM def} {/ISYSTEML 0 def} ifelse ISYSLABL 0 eq {0 ncol eq {/LABs0X [29.93 65.39 50.52] def} if %O 1 ncol eq {/LABs0X [32.89 -62.83 34.96] def} if %L 2 ncol eq {/LABs0X [ 7.71 31.10 -44.40] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 1 eq {0 ncol eq {/LABs0X [50.49 76.92 64.55] def} if %O 1 ncol eq {/LABs0X [83.62 -82.75 79.90] def} if %L 2 ncol eq {/LABs0X [25.71 31.45 -44.29] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [95.40 0.00 0.00] def %LABW100 /L*NN 18.00 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.40 def /A*WW 0.00 def /B*WW 0.00 def } if ISYSLABL 2 eq {0 ncol eq {/LABs0X [29.93 65.39 50.52] def} if %O 1 ncol eq {/LABs0X [32.89 -62.83 34.96] def} if %L 2 ncol eq {/LABs0X [ 7.71 31.10 -44.40] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.40 0.00 0.00] def %LABW100 /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def } if ISYSLABL 3 eq {0 ncol eq {/LABs0X [34.99 71.79 50.18] def} if %O 1 ncol eq {/LABs0X [66.29 -79.08 74.11] def} if %L 2 ncol eq {/LABs0X [14.04 24.65 -37.54] def} if %V 3 ncol eq {/LABs0X [00.00 0.00 0.00] def} if %N /LABs0W [77.70 0.00 0.00] def %LABW100 /L*NN 17.70 def /A*NN 0.00 def /B*NN 0.00 def /L*WW 95.41 def /A*WW 0.00 def /B*WW 0.00 def } if /jmul j 15 div def /LSs0 LABs0X 0 get LABs0W 0 get LABs0X 0 get sub jmul mul add def /LS* LSs0 18.01 add def /l*CIE LS* L*NN sub L*WW L*NN sub 0.0001 add div def /ASs0 LABs0X 1 get LABs0W 1 get LABs0X 1 get sub jmul mul add def /AS* ASs0 A*NN A*WW A*NN sub l*CIE mul add add def /BSs0 LABs0X 2 get LABs0W 2 get LABs0X 2 get sub jmul mul add def /BS* BSs0 B*NN B*WW B*NN sub l*CIE mul add add def ncol 2 eq {/j4 j 4 mul def tzv4 j4 LS* put tzv4 j4 1 add AS* put tzv4 j4 2 add BS* put } if %O ncol 3 eq {/j4 j 4 mul def tzn4 j4 LS* put tzn4 j4 1 add AS* put tzn4 j4 2 add BS* put } if %L } for %j=0,15 } for %ncol=2,3 2 1 3 {/ncol exch def %=0,1,2,3 O,L,V,N ncol 0 eq { %O /tza4 tzo4 def /nc [(F-D) (8-6) (2-0) (E-F) (7-8) (0-1)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [4 3 2 8 7 1 5 6 8 5 3 7 2 1 4 6 6 3 5 4 3 7 2 8 4 1 6 7 8 2 3 5 1 5 4 8 7 2 3 6 8 1 7 6 2 5 4 3] def /ndif1 2 def /ndif2 -1 def } if %C ncol 1 eq { %L /tza4 tzl4 def /nc [(F-D) (8-6) (2-0) (E-F) (7-8) (0-1)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [6 7 8 2 3 5 4 1 7 2 3 6 1 5 4 8 6 4 8 5 3 7 2 1 7 2 8 6 3 5 4 3 8 1 7 5 2 6 4 3 4 3 2 8 7 1 5 6] def /ndif1 2 def /ndif2 -1 def } if %M ncol 2 eq { %V /tza4 tzv4 def /nc [(F-D) (8-6) (2-0) (E-F) (7-8) (0-1)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [8 5 3 7 2 1 4 6 6 3 5 4 3 7 2 8 4 3 2 8 7 1 5 6 5 3 2 8 7 6 1 4 8 4 5 1 6 3 2 7 7 6 5 2 3 4 1 8] def /ndif1 2 def /ndif2 -1 def } if %V ncol 3 eq { %N /tza4 tzn4 def /nc [(F-D) (8-6) (2-0) (E-F) (7-8) (0-1)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [6 7 8 2 3 5 4 1 7 2 3 6 1 5 4 8 6 4 8 5 3 7 2 1 7 2 8 6 3 5 4 3 8 1 7 5 2 6 4 3 4 3 2 8 7 1 5 6] def /ndif1 2 def /ndif2 -1 def } if %N 0 setgray 250 /Times-Roman FS 0 1 5 {/j exch def /iy0 500 j 600 mul add def 5000 iy0 moveto nc j get show } for %j [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace 0 1 07 {/j exch def /ix0 0100 j 600 mul add def 0 1 05 {/l exch def /iy0 0300 l 600 mul add def /k l 8 mul j add def /i1 nl l get def /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor /ixd 600 def ix0 iy0 moveto ixd 000 rlineto 000 ixd rlineto ixd neg 000 rlineto closepath fill l 2 le {/i1 nl l get ndif1 add def} {/i1 nl l get ndif2 add def} ifelse /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor ix0 300 add iy0 300 add ar 2.5 mul 0 360 arc closepath fill /i1 nl l get def /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor ix0 300 add iy0 300 add ar 1.5 mul 0 360 arc closepath fill /i1 nl l get def /i4 i1 4 mul def tza4 i4 get tza4 i4 1 add get tza4 i4 2 add get setcolor ix0 300 add iy0 300 add moveto /m ak k get exec def m 1 eq {ar 2.6 mul 0 rlineto closepath stroke} if %0 m 2 eq {ar 2.6 mul 45 sin mul ar 2.6 mul 45 cos mul rlineto closepath stroke} if %45 m 3 eq {0 ar 2.6 mul rlineto closepath stroke} if %90 m 4 eq {ar 2.6 mul 135 sin mul ar 2.6 mul 135 cos mul rlineto closepath stroke} if %135 m 5 eq {ar 2.6 mul neg 0 rlineto closepath stroke} if %0 m 6 eq {ar 2.6 mul 235 sin mul ar 2.6 mul 235 cos mul rlineto closepath stroke} if %45 m 7 eq {0 ar 2.6 mul neg rlineto closepath stroke} if %0 m 8 eq {ar 2.6 mul 315 sin mul ar 2.6 mul 315 cos mul rlineto closepath stroke} if %45 } for %l } for %j 0 setgray 250 /Times-Roman FS 1500 50 moveto (Landoltringe ) showde (Landolt-rings ) showen 250 /Times-Italic FS tef ncol get show 5000 50 moveto (Code) show xab 0 translate 50 0 translate } for %ncol=0,1,2,3 grestore showpage } if %xcolorl=4 %%Trailer %line 489 %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 020 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM moveto ( ) show 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 28 %line 499 %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 080 MM add 008 MM translate %80 MM Breite von TestStreifen 10 /Times-ISOL1 FS 53 MM 1 MM moveto () show 1 1 scale -77 21 MM sub -91 translate %%BeginDocument: Bild 29 Teststreifen Ueberlaenge %line 509 %%EndDocument EndEPSF grestore gsave BeginEPSF -0.5 MM -0.5 MM translate %xy-Verschiebung Rechteckrahmen nach innen% %%BeginDocument: Bild 30 %Rechteckrahmen %line 519 %!PS-Adobe-3.0 EPSF-3.0 Frame arround with Internet text LE22 20030101 %%BoundingBox: 0 0 598 845 %%EndProlog gsave /lanind 1 def /lantex [(G) (E) (S) (N) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES where {pop %/IMES IMES def } {/IMES 0 def} ifelse /ISYSLAB where {pop %/ISYSLAB ISYSLAB def } {/ISYSLAB 0 def} ifelse /ISYSTEM where {pop %/ISYTEM ISYSTEM def } {/ISYSTEM 0 def} ifelse /i*ptrsc where {pop %/i*ptrsc i*ptrsc def } {/i*ptrsc 0 def} ifelse gsave 0 setgray 1.0 1.0 scale 0.5 MM 0.5 MM translate 0.15 MM setlinewidth /x 20 array def /y 20 array def /d 20 array def /x [000 296 296 000 002 294 294 002 004 292 292 004 006 290 290 006 008 288 288 008 ] def /y [000 000 210 210 002 002 208 208 004 004 206 206 006 006 204 204 008 008 202 202 ] def /d [060 017 -60 -17 058 015 -58 -15 056 013 -56 -13 054 011 -54 -11 052 009 -52 -09 ] def /xlu 017 MM def /ylu 017 MM def /xro 279 MM def /yro 193 MM def /xlo 017 MM def /ylo 193 MM def /xru 279 MM def /yru 017 MM def xlu 8 MM sub ylu moveto 16 MM 0 rlineto stroke xlu ylu 8 MM sub moveto 0 16 MM rlineto stroke xro 8 MM add yro moveto -16 MM 0 rlineto stroke xro yro 8 MM add moveto 0 -16 MM rlineto stroke xru 8 MM sub yru moveto 16 MM 0 rlineto stroke xru yru 8 MM sub moveto 0 16 MM rlineto stroke xlo 8 MM add ylo moveto -16 MM 0 rlineto stroke xlo ylo 8 MM add moveto 0 -16 MM rlineto stroke 1 2 7 {/i exch def %Zentrierkreise xlu ylu i MM 0 360 arc stroke xro yro i MM 0 360 arc stroke xru yru i MM 0 360 arc stroke xlo ylo i MM 0 360 arc stroke } for %i 12 4 16 {/i exch def /i0 i def %i=0,16 %0 4 16 {/i exch def /i0 i def %i=0,16 /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse 0 setgray x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto x i0 get MM y i0 get MM lineto stroke i 16 eq {6 /Times-ISOL1 FS /x00 67 def /xdif 32 def /y0o 202.3 def /y0u 6.3 def /x0l 6.1 def /x0r 288 def /y00 22 def /ydif 32 def x00 xdif 0 mul add MM y0o MM moveto (V) show x00 xdif 0 mul add MM y0u MM moveto (C) show x00 xdif 1 mul add MM y0o MM moveto (L) show x00 xdif 1 mul add MM y0u MM moveto (M) show x00 xdif 2 mul add MM y0o MM moveto (O) show x00 xdif 2 mul add MM y0u MM moveto (Y) show x00 xdif 3 mul add MM y0o MM moveto (Y) show x00 xdif 3 mul add MM y0u MM moveto (O) show x00 xdif 4 mul add MM y0o MM moveto (M) show x00 xdif 4 mul add MM y0u MM moveto (L) show x00 xdif 5 mul add MM y0o MM moveto (C) show x00 xdif 5 mul add MM y0u MM moveto (V) show x0l MM y00 ydif 0 mul add MM moveto (V) show x0r MM y00 ydif 0 mul add MM moveto (C) show x0l MM y00 ydif 1 mul add MM moveto (L) show x0r MM y00 ydif 1 mul add MM moveto (M) show x0l MM y00 ydif 2 mul add MM moveto (O) show x0r MM y00 ydif 2 mul add MM moveto (Y) show x0l MM y00 ydif 3 mul add MM moveto (Y) show x0r MM y00 ydif 3 mul add MM moveto (O) show x0l MM y00 ydif 4 mul add MM moveto (M) show x0r MM y00 ydif 4 mul add MM moveto (L) show x0l MM y00 ydif 5 mul add MM moveto (C) show x0r MM y00 ydif 5 mul add MM moveto (V) show } if } for %i=0,16 0 1 10 {/j0 exch def /j1 j0 1 add def %j0 j0 0 eq {tzccmy0* setcmykcolor} if j0 1 eq {0 setgray} if j0 2 eq {tzmcmy0* setcmykcolor} if j0 3 eq {0 setgray} if j0 4 eq {tzycmy0* setcmykcolor} if j0 5 eq {0 setgray} if j0 6 eq {tzocmy0* setcmykcolor} if j0 7 eq {0 setgray} if j0 8 eq {tzlcmy0* setcmykcolor} if j0 9 eq {0 setgray} if j0 10 eq {tzvcmy0* setcmykcolor} if 12 4 16 {/i exch def /i0 i def %i=0,16 %0 4 16 {/i exch def /i0 i def %i=0,16 /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse x i0 get d i0 get add 16 j0 mul add MM y i0 get MM moveto x i0 get d i0 get add 16 j1 mul add MM y i0 get MM lineto stroke x i1 get MM y i1 get d i1 get add 16 j0 mul add MM moveto x i1 get MM y i1 get d i1 get add 16 j1 mul add MM lineto stroke x i2 get d i2 get add 16 j0 mul sub MM y i2 get MM moveto x i2 get d i2 get add 16 j1 mul sub MM y i2 get MM lineto stroke x i3 get MM y i3 get d i3 get add 16 j0 mul sub MM moveto x i3 get MM y i3 get d i3 get add 16 j1 mul sub MM lineto stroke } for %i=0,16 } for %j0 0.15 MM setlinewidth /s 7 MM def /s1 8 MM def /s5 36 MM def 16 1 20 {/j exch def /j0 j 16 sub def %j=16,20 /ix0 xlu 8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def 0 1 3 {/ij exch def %ij=0,3 ij 0 eq {/ix0 xlu 8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def} if ij 1 eq {/ix0 xru 43 MM sub j0 7 MM mul add def /iy0 yru 8 MM sub def} if ij 2 eq {/ix0 xlo 8 MM add j0 7 MM mul add def /iy0 ylo 1 MM add def} if ij 3 eq {/ix0 xro 43 MM sub j0 7 MM mul add def /iy0 yro 1 MM add def} if i*ptrsc 0 eq i*ptrsc 2 eq or {%i*ptrsc=0,2 cmy0* setcmykcolor j 16 eq {tzan j get dup dup 0 setcmykcolor ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if tzan j get dup dup 0 setcmykcolor ix0 iy0 s s rec fill } if %i*ptrsc=0,2 i*ptrsc 1 eq i*ptrsc 3 eq or {%i*ptrsc=1,3 www* setrgbcolor j 16 eq {1 tzan j get 1 sub dup dup setrgbcolor %N ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 1 tzan j get sub dup dup setrgbcolor %N ix0 iy0 s s rec fill } if %i*ptrsc=1,3 i*ptrsc 4 eq i*ptrsc 5 eq or {%i*ptrsc=4,5 [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace j 16 eq {tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add setcolor %N ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add setcolor %N ix0 iy0 s s rec fill } if %i*ptrsc=4,5 i*ptrsc 6 eq {%i*ptrsc=6 000n* setcmykcolor j 16 eq {0 0 0 tzan j get setcmykcolor ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 0 0 0 tzan j get setcmykcolor ix0 iy0 s s rec fill } if %i*ptrsc=6 i*ptrsc 7 eq {%i*ptrsc=7 w* setgray j 16 eq {1 tzan j get sub setgray ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 1 tzan j get sub setgray ix0 iy0 s s rec fill } if %i*ptrsc=7 } for %ij=0,3 } for %j=16,20 0 setgray 018 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show 018 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show 276 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show 276 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show 018 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show 018 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show 276 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show 276 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show 0 setgray 12 /Times-ISOL1 FS 61 MM 13 MM moveto (Pr\374fvorlage LE22: CIELAB-Stufen ISO/IEC 15775) showde (Test chart LE22: 16 CIELAB steps of ISO/IEC 15775) showen (Test chart LE22: 16 CIELAB steps of ISO/IEC 15775) showes (Test chart LE22: 16 CIELAB steps of ISO/IEC 15775) showfr (Test chart LE22: 16 CIELAB steps of ISO/IEC 15775) showit (Test chart LE22: 16 CIELAB steps of ISO/IEC 15775) showjp (Test chart LE22: 16 CIELAB steps of ISO/IEC 15775) showm 61 MM 9 MM moveto (Bunt-Wei\337, Bunt-Schwarz, Schwarz-Wei\337) showde (Chromatic-White, Chromatic-Black, Black-White) showen (Chromatic-White, Chromatic-Black, Black-White) showes (Chromatic-White, Chromatic-Black, Black-White) showfr (Chromatic-White, Chromatic-Black, Black-White) showit (Chromatic-White, Chromatic-Black, Black-White) showjp (Chromatic-White, Chromatic-Black, Black-White) showm %130 MM 13 MM moveto %( ISO/IEC 15775 und) showde %( ISO/IEC 15775 and) showen %( ISO/IEC 15775 and) showes %( ISO/IEC 15775 and) showfr %( ISO/IEC 15775 and) showit %( ISO/IEC 15775 and) showjp %( ISO/IEC 15775 and) showm %130 MM 9 MM moveto %( DTR ISO/IEC 24705) showde %( DTR ISO/IEC 24705) showen %( DTR ISO/IEC 24705) showes %( DTR ISO/IEC 24705) showfr %( DTR ISO/IEC 24705) showit %( DTR ISO/IEC 24705) showjp %( DTR ISO/IEC 24705) showm %(; ) show 12 /Times-ISOL1 FS 157 MM 13 MM moveto (input) showen (Eingabe) showde 10 /Times-ISOL1 FS ISYSLAB 0 eq {((ORS18): ) show} if ISYSLAB 1 eq {((TLS00): ) show} if ISYSLAB 2 eq {((DLSxx): ) show} if ISYSLAB 3 eq {((TLR18): ) show} if 12 /Times-Italic FS (LAB* setcolor) show 12 /Times-ISOL1 FS 157 MM 9 MM moveto (output) showen (Ausgabe) showde 10 /Times-ISOL1 FS ISYSTEM 0 eq {((ORS18): ) show} if ISYSTEM 1 eq {((TLS00): ) show} if ISYSTEM 2 eq {((DLSxx): ) show} if ISYSTEM 3 eq {((TLR18): ) show} if 12 /TimesI-ISOL1 FS LSC$ (N) eq { (no change compared to input) showen (keine \304nderung) showde } if LSC$ (S) eq { (Startup (S) data dependend) showen (Startup (S) abh\344ngig) showde } if LSC$ (F) eq { 12 /Times-Italic FS i*ptrsc 0 eq {(cmy0* / 000n* setcmykcolor) show} if i*ptrsc 1 eq {(olv* setrgbcolor / w* setgray) show} if i*ptrsc 2 eq {(cmy0* / nnn0* setcmykcolor) show} if i*ptrsc 3 eq {(olv* / www* setrgbcolor) show} if i*ptrsc 4 eq {(lab* setcolor) show} if i*ptrsc 5 eq {(LAB* setcolor) show} if i*ptrsc 6 eq {(000n* setcmykcolor) show} if i*ptrsc 7 eq {(w* setgray) show} if } if 12 /Times-ISOL1 FS 62 MM 198.5 MM moveto (www.ps.bam.de/LE22/L22) show LSS$ show (00) show LSC$ show LEX$ show (; ) show LSC$ (N) eq { (Start\255Ausgabe und ohne OL: ) showde (start output) showen (start output) showes (start output) showfr (start output) showit (start output) showjp (start output) showm } if LSC$ (C) eq { (Start\255Ausgabe) showde (start output) showen (start output) showes (start output) showfr (start output) showit (start output) showjp (start output) showm } if LSC$ (F) eq { (Linearisierte\255Ausgabe) showde (linearized output) showen (linearized output) showes (linearized output) showfr (linearized output) showit (linearized output) showjp (linearized output) showm } if 62 MM 194 MM moveto LSC$ (N) eq LSC$ (C) eq or { (N: Keine Ausgabe\255Linearisierung (OL) in Datei (F), Startup (S), Ger\344t (D)) showde (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showen (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showes (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showfr (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showit (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showjp (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showm } {LSC$ show (: ) show (Ausgabe\255Linearisierung (OL\255Daten) ) showde (Output Linearization (OL) data ) showen (Output Linearization (OL) data ) showes (Output Linearization (OL) data ) showfr (Output Linearization (OL) data ) showit (Output Linearization (OL) data ) showjp (Output Linearization (OL) data ) showm (LE22/L22) show LSS$ show (00) show LSC$ show LEY$ show } ifelse LSC$ (F) eq { ( in der Datei (F)) showde ( in File (F)) showen ( in File (F)) showes ( in File (F)) showfr ( in File (F)) showit ( in File (F)) showjp ( in File (F)) showm } if LSC$ (S) eq { ( im Distiller Startup (S) Directory) showde ( in Distiller Startup (S) Directory) showen ( in Distiller Startup (S) Directory) showes ( in Distiller Startup (S) Directory) showfr ( in Distiller Startup (S) Directory) showit ( in Distiller Startup (S) Directory) showjp ( in Distiller Startup (S) Directory) showm } if LSC$ (D) eq { ( in PostScript Device (D)) showde ( in PostScript Device (D)) showen ( in PostScript Device (D)) showes ( in PostScript Device (D)) showfr ( in PostScript Device (D)) showit ( in PostScript Device (D)) showjp ( in PostScript Device (D)) showm } if LSC$ (T) eq { ( von Distiller Startup (S) Directory) showde ( of Distiller Startup (S) Directory) showen ( of Distiller Startup (S) Directory) showes ( of Distiller Startup (S) Directory) showfr ( of Distiller Startup (S) Directory) showit ( of Distiller Startup (S) Directory) showjp ( of Distiller Startup (S) Directory) showm } if LSC$ (E) eq { ( von PostScript Device (D)) showde ( of PostScript Device (D)) showen ( of PostScript Device (D)) showes ( of PostScript Device (D)) showfr ( of PostScript Device (D)) showit ( of PostScript Device (D)) showjp ( of PostScript Device (D)) showm } if 16 MM 185 MM moveto -90 rotate (Siehe \344hnliche Dateien: ) showde (See for similar files: ) showen (See for similar files: ) showes (See for similar files: ) showfr (See for similar files: ) showit (See for similar files: ) showjp (See for similar files: ) showm (http://www.ps.bam.de/LE22/LE22.HTM) show 90 rotate 12 MM 185 MM moveto -90 rotate (Information, Bestellung: ) showde (Information and Order: ) showen (Informaci\363n t\351cnica en: ) showes (Information and Order: ) showfr (Information and Order: ) showit (Information and Order: ) showjp (Information and Order: ) showm (http://www.ps.bam.de) show 90 rotate 12 MM 103 MM moveto -90 rotate (Version 2.0, io=5,) show LSC$ (N) eq {(5) show} if LSC$ (S) eq {(0?) show} if LSC$ (D) eq {(0?) show} if LSC$ (F) eq {i*ptrsc cvishow ISYSLAB 0 eq {IMES 0 eq {(; iORS) show} {(; iLRS) show} ifelse} if ISYSLAB 1 eq {IMES 0 eq {(; iTLS) show} {(; iTRS) show} ifelse} if ISYSLAB 2 eq {IMES 0 eq {(; iDLS) show} {(; iDRS) show} ifelse} if ISYSLAB 3 eq {IMES 0 eq {(; iTLR) show} {(; iTLS) show} ifelse} if ISYSLAB 4 eq {IMES 0 eq {(; iDRS) show} {(; iDLS) show} ifelse} if ISYSTEM 0 eq {IMES 0 eq {(; oORS) show} {(; oLRS) show} ifelse} if ISYSTEM 1 eq {IMES 0 eq {(; oTLS) show} {(; oTRS) show} ifelse} if ISYSTEM 2 eq {IMES 0 eq {(; oDLS) show} {(; oDRS) show} ifelse} if ISYSTEM 3 eq {IMES 0 eq {(; oTLR) show} {(; oTLS) show} ifelse} if ISYSTEM 4 eq {IMES 0 eq {(; oDRS) show} {(; oDLS) show} ifelse} if IMES 0 eq {(, CIELAB) show} {(, CIEXYZ) show} ifelse } if 90 rotate 281 MM 185 MM moveto -90 rotate (BAM\255Registrierung: 20030101\255LE22/L22) showde (BAM registration: 20030101\255LE22/L22) showen (BAM registration: 20030101\255LE22/L22) showes (BAM registration: 20030101\255LE22/L22) showfr (BAM registration: 20030101\255LE22/L22) showit (BAM registration: 20030101\255LE22/L22) showjp (BAM registration: 20030101\255LE22/L22) showm LSS$ show (00) show LSC$ show LEX$ show 90 rotate 281 MM 74 MM moveto -90 rotate (BAM\255Material: Code=rha4ta) showde (BAM material: code=rha4ta) showen (BAM material: code=rha4ta) showes (BAM material: code=rha4ta) showfr (BAM material: code=rha4ta) showit (BAM material: code=rha4ta) showjp (BAM material: code=rha4ta) showm 90 rotate 277 MM 185 MM moveto -90 rotate /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def ( Anwendung f\374r Messung von Monitor\255) showde ( application for measurement of monitor) showen ( application for measurement of monitor) showes ( application for measurement of monitor) showfr ( application for measurement of monitor) showit ( application for measurement of monitor) showjp ( application for measurement of monitor) showm IMES 0 eq { %IMES=0 ( (Yr=2.5) und Druckerausgabe) showde ( (Yr=2.5) and printer output) showen ( (Yr=2.5) and printer output) showes ( (Yr=2.5) and printer output) showfr ( (Yr=2.5) and printer output) showit ( (Yr=2.5) and printer output) showjp ( (Yr=2.5) and printer output) showm} if IMES 1 eq LSC$ (N) ne and { %IMES=1 (, Yr=) show Yre cvsshow1 (, XYZ) show } if %IMES=1 90 rotate showpage %grestore %} for %output with xchart end %} for %output with colorm end %} for %output with xcolor end %} for %output with lanind end %%Trailer %%EndDocument EndEPSF grestore gsave showpage grestore } for %output with xcolorg end %%Trailer