%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/fea3/fea3l00XX.PS 20230801 %%BoundingBox: 07 04 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: http://farbe.li.tu-berlin.de/fea3/fea3.htm) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2023080112000) /ModDate (D:20230801112000) /DOCINFO pdfmark [ /View [ /FitB ] /DOCVIEW pdfmark %Y10e00na.ps6 %line 20****************************************************** %BEG fea3/OUTLIN10.PS Emty 20210418 %END fea3/OUTLIN10.PS Emty 20210418 %BEG fea3/OUTLIN1X.PS 20210418 %EMPTY %END fea3/OUTLIN1X.PS 20210418 %BEG fea3/OUTLIN1Y2.PS Emty 20210418 %END fea3/OUTLIN1Y2.PS Emty 20210418 /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 % End for EPS file 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 /tfbs {0 0.5 1 setrgbcolor} bind def /tfy {1 1 0 setrgbcolor} bind def /tfg {0 1 0 setrgbcolor} bind def /tfr {1 0 0 setrgbcolor} bind def /tfb {0 0 1 setrgbcolor} bind def /A4quer {598 0 translate 90 rotate} def /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 %%EndProlog %*********************************************************** %%BeginPageSetup /#copies 1 def %A4querF 0.5 0.5 scale /pgsave save def %%EndPageSetup /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.txt /.ps) (b.bmp /.ps) (g.gif /.ps) (h.htm /.ps) (i.htm /.ps) (j.jpe /.ps) (p.pdf /.ps) (t.tif /.ps)] def /EY$ [(1.dat) (b.dat) (g.dat) (h.dat) (i.dat) (j.dat) (p.dat) (t.dat)] def %******************************************************************* /lanind1f 01 def /lanind2f 01 def /laninddf 01 def /lanindmf 01 def /colorm1f 00 def /colorm2f 00 def /colormdf 01 def /colormmf 01 def /deintp1f 00 def /deintp2f 00 def /deintpdf 01 def /deintpmf 01 def /xcolor1f 00 def /xcolor2f 00 def /xcolordf 01 def /xcolormf 01 def %2/10degree /xchart1f 00 def /xchart2f 00 def /xchartdf 01 def /xchartmf 01 def /xchart3f 01 def /xchart4f 00 def /xchart5f 00 def /pchart1f 00 def /pchart2f 00 def /pchartdf 01 def /pchartmf 01 def %=3:sRGB,Lr /colsep1f 00 def /colsep2f 00 def /colsepdf 01 def /colsepmf 01 def /pmetam1f 00 def /pmetam2f 00 def /pmetamdf 01 def /pmetammf 01 def %/lanindf lanind1f def % /lanindf lanind1f def %lanind1f laninddf lanind2f {/lanindf exch def %/colormf colorm1f def % /colormf colorm1f def %colorm1f colormdf colorm2f {/colormf exch def %/deintpf deintp1f def % /deintpf deintp1f def %deintp1f deintpdf deintp2f {/deintpf exch def %/xcolorf xcolor1f def % /xcolorf xcolor1f def %xcolor1f xcolordf xcolor2f {/xcolorf exch def %/xchartf xchart1f def % /xchartf xchart1f def %xchart1f xchartdf xchart2f {/xchartf exch def %/pchartf pchart1f def % /pchartf pchart1f def %/pchartf pchart1f def %pchart1f pchartdf pchart2f {/pchartf exch def %/colsepf colsep1f def % /colsepf colsep1f def %colsep1f colsepdf colsep2f {/colsepf exch def /lanind lanindf def /colorm colormf def /deintp deintpf def /xcolor xcolorf def /xchart xchartf def /xchartm xchart2f xchart1f sub 1 add def /xchart3 xchart3f def /xchart4 xchart4f def /pchart pchartf def /colsep colsepf def %/pmetamf pmetam1f def % /pmetamf pmetam1f def %pmetam1f pmetamdf pmetam2f {/pmetamf exch def /pmetam pmetamf def %************************************************************* %/setgray {sfgray} bind def %/setrgbcolor {sfrgbcolor} bind def %/setcmykcolor {sfcmykcolor} bind def %72 90 translate %0.01 MM dup scale %0 0 moveto 24600 0 rlineto 0 17220 rlineto % -24600 0 rlineto closepath stroke %000 -240 moveto %240 /Times-ISOL1 FS %lanindf cvishow (-) show %colormf cvishow %deintpf cvishow %xcolorf cvishow %xchartf cvishow %pchartf cvishow %colsepf cvishow (-F) show pmetamf cvishow %grestore gsave /GSS$ SS$ lanind get def /GSC$ SC$ colorm get def /GSX$ SX$ xcolor xcolor 16 idiv 16 mul sub get def /GSY$ SY$ xchart xchart 16 idiv 16 mul sub get def /GEX$ EX$ 0 get def /GEY$ EY$ 0 get def %01 %02 %03 %04 %05 %06 %07 %08 %09 %10 %11 %12 %13 %14 %gsave BeginEPSF 28 MM 197 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto 1 1 scale -77 -91 translate %%BeginDocument: Bild 10 %line 329 %%EndDocument EndEPSF grestore gsave /SHSl 2 def /SHAl 2 def BeginEPSF 28 SHSl sub MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto 1 1 scale -77 -91 translate %%BeginDocument: Bild 11 %line 339 %!PS-Adobe-3.0 EPSF-3.0 fea30-1N %%BoundingBox: 70 85 246 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave /ioutx 0 def ioutx 1 eq {%ioutx=1 4 /Times-Roman FS 72 86 moveto (fea30-1N) show 72 90 translate 0.01 MM dup scale 20 setlinewidth /xwidth 6100 def /ywidth 4000 def 1 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath stroke } if %ioutx=1 grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 SHAl add 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 %!PS-Adobe-3.0 EPSF-3.0 fea30-2N %%BoundingBox: 70 85 246 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave /ioutx 0 def ioutx 1 eq {%ioutx=1 4 /Times-Roman FS 72 86 moveto (fea30-2N) show 72 90 translate 0.01 MM dup scale 20 setlinewidth /xwidth 6100 def /ywidth 4000 def 1 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath stroke } if %ioutx=1 grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 28 SHSl sub MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 13 %line 359 %!PS-Adobe-3.0 EPSF-3.0 fea30-3n_54 %%BoundingBox: 70 85 387 335 %START PDFDE011.EPS /pdfmark03 where {pop} {userdict /pdfmark03 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [/Title (PostScript pictures: farbe.li.tu-berlin.de/fea3/fea3.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2023080112000) /ModDate (D:2023080112000) /DOCINFO pdfmark03 [ /View [ /Fit ] /DOCVIEW pdfmark03 %END PDFDE011 %line 20****************************************************** /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 % End for EPS file 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 /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Oblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierI-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /Courier-BoldOblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierBI-ISOL1 exch definefont pop /TG {350 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TV {110 /Times-ISOL1 FS} bind def /TW {080 /Times-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TIV {110 /TimesI-ISOL1 FS} bind def /TIW {080 /TimesI-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBV {110 /TimesB-ISOL1 FS} bind def /TBW {080 /TimesB-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /TBIV {110 /TimesBI-ISOL1 FS} bind def /TBIW {080 /TimesBI-ISOL1 FS} bind def /SG {350 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SL {160 /Symbol FS} bind def /SV {110 /Symbol FS} bind def /SW {080 /Symbol FS} bind def %***************************************************************** %%EndProlog gsave %lanindL2.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 /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 0 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % gsave /cvishow0 {cvi 6 string cvs show} def /kchartl 0 def %0:left page, 1:right page /pchartl 0 def %0:top page, 4:down page %not used 72 90 translate 0.010 MM dup scale 40 setlinewidth /ymax1 08550 def /xmax1 11050 def %2x5400+250=11050 1.0 setgray 0 0 moveto xmax1 0 rlineto 0 ymax1 rlineto xmax1 neg 0 rlineto closepath fill 0 setgray 0 0 moveto xmax1 0 rlineto 0 ymax1 rlineto xmax1 neg 0 rlineto closepath stroke TK 0 setgray 150 /Times-ISOL1 FS 150 -140 moveto kchartl 0 eq {(fea30-) show} {(fea31-) show} ifelse pchartl 0 eq {(3n) show} {(7n) show} ifelse grestore gsave %00 %01 %02 /SHSl 00.0 def /SHAl -3.0 def /STSl 13.0 def /STAl 14.5 def BeginEPSF 28 SHSl sub MM 064 STSl add 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 http://farbe.li.tu-berlin.de/fea3/fea30-4 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark01 where {pop} {userdict /pdfmark01 /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: farbe.li.tu-berlin.de/fea3/fea3.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2021080112000) /ModDate (D:20210801112000) /DOCINFO pdfmark01 [ /View [ /Fit ] /DOCVIEW pdfmark01 %END PDFDE011 % 40mm = 80*72/25.4 = 232; 232+90+13 = 335 % !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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /TV {120 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TG {320 /Times-ISOL1 FS} bind def /TIV {120 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIG {320 /TimesI-ISOL1 FS} bind def /TBV {120 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBG {320 /TimesB-ISOL1 FS} bind def /TBIV {120 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIG {320 /TimesBI-ISOL1 FS} bind def /SV {120 /Symbol FS} bind def /SL {160 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SG {320 /Symbol FS} bind def /RV {120 /Times-Roman FS} bind def /RL {160 /Times-Roman FS} bind def /RS {200 /Times-Roman FS} bind def /RK {240 /Times-Roman FS} bind def /RM {280 /Times-Roman FS} bind def /RG {320 /Times-Roman FS} bind def /RIV {120 /Times-Italic FS} bind def /RIL {160 /Times-Italic FS} bind def /RIS {200 /Times-Italic FS} bind def /RIK {240 /Times-Italic FS} bind def /RIM {280 /Times-Italic FS} bind def /RIG {320 /Times-Italic FS} bind def /RBV {120 /Times-Bold FS} bind def /RBL {160 /Times-Bold FS} bind def /RBS {200 /Times-Bold FS} bind def /RBK {240 /Times-Bold FS} bind def /RBM {280 /Times-Bold FS} bind def /RBG {320 /Times-Bold FS} bind def /RBIV {120 /Times-BoldItalic FS} bind def /RBIL {160 /Times-BoldItalic FS} bind def /RBIS {200 /Times-BoldItalic FS} bind def /RBIK {240 /Times-BoldItalic FS} bind def /RBIM {280 /Times-BoldItalic FS} bind def /RBIG {320 /Times-BoldItalic FS} bind def /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 k {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmykcolor rec stroke} bind def /cvishowr {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def /cvishow {cvi 6 string cvs show ( ) show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show ( ) show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show ( ) show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show ( ) show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show ( ) show} def /cvsshow5 {100000 mul cvi 0.00001 mul 9 string cvs show ( ) show} def /cvishow0 {cvi 6 string cvs show} def /cvsshow10 {10 mul cvi 0.1 mul 9 string cvs show} def /cvsshow20 {100 mul cvi 0.01 mul 9 string cvs show} def /cvsshow30 {1000 mul cvi 0.001 mul 9 string cvs show} def /cvsshow40 {10000 mul cvi 0.0001 mul 9 string cvs show} def /cvsshow50 {100000 mul cvi 0.00001 mul 9 string cvs show} def /cvsshow0r {10 mul 0.5 add cvi 0.1 mul 10 string cvs show} def /cvsshow1r {10 mul 0.5 add cvi 0.1 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow2r {100 mul 0.5 add cvi 0.01 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow3r {1000 mul 0.5 add cvi 0.001 mul 10 string cvs show} def %now with cvishow0 instead of cvishow /cvsshow1x {/nxx exch def %example nxx=99.1/99.0 nxx 10 mul cvi /nxi exch def %nxi=991/990 nxi 10 idiv /nxa exch def %nxa=99 nxi nxa 10 mul sub /nxb exch def %nxb=1/0 nxa cvishow0 (,) show %nxa=99 nxb cvishow0 %nxb=1/0 } def /cvsshow2x {/nxx exch def %example nxx=99.12/99,02/99,00 nxx 100 mul cvi /nxi exch def %nxi=9912/9902/00 nxi 100 idiv /nxa exch def %nxa=99 nxi nxa 100 mul sub /nxb exch def %nxb=12/02/00 nxa cvishow0 (,) show %nxb=99, nxb 10 ge {nxb cvishow0} if %nxb=12 nxb 1 ge nxb 9 le and {(0) show nxb cvishow0} if %nxb=02 nxb 0 eq {(00) show} if %nxb=00 } def /cvsshow3x {/nxx exch def %example nxx=99.123/99.012/99.001/99.000 nxx 1000 mul cvi /nxi exch def %nxi=99123/99012/99001/99000 nxi 1000 idiv /nxa exch def %nxa=99 nxi nxa 1000 mul sub /nxb exch def %nxb=123/012/001/000 nxa cvishow0 (,) show %nxb=99, nxb 100 ge {nxb cvishow0} if %nxb=123/012/001/000 nxb 10 ge nxb 99 le and {(0) show nxb cvishow0} if %nxb=012 nxb 1 ge nxb 9 le and {(00) show nxb cvishow0} if %nxb=001 nxb 0 eq {(000) show} if %nxb=000 } def %********************************************************* %%EndProlog gsave %lanindL2 START 20000505 /lanind 1 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 {3 lanind eq {show} {pop} ifelse} bind def /showfr {2 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 0 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % gsave 4 /Times-ISOL1 FS 72 86 moveto (fea30-1a, eea00-4n, CEA10-4N) show %BNU50-1N 72 90 translate 0.01 MM dup scale 20 setlinewidth 30 setlinewidth [ ] 0 setdash /yhoe 4000 def /xwidth 5400 def 0.5 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath stroke %gsave %start in case of clip /textde [(Empfindungs-Stufungsfunktionen) (Adaptation auf Umgebung Wei\337 ) (Adaptation auf Umgebung Grau ) (Beschreibung durch CIELAB 1976) (Adaptation auf Umgebung Schwarz ) ] def /texten [(sensation scaling functions) (adaptation on surround white ) (adaptation on surround grey ) (description with CIELAB 1976) (adaptation on surround black ) ] def /x0 50 def /yuz 800 def /yuz2 400 def % 0 1 2 3 4 5 6 7 8 9 /yu0i [3200 2400 1600 0800 0000] def /yu1i [3700 2900 2100 1300 0500] def /yu2i [3300 2500 1700 0900 0100] def 0 1 4 {/i exch def %5 streifen i 0 eq {1 1 0 setrgbcolor} if i 1 eq {1 setgray} if i 2 eq {0.5 setgray} if i 3 eq {0.5 setgray} if i 4 eq {0.0 setgray} if 0 yu0i i get moveto xwidth 0 rlineto 0 yuz rlineto xwidth neg 0 rlineto closepath fill } for 0 1 4 {/i exch def TBG i 3 ge {1} {0} ifelse setgray %Schiftfarbe N oder W x0 yu1i i get moveto textde i get showde texten i get showen TBIG i 1 eq {(W) show} if i 2 eq {(U) show} if i 4 eq {(N) show} if } for x0 yu2i 0 get moveto 0 setgray TBG (lightness ) showen (Helligkeit ) showde TBIG (L* ) show TBG (and tristimulus value ) showen (und Normfarbwert ) showde TBIG (Y ) show x0 500 add yu2i 1 get moveto 0 setgray TBIG (L*) show TBM 0 -60 rmoveto (W) show 0 60 rmoveto TBG ( = 100 \050 ) show TBIG (Y) show TBG ( / 100\051) show TBM 0 100 rmoveto (1/2,0) show x0 500 add yu2i 2 get moveto 0 setgray TBIG (L*) show TBM 0 -60 rmoveto (U) show 0 60 rmoveto TBG ( = 100 \050 ) show TBIG (Y) show TBG ( / 100\051) show TBM 0 100 rmoveto (1/2,4) show x0 200 add yu2i 3 get moveto 1 setgray TBIG (L*) show TBM 0 -60 rmoveto (CIELAB) show 0 60 rmoveto TBG ( = 116 \050 ) show TBIG (Y) show TBG ( / 100\051) show TBM 0 100 rmoveto (1/3,0) show 0 -100 rmoveto TBG ( - 16) show x0 500 add yu2i 4 get moveto 1 setgray TBIG (L*) show TBM 0 -60 rmoveto (N) show 0 60 rmoveto TBG ( = 100 \050 ) show TBIG (Y) show TBG ( / 100\051) show TBM 0 100 rmoveto (1/3,0) show %***************************************************************** /yhoe 4000 def /xwidth 5400 def 30 setlinewidth 0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath stroke %***************************************************************** %grestore %end in case of clip showpage grestore %} for %output with langind end %%Trailer %line 239 %%EndDocument EndEPSF grestore gsave BeginEPSF 86 SHAl add MM 064 STSl add MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 16 %!PS-Adobe-3.0 EPSF-3.0 fea30-2a, eer31-4n %%BoundingBox: 70 85 228 206 %START PDFDE011.EPS /pdfmark02 where {pop} {userdict /pdfmark02 /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: farbe.li.tu-berlin.de/fea3/fea3.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2023080112000) /ModDate (D:20230801112000) /DOCINFO pdfmark02 [ /View [ /Fit ] /DOCVIEW pdfmark02 %END PDFDE011 /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TS {160 /Times-ISOL1 FS} bind def /TL {200 /Times-ISOL1 FS} bind def /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIS {160 /TimesI-ISOL1 FS} bind def /TIL {200 /TimesI-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBS {160 /TimesB-ISOL1 FS} bind def /TBL {200 /TimesB-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 /TBIS {160 /TimesBI-ISOL1 FS} bind def /TBIL {200 /TimesBI-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /SS {160 /Symbol FS} bind def /SL {200 1 sub /Symbol FS} bind def /SK {250 1 sub /Symbol FS} bind def /SM {300 1 sub /Symbol FS} bind def /SG {350 1 sub /Symbol FS} bind def /CS {160 /Courier-ISOL1 FS} bind def /CL {200 /Courier-ISOL1 FS} bind def /CK {250 /Courier-ISOL1 FS} bind def /CM {300 /Courier-ISOL1 FS} bind def /CG {350 /Courier-ISOL1 FS} bind def /CBS {160 /CourierB-ISOL1 FS} bind def /CBL {200 /CourierB-ISOL1 FS} bind def /CBK {250 /CourierB-ISOL1 FS} bind def /CBM {300 /CourierB-ISOL1 FS} bind def /CBG {350 /CourierB-ISOL1 FS} bind def /nGs {350 /Times-ISOL1 FS show} bind def /kGs {350 /TimesI-ISOL1 FS show} bind def /bGs {350 /TimesB-ISOL1 FS show} bind def /jGs {350 /TimesBI-ISOL1 FS show} bind def /sGs {350 /Symbol FS show} bind def /iGs {300 /Times-ISOL1 FS 0 -90 rmoveto show 0 90 rmoveto} bind def /eGs {300 /Times-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto} bind def /ibGb {300 /TimesB-ISOL1 FS 0 -90 rmoveto show 0 90 rmoveto} bind def /ebGb {300 /TimesB-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto} bind def /ipG {300 /Times-ISOL1 FS 50 50 rmoveto (\267) show 50 -50 rmoveto} bind def %20% kleiner /nMs {300 /Times-ISOL1 FS show TM} bind def /kMs {300 /TimesI-ISOL1 FS show TM} bind def /bMs {300 /TimesB-ISOL1 FS show TM} bind def /jMs {300 /TimesBI-ISOL1 FS show TM} bind def /sMs {300 /Symbol FS show TM} bind def /iMs {250 /Times-ISOL1 FS 0 -70 rmoveto show 0 70 rmoveto TM} bind def /eMs {250 /Times-ISOL1 FS 0 160 rmoveto show 0 -160 rmoveto TM} bind def /ibMs {250 /TimesB-ISOL1 FS 0 -70 rmoveto show 0 70 rmoveto TM} bind def /ebMs {250 /TimesB-ISOL1 FS 0 160 rmoveto show 0 -160 rmoveto TM} bind def /ipM {250 /Times-ISOL1 FS 40 40 rmoveto (\267) show 40 -40 rmoveto TM} bind def %40% kleiner /nKs {250 /Times-ISOL1 FS show TK} bind def /kKs {250 /TimesI-ISOL1 FS show TK} bind def /bKs {250 /TimesB-ISOL1 FS show TK} bind def /jKs {250 /TimesBI-ISOL1 FS show TK} bind def /sKs {250 /Symbol FS show TK} bind def /iKs {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /eKs {200 /Times-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ibKs {200 /TimesB-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /ebKs {200 /TimesB-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ipK {200 /Times-ISOL1 FS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def %60% kleiner /nLs {200 /Times-ISOL1 FS show TS} bind def /kLs {200 /TimesI-ISOL1 FS show TS} bind def /bLs {200 /TimesB-ISOL1 FS show TS} bind def /jLs {200 /TimesBI-ISOL1 FS show TS} bind def /sLs {200 /Symbol FS show TS} bind def /iLs {160 /Times-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /eLs {160 /Times-ISOL1 FS 0 110 rmoveto show 0 -110 rmoveto TS} bind def /ibLs {160 /TimesB-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /ebLs {160 /TimesB-ISOL1 FS 0 110 rmoveto show 0 -110 rmoveto TS} bind def /ipL {160 /Times-ISOL1 FS 25 25 rmoveto (\267) show 25 -25 rmoveto TS} bind def /cvishow {cvi 10 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 /cvsshow4 {10000 mul cvi 0.0001 mul 7 string cvs show} def /cvsshow1x {/nxx exch def %example nxx=99.1/99.0 nxx 10 mul cvi /nxi exch def %nxi=991/990 nxi 10 idiv /nxa exch def %nxa=99 nxi nxa 10 mul sub /nxb exch def %nxb=1/0 nxa cvishow (,) show %nxa=99 nxb cvishow %nxb=1/0 } def /cvsshow2x {/nxx exch def %example nxx=99.12/99,02/99,00 nxx 100 mul cvi /nxi exch def %nxi=9912/9902/00 nxi 100 idiv /nxa exch def %nxa=99 nxi nxa 100 mul sub /nxb exch def %nxb=12/02/00 nxa cvishow (,) show %nxb=99, nxb 10 ge {nxb cvishow} if %nxb=12 nxb 1 ge nxb 9 le and {(0) show nxb cvishow} if %nxb=02 nxb 0 eq {(00) show} if %nxb=00 } def /cvsshow3x {/nxx exch def %example nxx=99.123/99.012/99.001/99.000 nxx 1000 mul cvi /nxi exch def %nxi=99123/99012/99001/99000 nxi 1000 idiv /nxa exch def %nxa=99 nxi nxa 1000 mul sub /nxb exch def %nxb=123/012/001/000 nxa cvishow (,) show %nxb=99, nxb 100 ge {nxb cvishow} if %nxb=123/012/001/000 nxb 10 ge nxb 99 le and {(0) show nxb cvishow} if %nxb=012 nxb 1 ge nxb 9 le and {(00) show nxb cvishow} if %nxb=001 nxb 0 eq {(000) show} if %nxb=000 } def /cvsshow2s {/nxx exch def %example nxx=99.12/99,02 nxx 0 le {(-) show} if nxx 100 mul cvi /nxi exch abs def %nxi=9912/9902/00 nxi 100 idiv /nxa exch def %nxa=99 nxi nxa 100 mul sub /nxb exch def %nxb=12/02/00 nxa cvishow (,) show %nxb=99, nxb 10 ge {nxb cvishow} if %nxb=12 nxb 1 ge nxb 9 le and {(0) show nxb cvishow} if %nxb=02 nxb 0 eq {(00) show} if %nxb=00 } def /cvsshow3s {/nxx exch def %example nxx=-0,123 nxx 0 lt {(-0,) show} {(0,) show} ifelse /nxi nxx 1000 mul cvi abs def %nxi=123 nxi 100 ge {nxi cvishow} if %nxb=123/012/001/000 nxi 10 ge nxi 99 le and {(0) show nxi cvishow} if %nxb=012/001/000 nxi 1 ge nxi 9 le and {(00) show nxi cvishow} if %nxb=001/000 nxi 0 eq {(000) show} if %nxb=000 } def /cvsshow4s {/nxx exch def %example nxx=-0,1234 nxx 0 lt {(-0,) show} {(0,) show} ifelse /nxi nxx 10000 mul cvi abs def %nxi=1234 nxi 1000 ge {nxi cvishow} if %nxb=123/012/001/000 nxi 100 ge nxi 999 le and {(0) show nxi cvishow} if %nxb=123/012/001/000 nxi 10 ge nxi 99 le and {(00) show nxi cvishow} if %nxb=012 nxi 1 ge nxi 9 le and {(000) show nxi cvishow} if %nxb=001 nxi 0 eq {(0000) show} if %nxb=000 } def /tdw {1 1 1 setrgbcolor} bind def /tdr {1 0 0 setrgbcolor} bind def /tdy {1 1 0 setrgbcolor} bind def /tdg {0 1 0 setrgbcolor} bind def /tdc {0 1 1 setrgbcolor} bind def /tdb {0 0 1 setrgbcolor} bind def /tdm {1 0 1 setrgbcolor} bind def /tdn {0 0 0 setrgbcolor} bind def /tdz {0.5 setgray} bind def %%EndProlog gsave /lanind 1 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 /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 3 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 0 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % gsave %XCHA01.PS END 4 /Times-ISOL1 FS 72 86 moveto (fea30-2a, eer31-4n) show 72 90 translate 0.01 MM dup scale 20 setlinewidth /xwidth 5400 def /ywidth 4000 def 0.5 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 setlinewidth 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath clip 20 setlinewidth 0 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath stroke /cvishow {cvi 6 string cvs show} def 20 setlinewidth 050 3825 moveto tdw TBL (IECsRGB\255Dreieckshelligkeit) showde (IECsRGB\255triangle lightness) showen ( T* ) jLs TBL (as function of log) showen (als Funktion von log) showde (Y) jLs 050 3600 moveto TBL (Koordinaten) showde (coordinates) showen ( T*) jLs TBL ( und) showde ( and) showen ( log) bLs 20 0 rmoveto (Y) jLs TBL ( for 4 colours) showen ( f\374r 4 Farben) showde ( W) jLs tdr (R) jLs tdg (G) jLs tdb (B) jLs tdw 680 280 translate 30 setlinewidth tdn 0 0 moveto 4000 250 add 0 rlineto stroke 0 0 moveto 0 3000 250 add rlineto stroke 4000 250 add 0 moveto -100 50 rlineto 0 -100 rlineto closepath fill 0 3000 300 add moveto -50 -100 rlineto 100 0 rlineto closepath fill TBL /tx [(-2) (-1) ( 0) ( 1) ( 2)] def /ty [( -1) ( 0) ( 1) ( 2) ] def /txl [( ) (0,1) ( 1) ( 10) (100)] def /tyl [( ) (1) (10) (100) ] def /tye [( 0) ( 20) ( 40) ( 60) ( 80) (100)] def %!x-Achse: 100 Einheiten = 0600 Skalen-Einheiten 0 1 4 {/i exch def /ixt {-150 i 1000 mul add} def /ixl { 000 i 1000 mul add} def ixt -250 moveto tx i get exec show i 1 ge {ixt 100 moveto txl i get exec show} if ixl 60 moveto 0 -120 rlineto stroke } for /ixtt 4 1000 mul def /iytt -200 def ixtt 200 add iytt moveto (log) bLs 20 0 rmoveto (Y) jLs /iytt 050 def ixtt 200 add iytt moveto (Y) jLs tdn %!y-Achse: 100 S-Einheiten = 0600 Skalen-Einheiten TBL 0 1 5 {/i exch def /iyt {-50 i 0600 mul add} def /iyl {000 i 0600 mul add} def -370 iyt moveto tye i get show -60 iyl moveto 120 0 rlineto stroke } for /i 5 def -300 130 i 0600 mul add moveto (T*) jLs /Yi 101 array def /L*i 101 array def /L*iW 101 array def /L*iR 101 array def /L*iG 101 array def /L*iB 101 array def /YnW 100 def %sRGB /YnR 21 def /YnG 72 def /YnB 07 def /e1D24 1. 2.4 div def 2000 0000 translate %new cero point /MULX 1000 def /MULY 30 def 0 1 3 {/k exch def %k=0,3:W,R,G,B 0 1 100 {/i exch def %i=0,100 k 0 eq {1 1 1 setrgbcolor Yi i i YnW mul 100. div put L*i i Yi i get YnW div e1D24 exp 100 mul put } if k 1 eq {1 0 0 setrgbcolor Yi i i YnR mul 100. div put L*i i Yi i get YnR div e1D24 exp 100 mul put } if k 2 eq {0 1 0 setrgbcolor Yi i i YnG mul 100. div put L*i i Yi i get YnG div e1D24 exp 100 mul put } if k 3 eq {0 0 1 setrgbcolor Yi i i YnB mul 100. div put L*i i Yi i get YnB div e1D24 exp 100 mul put } if } for %i=0,100 40 setlinewidth /i1 001 def /i2 100 def L*i 0 0. put i1 1 i2 {/i exch def %i=i1,i2 Yi i get log MULX mul L*i i get MULY mul i i1 eq {moveto} if i i1 1 add ge i i2 1 sub le and {lineto} if i i2 eq {stroke} if } for %i=i1,i2 } for %k=0,3 /L*N L*i 3 get 0.4 mul L*i 4 get 0.6 mul add def /YN 3.6 def /L*u L*i 18 get def /Yu 18 def /L*W L*i 90 get def /YW 90 def tdw %x-axis mark YN log MULX mul 0 MULY mul moveto YW log MULX mul 0 MULY mul lineto stroke %y-axis mark -2 MULX mul L*N MULY mul moveto -2 MULX mul L*W MULY mul lineto stroke tdg [100] 0 setdash %x-axis mark YN log MULX mul 0 MULY mul moveto YW log MULX mul 0 MULY mul lineto stroke %y-axis mark -2 MULX mul L*N MULY mul moveto -2 MULX mul L*W MULY mul lineto stroke [ ] 0 setdash tdn 1 setgray [100] 0 setdash -2 MULX mul L*u MULY mul moveto Yu log MULX mul L*u MULY mul lineto Yu log MULX mul 0. MULY mul lineto stroke [ ] 0 setdash -2.4 MULX mul 1500 060 sub moveto (48,9) bLs -1.9 MULX mul 1500 060 add moveto (T*) jLs -20 0 rmoveto (u) ibLs Yu log MULX mul 30 add 100 moveto (Y) jLs (u) ibLs (=18) bLs %2000 neg 0000 translate %new cero point newpath tdn YN log MULX mul L*N MULY mul 100 0 360 arc fill tdw Yu log MULX mul L*u MULY mul 110 0 360 arc fill tdz Yu log MULX mul L*u MULY mul 090 0 360 arc fill tdw YW log MULX mul L*W MULY mul 100 0 360 arc fill TBL YN log MULX mul 200 sub L*N MULY mul 300 sub moveto YN log cvsshow1x (, ) show L*N cvsshow1x Yu log MULX mul 150 add L*u MULY mul 50 sub moveto Yu log cvsshow1x (, ) show L*u cvsshow1x YW log MULX mul 250 sub L*W MULY mul 200 add moveto YW log cvsshow1x (, ) show L*W cvsshow1x YW log MULX mul 350 sub L*W MULY mul 450 add moveto (log ) bLs (Y) jLs (, ) bLs (L*) jLs 2000 neg 0000 translate %new cero point /x0 0100 def /y0 3050 def /ydel 300 def /nW {tdw (n,) ibLs tdw (W) ibLs () bLs tdw} def /nR {tdw (n,) ibLs tdr (R) ibLs () bLs tdw} def /nG {tdw (n,) ibLs tdg (G) ibLs () bLs tdw} def /nB {tdw (n,) ibLs tdb (B) ibLs () bLs tdw} def /nWRGB {tdw (n,) ibLs tdw (W) ibLs () bLs tdr (R) ibLs () bLs tdg (G) ibLs () bLs tdb (B) ibLs () bLs tdw} def /uWRGB {tdw (u) ibLs (,) bLs tdw (W) ibLs () bLs tdr (R) ibLs () bLs tdg (G) ibLs () bLs tdb (B) ibLs () bLs tdw} def x0 y0 moveto (\0500 < ) bLs (Y) jLs ( < ) bLs (Y) jLs nW (, ) bLs (Y) jLs nR (, ) bLs (Y) jLs nG (, ) bLs (Y) jLs nB ( = ) bLs (Y) jLs nWRGB (\051) bLs %T*= 100(Y/(100, 21, 72, 7))**(1/2,4) x0 y0 1.0 ydel mul sub moveto (T*) jLs nWRGB ( = 100 \050) bLs (Y/Y) jLs nWRGB (\051) bLs (1/2,4) ebLs x0 y0 2.0 ydel mul sub moveto (\050) bLs (Y) jLs nWRGB (=100, ) bLs tdr (21, ) bLs tdg (72, ) bLs tdb (7) bLs tdw (\051) bLs /L*u 48.9 def /YWn 100 def /YWu 18 def %%(YnWRGB=100) x0 y0 3.0 ydel mul sub moveto (\050) bLs (Y) jLs uWRGB (=18, ) bLs tdr (3,8, ) bLs tdg (13, ) bLs tdb (1,3) bLs tdw (\051) bLs tdw /x0 3600 def /y0 1000 def x0 y0 moveto 1000 0 rlineto stroke tdg [100] 0 setdash x0 y0 moveto 1000 0 rlineto stroke [ ] 0 setdash tdw x0 y0 0.7 ydel mul sub moveto TBL (application) showen TS (Anwendungs\255) showde x0 y0 1.3 ydel mul sub moveto TBL (range) showen TS (bereich) showde 680 neg 280 neg translate showpage grestore %%Trailer %line 249 %%EndDocument EndEPSF grestore gsave BeginEPSF /xc1 16 def /yc1 12 def /xt 1 def xchart 1 eq {/xt 1 def} if 28 SHSl sub MM 020 STAl add 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 http://farbe.li.tu-berlin.de/fea3/fea30-2 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark03 where {pop} {userdict /pdfmark03 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [/Title (PostScript pictures: farbe.li.tu-berlin.de/fea3/fea3.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2021080112000) /ModDate (D:20210801112000) /DOCINFO pdfmark03 [ /View [ /Fit ] /DOCVIEW pdfmark03 %END PDFDE011 % 40mm = 80*72/25.4 = 232; 232+90+13 = 335 % !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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /TV {120 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TG {320 /Times-ISOL1 FS} bind def /TIV {120 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIG {320 /TimesI-ISOL1 FS} bind def /TBV {120 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBG {320 /TimesB-ISOL1 FS} bind def /TBIV {120 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIG {320 /TimesBI-ISOL1 FS} bind def /SV {120 /Symbol FS} bind def /SL {160 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SG {320 /Symbol FS} bind def /RV {120 /Times-Roman FS} bind def /RL {160 /Times-Roman FS} bind def /RS {200 /Times-Roman FS} bind def /RK {240 /Times-Roman FS} bind def /RM {280 /Times-Roman FS} bind def /RG {320 /Times-Roman FS} bind def /RIV {120 /Times-Italic FS} bind def /RIL {160 /Times-Italic FS} bind def /RIS {200 /Times-Italic FS} bind def /RIK {240 /Times-Italic FS} bind def /RIM {280 /Times-Italic FS} bind def /RIG {320 /Times-Italic FS} bind def /RBV {120 /Times-Bold FS} bind def /RBL {160 /Times-Bold FS} bind def /RBS {200 /Times-Bold FS} bind def /RBK {240 /Times-Bold FS} bind def /RBM {280 /Times-Bold FS} bind def /RBG {320 /Times-Bold FS} bind def /RBIV {120 /Times-BoldItalic FS} bind def /RBIL {160 /Times-BoldItalic FS} bind def /RBIS {200 /Times-BoldItalic FS} bind def /RBIK {240 /Times-BoldItalic FS} bind def /RBIM {280 /Times-BoldItalic FS} bind def /RBIG {320 /Times-BoldItalic FS} bind def /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 k {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmykcolor rec stroke} bind def /cvishowr {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def /cvishow {cvi 6 string cvs show ( ) show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show ( ) show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show ( ) show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show ( ) show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show ( ) show} def /cvsshow5 {100000 mul cvi 0.00001 mul 9 string cvs show ( ) show} def /cvishow0 {cvi 6 string cvs show} def /cvsshow10 {10 mul cvi 0.1 mul 9 string cvs show} def /cvsshow20 {100 mul cvi 0.01 mul 9 string cvs show} def /cvsshow30 {1000 mul cvi 0.001 mul 9 string cvs show} def /cvsshow40 {10000 mul cvi 0.0001 mul 9 string cvs show} def /cvsshow50 {100000 mul cvi 0.00001 mul 9 string cvs show} def /cvsshow0r {10 mul 0.5 add cvi 0.1 mul 10 string cvs show} def /cvsshow1r {10 mul 0.5 add cvi 0.1 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow2r {100 mul 0.5 add cvi 0.01 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow3r {1000 mul 0.5 add cvi 0.001 mul 10 string cvs show} def %now with cvishow0 instead of cvishow /cvsshow1x {/nxx exch def %example nxx=99.1/99.0 nxx 10 mul cvi /nxi exch def %nxi=991/990 nxi 10 idiv /nxa exch def %nxa=99 nxi nxa 10 mul sub /nxb exch def %nxb=1/0 nxa cvishow0 (,) show %nxa=99 nxb cvishow0 %nxb=1/0 } def /cvsshow2x {/nxx exch def %example nxx=99.12/99,02/99,00 nxx 100 mul cvi /nxi exch def %nxi=9912/9902/00 nxi 100 idiv /nxa exch def %nxa=99 nxi nxa 100 mul sub /nxb exch def %nxb=12/02/00 nxa cvishow0 (,) show %nxb=99, nxb 10 ge {nxb cvishow0} if %nxb=12 nxb 1 ge nxb 9 le and {(0) show nxb cvishow0} if %nxb=02 nxb 0 eq {(00) show} if %nxb=00 } def /cvsshow3x {/nxx exch def %example nxx=99.123/99.012/99.001/99.000 nxx 1000 mul cvi /nxi exch def %nxi=99123/99012/99001/99000 nxi 1000 idiv /nxa exch def %nxa=99 nxi nxa 1000 mul sub /nxb exch def %nxb=123/012/001/000 nxa cvishow0 (,) show %nxb=99, nxb 100 ge {nxb cvishow0} if %nxb=123/012/001/000 nxb 10 ge nxb 99 le and {(0) show nxb cvishow0} if %nxb=012 nxb 1 ge nxb 9 le and {(00) show nxb cvishow0} if %nxb=001 nxb 0 eq {(000) show} if %nxb=000 } def %********************************************************* %%EndProlog gsave %lanindL2 START 20000505 /lanind 1 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 {3 lanind eq {show} {pop} ifelse} bind def /showfr {2 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 0 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % gsave 4 /Times-ISOL1 FS 74 86 moveto (fea30-3a, eea00-2n, CEA10-2N) show %BNU50-2n, CEA10-2N 72 90 translate 0.01 MM dup scale 15 setlinewidth /yhoe 4000 def /xwidth 5400 def 0.5 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath stroke %gsave %start in case of clip TBK 100 yhoe 220 sub moveto (Beobachtungen von aneinandergrenzenden Graus) showde (Viewing situations of adjacent greys) showen 100 yhoe 220 sub 2000 sub moveto (Beobachtungen von separaten Graus) showde (Viewing situations of separated greys) showen /proz_square {%BEG proz_square /xsq0 1600 def /ysq0 1600 def /xd 160 def /yd 160 def /xsqz 1280 def /ysqz 1280 def 1 setgray %white frame /x00 x0 def /y00 y0 def /xsq00 xsq0 def /ysq00 ysq0 def x00 y00 moveto xsq00 0 rlineto 0 ysq00 rlineto xsq00 neg 0 rlineto closepath fill xchart4 0 eq {0.5 setgray} if xchart4 1 eq {0.5 setgray} if %grey surround xchart4 2 eq {0.5 setgray} if xchart4 3 eq {0.5 setgray} if xchart4 4 eq {0.5 setgray} if %grey surround xchart4 5 eq {0.5 setgray} if /x01 x0 xd add def /y01 y0 yd add def /xsq01 xsq0 xd 2 mul sub def /ysq01 ysq0 yd 2 mul sub def x01 y01 moveto xsq01 0 rlineto 0 ysq01 rlineto xsq01 neg 0 rlineto closepath fill 0.4 setgray xchart4 2 le {/x0m x0 800 add def} {/x0m x0 830 add def} ifelse /y0m y0 800 add def x0m y0m 200 -90 90 arc fill 0.6 setgray xchart4 2 le {/x0m x0 800 add def} {/x0m x0 770 add def} ifelse /y0m y0 800 add def x0m y0m 200 90 270 arc fill 0 setgray TBL x0 5 add y0 25 add moveto xchart4 0 eq {(1A) show} if xchart4 1 eq {(2A) show} if xchart4 2 eq {(3A) show} if xchart4 3 eq {(1B) show} if xchart4 4 eq {(2B) show} if xchart4 5 eq {(3B) show} if %x0 500 add %xchart4 1 eq %xchart4 4 eq or {250 sub} if %y0 25 add moveto xchart4 0 eq xchart4 3 eq or {x0 400 add y0 25 add moveto TBIL (R) show TBL (=reflection) showen (=Reflexion) showde} if xchart4 1 eq xchart4 4 eq or {x0 250 add y0 25 add moveto TBIL (Y) show TBL (=tristimulus value) showen (=Normfarbwert) showde} if xchart4 2 eq xchart4 5 eq or {x0 300 add y0 25 add moveto TBIL (L) show TBL (=luminance) showen (=Leuchtdichte) showde} if /x0m x0 800 add def /y0m y0 250 add def /xshift [-50 050 -250 -50 050 -250] def 1 setgray x0m 250 sub xshift xchart4 get add y0m moveto TBS xchart4 0 eq xchart4 3 eq or {TBIS (R) show TBL 0 -50 rmoveto (U) show 0 50 rmoveto TBS (=0,18) show} if xchart4 1 eq xchart4 4 eq or {TBIS (Y) show TBL 0 -50 rmoveto (U) show 0 50 rmoveto TBS (=18) show} if xchart4 2 eq xchart4 5 eq or {TBIS (L) show TBL 0 -50 rmoveto (U) show 0 50 rmoveto TBS (=28 cd/m) show TBL 0 80 rmoveto (2) show 0 -80 rmoveto} if /x0m x0 800 add def /y0m y0 800 add 100 add def 1 setgray x0m 300 sub y0m 150 add moveto xchart4 0 eq xchart4 3 eq or {%xchart4=0,3 TBIS (R; R) show TBS (+) show SS (D) show TBIS(R) show } if %xchart4=0,3 xchart4 1 eq xchart4 4 eq or {%xchart4=1,4 TBIS (Y; Y) show TBS (+) show SS (D) show TBIS(Y) show } if %xchart4=1,4 xchart4 2 eq xchart4 5 eq or {%xchart4=2,5 TBIS (L; L) show TBS (+) show SS (D) show TBIS(L) show } if %xchart4=2,5 } bind def %END proz_square /x0 0100 def /y0 2100 def /xchart4 0 def proz_square /x0 1900 def /y0 2100 def /xchart4 1 def proz_square /x0 3700 def /y0 2100 def /xchart4 2 def proz_square /x0 0100 def /y0 0100 def /xchart4 3 def proz_square /x0 1900 def /y0 0100 def /xchart4 4 def proz_square /x0 3700 def /y0 0100 def /xchart4 5 def proz_square %***************************************************************** /yhoe 4000 def /xwidth 5400 def 20 setlinewidth 0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath stroke %***************************************************************** %grestore %end in case of clip showpage grestore %} for %output with langind end %%Trailer %line 259 %%EndDocument EndEPSF grestore gsave BeginEPSF 86 SHAl add MM 020 STAl add 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 %!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/fea3/fea30-3 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark04 where {pop} {userdict /pdfmark04 /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: farbe.li.tu-berlin.de/fea3/fea3.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2021080112000) /ModDate (D:20210801112000) /DOCINFO pdfmark04 [ /View [ /Fit ] /DOCVIEW pdfmark04 %END PDFDE011 % 40mm = 80*72/25.4 = 232; 232+90+13 = 335 % !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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /TV {120 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TG {320 /Times-ISOL1 FS} bind def /TIV {120 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIG {320 /TimesI-ISOL1 FS} bind def /TBV {120 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBG {320 /TimesB-ISOL1 FS} bind def /TBIV {120 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIG {320 /TimesBI-ISOL1 FS} bind def /SV {120 /Symbol FS} bind def /SL {160 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SG {320 /Symbol FS} bind def /RV {120 /Times-Roman FS} bind def /RL {160 /Times-Roman FS} bind def /RS {200 /Times-Roman FS} bind def /RK {240 /Times-Roman FS} bind def /RM {280 /Times-Roman FS} bind def /RG {320 /Times-Roman FS} bind def /RIV {120 /Times-Italic FS} bind def /RIL {160 /Times-Italic FS} bind def /RIS {200 /Times-Italic FS} bind def /RIK {240 /Times-Italic FS} bind def /RIM {280 /Times-Italic FS} bind def /RIG {320 /Times-Italic FS} bind def /RBV {120 /Times-Bold FS} bind def /RBL {160 /Times-Bold FS} bind def /RBS {200 /Times-Bold FS} bind def /RBK {240 /Times-Bold FS} bind def /RBM {280 /Times-Bold FS} bind def /RBG {320 /Times-Bold FS} bind def /RBIV {120 /Times-BoldItalic FS} bind def /RBIL {160 /Times-BoldItalic FS} bind def /RBIS {200 /Times-BoldItalic FS} bind def /RBIK {240 /Times-BoldItalic FS} bind def /RBIM {280 /Times-BoldItalic FS} bind def /RBIG {320 /Times-BoldItalic FS} bind def /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 k {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmykcolor rec stroke} bind def /cvishowr {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def /cvishow {cvi 6 string cvs show ( ) show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show ( ) show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show ( ) show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show ( ) show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show ( ) show} def /cvsshow5 {100000 mul cvi 0.00001 mul 9 string cvs show ( ) show} def /cvishow0 {cvi 6 string cvs show} def /cvsshow10 {10 mul cvi 0.1 mul 9 string cvs show} def /cvsshow20 {100 mul cvi 0.01 mul 9 string cvs show} def /cvsshow30 {1000 mul cvi 0.001 mul 9 string cvs show} def /cvsshow40 {10000 mul cvi 0.0001 mul 9 string cvs show} def /cvsshow50 {100000 mul cvi 0.00001 mul 9 string cvs show} def /cvsshow0r {10 mul 0.5 add cvi 0.1 mul 10 string cvs show} def /cvsshow1r {10 mul 0.5 add cvi 0.1 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow2r {100 mul 0.5 add cvi 0.01 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow3r {1000 mul 0.5 add cvi 0.001 mul 10 string cvs show} def %now with cvishow0 instead of cvishow /cvsshow1x {/nxx exch def %example nxx=99.1/99.0 nxx 10 mul cvi /nxi exch def %nxi=991/990 nxi 10 idiv /nxa exch def %nxa=99 nxi nxa 10 mul sub /nxb exch def %nxb=1/0 nxa cvishow0 (,) show %nxa=99 nxb cvishow0 %nxb=1/0 } def /cvsshow2x {/nxx exch def %example nxx=99.12/99,02/99,00 nxx 100 mul cvi /nxi exch def %nxi=9912/9902/00 nxi 100 idiv /nxa exch def %nxa=99 nxi nxa 100 mul sub /nxb exch def %nxb=12/02/00 nxa cvishow0 (,) show %nxb=99, nxb 10 ge {nxb cvishow0} if %nxb=12 nxb 1 ge nxb 9 le and {(0) show nxb cvishow0} if %nxb=02 nxb 0 eq {(00) show} if %nxb=00 } def /cvsshow3x {/nxx exch def %example nxx=99.123/99.012/99.001/99.000 nxx 1000 mul cvi /nxi exch def %nxi=99123/99012/99001/99000 nxi 1000 idiv /nxa exch def %nxa=99 nxi nxa 1000 mul sub /nxb exch def %nxb=123/012/001/000 nxa cvishow0 (,) show %nxb=99, nxb 100 ge {nxb cvishow0} if %nxb=123/012/001/000 nxb 10 ge nxb 99 le and {(0) show nxb cvishow0} if %nxb=012 nxb 1 ge nxb 9 le and {(00) show nxb cvishow0} if %nxb=001 nxb 0 eq {(000) show} if %nxb=000 } def %********************************************************* %%EndProlog gsave %lanindL2 START 20000505 /lanind 1 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 {3 lanind eq {show} {pop} ifelse} bind def /showfr {2 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 0 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % gsave 4 /Times-ISOL1 FS 74 86 moveto (fea30-4a, eea00-3n, CEA10-3N) show %BNS00-4N 72 90 translate 0.01 MM dup scale 15 setlinewidth /yhoe 4000 def /xwidth 5400 def 0.5 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath stroke %gsave %start in case of clip TBK 100 yhoe 220 sub moveto (Beobachtungen von aneinandergrenzenden Graus) showde (Viewing situations of adjacent greys) showen 100 yhoe 220 sub 2000 sub moveto (Beobachtungen von separaten Graus) showde (Viewing situations of separated greys) showen /proz_square {%BEG proz_square /xsq0 1600 def /ysq0 1600 def /xd 160 def /yd 160 def /xsqz 1280 def /ysqz 1280 def 1 setgray %white frame /x00 x0 def /y00 y0 def /xsq00 xsq0 def /ysq00 ysq0 def x00 y00 moveto xsq00 0 rlineto 0 ysq00 rlineto xsq00 neg 0 rlineto closepath fill xchart4 0 eq {0.0 setgray} if xchart4 1 eq {0.5 setgray} if %grey surround xchart4 2 eq {1.0 setgray} if xchart4 3 eq {0.0 setgray} if xchart4 4 eq {0.5 setgray} if %grey surround xchart4 5 eq {1.0 setgray} if /x01 x0 xd add def /y01 y0 yd add def /xsq01 xsq0 xd 2 mul sub def /ysq01 ysq0 yd 2 mul sub def x01 y01 moveto xsq01 0 rlineto 0 ysq01 rlineto xsq01 neg 0 rlineto closepath xchart4 0 eq xchart4 1 eq or xchart4 3 eq or xchart4 4 eq or {fill} if xchart4 2 eq xchart4 5 eq or {0 setgray stroke} if 0.4 setgray xchart4 2 le {/x0m x0 800 add def} {/x0m x0 830 add def} ifelse /y0m y0 800 add def x0m y0m 200 -90 90 arc fill 0.6 setgray xchart4 2 le {/x0m x0 800 add def} {/x0m x0 770 add def} ifelse /y0m y0 800 add def x0m y0m 200 90 270 arc fill %0 setgray %/x0lm x01 250 add def %/y0lm y01 ysqz add 250 sub def %x0lm y0lm 200 0 360 arc fill %1 setgray %/x0rm x01 xsqz add 250 sub def %/y0rm y01 ysqz add 250 sub def %x0rm y0rm 200 0 360 arc fill 0 setgray TBS x0 5 add y0 2 add moveto xchart4 0 eq {(1A) show} if xchart4 1 eq {(2A) show} if xchart4 2 eq {(3A) show} if xchart4 3 eq {(1B) show} if xchart4 4 eq {(2B) show} if xchart4 5 eq {(3B) show} if /iout 1 def iout 1 eq {%iout=1 /x0m x0 800 add def /y0m y0 250 add def /xshift [-50 -50 -50 -50 -50 -50] def xchart4 0 eq xchart4 3 eq or {1 setgray} if xchart4 1 eq xchart4 2 eq or xchart4 4 eq or xchart4 5 eq or {0 setgray} if x0m 250 sub xshift xchart4 get add y0m moveto TBIS (Y) show TBS xchart4 0 eq xchart4 3 eq or {TBL 0 -50 rmoveto (N) show 0 50 rmoveto TBS (=3,6) show} if xchart4 1 eq xchart4 4 eq or {TBL 0 -50 rmoveto (U) show 0 50 rmoveto TBS (=18) show} if xchart4 2 eq xchart4 5 eq or {TBL 0 -50 rmoveto (W) show 0 50 rmoveto TBS (=90) show} if /x0m x0 800 add def /y0m y0 800 add 100 add def xchart4 0 eq xchart4 3 eq or {1 setgray} if xchart4 1 eq xchart4 2 eq or xchart4 4 eq or xchart4 5 eq or {0 setgray} if x0m 300 sub y0m 150 add moveto TBIS (L; L) show TBS (+) show SS (D) show TBIS (L) show } if %iout=1 } bind def %END proz_square /x0 0100 def /y0 2100 def /xchart4 0 def proz_square /x0 1900 def /y0 2100 def /xchart4 1 def proz_square /x0 3700 def /y0 2100 def /xchart4 2 def proz_square /x0 0100 def /y0 0100 def /xchart4 3 def proz_square /x0 1900 def /y0 0100 def /xchart4 4 def proz_square /x0 3700 def /y0 0100 def /xchart4 5 def proz_square %***************************************************************** /yhoe 4000 def /xwidth 5400 def 20 setlinewidth 0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath stroke %***************************************************************** %grestore %end in case of clip showpage grestore %} for %output with langind end %%Trailer %line 269 %%EndDocument EndEPSF grestore gsave showpage grestore %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 SHAl add 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 %!PS-Adobe-3.0 EPSF-3.0 fea30-4N %%BoundingBox: 70 85 246 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave /ioutx 0 def ioutx 1 eq {%ioutx=1 4 /Times-Roman FS 72 86 moveto (fea30-4N) show 72 90 translate 0.01 MM dup scale 20 setlinewidth /xwidth 6100 def /ywidth 4000 def 1 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath stroke } if %ioutx=1 grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 28 SHSl sub MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 15 %line 379 %!PS-Adobe-3.0 EPSF-3.0 fea30-5N %%BoundingBox: 70 85 246 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave /ioutx 0 def ioutx 1 eq {%ioutx=1 4 /Times-Roman FS 72 86 moveto (fea30-5N) show 72 90 translate 0.01 MM dup scale 20 setlinewidth /xwidth 6100 def /ywidth 4000 def 1 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath stroke } if %ioutx=1 grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 SHAl add 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 %!PS-Adobe-3.0 EPSF-3.0 fea30-6N %%BoundingBox: 70 85 246 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave /ioutx 0 def ioutx 1 eq {%ioutx=1 4 /Times-Roman FS 72 86 moveto (fea30-6N) show 72 90 translate 0.01 MM dup scale 20 setlinewidth /xwidth 6100 def /ywidth 4000 def 1 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath stroke } if %ioutx=1 grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF /xc1 16 def /yc1 12 def /xt 1 def xchart 1 eq {/xt 1 def} if 28 SHSl sub MM 20 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 17 %line 399 %!PS-Adobe-3.0 EPSF-3.0 fea30-7n_54 %%BoundingBox: 70 85 387 335 %START PDFDE011.EPS /pdfmark07 where {pop} {userdict /pdfmark07 /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: farbe.li.tu-berlin.de/fea3/fea3.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2023080112000) /ModDate (D:2023080112000) /DOCINFO pdfmark07 [ /View [ /Fit ] /DOCVIEW pdfmark07 %END PDFDE011 %line 20****************************************************** /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 % End for EPS file 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 /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Oblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierI-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /Courier-BoldOblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierBI-ISOL1 exch definefont pop /TG {350 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TV {110 /Times-ISOL1 FS} bind def /TW {080 /Times-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TIV {110 /TimesI-ISOL1 FS} bind def /TIW {080 /TimesI-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBV {110 /TimesB-ISOL1 FS} bind def /TBW {080 /TimesB-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /TBIV {110 /TimesBI-ISOL1 FS} bind def /TBIW {080 /TimesBI-ISOL1 FS} bind def /SG {350 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SL {160 /Symbol FS} bind def /SV {110 /Symbol FS} bind def /SW {080 /Symbol FS} bind def %***************************************************************** %%EndProlog gsave %lanindL2.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 /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 0 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % gsave /cvishow0 {cvi 6 string cvs show} def /kchartl 0 def %0:left page, 1:right page /pchartl 1 def %0:top page, 4:down page %not used 72 90 translate 0.010 MM dup scale 40 setlinewidth /ymax1 08550 def /xmax1 11050 def %2x5400+250=11050 1.0 setgray 0 0 moveto xmax1 0 rlineto 0 ymax1 rlineto xmax1 neg 0 rlineto closepath fill 0 setgray 0 0 moveto xmax1 0 rlineto 0 ymax1 rlineto xmax1 neg 0 rlineto closepath stroke TK 0 setgray 150 /Times-ISOL1 FS 150 -140 moveto kchartl 0 eq {(fea30-) show} {(fea31-) show} ifelse pchartl 0 eq {(3n) show} {(7n) show} ifelse grestore gsave %00 %01 %02 /SHSl 00.0 def /SHAl -3.0 def /STSl 13.0 def /STAl 14.5 def BeginEPSF 28 SHSl sub MM 064 STSl add 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 http://farbe.li.tu-berlin.de/fea3/fea31-1 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark05 where {pop} {userdict /pdfmark05 /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: farbe.li.tu-berlin.de/fea3/fea3.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2021080112000) /ModDate (D:20210801112000) /DOCINFO pdfmark05 [ /View [ /Fit ] /DOCVIEW pdfmark05 %END PDFDE011 % 40mm = 80*72/25.4 = 232; 232+90+13 = 335 % !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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /TX {100 /Times-ISOL1 FS} bind def /TV {120 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TG {320 /Times-ISOL1 FS} bind def /TIX {100 /TimesI-ISOL1 FS} bind def /TIV {120 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIG {320 /TimesI-ISOL1 FS} bind def /TBX {100 /TimesB-ISOL1 FS} bind def /TBV {120 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBG {320 /TimesB-ISOL1 FS} bind def /TBIX {100 /TimesBI-ISOL1 FS} bind def /TBIV {120 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIG {320 /TimesBI-ISOL1 FS} bind def /SX {100 /Symbol FS} bind def /SV {120 /Symbol FS} bind def /SL {160 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SG {320 /Symbol FS} bind def /RV {120 /Times-Roman FS} bind def /RL {160 /Times-Roman FS} bind def /RS {200 /Times-Roman FS} bind def /RK {240 /Times-Roman FS} bind def /RM {280 /Times-Roman FS} bind def /RG {320 /Times-Roman FS} bind def /RIV {120 /Times-Italic FS} bind def /RIL {160 /Times-Italic FS} bind def /RIS {200 /Times-Italic FS} bind def /RIK {240 /Times-Italic FS} bind def /RIM {280 /Times-Italic FS} bind def /RIG {320 /Times-Italic FS} bind def /RBV {120 /Times-Bold FS} bind def /RBL {160 /Times-Bold FS} bind def /RBS {200 /Times-Bold FS} bind def /RBK {240 /Times-Bold FS} bind def /RBM {280 /Times-Bold FS} bind def /RBG {320 /Times-Bold FS} bind def /RBIV {120 /Times-BoldItalic FS} bind def /RBIL {160 /Times-BoldItalic FS} bind def /RBIS {200 /Times-BoldItalic FS} bind def /RBIK {240 /Times-BoldItalic FS} bind def /RBIM {280 /Times-BoldItalic FS} bind def /RBIG {320 /Times-BoldItalic FS} bind def /tfr {1 0 0 setrgbcolor} bind def %Reproduktionsfarben /tfg {0 1 0 setrgbcolor} bind def /tfb {0 0 1 setrgbcolor} bind def /tfc {0 1 1 setrgbcolor} bind def /tfm {1 0 1 setrgbcolor} bind def /tfy {1 1 0 setrgbcolor} bind def /tfo {1 0 0 setrgbcolor} bind def %Reproduktionsfarben /tfl {0 1 0 setrgbcolor} bind def /tfv {0 0 1 setrgbcolor} bind def /tfn {0.0 setgray} bind def /tfz {0.5 setgray} bind def /tfw {1.0 setgray} bind def /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 k {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmykcolor rec stroke} bind def /cvishowr {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def /cvishow {cvi 6 string cvs show ( ) show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show ( ) show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show ( ) show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show ( ) show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show ( ) show} def /cvsshow5 {100000 mul cvi 0.00001 mul 9 string cvs show ( ) show} def /cvishow0 {cvi 6 string cvs show} def /cvsshow10 {10 mul cvi 0.1 mul 9 string cvs show} def /cvsshow20 {100 mul cvi 0.01 mul 9 string cvs show} def /cvsshow30 {1000 mul cvi 0.001 mul 9 string cvs show} def /cvsshow40 {10000 mul cvi 0.0001 mul 9 string cvs show} def /cvsshow50 {100000 mul cvi 0.00001 mul 9 string cvs show} def /cvsshow0r {10 mul 0.5 add cvi 0.1 mul 10 string cvs show} def /cvsshow1r {10 mul 0.5 add cvi 0.1 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow2r {100 mul 0.5 add cvi 0.01 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow3r {1000 mul 0.5 add cvi 0.001 mul 10 string cvs show} def %now with cvishow0 instead of cvishow /cvsshow1x {/nxx exch def %example nxx=99.1/99.0 nxx 10 mul cvi /nxi exch def %nxi=991/990 nxi 10 idiv /nxa exch def %nxa=99 nxi nxa 10 mul sub /nxb exch def %nxb=1/0 nxa cvishow0 (,) show %nxa=99 nxb cvishow0 %nxb=1/0 } def /cvsshow2x {/nxx exch def %example nxx=99.12/99,02/99,00 nxx 100 mul cvi /nxi exch def %nxi=9912/9902/00 nxi 100 idiv /nxa exch def %nxa=99 nxi nxa 100 mul sub /nxb exch def %nxb=12/02/00 nxa cvishow0 (,) show %nxb=99, nxb 10 ge {nxb cvishow0} if %nxb=12 nxb 1 ge nxb 9 le and {(0) show nxb cvishow0} if %nxb=02 nxb 0 eq {(00) show} if %nxb=00 } def /cvsshow3x {/nxx exch def %example nxx=99.123/99.012/99.001/99.000 nxx 1000 mul cvi /nxi exch def %nxi=99123/99012/99001/99000 nxi 1000 idiv /nxa exch def %nxa=99 nxi nxa 1000 mul sub /nxb exch def %nxb=123/012/001/000 nxa cvishow0 (,) show %nxb=99, nxb 100 ge {nxb cvishow0} if %nxb=123/012/001/000 nxb 10 ge nxb 99 le and {(0) show nxb cvishow0} if %nxb=012 nxb 1 ge nxb 9 le and {(00) show nxb cvishow0} if %nxb=001 nxb 0 eq {(000) show} if %nxb=000 } def %********************************************************* %%EndProlog gsave %lanindL2 START 20000505 /lanind 1 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 {3 lanind eq {show} {pop} ifelse} bind def /showfr {2 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 0 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % /jTBVN {TBV -30 -50 rmoveto (N) show 0 50 rmoveto TBL} def /jTBVW {TBV -30 -50 rmoveto (W) show 0 50 rmoveto TBL} def /jTBXN {TBX -30 -50 rmoveto (N) show 0 50 rmoveto TBL} def /jTBXW {TBX -30 -50 rmoveto (W) show 0 50 rmoveto TBL} def /jTBVNY {TBV -10 -50 rmoveto (N) show 0 50 rmoveto TBL} def /jTBVWY {TBV -10 -50 rmoveto (W) show 0 50 rmoveto TBL} def /jTBXNY {TBX -10 -50 rmoveto (N) show 0 50 rmoveto TBL} def /jTBXWY {TBX -10 -50 rmoveto (W) show 0 50 rmoveto TBL} def gsave /xchart5 0 def %0:Titel, 1:gamma test chart /xchart6 0 def %0:SDR-SDR, 1:SDR->lower contrast, 1:SDR->higher contrast /xchart7 0 def %0: no add text, %1: add text /xchart8 0 def %0: gleich gestuft 1:nicht gleich gestuft 4 /Times-ISOL1 FS 72 86 moveto (fea30-5a) show 72 90 translate 0.01 MM dup scale 20 setlinewidth 30 setlinewidth [ ] 0 setdash /yhoe 4000 def /xwidth 5400 def 1.0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath stroke /xwi 6 array def /ywi 6 array def /xli 6 array def /yli 6 array def /xmi 6 array def %mean point /ymi 6 array def /xti 6 array def %top left +xtl= 30 /yti 6 array def %top left +ytl=-100 /xtl 30 def /ytl -150 def /yd 200 def %line difference /yk 030 def % 0 3 % 1 2 4 5 %pos 0 1 2 3 4 5 /xwi [ 050 050 1850 3100 3100 4000] def /ywi [2450 1100 1100 2450 1100 1100] def /xli [1620 1620 1060 700 700 1360] def /yli [1050 1150 1150 1050 1150 1150] def 0 1 5 {/i exch def %i=0,5 xmi i xwi i get xli i get 0.5 mul add put ymi i ywi i get yli i get 0.5 mul add put xti i xwi i get xtl add put yti i ywi i get yli i get add ytl add put } for %i=0,5 %0_1_2_4_5 xmi 0 get ymi 0 get moveto xmi 1 get ymi 1 get lineto xmi 5 get ymi 5 get lineto stroke %3_4 xmi 3 get ymi 3 get moveto xmi 4 get ymi 4 get lineto stroke 1.0 setgray 0 1 5 {/i exch def %i=0,5 xwi i get ywi i get moveto xli i get 0 rlineto 0 yli i get rlineto xli i get neg 0 rlineto closepath fill } for %i=0,5 0.0 setgray 0 1 5 {/i exch def %i=0,5 xwi i get ywi i get moveto xli i get 0 rlineto 0 yli i get rlineto xli i get neg 0 rlineto closepath stroke } for %i=0,5 xchart5 0 eq {%xchart5=0 0050 3850 moveto TBL (Dynamic range conversion of images with equally spaced ) showen (Dynamische Bereichswandlung der Bilder mit gleich gestuften ) showde TBIL (rgb*) show TBL ( data) showen (\255Daten) showde 0050 3650 moveto TBL (Equally spaced visual output and lightness ) showen (Gleich gestufte visuelle Ausgabe & ) showde TBIL (L*) show TBL ( output with ) showen (\255Helligkeitsausgabe mit ) showde TBIL (GammaAdjuster) show } if %xchart5=0 020 setlinewidth 0000 3580 moveto xwidth 0 rlineto stroke xchart5 1 ge {%xchart5>=1 tfn 0050 3850 moveto TBL (Visual definition of ) showen (Visuelle Definition von ) showde tfo SL (g) show TBV 0 -30 rmoveto (rel) show 0 30 rmoveto tfn TBL ( by test\255chart output on display) showen ( durch Display\255Pr\374fvorlagenausgabe) showde 0050 3650 moveto TBL (according to ISO 9241\255306 with 16 values ) showen (nach ISO 9241\255306 mit 16 Werten ) showde tfn (0,5 <= ) show tfo SL (g) show TBV 0 -30 rmoveto (rel) show 0 30 rmoveto tfn TBL ( <= 2) show } if %xchart5>=1 %square 0 xti 0 get yti 0 get moveto TBL (raw image data (8bit)) showen (rohe Bilddaten (8bit)) showde xti 0 get yti 0 get yd 1 mul sub moveto TBL (0<= ) show TBIL (rgb ) show TBL (<=1) show TBL ( (PhotoCD)) showen ( (FotoCD)) showde xti 0 get yti 0 get yd 2 mul sub moveto TBIL (not equally spaced) showen (nicht gleich gestuft) showde xti 0 get yti 0 get yd 3 mul sub moveto TBL (search ) showen (suche ) showde xti 0 get 500 add yti 0 get yd 3 mul sub moveto TBL (0<= ) show TBIL (rgb) show jTBVNY TBL ( <=1) show TBL (,) showen xti 0 get yti 0 get yd 4 mul sub moveto TBL (and ) showen (und ) showde xti 0 get 500 add yti 0 get yd 4 mul sub moveto TBL (0<= ) show TBIL (rgb) show jTBVWY TBL ( <=1) show %square 1 xti 1 get yti 1 get moveto TBL (visual image (8bit)) showen (visuelles Bild (8bit)) showde xti 1 get yti 1 get yd 1 mul sub moveto TBL (0 <= ) show TBIL (rgb* ) show TBL (<= 1) show xti 1 get yti 1 get yd 2 mul sub moveto TBIL (equally spaced between) showen (gleich gestuft zwischen) showde xti 1 get yti 1 get yd 3 mul sub yk 1 mul add moveto TBIV (rgb*) show jTBXN TBV (=0 and ) showen (=0 und ) showde TBIV (rgb*) show jTBXW TBV (=1) showen (=1) showde xti 1 get yti 1 get yd 4 mul sub yk 2 mul add moveto TBIV (L*) show jTBXN TBV (=18 and ) showen (=18 und ) showde TBIV (L*) show jTBXW TBV (=95) showen (=95) showde xti 1 get xli 1 get 0.2 mul add yti 1 get yd 5 mul sub yk 3 mul add moveto 1 0 0 setrgbcolor SV (D) show TBIV ((rgb*)) show TBV (=1/15) show TBV (, ) show SV (D) show TBIV (L*) show TBV (=5) show 0 setgray %square 2 xti 2 get 30 sub yti 2 get 900 add moveto TBL (16 grey steps) showen (16 Graustufen) showde xti 2 get 30 sub yti 2 get 700 add moveto TBL (ISO/IEC 15775) show xti 2 get 30 sub yti 2 get 500 add moveto TBL (ISO 9241\255306) show xti 2 get 30 sub yti 2 get 300 add moveto TBL (standard range) showen (Normbereich) showde xti 2 get yti 2 get moveto TBL (Baseline image) showen (Baseline\255Bild) showde xti 2 get yti 2 get yd 1 mul sub moveto TBL (0 <= ) show TBIL (rgb* ) show TBL (<= 1) show xti 2 get yti 2 get yd 2 mul sub moveto TBIL (equally spaced) showen (gleich gestuft) showde xti 2 get yti 2 get yd 3 mul sub yk 1 mul add moveto TBIV (rgb*) show jTBXN TBV (=0, ) show TBIV (L*) show jTBXN TBV (=18) show xti 2 get yti 2 get yd 4 mul sub yk 2 mul add moveto TBIV (rgb*) show jTBXW TBV (=1, ) show TBIV (L*) show jTBXW TBV (=95) show xti 2 get xli 2 get 0.2 mul add yti 2 get yd 5 mul sub yk 3 mul add moveto 1 0 0 setrgbcolor SV (D) show TBIV (L*) show TBV (=5) show 0 setgray %square 3 xti 3 get yti 3 get moveto TBIL (Gamma) show xti 3 get yti 3 get yd 1 mul sub moveto TBIL (Adjuster) show xti 3 get yti 3 get yd 2 mul sub moveto TBIL ((rgb*)) show 1 0 0 setrgbcolor SV 0 80 rmoveto (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto 0 -80 rmoveto xti 3 get yti 3 get yd 3 mul sub moveto SL (g) show TV 0 -30 rmoveto (rel) show 10 30 rmoveto TL (=) show 10 0 rmoveto SL (g) show 20 0 rmoveto TL (/) show 10 0 rmoveto (2,4) show xti 3 get yti 3 get yd 4 mul sub moveto TV (1,2<=) show SV (g) show TV (<=4,8) show 0 setgray %square 4 xti 4 get 20 add yti 4 get yd 1 mul sub moveto TBL ( apply) showen (anwende) showde xti 4 get 200 add yti 4 get yd 2 mul sub moveto 1 0 0 setrgbcolor SL (g) show TV 0 -30 rmoveto (rel) show 0 30 rmoveto 0 setgray xti 4 get yti 4 get yd 3 mul sub moveto SL (g) show TV 0 -30 rmoveto (rel,i) show 0 30 rmoveto TL (=1) show -20 0 rmoveto (/) show SL (g) show TV 0 -30 rmoveto (rel) show 0 30 rmoveto xti 4 get 050 add yti 4 get yd 4 mul sub moveto TL (i=invers) show %square 5 TBL xti 5 get yti 5 get 500 add moveto xchart6 1 le {(SDR display) showen (SDR\255Display) showde} if xchart6 2 eq {(HDR display) showen (HDR\255Display) showde} if xti 5 get yti 5 get 300 add moveto xchart6 1 le {(SDR range) showen (SDR\255Bereich) showde} if xchart6 2 eq {(HDR range) showen (HDR\255Bereich) showde} if xti 5 get yti 5 get moveto TBL (Alternate image) showen (Alternate\255Bild) showde xti 5 get yti 5 get yd 1 mul sub moveto TBL (0 <= ) show TBIL ((rgb*)) show tfo SV 0 80 rmoveto (g) show TBX 0 -30 rmoveto (rel,i) show 0 30 rmoveto TBL 0 -80 rmoveto tfn TBL ( <= 1) show xti 5 get yti 5 get yd 2 mul sub moveto xchart8 0 eq {%xchart8=0 TBIL (equally spaced) showen (gleich gestuft) showde } if xchart8 1 eq {%xchart8=1 TBIL (not equally spaced) showen (nicht gleich gestuft) showde } if xti 5 get yti 5 get yd 3 mul sub yk 1 mul add moveto TBIV (rgb*) show jTBXN TBV (=0, ) show TBIV (L*) show jTBXN TBV xchart6 0 eq {(=18, ) show} if xchart6 1 eq {(=36, ) show} if xchart6 2 eq {(=10? ) show} if xchart6 1 le {TBIV (Y) show jTBXNY} if TBV xchart6 0 eq {(=2,5) show} if xchart6 1 eq {(=9) show} if %xchart6 2 eq {(=1,8?) show} if xti 5 get yti 5 get yd 4 mul sub yk 2 mul add moveto TBIV (rgb*) show jTBXW TBV (=1, ) show TBIV (L*) show jTBXW TBV xchart6 0 eq {(=95, ) show} if xchart6 1 eq {(=88, ) show} if xchart6 2 eq {(=160? ) show} if xchart6 1 le {TBIV (Y) show jTBXWY} if TBV xchart6 0 eq {(=90) show} if xchart6 1 eq {(=71) show} if %xchart6 2 eq {(=360?) show} if xti 5 get xli 5 get 0.0 mul add yti 5 get yd 5 mul sub yk 3 mul add moveto 1 0 0 setrgbcolor SV (D) show TBIV (L*) show xchart6 0 eq {TBV (=5, ) show tfo SV (g) show TBX 0 -30 rmoveto (rel) show 0 30 rmoveto TBV (=1,0, ) show tfo SV (g) show TBX 0 -30 rmoveto (rel,i) show 0 30 rmoveto TBV (=1,0) show} if xchart6 1 eq {TBV (=3, ) show tfo SV (g) show TBX 0 -30 rmoveto (rel) show 0 30 rmoveto TBV (=0,8, ) show TBX 0 -30 rmoveto (rel,i) show 0 30 rmoveto TBV (=1,3) show} if xchart6 2 eq {TBV (=10 ) show tfo SV (g) show TBX 0 -30 rmoveto (rel) show 0 30 rmoveto TBV (=1,3, ) show TBX 0 -30 rmoveto (rel,i) show 0 30 rmoveto TBV (=0,8) show} if %1 0 0 setrgbcolor % 0 3 % 1 2 4 5 0 setgray /txh 100 def /tyh 100 def xmi 1 get ymi 1 get yli 1 get 0.5 mul add tyh add 35 sub moveto %-100 0 rlineto 200 0 rlineto stroke -50 100 rlineto 50 -100 rlineto 50 100 rlineto stroke xmi 4 get ymi 4 get yli 4 get 0.5 mul add tyh add 35 sub moveto %-100 0 rlineto 200 0 rlineto stroke -50 100 rlineto 50 -100 rlineto 50 100 rlineto stroke xmi 1 get xli 1 get 0.5 mul add txh add 30 add ymi 1 get moveto %0 -100 rlineto 0 200 rlineto stroke -100 50 rmoveto 100 -50 rlineto -100 -50 rlineto stroke xmi 2 get xli 2 get 0.5 mul add txh add 30 add ymi 1 get moveto %0 -100 rlineto 0 200 rlineto stroke -100 50 rmoveto 100 -50 rlineto -100 -50 rlineto stroke xmi 4 get xli 4 get 0.5 mul add txh add 30 add ymi 1 get moveto %0 -100 rlineto 0 200 rlineto stroke -100 50 rmoveto 100 -50 rlineto -100 -50 rlineto stroke tfn 0050 0925 moveto TBV (Determine visually the value of ) showen (Bestimme visuell den Wert von ) showde tfr SV (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto tfn TBV ( in the range ) showen ( im Bereich ) showde tfr TBV (0,5 <= ) show SV (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto TBV ( <= 2 ) show tfn tfn TBV (with the following two test charts.) showen (mit folgenden zwei Pr\374fvorlagen.) showde xchart5 0 eq {%xchart5=0 tfn 0050 0750 moveto TBV (Links to 16 test\255chart pages according to ISO 9241\255306 ) showen (with ) showen (Links zu 16 Pr\374fvorlagenseiten nach ISO 9241\255306 mit ) showde tfr (0,5 <= ) show SV (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto TBV ( <= 2.) show tfn 0050 0575 moveto tfb RV (https://standards.iso.org/iso/9241/306/ed-2/AE18/AE18F0PX.PDF) showen (https://standards.iso.org/iso/9241/306/ed-2/AG18/AG18F0PX.PDF) showde tfn TV (, flower motiv with ) showen (, Blumenmotiv mit ) showde tfr (0,5 <= ) show SV (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto TV ( <= 1.) show tfn 0050 0400 moveto tfb RV (https://standards.iso.org/iso/9241/306/ed-2/AE18/AE18F0NX.PDF) showen (https://standards.iso.org/iso/9241/306/ed-2/AG18/AG18F0NX.PDF) showde tfn TV (, flower motiv with ) showen (, Blumenmotiv mit ) showde tfr (1 <= ) show SV (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto TV ( <= 2.) show tfn 0050 0225 moveto tfn TV (and similar for the ISO series AE49, AE09, AE28 ) showen (instead of AE18, see) showen (und \344hnlich f\374r die ISO\255Serien AG49, AG09, AG28 ) showde (anstelle von AG18, siehe) showde 0050 0050 moveto tfb RV (https://standards.iso.org/iso/9241/306/ed-2/index.html) show 0 setgray (.) show } if %xchart5=0 xchart5 1 eq {%xchart5=1 0050 0750 moveto tfn TBV (Links to one test\255chart page according to ISO 9241\255306 ) showen (with 0,5 <= ) showen (Links zu einer Pr\274fvorlagenseite nach ISO 9241\255306 ) showde (mit 0,5 <= ) showde SV (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto TBV ( <= 2:) show 0050 0575 moveto tfb RV (http://farbe.li.tu-berlin.de/eec4/eec4l0np.pdf) showen (http://farbe.li.tu-berlin.de/egc4/egc4l0np.pdf) showde tfn TV (, 1080 colors including 729(9x9x9) colors.) showen (, 1080 Farben inklusive 729(9x9x9) Farben.) showde 0050 0400 moveto tfb RV (http://farbe.li.tu-berlin.de/eec6/eec6l0np.pdf) showen (http://farbe.li.tu-berlin.de/egc6/egc6l0np.pdf) showde tfn TV (, flower motiv, slide film, +0,5 stops.) showen (, Blumenmotiv, Diafilm, +0,5 Blenden.) showde 0050 0225 moveto tfb RV (http://farbe.li.tu-berlin.de/eec7/eec7l0np.pdf) showen (http://farbe.li.tu-berlin.de/egc7/egc7l0np.pdf) showde tfn TV (, flower motiv, negative film, +2 stops.) showen (, Blumenmotiv, Negativfilm, +2 Blenden.) showde 0050 0050 moveto tfn TV (see for papers: ) showen (siehe f\344r Ver\366ffentlichungen: ) showde tfb RV (https://farbe.li.tu-berlin.de/XY91FEN.html) showen (https://farbe.li.tu-berlin.de/XY91FDE.html) showde tfn (.) show 0 setgray } if %xchart5=1 showpage grestore %} for %output with langind end %%Trailer %line 239 %%EndDocument EndEPSF grestore gsave BeginEPSF 86 SHAl add MM 064 STSl add MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 16 %!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/fea3/fea31-1 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark06 where {pop} {userdict /pdfmark06 /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: farbe.li.tu-berlin.de/fea3/fea3.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2021080112000) /ModDate (D:20210801112000) /DOCINFO pdfmark06 [ /View [ /Fit ] /DOCVIEW pdfmark06 %END PDFDE011 % 40mm = 80*72/25.4 = 232; 232+90+13 = 335 % !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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /TX {100 /Times-ISOL1 FS} bind def /TV {120 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TG {320 /Times-ISOL1 FS} bind def /TIX {100 /TimesI-ISOL1 FS} bind def /TIV {120 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIG {320 /TimesI-ISOL1 FS} bind def /TBX {100 /TimesB-ISOL1 FS} bind def /TBV {120 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBG {320 /TimesB-ISOL1 FS} bind def /TBIX {100 /TimesBI-ISOL1 FS} bind def /TBIV {120 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIG {320 /TimesBI-ISOL1 FS} bind def /SX {100 /Symbol FS} bind def /SV {120 /Symbol FS} bind def /SL {160 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SG {320 /Symbol FS} bind def /RV {120 /Times-Roman FS} bind def /RL {160 /Times-Roman FS} bind def /RS {200 /Times-Roman FS} bind def /RK {240 /Times-Roman FS} bind def /RM {280 /Times-Roman FS} bind def /RG {320 /Times-Roman FS} bind def /RIV {120 /Times-Italic FS} bind def /RIL {160 /Times-Italic FS} bind def /RIS {200 /Times-Italic FS} bind def /RIK {240 /Times-Italic FS} bind def /RIM {280 /Times-Italic FS} bind def /RIG {320 /Times-Italic FS} bind def /RBV {120 /Times-Bold FS} bind def /RBL {160 /Times-Bold FS} bind def /RBS {200 /Times-Bold FS} bind def /RBK {240 /Times-Bold FS} bind def /RBM {280 /Times-Bold FS} bind def /RBG {320 /Times-Bold FS} bind def /RBIV {120 /Times-BoldItalic FS} bind def /RBIL {160 /Times-BoldItalic FS} bind def /RBIS {200 /Times-BoldItalic FS} bind def /RBIK {240 /Times-BoldItalic FS} bind def /RBIM {280 /Times-BoldItalic FS} bind def /RBIG {320 /Times-BoldItalic FS} bind def /tfr {1 0 0 setrgbcolor} bind def %Reproduktionsfarben /tfg {0 1 0 setrgbcolor} bind def /tfb {0 0 1 setrgbcolor} bind def /tfc {0 1 1 setrgbcolor} bind def /tfm {1 0 1 setrgbcolor} bind def /tfy {1 1 0 setrgbcolor} bind def /tfo {1 0 0 setrgbcolor} bind def %Reproduktionsfarben /tfl {0 1 0 setrgbcolor} bind def /tfv {0 0 1 setrgbcolor} bind def /tfn {0.0 setgray} bind def /tfz {0.5 setgray} bind def /tfw {1.0 setgray} bind def /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 k {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmykcolor rec stroke} bind def /cvishowr {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def /cvishow {cvi 6 string cvs show ( ) show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show ( ) show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show ( ) show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show ( ) show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show ( ) show} def /cvsshow5 {100000 mul cvi 0.00001 mul 9 string cvs show ( ) show} def /cvishow0 {cvi 6 string cvs show} def /cvsshow10 {10 mul cvi 0.1 mul 9 string cvs show} def /cvsshow20 {100 mul cvi 0.01 mul 9 string cvs show} def /cvsshow30 {1000 mul cvi 0.001 mul 9 string cvs show} def /cvsshow40 {10000 mul cvi 0.0001 mul 9 string cvs show} def /cvsshow50 {100000 mul cvi 0.00001 mul 9 string cvs show} def /cvsshow0r {10 mul 0.5 add cvi 0.1 mul 10 string cvs show} def /cvsshow1r {10 mul 0.5 add cvi 0.1 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow2r {100 mul 0.5 add cvi 0.01 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow3r {1000 mul 0.5 add cvi 0.001 mul 10 string cvs show} def %now with cvishow0 instead of cvishow /cvsshow1x {/nxx exch def %example nxx=99.1/99.0 nxx 10 mul cvi /nxi exch def %nxi=991/990 nxi 10 idiv /nxa exch def %nxa=99 nxi nxa 10 mul sub /nxb exch def %nxb=1/0 nxa cvishow0 (,) show %nxa=99 nxb cvishow0 %nxb=1/0 } def /cvsshow2x {/nxx exch def %example nxx=99.12/99,02/99,00 nxx 100 mul cvi /nxi exch def %nxi=9912/9902/00 nxi 100 idiv /nxa exch def %nxa=99 nxi nxa 100 mul sub /nxb exch def %nxb=12/02/00 nxa cvishow0 (,) show %nxb=99, nxb 10 ge {nxb cvishow0} if %nxb=12 nxb 1 ge nxb 9 le and {(0) show nxb cvishow0} if %nxb=02 nxb 0 eq {(00) show} if %nxb=00 } def /cvsshow3x {/nxx exch def %example nxx=99.123/99.012/99.001/99.000 nxx 1000 mul cvi /nxi exch def %nxi=99123/99012/99001/99000 nxi 1000 idiv /nxa exch def %nxa=99 nxi nxa 1000 mul sub /nxb exch def %nxb=123/012/001/000 nxa cvishow0 (,) show %nxb=99, nxb 100 ge {nxb cvishow0} if %nxb=123/012/001/000 nxb 10 ge nxb 99 le and {(0) show nxb cvishow0} if %nxb=012 nxb 1 ge nxb 9 le and {(00) show nxb cvishow0} if %nxb=001 nxb 0 eq {(000) show} if %nxb=000 } def %********************************************************* %%EndProlog gsave %lanindL2 START 20000505 /lanind 1 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 {3 lanind eq {show} {pop} ifelse} bind def /showfr {2 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 0 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % /jTBVN {TBV -30 -50 rmoveto (N) show 0 50 rmoveto TBL} def /jTBVW {TBV -30 -50 rmoveto (W) show 0 50 rmoveto TBL} def /jTBXN {TBX -30 -50 rmoveto (N) show 0 50 rmoveto TBL} def /jTBXW {TBX -30 -50 rmoveto (W) show 0 50 rmoveto TBL} def /jTBVNY {TBV -10 -50 rmoveto (N) show 0 50 rmoveto TBL} def /jTBVWY {TBV -10 -50 rmoveto (W) show 0 50 rmoveto TBL} def /jTBXNY {TBX -10 -50 rmoveto (N) show 0 50 rmoveto TBL} def /jTBXWY {TBX -10 -50 rmoveto (W) show 0 50 rmoveto TBL} def gsave /xchart5 0 def %0:Titel, 1:gamma test chart /xchart6 1 def %0:SDR-SDR, 1:SDR->lower contrast, 1:SDR->higher contrast /xchart7 0 def %0: no add text, %1: add text /xchart8 1 def %0: gleich gestuft 1:nicht gleich gestuft 4 /Times-ISOL1 FS 72 86 moveto (fea30-6a) show 72 90 translate 0.01 MM dup scale 20 setlinewidth 30 setlinewidth [ ] 0 setdash /yhoe 4000 def /xwidth 5400 def 1.0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath stroke /xwi 6 array def /ywi 6 array def /xli 6 array def /yli 6 array def /xmi 6 array def %mean point /ymi 6 array def /xti 6 array def %top left +xtl= 30 /yti 6 array def %top left +ytl=-100 /xtl 30 def /ytl -150 def /yd 200 def %line difference /yk 030 def % 0 3 % 1 2 4 5 %pos 0 1 2 3 4 5 /xwi [ 050 050 1850 3100 3100 4000] def /ywi [2450 1100 1100 2450 1100 1100] def /xli [1620 1620 1060 700 700 1360] def /yli [1050 1150 1150 1050 1150 1150] def 0 1 5 {/i exch def %i=0,5 xmi i xwi i get xli i get 0.5 mul add put ymi i ywi i get yli i get 0.5 mul add put xti i xwi i get xtl add put yti i ywi i get yli i get add ytl add put } for %i=0,5 %0_1_2_4_5 xmi 0 get ymi 0 get moveto xmi 1 get ymi 1 get lineto xmi 5 get ymi 5 get lineto stroke %3_4 xmi 3 get ymi 3 get moveto xmi 4 get ymi 4 get lineto stroke 1.0 setgray 0 1 5 {/i exch def %i=0,5 xwi i get ywi i get moveto xli i get 0 rlineto 0 yli i get rlineto xli i get neg 0 rlineto closepath fill } for %i=0,5 0.0 setgray 0 1 5 {/i exch def %i=0,5 xwi i get ywi i get moveto xli i get 0 rlineto 0 yli i get rlineto xli i get neg 0 rlineto closepath stroke } for %i=0,5 xchart5 0 eq {%xchart5=0 0050 3850 moveto TBL (Dynamic range conversion of images with equally spaced ) showen (Dynamische Bereichswandlung der Bilder mit gleich gestuften ) showde TBIL (rgb*) show TBL ( data) showen (\255Daten) showde 0050 3650 moveto TBL (Equally spaced visual output and lightness ) showen (Gleich gestufte visuelle Ausgabe & ) showde TBIL (L*) show TBL ( output with ) showen (\255Helligkeitsausgabe mit ) showde TBIL (GammaAdjuster) show } if %xchart5=0 020 setlinewidth 0000 3580 moveto xwidth 0 rlineto stroke xchart5 1 ge {%xchart5>=1 tfn 0050 3850 moveto TBL (Visual definition of ) showen (Visuelle Definition von ) showde tfo SL (g) show TBV 0 -30 rmoveto (rel) show 0 30 rmoveto tfn TBL ( by test\255chart output on display) showen ( durch Display\255Pr\374fvorlagenausgabe) showde 0050 3650 moveto TBL (according to ISO 9241\255306 with 16 values ) showen (nach ISO 9241\255306 mit 16 Werten ) showde tfn (0,5 <= ) show tfo SL (g) show TBV 0 -30 rmoveto (rel) show 0 30 rmoveto tfn TBL ( <= 2) show } if %xchart5>=1 %square 0 xti 0 get yti 0 get moveto TBL (raw image data (8bit)) showen (rohe Bilddaten (8bit)) showde xti 0 get yti 0 get yd 1 mul sub moveto TBL (0<= ) show TBIL (rgb ) show TBL (<=1) show TBL ( (PhotoCD)) showen ( (FotoCD)) showde xti 0 get yti 0 get yd 2 mul sub moveto TBIL (not equally spaced) showen (nicht gleich gestuft) showde xti 0 get yti 0 get yd 3 mul sub moveto TBL (search ) showen (suche ) showde xti 0 get 500 add yti 0 get yd 3 mul sub moveto TBL (0<= ) show TBIL (rgb) show jTBVNY TBL ( <=1) show TBL (,) showen xti 0 get yti 0 get yd 4 mul sub moveto TBL (and ) showen (und ) showde xti 0 get 500 add yti 0 get yd 4 mul sub moveto TBL (0<= ) show TBIL (rgb) show jTBVWY TBL ( <=1) show %square 1 xti 1 get yti 1 get moveto TBL (visual image (8bit)) showen (visuelles Bild (8bit)) showde xti 1 get yti 1 get yd 1 mul sub moveto TBL (0 <= ) show TBIL (rgb* ) show TBL (<= 1) show xti 1 get yti 1 get yd 2 mul sub moveto TBIL (equally spaced between) showen (gleich gestuft zwischen) showde xti 1 get yti 1 get yd 3 mul sub yk 1 mul add moveto TBIV (rgb*) show jTBXN TBV (=0 and ) showen (=0 und ) showde TBIV (rgb*) show jTBXW TBV (=1) showen (=1) showde xti 1 get yti 1 get yd 4 mul sub yk 2 mul add moveto TBIV (L*) show jTBXN TBV (=18 and ) showen (=18 und ) showde TBIV (L*) show jTBXW TBV (=95) showen (=95) showde xti 1 get xli 1 get 0.2 mul add yti 1 get yd 5 mul sub yk 3 mul add moveto 1 0 0 setrgbcolor SV (D) show TBIV ((rgb*)) show TBV (=1/15) show TBV (, ) show SV (D) show TBIV (L*) show TBV (=5) show 0 setgray %square 2 xti 2 get 30 sub yti 2 get 900 add moveto TBL (16 grey steps) showen (16 Graustufen) showde xti 2 get 30 sub yti 2 get 700 add moveto TBL (ISO/IEC 15775) show xti 2 get 30 sub yti 2 get 500 add moveto TBL (ISO 9241\255306) show xti 2 get 30 sub yti 2 get 300 add moveto TBL (standard range) showen (Normbereich) showde xti 2 get yti 2 get moveto TBL (Baseline image) showen (Baseline\255Bild) showde xti 2 get yti 2 get yd 1 mul sub moveto TBL (0 <= ) show TBIL (rgb* ) show TBL (<= 1) show xti 2 get yti 2 get yd 2 mul sub moveto TBIL (equally spaced) showen (gleich gestuft) showde xti 2 get yti 2 get yd 3 mul sub yk 1 mul add moveto TBIV (rgb*) show jTBXN TBV (=0, ) show TBIV (L*) show jTBXN TBV (=18) show xti 2 get yti 2 get yd 4 mul sub yk 2 mul add moveto TBIV (rgb*) show jTBXW TBV (=1, ) show TBIV (L*) show jTBXW TBV (=95) show xti 2 get xli 2 get 0.2 mul add yti 2 get yd 5 mul sub yk 3 mul add moveto 1 0 0 setrgbcolor SV (D) show TBIV (L*) show TBV (=5) show 0 setgray %square 3 xti 3 get yti 3 get moveto TBIL (Gamma) show xti 3 get yti 3 get yd 1 mul sub moveto TBIL (Adjuster) show xti 3 get yti 3 get yd 2 mul sub moveto TBIL ((rgb*)) show 1 0 0 setrgbcolor SV 0 80 rmoveto (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto 0 -80 rmoveto xti 3 get yti 3 get yd 3 mul sub moveto SL (g) show TV 0 -30 rmoveto (rel) show 10 30 rmoveto TL (=) show 10 0 rmoveto SL (g) show 20 0 rmoveto TL (/) show 10 0 rmoveto (2,4) show xti 3 get yti 3 get yd 4 mul sub moveto TV (1,2<=) show SV (g) show TV (<=4,8) show 0 setgray %square 4 xti 4 get 20 add yti 4 get yd 1 mul sub moveto TBL ( apply) showen (anwende) showde xti 4 get 200 add yti 4 get yd 2 mul sub moveto 1 0 0 setrgbcolor SL (g) show TV 0 -30 rmoveto (rel) show 0 30 rmoveto 0 setgray xti 4 get yti 4 get yd 3 mul sub moveto SL (g) show TV 0 -30 rmoveto (rel,i) show 0 30 rmoveto TL (=1) show -20 0 rmoveto (/) show SL (g) show TV 0 -30 rmoveto (rel) show 0 30 rmoveto xti 4 get 050 add yti 4 get yd 4 mul sub moveto TL (i=invers) show %square 5 TBL xti 5 get yti 5 get 500 add moveto xchart6 1 le {(SDR display) showen (SDR\255Display) showde} if xchart6 2 eq {(HDR display) showen (HDR\255Display) showde} if xti 5 get yti 5 get 300 add moveto xchart6 1 le {(SDR range) showen (SDR\255Bereich) showde} if xchart6 2 eq {(HDR range) showen (HDR\255Bereich) showde} if xti 5 get yti 5 get moveto TBL (Alternate image) showen (Alternate\255Bild) showde xti 5 get yti 5 get yd 1 mul sub moveto TBL (0 <= ) show TBIL ((rgb*)) show tfo SV 0 80 rmoveto (g) show TBX 0 -30 rmoveto (rel,i) show 0 30 rmoveto TBL 0 -80 rmoveto tfn TBL ( <= 1) show xti 5 get yti 5 get yd 2 mul sub moveto xchart8 0 eq {%xchart8=0 TBIL (equally spaced) showen (gleich gestuft) showde } if xchart8 1 eq {%xchart8=1 TBIL (not equally spaced) showen (nicht gleich gestuft) showde } if xti 5 get yti 5 get yd 3 mul sub yk 1 mul add moveto TBIV (rgb*) show jTBXN TBV (=0, ) show TBIV (L*) show jTBXN TBV xchart6 0 eq {(=18, ) show} if xchart6 1 eq {(=36, ) show} if xchart6 2 eq {(=10? ) show} if xchart6 1 le {TBIV (Y) show jTBXNY} if TBV xchart6 0 eq {(=2,5) show} if xchart6 1 eq {(=9) show} if %xchart6 2 eq {(=1,8?) show} if xti 5 get yti 5 get yd 4 mul sub yk 2 mul add moveto TBIV (rgb*) show jTBXW TBV (=1, ) show TBIV (L*) show jTBXW TBV xchart6 0 eq {(=95, ) show} if xchart6 1 eq {(=88, ) show} if xchart6 2 eq {(=160? ) show} if xchart6 1 le {TBIV (Y) show jTBXWY} if TBV xchart6 0 eq {(=90) show} if xchart6 1 eq {(=71) show} if %xchart6 2 eq {(=360?) show} if xti 5 get xli 5 get 0.0 mul add yti 5 get yd 5 mul sub yk 3 mul add moveto 1 0 0 setrgbcolor SV (D) show TBIV (L*) show xchart6 0 eq {TBV (=5, ) show tfo SV (g) show TBX 0 -30 rmoveto (rel) show 0 30 rmoveto TBV (=1,0, ) show tfo SV (g) show TBX 0 -30 rmoveto (rel,i) show 0 30 rmoveto TBV (=1,0) show} if xchart6 1 eq {TBV (=3, ) show tfo SV (g) show TBX 0 -30 rmoveto (rel) show 0 30 rmoveto TBV (=0,8, ) show TBX 0 -30 rmoveto (rel,i) show 0 30 rmoveto TBV (=1,3) show} if xchart6 2 eq {TBV (=10 ) show tfo SV (g) show TBX 0 -30 rmoveto (rel) show 0 30 rmoveto TBV (=1,3, ) show TBX 0 -30 rmoveto (rel,i) show 0 30 rmoveto TBV (=0,8) show} if %1 0 0 setrgbcolor % 0 3 % 1 2 4 5 0 setgray /txh 100 def /tyh 100 def xmi 1 get ymi 1 get yli 1 get 0.5 mul add tyh add 35 sub moveto %-100 0 rlineto 200 0 rlineto stroke -50 100 rlineto 50 -100 rlineto 50 100 rlineto stroke xmi 4 get ymi 4 get yli 4 get 0.5 mul add tyh add 35 sub moveto %-100 0 rlineto 200 0 rlineto stroke -50 100 rlineto 50 -100 rlineto 50 100 rlineto stroke xmi 1 get xli 1 get 0.5 mul add txh add 30 add ymi 1 get moveto %0 -100 rlineto 0 200 rlineto stroke -100 50 rmoveto 100 -50 rlineto -100 -50 rlineto stroke xmi 2 get xli 2 get 0.5 mul add txh add 30 add ymi 1 get moveto %0 -100 rlineto 0 200 rlineto stroke -100 50 rmoveto 100 -50 rlineto -100 -50 rlineto stroke xmi 4 get xli 4 get 0.5 mul add txh add 30 add ymi 1 get moveto %0 -100 rlineto 0 200 rlineto stroke -100 50 rmoveto 100 -50 rlineto -100 -50 rlineto stroke tfn 0050 0925 moveto TBV (Determine visually the value of ) showen (Bestimme visuell den Wert von ) showde tfr SV (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto tfn TBV ( in the range ) showen ( im Bereich ) showde tfr TBV (0,5 <= ) show SV (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto TBV ( <= 2 ) show tfn tfn TBV (with the following two test charts.) showen (mit folgenden zwei Pr\374fvorlagen.) showde xchart5 0 eq {%xchart5=0 tfn 0050 0750 moveto TBV (Links to 16 test\255chart pages according to ISO 9241\255306 ) showen (with ) showen (Links zu 16 Pr\374fvorlagenseiten nach ISO 9241\255306 mit ) showde tfr (0,5 <= ) show SV (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto TBV ( <= 2.) show tfn 0050 0575 moveto tfb RV (https://standards.iso.org/iso/9241/306/ed-2/AE18/AE18F0PX.PDF) showen (https://standards.iso.org/iso/9241/306/ed-2/AG18/AG18F0PX.PDF) showde tfn TV (, flower motiv with ) showen (, Blumenmotiv mit ) showde tfr (0,5 <= ) show SV (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto TV ( <= 1.) show tfn 0050 0400 moveto tfb RV (https://standards.iso.org/iso/9241/306/ed-2/AE18/AE18F0NX.PDF) showen (https://standards.iso.org/iso/9241/306/ed-2/AG18/AG18F0NX.PDF) showde tfn TV (, flower motiv with ) showen (, Blumenmotiv mit ) showde tfr (1 <= ) show SV (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto TV ( <= 2.) show tfn 0050 0225 moveto tfn TV (and similar for the ISO series AE49, AE09, AE28 ) showen (instead of AE18, see) showen (und \344hnlich f\374r die ISO\255Serien AG49, AG09, AG28 ) showde (anstelle von AG18, siehe) showde 0050 0050 moveto tfb RV (https://standards.iso.org/iso/9241/306/ed-2/index.html) show 0 setgray (.) show } if %xchart5=0 xchart5 1 eq {%xchart5=1 0050 0750 moveto tfn TBV (Links to one test\255chart page according to ISO 9241\255306 ) showen (with 0,5 <= ) showen (Links zu einer Pr\274fvorlagenseite nach ISO 9241\255306 ) showde (mit 0,5 <= ) showde SV (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto TBV ( <= 2:) show 0050 0575 moveto tfb RV (http://farbe.li.tu-berlin.de/eec4/eec4l0np.pdf) showen (http://farbe.li.tu-berlin.de/egc4/egc4l0np.pdf) showde tfn TV (, 1080 colors including 729(9x9x9) colors.) showen (, 1080 Farben inklusive 729(9x9x9) Farben.) showde 0050 0400 moveto tfb RV (http://farbe.li.tu-berlin.de/eec6/eec6l0np.pdf) showen (http://farbe.li.tu-berlin.de/egc6/egc6l0np.pdf) showde tfn TV (, flower motiv, slide film, +0,5 stops.) showen (, Blumenmotiv, Diafilm, +0,5 Blenden.) showde 0050 0225 moveto tfb RV (http://farbe.li.tu-berlin.de/eec7/eec7l0np.pdf) showen (http://farbe.li.tu-berlin.de/egc7/egc7l0np.pdf) showde tfn TV (, flower motiv, negative film, +2 stops.) showen (, Blumenmotiv, Negativfilm, +2 Blenden.) showde 0050 0050 moveto tfn TV (see for papers: ) showen (siehe f\344r Ver\366ffentlichungen: ) showde tfb RV (https://farbe.li.tu-berlin.de/XY91FEN.html) showen (https://farbe.li.tu-berlin.de/XY91FDE.html) showde tfn (.) show 0 setgray } if %xchart5=1 showpage grestore %} for %output with langind end %%Trailer %line 249 %%EndDocument EndEPSF grestore gsave BeginEPSF /xc1 16 def /yc1 12 def /xt 1 def xchart 1 eq {/xt 1 def} if 28 SHSl sub MM 020 STAl add 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 http://farbe.li.tu-berlin.de/fea3/fea31-1 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark07 where {pop} {userdict /pdfmark07 /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: farbe.li.tu-berlin.de/fea3/fea3.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2021080112000) /ModDate (D:20210801112000) /DOCINFO pdfmark07 [ /View [ /Fit ] /DOCVIEW pdfmark07 %END PDFDE011 % 40mm = 80*72/25.4 = 232; 232+90+13 = 335 % !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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /TX {100 /Times-ISOL1 FS} bind def /TV {120 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TG {320 /Times-ISOL1 FS} bind def /TIX {100 /TimesI-ISOL1 FS} bind def /TIV {120 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIG {320 /TimesI-ISOL1 FS} bind def /TBX {100 /TimesB-ISOL1 FS} bind def /TBV {120 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBG {320 /TimesB-ISOL1 FS} bind def /TBIX {100 /TimesBI-ISOL1 FS} bind def /TBIV {120 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIG {320 /TimesBI-ISOL1 FS} bind def /SX {100 /Symbol FS} bind def /SV {120 /Symbol FS} bind def /SL {160 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SG {320 /Symbol FS} bind def /RV {120 /Times-Roman FS} bind def /RL {160 /Times-Roman FS} bind def /RS {200 /Times-Roman FS} bind def /RK {240 /Times-Roman FS} bind def /RM {280 /Times-Roman FS} bind def /RG {320 /Times-Roman FS} bind def /RIV {120 /Times-Italic FS} bind def /RIL {160 /Times-Italic FS} bind def /RIS {200 /Times-Italic FS} bind def /RIK {240 /Times-Italic FS} bind def /RIM {280 /Times-Italic FS} bind def /RIG {320 /Times-Italic FS} bind def /RBV {120 /Times-Bold FS} bind def /RBL {160 /Times-Bold FS} bind def /RBS {200 /Times-Bold FS} bind def /RBK {240 /Times-Bold FS} bind def /RBM {280 /Times-Bold FS} bind def /RBG {320 /Times-Bold FS} bind def /RBIV {120 /Times-BoldItalic FS} bind def /RBIL {160 /Times-BoldItalic FS} bind def /RBIS {200 /Times-BoldItalic FS} bind def /RBIK {240 /Times-BoldItalic FS} bind def /RBIM {280 /Times-BoldItalic FS} bind def /RBIG {320 /Times-BoldItalic FS} bind def /tfr {1 0 0 setrgbcolor} bind def %Reproduktionsfarben /tfg {0 1 0 setrgbcolor} bind def /tfb {0 0 1 setrgbcolor} bind def /tfc {0 1 1 setrgbcolor} bind def /tfm {1 0 1 setrgbcolor} bind def /tfy {1 1 0 setrgbcolor} bind def /tfo {1 0 0 setrgbcolor} bind def %Reproduktionsfarben /tfl {0 1 0 setrgbcolor} bind def /tfv {0 0 1 setrgbcolor} bind def /tfn {0.0 setgray} bind def /tfz {0.5 setgray} bind def /tfw {1.0 setgray} bind def /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 k {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmykcolor rec stroke} bind def /cvishowr {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def /cvishow {cvi 6 string cvs show ( ) show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show ( ) show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show ( ) show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show ( ) show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show ( ) show} def /cvsshow5 {100000 mul cvi 0.00001 mul 9 string cvs show ( ) show} def /cvishow0 {cvi 6 string cvs show} def /cvsshow10 {10 mul cvi 0.1 mul 9 string cvs show} def /cvsshow20 {100 mul cvi 0.01 mul 9 string cvs show} def /cvsshow30 {1000 mul cvi 0.001 mul 9 string cvs show} def /cvsshow40 {10000 mul cvi 0.0001 mul 9 string cvs show} def /cvsshow50 {100000 mul cvi 0.00001 mul 9 string cvs show} def /cvsshow0r {10 mul 0.5 add cvi 0.1 mul 10 string cvs show} def /cvsshow1r {10 mul 0.5 add cvi 0.1 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow2r {100 mul 0.5 add cvi 0.01 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow3r {1000 mul 0.5 add cvi 0.001 mul 10 string cvs show} def %now with cvishow0 instead of cvishow /cvsshow1x {/nxx exch def %example nxx=99.1/99.0 nxx 10 mul cvi /nxi exch def %nxi=991/990 nxi 10 idiv /nxa exch def %nxa=99 nxi nxa 10 mul sub /nxb exch def %nxb=1/0 nxa cvishow0 (,) show %nxa=99 nxb cvishow0 %nxb=1/0 } def /cvsshow2x {/nxx exch def %example nxx=99.12/99,02/99,00 nxx 100 mul cvi /nxi exch def %nxi=9912/9902/00 nxi 100 idiv /nxa exch def %nxa=99 nxi nxa 100 mul sub /nxb exch def %nxb=12/02/00 nxa cvishow0 (,) show %nxb=99, nxb 10 ge {nxb cvishow0} if %nxb=12 nxb 1 ge nxb 9 le and {(0) show nxb cvishow0} if %nxb=02 nxb 0 eq {(00) show} if %nxb=00 } def /cvsshow3x {/nxx exch def %example nxx=99.123/99.012/99.001/99.000 nxx 1000 mul cvi /nxi exch def %nxi=99123/99012/99001/99000 nxi 1000 idiv /nxa exch def %nxa=99 nxi nxa 1000 mul sub /nxb exch def %nxb=123/012/001/000 nxa cvishow0 (,) show %nxb=99, nxb 100 ge {nxb cvishow0} if %nxb=123/012/001/000 nxb 10 ge nxb 99 le and {(0) show nxb cvishow0} if %nxb=012 nxb 1 ge nxb 9 le and {(00) show nxb cvishow0} if %nxb=001 nxb 0 eq {(000) show} if %nxb=000 } def %********************************************************* %%EndProlog gsave %lanindL2 START 20000505 /lanind 1 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 {3 lanind eq {show} {pop} ifelse} bind def /showfr {2 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 0 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % /jTBVN {TBV -30 -50 rmoveto (N) show 0 50 rmoveto TBL} def /jTBVW {TBV -30 -50 rmoveto (W) show 0 50 rmoveto TBL} def /jTBXN {TBX -30 -50 rmoveto (N) show 0 50 rmoveto TBL} def /jTBXW {TBX -30 -50 rmoveto (W) show 0 50 rmoveto TBL} def /jTBVNY {TBV -10 -50 rmoveto (N) show 0 50 rmoveto TBL} def /jTBVWY {TBV -10 -50 rmoveto (W) show 0 50 rmoveto TBL} def /jTBXNY {TBX -10 -50 rmoveto (N) show 0 50 rmoveto TBL} def /jTBXWY {TBX -10 -50 rmoveto (W) show 0 50 rmoveto TBL} def gsave /xchart5 1 def %0:Titel, 1:gamma test chart /xchart6 0 def %0:SDR-SDR, 1:SDR->lower contrast, 1:SDR->higher contrast /xchart7 0 def %0: no add text, %1: add text /xchart8 0 def %0: gleich gestuft 1:nicht gleich gestuft 4 /Times-ISOL1 FS 72 86 moveto (fea30-7a) show 72 90 translate 0.01 MM dup scale 20 setlinewidth 30 setlinewidth [ ] 0 setdash /yhoe 4000 def /xwidth 5400 def 1.0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath stroke /xwi 6 array def /ywi 6 array def /xli 6 array def /yli 6 array def /xmi 6 array def %mean point /ymi 6 array def /xti 6 array def %top left +xtl= 30 /yti 6 array def %top left +ytl=-100 /xtl 30 def /ytl -150 def /yd 200 def %line difference /yk 030 def % 0 3 % 1 2 4 5 %pos 0 1 2 3 4 5 /xwi [ 050 050 1850 3100 3100 4000] def /ywi [2450 1100 1100 2450 1100 1100] def /xli [1620 1620 1060 700 700 1360] def /yli [1050 1150 1150 1050 1150 1150] def 0 1 5 {/i exch def %i=0,5 xmi i xwi i get xli i get 0.5 mul add put ymi i ywi i get yli i get 0.5 mul add put xti i xwi i get xtl add put yti i ywi i get yli i get add ytl add put } for %i=0,5 %0_1_2_4_5 xmi 0 get ymi 0 get moveto xmi 1 get ymi 1 get lineto xmi 5 get ymi 5 get lineto stroke %3_4 xmi 3 get ymi 3 get moveto xmi 4 get ymi 4 get lineto stroke 1.0 setgray 0 1 5 {/i exch def %i=0,5 xwi i get ywi i get moveto xli i get 0 rlineto 0 yli i get rlineto xli i get neg 0 rlineto closepath fill } for %i=0,5 0.0 setgray 0 1 5 {/i exch def %i=0,5 xwi i get ywi i get moveto xli i get 0 rlineto 0 yli i get rlineto xli i get neg 0 rlineto closepath stroke } for %i=0,5 xchart5 0 eq {%xchart5=0 0050 3850 moveto TBL (Dynamic range conversion of images with equally spaced ) showen (Dynamische Bereichswandlung der Bilder mit gleich gestuften ) showde TBIL (rgb*) show TBL ( data) showen (\255Daten) showde 0050 3650 moveto TBL (Equally spaced visual output and lightness ) showen (Gleich gestufte visuelle Ausgabe & ) showde TBIL (L*) show TBL ( output with ) showen (\255Helligkeitsausgabe mit ) showde TBIL (GammaAdjuster) show } if %xchart5=0 020 setlinewidth 0000 3580 moveto xwidth 0 rlineto stroke xchart5 1 ge {%xchart5>=1 tfn 0050 3850 moveto TBL (Visual definition of ) showen (Visuelle Definition von ) showde tfo SL (g) show TBV 0 -30 rmoveto (rel) show 0 30 rmoveto tfn TBL ( by test\255chart output on display) showen ( durch Display\255Pr\374fvorlagenausgabe) showde 0050 3650 moveto TBL (according to ISO 9241\255306 with 16 values ) showen (nach ISO 9241\255306 mit 16 Werten ) showde tfn (0,5 <= ) show tfo SL (g) show TBV 0 -30 rmoveto (rel) show 0 30 rmoveto tfn TBL ( <= 2) show } if %xchart5>=1 %square 0 xti 0 get yti 0 get moveto TBL (raw image data (8bit)) showen (rohe Bilddaten (8bit)) showde xti 0 get yti 0 get yd 1 mul sub moveto TBL (0<= ) show TBIL (rgb ) show TBL (<=1) show TBL ( (PhotoCD)) showen ( (FotoCD)) showde xti 0 get yti 0 get yd 2 mul sub moveto TBIL (not equally spaced) showen (nicht gleich gestuft) showde xti 0 get yti 0 get yd 3 mul sub moveto TBL (search ) showen (suche ) showde xti 0 get 500 add yti 0 get yd 3 mul sub moveto TBL (0<= ) show TBIL (rgb) show jTBVNY TBL ( <=1) show TBL (,) showen xti 0 get yti 0 get yd 4 mul sub moveto TBL (and ) showen (und ) showde xti 0 get 500 add yti 0 get yd 4 mul sub moveto TBL (0<= ) show TBIL (rgb) show jTBVWY TBL ( <=1) show %square 1 xti 1 get yti 1 get moveto TBL (visual image (8bit)) showen (visuelles Bild (8bit)) showde xti 1 get yti 1 get yd 1 mul sub moveto TBL (0 <= ) show TBIL (rgb* ) show TBL (<= 1) show xti 1 get yti 1 get yd 2 mul sub moveto TBIL (equally spaced between) showen (gleich gestuft zwischen) showde xti 1 get yti 1 get yd 3 mul sub yk 1 mul add moveto TBIV (rgb*) show jTBXN TBV (=0 and ) showen (=0 und ) showde TBIV (rgb*) show jTBXW TBV (=1) showen (=1) showde xti 1 get yti 1 get yd 4 mul sub yk 2 mul add moveto TBIV (L*) show jTBXN TBV (=18 and ) showen (=18 und ) showde TBIV (L*) show jTBXW TBV (=95) showen (=95) showde xti 1 get xli 1 get 0.2 mul add yti 1 get yd 5 mul sub yk 3 mul add moveto 1 0 0 setrgbcolor SV (D) show TBIV ((rgb*)) show TBV (=1/15) show TBV (, ) show SV (D) show TBIV (L*) show TBV (=5) show 0 setgray %square 2 xti 2 get 30 sub yti 2 get 900 add moveto TBL (16 grey steps) showen (16 Graustufen) showde xti 2 get 30 sub yti 2 get 700 add moveto TBL (ISO/IEC 15775) show xti 2 get 30 sub yti 2 get 500 add moveto TBL (ISO 9241\255306) show xti 2 get 30 sub yti 2 get 300 add moveto TBL (standard range) showen (Normbereich) showde xti 2 get yti 2 get moveto TBL (Baseline image) showen (Baseline\255Bild) showde xti 2 get yti 2 get yd 1 mul sub moveto TBL (0 <= ) show TBIL (rgb* ) show TBL (<= 1) show xti 2 get yti 2 get yd 2 mul sub moveto TBIL (equally spaced) showen (gleich gestuft) showde xti 2 get yti 2 get yd 3 mul sub yk 1 mul add moveto TBIV (rgb*) show jTBXN TBV (=0, ) show TBIV (L*) show jTBXN TBV (=18) show xti 2 get yti 2 get yd 4 mul sub yk 2 mul add moveto TBIV (rgb*) show jTBXW TBV (=1, ) show TBIV (L*) show jTBXW TBV (=95) show xti 2 get xli 2 get 0.2 mul add yti 2 get yd 5 mul sub yk 3 mul add moveto 1 0 0 setrgbcolor SV (D) show TBIV (L*) show TBV (=5) show 0 setgray %square 3 xti 3 get yti 3 get moveto TBIL (Gamma) show xti 3 get yti 3 get yd 1 mul sub moveto TBIL (Adjuster) show xti 3 get yti 3 get yd 2 mul sub moveto TBIL ((rgb*)) show 1 0 0 setrgbcolor SV 0 80 rmoveto (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto 0 -80 rmoveto xti 3 get yti 3 get yd 3 mul sub moveto SL (g) show TV 0 -30 rmoveto (rel) show 10 30 rmoveto TL (=) show 10 0 rmoveto SL (g) show 20 0 rmoveto TL (/) show 10 0 rmoveto (2,4) show xti 3 get yti 3 get yd 4 mul sub moveto TV (1,2<=) show SV (g) show TV (<=4,8) show 0 setgray %square 4 xti 4 get 20 add yti 4 get yd 1 mul sub moveto TBL ( apply) showen (anwende) showde xti 4 get 200 add yti 4 get yd 2 mul sub moveto 1 0 0 setrgbcolor SL (g) show TV 0 -30 rmoveto (rel) show 0 30 rmoveto 0 setgray xti 4 get yti 4 get yd 3 mul sub moveto SL (g) show TV 0 -30 rmoveto (rel,i) show 0 30 rmoveto TL (=1) show -20 0 rmoveto (/) show SL (g) show TV 0 -30 rmoveto (rel) show 0 30 rmoveto xti 4 get 050 add yti 4 get yd 4 mul sub moveto TL (i=invers) show %square 5 TBL xti 5 get yti 5 get 500 add moveto xchart6 1 le {(SDR display) showen (SDR\255Display) showde} if xchart6 2 eq {(HDR display) showen (HDR\255Display) showde} if xti 5 get yti 5 get 300 add moveto xchart6 1 le {(SDR range) showen (SDR\255Bereich) showde} if xchart6 2 eq {(HDR range) showen (HDR\255Bereich) showde} if xti 5 get yti 5 get moveto TBL (Alternate image) showen (Alternate\255Bild) showde xti 5 get yti 5 get yd 1 mul sub moveto TBL (0 <= ) show TBIL ((rgb*)) show tfo SV 0 80 rmoveto (g) show TBX 0 -30 rmoveto (rel,i) show 0 30 rmoveto TBL 0 -80 rmoveto tfn TBL ( <= 1) show xti 5 get yti 5 get yd 2 mul sub moveto xchart8 0 eq {%xchart8=0 TBIL (equally spaced) showen (gleich gestuft) showde } if xchart8 1 eq {%xchart8=1 TBIL (not equally spaced) showen (nicht gleich gestuft) showde } if xti 5 get yti 5 get yd 3 mul sub yk 1 mul add moveto TBIV (rgb*) show jTBXN TBV (=0, ) show TBIV (L*) show jTBXN TBV xchart6 0 eq {(=18, ) show} if xchart6 1 eq {(=36, ) show} if xchart6 2 eq {(=10? ) show} if xchart6 1 le {TBIV (Y) show jTBXNY} if TBV xchart6 0 eq {(=2,5) show} if xchart6 1 eq {(=9) show} if %xchart6 2 eq {(=1,8?) show} if xti 5 get yti 5 get yd 4 mul sub yk 2 mul add moveto TBIV (rgb*) show jTBXW TBV (=1, ) show TBIV (L*) show jTBXW TBV xchart6 0 eq {(=95, ) show} if xchart6 1 eq {(=88, ) show} if xchart6 2 eq {(=160? ) show} if xchart6 1 le {TBIV (Y) show jTBXWY} if TBV xchart6 0 eq {(=90) show} if xchart6 1 eq {(=71) show} if %xchart6 2 eq {(=360?) show} if xti 5 get xli 5 get 0.0 mul add yti 5 get yd 5 mul sub yk 3 mul add moveto 1 0 0 setrgbcolor SV (D) show TBIV (L*) show xchart6 0 eq {TBV (=5, ) show tfo SV (g) show TBX 0 -30 rmoveto (rel) show 0 30 rmoveto TBV (=1,0, ) show tfo SV (g) show TBX 0 -30 rmoveto (rel,i) show 0 30 rmoveto TBV (=1,0) show} if xchart6 1 eq {TBV (=3, ) show tfo SV (g) show TBX 0 -30 rmoveto (rel) show 0 30 rmoveto TBV (=0,8, ) show TBX 0 -30 rmoveto (rel,i) show 0 30 rmoveto TBV (=1,3) show} if xchart6 2 eq {TBV (=10 ) show tfo SV (g) show TBX 0 -30 rmoveto (rel) show 0 30 rmoveto TBV (=1,3, ) show TBX 0 -30 rmoveto (rel,i) show 0 30 rmoveto TBV (=0,8) show} if %1 0 0 setrgbcolor % 0 3 % 1 2 4 5 0 setgray /txh 100 def /tyh 100 def xmi 1 get ymi 1 get yli 1 get 0.5 mul add tyh add 35 sub moveto %-100 0 rlineto 200 0 rlineto stroke -50 100 rlineto 50 -100 rlineto 50 100 rlineto stroke xmi 4 get ymi 4 get yli 4 get 0.5 mul add tyh add 35 sub moveto %-100 0 rlineto 200 0 rlineto stroke -50 100 rlineto 50 -100 rlineto 50 100 rlineto stroke xmi 1 get xli 1 get 0.5 mul add txh add 30 add ymi 1 get moveto %0 -100 rlineto 0 200 rlineto stroke -100 50 rmoveto 100 -50 rlineto -100 -50 rlineto stroke xmi 2 get xli 2 get 0.5 mul add txh add 30 add ymi 1 get moveto %0 -100 rlineto 0 200 rlineto stroke -100 50 rmoveto 100 -50 rlineto -100 -50 rlineto stroke xmi 4 get xli 4 get 0.5 mul add txh add 30 add ymi 1 get moveto %0 -100 rlineto 0 200 rlineto stroke -100 50 rmoveto 100 -50 rlineto -100 -50 rlineto stroke tfn 0050 0925 moveto TBV (Determine visually the value of ) showen (Bestimme visuell den Wert von ) showde tfr SV (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto tfn TBV ( in the range ) showen ( im Bereich ) showde tfr TBV (0,5 <= ) show SV (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto TBV ( <= 2 ) show tfn tfn TBV (with the following two test charts.) showen (mit folgenden zwei Pr\374fvorlagen.) showde xchart5 0 eq {%xchart5=0 tfn 0050 0750 moveto TBV (Links to 16 test\255chart pages according to ISO 9241\255306 ) showen (with ) showen (Links zu 16 Pr\374fvorlagenseiten nach ISO 9241\255306 mit ) showde tfr (0,5 <= ) show SV (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto TBV ( <= 2.) show tfn 0050 0575 moveto tfb RV (https://standards.iso.org/iso/9241/306/ed-2/AE18/AE18F0PX.PDF) showen (https://standards.iso.org/iso/9241/306/ed-2/AG18/AG18F0PX.PDF) showde tfn TV (, flower motiv with ) showen (, Blumenmotiv mit ) showde tfr (0,5 <= ) show SV (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto TV ( <= 1.) show tfn 0050 0400 moveto tfb RV (https://standards.iso.org/iso/9241/306/ed-2/AE18/AE18F0NX.PDF) showen (https://standards.iso.org/iso/9241/306/ed-2/AG18/AG18F0NX.PDF) showde tfn TV (, flower motiv with ) showen (, Blumenmotiv mit ) showde tfr (1 <= ) show SV (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto TV ( <= 2.) show tfn 0050 0225 moveto tfn TV (and similar for the ISO series AE49, AE09, AE28 ) showen (instead of AE18, see) showen (und \344hnlich f\374r die ISO\255Serien AG49, AG09, AG28 ) showde (anstelle von AG18, siehe) showde 0050 0050 moveto tfb RV (https://standards.iso.org/iso/9241/306/ed-2/index.html) show 0 setgray (.) show } if %xchart5=0 xchart5 1 eq {%xchart5=1 0050 0750 moveto tfn TBV (Links to one test\255chart page according to ISO 9241\255306 ) showen (with 0,5 <= ) showen (Links zu einer Pr\274fvorlagenseite nach ISO 9241\255306 ) showde (mit 0,5 <= ) showde SV (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto TBV ( <= 2:) show 0050 0575 moveto tfb RV (http://farbe.li.tu-berlin.de/eec4/eec4l0np.pdf) showen (http://farbe.li.tu-berlin.de/egc4/egc4l0np.pdf) showde tfn TV (, 1080 colors including 729(9x9x9) colors.) showen (, 1080 Farben inklusive 729(9x9x9) Farben.) showde 0050 0400 moveto tfb RV (http://farbe.li.tu-berlin.de/eec6/eec6l0np.pdf) showen (http://farbe.li.tu-berlin.de/egc6/egc6l0np.pdf) showde tfn TV (, flower motiv, slide film, +0,5 stops.) showen (, Blumenmotiv, Diafilm, +0,5 Blenden.) showde 0050 0225 moveto tfb RV (http://farbe.li.tu-berlin.de/eec7/eec7l0np.pdf) showen (http://farbe.li.tu-berlin.de/egc7/egc7l0np.pdf) showde tfn TV (, flower motiv, negative film, +2 stops.) showen (, Blumenmotiv, Negativfilm, +2 Blenden.) showde 0050 0050 moveto tfn TV (see for papers: ) showen (siehe f\344r Ver\366ffentlichungen: ) showde tfb RV (https://farbe.li.tu-berlin.de/XY91FEN.html) showen (https://farbe.li.tu-berlin.de/XY91FDE.html) showde tfn (.) show 0 setgray } if %xchart5=1 showpage grestore %} for %output with langind end %%Trailer %line 259 %%EndDocument EndEPSF grestore gsave BeginEPSF 86 SHAl add MM 020 STAl add 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 %!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/fea3/fea31-1 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark08 where {pop} {userdict /pdfmark08 /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: farbe.li.tu-berlin.de/fea3/fea3.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2021080112000) /ModDate (D:20210801112000) /DOCINFO pdfmark08 [ /View [ /Fit ] /DOCVIEW pdfmark08 %END PDFDE011 % 40mm = 80*72/25.4 = 232; 232+90+13 = 335 % !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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /TX {100 /Times-ISOL1 FS} bind def /TV {120 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TG {320 /Times-ISOL1 FS} bind def /TIX {100 /TimesI-ISOL1 FS} bind def /TIV {120 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIG {320 /TimesI-ISOL1 FS} bind def /TBX {100 /TimesB-ISOL1 FS} bind def /TBV {120 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBG {320 /TimesB-ISOL1 FS} bind def /TBIX {100 /TimesBI-ISOL1 FS} bind def /TBIV {120 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIG {320 /TimesBI-ISOL1 FS} bind def /SX {100 /Symbol FS} bind def /SV {120 /Symbol FS} bind def /SL {160 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SG {320 /Symbol FS} bind def /RV {120 /Times-Roman FS} bind def /RL {160 /Times-Roman FS} bind def /RS {200 /Times-Roman FS} bind def /RK {240 /Times-Roman FS} bind def /RM {280 /Times-Roman FS} bind def /RG {320 /Times-Roman FS} bind def /RIV {120 /Times-Italic FS} bind def /RIL {160 /Times-Italic FS} bind def /RIS {200 /Times-Italic FS} bind def /RIK {240 /Times-Italic FS} bind def /RIM {280 /Times-Italic FS} bind def /RIG {320 /Times-Italic FS} bind def /RBV {120 /Times-Bold FS} bind def /RBL {160 /Times-Bold FS} bind def /RBS {200 /Times-Bold FS} bind def /RBK {240 /Times-Bold FS} bind def /RBM {280 /Times-Bold FS} bind def /RBG {320 /Times-Bold FS} bind def /RBIV {120 /Times-BoldItalic FS} bind def /RBIL {160 /Times-BoldItalic FS} bind def /RBIS {200 /Times-BoldItalic FS} bind def /RBIK {240 /Times-BoldItalic FS} bind def /RBIM {280 /Times-BoldItalic FS} bind def /RBIG {320 /Times-BoldItalic FS} bind def /tfr {1 0 0 setrgbcolor} bind def %Reproduktionsfarben /tfg {0 1 0 setrgbcolor} bind def /tfb {0 0 1 setrgbcolor} bind def /tfc {0 1 1 setrgbcolor} bind def /tfm {1 0 1 setrgbcolor} bind def /tfy {1 1 0 setrgbcolor} bind def /tfo {1 0 0 setrgbcolor} bind def %Reproduktionsfarben /tfl {0 1 0 setrgbcolor} bind def /tfv {0 0 1 setrgbcolor} bind def /tfn {0.0 setgray} bind def /tfz {0.5 setgray} bind def /tfw {1.0 setgray} bind def /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 k {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmykcolor rec stroke} bind def /cvishowr {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def /cvishow {cvi 6 string cvs show ( ) show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show ( ) show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show ( ) show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show ( ) show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show ( ) show} def /cvsshow5 {100000 mul cvi 0.00001 mul 9 string cvs show ( ) show} def /cvishow0 {cvi 6 string cvs show} def /cvsshow10 {10 mul cvi 0.1 mul 9 string cvs show} def /cvsshow20 {100 mul cvi 0.01 mul 9 string cvs show} def /cvsshow30 {1000 mul cvi 0.001 mul 9 string cvs show} def /cvsshow40 {10000 mul cvi 0.0001 mul 9 string cvs show} def /cvsshow50 {100000 mul cvi 0.00001 mul 9 string cvs show} def /cvsshow0r {10 mul 0.5 add cvi 0.1 mul 10 string cvs show} def /cvsshow1r {10 mul 0.5 add cvi 0.1 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow2r {100 mul 0.5 add cvi 0.01 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow3r {1000 mul 0.5 add cvi 0.001 mul 10 string cvs show} def %now with cvishow0 instead of cvishow /cvsshow1x {/nxx exch def %example nxx=99.1/99.0 nxx 10 mul cvi /nxi exch def %nxi=991/990 nxi 10 idiv /nxa exch def %nxa=99 nxi nxa 10 mul sub /nxb exch def %nxb=1/0 nxa cvishow0 (,) show %nxa=99 nxb cvishow0 %nxb=1/0 } def /cvsshow2x {/nxx exch def %example nxx=99.12/99,02/99,00 nxx 100 mul cvi /nxi exch def %nxi=9912/9902/00 nxi 100 idiv /nxa exch def %nxa=99 nxi nxa 100 mul sub /nxb exch def %nxb=12/02/00 nxa cvishow0 (,) show %nxb=99, nxb 10 ge {nxb cvishow0} if %nxb=12 nxb 1 ge nxb 9 le and {(0) show nxb cvishow0} if %nxb=02 nxb 0 eq {(00) show} if %nxb=00 } def /cvsshow3x {/nxx exch def %example nxx=99.123/99.012/99.001/99.000 nxx 1000 mul cvi /nxi exch def %nxi=99123/99012/99001/99000 nxi 1000 idiv /nxa exch def %nxa=99 nxi nxa 1000 mul sub /nxb exch def %nxb=123/012/001/000 nxa cvishow0 (,) show %nxb=99, nxb 100 ge {nxb cvishow0} if %nxb=123/012/001/000 nxb 10 ge nxb 99 le and {(0) show nxb cvishow0} if %nxb=012 nxb 1 ge nxb 9 le and {(00) show nxb cvishow0} if %nxb=001 nxb 0 eq {(000) show} if %nxb=000 } def %********************************************************* %%EndProlog gsave %lanindL2 START 20000505 /lanind 1 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 {3 lanind eq {show} {pop} ifelse} bind def /showfr {2 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 0 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % /jTBVN {TBV -30 -50 rmoveto (N) show 0 50 rmoveto TBL} def /jTBVW {TBV -30 -50 rmoveto (W) show 0 50 rmoveto TBL} def /jTBXN {TBX -30 -50 rmoveto (N) show 0 50 rmoveto TBL} def /jTBXW {TBX -30 -50 rmoveto (W) show 0 50 rmoveto TBL} def /jTBVNY {TBV -10 -50 rmoveto (N) show 0 50 rmoveto TBL} def /jTBVWY {TBV -10 -50 rmoveto (W) show 0 50 rmoveto TBL} def /jTBXNY {TBX -10 -50 rmoveto (N) show 0 50 rmoveto TBL} def /jTBXWY {TBX -10 -50 rmoveto (W) show 0 50 rmoveto TBL} def gsave /xchart5 1 def %0:Titel, 1:gamma test chart /xchart6 1 def %0:SDR-SDR, 1:SDR->lower contrast, 1:SDR->higher contrast /xchart7 0 def %0: no add text, %1: add text /xchart8 1 def %0: gleich gestuft 1:nicht gleich gestuft 4 /Times-ISOL1 FS 72 86 moveto (fea30-8a) show 72 90 translate 0.01 MM dup scale 20 setlinewidth 30 setlinewidth [ ] 0 setdash /yhoe 4000 def /xwidth 5400 def 1.0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath stroke /xwi 6 array def /ywi 6 array def /xli 6 array def /yli 6 array def /xmi 6 array def %mean point /ymi 6 array def /xti 6 array def %top left +xtl= 30 /yti 6 array def %top left +ytl=-100 /xtl 30 def /ytl -150 def /yd 200 def %line difference /yk 030 def % 0 3 % 1 2 4 5 %pos 0 1 2 3 4 5 /xwi [ 050 050 1850 3100 3100 4000] def /ywi [2450 1100 1100 2450 1100 1100] def /xli [1620 1620 1060 700 700 1360] def /yli [1050 1150 1150 1050 1150 1150] def 0 1 5 {/i exch def %i=0,5 xmi i xwi i get xli i get 0.5 mul add put ymi i ywi i get yli i get 0.5 mul add put xti i xwi i get xtl add put yti i ywi i get yli i get add ytl add put } for %i=0,5 %0_1_2_4_5 xmi 0 get ymi 0 get moveto xmi 1 get ymi 1 get lineto xmi 5 get ymi 5 get lineto stroke %3_4 xmi 3 get ymi 3 get moveto xmi 4 get ymi 4 get lineto stroke 1.0 setgray 0 1 5 {/i exch def %i=0,5 xwi i get ywi i get moveto xli i get 0 rlineto 0 yli i get rlineto xli i get neg 0 rlineto closepath fill } for %i=0,5 0.0 setgray 0 1 5 {/i exch def %i=0,5 xwi i get ywi i get moveto xli i get 0 rlineto 0 yli i get rlineto xli i get neg 0 rlineto closepath stroke } for %i=0,5 xchart5 0 eq {%xchart5=0 0050 3850 moveto TBL (Dynamic range conversion of images with equally spaced ) showen (Dynamische Bereichswandlung der Bilder mit gleich gestuften ) showde TBIL (rgb*) show TBL ( data) showen (\255Daten) showde 0050 3650 moveto TBL (Equally spaced visual output and lightness ) showen (Gleich gestufte visuelle Ausgabe & ) showde TBIL (L*) show TBL ( output with ) showen (\255Helligkeitsausgabe mit ) showde TBIL (GammaAdjuster) show } if %xchart5=0 020 setlinewidth 0000 3580 moveto xwidth 0 rlineto stroke xchart5 1 ge {%xchart5>=1 tfn 0050 3850 moveto TBL (Visual definition of ) showen (Visuelle Definition von ) showde tfo SL (g) show TBV 0 -30 rmoveto (rel) show 0 30 rmoveto tfn TBL ( by test\255chart output on display) showen ( durch Display\255Pr\374fvorlagenausgabe) showde 0050 3650 moveto TBL (according to ISO 9241\255306 with 16 values ) showen (nach ISO 9241\255306 mit 16 Werten ) showde tfn (0,5 <= ) show tfo SL (g) show TBV 0 -30 rmoveto (rel) show 0 30 rmoveto tfn TBL ( <= 2) show } if %xchart5>=1 %square 0 xti 0 get yti 0 get moveto TBL (raw image data (8bit)) showen (rohe Bilddaten (8bit)) showde xti 0 get yti 0 get yd 1 mul sub moveto TBL (0<= ) show TBIL (rgb ) show TBL (<=1) show TBL ( (PhotoCD)) showen ( (FotoCD)) showde xti 0 get yti 0 get yd 2 mul sub moveto TBIL (not equally spaced) showen (nicht gleich gestuft) showde xti 0 get yti 0 get yd 3 mul sub moveto TBL (search ) showen (suche ) showde xti 0 get 500 add yti 0 get yd 3 mul sub moveto TBL (0<= ) show TBIL (rgb) show jTBVNY TBL ( <=1) show TBL (,) showen xti 0 get yti 0 get yd 4 mul sub moveto TBL (and ) showen (und ) showde xti 0 get 500 add yti 0 get yd 4 mul sub moveto TBL (0<= ) show TBIL (rgb) show jTBVWY TBL ( <=1) show %square 1 xti 1 get yti 1 get moveto TBL (visual image (8bit)) showen (visuelles Bild (8bit)) showde xti 1 get yti 1 get yd 1 mul sub moveto TBL (0 <= ) show TBIL (rgb* ) show TBL (<= 1) show xti 1 get yti 1 get yd 2 mul sub moveto TBIL (equally spaced between) showen (gleich gestuft zwischen) showde xti 1 get yti 1 get yd 3 mul sub yk 1 mul add moveto TBIV (rgb*) show jTBXN TBV (=0 and ) showen (=0 und ) showde TBIV (rgb*) show jTBXW TBV (=1) showen (=1) showde xti 1 get yti 1 get yd 4 mul sub yk 2 mul add moveto TBIV (L*) show jTBXN TBV (=18 and ) showen (=18 und ) showde TBIV (L*) show jTBXW TBV (=95) showen (=95) showde xti 1 get xli 1 get 0.2 mul add yti 1 get yd 5 mul sub yk 3 mul add moveto 1 0 0 setrgbcolor SV (D) show TBIV ((rgb*)) show TBV (=1/15) show TBV (, ) show SV (D) show TBIV (L*) show TBV (=5) show 0 setgray %square 2 xti 2 get 30 sub yti 2 get 900 add moveto TBL (16 grey steps) showen (16 Graustufen) showde xti 2 get 30 sub yti 2 get 700 add moveto TBL (ISO/IEC 15775) show xti 2 get 30 sub yti 2 get 500 add moveto TBL (ISO 9241\255306) show xti 2 get 30 sub yti 2 get 300 add moveto TBL (standard range) showen (Normbereich) showde xti 2 get yti 2 get moveto TBL (Baseline image) showen (Baseline\255Bild) showde xti 2 get yti 2 get yd 1 mul sub moveto TBL (0 <= ) show TBIL (rgb* ) show TBL (<= 1) show xti 2 get yti 2 get yd 2 mul sub moveto TBIL (equally spaced) showen (gleich gestuft) showde xti 2 get yti 2 get yd 3 mul sub yk 1 mul add moveto TBIV (rgb*) show jTBXN TBV (=0, ) show TBIV (L*) show jTBXN TBV (=18) show xti 2 get yti 2 get yd 4 mul sub yk 2 mul add moveto TBIV (rgb*) show jTBXW TBV (=1, ) show TBIV (L*) show jTBXW TBV (=95) show xti 2 get xli 2 get 0.2 mul add yti 2 get yd 5 mul sub yk 3 mul add moveto 1 0 0 setrgbcolor SV (D) show TBIV (L*) show TBV (=5) show 0 setgray %square 3 xti 3 get yti 3 get moveto TBIL (Gamma) show xti 3 get yti 3 get yd 1 mul sub moveto TBIL (Adjuster) show xti 3 get yti 3 get yd 2 mul sub moveto TBIL ((rgb*)) show 1 0 0 setrgbcolor SV 0 80 rmoveto (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto 0 -80 rmoveto xti 3 get yti 3 get yd 3 mul sub moveto SL (g) show TV 0 -30 rmoveto (rel) show 10 30 rmoveto TL (=) show 10 0 rmoveto SL (g) show 20 0 rmoveto TL (/) show 10 0 rmoveto (2,4) show xti 3 get yti 3 get yd 4 mul sub moveto TV (1,2<=) show SV (g) show TV (<=4,8) show 0 setgray %square 4 xti 4 get 20 add yti 4 get yd 1 mul sub moveto TBL ( apply) showen (anwende) showde xti 4 get 200 add yti 4 get yd 2 mul sub moveto 1 0 0 setrgbcolor SL (g) show TV 0 -30 rmoveto (rel) show 0 30 rmoveto 0 setgray xti 4 get yti 4 get yd 3 mul sub moveto SL (g) show TV 0 -30 rmoveto (rel,i) show 0 30 rmoveto TL (=1) show -20 0 rmoveto (/) show SL (g) show TV 0 -30 rmoveto (rel) show 0 30 rmoveto xti 4 get 050 add yti 4 get yd 4 mul sub moveto TL (i=invers) show %square 5 TBL xti 5 get yti 5 get 500 add moveto xchart6 1 le {(SDR display) showen (SDR\255Display) showde} if xchart6 2 eq {(HDR display) showen (HDR\255Display) showde} if xti 5 get yti 5 get 300 add moveto xchart6 1 le {(SDR range) showen (SDR\255Bereich) showde} if xchart6 2 eq {(HDR range) showen (HDR\255Bereich) showde} if xti 5 get yti 5 get moveto TBL (Alternate image) showen (Alternate\255Bild) showde xti 5 get yti 5 get yd 1 mul sub moveto TBL (0 <= ) show TBIL ((rgb*)) show tfo SV 0 80 rmoveto (g) show TBX 0 -30 rmoveto (rel,i) show 0 30 rmoveto TBL 0 -80 rmoveto tfn TBL ( <= 1) show xti 5 get yti 5 get yd 2 mul sub moveto xchart8 0 eq {%xchart8=0 TBIL (equally spaced) showen (gleich gestuft) showde } if xchart8 1 eq {%xchart8=1 TBIL (not equally spaced) showen (nicht gleich gestuft) showde } if xti 5 get yti 5 get yd 3 mul sub yk 1 mul add moveto TBIV (rgb*) show jTBXN TBV (=0, ) show TBIV (L*) show jTBXN TBV xchart6 0 eq {(=18, ) show} if xchart6 1 eq {(=36, ) show} if xchart6 2 eq {(=10? ) show} if xchart6 1 le {TBIV (Y) show jTBXNY} if TBV xchart6 0 eq {(=2,5) show} if xchart6 1 eq {(=9) show} if %xchart6 2 eq {(=1,8?) show} if xti 5 get yti 5 get yd 4 mul sub yk 2 mul add moveto TBIV (rgb*) show jTBXW TBV (=1, ) show TBIV (L*) show jTBXW TBV xchart6 0 eq {(=95, ) show} if xchart6 1 eq {(=88, ) show} if xchart6 2 eq {(=160? ) show} if xchart6 1 le {TBIV (Y) show jTBXWY} if TBV xchart6 0 eq {(=90) show} if xchart6 1 eq {(=71) show} if %xchart6 2 eq {(=360?) show} if xti 5 get xli 5 get 0.0 mul add yti 5 get yd 5 mul sub yk 3 mul add moveto 1 0 0 setrgbcolor SV (D) show TBIV (L*) show xchart6 0 eq {TBV (=5, ) show tfo SV (g) show TBX 0 -30 rmoveto (rel) show 0 30 rmoveto TBV (=1,0, ) show tfo SV (g) show TBX 0 -30 rmoveto (rel,i) show 0 30 rmoveto TBV (=1,0) show} if xchart6 1 eq {TBV (=3, ) show tfo SV (g) show TBX 0 -30 rmoveto (rel) show 0 30 rmoveto TBV (=0,8, ) show TBX 0 -30 rmoveto (rel,i) show 0 30 rmoveto TBV (=1,3) show} if xchart6 2 eq {TBV (=10 ) show tfo SV (g) show TBX 0 -30 rmoveto (rel) show 0 30 rmoveto TBV (=1,3, ) show TBX 0 -30 rmoveto (rel,i) show 0 30 rmoveto TBV (=0,8) show} if %1 0 0 setrgbcolor % 0 3 % 1 2 4 5 0 setgray /txh 100 def /tyh 100 def xmi 1 get ymi 1 get yli 1 get 0.5 mul add tyh add 35 sub moveto %-100 0 rlineto 200 0 rlineto stroke -50 100 rlineto 50 -100 rlineto 50 100 rlineto stroke xmi 4 get ymi 4 get yli 4 get 0.5 mul add tyh add 35 sub moveto %-100 0 rlineto 200 0 rlineto stroke -50 100 rlineto 50 -100 rlineto 50 100 rlineto stroke xmi 1 get xli 1 get 0.5 mul add txh add 30 add ymi 1 get moveto %0 -100 rlineto 0 200 rlineto stroke -100 50 rmoveto 100 -50 rlineto -100 -50 rlineto stroke xmi 2 get xli 2 get 0.5 mul add txh add 30 add ymi 1 get moveto %0 -100 rlineto 0 200 rlineto stroke -100 50 rmoveto 100 -50 rlineto -100 -50 rlineto stroke xmi 4 get xli 4 get 0.5 mul add txh add 30 add ymi 1 get moveto %0 -100 rlineto 0 200 rlineto stroke -100 50 rmoveto 100 -50 rlineto -100 -50 rlineto stroke tfn 0050 0925 moveto TBV (Determine visually the value of ) showen (Bestimme visuell den Wert von ) showde tfr SV (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto tfn TBV ( in the range ) showen ( im Bereich ) showde tfr TBV (0,5 <= ) show SV (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto TBV ( <= 2 ) show tfn tfn TBV (with the following two test charts.) showen (mit folgenden zwei Pr\374fvorlagen.) showde xchart5 0 eq {%xchart5=0 tfn 0050 0750 moveto TBV (Links to 16 test\255chart pages according to ISO 9241\255306 ) showen (with ) showen (Links zu 16 Pr\374fvorlagenseiten nach ISO 9241\255306 mit ) showde tfr (0,5 <= ) show SV (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto TBV ( <= 2.) show tfn 0050 0575 moveto tfb RV (https://standards.iso.org/iso/9241/306/ed-2/AE18/AE18F0PX.PDF) showen (https://standards.iso.org/iso/9241/306/ed-2/AG18/AG18F0PX.PDF) showde tfn TV (, flower motiv with ) showen (, Blumenmotiv mit ) showde tfr (0,5 <= ) show SV (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto TV ( <= 1.) show tfn 0050 0400 moveto tfb RV (https://standards.iso.org/iso/9241/306/ed-2/AE18/AE18F0NX.PDF) showen (https://standards.iso.org/iso/9241/306/ed-2/AG18/AG18F0NX.PDF) showde tfn TV (, flower motiv with ) showen (, Blumenmotiv mit ) showde tfr (1 <= ) show SV (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto TV ( <= 2.) show tfn 0050 0225 moveto tfn TV (and similar for the ISO series AE49, AE09, AE28 ) showen (instead of AE18, see) showen (und \344hnlich f\374r die ISO\255Serien AG49, AG09, AG28 ) showde (anstelle von AG18, siehe) showde 0050 0050 moveto tfb RV (https://standards.iso.org/iso/9241/306/ed-2/index.html) show 0 setgray (.) show } if %xchart5=0 xchart5 1 eq {%xchart5=1 0050 0750 moveto tfn TBV (Links to one test\255chart page according to ISO 9241\255306 ) showen (with 0,5 <= ) showen (Links zu einer Pr\274fvorlagenseite nach ISO 9241\255306 ) showde (mit 0,5 <= ) showde SV (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto TBV ( <= 2:) show 0050 0575 moveto tfb RV (http://farbe.li.tu-berlin.de/eec4/eec4l0np.pdf) showen (http://farbe.li.tu-berlin.de/egc4/egc4l0np.pdf) showde tfn TV (, 1080 colors including 729(9x9x9) colors.) showen (, 1080 Farben inklusive 729(9x9x9) Farben.) showde 0050 0400 moveto tfb RV (http://farbe.li.tu-berlin.de/eec6/eec6l0np.pdf) showen (http://farbe.li.tu-berlin.de/egc6/egc6l0np.pdf) showde tfn TV (, flower motiv, slide film, +0,5 stops.) showen (, Blumenmotiv, Diafilm, +0,5 Blenden.) showde 0050 0225 moveto tfb RV (http://farbe.li.tu-berlin.de/eec7/eec7l0np.pdf) showen (http://farbe.li.tu-berlin.de/egc7/egc7l0np.pdf) showde tfn TV (, flower motiv, negative film, +2 stops.) showen (, Blumenmotiv, Negativfilm, +2 Blenden.) showde 0050 0050 moveto tfn TV (see for papers: ) showen (siehe f\344r Ver\366ffentlichungen: ) showde tfb RV (https://farbe.li.tu-berlin.de/XY91FEN.html) showen (https://farbe.li.tu-berlin.de/XY91FDE.html) showde tfn (.) show 0 setgray } if %xchart5=1 showpage grestore %} for %output with langind end %%Trailer %line 269 %%EndDocument EndEPSF grestore gsave showpage grestore %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 SHAl add 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 %!PS-Adobe-3.0 EPSF-3.0 fea30-8N %%BoundingBox: 70 85 246 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave /ioutx 0 def ioutx 1 eq {%ioutx=1 4 /Times-Roman FS 72 86 moveto (fea30-8N) show 72 90 translate 0.01 MM dup scale 20 setlinewidth /xwidth 6100 def /ywidth 4000 def 1 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath stroke } if %ioutx=1 grestore showpage %%Trailer %%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 /SHSr 2 MM def /SHAr 2 MM def BeginEPSF 161 MM 06 MM sub SHSr sub 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 21 %line 429 %!PS-Adobe-3.0 EPSF-3.0 fea31-1N %%BoundingBox: 70 85 246 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave /ioutx 0 def ioutx 1 eq {%ioutx=1 4 /Times-Roman FS 72 86 moveto (fea31-1N) show 72 90 translate 0.01 MM dup scale 20 setlinewidth /xwidth 6100 def /ywidth 4000 def 1 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath stroke } if %ioutx=1 grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 06 MM sub SHAr add 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 22 %line 439 %!PS-Adobe-3.0 EPSF-3.0 fea31-2N %%BoundingBox: 70 85 246 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave /ioutx 0 def ioutx 1 eq {%ioutx=1 4 /Times-Roman FS 72 86 moveto (fea31-2N) show 72 90 translate 0.01 MM dup scale 20 setlinewidth /xwidth 6100 def /ywidth 4000 def 1 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath stroke } if %ioutx=1 grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 06 MM sub SHSr sub 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 23 %line 449 %!PS-Adobe-3.0 EPSF-3.0 fea31-3n_54 %%BoundingBox: 70 85 387 335 %START PDFDE011.EPS /pdfmark13 where {pop} {userdict /pdfmark13 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [/Title (PostScript pictures: farbe.li.tu-berlin.de/fea3/fea3.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2023080112000) /ModDate (D:2023080112000) /DOCINFO pdfmark13 [ /View [ /Fit ] /DOCVIEW pdfmark13 %END PDFDE011 %line 20****************************************************** /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 % End for EPS file 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 /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Oblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierI-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /Courier-BoldOblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierBI-ISOL1 exch definefont pop /TG {350 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TV {110 /Times-ISOL1 FS} bind def /TW {080 /Times-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TIV {110 /TimesI-ISOL1 FS} bind def /TIW {080 /TimesI-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBV {110 /TimesB-ISOL1 FS} bind def /TBW {080 /TimesB-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /TBIV {110 /TimesBI-ISOL1 FS} bind def /TBIW {080 /TimesBI-ISOL1 FS} bind def /SG {350 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SL {160 /Symbol FS} bind def /SV {110 /Symbol FS} bind def /SW {080 /Symbol FS} bind def %***************************************************************** %%EndProlog gsave %lanindL2.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 /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 0 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % gsave /cvishow0 {cvi 6 string cvs show} def /kchartl 1 def %0:left page, 1:right page /pchartl 0 def %0:top page, 4:down page %not used 72 90 translate 0.010 MM dup scale 40 setlinewidth /ymax1 08550 def /xmax1 11050 def %2x5400+250=11050 1.0 setgray 0 0 moveto xmax1 0 rlineto 0 ymax1 rlineto xmax1 neg 0 rlineto closepath fill 0 setgray 0 0 moveto xmax1 0 rlineto 0 ymax1 rlineto xmax1 neg 0 rlineto closepath stroke TK 0 setgray 150 /Times-ISOL1 FS 150 -140 moveto kchartl 0 eq {(fea30-) show} {(fea31-) show} ifelse pchartl 0 eq {(3n) show} {(7n) show} ifelse grestore gsave %00 %01 %02 /SHSl 00.0 def /SHAl -3.0 def /STSl 13.0 def /STAl 14.5 def BeginEPSF 28 SHSl sub MM 064 STSl add 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 http://farbe.li.tu-berlin.de/fea3/fea31-1 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark11 where {pop} {userdict /pdfmark11 /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: farbe.li.tu-berlin.de/fea3/fea3.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2021080112000) /ModDate (D:20210801112000) /DOCINFO pdfmark11 [ /View [ /Fit ] /DOCVIEW pdfmark11 %END PDFDE011 % 40mm = 80*72/25.4 = 232; 232+90+13 = 335 % !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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /TX {100 /Times-ISOL1 FS} bind def /TV {120 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TG {320 /Times-ISOL1 FS} bind def /TIX {100 /TimesI-ISOL1 FS} bind def /TIV {120 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIG {320 /TimesI-ISOL1 FS} bind def /TBX {100 /TimesB-ISOL1 FS} bind def /TBV {120 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBG {320 /TimesB-ISOL1 FS} bind def /TBIX {100 /TimesBI-ISOL1 FS} bind def /TBIV {120 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIG {320 /TimesBI-ISOL1 FS} bind def /SX {100 /Symbol FS} bind def /SV {120 /Symbol FS} bind def /SL {160 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SG {320 /Symbol FS} bind def /RV {120 /Times-Roman FS} bind def /RL {160 /Times-Roman FS} bind def /RS {200 /Times-Roman FS} bind def /RK {240 /Times-Roman FS} bind def /RM {280 /Times-Roman FS} bind def /RG {320 /Times-Roman FS} bind def /RIV {120 /Times-Italic FS} bind def /RIL {160 /Times-Italic FS} bind def /RIS {200 /Times-Italic FS} bind def /RIK {240 /Times-Italic FS} bind def /RIM {280 /Times-Italic FS} bind def /RIG {320 /Times-Italic FS} bind def /RBV {120 /Times-Bold FS} bind def /RBL {160 /Times-Bold FS} bind def /RBS {200 /Times-Bold FS} bind def /RBK {240 /Times-Bold FS} bind def /RBM {280 /Times-Bold FS} bind def /RBG {320 /Times-Bold FS} bind def /RBIV {120 /Times-BoldItalic FS} bind def /RBIL {160 /Times-BoldItalic FS} bind def /RBIS {200 /Times-BoldItalic FS} bind def /RBIK {240 /Times-BoldItalic FS} bind def /RBIM {280 /Times-BoldItalic FS} bind def /RBIG {320 /Times-BoldItalic FS} bind def /tfr {1 0 0 setrgbcolor} bind def %Reproduktionsfarben /tfg {0 1 0 setrgbcolor} bind def /tfb {0 0 1 setrgbcolor} bind def /tfc {0 1 1 setrgbcolor} bind def /tfm {1 0 1 setrgbcolor} bind def /tfy {1 1 0 setrgbcolor} bind def /tfo {1 0 0 setrgbcolor} bind def %Reproduktionsfarben /tfl {0 1 0 setrgbcolor} bind def /tfv {0 0 1 setrgbcolor} bind def /tfn {0.0 setgray} bind def /tfz {0.5 setgray} bind def /tfw {1.0 setgray} bind def /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 k {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmykcolor rec stroke} bind def /cvishowr {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def /cvishow {cvi 6 string cvs show ( ) show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show ( ) show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show ( ) show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show ( ) show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show ( ) show} def /cvsshow5 {100000 mul cvi 0.00001 mul 9 string cvs show ( ) show} def /cvishow0 {cvi 6 string cvs show} def /cvsshow10 {10 mul cvi 0.1 mul 9 string cvs show} def /cvsshow20 {100 mul cvi 0.01 mul 9 string cvs show} def /cvsshow30 {1000 mul cvi 0.001 mul 9 string cvs show} def /cvsshow40 {10000 mul cvi 0.0001 mul 9 string cvs show} def /cvsshow50 {100000 mul cvi 0.00001 mul 9 string cvs show} def /cvsshow0r {10 mul 0.5 add cvi 0.1 mul 10 string cvs show} def /cvsshow1r {10 mul 0.5 add cvi 0.1 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow2r {100 mul 0.5 add cvi 0.01 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow3r {1000 mul 0.5 add cvi 0.001 mul 10 string cvs show} def %now with cvishow0 instead of cvishow /cvsshow1x {/nxx exch def %example nxx=99.1/99.0 nxx 10 mul cvi /nxi exch def %nxi=991/990 nxi 10 idiv /nxa exch def %nxa=99 nxi nxa 10 mul sub /nxb exch def %nxb=1/0 nxa cvishow0 (,) show %nxa=99 nxb cvishow0 %nxb=1/0 } def /cvsshow2x {/nxx exch def %example nxx=99.12/99,02/99,00 nxx 100 mul cvi /nxi exch def %nxi=9912/9902/00 nxi 100 idiv /nxa exch def %nxa=99 nxi nxa 100 mul sub /nxb exch def %nxb=12/02/00 nxa cvishow0 (,) show %nxb=99, nxb 10 ge {nxb cvishow0} if %nxb=12 nxb 1 ge nxb 9 le and {(0) show nxb cvishow0} if %nxb=02 nxb 0 eq {(00) show} if %nxb=00 } def /cvsshow3x {/nxx exch def %example nxx=99.123/99.012/99.001/99.000 nxx 1000 mul cvi /nxi exch def %nxi=99123/99012/99001/99000 nxi 1000 idiv /nxa exch def %nxa=99 nxi nxa 1000 mul sub /nxb exch def %nxb=123/012/001/000 nxa cvishow0 (,) show %nxb=99, nxb 100 ge {nxb cvishow0} if %nxb=123/012/001/000 nxb 10 ge nxb 99 le and {(0) show nxb cvishow0} if %nxb=012 nxb 1 ge nxb 9 le and {(00) show nxb cvishow0} if %nxb=001 nxb 0 eq {(000) show} if %nxb=000 } def %********************************************************* %%EndProlog gsave %lanindL2 START 20000505 /lanind 1 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 {3 lanind eq {show} {pop} ifelse} bind def /showfr {2 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 0 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % /jTBVN {TBV -30 -50 rmoveto (N) show 0 50 rmoveto TBL} def /jTBVW {TBV -30 -50 rmoveto (W) show 0 50 rmoveto TBL} def /jTBXN {TBX -30 -50 rmoveto (N) show 0 50 rmoveto TBL} def /jTBXW {TBX -30 -50 rmoveto (W) show 0 50 rmoveto TBL} def /jTBVNY {TBV -10 -50 rmoveto (N) show 0 50 rmoveto TBL} def /jTBVWY {TBV -10 -50 rmoveto (W) show 0 50 rmoveto TBL} def /jTBXNY {TBX -10 -50 rmoveto (N) show 0 50 rmoveto TBL} def /jTBXWY {TBX -10 -50 rmoveto (W) show 0 50 rmoveto TBL} def gsave /xchart5 0 def %0:Titel, 1:gamma test chart /xchart6 0 def %0:SDR-SDR, 1:SDR->lower contrast, 1:SDR->higher contrast /xchart7 1 def %0: no add text, %1: add text /xchart8 0 def %0: gleich gestuft 1:nicht gleich gestuft 4 /Times-ISOL1 FS 72 86 moveto (fea31-1a) show 72 90 translate 0.01 MM dup scale 20 setlinewidth 30 setlinewidth [ ] 0 setdash /yhoe 4000 def /xwidth 5400 def 1.0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath stroke /xwi 6 array def /ywi 6 array def /xli 6 array def /yli 6 array def /xmi 6 array def %mean point /ymi 6 array def /xti 6 array def %top left +xtl= 30 /yti 6 array def %top left +ytl=-100 /xtl 30 def /ytl -150 def /yd 200 def %line difference /yk 030 def % 0 3 % 1 2 4 5 %pos 0 1 2 3 4 5 /xwi [ 050 050 1850 3100 3100 4000] def /ywi [2450 1100 1100 2450 1100 1100] def /xli [1620 1620 1060 700 700 1360] def /yli [1050 1150 1150 1050 1150 1150] def 0 1 5 {/i exch def %i=0,5 xmi i xwi i get xli i get 0.5 mul add put ymi i ywi i get yli i get 0.5 mul add put xti i xwi i get xtl add put yti i ywi i get yli i get add ytl add put } for %i=0,5 %0_1_2_4_5 xmi 0 get ymi 0 get moveto xmi 1 get ymi 1 get lineto xmi 5 get ymi 5 get lineto stroke %3_4 xmi 3 get ymi 3 get moveto xmi 4 get ymi 4 get lineto stroke 1.0 setgray 0 1 5 {/i exch def %i=0,5 xwi i get ywi i get moveto xli i get 0 rlineto 0 yli i get rlineto xli i get neg 0 rlineto closepath fill } for %i=0,5 0.0 setgray 0 1 5 {/i exch def %i=0,5 xwi i get ywi i get moveto xli i get 0 rlineto 0 yli i get rlineto xli i get neg 0 rlineto closepath stroke } for %i=0,5 xchart5 0 eq {%xchart5=0 0050 3850 moveto TBL (Dynamic range conversion of images with equally spaced ) showen (Dynamische Bereichswandlung der Bilder mit gleich gestuften ) showde TBIL (rgb*) show TBL ( data) showen (\255Daten) showde 0050 3650 moveto TBL (Equally spaced visual output and lightness ) showen (Gleich gestufte visuelle Ausgabe & ) showde TBIL (L*) show TBL ( output with ) showen (\255Helligkeitsausgabe mit ) showde TBIL (GammaAdjuster) show } if %xchart5=0 020 setlinewidth 0000 3580 moveto xwidth 0 rlineto stroke xchart5 1 ge {%xchart5>=1 tfn 0050 3850 moveto TBL (Visual definition of ) showen (Visuelle Definition von ) showde tfo SL (g) show TBV 0 -30 rmoveto (rel) show 0 30 rmoveto tfn TBL ( by test\255chart output on display) showen ( durch Display\255Pr\374fvorlagenausgabe) showde 0050 3650 moveto TBL (according to ISO 9241\255306 with 16 values ) showen (nach ISO 9241\255306 mit 16 Werten ) showde tfn (0,5 <= ) show tfo SL (g) show TBV 0 -30 rmoveto (rel) show 0 30 rmoveto tfn TBL ( <= 2) show } if %xchart5>=1 %square 0 xti 0 get yti 0 get moveto TBL (raw image data (8bit)) showen (rohe Bilddaten (8bit)) showde xti 0 get yti 0 get yd 1 mul sub moveto TBL (0<= ) show TBIL (rgb ) show TBL (<=1) show TBL ( (PhotoCD)) showen ( (FotoCD)) showde xti 0 get yti 0 get yd 2 mul sub moveto TBIL (not equally spaced) showen (nicht gleich gestuft) showde xti 0 get yti 0 get yd 3 mul sub moveto TBL (search ) showen (suche ) showde xti 0 get 500 add yti 0 get yd 3 mul sub moveto TBL (0<= ) show TBIL (rgb) show jTBVNY TBL ( <=1) show TBL (,) showen xti 0 get yti 0 get yd 4 mul sub moveto TBL (and ) showen (und ) showde xti 0 get 500 add yti 0 get yd 4 mul sub moveto TBL (0<= ) show TBIL (rgb) show jTBVWY TBL ( <=1) show %square 1 xti 1 get yti 1 get moveto TBL (visual image (8bit)) showen (visuelles Bild (8bit)) showde xti 1 get yti 1 get yd 1 mul sub moveto TBL (0 <= ) show TBIL (rgb* ) show TBL (<= 1) show xti 1 get yti 1 get yd 2 mul sub moveto TBIL (equally spaced between) showen (gleich gestuft zwischen) showde xti 1 get yti 1 get yd 3 mul sub yk 1 mul add moveto TBIV (rgb*) show jTBXN TBV (=0 and ) showen (=0 und ) showde TBIV (rgb*) show jTBXW TBV (=1) showen (=1) showde xti 1 get yti 1 get yd 4 mul sub yk 2 mul add moveto TBIV (L*) show jTBXN TBV (=18 and ) showen (=18 und ) showde TBIV (L*) show jTBXW TBV (=95) showen (=95) showde xti 1 get xli 1 get 0.2 mul add yti 1 get yd 5 mul sub yk 3 mul add moveto 1 0 0 setrgbcolor SV (D) show TBIV ((rgb*)) show TBV (=1/15) show TBV (, ) show SV (D) show TBIV (L*) show TBV (=5) show 0 setgray %square 2 xti 2 get 30 sub yti 2 get 900 add moveto TBL (16 grey steps) showen (16 Graustufen) showde xti 2 get 30 sub yti 2 get 700 add moveto TBL (ISO/IEC 15775) show xti 2 get 30 sub yti 2 get 500 add moveto TBL (ISO 9241\255306) show xti 2 get 30 sub yti 2 get 300 add moveto TBL (standard range) showen (Normbereich) showde xti 2 get yti 2 get moveto TBL (Baseline image) showen (Baseline\255Bild) showde xti 2 get yti 2 get yd 1 mul sub moveto TBL (0 <= ) show TBIL (rgb* ) show TBL (<= 1) show xti 2 get yti 2 get yd 2 mul sub moveto TBIL (equally spaced) showen (gleich gestuft) showde xti 2 get yti 2 get yd 3 mul sub yk 1 mul add moveto TBIV (rgb*) show jTBXN TBV (=0, ) show TBIV (L*) show jTBXN TBV (=18) show xti 2 get yti 2 get yd 4 mul sub yk 2 mul add moveto TBIV (rgb*) show jTBXW TBV (=1, ) show TBIV (L*) show jTBXW TBV (=95) show xti 2 get xli 2 get 0.2 mul add yti 2 get yd 5 mul sub yk 3 mul add moveto 1 0 0 setrgbcolor SV (D) show TBIV (L*) show TBV (=5) show 0 setgray %square 3 xti 3 get yti 3 get moveto TBIL (Gamma) show xti 3 get yti 3 get yd 1 mul sub moveto TBIL (Adjuster) show xti 3 get yti 3 get yd 2 mul sub moveto TBIL ((rgb*)) show 1 0 0 setrgbcolor SV 0 80 rmoveto (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto 0 -80 rmoveto xti 3 get yti 3 get yd 3 mul sub moveto SL (g) show TV 0 -30 rmoveto (rel) show 10 30 rmoveto TL (=) show 10 0 rmoveto SL (g) show 20 0 rmoveto TL (/) show 10 0 rmoveto (2,4) show xti 3 get yti 3 get yd 4 mul sub moveto TV (1,2<=) show SV (g) show TV (<=4,8) show 0 setgray %square 4 xti 4 get 20 add yti 4 get yd 1 mul sub moveto TBL ( apply) showen (anwende) showde xti 4 get 200 add yti 4 get yd 2 mul sub moveto 1 0 0 setrgbcolor SL (g) show TV 0 -30 rmoveto (rel) show 0 30 rmoveto 0 setgray xti 4 get yti 4 get yd 3 mul sub moveto SL (g) show TV 0 -30 rmoveto (rel,i) show 0 30 rmoveto TL (=1) show -20 0 rmoveto (/) show SL (g) show TV 0 -30 rmoveto (rel) show 0 30 rmoveto xti 4 get 050 add yti 4 get yd 4 mul sub moveto TL (i=invers) show %square 5 TBL xti 5 get yti 5 get 500 add moveto xchart6 1 le {(SDR display) showen (SDR\255Display) showde} if xchart6 2 eq {(HDR display) showen (HDR\255Display) showde} if xti 5 get yti 5 get 300 add moveto xchart6 1 le {(SDR range) showen (SDR\255Bereich) showde} if xchart6 2 eq {(HDR range) showen (HDR\255Bereich) showde} if xti 5 get yti 5 get moveto TBL (Alternate image) showen (Alternate\255Bild) showde xti 5 get yti 5 get yd 1 mul sub moveto TBL (0 <= ) show TBIL ((rgb*)) show tfo SV 0 80 rmoveto (g) show TBX 0 -30 rmoveto (rel,i) show 0 30 rmoveto TBL 0 -80 rmoveto tfn TBL ( <= 1) show xti 5 get yti 5 get yd 2 mul sub moveto xchart8 0 eq {%xchart8=0 TBIL (equally spaced) showen (gleich gestuft) showde } if xchart8 1 eq {%xchart8=1 TBIL (not equally spaced) showen (nicht gleich gestuft) showde } if xti 5 get yti 5 get yd 3 mul sub yk 1 mul add moveto TBIV (rgb*) show jTBXN TBV (=0, ) show TBIV (L*) show jTBXN TBV xchart6 0 eq {(=18, ) show} if xchart6 1 eq {(=36, ) show} if xchart6 2 eq {(=10? ) show} if xchart6 1 le {TBIV (Y) show jTBXNY} if TBV xchart6 0 eq {(=2,5) show} if xchart6 1 eq {(=9) show} if %xchart6 2 eq {(=1,8?) show} if xti 5 get yti 5 get yd 4 mul sub yk 2 mul add moveto TBIV (rgb*) show jTBXW TBV (=1, ) show TBIV (L*) show jTBXW TBV xchart6 0 eq {(=95, ) show} if xchart6 1 eq {(=88, ) show} if xchart6 2 eq {(=160? ) show} if xchart6 1 le {TBIV (Y) show jTBXWY} if TBV xchart6 0 eq {(=90) show} if xchart6 1 eq {(=71) show} if %xchart6 2 eq {(=360?) show} if xti 5 get xli 5 get 0.0 mul add yti 5 get yd 5 mul sub yk 3 mul add moveto 1 0 0 setrgbcolor SV (D) show TBIV (L*) show xchart6 0 eq {TBV (=5, ) show tfo SV (g) show TBX 0 -30 rmoveto (rel) show 0 30 rmoveto TBV (=1,0, ) show tfo SV (g) show TBX 0 -30 rmoveto (rel,i) show 0 30 rmoveto TBV (=1,0) show} if xchart6 1 eq {TBV (=3, ) show tfo SV (g) show TBX 0 -30 rmoveto (rel) show 0 30 rmoveto TBV (=0,8, ) show TBX 0 -30 rmoveto (rel,i) show 0 30 rmoveto TBV (=1,3) show} if xchart6 2 eq {TBV (=10 ) show tfo SV (g) show TBX 0 -30 rmoveto (rel) show 0 30 rmoveto TBV (=1,3, ) show TBX 0 -30 rmoveto (rel,i) show 0 30 rmoveto TBV (=0,8) show} if %1 0 0 setrgbcolor % 0 3 % 1 2 4 5 0 setgray /txh 100 def /tyh 100 def xmi 1 get ymi 1 get yli 1 get 0.5 mul add tyh add 35 sub moveto %-100 0 rlineto 200 0 rlineto stroke -50 100 rlineto 50 -100 rlineto 50 100 rlineto stroke xmi 4 get ymi 4 get yli 4 get 0.5 mul add tyh add 35 sub moveto %-100 0 rlineto 200 0 rlineto stroke -50 100 rlineto 50 -100 rlineto 50 100 rlineto stroke xmi 1 get xli 1 get 0.5 mul add txh add 30 add ymi 1 get moveto %0 -100 rlineto 0 200 rlineto stroke -100 50 rmoveto 100 -50 rlineto -100 -50 rlineto stroke xmi 2 get xli 2 get 0.5 mul add txh add 30 add ymi 1 get moveto %0 -100 rlineto 0 200 rlineto stroke -100 50 rmoveto 100 -50 rlineto -100 -50 rlineto stroke xmi 4 get xli 4 get 0.5 mul add txh add 30 add ymi 1 get moveto %0 -100 rlineto 0 200 rlineto stroke -100 50 rmoveto 100 -50 rlineto -100 -50 rlineto stroke tfn 0050 0925 moveto TBV (Determine visually the value of ) showen (Bestimme visuell den Wert von ) showde tfr SV (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto tfn TBV ( in the range ) showen ( im Bereich ) showde tfr TBV (0,5 <= ) show SV (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto TBV ( <= 2 ) show tfn tfn TBV (with the following two test charts.) showen (mit folgenden zwei Pr\374fvorlagen.) showde xchart5 0 eq {%xchart5=0 tfn 0050 0750 moveto TBV (Links to 16 test\255chart pages according to ISO 9241\255306 ) showen (with ) showen (Links zu 16 Pr\374fvorlagenseiten nach ISO 9241\255306 mit ) showde tfr (0,5 <= ) show SV (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto TBV ( <= 2.) show tfn 0050 0575 moveto tfb RV (https://standards.iso.org/iso/9241/306/ed-2/AE18/AE18F0PX.PDF) showen (https://standards.iso.org/iso/9241/306/ed-2/AG18/AG18F0PX.PDF) showde tfn TV (, flower motiv with ) showen (, Blumenmotiv mit ) showde tfr (0,5 <= ) show SV (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto TV ( <= 1.) show tfn 0050 0400 moveto tfb RV (https://standards.iso.org/iso/9241/306/ed-2/AE18/AE18F0NX.PDF) showen (https://standards.iso.org/iso/9241/306/ed-2/AG18/AG18F0NX.PDF) showde tfn TV (, flower motiv with ) showen (, Blumenmotiv mit ) showde tfr (1 <= ) show SV (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto TV ( <= 2.) show tfn 0050 0225 moveto tfn TV (and similar for the ISO series AE49, AE09, AE28 ) showen (instead of AE18, see) showen (und \344hnlich f\374r die ISO\255Serien AG49, AG09, AG28 ) showde (anstelle von AG18, siehe) showde 0050 0050 moveto tfb RV (https://standards.iso.org/iso/9241/306/ed-2/index.html) show 0 setgray (.) show } if %xchart5=0 xchart5 1 eq {%xchart5=1 0050 0750 moveto tfn TBV (Links to one test\255chart page according to ISO 9241\255306 ) showen (with 0,5 <= ) showen (Links zu einer Pr\274fvorlagenseite nach ISO 9241\255306 ) showde (mit 0,5 <= ) showde SV (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto TBV ( <= 2:) show 0050 0575 moveto tfb RV (http://farbe.li.tu-berlin.de/eec4/eec4l0np.pdf) showen (http://farbe.li.tu-berlin.de/egc4/egc4l0np.pdf) showde tfn TV (, 1080 colors including 729(9x9x9) colors.) showen (, 1080 Farben inklusive 729(9x9x9) Farben.) showde 0050 0400 moveto tfb RV (http://farbe.li.tu-berlin.de/eec6/eec6l0np.pdf) showen (http://farbe.li.tu-berlin.de/egc6/egc6l0np.pdf) showde tfn TV (, flower motiv, slide film, +0,5 stops.) showen (, Blumenmotiv, Diafilm, +0,5 Blenden.) showde 0050 0225 moveto tfb RV (http://farbe.li.tu-berlin.de/eec7/eec7l0np.pdf) showen (http://farbe.li.tu-berlin.de/egc7/egc7l0np.pdf) showde tfn TV (, flower motiv, negative film, +2 stops.) showen (, Blumenmotiv, Negativfilm, +2 Blenden.) showde 0050 0050 moveto tfn TV (see for papers: ) showen (siehe f\344r Ver\366ffentlichungen: ) showde tfb RV (https://farbe.li.tu-berlin.de/XY91FEN.html) showen (https://farbe.li.tu-berlin.de/XY91FDE.html) showde tfn (.) show 0 setgray } if %xchart5=1 showpage grestore %} for %output with langind end %%Trailer %line 239 %%EndDocument EndEPSF grestore gsave BeginEPSF 86 SHAl add MM 064 STSl add MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 16 %!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/fea3/fea31-1 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark12 where {pop} {userdict /pdfmark12 /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: farbe.li.tu-berlin.de/fea3/fea3.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2021080112000) /ModDate (D:20210801112000) /DOCINFO pdfmark12 [ /View [ /Fit ] /DOCVIEW pdfmark12 %END PDFDE011 % 40mm = 80*72/25.4 = 232; 232+90+13 = 335 % !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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /TX {100 /Times-ISOL1 FS} bind def /TV {120 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TG {320 /Times-ISOL1 FS} bind def /TIX {100 /TimesI-ISOL1 FS} bind def /TIV {120 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIG {320 /TimesI-ISOL1 FS} bind def /TBX {100 /TimesB-ISOL1 FS} bind def /TBV {120 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBG {320 /TimesB-ISOL1 FS} bind def /TBIX {100 /TimesBI-ISOL1 FS} bind def /TBIV {120 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIG {320 /TimesBI-ISOL1 FS} bind def /SX {100 /Symbol FS} bind def /SV {120 /Symbol FS} bind def /SL {160 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SG {320 /Symbol FS} bind def /RV {120 /Times-Roman FS} bind def /RL {160 /Times-Roman FS} bind def /RS {200 /Times-Roman FS} bind def /RK {240 /Times-Roman FS} bind def /RM {280 /Times-Roman FS} bind def /RG {320 /Times-Roman FS} bind def /RIV {120 /Times-Italic FS} bind def /RIL {160 /Times-Italic FS} bind def /RIS {200 /Times-Italic FS} bind def /RIK {240 /Times-Italic FS} bind def /RIM {280 /Times-Italic FS} bind def /RIG {320 /Times-Italic FS} bind def /RBV {120 /Times-Bold FS} bind def /RBL {160 /Times-Bold FS} bind def /RBS {200 /Times-Bold FS} bind def /RBK {240 /Times-Bold FS} bind def /RBM {280 /Times-Bold FS} bind def /RBG {320 /Times-Bold FS} bind def /RBIV {120 /Times-BoldItalic FS} bind def /RBIL {160 /Times-BoldItalic FS} bind def /RBIS {200 /Times-BoldItalic FS} bind def /RBIK {240 /Times-BoldItalic FS} bind def /RBIM {280 /Times-BoldItalic FS} bind def /RBIG {320 /Times-BoldItalic FS} bind def /tfr {1 0 0 setrgbcolor} bind def %Reproduktionsfarben /tfg {0 1 0 setrgbcolor} bind def /tfb {0 0 1 setrgbcolor} bind def /tfc {0 1 1 setrgbcolor} bind def /tfm {1 0 1 setrgbcolor} bind def /tfy {1 1 0 setrgbcolor} bind def /tfo {1 0 0 setrgbcolor} bind def %Reproduktionsfarben /tfl {0 1 0 setrgbcolor} bind def /tfv {0 0 1 setrgbcolor} bind def /tfn {0.0 setgray} bind def /tfz {0.5 setgray} bind def /tfw {1.0 setgray} bind def /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 k {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmykcolor rec stroke} bind def /cvishowr {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def /cvishow {cvi 6 string cvs show ( ) show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show ( ) show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show ( ) show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show ( ) show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show ( ) show} def /cvsshow5 {100000 mul cvi 0.00001 mul 9 string cvs show ( ) show} def /cvishow0 {cvi 6 string cvs show} def /cvsshow10 {10 mul cvi 0.1 mul 9 string cvs show} def /cvsshow20 {100 mul cvi 0.01 mul 9 string cvs show} def /cvsshow30 {1000 mul cvi 0.001 mul 9 string cvs show} def /cvsshow40 {10000 mul cvi 0.0001 mul 9 string cvs show} def /cvsshow50 {100000 mul cvi 0.00001 mul 9 string cvs show} def /cvsshow0r {10 mul 0.5 add cvi 0.1 mul 10 string cvs show} def /cvsshow1r {10 mul 0.5 add cvi 0.1 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow2r {100 mul 0.5 add cvi 0.01 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow3r {1000 mul 0.5 add cvi 0.001 mul 10 string cvs show} def %now with cvishow0 instead of cvishow /cvsshow1x {/nxx exch def %example nxx=99.1/99.0 nxx 10 mul cvi /nxi exch def %nxi=991/990 nxi 10 idiv /nxa exch def %nxa=99 nxi nxa 10 mul sub /nxb exch def %nxb=1/0 nxa cvishow0 (,) show %nxa=99 nxb cvishow0 %nxb=1/0 } def /cvsshow2x {/nxx exch def %example nxx=99.12/99,02/99,00 nxx 100 mul cvi /nxi exch def %nxi=9912/9902/00 nxi 100 idiv /nxa exch def %nxa=99 nxi nxa 100 mul sub /nxb exch def %nxb=12/02/00 nxa cvishow0 (,) show %nxb=99, nxb 10 ge {nxb cvishow0} if %nxb=12 nxb 1 ge nxb 9 le and {(0) show nxb cvishow0} if %nxb=02 nxb 0 eq {(00) show} if %nxb=00 } def /cvsshow3x {/nxx exch def %example nxx=99.123/99.012/99.001/99.000 nxx 1000 mul cvi /nxi exch def %nxi=99123/99012/99001/99000 nxi 1000 idiv /nxa exch def %nxa=99 nxi nxa 1000 mul sub /nxb exch def %nxb=123/012/001/000 nxa cvishow0 (,) show %nxb=99, nxb 100 ge {nxb cvishow0} if %nxb=123/012/001/000 nxb 10 ge nxb 99 le and {(0) show nxb cvishow0} if %nxb=012 nxb 1 ge nxb 9 le and {(00) show nxb cvishow0} if %nxb=001 nxb 0 eq {(000) show} if %nxb=000 } def %********************************************************* %%EndProlog gsave %lanindL2 START 20000505 /lanind 1 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 {3 lanind eq {show} {pop} ifelse} bind def /showfr {2 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 0 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % /jTBVN {TBV -30 -50 rmoveto (N) show 0 50 rmoveto TBL} def /jTBVW {TBV -30 -50 rmoveto (W) show 0 50 rmoveto TBL} def /jTBXN {TBX -30 -50 rmoveto (N) show 0 50 rmoveto TBL} def /jTBXW {TBX -30 -50 rmoveto (W) show 0 50 rmoveto TBL} def /jTBVNY {TBV -10 -50 rmoveto (N) show 0 50 rmoveto TBL} def /jTBVWY {TBV -10 -50 rmoveto (W) show 0 50 rmoveto TBL} def /jTBXNY {TBX -10 -50 rmoveto (N) show 0 50 rmoveto TBL} def /jTBXWY {TBX -10 -50 rmoveto (W) show 0 50 rmoveto TBL} def gsave /xchart5 0 def %0:Titel, 1:gamma test chart /xchart6 2 def %0:SDR-SDR, 1:SDR->lower contrast, 1:SDR->higher contrast /xchart7 1 def %0: no add text, %1: add text /xchart8 1 def %0: gleich gestuft 1:nicht gleich gestuft 4 /Times-ISOL1 FS 72 86 moveto (fea31-2a) show 72 90 translate 0.01 MM dup scale 20 setlinewidth 30 setlinewidth [ ] 0 setdash /yhoe 4000 def /xwidth 5400 def 1.0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath stroke /xwi 6 array def /ywi 6 array def /xli 6 array def /yli 6 array def /xmi 6 array def %mean point /ymi 6 array def /xti 6 array def %top left +xtl= 30 /yti 6 array def %top left +ytl=-100 /xtl 30 def /ytl -150 def /yd 200 def %line difference /yk 030 def % 0 3 % 1 2 4 5 %pos 0 1 2 3 4 5 /xwi [ 050 050 1850 3100 3100 4000] def /ywi [2450 1100 1100 2450 1100 1100] def /xli [1620 1620 1060 700 700 1360] def /yli [1050 1150 1150 1050 1150 1150] def 0 1 5 {/i exch def %i=0,5 xmi i xwi i get xli i get 0.5 mul add put ymi i ywi i get yli i get 0.5 mul add put xti i xwi i get xtl add put yti i ywi i get yli i get add ytl add put } for %i=0,5 %0_1_2_4_5 xmi 0 get ymi 0 get moveto xmi 1 get ymi 1 get lineto xmi 5 get ymi 5 get lineto stroke %3_4 xmi 3 get ymi 3 get moveto xmi 4 get ymi 4 get lineto stroke 1.0 setgray 0 1 5 {/i exch def %i=0,5 xwi i get ywi i get moveto xli i get 0 rlineto 0 yli i get rlineto xli i get neg 0 rlineto closepath fill } for %i=0,5 0.0 setgray 0 1 5 {/i exch def %i=0,5 xwi i get ywi i get moveto xli i get 0 rlineto 0 yli i get rlineto xli i get neg 0 rlineto closepath stroke } for %i=0,5 xchart5 0 eq {%xchart5=0 0050 3850 moveto TBL (Dynamic range conversion of images with equally spaced ) showen (Dynamische Bereichswandlung der Bilder mit gleich gestuften ) showde TBIL (rgb*) show TBL ( data) showen (\255Daten) showde 0050 3650 moveto TBL (Equally spaced visual output and lightness ) showen (Gleich gestufte visuelle Ausgabe & ) showde TBIL (L*) show TBL ( output with ) showen (\255Helligkeitsausgabe mit ) showde TBIL (GammaAdjuster) show } if %xchart5=0 020 setlinewidth 0000 3580 moveto xwidth 0 rlineto stroke xchart5 1 ge {%xchart5>=1 tfn 0050 3850 moveto TBL (Visual definition of ) showen (Visuelle Definition von ) showde tfo SL (g) show TBV 0 -30 rmoveto (rel) show 0 30 rmoveto tfn TBL ( by test\255chart output on display) showen ( durch Display\255Pr\374fvorlagenausgabe) showde 0050 3650 moveto TBL (according to ISO 9241\255306 with 16 values ) showen (nach ISO 9241\255306 mit 16 Werten ) showde tfn (0,5 <= ) show tfo SL (g) show TBV 0 -30 rmoveto (rel) show 0 30 rmoveto tfn TBL ( <= 2) show } if %xchart5>=1 %square 0 xti 0 get yti 0 get moveto TBL (raw image data (8bit)) showen (rohe Bilddaten (8bit)) showde xti 0 get yti 0 get yd 1 mul sub moveto TBL (0<= ) show TBIL (rgb ) show TBL (<=1) show TBL ( (PhotoCD)) showen ( (FotoCD)) showde xti 0 get yti 0 get yd 2 mul sub moveto TBIL (not equally spaced) showen (nicht gleich gestuft) showde xti 0 get yti 0 get yd 3 mul sub moveto TBL (search ) showen (suche ) showde xti 0 get 500 add yti 0 get yd 3 mul sub moveto TBL (0<= ) show TBIL (rgb) show jTBVNY TBL ( <=1) show TBL (,) showen xti 0 get yti 0 get yd 4 mul sub moveto TBL (and ) showen (und ) showde xti 0 get 500 add yti 0 get yd 4 mul sub moveto TBL (0<= ) show TBIL (rgb) show jTBVWY TBL ( <=1) show %square 1 xti 1 get yti 1 get moveto TBL (visual image (8bit)) showen (visuelles Bild (8bit)) showde xti 1 get yti 1 get yd 1 mul sub moveto TBL (0 <= ) show TBIL (rgb* ) show TBL (<= 1) show xti 1 get yti 1 get yd 2 mul sub moveto TBIL (equally spaced between) showen (gleich gestuft zwischen) showde xti 1 get yti 1 get yd 3 mul sub yk 1 mul add moveto TBIV (rgb*) show jTBXN TBV (=0 and ) showen (=0 und ) showde TBIV (rgb*) show jTBXW TBV (=1) showen (=1) showde xti 1 get yti 1 get yd 4 mul sub yk 2 mul add moveto TBIV (L*) show jTBXN TBV (=18 and ) showen (=18 und ) showde TBIV (L*) show jTBXW TBV (=95) showen (=95) showde xti 1 get xli 1 get 0.2 mul add yti 1 get yd 5 mul sub yk 3 mul add moveto 1 0 0 setrgbcolor SV (D) show TBIV ((rgb*)) show TBV (=1/15) show TBV (, ) show SV (D) show TBIV (L*) show TBV (=5) show 0 setgray %square 2 xti 2 get 30 sub yti 2 get 900 add moveto TBL (16 grey steps) showen (16 Graustufen) showde xti 2 get 30 sub yti 2 get 700 add moveto TBL (ISO/IEC 15775) show xti 2 get 30 sub yti 2 get 500 add moveto TBL (ISO 9241\255306) show xti 2 get 30 sub yti 2 get 300 add moveto TBL (standard range) showen (Normbereich) showde xti 2 get yti 2 get moveto TBL (Baseline image) showen (Baseline\255Bild) showde xti 2 get yti 2 get yd 1 mul sub moveto TBL (0 <= ) show TBIL (rgb* ) show TBL (<= 1) show xti 2 get yti 2 get yd 2 mul sub moveto TBIL (equally spaced) showen (gleich gestuft) showde xti 2 get yti 2 get yd 3 mul sub yk 1 mul add moveto TBIV (rgb*) show jTBXN TBV (=0, ) show TBIV (L*) show jTBXN TBV (=18) show xti 2 get yti 2 get yd 4 mul sub yk 2 mul add moveto TBIV (rgb*) show jTBXW TBV (=1, ) show TBIV (L*) show jTBXW TBV (=95) show xti 2 get xli 2 get 0.2 mul add yti 2 get yd 5 mul sub yk 3 mul add moveto 1 0 0 setrgbcolor SV (D) show TBIV (L*) show TBV (=5) show 0 setgray %square 3 xti 3 get yti 3 get moveto TBIL (Gamma) show xti 3 get yti 3 get yd 1 mul sub moveto TBIL (Adjuster) show xti 3 get yti 3 get yd 2 mul sub moveto TBIL ((rgb*)) show 1 0 0 setrgbcolor SV 0 80 rmoveto (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto 0 -80 rmoveto xti 3 get yti 3 get yd 3 mul sub moveto SL (g) show TV 0 -30 rmoveto (rel) show 10 30 rmoveto TL (=) show 10 0 rmoveto SL (g) show 20 0 rmoveto TL (/) show 10 0 rmoveto (2,4) show xti 3 get yti 3 get yd 4 mul sub moveto TV (1,2<=) show SV (g) show TV (<=4,8) show 0 setgray %square 4 xti 4 get 20 add yti 4 get yd 1 mul sub moveto TBL ( apply) showen (anwende) showde xti 4 get 200 add yti 4 get yd 2 mul sub moveto 1 0 0 setrgbcolor SL (g) show TV 0 -30 rmoveto (rel) show 0 30 rmoveto 0 setgray xti 4 get yti 4 get yd 3 mul sub moveto SL (g) show TV 0 -30 rmoveto (rel,i) show 0 30 rmoveto TL (=1) show -20 0 rmoveto (/) show SL (g) show TV 0 -30 rmoveto (rel) show 0 30 rmoveto xti 4 get 050 add yti 4 get yd 4 mul sub moveto TL (i=invers) show %square 5 TBL xti 5 get yti 5 get 500 add moveto xchart6 1 le {(SDR display) showen (SDR\255Display) showde} if xchart6 2 eq {(HDR display) showen (HDR\255Display) showde} if xti 5 get yti 5 get 300 add moveto xchart6 1 le {(SDR range) showen (SDR\255Bereich) showde} if xchart6 2 eq {(HDR range) showen (HDR\255Bereich) showde} if xti 5 get yti 5 get moveto TBL (Alternate image) showen (Alternate\255Bild) showde xti 5 get yti 5 get yd 1 mul sub moveto TBL (0 <= ) show TBIL ((rgb*)) show tfo SV 0 80 rmoveto (g) show TBX 0 -30 rmoveto (rel,i) show 0 30 rmoveto TBL 0 -80 rmoveto tfn TBL ( <= 1) show xti 5 get yti 5 get yd 2 mul sub moveto xchart8 0 eq {%xchart8=0 TBIL (equally spaced) showen (gleich gestuft) showde } if xchart8 1 eq {%xchart8=1 TBIL (not equally spaced) showen (nicht gleich gestuft) showde } if xti 5 get yti 5 get yd 3 mul sub yk 1 mul add moveto TBIV (rgb*) show jTBXN TBV (=0, ) show TBIV (L*) show jTBXN TBV xchart6 0 eq {(=18, ) show} if xchart6 1 eq {(=36, ) show} if xchart6 2 eq {(=10? ) show} if xchart6 1 le {TBIV (Y) show jTBXNY} if TBV xchart6 0 eq {(=2,5) show} if xchart6 1 eq {(=9) show} if %xchart6 2 eq {(=1,8?) show} if xti 5 get yti 5 get yd 4 mul sub yk 2 mul add moveto TBIV (rgb*) show jTBXW TBV (=1, ) show TBIV (L*) show jTBXW TBV xchart6 0 eq {(=95, ) show} if xchart6 1 eq {(=88, ) show} if xchart6 2 eq {(=160? ) show} if xchart6 1 le {TBIV (Y) show jTBXWY} if TBV xchart6 0 eq {(=90) show} if xchart6 1 eq {(=71) show} if %xchart6 2 eq {(=360?) show} if xti 5 get xli 5 get 0.0 mul add yti 5 get yd 5 mul sub yk 3 mul add moveto 1 0 0 setrgbcolor SV (D) show TBIV (L*) show xchart6 0 eq {TBV (=5, ) show tfo SV (g) show TBX 0 -30 rmoveto (rel) show 0 30 rmoveto TBV (=1,0, ) show tfo SV (g) show TBX 0 -30 rmoveto (rel,i) show 0 30 rmoveto TBV (=1,0) show} if xchart6 1 eq {TBV (=3, ) show tfo SV (g) show TBX 0 -30 rmoveto (rel) show 0 30 rmoveto TBV (=0,8, ) show TBX 0 -30 rmoveto (rel,i) show 0 30 rmoveto TBV (=1,3) show} if xchart6 2 eq {TBV (=10 ) show tfo SV (g) show TBX 0 -30 rmoveto (rel) show 0 30 rmoveto TBV (=1,3, ) show TBX 0 -30 rmoveto (rel,i) show 0 30 rmoveto TBV (=0,8) show} if %1 0 0 setrgbcolor % 0 3 % 1 2 4 5 0 setgray /txh 100 def /tyh 100 def xmi 1 get ymi 1 get yli 1 get 0.5 mul add tyh add 35 sub moveto %-100 0 rlineto 200 0 rlineto stroke -50 100 rlineto 50 -100 rlineto 50 100 rlineto stroke xmi 4 get ymi 4 get yli 4 get 0.5 mul add tyh add 35 sub moveto %-100 0 rlineto 200 0 rlineto stroke -50 100 rlineto 50 -100 rlineto 50 100 rlineto stroke xmi 1 get xli 1 get 0.5 mul add txh add 30 add ymi 1 get moveto %0 -100 rlineto 0 200 rlineto stroke -100 50 rmoveto 100 -50 rlineto -100 -50 rlineto stroke xmi 2 get xli 2 get 0.5 mul add txh add 30 add ymi 1 get moveto %0 -100 rlineto 0 200 rlineto stroke -100 50 rmoveto 100 -50 rlineto -100 -50 rlineto stroke xmi 4 get xli 4 get 0.5 mul add txh add 30 add ymi 1 get moveto %0 -100 rlineto 0 200 rlineto stroke -100 50 rmoveto 100 -50 rlineto -100 -50 rlineto stroke tfn 0050 0925 moveto TBV (Determine visually the value of ) showen (Bestimme visuell den Wert von ) showde tfr SV (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto tfn TBV ( in the range ) showen ( im Bereich ) showde tfr TBV (0,5 <= ) show SV (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto TBV ( <= 2 ) show tfn tfn TBV (with the following two test charts.) showen (mit folgenden zwei Pr\374fvorlagen.) showde xchart5 0 eq {%xchart5=0 tfn 0050 0750 moveto TBV (Links to 16 test\255chart pages according to ISO 9241\255306 ) showen (with ) showen (Links zu 16 Pr\374fvorlagenseiten nach ISO 9241\255306 mit ) showde tfr (0,5 <= ) show SV (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto TBV ( <= 2.) show tfn 0050 0575 moveto tfb RV (https://standards.iso.org/iso/9241/306/ed-2/AE18/AE18F0PX.PDF) showen (https://standards.iso.org/iso/9241/306/ed-2/AG18/AG18F0PX.PDF) showde tfn TV (, flower motiv with ) showen (, Blumenmotiv mit ) showde tfr (0,5 <= ) show SV (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto TV ( <= 1.) show tfn 0050 0400 moveto tfb RV (https://standards.iso.org/iso/9241/306/ed-2/AE18/AE18F0NX.PDF) showen (https://standards.iso.org/iso/9241/306/ed-2/AG18/AG18F0NX.PDF) showde tfn TV (, flower motiv with ) showen (, Blumenmotiv mit ) showde tfr (1 <= ) show SV (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto TV ( <= 2.) show tfn 0050 0225 moveto tfn TV (and similar for the ISO series AE49, AE09, AE28 ) showen (instead of AE18, see) showen (und \344hnlich f\374r die ISO\255Serien AG49, AG09, AG28 ) showde (anstelle von AG18, siehe) showde 0050 0050 moveto tfb RV (https://standards.iso.org/iso/9241/306/ed-2/index.html) show 0 setgray (.) show } if %xchart5=0 xchart5 1 eq {%xchart5=1 0050 0750 moveto tfn TBV (Links to one test\255chart page according to ISO 9241\255306 ) showen (with 0,5 <= ) showen (Links zu einer Pr\274fvorlagenseite nach ISO 9241\255306 ) showde (mit 0,5 <= ) showde SV (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto TBV ( <= 2:) show 0050 0575 moveto tfb RV (http://farbe.li.tu-berlin.de/eec4/eec4l0np.pdf) showen (http://farbe.li.tu-berlin.de/egc4/egc4l0np.pdf) showde tfn TV (, 1080 colors including 729(9x9x9) colors.) showen (, 1080 Farben inklusive 729(9x9x9) Farben.) showde 0050 0400 moveto tfb RV (http://farbe.li.tu-berlin.de/eec6/eec6l0np.pdf) showen (http://farbe.li.tu-berlin.de/egc6/egc6l0np.pdf) showde tfn TV (, flower motiv, slide film, +0,5 stops.) showen (, Blumenmotiv, Diafilm, +0,5 Blenden.) showde 0050 0225 moveto tfb RV (http://farbe.li.tu-berlin.de/eec7/eec7l0np.pdf) showen (http://farbe.li.tu-berlin.de/egc7/egc7l0np.pdf) showde tfn TV (, flower motiv, negative film, +2 stops.) showen (, Blumenmotiv, Negativfilm, +2 Blenden.) showde 0050 0050 moveto tfn TV (see for papers: ) showen (siehe f\344r Ver\366ffentlichungen: ) showde tfb RV (https://farbe.li.tu-berlin.de/XY91FEN.html) showen (https://farbe.li.tu-berlin.de/XY91FDE.html) showde tfn (.) show 0 setgray } if %xchart5=1 showpage grestore %} for %output with langind end %%Trailer %line 249 %%EndDocument EndEPSF grestore gsave BeginEPSF /xc1 16 def /yc1 12 def /xt 1 def xchart 1 eq {/xt 1 def} if 28 SHSl sub MM 020 STAl add 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 http://farbe.li.tu-berlin.de/fea3/fea31-1 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark13 where {pop} {userdict /pdfmark13 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [/Title (PostScript pictures: farbe.li.tu-berlin.de/fea3/fea3.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2021080112000) /ModDate (D:20210801112000) /DOCINFO pdfmark13 [ /View [ /Fit ] /DOCVIEW pdfmark13 %END PDFDE011 % 40mm = 80*72/25.4 = 232; 232+90+13 = 335 % !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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /TX {100 /Times-ISOL1 FS} bind def /TV {120 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TG {320 /Times-ISOL1 FS} bind def /TIX {100 /TimesI-ISOL1 FS} bind def /TIV {120 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIG {320 /TimesI-ISOL1 FS} bind def /TBX {100 /TimesB-ISOL1 FS} bind def /TBV {120 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBG {320 /TimesB-ISOL1 FS} bind def /TBIX {100 /TimesBI-ISOL1 FS} bind def /TBIV {120 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIG {320 /TimesBI-ISOL1 FS} bind def /SX {100 /Symbol FS} bind def /SV {120 /Symbol FS} bind def /SL {160 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SG {320 /Symbol FS} bind def /RV {120 /Times-Roman FS} bind def /RL {160 /Times-Roman FS} bind def /RS {200 /Times-Roman FS} bind def /RK {240 /Times-Roman FS} bind def /RM {280 /Times-Roman FS} bind def /RG {320 /Times-Roman FS} bind def /RIV {120 /Times-Italic FS} bind def /RIL {160 /Times-Italic FS} bind def /RIS {200 /Times-Italic FS} bind def /RIK {240 /Times-Italic FS} bind def /RIM {280 /Times-Italic FS} bind def /RIG {320 /Times-Italic FS} bind def /RBV {120 /Times-Bold FS} bind def /RBL {160 /Times-Bold FS} bind def /RBS {200 /Times-Bold FS} bind def /RBK {240 /Times-Bold FS} bind def /RBM {280 /Times-Bold FS} bind def /RBG {320 /Times-Bold FS} bind def /RBIV {120 /Times-BoldItalic FS} bind def /RBIL {160 /Times-BoldItalic FS} bind def /RBIS {200 /Times-BoldItalic FS} bind def /RBIK {240 /Times-BoldItalic FS} bind def /RBIM {280 /Times-BoldItalic FS} bind def /RBIG {320 /Times-BoldItalic FS} bind def /tfr {1 0 0 setrgbcolor} bind def %Reproduktionsfarben /tfg {0 1 0 setrgbcolor} bind def /tfb {0 0 1 setrgbcolor} bind def /tfc {0 1 1 setrgbcolor} bind def /tfm {1 0 1 setrgbcolor} bind def /tfy {1 1 0 setrgbcolor} bind def /tfo {1 0 0 setrgbcolor} bind def %Reproduktionsfarben /tfl {0 1 0 setrgbcolor} bind def /tfv {0 0 1 setrgbcolor} bind def /tfn {0.0 setgray} bind def /tfz {0.5 setgray} bind def /tfw {1.0 setgray} bind def /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 k {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmykcolor rec stroke} bind def /cvishowr {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def /cvishow {cvi 6 string cvs show ( ) show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show ( ) show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show ( ) show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show ( ) show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show ( ) show} def /cvsshow5 {100000 mul cvi 0.00001 mul 9 string cvs show ( ) show} def /cvishow0 {cvi 6 string cvs show} def /cvsshow10 {10 mul cvi 0.1 mul 9 string cvs show} def /cvsshow20 {100 mul cvi 0.01 mul 9 string cvs show} def /cvsshow30 {1000 mul cvi 0.001 mul 9 string cvs show} def /cvsshow40 {10000 mul cvi 0.0001 mul 9 string cvs show} def /cvsshow50 {100000 mul cvi 0.00001 mul 9 string cvs show} def /cvsshow0r {10 mul 0.5 add cvi 0.1 mul 10 string cvs show} def /cvsshow1r {10 mul 0.5 add cvi 0.1 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow2r {100 mul 0.5 add cvi 0.01 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow3r {1000 mul 0.5 add cvi 0.001 mul 10 string cvs show} def %now with cvishow0 instead of cvishow /cvsshow1x {/nxx exch def %example nxx=99.1/99.0 nxx 10 mul cvi /nxi exch def %nxi=991/990 nxi 10 idiv /nxa exch def %nxa=99 nxi nxa 10 mul sub /nxb exch def %nxb=1/0 nxa cvishow0 (,) show %nxa=99 nxb cvishow0 %nxb=1/0 } def /cvsshow2x {/nxx exch def %example nxx=99.12/99,02/99,00 nxx 100 mul cvi /nxi exch def %nxi=9912/9902/00 nxi 100 idiv /nxa exch def %nxa=99 nxi nxa 100 mul sub /nxb exch def %nxb=12/02/00 nxa cvishow0 (,) show %nxb=99, nxb 10 ge {nxb cvishow0} if %nxb=12 nxb 1 ge nxb 9 le and {(0) show nxb cvishow0} if %nxb=02 nxb 0 eq {(00) show} if %nxb=00 } def /cvsshow3x {/nxx exch def %example nxx=99.123/99.012/99.001/99.000 nxx 1000 mul cvi /nxi exch def %nxi=99123/99012/99001/99000 nxi 1000 idiv /nxa exch def %nxa=99 nxi nxa 1000 mul sub /nxb exch def %nxb=123/012/001/000 nxa cvishow0 (,) show %nxb=99, nxb 100 ge {nxb cvishow0} if %nxb=123/012/001/000 nxb 10 ge nxb 99 le and {(0) show nxb cvishow0} if %nxb=012 nxb 1 ge nxb 9 le and {(00) show nxb cvishow0} if %nxb=001 nxb 0 eq {(000) show} if %nxb=000 } def %********************************************************* %%EndProlog gsave %lanindL2 START 20000505 /lanind 1 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 {3 lanind eq {show} {pop} ifelse} bind def /showfr {2 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 0 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % /jTBVN {TBV -30 -50 rmoveto (N) show 0 50 rmoveto TBL} def /jTBVW {TBV -30 -50 rmoveto (W) show 0 50 rmoveto TBL} def /jTBXN {TBX -30 -50 rmoveto (N) show 0 50 rmoveto TBL} def /jTBXW {TBX -30 -50 rmoveto (W) show 0 50 rmoveto TBL} def /jTBVNY {TBV -10 -50 rmoveto (N) show 0 50 rmoveto TBL} def /jTBVWY {TBV -10 -50 rmoveto (W) show 0 50 rmoveto TBL} def /jTBXNY {TBX -10 -50 rmoveto (N) show 0 50 rmoveto TBL} def /jTBXWY {TBX -10 -50 rmoveto (W) show 0 50 rmoveto TBL} def gsave /xchart5 1 def %0:Titel, 1:gamma test chart /xchart6 0 def %0:SDR-SDR, 1:SDR->lower contrast, 1:SDR->higher contrast /xchart7 1 def %0: no add text, %1: add text /xchart8 0 def %0: gleich gestuft 1:nicht gleich gestuft 4 /Times-ISOL1 FS 72 86 moveto (fea31-3a) show 72 90 translate 0.01 MM dup scale 20 setlinewidth 30 setlinewidth [ ] 0 setdash /yhoe 4000 def /xwidth 5400 def 1.0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath stroke /xwi 6 array def /ywi 6 array def /xli 6 array def /yli 6 array def /xmi 6 array def %mean point /ymi 6 array def /xti 6 array def %top left +xtl= 30 /yti 6 array def %top left +ytl=-100 /xtl 30 def /ytl -150 def /yd 200 def %line difference /yk 030 def % 0 3 % 1 2 4 5 %pos 0 1 2 3 4 5 /xwi [ 050 050 1850 3100 3100 4000] def /ywi [2450 1100 1100 2450 1100 1100] def /xli [1620 1620 1060 700 700 1360] def /yli [1050 1150 1150 1050 1150 1150] def 0 1 5 {/i exch def %i=0,5 xmi i xwi i get xli i get 0.5 mul add put ymi i ywi i get yli i get 0.5 mul add put xti i xwi i get xtl add put yti i ywi i get yli i get add ytl add put } for %i=0,5 %0_1_2_4_5 xmi 0 get ymi 0 get moveto xmi 1 get ymi 1 get lineto xmi 5 get ymi 5 get lineto stroke %3_4 xmi 3 get ymi 3 get moveto xmi 4 get ymi 4 get lineto stroke 1.0 setgray 0 1 5 {/i exch def %i=0,5 xwi i get ywi i get moveto xli i get 0 rlineto 0 yli i get rlineto xli i get neg 0 rlineto closepath fill } for %i=0,5 0.0 setgray 0 1 5 {/i exch def %i=0,5 xwi i get ywi i get moveto xli i get 0 rlineto 0 yli i get rlineto xli i get neg 0 rlineto closepath stroke } for %i=0,5 xchart5 0 eq {%xchart5=0 0050 3850 moveto TBL (Dynamic range conversion of images with equally spaced ) showen (Dynamische Bereichswandlung der Bilder mit gleich gestuften ) showde TBIL (rgb*) show TBL ( data) showen (\255Daten) showde 0050 3650 moveto TBL (Equally spaced visual output and lightness ) showen (Gleich gestufte visuelle Ausgabe & ) showde TBIL (L*) show TBL ( output with ) showen (\255Helligkeitsausgabe mit ) showde TBIL (GammaAdjuster) show } if %xchart5=0 020 setlinewidth 0000 3580 moveto xwidth 0 rlineto stroke xchart5 1 ge {%xchart5>=1 tfn 0050 3850 moveto TBL (Visual definition of ) showen (Visuelle Definition von ) showde tfo SL (g) show TBV 0 -30 rmoveto (rel) show 0 30 rmoveto tfn TBL ( by test\255chart output on display) showen ( durch Display\255Pr\374fvorlagenausgabe) showde 0050 3650 moveto TBL (according to ISO 9241\255306 with 16 values ) showen (nach ISO 9241\255306 mit 16 Werten ) showde tfn (0,5 <= ) show tfo SL (g) show TBV 0 -30 rmoveto (rel) show 0 30 rmoveto tfn TBL ( <= 2) show } if %xchart5>=1 %square 0 xti 0 get yti 0 get moveto TBL (raw image data (8bit)) showen (rohe Bilddaten (8bit)) showde xti 0 get yti 0 get yd 1 mul sub moveto TBL (0<= ) show TBIL (rgb ) show TBL (<=1) show TBL ( (PhotoCD)) showen ( (FotoCD)) showde xti 0 get yti 0 get yd 2 mul sub moveto TBIL (not equally spaced) showen (nicht gleich gestuft) showde xti 0 get yti 0 get yd 3 mul sub moveto TBL (search ) showen (suche ) showde xti 0 get 500 add yti 0 get yd 3 mul sub moveto TBL (0<= ) show TBIL (rgb) show jTBVNY TBL ( <=1) show TBL (,) showen xti 0 get yti 0 get yd 4 mul sub moveto TBL (and ) showen (und ) showde xti 0 get 500 add yti 0 get yd 4 mul sub moveto TBL (0<= ) show TBIL (rgb) show jTBVWY TBL ( <=1) show %square 1 xti 1 get yti 1 get moveto TBL (visual image (8bit)) showen (visuelles Bild (8bit)) showde xti 1 get yti 1 get yd 1 mul sub moveto TBL (0 <= ) show TBIL (rgb* ) show TBL (<= 1) show xti 1 get yti 1 get yd 2 mul sub moveto TBIL (equally spaced between) showen (gleich gestuft zwischen) showde xti 1 get yti 1 get yd 3 mul sub yk 1 mul add moveto TBIV (rgb*) show jTBXN TBV (=0 and ) showen (=0 und ) showde TBIV (rgb*) show jTBXW TBV (=1) showen (=1) showde xti 1 get yti 1 get yd 4 mul sub yk 2 mul add moveto TBIV (L*) show jTBXN TBV (=18 and ) showen (=18 und ) showde TBIV (L*) show jTBXW TBV (=95) showen (=95) showde xti 1 get xli 1 get 0.2 mul add yti 1 get yd 5 mul sub yk 3 mul add moveto 1 0 0 setrgbcolor SV (D) show TBIV ((rgb*)) show TBV (=1/15) show TBV (, ) show SV (D) show TBIV (L*) show TBV (=5) show 0 setgray %square 2 xti 2 get 30 sub yti 2 get 900 add moveto TBL (16 grey steps) showen (16 Graustufen) showde xti 2 get 30 sub yti 2 get 700 add moveto TBL (ISO/IEC 15775) show xti 2 get 30 sub yti 2 get 500 add moveto TBL (ISO 9241\255306) show xti 2 get 30 sub yti 2 get 300 add moveto TBL (standard range) showen (Normbereich) showde xti 2 get yti 2 get moveto TBL (Baseline image) showen (Baseline\255Bild) showde xti 2 get yti 2 get yd 1 mul sub moveto TBL (0 <= ) show TBIL (rgb* ) show TBL (<= 1) show xti 2 get yti 2 get yd 2 mul sub moveto TBIL (equally spaced) showen (gleich gestuft) showde xti 2 get yti 2 get yd 3 mul sub yk 1 mul add moveto TBIV (rgb*) show jTBXN TBV (=0, ) show TBIV (L*) show jTBXN TBV (=18) show xti 2 get yti 2 get yd 4 mul sub yk 2 mul add moveto TBIV (rgb*) show jTBXW TBV (=1, ) show TBIV (L*) show jTBXW TBV (=95) show xti 2 get xli 2 get 0.2 mul add yti 2 get yd 5 mul sub yk 3 mul add moveto 1 0 0 setrgbcolor SV (D) show TBIV (L*) show TBV (=5) show 0 setgray %square 3 xti 3 get yti 3 get moveto TBIL (Gamma) show xti 3 get yti 3 get yd 1 mul sub moveto TBIL (Adjuster) show xti 3 get yti 3 get yd 2 mul sub moveto TBIL ((rgb*)) show 1 0 0 setrgbcolor SV 0 80 rmoveto (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto 0 -80 rmoveto xti 3 get yti 3 get yd 3 mul sub moveto SL (g) show TV 0 -30 rmoveto (rel) show 10 30 rmoveto TL (=) show 10 0 rmoveto SL (g) show 20 0 rmoveto TL (/) show 10 0 rmoveto (2,4) show xti 3 get yti 3 get yd 4 mul sub moveto TV (1,2<=) show SV (g) show TV (<=4,8) show 0 setgray %square 4 xti 4 get 20 add yti 4 get yd 1 mul sub moveto TBL ( apply) showen (anwende) showde xti 4 get 200 add yti 4 get yd 2 mul sub moveto 1 0 0 setrgbcolor SL (g) show TV 0 -30 rmoveto (rel) show 0 30 rmoveto 0 setgray xti 4 get yti 4 get yd 3 mul sub moveto SL (g) show TV 0 -30 rmoveto (rel,i) show 0 30 rmoveto TL (=1) show -20 0 rmoveto (/) show SL (g) show TV 0 -30 rmoveto (rel) show 0 30 rmoveto xti 4 get 050 add yti 4 get yd 4 mul sub moveto TL (i=invers) show %square 5 TBL xti 5 get yti 5 get 500 add moveto xchart6 1 le {(SDR display) showen (SDR\255Display) showde} if xchart6 2 eq {(HDR display) showen (HDR\255Display) showde} if xti 5 get yti 5 get 300 add moveto xchart6 1 le {(SDR range) showen (SDR\255Bereich) showde} if xchart6 2 eq {(HDR range) showen (HDR\255Bereich) showde} if xti 5 get yti 5 get moveto TBL (Alternate image) showen (Alternate\255Bild) showde xti 5 get yti 5 get yd 1 mul sub moveto TBL (0 <= ) show TBIL ((rgb*)) show tfo SV 0 80 rmoveto (g) show TBX 0 -30 rmoveto (rel,i) show 0 30 rmoveto TBL 0 -80 rmoveto tfn TBL ( <= 1) show xti 5 get yti 5 get yd 2 mul sub moveto xchart8 0 eq {%xchart8=0 TBIL (equally spaced) showen (gleich gestuft) showde } if xchart8 1 eq {%xchart8=1 TBIL (not equally spaced) showen (nicht gleich gestuft) showde } if xti 5 get yti 5 get yd 3 mul sub yk 1 mul add moveto TBIV (rgb*) show jTBXN TBV (=0, ) show TBIV (L*) show jTBXN TBV xchart6 0 eq {(=18, ) show} if xchart6 1 eq {(=36, ) show} if xchart6 2 eq {(=10? ) show} if xchart6 1 le {TBIV (Y) show jTBXNY} if TBV xchart6 0 eq {(=2,5) show} if xchart6 1 eq {(=9) show} if %xchart6 2 eq {(=1,8?) show} if xti 5 get yti 5 get yd 4 mul sub yk 2 mul add moveto TBIV (rgb*) show jTBXW TBV (=1, ) show TBIV (L*) show jTBXW TBV xchart6 0 eq {(=95, ) show} if xchart6 1 eq {(=88, ) show} if xchart6 2 eq {(=160? ) show} if xchart6 1 le {TBIV (Y) show jTBXWY} if TBV xchart6 0 eq {(=90) show} if xchart6 1 eq {(=71) show} if %xchart6 2 eq {(=360?) show} if xti 5 get xli 5 get 0.0 mul add yti 5 get yd 5 mul sub yk 3 mul add moveto 1 0 0 setrgbcolor SV (D) show TBIV (L*) show xchart6 0 eq {TBV (=5, ) show tfo SV (g) show TBX 0 -30 rmoveto (rel) show 0 30 rmoveto TBV (=1,0, ) show tfo SV (g) show TBX 0 -30 rmoveto (rel,i) show 0 30 rmoveto TBV (=1,0) show} if xchart6 1 eq {TBV (=3, ) show tfo SV (g) show TBX 0 -30 rmoveto (rel) show 0 30 rmoveto TBV (=0,8, ) show TBX 0 -30 rmoveto (rel,i) show 0 30 rmoveto TBV (=1,3) show} if xchart6 2 eq {TBV (=10 ) show tfo SV (g) show TBX 0 -30 rmoveto (rel) show 0 30 rmoveto TBV (=1,3, ) show TBX 0 -30 rmoveto (rel,i) show 0 30 rmoveto TBV (=0,8) show} if %1 0 0 setrgbcolor % 0 3 % 1 2 4 5 0 setgray /txh 100 def /tyh 100 def xmi 1 get ymi 1 get yli 1 get 0.5 mul add tyh add 35 sub moveto %-100 0 rlineto 200 0 rlineto stroke -50 100 rlineto 50 -100 rlineto 50 100 rlineto stroke xmi 4 get ymi 4 get yli 4 get 0.5 mul add tyh add 35 sub moveto %-100 0 rlineto 200 0 rlineto stroke -50 100 rlineto 50 -100 rlineto 50 100 rlineto stroke xmi 1 get xli 1 get 0.5 mul add txh add 30 add ymi 1 get moveto %0 -100 rlineto 0 200 rlineto stroke -100 50 rmoveto 100 -50 rlineto -100 -50 rlineto stroke xmi 2 get xli 2 get 0.5 mul add txh add 30 add ymi 1 get moveto %0 -100 rlineto 0 200 rlineto stroke -100 50 rmoveto 100 -50 rlineto -100 -50 rlineto stroke xmi 4 get xli 4 get 0.5 mul add txh add 30 add ymi 1 get moveto %0 -100 rlineto 0 200 rlineto stroke -100 50 rmoveto 100 -50 rlineto -100 -50 rlineto stroke tfn 0050 0925 moveto TBV (Determine visually the value of ) showen (Bestimme visuell den Wert von ) showde tfr SV (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto tfn TBV ( in the range ) showen ( im Bereich ) showde tfr TBV (0,5 <= ) show SV (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto TBV ( <= 2 ) show tfn tfn TBV (with the following two test charts.) showen (mit folgenden zwei Pr\374fvorlagen.) showde xchart5 0 eq {%xchart5=0 tfn 0050 0750 moveto TBV (Links to 16 test\255chart pages according to ISO 9241\255306 ) showen (with ) showen (Links zu 16 Pr\374fvorlagenseiten nach ISO 9241\255306 mit ) showde tfr (0,5 <= ) show SV (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto TBV ( <= 2.) show tfn 0050 0575 moveto tfb RV (https://standards.iso.org/iso/9241/306/ed-2/AE18/AE18F0PX.PDF) showen (https://standards.iso.org/iso/9241/306/ed-2/AG18/AG18F0PX.PDF) showde tfn TV (, flower motiv with ) showen (, Blumenmotiv mit ) showde tfr (0,5 <= ) show SV (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto TV ( <= 1.) show tfn 0050 0400 moveto tfb RV (https://standards.iso.org/iso/9241/306/ed-2/AE18/AE18F0NX.PDF) showen (https://standards.iso.org/iso/9241/306/ed-2/AG18/AG18F0NX.PDF) showde tfn TV (, flower motiv with ) showen (, Blumenmotiv mit ) showde tfr (1 <= ) show SV (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto TV ( <= 2.) show tfn 0050 0225 moveto tfn TV (and similar for the ISO series AE49, AE09, AE28 ) showen (instead of AE18, see) showen (und \344hnlich f\374r die ISO\255Serien AG49, AG09, AG28 ) showde (anstelle von AG18, siehe) showde 0050 0050 moveto tfb RV (https://standards.iso.org/iso/9241/306/ed-2/index.html) show 0 setgray (.) show } if %xchart5=0 xchart5 1 eq {%xchart5=1 0050 0750 moveto tfn TBV (Links to one test\255chart page according to ISO 9241\255306 ) showen (with 0,5 <= ) showen (Links zu einer Pr\274fvorlagenseite nach ISO 9241\255306 ) showde (mit 0,5 <= ) showde SV (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto TBV ( <= 2:) show 0050 0575 moveto tfb RV (http://farbe.li.tu-berlin.de/eec4/eec4l0np.pdf) showen (http://farbe.li.tu-berlin.de/egc4/egc4l0np.pdf) showde tfn TV (, 1080 colors including 729(9x9x9) colors.) showen (, 1080 Farben inklusive 729(9x9x9) Farben.) showde 0050 0400 moveto tfb RV (http://farbe.li.tu-berlin.de/eec6/eec6l0np.pdf) showen (http://farbe.li.tu-berlin.de/egc6/egc6l0np.pdf) showde tfn TV (, flower motiv, slide film, +0,5 stops.) showen (, Blumenmotiv, Diafilm, +0,5 Blenden.) showde 0050 0225 moveto tfb RV (http://farbe.li.tu-berlin.de/eec7/eec7l0np.pdf) showen (http://farbe.li.tu-berlin.de/egc7/egc7l0np.pdf) showde tfn TV (, flower motiv, negative film, +2 stops.) showen (, Blumenmotiv, Negativfilm, +2 Blenden.) showde 0050 0050 moveto tfn TV (see for papers: ) showen (siehe f\344r Ver\366ffentlichungen: ) showde tfb RV (https://farbe.li.tu-berlin.de/XY91FEN.html) showen (https://farbe.li.tu-berlin.de/XY91FDE.html) showde tfn (.) show 0 setgray } if %xchart5=1 showpage grestore %} for %output with langind end %%Trailer %line 259 %%EndDocument EndEPSF grestore gsave BeginEPSF 86 SHAl add MM 020 STAl add 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 %!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/fea3/fea31-1 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark14 where {pop} {userdict /pdfmark14 /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: farbe.li.tu-berlin.de/fea3/fea3.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2021080112000) /ModDate (D:20210801112000) /DOCINFO pdfmark14 [ /View [ /Fit ] /DOCVIEW pdfmark14 %END PDFDE011 % 40mm = 80*72/25.4 = 232; 232+90+13 = 335 % !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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /TX {100 /Times-ISOL1 FS} bind def /TV {120 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TG {320 /Times-ISOL1 FS} bind def /TIX {100 /TimesI-ISOL1 FS} bind def /TIV {120 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIG {320 /TimesI-ISOL1 FS} bind def /TBX {100 /TimesB-ISOL1 FS} bind def /TBV {120 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBG {320 /TimesB-ISOL1 FS} bind def /TBIX {100 /TimesBI-ISOL1 FS} bind def /TBIV {120 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIG {320 /TimesBI-ISOL1 FS} bind def /SX {100 /Symbol FS} bind def /SV {120 /Symbol FS} bind def /SL {160 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SG {320 /Symbol FS} bind def /RV {120 /Times-Roman FS} bind def /RL {160 /Times-Roman FS} bind def /RS {200 /Times-Roman FS} bind def /RK {240 /Times-Roman FS} bind def /RM {280 /Times-Roman FS} bind def /RG {320 /Times-Roman FS} bind def /RIV {120 /Times-Italic FS} bind def /RIL {160 /Times-Italic FS} bind def /RIS {200 /Times-Italic FS} bind def /RIK {240 /Times-Italic FS} bind def /RIM {280 /Times-Italic FS} bind def /RIG {320 /Times-Italic FS} bind def /RBV {120 /Times-Bold FS} bind def /RBL {160 /Times-Bold FS} bind def /RBS {200 /Times-Bold FS} bind def /RBK {240 /Times-Bold FS} bind def /RBM {280 /Times-Bold FS} bind def /RBG {320 /Times-Bold FS} bind def /RBIV {120 /Times-BoldItalic FS} bind def /RBIL {160 /Times-BoldItalic FS} bind def /RBIS {200 /Times-BoldItalic FS} bind def /RBIK {240 /Times-BoldItalic FS} bind def /RBIM {280 /Times-BoldItalic FS} bind def /RBIG {320 /Times-BoldItalic FS} bind def /tfr {1 0 0 setrgbcolor} bind def %Reproduktionsfarben /tfg {0 1 0 setrgbcolor} bind def /tfb {0 0 1 setrgbcolor} bind def /tfc {0 1 1 setrgbcolor} bind def /tfm {1 0 1 setrgbcolor} bind def /tfy {1 1 0 setrgbcolor} bind def /tfo {1 0 0 setrgbcolor} bind def %Reproduktionsfarben /tfl {0 1 0 setrgbcolor} bind def /tfv {0 0 1 setrgbcolor} bind def /tfn {0.0 setgray} bind def /tfz {0.5 setgray} bind def /tfw {1.0 setgray} bind def /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 k {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmykcolor rec stroke} bind def /cvishowr {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def /cvishow {cvi 6 string cvs show ( ) show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show ( ) show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show ( ) show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show ( ) show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show ( ) show} def /cvsshow5 {100000 mul cvi 0.00001 mul 9 string cvs show ( ) show} def /cvishow0 {cvi 6 string cvs show} def /cvsshow10 {10 mul cvi 0.1 mul 9 string cvs show} def /cvsshow20 {100 mul cvi 0.01 mul 9 string cvs show} def /cvsshow30 {1000 mul cvi 0.001 mul 9 string cvs show} def /cvsshow40 {10000 mul cvi 0.0001 mul 9 string cvs show} def /cvsshow50 {100000 mul cvi 0.00001 mul 9 string cvs show} def /cvsshow0r {10 mul 0.5 add cvi 0.1 mul 10 string cvs show} def /cvsshow1r {10 mul 0.5 add cvi 0.1 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow2r {100 mul 0.5 add cvi 0.01 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow3r {1000 mul 0.5 add cvi 0.001 mul 10 string cvs show} def %now with cvishow0 instead of cvishow /cvsshow1x {/nxx exch def %example nxx=99.1/99.0 nxx 10 mul cvi /nxi exch def %nxi=991/990 nxi 10 idiv /nxa exch def %nxa=99 nxi nxa 10 mul sub /nxb exch def %nxb=1/0 nxa cvishow0 (,) show %nxa=99 nxb cvishow0 %nxb=1/0 } def /cvsshow2x {/nxx exch def %example nxx=99.12/99,02/99,00 nxx 100 mul cvi /nxi exch def %nxi=9912/9902/00 nxi 100 idiv /nxa exch def %nxa=99 nxi nxa 100 mul sub /nxb exch def %nxb=12/02/00 nxa cvishow0 (,) show %nxb=99, nxb 10 ge {nxb cvishow0} if %nxb=12 nxb 1 ge nxb 9 le and {(0) show nxb cvishow0} if %nxb=02 nxb 0 eq {(00) show} if %nxb=00 } def /cvsshow3x {/nxx exch def %example nxx=99.123/99.012/99.001/99.000 nxx 1000 mul cvi /nxi exch def %nxi=99123/99012/99001/99000 nxi 1000 idiv /nxa exch def %nxa=99 nxi nxa 1000 mul sub /nxb exch def %nxb=123/012/001/000 nxa cvishow0 (,) show %nxb=99, nxb 100 ge {nxb cvishow0} if %nxb=123/012/001/000 nxb 10 ge nxb 99 le and {(0) show nxb cvishow0} if %nxb=012 nxb 1 ge nxb 9 le and {(00) show nxb cvishow0} if %nxb=001 nxb 0 eq {(000) show} if %nxb=000 } def %********************************************************* %%EndProlog gsave %lanindL2 START 20000505 /lanind 1 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 {3 lanind eq {show} {pop} ifelse} bind def /showfr {2 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 0 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % /jTBVN {TBV -30 -50 rmoveto (N) show 0 50 rmoveto TBL} def /jTBVW {TBV -30 -50 rmoveto (W) show 0 50 rmoveto TBL} def /jTBXN {TBX -30 -50 rmoveto (N) show 0 50 rmoveto TBL} def /jTBXW {TBX -30 -50 rmoveto (W) show 0 50 rmoveto TBL} def /jTBVNY {TBV -10 -50 rmoveto (N) show 0 50 rmoveto TBL} def /jTBVWY {TBV -10 -50 rmoveto (W) show 0 50 rmoveto TBL} def /jTBXNY {TBX -10 -50 rmoveto (N) show 0 50 rmoveto TBL} def /jTBXWY {TBX -10 -50 rmoveto (W) show 0 50 rmoveto TBL} def gsave /xchart5 1 def %0:Titel, 1:gamma test chart /xchart6 2 def %0:SDR-SDR, 1:SDR->lower contrast, 1:SDR->higher contrast /xchart7 1 def %0: no add text, %1: add text /xchart8 1 def %0: gleich gestuft 1:nicht gleich gestuft 4 /Times-ISOL1 FS 72 86 moveto (fea31-4a) show 72 90 translate 0.01 MM dup scale 20 setlinewidth 30 setlinewidth [ ] 0 setdash /yhoe 4000 def /xwidth 5400 def 1.0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath stroke /xwi 6 array def /ywi 6 array def /xli 6 array def /yli 6 array def /xmi 6 array def %mean point /ymi 6 array def /xti 6 array def %top left +xtl= 30 /yti 6 array def %top left +ytl=-100 /xtl 30 def /ytl -150 def /yd 200 def %line difference /yk 030 def % 0 3 % 1 2 4 5 %pos 0 1 2 3 4 5 /xwi [ 050 050 1850 3100 3100 4000] def /ywi [2450 1100 1100 2450 1100 1100] def /xli [1620 1620 1060 700 700 1360] def /yli [1050 1150 1150 1050 1150 1150] def 0 1 5 {/i exch def %i=0,5 xmi i xwi i get xli i get 0.5 mul add put ymi i ywi i get yli i get 0.5 mul add put xti i xwi i get xtl add put yti i ywi i get yli i get add ytl add put } for %i=0,5 %0_1_2_4_5 xmi 0 get ymi 0 get moveto xmi 1 get ymi 1 get lineto xmi 5 get ymi 5 get lineto stroke %3_4 xmi 3 get ymi 3 get moveto xmi 4 get ymi 4 get lineto stroke 1.0 setgray 0 1 5 {/i exch def %i=0,5 xwi i get ywi i get moveto xli i get 0 rlineto 0 yli i get rlineto xli i get neg 0 rlineto closepath fill } for %i=0,5 0.0 setgray 0 1 5 {/i exch def %i=0,5 xwi i get ywi i get moveto xli i get 0 rlineto 0 yli i get rlineto xli i get neg 0 rlineto closepath stroke } for %i=0,5 xchart5 0 eq {%xchart5=0 0050 3850 moveto TBL (Dynamic range conversion of images with equally spaced ) showen (Dynamische Bereichswandlung der Bilder mit gleich gestuften ) showde TBIL (rgb*) show TBL ( data) showen (\255Daten) showde 0050 3650 moveto TBL (Equally spaced visual output and lightness ) showen (Gleich gestufte visuelle Ausgabe & ) showde TBIL (L*) show TBL ( output with ) showen (\255Helligkeitsausgabe mit ) showde TBIL (GammaAdjuster) show } if %xchart5=0 020 setlinewidth 0000 3580 moveto xwidth 0 rlineto stroke xchart5 1 ge {%xchart5>=1 tfn 0050 3850 moveto TBL (Visual definition of ) showen (Visuelle Definition von ) showde tfo SL (g) show TBV 0 -30 rmoveto (rel) show 0 30 rmoveto tfn TBL ( by test\255chart output on display) showen ( durch Display\255Pr\374fvorlagenausgabe) showde 0050 3650 moveto TBL (according to ISO 9241\255306 with 16 values ) showen (nach ISO 9241\255306 mit 16 Werten ) showde tfn (0,5 <= ) show tfo SL (g) show TBV 0 -30 rmoveto (rel) show 0 30 rmoveto tfn TBL ( <= 2) show } if %xchart5>=1 %square 0 xti 0 get yti 0 get moveto TBL (raw image data (8bit)) showen (rohe Bilddaten (8bit)) showde xti 0 get yti 0 get yd 1 mul sub moveto TBL (0<= ) show TBIL (rgb ) show TBL (<=1) show TBL ( (PhotoCD)) showen ( (FotoCD)) showde xti 0 get yti 0 get yd 2 mul sub moveto TBIL (not equally spaced) showen (nicht gleich gestuft) showde xti 0 get yti 0 get yd 3 mul sub moveto TBL (search ) showen (suche ) showde xti 0 get 500 add yti 0 get yd 3 mul sub moveto TBL (0<= ) show TBIL (rgb) show jTBVNY TBL ( <=1) show TBL (,) showen xti 0 get yti 0 get yd 4 mul sub moveto TBL (and ) showen (und ) showde xti 0 get 500 add yti 0 get yd 4 mul sub moveto TBL (0<= ) show TBIL (rgb) show jTBVWY TBL ( <=1) show %square 1 xti 1 get yti 1 get moveto TBL (visual image (8bit)) showen (visuelles Bild (8bit)) showde xti 1 get yti 1 get yd 1 mul sub moveto TBL (0 <= ) show TBIL (rgb* ) show TBL (<= 1) show xti 1 get yti 1 get yd 2 mul sub moveto TBIL (equally spaced between) showen (gleich gestuft zwischen) showde xti 1 get yti 1 get yd 3 mul sub yk 1 mul add moveto TBIV (rgb*) show jTBXN TBV (=0 and ) showen (=0 und ) showde TBIV (rgb*) show jTBXW TBV (=1) showen (=1) showde xti 1 get yti 1 get yd 4 mul sub yk 2 mul add moveto TBIV (L*) show jTBXN TBV (=18 and ) showen (=18 und ) showde TBIV (L*) show jTBXW TBV (=95) showen (=95) showde xti 1 get xli 1 get 0.2 mul add yti 1 get yd 5 mul sub yk 3 mul add moveto 1 0 0 setrgbcolor SV (D) show TBIV ((rgb*)) show TBV (=1/15) show TBV (, ) show SV (D) show TBIV (L*) show TBV (=5) show 0 setgray %square 2 xti 2 get 30 sub yti 2 get 900 add moveto TBL (16 grey steps) showen (16 Graustufen) showde xti 2 get 30 sub yti 2 get 700 add moveto TBL (ISO/IEC 15775) show xti 2 get 30 sub yti 2 get 500 add moveto TBL (ISO 9241\255306) show xti 2 get 30 sub yti 2 get 300 add moveto TBL (standard range) showen (Normbereich) showde xti 2 get yti 2 get moveto TBL (Baseline image) showen (Baseline\255Bild) showde xti 2 get yti 2 get yd 1 mul sub moveto TBL (0 <= ) show TBIL (rgb* ) show TBL (<= 1) show xti 2 get yti 2 get yd 2 mul sub moveto TBIL (equally spaced) showen (gleich gestuft) showde xti 2 get yti 2 get yd 3 mul sub yk 1 mul add moveto TBIV (rgb*) show jTBXN TBV (=0, ) show TBIV (L*) show jTBXN TBV (=18) show xti 2 get yti 2 get yd 4 mul sub yk 2 mul add moveto TBIV (rgb*) show jTBXW TBV (=1, ) show TBIV (L*) show jTBXW TBV (=95) show xti 2 get xli 2 get 0.2 mul add yti 2 get yd 5 mul sub yk 3 mul add moveto 1 0 0 setrgbcolor SV (D) show TBIV (L*) show TBV (=5) show 0 setgray %square 3 xti 3 get yti 3 get moveto TBIL (Gamma) show xti 3 get yti 3 get yd 1 mul sub moveto TBIL (Adjuster) show xti 3 get yti 3 get yd 2 mul sub moveto TBIL ((rgb*)) show 1 0 0 setrgbcolor SV 0 80 rmoveto (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto 0 -80 rmoveto xti 3 get yti 3 get yd 3 mul sub moveto SL (g) show TV 0 -30 rmoveto (rel) show 10 30 rmoveto TL (=) show 10 0 rmoveto SL (g) show 20 0 rmoveto TL (/) show 10 0 rmoveto (2,4) show xti 3 get yti 3 get yd 4 mul sub moveto TV (1,2<=) show SV (g) show TV (<=4,8) show 0 setgray %square 4 xti 4 get 20 add yti 4 get yd 1 mul sub moveto TBL ( apply) showen (anwende) showde xti 4 get 200 add yti 4 get yd 2 mul sub moveto 1 0 0 setrgbcolor SL (g) show TV 0 -30 rmoveto (rel) show 0 30 rmoveto 0 setgray xti 4 get yti 4 get yd 3 mul sub moveto SL (g) show TV 0 -30 rmoveto (rel,i) show 0 30 rmoveto TL (=1) show -20 0 rmoveto (/) show SL (g) show TV 0 -30 rmoveto (rel) show 0 30 rmoveto xti 4 get 050 add yti 4 get yd 4 mul sub moveto TL (i=invers) show %square 5 TBL xti 5 get yti 5 get 500 add moveto xchart6 1 le {(SDR display) showen (SDR\255Display) showde} if xchart6 2 eq {(HDR display) showen (HDR\255Display) showde} if xti 5 get yti 5 get 300 add moveto xchart6 1 le {(SDR range) showen (SDR\255Bereich) showde} if xchart6 2 eq {(HDR range) showen (HDR\255Bereich) showde} if xti 5 get yti 5 get moveto TBL (Alternate image) showen (Alternate\255Bild) showde xti 5 get yti 5 get yd 1 mul sub moveto TBL (0 <= ) show TBIL ((rgb*)) show tfo SV 0 80 rmoveto (g) show TBX 0 -30 rmoveto (rel,i) show 0 30 rmoveto TBL 0 -80 rmoveto tfn TBL ( <= 1) show xti 5 get yti 5 get yd 2 mul sub moveto xchart8 0 eq {%xchart8=0 TBIL (equally spaced) showen (gleich gestuft) showde } if xchart8 1 eq {%xchart8=1 TBIL (not equally spaced) showen (nicht gleich gestuft) showde } if xti 5 get yti 5 get yd 3 mul sub yk 1 mul add moveto TBIV (rgb*) show jTBXN TBV (=0, ) show TBIV (L*) show jTBXN TBV xchart6 0 eq {(=18, ) show} if xchart6 1 eq {(=36, ) show} if xchart6 2 eq {(=10? ) show} if xchart6 1 le {TBIV (Y) show jTBXNY} if TBV xchart6 0 eq {(=2,5) show} if xchart6 1 eq {(=9) show} if %xchart6 2 eq {(=1,8?) show} if xti 5 get yti 5 get yd 4 mul sub yk 2 mul add moveto TBIV (rgb*) show jTBXW TBV (=1, ) show TBIV (L*) show jTBXW TBV xchart6 0 eq {(=95, ) show} if xchart6 1 eq {(=88, ) show} if xchart6 2 eq {(=160? ) show} if xchart6 1 le {TBIV (Y) show jTBXWY} if TBV xchart6 0 eq {(=90) show} if xchart6 1 eq {(=71) show} if %xchart6 2 eq {(=360?) show} if xti 5 get xli 5 get 0.0 mul add yti 5 get yd 5 mul sub yk 3 mul add moveto 1 0 0 setrgbcolor SV (D) show TBIV (L*) show xchart6 0 eq {TBV (=5, ) show tfo SV (g) show TBX 0 -30 rmoveto (rel) show 0 30 rmoveto TBV (=1,0, ) show tfo SV (g) show TBX 0 -30 rmoveto (rel,i) show 0 30 rmoveto TBV (=1,0) show} if xchart6 1 eq {TBV (=3, ) show tfo SV (g) show TBX 0 -30 rmoveto (rel) show 0 30 rmoveto TBV (=0,8, ) show TBX 0 -30 rmoveto (rel,i) show 0 30 rmoveto TBV (=1,3) show} if xchart6 2 eq {TBV (=10 ) show tfo SV (g) show TBX 0 -30 rmoveto (rel) show 0 30 rmoveto TBV (=1,3, ) show TBX 0 -30 rmoveto (rel,i) show 0 30 rmoveto TBV (=0,8) show} if %1 0 0 setrgbcolor % 0 3 % 1 2 4 5 0 setgray /txh 100 def /tyh 100 def xmi 1 get ymi 1 get yli 1 get 0.5 mul add tyh add 35 sub moveto %-100 0 rlineto 200 0 rlineto stroke -50 100 rlineto 50 -100 rlineto 50 100 rlineto stroke xmi 4 get ymi 4 get yli 4 get 0.5 mul add tyh add 35 sub moveto %-100 0 rlineto 200 0 rlineto stroke -50 100 rlineto 50 -100 rlineto 50 100 rlineto stroke xmi 1 get xli 1 get 0.5 mul add txh add 30 add ymi 1 get moveto %0 -100 rlineto 0 200 rlineto stroke -100 50 rmoveto 100 -50 rlineto -100 -50 rlineto stroke xmi 2 get xli 2 get 0.5 mul add txh add 30 add ymi 1 get moveto %0 -100 rlineto 0 200 rlineto stroke -100 50 rmoveto 100 -50 rlineto -100 -50 rlineto stroke xmi 4 get xli 4 get 0.5 mul add txh add 30 add ymi 1 get moveto %0 -100 rlineto 0 200 rlineto stroke -100 50 rmoveto 100 -50 rlineto -100 -50 rlineto stroke tfn 0050 0925 moveto TBV (Determine visually the value of ) showen (Bestimme visuell den Wert von ) showde tfr SV (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto tfn TBV ( in the range ) showen ( im Bereich ) showde tfr TBV (0,5 <= ) show SV (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto TBV ( <= 2 ) show tfn tfn TBV (with the following two test charts.) showen (mit folgenden zwei Pr\374fvorlagen.) showde xchart5 0 eq {%xchart5=0 tfn 0050 0750 moveto TBV (Links to 16 test\255chart pages according to ISO 9241\255306 ) showen (with ) showen (Links zu 16 Pr\374fvorlagenseiten nach ISO 9241\255306 mit ) showde tfr (0,5 <= ) show SV (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto TBV ( <= 2.) show tfn 0050 0575 moveto tfb RV (https://standards.iso.org/iso/9241/306/ed-2/AE18/AE18F0PX.PDF) showen (https://standards.iso.org/iso/9241/306/ed-2/AG18/AG18F0PX.PDF) showde tfn TV (, flower motiv with ) showen (, Blumenmotiv mit ) showde tfr (0,5 <= ) show SV (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto TV ( <= 1.) show tfn 0050 0400 moveto tfb RV (https://standards.iso.org/iso/9241/306/ed-2/AE18/AE18F0NX.PDF) showen (https://standards.iso.org/iso/9241/306/ed-2/AG18/AG18F0NX.PDF) showde tfn TV (, flower motiv with ) showen (, Blumenmotiv mit ) showde tfr (1 <= ) show SV (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto TV ( <= 2.) show tfn 0050 0225 moveto tfn TV (and similar for the ISO series AE49, AE09, AE28 ) showen (instead of AE18, see) showen (und \344hnlich f\374r die ISO\255Serien AG49, AG09, AG28 ) showde (anstelle von AG18, siehe) showde 0050 0050 moveto tfb RV (https://standards.iso.org/iso/9241/306/ed-2/index.html) show 0 setgray (.) show } if %xchart5=0 xchart5 1 eq {%xchart5=1 0050 0750 moveto tfn TBV (Links to one test\255chart page according to ISO 9241\255306 ) showen (with 0,5 <= ) showen (Links zu einer Pr\274fvorlagenseite nach ISO 9241\255306 ) showde (mit 0,5 <= ) showde SV (g) show TX 0 -30 rmoveto (rel) show 0 30 rmoveto TBV ( <= 2:) show 0050 0575 moveto tfb RV (http://farbe.li.tu-berlin.de/eec4/eec4l0np.pdf) showen (http://farbe.li.tu-berlin.de/egc4/egc4l0np.pdf) showde tfn TV (, 1080 colors including 729(9x9x9) colors.) showen (, 1080 Farben inklusive 729(9x9x9) Farben.) showde 0050 0400 moveto tfb RV (http://farbe.li.tu-berlin.de/eec6/eec6l0np.pdf) showen (http://farbe.li.tu-berlin.de/egc6/egc6l0np.pdf) showde tfn TV (, flower motiv, slide film, +0,5 stops.) showen (, Blumenmotiv, Diafilm, +0,5 Blenden.) showde 0050 0225 moveto tfb RV (http://farbe.li.tu-berlin.de/eec7/eec7l0np.pdf) showen (http://farbe.li.tu-berlin.de/egc7/egc7l0np.pdf) showde tfn TV (, flower motiv, negative film, +2 stops.) showen (, Blumenmotiv, Negativfilm, +2 Blenden.) showde 0050 0050 moveto tfn TV (see for papers: ) showen (siehe f\344r Ver\366ffentlichungen: ) showde tfb RV (https://farbe.li.tu-berlin.de/XY91FEN.html) showen (https://farbe.li.tu-berlin.de/XY91FDE.html) showde tfn (.) show 0 setgray } if %xchart5=1 showpage grestore %} for %output with langind end %%Trailer %line 269 %%EndDocument EndEPSF grestore gsave showpage grestore %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 06 MM sub SHAr add 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 24 %line 459 %!PS-Adobe-3.0 EPSF-3.0 fea31-4N %%BoundingBox: 70 85 246 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave /ioutx 0 def ioutx 1 eq {%ioutx=1 4 /Times-Roman FS 72 86 moveto (fea31-4N) show 72 90 translate 0.01 MM dup scale 20 setlinewidth /xwidth 6100 def /ywidth 4000 def 1 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath stroke } if %ioutx=1 grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 06 MM sub SHSr sub 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 25 %line 469 %!PS-Adobe-3.0 EPSF-3.0 fea31-5N %%BoundingBox: 70 85 246 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave /ioutx 0 def ioutx 1 eq {%ioutx=1 4 /Times-Roman FS 72 86 moveto (fea31-5N) show 72 90 translate 0.01 MM dup scale 20 setlinewidth /xwidth 6100 def /ywidth 4000 def 1 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath stroke } if %ioutx=1 grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 06 MM sub SHAr add 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 26 %line 479 %!PS-Adobe-3.0 EPSF-3.0 fea31-6N %%BoundingBox: 70 85 246 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave /ioutx 0 def ioutx 1 eq {%ioutx=1 4 /Times-Roman FS 72 86 moveto (fea31-6N) show 72 90 translate 0.01 MM dup scale 20 setlinewidth /xwidth 6100 def /ywidth 4000 def 1 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath stroke } if %ioutx=1 grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 06 MM sub SHSr sub 020 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 27 %line 489 %!PS-Adobe-3.0 EPSF-3.0 fea31-7n_54 %%BoundingBox: 70 85 387 335 %START PDFDE011.EPS /pdfmark17 where {pop} {userdict /pdfmark17 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [/Title (PostScript pictures: farbe.li.tu-berlin.de/fea3/fea3.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2023080112000) /ModDate (D:2023080112000) /DOCINFO pdfmark17 [ /View [ /Fit ] /DOCVIEW pdfmark17 %END PDFDE011 %line 20****************************************************** /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 % End for EPS file 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 /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Oblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierI-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /Courier-BoldOblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierBI-ISOL1 exch definefont pop /TG {350 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TV {110 /Times-ISOL1 FS} bind def /TW {080 /Times-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TIV {110 /TimesI-ISOL1 FS} bind def /TIW {080 /TimesI-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBV {110 /TimesB-ISOL1 FS} bind def /TBW {080 /TimesB-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /TBIV {110 /TimesBI-ISOL1 FS} bind def /TBIW {080 /TimesBI-ISOL1 FS} bind def /SG {350 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SL {160 /Symbol FS} bind def /SV {110 /Symbol FS} bind def /SW {080 /Symbol FS} bind def %***************************************************************** %%EndProlog gsave %lanindL2.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 /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 0 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % gsave /cvishow0 {cvi 6 string cvs show} def /kchartl 1 def %0:left page, 1:right page /pchartl 1 def %0:top page, 4:down page %not used 72 90 translate 0.010 MM dup scale 40 setlinewidth /ymax1 08550 def /xmax1 11050 def %2x5400+250=11050 1.0 setgray 0 0 moveto xmax1 0 rlineto 0 ymax1 rlineto xmax1 neg 0 rlineto closepath fill 0 setgray 0 0 moveto xmax1 0 rlineto 0 ymax1 rlineto xmax1 neg 0 rlineto closepath stroke TK 0 setgray 150 /Times-ISOL1 FS 150 -140 moveto kchartl 0 eq {(fea30-) show} {(fea31-) show} ifelse pchartl 0 eq {(3n) show} {(7n) show} ifelse grestore gsave %00 %01 %02 /SHSl 00.0 def /SHAl -3.0 def /STSl 13.0 def /STAl 14.5 def BeginEPSF 28 SHSl sub MM 064 STSl add 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 fea31-5a.EPS %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark15 where {pop} {userdict /pdfmark15 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript Pictures: http://farbe.li.tu-berlin.de/fea3/fea3.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2023110112000) /ModDate (D:20231101112000) /DOCINFO pdfmark15 [ /View [ /FitB ] /DOCVIEW pdfmark15 %END PDFDE011 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /A4querL {598 0 translate 90 rotate} def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /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 {315 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def %*********************************************************** /nshow {300 /Times-ISOL1 FS show} bind def /kshow {300 /TimesI-ISOL1 FS show} bind def /bshow {300 /TimesB-ISOL1 FS show} bind def /jshow {300 /TimesBI-ISOL1 FS show} bind def /sshow {300 /Symbol FS show} bind def /ishow {220 /Times-ISOL1 FS -00 -50 rmoveto show 00 50 rmoveto} bind def /eshow {220 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto} bind def /cvishow {0.5 add cvi 6 string cvs show} def /cvsshow1 {0.05 add 10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {0.005 add 100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show} def %%EndProlog gsave /lanind 0 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 /showea {1 lanind le {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /lanind1 01 def /lanind2 01 def /lanindd 01 def /colorm1 00 def /colorm2 00 def /colormd 01 def /deintp1 00 def /deintp2 00 def /deintpd 01 def /xcolor1 03 def /xcolor2 03 def /xcolord 01 def /xchart1 00 def /xchart2 00 def /xchartd 01 def /pchart1 00 def /pchart2 00 def /pchartd 01 def /colsep1 00 def /colsep2 00 def /colsepd 01 def /pmetam1 00 def /pmetam2 00 def /pmetamd 01 def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} if /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} if /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} if /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} if /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchartmf def} {/xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 1 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def /pchartm pchartmf def} {/pchartm 1 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} if /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} if /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES where {pop %/IMES IMES def } {/IMES 0 def} ifelse /colorml 1 def %0 1 1 {/colorml exch def %colorml=0,1 /xcolorl xcolor def %0 1 3 {/xcolorl exch def %xcolorl=0,3 /xchartl 1 def %1 2 7 {/xchartl exch def %xchartl=0,7 /pchartl pchart def 2 2 2 {/pchartl exch def %pchartl=0,2 colorml 0 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if colorml 0 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if colorml 1 eq deintp 0 eq and {/Txx (*dd) def /Fxx (*d) def} if colorml 1 eq deintp 1 eq and {/Txx (*de) def /Fxx (*e) def} if %xchart 0 eq {/Txx (-) def /Fxx (-) def} if gsave xcolorl 0 eq {/tfnx* {0 0 0 1 setcmykcolor} def /tfwx* {0 0 0 0 setcmykcolor} def /colrecfix* {setcmykcolor rec fill} bind def /colrecstx* {setcmykcolor rec stroke} bind def } if xcolorl 1 eq {/tfnx* {0 setgray} def /tfwx* {1 setgray} def /colrecfix* {setgray rec fill} bind def /colrecstx* {setgray rec stroke} bind def } if xcolorl 2 eq {/tfnx* {1 1 1 0 setcmykcolor} def /tfwx* {0 0 0 0 setcmykcolor} def /colrecfix* {setcmykcolor rec fill} bind def /colrecstx* {setcmykcolor rec stroke} bind def } if xcolorl 3 eq {/tfnx* {0 0 0 setrgbcolor} def /tfwx* {1 1 1 setrgbcolor} def /colrecfix* {setrgbcolor rec fill} bind def /colrecstx* {setrgbcolor rec stroke} bind def } if pchartl 1 eq {%pchartl=1 /iout 3 def %iout=0_2:CMY, iout=3-5: OLV /ioutT [(W) (N) (Z) (W) (N) (Z)] def /ioutE [(White) (Black) (Grey) (White) (Black) (Grey)] def /ioutG [(Wei\337) (Schwarz) (Grau) (Wei\337) (Schwarz) (Grau)] def /nshow {iyt /Times-ISOL1 FS show} def /nishow {-30 -50 rmoveto iyt 50 sub /Times-ISOL1 FS show 30 50 rmoveto} def /nishow0 {-30 -50 rmoveto iyt 50 sub /Times-ISOL1 FS show 00 50 rmoveto} def /nishowx {-00 -30 rmoveto iyt 50 sub /Times-ISOL1 FS show 00 30 rmoveto} def /kshow {iyt /TimesI-ISOL1 FS show} def /bshow {iyt /TimesB-ISOL1 FS show} def /jshow {iyt /TimesBI-ISOL1 FS show} def /ishow {-30 -50 rmoveto iyt 50 sub /TimesB-ISOL1 FS show 30 50 rmoveto} def /ishow0 {-30 -50 rmoveto iyt 50 sub /TimesB-ISOL1 FS show 00 50 rmoveto} def /eshow { 00 110 rmoveto iyt 50 sub /TimesB-ISOL1 FS show 00 -110 rmoveto} def /neshow { 00 110 rmoveto iyt 50 sub /Times-ISOL1 FS show 00 -110 rmoveto} def /neshowx { 00 70 rmoveto iyt 50 sub /Times-ISOL1 FS show 00 -70 rmoveto} def /showde {0 lanind eq {nshow} {pop} ifelse} bind def /showen {1 lanind eq {nshow} {pop} ifelse} bind def /nishowde {0 lanind eq {nishow} {pop} ifelse} bind def /nishowen {1 lanind eq {nishow} {pop} ifelse} bind def /kshowde {0 lanind eq {kshow} {pop} ifelse} bind def /kshowen {1 lanind eq {kshow} {pop} ifelse} bind def /bshowde {0 lanind eq {bshow} {pop} ifelse} bind def /bshowen {1 lanind eq {bshow} {pop} ifelse} bind def /jshowde {0 lanind eq {jshow} {pop} ifelse} bind def /jshowen {1 lanind eq {jshow} {pop} ifelse} bind def /ishowde {0 lanind eq {ishow} {pop} ifelse} bind def /ishowen {1 lanind eq {ishow} {pop} ifelse} bind def /sshowde {0 lanind eq {sshow} {pop} ifelse} bind def /sshowen {1 lanind eq {sshow} {pop} ifelse} bind def /cvishow {cvi 6 string cvs show} def 72 90 translate 0.02 0.5 mul MM dup scale 15 setlinewidth /iyt 130 def %text size, line difference TM 0 setgray 0 -120 moveto %(Part 1) showen (Teil 1) showde %4500 -120 moveto (fea30-3A) show %(\255) show colorml cvishow xcolorl cvishow %pchartd 1 eq {xchartl cvishow} % {xchartl xchartd idiv cvishow} ifelse %(\255) show pchartl cvishow %(: ) show 1 setgray 0 0 moveto 6000 0 rlineto 0 4200 rlineto -6000 0 rlineto closepath fill 0 setgray 0 0 moveto 6000 0 rlineto 0 4200 rlineto -6000 0 rlineto closepath stroke /ix1 50 def %1 /ix2 1600 def %2 /ix3 5100 def %3 /ix21 2600 def %W-R /ix22 3300 def %W-G /ix23 4000 def %W-B /ix24 4700 def %W-N /ix25 5700 def %W-Z /iyd 145 def %line difference /ix20 0020 def %Text and colour W-O etc. /ix21 1500 def %Question /ix22 4000 def %of 16 steps /ix23 5200 def %Yes/No /iyt2 4080 def %Recognition frequency = 2x top + 8 lines /iy02 iyt2 iyd 0.0 mul sub def %RF /iy12 iyt2 iyd 1.0 mul sub def /iy22 iyt2 iyd 2.1 mul sub def %W-O /iy32 iyt2 iyd 3.1 mul sub def /iy42 iyt2 iyd 4.2 mul sub def %W-L /iy52 iyt2 iyd 5.2 mul sub def /iy62 iyt2 iyd 6.3 mul sub def %W-V /iy72 iyt2 iyd 7.3 mul sub def /iy82 iyt2 iyd 8.4 mul sub def %W-N /iy92 iyt2 iyd 9.4 mul sub def ix20 iy02 moveto (Test of 16 visually equally spaced steps of the colour rows ) bshowen (Pr\374fung der 16 visuell gleichabst\344ndigen Buntstufen der Farbreihen ) bshowde iout 2 le {ioutT iout get jshow (-C) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-M) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-Y) jshow (d) nishowx} {ioutT iout get jshow (-R) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-G) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-B) jshow (d) nishowx} ifelse (, and ) bshowen ( und ) bshowde (W-N ) jshow ix20 iy12 moveto (according to Picture ) bshowen (nach Bild ) bshowde iout 2 le {(B4) bshow}{(D4) bshow} ifelse ioutT iout get bshow Txx show ix20 iy22 moveto iout 2 le {ioutT iout get jshow (-C) jshow (d ) nishowx ioutE iout get showen ( - Cyanblue:) showen ioutG iout get showde ( - Cyanblau:) showde} {ioutT iout get jshow (-R) jshow (d ) nishowx ioutE iout get showen ( - Orangered:) showen ioutG iout get showde ( - Orangerot:) showde} ifelse ix21 iy22 moveto (Are all the 16 steps distinguishable?) showen (Sind alle Stufen unterscheidbar?) showde ix22 iy22 moveto () showen ix23 iy22 moveto (Yes/No) bshowen (Ja/Nein) bshowde ix20 iy32 moveto () showen ix21 iy32 moveto (If No: How many steps can be distinguished?) showen (Falls Nein: Wieviel Stufen sind unterscheidbar?) showde ix22 iy32 moveto (of the given 16 steps) showen (von 16 Stufen sind es:) showde ix23 iy32 moveto (............ Steps) showen (............ Stufen) showde ix20 iy42 moveto iout 2 le {ioutT iout get jshow (-M) jshow (d ) nishowx ioutE iout get showen ( - Magentared:) showen ioutG iout get showde ( - Magentarot:) showde} {ioutT iout get jshow (-G) jshow (d ) nishowx ioutE iout get showen ( - Leafgreen:) showen ioutG iout get showde ( - Laubgr\374n:) showde} ifelse ix21 iy42 moveto (Are all the 16 steps distinguishable?) showen (Sind alle Stufen unterscheidbar?) showde ix22 iy42 moveto () showen ix23 iy42 moveto (Yes/No) bshowen (Ja/Nein) bshowde ix20 iy52 moveto () showen ix21 iy52 moveto (If No: How many steps can be distinguished?) showen (Falls Nein: Wieviel Stufen sind unterscheidbar?) showde ix22 iy52 moveto (of the given 16 steps) showen (von 16 Stufen sind es:) showde ix23 iy52 moveto (............ Steps) showen (............ Stufen) showde ix20 iy62 moveto iout 2 le {ioutT iout get jshow (-Y) jshow (d) nishowx ioutE iout get showen ( - Yellow:) showen ioutG iout get showde ( - Gelb:) showde} {ioutT iout get jshow (-B) jshow (d) nishowx ioutE iout get showen ( - Violetblue:) showen ioutG iout get showde ( - Violetblau:) showde} ifelse ix21 iy62 moveto (Are all the 16 steps distinguishable?) showen (Sind alle Stufen unterscheidbar?) showde ix22 iy62 moveto () showen ix23 iy62 moveto (Yes/No) bshowen (Ja/Nein) bshowde ix20 iy72 moveto () showen ix21 iy72 moveto (If No: How many steps can be distinguished?) showen (Falls Nein: Wieviel Stufen sind unterscheidbar?) showde ix22 iy72 moveto (of the given 16 steps) showen (von 16 Stufen sind es:) showde ix23 iy72 moveto (............ Steps) showen (............ Stufen) showde ix20 iy82 moveto (W-N ) jshow (White - Black:) showen (Wei\337 - Schwarz:) showde ix21 iy82 moveto (Are all the 16 steps distinguishable?) showen (Sind alle Stufen unterscheidbar?) showde ix22 iy82 moveto () showen ix23 iy82 moveto (Yes/No) bshowen (Ja/Nein) bshowde ix20 iy92 moveto () showen ix21 iy92 moveto (If No: How many steps can be distinguished?) showen (Falls Nein: Wieviel Stufen sind unterscheidbar?) showde ix22 iy92 moveto (of the given 16 steps) showen (von 16 Stufen sind es:) showde ix23 iy92 moveto (............ Steps) showen (............ Stufen) showde %******************************************** /ix30 0020 def %Question /ix31 0200 def %LR size /ix32 1200 def %letters /ix33 2000 def %Ring N /ix34 3000 def %Ring O /ix35 4000 def %Ring L /ix36 5000 def %Ring V /iyt3 2550 def %Tests of characters = 2x top + 5 lines /iy13 iyt3 iyd 0.0 mul sub def %TC /iy23 iyt3 iyd 1.0 mul sub def /iy33 iyt3 iyd 2.1 mul sub def %Relative size /iy43 iyt3 iyd 3.1 mul sub def %10 /iy53 iyt3 iyd 4.1 mul sub def %08 /iy63 iyt3 iyd 5.1 mul sub def %06 /iy73 iyt3 iyd 6.1 mul sub def %04 ix30 iy13 moveto (Test of characters and Landolt\255rings in four sizes ) bshowen (Pr\374fung von Schrift und Landoltringen in vier Gr\366\337en ) bshowde (according to Picture ) bshowen (nach Bild ) bshowde iout 2 le {(B5) bshow} {(D5) bshow} ifelse ioutT iout get bshow Txx show ix30 iy23 moveto (Is the recognition frequency > 50% for letters ) showen (Ist die Erkennungsh\344ufigkeit > 50% f\374r Schriftzeichen ) showde ((17 from 32 at least) and for Landolt-rings (minimum 5 of 8)?) showen ((min. 17 von 32) und f\374r Landoltringe (min. 5 von 8)?) showde ix31 iy33 moveto (Relative size) showen (Relative Gr\366\337e) showde ix32 iy33 moveto (Letters) showen (Schriftzeichen) showde ix33 iy33 moveto (Ring ) showen (Ringe ) showde (N) jshow ix34 iy33 moveto (Ring ) showen (Ringe ) showde iout 2 le {(C) jshow (d) nishowx} {(R) jshow (d) nishowx} ifelse ix35 iy33 moveto (Ring ) showen (Ringe ) showde iout 2 le {(M) jshow (d) nishowx} {(G) jshow (d) nishowx} ifelse ix36 iy33 moveto (Ring ) showen (Ringe ) showde iout 2 le {(Y) jshow (d) nishowx} {(B) jshow (d) nishowx} ifelse ix31 iy43 moveto (10) nshow ix32 iy43 moveto (Yes/No) showen (Ja/Nein) showde ix33 iy43 moveto (Yes/No) showen (Ja/Nein) showde ix34 iy43 moveto (Yes/No) showen (Ja/Nein) showde ix35 iy43 moveto (Yes/No) showen (Ja/Nein) showde ix36 iy43 moveto (Yes/No) showen (Ja/Nein) showde ix31 iy53 moveto ( 8) nshow ix32 iy53 moveto (Yes/No) showen (Ja/Nein) showde ix33 iy53 moveto (Yes/No) showen (Ja/Nein) showde ix34 iy53 moveto (Yes/No) showen (Ja/Nein) showde ix35 iy53 moveto (Yes/No) showen (Ja/Nein) showde ix36 iy53 moveto (Yes/No) showen (Ja/Nein) showde ix31 iy63 moveto ( 6) nshow ix32 iy63 moveto (Yes/No) showen (Ja/Nein) showde ix33 iy63 moveto (Yes/No) showen (Ja/Nein) showde ix34 iy63 moveto (Yes/No) showen (Ja/Nein) showde ix35 iy63 moveto (Yes/No) showen (Ja/Nein) showde ix36 iy63 moveto (Yes/No) showen (Ja/Nein) showde ix31 iy73 moveto ( 4) nshow ix32 iy73 moveto (Yes/No) showen (Ja/Nein) showde ix33 iy73 moveto (Yes/No) showen (Ja/Nein) showde ix34 iy73 moveto (Yes/No) showen (Ja/Nein) showde ix35 iy73 moveto (Yes/No) showen (Ja/Nein) showde ix36 iy73 moveto (Yes/No) showen (Ja/Nein) showde %*************************************************** /ix40 0020 def %Question /ix41 0100 def %CR W-O /ix42 0900 def %Y/N /ix43 1600 def %CR W-L /ix44 2400 def %Y/N /ix45 3100 def %CR W-V /ix46 3900 def %Y/N /ix47 4600 def %CR W-N /ix48 5400 def %Y/N /iyt4 1500 def %Recognition frequency = 2x top + 8 lines /iy04 iyt4 iyd 0.0 mul sub def %RF /iy140 iyt4 iyd 1.0 mul sub def /iy141 iyt4 iyd 2.0 mul sub def /iy24 iyt4 iyd 3.1 mul sub def %CR /iy34 iyt4 iyd 4.1 mul sub def %BR /iy44 iyt4 iyd 5.1 mul sub def %0-1 /iy54 iyt4 iyd 6.1 mul sub def %7-8 /iy64 iyt4 iyd 7.1 mul sub def %E-F /iy74 iyt4 iyd 8.1 mul sub def %2-0 /iy84 iyt4 iyd 9.1 mul sub def %8-6 /iy94 iyt4 iyd 10.1 mul sub def %F-D ix40 iy04 moveto (Test of recognition frequency of Landolt\255rings ) bshowen (Pr\374fung der Erkennungsh\344ufigkeit der Landoltringe ) showde iout 2 le {ioutT iout get jshow (-C) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-M) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-Y) jshow (d) nishowx} {ioutT iout get jshow (-R) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-G) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-B) jshow (d) nishowx} ifelse (, and ) bshowen ( und ) bshowde (W-N ) jshow ix40 iy140 moveto (according to Pictures ) bshowen (nach Bildern ) showde iout 2 le {(B6) bshow} {(D6) bshow} ifelse ioutT iout get bshow Txx show (, and ) bshowen ( und ) bshowde iout 2 le {(B7) bshow} {(D7) bshow} ifelse ioutT iout get bshow Txx show ix40 iy141 moveto (Is the recognition frequency of the Landolt\255rings ) showen (> 50% (min. 5 of 8 at least)?) showen (Ist die Erkennungsh\344ufigkeit der Landoltringe ) showde (> 50% (min. 5 von 8)?) showde ix41 iy24 moveto (Colour row ) showen (Farbreihe ) showde iout 2 le {ioutT iout get jshow (-C) jshow (d) nishowx} {ioutT iout get jshow (-R) jshow (d) nishowx} ifelse ix43 iy24 moveto (Colour row ) showen (Farbreihe ) showde iout 2 le {ioutT iout get jshow (-M) jshow (d) nishowx} {ioutT iout get jshow (-G) jshow (d) nishowx} ifelse ix45 iy24 moveto (Colour row ) showen (Farbreihe ) showde iout 2 le {ioutT iout get jshow (-Y) jshow (d) nishowx} {ioutT iout get jshow (-B) jshow (d) nishowx} ifelse ix47 iy24 moveto (Colour row ) showen (Farbreihe ) showde (W-N) jshow ix41 iy34 moveto (background - ring) showen (Umfeld - Ring) showde ix43 iy34 moveto (background - ring) showen (Umfeld - Ring) showde ix45 iy34 moveto (background - ring) showen (Umfeld - Ring) showde ix47 iy34 moveto (background - ring) showen (Umfeld - Ring) showde ix41 iy44 moveto (0 - 1) showen ix42 iy44 moveto (Yes/No) showen (Ja/Nein) showde ix43 iy44 moveto (0 - 1) showen ix44 iy44 moveto (Yes/No) showen (Ja/Nein) showde ix45 iy44 moveto (0 - 1) showen ix46 iy44 moveto (Yes/No) showen (Ja/Nein) showde ix47 iy44 moveto (0 - 1) showen ix48 iy44 moveto (Yes/No) showen (Ja/Nein) showde ix41 iy54 moveto (7 - 8) showen ix42 iy54 moveto (Yes/No) showen (Ja/Nein) showde ix43 iy54 moveto (7 - 8) showen ix44 iy54 moveto (Yes/No) showen (Ja/Nein) showde ix45 iy54 moveto (7 - 8) showen ix46 iy54 moveto (Yes/No) showen (Ja/Nein) showde ix47 iy54 moveto (7 - 8) showen ix48 iy54 moveto (Yes/No) showen (Ja/Nein) showde ix41 iy64 moveto (E - F) showen ix42 iy64 moveto (Yes/No) showen (Ja/Nein) showde ix43 iy64 moveto (E - F) showen ix44 iy64 moveto (Yes/No) showen (Ja/Nein) showde ix45 iy64 moveto (E - F) showen ix46 iy64 moveto (Yes/No) showen (Ja/Nein) showde ix47 iy64 moveto (E - F) showen ix48 iy64 moveto (Yes/No) showen (Ja/Nein) showde ix41 iy74 moveto (2 - 0) showen ix42 iy74 moveto (Yes/No) showen (Ja/Nein) showde ix43 iy74 moveto (2 - 0) showen ix44 iy74 moveto (Yes/No) showen (Ja/Nein) showde ix45 iy74 moveto (2 - 0) showen ix46 iy74 moveto (Yes/No) showen (Ja/Nein) showde ix47 iy74 moveto (2 - 0) showen ix48 iy74 moveto (Yes/No) showen (Ja/Nein) showde ix41 iy84 moveto (8 - 6) showen ix42 iy84 moveto (Yes/No) showen (Ja/Nein) showde ix43 iy84 moveto (8 - 6) showen ix44 iy84 moveto (Yes/No) showen (Ja/Nein) showde ix45 iy84 moveto (8 - 6) showen ix46 iy84 moveto (Yes/No) showen (Ja/Nein) showde ix47 iy84 moveto (8 - 6) showen ix48 iy84 moveto (Yes/No) showen (Ja/Nein) showde ix41 iy94 moveto (F - D) showen ix42 iy94 moveto (Yes/No) showen (Ja/Nein) showde ix43 iy94 moveto (F - D) showen ix44 iy94 moveto (Yes/No) showen (Ja/Nein) showde ix45 iy94 moveto (F - D) showen ix46 iy94 moveto (Yes/No) showen (Ja/Nein) showde ix47 iy94 moveto (F - D) showen ix48 iy94 moveto (Yes/No) showen } if %pchartl=1 pchartl 2 eq {%pchart=2 /CMeasSxl (Measure unknown) def /CDeviceSxl (Device unknown) def /CDateSxl (Date unknown) def /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def colorml 0 eq {/ilx 0 def } {%colorml=1 xchartl xchartd idiv 2 le {/ilx xchartl def} if xchartl xchartd idiv 3 eq {/ilx 4 def} if xchartl xchartd idiv 4 eq {/ilx 8 def} if xchartl xchartd idiv 5 eq {/ilx 16 def} if xchartl xchartd idiv 6 eq {/ilx 32 def} if xchartl xchartd idiv 7 eq {/ilx 64 def} if } ifelse /Xnref 0.63 ilx mul 0.9505 mul def /Ynref 0.63 ilx mul def /Znref 0.63 ilx mul 1.0890 mul def /XQ Xnref 95.05 div def /YQ Ynref 100.00 div def /ZQ Znref 108.90 div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if /L*ref YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse def /a*ref XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul def /b*ref YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul def /L*N L*ref def /L*W 95.41 def /L*i 21 array def %different for xchartl=0,7 /a*i 21 array def /b*i 21 array def /l*i 21 array def /Yi 21 array def %equal distance between L*N and L*W 0 1 20 {/i exch def %steps from black to white i 15 le {/i0 0 def /istep 15 def} {/i0 16 def /istep 4 def} ifelse L*i i L*N L*W L*N sub i i0 sub istep div mul add put a*i i 0 put b*i i 0 put l*i i L*i i get L*N sub L*W L*N sub div put /Y* {L*i i get 16 add 116 div} bind def Yi i Y* DecodeXYZ* 100.00 mul put } for /cvishow {cvi 6 string cvs show} def 72 90 translate %0.023 0.5 mul MM dup scale 0.020 0.5 mul MM dup scale 15 setlinewidth 0 setgray 100 /Times-ISOL1 FS 100 -90 moveto (fea31-5A) show %(\255) show colorml cvishow xcolorl cvishow %xchartd 1 eq {xchartl cvishow} % {xchartl xchartd idiv cvishow} ifelse %(\255) show pchartl cvishow (: ) show %(File: ) show CMeasSxl show (; ) show %(Device: ) show CDeviceSxl show (; ) show %(Date: ) show CDateSxl show 1 setgray 0 0 moveto 5400 0 rlineto 0 4000 rlineto %relatives Bildfeld 54 x 40mm -5400 0 rlineto closepath fill 0 setgray 0 0 moveto 5400 0 rlineto 0 4000 rlineto %relatives Bildfeld 54 x 40mm -5400 0 rlineto closepath stroke 0 setgray 100 /Times-ISOL1 FS 0800 0400 translate %Nullpunkt Zeichnung 0 0 moveto 4000 0 rlineto stroke 0 0 moveto 0 3200 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten 150 /TimesI-ISOL1 FS 0 -50 moveto 0 100 rlineto stroke 800 -50 moveto 0 100 rlineto stroke 1600 -50 moveto 0 100 rlineto stroke 2400 -50 moveto 0 100 rlineto stroke 3200 -50 moveto 0 100 rlineto stroke 4000 -50 moveto 0 100 rlineto stroke -300 -300 moveto (N 0,0) show 700 -300 moveto (0,25) show 1500 -300 moveto (0,50) show 2300 -300 moveto (0,75) show 3100 -300 moveto (1,00 W) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 800 moveto 100 0 rlineto stroke -50 1600 moveto 100 0 rlineto stroke -50 2400 moveto 100 0 rlineto stroke -50 3200 moveto 100 0 rlineto stroke -530 -60 moveto (N 0,00) show -350 740 moveto (0,25) show -350 1540 moveto (0,50) show -350 2340 moveto (0,75) show -530 3140 moveto (W 1,00) show 150 /TimesI-ISOL1 FS -700 2900 moveto (w*'output) show -700 2700 moveto (w'*output) show 3000 200 moveto (w*input) show 0 setgray 0 0 moveto 3200 3200 lineto stroke % [100] 0 setdash % 0 3200 0.133 mul moveto % 3200 3200 3200 0.0333 mul add lineto stroke % 0 3200 0.133 mul neg moveto % 3200 3200 3200 0.0333 mul sub lineto stroke colorml 1 eq {/xchartNl xchartl 8 idiv def /xchartPl xchartl xchartl 8 idiv 8 mul sub def /gammaNl 1 xchartNl 0.18 mul add def /gammaPl 1 1 xchartPl 0.18 mul add div def /gammal gammaNl gammaPl mul def } if /L*gi 21 array def %different for xchartl=0,7 /a*gi 21 array def /b*gi 21 array def /l*gi 21 array def /Ygi 21 array def %distance between L*N and L*W using gamma 0 1 20 {/i exch def %steps from black to white l*gi i l*i i get colorm 1 eq {gammal exp} if put L*gi i L*W L*N sub l*gi i get mul L*N add put a*gi i 0 put b*gi i 0 put /Y* {L*gi i get 16 add 116 div} bind def Ygi i Y* DecodeXYZ* 100.00 mul put } for 0 0 1 setrgbcolor 40 setlinewidth [100] 0 setdash 0 1 15 {/i exch def /xw l*i i get def /yw l*i i get colorml 1 eq {gammal exp} if def xw 3200 mul yw 3200 mul i 0 eq { moveto} {lineto} ifelse } for stroke %i 0 0 1 setrgbcolor 40 setlinewidth [100] 0 setdash 0 1 15 {/i exch def /xw l*i i get def /yw l*i i get colorml 1 eq {1 gammal div exp} if def xw 3200 mul yw 3200 mul i 0 eq { moveto} {lineto} ifelse } for stroke %i 1 0 0 setrgbcolor 25 setlinewidth [50] 0 setdash 0 1 15 {/i exch def /xw i 15 div def /yw xw colorml 1 eq {gammal exp} if def xw 3200 mul yw 3200 mul i 0 eq { moveto} {lineto} ifelse } for stroke %i 0 1 15 {/i exch def /xw i 15 div def /yw xw colorml 1 eq {1 gammal div exp} if def xw 3200 mul yw 3200 mul i 0 eq { moveto} {lineto} ifelse } for stroke %i 0 setgray 150 /Times-ISOL1 FS -400 3450 moveto lanind 0 eq {(F\374 linearisierte Ausgabe der 16 Graustufen nach ) show} if lanind 1 eq {(For linearized output of the 16 grey steps according to ) show} if (ISO 9241\255306) show %xchartd 1 eq {xchartl cvishow} % {xchartl xchartd idiv cvishow} ifelse %(\255) show pchartl cvishow 0 0 1 setrgbcolor 150 /TimesBI-ISOL1 FS 100 3200 moveto ('* (dash\255star) coordinates to reach) showen ('* (Strich\255Stern)\255Koordinaten um die) showde 100 3000 moveto (the linearized output with the real) showen (linearisierte Ausgabe mit realer Display\255) showde 100 2800 moveto (display reflection in office room;) showen (Reflexion im B\374roraum zu erreichen;) showde 100 2600 moveto (lighter (positiv P) output) showen (hellere (positive P) Ausgabe) showde 1 0 0 setrgbcolor 150 /TimesBI-ISOL1 FS 100 2350 moveto (w'*) show 120 /TimesB-ISOL1 FS -70 -70 rmoveto (output) show 0 70 rmoveto 150 /TimesB-ISOL1 FS ( = [) show 150 /TimesBI-ISOL1 FS (w*) show 120 /TimesB-ISOL1 FS -50 -70 rmoveto (input) show 0 70 rmoveto 150 /TimesB-ISOL1 FS (] ) show 0 70 rmoveto colorml 0 eq {(1.00) show} {xchartd 1 eq {gammaPl}{1 gammaNl div} ifelse 0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show } ifelse 0 -70 rmoveto 150 /TimesBI-ISOL1 FS 2500 1800 moveto (w* = r* = g* = b*) show 0 0 1 setrgbcolor 150 /TimesBI-ISOL1 FS 2500 1400 moveto (*' (star\255dash) coordinates) showen (*' (Stern\255Strich)\255Koordinaten) showde 2500 1200 moveto (of real output with real) showen (von realer Ausgabe mit realer) showde 2500 1000 moveto (display reflection in office room;) showen (Dsplay\255Reflexion im B\374roraum;) showde 2500 0800 moveto (darker (negativ N) output) showen (dunklere (negative N) Ausgabe) showde 1 0 0 setrgbcolor 150 /TimesBI-ISOL1 FS 2500 0550 moveto (w*') show 120 /TimesB-ISOL1 FS -70 -70 rmoveto (output) show 0 70 rmoveto 150 /TimesB-ISOL1 FS ( = [) show 150 /TimesBI-ISOL1 FS (w*) show 120 /TimesB-ISOL1 FS -50 -70 rmoveto (input) show 0 70 rmoveto 150 /TimesB-ISOL1 FS (] ) show 0 70 rmoveto colorml 0 eq {(1.00) show} {xchartd 1 eq {1 gammaPl div}{gammaNl} ifelse 0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show } ifelse 0 -70 rmoveto -0800 -0400 translate %Nullpunkt Zeichnung } if %pchartl=2 showpage grestore } for %pchartl=0,2 %} for %xchartl=0,7 %} for %xcolorl=0,3 %} for %colorml=0,1 %%Trailer %line 239 %%EndDocument EndEPSF grestore gsave BeginEPSF 86 SHAl add MM 064 STSl add MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 16 %!PS-Adobe-3.0 EPSF-3.0 fea31-6a.EPS %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark16 where {pop} {userdict /pdfmark16 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript Pictures: http://farbe.li.tu-berlin.de/fea3/fea3.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2023110112000) /ModDate (D:20231101112000) /DOCINFO pdfmark16 [ /View [ /FitB ] /DOCVIEW pdfmark16 %END PDFDE011 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /A4querL {598 0 translate 90 rotate} def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /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 {315 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def %*********************************************************** /nshow {300 /Times-ISOL1 FS show} bind def /kshow {300 /TimesI-ISOL1 FS show} bind def /bshow {300 /TimesB-ISOL1 FS show} bind def /jshow {300 /TimesBI-ISOL1 FS show} bind def /sshow {300 /Symbol FS show} bind def /ishow {220 /Times-ISOL1 FS -00 -50 rmoveto show 00 50 rmoveto} bind def /eshow {220 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto} bind def /cvishow {0.5 add cvi 6 string cvs show} def /cvsshow1 {0.05 add 10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {0.005 add 100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show} def %%EndProlog gsave /lanind 0 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 /showea {1 lanind le {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /lanind1 01 def /lanind2 01 def /lanindd 01 def /colorm1 00 def /colorm2 00 def /colormd 01 def /deintp1 00 def /deintp2 00 def /deintpd 01 def /xcolor1 03 def /xcolor2 03 def /xcolord 01 def /xchart1 00 def /xchart2 00 def /xchartd 01 def /pchart1 00 def /pchart2 00 def /pchartd 01 def /colsep1 00 def /colsep2 00 def /colsepd 01 def /pmetam1 00 def /pmetam2 00 def /pmetamd 01 def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} if /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} if /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} if /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} if /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchartmf def} {/xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 1 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def /pchartm pchartmf def} {/pchartm 1 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} if /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} if /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES where {pop %/IMES IMES def } {/IMES 0 def} ifelse /colorml 1 def %0 1 1 {/colorml exch def %colorml=0,1 /xcolorl xcolor def %0 1 3 {/xcolorl exch def %xcolorl=0,3 /xchartl 3 def %1 2 7 {/xchartl exch def %xchartl=0,7 /pchartl pchart def 2 2 2 {/pchartl exch def %pchartl=0,2 colorml 0 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if colorml 0 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if colorml 1 eq deintp 0 eq and {/Txx (*dd) def /Fxx (*d) def} if colorml 1 eq deintp 1 eq and {/Txx (*de) def /Fxx (*e) def} if %xchart 0 eq {/Txx (-) def /Fxx (-) def} if gsave xcolorl 0 eq {/tfnx* {0 0 0 1 setcmykcolor} def /tfwx* {0 0 0 0 setcmykcolor} def /colrecfix* {setcmykcolor rec fill} bind def /colrecstx* {setcmykcolor rec stroke} bind def } if xcolorl 1 eq {/tfnx* {0 setgray} def /tfwx* {1 setgray} def /colrecfix* {setgray rec fill} bind def /colrecstx* {setgray rec stroke} bind def } if xcolorl 2 eq {/tfnx* {1 1 1 0 setcmykcolor} def /tfwx* {0 0 0 0 setcmykcolor} def /colrecfix* {setcmykcolor rec fill} bind def /colrecstx* {setcmykcolor rec stroke} bind def } if xcolorl 3 eq {/tfnx* {0 0 0 setrgbcolor} def /tfwx* {1 1 1 setrgbcolor} def /colrecfix* {setrgbcolor rec fill} bind def /colrecstx* {setrgbcolor rec stroke} bind def } if pchartl 1 eq {%pchartl=1 /iout 3 def %iout=0_2:CMY, iout=3-5: OLV /ioutT [(W) (N) (Z) (W) (N) (Z)] def /ioutE [(White) (Black) (Grey) (White) (Black) (Grey)] def /ioutG [(Wei\337) (Schwarz) (Grau) (Wei\337) (Schwarz) (Grau)] def /nshow {iyt /Times-ISOL1 FS show} def /nishow {-30 -50 rmoveto iyt 50 sub /Times-ISOL1 FS show 30 50 rmoveto} def /nishow0 {-30 -50 rmoveto iyt 50 sub /Times-ISOL1 FS show 00 50 rmoveto} def /nishowx {-00 -30 rmoveto iyt 50 sub /Times-ISOL1 FS show 00 30 rmoveto} def /kshow {iyt /TimesI-ISOL1 FS show} def /bshow {iyt /TimesB-ISOL1 FS show} def /jshow {iyt /TimesBI-ISOL1 FS show} def /ishow {-30 -50 rmoveto iyt 50 sub /TimesB-ISOL1 FS show 30 50 rmoveto} def /ishow0 {-30 -50 rmoveto iyt 50 sub /TimesB-ISOL1 FS show 00 50 rmoveto} def /eshow { 00 110 rmoveto iyt 50 sub /TimesB-ISOL1 FS show 00 -110 rmoveto} def /neshow { 00 110 rmoveto iyt 50 sub /Times-ISOL1 FS show 00 -110 rmoveto} def /neshowx { 00 70 rmoveto iyt 50 sub /Times-ISOL1 FS show 00 -70 rmoveto} def /showde {0 lanind eq {nshow} {pop} ifelse} bind def /showen {1 lanind eq {nshow} {pop} ifelse} bind def /nishowde {0 lanind eq {nishow} {pop} ifelse} bind def /nishowen {1 lanind eq {nishow} {pop} ifelse} bind def /kshowde {0 lanind eq {kshow} {pop} ifelse} bind def /kshowen {1 lanind eq {kshow} {pop} ifelse} bind def /bshowde {0 lanind eq {bshow} {pop} ifelse} bind def /bshowen {1 lanind eq {bshow} {pop} ifelse} bind def /jshowde {0 lanind eq {jshow} {pop} ifelse} bind def /jshowen {1 lanind eq {jshow} {pop} ifelse} bind def /ishowde {0 lanind eq {ishow} {pop} ifelse} bind def /ishowen {1 lanind eq {ishow} {pop} ifelse} bind def /sshowde {0 lanind eq {sshow} {pop} ifelse} bind def /sshowen {1 lanind eq {sshow} {pop} ifelse} bind def /cvishow {cvi 6 string cvs show} def 72 90 translate 0.02 0.5 mul MM dup scale 15 setlinewidth /iyt 130 def %text size, line difference TM 0 setgray 0 -120 moveto %(Part 1) showen (Teil 1) showde %4500 -120 moveto (fea30-3A) show %(\255) show colorml cvishow xcolorl cvishow %pchartd 1 eq {xchartl cvishow} % {xchartl xchartd idiv cvishow} ifelse %(\255) show pchartl cvishow %(: ) show 1 setgray 0 0 moveto 6000 0 rlineto 0 4200 rlineto -6000 0 rlineto closepath fill 0 setgray 0 0 moveto 6000 0 rlineto 0 4200 rlineto -6000 0 rlineto closepath stroke /ix1 50 def %1 /ix2 1600 def %2 /ix3 5100 def %3 /ix21 2600 def %W-R /ix22 3300 def %W-G /ix23 4000 def %W-B /ix24 4700 def %W-N /ix25 5700 def %W-Z /iyd 145 def %line difference /ix20 0020 def %Text and colour W-O etc. /ix21 1500 def %Question /ix22 4000 def %of 16 steps /ix23 5200 def %Yes/No /iyt2 4080 def %Recognition frequency = 2x top + 8 lines /iy02 iyt2 iyd 0.0 mul sub def %RF /iy12 iyt2 iyd 1.0 mul sub def /iy22 iyt2 iyd 2.1 mul sub def %W-O /iy32 iyt2 iyd 3.1 mul sub def /iy42 iyt2 iyd 4.2 mul sub def %W-L /iy52 iyt2 iyd 5.2 mul sub def /iy62 iyt2 iyd 6.3 mul sub def %W-V /iy72 iyt2 iyd 7.3 mul sub def /iy82 iyt2 iyd 8.4 mul sub def %W-N /iy92 iyt2 iyd 9.4 mul sub def ix20 iy02 moveto (Test of 16 visually equally spaced steps of the colour rows ) bshowen (Pr\374fung der 16 visuell gleichabst\344ndigen Buntstufen der Farbreihen ) bshowde iout 2 le {ioutT iout get jshow (-C) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-M) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-Y) jshow (d) nishowx} {ioutT iout get jshow (-R) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-G) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-B) jshow (d) nishowx} ifelse (, and ) bshowen ( und ) bshowde (W-N ) jshow ix20 iy12 moveto (according to Picture ) bshowen (nach Bild ) bshowde iout 2 le {(B4) bshow}{(D4) bshow} ifelse ioutT iout get bshow Txx show ix20 iy22 moveto iout 2 le {ioutT iout get jshow (-C) jshow (d ) nishowx ioutE iout get showen ( - Cyanblue:) showen ioutG iout get showde ( - Cyanblau:) showde} {ioutT iout get jshow (-R) jshow (d ) nishowx ioutE iout get showen ( - Orangered:) showen ioutG iout get showde ( - Orangerot:) showde} ifelse ix21 iy22 moveto (Are all the 16 steps distinguishable?) showen (Sind alle Stufen unterscheidbar?) showde ix22 iy22 moveto () showen ix23 iy22 moveto (Yes/No) bshowen (Ja/Nein) bshowde ix20 iy32 moveto () showen ix21 iy32 moveto (If No: How many steps can be distinguished?) showen (Falls Nein: Wieviel Stufen sind unterscheidbar?) showde ix22 iy32 moveto (of the given 16 steps) showen (von 16 Stufen sind es:) showde ix23 iy32 moveto (............ Steps) showen (............ Stufen) showde ix20 iy42 moveto iout 2 le {ioutT iout get jshow (-M) jshow (d ) nishowx ioutE iout get showen ( - Magentared:) showen ioutG iout get showde ( - Magentarot:) showde} {ioutT iout get jshow (-G) jshow (d ) nishowx ioutE iout get showen ( - Leafgreen:) showen ioutG iout get showde ( - Laubgr\374n:) showde} ifelse ix21 iy42 moveto (Are all the 16 steps distinguishable?) showen (Sind alle Stufen unterscheidbar?) showde ix22 iy42 moveto () showen ix23 iy42 moveto (Yes/No) bshowen (Ja/Nein) bshowde ix20 iy52 moveto () showen ix21 iy52 moveto (If No: How many steps can be distinguished?) showen (Falls Nein: Wieviel Stufen sind unterscheidbar?) showde ix22 iy52 moveto (of the given 16 steps) showen (von 16 Stufen sind es:) showde ix23 iy52 moveto (............ Steps) showen (............ Stufen) showde ix20 iy62 moveto iout 2 le {ioutT iout get jshow (-Y) jshow (d) nishowx ioutE iout get showen ( - Yellow:) showen ioutG iout get showde ( - Gelb:) showde} {ioutT iout get jshow (-B) jshow (d) nishowx ioutE iout get showen ( - Violetblue:) showen ioutG iout get showde ( - Violetblau:) showde} ifelse ix21 iy62 moveto (Are all the 16 steps distinguishable?) showen (Sind alle Stufen unterscheidbar?) showde ix22 iy62 moveto () showen ix23 iy62 moveto (Yes/No) bshowen (Ja/Nein) bshowde ix20 iy72 moveto () showen ix21 iy72 moveto (If No: How many steps can be distinguished?) showen (Falls Nein: Wieviel Stufen sind unterscheidbar?) showde ix22 iy72 moveto (of the given 16 steps) showen (von 16 Stufen sind es:) showde ix23 iy72 moveto (............ Steps) showen (............ Stufen) showde ix20 iy82 moveto (W-N ) jshow (White - Black:) showen (Wei\337 - Schwarz:) showde ix21 iy82 moveto (Are all the 16 steps distinguishable?) showen (Sind alle Stufen unterscheidbar?) showde ix22 iy82 moveto () showen ix23 iy82 moveto (Yes/No) bshowen (Ja/Nein) bshowde ix20 iy92 moveto () showen ix21 iy92 moveto (If No: How many steps can be distinguished?) showen (Falls Nein: Wieviel Stufen sind unterscheidbar?) showde ix22 iy92 moveto (of the given 16 steps) showen (von 16 Stufen sind es:) showde ix23 iy92 moveto (............ Steps) showen (............ Stufen) showde %******************************************** /ix30 0020 def %Question /ix31 0200 def %LR size /ix32 1200 def %letters /ix33 2000 def %Ring N /ix34 3000 def %Ring O /ix35 4000 def %Ring L /ix36 5000 def %Ring V /iyt3 2550 def %Tests of characters = 2x top + 5 lines /iy13 iyt3 iyd 0.0 mul sub def %TC /iy23 iyt3 iyd 1.0 mul sub def /iy33 iyt3 iyd 2.1 mul sub def %Relative size /iy43 iyt3 iyd 3.1 mul sub def %10 /iy53 iyt3 iyd 4.1 mul sub def %08 /iy63 iyt3 iyd 5.1 mul sub def %06 /iy73 iyt3 iyd 6.1 mul sub def %04 ix30 iy13 moveto (Test of characters and Landolt\255rings in four sizes ) bshowen (Pr\374fung von Schrift und Landoltringen in vier Gr\366\337en ) bshowde (according to Picture ) bshowen (nach Bild ) bshowde iout 2 le {(B5) bshow} {(D5) bshow} ifelse ioutT iout get bshow Txx show ix30 iy23 moveto (Is the recognition frequency > 50% for letters ) showen (Ist die Erkennungsh\344ufigkeit > 50% f\374r Schriftzeichen ) showde ((17 from 32 at least) and for Landolt-rings (minimum 5 of 8)?) showen ((min. 17 von 32) und f\374r Landoltringe (min. 5 von 8)?) showde ix31 iy33 moveto (Relative size) showen (Relative Gr\366\337e) showde ix32 iy33 moveto (Letters) showen (Schriftzeichen) showde ix33 iy33 moveto (Ring ) showen (Ringe ) showde (N) jshow ix34 iy33 moveto (Ring ) showen (Ringe ) showde iout 2 le {(C) jshow (d) nishowx} {(R) jshow (d) nishowx} ifelse ix35 iy33 moveto (Ring ) showen (Ringe ) showde iout 2 le {(M) jshow (d) nishowx} {(G) jshow (d) nishowx} ifelse ix36 iy33 moveto (Ring ) showen (Ringe ) showde iout 2 le {(Y) jshow (d) nishowx} {(B) jshow (d) nishowx} ifelse ix31 iy43 moveto (10) nshow ix32 iy43 moveto (Yes/No) showen (Ja/Nein) showde ix33 iy43 moveto (Yes/No) showen (Ja/Nein) showde ix34 iy43 moveto (Yes/No) showen (Ja/Nein) showde ix35 iy43 moveto (Yes/No) showen (Ja/Nein) showde ix36 iy43 moveto (Yes/No) showen (Ja/Nein) showde ix31 iy53 moveto ( 8) nshow ix32 iy53 moveto (Yes/No) showen (Ja/Nein) showde ix33 iy53 moveto (Yes/No) showen (Ja/Nein) showde ix34 iy53 moveto (Yes/No) showen (Ja/Nein) showde ix35 iy53 moveto (Yes/No) showen (Ja/Nein) showde ix36 iy53 moveto (Yes/No) showen (Ja/Nein) showde ix31 iy63 moveto ( 6) nshow ix32 iy63 moveto (Yes/No) showen (Ja/Nein) showde ix33 iy63 moveto (Yes/No) showen (Ja/Nein) showde ix34 iy63 moveto (Yes/No) showen (Ja/Nein) showde ix35 iy63 moveto (Yes/No) showen (Ja/Nein) showde ix36 iy63 moveto (Yes/No) showen (Ja/Nein) showde ix31 iy73 moveto ( 4) nshow ix32 iy73 moveto (Yes/No) showen (Ja/Nein) showde ix33 iy73 moveto (Yes/No) showen (Ja/Nein) showde ix34 iy73 moveto (Yes/No) showen (Ja/Nein) showde ix35 iy73 moveto (Yes/No) showen (Ja/Nein) showde ix36 iy73 moveto (Yes/No) showen (Ja/Nein) showde %*************************************************** /ix40 0020 def %Question /ix41 0100 def %CR W-O /ix42 0900 def %Y/N /ix43 1600 def %CR W-L /ix44 2400 def %Y/N /ix45 3100 def %CR W-V /ix46 3900 def %Y/N /ix47 4600 def %CR W-N /ix48 5400 def %Y/N /iyt4 1500 def %Recognition frequency = 2x top + 8 lines /iy04 iyt4 iyd 0.0 mul sub def %RF /iy140 iyt4 iyd 1.0 mul sub def /iy141 iyt4 iyd 2.0 mul sub def /iy24 iyt4 iyd 3.1 mul sub def %CR /iy34 iyt4 iyd 4.1 mul sub def %BR /iy44 iyt4 iyd 5.1 mul sub def %0-1 /iy54 iyt4 iyd 6.1 mul sub def %7-8 /iy64 iyt4 iyd 7.1 mul sub def %E-F /iy74 iyt4 iyd 8.1 mul sub def %2-0 /iy84 iyt4 iyd 9.1 mul sub def %8-6 /iy94 iyt4 iyd 10.1 mul sub def %F-D ix40 iy04 moveto (Test of recognition frequency of Landolt\255rings ) bshowen (Pr\374fung der Erkennungsh\344ufigkeit der Landoltringe ) showde iout 2 le {ioutT iout get jshow (-C) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-M) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-Y) jshow (d) nishowx} {ioutT iout get jshow (-R) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-G) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-B) jshow (d) nishowx} ifelse (, and ) bshowen ( und ) bshowde (W-N ) jshow ix40 iy140 moveto (according to Pictures ) bshowen (nach Bildern ) showde iout 2 le {(B6) bshow} {(D6) bshow} ifelse ioutT iout get bshow Txx show (, and ) bshowen ( und ) bshowde iout 2 le {(B7) bshow} {(D7) bshow} ifelse ioutT iout get bshow Txx show ix40 iy141 moveto (Is the recognition frequency of the Landolt\255rings ) showen (> 50% (min. 5 of 8 at least)?) showen (Ist die Erkennungsh\344ufigkeit der Landoltringe ) showde (> 50% (min. 5 von 8)?) showde ix41 iy24 moveto (Colour row ) showen (Farbreihe ) showde iout 2 le {ioutT iout get jshow (-C) jshow (d) nishowx} {ioutT iout get jshow (-R) jshow (d) nishowx} ifelse ix43 iy24 moveto (Colour row ) showen (Farbreihe ) showde iout 2 le {ioutT iout get jshow (-M) jshow (d) nishowx} {ioutT iout get jshow (-G) jshow (d) nishowx} ifelse ix45 iy24 moveto (Colour row ) showen (Farbreihe ) showde iout 2 le {ioutT iout get jshow (-Y) jshow (d) nishowx} {ioutT iout get jshow (-B) jshow (d) nishowx} ifelse ix47 iy24 moveto (Colour row ) showen (Farbreihe ) showde (W-N) jshow ix41 iy34 moveto (background - ring) showen (Umfeld - Ring) showde ix43 iy34 moveto (background - ring) showen (Umfeld - Ring) showde ix45 iy34 moveto (background - ring) showen (Umfeld - Ring) showde ix47 iy34 moveto (background - ring) showen (Umfeld - Ring) showde ix41 iy44 moveto (0 - 1) showen ix42 iy44 moveto (Yes/No) showen (Ja/Nein) showde ix43 iy44 moveto (0 - 1) showen ix44 iy44 moveto (Yes/No) showen (Ja/Nein) showde ix45 iy44 moveto (0 - 1) showen ix46 iy44 moveto (Yes/No) showen (Ja/Nein) showde ix47 iy44 moveto (0 - 1) showen ix48 iy44 moveto (Yes/No) showen (Ja/Nein) showde ix41 iy54 moveto (7 - 8) showen ix42 iy54 moveto (Yes/No) showen (Ja/Nein) showde ix43 iy54 moveto (7 - 8) showen ix44 iy54 moveto (Yes/No) showen (Ja/Nein) showde ix45 iy54 moveto (7 - 8) showen ix46 iy54 moveto (Yes/No) showen (Ja/Nein) showde ix47 iy54 moveto (7 - 8) showen ix48 iy54 moveto (Yes/No) showen (Ja/Nein) showde ix41 iy64 moveto (E - F) showen ix42 iy64 moveto (Yes/No) showen (Ja/Nein) showde ix43 iy64 moveto (E - F) showen ix44 iy64 moveto (Yes/No) showen (Ja/Nein) showde ix45 iy64 moveto (E - F) showen ix46 iy64 moveto (Yes/No) showen (Ja/Nein) showde ix47 iy64 moveto (E - F) showen ix48 iy64 moveto (Yes/No) showen (Ja/Nein) showde ix41 iy74 moveto (2 - 0) showen ix42 iy74 moveto (Yes/No) showen (Ja/Nein) showde ix43 iy74 moveto (2 - 0) showen ix44 iy74 moveto (Yes/No) showen (Ja/Nein) showde ix45 iy74 moveto (2 - 0) showen ix46 iy74 moveto (Yes/No) showen (Ja/Nein) showde ix47 iy74 moveto (2 - 0) showen ix48 iy74 moveto (Yes/No) showen (Ja/Nein) showde ix41 iy84 moveto (8 - 6) showen ix42 iy84 moveto (Yes/No) showen (Ja/Nein) showde ix43 iy84 moveto (8 - 6) showen ix44 iy84 moveto (Yes/No) showen (Ja/Nein) showde ix45 iy84 moveto (8 - 6) showen ix46 iy84 moveto (Yes/No) showen (Ja/Nein) showde ix47 iy84 moveto (8 - 6) showen ix48 iy84 moveto (Yes/No) showen (Ja/Nein) showde ix41 iy94 moveto (F - D) showen ix42 iy94 moveto (Yes/No) showen (Ja/Nein) showde ix43 iy94 moveto (F - D) showen ix44 iy94 moveto (Yes/No) showen (Ja/Nein) showde ix45 iy94 moveto (F - D) showen ix46 iy94 moveto (Yes/No) showen (Ja/Nein) showde ix47 iy94 moveto (F - D) showen ix48 iy94 moveto (Yes/No) showen } if %pchartl=1 pchartl 2 eq {%pchart=2 /CMeasSxl (Measure unknown) def /CDeviceSxl (Device unknown) def /CDateSxl (Date unknown) def /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def colorml 0 eq {/ilx 0 def } {%colorml=1 xchartl xchartd idiv 2 le {/ilx xchartl def} if xchartl xchartd idiv 3 eq {/ilx 4 def} if xchartl xchartd idiv 4 eq {/ilx 8 def} if xchartl xchartd idiv 5 eq {/ilx 16 def} if xchartl xchartd idiv 6 eq {/ilx 32 def} if xchartl xchartd idiv 7 eq {/ilx 64 def} if } ifelse /Xnref 0.63 ilx mul 0.9505 mul def /Ynref 0.63 ilx mul def /Znref 0.63 ilx mul 1.0890 mul def /XQ Xnref 95.05 div def /YQ Ynref 100.00 div def /ZQ Znref 108.90 div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if /L*ref YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse def /a*ref XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul def /b*ref YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul def /L*N L*ref def /L*W 95.41 def /L*i 21 array def %different for xchartl=0,7 /a*i 21 array def /b*i 21 array def /l*i 21 array def /Yi 21 array def %equal distance between L*N and L*W 0 1 20 {/i exch def %steps from black to white i 15 le {/i0 0 def /istep 15 def} {/i0 16 def /istep 4 def} ifelse L*i i L*N L*W L*N sub i i0 sub istep div mul add put a*i i 0 put b*i i 0 put l*i i L*i i get L*N sub L*W L*N sub div put /Y* {L*i i get 16 add 116 div} bind def Yi i Y* DecodeXYZ* 100.00 mul put } for /cvishow {cvi 6 string cvs show} def 72 90 translate %0.023 0.5 mul MM dup scale 0.020 0.5 mul MM dup scale 15 setlinewidth 0 setgray 100 /Times-ISOL1 FS 100 -90 moveto (fea31-5A) show %(\255) show colorml cvishow xcolorl cvishow %xchartd 1 eq {xchartl cvishow} % {xchartl xchartd idiv cvishow} ifelse %(\255) show pchartl cvishow (: ) show %(File: ) show CMeasSxl show (; ) show %(Device: ) show CDeviceSxl show (; ) show %(Date: ) show CDateSxl show 1 setgray 0 0 moveto 5400 0 rlineto 0 4000 rlineto %relatives Bildfeld 54 x 40mm -5400 0 rlineto closepath fill 0 setgray 0 0 moveto 5400 0 rlineto 0 4000 rlineto %relatives Bildfeld 54 x 40mm -5400 0 rlineto closepath stroke 0 setgray 100 /Times-ISOL1 FS 0800 0400 translate %Nullpunkt Zeichnung 0 0 moveto 4000 0 rlineto stroke 0 0 moveto 0 3200 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten 150 /TimesI-ISOL1 FS 0 -50 moveto 0 100 rlineto stroke 800 -50 moveto 0 100 rlineto stroke 1600 -50 moveto 0 100 rlineto stroke 2400 -50 moveto 0 100 rlineto stroke 3200 -50 moveto 0 100 rlineto stroke 4000 -50 moveto 0 100 rlineto stroke -300 -300 moveto (N 0,0) show 700 -300 moveto (0,25) show 1500 -300 moveto (0,50) show 2300 -300 moveto (0,75) show 3100 -300 moveto (1,00 W) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 800 moveto 100 0 rlineto stroke -50 1600 moveto 100 0 rlineto stroke -50 2400 moveto 100 0 rlineto stroke -50 3200 moveto 100 0 rlineto stroke -530 -60 moveto (N 0,00) show -350 740 moveto (0,25) show -350 1540 moveto (0,50) show -350 2340 moveto (0,75) show -530 3140 moveto (W 1,00) show 150 /TimesI-ISOL1 FS -700 2900 moveto (w*'output) show -700 2700 moveto (w'*output) show 3000 200 moveto (w*input) show 0 setgray 0 0 moveto 3200 3200 lineto stroke % [100] 0 setdash % 0 3200 0.133 mul moveto % 3200 3200 3200 0.0333 mul add lineto stroke % 0 3200 0.133 mul neg moveto % 3200 3200 3200 0.0333 mul sub lineto stroke colorml 1 eq {/xchartNl xchartl 8 idiv def /xchartPl xchartl xchartl 8 idiv 8 mul sub def /gammaNl 1 xchartNl 0.18 mul add def /gammaPl 1 1 xchartPl 0.18 mul add div def /gammal gammaNl gammaPl mul def } if /L*gi 21 array def %different for xchartl=0,7 /a*gi 21 array def /b*gi 21 array def /l*gi 21 array def /Ygi 21 array def %distance between L*N and L*W using gamma 0 1 20 {/i exch def %steps from black to white l*gi i l*i i get colorm 1 eq {gammal exp} if put L*gi i L*W L*N sub l*gi i get mul L*N add put a*gi i 0 put b*gi i 0 put /Y* {L*gi i get 16 add 116 div} bind def Ygi i Y* DecodeXYZ* 100.00 mul put } for 0 0 1 setrgbcolor 40 setlinewidth [100] 0 setdash 0 1 15 {/i exch def /xw l*i i get def /yw l*i i get colorml 1 eq {gammal exp} if def xw 3200 mul yw 3200 mul i 0 eq { moveto} {lineto} ifelse } for stroke %i 0 0 1 setrgbcolor 40 setlinewidth [100] 0 setdash 0 1 15 {/i exch def /xw l*i i get def /yw l*i i get colorml 1 eq {1 gammal div exp} if def xw 3200 mul yw 3200 mul i 0 eq { moveto} {lineto} ifelse } for stroke %i 1 0 0 setrgbcolor 25 setlinewidth [50] 0 setdash 0 1 15 {/i exch def /xw i 15 div def /yw xw colorml 1 eq {gammal exp} if def xw 3200 mul yw 3200 mul i 0 eq { moveto} {lineto} ifelse } for stroke %i 0 1 15 {/i exch def /xw i 15 div def /yw xw colorml 1 eq {1 gammal div exp} if def xw 3200 mul yw 3200 mul i 0 eq { moveto} {lineto} ifelse } for stroke %i 0 setgray 150 /Times-ISOL1 FS -400 3450 moveto lanind 0 eq {(F\374 linearisierte Ausgabe der 16 Graustufen nach ) show} if lanind 1 eq {(For linearized output of the 16 grey steps according to ) show} if (ISO 9241\255306) show %xchartd 1 eq {xchartl cvishow} % {xchartl xchartd idiv cvishow} ifelse %(\255) show pchartl cvishow 0 0 1 setrgbcolor 150 /TimesBI-ISOL1 FS 100 3200 moveto ('* (dash\255star) coordinates to reach) showen ('* (Strich\255Stern)\255Koordinaten um die) showde 100 3000 moveto (the linearized output with the real) showen (linearisierte Ausgabe mit realer Display\255) showde 100 2800 moveto (display reflection in office room;) showen (Reflexion im B\374roraum zu erreichen;) showde 100 2600 moveto (lighter (positiv P) output) showen (hellere (positive P) Ausgabe) showde 1 0 0 setrgbcolor 150 /TimesBI-ISOL1 FS 100 2350 moveto (w'*) show 120 /TimesB-ISOL1 FS -70 -70 rmoveto (output) show 0 70 rmoveto 150 /TimesB-ISOL1 FS ( = [) show 150 /TimesBI-ISOL1 FS (w*) show 120 /TimesB-ISOL1 FS -50 -70 rmoveto (input) show 0 70 rmoveto 150 /TimesB-ISOL1 FS (] ) show 0 70 rmoveto colorml 0 eq {(1.00) show} {xchartd 1 eq {gammaPl}{1 gammaNl div} ifelse 0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show } ifelse 0 -70 rmoveto 150 /TimesBI-ISOL1 FS 2500 1800 moveto (w* = r* = g* = b*) show 0 0 1 setrgbcolor 150 /TimesBI-ISOL1 FS 2500 1400 moveto (*' (star\255dash) coordinates) showen (*' (Stern\255Strich)\255Koordinaten) showde 2500 1200 moveto (of real output with real) showen (von realer Ausgabe mit realer) showde 2500 1000 moveto (display reflection in office room;) showen (Dsplay\255Reflexion im B\374roraum;) showde 2500 0800 moveto (darker (negativ N) output) showen (dunklere (negative N) Ausgabe) showde 1 0 0 setrgbcolor 150 /TimesBI-ISOL1 FS 2500 0550 moveto (w*') show 120 /TimesB-ISOL1 FS -70 -70 rmoveto (output) show 0 70 rmoveto 150 /TimesB-ISOL1 FS ( = [) show 150 /TimesBI-ISOL1 FS (w*) show 120 /TimesB-ISOL1 FS -50 -70 rmoveto (input) show 0 70 rmoveto 150 /TimesB-ISOL1 FS (] ) show 0 70 rmoveto colorml 0 eq {(1.00) show} {xchartd 1 eq {1 gammaPl div}{gammaNl} ifelse 0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show } ifelse 0 -70 rmoveto -0800 -0400 translate %Nullpunkt Zeichnung } if %pchartl=2 showpage grestore } for %pchartl=0,2 %} for %xchartl=0,7 %} for %xcolorl=0,3 %} for %colorml=0,1 %%Trailer %line 249 %%EndDocument EndEPSF grestore gsave BeginEPSF /xc1 16 def /yc1 12 def /xt 1 def xchart 1 eq {/xt 1 def} if 28 SHSl sub MM 020 STAl add 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 fea31-7a.EPS %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark17 where {pop} {userdict /pdfmark17 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript Pictures: http://farbe.li.tu-berlin.de/fea3/fea3.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2023110112000) /ModDate (D:20231101112000) /DOCINFO pdfmark17 [ /View [ /FitB ] /DOCVIEW pdfmark17 %END PDFDE011 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /A4querL {598 0 translate 90 rotate} def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /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 {315 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def %*********************************************************** /nshow {300 /Times-ISOL1 FS show} bind def /kshow {300 /TimesI-ISOL1 FS show} bind def /bshow {300 /TimesB-ISOL1 FS show} bind def /jshow {300 /TimesBI-ISOL1 FS show} bind def /sshow {300 /Symbol FS show} bind def /ishow {220 /Times-ISOL1 FS -00 -50 rmoveto show 00 50 rmoveto} bind def /eshow {220 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto} bind def /cvishow {0.5 add cvi 6 string cvs show} def /cvsshow1 {0.05 add 10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {0.005 add 100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show} def %%EndProlog gsave /lanind 0 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 /showea {1 lanind le {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /lanind1 01 def /lanind2 01 def /lanindd 01 def /colorm1 00 def /colorm2 00 def /colormd 01 def /deintp1 00 def /deintp2 00 def /deintpd 01 def /xcolor1 03 def /xcolor2 03 def /xcolord 01 def /xchart1 00 def /xchart2 00 def /xchartd 01 def /pchart1 00 def /pchart2 00 def /pchartd 01 def /colsep1 00 def /colsep2 00 def /colsepd 01 def /pmetam1 00 def /pmetam2 00 def /pmetamd 01 def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} if /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} if /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} if /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} if /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchartmf def} {/xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 1 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def /pchartm pchartmf def} {/pchartm 1 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} if /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} if /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES where {pop %/IMES IMES def } {/IMES 0 def} ifelse /colorml 1 def %0 1 1 {/colorml exch def %colorml=0,1 /xcolorl xcolor def %0 1 3 {/xcolorl exch def %xcolorl=0,3 /xchartl 5 def %1 2 7 {/xchartl exch def %xchartl=0,7 /pchartl pchart def 2 2 2 {/pchartl exch def %pchartl=0,2 colorml 0 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if colorml 0 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if colorml 1 eq deintp 0 eq and {/Txx (*dd) def /Fxx (*d) def} if colorml 1 eq deintp 1 eq and {/Txx (*de) def /Fxx (*e) def} if %xchart 0 eq {/Txx (-) def /Fxx (-) def} if gsave xcolorl 0 eq {/tfnx* {0 0 0 1 setcmykcolor} def /tfwx* {0 0 0 0 setcmykcolor} def /colrecfix* {setcmykcolor rec fill} bind def /colrecstx* {setcmykcolor rec stroke} bind def } if xcolorl 1 eq {/tfnx* {0 setgray} def /tfwx* {1 setgray} def /colrecfix* {setgray rec fill} bind def /colrecstx* {setgray rec stroke} bind def } if xcolorl 2 eq {/tfnx* {1 1 1 0 setcmykcolor} def /tfwx* {0 0 0 0 setcmykcolor} def /colrecfix* {setcmykcolor rec fill} bind def /colrecstx* {setcmykcolor rec stroke} bind def } if xcolorl 3 eq {/tfnx* {0 0 0 setrgbcolor} def /tfwx* {1 1 1 setrgbcolor} def /colrecfix* {setrgbcolor rec fill} bind def /colrecstx* {setrgbcolor rec stroke} bind def } if pchartl 1 eq {%pchartl=1 /iout 3 def %iout=0_2:CMY, iout=3-5: OLV /ioutT [(W) (N) (Z) (W) (N) (Z)] def /ioutE [(White) (Black) (Grey) (White) (Black) (Grey)] def /ioutG [(Wei\337) (Schwarz) (Grau) (Wei\337) (Schwarz) (Grau)] def /nshow {iyt /Times-ISOL1 FS show} def /nishow {-30 -50 rmoveto iyt 50 sub /Times-ISOL1 FS show 30 50 rmoveto} def /nishow0 {-30 -50 rmoveto iyt 50 sub /Times-ISOL1 FS show 00 50 rmoveto} def /nishowx {-00 -30 rmoveto iyt 50 sub /Times-ISOL1 FS show 00 30 rmoveto} def /kshow {iyt /TimesI-ISOL1 FS show} def /bshow {iyt /TimesB-ISOL1 FS show} def /jshow {iyt /TimesBI-ISOL1 FS show} def /ishow {-30 -50 rmoveto iyt 50 sub /TimesB-ISOL1 FS show 30 50 rmoveto} def /ishow0 {-30 -50 rmoveto iyt 50 sub /TimesB-ISOL1 FS show 00 50 rmoveto} def /eshow { 00 110 rmoveto iyt 50 sub /TimesB-ISOL1 FS show 00 -110 rmoveto} def /neshow { 00 110 rmoveto iyt 50 sub /Times-ISOL1 FS show 00 -110 rmoveto} def /neshowx { 00 70 rmoveto iyt 50 sub /Times-ISOL1 FS show 00 -70 rmoveto} def /showde {0 lanind eq {nshow} {pop} ifelse} bind def /showen {1 lanind eq {nshow} {pop} ifelse} bind def /nishowde {0 lanind eq {nishow} {pop} ifelse} bind def /nishowen {1 lanind eq {nishow} {pop} ifelse} bind def /kshowde {0 lanind eq {kshow} {pop} ifelse} bind def /kshowen {1 lanind eq {kshow} {pop} ifelse} bind def /bshowde {0 lanind eq {bshow} {pop} ifelse} bind def /bshowen {1 lanind eq {bshow} {pop} ifelse} bind def /jshowde {0 lanind eq {jshow} {pop} ifelse} bind def /jshowen {1 lanind eq {jshow} {pop} ifelse} bind def /ishowde {0 lanind eq {ishow} {pop} ifelse} bind def /ishowen {1 lanind eq {ishow} {pop} ifelse} bind def /sshowde {0 lanind eq {sshow} {pop} ifelse} bind def /sshowen {1 lanind eq {sshow} {pop} ifelse} bind def /cvishow {cvi 6 string cvs show} def 72 90 translate 0.02 0.5 mul MM dup scale 15 setlinewidth /iyt 130 def %text size, line difference TM 0 setgray 0 -120 moveto %(Part 1) showen (Teil 1) showde %4500 -120 moveto (fea30-3A) show %(\255) show colorml cvishow xcolorl cvishow %pchartd 1 eq {xchartl cvishow} % {xchartl xchartd idiv cvishow} ifelse %(\255) show pchartl cvishow %(: ) show 1 setgray 0 0 moveto 6000 0 rlineto 0 4200 rlineto -6000 0 rlineto closepath fill 0 setgray 0 0 moveto 6000 0 rlineto 0 4200 rlineto -6000 0 rlineto closepath stroke /ix1 50 def %1 /ix2 1600 def %2 /ix3 5100 def %3 /ix21 2600 def %W-R /ix22 3300 def %W-G /ix23 4000 def %W-B /ix24 4700 def %W-N /ix25 5700 def %W-Z /iyd 145 def %line difference /ix20 0020 def %Text and colour W-O etc. /ix21 1500 def %Question /ix22 4000 def %of 16 steps /ix23 5200 def %Yes/No /iyt2 4080 def %Recognition frequency = 2x top + 8 lines /iy02 iyt2 iyd 0.0 mul sub def %RF /iy12 iyt2 iyd 1.0 mul sub def /iy22 iyt2 iyd 2.1 mul sub def %W-O /iy32 iyt2 iyd 3.1 mul sub def /iy42 iyt2 iyd 4.2 mul sub def %W-L /iy52 iyt2 iyd 5.2 mul sub def /iy62 iyt2 iyd 6.3 mul sub def %W-V /iy72 iyt2 iyd 7.3 mul sub def /iy82 iyt2 iyd 8.4 mul sub def %W-N /iy92 iyt2 iyd 9.4 mul sub def ix20 iy02 moveto (Test of 16 visually equally spaced steps of the colour rows ) bshowen (Pr\374fung der 16 visuell gleichabst\344ndigen Buntstufen der Farbreihen ) bshowde iout 2 le {ioutT iout get jshow (-C) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-M) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-Y) jshow (d) nishowx} {ioutT iout get jshow (-R) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-G) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-B) jshow (d) nishowx} ifelse (, and ) bshowen ( und ) bshowde (W-N ) jshow ix20 iy12 moveto (according to Picture ) bshowen (nach Bild ) bshowde iout 2 le {(B4) bshow}{(D4) bshow} ifelse ioutT iout get bshow Txx show ix20 iy22 moveto iout 2 le {ioutT iout get jshow (-C) jshow (d ) nishowx ioutE iout get showen ( - Cyanblue:) showen ioutG iout get showde ( - Cyanblau:) showde} {ioutT iout get jshow (-R) jshow (d ) nishowx ioutE iout get showen ( - Orangered:) showen ioutG iout get showde ( - Orangerot:) showde} ifelse ix21 iy22 moveto (Are all the 16 steps distinguishable?) showen (Sind alle Stufen unterscheidbar?) showde ix22 iy22 moveto () showen ix23 iy22 moveto (Yes/No) bshowen (Ja/Nein) bshowde ix20 iy32 moveto () showen ix21 iy32 moveto (If No: How many steps can be distinguished?) showen (Falls Nein: Wieviel Stufen sind unterscheidbar?) showde ix22 iy32 moveto (of the given 16 steps) showen (von 16 Stufen sind es:) showde ix23 iy32 moveto (............ Steps) showen (............ Stufen) showde ix20 iy42 moveto iout 2 le {ioutT iout get jshow (-M) jshow (d ) nishowx ioutE iout get showen ( - Magentared:) showen ioutG iout get showde ( - Magentarot:) showde} {ioutT iout get jshow (-G) jshow (d ) nishowx ioutE iout get showen ( - Leafgreen:) showen ioutG iout get showde ( - Laubgr\374n:) showde} ifelse ix21 iy42 moveto (Are all the 16 steps distinguishable?) showen (Sind alle Stufen unterscheidbar?) showde ix22 iy42 moveto () showen ix23 iy42 moveto (Yes/No) bshowen (Ja/Nein) bshowde ix20 iy52 moveto () showen ix21 iy52 moveto (If No: How many steps can be distinguished?) showen (Falls Nein: Wieviel Stufen sind unterscheidbar?) showde ix22 iy52 moveto (of the given 16 steps) showen (von 16 Stufen sind es:) showde ix23 iy52 moveto (............ Steps) showen (............ Stufen) showde ix20 iy62 moveto iout 2 le {ioutT iout get jshow (-Y) jshow (d) nishowx ioutE iout get showen ( - Yellow:) showen ioutG iout get showde ( - Gelb:) showde} {ioutT iout get jshow (-B) jshow (d) nishowx ioutE iout get showen ( - Violetblue:) showen ioutG iout get showde ( - Violetblau:) showde} ifelse ix21 iy62 moveto (Are all the 16 steps distinguishable?) showen (Sind alle Stufen unterscheidbar?) showde ix22 iy62 moveto () showen ix23 iy62 moveto (Yes/No) bshowen (Ja/Nein) bshowde ix20 iy72 moveto () showen ix21 iy72 moveto (If No: How many steps can be distinguished?) showen (Falls Nein: Wieviel Stufen sind unterscheidbar?) showde ix22 iy72 moveto (of the given 16 steps) showen (von 16 Stufen sind es:) showde ix23 iy72 moveto (............ Steps) showen (............ Stufen) showde ix20 iy82 moveto (W-N ) jshow (White - Black:) showen (Wei\337 - Schwarz:) showde ix21 iy82 moveto (Are all the 16 steps distinguishable?) showen (Sind alle Stufen unterscheidbar?) showde ix22 iy82 moveto () showen ix23 iy82 moveto (Yes/No) bshowen (Ja/Nein) bshowde ix20 iy92 moveto () showen ix21 iy92 moveto (If No: How many steps can be distinguished?) showen (Falls Nein: Wieviel Stufen sind unterscheidbar?) showde ix22 iy92 moveto (of the given 16 steps) showen (von 16 Stufen sind es:) showde ix23 iy92 moveto (............ Steps) showen (............ Stufen) showde %******************************************** /ix30 0020 def %Question /ix31 0200 def %LR size /ix32 1200 def %letters /ix33 2000 def %Ring N /ix34 3000 def %Ring O /ix35 4000 def %Ring L /ix36 5000 def %Ring V /iyt3 2550 def %Tests of characters = 2x top + 5 lines /iy13 iyt3 iyd 0.0 mul sub def %TC /iy23 iyt3 iyd 1.0 mul sub def /iy33 iyt3 iyd 2.1 mul sub def %Relative size /iy43 iyt3 iyd 3.1 mul sub def %10 /iy53 iyt3 iyd 4.1 mul sub def %08 /iy63 iyt3 iyd 5.1 mul sub def %06 /iy73 iyt3 iyd 6.1 mul sub def %04 ix30 iy13 moveto (Test of characters and Landolt\255rings in four sizes ) bshowen (Pr\374fung von Schrift und Landoltringen in vier Gr\366\337en ) bshowde (according to Picture ) bshowen (nach Bild ) bshowde iout 2 le {(B5) bshow} {(D5) bshow} ifelse ioutT iout get bshow Txx show ix30 iy23 moveto (Is the recognition frequency > 50% for letters ) showen (Ist die Erkennungsh\344ufigkeit > 50% f\374r Schriftzeichen ) showde ((17 from 32 at least) and for Landolt-rings (minimum 5 of 8)?) showen ((min. 17 von 32) und f\374r Landoltringe (min. 5 von 8)?) showde ix31 iy33 moveto (Relative size) showen (Relative Gr\366\337e) showde ix32 iy33 moveto (Letters) showen (Schriftzeichen) showde ix33 iy33 moveto (Ring ) showen (Ringe ) showde (N) jshow ix34 iy33 moveto (Ring ) showen (Ringe ) showde iout 2 le {(C) jshow (d) nishowx} {(R) jshow (d) nishowx} ifelse ix35 iy33 moveto (Ring ) showen (Ringe ) showde iout 2 le {(M) jshow (d) nishowx} {(G) jshow (d) nishowx} ifelse ix36 iy33 moveto (Ring ) showen (Ringe ) showde iout 2 le {(Y) jshow (d) nishowx} {(B) jshow (d) nishowx} ifelse ix31 iy43 moveto (10) nshow ix32 iy43 moveto (Yes/No) showen (Ja/Nein) showde ix33 iy43 moveto (Yes/No) showen (Ja/Nein) showde ix34 iy43 moveto (Yes/No) showen (Ja/Nein) showde ix35 iy43 moveto (Yes/No) showen (Ja/Nein) showde ix36 iy43 moveto (Yes/No) showen (Ja/Nein) showde ix31 iy53 moveto ( 8) nshow ix32 iy53 moveto (Yes/No) showen (Ja/Nein) showde ix33 iy53 moveto (Yes/No) showen (Ja/Nein) showde ix34 iy53 moveto (Yes/No) showen (Ja/Nein) showde ix35 iy53 moveto (Yes/No) showen (Ja/Nein) showde ix36 iy53 moveto (Yes/No) showen (Ja/Nein) showde ix31 iy63 moveto ( 6) nshow ix32 iy63 moveto (Yes/No) showen (Ja/Nein) showde ix33 iy63 moveto (Yes/No) showen (Ja/Nein) showde ix34 iy63 moveto (Yes/No) showen (Ja/Nein) showde ix35 iy63 moveto (Yes/No) showen (Ja/Nein) showde ix36 iy63 moveto (Yes/No) showen (Ja/Nein) showde ix31 iy73 moveto ( 4) nshow ix32 iy73 moveto (Yes/No) showen (Ja/Nein) showde ix33 iy73 moveto (Yes/No) showen (Ja/Nein) showde ix34 iy73 moveto (Yes/No) showen (Ja/Nein) showde ix35 iy73 moveto (Yes/No) showen (Ja/Nein) showde ix36 iy73 moveto (Yes/No) showen (Ja/Nein) showde %*************************************************** /ix40 0020 def %Question /ix41 0100 def %CR W-O /ix42 0900 def %Y/N /ix43 1600 def %CR W-L /ix44 2400 def %Y/N /ix45 3100 def %CR W-V /ix46 3900 def %Y/N /ix47 4600 def %CR W-N /ix48 5400 def %Y/N /iyt4 1500 def %Recognition frequency = 2x top + 8 lines /iy04 iyt4 iyd 0.0 mul sub def %RF /iy140 iyt4 iyd 1.0 mul sub def /iy141 iyt4 iyd 2.0 mul sub def /iy24 iyt4 iyd 3.1 mul sub def %CR /iy34 iyt4 iyd 4.1 mul sub def %BR /iy44 iyt4 iyd 5.1 mul sub def %0-1 /iy54 iyt4 iyd 6.1 mul sub def %7-8 /iy64 iyt4 iyd 7.1 mul sub def %E-F /iy74 iyt4 iyd 8.1 mul sub def %2-0 /iy84 iyt4 iyd 9.1 mul sub def %8-6 /iy94 iyt4 iyd 10.1 mul sub def %F-D ix40 iy04 moveto (Test of recognition frequency of Landolt\255rings ) bshowen (Pr\374fung der Erkennungsh\344ufigkeit der Landoltringe ) showde iout 2 le {ioutT iout get jshow (-C) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-M) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-Y) jshow (d) nishowx} {ioutT iout get jshow (-R) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-G) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-B) jshow (d) nishowx} ifelse (, and ) bshowen ( und ) bshowde (W-N ) jshow ix40 iy140 moveto (according to Pictures ) bshowen (nach Bildern ) showde iout 2 le {(B6) bshow} {(D6) bshow} ifelse ioutT iout get bshow Txx show (, and ) bshowen ( und ) bshowde iout 2 le {(B7) bshow} {(D7) bshow} ifelse ioutT iout get bshow Txx show ix40 iy141 moveto (Is the recognition frequency of the Landolt\255rings ) showen (> 50% (min. 5 of 8 at least)?) showen (Ist die Erkennungsh\344ufigkeit der Landoltringe ) showde (> 50% (min. 5 von 8)?) showde ix41 iy24 moveto (Colour row ) showen (Farbreihe ) showde iout 2 le {ioutT iout get jshow (-C) jshow (d) nishowx} {ioutT iout get jshow (-R) jshow (d) nishowx} ifelse ix43 iy24 moveto (Colour row ) showen (Farbreihe ) showde iout 2 le {ioutT iout get jshow (-M) jshow (d) nishowx} {ioutT iout get jshow (-G) jshow (d) nishowx} ifelse ix45 iy24 moveto (Colour row ) showen (Farbreihe ) showde iout 2 le {ioutT iout get jshow (-Y) jshow (d) nishowx} {ioutT iout get jshow (-B) jshow (d) nishowx} ifelse ix47 iy24 moveto (Colour row ) showen (Farbreihe ) showde (W-N) jshow ix41 iy34 moveto (background - ring) showen (Umfeld - Ring) showde ix43 iy34 moveto (background - ring) showen (Umfeld - Ring) showde ix45 iy34 moveto (background - ring) showen (Umfeld - Ring) showde ix47 iy34 moveto (background - ring) showen (Umfeld - Ring) showde ix41 iy44 moveto (0 - 1) showen ix42 iy44 moveto (Yes/No) showen (Ja/Nein) showde ix43 iy44 moveto (0 - 1) showen ix44 iy44 moveto (Yes/No) showen (Ja/Nein) showde ix45 iy44 moveto (0 - 1) showen ix46 iy44 moveto (Yes/No) showen (Ja/Nein) showde ix47 iy44 moveto (0 - 1) showen ix48 iy44 moveto (Yes/No) showen (Ja/Nein) showde ix41 iy54 moveto (7 - 8) showen ix42 iy54 moveto (Yes/No) showen (Ja/Nein) showde ix43 iy54 moveto (7 - 8) showen ix44 iy54 moveto (Yes/No) showen (Ja/Nein) showde ix45 iy54 moveto (7 - 8) showen ix46 iy54 moveto (Yes/No) showen (Ja/Nein) showde ix47 iy54 moveto (7 - 8) showen ix48 iy54 moveto (Yes/No) showen (Ja/Nein) showde ix41 iy64 moveto (E - F) showen ix42 iy64 moveto (Yes/No) showen (Ja/Nein) showde ix43 iy64 moveto (E - F) showen ix44 iy64 moveto (Yes/No) showen (Ja/Nein) showde ix45 iy64 moveto (E - F) showen ix46 iy64 moveto (Yes/No) showen (Ja/Nein) showde ix47 iy64 moveto (E - F) showen ix48 iy64 moveto (Yes/No) showen (Ja/Nein) showde ix41 iy74 moveto (2 - 0) showen ix42 iy74 moveto (Yes/No) showen (Ja/Nein) showde ix43 iy74 moveto (2 - 0) showen ix44 iy74 moveto (Yes/No) showen (Ja/Nein) showde ix45 iy74 moveto (2 - 0) showen ix46 iy74 moveto (Yes/No) showen (Ja/Nein) showde ix47 iy74 moveto (2 - 0) showen ix48 iy74 moveto (Yes/No) showen (Ja/Nein) showde ix41 iy84 moveto (8 - 6) showen ix42 iy84 moveto (Yes/No) showen (Ja/Nein) showde ix43 iy84 moveto (8 - 6) showen ix44 iy84 moveto (Yes/No) showen (Ja/Nein) showde ix45 iy84 moveto (8 - 6) showen ix46 iy84 moveto (Yes/No) showen (Ja/Nein) showde ix47 iy84 moveto (8 - 6) showen ix48 iy84 moveto (Yes/No) showen (Ja/Nein) showde ix41 iy94 moveto (F - D) showen ix42 iy94 moveto (Yes/No) showen (Ja/Nein) showde ix43 iy94 moveto (F - D) showen ix44 iy94 moveto (Yes/No) showen (Ja/Nein) showde ix45 iy94 moveto (F - D) showen ix46 iy94 moveto (Yes/No) showen (Ja/Nein) showde ix47 iy94 moveto (F - D) showen ix48 iy94 moveto (Yes/No) showen } if %pchartl=1 pchartl 2 eq {%pchart=2 /CMeasSxl (Measure unknown) def /CDeviceSxl (Device unknown) def /CDateSxl (Date unknown) def /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def colorml 0 eq {/ilx 0 def } {%colorml=1 xchartl xchartd idiv 2 le {/ilx xchartl def} if xchartl xchartd idiv 3 eq {/ilx 4 def} if xchartl xchartd idiv 4 eq {/ilx 8 def} if xchartl xchartd idiv 5 eq {/ilx 16 def} if xchartl xchartd idiv 6 eq {/ilx 32 def} if xchartl xchartd idiv 7 eq {/ilx 64 def} if } ifelse /Xnref 0.63 ilx mul 0.9505 mul def /Ynref 0.63 ilx mul def /Znref 0.63 ilx mul 1.0890 mul def /XQ Xnref 95.05 div def /YQ Ynref 100.00 div def /ZQ Znref 108.90 div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if /L*ref YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse def /a*ref XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul def /b*ref YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul def /L*N L*ref def /L*W 95.41 def /L*i 21 array def %different for xchartl=0,7 /a*i 21 array def /b*i 21 array def /l*i 21 array def /Yi 21 array def %equal distance between L*N and L*W 0 1 20 {/i exch def %steps from black to white i 15 le {/i0 0 def /istep 15 def} {/i0 16 def /istep 4 def} ifelse L*i i L*N L*W L*N sub i i0 sub istep div mul add put a*i i 0 put b*i i 0 put l*i i L*i i get L*N sub L*W L*N sub div put /Y* {L*i i get 16 add 116 div} bind def Yi i Y* DecodeXYZ* 100.00 mul put } for /cvishow {cvi 6 string cvs show} def 72 90 translate %0.023 0.5 mul MM dup scale 0.020 0.5 mul MM dup scale 15 setlinewidth 0 setgray 100 /Times-ISOL1 FS 100 -90 moveto (fea31-5A) show %(\255) show colorml cvishow xcolorl cvishow %xchartd 1 eq {xchartl cvishow} % {xchartl xchartd idiv cvishow} ifelse %(\255) show pchartl cvishow (: ) show %(File: ) show CMeasSxl show (; ) show %(Device: ) show CDeviceSxl show (; ) show %(Date: ) show CDateSxl show 1 setgray 0 0 moveto 5400 0 rlineto 0 4000 rlineto %relatives Bildfeld 54 x 40mm -5400 0 rlineto closepath fill 0 setgray 0 0 moveto 5400 0 rlineto 0 4000 rlineto %relatives Bildfeld 54 x 40mm -5400 0 rlineto closepath stroke 0 setgray 100 /Times-ISOL1 FS 0800 0400 translate %Nullpunkt Zeichnung 0 0 moveto 4000 0 rlineto stroke 0 0 moveto 0 3200 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten 150 /TimesI-ISOL1 FS 0 -50 moveto 0 100 rlineto stroke 800 -50 moveto 0 100 rlineto stroke 1600 -50 moveto 0 100 rlineto stroke 2400 -50 moveto 0 100 rlineto stroke 3200 -50 moveto 0 100 rlineto stroke 4000 -50 moveto 0 100 rlineto stroke -300 -300 moveto (N 0,0) show 700 -300 moveto (0,25) show 1500 -300 moveto (0,50) show 2300 -300 moveto (0,75) show 3100 -300 moveto (1,00 W) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 800 moveto 100 0 rlineto stroke -50 1600 moveto 100 0 rlineto stroke -50 2400 moveto 100 0 rlineto stroke -50 3200 moveto 100 0 rlineto stroke -530 -60 moveto (N 0,00) show -350 740 moveto (0,25) show -350 1540 moveto (0,50) show -350 2340 moveto (0,75) show -530 3140 moveto (W 1,00) show 150 /TimesI-ISOL1 FS -700 2900 moveto (w*'output) show -700 2700 moveto (w'*output) show 3000 200 moveto (w*input) show 0 setgray 0 0 moveto 3200 3200 lineto stroke % [100] 0 setdash % 0 3200 0.133 mul moveto % 3200 3200 3200 0.0333 mul add lineto stroke % 0 3200 0.133 mul neg moveto % 3200 3200 3200 0.0333 mul sub lineto stroke colorml 1 eq {/xchartNl xchartl 8 idiv def /xchartPl xchartl xchartl 8 idiv 8 mul sub def /gammaNl 1 xchartNl 0.18 mul add def /gammaPl 1 1 xchartPl 0.18 mul add div def /gammal gammaNl gammaPl mul def } if /L*gi 21 array def %different for xchartl=0,7 /a*gi 21 array def /b*gi 21 array def /l*gi 21 array def /Ygi 21 array def %distance between L*N and L*W using gamma 0 1 20 {/i exch def %steps from black to white l*gi i l*i i get colorm 1 eq {gammal exp} if put L*gi i L*W L*N sub l*gi i get mul L*N add put a*gi i 0 put b*gi i 0 put /Y* {L*gi i get 16 add 116 div} bind def Ygi i Y* DecodeXYZ* 100.00 mul put } for 0 0 1 setrgbcolor 40 setlinewidth [100] 0 setdash 0 1 15 {/i exch def /xw l*i i get def /yw l*i i get colorml 1 eq {gammal exp} if def xw 3200 mul yw 3200 mul i 0 eq { moveto} {lineto} ifelse } for stroke %i 0 0 1 setrgbcolor 40 setlinewidth [100] 0 setdash 0 1 15 {/i exch def /xw l*i i get def /yw l*i i get colorml 1 eq {1 gammal div exp} if def xw 3200 mul yw 3200 mul i 0 eq { moveto} {lineto} ifelse } for stroke %i 1 0 0 setrgbcolor 25 setlinewidth [50] 0 setdash 0 1 15 {/i exch def /xw i 15 div def /yw xw colorml 1 eq {gammal exp} if def xw 3200 mul yw 3200 mul i 0 eq { moveto} {lineto} ifelse } for stroke %i 0 1 15 {/i exch def /xw i 15 div def /yw xw colorml 1 eq {1 gammal div exp} if def xw 3200 mul yw 3200 mul i 0 eq { moveto} {lineto} ifelse } for stroke %i 0 setgray 150 /Times-ISOL1 FS -400 3450 moveto lanind 0 eq {(F\374 linearisierte Ausgabe der 16 Graustufen nach ) show} if lanind 1 eq {(For linearized output of the 16 grey steps according to ) show} if (ISO 9241\255306) show %xchartd 1 eq {xchartl cvishow} % {xchartl xchartd idiv cvishow} ifelse %(\255) show pchartl cvishow 0 0 1 setrgbcolor 150 /TimesBI-ISOL1 FS 100 3200 moveto ('* (dash\255star) coordinates to reach) showen ('* (Strich\255Stern)\255Koordinaten um die) showde 100 3000 moveto (the linearized output with the real) showen (linearisierte Ausgabe mit realer Display\255) showde 100 2800 moveto (display reflection in office room;) showen (Reflexion im B\374roraum zu erreichen;) showde 100 2600 moveto (lighter (positiv P) output) showen (hellere (positive P) Ausgabe) showde 1 0 0 setrgbcolor 150 /TimesBI-ISOL1 FS 100 2350 moveto (w'*) show 120 /TimesB-ISOL1 FS -70 -70 rmoveto (output) show 0 70 rmoveto 150 /TimesB-ISOL1 FS ( = [) show 150 /TimesBI-ISOL1 FS (w*) show 120 /TimesB-ISOL1 FS -50 -70 rmoveto (input) show 0 70 rmoveto 150 /TimesB-ISOL1 FS (] ) show 0 70 rmoveto colorml 0 eq {(1.00) show} {xchartd 1 eq {gammaPl}{1 gammaNl div} ifelse 0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show } ifelse 0 -70 rmoveto 150 /TimesBI-ISOL1 FS 2500 1800 moveto (w* = r* = g* = b*) show 0 0 1 setrgbcolor 150 /TimesBI-ISOL1 FS 2500 1400 moveto (*' (star\255dash) coordinates) showen (*' (Stern\255Strich)\255Koordinaten) showde 2500 1200 moveto (of real output with real) showen (von realer Ausgabe mit realer) showde 2500 1000 moveto (display reflection in office room;) showen (Dsplay\255Reflexion im B\374roraum;) showde 2500 0800 moveto (darker (negativ N) output) showen (dunklere (negative N) Ausgabe) showde 1 0 0 setrgbcolor 150 /TimesBI-ISOL1 FS 2500 0550 moveto (w*') show 120 /TimesB-ISOL1 FS -70 -70 rmoveto (output) show 0 70 rmoveto 150 /TimesB-ISOL1 FS ( = [) show 150 /TimesBI-ISOL1 FS (w*) show 120 /TimesB-ISOL1 FS -50 -70 rmoveto (input) show 0 70 rmoveto 150 /TimesB-ISOL1 FS (] ) show 0 70 rmoveto colorml 0 eq {(1.00) show} {xchartd 1 eq {1 gammaPl div}{gammaNl} ifelse 0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show } ifelse 0 -70 rmoveto -0800 -0400 translate %Nullpunkt Zeichnung } if %pchartl=2 showpage grestore } for %pchartl=0,2 %} for %xchartl=0,7 %} for %xcolorl=0,3 %} for %colorml=0,1 %%Trailer %line 259 %%EndDocument EndEPSF grestore gsave BeginEPSF 86 SHAl add MM 020 STAl add 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 %!PS-Adobe-3.0 EPSF-3.0 fea31-8a.EPS %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark18 where {pop} {userdict /pdfmark18 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript Pictures: http://farbe.li.tu-berlin.de/fea3/fea3.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2023110112000) /ModDate (D:20231101112000) /DOCINFO pdfmark18 [ /View [ /FitB ] /DOCVIEW pdfmark18 %END PDFDE011 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /A4querL {598 0 translate 90 rotate} def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /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 {315 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def %*********************************************************** /nshow {300 /Times-ISOL1 FS show} bind def /kshow {300 /TimesI-ISOL1 FS show} bind def /bshow {300 /TimesB-ISOL1 FS show} bind def /jshow {300 /TimesBI-ISOL1 FS show} bind def /sshow {300 /Symbol FS show} bind def /ishow {220 /Times-ISOL1 FS -00 -50 rmoveto show 00 50 rmoveto} bind def /eshow {220 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto} bind def /cvishow {0.5 add cvi 6 string cvs show} def /cvsshow1 {0.05 add 10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {0.005 add 100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show} def %%EndProlog gsave /lanind 0 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 /showea {1 lanind le {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /lanind1 01 def /lanind2 01 def /lanindd 01 def /colorm1 00 def /colorm2 00 def /colormd 01 def /deintp1 00 def /deintp2 00 def /deintpd 01 def /xcolor1 03 def /xcolor2 03 def /xcolord 01 def /xchart1 00 def /xchart2 00 def /xchartd 01 def /pchart1 00 def /pchart2 00 def /pchartd 01 def /colsep1 00 def /colsep2 00 def /colsepd 01 def /pmetam1 00 def /pmetam2 00 def /pmetamd 01 def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} if /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} if /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} if /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} if /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchartmf def} {/xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 1 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def /pchartm pchartmf def} {/pchartm 1 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} if /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} if /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES where {pop %/IMES IMES def } {/IMES 0 def} ifelse /colorml 1 def %0 1 1 {/colorml exch def %colorml=0,1 /xcolorl xcolor def %0 1 3 {/xcolorl exch def %xcolorl=0,3 /xchartl 7 def %1 2 7 {/xchartl exch def %xchartl=0,7 /pchartl pchart def 2 2 2 {/pchartl exch def %pchartl=0,2 colorml 0 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if colorml 0 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if colorml 1 eq deintp 0 eq and {/Txx (*dd) def /Fxx (*d) def} if colorml 1 eq deintp 1 eq and {/Txx (*de) def /Fxx (*e) def} if %xchart 0 eq {/Txx (-) def /Fxx (-) def} if gsave xcolorl 0 eq {/tfnx* {0 0 0 1 setcmykcolor} def /tfwx* {0 0 0 0 setcmykcolor} def /colrecfix* {setcmykcolor rec fill} bind def /colrecstx* {setcmykcolor rec stroke} bind def } if xcolorl 1 eq {/tfnx* {0 setgray} def /tfwx* {1 setgray} def /colrecfix* {setgray rec fill} bind def /colrecstx* {setgray rec stroke} bind def } if xcolorl 2 eq {/tfnx* {1 1 1 0 setcmykcolor} def /tfwx* {0 0 0 0 setcmykcolor} def /colrecfix* {setcmykcolor rec fill} bind def /colrecstx* {setcmykcolor rec stroke} bind def } if xcolorl 3 eq {/tfnx* {0 0 0 setrgbcolor} def /tfwx* {1 1 1 setrgbcolor} def /colrecfix* {setrgbcolor rec fill} bind def /colrecstx* {setrgbcolor rec stroke} bind def } if pchartl 1 eq {%pchartl=1 /iout 3 def %iout=0_2:CMY, iout=3-5: OLV /ioutT [(W) (N) (Z) (W) (N) (Z)] def /ioutE [(White) (Black) (Grey) (White) (Black) (Grey)] def /ioutG [(Wei\337) (Schwarz) (Grau) (Wei\337) (Schwarz) (Grau)] def /nshow {iyt /Times-ISOL1 FS show} def /nishow {-30 -50 rmoveto iyt 50 sub /Times-ISOL1 FS show 30 50 rmoveto} def /nishow0 {-30 -50 rmoveto iyt 50 sub /Times-ISOL1 FS show 00 50 rmoveto} def /nishowx {-00 -30 rmoveto iyt 50 sub /Times-ISOL1 FS show 00 30 rmoveto} def /kshow {iyt /TimesI-ISOL1 FS show} def /bshow {iyt /TimesB-ISOL1 FS show} def /jshow {iyt /TimesBI-ISOL1 FS show} def /ishow {-30 -50 rmoveto iyt 50 sub /TimesB-ISOL1 FS show 30 50 rmoveto} def /ishow0 {-30 -50 rmoveto iyt 50 sub /TimesB-ISOL1 FS show 00 50 rmoveto} def /eshow { 00 110 rmoveto iyt 50 sub /TimesB-ISOL1 FS show 00 -110 rmoveto} def /neshow { 00 110 rmoveto iyt 50 sub /Times-ISOL1 FS show 00 -110 rmoveto} def /neshowx { 00 70 rmoveto iyt 50 sub /Times-ISOL1 FS show 00 -70 rmoveto} def /showde {0 lanind eq {nshow} {pop} ifelse} bind def /showen {1 lanind eq {nshow} {pop} ifelse} bind def /nishowde {0 lanind eq {nishow} {pop} ifelse} bind def /nishowen {1 lanind eq {nishow} {pop} ifelse} bind def /kshowde {0 lanind eq {kshow} {pop} ifelse} bind def /kshowen {1 lanind eq {kshow} {pop} ifelse} bind def /bshowde {0 lanind eq {bshow} {pop} ifelse} bind def /bshowen {1 lanind eq {bshow} {pop} ifelse} bind def /jshowde {0 lanind eq {jshow} {pop} ifelse} bind def /jshowen {1 lanind eq {jshow} {pop} ifelse} bind def /ishowde {0 lanind eq {ishow} {pop} ifelse} bind def /ishowen {1 lanind eq {ishow} {pop} ifelse} bind def /sshowde {0 lanind eq {sshow} {pop} ifelse} bind def /sshowen {1 lanind eq {sshow} {pop} ifelse} bind def /cvishow {cvi 6 string cvs show} def 72 90 translate 0.02 0.5 mul MM dup scale 15 setlinewidth /iyt 130 def %text size, line difference TM 0 setgray 0 -120 moveto %(Part 1) showen (Teil 1) showde %4500 -120 moveto (fea30-3A) show %(\255) show colorml cvishow xcolorl cvishow %pchartd 1 eq {xchartl cvishow} % {xchartl xchartd idiv cvishow} ifelse %(\255) show pchartl cvishow %(: ) show 1 setgray 0 0 moveto 6000 0 rlineto 0 4200 rlineto -6000 0 rlineto closepath fill 0 setgray 0 0 moveto 6000 0 rlineto 0 4200 rlineto -6000 0 rlineto closepath stroke /ix1 50 def %1 /ix2 1600 def %2 /ix3 5100 def %3 /ix21 2600 def %W-R /ix22 3300 def %W-G /ix23 4000 def %W-B /ix24 4700 def %W-N /ix25 5700 def %W-Z /iyd 145 def %line difference /ix20 0020 def %Text and colour W-O etc. /ix21 1500 def %Question /ix22 4000 def %of 16 steps /ix23 5200 def %Yes/No /iyt2 4080 def %Recognition frequency = 2x top + 8 lines /iy02 iyt2 iyd 0.0 mul sub def %RF /iy12 iyt2 iyd 1.0 mul sub def /iy22 iyt2 iyd 2.1 mul sub def %W-O /iy32 iyt2 iyd 3.1 mul sub def /iy42 iyt2 iyd 4.2 mul sub def %W-L /iy52 iyt2 iyd 5.2 mul sub def /iy62 iyt2 iyd 6.3 mul sub def %W-V /iy72 iyt2 iyd 7.3 mul sub def /iy82 iyt2 iyd 8.4 mul sub def %W-N /iy92 iyt2 iyd 9.4 mul sub def ix20 iy02 moveto (Test of 16 visually equally spaced steps of the colour rows ) bshowen (Pr\374fung der 16 visuell gleichabst\344ndigen Buntstufen der Farbreihen ) bshowde iout 2 le {ioutT iout get jshow (-C) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-M) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-Y) jshow (d) nishowx} {ioutT iout get jshow (-R) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-G) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-B) jshow (d) nishowx} ifelse (, and ) bshowen ( und ) bshowde (W-N ) jshow ix20 iy12 moveto (according to Picture ) bshowen (nach Bild ) bshowde iout 2 le {(B4) bshow}{(D4) bshow} ifelse ioutT iout get bshow Txx show ix20 iy22 moveto iout 2 le {ioutT iout get jshow (-C) jshow (d ) nishowx ioutE iout get showen ( - Cyanblue:) showen ioutG iout get showde ( - Cyanblau:) showde} {ioutT iout get jshow (-R) jshow (d ) nishowx ioutE iout get showen ( - Orangered:) showen ioutG iout get showde ( - Orangerot:) showde} ifelse ix21 iy22 moveto (Are all the 16 steps distinguishable?) showen (Sind alle Stufen unterscheidbar?) showde ix22 iy22 moveto () showen ix23 iy22 moveto (Yes/No) bshowen (Ja/Nein) bshowde ix20 iy32 moveto () showen ix21 iy32 moveto (If No: How many steps can be distinguished?) showen (Falls Nein: Wieviel Stufen sind unterscheidbar?) showde ix22 iy32 moveto (of the given 16 steps) showen (von 16 Stufen sind es:) showde ix23 iy32 moveto (............ Steps) showen (............ Stufen) showde ix20 iy42 moveto iout 2 le {ioutT iout get jshow (-M) jshow (d ) nishowx ioutE iout get showen ( - Magentared:) showen ioutG iout get showde ( - Magentarot:) showde} {ioutT iout get jshow (-G) jshow (d ) nishowx ioutE iout get showen ( - Leafgreen:) showen ioutG iout get showde ( - Laubgr\374n:) showde} ifelse ix21 iy42 moveto (Are all the 16 steps distinguishable?) showen (Sind alle Stufen unterscheidbar?) showde ix22 iy42 moveto () showen ix23 iy42 moveto (Yes/No) bshowen (Ja/Nein) bshowde ix20 iy52 moveto () showen ix21 iy52 moveto (If No: How many steps can be distinguished?) showen (Falls Nein: Wieviel Stufen sind unterscheidbar?) showde ix22 iy52 moveto (of the given 16 steps) showen (von 16 Stufen sind es:) showde ix23 iy52 moveto (............ Steps) showen (............ Stufen) showde ix20 iy62 moveto iout 2 le {ioutT iout get jshow (-Y) jshow (d) nishowx ioutE iout get showen ( - Yellow:) showen ioutG iout get showde ( - Gelb:) showde} {ioutT iout get jshow (-B) jshow (d) nishowx ioutE iout get showen ( - Violetblue:) showen ioutG iout get showde ( - Violetblau:) showde} ifelse ix21 iy62 moveto (Are all the 16 steps distinguishable?) showen (Sind alle Stufen unterscheidbar?) showde ix22 iy62 moveto () showen ix23 iy62 moveto (Yes/No) bshowen (Ja/Nein) bshowde ix20 iy72 moveto () showen ix21 iy72 moveto (If No: How many steps can be distinguished?) showen (Falls Nein: Wieviel Stufen sind unterscheidbar?) showde ix22 iy72 moveto (of the given 16 steps) showen (von 16 Stufen sind es:) showde ix23 iy72 moveto (............ Steps) showen (............ Stufen) showde ix20 iy82 moveto (W-N ) jshow (White - Black:) showen (Wei\337 - Schwarz:) showde ix21 iy82 moveto (Are all the 16 steps distinguishable?) showen (Sind alle Stufen unterscheidbar?) showde ix22 iy82 moveto () showen ix23 iy82 moveto (Yes/No) bshowen (Ja/Nein) bshowde ix20 iy92 moveto () showen ix21 iy92 moveto (If No: How many steps can be distinguished?) showen (Falls Nein: Wieviel Stufen sind unterscheidbar?) showde ix22 iy92 moveto (of the given 16 steps) showen (von 16 Stufen sind es:) showde ix23 iy92 moveto (............ Steps) showen (............ Stufen) showde %******************************************** /ix30 0020 def %Question /ix31 0200 def %LR size /ix32 1200 def %letters /ix33 2000 def %Ring N /ix34 3000 def %Ring O /ix35 4000 def %Ring L /ix36 5000 def %Ring V /iyt3 2550 def %Tests of characters = 2x top + 5 lines /iy13 iyt3 iyd 0.0 mul sub def %TC /iy23 iyt3 iyd 1.0 mul sub def /iy33 iyt3 iyd 2.1 mul sub def %Relative size /iy43 iyt3 iyd 3.1 mul sub def %10 /iy53 iyt3 iyd 4.1 mul sub def %08 /iy63 iyt3 iyd 5.1 mul sub def %06 /iy73 iyt3 iyd 6.1 mul sub def %04 ix30 iy13 moveto (Test of characters and Landolt\255rings in four sizes ) bshowen (Pr\374fung von Schrift und Landoltringen in vier Gr\366\337en ) bshowde (according to Picture ) bshowen (nach Bild ) bshowde iout 2 le {(B5) bshow} {(D5) bshow} ifelse ioutT iout get bshow Txx show ix30 iy23 moveto (Is the recognition frequency > 50% for letters ) showen (Ist die Erkennungsh\344ufigkeit > 50% f\374r Schriftzeichen ) showde ((17 from 32 at least) and for Landolt-rings (minimum 5 of 8)?) showen ((min. 17 von 32) und f\374r Landoltringe (min. 5 von 8)?) showde ix31 iy33 moveto (Relative size) showen (Relative Gr\366\337e) showde ix32 iy33 moveto (Letters) showen (Schriftzeichen) showde ix33 iy33 moveto (Ring ) showen (Ringe ) showde (N) jshow ix34 iy33 moveto (Ring ) showen (Ringe ) showde iout 2 le {(C) jshow (d) nishowx} {(R) jshow (d) nishowx} ifelse ix35 iy33 moveto (Ring ) showen (Ringe ) showde iout 2 le {(M) jshow (d) nishowx} {(G) jshow (d) nishowx} ifelse ix36 iy33 moveto (Ring ) showen (Ringe ) showde iout 2 le {(Y) jshow (d) nishowx} {(B) jshow (d) nishowx} ifelse ix31 iy43 moveto (10) nshow ix32 iy43 moveto (Yes/No) showen (Ja/Nein) showde ix33 iy43 moveto (Yes/No) showen (Ja/Nein) showde ix34 iy43 moveto (Yes/No) showen (Ja/Nein) showde ix35 iy43 moveto (Yes/No) showen (Ja/Nein) showde ix36 iy43 moveto (Yes/No) showen (Ja/Nein) showde ix31 iy53 moveto ( 8) nshow ix32 iy53 moveto (Yes/No) showen (Ja/Nein) showde ix33 iy53 moveto (Yes/No) showen (Ja/Nein) showde ix34 iy53 moveto (Yes/No) showen (Ja/Nein) showde ix35 iy53 moveto (Yes/No) showen (Ja/Nein) showde ix36 iy53 moveto (Yes/No) showen (Ja/Nein) showde ix31 iy63 moveto ( 6) nshow ix32 iy63 moveto (Yes/No) showen (Ja/Nein) showde ix33 iy63 moveto (Yes/No) showen (Ja/Nein) showde ix34 iy63 moveto (Yes/No) showen (Ja/Nein) showde ix35 iy63 moveto (Yes/No) showen (Ja/Nein) showde ix36 iy63 moveto (Yes/No) showen (Ja/Nein) showde ix31 iy73 moveto ( 4) nshow ix32 iy73 moveto (Yes/No) showen (Ja/Nein) showde ix33 iy73 moveto (Yes/No) showen (Ja/Nein) showde ix34 iy73 moveto (Yes/No) showen (Ja/Nein) showde ix35 iy73 moveto (Yes/No) showen (Ja/Nein) showde ix36 iy73 moveto (Yes/No) showen (Ja/Nein) showde %*************************************************** /ix40 0020 def %Question /ix41 0100 def %CR W-O /ix42 0900 def %Y/N /ix43 1600 def %CR W-L /ix44 2400 def %Y/N /ix45 3100 def %CR W-V /ix46 3900 def %Y/N /ix47 4600 def %CR W-N /ix48 5400 def %Y/N /iyt4 1500 def %Recognition frequency = 2x top + 8 lines /iy04 iyt4 iyd 0.0 mul sub def %RF /iy140 iyt4 iyd 1.0 mul sub def /iy141 iyt4 iyd 2.0 mul sub def /iy24 iyt4 iyd 3.1 mul sub def %CR /iy34 iyt4 iyd 4.1 mul sub def %BR /iy44 iyt4 iyd 5.1 mul sub def %0-1 /iy54 iyt4 iyd 6.1 mul sub def %7-8 /iy64 iyt4 iyd 7.1 mul sub def %E-F /iy74 iyt4 iyd 8.1 mul sub def %2-0 /iy84 iyt4 iyd 9.1 mul sub def %8-6 /iy94 iyt4 iyd 10.1 mul sub def %F-D ix40 iy04 moveto (Test of recognition frequency of Landolt\255rings ) bshowen (Pr\374fung der Erkennungsh\344ufigkeit der Landoltringe ) showde iout 2 le {ioutT iout get jshow (-C) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-M) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-Y) jshow (d) nishowx} {ioutT iout get jshow (-R) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-G) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-B) jshow (d) nishowx} ifelse (, and ) bshowen ( und ) bshowde (W-N ) jshow ix40 iy140 moveto (according to Pictures ) bshowen (nach Bildern ) showde iout 2 le {(B6) bshow} {(D6) bshow} ifelse ioutT iout get bshow Txx show (, and ) bshowen ( und ) bshowde iout 2 le {(B7) bshow} {(D7) bshow} ifelse ioutT iout get bshow Txx show ix40 iy141 moveto (Is the recognition frequency of the Landolt\255rings ) showen (> 50% (min. 5 of 8 at least)?) showen (Ist die Erkennungsh\344ufigkeit der Landoltringe ) showde (> 50% (min. 5 von 8)?) showde ix41 iy24 moveto (Colour row ) showen (Farbreihe ) showde iout 2 le {ioutT iout get jshow (-C) jshow (d) nishowx} {ioutT iout get jshow (-R) jshow (d) nishowx} ifelse ix43 iy24 moveto (Colour row ) showen (Farbreihe ) showde iout 2 le {ioutT iout get jshow (-M) jshow (d) nishowx} {ioutT iout get jshow (-G) jshow (d) nishowx} ifelse ix45 iy24 moveto (Colour row ) showen (Farbreihe ) showde iout 2 le {ioutT iout get jshow (-Y) jshow (d) nishowx} {ioutT iout get jshow (-B) jshow (d) nishowx} ifelse ix47 iy24 moveto (Colour row ) showen (Farbreihe ) showde (W-N) jshow ix41 iy34 moveto (background - ring) showen (Umfeld - Ring) showde ix43 iy34 moveto (background - ring) showen (Umfeld - Ring) showde ix45 iy34 moveto (background - ring) showen (Umfeld - Ring) showde ix47 iy34 moveto (background - ring) showen (Umfeld - Ring) showde ix41 iy44 moveto (0 - 1) showen ix42 iy44 moveto (Yes/No) showen (Ja/Nein) showde ix43 iy44 moveto (0 - 1) showen ix44 iy44 moveto (Yes/No) showen (Ja/Nein) showde ix45 iy44 moveto (0 - 1) showen ix46 iy44 moveto (Yes/No) showen (Ja/Nein) showde ix47 iy44 moveto (0 - 1) showen ix48 iy44 moveto (Yes/No) showen (Ja/Nein) showde ix41 iy54 moveto (7 - 8) showen ix42 iy54 moveto (Yes/No) showen (Ja/Nein) showde ix43 iy54 moveto (7 - 8) showen ix44 iy54 moveto (Yes/No) showen (Ja/Nein) showde ix45 iy54 moveto (7 - 8) showen ix46 iy54 moveto (Yes/No) showen (Ja/Nein) showde ix47 iy54 moveto (7 - 8) showen ix48 iy54 moveto (Yes/No) showen (Ja/Nein) showde ix41 iy64 moveto (E - F) showen ix42 iy64 moveto (Yes/No) showen (Ja/Nein) showde ix43 iy64 moveto (E - F) showen ix44 iy64 moveto (Yes/No) showen (Ja/Nein) showde ix45 iy64 moveto (E - F) showen ix46 iy64 moveto (Yes/No) showen (Ja/Nein) showde ix47 iy64 moveto (E - F) showen ix48 iy64 moveto (Yes/No) showen (Ja/Nein) showde ix41 iy74 moveto (2 - 0) showen ix42 iy74 moveto (Yes/No) showen (Ja/Nein) showde ix43 iy74 moveto (2 - 0) showen ix44 iy74 moveto (Yes/No) showen (Ja/Nein) showde ix45 iy74 moveto (2 - 0) showen ix46 iy74 moveto (Yes/No) showen (Ja/Nein) showde ix47 iy74 moveto (2 - 0) showen ix48 iy74 moveto (Yes/No) showen (Ja/Nein) showde ix41 iy84 moveto (8 - 6) showen ix42 iy84 moveto (Yes/No) showen (Ja/Nein) showde ix43 iy84 moveto (8 - 6) showen ix44 iy84 moveto (Yes/No) showen (Ja/Nein) showde ix45 iy84 moveto (8 - 6) showen ix46 iy84 moveto (Yes/No) showen (Ja/Nein) showde ix47 iy84 moveto (8 - 6) showen ix48 iy84 moveto (Yes/No) showen (Ja/Nein) showde ix41 iy94 moveto (F - D) showen ix42 iy94 moveto (Yes/No) showen (Ja/Nein) showde ix43 iy94 moveto (F - D) showen ix44 iy94 moveto (Yes/No) showen (Ja/Nein) showde ix45 iy94 moveto (F - D) showen ix46 iy94 moveto (Yes/No) showen (Ja/Nein) showde ix47 iy94 moveto (F - D) showen ix48 iy94 moveto (Yes/No) showen } if %pchartl=1 pchartl 2 eq {%pchart=2 /CMeasSxl (Measure unknown) def /CDeviceSxl (Device unknown) def /CDateSxl (Date unknown) def /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def colorml 0 eq {/ilx 0 def } {%colorml=1 xchartl xchartd idiv 2 le {/ilx xchartl def} if xchartl xchartd idiv 3 eq {/ilx 4 def} if xchartl xchartd idiv 4 eq {/ilx 8 def} if xchartl xchartd idiv 5 eq {/ilx 16 def} if xchartl xchartd idiv 6 eq {/ilx 32 def} if xchartl xchartd idiv 7 eq {/ilx 64 def} if } ifelse /Xnref 0.63 ilx mul 0.9505 mul def /Ynref 0.63 ilx mul def /Znref 0.63 ilx mul 1.0890 mul def /XQ Xnref 95.05 div def /YQ Ynref 100.00 div def /ZQ Znref 108.90 div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if /L*ref YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse def /a*ref XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul def /b*ref YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul def /L*N L*ref def /L*W 95.41 def /L*i 21 array def %different for xchartl=0,7 /a*i 21 array def /b*i 21 array def /l*i 21 array def /Yi 21 array def %equal distance between L*N and L*W 0 1 20 {/i exch def %steps from black to white i 15 le {/i0 0 def /istep 15 def} {/i0 16 def /istep 4 def} ifelse L*i i L*N L*W L*N sub i i0 sub istep div mul add put a*i i 0 put b*i i 0 put l*i i L*i i get L*N sub L*W L*N sub div put /Y* {L*i i get 16 add 116 div} bind def Yi i Y* DecodeXYZ* 100.00 mul put } for /cvishow {cvi 6 string cvs show} def 72 90 translate %0.023 0.5 mul MM dup scale 0.020 0.5 mul MM dup scale 15 setlinewidth 0 setgray 100 /Times-ISOL1 FS 100 -90 moveto (fea31-5A) show %(\255) show colorml cvishow xcolorl cvishow %xchartd 1 eq {xchartl cvishow} % {xchartl xchartd idiv cvishow} ifelse %(\255) show pchartl cvishow (: ) show %(File: ) show CMeasSxl show (; ) show %(Device: ) show CDeviceSxl show (; ) show %(Date: ) show CDateSxl show 1 setgray 0 0 moveto 5400 0 rlineto 0 4000 rlineto %relatives Bildfeld 54 x 40mm -5400 0 rlineto closepath fill 0 setgray 0 0 moveto 5400 0 rlineto 0 4000 rlineto %relatives Bildfeld 54 x 40mm -5400 0 rlineto closepath stroke 0 setgray 100 /Times-ISOL1 FS 0800 0400 translate %Nullpunkt Zeichnung 0 0 moveto 4000 0 rlineto stroke 0 0 moveto 0 3200 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten 150 /TimesI-ISOL1 FS 0 -50 moveto 0 100 rlineto stroke 800 -50 moveto 0 100 rlineto stroke 1600 -50 moveto 0 100 rlineto stroke 2400 -50 moveto 0 100 rlineto stroke 3200 -50 moveto 0 100 rlineto stroke 4000 -50 moveto 0 100 rlineto stroke -300 -300 moveto (N 0,0) show 700 -300 moveto (0,25) show 1500 -300 moveto (0,50) show 2300 -300 moveto (0,75) show 3100 -300 moveto (1,00 W) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 800 moveto 100 0 rlineto stroke -50 1600 moveto 100 0 rlineto stroke -50 2400 moveto 100 0 rlineto stroke -50 3200 moveto 100 0 rlineto stroke -530 -60 moveto (N 0,00) show -350 740 moveto (0,25) show -350 1540 moveto (0,50) show -350 2340 moveto (0,75) show -530 3140 moveto (W 1,00) show 150 /TimesI-ISOL1 FS -700 2900 moveto (w*'output) show -700 2700 moveto (w'*output) show 3000 200 moveto (w*input) show 0 setgray 0 0 moveto 3200 3200 lineto stroke % [100] 0 setdash % 0 3200 0.133 mul moveto % 3200 3200 3200 0.0333 mul add lineto stroke % 0 3200 0.133 mul neg moveto % 3200 3200 3200 0.0333 mul sub lineto stroke colorml 1 eq {/xchartNl xchartl 8 idiv def /xchartPl xchartl xchartl 8 idiv 8 mul sub def /gammaNl 1 xchartNl 0.18 mul add def /gammaPl 1 1 xchartPl 0.18 mul add div def /gammal gammaNl gammaPl mul def } if /L*gi 21 array def %different for xchartl=0,7 /a*gi 21 array def /b*gi 21 array def /l*gi 21 array def /Ygi 21 array def %distance between L*N and L*W using gamma 0 1 20 {/i exch def %steps from black to white l*gi i l*i i get colorm 1 eq {gammal exp} if put L*gi i L*W L*N sub l*gi i get mul L*N add put a*gi i 0 put b*gi i 0 put /Y* {L*gi i get 16 add 116 div} bind def Ygi i Y* DecodeXYZ* 100.00 mul put } for 0 0 1 setrgbcolor 40 setlinewidth [100] 0 setdash 0 1 15 {/i exch def /xw l*i i get def /yw l*i i get colorml 1 eq {gammal exp} if def xw 3200 mul yw 3200 mul i 0 eq { moveto} {lineto} ifelse } for stroke %i 0 0 1 setrgbcolor 40 setlinewidth [100] 0 setdash 0 1 15 {/i exch def /xw l*i i get def /yw l*i i get colorml 1 eq {1 gammal div exp} if def xw 3200 mul yw 3200 mul i 0 eq { moveto} {lineto} ifelse } for stroke %i 1 0 0 setrgbcolor 25 setlinewidth [50] 0 setdash 0 1 15 {/i exch def /xw i 15 div def /yw xw colorml 1 eq {gammal exp} if def xw 3200 mul yw 3200 mul i 0 eq { moveto} {lineto} ifelse } for stroke %i 0 1 15 {/i exch def /xw i 15 div def /yw xw colorml 1 eq {1 gammal div exp} if def xw 3200 mul yw 3200 mul i 0 eq { moveto} {lineto} ifelse } for stroke %i 0 setgray 150 /Times-ISOL1 FS -400 3450 moveto lanind 0 eq {(F\374 linearisierte Ausgabe der 16 Graustufen nach ) show} if lanind 1 eq {(For linearized output of the 16 grey steps according to ) show} if (ISO 9241\255306) show %xchartd 1 eq {xchartl cvishow} % {xchartl xchartd idiv cvishow} ifelse %(\255) show pchartl cvishow 0 0 1 setrgbcolor 150 /TimesBI-ISOL1 FS 100 3200 moveto ('* (dash\255star) coordinates to reach) showen ('* (Strich\255Stern)\255Koordinaten um die) showde 100 3000 moveto (the linearized output with the real) showen (linearisierte Ausgabe mit realer Display\255) showde 100 2800 moveto (display reflection in office room;) showen (Reflexion im B\374roraum zu erreichen;) showde 100 2600 moveto (lighter (positiv P) output) showen (hellere (positive P) Ausgabe) showde 1 0 0 setrgbcolor 150 /TimesBI-ISOL1 FS 100 2350 moveto (w'*) show 120 /TimesB-ISOL1 FS -70 -70 rmoveto (output) show 0 70 rmoveto 150 /TimesB-ISOL1 FS ( = [) show 150 /TimesBI-ISOL1 FS (w*) show 120 /TimesB-ISOL1 FS -50 -70 rmoveto (input) show 0 70 rmoveto 150 /TimesB-ISOL1 FS (] ) show 0 70 rmoveto colorml 0 eq {(1.00) show} {xchartd 1 eq {gammaPl}{1 gammaNl div} ifelse 0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show } ifelse 0 -70 rmoveto 150 /TimesBI-ISOL1 FS 2500 1800 moveto (w* = r* = g* = b*) show 0 0 1 setrgbcolor 150 /TimesBI-ISOL1 FS 2500 1400 moveto (*' (star\255dash) coordinates) showen (*' (Stern\255Strich)\255Koordinaten) showde 2500 1200 moveto (of real output with real) showen (von realer Ausgabe mit realer) showde 2500 1000 moveto (display reflection in office room;) showen (Dsplay\255Reflexion im B\374roraum;) showde 2500 0800 moveto (darker (negativ N) output) showen (dunklere (negative N) Ausgabe) showde 1 0 0 setrgbcolor 150 /TimesBI-ISOL1 FS 2500 0550 moveto (w*') show 120 /TimesB-ISOL1 FS -70 -70 rmoveto (output) show 0 70 rmoveto 150 /TimesB-ISOL1 FS ( = [) show 150 /TimesBI-ISOL1 FS (w*) show 120 /TimesB-ISOL1 FS -50 -70 rmoveto (input) show 0 70 rmoveto 150 /TimesB-ISOL1 FS (] ) show 0 70 rmoveto colorml 0 eq {(1.00) show} {xchartd 1 eq {1 gammaPl div}{gammaNl} ifelse 0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show } ifelse 0 -70 rmoveto -0800 -0400 translate %Nullpunkt Zeichnung } if %pchartl=2 showpage grestore } for %pchartl=0,2 %} for %xchartl=0,7 %} for %xcolorl=0,3 %} for %colorml=0,1 %%Trailer %line 269 %%EndDocument EndEPSF grestore gsave showpage grestore %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 06 MM sub SHAr add 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 %!PS-Adobe-3.0 EPSF-3.0 fea31-8N %%BoundingBox: 70 85 246 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave /ioutx 0 def ioutx 1 eq {%ioutx=1 4 /Times-Roman FS 72 86 moveto (fea31-8N) show 72 90 translate 0.01 MM dup scale 20 setlinewidth /xwidth 6100 def /ywidth 4000 def 1 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath stroke } if %ioutx=1 grestore showpage %%Trailer %%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.0 MM -0.0 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 DG02 20070101 %%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 /showea {1 lanind le {show} {pop} ifelse} bind def /lanind1 01 def /lanind2 01 def /lanindd 01 def /colorm1 00 def /colorm2 00 def /colormd 01 def /deintp1 00 def /deintp2 00 def /deintpd 01 def /xcolor1 00 def /xcolor2 00 def /xcolord 01 def /xchart1 00 def /xchart2 00 def /xchartd 01 def /pchart1 00 def /pchart2 00 def /pchartd 01 def /colsep1 00 def /colsep2 00 def /colsepd 01 def /pmetam1 00 def /pmetam2 00 def /pmetamd 01 def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} if /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} if /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} if /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} if /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 1 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} if /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} if /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} if /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (n) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (p.ps./pdf) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (p.dat) def} ifelse /IMES 0 def /i*ptrsc 0 def gsave 0 setgray 1.0 1.0 scale 0.0 MM 1.0 MM translate %page shift down 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 005 291 291 005 %speziell 006 290 290 006 008 288 288 008 ] def /y [000 000 210 210 002 002 208 208 005 005 205 205 %speziell 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 colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if xchart 1 ge {%xchart>=1 /i0 12 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def 2.5 MM /Times-ISOL1 FS x i0 get MM 40 MM add y i0 get MM 1 MM sub moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolor cvishow xchart cvishow pchart cvishow colsep cvishow (-F) show pmetam cvishow } if %xchart>=1 /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 /xmo xlo xro xlo sub 0.5 mul add def /ymo yro 1 MM sub def xmo 1 MM sub ymo moveto 2 MM 0 rlineto stroke xmo ymo 1 MM sub moveto 0 1 MM rlineto stroke 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 /10TIN {10 /Times-ISOL1 FS} def /10TRN {10 /Times-Roman FS} def /12TIN {12 /Times-ISOL1 FS} def /12TRN {12 /Times-Roman FS} def /10TII {10 /TimesI-ISOL1 FS} def /10TRI {10 /Times-Italic FS} def /12TII {12 /TimesI-ISOL1 FS} def /12TRI {12 /Times-Italic FS} def /10TIB {10 /TimesB-ISOL1 FS} def /10TRB {10 /Times-Bold FS} def /12TIB {12 /TimesB-ISOL1 FS} def /12TRB {12 /Times-Bold FS} def /10TIBI {10 /TimesBI-ISOL1 FS} def /10TRBI {10 /Times-BoldItalic FS} def /12TIBI {12 /TimesBI-ISOL1 FS} def /12TRBI {12 /Times-BoldItalic FS} def /12RN {12 /Times-Roman FS} bind def /10RN {10 /Times-Roman FS} bind def /12RI {12 /Times-Italic FS} bind def /10RI {10 /Times-Italic FS} bind def /12RB {12 /Times-Bold FS} bind def /10RB {10 /Times-Bold FS} bind def /12RBI {12 /Times-BoldItalic FS} bind def /10RBI {10 /Times-BoldItalic FS} bind def /12TN {12 /Times-ISOL1 FS} bind def /10TN {10 /Times-ISOL1 FS} bind def /12TI {12 /TimesI-ISOL1 FS} bind def /10TI {10 /TimesI-ISOL1 FS} bind def /12TB {12 /TimesB-ISOL1 FS} bind def /10TB {10 /TimesB-ISOL1 FS} bind def /12TBI {12 /TimesBI-ISOL1 FS} bind def /10TBI {10 /TimesBI-ISOL1 FS} bind def %special /10TIN_10 {10TIN 0 -2 rmoveto xcolor 1 eq {(10) show} if 0 2 rmoveto} def /10TINK10 {10TIN 0 -2 rmoveto xcolor 1 eq {(,10) show} if 0 2 rmoveto} def /10SN {10 /Symbol FS} def /12SN {12 /Symbol FS} def /TELi0 8 array def /TELi1 8 array def /TELi 8 array def /TELi0 [(P65) (P60) (P55) (P50) (P45) (P40) (P35) (P30)] def %7 illumin. /TELi1 [(D65) (D50) (P40) (A00) (E00) (C00) (P00) (Q00)] def %7 illumin. /xchart8 0 def %xchart8=0: Pxx, xchart8=1: Dxx 0 1 7 {/i exch def %i=0,7 xchart8 0 eq {%xchart8=0 TELi i TELi0 i get put }%xchart8=0 {%xchart8=1 TELi i TELi1 i get put } ifelse %xchart8=1 } for %i=0,7 0 setgray 12TIN 61 MM 13.5 MM moveto (TUB\255Pr\374fvorlage fea3; ) showde (TUB\255test chart fea3; ) showen (gr\341fico TUB\255fea3; ) showes (TUB\255test graphique fea3; ) showfr (grafico TUB\255fea3; ) showit (TUB\255test chart fea3; ) showjp /xchart40 0 def %allways /xchart41 0 def %0:%case1, 1:%case2, 2:%case3 12TIN xchart40 0 eq {%xchart40=0 (Hellikeit ) showde (Lightness ) showen 12TII (L* ) show 12TIN (in der Farbmetrik, ) showde (in the colourimetry, ) showen (relative Helligkeit ) showde (relative lightness ) showen 12TII (T* ) show 12TIN (der sRGB\255) showde (of the sRGB) showen } if %xchart40=0 12TIN 61 MM 09.5 MM moveto xchart41 0 eq {%xchart41=0 12TIN (Prim\344rfarben nach ) showde (primary colours according to ) showen (IEC 61966\2552\2551, ) show (Stufung f\374r aneinandergrenzende und separate Muster) showde (spacing for adjacent and separate samples) showen } if %xchart41=0 xchart41 1 eq {%xchart41=1 (text case2 ) showde (text case2 ) showen } if %xchart41=2 xchart41 2 eq {%xchart41=2 (text case3 ) showde (text case3 ) showen } if %xchart41=2 62 MM 198.5 MM moveto 12RN tfbs (http://farbe.li.tu-berlin.de/fea3/fea3l) show 12TN (0) show % LSC$ show LEX$ show tfn (; only vector graphic VG) showen (; nur Vektorgrafik VG) showde %1 setgray %start white and unvisible (; ) show xchart 0 eq { (Start\255Ausgabe) showde (start output) showen (comience salida) showes (sortie de production) showfr (cominciare l'uscita) showit (start output) showjp } if 62 MM 194 MM moveto (Siehe separate Bilder dieser Seite: ) showde (see separate images of this page: ) showen (vea archivos semejantes: ) showes (voir des fichiers similaires: ) showfr (vedere dei file simili: ) showit (see similar files: ) showjp 12RN tfbs (http://farbe.li.tu-berlin.de/fea3/fea3.htm) show tfn 12TN 16 MM 185 MM moveto -90 rotate (Siehe \344hnliche Dateien der ganzen Serie: ) showde (see similar files of the whole serie: ) showen (vea archivos semejantes: ) showes (voir des fichiers similaires de serie: ) showfr (vedere dei file simili: ) showit (see similar files: ) showjp 12RN tfbs (http://farbe.li.tu-berlin.de/feas.htm) show tfn 12TN 90 rotate 12 MM 185 MM moveto -90 rotate (Technische Information: ) showde (technical information: ) showen (informaci\363n t\351cnica: ) showes (informations techniques: ) showfr (informazioni tecniche: ) showit (technical information: ) showjp 12RN tfbs (http://farbe.li.tu-berlin.de) show tfn 12TN ( oder ) showde ( or ) showen ( o ) showes ( ou ) showfr ( o ) showit ( or ) showjp 12RN tfbs (http://color.li.tu-berlin.de) show tfn 12TN 90 rotate 281 MM 185 MM moveto -90 rotate (TUB\255Registrierung: 20230801\255fea3/fea3l) showde (TUB registration: 20230801\255fea3/fea3l) showen (TUB matr\355cula: 20230801\255fea3/fea3l) showes (TUB enregistrement: 20230801\255fea3/fea3l) showfr (TUB iscrizione: 20230801\255fea3/fea3l) showit (TUB registration: 20230801\255fea3/fea3l) showjp (0) show % LSC$ show LEX$ show 90 rotate 281 MM 74 MM moveto -90 rotate (TUB\255Material: Code=rha4ta) showde (TUB material: code=rha4ta) showen (TUB material: code=rha4ta) showes (TUB mat\351riel: code=rha4ta) showfr (TUB materiale: code=rha4ta) showit (TUB material: code=rha4ta) showjp 90 rotate 277 MM 185 MM moveto -90 rotate /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def ( Anwendung f\374r Beurteilung und Messung ) showde ( application for evaluation and measurement ) showen ( aplicaci\363n para la medida ) showes ( application pour la mesure ) showfr ( la domanda per la misura ) showit ( application for measurement ) showjp (von Display\255 oder Druck\255Ausgabe) showde (of display or print output) showen (de display output) showes (de sortie sur \350cran) showfr (di stampa di display) showit (of display output) showjp 90 rotate /i0 8 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def 0.30 MM setlinewidth 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 grestore gsave %********************************************************** %%Trailer %%EndDocument EndEPSF grestore gsave showpage grestore %} for %colsepf=0,1 %} for %pchartf=0,0 %} for %xchartf=0,0 %} for %xcolorf=0,1 %} for %deintpf=0,1 %} for %colormf=0,1 %} for %lanindf=0,0 %%Trailer