%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/fen0/fen0l00XX.PS 20240301 %%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/fen0/fen0.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:2024030112000) /ModDate (D:20240301112000) /DOCINFO pdfmark [ /View [ /FitB ] /DOCVIEW pdfmark %Y10e00na.ps6 %line 20****************************************************** %BEG fen0/OUTLIN10.PS Emty 20210418 %END fen0/OUTLIN10.PS Emty 20210418 %BEG fen0/OUTLIN1X.PS 20210418 %EMPTY %END fen0/OUTLIN1X.PS 20210418 %BEG fen0/OUTLIN1Y2.PS Emty 20210418 %END fen0/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 fen00-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 (fen00-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 fen00-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 (fen00-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 fen00-3n_60 %%BoundingBox: 70 85 421 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/fen0/fen0.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 12250 def %2x6000+250 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 {(fen00-) show} {(fen01-) show} ifelse pchartl 0 eq {(3n) show} {(7n) show} ifelse grestore gsave %00 %01 %02 /SHSl 00.0 def /SHAl 02.8 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/fen0/fen00-1a fen00-8n %%BoundingBox: 70 85 245 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/fen0/fen0.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:2024030112200) /ModDate (D:20240301112200) /DOCINFO pdfmark01 [ /View [ /Fit ] /DOCVIEW pdfmark01 %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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TV {120 /Times-ISOL1 FS} 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 /TIV {120 /TimesI-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 /TBV {120 /TimesB-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 /TBIV {120 /TimesBI-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 /SV {120 /Symbol FS} bind def /SS {160 /Symbol FS} bind def /SL {200 /Symbol FS} bind def /SK {250 /Symbol FS} bind def /SM {300 /Symbol FS} bind def /SG {350 /Symbol FS} bind def /CV {120 /Courier FS} bind def /CS {160 /Courier FS} bind def /CL {200 /Courier FS} bind def /CK {250 /Courier FS} bind def /CM {300 /Courier FS} bind def /CG {350 /Courier FS} bind def /CIV {120 /Courier-Oblique FS} bind def /CIS {160 /Courier-Oblique FS} bind def /CIL {200 /Courier-Oblique FS} bind def /CIK {250 /Courier-Oblique FS} bind def /CIM {300 /Courier-Oblique FS} bind def /CIG {350 /Courier-Oblique FS} bind def /CBV {120 /Courier-Bold FS} bind def /CBS {160 /Courier-Bold FS} bind def /CBL {200 /Courier-Bold FS} bind def /CBK {250 /Courier-Bold FS} bind def /CBM {300 /Courier-Bold FS} bind def /CBG {350 /Courier-Bold FS} bind def /CBIV {120 /Courier-BoldOblique FS} bind def /CBIS {160 /Courier-BoldOblique FS} bind def /CBIL {200 /Courier-BoldOblique FS} bind def /CBIK {250 /Courier-BoldOblique FS} bind def /CBIM {300 /Courier-BoldOblique FS} bind def /CBIG {350 /Courier-BoldOblique 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 /kM2 {300 /TimesI-ISOL1 FS show TM} bind def /bM2 {300 /TimesB-ISOL1 FS show TM} bind def /jM2 {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 %XCHA02.PS BEG /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 {setrgbcolor rec fill} bind def /colrecst %x y width heigth c m y k {setrgbcolor rec stroke} bind def /rem %x, y width heigth {/heigth exch 0.5 mul def /width exch 0.5 mul def /yleftb exch heigth 0.5 mul add def /xleftb exch width 0.5 mul add def xleftb yleftb moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colremfi %x y width heigth c m y k {setrgbcolor rem fill} bind def /colremst %x y width heigth c m y k {setrgbcolor rem stroke} bind def /tzr {1 0 0} bind def %Reproduktionsfarben /tzg {0 1 0} bind def /tzb {0 0 1} bind def /tzc {0 1 1} bind def /tzm {1 0 1} bind def /tzy {1 1 0} bind def /tzo {1 0 0} bind def %Reproduktionsfarben /tzl {0 1 0} bind def /tzv {0 0 1} bind def /tzn {0.00} bind def %Graureihe /tzd {0.25} bind def /tzz {0.50} bind def /tzh {0.75} bind def /tzw {1.00} 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 /tfrn {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben /tfgn {0.0 0.5 0.0 setrgbcolor} bind def /tfbn {0.0 0.0 0.5 setrgbcolor} bind def /tfcn {0.0 0.5 0.5 setrgbcolor} bind def /tfmn {0.5 0.0 0.5 setrgbcolor} bind def /tfyn {0.5 0.5 0.0 setrgbcolor} bind def /tfon {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben /tfln {0.0 0.5 0.0 setrgbcolor} bind def /tfvn {0.0 0.0 0.5 setrgbcolor} bind def /tfn {0.00 setgray} bind def %Graureihe /tfd {0.25 setgray} bind def /tfz {0.50 setgray} bind def /tfh {0.75 setgray} bind def /tfw {1.00 setgray} 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 /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 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 % /ioute 1 def /ifunc 0 def /idevi 1 def /imevi 1 def /expnr 4 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 %always independent of intended output 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def %75 85 moveto %lanind cvishow (-) show %colorm cvishow %deintp cvishow %xcolor cvishow %xchart cvishow %pchart cvishow %colsep cvishow (-L) show pmetam cvishow gsave %XCHA01.PS END 4 /Times-ISOL1 FS %74 86 moveto (fen00-1R) show %xchart 0 eq {(R) show} % {deintp colorm 2 mul add cvishow} ifelse 72 90 translate 0.01 MM dup scale 20 setlinewidth %0 0 12250 17100 1.0 1.0 1.0 colrecfi %area white grey %0 0 12250 17100 0.0 0.0 0.0 colrecst %Rahmen Schwarz %/ifunc 0 def %ifunc 0 eq {Yi_L*i_dYi_L_0} if %ifunc 1 eq {Yi_L*i_dYi_C_0} if %Yi_Yxyi /xchartl 0 def %0 1 07 {/xchartl exch def %xchartl=0,07 gsave %from BEA80-1a fen00-8n.PS % xchartl 0 eq { 100 13000 translate} if % xchartl 1 eq { 6150 13000 translate} if % xchartl 2 eq { 100 08740 translate} if % xchartl 3 eq { 6150 08740 translate} if % xchartl 4 eq { 100 04480 translate} if % xchartl 5 eq { 6150 04480 translate} if % xchartl 6 eq { 100 00220 translate} if % xchartl 7 eq { 6150 00220 translate} if 130 /Times-ISOL1 FS 0 setgray 50 -130 moveto (fen00-1a fen00-8n) show %%%%%%%xchartl 1 add cvishow %%%%%%%(A) show %A %(_) show xchart 1 add cvishow /xwidth 6000 def /ywidth 4000 def 25 setlinewidth 0.5 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath clip 0 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath stroke tfn %tfw /xtr0 380 def /ytr0 350 def xtr0 ytr0 translate %********************************************************************* tfw 30 setlinewidth 0 0 moveto 5250 0 rlineto stroke 0 0 moveto 0 3250 rlineto stroke 5250 100 sub 50 moveto 100 -50 rlineto -100 -50 rlineto stroke -50 3250 100 sub moveto 50 100 rlineto 50 -100 rlineto stroke /tx [(-4) (-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3) ( 4)] def /ty [(-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3)] def /xz (x) def /xzn (-x) def ioute 1 eq expnr 7 ge and {%xchartl>=7 /xz (z) def /xzn (-z) def } if /KLxr {20 0 rmoveto TBIK xz show 0 -80 rmoveto TBL (r) show 20 80 rmoveto} def /LSxr {20 0 rmoveto TBIL xz show 0 -60 rmoveto TBS (r) show 20 60 rmoveto} def /SVxr {20 0 rmoveto TBIS xz show 0 -40 rmoveto TBV (r) show 20 40 rmoveto} def /KLxrx {20 0 rmoveto TBIK (x) show 0 -80 rmoveto TBL (r) show 20 80 rmoveto} def /KLxrz {20 0 rmoveto TBIK (z) show 0 -80 rmoveto TBL (r) show 20 80 rmoveto} def /LSxrx {20 0 rmoveto TBIL (x) show 0 -60 rmoveto TBS (r) show 20 60 rmoveto} def /LSxrz {20 0 rmoveto TBIL (z) show 0 -60 rmoveto TBS (r) show 20 60 rmoveto} def /SVxrx {20 0 rmoveto TBIS (x) show 0 -40 rmoveto TBV (r) show 20 40 rmoveto} def /SVxrz {20 0 rmoveto TBIS (z) show 0 -40 rmoveto TBV (r) show 20 40 rmoveto} def /100KLxr {0 100 rmoveto KLxr 0 -100 rmoveto} def /100LSxr {0 080 rmoveto LSxr 0 -080 rmoveto} def /100SVxr {0 060 rmoveto SVxr 0 -060 rmoveto} def /KLxrn {20 0 rmoveto TBIK xzn show 0 -80 rmoveto TBL (r) show 20 80 rmoveto} def /LSxrn {20 0 rmoveto TBIL xzn show 0 -60 rmoveto TBS (r) show 20 60 rmoveto} def /SVxrn {20 0 rmoveto TBIS xzn show 0 -40 rmoveto TBV (r) show 20 40 rmoveto} def /KLxrxn {20 0 rmoveto TBIK (xn) show 0 -80 rmoveto TBL (r) show 20 80 rmoveto} def /KLxrzn {20 0 rmoveto TBIK (zn) show 0 -80 rmoveto TBL (r) show 20 80 rmoveto} def /LSxrxn {20 0 rmoveto TBIL (xn) show 0 -60 rmoveto TBS (r) show 20 60 rmoveto} def /LSxrzn {20 0 rmoveto TBIL (zn) show 0 -60 rmoveto TBS (r) show 20 60 rmoveto} def /SVxrxn {20 0 rmoveto TBIS (xn) show 0 -40 rmoveto TBV (r) show 20 40 rmoveto} def /SVxrzn {20 0 rmoveto TBIS (zn) show 0 -40 rmoveto TBV (r) show 20 40 rmoveto} def /100KLxrn {0 100 rmoveto KLxrn 0 -100 rmoveto} def /100LSxrn {0 080 rmoveto LSxrn 0 -080 rmoveto} def /100SVxrn {0 060 rmoveto SVxrn 0 -060 rmoveto} def %!x-Achse: 1 log-Einheiten = 500 Skalen-Einheiten TBL 0 1 9 {/i exch def /ixt { -150 i 0500 mul add} def /ixl { 000 i 0500 mul add} def i 8 le {ixt -250 moveto tx i get exec show} if ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 1 log-Einheiten = 500 Skalen-Einheiten TBL 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -350 iyt moveto ty i get exec show -75 iyl moveto 150 0 rlineto stroke } for 4300 -260 moveto tfw LSxr TBL (=) show 30 0 rmoveto TBL (log[) show 30 0 rmoveto TBIL (L/L) show 0 -50 rmoveto TBS (u) show 0 50 rmoveto TBL (]) show 1900 200 moveto (L) TBIL tfw show TBS 20 -80 rmoveto (u) show 50 80 rmoveto 4300 0200 moveto (L) TBIL tfw show TBS 20 -80 rmoveto (u) show 00 80 rmoveto TBL 20 0 (=28) ashow (cd/m) show TBS 0 80 rmoveto (2) show 0 -80 rmoveto tfl 40 setlinewidth 1600 0 moveto 800 0 rlineto stroke 2200 270 moveto TBS (range of office) showen (Bereich B\374ro\255) showde 2200 100 moveto (luminance) showen (Leuchtdichte) showde xtr0 neg ytr0 neg translate %******************************************************** %BEG C01_C08 ******************************************** %original square tfn %tfw 050 3750 moveto xchartl 07 le {%xchartl=00 tfw TBIK (F) show -50 -80 rmoveto TBL (ab) show 0 80 rmoveto TBK (\050) show KLxr TBK (\051) show 20 0 rmoveto (=) show 20 0 rmoveto (unbunte Rezeptorerregung) showde (achromatic receptor response) showen } if %xchartl=00 xchartl 01 ge {%xchartl>=1 tfy TBK ( & modified) showen ( & modifiziert) showde } if %xchartl>=1 tfn %tfw %********************************************************************* %BEG Common text xtr0 ytr0 translate TBIK /iyt0 2900 def %top text line /iyt1 2300 def %lower yellow text line /ixt2 2420 def %right red text line /iyt2 1100 def %right red text line /ix0 100 def /ix1 750 def %for F(x) /ix1a 850 def %for Fn(x) /ix2 2200 def %text e /ix3 1700 def %ifunc 0 eq {/x_zp (x) def /x_zm (-x) def} % {/x_zp (z) def /x_zm (-z) def /lne_10d 1 10 ln div def} ifelse /x_zp (x) def /x_zm (-x) def ioute 0 eq {/e_10 (e) def /lne_10 1 def} {/e_10 (10) def /lne_10 1 def} ifelse /expnp 10 array def % 0 1 2 3 4 5 6 7 8 9 /expnp [1.0 1.0 0.7 0.5 1.0 0.7 0.5 1.0 0.7 0.5] def /expnk 10 array def % 0 1 2 3 4 5 6 7 8 9 /expnk [(1,0) (1,0) (0,7) (0,5) (1,0) (0,7) (0,5) (1,0) (0,7) (0,5)] def %**************************************** tfw 30 setlinewidth /jm1 0 def /jm2 1 def /iytj 0 def xchartl 0 eq {/jm2 0 def} {/jm2 1 def} ifelse jm1 1 jm2 {/j exch def %j=jm1,jm2 j 0 eq {/iyta 0 def} if j 1 eq {/iyta 0 def} if 0 1 1 {/k exch def %k=0,1 k 0 eq {%k=0 j 0 eq {[ ] 0 setdash tfw} if j 1 eq {[ ] 0 setdash tfy} if } if %k=0 k 1 eq {%k=1 j 0 eq {[100 100] 0 setdash tfn} if j 1 eq {[100 100] 0 setdash tfn} if } if %k=1 %font colour j 0 eq {tfw} if j 1 eq {tfy} if j 0 eq {/ixtx ix0 def /iytx iyt0 def} if j 1 eq {/ixtx ixt2 def /iytx iyt2 def} if /iytxt iytx 050 add j 0 eq {100 add} if def ixtx 1000 add iytxt iyta add 70 add moveto 1050 ioute 1 eq {200 add} if 0 rlineto stroke } for %k=0,1 ixtx iytxt moveto TBIL (F) show -30 -80 rmoveto TBS (ab) show 0 80 rmoveto TBL (\050) show LSxr TBL (\051) show TBL ( = b ) show ixtx 1000 add iytxt 100 add moveto TBL e_10 show 0 100 rmoveto SVxr TBS (/a) show ioute 1 eq {(') show} if 0 -100 rmoveto TBL ( - ) show TBL e_10 show 0 100 rmoveto SVxrn TBS (/a) show ioute 1 eq {(') show} if 0 -100 rmoveto ixtx 1000 add iytxt 200 sub moveto TBL e_10 show 0 100 rmoveto SVxr TBS (/a) show ioute 1 eq {(') show} if 0 -100 rmoveto TBL ( + ) show TBL e_10 show 0 100 rmoveto SVxrn TBS (/a) show ioute 1 eq {(') show} if 0 -100 rmoveto j 0 eq {%j=0, both sides tfw TBS ix3 1400 add iyt0 000 add moveto (a=1,00, b=1,00 e=2,718282) show ioute 1 eq {%ioute=1 ix3 2200 add iyt0 200 sub moveto (a'=a) show 30 0 rmoveto (ln(10)=) show 1.0 10 ln mul cvsshow3x } if %ioute=1 } if %j=0, both sides ioute 1 eq xchartl 0 eq and { %ioute=1, xchartl=0 right side ix3 1400 add iyt0 200 add moveto TBL (10) show 0 100 rmoveto SVxrx 0 -100 rmoveto TBL (=e) show 0 100 rmoveto TBS (ln(10)) show 30 0 rmoveto SVxrx 0 -100 rmoveto TBL (, 10) show 0 100 rmoveto SVxr TBS (/ln(10)) show 0 -100 rmoveto TBL (=e) show 0 100 rmoveto SVxrx 0 -100 rmoveto ix3 1400 add iyt0 ioute 0 eq {250 sub moveto} {500 sub 50 sub moveto} ifelse TBL (10) show ioute 0 eq {0 100 rmoveto SVxrx TBS (/a) show 0 -100 rmoveto } if ioute 1 eq expnr 6 le and {0 100 rmoveto SVxrx %zr for xchartl<=6 TBS (/a') show 0 -100 rmoveto } if ioute 1 eq expnr 6 gt and {0 100 rmoveto SVxrx %zr for xchartl>6 TBS (/a') show 0 -100 rmoveto } if TBL (=) show TBL (10) show 0 100 rmoveto SVxrx TBS ( / [a) show 30 0 rmoveto (ln(10)]) show 0 -100 rmoveto TBL (=) show TBL (e) show 0 100 rmoveto SVxrx TBS (/a) show 0 -100 rmoveto } if %ioute=1, xchartl=0 right side } for %j=jm1,jm2 idevi 1 eq {%idevi=1 /iyt1t iyt1 330 add def 30 setlinewidth [ ] 0 setdash tfg ix0 iyt1t moveto TBIL (F') show -50 -80 rmoveto TBS (ab) show 0 80 rmoveto TBL (\050) show LSxrx TBL (\051) show TBL ( = [4b] / [) show TBL (a) show 20 0 rmoveto TBL ({) show TBL e_10 show 0 80 rmoveto SVxr TBS (/a) show ioute 1 eq {(') show} if 20 -80 rmoveto TBL (+) show 20 0 rmoveto TBL e_10 show 0 80 rmoveto TBS (-) show SVxr TBS (/a) show ioute 1 eq {(') show} if 20 -80 rmoveto TBL (}) show 0 80 rmoveto TBS (2) show 0 -80 rmoveto TBL (]) show ix0 iyt1t 300 sub moveto TBS xchartl 0 eq {(a=1,00) show} if xchartl 1 eq {(a=1,00) show} if xchartl 2 eq {(a=2,00) show} if xchartl 3 eq {(a=0,50) show} if xchartl 4 eq {(a=2,00) show} if xchartl 5 eq {(a=0,50) show} if xchartl 6 eq {(a=1,00) show} if xchartl 7 eq {(a=0,50) show} if xchartl 1 ge {0 100 rmoveto TBS expnk expnr get show 0 -100 rmoveto} if TBS xchartl 0 eq {(; b=1,00) show} if xchartl 1 eq {(; b=2,00) show} if xchartl 2 eq {(; b=1,00) show} if xchartl 3 eq {(; b=1,00) show} if xchartl 4 eq {(; b=2,00) show} if xchartl 5 eq {(; b=2,00) show} if xchartl 6 eq {(; b=1,00) show} if xchartl 7 eq {(; b=0,50) show} if xchartl 1 le {%xchartl<=1 special text xchartl 0 eq {1620}{1820} ifelse 2150 moveto tfg TBIL (F') show -30 -80 rmoveto TBS (1_1) show 0 80 rmoveto xchartl 0 eq {TBL (\050) show LSxr TBL (\051) show} if } if %xchartl<=1 special text xchartl 1 eq {%xchartl=1 special text 0700 2000 moveto tfg TBIL (F') show -30 -80 rmoveto TBS (1_2) show 0 80 rmoveto TBL (\050) show LSxr TBL (\051) show tfw } if %xchartl=1 special text } if %idevi=1 tfw [ ] 0 setdash 0 1500 moveto 4500 0 rlineto stroke tfl [50 50] 0 setdash 0 2000 moveto 2000 0 rlineto stroke tfn 200 2070 moveto TBL (Asymptote) show tfw [ ] 0 setdash 2000 1500 moveto 0 500 rlineto stroke TBL 2450 2050 moveto (W) show tfn 1500 150 sub 0800 moveto (N) show xchartl 1 le {%xchartl<=1 special text 4600 2000 50 sub moveto tfw TBIL (F) show -30 -80 rmoveto TBS (1_1) show 0 80 rmoveto TBL (\050) show LSxr TBL (\051) show } if %xchartl<=1 special text xchartl 1 eq {%xchartl=1 special text 3200 2300 moveto tfy TBIL (F) show -30 -80 rmoveto TBS (1_2) show 0 80 rmoveto TBL (\050) show LSxr TBL (\051) show } if %xchartl=1 special text xtr0 neg ytr0 neg translate %********************************************************************* /C0i_FXi {%BEG C0i_FXi xtr0 ytr0 translate /xi 51 array def %range -4 bis +4 in steps of /yi 51 array def %range -1 to +1 /epxi 51 array def /emxi 51 array def /esxi 51 array def /Frui 51 array def /MULX 500 def /MULY 500 def %ioute 0 eq {/e 2.7182818 def} % {/e 10.0 def } ifelse /e 2.7182818 def /im 45 def jm1 1 jm2 {/j exch def %j=jm1,jm2 j 0 eq {%j=0 /a 1.0 expnp expnr get exp def /ai 1.0 expnp expnr get exp lne_10 mul def /bi 1.0 def } if %j=0 j 1 eq {%j=1 %xchartl 0 eq {/a 1.0 expnp expnr get exp def % /ai 1.0 expnp expnr get exp lne_10 mul def % /bi 1.0 def} if xchartl 1 eq {/a 1.0 expnp expnr get exp def /ai 1.0 expnp expnr get exp lne_10 mul def /bi 2.0 def} if xchartl 2 eq {/a 2.0 expnp expnr get exp def /ai 2.0 expnp expnr get exp lne_10 mul def /bi 1.0 def} if xchartl 3 eq {/a 0.5 expnp expnr get exp def /ai 0.5 expnp expnr get exp lne_10 mul def /bi 1.0 def} if xchartl 4 eq {/a 2.0 expnp expnr get exp def /ai 2.0 expnp expnr get exp lne_10 mul def /bi 2.0 def} if xchartl 5 eq {/a 0.5 expnp expnr get exp def /ai 0.5 expnp expnr get exp lne_10 mul def /bi 2.0 def} if xchartl 6 eq {/a 1.0 expnp expnr get exp def /ai 1.0 expnp expnr get exp lne_10 mul def /bi 0.5 def} if xchartl 7 eq {/a 0.5 expnp expnr get exp def /ai 0.5 expnp expnr get exp lne_10 mul def /bi 0.5 def} if } if %j=1 0 1 50 {/i exch def %i=0,50 xi i -4 i 0.2 mul add put ioute 0 eq {%ioute=0 epxi i e xi i get ai div exp put emxi i e xi i get ai div neg exp put } {%ioute=1 epxi i e xi i get lne_10 div ai div exp put emxi i e xi i get lne_10 div ai div neg exp put } ifelse esxi i epxi i get emxi i get add put Frui i epxi i get emxi i get sub epxi i get emxi i get add div bi mul put } for %i=0,50 40 setlinewidth [ ] 0 setdash 0 1 1 {/k exch def %k=0,1 k 0 eq {%k=0 j 0 eq {[ ] 0 setdash tfw} if j 1 eq {[ ] 0 setdash tfy} if } if %k=0 k 1 eq {%k=1 j 0 eq {[100 100] 0 setdash tfn} if %j 1 eq {[100 100] 0 setdash tfn} if } if %k=1 0 1 im {/i exch def %i=0,im i 0 eq {xi i get MULX mul 2000 add Frui i get MULY mul 1500 add moveto} if i 1 ge i im 1 sub le and {xi i get MULX mul 2000 add Frui i get MULY mul 1500 add lineto} if i im eq {xi i get MULX mul 2000 add Frui i get MULY mul 1500 add lineto stroke} if } for %i=0,im k 1 eq {%k=1 xchartl 1 ge {%xchartl>=1 tfy j 1 eq {%j=1 /yta Frui 45 get MULY mul 070 add def ixt2 2000 add 1500 yta add moveto xchartl 1 eq {(a=1,00) show} if xchartl 2 eq {(a=2,00) show} if xchartl 3 eq {(a=0,50) show} if xchartl 4 eq {(a=2,00) show} if xchartl 5 eq {(a=0,50) show} if xchartl 6 eq {(a=1,00) show} if xchartl 7 eq {(a=0,50) show} if xchartl 1 ge {0 100 rmoveto TBS expnk expnr get show 0 -100 rmoveto TBS (=) show ai cvsshow3x } if %1<=xchartl<=7} if } if %j=1 j 1 eq {%j=1 ixt2 2000 add 1500 yta add 0250 sub moveto ioute 1 eq {%ioute=1 xchartl 1 ge {(a'=) show ai 10 ln mul cvsshow3x (, ) show} if } if %ioute=1 xchartl 1 eq {(b=2,00) show} if xchartl 2 eq {(b=1,00) show} if xchartl 3 eq {(b=1,00) show} if xchartl 4 eq {(b=2,00) show} if xchartl 5 eq {(b=2,00) show} if xchartl 6 eq {(b=0,50) show} if xchartl 7 eq {(b=0,50) show} if } if %j=1 } if %xchartl>=1 } if %k=1 } for %k=0,1 idevi 1 eq {%idevi=1 %integral dx/(a^2+x^2) = (1/a) arctan (x/a) /edxi 51 array def /Frudi 51 array def /ai 1 def %special case 0 1 50 {/i exch def %i=0,50 xi i -4 i 0.2 mul add put % ioute 0 eq {%ioute=0 % eqxi i e xi i get ai div exp put % emxi i e xi i get ai div neg exp put % } % {%ioute=1 % eqxi i e xi i get lne_10 div ai div exp put % emxi i e xi i get lne_10 div ai div neg exp put % } ifelse edxi i e xi i get exp e xi i get neg exp add 2 exp put edxi i 4 edxi i get ai mul div put Frudi i edxi i get bi mul put } for %i=0,50 0 1 1 {/k exch def %k=0,1 k 0 eq {%k=0 j 0 eq {[ ] 0 setdash tfg} if j 1 eq {[ ] 0 setdash tfg} if } if %k=0 k 1 eq {%k=1 j 0 eq {[100 100] 0 setdash tfn} if %j 1 eq {[100 100] 0 setdash tfn} if } if %k=1 50 setlinewidth /im 45 def 0 1 im {/i exch def %i=0,im i 0 eq {xi i get MULX mul 2000 add Frudi i get MULY mul 1500 add moveto} if i 1 ge i im 1 sub le and {xi i get MULX mul 2000 add Frudi i get MULY mul 1500 add lineto} if i im eq {xi i get MULX mul 2000 add Frudi i get MULY mul 1500 add lineto stroke} if } for %i=0,im } for %k=0,1 [ ] 0 setdash 20 setlinewidth } if %idevi=1 %slope /m0 Frui 21 get Frui 19 get sub xi 21 get xi 19 get sub div def %font colour j 0 eq {tfw} if j 1 eq {tfy} if 1650 0700 j 180 mul sub moveto TBIS (m) show 0 -70 rmoveto TBV ai cvsshow1x bi cvishow 0 70 rmoveto TBS (=) show m0 cvsshow2x } for %j=jm1,jm2 tfl 30 setlinewidth [100 100] 0 setdash 1600 0 moveto 1600 Frui 16 get MULY mul 1500 add lineto stroke 2400 500 moveto 2400 Frui 24 get MULY mul 1500 add lineto stroke [ ] 0 setdash 20 setlinewidth xtr0 neg ytr0 neg translate } def %C0i_FXi %END C0i_FXi %********************************************************************* C0i_FXi %************************************************************** %special space for 'xm03'PROZ0.COM 2x before/after xchartl % xchartl 0 eq { 100 neg 13000 neg translate} if % xchartl 1 eq { 6150 neg 13000 neg translate} if % xchartl 2 eq { 100 neg 08740 neg translate} if % xchartl 3 eq { 6150 neg 08740 neg translate} if % xchartl 4 eq { 100 neg 04480 neg translate} if % xchartl 5 eq { 6150 neg 04480 neg translate} if % xchartl 6 eq { 100 neg 00220 neg translate} if % xchartl 7 eq { 6150 neg 00220 neg translate} if grestore %} for %xchartl=0,07 showpage grestore %%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/fen0/fen00-2a fen01-1n %%BoundingBox: 70 85 245 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/fen0/fen0.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:2024030112200) /ModDate (D:20240301112200) /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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TV {120 /Times-ISOL1 FS} 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 /TIV {120 /TimesI-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 /TBV {120 /TimesB-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 /TBIV {120 /TimesBI-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 /SV {120 /Symbol FS} bind def /SS {160 /Symbol FS} bind def /SL {200 /Symbol FS} bind def /SK {250 /Symbol FS} bind def /SM {300 /Symbol FS} bind def /SG {350 /Symbol FS} bind def /CV {120 /Courier FS} bind def /CS {160 /Courier FS} bind def /CL {200 /Courier FS} bind def /CK {250 /Courier FS} bind def /CM {300 /Courier FS} bind def /CG {350 /Courier FS} bind def /CIV {120 /Courier-Oblique FS} bind def /CIS {160 /Courier-Oblique FS} bind def /CIL {200 /Courier-Oblique FS} bind def /CIK {250 /Courier-Oblique FS} bind def /CIM {300 /Courier-Oblique FS} bind def /CIG {350 /Courier-Oblique FS} bind def /CBV {120 /Courier-Bold FS} bind def /CBS {160 /Courier-Bold FS} bind def /CBL {200 /Courier-Bold FS} bind def /CBK {250 /Courier-Bold FS} bind def /CBM {300 /Courier-Bold FS} bind def /CBG {350 /Courier-Bold FS} bind def /CBIV {120 /Courier-BoldOblique FS} bind def /CBIS {160 /Courier-BoldOblique FS} bind def /CBIL {200 /Courier-BoldOblique FS} bind def /CBIK {250 /Courier-BoldOblique FS} bind def /CBIM {300 /Courier-BoldOblique FS} bind def /CBIG {350 /Courier-BoldOblique 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 /kM2 {300 /TimesI-ISOL1 FS show TM} bind def /bM2 {300 /TimesB-ISOL1 FS show TM} bind def /jM2 {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 %XCHA02.PS BEG /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 {setrgbcolor rec fill} bind def /colrecst %x y width heigth c m y k {setrgbcolor rec stroke} bind def /rem %x, y width heigth {/heigth exch 0.5 mul def /width exch 0.5 mul def /yleftb exch heigth 0.5 mul add def /xleftb exch width 0.5 mul add def xleftb yleftb moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colremfi %x y width heigth c m y k {setrgbcolor rem fill} bind def /colremst %x y width heigth c m y k {setrgbcolor rem stroke} bind def /tzr {1 0 0} bind def %Reproduktionsfarben /tzg {0 1 0} bind def /tzb {0 0 1} bind def /tzc {0 1 1} bind def /tzm {1 0 1} bind def /tzy {1 1 0} bind def /tzo {1 0 0} bind def %Reproduktionsfarben /tzl {0 1 0} bind def /tzv {0 0 1} bind def /tzn {0.00} bind def %Graureihe /tzd {0.25} bind def /tzz {0.50} bind def /tzh {0.75} bind def /tzw {1.00} 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 /tfrn {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben /tfgn {0.0 0.5 0.0 setrgbcolor} bind def /tfbn {0.0 0.0 0.5 setrgbcolor} bind def /tfcn {0.0 0.5 0.5 setrgbcolor} bind def /tfmn {0.5 0.0 0.5 setrgbcolor} bind def /tfyn {0.5 0.5 0.0 setrgbcolor} bind def /tfon {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben /tfln {0.0 0.5 0.0 setrgbcolor} bind def /tfvn {0.0 0.0 0.5 setrgbcolor} bind def /tfn {0.00 setgray} bind def %Graureihe /tfd {0.25 setgray} bind def /tfz {0.50 setgray} bind def /tfh {0.75 setgray} bind def /tfw {1.00 setgray} 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 /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 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 % /ioute 1 def /ifunc 0 def /idevi 1 def /imevi 1 def /expnr 4 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 %always independent of intended output 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def %75 85 moveto %lanind cvishow (-) show %colorm cvishow %deintp cvishow %xcolor cvishow %xchart cvishow %pchart cvishow %colsep cvishow (-L) show pmetam cvishow gsave %XCHA01.PS END 4 /Times-ISOL1 FS %74 86 moveto (fen00-3R) show %xchart 0 eq {(R) show} % {deintp colorm 2 mul add cvishow} ifelse 72 90 translate 0.01 MM dup scale 20 setlinewidth %0 0 12250 17100 1.0 1.0 1.0 colrecfi %area white grey %0 0 12250 17100 0.0 0.0 0.0 colrecst %Rahmen Schwarz %/ifunc 0 def %ifunc 0 eq {Yi_L*i_dYi_L_0} if %ifunc 1 eq {Yi_L*i_dYi_C_0} if %Yi_Yxyi /xchartl 0 def %0 1 07 {/xchartl exch def %xchartl=0,07 gsave %from BEA80-2a fen01-1n.PS % xchartl 0 eq { 100 13000 translate} if % xchartl 1 eq { 6150 13000 translate} if % xchartl 2 eq { 100 08740 translate} if % xchartl 3 eq { 6150 08740 translate} if % xchartl 4 eq { 100 04480 translate} if % xchartl 5 eq { 6150 04480 translate} if % xchartl 6 eq { 100 00220 translate} if % xchartl 7 eq { 6150 00220 translate} if 130 /Times-ISOL1 FS 0 setgray 50 -130 moveto (fen00-2a fen01-1n) show %%%%%%%xchartl 1 add cvishow %%%%%%%(A) show %A %(_) show xchart 1 add cvishow /xwidth 6000 def /ywidth 4000 def 25 setlinewidth 0.5 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath clip 0 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath stroke tfn %tfw /xtr0 380 def /ytr0 350 def xtr0 ytr0 translate %********************************************************************* tfw 30 setlinewidth 0 0 moveto 5250 0 rlineto stroke 0 0 moveto 0 3250 rlineto stroke 5250 100 sub 50 moveto 100 -50 rlineto -100 -50 rlineto stroke -50 3250 100 sub moveto 50 100 rlineto 50 -100 rlineto stroke /tx [(-4) (-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3) ( 4)] def /ty [(-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3)] def /xz (x) def /xzn (-x) def ioute 1 eq expnr 7 ge and {%xchartl>=7 /xz (z) def /xzn (-z) def } if /KLxr {20 0 rmoveto TBIK xz show 0 -80 rmoveto TBL (r) show 20 80 rmoveto} def /LSxr {20 0 rmoveto TBIL xz show 0 -60 rmoveto TBS (r) show 20 60 rmoveto} def /SVxr {20 0 rmoveto TBIS xz show 0 -40 rmoveto TBV (r) show 20 40 rmoveto} def /KLxrx {20 0 rmoveto TBIK (x) show 0 -80 rmoveto TBL (r) show 20 80 rmoveto} def /KLxrz {20 0 rmoveto TBIK (z) show 0 -80 rmoveto TBL (r) show 20 80 rmoveto} def /LSxrx {20 0 rmoveto TBIL (x) show 0 -60 rmoveto TBS (r) show 20 60 rmoveto} def /LSxrz {20 0 rmoveto TBIL (z) show 0 -60 rmoveto TBS (r) show 20 60 rmoveto} def /SVxrx {20 0 rmoveto TBIS (x) show 0 -40 rmoveto TBV (r) show 20 40 rmoveto} def /SVxrz {20 0 rmoveto TBIS (z) show 0 -40 rmoveto TBV (r) show 20 40 rmoveto} def /100KLxr {0 100 rmoveto KLxr 0 -100 rmoveto} def /100LSxr {0 080 rmoveto LSxr 0 -080 rmoveto} def /100SVxr {0 060 rmoveto SVxr 0 -060 rmoveto} def /KLxrn {20 0 rmoveto TBIK xzn show 0 -80 rmoveto TBL (r) show 20 80 rmoveto} def /LSxrn {20 0 rmoveto TBIL xzn show 0 -60 rmoveto TBS (r) show 20 60 rmoveto} def /SVxrn {20 0 rmoveto TBIS xzn show 0 -40 rmoveto TBV (r) show 20 40 rmoveto} def /KLxrxn {20 0 rmoveto TBIK (xn) show 0 -80 rmoveto TBL (r) show 20 80 rmoveto} def /KLxrzn {20 0 rmoveto TBIK (zn) show 0 -80 rmoveto TBL (r) show 20 80 rmoveto} def /LSxrxn {20 0 rmoveto TBIL (xn) show 0 -60 rmoveto TBS (r) show 20 60 rmoveto} def /LSxrzn {20 0 rmoveto TBIL (zn) show 0 -60 rmoveto TBS (r) show 20 60 rmoveto} def /SVxrxn {20 0 rmoveto TBIS (xn) show 0 -40 rmoveto TBV (r) show 20 40 rmoveto} def /SVxrzn {20 0 rmoveto TBIS (zn) show 0 -40 rmoveto TBV (r) show 20 40 rmoveto} def /100KLxrn {0 100 rmoveto KLxrn 0 -100 rmoveto} def /100LSxrn {0 080 rmoveto LSxrn 0 -080 rmoveto} def /100SVxrn {0 060 rmoveto SVxrn 0 -060 rmoveto} def %!x-Achse: 1 log-Einheiten = 500 Skalen-Einheiten TBL 0 1 9 {/i exch def /ixt { -150 i 0500 mul add} def /ixl { 000 i 0500 mul add} def i 8 le {ixt -250 moveto tx i get exec show} if ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 1 log-Einheiten = 500 Skalen-Einheiten TBL 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -350 iyt moveto ty i get exec show -75 iyl moveto 150 0 rlineto stroke } for 4300 -260 moveto tfw LSxr TBL (=) show 30 0 rmoveto TBL (log[) show 30 0 rmoveto TBIL (L/L) show 0 -50 rmoveto TBS (u) show 0 50 rmoveto TBL (]) show 1900 200 moveto (L) TBIL tfw show TBS 20 -80 rmoveto (u) show 50 80 rmoveto 4300 0200 moveto (L) TBIL tfw show TBS 20 -80 rmoveto (u) show 00 80 rmoveto TBL 20 0 (=28) ashow (cd/m) show TBS 0 80 rmoveto (2) show 0 -80 rmoveto tfl 40 setlinewidth 1600 0 moveto 800 0 rlineto stroke 2200 270 moveto TBS (range of office) showen (Bereich B\374ro\255) showde 2200 100 moveto (luminance) showen (Leuchtdichte) showde xtr0 neg ytr0 neg translate %******************************************************** %BEG C01_C08 ******************************************** %original square tfn %tfw 050 3750 moveto xchartl 07 le {%xchartl=00 tfw TBIK (F) show -50 -80 rmoveto TBL (ab) show 0 80 rmoveto TBK (\050) show KLxr TBK (\051) show 20 0 rmoveto (=) show 20 0 rmoveto (unbunte Rezeptorerregung) showde (achromatic receptor response) showen } if %xchartl=00 xchartl 01 ge {%xchartl>=1 tfy TBK ( & modified) showen ( & modifiziert) showde } if %xchartl>=1 tfn %tfw %********************************************************************* %BEG Common text xtr0 ytr0 translate TBIK /iyt0 2900 def %top text line /iyt1 2300 def %lower yellow text line /ixt2 2420 def %right red text line /iyt2 1100 def %right red text line /ix0 100 def /ix1 750 def %for F(x) /ix1a 850 def %for Fn(x) /ix2 2200 def %text e /ix3 1700 def %ifunc 0 eq {/x_zp (x) def /x_zm (-x) def} % {/x_zp (z) def /x_zm (-z) def /lne_10d 1 10 ln div def} ifelse /x_zp (x) def /x_zm (-x) def ioute 0 eq {/e_10 (e) def /lne_10 1 def} {/e_10 (10) def /lne_10 1 def} ifelse /expnp 10 array def % 0 1 2 3 4 5 6 7 8 9 /expnp [1.0 1.0 0.7 0.5 1.0 0.7 0.5 1.0 0.7 0.5] def /expnk 10 array def % 0 1 2 3 4 5 6 7 8 9 /expnk [(1,0) (1,0) (0,7) (0,5) (1,0) (0,7) (0,5) (1,0) (0,7) (0,5)] def %**************************************** tfw 30 setlinewidth /jm1 0 def /jm2 1 def /iytj 0 def xchartl 0 eq {/jm2 0 def} {/jm2 1 def} ifelse jm1 1 jm2 {/j exch def %j=jm1,jm2 j 0 eq {/iyta 0 def} if j 1 eq {/iyta 0 def} if 0 1 1 {/k exch def %k=0,1 k 0 eq {%k=0 j 0 eq {[ ] 0 setdash tfw} if j 1 eq {[ ] 0 setdash tfy} if } if %k=0 k 1 eq {%k=1 j 0 eq {[100 100] 0 setdash tfn} if j 1 eq {[100 100] 0 setdash tfn} if } if %k=1 %font colour j 0 eq {tfw} if j 1 eq {tfy} if j 0 eq {/ixtx ix0 def /iytx iyt0 def} if j 1 eq {/ixtx ixt2 def /iytx iyt2 def} if /iytxt iytx 050 add j 0 eq {100 add} if def ixtx 1000 add iytxt iyta add 70 add moveto 1050 ioute 1 eq {200 add} if 0 rlineto stroke } for %k=0,1 ixtx iytxt moveto TBIL (F) show -30 -80 rmoveto TBS (ab) show 0 80 rmoveto TBL (\050) show LSxr TBL (\051) show TBL ( = b ) show ixtx 1000 add iytxt 100 add moveto TBL e_10 show 0 100 rmoveto SVxr TBS (/a) show ioute 1 eq {(') show} if 0 -100 rmoveto TBL ( - ) show TBL e_10 show 0 100 rmoveto SVxrn TBS (/a) show ioute 1 eq {(') show} if 0 -100 rmoveto ixtx 1000 add iytxt 200 sub moveto TBL e_10 show 0 100 rmoveto SVxr TBS (/a) show ioute 1 eq {(') show} if 0 -100 rmoveto TBL ( + ) show TBL e_10 show 0 100 rmoveto SVxrn TBS (/a) show ioute 1 eq {(') show} if 0 -100 rmoveto j 0 eq {%j=0, both sides tfw TBS ix3 1400 add iyt0 000 add moveto (a=1,00, b=1,00 e=2,718282) show ioute 1 eq {%ioute=1 ix3 2400 add iyt0 200 sub moveto (a'=a) show 30 0 rmoveto (ln(10)=) show 1.0 10 ln mul cvsshow3x } if %ioute=1 } if %j=0, both sides ioute 1 eq xchartl 0 eq and { %ioute=1, xchartl=0 right side ix3 1400 add iyt0 200 add moveto TBL (10) show 0 100 rmoveto SVxrx 0 -100 rmoveto TBL (=e) show 0 100 rmoveto TBS (ln(10)) show 30 0 rmoveto SVxrx 0 -100 rmoveto TBL (, 10) show 0 100 rmoveto SVxr TBS (/ln(10)) show 0 -100 rmoveto TBL (=e) show 0 100 rmoveto SVxrx 0 -100 rmoveto ix3 1400 add iyt0 ioute 0 eq {250 sub moveto} {500 sub 050 sub moveto} ifelse TBL (10) show ioute 0 eq {0 100 rmoveto SVxrx TBS (/a) show 0 -100 rmoveto } if ioute 1 eq expnr 6 le and {0 100 rmoveto SVxrx %zr for xchartl<=6 TBS (/a') show 0 -100 rmoveto } if ioute 1 eq expnr 6 gt and {0 100 rmoveto SVxrx %zr for xchartl>6 TBS (/a') show 0 -100 rmoveto } if TBL (=) show TBL (10) show 0 100 rmoveto SVxrx TBS ( / [a) show 30 0 rmoveto (ln(10)]) show 0 -100 rmoveto TBL (=) show TBL (e) show 0 100 rmoveto SVxrx TBS (/a) show 0 -100 rmoveto } if %ioute=1, xchartl=0 right side } for %j=jm1,jm2 idevi 1 eq {%idevi=1 /iyt1t iyt1 330 add def 30 setlinewidth [ ] 0 setdash tfg ix0 iyt1t moveto TBIL (F') show -50 -80 rmoveto TBS (ab) show 0 80 rmoveto TBL (\050) show LSxrx TBL (\051) show TBL (= [4b ln(10)] / [) show TBL (a') show 20 0 rmoveto TBL ({) show TBL e_10 show 0 80 rmoveto SVxr TBS (/a) show ioute 1 eq {(') show} if 20 -80 rmoveto TBL (+) show 20 0 rmoveto TBL e_10 show 0 80 rmoveto TBS (-) show SVxr TBS (/a) show ioute 1 eq {(') show} if 20 -80 rmoveto TBL (}) show 0 80 rmoveto TBS (2) show 0 -80 rmoveto TBL (]) show ix0 iyt1t 300 sub moveto TBS xchartl 0 eq {(a=1,00) show} if xchartl 1 eq {(a=1,00) show} if xchartl 2 eq {(a=2,00) show} if xchartl 3 eq {(a=0,50) show} if xchartl 4 eq {(a=2,00) show} if xchartl 5 eq {(a=0,50) show} if xchartl 6 eq {(a=1,00) show} if xchartl 7 eq {(a=0,50) show} if xchartl 1 ge {0 100 rmoveto TBS expnk expnr get show 0 -100 rmoveto} if TBS xchartl 0 eq {(; b=1,00) show} if xchartl 1 eq {(; b=2,00) show} if xchartl 2 eq {(; b=1,00) show} if xchartl 3 eq {(; b=1,00) show} if xchartl 4 eq {(; b=2,00) show} if xchartl 5 eq {(; b=2,00) show} if xchartl 6 eq {(; b=1,00) show} if xchartl 7 eq {(; b=0,50) show} if xchartl 1 le {%xchartl<=1 special text xchartl 0 eq {1620}{1820} ifelse 2150 moveto tfg TBIL (F') show -30 -80 rmoveto TBS (1_1) show 0 80 rmoveto xchartl 0 eq {TBL (\050) show LSxr TBL (\051) show} if } if %xchartl<=1 special text xchartl 1 eq {%xchartl=1 special text 0700 2000 moveto tfg TBIL (F') show -30 -80 rmoveto TBS (1_2) show 0 80 rmoveto TBL (\050) show LSxr TBL (\051) show tfw } if %xchartl=1 special text } if %idevi=1 tfw [ ] 0 setdash 0 1500 moveto 4500 0 rlineto stroke tfl [50 50] 0 setdash 0 2000 moveto 2000 0 rlineto stroke tfn 200 2070 moveto TBL (Asymptote) show tfw [ ] 0 setdash 2000 1500 moveto 0 500 rlineto stroke TBL 2450 2050 moveto (W) show tfn 1500 150 sub 0800 moveto (N) show xchartl 1 le {%xchartl<=1 special text 4600 2000 50 sub moveto tfw TBIL (F) show -30 -80 rmoveto TBS (1_1) show 0 80 rmoveto TBL (\050) show LSxr TBL (\051) show } if %xchartl<=1 special text xchartl 1 eq {%xchartl=1 special text 3200 2300 moveto tfy TBIL (F) show -30 -80 rmoveto TBS (1_2) show 0 80 rmoveto TBL (\050) show LSxr TBL (\051) show } if %xchartl=1 special text xtr0 neg ytr0 neg translate %********************************************************************* /C0i_FXi {%BEG C0i_FXi xtr0 ytr0 translate /xi 51 array def %range -4 bis +4 in steps of /yi 51 array def %range -1 to +1 /epxi 51 array def /emxi 51 array def /esxi 51 array def /Frui 51 array def /MULX 500 def /MULY 500 def %ioute 0 eq {/e 2.7182818 def} % {/e 10.0 def } ifelse /e 2.7182818 def /im 45 def jm1 1 jm2 {/j exch def %j=jm1,jm2 j 0 eq {%j=0 /a 1.0 expnp expnr get exp def /ai 1.0 expnp expnr get exp lne_10 mul def /bi 1.0 def } if %j=0 j 1 eq {%j=1 %xchartl 0 eq {/a 1.0 expnp expnr get exp def % /ai 1.0 expnp expnr get exp lne_10 mul def % /bi 1.0 def} if xchartl 1 eq {/a 1.0 expnp expnr get exp def /ai 1.0 expnp expnr get exp lne_10 mul def /bi 2.0 def} if xchartl 2 eq {/a 2.0 expnp expnr get exp def /ai 2.0 expnp expnr get exp lne_10 mul def /bi 1.0 def} if xchartl 3 eq {/a 0.5 expnp expnr get exp def /ai 0.5 expnp expnr get exp lne_10 mul def /bi 1.0 def} if xchartl 4 eq {/a 2.0 expnp expnr get exp def /ai 2.0 expnp expnr get exp lne_10 mul def /bi 2.0 def} if xchartl 5 eq {/a 0.5 expnp expnr get exp def /ai 0.5 expnp expnr get exp lne_10 mul def /bi 2.0 def} if xchartl 6 eq {/a 1.0 expnp expnr get exp def /ai 1.0 expnp expnr get exp lne_10 mul def /bi 0.5 def} if xchartl 7 eq {/a 0.5 expnp expnr get exp def /ai 0.5 expnp expnr get exp lne_10 mul def /bi 0.5 def} if } if %j=1 0 1 50 {/i exch def %i=0,50 xi i -4 i 0.2 mul add put ioute 0 eq {%ioute=0 epxi i e xi i get ai div exp put emxi i e xi i get ai div neg exp put } {%ioute=1 epxi i e xi i get lne_10 div ai div exp put emxi i e xi i get lne_10 div ai div neg exp put } ifelse esxi i epxi i get emxi i get add put Frui i epxi i get emxi i get sub epxi i get emxi i get add div bi mul put } for %i=0,50 40 setlinewidth [ ] 0 setdash 0 1 1 {/k exch def %k=0,1 k 0 eq {%k=0 j 0 eq {[ ] 0 setdash tfw} if j 1 eq {[ ] 0 setdash tfy} if } if %k=0 k 1 eq {%k=1 j 0 eq {[100 100] 0 setdash tfn} if %j 1 eq {[100 100] 0 setdash tfn} if } if %k=1 0 1 im {/i exch def %i=0,im i 0 eq {xi i get MULX mul 2000 add Frui i get MULY mul 1500 add moveto} if i 1 ge i im 1 sub le and {xi i get MULX mul 2000 add Frui i get MULY mul 1500 add lineto} if i im eq {xi i get MULX mul 2000 add Frui i get MULY mul 1500 add lineto stroke} if } for %i=0,im k 1 eq {%k=1 xchartl 1 ge {%xchartl>=1 tfy j 1 eq {%j=1 /yta Frui 45 get MULY mul 070 add def ixt2 2000 add 1500 yta add moveto xchartl 1 eq {(a=1,00) show} if xchartl 2 eq {(a=2,00) show} if xchartl 3 eq {(a=0,50) show} if xchartl 4 eq {(a=2,00) show} if xchartl 5 eq {(a=0,50) show} if xchartl 6 eq {(a=1,00) show} if xchartl 7 eq {(a=0,50) show} if xchartl 1 ge {0 100 rmoveto TBS expnk expnr get show 0 -100 rmoveto TBS (=) show ai cvsshow3x } if %1<=xchartl<=7} if } if %j=1 j 1 eq {%j=1 ixt2 2000 add 1500 yta add 0250 sub moveto ioute 1 eq {%ioute=1 xchartl 1 ge {(a'=) show ai 10 ln mul cvsshow3x (, ) show} if } if %ioute=1 xchartl 1 eq {(b=2,00) show} if xchartl 2 eq {(b=1,00) show} if xchartl 3 eq {(b=1,00) show} if xchartl 4 eq {(b=2,00) show} if xchartl 5 eq {(b=2,00) show} if xchartl 6 eq {(b=0,50) show} if xchartl 7 eq {(b=0,50) show} if } if %j=1 } if %xchartl>=1 } if %k=1 } for %k=0,1 idevi 1 eq {%idevi=1 %integral dx/(a^2+x^2) = (1/a) arctan (x/a) /edxi 51 array def /Frudi 51 array def /Frud1i 51 array def /Frud2i 51 array def /ai 1 def %special case 0 1 50 {/i exch def %i=0,50 xi i -4 i 0.2 mul add put % ioute 0 eq {%ioute=0 % eqxi i e xi i get ai div exp put % emxi i e xi i get ai div neg exp put % } % {%ioute=1 % eqxi i e xi i get lne_10 div ai div exp put % emxi i e xi i get lne_10 div ai div neg exp put % } ifelse edxi i e xi i get exp e xi i get neg exp add 2 exp put edxi i 4 edxi i get ai mul div put Frudi i edxi i get bi mul put } for %i=0,50 /ai 0.7 def %special case 0 1 50 {/i exch def %i=0,50 xi i -4 i 0.2 mul add put edxi i e xi i get exp e xi i get neg exp add 2 exp put edxi i 4 edxi i get ai mul div put Frud1i i edxi i get bi mul put } for %i=0,50 /ai 1.4 def %special case 0 1 50 {/i exch def %i=0,50 xi i -4 i 0.2 mul add put edxi i e xi i get exp e xi i get neg exp add 2 exp put edxi i 4 edxi i get ai mul div put Frud2i i edxi i get bi mul put } for %i=0,50 0 1 1 {/k exch def %k=0,1 k 0 eq {%k=0 j 0 eq {[ ] 0 setdash tfg} if j 1 eq {[ ] 0 setdash tfg} if } if %k=0 k 1 eq {%k=1 j 0 eq {[100 100] 0 setdash tfn} if %j 1 eq {[100 100] 0 setdash tfn} if } if %k=1 50 setlinewidth /im 45 def 0 1 im {/i exch def %i=0,im i 0 eq {xi i get MULX mul 2000 add Frudi i get MULY mul 1500 add moveto} if i 1 ge i im 1 sub le and {xi i get MULX mul 2000 add Frudi i get MULY mul 1500 add lineto} if i im eq {xi i get MULX mul 2000 add Frudi i get MULY mul 1500 add lineto stroke} if } for %i=0,im tfr 0 1 im {/i exch def %i=0,im i 0 eq {xi i get MULX mul 2000 add Frud1i i get MULY mul 1500 add moveto} if i 1 ge i im 1 sub le and {xi i get MULX mul 2000 add Frud1i i get MULY mul 1500 add lineto} if i im eq {xi i get MULX mul 2000 add Frud1i i get MULY mul 1500 add lineto stroke} if } for %i=0,im tfb 0 1 im {/i exch def %i=0,im i 0 eq {xi i get MULX mul 2000 add Frud2i i get MULY mul 1500 add moveto} if i 1 ge i im 1 sub le and {xi i get MULX mul 2000 add Frud2i i get MULY mul 1500 add lineto} if i im eq {xi i get MULX mul 2000 add Frud2i i get MULY mul 1500 add lineto stroke} if } for %i=0,im } for %k=0,1 [ ] 0 setdash 20 setlinewidth } if %idevi=1 %slope /m0 Frui 21 get Frui 19 get sub xi 21 get xi 19 get sub div def %font colour j 0 eq {tfw} if j 1 eq {tfy} if 1650 0700 j 180 mul sub moveto TBIS (m) show 0 -70 rmoveto TBV ai cvsshow1x bi cvishow 0 70 rmoveto TBS (=) show m0 cvsshow2x } for %j=jm1,jm2 tfl 30 setlinewidth [100 100] 0 setdash 1600 0 moveto 1600 Frui 16 get MULY mul 1500 add lineto stroke 2400 500 moveto 2400 Frui 24 get MULY mul 1500 add lineto stroke [ ] 0 setdash 20 setlinewidth xtr0 neg ytr0 neg translate } def %C0i_FXi %END C0i_FXi %********************************************************************* C0i_FXi %************************************************************** %special space for 'xm03'PROZ0.COM 2x before/after xchartl % xchartl 0 eq { 100 neg 13000 neg translate} if % xchartl 1 eq { 6150 neg 13000 neg translate} if % xchartl 2 eq { 100 neg 08740 neg translate} if % xchartl 3 eq { 6150 neg 08740 neg translate} if % xchartl 4 eq { 100 neg 04480 neg translate} if % xchartl 5 eq { 6150 neg 04480 neg translate} if % xchartl 6 eq { 100 neg 00220 neg translate} if % xchartl 7 eq { 6150 neg 00220 neg translate} if grestore %} for %xchartl=0,07 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/fen0/fen00-3a fen01-3n %%BoundingBox: 70 85 245 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/fen0/fen0.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:2024030112200) /ModDate (D:20240301112200) /DOCINFO pdfmark03 [ /View [ /Fit ] /DOCVIEW pdfmark03 %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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TV {120 /Times-ISOL1 FS} 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 /TIV {120 /TimesI-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 /TBV {120 /TimesB-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 /TBIV {120 /TimesBI-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 /SV {120 /Symbol FS} bind def /SS {160 /Symbol FS} bind def /SL {200 /Symbol FS} bind def /SK {250 /Symbol FS} bind def /SM {300 /Symbol FS} bind def /SG {350 /Symbol FS} bind def /CV {120 /Courier FS} bind def /CS {160 /Courier FS} bind def /CL {200 /Courier FS} bind def /CK {250 /Courier FS} bind def /CM {300 /Courier FS} bind def /CG {350 /Courier FS} bind def /CIV {120 /Courier-Oblique FS} bind def /CIS {160 /Courier-Oblique FS} bind def /CIL {200 /Courier-Oblique FS} bind def /CIK {250 /Courier-Oblique FS} bind def /CIM {300 /Courier-Oblique FS} bind def /CIG {350 /Courier-Oblique FS} bind def /CBV {120 /Courier-Bold FS} bind def /CBS {160 /Courier-Bold FS} bind def /CBL {200 /Courier-Bold FS} bind def /CBK {250 /Courier-Bold FS} bind def /CBM {300 /Courier-Bold FS} bind def /CBG {350 /Courier-Bold FS} bind def /CBIV {120 /Courier-BoldOblique FS} bind def /CBIS {160 /Courier-BoldOblique FS} bind def /CBIL {200 /Courier-BoldOblique FS} bind def /CBIK {250 /Courier-BoldOblique FS} bind def /CBIM {300 /Courier-BoldOblique FS} bind def /CBIG {350 /Courier-BoldOblique 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 /kM2 {300 /TimesI-ISOL1 FS show TM} bind def /bM2 {300 /TimesB-ISOL1 FS show TM} bind def /jM2 {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 %XCHA02.PS BEG /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 {setrgbcolor rec fill} bind def /colrecst %x y width heigth c m y k {setrgbcolor rec stroke} bind def /rem %x, y width heigth {/heigth exch 0.5 mul def /width exch 0.5 mul def /yleftb exch heigth 0.5 mul add def /xleftb exch width 0.5 mul add def xleftb yleftb moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colremfi %x y width heigth c m y k {setrgbcolor rem fill} bind def /colremst %x y width heigth c m y k {setrgbcolor rem stroke} bind def /tzr {1 0 0} bind def %Reproduktionsfarben /tzg {0 1 0} bind def /tzb {0 0 1} bind def /tzc {0 1 1} bind def /tzm {1 0 1} bind def /tzy {1 1 0} bind def /tzo {1 0 0} bind def %Reproduktionsfarben /tzl {0 1 0} bind def /tzv {0 0 1} bind def /tzn {0.00} bind def %Graureihe /tzd {0.25} bind def /tzz {0.50} bind def /tzh {0.75} bind def /tzw {1.00} 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 /tfrn {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben /tfgn {0.0 0.5 0.0 setrgbcolor} bind def /tfbn {0.0 0.0 0.5 setrgbcolor} bind def /tfcn {0.0 0.5 0.5 setrgbcolor} bind def /tfmn {0.5 0.0 0.5 setrgbcolor} bind def /tfyn {0.5 0.5 0.0 setrgbcolor} bind def /tfon {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben /tfln {0.0 0.5 0.0 setrgbcolor} bind def /tfvn {0.0 0.0 0.5 setrgbcolor} bind def /tfn {0.00 setgray} bind def %Graureihe /tfd {0.25 setgray} bind def /tfz {0.50 setgray} bind def /tfh {0.75 setgray} bind def /tfw {1.00 setgray} 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 /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 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 % /ioute 1 def /ifunc 0 def /idevi 1 def /imevi 1 def /expnr 4 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 %always independent of intended output 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def %75 85 moveto %lanind cvishow (-) show %colorm cvishow %deintp cvishow %xcolor cvishow %xchart cvishow %pchart cvishow %colsep cvishow (-L) show pmetam cvishow gsave %XCHA01.PS END 4 /Times-ISOL1 FS %74 86 moveto (fen00-4R) show %xchart 0 eq {(R) show} % {deintp colorm 2 mul add cvishow} ifelse 72 90 translate 0.01 MM dup scale 20 setlinewidth %0 0 12250 17100 1.0 1.0 1.0 colrecfi %area white grey %0 0 12250 17100 0.0 0.0 0.0 colrecst %Rahmen Schwarz %/ifunc 0 def %ifunc 0 eq {Yi_L*i_dYi_L_0} if %ifunc 1 eq {Yi_L*i_dYi_C_0} if %Yi_Yxyi /xchartl 0 def %0 1 07 {/xchartl exch def %xchartl=0,07 gsave %from BEA80-3a fen01-3n.PS % xchartl 0 eq { 100 13000 translate} if % xchartl 1 eq { 6150 13000 translate} if % xchartl 2 eq { 100 08740 translate} if % xchartl 3 eq { 6150 08740 translate} if % xchartl 4 eq { 100 04480 translate} if % xchartl 5 eq { 6150 04480 translate} if % xchartl 6 eq { 100 00220 translate} if % xchartl 7 eq { 6150 00220 translate} if 130 /Times-ISOL1 FS 0 setgray 50 -130 moveto (fen00-3a fen01-3n) show %%%%%%%xchartl 1 add cvishow %%%%%%%(A) show %A %(_) show xchart 1 add cvishow /xwidth 6000 def /ywidth 4000 def 25 setlinewidth 0.5 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath clip 0 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath stroke tfn %tfw /xtr0 380 def /ytr0 350 def xtr0 ytr0 translate %********************************************************************* tfw 30 setlinewidth 0 0 moveto 5250 0 rlineto stroke 0 0 moveto 0 3250 rlineto stroke 5250 100 sub 50 moveto 100 -50 rlineto -100 -50 rlineto stroke -50 3250 100 sub moveto 50 100 rlineto 50 -100 rlineto stroke /tx [(-4) (-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3) ( 4)] def /ty [(-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3)] def /xz (x) def /xzn (-x) def ioute 1 eq expnr 7 ge and {%xchartl>=7 /xz (z) def /xzn (-z) def } if /KLxr {20 0 rmoveto TBIK xz show 0 -80 rmoveto TBL (r) show 20 80 rmoveto} def /LSxr {20 0 rmoveto TBIL xz show 0 -60 rmoveto TBS (r) show 20 60 rmoveto} def /SVxr {20 0 rmoveto TBIS xz show 0 -40 rmoveto TBV (r) show 20 40 rmoveto} def /KLxrx {20 0 rmoveto TBIK (x) show 0 -80 rmoveto TBL (r) show 20 80 rmoveto} def /KLxrz {20 0 rmoveto TBIK (z) show 0 -80 rmoveto TBL (r) show 20 80 rmoveto} def /LSxrx {20 0 rmoveto TBIL (x) show 0 -60 rmoveto TBS (r) show 20 60 rmoveto} def /LSxrz {20 0 rmoveto TBIL (z) show 0 -60 rmoveto TBS (r) show 20 60 rmoveto} def /SVxrx {20 0 rmoveto TBIS (x) show 0 -40 rmoveto TBV (r) show 20 40 rmoveto} def /SVxrz {20 0 rmoveto TBIS (z) show 0 -40 rmoveto TBV (r) show 20 40 rmoveto} def /100KLxr {0 100 rmoveto KLxr 0 -100 rmoveto} def /100LSxr {0 080 rmoveto LSxr 0 -080 rmoveto} def /100SVxr {0 060 rmoveto SVxr 0 -060 rmoveto} def /KLxrn {20 0 rmoveto TBIK xzn show 0 -80 rmoveto TBL (r) show 20 80 rmoveto} def /LSxrn {20 0 rmoveto TBIL xzn show 0 -60 rmoveto TBS (r) show 20 60 rmoveto} def /SVxrn {20 0 rmoveto TBIS xzn show 0 -40 rmoveto TBV (r) show 20 40 rmoveto} def /KLxrxn {20 0 rmoveto TBIK (xn) show 0 -80 rmoveto TBL (r) show 20 80 rmoveto} def /KLxrzn {20 0 rmoveto TBIK (zn) show 0 -80 rmoveto TBL (r) show 20 80 rmoveto} def /LSxrxn {20 0 rmoveto TBIL (xn) show 0 -60 rmoveto TBS (r) show 20 60 rmoveto} def /LSxrzn {20 0 rmoveto TBIL (zn) show 0 -60 rmoveto TBS (r) show 20 60 rmoveto} def /SVxrxn {20 0 rmoveto TBIS (xn) show 0 -40 rmoveto TBV (r) show 20 40 rmoveto} def /SVxrzn {20 0 rmoveto TBIS (zn) show 0 -40 rmoveto TBV (r) show 20 40 rmoveto} def /100KLxrn {0 100 rmoveto KLxrn 0 -100 rmoveto} def /100LSxrn {0 080 rmoveto LSxrn 0 -080 rmoveto} def /100SVxrn {0 060 rmoveto SVxrn 0 -060 rmoveto} def %!x-Achse: 1 log-Einheiten = 500 Skalen-Einheiten TBL 0 1 9 {/i exch def /ixt { -150 i 0500 mul add} def /ixl { 000 i 0500 mul add} def i 8 le {ixt -250 moveto tx i get exec show} if ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 1 log-Einheiten = 500 Skalen-Einheiten TBL 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -350 iyt moveto ty i get exec show -75 iyl moveto 150 0 rlineto stroke } for 4300 -260 moveto tfw LSxr TBL (=) show 30 0 rmoveto TBL (log[) show 30 0 rmoveto TBIL (L/L) show 0 -50 rmoveto TBS (u) show 0 50 rmoveto TBL (]) show 1900 200 moveto (L) TBIL tfw show TBS 20 -80 rmoveto (u) show 50 80 rmoveto 4300 0200 moveto (L) TBIL tfw show TBS 20 -80 rmoveto (u) show 00 80 rmoveto TBL 20 0 (=28) ashow (cd/m) show TBS 0 80 rmoveto (2) show 0 -80 rmoveto tfl 40 setlinewidth 1600 0 moveto 800 0 rlineto stroke 2200 270 moveto TBS (range of office) showen (Bereich B\374ro\255) showde 2200 100 moveto (luminance) showen (Leuchtdichte) showde xtr0 neg ytr0 neg translate %******************************************************** %BEG C01_C08 ******************************************** %original square tfn %tfw 050 3750 moveto xchartl 07 le {%xchartl=00 tfw TBIK (F) show -50 -80 rmoveto TBL (ab) show 0 80 rmoveto TBK (\050) show KLxr TBK (\051) show 20 0 rmoveto (=) show 20 0 rmoveto (unbunte Rezeptorerregung) showde (achromatic receptor response) showen } if %xchartl=00 xchartl 01 ge {%xchartl>=1 tfy TBK ( & modified) showen ( & modifiziert) showde } if %xchartl>=1 tfn %tfw %********************************************************************* %BEG Common text xtr0 ytr0 translate TBIK /iyt0 2900 def %top text line /iyt1 2300 def %lower yellow text line /ixt2 2420 def %right red text line /iyt2 1100 def %right red text line /ix0 100 def /ix1 750 def %for F(x) /ix1a 850 def %for Fn(x) /ix2 2200 def %text e /ix3 1700 def %ifunc 0 eq {/x_zp (x) def /x_zm (-x) def} % {/x_zp (z) def /x_zm (-z) def /lne_10d 1 10 ln div def} ifelse /x_zp (x) def /x_zm (-x) def ioute 0 eq {/e_10 (e) def /lne_10 1 def} {/e_10 (10) def /lne_10 1 def} ifelse /expnp 10 array def % 0 1 2 3 4 5 6 7 8 9 /expnp [1.0 1.0 0.7 0.5 1.0 0.7 0.5 1.0 0.7 0.5] def /expnk 10 array def % 0 1 2 3 4 5 6 7 8 9 /expnk [(1,0) (1,0) (0,7) (0,5) (1,0) (0,7) (0,5) (1,0) (0,7) (0,5)] def %**************************************** tfw 30 setlinewidth /jm1 0 def /jm2 1 def /iytj 0 def xchartl 0 eq {/jm2 0 def} {/jm2 1 def} ifelse jm1 1 jm2 {/j exch def %j=jm1,jm2 j 0 eq {/iyta 0 def} if j 1 eq {/iyta 0 def} if 0 1 1 {/k exch def %k=0,1 k 0 eq {%k=0 j 0 eq {[ ] 0 setdash tfw} if j 1 eq {[ ] 0 setdash tfy} if } if %k=0 k 1 eq {%k=1 j 0 eq {[100 100] 0 setdash tfn} if j 1 eq {[100 100] 0 setdash tfn} if } if %k=1 %font colour j 0 eq {tfw} if j 1 eq {tfy} if j 0 eq {/ixtx ix0 def /iytx iyt0 def} if j 1 eq {/ixtx ixt2 def /iytx iyt2 def} if /iytxt iytx 050 add j 0 eq {100 add} if def ixtx 1000 add iytxt iyta add 70 add moveto 1050 ioute 1 eq {200 add} if 0 rlineto stroke } for %k=0,1 ixtx iytxt moveto TBIL (F) show -30 -80 rmoveto TBS (ab) show 0 80 rmoveto TBL (\050) show LSxr TBL (\051) show TBL ( = b ) show ixtx 1000 add iytxt 100 add moveto TBL e_10 show 0 100 rmoveto SVxr TBS (/a) show ioute 1 eq {(') show} if 0 -100 rmoveto TBL ( - ) show TBL e_10 show 0 100 rmoveto SVxrn TBS (/a) show ioute 1 eq {(') show} if 0 -100 rmoveto ixtx 1000 add iytxt 200 sub moveto TBL e_10 show 0 100 rmoveto SVxr TBS (/a) show ioute 1 eq {(') show} if 0 -100 rmoveto TBL ( + ) show TBL e_10 show 0 100 rmoveto SVxrn TBS (/a) show ioute 1 eq {(') show} if 0 -100 rmoveto j 0 eq {%j=0, both sides tfw TBS ix3 1400 add iyt0 000 add moveto (a=1,00, b=1,00 e=2,718282) show ioute 1 eq {%ioute=1 ix3 2400 add iyt0 200 sub moveto (a'=a) show 30 0 rmoveto (ln(10)=) show 1.0 10 ln mul cvsshow3x } if %ioute=1 } if %j=0, both sides ioute 1 eq xchartl 0 eq and { %ioute=1, xchartl=0 right side ix3 1400 add iyt0 200 add moveto TBL (10) show 0 100 rmoveto SVxrx 0 -100 rmoveto TBL (=e) show 0 100 rmoveto TBS (ln(10)) show 30 0 rmoveto SVxrx 0 -100 rmoveto TBL (, 10) show 0 100 rmoveto SVxr TBS (/ln(10)) show 0 -100 rmoveto TBL (=e) show 0 100 rmoveto SVxrx 0 -100 rmoveto ix3 1400 add iyt0 ioute 0 eq {250 sub moveto} {500 sub 050 sub moveto} ifelse TBL (10) show ioute 0 eq {0 100 rmoveto SVxrx TBS (/a) show 0 -100 rmoveto } if ioute 1 eq expnr 6 le and {0 100 rmoveto SVxrx %zr for xchartl<=6 TBS (/a') show 0 -100 rmoveto } if ioute 1 eq expnr 6 gt and {0 100 rmoveto SVxrx %zr for xchartl>6 TBS (/a') show 0 -100 rmoveto } if TBL (=) show TBL (10) show 0 100 rmoveto SVxrx TBS ( / [a) show 30 0 rmoveto (ln(10)]) show 0 -100 rmoveto TBL (=) show TBL (e) show 0 100 rmoveto SVxrx TBS (/a) show 0 -100 rmoveto } if %ioute=1, xchartl=0 right side } for %j=jm1,jm2 idevi 1 eq {%idevi=1 /iyt1t iyt1 330 add def 30 setlinewidth [ ] 0 setdash tfg ix0 iyt1t moveto TBIL (F') show -50 -80 rmoveto TBS (ab) show 0 80 rmoveto TBL (\050) show LSxrx TBL (\051) show TBL (= [4b ln(10)] / [) show %TBL (a') show 20 0 rmoveto %TBL ({) show TBL e_10 show 0 80 rmoveto SVxr TBS (/a) show ioute 1 eq {(') show} if 20 -80 rmoveto TBL (+) show 20 0 rmoveto TBL e_10 show 0 80 rmoveto TBS (-) show SVxr TBS (/a) show ioute 1 eq {(') show} if 20 -80 rmoveto TBL (]) show 0 80 rmoveto TBS (2) show 0 -80 rmoveto %TBL (]) show ix0 iyt1t 300 sub moveto TBS xchartl 0 eq {(a=1,00) show} if xchartl 1 eq {(a=1,00) show} if xchartl 2 eq {(a=2,00) show} if xchartl 3 eq {(a=0,50) show} if xchartl 4 eq {(a=2,00) show} if xchartl 5 eq {(a=0,50) show} if xchartl 6 eq {(a=1,00) show} if xchartl 7 eq {(a=0,50) show} if xchartl 1 ge {0 100 rmoveto TBS expnk expnr get show 0 -100 rmoveto} if TBS xchartl 0 eq {(; b=1,00) show} if xchartl 1 eq {(; b=2,00) show} if xchartl 2 eq {(; b=1,00) show} if xchartl 3 eq {(; b=1,00) show} if xchartl 4 eq {(; b=2,00) show} if xchartl 5 eq {(; b=2,00) show} if xchartl 6 eq {(; b=1,00) show} if xchartl 7 eq {(; b=0,50) show} if xchartl 1 le {%xchartl<=1 special text xchartl 0 eq {1620}{1820} ifelse 2150 moveto tfg TBIL (F') show -30 -80 rmoveto TBS (1_1) show 0 80 rmoveto xchartl 0 eq {TBL (\050) show LSxr TBL (\051) show} if } if %xchartl<=1 special text xchartl 1 eq {%xchartl=1 special text 0700 2000 moveto tfg TBIL (F') show -30 -80 rmoveto TBS (1_2) show 0 80 rmoveto TBL (\050) show LSxr TBL (\051) show tfw } if %xchartl=1 special text } if %idevi=1 tfw [ ] 0 setdash 0 1500 moveto 4500 0 rlineto stroke tfl [50 50] 0 setdash 0 2000 moveto 2000 0 rlineto stroke tfn 200 2070 moveto TBL (Asymptote) show tfw [ ] 0 setdash 2000 1500 moveto 0 500 rlineto stroke TBL 2450 2050 moveto (W) show tfn 1500 150 sub 0800 moveto (N) show xchartl 1 le {%xchartl<=1 special text 4600 2000 50 sub moveto tfw TBIL (F) show -30 -80 rmoveto TBS (1_1) show 0 80 rmoveto TBL (\050) show LSxr TBL (\051) show } if %xchartl<=1 special text xchartl 1 eq {%xchartl=1 special text 3200 2300 moveto tfy TBIL (F) show -30 -80 rmoveto TBS (1_2) show 0 80 rmoveto TBL (\050) show LSxr TBL (\051) show } if %xchartl=1 special text xtr0 neg ytr0 neg translate %********************************************************************* /C0i_FXi {%BEG C0i_FXi xtr0 ytr0 translate /xi 51 array def %range -4 bis +4 in steps of /yi 51 array def %range -1 to +1 /epxi 51 array def /emxi 51 array def /esxi 51 array def /Frui 51 array def /MULX 500 def /MULY 500 def %ioute 0 eq {/e 2.7182818 def} % {/e 10.0 def } ifelse /e 2.7182818 def /im 45 def jm1 1 jm2 {/j exch def %j=jm1,jm2 j 0 eq {%j=0 /a 1.0 expnp expnr get exp def /ai 1.0 expnp expnr get exp lne_10 mul def /bi 1.0 def } if %j=0 j 1 eq {%j=1 %xchartl 0 eq {/a 1.0 expnp expnr get exp def % /ai 1.0 expnp expnr get exp lne_10 mul def % /bi 1.0 def} if xchartl 1 eq {/a 1.0 expnp expnr get exp def /ai 1.0 expnp expnr get exp lne_10 mul def /bi 2.0 def} if xchartl 2 eq {/a 2.0 expnp expnr get exp def /ai 2.0 expnp expnr get exp lne_10 mul def /bi 1.0 def} if xchartl 3 eq {/a 0.5 expnp expnr get exp def /ai 0.5 expnp expnr get exp lne_10 mul def /bi 1.0 def} if xchartl 4 eq {/a 2.0 expnp expnr get exp def /ai 2.0 expnp expnr get exp lne_10 mul def /bi 2.0 def} if xchartl 5 eq {/a 0.5 expnp expnr get exp def /ai 0.5 expnp expnr get exp lne_10 mul def /bi 2.0 def} if xchartl 6 eq {/a 1.0 expnp expnr get exp def /ai 1.0 expnp expnr get exp lne_10 mul def /bi 0.5 def} if xchartl 7 eq {/a 0.5 expnp expnr get exp def /ai 0.5 expnp expnr get exp lne_10 mul def /bi 0.5 def} if } if %j=1 0 1 50 {/i exch def %i=0,50 xi i -4 i 0.2 mul add put ioute 0 eq {%ioute=0 epxi i e xi i get ai div exp put emxi i e xi i get ai div neg exp put } {%ioute=1 epxi i e xi i get lne_10 div ai div exp put emxi i e xi i get lne_10 div ai div neg exp put } ifelse esxi i epxi i get emxi i get add put Frui i epxi i get emxi i get sub epxi i get emxi i get add div bi mul put } for %i=0,50 40 setlinewidth [ ] 0 setdash 0 1 1 {/k exch def %k=0,1 k 0 eq {%k=0 j 0 eq {[ ] 0 setdash tfw} if j 1 eq {[ ] 0 setdash tfy} if } if %k=0 k 1 eq {%k=1 j 0 eq {[100 100] 0 setdash tfn} if %j 1 eq {[100 100] 0 setdash tfn} if } if %k=1 0 1 im {/i exch def %i=0,im i 0 eq {xi i get MULX mul 2000 add Frui i get MULY mul 1500 add moveto} if i 1 ge i im 1 sub le and {xi i get MULX mul 2000 add Frui i get MULY mul 1500 add lineto} if i im eq {xi i get MULX mul 2000 add Frui i get MULY mul 1500 add lineto stroke} if } for %i=0,im k 1 eq {%k=1 xchartl 1 ge {%xchartl>=1 tfy j 1 eq {%j=1 /yta Frui 45 get MULY mul 070 add def ixt2 2000 add 1500 yta add moveto xchartl 1 eq {(a=1,00) show} if xchartl 2 eq {(a=2,00) show} if xchartl 3 eq {(a=0,50) show} if xchartl 4 eq {(a=2,00) show} if xchartl 5 eq {(a=0,50) show} if xchartl 6 eq {(a=1,00) show} if xchartl 7 eq {(a=0,50) show} if xchartl 1 ge {0 100 rmoveto TBS expnk expnr get show 0 -100 rmoveto TBS (=) show ai cvsshow3x } if %1<=xchartl<=7} if } if %j=1 j 1 eq {%j=1 ixt2 2000 add 1500 yta add 0250 sub moveto ioute 1 eq {%ioute=1 xchartl 1 ge {(a'=) show ai 10 ln mul cvsshow3x (, ) show} if } if %ioute=1 xchartl 1 eq {(b=2,00) show} if xchartl 2 eq {(b=1,00) show} if xchartl 3 eq {(b=1,00) show} if xchartl 4 eq {(b=2,00) show} if xchartl 5 eq {(b=2,00) show} if xchartl 6 eq {(b=0,50) show} if xchartl 7 eq {(b=0,50) show} if } if %j=1 } if %xchartl>=1 } if %k=1 } for %k=0,1 idevi 1 eq {%idevi=1 %integral dx/(a^2+x^2) = (1/a) arctan (x/a) /edxi 51 array def /eqxi 51 array def /emxi 51 array def /Frudi 51 array def /Frud1i 51 array def /Frud2i 51 array def /ai 1 def %special case 0 1 50 {/i exch def %i=0,50 xi i -4 i 0.2 mul add put ioute 0 eq {%ioute=0 eqxi i e xi i get ai div exp put emxi i e xi i get ai div neg exp put } {%ioute=1 eqxi i e xi i get lne_10 div ai div exp put emxi i e xi i get lne_10 div ai div neg exp put } ifelse edxi i e xi i get exp e xi i get neg exp add 2 exp put edxi i 4 edxi i get div put Frudi i edxi i get bi mul put } for %i=0,50 /ai 0.7 def %special case 0 1 50 {/i exch def %i=0,50 xi i -4 i 0.2 mul add put ioute 0 eq {%ioute=0 eqxi i e xi i get ai div exp put emxi i e xi i get ai div neg exp put } {%ioute=1 eqxi i e xi i get lne_10 div ai div exp put emxi i e xi i get lne_10 div ai div neg exp put } ifelse edxi i eqxi i get emxi i get add 2 exp put edxi i 4 edxi i get div put Frud1i i edxi i get bi mul put } for %i=0,50 /ai 1.4 def %special case 0 1 50 {/i exch def %i=0,50 xi i -4 i 0.2 mul add put ioute 0 eq {%ioute=0 eqxi i e xi i get ai div exp put emxi i e xi i get ai div neg exp put } {%ioute=1 eqxi i e xi i get lne_10 div ai div exp put emxi i e xi i get lne_10 div ai div neg exp put } ifelse edxi i eqxi i get emxi i get add 2 exp put edxi i 4 edxi i get div put Frud2i i edxi i get bi mul put } for %i=0,50 0 1 1 {/k exch def %k=0,1 k 0 eq {%k=0 j 0 eq {[ ] 0 setdash tfg} if j 1 eq {[ ] 0 setdash tfg} if } if %k=0 k 1 eq {%k=1 j 0 eq {[100 100] 0 setdash tfn} if %j 1 eq {[100 100] 0 setdash tfn} if } if %k=1 50 setlinewidth /im 45 def 0 1 im {/i exch def %i=0,im i 0 eq {xi i get MULX mul 2000 add Frudi i get MULY mul 1500 add moveto} if i 1 ge i im 1 sub le and {xi i get MULX mul 2000 add Frudi i get MULY mul 1500 add lineto} if i im eq {xi i get MULX mul 2000 add Frudi i get MULY mul 1500 add lineto stroke} if } for %i=0,im tfr 0 1 im {/i exch def %i=0,im i 0 eq {xi i get MULX mul 2000 add Frud1i i get MULY mul 1500 add moveto} if i 1 ge i im 1 sub le and {xi i get MULX mul 2000 add Frud1i i get MULY mul 1500 add lineto} if i im eq {xi i get MULX mul 2000 add Frud1i i get MULY mul 1500 add lineto stroke} if } for %i=0,im 4000 1300 moveto (a=0,7) show tfb 0 1 im {/i exch def %i=0,im i 0 eq {xi i get MULX mul 2000 add Frud2i i get MULY mul 1500 add moveto} if i 1 ge i im 1 sub le and {xi i get MULX mul 2000 add Frud2i i get MULY mul 1500 add lineto} if i im eq {xi i get MULX mul 2000 add Frud2i i get MULY mul 1500 add lineto stroke} if } for %i=0,im 4000 1600 moveto (a=1,4) show } for %k=0,1 [ ] 0 setdash 20 setlinewidth } if %idevi=1 %slope /m0 Frui 21 get Frui 19 get sub xi 21 get xi 19 get sub div def %font colour j 0 eq {tfw} if j 1 eq {tfy} if 1650 0700 j 180 mul sub moveto TBIS (m) show 0 -70 rmoveto TBV ai cvsshow1x bi cvishow 0 70 rmoveto TBS (=) show m0 cvsshow2x } for %j=jm1,jm2 tfl 30 setlinewidth [100 100] 0 setdash 1600 0 moveto 1600 Frui 16 get MULY mul 1500 add lineto stroke 2400 500 moveto 2400 Frui 24 get MULY mul 1500 add lineto stroke [ ] 0 setdash 20 setlinewidth xtr0 neg ytr0 neg translate } def %C0i_FXi %END C0i_FXi %********************************************************************* C0i_FXi %************************************************************** %special space for 'xm03'PROZ0.COM 2x before/after xchartl % xchartl 0 eq { 100 neg 13000 neg translate} if % xchartl 1 eq { 6150 neg 13000 neg translate} if % xchartl 2 eq { 100 neg 08740 neg translate} if % xchartl 3 eq { 6150 neg 08740 neg translate} if % xchartl 4 eq { 100 neg 04480 neg translate} if % xchartl 5 eq { 6150 neg 04480 neg translate} if % xchartl 6 eq { 100 neg 00220 neg translate} if % xchartl 7 eq { 6150 neg 00220 neg translate} if grestore %} for %xchartl=0,07 showpage grestore %%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/fen0/fen00-4a fen01-4n %%BoundingBox: 70 85 245 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/fen0/fen0.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:2024030112200) /ModDate (D:20240301112200) /DOCINFO pdfmark04 [ /View [ /Fit ] /DOCVIEW pdfmark04 %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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TV {120 /Times-ISOL1 FS} 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 /TIV {120 /TimesI-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 /TBV {120 /TimesB-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 /TBIV {120 /TimesBI-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 /SV {120 /Symbol FS} bind def /SS {160 /Symbol FS} bind def /SL {200 /Symbol FS} bind def /SK {250 /Symbol FS} bind def /SM {300 /Symbol FS} bind def /SG {350 /Symbol FS} bind def /CV {120 /Courier FS} bind def /CS {160 /Courier FS} bind def /CL {200 /Courier FS} bind def /CK {250 /Courier FS} bind def /CM {300 /Courier FS} bind def /CG {350 /Courier FS} bind def /CIV {120 /Courier-Oblique FS} bind def /CIS {160 /Courier-Oblique FS} bind def /CIL {200 /Courier-Oblique FS} bind def /CIK {250 /Courier-Oblique FS} bind def /CIM {300 /Courier-Oblique FS} bind def /CIG {350 /Courier-Oblique FS} bind def /CBV {120 /Courier-Bold FS} bind def /CBS {160 /Courier-Bold FS} bind def /CBL {200 /Courier-Bold FS} bind def /CBK {250 /Courier-Bold FS} bind def /CBM {300 /Courier-Bold FS} bind def /CBG {350 /Courier-Bold FS} bind def /CBIV {120 /Courier-BoldOblique FS} bind def /CBIS {160 /Courier-BoldOblique FS} bind def /CBIL {200 /Courier-BoldOblique FS} bind def /CBIK {250 /Courier-BoldOblique FS} bind def /CBIM {300 /Courier-BoldOblique FS} bind def /CBIG {350 /Courier-BoldOblique 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 /kM2 {300 /TimesI-ISOL1 FS show TM} bind def /bM2 {300 /TimesB-ISOL1 FS show TM} bind def /jM2 {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 %XCHA02.PS BEG /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 {setrgbcolor rec fill} bind def /colrecst %x y width heigth c m y k {setrgbcolor rec stroke} bind def /rem %x, y width heigth {/heigth exch 0.5 mul def /width exch 0.5 mul def /yleftb exch heigth 0.5 mul add def /xleftb exch width 0.5 mul add def xleftb yleftb moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colremfi %x y width heigth c m y k {setrgbcolor rem fill} bind def /colremst %x y width heigth c m y k {setrgbcolor rem stroke} bind def /tzr {1 0 0} bind def %Reproduktionsfarben /tzg {0 1 0} bind def /tzb {0 0 1} bind def /tzc {0 1 1} bind def /tzm {1 0 1} bind def /tzy {1 1 0} bind def /tzo {1 0 0} bind def %Reproduktionsfarben /tzl {0 1 0} bind def /tzv {0 0 1} bind def /tzn {0.00} bind def %Graureihe /tzd {0.25} bind def /tzz {0.50} bind def /tzh {0.75} bind def /tzw {1.00} 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 /tfrn {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben /tfgn {0.0 0.5 0.0 setrgbcolor} bind def /tfbn {0.0 0.0 0.5 setrgbcolor} bind def /tfcn {0.0 0.5 0.5 setrgbcolor} bind def /tfmn {0.5 0.0 0.5 setrgbcolor} bind def /tfyn {0.5 0.5 0.0 setrgbcolor} bind def /tfon {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben /tfln {0.0 0.5 0.0 setrgbcolor} bind def /tfvn {0.0 0.0 0.5 setrgbcolor} bind def /tfn {0.00 setgray} bind def %Graureihe /tfd {0.25 setgray} bind def /tfz {0.50 setgray} bind def /tfh {0.75 setgray} bind def /tfw {1.00 setgray} 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 /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 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 % /ioute 1 def /ifunc 0 def /idevi 1 def /imevi 1 def /expnr 4 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 %always independent of intended output 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def %75 85 moveto %lanind cvishow (-) show %colorm cvishow %deintp cvishow %xcolor cvishow %xchart cvishow %pchart cvishow %colsep cvishow (-L) show pmetam cvishow gsave %XCHA01.PS END 4 /Times-ISOL1 FS %74 86 moveto (fen00-5R) show %xchart 0 eq {(R) show} % {deintp colorm 2 mul add cvishow} ifelse 72 90 translate 0.01 MM dup scale 20 setlinewidth %0 0 12250 17100 1.0 1.0 1.0 colrecfi %area white grey %0 0 12250 17100 0.0 0.0 0.0 colrecst %Rahmen Schwarz %/ifunc 0 def %ifunc 0 eq {Yi_L*i_dYi_L_0} if %ifunc 1 eq {Yi_L*i_dYi_C_0} if %Yi_Yxyi /xchartl 0 def %0 1 07 {/xchartl exch def %xchartl=0,07 gsave %from BEA80-4a fen01-4n.PS % xchartl 0 eq { 100 13000 translate} if % xchartl 1 eq { 6150 13000 translate} if % xchartl 2 eq { 100 08740 translate} if % xchartl 3 eq { 6150 08740 translate} if % xchartl 4 eq { 100 04480 translate} if % xchartl 5 eq { 6150 04480 translate} if % xchartl 6 eq { 100 00220 translate} if % xchartl 7 eq { 6150 00220 translate} if 130 /Times-ISOL1 FS 0 setgray 50 -130 moveto (fen00-4a fen01-4n) show %%%%%%%xchartl 1 add cvishow %%%%%%%(A) show %A %(_) show xchart 1 add cvishow /xwidth 6000 def /ywidth 4000 def 25 setlinewidth 0.5 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath clip 0 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath stroke tfn %tfw /xtr0 380 def /ytr0 350 def xtr0 ytr0 translate %********************************************************************* tfw 30 setlinewidth 0 0 moveto 5250 0 rlineto stroke 0 0 moveto 0 3250 rlineto stroke 5250 100 sub 50 moveto 100 -50 rlineto -100 -50 rlineto stroke -50 3250 100 sub moveto 50 100 rlineto 50 -100 rlineto stroke /tx [(-4) (-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3) ( 4)] def /ty [(-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3)] def /xz (x) def /xzn (-x) def ioute 1 eq expnr 7 ge and {%xchartl>=7 /xz (z) def /xzn (-z) def } if /KLxr {20 0 rmoveto TBIK xz show 0 -80 rmoveto TBL (r) show 20 80 rmoveto} def /LSxr {20 0 rmoveto TBIL xz show 0 -60 rmoveto TBS (r) show 20 60 rmoveto} def /SVxr {20 0 rmoveto TBIS xz show 0 -40 rmoveto TBV (r) show 20 40 rmoveto} def /KLxrx {20 0 rmoveto TBIK (x) show 0 -80 rmoveto TBL (r) show 20 80 rmoveto} def /KLxrz {20 0 rmoveto TBIK (z) show 0 -80 rmoveto TBL (r) show 20 80 rmoveto} def /LSxrx {20 0 rmoveto TBIL (x) show 0 -60 rmoveto TBS (r) show 20 60 rmoveto} def /LSxrz {20 0 rmoveto TBIL (z) show 0 -60 rmoveto TBS (r) show 20 60 rmoveto} def /SVxrx {20 0 rmoveto TBIS (x) show 0 -40 rmoveto TBV (r) show 20 40 rmoveto} def /SVxrz {20 0 rmoveto TBIS (z) show 0 -40 rmoveto TBV (r) show 20 40 rmoveto} def /100KLxr {0 100 rmoveto KLxr 0 -100 rmoveto} def /100LSxr {0 080 rmoveto LSxr 0 -080 rmoveto} def /100SVxr {0 060 rmoveto SVxr 0 -060 rmoveto} def /KLxrn {20 0 rmoveto TBIK xzn show 0 -80 rmoveto TBL (r) show 20 80 rmoveto} def /LSxrn {20 0 rmoveto TBIL xzn show 0 -60 rmoveto TBS (r) show 20 60 rmoveto} def /SVxrn {20 0 rmoveto TBIS xzn show 0 -40 rmoveto TBV (r) show 20 40 rmoveto} def /KLxrxn {20 0 rmoveto TBIK (xn) show 0 -80 rmoveto TBL (r) show 20 80 rmoveto} def /KLxrzn {20 0 rmoveto TBIK (zn) show 0 -80 rmoveto TBL (r) show 20 80 rmoveto} def /LSxrxn {20 0 rmoveto TBIL (xn) show 0 -60 rmoveto TBS (r) show 20 60 rmoveto} def /LSxrzn {20 0 rmoveto TBIL (zn) show 0 -60 rmoveto TBS (r) show 20 60 rmoveto} def /SVxrxn {20 0 rmoveto TBIS (xn) show 0 -40 rmoveto TBV (r) show 20 40 rmoveto} def /SVxrzn {20 0 rmoveto TBIS (zn) show 0 -40 rmoveto TBV (r) show 20 40 rmoveto} def /100KLxrn {0 100 rmoveto KLxrn 0 -100 rmoveto} def /100LSxrn {0 080 rmoveto LSxrn 0 -080 rmoveto} def /100SVxrn {0 060 rmoveto SVxrn 0 -060 rmoveto} def %!x-Achse: 1 log-Einheiten = 500 Skalen-Einheiten TBL 0 1 9 {/i exch def /ixt { -150 i 0500 mul add} def /ixl { 000 i 0500 mul add} def i 8 le {ixt -250 moveto tx i get exec show} if ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 1 log-Einheiten = 500 Skalen-Einheiten TBL 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -350 iyt moveto ty i get exec show -75 iyl moveto 150 0 rlineto stroke } for 4300 -260 moveto tfw LSxr TBL (=) show 30 0 rmoveto TBL (log[) show 30 0 rmoveto TBIL (L/L) show 0 -50 rmoveto TBS (u) show 0 50 rmoveto TBL (]) show 1900 200 moveto (L) TBIL tfw show TBS 20 -80 rmoveto (u) show 50 80 rmoveto 4300 0200 moveto (L) TBIL tfw show TBS 20 -80 rmoveto (u) show 00 80 rmoveto TBL 20 0 (=28) ashow (cd/m) show TBS 0 80 rmoveto (2) show 0 -80 rmoveto tfl 40 setlinewidth 1600 0 moveto 800 0 rlineto stroke 2200 270 moveto TBS (range of office) showen (Bereich B\374ro\255) showde 2200 100 moveto (luminance) showen (Leuchtdichte) showde xtr0 neg ytr0 neg translate %******************************************************** %BEG C01_C08 ******************************************** %original square tfn %tfw 050 3750 moveto xchartl 07 le {%xchartl=00 tfw TBIK (F) show -50 -80 rmoveto TBL (ab) show 0 80 rmoveto TBK (\050) show KLxr TBK (\051) show 20 0 rmoveto (=) show 20 0 rmoveto (unbunte Rezeptorerregung) showde (achromatic receptor response) showen } if %xchartl=00 xchartl 01 ge {%xchartl>=1 tfy TBK ( & modified) showen ( & modifiziert) showde } if %xchartl>=1 tfn %tfw %********************************************************************* %BEG Common text xtr0 ytr0 translate TBIK /iyt0 2900 def %top text line /iyt1 2300 def %lower yellow text line /ixt2 2420 def %right red text line /iyt2 1100 def %right red text line /ix0 100 def /ix1 750 def %for F(x) /ix1a 850 def %for Fn(x) /ix2 2200 def %text e /ix3 1700 def %ifunc 0 eq {/x_zp (x) def /x_zm (-x) def} % {/x_zp (z) def /x_zm (-z) def /lne_10d 1 10 ln div def} ifelse /x_zp (x) def /x_zm (-x) def ioute 0 eq {/e_10 (e) def /lne_10 1 def} {/e_10 (10) def /lne_10 1 def} ifelse /expnp 10 array def % 0 1 2 3 4 5 6 7 8 9 /expnp [1.0 1.0 0.7 0.5 1.0 0.7 0.5 1.0 0.7 0.5] def /expnk 10 array def % 0 1 2 3 4 5 6 7 8 9 /expnk [(1,0) (1,0) (0,7) (0,5) (1,0) (0,7) (0,5) (1,0) (0,7) (0,5)] def %**************************************** tfw 30 setlinewidth /jm1 0 def /jm2 1 def /iytj 0 def xchartl 0 eq {/jm2 0 def} {/jm2 1 def} ifelse jm1 1 jm2 {/j exch def %j=jm1,jm2 j 0 eq {/iyta 0 def} if j 1 eq {/iyta 0 def} if 0 1 1 {/k exch def %k=0,1 k 0 eq {%k=0 j 0 eq {[ ] 0 setdash tfw} if j 1 eq {[ ] 0 setdash tfy} if } if %k=0 k 1 eq {%k=1 j 0 eq {[100 100] 0 setdash tfn} if j 1 eq {[100 100] 0 setdash tfn} if } if %k=1 %font colour j 0 eq {tfw} if j 1 eq {tfy} if j 0 eq {/ixtx ix0 def /iytx iyt0 def} if j 1 eq {/ixtx ixt2 def /iytx iyt2 def} if /iytxt iytx 050 add j 0 eq {100 add} if def ixtx 1000 add iytxt iyta add 70 add moveto 1050 ioute 1 eq {200 add} if 0 rlineto stroke } for %k=0,1 ixtx iytxt moveto TBIL (F) show -30 -80 rmoveto TBS (ab) show 0 80 rmoveto TBL (\050) show LSxr TBL (\051) show TBL ( = b ) show ixtx 1000 add iytxt 100 add moveto TBL e_10 show 0 100 rmoveto SVxr TBS (/a) show ioute 1 eq {(') show} if 0 -100 rmoveto TBL ( - ) show TBL e_10 show 0 100 rmoveto SVxrn TBS (/a) show ioute 1 eq {(') show} if 0 -100 rmoveto ixtx 1000 add iytxt 200 sub moveto TBL e_10 show 0 100 rmoveto SVxr TBS (/a) show ioute 1 eq {(') show} if 0 -100 rmoveto TBL ( + ) show TBL e_10 show 0 100 rmoveto SVxrn TBS (/a) show ioute 1 eq {(') show} if 0 -100 rmoveto j 0 eq {%j=0, both sides tfw TBS ix3 1400 add iyt0 000 add moveto (a=1,00, b=1,00 e=2,718282) show ioute 1 eq {%ioute=1 ix3 2400 add iyt0 200 sub moveto (a'=a) show 30 0 rmoveto (ln(10)=) show 1.0 10 ln mul cvsshow3x } if %ioute=1 } if %j=0, both sides ioute 1 eq xchartl 0 eq and { %ioute=1, xchartl=0 right side ix3 1400 add iyt0 200 add moveto TBL (10) show 0 100 rmoveto SVxrx 0 -100 rmoveto TBL (=e) show 0 100 rmoveto TBS (ln(10)) show 30 0 rmoveto SVxrx 0 -100 rmoveto TBL (, 10) show 0 100 rmoveto SVxr TBS (/ln(10)) show 0 -100 rmoveto TBL (=e) show 0 100 rmoveto SVxrx 0 -100 rmoveto ix3 1400 add iyt0 ioute 0 eq {250 sub moveto} {500 sub 050 sub moveto} ifelse TBL (10) show ioute 0 eq {0 100 rmoveto SVxrx TBS (/a) show 0 -100 rmoveto } if ioute 1 eq expnr 6 le and {0 100 rmoveto SVxrx %zr for xchartl<=6 TBS (/a') show 0 -100 rmoveto } if ioute 1 eq expnr 6 gt and {0 100 rmoveto SVxrx %zr for xchartl>6 TBS (/a') show 0 -100 rmoveto } if TBL (=) show TBL (10) show 0 100 rmoveto SVxrx TBS ( / [a) show 30 0 rmoveto (ln(10)]) show 0 -100 rmoveto TBL (=) show TBL (e) show 0 100 rmoveto SVxrx TBS (/a) show 0 -100 rmoveto } if %ioute=1, xchartl=0 right side } for %j=jm1,jm2 idevi 1 eq {%idevi=1 /iyt1t iyt1 330 add def 30 setlinewidth [ ] 0 setdash tfg ix0 iyt1t moveto TBIL (F') show -50 -80 rmoveto TBS (ab) show 0 80 rmoveto TBL (\050) show LSxrx TBL (\051) show TBL (= [4b ln(10)] / [) show %TBL (a') show 20 0 rmoveto %TBL ({) show TBL e_10 show 0 80 rmoveto SVxr TBS (/a) show ioute 1 eq {(') show} if 20 -80 rmoveto TBL (+) show 20 0 rmoveto TBL e_10 show 0 80 rmoveto TBS (-) show SVxr TBS (/a) show ioute 1 eq {(') show} if 20 -80 rmoveto TBL (]) show 0 80 rmoveto TBS (2) show 0 -80 rmoveto %TBL (]) show ix0 1250 moveto TBL (log) show 30 0 rmoveto TBIL (F') show -50 -80 rmoveto TBS (ab) show 0 80 rmoveto TBL (\050) show LSxrx TBL (\051) show ix0 iyt1t 300 sub moveto TBS xchartl 0 eq {(a=1,00) show} if xchartl 1 eq {(a=1,00) show} if xchartl 2 eq {(a=2,00) show} if xchartl 3 eq {(a=0,50) show} if xchartl 4 eq {(a=2,00) show} if xchartl 5 eq {(a=0,50) show} if xchartl 6 eq {(a=1,00) show} if xchartl 7 eq {(a=0,50) show} if xchartl 1 ge {0 100 rmoveto TBS expnk expnr get show 0 -100 rmoveto} if TBS xchartl 0 eq {(; b=1,00) show} if xchartl 1 eq {(; b=2,00) show} if xchartl 2 eq {(; b=1,00) show} if xchartl 3 eq {(; b=1,00) show} if xchartl 4 eq {(; b=2,00) show} if xchartl 5 eq {(; b=2,00) show} if xchartl 6 eq {(; b=1,00) show} if xchartl 7 eq {(; b=0,50) show} if xchartl 1 le {%xchartl<=1 special text xchartl 0 eq {1620}{1820} ifelse 2150 moveto tfg TBIL (F') show -30 -80 rmoveto TBS (1_1) show 0 80 rmoveto xchartl 0 eq {TBL (\050) show LSxr TBL (\051) show} if } if %xchartl<=1 special text xchartl 1 eq {%xchartl=1 special text 0700 2000 moveto tfg TBIL (F') show -30 -80 rmoveto TBS (1_2) show 0 80 rmoveto TBL (\050) show LSxr TBL (\051) show tfw } if %xchartl=1 special text } if %idevi=1 tfw [ ] 0 setdash 0 1500 moveto 4500 0 rlineto stroke tfl [50 50] 0 setdash 0 2000 moveto 2000 0 rlineto stroke tfn 200 2070 moveto TBL (Asymptote) show tfw [ ] 0 setdash 2000 1500 moveto 0 500 rlineto stroke TBL 2450 2050 moveto (W) show tfn 1500 150 sub 0800 moveto (N) show xchartl 1 le {%xchartl<=1 special text 4600 2000 50 sub moveto tfw TBIL (F) show -30 -80 rmoveto TBS (1_1) show 0 80 rmoveto TBL (\050) show LSxr TBL (\051) show } if %xchartl<=1 special text xchartl 1 eq {%xchartl=1 special text 3200 2300 moveto tfy TBIL (F) show -30 -80 rmoveto TBS (1_2) show 0 80 rmoveto TBL (\050) show LSxr TBL (\051) show } if %xchartl=1 special text xtr0 neg ytr0 neg translate %********************************************************************* /C0i_FXi {%BEG C0i_FXi xtr0 ytr0 translate /xi 51 array def %range -4 bis +4 in steps of /yi 51 array def %range -1 to +1 /epxi 51 array def /emxi 51 array def /esxi 51 array def /Frui 51 array def /MULX 500 def /MULY 500 def %ioute 0 eq {/e 2.7182818 def} % {/e 10.0 def } ifelse /e 2.7182818 def /im 45 def jm1 1 jm2 {/j exch def %j=jm1,jm2 j 0 eq {%j=0 /a 1.0 expnp expnr get exp def /ai 1.0 expnp expnr get exp lne_10 mul def /bi 1.0 def } if %j=0 j 1 eq {%j=1 %xchartl 0 eq {/a 1.0 expnp expnr get exp def % /ai 1.0 expnp expnr get exp lne_10 mul def % /bi 1.0 def} if xchartl 1 eq {/a 1.0 expnp expnr get exp def /ai 1.0 expnp expnr get exp lne_10 mul def /bi 2.0 def} if xchartl 2 eq {/a 2.0 expnp expnr get exp def /ai 2.0 expnp expnr get exp lne_10 mul def /bi 1.0 def} if xchartl 3 eq {/a 0.5 expnp expnr get exp def /ai 0.5 expnp expnr get exp lne_10 mul def /bi 1.0 def} if xchartl 4 eq {/a 2.0 expnp expnr get exp def /ai 2.0 expnp expnr get exp lne_10 mul def /bi 2.0 def} if xchartl 5 eq {/a 0.5 expnp expnr get exp def /ai 0.5 expnp expnr get exp lne_10 mul def /bi 2.0 def} if xchartl 6 eq {/a 1.0 expnp expnr get exp def /ai 1.0 expnp expnr get exp lne_10 mul def /bi 0.5 def} if xchartl 7 eq {/a 0.5 expnp expnr get exp def /ai 0.5 expnp expnr get exp lne_10 mul def /bi 0.5 def} if } if %j=1 0 1 50 {/i exch def %i=0,50 xi i -4 i 0.2 mul add put ioute 0 eq {%ioute=0 epxi i e xi i get ai div exp put emxi i e xi i get ai div neg exp put } {%ioute=1 epxi i e xi i get lne_10 div ai div exp put emxi i e xi i get lne_10 div ai div neg exp put } ifelse esxi i epxi i get emxi i get add put Frui i epxi i get emxi i get sub epxi i get emxi i get add div bi mul put } for %i=0,50 40 setlinewidth [ ] 0 setdash 0 1 1 {/k exch def %k=0,1 k 0 eq {%k=0 j 0 eq {[ ] 0 setdash tfw} if j 1 eq {[ ] 0 setdash tfy} if } if %k=0 k 1 eq {%k=1 j 0 eq {[100 100] 0 setdash tfn} if %j 1 eq {[100 100] 0 setdash tfn} if } if %k=1 0 1 im {/i exch def %i=0,im i 0 eq {xi i get MULX mul 2000 add Frui i get MULY mul 1500 add moveto} if i 1 ge i im 1 sub le and {xi i get MULX mul 2000 add Frui i get MULY mul 1500 add lineto} if i im eq {xi i get MULX mul 2000 add Frui i get MULY mul 1500 add lineto stroke} if } for %i=0,im k 1 eq {%k=1 xchartl 1 ge {%xchartl>=1 tfy j 1 eq {%j=1 /yta Frui 45 get MULY mul 070 add def ixt2 2000 add 1500 yta add moveto xchartl 1 eq {(a=1,00) show} if xchartl 2 eq {(a=2,00) show} if xchartl 3 eq {(a=0,50) show} if xchartl 4 eq {(a=2,00) show} if xchartl 5 eq {(a=0,50) show} if xchartl 6 eq {(a=1,00) show} if xchartl 7 eq {(a=0,50) show} if xchartl 1 ge {0 100 rmoveto TBS expnk expnr get show 0 -100 rmoveto TBS (=) show ai cvsshow3x } if %1<=xchartl<=7} if } if %j=1 j 1 eq {%j=1 ixt2 2000 add 1500 yta add 0250 sub moveto ioute 1 eq {%ioute=1 xchartl 1 ge {(a'=) show ai 10 ln mul cvsshow3x (, ) show} if } if %ioute=1 xchartl 1 eq {(b=2,00) show} if xchartl 2 eq {(b=1,00) show} if xchartl 3 eq {(b=1,00) show} if xchartl 4 eq {(b=2,00) show} if xchartl 5 eq {(b=2,00) show} if xchartl 6 eq {(b=0,50) show} if xchartl 7 eq {(b=0,50) show} if } if %j=1 } if %xchartl>=1 } if %k=1 } for %k=0,1 idevi 1 eq {%idevi=1 %integral dx/(a^2+x^2) = (1/a) arctan (x/a) /edxi 51 array def /eqxi 51 array def /emxi 51 array def /Frudi 51 array def /Frud1i 51 array def /Frud2i 51 array def /ai 1 def %special case 0 1 50 {/i exch def %i=0,50 xi i -4 i 0.2 mul add put ioute 0 eq {%ioute=0 eqxi i e xi i get ai div exp put emxi i e xi i get ai div neg exp put } {%ioute=1 eqxi i e xi i get lne_10 div ai div exp put emxi i e xi i get lne_10 div ai div neg exp put } ifelse edxi i e xi i get exp e xi i get neg exp add 2 exp put edxi i 4 edxi i get div put Frudi i edxi i get bi mul put } for %i=0,50 /ai 0.7 def %special case 0 1 50 {/i exch def %i=0,50 xi i -4 i 0.2 mul add put ioute 0 eq {%ioute=0 eqxi i e xi i get ai div exp put emxi i e xi i get ai div neg exp put } {%ioute=1 eqxi i e xi i get lne_10 div ai div exp put emxi i e xi i get lne_10 div ai div neg exp put } ifelse edxi i eqxi i get emxi i get add 2 exp put edxi i 4 edxi i get div put Frud1i i edxi i get bi mul put } for %i=0,50 /ai 1.4 def %special case 0 1 50 {/i exch def %i=0,50 xi i -4 i 0.2 mul add put ioute 0 eq {%ioute=0 eqxi i e xi i get ai div exp put emxi i e xi i get ai div neg exp put } {%ioute=1 eqxi i e xi i get lne_10 div ai div exp put emxi i e xi i get lne_10 div ai div neg exp put } ifelse edxi i eqxi i get emxi i get add 2 exp put edxi i 4 edxi i get div put Frud2i i edxi i get bi mul put } for %i=0,50 0 1 1 {/k exch def %k=0,1 k 0 eq {%k=0 j 0 eq {[ ] 0 setdash tfg} if j 1 eq {[ ] 0 setdash tfg} if } if %k=0 k 1 eq {%k=1 j 0 eq {[100 100] 0 setdash tfn} if %j 1 eq {[100 100] 0 setdash tfn} if } if %k=1 50 setlinewidth /im 45 def 0 1 1 {/klog exch def %klog=0,1 tfg 0 1 im {/i exch def %i=0,im i 0 eq {xi i get MULX mul 2000 add Frudi i get klog 1 eq {log} if MULY mul 1500 add moveto} if i 1 ge i im 1 sub le and {xi i get MULX mul 2000 add Frudi i get klog 1 eq {log} if MULY mul 1500 add lineto} if i im eq {xi i get MULX mul 2000 add Frudi i get klog 1 eq {log} if MULY mul 1500 add lineto stroke} if } for %i=0,im tfr 0 1 im {/i exch def %i=0,im i 0 eq {xi i get MULX mul 2000 add Frud1i i get klog 1 eq {log} if MULY mul 1500 add moveto} if i 1 ge i im 1 sub le and {xi i get MULX mul 2000 add Frud1i i get klog 1 eq {log} if MULY mul 1500 add lineto} if i im eq {xi i get MULX mul 2000 add Frud1i i get klog 1 eq {log} if MULY mul 1500 add lineto stroke} if } for %i=0,im tfb 0 1 im {/i exch def %i=0,im i 0 eq {xi i get MULX mul 2000 add Frud2i i get klog 1 eq {log} if MULY mul 1500 add moveto} if i 1 ge i im 1 sub le and {xi i get MULX mul 2000 add Frud2i i get klog 1 eq {log} if MULY mul 1500 add lineto} if i im eq {xi i get MULX mul 2000 add Frud2i i get klog 1 eq {log} if MULY mul 1500 add lineto stroke} if } for %i=0,im } for %klog=0,1 tfr 4000 1300 moveto (a=0,7) show 2450 0450 moveto (a=0,7) show 0800 0100 moveto (a=0,7) show tfb 4000 1600 moveto (a=1,4) show 4000 0600 moveto (a=1,4) show 0100 0500 moveto (a=1,4) show tfg 0200 0100 moveto (a=1) show } for %k=0,1 [ ] 0 setdash 20 setlinewidth } if %idevi=1 %slope /m0 Frui 21 get Frui 19 get sub xi 21 get xi 19 get sub div def %font colour j 0 eq {tfw} if j 1 eq {tfy} if 1650 0700 j 180 mul sub moveto TBIS (m) show 0 -70 rmoveto TBV ai cvsshow1x bi cvishow 0 70 rmoveto TBS (=) show m0 cvsshow2x } for %j=jm1,jm2 tfl 30 setlinewidth [100 100] 0 setdash 1600 0 moveto 1600 Frui 16 get MULY mul 1500 add lineto stroke 2400 500 moveto 2400 Frui 24 get MULY mul 1500 add lineto stroke [ ] 0 setdash 20 setlinewidth xtr0 neg ytr0 neg translate } def %C0i_FXi %END C0i_FXi %********************************************************************* C0i_FXi %************************************************************** %special space for 'xm03'PROZ0.COM 2x before/after xchartl % xchartl 0 eq { 100 neg 13000 neg translate} if % xchartl 1 eq { 6150 neg 13000 neg translate} if % xchartl 2 eq { 100 neg 08740 neg translate} if % xchartl 3 eq { 6150 neg 08740 neg translate} if % xchartl 4 eq { 100 neg 04480 neg translate} if % xchartl 5 eq { 6150 neg 04480 neg translate} if % xchartl 6 eq { 100 neg 00220 neg translate} if % xchartl 7 eq { 6150 neg 00220 neg translate} if grestore %} for %xchartl=0,07 showpage grestore %%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 fen00-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 (fen00-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 fen00-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 (fen00-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 fen00-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 (fen00-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 fen00-7n_60 %%BoundingBox: 70 85 421 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/fen0/fen0.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 4 def %0:top page, 4:down page %not used 72 90 translate 0.010 MM dup scale 40 setlinewidth /ymax1 08550 def /xmax1 12250 def %2x6000+250 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 {(fen00-) show} {(fen01-) show} ifelse pchartl 0 eq {(3n) show} {(7n) show} ifelse grestore gsave %00 %01 %02 /SHSl 00.0 def /SHAl 02.8 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/fen0/fen00-5a enk00-1n %%BoundingBox: 70 85 245 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/fen0/fen0.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:2023070112200) /ModDate (D:20230701112200) /DOCINFO pdfmark05 [ /View [ /Fit ] /DOCVIEW pdfmark05 %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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TV {120 /Times-ISOL1 FS} 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 /TIV {120 /TimesI-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 /TBV {120 /TimesB-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 /TBIV {120 /TimesBI-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 /SV {120 /Symbol FS} bind def /SS {160 /Symbol FS} bind def /SL {200 /Symbol FS} bind def /SK {250 /Symbol FS} bind def /SM {300 /Symbol FS} bind def /SG {350 /Symbol FS} bind def /CV {120 /Courier FS} bind def /CS {160 /Courier FS} bind def /CL {200 /Courier FS} bind def /CK {250 /Courier FS} bind def /CM {300 /Courier FS} bind def /CG {350 /Courier FS} bind def /CIV {120 /Courier-Oblique FS} bind def /CIS {160 /Courier-Oblique FS} bind def /CIL {200 /Courier-Oblique FS} bind def /CIK {250 /Courier-Oblique FS} bind def /CIM {300 /Courier-Oblique FS} bind def /CIG {350 /Courier-Oblique FS} bind def /CBV {120 /Courier-Bold FS} bind def /CBS {160 /Courier-Bold FS} bind def /CBL {200 /Courier-Bold FS} bind def /CBK {250 /Courier-Bold FS} bind def /CBM {300 /Courier-Bold FS} bind def /CBG {350 /Courier-Bold FS} bind def /CBIV {120 /Courier-BoldOblique FS} bind def /CBIS {160 /Courier-BoldOblique FS} bind def /CBIL {200 /Courier-BoldOblique FS} bind def /CBIK {250 /Courier-BoldOblique FS} bind def /CBIM {300 /Courier-BoldOblique FS} bind def /CBIG {350 /Courier-BoldOblique 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 /kM2 {300 /TimesI-ISOL1 FS show TM} bind def /bM2 {300 /TimesB-ISOL1 FS show TM} bind def /jM2 {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 %XCHA02.PS BEG /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 {setrgbcolor rec fill} bind def /colrecst %x y width heigth c m y k {setrgbcolor rec stroke} bind def /rem %x, y width heigth {/heigth exch 0.5 mul def /width exch 0.5 mul def /yleftb exch heigth 0.5 mul add def /xleftb exch width 0.5 mul add def xleftb yleftb moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colremfi %x y width heigth c m y k {setrgbcolor rem fill} bind def /colremst %x y width heigth c m y k {setrgbcolor rem stroke} bind def /tzr {1 0 0} bind def %Reproduktionsfarben /tzg {0 1 0} bind def /tzb {0 0 1} bind def /tzc {0 1 1} bind def /tzm {1 0 1} bind def /tzy {1 1 0} bind def /tzo {1 0 0} bind def %Reproduktionsfarben /tzl {0 1 0} bind def /tzv {0 0 1} bind def /tzn {0.00} bind def %Graureihe /tzd {0.25} bind def /tzz {0.50} bind def /tzh {0.75} bind def /tzw {1.00} 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 /tfrn {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben /tfgn {0.0 0.5 0.0 setrgbcolor} bind def /tfbn {0.0 0.0 0.5 setrgbcolor} bind def /tfcn {0.0 0.5 0.5 setrgbcolor} bind def /tfmn {0.5 0.0 0.5 setrgbcolor} bind def /tfyn {0.5 0.5 0.0 setrgbcolor} bind def /tfon {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben /tfln {0.0 0.5 0.0 setrgbcolor} bind def /tfvn {0.0 0.0 0.5 setrgbcolor} bind def /tfn {0.00 setgray} bind def %Graureihe /tfd {0.25 setgray} bind def /tfz {0.50 setgray} bind def /tfh {0.75 setgray} bind def /tfw {1.00 setgray} 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 /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 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 % /ioute 0 def /ifunc 0 def /idevi 1 def /imevi 1 def /expnr 4 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 %always independent of intended output 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def %75 85 moveto %lanind cvishow (-) show %colorm cvishow %deintp cvishow %xcolor cvishow %xchart cvishow %pchart cvishow %colsep cvishow (-L) show pmetam cvishow gsave %XCHA01.PS END 4 /Times-ISOL1 FS %74 86 moveto (fen00-7R) show %xchart 0 eq {(R) show} % {deintp colorm 2 mul add cvishow} ifelse 72 90 translate 0.01 MM dup scale 20 setlinewidth %0 0 12250 17100 1.0 1.0 1.0 colrecfi %area white grey %0 0 12250 17100 0.0 0.0 0.0 colrecst %Rahmen Schwarz %/ifunc 0 def %ifunc 0 eq {Yi_L*i_dYi_L_0} if %ifunc 1 eq {Yi_L*i_dYi_C_0} if %Yi_Yxyi /xchartl 0 def %0 1 07 {/xchartl exch def %xchartl=0,07 gsave %from BEA80-7N.PS % xchartl 0 eq { 100 13000 translate} if % xchartl 1 eq { 6150 13000 translate} if % xchartl 2 eq { 100 08740 translate} if % xchartl 3 eq { 6150 08740 translate} if % xchartl 4 eq { 100 04480 translate} if % xchartl 5 eq { 6150 04480 translate} if % xchartl 6 eq { 100 00220 translate} if % xchartl 7 eq { 6150 00220 translate} if 130 /Times-ISOL1 FS 0 setgray 50 -130 moveto (fen00-5a enk00-1n) show %%%xchartl 1 add cvishow %%%(A) show %A %(_) show xchart 1 add cvishow /xwidth 6000 def /ywidth 4000 def 25 setlinewidth 0.5 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath clip 0 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath stroke tfn %tfw /xtr0 380 def /ytr0 350 def xtr0 ytr0 translate %********************************************************************* tfw 30 setlinewidth 0 0 moveto 5250 0 rlineto stroke 0 0 moveto 0 3250 rlineto stroke 5250 100 sub 50 moveto 100 -50 rlineto -100 -50 rlineto stroke -50 3250 100 sub moveto 50 100 rlineto 50 -100 rlineto stroke /tx [(-4) (-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3) ( 4)] def /ty [(-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3)] def /xz (x) def /xzn (-x) def ioute 1 eq expnr 7 ge and {%xchartl>=7 /xz (z) def /xzn (-z) def } if /KLxr {20 0 rmoveto TBIK xz show 0 -80 rmoveto TBL (r) show 20 80 rmoveto} def /LSxr {20 0 rmoveto TBIL xz show 0 -60 rmoveto TBS (r) show 20 60 rmoveto} def /SVxr {20 0 rmoveto TBIS xz show 0 -40 rmoveto TBV (r) show 20 40 rmoveto} def /KLxrx {20 0 rmoveto TBIK (x) show 0 -80 rmoveto TBL (r) show 20 80 rmoveto} def /KLxrz {20 0 rmoveto TBIK (z) show 0 -80 rmoveto TBL (r) show 20 80 rmoveto} def /LSxrx {20 0 rmoveto TBIL (x) show 0 -60 rmoveto TBS (r) show 20 60 rmoveto} def /LSxrz {20 0 rmoveto TBIL (z) show 0 -60 rmoveto TBS (r) show 20 60 rmoveto} def /SVxrx {20 0 rmoveto TBIS (x) show 0 -40 rmoveto TBV (r) show 20 40 rmoveto} def /SVxrz {20 0 rmoveto TBIS (z) show 0 -40 rmoveto TBV (r) show 20 40 rmoveto} def /100KLxr {0 100 rmoveto KLxr 0 -100 rmoveto} def /100LSxr {0 080 rmoveto LSxr 0 -080 rmoveto} def /100SVxr {0 060 rmoveto SVxr 0 -060 rmoveto} def /KLxrn {20 0 rmoveto TBIK xzn show 0 -80 rmoveto TBL (r) show 20 80 rmoveto} def /LSxrn {20 0 rmoveto TBIL xzn show 0 -60 rmoveto TBS (r) show 20 60 rmoveto} def /SVxrn {20 0 rmoveto TBIS xzn show 0 -40 rmoveto TBV (r) show 20 40 rmoveto} def /KLxrxn {20 0 rmoveto TBIK (xn) show 0 -80 rmoveto TBL (r) show 20 80 rmoveto} def /KLxrzn {20 0 rmoveto TBIK (zn) show 0 -80 rmoveto TBL (r) show 20 80 rmoveto} def /LSxrxn {20 0 rmoveto TBIL (xn) show 0 -60 rmoveto TBS (r) show 20 60 rmoveto} def /LSxrzn {20 0 rmoveto TBIL (zn) show 0 -60 rmoveto TBS (r) show 20 60 rmoveto} def /SVxrxn {20 0 rmoveto TBIS (xn) show 0 -40 rmoveto TBV (r) show 20 40 rmoveto} def /SVxrzn {20 0 rmoveto TBIS (zn) show 0 -40 rmoveto TBV (r) show 20 40 rmoveto} def /100KLxrn {0 100 rmoveto KLxrn 0 -100 rmoveto} def /100LSxrn {0 080 rmoveto LSxrn 0 -080 rmoveto} def /100SVxrn {0 060 rmoveto SVxrn 0 -060 rmoveto} def %!x-Achse: 1 log-Einheiten = 500 Skalen-Einheiten TBL 0 1 9 {/i exch def /ixt { -150 i 0500 mul add} def /ixl { 000 i 0500 mul add} def i 8 le {ixt -250 moveto tx i get exec show} if ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 1 log-Einheiten = 500 Skalen-Einheiten TBL 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -350 iyt moveto ty i get exec show -75 iyl moveto 150 0 rlineto stroke } for 4300 -260 moveto tfw LSxr TBL (=) show 30 0 rmoveto TBL (log[) show 30 0 rmoveto TBIL (L/L) show 0 -50 rmoveto TBS (u) show 0 50 rmoveto TBL (]) show 1900 200 moveto (L) TBIL tfw show TBS 20 -80 rmoveto (u) show 50 80 rmoveto 4300 0200 moveto (L) TBIL tfw show TBS 20 -80 rmoveto (u) show 00 80 rmoveto TBL 20 0 (=28) ashow (cd/m) show TBS 0 80 rmoveto (2) show 0 -80 rmoveto tfl 40 setlinewidth 1600 0 moveto 800 0 rlineto stroke 2200 270 moveto TBS (range of office) showen (Bereich B\374ro\255) showde 2200 100 moveto (luminance) showen (Leuchtdichte) showde xtr0 neg ytr0 neg translate %******************************************************** %BEG C01_C08 ******************************************** %original square tfn %tfw 050 3750 moveto xchartl 07 le {%xchartl=00 tfw TBIK (F) show -50 -80 rmoveto TBL (ab) show 0 80 rmoveto TBK (\050) show KLxr TBK (\051) show 20 0 rmoveto (=) show 20 0 rmoveto (unbunte Rezeptorerregung) showde (achromatic receptor response) showen } if %xchartl=00 xchartl 01 ge {%xchartl>=1 tfy TBK ( & modified) showen ( & modifiziert) showde } if %xchartl>=1 tfn %tfw %********************************************************************* %BEG Common text xtr0 ytr0 translate TBIK /iyt0 2900 def %top text line /iyt1 2300 def %lower yellow text line /ixt2 2420 def %right red text line /iyt2 1100 def %right red text line /ix0 100 def /ix1 750 def %for F(x) /ix1a 850 def %for Fn(x) /ix2 2200 def %text e /ix3 1700 def %ifunc 0 eq {/x_zp (x) def /x_zm (-x) def} % {/x_zp (z) def /x_zm (-z) def /lne_10d 1 10 ln div def} ifelse /x_zp (x) def /x_zm (-x) def ioute 0 eq {/e_10 (e) def /lne_10 1 def} {/e_10 (10) def /lne_10 1 def} ifelse /expnp 10 array def % 0 1 2 3 4 5 6 7 8 9 /expnp [1.0 1.0 0.7 0.5 1.0 0.7 0.5 1.0 0.7 0.5] def /expnk 10 array def % 0 1 2 3 4 5 6 7 8 9 /expnk [(1,0) (1,0) (0,7) (0,5) (1,0) (0,7) (0,5) (1,0) (0,7) (0,5)] def %**************************************** tfw 30 setlinewidth /jm1 0 def /jm2 1 def /iytj 0 def xchartl 0 eq {/jm2 0 def} {/jm2 1 def} ifelse jm1 1 jm2 {/j exch def %j=jm1,jm2 j 0 eq {/iyta 0 def} if j 1 eq {/iyta 0 def} if 0 1 1 {/k exch def %k=0,1 k 0 eq {%k=0 j 0 eq {[ ] 0 setdash tfw} if j 1 eq {[ ] 0 setdash tfy} if } if %k=0 k 1 eq {%k=1 j 0 eq {[100 100] 0 setdash tfn} if j 1 eq {[100 100] 0 setdash tfn} if } if %k=1 %font colour j 0 eq {tfw} if j 1 eq {tfy} if j 0 eq {/ixtx ix0 def /iytx iyt0 def} if j 1 eq {/ixtx ixt2 def /iytx iyt2 def} if /iytxt iytx 050 add j 0 eq {100 add} if def ixtx 1000 add iytxt iyta add 50 add moveto %iyta=0 1050 ioute 1 eq {200 add} if 0 rlineto stroke %ioute=0 } for %k=0,1 ixtx iytxt moveto TBIL (F) show -30 -80 rmoveto TBS (ab) show 0 80 rmoveto TBL (\050) show LSxr TBL (\051) show TBL ( = b ) show ixtx 1000 add iytxt 100 add moveto TBL e_10 show 0 100 rmoveto SVxr TBS (/a) show ioute 1 eq {(') show} if 0 -100 rmoveto TBL ( - ) show TBL e_10 show 0 100 rmoveto SVxrn TBS (/a) show ioute 1 eq {(') show} if 0 -100 rmoveto ixtx 1000 add iytxt 160 sub moveto TBL e_10 show 0 100 rmoveto SVxr TBS (/a) show ioute 1 eq {(') show} if 0 -100 rmoveto TBL ( + ) show TBL e_10 show 0 100 rmoveto SVxrn TBS (/a) show ioute 1 eq {(') show} if 0 -100 rmoveto ixtx 2200 add iytxt moveto [ ] 0 setdash TBL ( = b ) show ixtx 2600 add iytxt 50 add moveto 0600 0 rlineto stroke ixtx 2700 add iytxt 130 add moveto TBIL (p - q) show ixtx 2700 add iytxt 090 sub moveto TBIL (p + q) show ix3 1400 add 600 add iyt0 300 add moveto TBIL (p) show TBL ( = ) show TBL e_10 show 0 100 rmoveto SVxr TBS (/a) show ioute 1 eq {(') show} if 0 -100 rmoveto ix3 1400 add 1600 add iyt0 300 add moveto TBIL (q) show TBL ( = ) show TBL e_10 show 0 100 rmoveto SVxrn TBS (/a) show ioute 1 eq {(') show} if 0 -100 rmoveto j 0 eq {%j=0, both sides tfw TBS ix3 1400 add 600 add iyt0 000 add moveto (a=1,00, b=1,00 e=2,718282) show ioute 1 eq {%ioute=1 ix3 1400 add 600 add iyt0 200 sub moveto (a'=a) show 30 0 rmoveto (ln(10)=) show 1.0 10 ln mul cvsshow3x } if %ioute=1 } if %j=0, both sides ioute 1 eq xchartl 0 eq and { %ioute=1, xchartl=0 right side ix3 1400 add 600 add iyt0 200 add moveto TBL (10) show 0 100 rmoveto SVxrx 0 -100 rmoveto TBL (=e) show 0 100 rmoveto TBS (ln(10)) show 30 0 rmoveto SVxrx 0 -100 rmoveto TBL (, 10) show 0 100 rmoveto SVxr TBS (/ln(10)) show 0 -100 rmoveto TBL (=e) show 0 100 rmoveto SVxrx 0 -100 rmoveto ix3 1400 add 600 add iyt0 ioute 0 eq {250 sub moveto} {500 sub moveto} ifelse TBL (10) show ioute 0 eq {0 100 rmoveto SVxrx TBS (/a) show 0 -100 rmoveto } if ioute 1 eq expnr 6 le and {0 100 rmoveto SVxrx %zr for xchartl<=6 TBS (/a') show 0 -100 rmoveto } if ioute 1 eq expnr 6 gt and {0 100 rmoveto SVxrx %zr for xchartl>6 TBS (/a') show 0 -100 rmoveto } if TBL (=) show TBL (10) show 0 100 rmoveto SVxrx TBS ( / [a) show 30 0 rmoveto (ln(10)]) show 0 -100 rmoveto TBL (=) show TBL (e) show 0 100 rmoveto SVxrx TBS (/a) show 0 -100 rmoveto } if %ioute=1, xchartl=0 right side } for %j=jm1,jm2 idevi 1 eq {%idevi=1 /iyt1t iyt1 330 add def 30 setlinewidth [ ] 0 setdash tfg ix0 iyt1t moveto TBIL (F') show -50 -80 rmoveto TBS (ab) show 0 80 rmoveto TBL (\050) show LSxrx TBL (\051) show TBL ( = 4b / [) show TBL (a) show 20 0 rmoveto TBL ({) show TBL e_10 show 0 80 rmoveto SVxr TBS (/a) show ioute 1 eq {(') show} if 20 -80 rmoveto TBL (+) show 20 0 rmoveto TBL e_10 show 0 80 rmoveto TBS (-) show SVxr TBS (/a) show ioute 1 eq {(') show} if 20 -80 rmoveto TBL (}) show 0 80 rmoveto TBS (2) show 0 -80 rmoveto TBL (]) show ix0 2800 add iyt1t moveto TBL ( = 4b / [) show TBL (a) show 20 0 rmoveto TBL ({) show TBIL (p) show TBL ( + ) show TBIL (q) show TBL (}) show 0 80 rmoveto TBS (2) show 0 -80 rmoveto TBL (]) show ix0 iyt1t 300 sub moveto TBS xchartl 0 eq {(a=1,00) show} if xchartl 1 eq {(a=1,00) show} if xchartl 2 eq {(a=2,00) show} if xchartl 3 eq {(a=0,50) show} if xchartl 4 eq {(a=2,00) show} if xchartl 5 eq {(a=0,50) show} if xchartl 6 eq {(a=1,00) show} if xchartl 7 eq {(a=0,50) show} if xchartl 1 ge {0 100 rmoveto TBS expnk expnr get show 0 -100 rmoveto} if TBS xchartl 0 eq {(; b=1,00) show} if xchartl 1 eq {(; b=2,00) show} if xchartl 2 eq {(; b=1,00) show} if xchartl 3 eq {(; b=1,00) show} if xchartl 4 eq {(; b=2,00) show} if xchartl 5 eq {(; b=2,00) show} if xchartl 6 eq {(; b=1,00) show} if xchartl 7 eq {(; b=0,50) show} if xchartl 1 le {%xchartl<=1 special text xchartl 0 eq {1620}{1820} ifelse 2150 moveto tfg TBIL (F') show -30 -80 rmoveto TBS (ab) show 0 80 rmoveto xchartl 0 eq {TBL (\050) show LSxr TBL (\051) show} if } if %xchartl<=1 special text xchartl 1 eq {%xchartl=1 special text 0700 2000 moveto tfg TBIL (F') show -30 -80 rmoveto TBS (1_2) show 0 80 rmoveto TBL (\050) show LSxr TBL (\051) show tfw } if %xchartl=1 special text } if %idevi=1 tfw [ ] 0 setdash 0 1500 moveto 4500 0 rlineto stroke tfl [50 50] 0 setdash 0 2000 moveto 2000 0 rlineto stroke tfn 200 2070 moveto TBL (Asymptote) show %tfw [ ] 0 setdash 2000 1500 moveto 0 500 rlineto stroke tfw [ ] 0 setdash 2000 1000 moveto 0 1000 rlineto stroke xchartl 1 le {%xchartl<=1 special text 4600 2000 50 sub moveto tfw TBIL (F) show -30 -80 rmoveto TBS (ab) show 0 80 rmoveto TBL (\050) show LSxr TBL (\051) show } if %xchartl<=1 special text xchartl 1 eq {%xchartl=1 special text 3200 2300 moveto tfy TBIL (F) show -30 -80 rmoveto TBS (1_2) show 0 80 rmoveto TBL (\050) show LSxr TBL (\051) show } if %xchartl=1 special text xtr0 neg ytr0 neg translate %********************************************************************* /C0i_FXi {%BEG C0i_FXi xtr0 ytr0 translate /xi 51 array def %range -4 bis +4 in steps of /yi 51 array def %range -1 to +1 /epxi 51 array def /emxi 51 array def /esxi 51 array def /Frui 51 array def /MULX 500 def /MULY 500 def %ioute 0 eq {/e 2.7182818 def} % {/e 10.0 def } ifelse /e 2.7182818 def /im 45 def jm1 1 jm2 {/j exch def %j=jm1,jm2 j 0 eq {%j=0 /a 1.0 expnp expnr get exp def /ai 1.0 expnp expnr get exp lne_10 mul def /bi 1.0 def } if %j=0 j 1 eq {%j=1 %xchartl 0 eq {/a 1.0 expnp expnr get exp def % /ai 1.0 expnp expnr get exp lne_10 mul def % /bi 1.0 def} if xchartl 1 eq {/a 1.0 expnp expnr get exp def /ai 1.0 expnp expnr get exp lne_10 mul def /bi 2.0 def} if xchartl 2 eq {/a 2.0 expnp expnr get exp def /ai 2.0 expnp expnr get exp lne_10 mul def /bi 1.0 def} if xchartl 3 eq {/a 0.5 expnp expnr get exp def /ai 0.5 expnp expnr get exp lne_10 mul def /bi 1.0 def} if xchartl 4 eq {/a 2.0 expnp expnr get exp def /ai 2.0 expnp expnr get exp lne_10 mul def /bi 2.0 def} if xchartl 5 eq {/a 0.5 expnp expnr get exp def /ai 0.5 expnp expnr get exp lne_10 mul def /bi 2.0 def} if xchartl 6 eq {/a 1.0 expnp expnr get exp def /ai 1.0 expnp expnr get exp lne_10 mul def /bi 0.5 def} if xchartl 7 eq {/a 0.5 expnp expnr get exp def /ai 0.5 expnp expnr get exp lne_10 mul def /bi 0.5 def} if } if %j=1 0 1 50 {/i exch def %i=0,50 xi i -4 i 0.2 mul add put ioute 0 eq {%ioute=0 epxi i e xi i get ai div exp put emxi i e xi i get ai div neg exp put } {%ioute=1 epxi i e xi i get lne_10 div ai div exp put emxi i e xi i get lne_10 div ai div neg exp put } ifelse esxi i epxi i get emxi i get add put Frui i epxi i get emxi i get sub epxi i get emxi i get add div bi mul put } for %i=0,50 40 setlinewidth [ ] 0 setdash 0 1 1 {/k exch def %k=0,1 k 0 eq {%k=0 j 0 eq {[ ] 0 setdash tfw} if j 1 eq {[ ] 0 setdash tfy} if } if %k=0 k 1 eq {%k=1 j 0 eq {[100 100] 0 setdash tfn} if %j 1 eq {[100 100] 0 setdash tfn} if } if %k=1 0 1 im {/i exch def %i=0,im i 0 eq {xi i get MULX mul 2000 add Frui i get MULY mul 1500 add moveto} if i 1 ge i im 1 sub le and {xi i get MULX mul 2000 add Frui i get MULY mul 1500 add lineto} if i im eq {xi i get MULX mul 2000 add Frui i get MULY mul 1500 add lineto stroke} if } for %i=0,im k 1 eq {%k=1 xchartl 1 ge {%xchartl>=1 tfy j 1 eq {%j=1 /yta Frui 45 get MULY mul 070 add def ixt2 2000 add 1500 yta add moveto xchartl 1 eq {(a=1,00) show} if xchartl 2 eq {(a=2,00) show} if xchartl 3 eq {(a=0,50) show} if xchartl 4 eq {(a=2,00) show} if xchartl 5 eq {(a=0,50) show} if xchartl 6 eq {(a=1,00) show} if xchartl 7 eq {(a=0,50) show} if xchartl 1 ge {0 100 rmoveto TBS expnk expnr get show 0 -100 rmoveto TBS (=) show ai cvsshow3x } if %1<=xchartl<=7} if } if %j=1 j 1 eq {%j=1 ixt2 2000 add 1500 yta add 0250 sub moveto ioute 1 eq {%ioute=1 xchartl 1 ge {(a'=) show ai 10 ln mul cvsshow3x (, ) show} if } if %ioute=1 xchartl 1 eq {(b=2,00) show} if xchartl 2 eq {(b=1,00) show} if xchartl 3 eq {(b=1,00) show} if xchartl 4 eq {(b=2,00) show} if xchartl 5 eq {(b=2,00) show} if xchartl 6 eq {(b=0,50) show} if xchartl 7 eq {(b=0,50) show} if } if %j=1 } if %xchartl>=1 } if %k=1 } for %k=0,1 idevi 1 eq {%idevi=1 %integral dx/(a^2+x^2) = (1/a) arctan (x/a) /edxi 51 array def /Frudi 51 array def /ai 1 def %special case 0 1 50 {/i exch def %i=0,50 xi i -4 i 0.2 mul add put % ioute 0 eq {%ioute=0 % eqxi i e xi i get ai div exp put % emxi i e xi i get ai div neg exp put % } % {%ioute=1 % eqxi i e xi i get lne_10 div ai div exp put % emxi i e xi i get lne_10 div ai div neg exp put % } ifelse edxi i e xi i get exp e xi i get neg exp add 2 exp put edxi i 4 edxi i get ai mul div put Frudi i edxi i get bi mul put } for %i=0,50 0 1 1 {/k exch def %k=0,1 k 0 eq {%k=0 j 0 eq {[ ] 0 setdash tfg} if j 1 eq {[ ] 0 setdash tfg} if } if %k=0 k 1 eq {%k=1 j 0 eq {[100 100] 0 setdash tfn} if %j 1 eq {[100 100] 0 setdash tfn} if } if %k=1 50 setlinewidth /im 45 def 0 1 im {/i exch def %i=0,im i 0 eq {xi i get MULX mul 2000 add Frudi i get MULY mul 1500 add moveto} if i 1 ge i im 1 sub le and {xi i get MULX mul 2000 add Frudi i get MULY mul 1500 add lineto} if i im eq {xi i get MULX mul 2000 add Frudi i get MULY mul 1500 add lineto stroke} if } for %i=0,im } for %k=0,1 [ ] 0 setdash 20 setlinewidth } if %idevi=1 %slope /m0 Frui 21 get Frui 19 get sub xi 21 get xi 19 get sub div def %font colour j 0 eq {tfw} if j 1 eq {tfy} if 1650 0700 j 180 mul sub moveto TBIS (m) show 0 -70 rmoveto TBV ai cvsshow1x bi cvishow 0 70 rmoveto TBS (=) show m0 cvsshow2x } for %j=jm1,jm2 tfl 30 setlinewidth [100 100] 0 setdash 1600 0 moveto 1600 Frui 16 get MULY mul 1500 add lineto stroke 2400 500 moveto 2400 Frui 24 get MULY mul 1500 add lineto stroke [ ] 0 setdash %20 setlinewidth tfl 30 setlinewidth [100 100] 0 setdash %1600 0 moveto 1600 Frui 16 get MULY mul 1500 add lineto stroke %2400 500 moveto 2400 Frui 24 get MULY mul 1500 add lineto stroke 1600 0 moveto 0 1500 rlineto stroke 2400 400 moveto 0 1100 rlineto stroke [ ] 0 setdash 20 setlinewidth TBL %last circles newpath tfw 1600 1500 70 0 360 arc fill tfn 1600 1500 50 0 360 arc fill tfn 2400 1500 70 0 360 arc fill tfw 2400 1500 50 0 360 arc fill newpath tfn 1500 100 sub 1450 200 sub moveto (N) show tfw 2450 050 add 1450 200 sub moveto (W) show xtr0 neg ytr0 neg translate } def %C0i_FXi %END C0i_FXi %********************************************************************* C0i_FXi %************************************************************** %special space for 'xm03'PROZ0.COM 2x before/after xchartl % xchartl 0 eq { 100 neg 13000 neg translate} if % xchartl 1 eq { 6150 neg 13000 neg translate} if % xchartl 2 eq { 100 neg 08740 neg translate} if % xchartl 3 eq { 6150 neg 08740 neg translate} if % xchartl 4 eq { 100 neg 04480 neg translate} if % xchartl 5 eq { 6150 neg 04480 neg translate} if % xchartl 6 eq { 100 neg 00220 neg translate} if % xchartl 7 eq { 6150 neg 00220 neg translate} if grestore %} for %xchartl=0,07 showpage grestore %%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/fen0/fen00-6a enk00-3n %%BoundingBox: 70 85 245 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/fen0/fen0.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:2023070112200) /ModDate (D:20230701112200) /DOCINFO pdfmark06 [ /View [ /Fit ] /DOCVIEW pdfmark06 %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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TV {120 /Times-ISOL1 FS} 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 /TIV {120 /TimesI-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 /TBV {120 /TimesB-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 /TBIV {120 /TimesBI-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 /SV {120 /Symbol FS} bind def /SS {160 /Symbol FS} bind def /SL {200 /Symbol FS} bind def /SK {250 /Symbol FS} bind def /SM {300 /Symbol FS} bind def /SG {350 /Symbol FS} bind def /CV {120 /Courier FS} bind def /CS {160 /Courier FS} bind def /CL {200 /Courier FS} bind def /CK {250 /Courier FS} bind def /CM {300 /Courier FS} bind def /CG {350 /Courier FS} bind def /CIV {120 /Courier-Oblique FS} bind def /CIS {160 /Courier-Oblique FS} bind def /CIL {200 /Courier-Oblique FS} bind def /CIK {250 /Courier-Oblique FS} bind def /CIM {300 /Courier-Oblique FS} bind def /CIG {350 /Courier-Oblique FS} bind def /CBV {120 /Courier-Bold FS} bind def /CBS {160 /Courier-Bold FS} bind def /CBL {200 /Courier-Bold FS} bind def /CBK {250 /Courier-Bold FS} bind def /CBM {300 /Courier-Bold FS} bind def /CBG {350 /Courier-Bold FS} bind def /CBIV {120 /Courier-BoldOblique FS} bind def /CBIS {160 /Courier-BoldOblique FS} bind def /CBIL {200 /Courier-BoldOblique FS} bind def /CBIK {250 /Courier-BoldOblique FS} bind def /CBIM {300 /Courier-BoldOblique FS} bind def /CBIG {350 /Courier-BoldOblique 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 /kM2 {300 /TimesI-ISOL1 FS show TM} bind def /bM2 {300 /TimesB-ISOL1 FS show TM} bind def /jM2 {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 %XCHA02.PS BEG /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 {setrgbcolor rec fill} bind def /colrecst %x y width heigth c m y k {setrgbcolor rec stroke} bind def /rem %x, y width heigth {/heigth exch 0.5 mul def /width exch 0.5 mul def /yleftb exch heigth 0.5 mul add def /xleftb exch width 0.5 mul add def xleftb yleftb moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colremfi %x y width heigth c m y k {setrgbcolor rem fill} bind def /colremst %x y width heigth c m y k {setrgbcolor rem stroke} bind def /tzr {1 0 0} bind def %Reproduktionsfarben /tzg {0 1 0} bind def /tzb {0 0 1} bind def /tzc {0 1 1} bind def /tzm {1 0 1} bind def /tzy {1 1 0} bind def /tzo {1 0 0} bind def %Reproduktionsfarben /tzl {0 1 0} bind def /tzv {0 0 1} bind def /tzn {0.00} bind def %Graureihe /tzd {0.25} bind def /tzz {0.50} bind def /tzh {0.75} bind def /tzw {1.00} 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 /tfrn {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben /tfgn {0.0 0.5 0.0 setrgbcolor} bind def /tfbn {0.0 0.0 0.5 setrgbcolor} bind def /tfcn {0.0 0.5 0.5 setrgbcolor} bind def /tfmn {0.5 0.0 0.5 setrgbcolor} bind def /tfyn {0.5 0.5 0.0 setrgbcolor} bind def /tfon {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben /tfln {0.0 0.5 0.0 setrgbcolor} bind def /tfvn {0.0 0.0 0.5 setrgbcolor} bind def /tfn {0.00 setgray} bind def %Graureihe /tfd {0.25 setgray} bind def /tfz {0.50 setgray} bind def /tfh {0.75 setgray} bind def /tfw {1.00 setgray} 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 /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 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 % /ioute 1 def /ifunc 0 def /idevi 1 def /imevi 1 def /expnr 4 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 %always independent of intended output 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def %75 85 moveto %lanind cvishow (-) show %colorm cvishow %deintp cvishow %xcolor cvishow %xchart cvishow %pchart cvishow %colsep cvishow (-L) show pmetam cvishow gsave %XCHA01.PS END 4 /Times-ISOL1 FS %74 86 moveto (fen00-3R) show %xchart 0 eq {(R) show} % {deintp colorm 2 mul add cvishow} ifelse 72 90 translate 0.01 MM dup scale 20 setlinewidth %0 0 12250 17100 1.0 1.0 1.0 colrecfi %area white grey %0 0 12250 17100 0.0 0.0 0.0 colrecst %Rahmen Schwarz %/ifunc 0 def %ifunc 0 eq {Yi_L*i_dYi_L_0} if %ifunc 1 eq {Yi_L*i_dYi_C_0} if %Yi_Yxyi /xchartl 0 def %0 1 07 {/xchartl exch def %xchartl=0,07 gsave %from BEA80-6a enk00-3n.PS % xchartl 0 eq { 100 13000 translate} if % xchartl 1 eq { 6150 13000 translate} if % xchartl 2 eq { 100 08740 translate} if % xchartl 3 eq { 6150 08740 translate} if % xchartl 4 eq { 100 04480 translate} if % xchartl 5 eq { 6150 04480 translate} if % xchartl 6 eq { 100 00220 translate} if % xchartl 7 eq { 6150 00220 translate} if 130 /Times-ISOL1 FS 0 setgray 50 -130 moveto (fen00-6a enk00-3n) show %%%%%%%xchartl 1 add cvishow %%%%%%%(A) show %A %(_) show xchart 1 add cvishow /xwidth 6000 def /ywidth 4000 def 25 setlinewidth 0.5 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath clip 0 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath stroke tfn %tfw /xtr0 380 def /ytr0 350 def xtr0 ytr0 translate %********************************************************************* tfw 30 setlinewidth 0 0 moveto 5250 0 rlineto stroke 0 0 moveto 0 3250 rlineto stroke 5250 100 sub 50 moveto 100 -50 rlineto -100 -50 rlineto stroke -50 3250 100 sub moveto 50 100 rlineto 50 -100 rlineto stroke /tx [(-4) (-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3) ( 4)] def /ty [(-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3)] def /xz (x) def /xzn (-x) def ioute 1 eq expnr 7 ge and {%xchartl>=7 /xz (z) def /xzn (-z) def } if /KLxr {20 0 rmoveto TBIK xz show 0 -80 rmoveto TBL (r) show 20 80 rmoveto} def /LSxr {20 0 rmoveto TBIL xz show 0 -60 rmoveto TBS (r) show 20 60 rmoveto} def /SVxr {20 0 rmoveto TBIS xz show 0 -40 rmoveto TBV (r) show 20 40 rmoveto} def /KLxrx {20 0 rmoveto TBIK (x) show 0 -80 rmoveto TBL (r) show 20 80 rmoveto} def /KLxrz {20 0 rmoveto TBIK (z) show 0 -80 rmoveto TBL (r) show 20 80 rmoveto} def /LSxrx {20 0 rmoveto TBIL (x) show 0 -60 rmoveto TBS (r) show 20 60 rmoveto} def /LSxrz {20 0 rmoveto TBIL (z) show 0 -60 rmoveto TBS (r) show 20 60 rmoveto} def /SVxrx {20 0 rmoveto TBIS (x) show 0 -40 rmoveto TBV (r) show 20 40 rmoveto} def /SVxrz {20 0 rmoveto TBIS (z) show 0 -40 rmoveto TBV (r) show 20 40 rmoveto} def /100KLxr {0 100 rmoveto KLxr 0 -100 rmoveto} def /100LSxr {0 080 rmoveto LSxr 0 -080 rmoveto} def /100SVxr {0 060 rmoveto SVxr 0 -060 rmoveto} def /KLxrn {20 0 rmoveto TBIK xzn show 0 -80 rmoveto TBL (r) show 20 80 rmoveto} def /LSxrn {20 0 rmoveto TBIL xzn show 0 -60 rmoveto TBS (r) show 20 60 rmoveto} def /SVxrn {20 0 rmoveto TBIS xzn show 0 -40 rmoveto TBV (r) show 20 40 rmoveto} def /KLxrxn {20 0 rmoveto TBIK (xn) show 0 -80 rmoveto TBL (r) show 20 80 rmoveto} def /KLxrzn {20 0 rmoveto TBIK (zn) show 0 -80 rmoveto TBL (r) show 20 80 rmoveto} def /LSxrxn {20 0 rmoveto TBIL (xn) show 0 -60 rmoveto TBS (r) show 20 60 rmoveto} def /LSxrzn {20 0 rmoveto TBIL (zn) show 0 -60 rmoveto TBS (r) show 20 60 rmoveto} def /SVxrxn {20 0 rmoveto TBIS (xn) show 0 -40 rmoveto TBV (r) show 20 40 rmoveto} def /SVxrzn {20 0 rmoveto TBIS (zn) show 0 -40 rmoveto TBV (r) show 20 40 rmoveto} def /100KLxrn {0 100 rmoveto KLxrn 0 -100 rmoveto} def /100LSxrn {0 080 rmoveto LSxrn 0 -080 rmoveto} def /100SVxrn {0 060 rmoveto SVxrn 0 -060 rmoveto} def %!x-Achse: 1 log-Einheiten = 500 Skalen-Einheiten TBL 0 1 9 {/i exch def /ixt { -150 i 0500 mul add} def /ixl { 000 i 0500 mul add} def i 8 le {ixt -250 moveto tx i get exec show} if ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 1 log-Einheiten = 500 Skalen-Einheiten TBL 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -350 iyt moveto ty i get exec show -75 iyl moveto 150 0 rlineto stroke } for 4300 -260 moveto tfw LSxr TBL (=) show 30 0 rmoveto TBL (log[) show 30 0 rmoveto TBIL (L/L) show 0 -50 rmoveto TBS (u) show 0 50 rmoveto TBL (]) show 1900 200 moveto (L) TBIL tfw show TBS 20 -80 rmoveto (u) show 50 80 rmoveto 4300 0200 moveto (L) TBIL tfw show TBS 20 -80 rmoveto (u) show 00 80 rmoveto TBL 20 0 (=28) ashow (cd/m) show TBS 0 80 rmoveto (2) show 0 -80 rmoveto tfl 40 setlinewidth 1600 0 moveto 800 0 rlineto stroke 2200 270 moveto TBS (range of office) showen (Bereich B\374ro\255) showde 2200 100 moveto (luminance) showen (Leuchtdichte) showde xtr0 neg ytr0 neg translate %******************************************************** %BEG C01_C08 ******************************************** %original square tfn %tfw 050 3750 moveto xchartl 07 le {%xchartl=00 tfw TBIK (F) show -50 -80 rmoveto TBL (ab) show 0 80 rmoveto TBK (\050) show KLxr TBK (\051) show 20 0 rmoveto (=) show 20 0 rmoveto (unbunte Rezeptorerregung) showde (achromatic receptor response) showen } if %xchartl=00 xchartl 01 ge {%xchartl>=1 tfy TBK ( & modified) showen ( & modifiziert) showde } if %xchartl>=1 tfn %tfw %********************************************************************* %BEG Common text xtr0 ytr0 translate TBIK /iyt0 2900 def %top text line /iyt1 2300 def %lower yellow text line /ixt2 2420 def %right red text line /iyt2 1100 def %right red text line /ix0 100 def /ix1 750 def %for F(x) /ix1a 850 def %for Fn(x) /ix2 2200 def %text e /ix3 1700 def %ifunc 0 eq {/x_zp (x) def /x_zm (-x) def} % {/x_zp (z) def /x_zm (-z) def /lne_10d 1 10 ln div def} ifelse /x_zp (x) def /x_zm (-x) def ioute 0 eq {/e_10 (e) def /lne_10 1 def} {/e_10 (10) def /lne_10 1 def} ifelse /expnp 10 array def % 0 1 2 3 4 5 6 7 8 9 /expnp [1.0 1.0 0.7 0.5 1.0 0.7 0.5 1.0 0.7 0.5] def /expnk 10 array def % 0 1 2 3 4 5 6 7 8 9 /expnk [(1,0) (1,0) (0,7) (0,5) (1,0) (0,7) (0,5) (1,0) (0,7) (0,5)] def %**************************************** tfw 30 setlinewidth /jm1 0 def /jm2 1 def /iytj 0 def xchartl 0 eq {/jm2 0 def} {/jm2 1 def} ifelse jm1 1 jm2 {/j exch def %j=jm1,jm2 j 0 eq {/iyta 0 def} if j 1 eq {/iyta 0 def} if 0 1 1 {/k exch def %k=0,1 k 0 eq {%k=0 j 0 eq {[ ] 0 setdash tfw} if j 1 eq {[ ] 0 setdash tfy} if } if %k=0 k 1 eq {%k=1 j 0 eq {[100 100] 0 setdash tfn} if j 1 eq {[100 100] 0 setdash tfn} if } if %k=1 %font colour j 0 eq {tfw} if j 1 eq {tfy} if j 0 eq {/ixtx ix0 def /iytx iyt0 def} if j 1 eq {/ixtx ixt2 def /iytx iyt2 def} if /iytxt iytx 050 add j 0 eq {100 add} if def ixtx 1000 add iytxt iyta add 70 add moveto 1050 ioute 1 eq {200 add} if 0 rlineto stroke } for %k=0,1 ixtx iytxt moveto TBIL (F) show -30 -80 rmoveto TBS (ab) show 0 80 rmoveto TBL (\050) show LSxr TBL (\051) show TBL ( = b ) show ixtx 1000 add iytxt 100 add moveto TBL e_10 show 0 100 rmoveto SVxr TBS (/a) show ioute 1 eq {(') show} if 0 -100 rmoveto TBL ( - ) show TBL e_10 show 0 100 rmoveto SVxrn TBS (/a) show ioute 1 eq {(') show} if 0 -100 rmoveto ixtx 1000 add iytxt 200 sub moveto TBL e_10 show 0 100 rmoveto SVxr TBS (/a) show ioute 1 eq {(') show} if 0 -100 rmoveto TBL ( + ) show TBL e_10 show 0 100 rmoveto SVxrn TBS (/a) show ioute 1 eq {(') show} if 0 -100 rmoveto j 0 eq {%j=0, both sides tfw TBS ix3 1400 add iyt0 000 add moveto (a=1,00, b=1,00 e=2,718282) show ioute 1 eq {%ioute=1 ix3 1400 add iyt0 200 sub moveto (a'=a) show 30 0 rmoveto (ln(10)=) show 1.0 10 ln mul cvsshow3x } if %ioute=1 } if %j=0, both sides ioute 1 eq xchartl 0 eq and { %ioute=1, xchartl=0 right side ix3 1400 add iyt0 200 add moveto TBL (10) show 0 100 rmoveto SVxrx 0 -100 rmoveto TBL (=e) show 0 100 rmoveto TBS (ln(10)) show 30 0 rmoveto SVxrx 0 -100 rmoveto TBL (, 10) show 0 100 rmoveto SVxr TBS (/ln(10)) show 0 -100 rmoveto TBL (=e) show 0 100 rmoveto SVxrx 0 -100 rmoveto ix3 1400 add iyt0 ioute 0 eq {250 sub moveto} {500 sub moveto} ifelse TBL (10) show ioute 0 eq {0 100 rmoveto SVxrx TBS (/a) show 0 -100 rmoveto } if ioute 1 eq expnr 6 le and {0 100 rmoveto SVxrx %zr for xchartl<=6 TBS (/a') show 0 -100 rmoveto } if ioute 1 eq expnr 6 gt and {0 100 rmoveto SVxrx %zr for xchartl>6 TBS (/a') show 0 -100 rmoveto } if TBL (=) show TBL (10) show 0 100 rmoveto SVxrx TBS ( / [a) show 30 0 rmoveto (ln(10)]) show 0 -100 rmoveto TBL (=) show TBL (e) show 0 100 rmoveto SVxrx TBS (/a) show 0 -100 rmoveto } if %ioute=1, xchartl=0 right side } for %j=jm1,jm2 idevi 1 eq {%idevi=1 /iyt1t iyt1 330 add def 30 setlinewidth [ ] 0 setdash tfg ix0 iyt1t moveto TBIL (F') show -50 -80 rmoveto TBS (ab) show 0 80 rmoveto TBL (\050) show LSxrx TBL (\051) show TBL (=4b/[) show TBL (a) show 20 0 rmoveto TBL ({) show TBL e_10 show 0 80 rmoveto SVxr TBS (/a) show ioute 1 eq {(') show} if 20 -80 rmoveto TBL (+) show 20 0 rmoveto TBL e_10 show 0 80 rmoveto TBS (-) show SVxr TBS (/a) show ioute 1 eq {(') show} if 20 -80 rmoveto TBL (}) show 0 80 rmoveto TBS (2) show 0 -80 rmoveto TBL (]) show ix0 iyt1t 300 sub moveto TBS xchartl 0 eq {(a=1,00) show} if xchartl 1 eq {(a=1,00) show} if xchartl 2 eq {(a=2,00) show} if xchartl 3 eq {(a=0,50) show} if xchartl 4 eq {(a=2,00) show} if xchartl 5 eq {(a=0,50) show} if xchartl 6 eq {(a=1,00) show} if xchartl 7 eq {(a=0,50) show} if xchartl 1 ge {0 100 rmoveto TBS expnk expnr get show 0 -100 rmoveto} if TBS xchartl 0 eq {(; b=1,00) show} if xchartl 1 eq {(; b=2,00) show} if xchartl 2 eq {(; b=1,00) show} if xchartl 3 eq {(; b=1,00) show} if xchartl 4 eq {(; b=2,00) show} if xchartl 5 eq {(; b=2,00) show} if xchartl 6 eq {(; b=1,00) show} if xchartl 7 eq {(; b=0,50) show} if xchartl 1 le {%xchartl<=1 special text xchartl 0 eq {1620}{1820} ifelse 2150 moveto tfg TBIL (F') show -30 -80 rmoveto TBS (1_1) show 0 80 rmoveto xchartl 0 eq {TBL (\050) show LSxr TBL (\051) show} if } if %xchartl<=1 special text xchartl 1 eq {%xchartl=1 special text 0700 2000 moveto tfg TBIL (F') show -30 -80 rmoveto TBS (1_2) show 0 80 rmoveto TBL (\050) show LSxr TBL (\051) show tfw } if %xchartl=1 special text } if %idevi=1 tfw [ ] 0 setdash 0 1500 moveto 4500 0 rlineto stroke tfl [50 50] 0 setdash 0 2000 moveto 2000 0 rlineto stroke tfn 200 2070 moveto TBL (Asymptote) show tfw [ ] 0 setdash 2000 1500 moveto 0 500 rlineto stroke TBL 2450 2050 moveto (W) show tfn 1500 150 sub 0800 moveto (N) show xchartl 1 le {%xchartl<=1 special text 4600 2000 50 sub moveto tfw TBIL (F) show -30 -80 rmoveto TBS (1_1) show 0 80 rmoveto TBL (\050) show LSxr TBL (\051) show } if %xchartl<=1 special text xchartl 1 eq {%xchartl=1 special text 3200 2300 moveto tfy TBIL (F) show -30 -80 rmoveto TBS (1_2) show 0 80 rmoveto TBL (\050) show LSxr TBL (\051) show } if %xchartl=1 special text xtr0 neg ytr0 neg translate %********************************************************************* /C0i_FXi {%BEG C0i_FXi xtr0 ytr0 translate /xi 51 array def %range -4 bis +4 in steps of /yi 51 array def %range -1 to +1 /epxi 51 array def /emxi 51 array def /esxi 51 array def /Frui 51 array def /MULX 500 def /MULY 500 def %ioute 0 eq {/e 2.7182818 def} % {/e 10.0 def } ifelse /e 2.7182818 def /im 45 def jm1 1 jm2 {/j exch def %j=jm1,jm2 j 0 eq {%j=0 /a 1.0 expnp expnr get exp def /ai 1.0 expnp expnr get exp lne_10 mul def /bi 1.0 def } if %j=0 j 1 eq {%j=1 %xchartl 0 eq {/a 1.0 expnp expnr get exp def % /ai 1.0 expnp expnr get exp lne_10 mul def % /bi 1.0 def} if xchartl 1 eq {/a 1.0 expnp expnr get exp def /ai 1.0 expnp expnr get exp lne_10 mul def /bi 2.0 def} if xchartl 2 eq {/a 2.0 expnp expnr get exp def /ai 2.0 expnp expnr get exp lne_10 mul def /bi 1.0 def} if xchartl 3 eq {/a 0.5 expnp expnr get exp def /ai 0.5 expnp expnr get exp lne_10 mul def /bi 1.0 def} if xchartl 4 eq {/a 2.0 expnp expnr get exp def /ai 2.0 expnp expnr get exp lne_10 mul def /bi 2.0 def} if xchartl 5 eq {/a 0.5 expnp expnr get exp def /ai 0.5 expnp expnr get exp lne_10 mul def /bi 2.0 def} if xchartl 6 eq {/a 1.0 expnp expnr get exp def /ai 1.0 expnp expnr get exp lne_10 mul def /bi 0.5 def} if xchartl 7 eq {/a 0.5 expnp expnr get exp def /ai 0.5 expnp expnr get exp lne_10 mul def /bi 0.5 def} if } if %j=1 0 1 50 {/i exch def %i=0,50 xi i -4 i 0.2 mul add put ioute 0 eq {%ioute=0 epxi i e xi i get ai div exp put emxi i e xi i get ai div neg exp put } {%ioute=1 epxi i e xi i get lne_10 div ai div exp put emxi i e xi i get lne_10 div ai div neg exp put } ifelse esxi i epxi i get emxi i get add put Frui i epxi i get emxi i get sub epxi i get emxi i get add div bi mul put } for %i=0,50 40 setlinewidth [ ] 0 setdash 0 1 1 {/k exch def %k=0,1 k 0 eq {%k=0 j 0 eq {[ ] 0 setdash tfw} if j 1 eq {[ ] 0 setdash tfy} if } if %k=0 k 1 eq {%k=1 j 0 eq {[100 100] 0 setdash tfn} if %j 1 eq {[100 100] 0 setdash tfn} if } if %k=1 0 1 im {/i exch def %i=0,im i 0 eq {xi i get MULX mul 2000 add Frui i get MULY mul 1500 add moveto} if i 1 ge i im 1 sub le and {xi i get MULX mul 2000 add Frui i get MULY mul 1500 add lineto} if i im eq {xi i get MULX mul 2000 add Frui i get MULY mul 1500 add lineto stroke} if } for %i=0,im k 1 eq {%k=1 xchartl 1 ge {%xchartl>=1 tfy j 1 eq {%j=1 /yta Frui 45 get MULY mul 070 add def ixt2 2000 add 1500 yta add moveto xchartl 1 eq {(a=1,00) show} if xchartl 2 eq {(a=2,00) show} if xchartl 3 eq {(a=0,50) show} if xchartl 4 eq {(a=2,00) show} if xchartl 5 eq {(a=0,50) show} if xchartl 6 eq {(a=1,00) show} if xchartl 7 eq {(a=0,50) show} if xchartl 1 ge {0 100 rmoveto TBS expnk expnr get show 0 -100 rmoveto TBS (=) show ai cvsshow3x } if %1<=xchartl<=7} if } if %j=1 j 1 eq {%j=1 ixt2 2000 add 1500 yta add 0250 sub moveto ioute 1 eq {%ioute=1 xchartl 1 ge {(a'=) show ai 10 ln mul cvsshow3x (, ) show} if } if %ioute=1 xchartl 1 eq {(b=2,00) show} if xchartl 2 eq {(b=1,00) show} if xchartl 3 eq {(b=1,00) show} if xchartl 4 eq {(b=2,00) show} if xchartl 5 eq {(b=2,00) show} if xchartl 6 eq {(b=0,50) show} if xchartl 7 eq {(b=0,50) show} if } if %j=1 } if %xchartl>=1 } if %k=1 } for %k=0,1 idevi 1 eq {%idevi=1 %integral dx/(a^2+x^2) = (1/a) arctan (x/a) /edxi 51 array def /Frudi 51 array def /ai 1 def %special case 0 1 50 {/i exch def %i=0,50 xi i -4 i 0.2 mul add put % ioute 0 eq {%ioute=0 % eqxi i e xi i get ai div exp put % emxi i e xi i get ai div neg exp put % } % {%ioute=1 % eqxi i e xi i get lne_10 div ai div exp put % emxi i e xi i get lne_10 div ai div neg exp put % } ifelse edxi i e xi i get exp e xi i get neg exp add 2 exp put edxi i 4 edxi i get ai mul div put Frudi i edxi i get bi mul put } for %i=0,50 0 1 1 {/k exch def %k=0,1 k 0 eq {%k=0 j 0 eq {[ ] 0 setdash tfg} if j 1 eq {[ ] 0 setdash tfg} if } if %k=0 k 1 eq {%k=1 j 0 eq {[100 100] 0 setdash tfn} if %j 1 eq {[100 100] 0 setdash tfn} if } if %k=1 50 setlinewidth /im 45 def 0 1 im {/i exch def %i=0,im i 0 eq {xi i get MULX mul 2000 add Frudi i get MULY mul 1500 add moveto} if i 1 ge i im 1 sub le and {xi i get MULX mul 2000 add Frudi i get MULY mul 1500 add lineto} if i im eq {xi i get MULX mul 2000 add Frudi i get MULY mul 1500 add lineto stroke} if } for %i=0,im } for %k=0,1 [ ] 0 setdash 20 setlinewidth } if %idevi=1 %slope /m0 Frui 21 get Frui 19 get sub xi 21 get xi 19 get sub div def %font colour j 0 eq {tfw} if j 1 eq {tfy} if 1650 0700 j 180 mul sub moveto TBIS (m) show 0 -70 rmoveto TBV ai cvsshow1x bi cvishow 0 70 rmoveto TBS (=) show m0 cvsshow2x } for %j=jm1,jm2 tfl 30 setlinewidth [100 100] 0 setdash 1600 0 moveto 1600 Frui 16 get MULY mul 1500 add lineto stroke 2400 500 moveto 2400 Frui 24 get MULY mul 1500 add lineto stroke [ ] 0 setdash 20 setlinewidth xtr0 neg ytr0 neg translate } def %C0i_FXi %END C0i_FXi %********************************************************************* C0i_FXi %************************************************************** %special space for 'xm03'PROZ0.COM 2x before/after xchartl % xchartl 0 eq { 100 neg 13000 neg translate} if % xchartl 1 eq { 6150 neg 13000 neg translate} if % xchartl 2 eq { 100 neg 08740 neg translate} if % xchartl 3 eq { 6150 neg 08740 neg translate} if % xchartl 4 eq { 100 neg 04480 neg translate} if % xchartl 5 eq { 6150 neg 04480 neg translate} if % xchartl 6 eq { 100 neg 00220 neg translate} if % xchartl 7 eq { 6150 neg 00220 neg translate} if grestore %} for %xchartl=0,07 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/fen0/fen00-7a enk00-6n %%BoundingBox: 70 85 245 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/fen0/fen0.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:2023070112200) /ModDate (D:20230701112200) /DOCINFO pdfmark07 [ /View [ /Fit ] /DOCVIEW pdfmark07 %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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TV {120 /Times-ISOL1 FS} 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 /TIV {120 /TimesI-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 /TBV {120 /TimesB-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 /TBIV {120 /TimesBI-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 /SV {120 /Symbol FS} bind def /SS {160 /Symbol FS} bind def /SL {200 /Symbol FS} bind def /SK {250 /Symbol FS} bind def /SM {300 /Symbol FS} bind def /SG {350 /Symbol FS} bind def /CV {120 /Courier FS} bind def /CS {160 /Courier FS} bind def /CL {200 /Courier FS} bind def /CK {250 /Courier FS} bind def /CM {300 /Courier FS} bind def /CG {350 /Courier FS} bind def /CIV {120 /Courier-Oblique FS} bind def /CIS {160 /Courier-Oblique FS} bind def /CIL {200 /Courier-Oblique FS} bind def /CIK {250 /Courier-Oblique FS} bind def /CIM {300 /Courier-Oblique FS} bind def /CIG {350 /Courier-Oblique FS} bind def /CBV {120 /Courier-Bold FS} bind def /CBS {160 /Courier-Bold FS} bind def /CBL {200 /Courier-Bold FS} bind def /CBK {250 /Courier-Bold FS} bind def /CBM {300 /Courier-Bold FS} bind def /CBG {350 /Courier-Bold FS} bind def /CBIV {120 /Courier-BoldOblique FS} bind def /CBIS {160 /Courier-BoldOblique FS} bind def /CBIL {200 /Courier-BoldOblique FS} bind def /CBIK {250 /Courier-BoldOblique FS} bind def /CBIM {300 /Courier-BoldOblique FS} bind def /CBIG {350 /Courier-BoldOblique 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 /kM2 {300 /TimesI-ISOL1 FS show TM} bind def /bM2 {300 /TimesB-ISOL1 FS show TM} bind def /jM2 {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 %XCHA02.PS BEG /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 {setrgbcolor rec fill} bind def /colrecst %x y width heigth c m y k {setrgbcolor rec stroke} bind def /rem %x, y width heigth {/heigth exch 0.5 mul def /width exch 0.5 mul def /yleftb exch heigth 0.5 mul add def /xleftb exch width 0.5 mul add def xleftb yleftb moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colremfi %x y width heigth c m y k {setrgbcolor rem fill} bind def /colremst %x y width heigth c m y k {setrgbcolor rem stroke} bind def /tzr {1 0 0} bind def %Reproduktionsfarben /tzg {0 1 0} bind def /tzb {0 0 1} bind def /tzc {0 1 1} bind def /tzm {1 0 1} bind def /tzy {1 1 0} bind def /tzo {1 0 0} bind def %Reproduktionsfarben /tzl {0 1 0} bind def /tzv {0 0 1} bind def /tzn {0.00} bind def %Graureihe /tzd {0.25} bind def /tzz {0.50} bind def /tzh {0.75} bind def /tzw {1.00} 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 /tfrn {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben /tfgn {0.0 0.5 0.0 setrgbcolor} bind def /tfbn {0.0 0.0 0.5 setrgbcolor} bind def /tfcn {0.0 0.5 0.5 setrgbcolor} bind def /tfmn {0.5 0.0 0.5 setrgbcolor} bind def /tfyn {0.5 0.5 0.0 setrgbcolor} bind def /tfon {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben /tfln {0.0 0.5 0.0 setrgbcolor} bind def /tfvn {0.0 0.0 0.5 setrgbcolor} bind def /tfn {0.00 setgray} bind def %Graureihe /tfd {0.25 setgray} bind def /tfz {0.50 setgray} bind def /tfh {0.75 setgray} bind def /tfw {1.00 setgray} 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 /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 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 % /ioute 0 def /ifunc 0 def /idevi 1 def /imevi 1 def /expnr 4 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 %always independent of intended output 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def %75 85 moveto %lanind cvishow (-) show %colorm cvishow %deintp cvishow %xcolor cvishow %xchart cvishow %pchart cvishow %colsep cvishow (-L) show pmetam cvishow gsave %XCHA01.PS END 4 /Times-ISOL1 FS %74 86 moveto (fen00-6R) show %xchart 0 eq {(R) show} % {deintp colorm 2 mul add cvishow} ifelse 72 90 translate 0.01 MM dup scale 20 setlinewidth %0 0 12250 17100 1.0 1.0 1.0 colrecfi %area white grey %0 0 12250 17100 0.0 0.0 0.0 colrecst %Rahmen Schwarz %/ifunc 0 def %ifunc 0 eq {Yi_L*i_dYi_L_0} if %ifunc 1 eq {Yi_L*i_dYi_C_0} if %Yi_Yxyi /xchartl 0 def %0 1 07 {/xchartl exch def %xchartl=0,07 gsave %from BEA80-7a enk00-6n.PS % xchartl 0 eq { 100 13000 translate} if % xchartl 1 eq { 6150 13000 translate} if % xchartl 2 eq { 100 08740 translate} if % xchartl 3 eq { 6150 08740 translate} if % xchartl 4 eq { 100 04480 translate} if % xchartl 5 eq { 6150 04480 translate} if % xchartl 6 eq { 100 00220 translate} if % xchartl 7 eq { 6150 00220 translate} if 130 /Times-ISOL1 FS 0 setgray 50 -130 moveto (fen00-7a enk00-6n) show %%%xchartl 1 add cvishow %%%(A) show %A %(_) show xchart 1 add cvishow /xwidth 6000 def /ywidth 4000 def 25 setlinewidth 0.5 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath clip 0 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath stroke tfn %tfw /xtr0 380 def /ytr0 350 def xtr0 ytr0 translate %********************************************************************* tfw 30 setlinewidth 0 0 moveto 5250 0 rlineto stroke 0 0 moveto 0 3250 rlineto stroke 5250 100 sub 50 moveto 100 -50 rlineto -100 -50 rlineto stroke -50 3250 100 sub moveto 50 100 rlineto 50 -100 rlineto stroke /tx [(-4) (-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3) ( 4)] def /ty [(-2) (-1) ( 0) ( 1) ( 2) ( 3) ( 4)] def /xz (x) def /xzn (-x) def ioute 1 eq expnr 7 ge and {%xchartl>=7 /xz (z) def /xzn (-z) def } if /KLxr {20 0 rmoveto TBIK xz show 0 -80 rmoveto TBL (r) show 20 80 rmoveto} def /LSxr {20 0 rmoveto TBIL xz show 0 -60 rmoveto TBS (r) show 20 60 rmoveto} def /SVxr {20 0 rmoveto TBIS xz show 0 -40 rmoveto TBV (r) show 20 40 rmoveto} def /KLxrx {20 0 rmoveto TBIK (x) show 0 -80 rmoveto TBL (r) show 20 80 rmoveto} def /KLxrz {20 0 rmoveto TBIK (z) show 0 -80 rmoveto TBL (r) show 20 80 rmoveto} def /LSxrx {20 0 rmoveto TBIL (x) show 0 -60 rmoveto TBS (r) show 20 60 rmoveto} def /LSxrz {20 0 rmoveto TBIL (z) show 0 -60 rmoveto TBS (r) show 20 60 rmoveto} def /SVxrx {20 0 rmoveto TBIS (x) show 0 -40 rmoveto TBV (r) show 20 40 rmoveto} def /SVxrz {20 0 rmoveto TBIS (z) show 0 -40 rmoveto TBV (r) show 20 40 rmoveto} def /100KLxr {0 100 rmoveto KLxr 0 -100 rmoveto} def /100LSxr {0 080 rmoveto LSxr 0 -080 rmoveto} def /100SVxr {0 060 rmoveto SVxr 0 -060 rmoveto} def /KLxrn {20 0 rmoveto TBIK xzn show 0 -80 rmoveto TBL (r) show 20 80 rmoveto} def /LSxrn {20 0 rmoveto TBIL xzn show 0 -60 rmoveto TBS (r) show 20 60 rmoveto} def /SVxrn {20 0 rmoveto TBIS xzn show 0 -40 rmoveto TBV (r) show 20 40 rmoveto} def /KLxrxn {20 0 rmoveto TBIK (xn) show 0 -80 rmoveto TBL (r) show 20 80 rmoveto} def /KLxrzn {20 0 rmoveto TBIK (zn) show 0 -80 rmoveto TBL (r) show 20 80 rmoveto} def /LSxrxn {20 0 rmoveto TBIL (xn) show 0 -60 rmoveto TBS (r) show 20 60 rmoveto} def /LSxrzn {20 0 rmoveto TBIL (zn) show 0 -60 rmoveto TBS (r) show 20 60 rmoveto} def /SVxrxn {20 0 rmoveto TBIS (xn) show 0 -40 rmoveto TBV (r) show 20 40 rmoveto} def /SVxrzn {20 0 rmoveto TBIS (zn) show 0 -40 rmoveto TBV (r) show 20 40 rmoveto} def /100KLxrn {0 100 rmoveto KLxrn 0 -100 rmoveto} def /100LSxrn {0 080 rmoveto LSxrn 0 -080 rmoveto} def /100SVxrn {0 060 rmoveto SVxrn 0 -060 rmoveto} def %!x-Achse: 1 log-Einheiten = 500 Skalen-Einheiten TBL 0 1 9 {/i exch def /ixt { -150 i 0500 mul add} def /ixl { 000 i 0500 mul add} def i 8 le {ixt -250 moveto tx i get exec show} if ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 1 log-Einheiten = 500 Skalen-Einheiten TBL 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -350 iyt moveto ty i get exec show -75 iyl moveto 150 0 rlineto stroke } for 4300 -260 moveto tfw LSxr TBL (=) show 30 0 rmoveto TBL (log[) show 30 0 rmoveto TBIL (L/L) show 0 -50 rmoveto TBS (u) show 0 50 rmoveto TBL (]) show 1900 200 moveto (L) TBIL tfw show TBS 20 -80 rmoveto (u) show 50 80 rmoveto 4300 0200 moveto (L) TBIL tfw show TBS 20 -80 rmoveto (u) show 00 80 rmoveto TBL 20 0 (=28) ashow (cd/m) show TBS 0 80 rmoveto (2) show 0 -80 rmoveto tfl 40 setlinewidth 1600 0 moveto 800 0 rlineto stroke 2200 270 moveto TBS (range of office) showen (Bereich B\374ro\255) showde 2200 100 moveto (luminance) showen (Leuchtdichte) showde xtr0 neg ytr0 neg translate %******************************************************** %BEG C01_C08 ******************************************** %original square tfn %tfw 050 3750 moveto xchartl 07 le {%xchartl=00 tfw TBIK (F) show -50 -80 rmoveto TBL (abu) show 0 80 rmoveto TBK (\050) show KLxr TBK (\051) show 20 0 rmoveto (=) show 20 0 rmoveto (normierte unbunte Rezeptorerregung) showde (normalized achromatic receptor response) showen } if %xchartl=00 xchartl 01 ge {%xchartl>=1 tfy TBK ( & modified) showen ( & modifiziert) showde } if %xchartl>=1 tfn %tfw %********************************************************************* %BEG Common text xtr0 ytr0 translate TBIK /iyt0 2900 def %top text line /iyt1 2300 def %lower yellow text line /ixt2 2420 def %right red text line /iyt2 1100 def %right red text line /ix0 100 def /ix1 750 def %for F(x) /ix1a 850 def %for Fn(x) /ix2 2200 def %text e /ix3 1700 def %ifunc 0 eq {/x_zp (x) def /x_zm (-x) def} % {/x_zp (z) def /x_zm (-z) def /lne_10d 1 10 ln div def} ifelse /x_zp (x) def /x_zm (-x) def ioute 0 eq {/e_10 (e) def /lne_10 1 def} {/e_10 (10) def /lne_10 1 def} ifelse /expnp 10 array def % 0 1 2 3 4 5 6 7 8 9 /expnp [1.0 1.0 0.7 0.5 1.0 0.7 0.5 1.0 0.7 0.5] def /expnk 10 array def % 0 1 2 3 4 5 6 7 8 9 /expnk [(1,0) (1,0) (0,7) (0,5) (1,0) (0,7) (0,5) (1,0) (0,7) (0,5)] def %**************************************** tfw 30 setlinewidth /jm1 0 def /jm2 1 def /iytj 0 def xchartl 0 eq {/jm2 0 def} {/jm2 1 def} ifelse jm1 1 jm2 {/j exch def %j=jm1,jm2 j 0 eq {/iyta 0 def} if j 1 eq {/iyta 0 def} if 0 1 1 {/k exch def %k=0,1 k 0 eq {%k=0 j 0 eq {[ ] 0 setdash tfw} if j 1 eq {[ ] 0 setdash tfy} if } if %k=0 k 1 eq {%k=1 j 0 eq {[100 100] 0 setdash tfn} if j 1 eq {[100 100] 0 setdash tfn} if } if %k=1 %font colour j 0 eq {tfw} if j 1 eq {tfy} if j 0 eq {/ixtx ix0 def /iytx iyt0 def} if j 1 eq {/ixtx ixt2 def /iytx iyt2 def} if /iytxt iytx 050 add j 0 eq {100 add} if def %ixtx 0850 add iytxt iyta add 50 add moveto %iyta=0 %1150 ioute 1 eq {200 add} if 0 rlineto stroke %ioute=0 } for %k=0,1 ixtx iytxt moveto TBIL (F) show -30 -80 rmoveto TBS (abu) show 0 80 rmoveto TBL (\050) show LSxr TBL (\051) show TBL (=) show [ ] 0 setdash ixtx 0850 add iytxt 50 add moveto 0450 0 rlineto stroke ixtx 1050 add iytxt 130 add moveto TBIL (p) show ixtx 0900 add iytxt 090 sub moveto TBIL (p + q) show ixtx 1400 add iytxt moveto TBL (+) show [ ] 0 setdash ixtx 1550 add iytxt 50 add moveto 0450 0 rlineto stroke ixtx 1600 add iytxt 130 add moveto TBIL (-q) show ixtx 1550 add iytxt 090 sub moveto TBIL (p + q) show ixtx 2050 add iytxt moveto [ ] 0 setdash TBL (+ 1 = ) show ixtx 2600 add iytxt 50 add moveto 0450 0 rlineto stroke ixtx 2650 add iytxt 130 add moveto TBIL (p - q) show ixtx 2650 add iytxt 090 sub moveto TBIL (p + q) show ixtx 3150 add iytxt moveto TBL ( + 1) show ix3 1200 add 800 add iyt0 250 add moveto TBIL (p) show TBL ( = ) show TBL e_10 show 0 100 rmoveto SVxr TBS (/a) show ioute 1 eq {(') show} if 0 -100 rmoveto ix3 1200 add 1800 add iyt0 250 add moveto TBIL (q) show TBL ( = ) show TBL e_10 show 0 100 rmoveto SVxrn TBS (/a) show ioute 1 eq {(') show} if 0 -100 rmoveto j 0 eq {%j=0, both sides tfw TBS ix3 1400 add 600 add iyt0 000 add moveto (a=1,00, b=1,00 e=2,718282) show ioute 1 eq {%ioute=1 ix3 1400 add 600 add iyt0 200 sub moveto (a'=a) show 30 0 rmoveto (ln(10)=) show 1.0 10 ln mul cvsshow3x } if %ioute=1 } if %j=0, both sides ioute 1 eq xchartl 0 eq and { %ioute=1, xchartl=0 right side ix3 1400 add 600 add iyt0 200 add moveto TBL (10) show 0 100 rmoveto SVxrx 0 -100 rmoveto TBL (=e) show 0 100 rmoveto TBS (ln(10)) show 30 0 rmoveto SVxrx 0 -100 rmoveto TBL (, 10) show 0 100 rmoveto SVxr TBS (/ln(10)) show 0 -100 rmoveto TBL (=e) show 0 100 rmoveto SVxrx 0 -100 rmoveto ix3 1400 add 600 add iyt0 ioute 0 eq {250 sub moveto} {500 sub moveto} ifelse TBL (10) show ioute 0 eq {0 100 rmoveto SVxrx TBS (/a) show 0 -100 rmoveto } if ioute 1 eq expnr 6 le and {0 100 rmoveto SVxrx %zr for xchartl<=6 TBS (/a') show 0 -100 rmoveto } if ioute 1 eq expnr 6 gt and {0 100 rmoveto SVxrx %zr for xchartl>6 TBS (/a') show 0 -100 rmoveto } if TBL (=) show TBL (10) show 0 100 rmoveto SVxrx TBS ( / [a) show 30 0 rmoveto (ln(10)]) show 0 -100 rmoveto TBL (=) show TBL (e) show 0 100 rmoveto SVxrx TBS (/a) show 0 -100 rmoveto } if %ioute=1, xchartl=0 right side } for %j=jm1,jm2 idevi 1 eq {%idevi=1 /iyt1t iyt1 330 add def 30 setlinewidth [ ] 0 setdash tfg ix0 iyt1t moveto TBIL (F') show -50 -80 rmoveto TBS (abu) show 0 80 rmoveto TBL (\050) show LSxrx TBL (\051) show TBL ( = 4 / [) show TBL (a) show 20 0 rmoveto TBL ({) show TBL e_10 show 0 80 rmoveto SVxr TBS (/a) show ioute 1 eq {(') show} if 20 -80 rmoveto TBL (+) show 20 0 rmoveto TBL e_10 show 0 80 rmoveto TBS (-) show SVxr TBS (/a) show ioute 1 eq {(') show} if 20 -80 rmoveto TBL (}) show 0 80 rmoveto TBS (2) show 0 -80 rmoveto TBL (]) show ix0 2800 add iyt1t moveto TBL ( = 4 / [) show TBL (a) show 20 0 rmoveto TBL ({) show TBIL (p) show TBL ( + ) show TBIL (q) show TBL (}) show 0 80 rmoveto TBS (2) show 0 -80 rmoveto TBL (]) show ix0 iyt1t 300 sub moveto TBS xchartl 0 eq {(a=1,00) show} if xchartl 1 eq {(a=1,00) show} if xchartl 2 eq {(a=2,00) show} if xchartl 3 eq {(a=0,50) show} if xchartl 4 eq {(a=2,00) show} if xchartl 5 eq {(a=0,50) show} if xchartl 6 eq {(a=1,00) show} if xchartl 7 eq {(a=0,50) show} if xchartl 1 ge {0 100 rmoveto TBS expnk expnr get show 0 -100 rmoveto} if TBS xchartl 0 eq {(; b=1,00) show} if xchartl 1 eq {(; b=2,00) show} if xchartl 2 eq {(; b=1,00) show} if xchartl 3 eq {(; b=1,00) show} if xchartl 4 eq {(; b=2,00) show} if xchartl 5 eq {(; b=2,00) show} if xchartl 6 eq {(; b=1,00) show} if xchartl 7 eq {(; b=0,50) show} if xchartl 1 le {%xchartl<=1 special text xchartl 0 eq {1320}{1520} ifelse 1650 moveto tfg TBIL (F') show -30 -80 rmoveto TBS (abu) show 0 80 rmoveto xchartl 0 eq {TBL (\050) show LSxr TBL (\051) show} if } if %xchartl<=1 special text xchartl 1 eq {%xchartl=1 special text 0700 2000 moveto tfg TBIL (F') show -30 -80 rmoveto TBS (1_2u) show 0 80 rmoveto TBL (\050) show LSxr TBL (\051) show tfw } if %xchartl=1 special text } if %idevi=1 tfw [ ] 0 setdash 0 1000 moveto 4500 0 rlineto stroke tfl [50 50] 0 setdash 0 1500 moveto 2000 0 rlineto stroke tfn 200 1570 moveto TBL (Asymptote) show %tfw [ ] 0 setdash 1500 1000 moveto 0 500 rlineto stroke tfw [ ] 0 setdash 2000 1000 moveto 0 0500 rlineto stroke xchartl 1 le {%xchartl<=1 special text 4600 2000 50 sub moveto tfw TBIL (F) show -30 -80 rmoveto TBS (abu) show 0 80 rmoveto TBL (\050) show LSxr TBL (\051) show } if %xchartl<=1 special text xchartl 1 eq {%xchartl=1 special text 3200 1800 moveto tfy TBIL (F) show -30 -80 rmoveto TBS (1_2_u) show 0 80 rmoveto TBL (\050) show LSxr TBL (\051) show } if %xchartl=1 special text xtr0 neg ytr0 neg translate %********************************************************************* /C0i_FXi {%BEG C0i_FXi xtr0 ytr0 translate /xi 51 array def %range -4 bis +4 in steps of /yi 51 array def %range -1 to +1 /epxi 51 array def /emxi 51 array def /esxi 51 array def /Frui 51 array def /MULX 500 def /MULY 500 def %ioute 0 eq {/e 2.7182818 def} % {/e 10.0 def } ifelse /e 2.7182818 def /im 45 def jm1 1 jm2 {/j exch def %j=jm1,jm2 j 0 eq {%j=0 /a 1.0 expnp expnr get exp def /ai 1.0 expnp expnr get exp lne_10 mul def /bi 1.0 def } if %j=0 j 1 eq {%j=1 %xchartl 0 eq {/a 1.0 expnp expnr get exp def % /ai 1.0 expnp expnr get exp lne_10 mul def % /bi 1.0 def} if xchartl 1 eq {/a 1.0 expnp expnr get exp def /ai 1.0 expnp expnr get exp lne_10 mul def /bi 2.0 def} if xchartl 2 eq {/a 2.0 expnp expnr get exp def /ai 2.0 expnp expnr get exp lne_10 mul def /bi 1.0 def} if xchartl 3 eq {/a 0.5 expnp expnr get exp def /ai 0.5 expnp expnr get exp lne_10 mul def /bi 1.0 def} if xchartl 4 eq {/a 2.0 expnp expnr get exp def /ai 2.0 expnp expnr get exp lne_10 mul def /bi 2.0 def} if xchartl 5 eq {/a 0.5 expnp expnr get exp def /ai 0.5 expnp expnr get exp lne_10 mul def /bi 2.0 def} if xchartl 6 eq {/a 1.0 expnp expnr get exp def /ai 1.0 expnp expnr get exp lne_10 mul def /bi 0.5 def} if xchartl 7 eq {/a 0.5 expnp expnr get exp def /ai 0.5 expnp expnr get exp lne_10 mul def /bi 0.5 def} if } if %j=1 0 1 50 {/i exch def %i=0,50 xi i -4 i 0.2 mul add put ioute 0 eq {%ioute=0 epxi i e xi i get ai div exp put emxi i e xi i get ai div neg exp put } {%ioute=1 epxi i e xi i get lne_10 div ai div exp put emxi i e xi i get lne_10 div ai div neg exp put } ifelse esxi i epxi i get emxi i get add put Frui i epxi i get emxi i get sub epxi i get emxi i get add div bi mul 1 add put } for %i=0,50 40 setlinewidth [ ] 0 setdash 0 1 1 {/k exch def %k=0,1 k 0 eq {%k=0 j 0 eq {[ ] 0 setdash tfw} if j 1 eq {[ ] 0 setdash tfy} if } if %k=0 k 1 eq {%k=1 j 0 eq {[100 100] 0 setdash tfn} if %j 1 eq {[100 100] 0 setdash tfn} if } if %k=1 0 1 im {/i exch def %i=0,im i 0 eq {xi i get MULX mul 2000 add Frui i get MULY mul 1000 add moveto} if i 1 ge i im 1 sub le and {xi i get MULX mul 2000 add Frui i get MULY mul 1000 add lineto} if i im eq {xi i get MULX mul 2000 add Frui i get MULY mul 1000 add lineto stroke} if } for %i=0,im k 1 eq {%k=1 xchartl 1 ge {%xchartl>=1 tfy j 1 eq {%j=1 /yta Frui 45 get MULY mul 070 add def ixt2 2000 add 1000 yta add moveto xchartl 1 eq {(a=1,00) show} if xchartl 2 eq {(a=2,00) show} if xchartl 3 eq {(a=0,50) show} if xchartl 4 eq {(a=2,00) show} if xchartl 5 eq {(a=0,50) show} if xchartl 6 eq {(a=1,00) show} if xchartl 7 eq {(a=0,50) show} if xchartl 1 ge {0 100 rmoveto TBS expnk expnr get show 0 -100 rmoveto TBS (=) show ai cvsshow3x } if %1<=xchartl<=7} if } if %j=1 j 1 eq {%j=1 ixt2 2000 add 1000 yta add 0250 sub moveto ioute 1 eq {%ioute=1 xchartl 1 ge {(a'=) show ai 10 ln mul cvsshow3x (, ) show} if } if %ioute=1 xchartl 1 eq {(b=2,00) show} if xchartl 2 eq {(b=1,00) show} if xchartl 3 eq {(b=1,00) show} if xchartl 4 eq {(b=2,00) show} if xchartl 5 eq {(b=2,00) show} if xchartl 6 eq {(b=0,50) show} if xchartl 7 eq {(b=0,50) show} if } if %j=1 } if %xchartl>=1 } if %k=1 } for %k=0,1 idevi 1 eq {%idevi=1 %integral dx/(a^2+x^2) = (1/a) arctan (x/a) /edxi 51 array def /Frudi 51 array def /ai 1 def %special case 0 1 50 {/i exch def %i=0,50 xi i -4 i 0.2 mul add put % ioute 0 eq {%ioute=0 % eqxi i e xi i get ai div exp put % emxi i e xi i get ai div neg exp put % } % {%ioute=1 % eqxi i e xi i get lne_10 div ai div exp put % emxi i e xi i get lne_10 div ai div neg exp put % } ifelse edxi i e xi i get exp e xi i get neg exp add 2 exp put edxi i 4 edxi i get ai mul div put Frudi i edxi i get bi mul put } for %i=0,50 0 1 1 {/k exch def %k=0,1 k 0 eq {%k=0 j 0 eq {[ ] 0 setdash tfg} if j 1 eq {[ ] 0 setdash tfg} if } if %k=0 k 1 eq {%k=1 j 0 eq {[100 100] 0 setdash tfn} if %j 1 eq {[100 100] 0 setdash tfn} if } if %k=1 50 setlinewidth /im 45 def 0 1 im {/i exch def %i=0,im i 0 eq {xi i get MULX mul 2000 add Frudi i get MULY mul 1000 add moveto} if i 1 ge i im 1 sub le and {xi i get MULX mul 2000 add Frudi i get MULY mul 1000 add lineto} if i im eq {xi i get MULX mul 2000 add Frudi i get MULY mul 1000 add lineto stroke} if } for %i=0,im } for %k=0,1 [ ] 0 setdash 20 setlinewidth } if %idevi=1 %slope /m0 Frui 21 get Frui 19 get sub xi 21 get xi 19 get sub div def %font colour j 0 eq {tfw} if j 1 eq {tfy} if 1650 0700 j 180 mul sub moveto TBIS (m) show 0 -70 rmoveto TBV ai cvsshow1x bi cvishow 0 70 rmoveto TBS (=) show m0 cvsshow2x } for %j=jm1,jm2 tfl 30 setlinewidth [100 100] 0 setdash 1600 0 moveto 1600 Frui 16 get MULY mul 1000 add lineto stroke 2400 500 moveto 2400 Frui 24 get MULY mul 1000 add lineto stroke [ ] 0 setdash %20 setlinewidth tfl 30 setlinewidth [100 100] 0 setdash %1600 0 moveto 1600 Frui 16 get MULY mul 1000 add lineto stroke %2400 500 moveto 2400 Frui 24 get MULY mul 1000 add lineto stroke 1600 0 moveto 0 1000 rlineto stroke 2400 400 moveto 0 1100 rlineto stroke [ ] 0 setdash 20 setlinewidth TBL %last circles newpath %tfw 1600 1000 70 0 360 arc fill %tfn 1600 1000 50 0 360 arc fill %tfn 2400 1000 70 0 360 arc fill %tfw 2400 1000 50 0 360 arc fill tfw 1600 Frui 16 get MULY mul 1000 add 70 0 360 arc fill tfn 1600 Frui 16 get MULY mul 1000 add 50 0 360 arc fill tfn 2400 Frui 24 get MULY mul 1000 add 70 0 360 arc fill tfw 2400 Frui 24 get MULY mul 1000 add 50 0 360 arc fill newpath tfn 1500 100 sub 1450 200 sub moveto (N) show tfw 2450 050 add 1950 200 sub moveto (W) show xtr0 neg ytr0 neg translate } def %C0i_FXi %END C0i_FXi %********************************************************************* C0i_FXi %************************************************************** %special space for 'xm03'PROZ0.COM 2x before/after xchartl % xchartl 0 eq { 100 neg 13000 neg translate} if % xchartl 1 eq { 6150 neg 13000 neg translate} if % xchartl 2 eq { 100 neg 08740 neg translate} if % xchartl 3 eq { 6150 neg 08740 neg translate} if % xchartl 4 eq { 100 neg 04480 neg translate} if % xchartl 5 eq { 6150 neg 04480 neg translate} if % xchartl 6 eq { 100 neg 00220 neg translate} if % xchartl 7 eq { 6150 neg 00220 neg translate} if grestore %} for %xchartl=0,07 showpage grestore %%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/fen0/fen00-8a enk00-2n %%BoundingBox: 70 85 245 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/fen0/fen0.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:2023070112200) /ModDate (D:20230701112200) /DOCINFO pdfmark06 [ /View [ /Fit ] /DOCVIEW pdfmark06 %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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TV {120 /Times-ISOL1 FS} 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 /TIV {120 /TimesI-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 /TBV {120 /TimesB-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 /TBIV {120 /TimesBI-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 /SV {120 /Symbol FS} bind def /SS {160 /Symbol FS} bind def /SL {200 /Symbol FS} bind def /SK {250 /Symbol FS} bind def /SM {300 /Symbol FS} bind def /SG {350 /Symbol FS} bind def /CV {120 /Courier FS} bind def /CS {160 /Courier FS} bind def /CL {200 /Courier FS} bind def /CK {250 /Courier FS} bind def /CM {300 /Courier FS} bind def /CG {350 /Courier FS} bind def /CIV {120 /Courier-Oblique FS} bind def /CIS {160 /Courier-Oblique FS} bind def /CIL {200 /Courier-Oblique FS} bind def /CIK {250 /Courier-Oblique FS} bind def /CIM {300 /Courier-Oblique FS} bind def /CIG {350 /Courier-Oblique FS} bind def /CBV {120 /Courier-Bold FS} bind def /CBS {160 /Courier-Bold FS} bind def /CBL {200 /Courier-Bold FS} bind def /CBK {250 /Courier-Bold FS} bind def /CBM {300 /Courier-Bold FS} bind def /CBG {350 /Courier-Bold FS} bind def /CBIV {120 /Courier-BoldOblique FS} bind def /CBIS {160 /Courier-BoldOblique FS} bind def /CBIL {200 /Courier-BoldOblique FS} bind def /CBIK {250 /Courier-BoldOblique FS} bind def /CBIM {300 /Courier-BoldOblique FS} bind def /CBIG {350 /Courier-BoldOblique 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 /kM2 {300 /TimesI-ISOL1 FS show TM} bind def /bM2 {300 /TimesB-ISOL1 FS show TM} bind def /jM2 {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 %XCHA02.PS BEG /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 {setrgbcolor rec fill} bind def /colrecst %x y width heigth c m y k {setrgbcolor rec stroke} bind def /rem %x, y width heigth {/heigth exch 0.5 mul def /width exch 0.5 mul def /yleftb exch heigth 0.5 mul add def /xleftb exch width 0.5 mul add def xleftb yleftb moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colremfi %x y width heigth c m y k {setrgbcolor rem fill} bind def /colremst %x y width heigth c m y k {setrgbcolor rem stroke} bind def /tzr {1 0 0} bind def %Reproduktionsfarben /tzg {0 1 0} bind def /tzb {0 0 1} bind def /tzc {0 1 1} bind def /tzm {1 0 1} bind def /tzy {1 1 0} bind def /tzo {1 0 0} bind def %Reproduktionsfarben /tzl {0 1 0} bind def /tzv {0 0 1} bind def /tzn {0.00} bind def %Graureihe /tzd {0.25} bind def /tzz {0.50} bind def /tzh {0.75} bind def /tzw {1.00} 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 /tfrn {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben /tfgn {0.0 0.5 0.0 setrgbcolor} bind def /tfbn {0.0 0.0 0.5 setrgbcolor} bind def /tfcn {0.0 0.5 0.5 setrgbcolor} bind def /tfmn {0.5 0.0 0.5 setrgbcolor} bind def /tfyn {0.5 0.5 0.0 setrgbcolor} bind def /tfon {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben /tfln {0.0 0.5 0.0 setrgbcolor} bind def /tfvn {0.0 0.0 0.5 setrgbcolor} bind def /tfn {0.00 setgray} bind def %Graureihe /tfd {0.25 setgray} bind def /tfz {0.50 setgray} bind def /tfh {0.75 setgray} bind def /tfw {1.00 setgray} 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 /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 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 % /ioute 0 def /ifunc 0 def /idevi 1 def /imevi 1 def /expnr 4 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 %always independent of intended output 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def %75 85 moveto %lanind cvishow (-) show %colorm cvishow %deintp cvishow %xcolor cvishow %xchart cvishow %pchart cvishow %colsep cvishow (-L) show pmetam cvishow gsave %XCHA01.PS END 4 /Times-ISOL1 FS %74 86 moveto (fen00-7R) show %xchart 0 eq {(R) show} % {deintp colorm 2 mul add cvishow} ifelse 72 90 translate 0.01 MM dup scale 20 setlinewidth %0 0 12250 17100 1.0 1.0 1.0 colrecfi %area white grey %0 0 12250 17100 0.0 0.0 0.0 colrecst %Rahmen Schwarz %/ifunc 0 def %ifunc 0 eq {Yi_L*i_dYi_L_0} if %ifunc 1 eq {Yi_L*i_dYi_C_0} if %Yi_Yxyi /xchartl 0 def %0 1 07 {/xchartl exch def %xchartl=0,07 gsave %from BEA80-7N.PS % xchartl 0 eq { 100 13000 translate} if % xchartl 1 eq { 6150 13000 translate} if % xchartl 2 eq { 100 08740 translate} if % xchartl 3 eq { 6150 08740 translate} if % xchartl 4 eq { 100 04480 translate} if % xchartl 5 eq { 6150 04480 translate} if % xchartl 6 eq { 100 00220 translate} if % xchartl 7 eq { 6150 00220 translate} if 130 /Times-ISOL1 FS 0 setgray 50 -130 moveto (fen00-8a enk00-2n) show %%%xchartl 1 add cvishow %%%(A) show %A %(_) show xchart 1 add cvishow /xwidth 6000 def /ywidth 4000 def 25 setlinewidth 0.5 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath clip 0 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath stroke tfn %tfw /xtr0 380 def /ytr0 350 def xtr0 ytr0 translate %********************************************************************* tfw 30 setlinewidth 0 0 moveto 5250 0 rlineto stroke 0 0 moveto 0 3250 rlineto stroke 5250 100 sub 50 moveto 100 -50 rlineto -100 -50 rlineto stroke -50 3250 100 sub moveto 50 100 rlineto 50 -100 rlineto stroke /tx [(-4) (-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3) ( 4)] def /ty [(-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3)] def /xz (x) def /xzn (-x) def ioute 1 eq expnr 7 ge and {%xchartl>=7 /xz (z) def /xzn (-z) def } if /KLxr {20 0 rmoveto TBIK xz show 0 -80 rmoveto TBL (r) show 20 80 rmoveto} def /LSxr {20 0 rmoveto TBIL xz show 0 -60 rmoveto TBS (r) show 20 60 rmoveto} def /SVxr {20 0 rmoveto TBIS xz show 0 -40 rmoveto TBV (r) show 20 40 rmoveto} def /KLxu {20 0 rmoveto TBIK xz show 0 -80 rmoveto TBL (u) show 20 80 rmoveto} def /LSxu {20 0 rmoveto TBIL xz show 0 -60 rmoveto TBS (u) show 20 60 rmoveto} def /SVxu {20 0 rmoveto TBIS xz show 0 -40 rmoveto TBV (u) show 20 40 rmoveto} def /KLxrx {20 0 rmoveto TBIK (x) show 0 -80 rmoveto TBL (r) show 20 80 rmoveto} def /KLxrz {20 0 rmoveto TBIK (z) show 0 -80 rmoveto TBL (r) show 20 80 rmoveto} def /LSxrx {20 0 rmoveto TBIL (x) show 0 -60 rmoveto TBS (r) show 20 60 rmoveto} def /LSxrz {20 0 rmoveto TBIL (z) show 0 -60 rmoveto TBS (r) show 20 60 rmoveto} def /SVxrx {20 0 rmoveto TBIS (x) show 0 -40 rmoveto TBV (r) show 20 40 rmoveto} def /SVxrz {20 0 rmoveto TBIS (z) show 0 -40 rmoveto TBV (r) show 20 40 rmoveto} def /100KLxr {0 100 rmoveto KLxr 0 -100 rmoveto} def /100LSxr {0 080 rmoveto LSxr 0 -080 rmoveto} def /100SVxr {0 060 rmoveto SVxr 0 -060 rmoveto} def /KLxrn {20 0 rmoveto TBIK xzn show 0 -80 rmoveto TBL (r) show 20 80 rmoveto} def /LSxrn {20 0 rmoveto TBIL xzn show 0 -60 rmoveto TBS (r) show 20 60 rmoveto} def /SVxrn {20 0 rmoveto TBIS xzn show 0 -40 rmoveto TBV (r) show 20 40 rmoveto} def /KLxrxn {20 0 rmoveto TBIK (xn) show 0 -80 rmoveto TBL (r) show 20 80 rmoveto} def /KLxrzn {20 0 rmoveto TBIK (zn) show 0 -80 rmoveto TBL (r) show 20 80 rmoveto} def /LSxrxn {20 0 rmoveto TBIL (xn) show 0 -60 rmoveto TBS (r) show 20 60 rmoveto} def /LSxrzn {20 0 rmoveto TBIL (zn) show 0 -60 rmoveto TBS (r) show 20 60 rmoveto} def /SVxrxn {20 0 rmoveto TBIS (xn) show 0 -40 rmoveto TBV (r) show 20 40 rmoveto} def /SVxrzn {20 0 rmoveto TBIS (zn) show 0 -40 rmoveto TBV (r) show 20 40 rmoveto} def /100KLxrn {0 100 rmoveto KLxrn 0 -100 rmoveto} def /100LSxrn {0 080 rmoveto LSxrn 0 -080 rmoveto} def /100SVxrn {0 060 rmoveto SVxrn 0 -060 rmoveto} def %!x-Achse: 1 log-Einheiten = 500 Skalen-Einheiten TBL 0 1 9 {/i exch def /ixt { -150 i 0500 mul add} def /ixl { 000 i 0500 mul add} def i 8 le {ixt -250 moveto tx i get exec show} if ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 1 log-Einheiten = 500 Skalen-Einheiten TBL 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -350 iyt moveto ty i get exec show -75 iyl moveto 150 0 rlineto stroke } for 4300 -260 moveto tfw LSxr TBL (=) show 30 0 rmoveto TBL (log[) show 30 0 rmoveto TBIL (L/L) show 0 -50 rmoveto TBS (u) show 0 50 rmoveto TBL (]) show 1900 200 moveto (L) TBIL tfw show TBS 20 -80 rmoveto (u) show 50 80 rmoveto 1670 -240 moveto (x) TBIL tfw show TBS -20 -80 rmoveto (u) show -20 80 rmoveto TBL (=) show 4300 0200 moveto (L) TBIL tfw show TBS 20 -80 rmoveto (u) show 00 80 rmoveto TBL 20 0 (=28) ashow (cd/m) show TBS 0 80 rmoveto (2) show 0 -80 rmoveto tfl 40 setlinewidth 1600 0 moveto 800 0 rlineto stroke 2200 270 moveto TBS (range of office) showen (Bereich B\374ro\255) showde 2200 100 moveto (luminance) showen (Leuchtdichte) showde xtr0 neg ytr0 neg translate %******************************************************** %BEG C01_C08 ******************************************** %original square tfn %tfw 050 3770 moveto xchartl 07 le {%xchartl=00 tfw TBIK (F) show -50 -80 rmoveto TBL (1,ar) show 0 80 rmoveto TBK (\050) show KLxr TBK (\051) show 20 0 rmoveto (=) show 20 0 rmoveto (F) show -50 -80 rmoveto TBL (1,ab) show 0 80 rmoveto TBK (\050) show KLxr TBK (\051) show 20 0 rmoveto (/) show 20 0 rmoveto (F) show -50 -80 rmoveto TBL (1,ab) show 0 80 rmoveto TBK (\050) show KLxu TBK (\051) show 20 0 rmoveto (=) show 20 0 rmoveto (relative Rezeptorerregung) showde (relative receptor response) showen } if %xchartl=00 xchartl 01 ge {%xchartl>=1 tfy TBK ( & modified) showen ( & modifiziert) showde } if %xchartl>=1 tfn %tfw %********************************************************************* %BEG Common text xtr0 ytr0 translate TBIK /iyt0 2900 def %top text line /iyt1 2300 def %lower yellow text line /ixt2 2420 def %right red text line /iyt2 1100 def %right red text line /ix0 100 def /ix1 750 def %for F(x) /ix1a 850 def %for Fn(x) /ix2 2200 def %text e /ix3 1700 def %ifunc 0 eq {/x_zp (x) def /x_zm (-x) def} % {/x_zp (z) def /x_zm (-z) def /lne_10d 1 10 ln div def} ifelse /x_zp (x) def /x_zm (-x) def ioute 0 eq {/e_10 (e) def /lne_10 1 def} {/e_10 (10) def /lne_10 1 def} ifelse /expnp 10 array def % 0 1 2 3 4 5 6 7 8 9 /expnp [1.0 1.0 0.7 0.5 1.0 0.7 0.5 1.0 0.7 0.5] def /expnk 10 array def % 0 1 2 3 4 5 6 7 8 9 /expnk [(1,0) (1,0) (0,7) (0,5) (1,0) (0,7) (0,5) (1,0) (0,7) (0,5)] def %**************************************** tfw 30 setlinewidth /jm1 0 def /jm2 1 def /iytj 0 def xchartl 0 eq {/jm2 0 def} {/jm2 1 def} ifelse jm1 1 jm2 {/j exch def %j=jm1,jm2 j 0 eq {/iyta 0 def} if j 1 eq {/iyta 0 def} if 0 1 1 {/k exch def %k=0,1 k 0 eq {%k=0 j 0 eq {[ ] 0 setdash tfw} if j 1 eq {[ ] 0 setdash tfy} if } if %k=0 k 1 eq {%k=1 j 0 eq {[100 100] 0 setdash tfn} if j 1 eq {[100 100] 0 setdash tfn} if } if %k=1 %font colour j 0 eq {tfw} if j 1 eq {tfy} if j 0 eq {/ixtx ix0 def /iytx iyt0 def} if j 1 eq {/ixtx ixt2 def /iytx iyt2 def} if /iytxt iytx 050 add 50 sub j 0 eq {100 add} if def ixtx 1100 add iytxt iyta add 50 add moveto %iyta=0 1050 ioute 1 eq {200 add} if 0 rlineto stroke %ioute=0 } for %k=0,1 ixtx iytxt moveto TBIL (F) show -30 -80 rmoveto TBS (1,ar) show 0 80 rmoveto TBL (\050) show LSxr TBL (\051) show TBL ( = 2 ) show ixtx 1100 add 400 add iytxt 070 add moveto TBL e_10 show 0 100 rmoveto SVxr TBS (/a) show ioute 1 eq {(') show} if 0 -100 rmoveto %TBL ( - ) show %TBL e_10 show %0 100 rmoveto %SVxrn %TBS (/a) show ioute 1 eq {(') show} if 0 -100 rmoveto ixtx 1100 add iytxt 160 sub moveto TBL e_10 show 0 100 rmoveto SVxr TBS (/a) show ioute 1 eq {(') show} if 0 -100 rmoveto TBL ( + ) show TBL e_10 show 0 100 rmoveto SVxrn TBS (/a) show ioute 1 eq {(') show} if 0 -100 rmoveto ixtx 2300 add iytxt moveto [ ] 0 setdash TBL ( = 2 ) show ixtx 2700 add iytxt 50 add moveto 0600 0 rlineto stroke ixtx 2950 add iytxt 130 add moveto TBIL (p) show ixtx 2800 add iytxt 090 sub moveto TBIL (p + q) show 4300 0750 moveto LSxu TBL (=) show 30 0 rmoveto (0) show 4300 0500 moveto TBIL (p) show TBL (\050) show LSxu TBL (\051=) show TBIL (q) show TBL (\050) show LSxu TBL (\051=1) show ix3 1400 add 800 add iyt0 250 add moveto TBIL (p) show TBL ( = ) show TBL e_10 show 0 100 rmoveto SVxr TBS (/a) show ioute 1 eq {(') show} if 0 -100 rmoveto ix3 1400 add 1600 add iyt0 250 add moveto TBIL (q) show TBL ( = ) show TBL e_10 show 0 100 rmoveto SVxrn TBS (/a) show ioute 1 eq {(') show} if 0 -100 rmoveto j 0 eq {%j=0, both sides tfw TBS ix3 1400 add 600 add iyt0 000 add moveto (a=1,00, b=1,00 e=2,718282) show ioute 1 eq {%ioute=1 ix3 1400 add 600 add iyt0 200 sub moveto (a'=a) show 30 0 rmoveto (ln(10)=) show 1.0 10 ln mul cvsshow3x } if %ioute=1 } if %j=0, both sides ioute 1 eq xchartl 0 eq and { %ioute=1, xchartl=0 right side ix3 1400 add 600 add iyt0 200 add moveto TBL (10) show 0 100 rmoveto SVxrx 0 -100 rmoveto TBL (=e) show 0 100 rmoveto TBS (ln(10)) show 30 0 rmoveto SVxrx 0 -100 rmoveto TBL (, 10) show 0 100 rmoveto SVxr TBS (/ln(10)) show 0 -100 rmoveto TBL (=e) show 0 100 rmoveto SVxrx 0 -100 rmoveto ix3 1400 add 600 add iyt0 ioute 0 eq {250 sub moveto} {500 sub moveto} ifelse TBL (10) show ioute 0 eq {0 100 rmoveto SVxrx TBS (/a) show 0 -100 rmoveto } if ioute 1 eq expnr 6 le and {0 100 rmoveto SVxrx %zr for xchartl<=6 TBS (/a') show 0 -100 rmoveto } if ioute 1 eq expnr 6 gt and {0 100 rmoveto SVxrx %zr for xchartl>6 TBS (/a') show 0 -100 rmoveto } if TBL (=) show TBL (10) show 0 100 rmoveto SVxrx TBS ( / [a) show 30 0 rmoveto (ln(10)]) show 0 -100 rmoveto TBL (=) show TBL (e) show 0 100 rmoveto SVxrx TBS (/a) show 0 -100 rmoveto } if %ioute=1, xchartl=0 right side } for %j=jm1,jm2 idevi 1 eq {%idevi=1 /iyt1t iyt1 300 add def 30 setlinewidth [ ] 0 setdash tfg ix0 iyt1t moveto TBIL (F') show -50 -80 rmoveto TBS (1,ar) show 0 80 rmoveto TBL (\050) show LSxrx TBL (\051) show TBL ( = 4 / [) show TBL e_10 show 0 80 rmoveto SVxr TBS (/a) show ioute 1 eq {(') show} if 20 -80 rmoveto TBL (+) show 20 0 rmoveto TBL e_10 show 0 80 rmoveto TBS (-) show SVxr TBS (/a) show ioute 1 eq {(') show} if 20 -80 rmoveto TBL (]) show 0 80 rmoveto TBS (2) show 0 -80 rmoveto ix0 2500 add iyt1t moveto TBL ( = 4 / [) show TBIL (p) show TBL ( + ) show TBIL (q) show TBL (]) show 0 80 rmoveto TBS (2) show 0 -80 rmoveto ix0 iyt1t 300 sub moveto TBS xchartl 0 eq {(a=1,00) show} if xchartl 1 eq {(a=1,00) show} if xchartl 2 eq {(a=2,00) show} if xchartl 3 eq {(a=0,50) show} if xchartl 4 eq {(a=2,00) show} if xchartl 5 eq {(a=0,50) show} if xchartl 6 eq {(a=1,00) show} if xchartl 7 eq {(a=0,50) show} if xchartl 1 ge {0 100 rmoveto TBS expnk expnr get show 0 -100 rmoveto} if TBS xchartl 0 eq {(; b=1,00) show} if xchartl 1 eq {(; b=2,00) show} if xchartl 2 eq {(; b=1,00) show} if xchartl 3 eq {(; b=1,00) show} if xchartl 4 eq {(; b=2,00) show} if xchartl 5 eq {(; b=2,00) show} if xchartl 6 eq {(; b=1,00) show} if xchartl 7 eq {(; b=0,50) show} if xchartl 1 le {%xchartl<=1 special text %xchartl 0 eq {1620}{1820} ifelse 2150 moveto xchartl 0 eq {1220}{1820} ifelse 2150 moveto %xchartl=0 tfg TBIL (F') show -30 -80 rmoveto TBS (1,ar) show 0 80 rmoveto xchartl 0 eq {TBL (\050) show LSxr TBL (\051) show} if } if %xchartl<=1 special text xchartl 1 eq {%xchartl=1 special text 0700 2000 moveto tfg TBIL (F') show -30 -80 rmoveto TBS (1_2) show 0 80 rmoveto TBL (\050) show LSxr TBL (\051) show tfw } if %xchartl=1 special text } if %idevi=1 tfw [ ] 0 setdash 0 1500 moveto 4500 0 rlineto stroke tfl [50 50] 0 setdash 0 2000 moveto 2000 0 rlineto stroke tfn 200 2070 moveto TBL (Asymptote) show %tfw [ ] 0 setdash 2000 1500 moveto 0 500 rlineto stroke tfw [ ] 0 setdash 2000 1000 moveto 0 1000 rlineto stroke xchartl 1 le {%xchartl<=1 special text %4600 2000 50 sub moveto 4600 2500 50 sub moveto tfw TBIL (F) show -30 -80 rmoveto TBS (1,ar) show 0 80 rmoveto TBL (\050) show LSxr TBL (\051) show } if %xchartl<=1 special text xchartl 1 eq {%xchartl=1 special text 3200 2300 moveto tfy TBIL (F) show -30 -80 rmoveto TBS (1_2) show 0 80 rmoveto TBL (\050) show LSxr TBL (\051) show } if %xchartl=1 special text xtr0 neg ytr0 neg translate %********************************************************************* /C0i_FXi {%BEG C0i_FXi xtr0 ytr0 translate /xi 51 array def %range -4 bis +4 in steps of /yi 51 array def %range -1 to +1 /epxi 51 array def /emxi 51 array def /esxi 51 array def /Frui 51 array def /MULX 500 def /MULY 500 def %ioute 0 eq {/e 2.7182818 def} % {/e 10.0 def } ifelse /e 2.7182818 def /im 45 def jm1 1 jm2 {/j exch def %j=jm1,jm2 j 0 eq {%j=0 /a 1.0 expnp expnr get exp def /ai 1.0 expnp expnr get exp lne_10 mul def /bi 1.0 def } if %j=0 j 1 eq {%j=1 %xchartl 0 eq {/a 1.0 expnp expnr get exp def % /ai 1.0 expnp expnr get exp lne_10 mul def % /bi 1.0 def} if xchartl 1 eq {/a 1.0 expnp expnr get exp def /ai 1.0 expnp expnr get exp lne_10 mul def /bi 2.0 def} if xchartl 2 eq {/a 2.0 expnp expnr get exp def /ai 2.0 expnp expnr get exp lne_10 mul def /bi 1.0 def} if xchartl 3 eq {/a 0.5 expnp expnr get exp def /ai 0.5 expnp expnr get exp lne_10 mul def /bi 1.0 def} if xchartl 4 eq {/a 2.0 expnp expnr get exp def /ai 2.0 expnp expnr get exp lne_10 mul def /bi 2.0 def} if xchartl 5 eq {/a 0.5 expnp expnr get exp def /ai 0.5 expnp expnr get exp lne_10 mul def /bi 2.0 def} if xchartl 6 eq {/a 1.0 expnp expnr get exp def /ai 1.0 expnp expnr get exp lne_10 mul def /bi 0.5 def} if xchartl 7 eq {/a 0.5 expnp expnr get exp def /ai 0.5 expnp expnr get exp lne_10 mul def /bi 0.5 def} if } if %j=1 0 1 50 {/i exch def %i=0,50 xi i -4 i 0.2 mul add put ioute 0 eq {%ioute=0 epxi i e xi i get ai div exp put emxi i e xi i get ai div neg exp put } {%ioute=1 epxi i e xi i get lne_10 div ai div exp put emxi i e xi i get lne_10 div ai div neg exp put } ifelse esxi i epxi i get emxi i get add put Frui i epxi i get %emxi i get sub epxi i get emxi i get add div bi mul put } for %i=0,50 40 setlinewidth [ ] 0 setdash 0 1 1 {/k exch def %k=0,1 k 0 eq {%k=0 j 0 eq {[ ] 0 setdash tfw} if j 1 eq {[ ] 0 setdash tfy} if } if %k=0 k 1 eq {%k=1 j 0 eq {[100 100] 0 setdash tfn} if %j 1 eq {[100 100] 0 setdash tfn} if } if %k=1 0 1 im {/i exch def %i=0,im i 0 eq {xi i get MULX mul 2000 add Frui i get 2 mul MULY mul 1500 add moveto} if i 1 ge i im 1 sub le and {xi i get MULX mul 2000 add Frui i get 2 mul MULY mul 1500 add lineto} if i im eq {xi i get MULX mul 2000 add Frui i get 2 mul MULY mul 1500 add lineto stroke} if } for %i=0,im k 1 eq {%k=1 xchartl 1 ge {%xchartl>=1 tfy j 1 eq {%j=1 /yta Frui 45 get MULY mul 070 add def ixt2 2000 add 1500 yta add moveto xchartl 1 eq {(a=1,00) show} if xchartl 2 eq {(a=2,00) show} if xchartl 3 eq {(a=0,50) show} if xchartl 4 eq {(a=2,00) show} if xchartl 5 eq {(a=0,50) show} if xchartl 6 eq {(a=1,00) show} if xchartl 7 eq {(a=0,50) show} if xchartl 1 ge {0 100 rmoveto TBS expnk expnr get show 0 -100 rmoveto TBS (=) show ai cvsshow3x } if %1<=xchartl<=7} if } if %j=1 j 1 eq {%j=1 ixt2 2000 add 1500 yta add 0250 sub moveto ioute 1 eq {%ioute=1 xchartl 1 ge {(a'=) show ai 10 ln mul cvsshow3x (, ) show} if } if %ioute=1 xchartl 1 eq {(b=2,00) show} if xchartl 2 eq {(b=1,00) show} if xchartl 3 eq {(b=1,00) show} if xchartl 4 eq {(b=2,00) show} if xchartl 5 eq {(b=2,00) show} if xchartl 6 eq {(b=0,50) show} if xchartl 7 eq {(b=0,50) show} if } if %j=1 } if %xchartl>=1 } if %k=1 } for %k=0,1 idevi 1 eq {%idevi=1 %integral dx/(a^2+x^2) = (1/a) arctan (x/a) /edxi 51 array def /Frudi 51 array def /ai 1 def %special case 0 1 50 {/i exch def %i=0,50 xi i -4 i 0.2 mul add put % ioute 0 eq {%ioute=0 % eqxi i e xi i get ai div exp put % emxi i e xi i get ai div neg exp put % } % {%ioute=1 % eqxi i e xi i get lne_10 div ai div exp put % emxi i e xi i get lne_10 div ai div neg exp put % } ifelse edxi i e xi i get exp e xi i get neg exp add 2 exp put edxi i 4 edxi i get ai mul div put Frudi i edxi i get bi mul put } for %i=0,50 0 1 1 {/k exch def %k=0,1 k 0 eq {%k=0 j 0 eq {[ ] 0 setdash tfg} if j 1 eq {[ ] 0 setdash tfg} if } if %k=0 k 1 eq {%k=1 j 0 eq {[100 100] 0 setdash tfn} if %j 1 eq {[100 100] 0 setdash tfn} if } if %k=1 50 setlinewidth /im 45 def 0 1 im {/i exch def %i=0,im i 0 eq {xi i get MULX mul 2000 add Frudi i get MULY mul 1500 add moveto} if i 1 ge i im 1 sub le and {xi i get MULX mul 2000 add Frudi i get MULY mul 1500 add lineto} if i im eq {xi i get MULX mul 2000 add Frudi i get MULY mul 1500 add lineto stroke} if } for %i=0,im } for %k=0,1 [ ] 0 setdash 20 setlinewidth } if %idevi=1 %slope /m0 Frui 21 get Frui 19 get sub xi 21 get xi 19 get sub div def %font colour j 0 eq {tfw} if j 1 eq {tfy} if 1650 0500 j 180 mul sub moveto TBIS (m) show 0 -70 rmoveto TBV ai cvsshow1x bi cvishow 0 70 rmoveto TBS (=) show m0 2 mul cvsshow2x } for %j=jm1,jm2 tfl 50 setlinewidth [100 100] 0 setdash 1600 0 moveto 0 1500 rlineto stroke 2400 400 moveto 0 1100 rlineto stroke [ ] 0 setdash 20 setlinewidth TBL %last circles newpath tfw 1600 1500 70 0 360 arc fill tfn 1600 1500 50 0 360 arc fill tfn 2400 1500 70 0 360 arc fill tfw 2400 1500 50 0 360 arc fill newpath tfn 1500 100 sub 1450 200 sub moveto (N) show tfw 2450 050 add 1450 200 sub moveto (W) show xtr0 neg ytr0 neg translate } def %C0i_FXi %END C0i_FXi %********************************************************************* C0i_FXi %************************************************************** %special space for 'xm03'PROZ0.COM 2x before/after xchartl % xchartl 0 eq { 100 neg 13000 neg translate} if % xchartl 1 eq { 6150 neg 13000 neg translate} if % xchartl 2 eq { 100 neg 08740 neg translate} if % xchartl 3 eq { 6150 neg 08740 neg translate} if % xchartl 4 eq { 100 neg 04480 neg translate} if % xchartl 5 eq { 6150 neg 04480 neg translate} if % xchartl 6 eq { 100 neg 00220 neg translate} if % xchartl 7 eq { 6150 neg 00220 neg translate} if grestore %} for %xchartl=0,07 showpage grestore %%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 fen00-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 (fen00-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 fen01-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 (fen01-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 fen01-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 (fen01-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 fen01-3n_57 %%BoundingBox: 70 85 404 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/fen0/fen0.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 11650 def %2x5700+250=11650 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 {(fen00-) show} {(fen01-) show} ifelse pchartl 0 eq {(3n) show} {(7n) show} ifelse grestore gsave %00 %01 %02 /SHSl 00.0 def /SHAl -0.5 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/fen0/fen01-1a FNk11-1n %%BoundingBox: 70 83 236 178 %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/fen0/fen0.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:2024030112200) /ModDate (D:20240301112200) /DOCINFO pdfmark11 [ /View [ /Fit ] /DOCVIEW pdfmark11 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /RS {200 /Times-Roman FS} bind def /RK {250 /Times-Roman FS} bind def /RM {300 /Times-Roman FS} bind def /RG {350 /Times-Roman FS} bind def /RIS {200 /Times-Italic FS} bind def /RIK {250 /Times-Italic FS} bind def /RIM {300 /Times-Italic FS} bind def /RIG {350 /Times-Italic FS} bind def /RBS {200 /Times-Bold FS} bind def /RBK {250 /Times-Bold FS} bind def /RBM {300 /Times-Bold FS} bind def /RBG {350 /Times-Bold FS} bind def /TS_mde {RS (-) showde TS} bind def /TK_mde {RK (-) showde TK} bind def /TM_mde {RM (-) showde TM} bind def /TG_mde {RG (-) showde TG} bind def /TIS_mde {RIS (-) showde TIS} bind def /TIK_mde {RIK (-) showde TIK} bind def /TIM_mde {RIM (-) showde TIM} bind def /TIG_mde {RIG (-) showde TIG} bind def /TBS_mde {RBS (-) showde TBS} bind def /TBK_mde {RBK (-) showde TBK} bind def /TBM_mde {RBM (-) showde TBM} bind def /TBG_mde {RBG (-) showde TBG} bind def /TBIS_mde {RBIS (-) showde TBIS} bind def /TBIK_mde {RBIK (-) showde TBIK} bind def /TBIM_mde {RBIM (-) showde TBIM} bind def /TBIG_mde {RBIG (-) showde TBIG} bind def /TS_men {RS (-) showen TS} bind def /TK_men {RK (-) showen TK} bind def /TM_men {RM (-) showen TM} bind def /TG_men {RG (-) showen TG} bind def /TIS_men {RIS (-) showen TIS} bind def /TIK_men {RIK (-) showen TIK} bind def /TIM_men {RIM (-) showen TIM} bind def /TIG_men {RIG (-) showen TIG} bind def /TBS_men {RBS (-) showen TBS} bind def /TBK_men {RBK (-) showen TBK} bind def /TBM_men {RBM (-) showen TBM} bind def /TBG_men {RBG (-) showen TBG} bind def /TBIS_men {RBIS (-) showen TBIS} bind def /TBIK_men {RBIK (-) showen TBIK} bind def /TBIM_men {RBIM (-) showen TBIM} bind def /TBIG_men {RBIG (-) showen TBIG} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBS {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 {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 {200 /Symbol FS} bind def /SK {250 /Symbol FS} bind def /SM {290 /Symbol FS} bind def /SG {350 /Symbol FS} bind def /CSS {115 /Courier-ISOL1 FS} bind def /CSK {140 /Courier-ISOL1 FS} bind def /CS {200 /Courier-ISOL1 FS} bind def /CK {250 /Courier-ISOL1 FS} bind def /CM {300 /Courier-ISOL1 FS} bind def /CG {350 /Courier-ISOL1 FS} bind def /CBSS {115 /CourierB-ISOL1 FS} bind def /CBSK {140 /CourierB-ISOL1 FS} bind def /CBS {200 /CourierB-ISOL1 FS} bind def /CBK {250 /CourierB-ISOL1 FS} bind def /CBM {300 /CourierB-ISOL1 FS} bind def /CBG {350 /CourierB-ISOL1 FS} bind def /ns {350 /Times-ISOL1 FS show} bind def /ks {350 /TimesI-ISOL1 FS show} bind def /bs {350 /TimesB-ISOL1 FS show} bind def /js {350 /TimesBI-ISOL1 FS show} bind def /ss {350 /Symbol FS show} bind def /is {300 /Times-ISOL1 FS 0 -90 rmoveto show 0 90 rmoveto} bind def /es {300 /Times-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto} bind def /ib {300 /TimesB-ISOL1 FS 0 -90 rmoveto show 0 90 rmoveto} bind def /eb {300 /TimesB-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto} bind def /ip {300 /Times-ISOL1 FS 50 50 rmoveto (\267) show 50 -50 rmoveto} bind def %20% kleiner /ns2 {300 /Times-ISOL1 FS show TM} bind def /ks2 {300 /TimesI-ISOL1 FS show TM} bind def /bs2 {300 /TimesB-ISOL1 FS show TM} bind def /js2 {300 /TimesBI-ISOL1 FS show TM} bind def /ss2 {300 /Symbol FS show TM} bind def /is2 {250 /Times-ISOL1 FS 0 -70 rmoveto show 0 70 rmoveto TM} bind def /es2 {250 /Times-ISOL1 FS 0 160 rmoveto show 0 -160 rmoveto TM} bind def /ib2 {250 /TimesB-ISOL1 FS 0 -70 rmoveto show 0 70 rmoveto TM} bind def /eb2 {250 /TimesB-ISOL1 FS 0 160 rmoveto show 0 -160 rmoveto TM} bind def /ip2 {250 /Times-ISOL1 FS 40 40 rmoveto (\267) show 40 -40 rmoveto TM} bind def %40% kleiner /ns4 {250 /Times-ISOL1 FS show TK} bind def /ks4 {250 /TimesI-ISOL1 FS show TK} bind def /bs4 {250 /TimesB-ISOL1 FS show TK} bind def /js4 {250 /TimesBI-ISOL1 FS show TK} bind def /ss4 {250 /Symbol FS show TK} bind def /is4 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /es4 {200 /Times-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ib4 {200 /TimesB-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /eb4 {200 /TimesB-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ip4 {200 /Times-ISOL1 FS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def %XCHA01.PS BEG /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 {setcmyk_olvcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmyk_olvcolor rec stroke} bind def /rem %x, y width heigth {/heigth exch 0.5 mul def /width exch 0.5 mul def /yleftb exch heigth 0.5 mul add def /xleftb exch width 0.5 mul add def xleftb yleftb moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colremfi %x y width heigth c m y k {setcmykcolor rem fill} bind def /colremst %x y width heigth c m y k {setcmykcolor rem stroke} bind def /tzr {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzg {1.0 0.0 1.0 0.0} bind def /tzb {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tfr {0.0 1.0 1.0 0.0 setcmyk_olvcolor} bind def %Reproduktionsfarben /tfg {1.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def /tfb {1.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def /tfc {1.0 0.0 0.0 0.0 setcmyk_olvcolor} bind def /tfm {0.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def /tfy {0.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def /tfrz {0.0 1.0 1.0 0.5 setcmyk_olvcolor} bind def %Reproduktionsfarben /tfgz {1.0 0.0 1.0 0.5 setcmyk_olvcolor} bind def /tfbz {1.0 1.0 0.0 0.5 setcmyk_olvcolor} bind def /tfcz {1.0 0.0 0.0 0.5 setcmyk_olvcolor} bind def /tfmz {0.0 1.0 0.0 0.5 setcmyk_olvcolor} bind def /tfyz {0.0 0.0 1.0 0.5 setcmyk_olvcolor} bind def /tfn {0.0 0.0 0.0 1.00 setcmyk_olvcolor} bind def %Graureihe /tfd {0.0 0.0 0.0 0.75 setcmyk_olvcolor} bind def /tfz {0.0 0.0 0.0 0.50 setcmyk_olvcolor} bind def /tfh {0.0 0.0 0.0 0.25 setcmyk_olvcolor} bind def /tfw {0.0 0.0 0.0 0.00 setcmyk_olvcolor} bind def /cvishow {cvi 10 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show} def %%EndProlog gsave %lanindL2 START 20150505 /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 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 % 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 %always independent of intended output %5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def %75 85 moveto %lanind cvishow (-) show %colorm cvishow %deintp cvishow %xcolor cvishow %xchart cvishow %pchart cvishow %colsep cvishow (-L) show pmetam cvishow gsave %lanindL2 END 4 /Times-ISOL1 FS 74 86 moveto (fen01-1a FNK11-1n) show %xchart 0 eq {(N) show} % {deintp colorm 2 mul add cvishow} ifelse 72 90 translate 0.01 MM 0.01 MM scale /xwidth 5800 def /ywidth 3000 def 15 setlinewidth 0.0 0.0 0.5 0.0 setcmyk_olvcolor 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmyk_olvcolor 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath stroke /ishowg {0 -50 rmoveto TK (g) show 0 50 rmoveto TM} def /ishowp {0 -50 rmoveto TK (p) show 0 50 rmoveto TM} def /ishoww {0 -50 rmoveto TK (w) show 0 50 rmoveto TM} def /ishows {0 -50 rmoveto TK (s) show 0 50 rmoveto TM} def /eshow2 {0 100 rmoveto TK (2) show 0 -100 rmoveto TM} def /eshowo {0 100 rmoveto TK (o) show 0 -100 rmoveto TM} def /ishowD65 {0 -50 rmoveto TK (D65) show 0 50 rmoveto TM} def /ishowA00 {0 -50 rmoveto TK (A) show 0 50 rmoveto TM} def /ishowP00 {0 -50 rmoveto TK (P) show 0 50 rmoveto TM} def /ishowD00 {0 -50 rmoveto TK (D) show 0 50 rmoveto TM} def %viewing situation left /xm1 1300 def %center circle %/ym1 2800 def /ym1 1700 def /dytext 350 def /xm0 xm1 800 sub def /ym0 ym1 800 sub def xm0 ym0 1600 1600 0.0 0.0 0.0 0.0 colrecfi xm0 ym0 1600 1600 0.0 0.0 0.0 1.0 colrecst /xm0 xm1 640 sub def /ym0 ym1 640 sub def xm0 ym0 1280 1280 0.0 0.0 0.0 0.4 colrecfi 0 setgray /xm2 xm1 0800 sub def %start upper line /ym2 ym1 1050 add 100 add def /xm3 xm2 1600 add def %end upper line /ym3 ym2 def xm2 ym2 moveto 1600 0 rlineto stroke xm2 ym2 moveto 100 050 rlineto stroke xm2 ym2 moveto 100 -050 rlineto stroke xm3 ym3 moveto -100 050 rlineto stroke xm3 ym3 moveto -100 -050 rlineto stroke xm3 50 add ym3 100 sub moveto TM ( B\374ro) showde (office) showen 0 setgray /xm2 xm1 0640 sub def %start upper line /ym2 ym1 0900 add def /xm3 xm2 1280 add def %end upper line /ym3 ym2 def xm2 ym2 moveto 1280 0 rlineto stroke xm2 ym2 moveto 100 050 rlineto stroke xm2 ym2 moveto 100 -050 rlineto stroke xm3 ym3 moveto -100 050 rlineto stroke xm3 ym3 moveto -100 -050 rlineto stroke xm2 500 sub ym3 100 sub moveto TM (20) show eshowo xm1 550 sub ym1 550 sub moveto TIM (Y) show ishowg xm1 200 add ym1 550 sub moveto TIM (L) show ishowg xm1 1150 sub ym1 550 sub moveto TIM (Y) show ishoww xm1 0800 add ym1 550 sub moveto TIM (L) show ishoww /xm4 xm1 150 sub def %start lower text line /ym4 ym1 1050 sub def %arrow 100 higher xm4 ym4 100 add moveto 300 0 rlineto stroke xm4 ym4 100 add moveto 100 50 rlineto stroke xm4 ym4 100 add moveto 100 -50 rlineto stroke xm4 300 add ym4 100 add moveto -100 50 rlineto stroke xm4 300 add ym4 100 add moveto -100 -50 rlineto stroke xm4 500 add ym4 moveto TM (2,6) show eshowo %/xm5 xm4 def %/ym5 ym4 dytext sub def %xm5 ym5 moveto TIM (t) show ishowp %TM (>25) show TIM (s) show TM xm1 250 sub ym1 400 add moveto TIM (Y, L) show xm1 585 sub ym1 100 sub moveto SM (D) show TIM (Y) show xm1 220 add ym1 100 sub moveto SM (D) show TIM (L) show /xm2 xm1 150 sub def /ym2 ym1 000 sub def xm2 ym2 300 300 0.0 0.0 0.0 0.7 colrecfi /xm3 xm1 150 sub def /ym3 ym1 300 sub def xm3 ym3 300 300 0.0 0.0 0.0 0.8 colrecfi %***************************************************** %viewing situation right /xm1 3800 def %center circle /ym1 1700 def /xm0 xm1 800 sub def /ym0 ym1 800 sub def xm0 ym0 1600 1600 0.0 0.0 0.0 0.0 colrecfi xm0 ym0 1600 1600 0.0 0.0 0.0 1.0 colrecst /xm0 xm1 640 sub def /ym0 ym1 640 sub def xm0 ym0 1280 1280 0.0 0.0 0.0 0.4 colrecfi 0 setgray /xm2 xm1 0800 sub def %start upper line /ym2 ym1 1050 add 100 add def /xm3 xm2 1600 add def %end upper line /ym3 ym2 def xm2 ym2 moveto 1600 0 rlineto stroke xm2 ym2 moveto 100 050 rlineto stroke xm2 ym2 moveto 100 -050 rlineto stroke xm3 ym3 moveto -100 050 rlineto stroke xm3 ym3 moveto -100 -050 rlineto stroke 0 setgray /xm2 xm1 0640 sub def %start upper line /ym2 ym1 0900 add def /xm3 xm2 1280 add def %end upper line /ym3 ym2 def xm2 ym2 moveto 1280 0 rlineto stroke xm2 ym2 moveto 100 050 rlineto stroke xm2 ym2 moveto 100 -050 rlineto stroke xm3 ym3 moveto -100 050 rlineto stroke xm3 ym3 moveto -100 -050 rlineto stroke xm2 1280 add 200 add ym3 100 sub moveto TM (20) show eshowo xm1 550 sub ym1 550 sub moveto TIM (Y) show ishowg xm1 200 add ym1 550 sub moveto TIM (L) show ishowg xm1 1150 sub ym1 550 sub moveto TIM (Y) show ishoww xm1 0800 add ym1 550 sub moveto TIM (L) show ishoww /xm4 xm1 150 sub def %start lower text line /ym4 ym1 1050 sub def %arrow 100 higher xm4 ym4 100 add moveto 300 0 rlineto stroke xm4 ym4 100 add moveto 100 50 rlineto stroke xm4 ym4 100 add moveto 100 -50 rlineto stroke xm4 300 add ym4 100 add moveto -100 50 rlineto stroke xm4 300 add ym4 100 add moveto -100 -50 rlineto stroke xm4 500 add ym4 moveto TM (2,6) show eshowo xm1 250 sub ym1 420 add moveto TIM (Y, L) show xm1 585 sub ym1 100 sub moveto SM (D) show TIM (Y) show xm1 220 add ym1 100 sub moveto SM (D) show TIM (L) show newpath /xm2 xm1 150 sub def /ym2 ym1 000 sub def xm2 ym2 300 300 0.0 0.0 0.0 0.7 colrecfi /xm3 xm1 150 sub def /ym3 ym1 350 sub def xm3 ym3 300 300 0.0 0.0 0.0 0.8 colrecfi 0 setgray /xm8 xm1 920 add def %start lower text line /ym8 ym1 25 sub def %arrow 100 higher xm8 ym8 25 sub moveto 0 -200 rlineto stroke xm8 ym8 25 sub moveto 50 -100 rlineto stroke xm8 ym8 25 sub moveto -50 -100 rlineto stroke xm8 ym8 25 add moveto 0 200 rlineto stroke xm8 ym8 25 add moveto 50 100 rlineto stroke xm8 ym8 25 add moveto -50 100 rlineto stroke xm8 100 add ym8 500 add moveto TM (gap:) showen xm8 100 add ym8 200 add moveto TK (0) show 30 0 rmoveto (mm) show xm8 100 add ym8 050 sub moveto TK (1) show 30 0 rmoveto (mm) show xm8 100 add ym8 300 sub moveto TK (2) show 30 0 rmoveto (mm) show /xm9 xm1 3200 sub def /ym9 ym1 1400 sub def xm9 ym9 moveto TM (B\374robeobachtungsabstand 500) showde (office viewing distance 500) showen 30 0 rmoveto (mm) show showpage grestore %%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/fen0/fen01-2a FNK11-2n %%BoundingBox: 70 83 232 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/fen0/fen0.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:2024030112200) /ModDate (D:20240301112200) /DOCINFO pdfmark12 [ /View [ /Fit ] /DOCVIEW pdfmark12 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TS {200 /Times-ISOL1 FS} bind def /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBS {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 {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 {200 /Symbol FS} bind def /SK {250 /Symbol FS} bind def /SM {290 /Symbol FS} bind def /SG {350 /Symbol FS} bind def /CSS {115 /Courier-ISOL1 FS} bind def /CSK {140 /Courier-ISOL1 FS} bind def /CS {200 /Courier-ISOL1 FS} bind def /CK {250 /Courier-ISOL1 FS} bind def /CM {300 /Courier-ISOL1 FS} bind def /CG {350 /Courier-ISOL1 FS} bind def /CBSS {115 /CourierB-ISOL1 FS} bind def /CBSK {140 /CourierB-ISOL1 FS} bind def /CBS {200 /CourierB-ISOL1 FS} bind def /CBK {250 /CourierB-ISOL1 FS} bind def /CBM {300 /CourierB-ISOL1 FS} bind def /CBG {350 /CourierB-ISOL1 FS} bind def /ns {350 /Times-ISOL1 FS show} bind def /ks {350 /TimesI-ISOL1 FS show} bind def /bs {350 /TimesB-ISOL1 FS show} bind def /js {350 /TimesBI-ISOL1 FS show} bind def /ss {350 /Symbol FS show} bind def /is {300 /Times-ISOL1 FS 0 -90 rmoveto show 0 90 rmoveto} bind def /es {300 /Times-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto} bind def /ib {300 /TimesB-ISOL1 FS 0 -90 rmoveto show 0 90 rmoveto} bind def /eb {300 /TimesB-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto} bind def /ip {300 /Times-ISOL1 FS 50 50 rmoveto (\267) show 50 -50 rmoveto} bind def %20% kleiner /ns2 {300 /Times-ISOL1 FS show TM} bind def /ks2 {300 /TimesI-ISOL1 FS show TM} bind def /bs2 {300 /TimesB-ISOL1 FS show TM} bind def /js2 {300 /TimesBI-ISOL1 FS show TM} bind def /ss2 {300 /Symbol FS show TM} bind def /is2 {250 /Times-ISOL1 FS 0 -70 rmoveto show 0 70 rmoveto TM} bind def /es2 {250 /Times-ISOL1 FS 0 160 rmoveto show 0 -160 rmoveto TM} bind def /ib2 {250 /TimesB-ISOL1 FS 0 -70 rmoveto show 0 70 rmoveto TM} bind def /eb2 {250 /TimesB-ISOL1 FS 0 160 rmoveto show 0 -160 rmoveto TM} bind def /ip2 {250 /Times-ISOL1 FS 40 40 rmoveto (\267) show 40 -40 rmoveto TM} bind def %40% kleiner /ns4 {250 /Times-ISOL1 FS show TK} bind def /ks4 {250 /TimesI-ISOL1 FS show TK} bind def /bs4 {250 /TimesB-ISOL1 FS show TK} bind def /js4 {250 /TimesBI-ISOL1 FS show TK} bind def /ss4 {250 /Symbol FS show TK} bind def /is4 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /es4 {200 /Times-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ib4 {200 /TimesB-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /eb4 {200 /TimesB-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ip4 {200 /Times-ISOL1 FS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def %XCHA01.PS BEG /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 {setcmyk_olvcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmyk_olvcolor rec stroke} bind def /rem %x, y width heigth {/heigth exch 0.5 mul def /width exch 0.5 mul def /yleftb exch heigth 0.5 mul add def /xleftb exch width 0.5 mul add def xleftb yleftb moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colremfi %x y width heigth c m y k {setcmykcolor rem fill} bind def /colremst %x y width heigth c m y k {setcmykcolor rem stroke} bind def /tzr {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzg {1.0 0.0 1.0 0.0} bind def /tzb {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tfr {0.0 1.0 1.0 0.0 setcmyk_olvcolor} bind def %Reproduktionsfarben /tfg {1.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def /tfb {1.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def /tfc {1.0 0.0 0.0 0.0 setcmyk_olvcolor} bind def /tfm {0.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def /tfy {0.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def /tfrz {0.0 1.0 1.0 0.5 setcmyk_olvcolor} bind def %Reproduktionsfarben /tfgz {1.0 0.0 1.0 0.5 setcmyk_olvcolor} bind def /tfbz {1.0 1.0 0.0 0.5 setcmyk_olvcolor} bind def /tfcz {1.0 0.0 0.0 0.5 setcmyk_olvcolor} bind def /tfmz {0.0 1.0 0.0 0.5 setcmyk_olvcolor} bind def /tfyz {0.0 0.0 1.0 0.5 setcmyk_olvcolor} bind def /tfn {0.0 0.0 0.0 1.00 setcmyk_olvcolor} bind def %Graureihe /tfd {0.0 0.0 0.0 0.75 setcmyk_olvcolor} bind def /tfz {0.0 0.0 0.0 0.50 setcmyk_olvcolor} bind def /tfh {0.0 0.0 0.0 0.25 setcmyk_olvcolor} bind def /tfw {0.0 0.0 0.0 0.00 setcmyk_olvcolor} bind def /cvishow {cvi 10 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show} def %%EndProlog gsave %LANINDL2 START 20150505 /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 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 % 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 %always independent of intended output %5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def %75 85 moveto %lanind cvishow (-) show %colorm cvishow %deintp cvishow %xcolor cvishow %xchart cvishow %pchart cvishow %colsep cvishow (-L) show pmetam cvishow gsave %LANINDL2 END 4 /Times-ISOL1 FS 74 86 moveto (fen01-2a FNK11-2n) show %xchart 0 eq {(N) show} % {deintp colorm 2 mul add cvishow} ifelse 72 90 translate 0.01 MM 0.01 MM scale /xwidth 5700 def /ywidth 4000 def 15 setlinewidth 0.0 0.0 0.0 0.4 setcmyk_olvcolor 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmyk_olvcolor 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath stroke 600 400 translate 15 setlinewidth 0 0 moveto 4000 0 rlineto stroke 0 0 moveto 0 3000 rlineto stroke 300 /Times-ISOL1 FS %! 0,5-a-Einheiten = 1000 Skalen-Einheiten 1500 100 moveto TM (Farbmusterl\374cke in mm) showde (colour sample gap in mm) showea 0 50 moveto 0 -100 rlineto stroke 1000 50 moveto 0 -100 rlineto stroke 2000 50 moveto 0 -100 rlineto stroke 3000 50 moveto 0 -100 rlineto stroke 4000 50 moveto 0 -100 rlineto stroke TK -80 -300 moveto (0,0) show 920 -300 moveto (0,5) show 1920 -300 moveto (1,0) show 2920 -300 moveto (1,5) show 3920 -300 moveto (2,0) show %! 100 S-Einheiten = 1000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 1000 moveto 100 0 rlineto stroke -50 2000 moveto 100 0 rlineto stroke -50 3000 moveto 100 0 rlineto stroke TK -500 -80 moveto (0,0) show -500 920 moveto (0,5) show -500 1920 moveto (1,0) show -500 2920 moveto (1,5) show -500 3300 moveto TM (Farbdifferenz ) showde %08310-3 1 (colour difference ) showea %18310-3 1 SM (D) show TIM (E*) show (ab) is TM ( an Schwelle) showde ( at threshold) showea %Farbabstaende_geometrischer_Abstand.xls in Kittelmann_10 %farbmuster 0 to 6 %geometrischer Abstand 0 to 3 /x_gap [0.0000 0.3125 0.6250 1.2500] def /y_delta_E*ab [%7 colour x 4 distances 0.198 0.538 0.557 0.549 %0 0.267 0.692 0.689 0.751 %1 0.405 1.001 1.299 1.413 %2 0.232 0.821 0.917 0.917 %3 0.224 0.599 0.725 0.728 %4 0.279 0.664 0.764 0.798 %5 0.233 0.555 0.739 0.837 %6 ] def /Lab* [%7 samples (50 0 0) (90 0 0) (10 0 0) (50 40 0) (50 -40 0) (50 0 40) (50 0 -40) ] def %cmyk colours of sample 50/0/0 /tfc0 {0.0 0.0 0.0 0.5 setcmyk_olvcolor} bind def %mean grey /tfc1 {0.0 0.0 0.0 0.0 setcmyk_olvcolor} bind def %white /tfc2 {0.0 0.0 0.0 1.0 setcmyk_olvcolor} bind def %black /tfc3 {0.0 1.0 1.0 0.0 setcmyk_olvcolor} bind def %red /tfc4 {1.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def %green /tfc5 {0.0 0.0 1.0 0.2 setcmyk_olvcolor} bind def %dark yellow /tfc6 {1.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def %light blue 3100 2900 moveto TIM tfw (colour pair) show 3300 2600 moveto (L* a* b*) show 0 1 5 {/i exch def %i=0,5 newpath i 0 eq {tfc0} if i 1 eq {tfc1} if i 2 eq {tfc2} if i 3 eq {tfc3} if i 4 eq {tfc4} if i 5 eq {tfc5} if 3100 2300 i 300 mul sub 100 add 50 0 360 arc fill tfw TBK newpath 3300 2300 i 300 mul sub moveto Lab* i get show newpath } for %i=0,5 newpath 0 1 5 {/i exch def %i=0,5 /i4 i 4 mul def i 0 eq {tfc0} if i 1 eq {tfc1} if i 2 eq {tfc2} if i 3 eq {tfc3} if i 4 eq {tfc4} if i 5 eq {tfc5} if 0 1 3 {/j exch def %j=0,3 x_gap j get 2000 mul y_delta_E*ab i4 j add get 2000 mul 50 0 360 arc fill } for %j=0,3 x_gap 0 get 2000 mul y_delta_E*ab i4 0 add get 2000 mul moveto x_gap 1 get 2000 mul y_delta_E*ab i4 1 add get 2000 mul lineto x_gap 2 get 2000 mul y_delta_E*ab i4 2 add get 2000 mul lineto x_gap 3 get 2000 mul y_delta_E*ab i4 3 add get 2000 mul lineto stroke } for %i=0,5 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/fen0/fen01-3a FNK11-3n %%BoundingBox: 70 83 236 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/fen0/fen0.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:2024030112200) /ModDate (D:20240301112200) /DOCINFO pdfmark13 [ /View [ /Fit ] /DOCVIEW pdfmark13 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } 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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /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 /SK {250 /Symbol FS} bind def /SM {300 /Symbol FS} bind def /SG {350 /Symbol 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 {setcmyk_olvcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmyk_olvcolor rec stroke} bind 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 {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /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 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 % 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 %always independent of intended output %5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def %75 85 moveto %lanind cvishow (-) show %colorm cvishow %deintp cvishow %xcolor cvishow %xchart cvishow %pchart cvishow %colsep cvishow (-L) show pmetam cvishow gsave %LANINDL2 END 4 /Times-ISOL1 FS 74 86 moveto (fen01-3a FNK11-3n) show %xchart 0 eq {(N) show} % {deintp colorm 2 mul add cvishow} ifelse 72 90 translate 0.01 MM 0.01 MM scale %d2:[rr.b4f]bausz8y.eps 15 setlinewidth 0.0 0.0 0.5 0.0 setcmyk_olvcolor 0 0 moveto 5700 0 rlineto 0 4000 rlineto -5700 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmyk_olvcolor 0 0 moveto 5700 0 rlineto 0 4000 rlineto -5700 0 rlineto closepath stroke /ishowg {0 -50 rmoveto TK (g) show 0 50 rmoveto TM} def /ishowp {0 -50 rmoveto TK (p) show 0 50 rmoveto TM} def /ishoww {0 -50 rmoveto TK (w) show 0 50 rmoveto TM} def /eshow2 {0 100 rmoveto TK (2) show 0 -100 rmoveto TM} def /ishowD65 {0 -50 rmoveto TK (D65) show 0 50 rmoveto TM} def /ishowA00 {0 -50 rmoveto TK (A) show 0 50 rmoveto TM} def /ishowP00 {0 -50 rmoveto TK (P) show 0 50 rmoveto TM} def /ishowD00 {0 -50 rmoveto TK (D) show 0 50 rmoveto TM} def %viewing situation left /xm1 1300 def %center circle /ym1 2800 def /xm0 xm1 800 sub def /ym0 ym1 800 sub def xm0 ym0 1600 1600 0.0 0.0 0.0 0.0 colrecfi xm0 ym0 1600 1600 0.0 0.0 0.0 1.0 colrecst /xm0 xm1 640 sub def /ym0 ym1 640 sub def xm0 ym0 1280 1280 0.0 0.0 0.0 0.4 colrecfi 0 setgray /xm2 xm1 0800 sub def %start upper line /ym2 ym1 1050 add def /xm3 xm2 1600 add def %end upper line /ym3 ym2 def xm2 ym2 moveto 1600 0 rlineto stroke xm2 ym2 moveto 100 050 rlineto stroke xm2 ym2 moveto 100 -050 rlineto stroke xm3 ym3 moveto -100 050 rlineto stroke xm3 ym3 moveto -100 -050 rlineto stroke xm3 50 add ym3 100 sub moveto TM (10\260) show 0 setgray /xm2 xm1 0640 sub def %start upper line /ym2 ym1 0900 add def /xm3 xm2 1280 add def %end upper line /ym3 ym2 def xm2 ym2 moveto 1280 0 rlineto stroke xm2 ym2 moveto 100 050 rlineto stroke xm2 ym2 moveto 100 -050 rlineto stroke xm3 ym3 moveto -100 050 rlineto stroke xm3 ym3 moveto -100 -050 rlineto stroke xm2 500 sub ym3 100 sub moveto TM (8\260) show /xm4 xm2 def %start lower text /ym4 ym1 1050 sub def /dytext 350 def xm4 ym4 moveto TIM (Y) show ishoww TM (=6) show TIM (Y) show ishowg xm4 ym4 dytext sub moveto TIM (t) show ishowp (=25) show TIM (s) show xm1 550 sub ym1 550 sub moveto TIM (Y) show ishowg xm1 200 add ym1 550 sub moveto TIM (L) show ishowg xm1 1150 sub ym1 550 sub moveto TIM (Y) show ishoww xm1 0800 add ym1 550 sub moveto TIM (L) show ishoww /xm5 xm4 600 sub def /ym5 ym4 dytext 2 mul sub def xm5 ym5 moveto TIM (Y) show -20 0 rmoveto ishoww TM (=88,6, ) show TIM (Y) show -20 0 rmoveto ishowg TM (=14,4, ) show TIM (L) show ishoww TM (=300cd/m) show eshow2 TIM (, L) show ishowg TM (=50cd/m) show eshow2 /xm6 xm4 600 sub def /ym6 ym4 dytext 3 mul sub def xm6 ym6 moveto TM (0,01) show TIM (Y) show ishoww TM (<=) show TIM (Y) show TM (<=100) show TIM (Y) show ishoww TM ( \050) show %TIM (Y) show TIM (Y) show TK 0 -30 rmoveto (D) show 0 30 rmoveto TM (<=200,) show TIM (Y) show TK 0 -30 rmoveto (P) show 0 30 rmoveto TM (<=1200) show (\051) show /xm7 xm4 600 sub def /ym7 ym4 dytext 4 mul sub def xm7 ym7 moveto TIM (L) show ishoww TM (=300cd/m) show eshow2 TM (\050120cd/m) show eshow2 TM (\051) show %data K. Richter %/xanD 0.3252 def /yanD 0.3598 def %/xanP 0.3930 def /yanP 0.4148 def %achromatic central and surround field TIM (, x) show TM ishowP00 (=0,33) show TIM (, y) show TM ishowP00 (=0,36) show /xm8 xm4 600 sub def /ym8 ym4 dytext 5 mul sub 50 add def xm8 ym8 moveto TIK (K. Richter, BAM Report 115 (1985), 60-92) show %***************************************************** %viewing situation right /xm1 3800 def %center circle /ym1 2800 def /xm0 xm1 800 sub def /ym0 ym1 800 sub def xm0 ym0 1600 1600 0.0 0.0 0.0 0.0 colrecfi xm0 ym0 1600 1600 0.0 0.0 0.0 1.0 colrecst /xm0 xm1 640 sub def /ym0 ym1 640 sub def xm0 ym0 1280 1280 0.0 0.0 0.0 0.4 colrecfi 0 setgray /xm2 xm1 0800 sub def %start upper line /ym2 ym1 1050 add def /xm3 xm2 1600 add def %end upper line /ym3 ym2 def xm2 ym2 moveto 1600 0 rlineto stroke xm2 ym2 moveto 100 050 rlineto stroke xm2 ym2 moveto 100 -050 rlineto stroke xm3 ym3 moveto -100 050 rlineto stroke xm3 ym3 moveto -100 -050 rlineto stroke xm3 50 add ym3 100 sub moveto TM (10\260) show 0 setgray /xm2 xm1 0640 sub def %start upper line /ym2 ym1 0900 add def /xm3 xm2 1280 add def %end upper line /ym3 ym2 def xm2 ym2 moveto 1280 0 rlineto stroke xm2 ym2 moveto 100 050 rlineto stroke xm2 ym2 moveto 100 -050 rlineto stroke xm3 ym3 moveto -100 050 rlineto stroke xm3 ym3 moveto -100 -050 rlineto stroke xm2 500 sub ym3 100 sub moveto TM (8\260) show xm1 550 sub ym1 550 sub moveto TIM (Y) show ishowg xm1 200 add ym1 550 sub moveto TIM (L) show ishowg xm1 1150 sub ym1 550 sub moveto TIM (Y) show ishoww xm1 0800 add ym1 550 sub moveto TIM (L) show ishoww /xm4 xm1 200 sub def %start lower text line /ym4 ym1 1050 sub def %arrow 100 higher xm4 ym4 100 add moveto 400 0 rlineto stroke xm4 ym4 100 add moveto 100 50 rlineto stroke xm4 ym4 100 add moveto 100 -50 rlineto stroke xm4 400 add ym4 100 add moveto -100 50 rlineto stroke xm4 400 add ym4 100 add moveto -100 -50 rlineto stroke xm4 500 add ym4 moveto TM (2\260) show %( \0500,5/1/2/3\260) show (\051) show /xm5 xm4 def /ym5 ym4 dytext sub def xm5 ym5 moveto TIM (t) show ishowp TM (=25) show TIM (s) show TM %( \050) show TM (25) show TIM (s) show (\051) show xm1 250 sub ym1 300 add moveto TIM (Y, L) show xm1 585 sub ym1 100 sub moveto SM (D) show TIM (Y) show xm1 220 add ym1 100 sub moveto SM (D) show TIM (L) show newpath 0.0 0.0 0.0 0.7 setcmyk_olvcolor xm1 ym1 200 0 180 arc fill 0.0 0.0 0.0 0.8 setcmyk_olvcolor xm1 ym1 200 180 360 arc fill %chromaticity diagramm 6700 400 translate 0 setgray 0 0 moveto 4000 0 rlineto stroke 0 0 moveto 0 3200 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten 300 /Times-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 -100 -300 moveto (0,0) show 700 -300 moveto (0,2) show 1500 -300 moveto (0,4) show 2300 -300 moveto (0,6) show 3100 -300 moveto (0,8) show 3900 -300 moveto (1,0) 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 -450 -80 moveto (0,0) show -450 720 moveto (0,2) show -450 1520 moveto (0,4) show -450 2320 moveto (0,6) show -450 3120 moveto (0,8) show TIG -300 2800 moveto (y) show 4200 150 moveto (x) show TIM 2600 150 moveto (CIE 1931) show TM 1100 3200 moveto (Normfarbtafel) showde %0fen00-5 00501 (chromaticity diagram) showen %1fen00-5 00501 (diagrama de cromaticidad) showes %2fen00-5 00501 (diagramme chromatica) showfr %3fen00-5 00501 (diagramma di cromaticit\340) showit %4fen00-5 00501 (chromaticity diagram) showjp %5fen00-5 00501 2600 2850 moveto (2\260\255Beobachter) showde %0fen00-5 01501 (2\260\255 observer) showen %1fen00-5 01501 (observador de 2\260) showes %2fen00-5 01501 (2\260\255 observateur) showfr %3fen00-5 01501 (2\260\255 l'osservatore) showit %4fen00-5 01501 (2\260\255 observer) showjp %5fen00-5 01501 2600 2500 moveto (Umfelder:) showde %0fen00-5 03501 (surrounds:) showen %1fen00-5 03501 (surrounds:) showes %2fen00-5 03501 (surrounds:) showfr %3fen00-5 03501 (surrounds:) showit %4fen00-5 03501 (surrounds:) showjp %5fen00-5 03501 2600 2150 moveto (D und P) showde %0fen00-5 04501 (D and P) showen %1fen00-5 04501 (D and P) showes %2fen00-5 04501 (D et P) showfr %3fen00-5 04501 (D and P) showit %4fen00-5 04501 (D and P) showjp %5fen00-5 04501 -600 -400 translate %1000 02 **************************************** %ANF PROZSPEP.FOR: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 600 400 translate 693 19 moveto %400 693 19 692 19 690 19 curveto 688 19 685 20 681 23 curveto %425 675 27 667 34 657 43 curveto 644 55 626 70 603 90 curveto %455 575 118 542 159 496 231 curveto 438 347 365 530 274 802 curveto %485 181 1179 93 1650 32 2153 curveto 15 2619 55 3000 155 3248 curveto %515 297 3335 456 3304 618 3223 curveto 771 3126 918 3017 1063 2897 curveto %545 1206 2769 1349 2635 1492 2497 curveto 1634 2358 1776 2218 1915 2080 curveto %575 2049 1946 2179 1817 2300 1696 curveto 2411 1585 2508 1489 2592 1405 curveto 2663 1336 2720 1278 2765 1233 curveto 2802 1197 2831 1168 2856 1143 curveto 2876 1123 2892 1107 2903 1096 curveto 2913 1086 2919 1080 2924 1075 curveto 2927 1072 2930 1069 2933 1066 curveto 2936 1063 2937 1062 2938 1061 curveto 2938 1061 2939 1060 2744 971 curveto 2261 748 2040 643 1908 582 curveto 1819 541 1758 512 1708 490 curveto 1660 468 1612 445 1558 420 curveto 1495 391 1419 356 1320 309 curveto 1184 247 986 155 693 19 curveto stroke 0.0 0.0 0.0 0.0 setcmyk_olvcolor 693 19 30 0 360 arc fill % 400 681 23 30 0 360 arc fill % 425 626 70 30 0 360 arc fill % 450 438 347 30 0 360 arc fill % 475 32 2153 30 0 360 arc fill % 500 456 3304 30 0 360 arc fill % 525 1206 2769 30 0 360 arc fill % 550 1915 2080 30 0 360 arc fill % 575 2508 1489 30 0 360 arc fill % 600 2802 1197 30 0 360 arc fill % 625 2903 1096 30 0 360 arc fill % 650 2930 1069 30 0 360 arc fill % 675 2938 1061 30 0 360 arc fill % 700 2261 748 30 0 360 arc fill %500c 1708 490 30 0 360 arc fill %525c 1419 356 30 0 360 arc fill %550c 0.0 0.0 0.0 1.0 setcmyk_olvcolor 693 19 30 0 360 arc stroke % 400 681 23 30 0 360 arc stroke % 425 626 70 30 0 360 arc stroke % 450 438 347 30 0 360 arc stroke % 475 32 2153 30 0 360 arc stroke % 500 456 3304 30 0 360 arc stroke % 525 1206 2769 30 0 360 arc stroke % 550 1915 2080 30 0 360 arc stroke % 575 2508 1489 30 0 360 arc stroke % 600 2802 1197 30 0 360 arc stroke % 625 2903 1096 30 0 360 arc stroke % 650 2930 1069 30 0 360 arc stroke % 675 2938 1061 30 0 360 arc stroke % 700 2261 748 30 0 360 arc stroke %500c 1708 490 30 0 360 arc stroke %525c 1419 356 30 0 360 arc stroke %550c 1250 1316 30 0 360 arc fill %D65 1250 1316 60 0 360 arc stroke %D65 0.0 0.0 0.0 1.0 setcmyk_olvcolor 250 /TimesI-ISOL1 FS 693 375 sub 19 250 sub moveto (400) show % 681 600 sub 23 100 sub moveto (425) show % 626 450 sub 70 100 sub moveto (450) show 438 400 sub 347 225 sub moveto (475) show 32 450 sub 2153 100 sub moveto (500) show 456 100 add 3304 moveto (525) show 1206 100 add 2769 moveto (550) show 1915 100 add 2080 moveto (575) show 2508 100 add 1489 moveto (600) show 2802 100 add 1197 moveto (625) show % 2903 100 add 1096 moveto (650) show % 2930 100 add 1069 moveto (675) show 2938 100 add 1061 100 sub moveto (700) show 2261 100 add 748 200 sub moveto (500c) show 1708 100 add 490 200 sub moveto (525c) show 1419 356 250 sub moveto (550c) show 1250 600 sub 1316 200 sub moveto (D65 ) show newpath [100] 0 setdash %475 - 575 438 347 moveto %475 1915 2080 lineto stroke %575 newpath 1333 1333 30 0 360 arc fill %E newpath 1333 100 add 1333 100 sub moveto (E ) show %/xanP 0.3127 def /yanP 0.3290 def %page XX /xanP 0.3977 def /yanP 0.4178 def /YP 16.67 def %page 10, 49 und 50 %/xanP 0.4196 def /yanP 0.4198 def %page 23 %/xanD 0.3127 def /yanD 0.3290 def %page XX /xanD 0.3252 def /yanD 0.3598 def /YD 16.67 %page 10, 44, 46, 51, 52, 55 %/xanD 0.3127 def /yanD 0.3290 def %page 24 %/xanB 0.2589 def /yanB 0.2979 def %p. XX /xanB 0.2800 def /yanB 0.3200 def /YB=16.67 %p. 10, 45 %/xanB 0.2000 def /yanB 0.2000 def %p. 26 %/xanM 0.4880 def /yanM 0.2235 def %p. XX /xanM 0.4480 def /yanM 0.2580 def /YM 16.67 %p. 10, 53 %/xanB 0.2800 def /yanB 0.4700 def %p. 26 %/xanT 0.1423 def /yanT 0.3907 def %p. XX /xanT 0.2400 def /yanT 0.3750 def /YT 16.67 def %p. 10, 54 %/xanG 0.2800 def /yanB 0.4700 def %p. 26 %/xanJ 0.4674 def /yanJ 0.4829 def %p. XX /xanJ 0.4420 def /yanJ 0.4600 def %p. 10, 47 %/xanJ 0.4300 def /yanJ 0.4600 def %. 27 %/xanR 0.2589 def /yanB 0.2979 def %p. XX %/xanR 0.4000 def /yanB 0.3700 def %p. 28 /MULYA 4000 def newpath xanP MULYA mul yanP MULYA mul 30 0 360 arc fill %P newpath xanP MULYA mul 100 add yanP MULYA mul 100 sub moveto (P) show newpath xanD MULYA mul yanD MULYA mul 30 0 360 arc fill %D newpath xanD MULYA mul 200 sub yanD MULYA mul 050 add moveto (D) show %xanB MULYA mul yanB MULYA mul 30 0 360 arc fill %B %xanB MULYA mul 250 sub yanB MULYA mul 100 sub moveto (B) show %xanM MULYA mul yanM MULYA mul 30 0 360 arc fill %M (R) %xanM MULYA mul 100 add yanM MULYA mul 100 sub moveto (M) show %xanT MULYA mul yanT MULYA mul 30 0 360 arc fill %T (G) %xanT MULYA mul 200 sub yanT MULYA mul 100 sub moveto (T) show %xanJ MULYA mul yanJ MULYA mul 30 0 360 arc fill %Y %xanJ MULYA mul 100 add yanJ MULYA mul 100 sub moveto (Y) show -6700 -400 translate %ENDE: 1 showpage grestore %%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/fen0/fen01-4a FNK11-4n %%BoundingBox: 70 83 236 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/fen0/fen0.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:2024030112200) /ModDate (D:20240301112200) /DOCINFO pdfmark14 [ /View [ /Fit ] /DOCVIEW pdfmark14 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } 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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /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 /SK {250 /Symbol FS} bind def /SM {300 /Symbol FS} bind def /SG {350 /Symbol 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 {setcmyk_olvcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmyk_olvcolor rec stroke} bind 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 {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /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 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 % 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 %always independent of intended output %5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def %75 85 moveto %lanind cvishow (-) show %colorm cvishow %deintp cvishow %xcolor cvishow %xchart cvishow %pchart cvishow %colsep cvishow (-L) show pmetam cvishow gsave %LANINDL2 END 4 /Times-ISOL1 FS 74 86 moveto (fen01-4a FNK11-4n) show %xchart 0 eq {(N) show} % {deintp colorm 2 mul add cvishow} ifelse 72 90 translate 0.01 MM 0.01 MM scale %d2:[rr.b4f]bausz8y.eps 15 setlinewidth 0.0 0.0 0.5 0.0 setcmyk_olvcolor 0 0 moveto 5700 0 rlineto 0 4000 rlineto -5700 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmyk_olvcolor 0 0 moveto 5700 0 rlineto 0 4000 rlineto -5700 0 rlineto closepath stroke /ishowg {0 -50 rmoveto TK (g) show 0 50 rmoveto TM} def /ishowp {0 -50 rmoveto TK (p) show 0 50 rmoveto TM} def /ishoww {0 -50 rmoveto TK (w) show 0 50 rmoveto TM} def /eshow2 {0 100 rmoveto TK (2) show 0 -100 rmoveto TM} def /ishowD65 {0 -50 rmoveto TK (D65) show 0 50 rmoveto TM} def /ishowA00 {0 -50 rmoveto TK (A) show 0 50 rmoveto TM} def /ishowP00 {0 -50 rmoveto TK (P) show 0 50 rmoveto TM} def /ishowD00 {0 -50 rmoveto TK (D) show 0 50 rmoveto TM} def %chromaticity diagramm 0800 400 translate 0 setgray 0 0 moveto 4000 0 rlineto stroke 0 0 moveto 0 3200 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten 300 /Times-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 -100 -300 moveto (0,0) show 700 -300 moveto (0,2) show 1500 -300 moveto (0,4) show 2300 -300 moveto (0,6) show 3100 -300 moveto (0,8) show 3900 -300 moveto (1,0) 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 -450 -80 moveto (0,0) show -450 720 moveto (0,2) show -450 1520 moveto (0,4) show -450 2320 moveto (0,6) show -450 3120 moveto (0,8) show TIG -300 2800 moveto (y) show 4200 150 moveto (x) show TIM 2600 150 moveto (CIE 1931) show TM 1100 3200 moveto (Normfarbtafel) showde %0fen00-5 00501 (chromaticity diagram) showen %1fen00-5 00501 (diagrama de cromaticidad) showes %2fen00-5 00501 (diagramme chromatica) showfr %3fen00-5 00501 (diagramma di cromaticit\340) showit %4fen00-5 00501 (chromaticity diagram) showjp %5fen00-5 00501 2600 2850 moveto (2\260\255Beobachter) showde %0fen00-5 01501 (2\260\255 observer) showen %1fen00-5 01501 (observador de 2\260) showes %2fen00-5 01501 (2\260\255 observateur) showfr %3fen00-5 01501 (2\260\255 l'osservatore) showit %4fen00-5 01501 (2\260\255 observer) showjp %5fen00-5 01501 2600 2500 moveto (Umfelder:) showde %0fen00-5 03501 (surrounds:) showen %1fen00-5 03501 (surrounds:) showes %2fen00-5 03501 (surrounds:) showfr %3fen00-5 03501 (surrounds:) showit %4fen00-5 03501 (surrounds:) showjp %5fen00-5 03501 2600 2150 moveto (D und P) showde %0fen00-5 04501 (D and P) showen %1fen00-5 04501 (D and P) showes %2fen00-5 04501 (D et P) showfr %3fen00-5 04501 (D and P) showit %4fen00-5 04501 (D and P) showjp %5fen00-5 04501 -600 -400 translate %1000 02 **************************************** %ANF PROZSPEP.FOR: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 600 400 translate 693 19 moveto %400 693 19 692 19 690 19 curveto 688 19 685 20 681 23 curveto %425 675 27 667 34 657 43 curveto 644 55 626 70 603 90 curveto %455 575 118 542 159 496 231 curveto 438 347 365 530 274 802 curveto %485 181 1179 93 1650 32 2153 curveto 15 2619 55 3000 155 3248 curveto %515 297 3335 456 3304 618 3223 curveto 771 3126 918 3017 1063 2897 curveto %545 1206 2769 1349 2635 1492 2497 curveto 1634 2358 1776 2218 1915 2080 curveto %575 2049 1946 2179 1817 2300 1696 curveto 2411 1585 2508 1489 2592 1405 curveto 2663 1336 2720 1278 2765 1233 curveto 2802 1197 2831 1168 2856 1143 curveto 2876 1123 2892 1107 2903 1096 curveto 2913 1086 2919 1080 2924 1075 curveto 2927 1072 2930 1069 2933 1066 curveto 2936 1063 2937 1062 2938 1061 curveto 2938 1061 2939 1060 2744 971 curveto 2261 748 2040 643 1908 582 curveto 1819 541 1758 512 1708 490 curveto 1660 468 1612 445 1558 420 curveto 1495 391 1419 356 1320 309 curveto 1184 247 986 155 693 19 curveto stroke 0.0 0.0 0.0 0.0 setcmyk_olvcolor 693 19 30 0 360 arc fill % 400 681 23 30 0 360 arc fill % 425 626 70 30 0 360 arc fill % 450 438 347 30 0 360 arc fill % 475 32 2153 30 0 360 arc fill % 500 456 3304 30 0 360 arc fill % 525 1206 2769 30 0 360 arc fill % 550 1915 2080 30 0 360 arc fill % 575 2508 1489 30 0 360 arc fill % 600 2802 1197 30 0 360 arc fill % 625 2903 1096 30 0 360 arc fill % 650 2930 1069 30 0 360 arc fill % 675 2938 1061 30 0 360 arc fill % 700 2261 748 30 0 360 arc fill %500c 1708 490 30 0 360 arc fill %525c 1419 356 30 0 360 arc fill %550c 0.0 0.0 0.0 1.0 setcmyk_olvcolor 693 19 30 0 360 arc stroke % 400 681 23 30 0 360 arc stroke % 425 626 70 30 0 360 arc stroke % 450 438 347 30 0 360 arc stroke % 475 32 2153 30 0 360 arc stroke % 500 456 3304 30 0 360 arc stroke % 525 1206 2769 30 0 360 arc stroke % 550 1915 2080 30 0 360 arc stroke % 575 2508 1489 30 0 360 arc stroke % 600 2802 1197 30 0 360 arc stroke % 625 2903 1096 30 0 360 arc stroke % 650 2930 1069 30 0 360 arc stroke % 675 2938 1061 30 0 360 arc stroke % 700 2261 748 30 0 360 arc stroke %500c 1708 490 30 0 360 arc stroke %525c 1419 356 30 0 360 arc stroke %550c 1250 1316 30 0 360 arc fill %D65 1250 1316 60 0 360 arc stroke %D65 0.0 0.0 0.0 1.0 setcmyk_olvcolor 250 /TimesI-ISOL1 FS 693 375 sub 19 250 sub moveto (400) show % 681 600 sub 23 100 sub moveto (425) show % 626 450 sub 70 100 sub moveto (450) show 438 400 sub 347 225 sub moveto (475) show 32 450 sub 2153 100 sub moveto (500) show 456 100 add 3304 moveto (525) show 1206 100 add 2769 moveto (550) show 1915 100 add 2080 moveto (575) show 2508 100 add 1489 moveto (600) show 2802 100 add 1197 moveto (625) show % 2903 100 add 1096 moveto (650) show % 2930 100 add 1069 moveto (675) show 2938 100 add 1061 100 sub moveto (700) show 2261 100 add 748 200 sub moveto (500c) show 1708 100 add 490 200 sub moveto (525c) show 1419 356 250 sub moveto (550c) show 1250 600 sub 1316 200 sub moveto (D65 ) show newpath [100] 0 setdash %475 - 575 438 347 moveto %475 1915 2080 lineto stroke %575 newpath 1333 1333 30 0 360 arc fill %E newpath 1333 100 add 1333 100 sub moveto (E ) show %/xanP 0.3127 def /yanP 0.3290 def %page XX /xanP 0.3977 def /yanP 0.4178 def /YP 16.67 def %page 10, 49 und 50 %/xanP 0.4196 def /yanP 0.4198 def %page 23 %/xanD 0.3127 def /yanD 0.3290 def %page XX /xanD 0.3252 def /yanD 0.3598 def /YD 16.67 %page 10, 44, 46, 51, 52, 55 %/xanD 0.3127 def /yanD 0.3290 def %page 24 %/xanB 0.2589 def /yanB 0.2979 def %p. XX /xanB 0.2800 def /yanB 0.3200 def /YB=16.67 %p. 10, 45 %/xanB 0.2000 def /yanB 0.2000 def %p. 26 %/xanM 0.4880 def /yanM 0.2235 def %p. XX /xanM 0.4480 def /yanM 0.2580 def /YM 16.67 %p. 10, 53 %/xanB 0.2800 def /yanB 0.4700 def %p. 26 %/xanT 0.1423 def /yanT 0.3907 def %p. XX /xanT 0.2400 def /yanT 0.3750 def /YT 16.67 def %p. 10, 54 %/xanG 0.2800 def /yanB 0.4700 def %p. 26 %/xanJ 0.4674 def /yanJ 0.4829 def %p. XX /xanJ 0.4420 def /yanJ 0.4600 def %p. 10, 47 %/xanJ 0.4300 def /yanJ 0.4600 def %. 27 %/xanR 0.2589 def /yanB 0.2979 def %p. XX %/xanR 0.4000 def /yanB 0.3700 def %p. 28 /MULYA 4000 def newpath xanP MULYA mul yanP MULYA mul 30 0 360 arc fill %P newpath xanP MULYA mul 100 add yanP MULYA mul 100 sub moveto (P) show newpath xanD MULYA mul yanD MULYA mul 30 0 360 arc fill %D newpath xanD MULYA mul 200 sub yanD MULYA mul 050 add moveto (D) show %xanB MULYA mul yanB MULYA mul 30 0 360 arc fill %B %xanB MULYA mul 250 sub yanB MULYA mul 100 sub moveto (B) show %xanM MULYA mul yanM MULYA mul 30 0 360 arc fill %M (R) %xanM MULYA mul 100 add yanM MULYA mul 100 sub moveto (M) show %xanT MULYA mul yanT MULYA mul 30 0 360 arc fill %T (G) %xanT MULYA mul 200 sub yanT MULYA mul 100 sub moveto (T) show %xanJ MULYA mul yanJ MULYA mul 30 0 360 arc fill %Y %xanJ MULYA mul 100 add yanJ MULYA mul 100 sub moveto (Y) show -0800 -400 translate %ENDE: 1 showpage grestore %%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 fen01-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 (fen01-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 fen01-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 (fen01-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 fen01-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 (fen01-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 fen01-7n_60 %%BoundingBox: 70 85 421 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/fen0/fen0.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 4 def %0:top page, 4:down page %not used 72 90 translate 0.010 MM dup scale 40 setlinewidth /ymax1 08550 def /xmax1 12250 def %2x6000+250 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 {(fen00-) show} {(fen01-) show} ifelse pchartl 0 eq {(3n) show} {(7n) show} ifelse grestore gsave %00 %01 %02 /SHSl 00.0 def /SHAl 02.8 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 fen01-5a BEE40-2n %%BoundingBox: 70 85 243 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: farbe.li.tu-berlin.de/fen0/fen0.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2020090112000) /ModDate (D:2020090112000) /DOCINFO pdfmark15 [ /View [ /Fit ] /DOCVIEW pdfmark15 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } 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 /TX {120 /Times-ISOL1 FS} bind def /TV {160 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIX {120 /TimesI-ISOL1 FS} bind def /TIV {160 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBX {120 /TimesB-ISOL1 FS} bind def /TBV {160 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIX {120 /TimesBI-ISOL1 FS} bind def /TBIV {160 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /XD65 95.05 def /YD65 100.00 def /ZD65 108.90 def /xanD65 XD65 XD65 YD65 add ZD65 add div def /yanD65 YD65 XD65 YD65 add ZD65 add div def %******************************************************* %created for 10 colours of hue circle and different lightness /LCh*12 60 array def /XYZ*12 60 array def /LCh*12n 60 array def /XYZ*12n 60 array def %************************************************************** %created for 45 colours of equal chroma and different lightness /rgb*45 500 array def %5x45, NOT 3x45 /LCh*45 500 array def %5x45 /XYZ*45 500 array def %5x45 /rgb*45n 500 array def %5x45, NOT 3x45 /XYZ*45n 500 array def %5x45 /XYZ*45na 500 array def /LCh*45n 500 array def %5x45 /LCh*45na 500 array def %5x45 %************************************************************ %definition of A for xchartl=0 to 5 /XYZ*5A 5 array def /LCh*5A 5 array def /XYZ*5N 5 array def /LCh*5N 5 array def /XYZ*5W 5 array def /LCh*5W 5 array def /XYZ*5An 5 array def /LCh*5An 5 array def /XYZ*5Nn 5 array def /LCh*5Nn 5 array def /XYZ*5Wn 5 array def /LCh*5Wn 5 array def /rgb*3A 3 array def /tex*3A 3 array def /rgb*3N 3 array def /tex*3N 3 array def /rgb*3W 3 array def /tex*3W 3 array def /LCh*5Na 5 array def %a=actual /LCh*5Wa 5 array def /LCh*5Aa 5 array def %******************************************************************* /proz_XYZ_LCh* {%BEG proz_XYZ_LCh* %input XYZaref, output LChab*ref, same name in any case %output LabC*h (xchart8=0) or LABC*h (xchart8=1) /XQ Xaref XD65 div def /YQ Yaref YD65 div def /ZQ Zaref ZD65 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 xchart8 0 eq {%xchart8=0 LabCh*-CIELAB /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 } if %xchart8=0 LabCh*-CIELAB xchart8 1 eq {%xchart8=1 LabCh*=LABCh* /a*ref XQ YQ sub 250 mul def /b*ref YQ ZQ sub 100 mul def } if %xchart8=1 LabCh*=LABCh* xchart8 2 eq {%xchart8=2 LabCh*=LAB1Ch* /xanc 0.110 def /Bc 1.000 def /a20 1.000 def /b20 -0.400 def /SUM Xaref Yaref add Zaref add 0.0001 add def /xan Xaref SUM div def /yan Yaref SUM div def /zan Zaref SUM div def /SUMD65 XD65 YD65 add ZD65 add 0.0001 add def /xanD65 XD65 SUMD65 div def /yanD65 YD65 SUMD65 div def /zanD65 ZD65 SUMD65 div def /aan xan xanc sub yan div a20 mul def /ban zan yan div b20 mul def /aanD65 xanD65 xanc sub yanD65 div a20 mul def /banD65 zanD65 yanD65 div b20 mul def /a*ref aan aanD65 sub 2.5 mul Yaref mul def /b*ref ban banD65 sub 2.5 mul Bc mul Yaref mul def } if %xchart8=2 LabCh*=LAB1Ch* xchart8 3 eq {%xchart8=3 LabCh*=LAB2Ch* /xanc 0.110 def /Bc 0.800 def /a20 1.000 def /b20 -0.400 def /SUM Xaref Yaref add Zaref add 0.0001 add def /xan Xaref SUM div def /yan Yaref SUM div def /zan Zaref SUM div def /SUMD65 XD65 YD65 add ZD65 add 0.0001 add def /xanD65 XD65 SUMD65 div def /yanD65 YD65 SUMD65 div def /zanD65 ZD65 SUMD65 div def /aan xan xanc sub yan div a20 mul def /ban zan yan div b20 mul def /aanD65 xanD65 xanc sub yanD65 div a20 mul def /banD65 zanD65 yanD65 div b20 mul def /a*ref aan aanD65 sub 2.5 mul Yaref mul def /b*ref ban banD65 sub 2.5 mul Bc mul Yaref mul def } if %xchart8=3 LabCh*=LAB2Ch* /C*ref a*ref dup mul b*ref dup mul add sqrt def /h*ref b*ref a*ref 0.00001 add atan def C*ref 0.05 le {/h*ref 0 def} if } bind def %END proz_XYZ_LCh* %******************************************************************* /proz_LCh*_XYZ {%BEG proz_LCh*_XYZ %input LCh*ref of LabC*h (xchart8=0) or L*ABCh (xchart8=1) %output XYZref, xyanref xchart8 0 eq {%xchart8=0 /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /a*ref C*ref h*ref cos mul def /b*ref C*ref h*ref sin mul def /X* {L*ref 16 add 116 div a*ref 500 div add} bind def /Y* {L*ref 16 add 116 div} bind def /Z* {L*ref 16 add 116 div b*ref 200 div sub} bind def /Xref X* DecodeXYZ* XD65 mul def /Yref Y* DecodeXYZ* YD65 mul def /Zref Z* DecodeXYZ* ZD65 mul def } if %xchart8=0 xchart8 1 ge {%xchart8>=1 xchart8 1 eq {%xchart8=1 /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /Y* {L*ref 16 add 116 div} bind def /Yref Y* DecodeXYZ* YD65 mul def } if %xchart8=1 xchart8 2 eq {%xchart8=2 /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /Y* {L*ref 16 add 116 div} bind def /Yref Y* DecodeXYZ* YD65 mul def } if %xchart8=2 xchart8 3 eq {%xchart8=3 /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /Y* {L*ref 16 add 116 div} bind def /Yref Y* DecodeXYZ* YD65 mul def } if %xchart8=3 /a*ref C*ref h*ref cos mul def /b*ref C*ref h*ref sin mul def /Xref a*ref 250 div XD65 mul Yref XD65 mul YD65 div add def /Zref Yref ZD65 mul YD65 div b*ref 100 div ZD65 mul sub def } if %xchart8>=1 Xref 0.01 lt {/Xref 0.01 def} if Yref 0.01 lt {/Yref 0.01 def} if Zref 0.01 lt {/Zref 0.01 def} if /SUM Xref Yref add Zref add 0.0001 add def /xanref Xref SUM div def /yanref Yref SUM div def } bind def %END proz_LCh*_XYZ %************************************************************************* /proz_XYZnw_D65_xchart7_definition {%BEG proz_XYZnw_D65_xchart7_definition % achromatic colours /XLWD65100 95.04 def /YLWD65100 100.00 def /ZLWD65100 108.88 def /XLN001 XLWD65100 100 div def /YLN001 YLWD65100 100 div def /ZLN001 ZLWD65100 100 div def /YrN 2.52 def /Xnref YrN XLN001 mul def /Ynref YrN def /Znref YrN ZLN001 mul def /Xtref XYZnref_ISO9241-306 xchart7 3 mul 0 add get def /Ytref XYZnref_ISO9241-306 xchart7 3 mul 1 add get def /Ztref XYZnref_ISO9241-306 xchart7 3 mul 2 add get def /YNil Ytref def /YNil001 YNil 100 div def YNil001 6 29 div 3 exp ge {/FYYn YNil001 0.3333 exp def} {/FYYn 841 108 div YNil001 mul 4 29 div add def} ifelse /L*Nil 116 FYYn mul 16 sub def } bind def %END proz_XYZnw_D65_xchart7_definition %************************************************************** /proz_XYZ*12_XYZ*12n {%BEG proz_XYZ*12_XYZ*12n %for 10 colours %input XYZ*12, rgb*10 %output LCh*12n, rgb*10n %only for xchart5=1 and for 10 colours in 7 hue planes and achromatic %change XYZ*12 to XYZ*12n by display reflection according to xchart7 %normalization to Ynor=18 xchart9 1 eq {%xchart9=1 /Xnor XD65 0.18 mul def /Ynor YD65 0.18 mul def /Znor ZD65 0.18 mul def /Xfac1 Xnor Xnor Xtref add div def /Yfac1 Ynor Ynor Ytref add div def /Zfac1 Znor Znor Ztref add div def XYZ*12n i100 XYZ*12 i100 get Xnor sub Xfac1 mul Xnor add put XYZ*12n i101 XYZ*12 i101 get Ynor sub Yfac1 mul Ynor add put XYZ*12n i102 XYZ*12 i102 get Znor sub Zfac1 mul Znor add put } if %xchart9=1 %normalization to Ynor=88.6 xchart9 0 eq {%xchart9=0 /Xnor XD65 0.886 mul def /Ynor YD65 0.886 mul def /Znor ZD65 0.886 mul def /Xfac2 Xnor Xtref sub Xnor div def /Yfac2 Ynor Ytref sub Ynor div def /Zfac2 Znor Ztref sub Znor div def XYZ*12n i100 XYZ*12 i100 get Xfac2 mul Xtref add put XYZ*12n i101 XYZ*12 i101 get Yfac2 mul Ytref add put XYZ*12n i102 XYZ*12 i102 get Zfac2 mul Ztref add put } if %xchart9=0 } bind def %END proz_XYZ*12_XYZ*12n %**************************************************************** /proz_XYZ*45_XYZ*45n {%BEG proz_XYZ*45_XYZ*45n %for 45 colours %input XYZ*45, rgb*45 %output XYZ*45n, rgb*45n %only for xchart5=1 and for 45 colours in hue plane %change XYZ*45 to XYZ*45n by display reflection according t0 xchart7 %normalization to Ynor=18 xchart9 1 eq {%xchart9=1 /Xnor XD65 0.18 mul def /Ynor YD65 0.18 mul def /Znor ZD65 0.18 mul def /Xfac1 Xnor Xnor Xtref add div def /Yfac1 Ynor Ynor Ytref add div def /Zfac1 Znor Znor Ztref add div def XYZ*45n i450 XYZ*45 i450 get Xnor sub Xfac1 mul Xnor add put XYZ*45n i451 XYZ*45 i451 get Ynor sub Yfac1 mul Ynor add put XYZ*45n i452 XYZ*45 i452 get Znor sub Zfac1 mul Znor add put } if %xchart9=1 %normalization to Ynor=88.6 xchart9 0 eq {%xchart9=0 /Xnor XD65 0.886 mul def /Ynor YD65 0.886 mul def /Znor ZD65 0.886 mul def /Xfac2 Xnor Xtref sub Xnor div def /Yfac2 Ynor Ytref sub Ynor div def /Zfac2 Znor Ztref sub Znor div def XYZ*45n i450 XYZ*45 i450 get Xfac2 mul Xtref add put XYZ*45n i451 XYZ*45 i451 get Yfac2 mul Ytref add put XYZ*45n i452 XYZ*45 i452 get Zfac2 mul Ztref add put } if %xchart9=0 } bind def %END proz_XYZ*45_XYZ*45n %*********************************************************** %*********************************************************** /proz_sRGB_rgb*36X_definitions {%BEG proz_sRGB_rgb*36X_definitions /XYZ*WCGa_d_0000_0886 36 array def %d, Yw=88,6, Yn=2,50 /XYZ*WCGa_d_0000_0886 [056.43 023.27 000.00 %0 Rd %ANH9_Y10-7N,201003, fehl? Zmin=2.72 069.24 083.34 002.48 %1 Yd 012.81 060.07 002.48 %2 Gd 027.77 066.32 096.48 %3 Cd 014.96 005.25 094.00 %4 Bd 071.39 028.52 094.00 %5 Md 056.43 023.27 000.00 %6 Rd %for hue circle 000.01 000.01 000.01 %7 N0 084.21 088.60 096.48 %8 W0 000.01 000.01 000.01 %9 N1 095.05 100.00 108.90 %10 W1 017.11 18.00 19.60 %11 Z1 ] def /XYZ*sRGB_d_0000_0886 36 array def %d, Yw=88,60, Yn=0,00 /XYZ*sRGB_d_0000_0886 [036.54 018.84 001.71 %0 Rd %from AE99:Y10-7N (ISO 9241-306 for 100/88,6) 068.22 082.20 012.27 %1 Yd %new table 210217, only R was for 88.60 031.68 063.36 010.56 %2 Gd 047.67 069.76 094.78 %3 Cd 015.99 006.40 084.22 %4 Bd 052.53 025.24 085.93 %5 Md 036.54 018.84 001.71 %6 Rd %for hue circle 000.01 000.01 000.01 %7 N0 084.21 088.60 096.48 %8 W0 000.01 000.01 000.01 %9 N1 095.05 100.00 108.90 %10 W1 017.11 18.00 19.60 %11 Z1 ] def /XYZ*Ostw_d_0000_1000 36 array def %m, Yw=100,00, Yn=0,00 /XYZ*Ostw_d_0000_1000 [062.40 041.75 000.76 %0 Rm 561_405 589 %ANI6_Y10-7N,201012 076.68 082.00 001.27 %1 Ym 520_520c 569 023.83 065.32 015.00 %2 Gm 475_473 528c 032.63 058.24 108.12 %3 Cm 405_561 483 018.36 017.99 107.61 %4 Bm 519c-519 471 071.20 034.67 093.88 %5 Mm 573_475 528c 062.40 041.75 000.76 %6 Rm 561_405 589 %for hue circle 000.01 000.01 000.01 %7 N0 095.05 100.00 108.90 %8 W0 000.01 000.01 000.01 %9 N1 107.29 112.88 122.24 %10 W1 19.31 20.31 22.00 %11 Z1 ] def /XYZ*Offs_d_0000_0886 36 array def %d, Yw=88,60, Yn=0,00 /XYZ*Offs_d_0000_0886 [029.01 016.24 004.26 %0 Rd %ANJ7_Y11-1N,201012 063.74 072.69 008.27 %1 Yd 008.53 020.05 009.58 %2 Gd 018.74 026.27 069.02 %3 Cd 006.22 004.51 022.65 %4 Bd 032.46 016.95 023.04 %5 Md 029.01 016.24 004.26 %6 Rd %for hue circle 000.01 000.01 000.01 %7 N0 084.21 088.60 096.48 %8 W0 000.01 000.01 000.01 %9 N1 095.05 100.00 108.90 %10 W1 017.11 18.00 19.60 %11 Z1 ] def /rgb*36X 36 array def /rgb*36X [1 0 0 %0 1 1 0 %1 0 1 0 %2 0 1 1 %3 0 0 1 %4 1 0 1 %5 1 0 0 %6 0.00 0.00 0.00 %7 N0 1.00 1.00 1.00 %8 W0 0.00 0.00 0.00 %9 N1 1.13 1.13 1.13 %10 W1 0.18 0.18 0.18 %11 Z1 ] def /tex*36X 36 array def /tex*36X [(Rot) (red) (R) %0 (Gelb) (yellow) (Y) %1 (Gr\374n) (green) (G) %2 (Cyan) (cyan) (C) %3 (Blau) (blue) (B) %4 (Magenta) (magenta) (M) %5 (Rot) (red) (R) %6 (Schwarz) (black) (N) %7 (Wei\337) (white) (W) %8 (Schwarz) (black) (N1) %9 (Wei\337) (white) (W1) %10 (Grau) (grey) (Z1) %11 ] def /XYZnref_ISO9241-306 24 array def /XYZnref_ISO9241-306 [ %XYZnref wit contrast step according to ISO 9241-306:2018 00.01 00.01 00.01 %0 0288:1 00.60 00.63 00.69 %1 0144:1 01.20 01.26 01.37 %2 0072:1 02.40 02.52 02.74 %3 0036:1 %standard 04.79 05.04 05.49 %4 0018:1 08.58 10.08 10.98 %5 0009:1 19.16 20.16 21.95 %6 04,5:1 38.32 40.32 43.90 %7 2,25:1 ] def /Ynref_ISO9241-306 8 array def 0 1 7 {/i exch def %i=0,7 /i31 i 3 mul 1 add def Ynref_ISO9241-306 i XYZnref_ISO9241-306 i31 get put } for %i=0,7 0 1 11 {/sISO exch def /i30 sISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def /i50 sISO 5 mul def /i51 i50 1 add def /i52 i50 2 add def /i53 i50 3 add def /i54 i50 4 add def xchart4 0 eq {%xchart4=0 XYZ*12 i50 XYZ*sRGB_d_0000_0886 i30 get put XYZ*12 i51 XYZ*sRGB_d_0000_0886 i31 get put XYZ*12 i52 XYZ*sRGB_d_0000_0886 i32 get put } if %xchart4=0 xchart4 1 eq {%xchart4=1 XYZ*12 i50 XYZ*WCGa_d_0000_0886 i30 get put XYZ*12 i51 XYZ*WCGa_d_0000_0886 i31 get put XYZ*12 i52 XYZ*WCGa_d_0000_0886 i32 get put } if %xchart4=1 xchart4 2 eq {%xchart4=2 XYZ*12 i50 XYZ*Offs_d_0000_0886 i30 get put XYZ*12 i51 XYZ*Offs_d_0000_0886 i31 get put XYZ*12 i52 XYZ*Offs_d_0000_0886 i32 get put } if %xchart4=2 xchart4 3 eq {%xchart4=3 XYZ*12 i50 XYZ*Ostw_d_0000_1000 i30 get 0.8860 mul put XYZ*12 i51 XYZ*Ostw_d_0000_1000 i31 get 0.8860 mul put XYZ*12 i52 XYZ*Ostw_d_0000_1000 i32 get 0.8860 mul put } if %xchart4=3 /SUM XYZ*12 i50 get XYZ*12 i51 get add XYZ*12 i52 get add def XYZ*12 i53 XYZ*12 i50 get SUM div put XYZ*12 i54 XYZ*12 i51 get SUM div put %will be replaced, if xchart5=1 XYZ*12n i50 XYZ*12 i50 get put XYZ*12n i51 XYZ*12 i51 get put XYZ*12n i52 XYZ*12 i52 get put XYZ*12n i53 XYZ*12 i53 get put XYZ*12n i54 XYZ*12 i54 get put } for %i=0,11 } bind def %END proz_sRGB_rgb*36X_definitions %*************************************************************** /proz_out_text_ANW_definition {%BEG proz_out_text_ANW_definition %loop for maximal 5 colours +N +W 0 1 2 {/j exch def %j=0,2 %three components /i3j xchartl 3 mul j add def rgb*3A j rgb*36X i3j get put tex*3A j tex*36X i3j get put } for %j=0,2 0 1 4 {/j exch def %j=0,4 %three components /i5j xchartl 5 mul j add def XYZ*5A j XYZ*12 i5j get put LCh*5A j LCh*12 i5j get put XYZ*5An j XYZ*12n i5j get put LCh*5An j LCh*12n i5j get put } for %j=0,4 0 1 2 {/i exch def %i=0,2 rgb*3N i rgb*36X i 21 add get put %8x3 tex*3N i tex*36X i 21 add get put rgb*3W i rgb*36X i 24 add get put %9x3 tex*3W i tex*36X i 24 add get put } for %i=0,2 0 1 4 {/i exch def %i=0,4 XYZ*5N i XYZ*12 i 35 add get put %8x5 LCh*5N i LCh*12 i 35 add get put XYZ*5W i XYZ*12 i 40 add get put %9x5 LCh*5W i LCh*12 i 40 add get put XYZ*5Nn i XYZ*12n i 35 add get put %8x5 LCh*5Nn i LCh*12n i 35 add get put XYZ*5Wn i XYZ*12n i 40 add get put %9x5 LCh*5Wn i LCh*12n i 40 add get put } for %i=0,4 /L*Xd LCh*5A 0 get def /C*Xd LCh*5A 1 get def /L*Nd LCh*5N 0 get def /L*Wd LCh*5W 0 get def /L*Xdn LCh*5An 0 get def /C*Xdn LCh*5An 1 get def /L*Ndn LCh*5Nn 0 get def /L*Wdn LCh*5Wn 0 get def /xfact 2000 100 div def /yfact 2000 100 div def %Titeltext /xd 1550 def /yd 5000 def /xp 1550 def /yp 5000 def /xpN xp def /ypN yp 2000 sub def /xpW xp def /ypW yp def /xpX xp 2000 add def /ypX yp 1000 sub def /xNd xp def %Nd /yNd ypN L*Nd yfact mul add def %Nd /xWd xp def %Wd /yWd ypN L*Wd yfact mul add def %Wd /xRd xp C*Xd xfact mul add def %Xd /yRd ypN L*Xd yfact mul add def /tex_LC*hab {xchart8 0 eq {(LC*hab) show} if xchart8 1 eq {(L*ChAB) show} if xchart8 2 eq {(L*ChAB) show} if xchart8 3 eq {(L*ChAB) show} if } bind def /tex_LabC*h {xchart8 0 eq {(LabC*h) show} if xchart8 1 eq {(L*ABCh) show} if xchart8 2 eq {(L*ABCh) show} if xchart8 3 eq {(L*ABCh) show} if } bind def /indd {0 -50 rmoveto (d) show 0 50 rmoveto} bind def /inddk {0 -50 rmoveto (d,) show 0 50 rmoveto} bind def /inde {0 -50 rmoveto (d) show 0 50 rmoveto} bind def /indek {0 -50 rmoveto (d,) show 0 50 rmoveto} bind def /indab {0 -50 rmoveto xchart8 0 eq {(ab)} if xchart8 1 eq {(AB)} if xchart8 2 eq {(AB1)} if xchart8 3 eq {(AB2)} if show 0 50 rmoveto} bind def /indabk {0 -50 rmoveto xchart8 0 eq {(ab,)} if xchart8 1 eq {(AB,)} if xchart8 2 eq {(AB1,)} if xchart8 3 eq {(AB2,)} if show 0 50 rmoveto} bind def /indabd {0 -50 rmoveto xchart8 0 eq {(ab,d)} if xchart8 1 eq {(AB,d)} if xchart8 2 eq {(AB1,d)} if xchart8 3 eq {(AB2,d)} if show 0 50 rmoveto} bind def /indabe {0 -50 rmoveto xchart8 0 eq {(ab,e)} if xchart8 1 eq {(AB,e)} if xchart8 2 eq {(AB1,e)} if xchart8 3 eq {(AB2,e)} if show 0 50 rmoveto} bind def /indabN {0 -50 rmoveto xchart8 0 eq {(ab,N)} if xchart8 1 eq {(AB,N)} if xchart8 2 eq {(AB1,N)} if xchart8 3 eq {(AB2,N)} if show 0 50 rmoveto} bind def /indabW {0 -50 rmoveto xchart8 0 eq {(ab,W)} if xchart8 1 eq {(AB,W)} if xchart8 2 eq {(AB1,W)} if xchart8 3 eq {(AB2,W)} if show 0 50 rmoveto} bind def } bind def %END proz_out_text_ANW_definition %************************************************************** /nshow {TS show} bind def /kshow {TIS show} bind def /bshow {TBS show} bind def /jshow {TBIS show} bind def /ibshown {TBV -50 -50 rmoveto show 0 50 rmoveto TBS} bind def /ibshow0 {TBV -00 -50 rmoveto show 0 50 rmoveto TBS} bind def /ishown {TV -50 -50 rmoveto show 0 50 rmoveto TS } bind def /ishow0 {TV -00 -50 rmoveto show 0 50 rmoveto TS } bind def %40% kleiner /ns4 {250 /Times-ISOL1 FS show TK} bind def /ks4 {250 /TimesI-ISOL1 FS show TK} bind def /bs4 {250 /TimesB-ISOL1 FS show TK} bind def /js4 {250 /TimesBI-ISOL1 FS show TK} bind def /ss4 {250 /Symbol FS show TK} bind def /is4 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /es4 {200 /Times-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ib4 {200 /TimesB-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /eb4 {200 /TimesB-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ip4 {200 /Times-ISOL1 FS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def %60% kleiner /ns6 {200 /Times-ISOL1 FS show TS} bind def /ks6 {200 /TimesI-ISOL1 FS show TS} bind def /bs6 {200 /TimesB-ISOL1 FS show TS} bind def /js6 {200 /TimesBI-ISOL1 FS show TS} bind def /ss6 {200 /Symbol FS show TS} bind def /is6 {160 /Times-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /es6 {160 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ib6 {160 /TimesB-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /eb6 {160 /TimesB-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ip6 {160 /Times-ISOL1 FS 24 24 rmoveto (\267) show 24 -24 rmoveto TS} bind /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show} def /cvsshow1g {/nxx exch def %example nxx=99.1/99.0 nxx 0 lt {(-) show /nxx nxx abs def} if 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 /cvsshow2g {/nxx exch def %example nxx=99.12/99,02/99,00 nxx 0 lt {(-) show /nxx nxx abs def} if 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 /cvsshow3g {/nxx exch def %example nxx=99.123/99.012/99.001/99.000 nxx 0 lt {(-) show /nxx nxx abs def} if 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 %%EndProlog gsave /lanind 0 def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind le {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind le {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind le {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES where {pop %/IMES IMES def } {/IMES 0 def} ifelse /xchartl 0 def %0 for xchart6=0 or 1; 0 to 5 for 6 hue planes /xchart3 0 def %0: LCH, %1: ICE/ice /xchart4 1 def %0: sRGB, 1: WCGa, 3: Offs, 4:Ostw /xchart5 0 def %0: YN=0, 1: YN=0,0 ..2,5 ..40,3 /xchart6 1 def %0: Y10-1N, %1 Y11-5a BEE40-2n, %2: Y10-3N to 8N /xchart7 0 def %0 to 7: 8 contrast steps no. 1 to 8 according to ISO 9241-406 /xchart8 0 def %0: LabC*h, 1: L*ABCh, 2: L*AB1Ch, 3:L*AB2Ch /xchart9 0 def %0 for Normalizaton; 0: Y=88,6, 1: Y=18,0 4 /Times-ISOL1 FS 72 86 moveto (fen01-5a BEE40-2n) show 72 90 translate 0.01 MM 0.01 MM scale 15 setlinewidth 1 setgray /xwide 6000 def /ywide 4000 def 0 0 moveto xwide 0 rlineto 0 ywide rlineto xwide neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwide 0 rlineto 0 ywide rlineto xwide neg 0 rlineto closepath stroke %produces XYZ*12 and XYZ*12n proz_sRGB_rgb*36X_definitions %uses XYZ*12 proz_XYZnw_D65_xchart7_definition 0 1 11 {/i exch def %i=0,09 /i100 i 5 mul def /i101 i100 1 add def /i102 i100 2 add def /i103 i100 3 add def /i104 i100 4 add def /Xaref XYZ*12 i100 get def /Yaref XYZ*12 i101 get def /Zaref XYZ*12 i102 get def % in any case defined proz_XYZ_LCh* LCh*12 i100 L*ref put LCh*12 i101 C*ref put LCh*12 i102 h*ref put LCh*12 i103 a*ref put LCh*12 i104 b*ref put LCh*12n i100 L*ref put %may be replaced LCh*12n i101 C*ref put LCh*12n i102 h*ref put LCh*12n i103 a*ref put LCh*12n i104 b*ref put xchart5 1 eq {%BEG xchart5=1 %XYZaref see above %input XYZ*12 %output XYZ*12n, LCh*12n proz_XYZ*12_XYZ*12n %calculates intermediate XYZ*12n /Xaref XYZ*12n i100 get def /Yaref XYZ*12n i101 get def /Zaref XYZ*12n i102 get def %input XYZaref, output LChab*ref proz_XYZ_LCh* LCh*12n i100 L*ref put LCh*12n i101 C*ref put LCh*12n i102 h*ref put LCh*12n i103 a*ref put LCh*12n i104 b*ref put } if %xchart5=1 } for %i=0,11 %produces for hue circle and achromatic colours %XYZ*(ANW)_(ANW)n, LCh*(ANW)_(ANW)n with 5 components %rgb*(ANW)_(ANW)n, tex*(ANW)_(ANW)n with 3 components proz_out_text_ANW_definition /yt 300 def %y-Zeilenabstand for text /yd 400 def %y-Zeilenabstand for formula %Spalten /S1 100 def /S2 1500 def /S3 2300 def /S4 5900 def /S5 7700 def /S6 8500 def /yz 400 def /yu5 7600 def /yu4 7100 def /yu3 5800 def /yu2 5800 def /yu1 5800 def %******************************************************** xchart6 0 eq {%xchart6=0 table /xdXYZ 470 def /xdLab 570 def 50 3750 moveto TBIS xchart4 0 eq {(sRGB) show} if xchart4 1 eq {(WCGa) show} if xchart4 2 eq {(Offs) show} if xchart4 3 eq {(Ostw) show} if TBS (\255Daten ) showde ( data ) showen TBIS (rgb*) show TBIS (, XYZxy) show TBS (, and ) showen ( und ) showde TBIS tex_LabC*h TBV indab TBS xchart8 0 eq {%xchart8=0 ( im CIELAB\255Farbraum) showde ( in the CIELAB\255colour space) showen} if xchart8 1 eq {( im L*ABJND\255Farbraum) showde ( in L*ABJND\255colour space) showen} if xchart8 2 eq {( im L*AB1JND\255Farbraum) showde ( in L*AB1JND\255colour space) showen} if xchart8 3 eq {( im L*AB2JND\255Farbraum) showde ( in L*AB2JND\255colour space) showen} if 0 3650 moveto 6000 0 rlineto stroke 50 3400 moveto TS (Normfarbwerte von Schwarz und Wei\337: ) showde (Tristimulus values of black and white: ) showen TIS (Y) show TV 0 -40 rmoveto xchart5 0 eq {(N) show}{(Nn) show} ifelse 0 40 rmoveto TS (=) show xchart5 0 eq {XYZ*5N 1 get cvsshow1g} {XYZ*5Nn 1 get cvsshow1g} ifelse TIS (, Y) show TV 0 -40 rmoveto xchart5 0 eq {(W) show}{(Wn) show} ifelse 0 40 rmoveto TS (=) show xchart5 0 eq {XYZ*5W 1 get cvsshow1g} {XYZ*5Wn 1 get cvsshow1g} ifelse xchart5 1 eq {%xchart5=1 TIS (, Y) show TV 0 -40 rmoveto xchart9 0 eq {(Wa) show}{(Za) show} ifelse 0 40 rmoveto TS xchart9 0 eq {(=88,6.) show} {(=18.) show} ifelse } if %xchart5=1 /xt1 0000 def /yt1 0000 def xt1 yt1 translate /y01 3250 def /y02 2850 def /S10 40 def %colour /S20 0400 def %rgb /S30 0900 def %XYZ /S40 3300 def %LCh*ab 0 y01 moveto 6000 0 rlineto stroke 0 y02 100 sub moveto 6000 0 rlineto stroke 0 750 moveto 6000 0 rlineto stroke S20 50 sub y01 moveto S20 50 sub 0 lineto stroke S30 50 sub y01 moveto S30 50 sub 0 lineto stroke S40 50 sub y01 moveto S40 50 sub 0 lineto stroke TBV S30 y02 200 add moveto (CIEXYZ) show (\255Daten) showde ( data) showen S40 y02 200 add moveto TBIV xchart8 0 eq {(LabC*h) show} if xchart8 1 eq {(L*ABCh) show} if xchart8 2 eq {(L*ABCh) show} if xchart8 3 eq {(L*ABCh) show} if TBX indab TBV (\255Daten) showde ( data) showen S20 y02 moveto TBIV (rgb*) show /tex_XYZxy [(X) (Y) (Z) (x) (y)] def 0 1 4 {/k exch def %k=0,4 TBIV S30 k xdXYZ mul add y02 moveto tex_XYZxy k get show TBX S30 k xdXYZ mul add 080 add y02 moveto 0 -50 rmoveto (d) show 0 50 rmoveto } for %k=0,4 xchart8 0 eq {/tex_LabCh* [(L*) (a*) (b*) (C*) (h) ] def /ind_LabCh* [(d) (d) (d) (ab,d) (ab,d)] def /tex_xshift [120 120 120 120 80 ] def } if xchart8 1 eq {/tex_LabCh* [(L*) (A) (B) (C) (h) ] def /ind_LabCh* [(d) (d) (d) (AB,d) (AB,d)] def /tex_xshift [120 80 80 80 80 ] def } if xchart8 2 eq {/tex_LabCh* [(L*) (A) (B) (C) (h ) ] def /ind_LabCh* [(d) (1,d)(1,d)(AB1,d)(AB1,d)] def /tex_xshift [120 80 80 60 80 ] def } if xchart8 3 eq {/tex_LabCh* [(L*) (A) (B) (C) (h) ] def /ind_LabCh* [(d) (2,d)(2,d)(AB2,d)(AB2,d)] def /tex_xshift [120 80 80 60 80 ] def } if 0 1 4 {/k exch def %k=0,4 TBIV S40 k xdLab mul add y02 moveto tex_LabCh* k get show TBX S40 k xdLab mul add tex_xshift k get add y02 moveto 0 -50 rmoveto ind_LabCh* k get show 0 50 rmoveto } for %k=0,4 /y03 2500 def /y0d 235 def TBV 0 1 10 {/j exch def %j=0,9 colours without red twice /i j def j 6 ge {/i j 1 add def} if %for N and W /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def /ydd 0 def i 8 gt {/ydd 0.2 y0d mul def} if S10 y03 j y0d mul sub ydd sub moveto tex*36X i32 get show TBX 0 -40 rmoveto (d) show 0 40 rmoveto S20 y03 j y0d mul sub ydd sub moveto TBV i 8 le {%i<=7 rgb*36X i30 get cvishow ( ) show rgb*36X i31 get cvishow ( ) show rgb*36X i32 get cvishow} {rgb*36X i30 get cvsshow2g} ifelse /i50 i 5 mul def /i51 i50 1 add def /i52 i50 2 add def /i53 i50 3 add def /i54 i50 4 add def 0 1 4 {/k exch def %k=0,4 TV S30 k xdXYZ mul add y03 j y0d mul sub ydd sub moveto k 0 eq {XYZ*12n i50 get cvsshow2g} if k 1 eq {XYZ*12n i51 get cvsshow2g} if k 2 eq {XYZ*12n i52 get cvsshow2g} if k 3 eq {XYZ*12n i53 get cvsshow3g} if k 4 eq {XYZ*12n i54 get cvsshow3g} if } for %k=0,4 0 1 4 {/k exch def %k=0,4 k 3 le {TV}{TBV} ifelse S40 k xdLab mul add y03 j y0d mul sub ydd sub moveto k 0 eq {LCh*12n i50 get cvsshow2g} if k 1 eq {LCh*12n i53 get cvsshow2g} if k 2 eq {LCh*12n i54 get cvsshow2g} if k 3 eq {LCh*12n i51 get cvsshow2g} if k 4 eq {LCh*12n i52 get cvishow} if } for %k=0,4 } for %j=0,10 xt1 neg yt1 neg translate } if %xchart6=0 table %********************************************************* xchart6 1 eq {%xchart6=1 hue circle /xdLab 300 def %HUE CIRCLE /xd 1550 def /yd 5000 def /xp 1550 def /yp 5000 def /xdN xd def /ydN yd 2000 sub def /xdW xd def /ydW yd def /xdR xd 2000 add def /ydR yd 1000 sub def /xm 2000 4 div def /xip xd xm 2 mul add def /yip ydN xm 2 mul add def /xi1 xd xm 1 mul sub def /yi1 ydW xm 0.5 mul sub def /xi2 xd xm 2 mul add def /yi2 ydN 400 sub def /rgb*30Y 84 def %7x12 /rgb*30Y [1.00 0.00 0.00 %0 R 1.00 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 1.00 1.00 0.00 %1 Y 0.75 1.00 0.00 0.50 1.00 0.00 0.25 1.00 0.00 0.00 1.00 0.00 %2 G 0.00 1.00 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 1.00 1.00 %3 C 0.00 0.75 1.00 0.00 0.50 1.00 0.00 0.25 1.00 0.00 0.00 1.00 %4 B 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 1.00 1.00 0.00 1.00 %5 M 1.00 0.00 0.75 1.00 0.00 0.50 1.00 0.00 0.25 1.00 0.00 0.00 %6 R 1.00 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 ] def 50 3800 moveto TBIS xchart4 0 eq {(sRGB) show} if xchart4 1 eq {(WCGa) show} if xchart4 2 eq {(Offs) show} if xchart4 3 eq {(Ostw) show} if TBS (\255Daten ) showde ( data ) showen TBIS (rgb*) show TBIS (, XYZxy) showde (, XYZxy) showen TBS (, and ) showen ( und ) showde TBIS xchart8 0 eq {(LabC*h) show} if xchart8 1 eq {(L*ABCh) show} if xchart8 2 eq {(L*ABCh) show} if xchart8 3 eq {(L*ABCh) show} if TBV 0 -40 rmoveto xchart8 0 eq {(ab)} if xchart8 1 eq {(AB)} if xchart8 2 eq {(AB1)} if xchart8 3 eq {(AB2)} if show 0 40 rmoveto TBS xchart8 0 eq {%xchart8=0 ( im CIELAB\255Farbraum) showde ( in the CIELAB\255colour space) showen } if %xchart8=0 xchart8 1 eq {%xchart8=1 ( im L*ABJND\255Farbraum) showde ( in L*ABJND\255colour space) showen } if %xchart8=1 xchart8 2 eq {%xchart8=2 ( im L*AB1JND\255Farbraum) showde ( in L*AB1JND\255colour space) showen } if %xchart8=2 xchart8 3 eq {%xchart8=3 ( im L*AB2JND\255Farbraum) showde ( in L*AB2JND\255colour space) showen } if %xchart8=3 0 3700 moveto 6000 0 rlineto stroke 50 3500 moveto TS (Normfarbwerte von Schwarz und Wei\337: ) showde (Tristimulus values of black and white: ) showen TIS (Y) show TV 0 -40 rmoveto xchart5 0 eq {(N) show}{(Nn) show} ifelse 0 40 rmoveto TS (=) show xchart5 0 eq {XYZ*5N 1 get cvsshow1g} {XYZ*5Nn 1 get cvsshow1g} ifelse TIS (, Y) show TV 0 -40 rmoveto xchart5 0 eq {(W) show}{(Wn) show} ifelse 0 40 rmoveto TS (=) show xchart5 0 eq {XYZ*5W 1 get cvsshow1g} {XYZ*5Wn 1 get cvsshow1g} ifelse xchart5 1 eq {%xchart5=1 (, Y) show TV 0 -40 rmoveto xchart9 0 eq {(Wa) show}{(Za) show} ifelse 0 40 rmoveto TS xchart9 0 eq {(=88,6.) show}{(=18.) show} ifelse } if %xchart5=1 /y01 3350 def /y02 3300 def /S10 40 def %colour /S20 0270 def %rgb /S40 0650 def %LCh*ab xchart8 0 eq {/S50 2600 def} {/S50 2150 def} ifelse %[X] %TBV %S40 y02 250 add moveto %TBIV %xchart8 0 eq {(LabC*h) show} if %xchart8 1 eq {(L*ABCh) show} if %xchart8 2 eq {(L*ABCh) show} if %xchart8 3 eq {(L*ABCh) show} if %TBX %indab %TBV %(\255Daten) showde %( data) showen S20 y02 moveto TBIV (rgb*) show TBX -50 -50 rmoveto (d) show 50 50 rmoveto xchart8 0 eq {/tex_LabCh* [(L*) (a*) (b*) (C*) (h) ] def /ind_LabCh* [(d) (d) (d) (ab,d) (ab,d)] def /tex_xshift [120 120 120 100 80 ] def } if xchart8 1 eq {/tex_LabCh* [(L*) (A) (B) (C) (h) ] def /ind_LabCh* [(d) (d) (d) (AB,d) (AB,d)] def /tex_xshift [120 80 80 80 80 ] def } if xchart8 2 eq {/tex_LabCh* [(L*) (A) (B) (C) (h) ] def /ind_LabCh* [(d) (1,d)(1,d)(AB1,d)(AB1,d)] def /tex_xshift [120 80 80 80 80 ] def } if xchart8 3 eq {/tex_LabCh* [(L*) (A) (B) (C) (h) ] def /ind_LabCh* [(d) (2,d)(2,d)(AB2,d)(AB2,d)] def /tex_xshift [120 80 80 80 80 ] def } if 0 1 4 {/k exch def %k=0,4 TBIV /xdLabk 0 def k 1 eq {/xdLabk -50 def} if k 2 eq {/xdLabk -50 def} if k 3 eq {/xdLabk -70 def} if k 4 eq {/xdLabk 50 def} if S40 k xdLab mul add xdLabk add y02 moveto tex_LabCh* k get show TBX S40 k xdLab mul add xdLabk add tex_xshift k get add y02 moveto 0 -50 rmoveto ind_LabCh* k get show 0 50 rmoveto } for %k=0,4 /y03 3100 def /y0d 190 def 0 1 7 {/j exch def %j=0,8 9 colours /i j def j 6 ge {/i j 1 add def} if %for N and W /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def /i50 i 5 mul def /i51 i50 1 add def /i52 i50 2 add def /i53 i50 3 add def /i54 i50 4 add def S10 y03 j y0d mul sub moveto TBV tex*36X i32 get show TBX 0 -40 rmoveto (d) show 0 40 rmoveto S20 y03 j y0d mul sub moveto TBV rgb*36X i30 get cvishow ( ) show rgb*36X i31 get cvishow ( ) show rgb*36X i32 get cvishow 0 1 4 {/k exch def %k=0,4 /xdLabk 0 def k 1 eq {/xdLabk -50 def} if k 2 eq {/xdLabk -50 def} if k 3 eq {/xdLabk -50 def} if k 4 lt {TV}{TBV} ifelse S40 k xdLab mul add xdLabk add y03 j y0d mul sub moveto k 0 eq {LCh*12n i50 get cvishow} if k 1 eq {LCh*12n i53 get dup -100 le {-50 0 rmoveto} if cvishow} if k 2 eq {LCh*12n i54 get dup -100 le {-50 0 rmoveto} if cvishow} if k 3 eq {LCh*12n i51 get cvishow} if k 4 eq {LCh*12n i52 get cvishow} if } for %k=0,4 } for %j=0,7 /y0d 0210 def xchart8 1 le {%xchart8<=1 S10 y03 11.2 y0d mul sub moveto TBIV xchart8 0 eq {(a*) show} if xchart8 1 eq {(A) show} if TBV xchart8 0 eq {( = 500 [\050) show} if xchart8 1 eq {( = 250 [) show} if TBIV (X) show TBV ( / ) show TBIV (X) show TBX 0 -40 rmoveto (D65) show 0 40 rmoveto TBV xchart8 0 eq {(\051) show TBX 0 100 rmoveto (1/3) show 0 -100 rmoveto } if TBV ( - ) show xchart8 0 eq {(\050) show} if TBIV (Y) show TBV ( / ) show TBIV (Y) show TBX 0 -40 rmoveto (D65) show 0 40 rmoveto TBV xchart8 0 eq {(\051) show TBX 0 100 rmoveto (1/3) show 0 -100 rmoveto } if TBV ( ]) show S50 y03 11.2 y0d mul sub moveto TBV xchart8 0 eq {([1a]) show} if xchart8 1 eq {([1b]) show} if S10 y03 12.2 y0d mul sub moveto TBIV xchart8 0 eq {(b*) show} if xchart8 1 eq {(B) show} if TBV xchart8 0 eq {( = 200 [\050) show} if xchart8 1 eq {( = 100 [) show} if TBIV (Y) show TBV ( / ) show TBIV (Y) show TBX 0 -40 rmoveto (D65) show 0 40 rmoveto TBV xchart8 0 eq {(\051) show TBX 0 100 rmoveto (1/3) show 0 -100 rmoveto} if TBV ( - ) show xchart8 0 eq {(\050) show} if TBIV (Z) show TBV ( / ) show TBIV (Z) show TBX 0 -40 rmoveto (D65) show 0 40 rmoveto TBV xchart8 0 eq {(\051) show TBX 0 100 rmoveto (1/3) show 0 -100 rmoveto} if TBV ( ]) show S50 y03 12.2 y0d mul sub moveto TBV xchart8 0 eq {([2a]) show} if xchart8 1 eq {([2b]) show} if } if %xchart8<=1 xchart8 2 eq {%xchart8=2 /index0 {0 -50 rmoveto TBX (1) show 0 50 rmoveto xcol10KBX} def /indexn {0 -50 rmoveto TBX (1,n) show 0 50 rmoveto xcol10KBX} def } if %xchart8=2 xchart8 3 eq {%xchart8=3 /index0 {0 -50 rmoveto TBX (2) show 0 50 rmoveto xcol10KBX} def /indexn {0 -50 rmoveto TBX (2,n) show 0 50 rmoveto xcol10KBX} def } if %xchart8=3 /xcol10_BX {xcolor 1 eq {TBX 0 -50 rmoveto (10) show 0 50 rmoveto TBV} if } bind def /xcol10KBX {xcolor 1 eq {TBX 0 -50 rmoveto (,10) show 0 50 rmoveto TBV} if } bind def TBIV /y04 3100 def xchart8 2 ge {%xchart8>=2 xchart8 2 eq {/Bct (1,000) def /xct (0,110) def} if xchart8 3 eq {/Bct (0,800) def /xct (0,110) def} if S10 y04 07.2 y0d mul sub moveto TBIV (a) show index0 TBV ( = ) show TBIV (a) show 0 -50 rmoveto TBX (20) show 0 50 rmoveto TBV ( [ ) show TBIV (\050 x) show xcol10_BX TBV ( - ) show TBIV (x) show 0 -50 rmoveto TBX (c) show 0 50 rmoveto TBIV ( \051 / y) show xcol10_BX TBV (]) show S10 y04 08.2 y0d mul sub moveto TBIV (b) show index0 TBV ( = ) show TBIV (b) show 0 -50 rmoveto TBX (20) show 0 50 rmoveto TBV ( [) show TBIV ( z) show xcol10_BX TBIV ( / y) show xcol10_BX TBV (]) show S10 y04 09.2 y0d mul sub moveto TBIV (a) show 0 -50 rmoveto TBX (20) show 0 50 rmoveto TBV ( = 1, ) show TBIV (b) show 0 -50 rmoveto TBX (20) show 0 50 rmoveto TBV ( = -0,4) show S10 y04 10.2 y0d mul sub moveto TBIV (x) show 0 -50 rmoveto TBX (c) show 0 50 rmoveto TBV ( = ) show xct show (, ) show TBIV (B) show 0 -50 rmoveto TBX (c) show 0 50 rmoveto TBV ( = ) show Bct show S10 y04 11.2 y0d mul sub moveto TBIV (A) show index0 TBV ( = 2,5 \050) show TBIV (a) show index0 TBV ( - ) show TBIV (a) show indexn TBV (\051 ) show TBIV (Y) show xcol10_BX S50 y04 11.2 y0d mul sub moveto TBV xchart8 2 eq {([1c]) show} if xchart8 3 eq {([1d]) show} if S10 y04 12.2 y0d mul sub moveto TBIV (B) show index0 TBV ( = 2,5 ) show TBIV (B) show 0 -50 rmoveto TBX (c) show 0 50 rmoveto TBV ( \050) show TBIV (b) show index0 TBV ( - ) show TBIV (b) show indexn TBV (\051 ) show TBIV (Y) show xcol10_BX S50 y04 12.2 y0d mul sub moveto TBV xchart8 2 eq {([2c]) show} if xchart8 3 eq {([2d]) show} if } if %xchart8>=2 %for all S10 y04 13.4 y0d mul sub moveto TBIV (C) show TBIV xchart8 0 eq {(*) show} if TBX xchart8 0 eq {0 -40 rmoveto (ab) show 0 40 rmoveto} if xchart8 1 eq {0 -40 rmoveto (AB) show 0 40 rmoveto} if xchart8 2 eq {0 -40 rmoveto (AB1) show 0 40 rmoveto} if xchart8 3 eq {0 -40 rmoveto (AB2) show 0 40 rmoveto} if TBV ( = [ ) show TBIV xchart8 0 eq {(a*) show TBX 0 100 rmoveto (2) show 0 -100 rmoveto} if xchart8 1 eq {(A) show TBX 0 70 rmoveto (2) show 0 -70 rmoveto} if xchart8 2 eq {(A) show index0 TBX -30 70 rmoveto (2) show 0 -70 rmoveto} if xchart8 3 eq {(A) show index0 TBX -30 70 rmoveto (2) show 0 -70 rmoveto} if TBV ( + ) show TBIV xchart8 0 eq {(b*) show TBX 0 100 rmoveto (2) show 0 -100 rmoveto} if xchart8 1 eq {(B) show TBX 0 70 rmoveto (2) show 0 -70 rmoveto} if xchart8 2 eq {(B) show index0 TBX -30 70 rmoveto (2) show 0 -70 rmoveto} if xchart8 3 eq {(B) show index0 TBX -30 70 rmoveto (2) show 0 -70 rmoveto} if TBV ( ] ) show TBX -30 70 rmoveto (0,5) show 0 -70 rmoveto S50 y04 13.4 y0d mul sub moveto TBV xchart8 0 eq {([3a]) show} if xchart8 1 eq {([3b]) show} if xchart8 2 eq {([3c]) show} if xchart8 3 eq {([3d]) show} if S10 y04 14.4 y0d mul sub moveto TBIV (h) show TBX xchart8 0 eq {0 -40 rmoveto (ab) show 0 40 rmoveto} if xchart8 1 eq {0 -40 rmoveto (AB) show 0 40 rmoveto} if xchart8 2 eq {0 -40 rmoveto (AB1) show 0 40 rmoveto} if xchart8 3 eq {0 -40 rmoveto (AB2) show 0 40 rmoveto} if TBV ( = atan [ ) show TBIV xchart8 0 eq {(b*) show} if xchart8 1 eq {(B) show} if xchart8 2 eq {(B) show index0} if xchart8 3 eq {(B) show index0} if TBV ( / ) show TBIV xchart8 0 eq {(a*) show} if xchart8 1 eq {(A) show} if xchart8 2 eq {(A) show index0} if xchart8 3 eq {(A) show index0} if TBV ( ]) show S50 y04 14.4 y0d mul sub moveto TBV xchart8 0 eq {([4a]) show} if xchart8 1 eq {([4b]) show} if xchart8 2 eq {([4c]) show} if xchart8 3 eq {([4d]) show} if /xt2 2150 def /yt2 -2370 def xt2 yt2 translate 0 setgray xp 1450 sub yp 0750 add moveto /L*Xd LCh*5A 0 get def /C*Xd LCh*5A 1 get def /L*Nd LCh*5N 0 get def /L*Wd LCh*5W 0 get def xchart8 0 eq {/xfact1 12 def /yfact1 12 def } if xchart8 1 eq { % /xfact1 12 mul 2.5 mul def % /yfact1 12 mul 2.5 mul def /xfact1 12 def /yfact1 12 def } if xchart8 2 eq { % /xfact1 12 mul 2.5 mul def % /yfact1 12 mul 2.5 mul def /xfact1 12 def /yfact1 12 def } if xchart8 3 eq { % /xfact1 12 mul 2.5 mul def % /yfact1 12 mul 2.5 mul def /xfact1 12 def /yfact1 12 def } if /xp0 xp 0400 add def /yp0 yp 1000 sub def /xpN xp0 1000 sub def /ypN yp0 1000 sub def xp0 1900 sub yp0 0 sub moveto 3600 0 rlineto %horizontal axis & arrow -100 40 rlineto 100 -40 rlineto -100 -40 rlineto stroke xp0 0000 add yp0 1400 sub moveto 0 3100 rlineto %vertical axis & arrow -40 -100 rlineto 40 100 rlineto 40 -100 rlineto stroke xp0 1800 sub yp0 70 sub moveto 0 140 rlineto stroke %marks, horizontal axis xp0 1200 sub yp0 70 sub moveto 0 140 rlineto stroke xp0 0600 sub yp0 70 sub moveto 0 140 rlineto stroke xp0 0600 add yp0 70 sub moveto 0 140 rlineto stroke xp0 1200 add yp0 70 sub moveto 0 140 rlineto stroke xchart8 0 eq {%xchart8=0 /scal_x [(-150) (-100) ( -50) ( 50) ( 100)] def /scal_y [(100) (50) (-50) (-100)] def } if xchart8 1 eq {%xchart8=1 % /scal_x [(-60) ( -40) ( -20) ( 20) ( 40)] def % /scal_y [( 40) (20) (-20) (-40) ] def /scal_x [(-150) (-100) ( -50) ( 50) ( 100)] def /scal_y [(100) (50) (-50) (-100)] def } if %xchart8=1 xchart8 2 eq {%xchart8=2 % /scal_x [(-60) ( -40) ( -20) ( 20) ( 40)] def % /scal_y [( 40) (20) (-20) (-40) ] def /scal_x [(-150) (-100) ( -50) ( 50) ( 100)] def /scal_y [(100) (50) (-50) (-100)] def } if %xchart8=1 xchart8 3 eq {%xchart8=3 % /scal_x [(-60) ( -40) ( -20) ( 20) ( 40)] def % /scal_y [( 40) (20) (-20) (-40) ] def /scal_x [(-150) (-100) ( -50) ( 50) ( 100)] def /scal_y [(100) (50) (-50) (-100)] def } if %xchart8=3 TV xp0 2000 sub yp0 220 sub moveto scal_x 0 get show %numbers, horizontal scale xp0 1400 sub yp0 220 sub moveto scal_x 1 get show xp0 0750 sub yp0 220 sub moveto scal_x 2 get show xp0 0400 add yp0 220 sub moveto scal_x 3 get show xp0 1000 add yp0 220 sub moveto scal_x 4 get show xp0 70 sub yp0 1200 add moveto 140 0 rlineto stroke %marks, vertical axis xp0 70 sub yp0 0600 add moveto 140 0 rlineto stroke xp0 70 sub yp0 0600 sub moveto 140 0 rlineto stroke xp0 70 sub yp0 1200 sub moveto 140 0 rlineto stroke xp0 100 add yp0 1150 add moveto scal_y 0 get show %numbers, vertical axis xp0 100 add yp0 0550 add moveto scal_y 1 get show xp0 100 add yp0 0650 sub moveto scal_y 2 get show xp0 100 add yp0 1250 sub moveto scal_y 3 get show TBIK xp0 0080 add yp0 1550 add moveto xchart8 0 eq {(b*) show} if xchart8 1 eq {(B) show} if xchart8 2 eq {(B) show TBS 0 -40 rmoveto (1) show 0 40 rmoveto} if xchart8 3 eq {(B) show TBS 0 -40 rmoveto (2) show 0 40 rmoveto} if TBIK xp0 1550 add yp0 0120 add moveto xchart8 0 eq {(a*) show} if xchart8 1 eq {(A) show} if xchart8 2 eq {(A) show TBS 0 -40 rmoveto (1) show 0 40 rmoveto} if xchart8 3 eq {(A) show TBS 0 -40 rmoveto (2) show 0 40 rmoveto} if TBK 0.5 setgray xchart5 1 eq {%old hexagon 15 setlinewidth 0 1 6 {/i exch def %i=0,6 0 setgray /i50 i 5 mul def /i53 i50 3 add def %a* /i54 i50 4 add def %b* /xi xp0 LCh*12 i53 get xfact1 mul add def /yi yp0 LCh*12 i54 get yfact1 mul add def i 0 eq {xi yi moveto} if i 1 ge {xi yi lineto} if i 6 eq {stroke} if } for %i=0,6 0 1 6 {/i exch def %i=0,6 0 setgray /i50 i 5 mul def /i53 i50 3 add def %a* /i54 i50 4 add def %b* /xi xp0 LCh*12 i53 get xfact1 mul add def /yi yp0 LCh*12 i54 get yfact1 mul add def xi yi 0040 0 360 arc fill } for %i=0,6 } if %old hexagon 1 setgray 30 setlinewidth 0 1 6 {/i exch def %i=0,6 0 setgray /i50 i 5 mul def /i53 i50 3 add def %a* /i54 i50 4 add def %b* /xi xp0 LCh*12n i53 get xfact1 mul add def /yi yp0 LCh*12n i54 get yfact1 mul add def i 0 eq {xi yi moveto} if i 1 ge {xi yi lineto} if i 6 eq {stroke} if } for %i=0,6 0 1 5 {/i exch def %i=0,5 1 1 3 {/k exch def %k=1,3 0 setgray /i34 i 12 mul k 3 mul add def /i50 i 5 mul def /i53 i50 3 add def /i54 i50 4 add def /xi0 xp0 LCh*12n i53 get xfact1 mul add def /yi0 yp0 LCh*12n i54 get yfact1 mul add def /xi1 xp0 LCh*12n i53 5 add get xfact1 mul add def /yi1 yp0 LCh*12n i54 5 add get yfact1 mul add def /xiM xi0 xi1 xi0 sub k 0.25 mul mul add def /yiM yi0 yi1 yi0 sub k 0.25 mul mul add def /r rgb*30Y i34 3 add get def /g rgb*30Y i34 4 add get def /b rgb*30Y i34 5 add get def r g b setrgbcolor xiM yiM 0050 0 360 arc fill } for %k=1,3 } for %i=0,5 newpath /xshift 6 array def /yshift 6 array def % R Y G C B M /xshift [-50 -150 -100 -100 -250 -050] def /yshift [120 150 150 -300 -200 -300] def xchart8 1 eq {yshift 1 -300 put} if 0 1 5 {/i exch def %i=0,5 0 setgray /i3 i 3 mul def /i50 i 5 mul def /i53 i50 3 add def /i54 i50 4 add def /xi xp0 LCh*12n i53 get xfact1 mul add def /yi yp0 LCh*12n i54 get yfact1 mul add def xi yi 0100 0 360 arc fill /r rgb*36X i3 0 add get def /g rgb*36X i3 1 add get def /b rgb*36X i3 2 add get def r g b setrgbcolor xi yi 0050 0 360 arc fill newpath 0 setgray xi xshift i get add yi yshift i get add moveto tex*36X i 3 mul 2 add get show newpath } for %i=0,5 20 setlinewidth xt2 neg yt2 neg translate } if %xchart6=1 hue circle %******************************************************* showpage grestore %%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 fen01-6a BEE41-2n %%BoundingBox: 70 85 243 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: farbe.li.tu-berlin.de/fen0/fen0.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2020090112000) /ModDate (D:2020090112000) /DOCINFO pdfmark16 [ /View [ /Fit ] /DOCVIEW pdfmark16 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } 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 /TX {120 /Times-ISOL1 FS} bind def /TV {160 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIX {120 /TimesI-ISOL1 FS} bind def /TIV {160 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBX {120 /TimesB-ISOL1 FS} bind def /TBV {160 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIX {120 /TimesBI-ISOL1 FS} bind def /TBIV {160 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /XD65 95.05 def /YD65 100.00 def /ZD65 108.90 def /xanD65 XD65 XD65 YD65 add ZD65 add div def /yanD65 YD65 XD65 YD65 add ZD65 add div def %******************************************************* %created for 10 colours of hue circle and different lightness /LCh*12 60 array def /XYZ*12 60 array def /LCh*12n 60 array def /XYZ*12n 60 array def %************************************************************** %created for 45 colours of equal chroma and different lightness /rgb*45 500 array def %5x45, NOT 3x45 /LCh*45 500 array def %5x45 /XYZ*45 500 array def %5x45 /rgb*45n 500 array def %5x45, NOT 3x45 /XYZ*45n 500 array def %5x45 /XYZ*45na 500 array def /LCh*45n 500 array def %5x45 /LCh*45na 500 array def %5x45 %************************************************************ %definition of A for xchartl=0 to 5 /XYZ*5A 5 array def /LCh*5A 5 array def /XYZ*5N 5 array def /LCh*5N 5 array def /XYZ*5W 5 array def /LCh*5W 5 array def /XYZ*5An 5 array def /LCh*5An 5 array def /XYZ*5Nn 5 array def /LCh*5Nn 5 array def /XYZ*5Wn 5 array def /LCh*5Wn 5 array def /rgb*3A 3 array def /tex*3A 3 array def /rgb*3N 3 array def /tex*3N 3 array def /rgb*3W 3 array def /tex*3W 3 array def /LCh*5Na 5 array def %a=actual /LCh*5Wa 5 array def /LCh*5Aa 5 array def %******************************************************************* /proz_XYZ_LCh* {%BEG proz_XYZ_LCh* %input XYZaref, output LChab*ref, same name in any case %output LabC*h (xchart8=0) or LABC*h (xchart8=1) /XQ Xaref XD65 div def /YQ Yaref YD65 div def /ZQ Zaref ZD65 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 xchart8 0 eq {%xchart8=0 LabCh*-CIELAB /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 } if %xchart8=0 LabCh*-CIELAB xchart8 1 eq {%xchart8=1 LabCh*=LABCh* /a*ref XQ YQ sub 250 mul def /b*ref YQ ZQ sub 100 mul def } if %xchart8=1 LabCh*=LABCh* xchart8 2 eq {%xchart8=2 LabCh*=LAB1Ch* /xanc 0.110 def /Bc 1.000 def /a20 1.000 def /b20 -0.400 def /SUM Xaref Yaref add Zaref add 0.0001 add def /xan Xaref SUM div def /yan Yaref SUM div def /zan Zaref SUM div def /SUMD65 XD65 YD65 add ZD65 add 0.0001 add def /xanD65 XD65 SUMD65 div def /yanD65 YD65 SUMD65 div def /zanD65 ZD65 SUMD65 div def /aan xan xanc sub yan div a20 mul def /ban zan yan div b20 mul def /aanD65 xanD65 xanc sub yanD65 div a20 mul def /banD65 zanD65 yanD65 div b20 mul def /a*ref aan aanD65 sub 2.5 mul Yaref mul def /b*ref ban banD65 sub 2.5 mul Bc mul Yaref mul def } if %xchart8=2 LabCh*=LAB1Ch* xchart8 3 eq {%xchart8=3 LabCh*=LAB2Ch* /xanc 0.110 def /Bc 0.800 def /a20 1.000 def /b20 -0.400 def /SUM Xaref Yaref add Zaref add 0.0001 add def /xan Xaref SUM div def /yan Yaref SUM div def /zan Zaref SUM div def /SUMD65 XD65 YD65 add ZD65 add 0.0001 add def /xanD65 XD65 SUMD65 div def /yanD65 YD65 SUMD65 div def /zanD65 ZD65 SUMD65 div def /aan xan xanc sub yan div a20 mul def /ban zan yan div b20 mul def /aanD65 xanD65 xanc sub yanD65 div a20 mul def /banD65 zanD65 yanD65 div b20 mul def /a*ref aan aanD65 sub 2.5 mul Yaref mul def /b*ref ban banD65 sub 2.5 mul Bc mul Yaref mul def } if %xchart8=3 LabCh*=LAB2Ch* /C*ref a*ref dup mul b*ref dup mul add sqrt def /h*ref b*ref a*ref 0.00001 add atan def C*ref 0.05 le {/h*ref 0 def} if } bind def %END proz_XYZ_LCh* %******************************************************************* /proz_LCh*_XYZ {%BEG proz_LCh*_XYZ %input LCh*ref of LabC*h (xchart8=0) or L*ABCh (xchart8=1) %output XYZref, xyanref xchart8 0 eq {%xchart8=0 /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /a*ref C*ref h*ref cos mul def /b*ref C*ref h*ref sin mul def /X* {L*ref 16 add 116 div a*ref 500 div add} bind def /Y* {L*ref 16 add 116 div} bind def /Z* {L*ref 16 add 116 div b*ref 200 div sub} bind def /Xref X* DecodeXYZ* XD65 mul def /Yref Y* DecodeXYZ* YD65 mul def /Zref Z* DecodeXYZ* ZD65 mul def } if %xchart8=0 xchart8 1 ge {%xchart8>=1 xchart8 1 eq {%xchart8=1 /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /Y* {L*ref 16 add 116 div} bind def /Yref Y* DecodeXYZ* YD65 mul def } if %xchart8=1 xchart8 2 eq {%xchart8=2 /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /Y* {L*ref 16 add 116 div} bind def /Yref Y* DecodeXYZ* YD65 mul def } if %xchart8=2 xchart8 3 eq {%xchart8=3 /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /Y* {L*ref 16 add 116 div} bind def /Yref Y* DecodeXYZ* YD65 mul def } if %xchart8=3 /a*ref C*ref h*ref cos mul def /b*ref C*ref h*ref sin mul def /Xref a*ref 250 div XD65 mul Yref XD65 mul YD65 div add def /Zref Yref ZD65 mul YD65 div b*ref 100 div ZD65 mul sub def } if %xchart8>=1 Xref 0.01 lt {/Xref 0.01 def} if Yref 0.01 lt {/Yref 0.01 def} if Zref 0.01 lt {/Zref 0.01 def} if /SUM Xref Yref add Zref add 0.0001 add def /xanref Xref SUM div def /yanref Yref SUM div def } bind def %END proz_LCh*_XYZ %************************************************************************* /proz_XYZnw_D65_xchart7_definition {%BEG proz_XYZnw_D65_xchart7_definition % achromatic colours /XLWD65100 95.04 def /YLWD65100 100.00 def /ZLWD65100 108.88 def /XLN001 XLWD65100 100 div def /YLN001 YLWD65100 100 div def /ZLN001 ZLWD65100 100 div def /YrN 2.52 def /Xnref YrN XLN001 mul def /Ynref YrN def /Znref YrN ZLN001 mul def /Xtref XYZnref_ISO9241-306 xchart7 3 mul 0 add get def /Ytref XYZnref_ISO9241-306 xchart7 3 mul 1 add get def /Ztref XYZnref_ISO9241-306 xchart7 3 mul 2 add get def /YNil Ytref def /YNil001 YNil 100 div def YNil001 6 29 div 3 exp ge {/FYYn YNil001 0.3333 exp def} {/FYYn 841 108 div YNil001 mul 4 29 div add def} ifelse /L*Nil 116 FYYn mul 16 sub def } bind def %END proz_XYZnw_D65_xchart7_definition %************************************************************** /proz_XYZ*12_XYZ*12n {%BEG proz_XYZ*12_XYZ*12n %for 10 colours %input XYZ*12, rgb*10 %output LCh*12n, rgb*10n %only for xchart5=1 and for 10 colours in 7 hue planes and achromatic %change XYZ*12 to XYZ*12n by display reflection according to xchart7 %normalization to Ynor=18 xchart9 1 eq {%xchart9=1 /Xnor XD65 0.18 mul def /Ynor YD65 0.18 mul def /Znor ZD65 0.18 mul def /Xfac1 Xnor Xnor Xtref add div def /Yfac1 Ynor Ynor Ytref add div def /Zfac1 Znor Znor Ztref add div def XYZ*12n i100 XYZ*12 i100 get Xnor sub Xfac1 mul Xnor add put XYZ*12n i101 XYZ*12 i101 get Ynor sub Yfac1 mul Ynor add put XYZ*12n i102 XYZ*12 i102 get Znor sub Zfac1 mul Znor add put } if %xchart9=1 %normalization to Ynor=88.6 xchart9 0 eq {%xchart9=0 /Xnor XD65 0.886 mul def /Ynor YD65 0.886 mul def /Znor ZD65 0.886 mul def /Xfac2 Xnor Xtref sub Xnor div def /Yfac2 Ynor Ytref sub Ynor div def /Zfac2 Znor Ztref sub Znor div def XYZ*12n i100 XYZ*12 i100 get Xfac2 mul Xtref add put XYZ*12n i101 XYZ*12 i101 get Yfac2 mul Ytref add put XYZ*12n i102 XYZ*12 i102 get Zfac2 mul Ztref add put } if %xchart9=0 } bind def %END proz_XYZ*12_XYZ*12n %**************************************************************** /proz_XYZ*45_XYZ*45n {%BEG proz_XYZ*45_XYZ*45n %for 45 colours %input XYZ*45, rgb*45 %output XYZ*45n, rgb*45n %only for xchart5=1 and for 45 colours in hue plane %change XYZ*45 to XYZ*45n by display reflection according t0 xchart7 %normalization to Ynor=18 xchart9 1 eq {%xchart9=1 /Xnor XD65 0.18 mul def /Ynor YD65 0.18 mul def /Znor ZD65 0.18 mul def /Xfac1 Xnor Xnor Xtref add div def /Yfac1 Ynor Ynor Ytref add div def /Zfac1 Znor Znor Ztref add div def XYZ*45n i450 XYZ*45 i450 get Xnor sub Xfac1 mul Xnor add put XYZ*45n i451 XYZ*45 i451 get Ynor sub Yfac1 mul Ynor add put XYZ*45n i452 XYZ*45 i452 get Znor sub Zfac1 mul Znor add put } if %xchart9=1 %normalization to Ynor=88.6 xchart9 0 eq {%xchart9=0 /Xnor XD65 0.886 mul def /Ynor YD65 0.886 mul def /Znor ZD65 0.886 mul def /Xfac2 Xnor Xtref sub Xnor div def /Yfac2 Ynor Ytref sub Ynor div def /Zfac2 Znor Ztref sub Znor div def XYZ*45n i450 XYZ*45 i450 get Xfac2 mul Xtref add put XYZ*45n i451 XYZ*45 i451 get Yfac2 mul Ytref add put XYZ*45n i452 XYZ*45 i452 get Zfac2 mul Ztref add put } if %xchart9=0 } bind def %END proz_XYZ*45_XYZ*45n %*********************************************************** %*********************************************************** /proz_sRGB_rgb*36X_definitions {%BEG proz_sRGB_rgb*36X_definitions /XYZ*WCGa_d_0000_0886 36 array def %d, Yw=88,6, Yn=2,50 /XYZ*WCGa_d_0000_0886 [056.43 023.27 000.00 %0 Rd %ANH9_Y10-7N,201003, fehl? Zmin=2.72 069.24 083.34 002.48 %1 Yd 012.81 060.07 002.48 %2 Gd 027.77 066.32 096.48 %3 Cd 014.96 005.25 094.00 %4 Bd 071.39 028.52 094.00 %5 Md 056.43 023.27 000.00 %6 Rd %for hue circle 000.01 000.01 000.01 %7 N0 084.21 088.60 096.48 %8 W0 000.01 000.01 000.01 %9 N1 095.05 100.00 108.90 %10 W1 017.11 18.00 19.60 %11 Z1 ] def /XYZ*sRGB_d_0000_0886 36 array def %d, Yw=88,60, Yn=0,00 /XYZ*sRGB_d_0000_0886 [036.54 018.84 001.71 %0 Rd %from AE99:Y10-7N (ISO 9241-306 for 100/88,6) 068.22 082.20 012.27 %1 Yd %new table 210217, only R was for 88.60 031.68 063.36 010.56 %2 Gd 047.67 069.76 094.78 %3 Cd 015.99 006.40 084.22 %4 Bd 052.53 025.24 085.93 %5 Md 036.54 018.84 001.71 %6 Rd %for hue circle 000.01 000.01 000.01 %7 N0 084.21 088.60 096.48 %8 W0 000.01 000.01 000.01 %9 N1 095.05 100.00 108.90 %10 W1 017.11 18.00 19.60 %11 Z1 ] def /XYZ*Ostw_d_0000_1000 36 array def %m, Yw=100,00, Yn=0,00 /XYZ*Ostw_d_0000_1000 [062.40 041.75 000.76 %0 Rm 561_405 589 %ANI6_Y10-7N,201012 076.68 082.00 001.27 %1 Ym 520_520c 569 023.83 065.32 015.00 %2 Gm 475_473 528c 032.63 058.24 108.12 %3 Cm 405_561 483 018.36 017.99 107.61 %4 Bm 519c-519 471 071.20 034.67 093.88 %5 Mm 573_475 528c 062.40 041.75 000.76 %6 Rm 561_405 589 %for hue circle 000.01 000.01 000.01 %7 N0 095.05 100.00 108.90 %8 W0 000.01 000.01 000.01 %9 N1 107.29 112.88 122.24 %10 W1 19.31 20.31 22.00 %11 Z1 ] def /XYZ*Offs_d_0000_0886 36 array def %d, Yw=88,60, Yn=0,00 /XYZ*Offs_d_0000_0886 [029.01 016.24 004.26 %0 Rd %ANJ7_Y11-1N,201012 063.74 072.69 008.27 %1 Yd 008.53 020.05 009.58 %2 Gd 018.74 026.27 069.02 %3 Cd 006.22 004.51 022.65 %4 Bd 032.46 016.95 023.04 %5 Md 029.01 016.24 004.26 %6 Rd %for hue circle 000.01 000.01 000.01 %7 N0 084.21 088.60 096.48 %8 W0 000.01 000.01 000.01 %9 N1 095.05 100.00 108.90 %10 W1 017.11 18.00 19.60 %11 Z1 ] def /rgb*36X 36 array def /rgb*36X [1 0 0 %0 1 1 0 %1 0 1 0 %2 0 1 1 %3 0 0 1 %4 1 0 1 %5 1 0 0 %6 0.00 0.00 0.00 %7 N0 1.00 1.00 1.00 %8 W0 0.00 0.00 0.00 %9 N1 1.13 1.13 1.13 %10 W1 0.18 0.18 0.18 %11 Z1 ] def /tex*36X 36 array def /tex*36X [(Rot) (red) (R) %0 (Gelb) (yellow) (Y) %1 (Gr\374n) (green) (G) %2 (Cyan) (cyan) (C) %3 (Blau) (blue) (B) %4 (Magenta) (magenta) (M) %5 (Rot) (red) (R) %6 (Schwarz) (black) (N) %7 (Wei\337) (white) (W) %8 (Schwarz) (black) (N1) %9 (Wei\337) (white) (W1) %10 (Grau) (grey) (Z1) %11 ] def /XYZnref_ISO9241-306 24 array def /XYZnref_ISO9241-306 [ %XYZnref wit contrast step according to ISO 9241-306:2018 00.01 00.01 00.01 %0 0288:1 00.60 00.63 00.69 %1 0144:1 01.20 01.26 01.37 %2 0072:1 02.40 02.52 02.74 %3 0036:1 %standard 04.79 05.04 05.49 %4 0018:1 08.58 10.08 10.98 %5 0009:1 19.16 20.16 21.95 %6 04,5:1 38.32 40.32 43.90 %7 2,25:1 ] def /Ynref_ISO9241-306 8 array def 0 1 7 {/i exch def %i=0,7 /i31 i 3 mul 1 add def Ynref_ISO9241-306 i XYZnref_ISO9241-306 i31 get put } for %i=0,7 0 1 11 {/sISO exch def /i30 sISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def /i50 sISO 5 mul def /i51 i50 1 add def /i52 i50 2 add def /i53 i50 3 add def /i54 i50 4 add def xchart4 0 eq {%xchart4=0 XYZ*12 i50 XYZ*sRGB_d_0000_0886 i30 get put XYZ*12 i51 XYZ*sRGB_d_0000_0886 i31 get put XYZ*12 i52 XYZ*sRGB_d_0000_0886 i32 get put } if %xchart4=0 xchart4 1 eq {%xchart4=1 XYZ*12 i50 XYZ*WCGa_d_0000_0886 i30 get put XYZ*12 i51 XYZ*WCGa_d_0000_0886 i31 get put XYZ*12 i52 XYZ*WCGa_d_0000_0886 i32 get put } if %xchart4=1 xchart4 2 eq {%xchart4=2 XYZ*12 i50 XYZ*Offs_d_0000_0886 i30 get put XYZ*12 i51 XYZ*Offs_d_0000_0886 i31 get put XYZ*12 i52 XYZ*Offs_d_0000_0886 i32 get put } if %xchart4=2 xchart4 3 eq {%xchart4=3 XYZ*12 i50 XYZ*Ostw_d_0000_1000 i30 get 0.8860 mul put XYZ*12 i51 XYZ*Ostw_d_0000_1000 i31 get 0.8860 mul put XYZ*12 i52 XYZ*Ostw_d_0000_1000 i32 get 0.8860 mul put } if %xchart4=3 /SUM XYZ*12 i50 get XYZ*12 i51 get add XYZ*12 i52 get add def XYZ*12 i53 XYZ*12 i50 get SUM div put XYZ*12 i54 XYZ*12 i51 get SUM div put %will be replaced, if xchart5=1 XYZ*12n i50 XYZ*12 i50 get put XYZ*12n i51 XYZ*12 i51 get put XYZ*12n i52 XYZ*12 i52 get put XYZ*12n i53 XYZ*12 i53 get put XYZ*12n i54 XYZ*12 i54 get put } for %i=0,11 } bind def %END proz_sRGB_rgb*36X_definitions %*************************************************************** /proz_out_text_ANW_definition {%BEG proz_out_text_ANW_definition %loop for maximal 5 colours +N +W 0 1 2 {/j exch def %j=0,2 %three components /i3j xchartl 3 mul j add def rgb*3A j rgb*36X i3j get put tex*3A j tex*36X i3j get put } for %j=0,2 0 1 4 {/j exch def %j=0,4 %three components /i5j xchartl 5 mul j add def XYZ*5A j XYZ*12 i5j get put LCh*5A j LCh*12 i5j get put XYZ*5An j XYZ*12n i5j get put LCh*5An j LCh*12n i5j get put } for %j=0,4 0 1 2 {/i exch def %i=0,2 rgb*3N i rgb*36X i 21 add get put %8x3 tex*3N i tex*36X i 21 add get put rgb*3W i rgb*36X i 24 add get put %9x3 tex*3W i tex*36X i 24 add get put } for %i=0,2 0 1 4 {/i exch def %i=0,4 XYZ*5N i XYZ*12 i 35 add get put %8x5 LCh*5N i LCh*12 i 35 add get put XYZ*5W i XYZ*12 i 40 add get put %9x5 LCh*5W i LCh*12 i 40 add get put XYZ*5Nn i XYZ*12n i 35 add get put %8x5 LCh*5Nn i LCh*12n i 35 add get put XYZ*5Wn i XYZ*12n i 40 add get put %9x5 LCh*5Wn i LCh*12n i 40 add get put } for %i=0,4 /L*Xd LCh*5A 0 get def /C*Xd LCh*5A 1 get def /L*Nd LCh*5N 0 get def /L*Wd LCh*5W 0 get def /L*Xdn LCh*5An 0 get def /C*Xdn LCh*5An 1 get def /L*Ndn LCh*5Nn 0 get def /L*Wdn LCh*5Wn 0 get def /xfact 2000 100 div def /yfact 2000 100 div def %Titeltext /xd 1550 def /yd 5000 def /xp 1550 def /yp 5000 def /xpN xp def /ypN yp 2000 sub def /xpW xp def /ypW yp def /xpX xp 2000 add def /ypX yp 1000 sub def /xNd xp def %Nd /yNd ypN L*Nd yfact mul add def %Nd /xWd xp def %Wd /yWd ypN L*Wd yfact mul add def %Wd /xRd xp C*Xd xfact mul add def %Xd /yRd ypN L*Xd yfact mul add def /tex_LC*hab {xchart8 0 eq {(LC*hab) show} if xchart8 1 eq {(L*ChAB) show} if xchart8 2 eq {(L*ChAB) show} if xchart8 3 eq {(L*ChAB) show} if } bind def /tex_LabC*h {xchart8 0 eq {(LabC*h) show} if xchart8 1 eq {(L*ABCh) show} if xchart8 2 eq {(L*ABCh) show} if xchart8 3 eq {(L*ABCh) show} if } bind def /indd {0 -50 rmoveto (d) show 0 50 rmoveto} bind def /inddk {0 -50 rmoveto (d,) show 0 50 rmoveto} bind def /inde {0 -50 rmoveto (d) show 0 50 rmoveto} bind def /indek {0 -50 rmoveto (d,) show 0 50 rmoveto} bind def /indab {0 -50 rmoveto xchart8 0 eq {(ab)} if xchart8 1 eq {(AB)} if xchart8 2 eq {(AB1)} if xchart8 3 eq {(AB2)} if show 0 50 rmoveto} bind def /indabk {0 -50 rmoveto xchart8 0 eq {(ab,)} if xchart8 1 eq {(AB,)} if xchart8 2 eq {(AB1,)} if xchart8 3 eq {(AB2,)} if show 0 50 rmoveto} bind def /indabd {0 -50 rmoveto xchart8 0 eq {(ab,d)} if xchart8 1 eq {(AB,d)} if xchart8 2 eq {(AB1,d)} if xchart8 3 eq {(AB2,d)} if show 0 50 rmoveto} bind def /indabe {0 -50 rmoveto xchart8 0 eq {(ab,e)} if xchart8 1 eq {(AB,e)} if xchart8 2 eq {(AB1,e)} if xchart8 3 eq {(AB2,e)} if show 0 50 rmoveto} bind def /indabN {0 -50 rmoveto xchart8 0 eq {(ab,N)} if xchart8 1 eq {(AB,N)} if xchart8 2 eq {(AB1,N)} if xchart8 3 eq {(AB2,N)} if show 0 50 rmoveto} bind def /indabW {0 -50 rmoveto xchart8 0 eq {(ab,W)} if xchart8 1 eq {(AB,W)} if xchart8 2 eq {(AB1,W)} if xchart8 3 eq {(AB2,W)} if show 0 50 rmoveto} bind def } bind def %END proz_out_text_ANW_definition %************************************************************** /nshow {TS show} bind def /kshow {TIS show} bind def /bshow {TBS show} bind def /jshow {TBIS show} bind def /ibshown {TBV -50 -50 rmoveto show 0 50 rmoveto TBS} bind def /ibshow0 {TBV -00 -50 rmoveto show 0 50 rmoveto TBS} bind def /ishown {TV -50 -50 rmoveto show 0 50 rmoveto TS } bind def /ishow0 {TV -00 -50 rmoveto show 0 50 rmoveto TS } bind def %40% kleiner /ns4 {250 /Times-ISOL1 FS show TK} bind def /ks4 {250 /TimesI-ISOL1 FS show TK} bind def /bs4 {250 /TimesB-ISOL1 FS show TK} bind def /js4 {250 /TimesBI-ISOL1 FS show TK} bind def /ss4 {250 /Symbol FS show TK} bind def /is4 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /es4 {200 /Times-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ib4 {200 /TimesB-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /eb4 {200 /TimesB-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ip4 {200 /Times-ISOL1 FS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def %60% kleiner /ns6 {200 /Times-ISOL1 FS show TS} bind def /ks6 {200 /TimesI-ISOL1 FS show TS} bind def /bs6 {200 /TimesB-ISOL1 FS show TS} bind def /js6 {200 /TimesBI-ISOL1 FS show TS} bind def /ss6 {200 /Symbol FS show TS} bind def /is6 {160 /Times-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /es6 {160 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ib6 {160 /TimesB-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /eb6 {160 /TimesB-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ip6 {160 /Times-ISOL1 FS 24 24 rmoveto (\267) show 24 -24 rmoveto TS} bind /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show} def /cvsshow1g {/nxx exch def %example nxx=99.1/99.0 nxx 0 lt {(-) show /nxx nxx abs def} if 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 /cvsshow2g {/nxx exch def %example nxx=99.12/99,02/99,00 nxx 0 lt {(-) show /nxx nxx abs def} if 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 /cvsshow3g {/nxx exch def %example nxx=99.123/99.012/99.001/99.000 nxx 0 lt {(-) show /nxx nxx abs def} if 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 %%EndProlog gsave /lanind 0 def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind le {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind le {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind le {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES where {pop %/IMES IMES def } {/IMES 0 def} ifelse /xchartl 0 def %0 for xchart6=0 or 1; 0 to 5 for 6 hue planes /xchart3 0 def %0: LCH, %1: ICE/ice /xchart4 1 def %0: sRGB, 1: WCGa, 3: Offs, 4:Ostw /xchart5 1 def %0: YN=0, 1: YN=0,0 ..2,5 ..40,3 /xchart6 1 def %0: Y10-1N, %1 Y10-2N, %2: Y10-3N to 8N /xchart7 7 def %0 to 7: 8 contrast steps no. 1 to 8 according to ISO 9241-406 /xchart8 0 def %0: LabC*h, 1: L*ABCh, 2: L*AB1Ch, 3:L*AB2Ch /xchart9 0 def %0 for Normalizaton; 0: Y=88,6, 1: Y=18,0 4 /Times-ISOL1 FS 72 86 moveto (fen01-6a BEE41-2n) show 72 90 translate 0.01 MM 0.01 MM scale 15 setlinewidth 1 setgray /xwide 6000 def /ywide 4000 def 0 0 moveto xwide 0 rlineto 0 ywide rlineto xwide neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwide 0 rlineto 0 ywide rlineto xwide neg 0 rlineto closepath stroke %produces XYZ*12 and XYZ*12n proz_sRGB_rgb*36X_definitions %uses XYZ*12 proz_XYZnw_D65_xchart7_definition 0 1 11 {/i exch def %i=0,09 /i100 i 5 mul def /i101 i100 1 add def /i102 i100 2 add def /i103 i100 3 add def /i104 i100 4 add def /Xaref XYZ*12 i100 get def /Yaref XYZ*12 i101 get def /Zaref XYZ*12 i102 get def % in any case defined proz_XYZ_LCh* LCh*12 i100 L*ref put LCh*12 i101 C*ref put LCh*12 i102 h*ref put LCh*12 i103 a*ref put LCh*12 i104 b*ref put LCh*12n i100 L*ref put %may be replaced LCh*12n i101 C*ref put LCh*12n i102 h*ref put LCh*12n i103 a*ref put LCh*12n i104 b*ref put xchart5 1 eq {%BEG xchart5=1 %XYZaref see above %input XYZ*12 %output XYZ*12n, LCh*12n proz_XYZ*12_XYZ*12n %calculates intermediate XYZ*12n /Xaref XYZ*12n i100 get def /Yaref XYZ*12n i101 get def /Zaref XYZ*12n i102 get def %input XYZaref, output LChab*ref proz_XYZ_LCh* LCh*12n i100 L*ref put LCh*12n i101 C*ref put LCh*12n i102 h*ref put LCh*12n i103 a*ref put LCh*12n i104 b*ref put } if %xchart5=1 } for %i=0,11 %produces for hue circle and achromatic colours %XYZ*(ANW)_(ANW)n, LCh*(ANW)_(ANW)n with 5 components %rgb*(ANW)_(ANW)n, tex*(ANW)_(ANW)n with 3 components proz_out_text_ANW_definition /yt 300 def %y-Zeilenabstand for text /yd 400 def %y-Zeilenabstand for formula %Spalten /S1 100 def /S2 1500 def /S3 2300 def /S4 5900 def /S5 7700 def /S6 8500 def /yz 400 def /yu5 7600 def /yu4 7100 def /yu3 5800 def /yu2 5800 def /yu1 5800 def %******************************************************** xchart6 0 eq {%xchart6=0 table /xdXYZ 470 def /xdLab 570 def 50 3750 moveto TBIS xchart4 0 eq {(sRGB) show} if xchart4 1 eq {(WCGa) show} if xchart4 2 eq {(Offs) show} if xchart4 3 eq {(Ostw) show} if TBS (\255Daten ) showde ( data ) showen TBIS (rgb*) show TBIS (, XYZxy) show TBS (, and ) showen ( und ) showde TBIS tex_LabC*h TBV indab TBS xchart8 0 eq {%xchart8=0 ( im CIELAB\255Farbraum) showde ( in the CIELAB\255colour space) showen} if xchart8 1 eq {( im L*ABJND\255Farbraum) showde ( in L*ABJND\255colour space) showen} if xchart8 2 eq {( im L*AB1JND\255Farbraum) showde ( in L*AB1JND\255colour space) showen} if xchart8 3 eq {( im L*AB2JND\255Farbraum) showde ( in L*AB2JND\255colour space) showen} if 0 3650 moveto 6000 0 rlineto stroke 50 3400 moveto TS (Normfarbwerte von Schwarz und Wei\337: ) showde (Tristimulus values of black and white: ) showen TIS (Y) show TV 0 -40 rmoveto xchart5 0 eq {(N) show}{(Nn) show} ifelse 0 40 rmoveto TS (=) show xchart5 0 eq {XYZ*5N 1 get cvsshow1g} {XYZ*5Nn 1 get cvsshow1g} ifelse TIS (, Y) show TV 0 -40 rmoveto xchart5 0 eq {(W) show}{(Wn) show} ifelse 0 40 rmoveto TS (=) show xchart5 0 eq {XYZ*5W 1 get cvsshow1g} {XYZ*5Wn 1 get cvsshow1g} ifelse xchart5 1 eq {%xchart5=1 TIS (, Y) show TV 0 -40 rmoveto xchart9 0 eq {(Wa) show}{(Za) show} ifelse 0 40 rmoveto TS xchart9 0 eq {(=88,6.) show} {(=18.) show} ifelse } if %xchart5=1 /xt1 0000 def /yt1 0000 def xt1 yt1 translate /y01 3250 def /y02 2850 def /S10 40 def %colour /S20 0400 def %rgb /S30 0900 def %XYZ /S40 3300 def %LCh*ab 0 y01 moveto 6000 0 rlineto stroke 0 y02 100 sub moveto 6000 0 rlineto stroke 0 750 moveto 6000 0 rlineto stroke S20 50 sub y01 moveto S20 50 sub 0 lineto stroke S30 50 sub y01 moveto S30 50 sub 0 lineto stroke S40 50 sub y01 moveto S40 50 sub 0 lineto stroke TBV S30 y02 200 add moveto (CIEXYZ) show (\255Daten) showde ( data) showen S40 y02 200 add moveto TBIV xchart8 0 eq {(LabC*h) show} if xchart8 1 eq {(L*ABCh) show} if xchart8 2 eq {(L*ABCh) show} if xchart8 3 eq {(L*ABCh) show} if TBX indab TBV (\255Daten) showde ( data) showen S20 y02 moveto TBIV (rgb*) show /tex_XYZxy [(X) (Y) (Z) (x) (y)] def 0 1 4 {/k exch def %k=0,4 TBIV S30 k xdXYZ mul add y02 moveto tex_XYZxy k get show TBX S30 k xdXYZ mul add 080 add y02 moveto 0 -50 rmoveto (d) show 0 50 rmoveto } for %k=0,4 xchart8 0 eq {/tex_LabCh* [(L*) (a*) (b*) (C*) (h) ] def /ind_LabCh* [(d) (d) (d) (ab,d) (ab,d)] def /tex_xshift [120 120 120 120 80 ] def } if xchart8 1 eq {/tex_LabCh* [(L*) (A) (B) (C) (h) ] def /ind_LabCh* [(d) (d) (d) (AB,d) (AB,d)] def /tex_xshift [120 80 80 80 80 ] def } if xchart8 2 eq {/tex_LabCh* [(L*) (A) (B) (C) (h ) ] def /ind_LabCh* [(d) (1,d)(1,d)(AB1,d)(AB1,d)] def /tex_xshift [120 80 80 60 80 ] def } if xchart8 3 eq {/tex_LabCh* [(L*) (A) (B) (C) (h) ] def /ind_LabCh* [(d) (2,d)(2,d)(AB2,d)(AB2,d)] def /tex_xshift [120 80 80 60 80 ] def } if 0 1 4 {/k exch def %k=0,4 TBIV S40 k xdLab mul add y02 moveto tex_LabCh* k get show TBX S40 k xdLab mul add tex_xshift k get add y02 moveto 0 -50 rmoveto ind_LabCh* k get show 0 50 rmoveto } for %k=0,4 /y03 2500 def /y0d 235 def TBV 0 1 10 {/j exch def %j=0,9 colours without red twice /i j def j 6 ge {/i j 1 add def} if %for N and W /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def /ydd 0 def i 8 gt {/ydd 0.2 y0d mul def} if S10 y03 j y0d mul sub ydd sub moveto tex*36X i32 get show TBX 0 -40 rmoveto (d) show 0 40 rmoveto S20 y03 j y0d mul sub ydd sub moveto TBV i 8 le {%i<=7 rgb*36X i30 get cvishow ( ) show rgb*36X i31 get cvishow ( ) show rgb*36X i32 get cvishow} {rgb*36X i30 get cvsshow2g} ifelse /i50 i 5 mul def /i51 i50 1 add def /i52 i50 2 add def /i53 i50 3 add def /i54 i50 4 add def 0 1 4 {/k exch def %k=0,4 TV S30 k xdXYZ mul add y03 j y0d mul sub ydd sub moveto k 0 eq {XYZ*12n i50 get cvsshow2g} if k 1 eq {XYZ*12n i51 get cvsshow2g} if k 2 eq {XYZ*12n i52 get cvsshow2g} if k 3 eq {XYZ*12n i53 get cvsshow3g} if k 4 eq {XYZ*12n i54 get cvsshow3g} if } for %k=0,4 0 1 4 {/k exch def %k=0,4 k 3 le {TV}{TBV} ifelse S40 k xdLab mul add y03 j y0d mul sub ydd sub moveto k 0 eq {LCh*12n i50 get cvsshow2g} if k 1 eq {LCh*12n i53 get cvsshow2g} if k 2 eq {LCh*12n i54 get cvsshow2g} if k 3 eq {LCh*12n i51 get cvsshow2g} if k 4 eq {LCh*12n i52 get cvishow} if } for %k=0,4 } for %j=0,10 xt1 neg yt1 neg translate } if %xchart6=0 table %********************************************************* xchart6 1 eq {%xchart6=1 hue circle /xdLab 300 def %HUE CIRCLE /xd 1550 def /yd 5000 def /xp 1550 def /yp 5000 def /xdN xd def /ydN yd 2000 sub def /xdW xd def /ydW yd def /xdR xd 2000 add def /ydR yd 1000 sub def /xm 2000 4 div def /xip xd xm 2 mul add def /yip ydN xm 2 mul add def /xi1 xd xm 1 mul sub def /yi1 ydW xm 0.5 mul sub def /xi2 xd xm 2 mul add def /yi2 ydN 400 sub def /rgb*30Y 84 def %7x12 /rgb*30Y [1.00 0.00 0.00 %0 R 1.00 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 1.00 1.00 0.00 %1 Y 0.75 1.00 0.00 0.50 1.00 0.00 0.25 1.00 0.00 0.00 1.00 0.00 %2 G 0.00 1.00 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 1.00 1.00 %3 C 0.00 0.75 1.00 0.00 0.50 1.00 0.00 0.25 1.00 0.00 0.00 1.00 %4 B 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 1.00 1.00 0.00 1.00 %5 M 1.00 0.00 0.75 1.00 0.00 0.50 1.00 0.00 0.25 1.00 0.00 0.00 %6 R 1.00 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 ] def 50 3800 moveto TBIS xchart4 0 eq {(sRGB) show} if xchart4 1 eq {(WCGa) show} if xchart4 2 eq {(Offs) show} if xchart4 3 eq {(Ostw) show} if TBS (\255Daten ) showde ( data ) showen TBIS (rgb*) show TBIS (, XYZxy) showde (, XYZxy) showen TBS (, and ) showen ( und ) showde TBIS xchart8 0 eq {(LabC*h) show} if xchart8 1 eq {(L*ABCh) show} if xchart8 2 eq {(L*ABCh) show} if xchart8 3 eq {(L*ABCh) show} if TBV 0 -40 rmoveto xchart8 0 eq {(ab)} if xchart8 1 eq {(AB)} if xchart8 2 eq {(AB1)} if xchart8 3 eq {(AB2)} if show 0 40 rmoveto TBS xchart8 0 eq {%xchart8=0 ( im CIELAB\255Farbraum) showde ( in the CIELAB\255colour space) showen } if %xchart8=0 xchart8 1 eq {%xchart8=1 ( im L*ABJND\255Farbraum) showde ( in L*ABJND\255colour space) showen } if %xchart8=1 xchart8 2 eq {%xchart8=2 ( im L*AB1JND\255Farbraum) showde ( in L*AB1JND\255colour space) showen } if %xchart8=2 xchart8 3 eq {%xchart8=3 ( im L*AB2JND\255Farbraum) showde ( in L*AB2JND\255colour space) showen } if %xchart8=3 0 3700 moveto 6000 0 rlineto stroke 50 3500 moveto TS (Normfarbwerte von Schwarz und Wei\337: ) showde (Tristimulus values of black and white: ) showen TIS (Y) show TV 0 -40 rmoveto xchart5 0 eq {(N) show}{(Nn) show} ifelse 0 40 rmoveto TS (=) show xchart5 0 eq {XYZ*5N 1 get cvsshow1g} {XYZ*5Nn 1 get cvsshow1g} ifelse TIS (, Y) show TV 0 -40 rmoveto xchart5 0 eq {(W) show}{(Wn) show} ifelse 0 40 rmoveto TS (=) show xchart5 0 eq {XYZ*5W 1 get cvsshow1g} {XYZ*5Wn 1 get cvsshow1g} ifelse xchart5 1 eq {%xchart5=1 (, Y) show TV 0 -40 rmoveto xchart9 0 eq {(Wa) show}{(Za) show} ifelse 0 40 rmoveto TS xchart9 0 eq {(=88,6.) show}{(=18.) show} ifelse } if %xchart5=1 /y01 3350 def /y02 3300 def /S10 40 def %colour /S20 0270 def %rgb /S40 0650 def %LCh*ab xchart8 0 eq {/S50 2600 def} {/S50 2150 def} ifelse %[X] %TBV %S40 y02 250 add moveto %TBIV %xchart8 0 eq {(LabC*h) show} if %xchart8 1 eq {(L*ABCh) show} if %xchart8 2 eq {(L*ABCh) show} if %xchart8 3 eq {(L*ABCh) show} if %TBX %indab %TBV %(\255Daten) showde %( data) showen S20 y02 moveto TBIV (rgb*) show TBX -50 -50 rmoveto (d) show 50 50 rmoveto xchart8 0 eq {/tex_LabCh* [(L*) (a*) (b*) (C*) (h) ] def /ind_LabCh* [(d) (d) (d) (ab,d) (ab,d)] def /tex_xshift [120 120 120 100 80 ] def } if xchart8 1 eq {/tex_LabCh* [(L*) (A) (B) (C) (h) ] def /ind_LabCh* [(d) (d) (d) (AB,d) (AB,d)] def /tex_xshift [120 80 80 80 80 ] def } if xchart8 2 eq {/tex_LabCh* [(L*) (A) (B) (C) (h) ] def /ind_LabCh* [(d) (1,d)(1,d)(AB1,d)(AB1,d)] def /tex_xshift [120 80 80 80 80 ] def } if xchart8 3 eq {/tex_LabCh* [(L*) (A) (B) (C) (h) ] def /ind_LabCh* [(d) (2,d)(2,d)(AB2,d)(AB2,d)] def /tex_xshift [120 80 80 80 80 ] def } if 0 1 4 {/k exch def %k=0,4 TBIV /xdLabk 0 def k 1 eq {/xdLabk -50 def} if k 2 eq {/xdLabk -50 def} if k 3 eq {/xdLabk -70 def} if k 4 eq {/xdLabk 50 def} if S40 k xdLab mul add xdLabk add y02 moveto tex_LabCh* k get show TBX S40 k xdLab mul add xdLabk add tex_xshift k get add y02 moveto 0 -50 rmoveto ind_LabCh* k get show 0 50 rmoveto } for %k=0,4 /y03 3100 def /y0d 190 def 0 1 7 {/j exch def %j=0,8 9 colours /i j def j 6 ge {/i j 1 add def} if %for N and W /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def /i50 i 5 mul def /i51 i50 1 add def /i52 i50 2 add def /i53 i50 3 add def /i54 i50 4 add def S10 y03 j y0d mul sub moveto TBV tex*36X i32 get show TBX 0 -40 rmoveto (d) show 0 40 rmoveto S20 y03 j y0d mul sub moveto TBV rgb*36X i30 get cvishow ( ) show rgb*36X i31 get cvishow ( ) show rgb*36X i32 get cvishow 0 1 4 {/k exch def %k=0,4 /xdLabk 0 def k 1 eq {/xdLabk -50 def} if k 2 eq {/xdLabk -50 def} if k 3 eq {/xdLabk -50 def} if k 4 lt {TV}{TBV} ifelse S40 k xdLab mul add xdLabk add y03 j y0d mul sub moveto k 0 eq {LCh*12n i50 get cvishow} if k 1 eq {LCh*12n i53 get dup -100 le {-50 0 rmoveto} if cvishow} if k 2 eq {LCh*12n i54 get dup -100 le {-50 0 rmoveto} if cvishow} if k 3 eq {LCh*12n i51 get cvishow} if k 4 eq {LCh*12n i52 get cvishow} if } for %k=0,4 } for %j=0,7 /y0d 0210 def xchart8 1 le {%xchart8<=1 S10 y03 11.2 y0d mul sub moveto TBIV xchart8 0 eq {(a*) show} if xchart8 1 eq {(A) show} if TBV xchart8 0 eq {( = 500 [\050) show} if xchart8 1 eq {( = 250 [) show} if TBIV (X) show TBV ( / ) show TBIV (X) show TBX 0 -40 rmoveto (D65) show 0 40 rmoveto TBV xchart8 0 eq {(\051) show TBX 0 100 rmoveto (1/3) show 0 -100 rmoveto } if TBV ( - ) show xchart8 0 eq {(\050) show} if TBIV (Y) show TBV ( / ) show TBIV (Y) show TBX 0 -40 rmoveto (D65) show 0 40 rmoveto TBV xchart8 0 eq {(\051) show TBX 0 100 rmoveto (1/3) show 0 -100 rmoveto } if TBV ( ]) show S50 y03 11.2 y0d mul sub moveto TBV xchart8 0 eq {([1a]) show} if xchart8 1 eq {([1b]) show} if S10 y03 12.2 y0d mul sub moveto TBIV xchart8 0 eq {(b*) show} if xchart8 1 eq {(B) show} if TBV xchart8 0 eq {( = 200 [\050) show} if xchart8 1 eq {( = 100 [) show} if TBIV (Y) show TBV ( / ) show TBIV (Y) show TBX 0 -40 rmoveto (D65) show 0 40 rmoveto TBV xchart8 0 eq {(\051) show TBX 0 100 rmoveto (1/3) show 0 -100 rmoveto} if TBV ( - ) show xchart8 0 eq {(\050) show} if TBIV (Z) show TBV ( / ) show TBIV (Z) show TBX 0 -40 rmoveto (D65) show 0 40 rmoveto TBV xchart8 0 eq {(\051) show TBX 0 100 rmoveto (1/3) show 0 -100 rmoveto} if TBV ( ]) show S50 y03 12.2 y0d mul sub moveto TBV xchart8 0 eq {([2a]) show} if xchart8 1 eq {([2b]) show} if } if %xchart8<=1 xchart8 2 eq {%xchart8=2 /index0 {0 -50 rmoveto TBX (1) show 0 50 rmoveto xcol10KBX} def /indexn {0 -50 rmoveto TBX (1,n) show 0 50 rmoveto xcol10KBX} def } if %xchart8=2 xchart8 3 eq {%xchart8=3 /index0 {0 -50 rmoveto TBX (2) show 0 50 rmoveto xcol10KBX} def /indexn {0 -50 rmoveto TBX (2,n) show 0 50 rmoveto xcol10KBX} def } if %xchart8=3 /xcol10_BX {xcolor 1 eq {TBX 0 -50 rmoveto (10) show 0 50 rmoveto TBV} if } bind def /xcol10KBX {xcolor 1 eq {TBX 0 -50 rmoveto (,10) show 0 50 rmoveto TBV} if } bind def TBIV /y04 3100 def xchart8 2 ge {%xchart8>=2 xchart8 2 eq {/Bct (1,000) def /xct (0,110) def} if xchart8 3 eq {/Bct (0,800) def /xct (0,110) def} if S10 y04 07.2 y0d mul sub moveto TBIV (a) show index0 TBV ( = ) show TBIV (a) show 0 -50 rmoveto TBX (20) show 0 50 rmoveto TBV ( [ ) show TBIV (\050 x) show xcol10_BX TBV ( - ) show TBIV (x) show 0 -50 rmoveto TBX (c) show 0 50 rmoveto TBIV ( \051 / y) show xcol10_BX TBV (]) show S10 y04 08.2 y0d mul sub moveto TBIV (b) show index0 TBV ( = ) show TBIV (b) show 0 -50 rmoveto TBX (20) show 0 50 rmoveto TBV ( [) show TBIV ( z) show xcol10_BX TBIV ( / y) show xcol10_BX TBV (]) show S10 y04 09.2 y0d mul sub moveto TBIV (a) show 0 -50 rmoveto TBX (20) show 0 50 rmoveto TBV ( = 1, ) show TBIV (b) show 0 -50 rmoveto TBX (20) show 0 50 rmoveto TBV ( = -0,4) show S10 y04 10.2 y0d mul sub moveto TBIV (x) show 0 -50 rmoveto TBX (c) show 0 50 rmoveto TBV ( = ) show xct show (, ) show TBIV (B) show 0 -50 rmoveto TBX (c) show 0 50 rmoveto TBV ( = ) show Bct show S10 y04 11.2 y0d mul sub moveto TBIV (A) show index0 TBV ( = 2,5 \050) show TBIV (a) show index0 TBV ( - ) show TBIV (a) show indexn TBV (\051 ) show TBIV (Y) show xcol10_BX S50 y04 11.2 y0d mul sub moveto TBV xchart8 2 eq {([1c]) show} if xchart8 3 eq {([1d]) show} if S10 y04 12.2 y0d mul sub moveto TBIV (B) show index0 TBV ( = 2,5 ) show TBIV (B) show 0 -50 rmoveto TBX (c) show 0 50 rmoveto TBV ( \050) show TBIV (b) show index0 TBV ( - ) show TBIV (b) show indexn TBV (\051 ) show TBIV (Y) show xcol10_BX S50 y04 12.2 y0d mul sub moveto TBV xchart8 2 eq {([2c]) show} if xchart8 3 eq {([2d]) show} if } if %xchart8>=2 %for all S10 y04 13.4 y0d mul sub moveto TBIV (C) show TBIV xchart8 0 eq {(*) show} if TBX xchart8 0 eq {0 -40 rmoveto (ab) show 0 40 rmoveto} if xchart8 1 eq {0 -40 rmoveto (AB) show 0 40 rmoveto} if xchart8 2 eq {0 -40 rmoveto (AB1) show 0 40 rmoveto} if xchart8 3 eq {0 -40 rmoveto (AB2) show 0 40 rmoveto} if TBV ( = [ ) show TBIV xchart8 0 eq {(a*) show TBX 0 100 rmoveto (2) show 0 -100 rmoveto} if xchart8 1 eq {(A) show TBX 0 70 rmoveto (2) show 0 -70 rmoveto} if xchart8 2 eq {(A) show index0 TBX -30 70 rmoveto (2) show 0 -70 rmoveto} if xchart8 3 eq {(A) show index0 TBX -30 70 rmoveto (2) show 0 -70 rmoveto} if TBV ( + ) show TBIV xchart8 0 eq {(b*) show TBX 0 100 rmoveto (2) show 0 -100 rmoveto} if xchart8 1 eq {(B) show TBX 0 70 rmoveto (2) show 0 -70 rmoveto} if xchart8 2 eq {(B) show index0 TBX -30 70 rmoveto (2) show 0 -70 rmoveto} if xchart8 3 eq {(B) show index0 TBX -30 70 rmoveto (2) show 0 -70 rmoveto} if TBV ( ] ) show TBX -30 70 rmoveto (0,5) show 0 -70 rmoveto S50 y04 13.4 y0d mul sub moveto TBV xchart8 0 eq {([3a]) show} if xchart8 1 eq {([3b]) show} if xchart8 2 eq {([3c]) show} if xchart8 3 eq {([3d]) show} if S10 y04 14.4 y0d mul sub moveto TBIV (h) show TBX xchart8 0 eq {0 -40 rmoveto (ab) show 0 40 rmoveto} if xchart8 1 eq {0 -40 rmoveto (AB) show 0 40 rmoveto} if xchart8 2 eq {0 -40 rmoveto (AB1) show 0 40 rmoveto} if xchart8 3 eq {0 -40 rmoveto (AB2) show 0 40 rmoveto} if TBV ( = atan [ ) show TBIV xchart8 0 eq {(b*) show} if xchart8 1 eq {(B) show} if xchart8 2 eq {(B) show index0} if xchart8 3 eq {(B) show index0} if TBV ( / ) show TBIV xchart8 0 eq {(a*) show} if xchart8 1 eq {(A) show} if xchart8 2 eq {(A) show index0} if xchart8 3 eq {(A) show index0} if TBV ( ]) show S50 y04 14.4 y0d mul sub moveto TBV xchart8 0 eq {([4a]) show} if xchart8 1 eq {([4b]) show} if xchart8 2 eq {([4c]) show} if xchart8 3 eq {([4d]) show} if /xt2 2150 def /yt2 -2370 def xt2 yt2 translate 0 setgray xp 1450 sub yp 0750 add moveto /L*Xd LCh*5A 0 get def /C*Xd LCh*5A 1 get def /L*Nd LCh*5N 0 get def /L*Wd LCh*5W 0 get def xchart8 0 eq {/xfact1 12 def /yfact1 12 def } if xchart8 1 eq { % /xfact1 12 mul 2.5 mul def % /yfact1 12 mul 2.5 mul def /xfact1 12 def /yfact1 12 def } if xchart8 2 eq { % /xfact1 12 mul 2.5 mul def % /yfact1 12 mul 2.5 mul def /xfact1 12 def /yfact1 12 def } if xchart8 3 eq { % /xfact1 12 mul 2.5 mul def % /yfact1 12 mul 2.5 mul def /xfact1 12 def /yfact1 12 def } if /xp0 xp 0400 add def /yp0 yp 1000 sub def /xpN xp0 1000 sub def /ypN yp0 1000 sub def xp0 1900 sub yp0 0 sub moveto 3600 0 rlineto %horizontal axis & arrow -100 40 rlineto 100 -40 rlineto -100 -40 rlineto stroke xp0 0000 add yp0 1400 sub moveto 0 3100 rlineto %vertical axis & arrow -40 -100 rlineto 40 100 rlineto 40 -100 rlineto stroke xp0 1800 sub yp0 70 sub moveto 0 140 rlineto stroke %marks, horizontal axis xp0 1200 sub yp0 70 sub moveto 0 140 rlineto stroke xp0 0600 sub yp0 70 sub moveto 0 140 rlineto stroke xp0 0600 add yp0 70 sub moveto 0 140 rlineto stroke xp0 1200 add yp0 70 sub moveto 0 140 rlineto stroke xchart8 0 eq {%xchart8=0 /scal_x [(-150) (-100) ( -50) ( 50) ( 100)] def /scal_y [(100) (50) (-50) (-100)] def } if xchart8 1 eq {%xchart8=1 % /scal_x [(-60) ( -40) ( -20) ( 20) ( 40)] def % /scal_y [( 40) (20) (-20) (-40) ] def /scal_x [(-150) (-100) ( -50) ( 50) ( 100)] def /scal_y [(100) (50) (-50) (-100)] def } if %xchart8=1 xchart8 2 eq {%xchart8=2 % /scal_x [(-60) ( -40) ( -20) ( 20) ( 40)] def % /scal_y [( 40) (20) (-20) (-40) ] def /scal_x [(-150) (-100) ( -50) ( 50) ( 100)] def /scal_y [(100) (50) (-50) (-100)] def } if %xchart8=1 xchart8 3 eq {%xchart8=3 % /scal_x [(-60) ( -40) ( -20) ( 20) ( 40)] def % /scal_y [( 40) (20) (-20) (-40) ] def /scal_x [(-150) (-100) ( -50) ( 50) ( 100)] def /scal_y [(100) (50) (-50) (-100)] def } if %xchart8=3 TV xp0 2000 sub yp0 220 sub moveto scal_x 0 get show %numbers, horizontal scale xp0 1400 sub yp0 220 sub moveto scal_x 1 get show xp0 0750 sub yp0 220 sub moveto scal_x 2 get show xp0 0400 add yp0 220 sub moveto scal_x 3 get show xp0 1000 add yp0 220 sub moveto scal_x 4 get show xp0 70 sub yp0 1200 add moveto 140 0 rlineto stroke %marks, vertical axis xp0 70 sub yp0 0600 add moveto 140 0 rlineto stroke xp0 70 sub yp0 0600 sub moveto 140 0 rlineto stroke xp0 70 sub yp0 1200 sub moveto 140 0 rlineto stroke xp0 100 add yp0 1150 add moveto scal_y 0 get show %numbers, vertical axis xp0 100 add yp0 0550 add moveto scal_y 1 get show xp0 100 add yp0 0650 sub moveto scal_y 2 get show xp0 100 add yp0 1250 sub moveto scal_y 3 get show TBIK xp0 0080 add yp0 1550 add moveto xchart8 0 eq {(b*) show} if xchart8 1 eq {(B) show} if xchart8 2 eq {(B) show TBS 0 -40 rmoveto (1) show 0 40 rmoveto} if xchart8 3 eq {(B) show TBS 0 -40 rmoveto (2) show 0 40 rmoveto} if TBIK xp0 1550 add yp0 0120 add moveto xchart8 0 eq {(a*) show} if xchart8 1 eq {(A) show} if xchart8 2 eq {(A) show TBS 0 -40 rmoveto (1) show 0 40 rmoveto} if xchart8 3 eq {(A) show TBS 0 -40 rmoveto (2) show 0 40 rmoveto} if TBK 0.5 setgray xchart5 1 eq {%old hexagon 15 setlinewidth 0 1 6 {/i exch def %i=0,6 0 setgray /i50 i 5 mul def /i53 i50 3 add def %a* /i54 i50 4 add def %b* /xi xp0 LCh*12 i53 get xfact1 mul add def /yi yp0 LCh*12 i54 get yfact1 mul add def i 0 eq {xi yi moveto} if i 1 ge {xi yi lineto} if i 6 eq {stroke} if } for %i=0,6 0 1 6 {/i exch def %i=0,6 0 setgray /i50 i 5 mul def /i53 i50 3 add def %a* /i54 i50 4 add def %b* /xi xp0 LCh*12 i53 get xfact1 mul add def /yi yp0 LCh*12 i54 get yfact1 mul add def xi yi 0040 0 360 arc fill } for %i=0,6 } if %old hexagon 1 setgray 30 setlinewidth 0 1 6 {/i exch def %i=0,6 0 setgray /i50 i 5 mul def /i53 i50 3 add def %a* /i54 i50 4 add def %b* /xi xp0 LCh*12n i53 get xfact1 mul add def /yi yp0 LCh*12n i54 get yfact1 mul add def i 0 eq {xi yi moveto} if i 1 ge {xi yi lineto} if i 6 eq {stroke} if } for %i=0,6 0 1 5 {/i exch def %i=0,5 1 1 3 {/k exch def %k=1,3 0 setgray /i34 i 12 mul k 3 mul add def /i50 i 5 mul def /i53 i50 3 add def /i54 i50 4 add def /xi0 xp0 LCh*12n i53 get xfact1 mul add def /yi0 yp0 LCh*12n i54 get yfact1 mul add def /xi1 xp0 LCh*12n i53 5 add get xfact1 mul add def /yi1 yp0 LCh*12n i54 5 add get yfact1 mul add def /xiM xi0 xi1 xi0 sub k 0.25 mul mul add def /yiM yi0 yi1 yi0 sub k 0.25 mul mul add def /r rgb*30Y i34 3 add get def /g rgb*30Y i34 4 add get def /b rgb*30Y i34 5 add get def r g b setrgbcolor xiM yiM 0050 0 360 arc fill } for %k=1,3 } for %i=0,5 newpath /xshift 6 array def /yshift 6 array def % R Y G C B M /xshift [-50 -150 -100 -100 -250 -050] def /yshift [120 150 150 -300 -200 -300] def xchart8 1 eq {yshift 1 -300 put} if 0 1 5 {/i exch def %i=0,5 0 setgray /i3 i 3 mul def /i50 i 5 mul def /i53 i50 3 add def /i54 i50 4 add def /xi xp0 LCh*12n i53 get xfact1 mul add def /yi yp0 LCh*12n i54 get yfact1 mul add def xi yi 0100 0 360 arc fill /r rgb*36X i3 0 add get def /g rgb*36X i3 1 add get def /b rgb*36X i3 2 add get def r g b setrgbcolor xi yi 0050 0 360 arc fill newpath 0 setgray xi xshift i get add yi yshift i get add moveto tex*36X i 3 mul 2 add get show newpath } for %i=0,5 20 setlinewidth xt2 neg yt2 neg translate } if %xchart6=1 hue circle %******************************************************* 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 fen01-7a BEE40-6n %%BoundingBox: 70 85 243 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: farbe.li.tu-berlin.de/fen0/fen0.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2020090112000) /ModDate (D:2020090112000) /DOCINFO pdfmark17 [ /View [ /Fit ] /DOCVIEW pdfmark17 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } 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 /TX {120 /Times-ISOL1 FS} bind def /TV {160 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIX {120 /TimesI-ISOL1 FS} bind def /TIV {160 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBX {120 /TimesB-ISOL1 FS} bind def /TBV {160 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIX {120 /TimesBI-ISOL1 FS} bind def /TBIV {160 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /XD65 95.05 def /YD65 100.00 def /ZD65 108.90 def /xanD65 XD65 XD65 YD65 add ZD65 add div def /yanD65 YD65 XD65 YD65 add ZD65 add div def %******************************************************* %created for 10 colours of hue circle and different lightness /LCh*12 60 array def /XYZ*12 60 array def /LCh*12n 60 array def /XYZ*12n 60 array def %************************************************************** %created for 45 colours of equal chroma and different lightness /rgb*45 500 array def %5x45, NOT 3x45 /LCh*45 500 array def %5x45 /XYZ*45 500 array def %5x45 /rgb*45n 500 array def %5x45, NOT 3x45 /XYZ*45n 500 array def %5x45 /XYZ*45na 500 array def /LCh*45n 500 array def %5x45 /LCh*45na 500 array def %5x45 %************************************************************ %definition of A for xchartl=0 to 5 /XYZ*5A 5 array def /LCh*5A 5 array def /XYZ*5N 5 array def /LCh*5N 5 array def /XYZ*5W 5 array def /LCh*5W 5 array def /XYZ*5An 5 array def /LCh*5An 5 array def /XYZ*5Nn 5 array def /LCh*5Nn 5 array def /XYZ*5Wn 5 array def /LCh*5Wn 5 array def /rgb*3A 3 array def /tex*3A 3 array def /rgb*3N 3 array def /tex*3N 3 array def /rgb*3W 3 array def /tex*3W 3 array def /LCh*5Na 5 array def %a=actual /LCh*5Wa 5 array def /LCh*5Aa 5 array def %******************************************************************* /proz_XYZ_LCh* {%BEG proz_XYZ_LCh* %input XYZaref, output LChab*ref, same name in any case %output LabC*h (xchart8=0) or LABC*h (xchart8=1) /XQ Xaref XD65 div def /YQ Yaref YD65 div def /ZQ Zaref ZD65 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 xchart8 0 eq {%xchart8=0 LabCh*-CIELAB /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 } if %xchart8=0 LabCh*-CIELAB xchart8 1 eq {%xchart8=1 LabCh*=LABCh* /a*ref XQ YQ sub 250 mul def /b*ref YQ ZQ sub 100 mul def } if %xchart8=1 LabCh*=LABCh* xchart8 2 eq {%xchart8=2 LabCh*=LAB1Ch* /xanc 0.110 def /Bc 1.000 def /a20 1.000 def /b20 -0.400 def /SUM Xaref Yaref add Zaref add 0.0001 add def /xan Xaref SUM div def /yan Yaref SUM div def /zan Zaref SUM div def /SUMD65 XD65 YD65 add ZD65 add 0.0001 add def /xanD65 XD65 SUMD65 div def /yanD65 YD65 SUMD65 div def /zanD65 ZD65 SUMD65 div def /aan xan xanc sub yan div a20 mul def /ban zan yan div b20 mul def /aanD65 xanD65 xanc sub yanD65 div a20 mul def /banD65 zanD65 yanD65 div b20 mul def /a*ref aan aanD65 sub 2.5 mul Yaref mul def /b*ref ban banD65 sub 2.5 mul Bc mul Yaref mul def } if %xchart8=2 LabCh*=LAB1Ch* xchart8 3 eq {%xchart8=3 LabCh*=LAB2Ch* /xanc 0.110 def /Bc 0.800 def /a20 1.000 def /b20 -0.400 def /SUM Xaref Yaref add Zaref add 0.0001 add def /xan Xaref SUM div def /yan Yaref SUM div def /zan Zaref SUM div def /SUMD65 XD65 YD65 add ZD65 add 0.0001 add def /xanD65 XD65 SUMD65 div def /yanD65 YD65 SUMD65 div def /zanD65 ZD65 SUMD65 div def /aan xan xanc sub yan div a20 mul def /ban zan yan div b20 mul def /aanD65 xanD65 xanc sub yanD65 div a20 mul def /banD65 zanD65 yanD65 div b20 mul def /a*ref aan aanD65 sub 2.5 mul Yaref mul def /b*ref ban banD65 sub 2.5 mul Bc mul Yaref mul def } if %xchart8=3 LabCh*=LAB2Ch* /C*ref a*ref dup mul b*ref dup mul add sqrt def /h*ref b*ref a*ref 0.00001 add atan def C*ref 0.05 le {/h*ref 0 def} if } bind def %END proz_XYZ_LCh* %******************************************************************* /proz_LCh*_XYZ {%BEG proz_LCh*_XYZ %input LCh*ref of LabC*h (xchart8=0) or L*ABCh (xchart8=1) %output XYZref, xyanref xchart8 0 eq {%xchart8=0 /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /a*ref C*ref h*ref cos mul def /b*ref C*ref h*ref sin mul def /X* {L*ref 16 add 116 div a*ref 500 div add} bind def /Y* {L*ref 16 add 116 div} bind def /Z* {L*ref 16 add 116 div b*ref 200 div sub} bind def /Xref X* DecodeXYZ* XD65 mul def /Yref Y* DecodeXYZ* YD65 mul def /Zref Z* DecodeXYZ* ZD65 mul def } if %xchart8=0 xchart8 1 ge {%xchart8>=1 xchart8 1 eq {%xchart8=1 /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /Y* {L*ref 16 add 116 div} bind def /Yref Y* DecodeXYZ* YD65 mul def } if %xchart8=1 xchart8 2 eq {%xchart8=2 /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /Y* {L*ref 16 add 116 div} bind def /Yref Y* DecodeXYZ* YD65 mul def } if %xchart8=2 xchart8 3 eq {%xchart8=3 /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /Y* {L*ref 16 add 116 div} bind def /Yref Y* DecodeXYZ* YD65 mul def } if %xchart8=3 /a*ref C*ref h*ref cos mul def /b*ref C*ref h*ref sin mul def /Xref a*ref 250 div XD65 mul Yref XD65 mul YD65 div add def /Zref Yref ZD65 mul YD65 div b*ref 100 div ZD65 mul sub def } if %xchart8>=1 Xref 0.01 lt {/Xref 0.01 def} if Yref 0.01 lt {/Yref 0.01 def} if Zref 0.01 lt {/Zref 0.01 def} if /SUM Xref Yref add Zref add 0.0001 add def /xanref Xref SUM div def /yanref Yref SUM div def } bind def %END proz_LCh*_XYZ %************************************************************************* /proz_XYZnw_D65_xchart7_definition {%BEG proz_XYZnw_D65_xchart7_definition % achromatic colours /XLWD65100 95.04 def /YLWD65100 100.00 def /ZLWD65100 108.88 def /XLN001 XLWD65100 100 div def /YLN001 YLWD65100 100 div def /ZLN001 ZLWD65100 100 div def /YrN 2.52 def /Xnref YrN XLN001 mul def /Ynref YrN def /Znref YrN ZLN001 mul def /Xtref XYZnref_ISO9241-306 xchart7 3 mul 0 add get def /Ytref XYZnref_ISO9241-306 xchart7 3 mul 1 add get def /Ztref XYZnref_ISO9241-306 xchart7 3 mul 2 add get def /YNil Ytref def /YNil001 YNil 100 div def YNil001 6 29 div 3 exp ge {/FYYn YNil001 0.3333 exp def} {/FYYn 841 108 div YNil001 mul 4 29 div add def} ifelse /L*Nil 116 FYYn mul 16 sub def } bind def %END proz_XYZnw_D65_xchart7_definition %************************************************************** /proz_XYZ*12_XYZ*12n {%BEG proz_XYZ*12_XYZ*12n %for 10 colours %input XYZ*12, rgb*10 %output LCh*12n, rgb*10n %only for xchart5=1 and for 10 colours in 7 hue planes and achromatic %change XYZ*12 to XYZ*12n by display reflection according to xchart7 %normalization to Ynor=18 xchart9 1 eq {%xchart9=1 /Xnor XD65 0.18 mul def /Ynor YD65 0.18 mul def /Znor ZD65 0.18 mul def /Xfac1 Xnor Xnor Xtref add div def /Yfac1 Ynor Ynor Ytref add div def /Zfac1 Znor Znor Ztref add div def XYZ*12n i100 XYZ*12 i100 get Xnor sub Xfac1 mul Xnor add put XYZ*12n i101 XYZ*12 i101 get Ynor sub Yfac1 mul Ynor add put XYZ*12n i102 XYZ*12 i102 get Znor sub Zfac1 mul Znor add put } if %xchart9=1 %normalization to Ynor=88.6 xchart9 0 eq {%xchart9=0 /Xnor XD65 0.886 mul def /Ynor YD65 0.886 mul def /Znor ZD65 0.886 mul def /Xfac2 Xnor Xtref sub Xnor div def /Yfac2 Ynor Ytref sub Ynor div def /Zfac2 Znor Ztref sub Znor div def XYZ*12n i100 XYZ*12 i100 get Xfac2 mul Xtref add put XYZ*12n i101 XYZ*12 i101 get Yfac2 mul Ytref add put XYZ*12n i102 XYZ*12 i102 get Zfac2 mul Ztref add put } if %xchart9=0 } bind def %END proz_XYZ*12_XYZ*12n %**************************************************************** /proz_XYZ*45_XYZ*45n {%BEG proz_XYZ*45_XYZ*45n %for 45 colours %input XYZ*45, rgb*45 %output XYZ*45n, rgb*45n %only for xchart5=1 and for 45 colours in hue plane %change XYZ*45 to XYZ*45n by display reflection according t0 xchart7 %normalization to Ynor=18 xchart9 1 eq {%xchart9=1 /Xnor XD65 0.18 mul def /Ynor YD65 0.18 mul def /Znor ZD65 0.18 mul def /Xfac1 Xnor Xnor Xtref add div def /Yfac1 Ynor Ynor Ytref add div def /Zfac1 Znor Znor Ztref add div def XYZ*45n i450 XYZ*45 i450 get Xnor sub Xfac1 mul Xnor add put XYZ*45n i451 XYZ*45 i451 get Ynor sub Yfac1 mul Ynor add put XYZ*45n i452 XYZ*45 i452 get Znor sub Zfac1 mul Znor add put } if %xchart9=1 %normalization to Ynor=88.6 xchart9 0 eq {%xchart9=0 /Xnor XD65 0.886 mul def /Ynor YD65 0.886 mul def /Znor ZD65 0.886 mul def /Xfac2 Xnor Xtref sub Xnor div def /Yfac2 Ynor Ytref sub Ynor div def /Zfac2 Znor Ztref sub Znor div def XYZ*45n i450 XYZ*45 i450 get Xfac2 mul Xtref add put XYZ*45n i451 XYZ*45 i451 get Yfac2 mul Ytref add put XYZ*45n i452 XYZ*45 i452 get Zfac2 mul Ztref add put } if %xchart9=0 } bind def %END proz_XYZ*45_XYZ*45n %*********************************************************** %*********************************************************** /proz_sRGB_rgb*36X_definitions {%BEG proz_sRGB_rgb*36X_definitions /XYZ*WCGa_d_0000_0886 36 array def %d, Yw=88,6, Yn=2,50 /XYZ*WCGa_d_0000_0886 [056.43 023.27 000.00 %0 Rd %ANH9_Y10-7N,201003, fehl? Zmin=2.72 069.24 083.34 002.48 %1 Yd 012.81 060.07 002.48 %2 Gd 027.77 066.32 096.48 %3 Cd 014.96 005.25 094.00 %4 Bd 071.39 028.52 094.00 %5 Md 056.43 023.27 000.00 %6 Rd %for hue circle 000.01 000.01 000.01 %7 N0 084.21 088.60 096.48 %8 W0 000.01 000.01 000.01 %9 N1 095.05 100.00 108.90 %10 W1 017.11 18.00 19.60 %11 Z1 ] def /XYZ*sRGB_d_0000_0886 36 array def %d, Yw=88,60, Yn=0,00 /XYZ*sRGB_d_0000_0886 [036.54 018.84 001.71 %0 Rd %from AE99:Y10-7N (ISO 9241-306 for 100/88,6) 068.22 082.20 012.27 %1 Yd %new table 210217, only R was for 88.60 031.68 063.36 010.56 %2 Gd 047.67 069.76 094.78 %3 Cd 015.99 006.40 084.22 %4 Bd 052.53 025.24 085.93 %5 Md 036.54 018.84 001.71 %6 Rd %for hue circle 000.01 000.01 000.01 %7 N0 084.21 088.60 096.48 %8 W0 000.01 000.01 000.01 %9 N1 095.05 100.00 108.90 %10 W1 017.11 18.00 19.60 %11 Z1 ] def /XYZ*Ostw_d_0000_1000 36 array def %m, Yw=100,00, Yn=0,00 /XYZ*Ostw_d_0000_1000 [062.40 041.75 000.76 %0 Rm 561_405 589 %ANI6_Y10-7N,201012 076.68 082.00 001.27 %1 Ym 520_520c 569 023.83 065.32 015.00 %2 Gm 475_473 528c 032.63 058.24 108.12 %3 Cm 405_561 483 018.36 017.99 107.61 %4 Bm 519c-519 471 071.20 034.67 093.88 %5 Mm 573_475 528c 062.40 041.75 000.76 %6 Rm 561_405 589 %for hue circle 000.01 000.01 000.01 %7 N0 095.05 100.00 108.90 %8 W0 000.01 000.01 000.01 %9 N1 107.29 112.88 122.24 %10 W1 19.31 20.31 22.00 %11 Z1 ] def /XYZ*Offs_d_0000_0886 36 array def %d, Yw=88,60, Yn=0,00 /XYZ*Offs_d_0000_0886 [029.01 016.24 004.26 %0 Rd %ANJ7_Y11-1N,201012 063.74 072.69 008.27 %1 Yd 008.53 020.05 009.58 %2 Gd 018.74 026.27 069.02 %3 Cd 006.22 004.51 022.65 %4 Bd 032.46 016.95 023.04 %5 Md 029.01 016.24 004.26 %6 Rd %for hue circle 000.01 000.01 000.01 %7 N0 084.21 088.60 096.48 %8 W0 000.01 000.01 000.01 %9 N1 095.05 100.00 108.90 %10 W1 017.11 18.00 19.60 %11 Z1 ] def /rgb*36X 36 array def /rgb*36X [1 0 0 %0 1 1 0 %1 0 1 0 %2 0 1 1 %3 0 0 1 %4 1 0 1 %5 1 0 0 %6 0.00 0.00 0.00 %7 N0 1.00 1.00 1.00 %8 W0 0.00 0.00 0.00 %9 N1 1.13 1.13 1.13 %10 W1 0.18 0.18 0.18 %11 Z1 ] def /tex*36X 36 array def /tex*36X [(Rot) (red) (R) %0 (Gelb) (yellow) (Y) %1 (Gr\374n) (green) (G) %2 (Cyan) (cyan) (C) %3 (Blau) (blue) (B) %4 (Magenta) (magenta) (M) %5 (Rot) (red) (R) %6 (Schwarz) (black) (N) %7 (Wei\337) (white) (W) %8 (Schwarz) (black) (N1) %9 (Wei\337) (white) (W1) %10 (Grau) (grey) (Z1) %11 ] def /XYZnref_ISO9241-306 24 array def /XYZnref_ISO9241-306 [ %XYZnref wit contrast step according to ISO 9241-306:2018 00.01 00.01 00.01 %0 0288:1 00.60 00.63 00.69 %1 0144:1 01.20 01.26 01.37 %2 0072:1 02.40 02.52 02.74 %3 0036:1 %standard 04.79 05.04 05.49 %4 0018:1 08.58 10.08 10.98 %5 0009:1 19.16 20.16 21.95 %6 04,5:1 38.32 40.32 43.90 %7 2,25:1 ] def /Ynref_ISO9241-306 8 array def 0 1 7 {/i exch def %i=0,7 /i31 i 3 mul 1 add def Ynref_ISO9241-306 i XYZnref_ISO9241-306 i31 get put } for %i=0,7 0 1 11 {/sISO exch def /i30 sISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def /i50 sISO 5 mul def /i51 i50 1 add def /i52 i50 2 add def /i53 i50 3 add def /i54 i50 4 add def xchart4 0 eq {%xchart4=0 XYZ*12 i50 XYZ*sRGB_d_0000_0886 i30 get put XYZ*12 i51 XYZ*sRGB_d_0000_0886 i31 get put XYZ*12 i52 XYZ*sRGB_d_0000_0886 i32 get put } if %xchart4=0 xchart4 1 eq {%xchart4=1 XYZ*12 i50 XYZ*WCGa_d_0000_0886 i30 get put XYZ*12 i51 XYZ*WCGa_d_0000_0886 i31 get put XYZ*12 i52 XYZ*WCGa_d_0000_0886 i32 get put } if %xchart4=1 xchart4 2 eq {%xchart4=2 XYZ*12 i50 XYZ*Offs_d_0000_0886 i30 get put XYZ*12 i51 XYZ*Offs_d_0000_0886 i31 get put XYZ*12 i52 XYZ*Offs_d_0000_0886 i32 get put } if %xchart4=2 xchart4 3 eq {%xchart4=3 XYZ*12 i50 XYZ*Ostw_d_0000_1000 i30 get 0.8860 mul put XYZ*12 i51 XYZ*Ostw_d_0000_1000 i31 get 0.8860 mul put XYZ*12 i52 XYZ*Ostw_d_0000_1000 i32 get 0.8860 mul put } if %xchart4=3 /SUM XYZ*12 i50 get XYZ*12 i51 get add XYZ*12 i52 get add def XYZ*12 i53 XYZ*12 i50 get SUM div put XYZ*12 i54 XYZ*12 i51 get SUM div put %will be replaced, if xchart5=1 XYZ*12n i50 XYZ*12 i50 get put XYZ*12n i51 XYZ*12 i51 get put XYZ*12n i52 XYZ*12 i52 get put XYZ*12n i53 XYZ*12 i53 get put XYZ*12n i54 XYZ*12 i54 get put } for %i=0,11 } bind def %END proz_sRGB_rgb*36X_definitions %*************************************************************** /proz_out_text_ANW_definition {%BEG proz_out_text_ANW_definition %loop for maximal 5 colours +N +W 0 1 2 {/j exch def %j=0,2 %three components /i3j xchartl 3 mul j add def rgb*3A j rgb*36X i3j get put tex*3A j tex*36X i3j get put } for %j=0,2 0 1 4 {/j exch def %j=0,4 %three components /i5j xchartl 5 mul j add def XYZ*5A j XYZ*12 i5j get put LCh*5A j LCh*12 i5j get put XYZ*5An j XYZ*12n i5j get put LCh*5An j LCh*12n i5j get put } for %j=0,4 0 1 2 {/i exch def %i=0,2 rgb*3N i rgb*36X i 21 add get put %8x3 tex*3N i tex*36X i 21 add get put rgb*3W i rgb*36X i 24 add get put %9x3 tex*3W i tex*36X i 24 add get put } for %i=0,2 0 1 4 {/i exch def %i=0,4 XYZ*5N i XYZ*12 i 35 add get put %8x5 LCh*5N i LCh*12 i 35 add get put XYZ*5W i XYZ*12 i 40 add get put %9x5 LCh*5W i LCh*12 i 40 add get put XYZ*5Nn i XYZ*12n i 35 add get put %8x5 LCh*5Nn i LCh*12n i 35 add get put XYZ*5Wn i XYZ*12n i 40 add get put %9x5 LCh*5Wn i LCh*12n i 40 add get put } for %i=0,4 /L*Xd LCh*5A 0 get def /C*Xd LCh*5A 1 get def /L*Nd LCh*5N 0 get def /L*Wd LCh*5W 0 get def /L*Xdn LCh*5An 0 get def /C*Xdn LCh*5An 1 get def /L*Ndn LCh*5Nn 0 get def /L*Wdn LCh*5Wn 0 get def /xfact 2000 100 div def /yfact 2000 100 div def %Titeltext /xd 1550 def /yd 5000 def /xp 1550 def /yp 5000 def /xpN xp def /ypN yp 2000 sub def /xpW xp def /ypW yp def /xpX xp 2000 add def /ypX yp 1000 sub def /xNd xp def %Nd /yNd ypN L*Nd yfact mul add def %Nd /xWd xp def %Wd /yWd ypN L*Wd yfact mul add def %Wd /xRd xp C*Xd xfact mul add def %Xd /yRd ypN L*Xd yfact mul add def /tex_LC*hab {xchart8 0 eq {(LC*hab) show} if xchart8 1 eq {(L*ChAB) show} if xchart8 2 eq {(L*ChAB) show} if xchart8 3 eq {(L*ChAB) show} if } bind def /tex_LabC*h {xchart8 0 eq {(LabC*h) show} if xchart8 1 eq {(L*ABCh) show} if xchart8 2 eq {(L*ABCh) show} if xchart8 3 eq {(L*ABCh) show} if } bind def /indd {0 -50 rmoveto (d) show 0 50 rmoveto} bind def /inddk {0 -50 rmoveto (d,) show 0 50 rmoveto} bind def /inde {0 -50 rmoveto (d) show 0 50 rmoveto} bind def /indek {0 -50 rmoveto (d,) show 0 50 rmoveto} bind def /indab {0 -50 rmoveto xchart8 0 eq {(ab)} if xchart8 1 eq {(AB)} if xchart8 2 eq {(AB1)} if xchart8 3 eq {(AB2)} if show 0 50 rmoveto} bind def /indabk {0 -50 rmoveto xchart8 0 eq {(ab,)} if xchart8 1 eq {(AB,)} if xchart8 2 eq {(AB1,)} if xchart8 3 eq {(AB2,)} if show 0 50 rmoveto} bind def /indabd {0 -50 rmoveto xchart8 0 eq {(ab,d)} if xchart8 1 eq {(AB,d)} if xchart8 2 eq {(AB1,d)} if xchart8 3 eq {(AB2,d)} if show 0 50 rmoveto} bind def /indabe {0 -50 rmoveto xchart8 0 eq {(ab,e)} if xchart8 1 eq {(AB,e)} if xchart8 2 eq {(AB1,e)} if xchart8 3 eq {(AB2,e)} if show 0 50 rmoveto} bind def /indabN {0 -50 rmoveto xchart8 0 eq {(ab,N)} if xchart8 1 eq {(AB,N)} if xchart8 2 eq {(AB1,N)} if xchart8 3 eq {(AB2,N)} if show 0 50 rmoveto} bind def /indabW {0 -50 rmoveto xchart8 0 eq {(ab,W)} if xchart8 1 eq {(AB,W)} if xchart8 2 eq {(AB1,W)} if xchart8 3 eq {(AB2,W)} if show 0 50 rmoveto} bind def } bind def %END proz_out_text_ANW_definition %************************************************************** /nshow {TS show} bind def /kshow {TIS show} bind def /bshow {TBS show} bind def /jshow {TBIS show} bind def /ibshown {TBV -50 -50 rmoveto show 0 50 rmoveto TBS} bind def /ibshow0 {TBV -00 -50 rmoveto show 0 50 rmoveto TBS} bind def /ishown {TV -50 -50 rmoveto show 0 50 rmoveto TS } bind def /ishow0 {TV -00 -50 rmoveto show 0 50 rmoveto TS } bind def %40% kleiner /ns4 {250 /Times-ISOL1 FS show TK} bind def /ks4 {250 /TimesI-ISOL1 FS show TK} bind def /bs4 {250 /TimesB-ISOL1 FS show TK} bind def /js4 {250 /TimesBI-ISOL1 FS show TK} bind def /ss4 {250 /Symbol FS show TK} bind def /is4 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /es4 {200 /Times-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ib4 {200 /TimesB-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /eb4 {200 /TimesB-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ip4 {200 /Times-ISOL1 FS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def %60% kleiner /ns6 {200 /Times-ISOL1 FS show TS} bind def /ks6 {200 /TimesI-ISOL1 FS show TS} bind def /bs6 {200 /TimesB-ISOL1 FS show TS} bind def /js6 {200 /TimesBI-ISOL1 FS show TS} bind def /ss6 {200 /Symbol FS show TS} bind def /is6 {160 /Times-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /es6 {160 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ib6 {160 /TimesB-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /eb6 {160 /TimesB-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ip6 {160 /Times-ISOL1 FS 24 24 rmoveto (\267) show 24 -24 rmoveto TS} bind /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show} def /cvsshow1g {/nxx exch def %example nxx=99.1/99.0 nxx 0 lt {(-) show /nxx nxx abs def} if 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 /cvsshow2g {/nxx exch def %example nxx=99.12/99,02/99,00 nxx 0 lt {(-) show /nxx nxx abs def} if 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 /cvsshow3g {/nxx exch def %example nxx=99.123/99.012/99.001/99.000 nxx 0 lt {(-) show /nxx nxx abs def} if 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 %%EndProlog gsave /lanind 0 def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind le {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind le {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind le {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES where {pop %/IMES IMES def } {/IMES 0 def} ifelse /xchartl 0 def %0 for xchart6=0 or 1; 0 to 5 for 6 hue planes /xchart3 0 def %0: LCH, %1: ICE/ice /xchart4 1 def %0: sRGB, 1: WCGa, 3: Offs, 4:Ostw /xchart5 0 def %0: YN=0, 1: YN=0,0 ..2,5 ..40,3 /xchart6 1 def %0: Y10-1N, %1 Y10-2N, %2: Y10-3N to 8N /xchart7 0 def %0 to 7: 8 contrast steps no. 1 to 8 according to ISO 9241-406 /xchart8 2 def %0: LabC*h, 1: L*ABCh, 2: L*AB1Ch, 3:L*AB2Ch /xchart9 0 def %0 for Normalizaton; 0: Y=88,6, 1: Y=18,0 4 /Times-ISOL1 FS 72 86 moveto (fen01-7a BEE40-6n) show 72 90 translate 0.01 MM 0.01 MM scale 15 setlinewidth 1 setgray /xwide 6000 def /ywide 4000 def 0 0 moveto xwide 0 rlineto 0 ywide rlineto xwide neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwide 0 rlineto 0 ywide rlineto xwide neg 0 rlineto closepath stroke %produces XYZ*12 and XYZ*12n proz_sRGB_rgb*36X_definitions %uses XYZ*12 proz_XYZnw_D65_xchart7_definition 0 1 11 {/i exch def %i=0,09 /i100 i 5 mul def /i101 i100 1 add def /i102 i100 2 add def /i103 i100 3 add def /i104 i100 4 add def /Xaref XYZ*12 i100 get def /Yaref XYZ*12 i101 get def /Zaref XYZ*12 i102 get def % in any case defined proz_XYZ_LCh* LCh*12 i100 L*ref put LCh*12 i101 C*ref put LCh*12 i102 h*ref put LCh*12 i103 a*ref put LCh*12 i104 b*ref put LCh*12n i100 L*ref put %may be replaced LCh*12n i101 C*ref put LCh*12n i102 h*ref put LCh*12n i103 a*ref put LCh*12n i104 b*ref put xchart5 1 eq {%BEG xchart5=1 %XYZaref see above %input XYZ*12 %output XYZ*12n, LCh*12n proz_XYZ*12_XYZ*12n %calculates intermediate XYZ*12n /Xaref XYZ*12n i100 get def /Yaref XYZ*12n i101 get def /Zaref XYZ*12n i102 get def %input XYZaref, output LChab*ref proz_XYZ_LCh* LCh*12n i100 L*ref put LCh*12n i101 C*ref put LCh*12n i102 h*ref put LCh*12n i103 a*ref put LCh*12n i104 b*ref put } if %xchart5=1 } for %i=0,11 %produces for hue circle and achromatic colours %XYZ*(ANW)_(ANW)n, LCh*(ANW)_(ANW)n with 5 components %rgb*(ANW)_(ANW)n, tex*(ANW)_(ANW)n with 3 components proz_out_text_ANW_definition /yt 300 def %y-Zeilenabstand for text /yd 400 def %y-Zeilenabstand for formula %Spalten /S1 100 def /S2 1500 def /S3 2300 def /S4 5900 def /S5 7700 def /S6 8500 def /yz 400 def /yu5 7600 def /yu4 7100 def /yu3 5800 def /yu2 5800 def /yu1 5800 def %******************************************************** xchart6 0 eq {%xchart6=0 table /xdXYZ 470 def /xdLab 570 def 50 3750 moveto TBIS xchart4 0 eq {(sRGB) show} if xchart4 1 eq {(WCGa) show} if xchart4 2 eq {(Offs) show} if xchart4 3 eq {(Ostw) show} if TBS (\255Daten ) showde ( data ) showen TBIS (rgb*) show TBIS (, XYZxy) show TBS (, and ) showen ( und ) showde TBIS tex_LabC*h TBV indab TBS xchart8 0 eq {%xchart8=0 ( im CIELAB\255Farbraum) showde ( in the CIELAB\255colour space) showen} if xchart8 1 eq {( im L*ABJND\255Farbraum) showde ( in L*ABJND\255colour space) showen} if xchart8 2 eq {( im L*AB1JND\255Farbraum) showde ( in L*AB1JND\255colour space) showen} if xchart8 3 eq {( im L*AB2JND\255Farbraum) showde ( in L*AB2JND\255colour space) showen} if 0 3650 moveto 6000 0 rlineto stroke 50 3400 moveto TS (Normfarbwerte von Schwarz und Wei\337: ) showde (Tristimulus values of black and white: ) showen TIS (Y) show TV 0 -40 rmoveto xchart5 0 eq {(N) show}{(Nn) show} ifelse 0 40 rmoveto TS (=) show xchart5 0 eq {XYZ*5N 1 get cvsshow1g} {XYZ*5Nn 1 get cvsshow1g} ifelse TIS (, Y) show TV 0 -40 rmoveto xchart5 0 eq {(W) show}{(Wn) show} ifelse 0 40 rmoveto TS (=) show xchart5 0 eq {XYZ*5W 1 get cvsshow1g} {XYZ*5Wn 1 get cvsshow1g} ifelse xchart5 1 eq {%xchart5=1 TIS (, Y) show TV 0 -40 rmoveto xchart9 0 eq {(Wa) show}{(Za) show} ifelse 0 40 rmoveto TS xchart9 0 eq {(=88,6.) show} {(=18.) show} ifelse } if %xchart5=1 /xt1 0000 def /yt1 0000 def xt1 yt1 translate /y01 3250 def /y02 2850 def /S10 40 def %colour /S20 0400 def %rgb /S30 0900 def %XYZ /S40 3300 def %LCh*ab 0 y01 moveto 6000 0 rlineto stroke 0 y02 100 sub moveto 6000 0 rlineto stroke 0 750 moveto 6000 0 rlineto stroke S20 50 sub y01 moveto S20 50 sub 0 lineto stroke S30 50 sub y01 moveto S30 50 sub 0 lineto stroke S40 50 sub y01 moveto S40 50 sub 0 lineto stroke TBV S30 y02 200 add moveto (CIEXYZ) show (\255Daten) showde ( data) showen S40 y02 200 add moveto TBIV xchart8 0 eq {(LabC*h) show} if xchart8 1 eq {(L*ABCh) show} if xchart8 2 eq {(L*ABCh) show} if xchart8 3 eq {(L*ABCh) show} if TBX indab TBV (\255Daten) showde ( data) showen S20 y02 moveto TBIV (rgb*) show /tex_XYZxy [(X) (Y) (Z) (x) (y)] def 0 1 4 {/k exch def %k=0,4 TBIV S30 k xdXYZ mul add y02 moveto tex_XYZxy k get show TBX S30 k xdXYZ mul add 080 add y02 moveto 0 -50 rmoveto (d) show 0 50 rmoveto } for %k=0,4 xchart8 0 eq {/tex_LabCh* [(L*) (a*) (b*) (C*) (h) ] def /ind_LabCh* [(d) (d) (d) (ab,d) (ab,d)] def /tex_xshift [120 120 120 120 80 ] def } if xchart8 1 eq {/tex_LabCh* [(L*) (A) (B) (C) (h) ] def /ind_LabCh* [(d) (d) (d) (AB,d) (AB,d)] def /tex_xshift [120 80 80 80 80 ] def } if xchart8 2 eq {/tex_LabCh* [(L*) (A) (B) (C) (h ) ] def /ind_LabCh* [(d) (1,d)(1,d)(AB1,d)(AB1,d)] def /tex_xshift [120 80 80 60 80 ] def } if xchart8 3 eq {/tex_LabCh* [(L*) (A) (B) (C) (h) ] def /ind_LabCh* [(d) (2,d)(2,d)(AB2,d)(AB2,d)] def /tex_xshift [120 80 80 60 80 ] def } if 0 1 4 {/k exch def %k=0,4 TBIV S40 k xdLab mul add y02 moveto tex_LabCh* k get show TBX S40 k xdLab mul add tex_xshift k get add y02 moveto 0 -50 rmoveto ind_LabCh* k get show 0 50 rmoveto } for %k=0,4 /y03 2500 def /y0d 235 def TBV 0 1 10 {/j exch def %j=0,9 colours without red twice /i j def j 6 ge {/i j 1 add def} if %for N and W /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def /ydd 0 def i 8 gt {/ydd 0.2 y0d mul def} if S10 y03 j y0d mul sub ydd sub moveto tex*36X i32 get show TBX 0 -40 rmoveto (d) show 0 40 rmoveto S20 y03 j y0d mul sub ydd sub moveto TBV i 8 le {%i<=7 rgb*36X i30 get cvishow ( ) show rgb*36X i31 get cvishow ( ) show rgb*36X i32 get cvishow} {rgb*36X i30 get cvsshow2g} ifelse /i50 i 5 mul def /i51 i50 1 add def /i52 i50 2 add def /i53 i50 3 add def /i54 i50 4 add def 0 1 4 {/k exch def %k=0,4 TV S30 k xdXYZ mul add y03 j y0d mul sub ydd sub moveto k 0 eq {XYZ*12n i50 get cvsshow2g} if k 1 eq {XYZ*12n i51 get cvsshow2g} if k 2 eq {XYZ*12n i52 get cvsshow2g} if k 3 eq {XYZ*12n i53 get cvsshow3g} if k 4 eq {XYZ*12n i54 get cvsshow3g} if } for %k=0,4 0 1 4 {/k exch def %k=0,4 k 3 le {TV}{TBV} ifelse S40 k xdLab mul add y03 j y0d mul sub ydd sub moveto k 0 eq {LCh*12n i50 get cvsshow2g} if k 1 eq {LCh*12n i53 get cvsshow2g} if k 2 eq {LCh*12n i54 get cvsshow2g} if k 3 eq {LCh*12n i51 get cvsshow2g} if k 4 eq {LCh*12n i52 get cvishow} if } for %k=0,4 } for %j=0,10 xt1 neg yt1 neg translate } if %xchart6=0 table %********************************************************* xchart6 1 eq {%xchart6=1 hue circle /xdLab 300 def %HUE CIRCLE /xd 1550 def /yd 5000 def /xp 1550 def /yp 5000 def /xdN xd def /ydN yd 2000 sub def /xdW xd def /ydW yd def /xdR xd 2000 add def /ydR yd 1000 sub def /xm 2000 4 div def /xip xd xm 2 mul add def /yip ydN xm 2 mul add def /xi1 xd xm 1 mul sub def /yi1 ydW xm 0.5 mul sub def /xi2 xd xm 2 mul add def /yi2 ydN 400 sub def /rgb*30Y 84 def %7x12 /rgb*30Y [1.00 0.00 0.00 %0 R 1.00 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 1.00 1.00 0.00 %1 Y 0.75 1.00 0.00 0.50 1.00 0.00 0.25 1.00 0.00 0.00 1.00 0.00 %2 G 0.00 1.00 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 1.00 1.00 %3 C 0.00 0.75 1.00 0.00 0.50 1.00 0.00 0.25 1.00 0.00 0.00 1.00 %4 B 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 1.00 1.00 0.00 1.00 %5 M 1.00 0.00 0.75 1.00 0.00 0.50 1.00 0.00 0.25 1.00 0.00 0.00 %6 R 1.00 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 ] def 50 3800 moveto TBIS xchart4 0 eq {(sRGB) show} if xchart4 1 eq {(WCGa) show} if xchart4 2 eq {(Offs) show} if xchart4 3 eq {(Ostw) show} if TBS (\255Daten ) showde ( data ) showen TBIS (rgb*) show TBIS (, XYZxy) showde (, XYZxy) showen TBS (, and ) showen ( und ) showde TBIS xchart8 0 eq {(LabC*h) show} if xchart8 1 eq {(L*ABCh) show} if xchart8 2 eq {(L*ABCh) show} if xchart8 3 eq {(L*ABCh) show} if TBV 0 -40 rmoveto xchart8 0 eq {(ab)} if xchart8 1 eq {(AB)} if xchart8 2 eq {(AB1)} if xchart8 3 eq {(AB2)} if show 0 40 rmoveto TBS xchart8 0 eq {%xchart8=0 ( im CIELAB\255Farbraum) showde ( in the CIELAB\255colour space) showen } if %xchart8=0 xchart8 1 eq {%xchart8=1 ( im L*ABJND\255Farbraum) showde ( in L*ABJND\255colour space) showen } if %xchart8=1 xchart8 2 eq {%xchart8=2 ( im L*AB1JND\255Farbraum) showde ( in L*AB1JND\255colour space) showen } if %xchart8=2 xchart8 3 eq {%xchart8=3 ( im L*AB2JND\255Farbraum) showde ( in L*AB2JND\255colour space) showen } if %xchart8=3 0 3700 moveto 6000 0 rlineto stroke 50 3500 moveto TS (Normfarbwerte von Schwarz und Wei\337: ) showde (Tristimulus values of black and white: ) showen TIS (Y) show TV 0 -40 rmoveto xchart5 0 eq {(N) show}{(Nn) show} ifelse 0 40 rmoveto TS (=) show xchart5 0 eq {XYZ*5N 1 get cvsshow1g} {XYZ*5Nn 1 get cvsshow1g} ifelse TIS (, Y) show TV 0 -40 rmoveto xchart5 0 eq {(W) show}{(Wn) show} ifelse 0 40 rmoveto TS (=) show xchart5 0 eq {XYZ*5W 1 get cvsshow1g} {XYZ*5Wn 1 get cvsshow1g} ifelse xchart5 1 eq {%xchart5=1 (, Y) show TV 0 -40 rmoveto xchart9 0 eq {(Wa) show}{(Za) show} ifelse 0 40 rmoveto TS xchart9 0 eq {(=88,6.) show}{(=18.) show} ifelse } if %xchart5=1 /y01 3350 def /y02 3300 def /S10 40 def %colour /S20 0270 def %rgb /S40 0650 def %LCh*ab xchart8 0 eq {/S50 2600 def} {/S50 2150 def} ifelse %[X] %TBV %S40 y02 250 add moveto %TBIV %xchart8 0 eq {(LabC*h) show} if %xchart8 1 eq {(L*ABCh) show} if %xchart8 2 eq {(L*ABCh) show} if %xchart8 3 eq {(L*ABCh) show} if %TBX %indab %TBV %(\255Daten) showde %( data) showen S20 y02 moveto TBIV (rgb*) show TBX -50 -50 rmoveto (d) show 50 50 rmoveto xchart8 0 eq {/tex_LabCh* [(L*) (a*) (b*) (C*) (h) ] def /ind_LabCh* [(d) (d) (d) (ab,d) (ab,d)] def /tex_xshift [120 120 120 100 80 ] def } if xchart8 1 eq {/tex_LabCh* [(L*) (A) (B) (C) (h) ] def /ind_LabCh* [(d) (d) (d) (AB,d) (AB,d)] def /tex_xshift [120 80 80 80 80 ] def } if xchart8 2 eq {/tex_LabCh* [(L*) (A) (B) (C) (h) ] def /ind_LabCh* [(d) (1,d)(1,d)(AB1,d)(AB1,d)] def /tex_xshift [120 80 80 80 80 ] def } if xchart8 3 eq {/tex_LabCh* [(L*) (A) (B) (C) (h) ] def /ind_LabCh* [(d) (2,d)(2,d)(AB2,d)(AB2,d)] def /tex_xshift [120 80 80 80 80 ] def } if 0 1 4 {/k exch def %k=0,4 TBIV /xdLabk 0 def k 1 eq {/xdLabk -50 def} if k 2 eq {/xdLabk -50 def} if k 3 eq {/xdLabk -70 def} if k 4 eq {/xdLabk 50 def} if S40 k xdLab mul add xdLabk add y02 moveto tex_LabCh* k get show TBX S40 k xdLab mul add xdLabk add tex_xshift k get add y02 moveto 0 -50 rmoveto ind_LabCh* k get show 0 50 rmoveto } for %k=0,4 /y03 3100 def /y0d 190 def 0 1 7 {/j exch def %j=0,8 9 colours /i j def j 6 ge {/i j 1 add def} if %for N and W /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def /i50 i 5 mul def /i51 i50 1 add def /i52 i50 2 add def /i53 i50 3 add def /i54 i50 4 add def S10 y03 j y0d mul sub moveto TBV tex*36X i32 get show TBX 0 -40 rmoveto (d) show 0 40 rmoveto S20 y03 j y0d mul sub moveto TBV rgb*36X i30 get cvishow ( ) show rgb*36X i31 get cvishow ( ) show rgb*36X i32 get cvishow 0 1 4 {/k exch def %k=0,4 /xdLabk 0 def k 1 eq {/xdLabk -50 def} if k 2 eq {/xdLabk -50 def} if k 3 eq {/xdLabk -50 def} if k 4 lt {TV}{TBV} ifelse S40 k xdLab mul add xdLabk add y03 j y0d mul sub moveto k 0 eq {LCh*12n i50 get cvishow} if k 1 eq {LCh*12n i53 get dup -100 le {-50 0 rmoveto} if cvishow} if k 2 eq {LCh*12n i54 get dup -100 le {-50 0 rmoveto} if cvishow} if k 3 eq {LCh*12n i51 get cvishow} if k 4 eq {LCh*12n i52 get cvishow} if } for %k=0,4 } for %j=0,7 /y0d 0210 def xchart8 1 le {%xchart8<=1 S10 y03 11.2 y0d mul sub moveto TBIV xchart8 0 eq {(a*) show} if xchart8 1 eq {(A) show} if TBV xchart8 0 eq {( = 500 [\050) show} if xchart8 1 eq {( = 250 [) show} if TBIV (X) show TBV ( / ) show TBIV (X) show TBX 0 -40 rmoveto (D65) show 0 40 rmoveto TBV xchart8 0 eq {(\051) show TBX 0 100 rmoveto (1/3) show 0 -100 rmoveto } if TBV ( - ) show xchart8 0 eq {(\050) show} if TBIV (Y) show TBV ( / ) show TBIV (Y) show TBX 0 -40 rmoveto (D65) show 0 40 rmoveto TBV xchart8 0 eq {(\051) show TBX 0 100 rmoveto (1/3) show 0 -100 rmoveto } if TBV ( ]) show S50 y03 11.2 y0d mul sub moveto TBV xchart8 0 eq {([1a]) show} if xchart8 1 eq {([1b]) show} if S10 y03 12.2 y0d mul sub moveto TBIV xchart8 0 eq {(b*) show} if xchart8 1 eq {(B) show} if TBV xchart8 0 eq {( = 200 [\050) show} if xchart8 1 eq {( = 100 [) show} if TBIV (Y) show TBV ( / ) show TBIV (Y) show TBX 0 -40 rmoveto (D65) show 0 40 rmoveto TBV xchart8 0 eq {(\051) show TBX 0 100 rmoveto (1/3) show 0 -100 rmoveto} if TBV ( - ) show xchart8 0 eq {(\050) show} if TBIV (Z) show TBV ( / ) show TBIV (Z) show TBX 0 -40 rmoveto (D65) show 0 40 rmoveto TBV xchart8 0 eq {(\051) show TBX 0 100 rmoveto (1/3) show 0 -100 rmoveto} if TBV ( ]) show S50 y03 12.2 y0d mul sub moveto TBV xchart8 0 eq {([2a]) show} if xchart8 1 eq {([2b]) show} if } if %xchart8<=1 xchart8 2 eq {%xchart8=2 /index0 {0 -50 rmoveto TBX (1) show 0 50 rmoveto xcol10KBX} def /indexn {0 -50 rmoveto TBX (1,n) show 0 50 rmoveto xcol10KBX} def } if %xchart8=2 xchart8 3 eq {%xchart8=3 /index0 {0 -50 rmoveto TBX (2) show 0 50 rmoveto xcol10KBX} def /indexn {0 -50 rmoveto TBX (2,n) show 0 50 rmoveto xcol10KBX} def } if %xchart8=3 /xcol10_BX {xcolor 1 eq {TBX 0 -50 rmoveto (10) show 0 50 rmoveto TBV} if } bind def /xcol10KBX {xcolor 1 eq {TBX 0 -50 rmoveto (,10) show 0 50 rmoveto TBV} if } bind def TBIV /y04 3100 def xchart8 2 ge {%xchart8>=2 xchart8 2 eq {/Bct (1,000) def /xct (0,110) def} if xchart8 3 eq {/Bct (0,800) def /xct (0,110) def} if S10 y04 07.2 y0d mul sub moveto TBIV (a) show index0 TBV ( = ) show TBIV (a) show 0 -50 rmoveto TBX (20) show 0 50 rmoveto TBV ( [ ) show TBIV (\050 x) show xcol10_BX TBV ( - ) show TBIV (x) show 0 -50 rmoveto TBX (c) show 0 50 rmoveto TBIV ( \051 / y) show xcol10_BX TBV (]) show S10 y04 08.2 y0d mul sub moveto TBIV (b) show index0 TBV ( = ) show TBIV (b) show 0 -50 rmoveto TBX (20) show 0 50 rmoveto TBV ( [) show TBIV ( z) show xcol10_BX TBIV ( / y) show xcol10_BX TBV (]) show S10 y04 09.2 y0d mul sub moveto TBIV (a) show 0 -50 rmoveto TBX (20) show 0 50 rmoveto TBV ( = 1, ) show TBIV (b) show 0 -50 rmoveto TBX (20) show 0 50 rmoveto TBV ( = -0,4) show S10 y04 10.2 y0d mul sub moveto TBIV (x) show 0 -50 rmoveto TBX (c) show 0 50 rmoveto TBV ( = ) show xct show (, ) show TBIV (B) show 0 -50 rmoveto TBX (c) show 0 50 rmoveto TBV ( = ) show Bct show S10 y04 11.2 y0d mul sub moveto TBIV (A) show index0 TBV ( = 2,5 \050) show TBIV (a) show index0 TBV ( - ) show TBIV (a) show indexn TBV (\051 ) show TBIV (Y) show xcol10_BX S50 y04 11.2 y0d mul sub moveto TBV xchart8 2 eq {([1c]) show} if xchart8 3 eq {([1d]) show} if S10 y04 12.2 y0d mul sub moveto TBIV (B) show index0 TBV ( = 2,5 ) show TBIV (B) show 0 -50 rmoveto TBX (c) show 0 50 rmoveto TBV ( \050) show TBIV (b) show index0 TBV ( - ) show TBIV (b) show indexn TBV (\051 ) show TBIV (Y) show xcol10_BX S50 y04 12.2 y0d mul sub moveto TBV xchart8 2 eq {([2c]) show} if xchart8 3 eq {([2d]) show} if } if %xchart8>=2 %for all S10 y04 13.4 y0d mul sub moveto TBIV (C) show TBIV xchart8 0 eq {(*) show} if TBX xchart8 0 eq {0 -40 rmoveto (ab) show 0 40 rmoveto} if xchart8 1 eq {0 -40 rmoveto (AB) show 0 40 rmoveto} if xchart8 2 eq {0 -40 rmoveto (AB1) show 0 40 rmoveto} if xchart8 3 eq {0 -40 rmoveto (AB2) show 0 40 rmoveto} if TBV ( = [ ) show TBIV xchart8 0 eq {(a*) show TBX 0 100 rmoveto (2) show 0 -100 rmoveto} if xchart8 1 eq {(A) show TBX 0 70 rmoveto (2) show 0 -70 rmoveto} if xchart8 2 eq {(A) show index0 TBX -30 70 rmoveto (2) show 0 -70 rmoveto} if xchart8 3 eq {(A) show index0 TBX -30 70 rmoveto (2) show 0 -70 rmoveto} if TBV ( + ) show TBIV xchart8 0 eq {(b*) show TBX 0 100 rmoveto (2) show 0 -100 rmoveto} if xchart8 1 eq {(B) show TBX 0 70 rmoveto (2) show 0 -70 rmoveto} if xchart8 2 eq {(B) show index0 TBX -30 70 rmoveto (2) show 0 -70 rmoveto} if xchart8 3 eq {(B) show index0 TBX -30 70 rmoveto (2) show 0 -70 rmoveto} if TBV ( ] ) show TBX -30 70 rmoveto (0,5) show 0 -70 rmoveto S50 y04 13.4 y0d mul sub moveto TBV xchart8 0 eq {([3a]) show} if xchart8 1 eq {([3b]) show} if xchart8 2 eq {([3c]) show} if xchart8 3 eq {([3d]) show} if S10 y04 14.4 y0d mul sub moveto TBIV (h) show TBX xchart8 0 eq {0 -40 rmoveto (ab) show 0 40 rmoveto} if xchart8 1 eq {0 -40 rmoveto (AB) show 0 40 rmoveto} if xchart8 2 eq {0 -40 rmoveto (AB1) show 0 40 rmoveto} if xchart8 3 eq {0 -40 rmoveto (AB2) show 0 40 rmoveto} if TBV ( = atan [ ) show TBIV xchart8 0 eq {(b*) show} if xchart8 1 eq {(B) show} if xchart8 2 eq {(B) show index0} if xchart8 3 eq {(B) show index0} if TBV ( / ) show TBIV xchart8 0 eq {(a*) show} if xchart8 1 eq {(A) show} if xchart8 2 eq {(A) show index0} if xchart8 3 eq {(A) show index0} if TBV ( ]) show S50 y04 14.4 y0d mul sub moveto TBV xchart8 0 eq {([4a]) show} if xchart8 1 eq {([4b]) show} if xchart8 2 eq {([4c]) show} if xchart8 3 eq {([4d]) show} if /xt2 2150 def /yt2 -2370 def xt2 yt2 translate 0 setgray xp 1450 sub yp 0750 add moveto /L*Xd LCh*5A 0 get def /C*Xd LCh*5A 1 get def /L*Nd LCh*5N 0 get def /L*Wd LCh*5W 0 get def xchart8 0 eq {/xfact1 12 def /yfact1 12 def } if xchart8 1 eq { % /xfact1 12 mul 2.5 mul def % /yfact1 12 mul 2.5 mul def /xfact1 12 def /yfact1 12 def } if xchart8 2 eq { % /xfact1 12 mul 2.5 mul def % /yfact1 12 mul 2.5 mul def /xfact1 12 def /yfact1 12 def } if xchart8 3 eq { % /xfact1 12 mul 2.5 mul def % /yfact1 12 mul 2.5 mul def /xfact1 12 def /yfact1 12 def } if /xp0 xp 0400 add def /yp0 yp 1000 sub def /xpN xp0 1000 sub def /ypN yp0 1000 sub def xp0 1900 sub yp0 0 sub moveto 3600 0 rlineto %horizontal axis & arrow -100 40 rlineto 100 -40 rlineto -100 -40 rlineto stroke xp0 0000 add yp0 1400 sub moveto 0 3100 rlineto %vertical axis & arrow -40 -100 rlineto 40 100 rlineto 40 -100 rlineto stroke xp0 1800 sub yp0 70 sub moveto 0 140 rlineto stroke %marks, horizontal axis xp0 1200 sub yp0 70 sub moveto 0 140 rlineto stroke xp0 0600 sub yp0 70 sub moveto 0 140 rlineto stroke xp0 0600 add yp0 70 sub moveto 0 140 rlineto stroke xp0 1200 add yp0 70 sub moveto 0 140 rlineto stroke xchart8 0 eq {%xchart8=0 /scal_x [(-150) (-100) ( -50) ( 50) ( 100)] def /scal_y [(100) (50) (-50) (-100)] def } if xchart8 1 eq {%xchart8=1 % /scal_x [(-60) ( -40) ( -20) ( 20) ( 40)] def % /scal_y [( 40) (20) (-20) (-40) ] def /scal_x [(-150) (-100) ( -50) ( 50) ( 100)] def /scal_y [(100) (50) (-50) (-100)] def } if %xchart8=1 xchart8 2 eq {%xchart8=2 % /scal_x [(-60) ( -40) ( -20) ( 20) ( 40)] def % /scal_y [( 40) (20) (-20) (-40) ] def /scal_x [(-150) (-100) ( -50) ( 50) ( 100)] def /scal_y [(100) (50) (-50) (-100)] def } if %xchart8=1 xchart8 3 eq {%xchart8=3 % /scal_x [(-60) ( -40) ( -20) ( 20) ( 40)] def % /scal_y [( 40) (20) (-20) (-40) ] def /scal_x [(-150) (-100) ( -50) ( 50) ( 100)] def /scal_y [(100) (50) (-50) (-100)] def } if %xchart8=3 TV xp0 2000 sub yp0 220 sub moveto scal_x 0 get show %numbers, horizontal scale xp0 1400 sub yp0 220 sub moveto scal_x 1 get show xp0 0750 sub yp0 220 sub moveto scal_x 2 get show xp0 0400 add yp0 220 sub moveto scal_x 3 get show xp0 1000 add yp0 220 sub moveto scal_x 4 get show xp0 70 sub yp0 1200 add moveto 140 0 rlineto stroke %marks, vertical axis xp0 70 sub yp0 0600 add moveto 140 0 rlineto stroke xp0 70 sub yp0 0600 sub moveto 140 0 rlineto stroke xp0 70 sub yp0 1200 sub moveto 140 0 rlineto stroke xp0 100 add yp0 1150 add moveto scal_y 0 get show %numbers, vertical axis xp0 100 add yp0 0550 add moveto scal_y 1 get show xp0 100 add yp0 0650 sub moveto scal_y 2 get show xp0 100 add yp0 1250 sub moveto scal_y 3 get show TBIK xp0 0080 add yp0 1550 add moveto xchart8 0 eq {(b*) show} if xchart8 1 eq {(B) show} if xchart8 2 eq {(B) show TBS 0 -40 rmoveto (1) show 0 40 rmoveto} if xchart8 3 eq {(B) show TBS 0 -40 rmoveto (2) show 0 40 rmoveto} if TBIK xp0 1550 add yp0 0120 add moveto xchart8 0 eq {(a*) show} if xchart8 1 eq {(A) show} if xchart8 2 eq {(A) show TBS 0 -40 rmoveto (1) show 0 40 rmoveto} if xchart8 3 eq {(A) show TBS 0 -40 rmoveto (2) show 0 40 rmoveto} if TBK 0.5 setgray xchart5 1 eq {%old hexagon 15 setlinewidth 0 1 6 {/i exch def %i=0,6 0 setgray /i50 i 5 mul def /i53 i50 3 add def %a* /i54 i50 4 add def %b* /xi xp0 LCh*12 i53 get xfact1 mul add def /yi yp0 LCh*12 i54 get yfact1 mul add def i 0 eq {xi yi moveto} if i 1 ge {xi yi lineto} if i 6 eq {stroke} if } for %i=0,6 0 1 6 {/i exch def %i=0,6 0 setgray /i50 i 5 mul def /i53 i50 3 add def %a* /i54 i50 4 add def %b* /xi xp0 LCh*12 i53 get xfact1 mul add def /yi yp0 LCh*12 i54 get yfact1 mul add def xi yi 0040 0 360 arc fill } for %i=0,6 } if %old hexagon 1 setgray 30 setlinewidth 0 1 6 {/i exch def %i=0,6 0 setgray /i50 i 5 mul def /i53 i50 3 add def %a* /i54 i50 4 add def %b* /xi xp0 LCh*12n i53 get xfact1 mul add def /yi yp0 LCh*12n i54 get yfact1 mul add def i 0 eq {xi yi moveto} if i 1 ge {xi yi lineto} if i 6 eq {stroke} if } for %i=0,6 0 1 5 {/i exch def %i=0,5 1 1 3 {/k exch def %k=1,3 0 setgray /i34 i 12 mul k 3 mul add def /i50 i 5 mul def /i53 i50 3 add def /i54 i50 4 add def /xi0 xp0 LCh*12n i53 get xfact1 mul add def /yi0 yp0 LCh*12n i54 get yfact1 mul add def /xi1 xp0 LCh*12n i53 5 add get xfact1 mul add def /yi1 yp0 LCh*12n i54 5 add get yfact1 mul add def /xiM xi0 xi1 xi0 sub k 0.25 mul mul add def /yiM yi0 yi1 yi0 sub k 0.25 mul mul add def /r rgb*30Y i34 3 add get def /g rgb*30Y i34 4 add get def /b rgb*30Y i34 5 add get def r g b setrgbcolor xiM yiM 0050 0 360 arc fill } for %k=1,3 } for %i=0,5 newpath /xshift 6 array def /yshift 6 array def % R Y G C B M /xshift [-50 -150 -100 -100 -250 -050] def /yshift [120 150 150 -300 -200 -300] def xchart8 1 eq {yshift 1 -300 put} if 0 1 5 {/i exch def %i=0,5 0 setgray /i3 i 3 mul def /i50 i 5 mul def /i53 i50 3 add def /i54 i50 4 add def /xi xp0 LCh*12n i53 get xfact1 mul add def /yi yp0 LCh*12n i54 get yfact1 mul add def xi yi 0100 0 360 arc fill /r rgb*36X i3 0 add get def /g rgb*36X i3 1 add get def /b rgb*36X i3 2 add get def r g b setrgbcolor xi yi 0050 0 360 arc fill newpath 0 setgray xi xshift i get add yi yshift i get add moveto tex*36X i 3 mul 2 add get show newpath } for %i=0,5 20 setlinewidth xt2 neg yt2 neg translate } if %xchart6=1 hue circle %******************************************************* showpage grestore %%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 fen01-8a BEE41-6n %%BoundingBox: 70 85 243 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: farbe.li.tu-berlin.de/fen0/fen0.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2020090112000) /ModDate (D:2020090112000) /DOCINFO pdfmark18 [ /View [ /Fit ] /DOCVIEW pdfmark18 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } 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 /TX {120 /Times-ISOL1 FS} bind def /TV {160 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIX {120 /TimesI-ISOL1 FS} bind def /TIV {160 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBX {120 /TimesB-ISOL1 FS} bind def /TBV {160 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIX {120 /TimesBI-ISOL1 FS} bind def /TBIV {160 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /XD65 95.05 def /YD65 100.00 def /ZD65 108.90 def /xanD65 XD65 XD65 YD65 add ZD65 add div def /yanD65 YD65 XD65 YD65 add ZD65 add div def %******************************************************* %created for 10 colours of hue circle and different lightness /LCh*12 60 array def /XYZ*12 60 array def /LCh*12n 60 array def /XYZ*12n 60 array def %************************************************************** %created for 45 colours of equal chroma and different lightness /rgb*45 500 array def %5x45, NOT 3x45 /LCh*45 500 array def %5x45 /XYZ*45 500 array def %5x45 /rgb*45n 500 array def %5x45, NOT 3x45 /XYZ*45n 500 array def %5x45 /XYZ*45na 500 array def /LCh*45n 500 array def %5x45 /LCh*45na 500 array def %5x45 %************************************************************ %definition of A for xchartl=0 to 5 /XYZ*5A 5 array def /LCh*5A 5 array def /XYZ*5N 5 array def /LCh*5N 5 array def /XYZ*5W 5 array def /LCh*5W 5 array def /XYZ*5An 5 array def /LCh*5An 5 array def /XYZ*5Nn 5 array def /LCh*5Nn 5 array def /XYZ*5Wn 5 array def /LCh*5Wn 5 array def /rgb*3A 3 array def /tex*3A 3 array def /rgb*3N 3 array def /tex*3N 3 array def /rgb*3W 3 array def /tex*3W 3 array def /LCh*5Na 5 array def %a=actual /LCh*5Wa 5 array def /LCh*5Aa 5 array def %******************************************************************* /proz_XYZ_LCh* {%BEG proz_XYZ_LCh* %input XYZaref, output LChab*ref, same name in any case %output LabC*h (xchart8=0) or LABC*h (xchart8=1) /XQ Xaref XD65 div def /YQ Yaref YD65 div def /ZQ Zaref ZD65 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 xchart8 0 eq {%xchart8=0 LabCh*-CIELAB /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 } if %xchart8=0 LabCh*-CIELAB xchart8 1 eq {%xchart8=1 LabCh*=LABCh* /a*ref XQ YQ sub 250 mul def /b*ref YQ ZQ sub 100 mul def } if %xchart8=1 LabCh*=LABCh* xchart8 2 eq {%xchart8=2 LabCh*=LAB1Ch* /xanc 0.110 def /Bc 1.000 def /a20 1.000 def /b20 -0.400 def /SUM Xaref Yaref add Zaref add 0.0001 add def /xan Xaref SUM div def /yan Yaref SUM div def /zan Zaref SUM div def /SUMD65 XD65 YD65 add ZD65 add 0.0001 add def /xanD65 XD65 SUMD65 div def /yanD65 YD65 SUMD65 div def /zanD65 ZD65 SUMD65 div def /aan xan xanc sub yan div a20 mul def /ban zan yan div b20 mul def /aanD65 xanD65 xanc sub yanD65 div a20 mul def /banD65 zanD65 yanD65 div b20 mul def /a*ref aan aanD65 sub 2.5 mul Yaref mul def /b*ref ban banD65 sub 2.5 mul Bc mul Yaref mul def } if %xchart8=2 LabCh*=LAB1Ch* xchart8 3 eq {%xchart8=3 LabCh*=LAB2Ch* /xanc 0.110 def /Bc 0.800 def /a20 1.000 def /b20 -0.400 def /SUM Xaref Yaref add Zaref add 0.0001 add def /xan Xaref SUM div def /yan Yaref SUM div def /zan Zaref SUM div def /SUMD65 XD65 YD65 add ZD65 add 0.0001 add def /xanD65 XD65 SUMD65 div def /yanD65 YD65 SUMD65 div def /zanD65 ZD65 SUMD65 div def /aan xan xanc sub yan div a20 mul def /ban zan yan div b20 mul def /aanD65 xanD65 xanc sub yanD65 div a20 mul def /banD65 zanD65 yanD65 div b20 mul def /a*ref aan aanD65 sub 2.5 mul Yaref mul def /b*ref ban banD65 sub 2.5 mul Bc mul Yaref mul def } if %xchart8=3 LabCh*=LAB2Ch* /C*ref a*ref dup mul b*ref dup mul add sqrt def /h*ref b*ref a*ref 0.00001 add atan def C*ref 0.05 le {/h*ref 0 def} if } bind def %END proz_XYZ_LCh* %******************************************************************* /proz_LCh*_XYZ {%BEG proz_LCh*_XYZ %input LCh*ref of LabC*h (xchart8=0) or L*ABCh (xchart8=1) %output XYZref, xyanref xchart8 0 eq {%xchart8=0 /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /a*ref C*ref h*ref cos mul def /b*ref C*ref h*ref sin mul def /X* {L*ref 16 add 116 div a*ref 500 div add} bind def /Y* {L*ref 16 add 116 div} bind def /Z* {L*ref 16 add 116 div b*ref 200 div sub} bind def /Xref X* DecodeXYZ* XD65 mul def /Yref Y* DecodeXYZ* YD65 mul def /Zref Z* DecodeXYZ* ZD65 mul def } if %xchart8=0 xchart8 1 ge {%xchart8>=1 xchart8 1 eq {%xchart8=1 /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /Y* {L*ref 16 add 116 div} bind def /Yref Y* DecodeXYZ* YD65 mul def } if %xchart8=1 xchart8 2 eq {%xchart8=2 /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /Y* {L*ref 16 add 116 div} bind def /Yref Y* DecodeXYZ* YD65 mul def } if %xchart8=2 xchart8 3 eq {%xchart8=3 /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /Y* {L*ref 16 add 116 div} bind def /Yref Y* DecodeXYZ* YD65 mul def } if %xchart8=3 /a*ref C*ref h*ref cos mul def /b*ref C*ref h*ref sin mul def /Xref a*ref 250 div XD65 mul Yref XD65 mul YD65 div add def /Zref Yref ZD65 mul YD65 div b*ref 100 div ZD65 mul sub def } if %xchart8>=1 Xref 0.01 lt {/Xref 0.01 def} if Yref 0.01 lt {/Yref 0.01 def} if Zref 0.01 lt {/Zref 0.01 def} if /SUM Xref Yref add Zref add 0.0001 add def /xanref Xref SUM div def /yanref Yref SUM div def } bind def %END proz_LCh*_XYZ %************************************************************************* /proz_XYZnw_D65_xchart7_definition {%BEG proz_XYZnw_D65_xchart7_definition % achromatic colours /XLWD65100 95.04 def /YLWD65100 100.00 def /ZLWD65100 108.88 def /XLN001 XLWD65100 100 div def /YLN001 YLWD65100 100 div def /ZLN001 ZLWD65100 100 div def /YrN 2.52 def /Xnref YrN XLN001 mul def /Ynref YrN def /Znref YrN ZLN001 mul def /Xtref XYZnref_ISO9241-306 xchart7 3 mul 0 add get def /Ytref XYZnref_ISO9241-306 xchart7 3 mul 1 add get def /Ztref XYZnref_ISO9241-306 xchart7 3 mul 2 add get def /YNil Ytref def /YNil001 YNil 100 div def YNil001 6 29 div 3 exp ge {/FYYn YNil001 0.3333 exp def} {/FYYn 841 108 div YNil001 mul 4 29 div add def} ifelse /L*Nil 116 FYYn mul 16 sub def } bind def %END proz_XYZnw_D65_xchart7_definition %************************************************************** /proz_XYZ*12_XYZ*12n {%BEG proz_XYZ*12_XYZ*12n %for 10 colours %input XYZ*12, rgb*10 %output LCh*12n, rgb*10n %only for xchart5=1 and for 10 colours in 7 hue planes and achromatic %change XYZ*12 to XYZ*12n by display reflection according to xchart7 %normalization to Ynor=18 xchart9 1 eq {%xchart9=1 /Xnor XD65 0.18 mul def /Ynor YD65 0.18 mul def /Znor ZD65 0.18 mul def /Xfac1 Xnor Xnor Xtref add div def /Yfac1 Ynor Ynor Ytref add div def /Zfac1 Znor Znor Ztref add div def XYZ*12n i100 XYZ*12 i100 get Xnor sub Xfac1 mul Xnor add put XYZ*12n i101 XYZ*12 i101 get Ynor sub Yfac1 mul Ynor add put XYZ*12n i102 XYZ*12 i102 get Znor sub Zfac1 mul Znor add put } if %xchart9=1 %normalization to Ynor=88.6 xchart9 0 eq {%xchart9=0 /Xnor XD65 0.886 mul def /Ynor YD65 0.886 mul def /Znor ZD65 0.886 mul def /Xfac2 Xnor Xtref sub Xnor div def /Yfac2 Ynor Ytref sub Ynor div def /Zfac2 Znor Ztref sub Znor div def XYZ*12n i100 XYZ*12 i100 get Xfac2 mul Xtref add put XYZ*12n i101 XYZ*12 i101 get Yfac2 mul Ytref add put XYZ*12n i102 XYZ*12 i102 get Zfac2 mul Ztref add put } if %xchart9=0 } bind def %END proz_XYZ*12_XYZ*12n %**************************************************************** /proz_XYZ*45_XYZ*45n {%BEG proz_XYZ*45_XYZ*45n %for 45 colours %input XYZ*45, rgb*45 %output XYZ*45n, rgb*45n %only for xchart5=1 and for 45 colours in hue plane %change XYZ*45 to XYZ*45n by display reflection according t0 xchart7 %normalization to Ynor=18 xchart9 1 eq {%xchart9=1 /Xnor XD65 0.18 mul def /Ynor YD65 0.18 mul def /Znor ZD65 0.18 mul def /Xfac1 Xnor Xnor Xtref add div def /Yfac1 Ynor Ynor Ytref add div def /Zfac1 Znor Znor Ztref add div def XYZ*45n i450 XYZ*45 i450 get Xnor sub Xfac1 mul Xnor add put XYZ*45n i451 XYZ*45 i451 get Ynor sub Yfac1 mul Ynor add put XYZ*45n i452 XYZ*45 i452 get Znor sub Zfac1 mul Znor add put } if %xchart9=1 %normalization to Ynor=88.6 xchart9 0 eq {%xchart9=0 /Xnor XD65 0.886 mul def /Ynor YD65 0.886 mul def /Znor ZD65 0.886 mul def /Xfac2 Xnor Xtref sub Xnor div def /Yfac2 Ynor Ytref sub Ynor div def /Zfac2 Znor Ztref sub Znor div def XYZ*45n i450 XYZ*45 i450 get Xfac2 mul Xtref add put XYZ*45n i451 XYZ*45 i451 get Yfac2 mul Ytref add put XYZ*45n i452 XYZ*45 i452 get Zfac2 mul Ztref add put } if %xchart9=0 } bind def %END proz_XYZ*45_XYZ*45n %*********************************************************** %*********************************************************** /proz_sRGB_rgb*36X_definitions {%BEG proz_sRGB_rgb*36X_definitions /XYZ*WCGa_d_0000_0886 36 array def %d, Yw=88,6, Yn=2,50 /XYZ*WCGa_d_0000_0886 [056.43 023.27 000.00 %0 Rd %ANH9_Y10-7N,201003, fehl? Zmin=2.72 069.24 083.34 002.48 %1 Yd 012.81 060.07 002.48 %2 Gd 027.77 066.32 096.48 %3 Cd 014.96 005.25 094.00 %4 Bd 071.39 028.52 094.00 %5 Md 056.43 023.27 000.00 %6 Rd %for hue circle 000.01 000.01 000.01 %7 N0 084.21 088.60 096.48 %8 W0 000.01 000.01 000.01 %9 N1 095.05 100.00 108.90 %10 W1 017.11 18.00 19.60 %11 Z1 ] def /XYZ*sRGB_d_0000_0886 36 array def %d, Yw=88,60, Yn=0,00 /XYZ*sRGB_d_0000_0886 [036.54 018.84 001.71 %0 Rd %from AE99:Y10-7N (ISO 9241-306 for 100/88,6) 068.22 082.20 012.27 %1 Yd %new table 210217, only R was for 88.60 031.68 063.36 010.56 %2 Gd 047.67 069.76 094.78 %3 Cd 015.99 006.40 084.22 %4 Bd 052.53 025.24 085.93 %5 Md 036.54 018.84 001.71 %6 Rd %for hue circle 000.01 000.01 000.01 %7 N0 084.21 088.60 096.48 %8 W0 000.01 000.01 000.01 %9 N1 095.05 100.00 108.90 %10 W1 017.11 18.00 19.60 %11 Z1 ] def /XYZ*Ostw_d_0000_1000 36 array def %m, Yw=100,00, Yn=0,00 /XYZ*Ostw_d_0000_1000 [062.40 041.75 000.76 %0 Rm 561_405 589 %ANI6_Y10-7N,201012 076.68 082.00 001.27 %1 Ym 520_520c 569 023.83 065.32 015.00 %2 Gm 475_473 528c 032.63 058.24 108.12 %3 Cm 405_561 483 018.36 017.99 107.61 %4 Bm 519c-519 471 071.20 034.67 093.88 %5 Mm 573_475 528c 062.40 041.75 000.76 %6 Rm 561_405 589 %for hue circle 000.01 000.01 000.01 %7 N0 095.05 100.00 108.90 %8 W0 000.01 000.01 000.01 %9 N1 107.29 112.88 122.24 %10 W1 19.31 20.31 22.00 %11 Z1 ] def /XYZ*Offs_d_0000_0886 36 array def %d, Yw=88,60, Yn=0,00 /XYZ*Offs_d_0000_0886 [029.01 016.24 004.26 %0 Rd %ANJ7_Y11-1N,201012 063.74 072.69 008.27 %1 Yd 008.53 020.05 009.58 %2 Gd 018.74 026.27 069.02 %3 Cd 006.22 004.51 022.65 %4 Bd 032.46 016.95 023.04 %5 Md 029.01 016.24 004.26 %6 Rd %for hue circle 000.01 000.01 000.01 %7 N0 084.21 088.60 096.48 %8 W0 000.01 000.01 000.01 %9 N1 095.05 100.00 108.90 %10 W1 017.11 18.00 19.60 %11 Z1 ] def /rgb*36X 36 array def /rgb*36X [1 0 0 %0 1 1 0 %1 0 1 0 %2 0 1 1 %3 0 0 1 %4 1 0 1 %5 1 0 0 %6 0.00 0.00 0.00 %7 N0 1.00 1.00 1.00 %8 W0 0.00 0.00 0.00 %9 N1 1.13 1.13 1.13 %10 W1 0.18 0.18 0.18 %11 Z1 ] def /tex*36X 36 array def /tex*36X [(Rot) (red) (R) %0 (Gelb) (yellow) (Y) %1 (Gr\374n) (green) (G) %2 (Cyan) (cyan) (C) %3 (Blau) (blue) (B) %4 (Magenta) (magenta) (M) %5 (Rot) (red) (R) %6 (Schwarz) (black) (N) %7 (Wei\337) (white) (W) %8 (Schwarz) (black) (N1) %9 (Wei\337) (white) (W1) %10 (Grau) (grey) (Z1) %11 ] def /XYZnref_ISO9241-306 24 array def /XYZnref_ISO9241-306 [ %XYZnref wit contrast step according to ISO 9241-306:2018 00.01 00.01 00.01 %0 0288:1 00.60 00.63 00.69 %1 0144:1 01.20 01.26 01.37 %2 0072:1 02.40 02.52 02.74 %3 0036:1 %standard 04.79 05.04 05.49 %4 0018:1 08.58 10.08 10.98 %5 0009:1 19.16 20.16 21.95 %6 04,5:1 38.32 40.32 43.90 %7 2,25:1 ] def /Ynref_ISO9241-306 8 array def 0 1 7 {/i exch def %i=0,7 /i31 i 3 mul 1 add def Ynref_ISO9241-306 i XYZnref_ISO9241-306 i31 get put } for %i=0,7 0 1 11 {/sISO exch def /i30 sISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def /i50 sISO 5 mul def /i51 i50 1 add def /i52 i50 2 add def /i53 i50 3 add def /i54 i50 4 add def xchart4 0 eq {%xchart4=0 XYZ*12 i50 XYZ*sRGB_d_0000_0886 i30 get put XYZ*12 i51 XYZ*sRGB_d_0000_0886 i31 get put XYZ*12 i52 XYZ*sRGB_d_0000_0886 i32 get put } if %xchart4=0 xchart4 1 eq {%xchart4=1 XYZ*12 i50 XYZ*WCGa_d_0000_0886 i30 get put XYZ*12 i51 XYZ*WCGa_d_0000_0886 i31 get put XYZ*12 i52 XYZ*WCGa_d_0000_0886 i32 get put } if %xchart4=1 xchart4 2 eq {%xchart4=2 XYZ*12 i50 XYZ*Offs_d_0000_0886 i30 get put XYZ*12 i51 XYZ*Offs_d_0000_0886 i31 get put XYZ*12 i52 XYZ*Offs_d_0000_0886 i32 get put } if %xchart4=2 xchart4 3 eq {%xchart4=3 XYZ*12 i50 XYZ*Ostw_d_0000_1000 i30 get 0.8860 mul put XYZ*12 i51 XYZ*Ostw_d_0000_1000 i31 get 0.8860 mul put XYZ*12 i52 XYZ*Ostw_d_0000_1000 i32 get 0.8860 mul put } if %xchart4=3 /SUM XYZ*12 i50 get XYZ*12 i51 get add XYZ*12 i52 get add def XYZ*12 i53 XYZ*12 i50 get SUM div put XYZ*12 i54 XYZ*12 i51 get SUM div put %will be replaced, if xchart5=1 XYZ*12n i50 XYZ*12 i50 get put XYZ*12n i51 XYZ*12 i51 get put XYZ*12n i52 XYZ*12 i52 get put XYZ*12n i53 XYZ*12 i53 get put XYZ*12n i54 XYZ*12 i54 get put } for %i=0,11 } bind def %END proz_sRGB_rgb*36X_definitions %*************************************************************** /proz_out_text_ANW_definition {%BEG proz_out_text_ANW_definition %loop for maximal 5 colours +N +W 0 1 2 {/j exch def %j=0,2 %three components /i3j xchartl 3 mul j add def rgb*3A j rgb*36X i3j get put tex*3A j tex*36X i3j get put } for %j=0,2 0 1 4 {/j exch def %j=0,4 %three components /i5j xchartl 5 mul j add def XYZ*5A j XYZ*12 i5j get put LCh*5A j LCh*12 i5j get put XYZ*5An j XYZ*12n i5j get put LCh*5An j LCh*12n i5j get put } for %j=0,4 0 1 2 {/i exch def %i=0,2 rgb*3N i rgb*36X i 21 add get put %8x3 tex*3N i tex*36X i 21 add get put rgb*3W i rgb*36X i 24 add get put %9x3 tex*3W i tex*36X i 24 add get put } for %i=0,2 0 1 4 {/i exch def %i=0,4 XYZ*5N i XYZ*12 i 35 add get put %8x5 LCh*5N i LCh*12 i 35 add get put XYZ*5W i XYZ*12 i 40 add get put %9x5 LCh*5W i LCh*12 i 40 add get put XYZ*5Nn i XYZ*12n i 35 add get put %8x5 LCh*5Nn i LCh*12n i 35 add get put XYZ*5Wn i XYZ*12n i 40 add get put %9x5 LCh*5Wn i LCh*12n i 40 add get put } for %i=0,4 /L*Xd LCh*5A 0 get def /C*Xd LCh*5A 1 get def /L*Nd LCh*5N 0 get def /L*Wd LCh*5W 0 get def /L*Xdn LCh*5An 0 get def /C*Xdn LCh*5An 1 get def /L*Ndn LCh*5Nn 0 get def /L*Wdn LCh*5Wn 0 get def /xfact 2000 100 div def /yfact 2000 100 div def %Titeltext /xd 1550 def /yd 5000 def /xp 1550 def /yp 5000 def /xpN xp def /ypN yp 2000 sub def /xpW xp def /ypW yp def /xpX xp 2000 add def /ypX yp 1000 sub def /xNd xp def %Nd /yNd ypN L*Nd yfact mul add def %Nd /xWd xp def %Wd /yWd ypN L*Wd yfact mul add def %Wd /xRd xp C*Xd xfact mul add def %Xd /yRd ypN L*Xd yfact mul add def /tex_LC*hab {xchart8 0 eq {(LC*hab) show} if xchart8 1 eq {(L*ChAB) show} if xchart8 2 eq {(L*ChAB) show} if xchart8 3 eq {(L*ChAB) show} if } bind def /tex_LabC*h {xchart8 0 eq {(LabC*h) show} if xchart8 1 eq {(L*ABCh) show} if xchart8 2 eq {(L*ABCh) show} if xchart8 3 eq {(L*ABCh) show} if } bind def /indd {0 -50 rmoveto (d) show 0 50 rmoveto} bind def /inddk {0 -50 rmoveto (d,) show 0 50 rmoveto} bind def /inde {0 -50 rmoveto (d) show 0 50 rmoveto} bind def /indek {0 -50 rmoveto (d,) show 0 50 rmoveto} bind def /indab {0 -50 rmoveto xchart8 0 eq {(ab)} if xchart8 1 eq {(AB)} if xchart8 2 eq {(AB1)} if xchart8 3 eq {(AB2)} if show 0 50 rmoveto} bind def /indabk {0 -50 rmoveto xchart8 0 eq {(ab,)} if xchart8 1 eq {(AB,)} if xchart8 2 eq {(AB1,)} if xchart8 3 eq {(AB2,)} if show 0 50 rmoveto} bind def /indabd {0 -50 rmoveto xchart8 0 eq {(ab,d)} if xchart8 1 eq {(AB,d)} if xchart8 2 eq {(AB1,d)} if xchart8 3 eq {(AB2,d)} if show 0 50 rmoveto} bind def /indabe {0 -50 rmoveto xchart8 0 eq {(ab,e)} if xchart8 1 eq {(AB,e)} if xchart8 2 eq {(AB1,e)} if xchart8 3 eq {(AB2,e)} if show 0 50 rmoveto} bind def /indabN {0 -50 rmoveto xchart8 0 eq {(ab,N)} if xchart8 1 eq {(AB,N)} if xchart8 2 eq {(AB1,N)} if xchart8 3 eq {(AB2,N)} if show 0 50 rmoveto} bind def /indabW {0 -50 rmoveto xchart8 0 eq {(ab,W)} if xchart8 1 eq {(AB,W)} if xchart8 2 eq {(AB1,W)} if xchart8 3 eq {(AB2,W)} if show 0 50 rmoveto} bind def } bind def %END proz_out_text_ANW_definition %************************************************************** /nshow {TS show} bind def /kshow {TIS show} bind def /bshow {TBS show} bind def /jshow {TBIS show} bind def /ibshown {TBV -50 -50 rmoveto show 0 50 rmoveto TBS} bind def /ibshow0 {TBV -00 -50 rmoveto show 0 50 rmoveto TBS} bind def /ishown {TV -50 -50 rmoveto show 0 50 rmoveto TS } bind def /ishow0 {TV -00 -50 rmoveto show 0 50 rmoveto TS } bind def %40% kleiner /ns4 {250 /Times-ISOL1 FS show TK} bind def /ks4 {250 /TimesI-ISOL1 FS show TK} bind def /bs4 {250 /TimesB-ISOL1 FS show TK} bind def /js4 {250 /TimesBI-ISOL1 FS show TK} bind def /ss4 {250 /Symbol FS show TK} bind def /is4 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /es4 {200 /Times-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ib4 {200 /TimesB-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /eb4 {200 /TimesB-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ip4 {200 /Times-ISOL1 FS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def %60% kleiner /ns6 {200 /Times-ISOL1 FS show TS} bind def /ks6 {200 /TimesI-ISOL1 FS show TS} bind def /bs6 {200 /TimesB-ISOL1 FS show TS} bind def /js6 {200 /TimesBI-ISOL1 FS show TS} bind def /ss6 {200 /Symbol FS show TS} bind def /is6 {160 /Times-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /es6 {160 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ib6 {160 /TimesB-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /eb6 {160 /TimesB-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ip6 {160 /Times-ISOL1 FS 24 24 rmoveto (\267) show 24 -24 rmoveto TS} bind /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show} def /cvsshow1g {/nxx exch def %example nxx=99.1/99.0 nxx 0 lt {(-) show /nxx nxx abs def} if 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 /cvsshow2g {/nxx exch def %example nxx=99.12/99,02/99,00 nxx 0 lt {(-) show /nxx nxx abs def} if 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 /cvsshow3g {/nxx exch def %example nxx=99.123/99.012/99.001/99.000 nxx 0 lt {(-) show /nxx nxx abs def} if 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 %%EndProlog gsave /lanind 0 def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind le {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind le {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind le {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES where {pop %/IMES IMES def } {/IMES 0 def} ifelse /xchartl 0 def %0 for xchart6=0 or 1; 0 to 5 for 6 hue planes /xchart3 0 def %0: LCH, %1: ICE/ice /xchart4 1 def %0: sRGB, 1: WCGa, 3: Offs, 4:Ostw /xchart5 1 def %0: YN=0, 1: YN=0,0 ..2,5 ..40,3 /xchart6 1 def %0: Y10-1N, %1 Y10-2N, %2: Y10-3N to 8N /xchart7 7 def %0 to 7: 8 contrast steps no. 1 to 8 according to ISO 9241-406 /xchart8 2 def %0: LabC*h, 1: L*ABCh, 2: L*AB1Ch, 3:L*AB2Ch /xchart9 0 def %0 for Normalizaton; 0: Y=88,6, 1: Y=18,0 4 /Times-ISOL1 FS 72 86 moveto (fen01-8a BEE41-6n) show 72 90 translate 0.01 MM 0.01 MM scale 15 setlinewidth 1 setgray /xwide 6000 def /ywide 4000 def 0 0 moveto xwide 0 rlineto 0 ywide rlineto xwide neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwide 0 rlineto 0 ywide rlineto xwide neg 0 rlineto closepath stroke %produces XYZ*12 and XYZ*12n proz_sRGB_rgb*36X_definitions %uses XYZ*12 proz_XYZnw_D65_xchart7_definition 0 1 11 {/i exch def %i=0,09 /i100 i 5 mul def /i101 i100 1 add def /i102 i100 2 add def /i103 i100 3 add def /i104 i100 4 add def /Xaref XYZ*12 i100 get def /Yaref XYZ*12 i101 get def /Zaref XYZ*12 i102 get def % in any case defined proz_XYZ_LCh* LCh*12 i100 L*ref put LCh*12 i101 C*ref put LCh*12 i102 h*ref put LCh*12 i103 a*ref put LCh*12 i104 b*ref put LCh*12n i100 L*ref put %may be replaced LCh*12n i101 C*ref put LCh*12n i102 h*ref put LCh*12n i103 a*ref put LCh*12n i104 b*ref put xchart5 1 eq {%BEG xchart5=1 %XYZaref see above %input XYZ*12 %output XYZ*12n, LCh*12n proz_XYZ*12_XYZ*12n %calculates intermediate XYZ*12n /Xaref XYZ*12n i100 get def /Yaref XYZ*12n i101 get def /Zaref XYZ*12n i102 get def %input XYZaref, output LChab*ref proz_XYZ_LCh* LCh*12n i100 L*ref put LCh*12n i101 C*ref put LCh*12n i102 h*ref put LCh*12n i103 a*ref put LCh*12n i104 b*ref put } if %xchart5=1 } for %i=0,11 %produces for hue circle and achromatic colours %XYZ*(ANW)_(ANW)n, LCh*(ANW)_(ANW)n with 5 components %rgb*(ANW)_(ANW)n, tex*(ANW)_(ANW)n with 3 components proz_out_text_ANW_definition /yt 300 def %y-Zeilenabstand for text /yd 400 def %y-Zeilenabstand for formula %Spalten /S1 100 def /S2 1500 def /S3 2300 def /S4 5900 def /S5 7700 def /S6 8500 def /yz 400 def /yu5 7600 def /yu4 7100 def /yu3 5800 def /yu2 5800 def /yu1 5800 def %******************************************************** xchart6 0 eq {%xchart6=0 table /xdXYZ 470 def /xdLab 570 def 50 3750 moveto TBIS xchart4 0 eq {(sRGB) show} if xchart4 1 eq {(WCGa) show} if xchart4 2 eq {(Offs) show} if xchart4 3 eq {(Ostw) show} if TBS (\255Daten ) showde ( data ) showen TBIS (rgb*) show TBIS (, XYZxy) show TBS (, and ) showen ( und ) showde TBIS tex_LabC*h TBV indab TBS xchart8 0 eq {%xchart8=0 ( im CIELAB\255Farbraum) showde ( in the CIELAB\255colour space) showen} if xchart8 1 eq {( im L*ABJND\255Farbraum) showde ( in L*ABJND\255colour space) showen} if xchart8 2 eq {( im L*AB1JND\255Farbraum) showde ( in L*AB1JND\255colour space) showen} if xchart8 3 eq {( im L*AB2JND\255Farbraum) showde ( in L*AB2JND\255colour space) showen} if 0 3650 moveto 6000 0 rlineto stroke 50 3400 moveto TS (Normfarbwerte von Schwarz und Wei\337: ) showde (Tristimulus values of black and white: ) showen TIS (Y) show TV 0 -40 rmoveto xchart5 0 eq {(N) show}{(Nn) show} ifelse 0 40 rmoveto TS (=) show xchart5 0 eq {XYZ*5N 1 get cvsshow1g} {XYZ*5Nn 1 get cvsshow1g} ifelse TIS (, Y) show TV 0 -40 rmoveto xchart5 0 eq {(W) show}{(Wn) show} ifelse 0 40 rmoveto TS (=) show xchart5 0 eq {XYZ*5W 1 get cvsshow1g} {XYZ*5Wn 1 get cvsshow1g} ifelse xchart5 1 eq {%xchart5=1 TIS (, Y) show TV 0 -40 rmoveto xchart9 0 eq {(Wa) show}{(Za) show} ifelse 0 40 rmoveto TS xchart9 0 eq {(=88,6.) show} {(=18.) show} ifelse } if %xchart5=1 /xt1 0000 def /yt1 0000 def xt1 yt1 translate /y01 3250 def /y02 2850 def /S10 40 def %colour /S20 0400 def %rgb /S30 0900 def %XYZ /S40 3300 def %LCh*ab 0 y01 moveto 6000 0 rlineto stroke 0 y02 100 sub moveto 6000 0 rlineto stroke 0 750 moveto 6000 0 rlineto stroke S20 50 sub y01 moveto S20 50 sub 0 lineto stroke S30 50 sub y01 moveto S30 50 sub 0 lineto stroke S40 50 sub y01 moveto S40 50 sub 0 lineto stroke TBV S30 y02 200 add moveto (CIEXYZ) show (\255Daten) showde ( data) showen S40 y02 200 add moveto TBIV xchart8 0 eq {(LabC*h) show} if xchart8 1 eq {(L*ABCh) show} if xchart8 2 eq {(L*ABCh) show} if xchart8 3 eq {(L*ABCh) show} if TBX indab TBV (\255Daten) showde ( data) showen S20 y02 moveto TBIV (rgb*) show /tex_XYZxy [(X) (Y) (Z) (x) (y)] def 0 1 4 {/k exch def %k=0,4 TBIV S30 k xdXYZ mul add y02 moveto tex_XYZxy k get show TBX S30 k xdXYZ mul add 080 add y02 moveto 0 -50 rmoveto (d) show 0 50 rmoveto } for %k=0,4 xchart8 0 eq {/tex_LabCh* [(L*) (a*) (b*) (C*) (h) ] def /ind_LabCh* [(d) (d) (d) (ab,d) (ab,d)] def /tex_xshift [120 120 120 120 80 ] def } if xchart8 1 eq {/tex_LabCh* [(L*) (A) (B) (C) (h) ] def /ind_LabCh* [(d) (d) (d) (AB,d) (AB,d)] def /tex_xshift [120 80 80 80 80 ] def } if xchart8 2 eq {/tex_LabCh* [(L*) (A) (B) (C) (h ) ] def /ind_LabCh* [(d) (1,d)(1,d)(AB1,d)(AB1,d)] def /tex_xshift [120 80 80 60 80 ] def } if xchart8 3 eq {/tex_LabCh* [(L*) (A) (B) (C) (h) ] def /ind_LabCh* [(d) (2,d)(2,d)(AB2,d)(AB2,d)] def /tex_xshift [120 80 80 60 80 ] def } if 0 1 4 {/k exch def %k=0,4 TBIV S40 k xdLab mul add y02 moveto tex_LabCh* k get show TBX S40 k xdLab mul add tex_xshift k get add y02 moveto 0 -50 rmoveto ind_LabCh* k get show 0 50 rmoveto } for %k=0,4 /y03 2500 def /y0d 235 def TBV 0 1 10 {/j exch def %j=0,9 colours without red twice /i j def j 6 ge {/i j 1 add def} if %for N and W /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def /ydd 0 def i 8 gt {/ydd 0.2 y0d mul def} if S10 y03 j y0d mul sub ydd sub moveto tex*36X i32 get show TBX 0 -40 rmoveto (d) show 0 40 rmoveto S20 y03 j y0d mul sub ydd sub moveto TBV i 8 le {%i<=7 rgb*36X i30 get cvishow ( ) show rgb*36X i31 get cvishow ( ) show rgb*36X i32 get cvishow} {rgb*36X i30 get cvsshow2g} ifelse /i50 i 5 mul def /i51 i50 1 add def /i52 i50 2 add def /i53 i50 3 add def /i54 i50 4 add def 0 1 4 {/k exch def %k=0,4 TV S30 k xdXYZ mul add y03 j y0d mul sub ydd sub moveto k 0 eq {XYZ*12n i50 get cvsshow2g} if k 1 eq {XYZ*12n i51 get cvsshow2g} if k 2 eq {XYZ*12n i52 get cvsshow2g} if k 3 eq {XYZ*12n i53 get cvsshow3g} if k 4 eq {XYZ*12n i54 get cvsshow3g} if } for %k=0,4 0 1 4 {/k exch def %k=0,4 k 3 le {TV}{TBV} ifelse S40 k xdLab mul add y03 j y0d mul sub ydd sub moveto k 0 eq {LCh*12n i50 get cvsshow2g} if k 1 eq {LCh*12n i53 get cvsshow2g} if k 2 eq {LCh*12n i54 get cvsshow2g} if k 3 eq {LCh*12n i51 get cvsshow2g} if k 4 eq {LCh*12n i52 get cvishow} if } for %k=0,4 } for %j=0,10 xt1 neg yt1 neg translate } if %xchart6=0 table %********************************************************* xchart6 1 eq {%xchart6=1 hue circle /xdLab 300 def %HUE CIRCLE /xd 1550 def /yd 5000 def /xp 1550 def /yp 5000 def /xdN xd def /ydN yd 2000 sub def /xdW xd def /ydW yd def /xdR xd 2000 add def /ydR yd 1000 sub def /xm 2000 4 div def /xip xd xm 2 mul add def /yip ydN xm 2 mul add def /xi1 xd xm 1 mul sub def /yi1 ydW xm 0.5 mul sub def /xi2 xd xm 2 mul add def /yi2 ydN 400 sub def /rgb*30Y 84 def %7x12 /rgb*30Y [1.00 0.00 0.00 %0 R 1.00 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 1.00 1.00 0.00 %1 Y 0.75 1.00 0.00 0.50 1.00 0.00 0.25 1.00 0.00 0.00 1.00 0.00 %2 G 0.00 1.00 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 1.00 1.00 %3 C 0.00 0.75 1.00 0.00 0.50 1.00 0.00 0.25 1.00 0.00 0.00 1.00 %4 B 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 1.00 1.00 0.00 1.00 %5 M 1.00 0.00 0.75 1.00 0.00 0.50 1.00 0.00 0.25 1.00 0.00 0.00 %6 R 1.00 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 ] def 50 3800 moveto TBIS xchart4 0 eq {(sRGB) show} if xchart4 1 eq {(WCGa) show} if xchart4 2 eq {(Offs) show} if xchart4 3 eq {(Ostw) show} if TBS (\255Daten ) showde ( data ) showen TBIS (rgb*) show TBIS (, XYZxy) showde (, XYZxy) showen TBS (, and ) showen ( und ) showde TBIS xchart8 0 eq {(LabC*h) show} if xchart8 1 eq {(L*ABCh) show} if xchart8 2 eq {(L*ABCh) show} if xchart8 3 eq {(L*ABCh) show} if TBV 0 -40 rmoveto xchart8 0 eq {(ab)} if xchart8 1 eq {(AB)} if xchart8 2 eq {(AB1)} if xchart8 3 eq {(AB2)} if show 0 40 rmoveto TBS xchart8 0 eq {%xchart8=0 ( im CIELAB\255Farbraum) showde ( in the CIELAB\255colour space) showen } if %xchart8=0 xchart8 1 eq {%xchart8=1 ( im L*ABJND\255Farbraum) showde ( in L*ABJND\255colour space) showen } if %xchart8=1 xchart8 2 eq {%xchart8=2 ( im L*AB1JND\255Farbraum) showde ( in L*AB1JND\255colour space) showen } if %xchart8=2 xchart8 3 eq {%xchart8=3 ( im L*AB2JND\255Farbraum) showde ( in L*AB2JND\255colour space) showen } if %xchart8=3 0 3700 moveto 6000 0 rlineto stroke 50 3500 moveto TS (Normfarbwerte von Schwarz und Wei\337: ) showde (Tristimulus values of black and white: ) showen TIS (Y) show TV 0 -40 rmoveto xchart5 0 eq {(N) show}{(Nn) show} ifelse 0 40 rmoveto TS (=) show xchart5 0 eq {XYZ*5N 1 get cvsshow1g} {XYZ*5Nn 1 get cvsshow1g} ifelse TIS (, Y) show TV 0 -40 rmoveto xchart5 0 eq {(W) show}{(Wn) show} ifelse 0 40 rmoveto TS (=) show xchart5 0 eq {XYZ*5W 1 get cvsshow1g} {XYZ*5Wn 1 get cvsshow1g} ifelse xchart5 1 eq {%xchart5=1 (, Y) show TV 0 -40 rmoveto xchart9 0 eq {(Wa) show}{(Za) show} ifelse 0 40 rmoveto TS xchart9 0 eq {(=88,6.) show}{(=18.) show} ifelse } if %xchart5=1 /y01 3350 def /y02 3300 def /S10 40 def %colour /S20 0270 def %rgb /S40 0650 def %LCh*ab xchart8 0 eq {/S50 2600 def} {/S50 2150 def} ifelse %[X] %TBV %S40 y02 250 add moveto %TBIV %xchart8 0 eq {(LabC*h) show} if %xchart8 1 eq {(L*ABCh) show} if %xchart8 2 eq {(L*ABCh) show} if %xchart8 3 eq {(L*ABCh) show} if %TBX %indab %TBV %(\255Daten) showde %( data) showen S20 y02 moveto TBIV (rgb*) show TBX -50 -50 rmoveto (d) show 50 50 rmoveto xchart8 0 eq {/tex_LabCh* [(L*) (a*) (b*) (C*) (h) ] def /ind_LabCh* [(d) (d) (d) (ab,d) (ab,d)] def /tex_xshift [120 120 120 100 80 ] def } if xchart8 1 eq {/tex_LabCh* [(L*) (A) (B) (C) (h) ] def /ind_LabCh* [(d) (d) (d) (AB,d) (AB,d)] def /tex_xshift [120 80 80 80 80 ] def } if xchart8 2 eq {/tex_LabCh* [(L*) (A) (B) (C) (h) ] def /ind_LabCh* [(d) (1,d)(1,d)(AB1,d)(AB1,d)] def /tex_xshift [120 80 80 80 80 ] def } if xchart8 3 eq {/tex_LabCh* [(L*) (A) (B) (C) (h) ] def /ind_LabCh* [(d) (2,d)(2,d)(AB2,d)(AB2,d)] def /tex_xshift [120 80 80 80 80 ] def } if 0 1 4 {/k exch def %k=0,4 TBIV /xdLabk 0 def k 1 eq {/xdLabk -50 def} if k 2 eq {/xdLabk -50 def} if k 3 eq {/xdLabk -70 def} if k 4 eq {/xdLabk 50 def} if S40 k xdLab mul add xdLabk add y02 moveto tex_LabCh* k get show TBX S40 k xdLab mul add xdLabk add tex_xshift k get add y02 moveto 0 -50 rmoveto ind_LabCh* k get show 0 50 rmoveto } for %k=0,4 /y03 3100 def /y0d 190 def 0 1 7 {/j exch def %j=0,8 9 colours /i j def j 6 ge {/i j 1 add def} if %for N and W /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def /i50 i 5 mul def /i51 i50 1 add def /i52 i50 2 add def /i53 i50 3 add def /i54 i50 4 add def S10 y03 j y0d mul sub moveto TBV tex*36X i32 get show TBX 0 -40 rmoveto (d) show 0 40 rmoveto S20 y03 j y0d mul sub moveto TBV rgb*36X i30 get cvishow ( ) show rgb*36X i31 get cvishow ( ) show rgb*36X i32 get cvishow 0 1 4 {/k exch def %k=0,4 /xdLabk 0 def k 1 eq {/xdLabk -50 def} if k 2 eq {/xdLabk -50 def} if k 3 eq {/xdLabk -50 def} if k 4 lt {TV}{TBV} ifelse S40 k xdLab mul add xdLabk add y03 j y0d mul sub moveto k 0 eq {LCh*12n i50 get cvishow} if k 1 eq {LCh*12n i53 get dup -100 le {-50 0 rmoveto} if cvishow} if k 2 eq {LCh*12n i54 get dup -100 le {-50 0 rmoveto} if cvishow} if k 3 eq {LCh*12n i51 get cvishow} if k 4 eq {LCh*12n i52 get cvishow} if } for %k=0,4 } for %j=0,7 /y0d 0210 def xchart8 1 le {%xchart8<=1 S10 y03 11.2 y0d mul sub moveto TBIV xchart8 0 eq {(a*) show} if xchart8 1 eq {(A) show} if TBV xchart8 0 eq {( = 500 [\050) show} if xchart8 1 eq {( = 250 [) show} if TBIV (X) show TBV ( / ) show TBIV (X) show TBX 0 -40 rmoveto (D65) show 0 40 rmoveto TBV xchart8 0 eq {(\051) show TBX 0 100 rmoveto (1/3) show 0 -100 rmoveto } if TBV ( - ) show xchart8 0 eq {(\050) show} if TBIV (Y) show TBV ( / ) show TBIV (Y) show TBX 0 -40 rmoveto (D65) show 0 40 rmoveto TBV xchart8 0 eq {(\051) show TBX 0 100 rmoveto (1/3) show 0 -100 rmoveto } if TBV ( ]) show S50 y03 11.2 y0d mul sub moveto TBV xchart8 0 eq {([1a]) show} if xchart8 1 eq {([1b]) show} if S10 y03 12.2 y0d mul sub moveto TBIV xchart8 0 eq {(b*) show} if xchart8 1 eq {(B) show} if TBV xchart8 0 eq {( = 200 [\050) show} if xchart8 1 eq {( = 100 [) show} if TBIV (Y) show TBV ( / ) show TBIV (Y) show TBX 0 -40 rmoveto (D65) show 0 40 rmoveto TBV xchart8 0 eq {(\051) show TBX 0 100 rmoveto (1/3) show 0 -100 rmoveto} if TBV ( - ) show xchart8 0 eq {(\050) show} if TBIV (Z) show TBV ( / ) show TBIV (Z) show TBX 0 -40 rmoveto (D65) show 0 40 rmoveto TBV xchart8 0 eq {(\051) show TBX 0 100 rmoveto (1/3) show 0 -100 rmoveto} if TBV ( ]) show S50 y03 12.2 y0d mul sub moveto TBV xchart8 0 eq {([2a]) show} if xchart8 1 eq {([2b]) show} if } if %xchart8<=1 xchart8 2 eq {%xchart8=2 /index0 {0 -50 rmoveto TBX (1) show 0 50 rmoveto xcol10KBX} def /indexn {0 -50 rmoveto TBX (1,n) show 0 50 rmoveto xcol10KBX} def } if %xchart8=2 xchart8 3 eq {%xchart8=3 /index0 {0 -50 rmoveto TBX (2) show 0 50 rmoveto xcol10KBX} def /indexn {0 -50 rmoveto TBX (2,n) show 0 50 rmoveto xcol10KBX} def } if %xchart8=3 /xcol10_BX {xcolor 1 eq {TBX 0 -50 rmoveto (10) show 0 50 rmoveto TBV} if } bind def /xcol10KBX {xcolor 1 eq {TBX 0 -50 rmoveto (,10) show 0 50 rmoveto TBV} if } bind def TBIV /y04 3100 def xchart8 2 ge {%xchart8>=2 xchart8 2 eq {/Bct (1,000) def /xct (0,110) def} if xchart8 3 eq {/Bct (0,800) def /xct (0,110) def} if S10 y04 07.2 y0d mul sub moveto TBIV (a) show index0 TBV ( = ) show TBIV (a) show 0 -50 rmoveto TBX (20) show 0 50 rmoveto TBV ( [ ) show TBIV (\050 x) show xcol10_BX TBV ( - ) show TBIV (x) show 0 -50 rmoveto TBX (c) show 0 50 rmoveto TBIV ( \051 / y) show xcol10_BX TBV (]) show S10 y04 08.2 y0d mul sub moveto TBIV (b) show index0 TBV ( = ) show TBIV (b) show 0 -50 rmoveto TBX (20) show 0 50 rmoveto TBV ( [) show TBIV ( z) show xcol10_BX TBIV ( / y) show xcol10_BX TBV (]) show S10 y04 09.2 y0d mul sub moveto TBIV (a) show 0 -50 rmoveto TBX (20) show 0 50 rmoveto TBV ( = 1, ) show TBIV (b) show 0 -50 rmoveto TBX (20) show 0 50 rmoveto TBV ( = -0,4) show S10 y04 10.2 y0d mul sub moveto TBIV (x) show 0 -50 rmoveto TBX (c) show 0 50 rmoveto TBV ( = ) show xct show (, ) show TBIV (B) show 0 -50 rmoveto TBX (c) show 0 50 rmoveto TBV ( = ) show Bct show S10 y04 11.2 y0d mul sub moveto TBIV (A) show index0 TBV ( = 2,5 \050) show TBIV (a) show index0 TBV ( - ) show TBIV (a) show indexn TBV (\051 ) show TBIV (Y) show xcol10_BX S50 y04 11.2 y0d mul sub moveto TBV xchart8 2 eq {([1c]) show} if xchart8 3 eq {([1d]) show} if S10 y04 12.2 y0d mul sub moveto TBIV (B) show index0 TBV ( = 2,5 ) show TBIV (B) show 0 -50 rmoveto TBX (c) show 0 50 rmoveto TBV ( \050) show TBIV (b) show index0 TBV ( - ) show TBIV (b) show indexn TBV (\051 ) show TBIV (Y) show xcol10_BX S50 y04 12.2 y0d mul sub moveto TBV xchart8 2 eq {([2c]) show} if xchart8 3 eq {([2d]) show} if } if %xchart8>=2 %for all S10 y04 13.4 y0d mul sub moveto TBIV (C) show TBIV xchart8 0 eq {(*) show} if TBX xchart8 0 eq {0 -40 rmoveto (ab) show 0 40 rmoveto} if xchart8 1 eq {0 -40 rmoveto (AB) show 0 40 rmoveto} if xchart8 2 eq {0 -40 rmoveto (AB1) show 0 40 rmoveto} if xchart8 3 eq {0 -40 rmoveto (AB2) show 0 40 rmoveto} if TBV ( = [ ) show TBIV xchart8 0 eq {(a*) show TBX 0 100 rmoveto (2) show 0 -100 rmoveto} if xchart8 1 eq {(A) show TBX 0 70 rmoveto (2) show 0 -70 rmoveto} if xchart8 2 eq {(A) show index0 TBX -30 70 rmoveto (2) show 0 -70 rmoveto} if xchart8 3 eq {(A) show index0 TBX -30 70 rmoveto (2) show 0 -70 rmoveto} if TBV ( + ) show TBIV xchart8 0 eq {(b*) show TBX 0 100 rmoveto (2) show 0 -100 rmoveto} if xchart8 1 eq {(B) show TBX 0 70 rmoveto (2) show 0 -70 rmoveto} if xchart8 2 eq {(B) show index0 TBX -30 70 rmoveto (2) show 0 -70 rmoveto} if xchart8 3 eq {(B) show index0 TBX -30 70 rmoveto (2) show 0 -70 rmoveto} if TBV ( ] ) show TBX -30 70 rmoveto (0,5) show 0 -70 rmoveto S50 y04 13.4 y0d mul sub moveto TBV xchart8 0 eq {([3a]) show} if xchart8 1 eq {([3b]) show} if xchart8 2 eq {([3c]) show} if xchart8 3 eq {([3d]) show} if S10 y04 14.4 y0d mul sub moveto TBIV (h) show TBX xchart8 0 eq {0 -40 rmoveto (ab) show 0 40 rmoveto} if xchart8 1 eq {0 -40 rmoveto (AB) show 0 40 rmoveto} if xchart8 2 eq {0 -40 rmoveto (AB1) show 0 40 rmoveto} if xchart8 3 eq {0 -40 rmoveto (AB2) show 0 40 rmoveto} if TBV ( = atan [ ) show TBIV xchart8 0 eq {(b*) show} if xchart8 1 eq {(B) show} if xchart8 2 eq {(B) show index0} if xchart8 3 eq {(B) show index0} if TBV ( / ) show TBIV xchart8 0 eq {(a*) show} if xchart8 1 eq {(A) show} if xchart8 2 eq {(A) show index0} if xchart8 3 eq {(A) show index0} if TBV ( ]) show S50 y04 14.4 y0d mul sub moveto TBV xchart8 0 eq {([4a]) show} if xchart8 1 eq {([4b]) show} if xchart8 2 eq {([4c]) show} if xchart8 3 eq {([4d]) show} if /xt2 2150 def /yt2 -2370 def xt2 yt2 translate 0 setgray xp 1450 sub yp 0750 add moveto /L*Xd LCh*5A 0 get def /C*Xd LCh*5A 1 get def /L*Nd LCh*5N 0 get def /L*Wd LCh*5W 0 get def xchart8 0 eq {/xfact1 12 def /yfact1 12 def } if xchart8 1 eq { % /xfact1 12 mul 2.5 mul def % /yfact1 12 mul 2.5 mul def /xfact1 12 def /yfact1 12 def } if xchart8 2 eq { % /xfact1 12 mul 2.5 mul def % /yfact1 12 mul 2.5 mul def /xfact1 12 def /yfact1 12 def } if xchart8 3 eq { % /xfact1 12 mul 2.5 mul def % /yfact1 12 mul 2.5 mul def /xfact1 12 def /yfact1 12 def } if /xp0 xp 0400 add def /yp0 yp 1000 sub def /xpN xp0 1000 sub def /ypN yp0 1000 sub def xp0 1900 sub yp0 0 sub moveto 3600 0 rlineto %horizontal axis & arrow -100 40 rlineto 100 -40 rlineto -100 -40 rlineto stroke xp0 0000 add yp0 1400 sub moveto 0 3100 rlineto %vertical axis & arrow -40 -100 rlineto 40 100 rlineto 40 -100 rlineto stroke xp0 1800 sub yp0 70 sub moveto 0 140 rlineto stroke %marks, horizontal axis xp0 1200 sub yp0 70 sub moveto 0 140 rlineto stroke xp0 0600 sub yp0 70 sub moveto 0 140 rlineto stroke xp0 0600 add yp0 70 sub moveto 0 140 rlineto stroke xp0 1200 add yp0 70 sub moveto 0 140 rlineto stroke xchart8 0 eq {%xchart8=0 /scal_x [(-150) (-100) ( -50) ( 50) ( 100)] def /scal_y [(100) (50) (-50) (-100)] def } if xchart8 1 eq {%xchart8=1 % /scal_x [(-60) ( -40) ( -20) ( 20) ( 40)] def % /scal_y [( 40) (20) (-20) (-40) ] def /scal_x [(-150) (-100) ( -50) ( 50) ( 100)] def /scal_y [(100) (50) (-50) (-100)] def } if %xchart8=1 xchart8 2 eq {%xchart8=2 % /scal_x [(-60) ( -40) ( -20) ( 20) ( 40)] def % /scal_y [( 40) (20) (-20) (-40) ] def /scal_x [(-150) (-100) ( -50) ( 50) ( 100)] def /scal_y [(100) (50) (-50) (-100)] def } if %xchart8=1 xchart8 3 eq {%xchart8=3 % /scal_x [(-60) ( -40) ( -20) ( 20) ( 40)] def % /scal_y [( 40) (20) (-20) (-40) ] def /scal_x [(-150) (-100) ( -50) ( 50) ( 100)] def /scal_y [(100) (50) (-50) (-100)] def } if %xchart8=3 TV xp0 2000 sub yp0 220 sub moveto scal_x 0 get show %numbers, horizontal scale xp0 1400 sub yp0 220 sub moveto scal_x 1 get show xp0 0750 sub yp0 220 sub moveto scal_x 2 get show xp0 0400 add yp0 220 sub moveto scal_x 3 get show xp0 1000 add yp0 220 sub moveto scal_x 4 get show xp0 70 sub yp0 1200 add moveto 140 0 rlineto stroke %marks, vertical axis xp0 70 sub yp0 0600 add moveto 140 0 rlineto stroke xp0 70 sub yp0 0600 sub moveto 140 0 rlineto stroke xp0 70 sub yp0 1200 sub moveto 140 0 rlineto stroke xp0 100 add yp0 1150 add moveto scal_y 0 get show %numbers, vertical axis xp0 100 add yp0 0550 add moveto scal_y 1 get show xp0 100 add yp0 0650 sub moveto scal_y 2 get show xp0 100 add yp0 1250 sub moveto scal_y 3 get show TBIK xp0 0080 add yp0 1550 add moveto xchart8 0 eq {(b*) show} if xchart8 1 eq {(B) show} if xchart8 2 eq {(B) show TBS 0 -40 rmoveto (1) show 0 40 rmoveto} if xchart8 3 eq {(B) show TBS 0 -40 rmoveto (2) show 0 40 rmoveto} if TBIK xp0 1550 add yp0 0120 add moveto xchart8 0 eq {(a*) show} if xchart8 1 eq {(A) show} if xchart8 2 eq {(A) show TBS 0 -40 rmoveto (1) show 0 40 rmoveto} if xchart8 3 eq {(A) show TBS 0 -40 rmoveto (2) show 0 40 rmoveto} if TBK 0.5 setgray xchart5 1 eq {%old hexagon 15 setlinewidth 0 1 6 {/i exch def %i=0,6 0 setgray /i50 i 5 mul def /i53 i50 3 add def %a* /i54 i50 4 add def %b* /xi xp0 LCh*12 i53 get xfact1 mul add def /yi yp0 LCh*12 i54 get yfact1 mul add def i 0 eq {xi yi moveto} if i 1 ge {xi yi lineto} if i 6 eq {stroke} if } for %i=0,6 0 1 6 {/i exch def %i=0,6 0 setgray /i50 i 5 mul def /i53 i50 3 add def %a* /i54 i50 4 add def %b* /xi xp0 LCh*12 i53 get xfact1 mul add def /yi yp0 LCh*12 i54 get yfact1 mul add def xi yi 0040 0 360 arc fill } for %i=0,6 } if %old hexagon 1 setgray 30 setlinewidth 0 1 6 {/i exch def %i=0,6 0 setgray /i50 i 5 mul def /i53 i50 3 add def %a* /i54 i50 4 add def %b* /xi xp0 LCh*12n i53 get xfact1 mul add def /yi yp0 LCh*12n i54 get yfact1 mul add def i 0 eq {xi yi moveto} if i 1 ge {xi yi lineto} if i 6 eq {stroke} if } for %i=0,6 0 1 5 {/i exch def %i=0,5 1 1 3 {/k exch def %k=1,3 0 setgray /i34 i 12 mul k 3 mul add def /i50 i 5 mul def /i53 i50 3 add def /i54 i50 4 add def /xi0 xp0 LCh*12n i53 get xfact1 mul add def /yi0 yp0 LCh*12n i54 get yfact1 mul add def /xi1 xp0 LCh*12n i53 5 add get xfact1 mul add def /yi1 yp0 LCh*12n i54 5 add get yfact1 mul add def /xiM xi0 xi1 xi0 sub k 0.25 mul mul add def /yiM yi0 yi1 yi0 sub k 0.25 mul mul add def /r rgb*30Y i34 3 add get def /g rgb*30Y i34 4 add get def /b rgb*30Y i34 5 add get def r g b setrgbcolor xiM yiM 0050 0 360 arc fill } for %k=1,3 } for %i=0,5 newpath /xshift 6 array def /yshift 6 array def % R Y G C B M /xshift [-50 -150 -100 -100 -250 -050] def /yshift [120 150 150 -300 -200 -300] def xchart8 1 eq {yshift 1 -300 put} if 0 1 5 {/i exch def %i=0,5 0 setgray /i3 i 3 mul def /i50 i 5 mul def /i53 i50 3 add def /i54 i50 4 add def /xi xp0 LCh*12n i53 get xfact1 mul add def /yi yp0 LCh*12n i54 get yfact1 mul add def xi yi 0100 0 360 arc fill /r rgb*36X i3 0 add get def /g rgb*36X i3 1 add get def /b rgb*36X i3 2 add get def r g b setrgbcolor xi yi 0050 0 360 arc fill newpath 0 setgray xi xshift i get add yi yshift i get add moveto tex*36X i 3 mul 2 add get show newpath } for %i=0,5 20 setlinewidth xt2 neg yt2 neg translate } if %xchart6=1 hue circle %******************************************************* showpage grestore %%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 fen01-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 (fen01-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 fen0; ) showde (TUB\255test chart fen0; ) showen (gr\341fico TUB\255fen0; ) showes (TUB\255test graphique fen0; ) showfr (grafico TUB\255fen0; ) showit (TUB\255test chart fen0; ) showjp /xchart40 0 def %allways /xchart41 0 def %0:%case1, 1:%case2, 2:%case3 xchart40 0 eq {%xchart40=0 (Colour threshold experiments as function o luminance) showen (Farbschwellenexperimente als Funktion von Leuchtdichte) showde (, and of sample distance) showen ( und Musterabstand) showde } if %xchart40=0 12TIN 61 MM 09.5 MM moveto xchart41 0 eq {%xchart41=0 %case1 (Farberregungsfunktionen Fab(x); ) showde (Ableitungen F'ab(x)/dx verschiedener Bandbreite) showde (Colour response functions Fab(x); ) showen (Derivation F'ab(x)/dx of different bandwidth) showen (; WCGa\255Displayfarben ) showde (; WCGa\255display colours) 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/fen0/fen0l) 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/fen0/fen0.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/fens.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: 20240301\255fen0/fen0l) showde (TUB registration: 20240301\255fen0/fen0l) showen (TUB matr\355cula: 20240301\255fen0/fen0l) showes (TUB enregistrement: 20240301\255fen0/fen0l) showfr (TUB iscrizione: 20240301\255fen0/fen0l) showit (TUB registration: 20240301\255fen0/fen0l) 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