%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/EE60/Y10E00NA.PS6_R 20230801 %%BoundingBox: 14 08 828 584 /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: farbe.li.tu-berlin.de/EE60/EE60.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2023080112000) /ModDate (D:20230801112000) /DOCINFO pdfmark [ /View [ /Fit ] /DOCVIEW pdfmark /sfgray {setgray} bind def %Early Frame File (f) definition /sfrgbcolor {setrgbcolor} bind def /sfcmykcolor {setcmykcolor} bind def %line 20****************************************************** %BEG EE60/OUTLIN10.PS Output Linearization (OL) olv*->olv'* 20110301 %Early Binding: needed for colour separation %/sgcmykcolor {setcmykcolor} bind def %/sggray {setgray} bind def %/sgrgbcolor {setrgbcolor} bind def %FILE PREPARED FOR MIXED MODE, e. g. input ORS18 and output TLS00 /IMES 0 def %0=LAB* used, no reflection factor necessary %/IMES 1 def /Yre 2.52 def %1=XYZ measurement and standard device reflection %/i*ptrsc 0 def %LAB* setcolor to cmy0* / 000n* setcmykcolor /i*ptrsc 1 def %LAB* setcolor to olv* setrgbcolor / w* setgray %/i*ptrsc 2 def %LAB* setcolor to cmy0* / nnn0* setcmykcolor %/i*ptrsc 3 def %LAB* setcolor to olv* / www* setrgbcolor %/i*ptrsc 4 def %LAB* setcolor to lab* setcolor %/i*ptrsc 5 def %LAB* setcolor to LAB* setcolor %/i*ptrsc 6 def %LAB* setcolor to 000n* setcmykcolor %/i*ptrsc 7 def %LAB* setcolor to w* setgray %/ISIN*ioG 0 def %default input for Offset Reflective System (ORS18/FRS09) %/ISOU*ioG 0 def %default output dto. /ISIN*ioG 1 def %input for Television Luminous System (TLS00) /ISOU*ioG 1 def %output dto. %/ISIN*ioG 2 def %input for Device Reflective measurement system (FRS09) %/ISOU*ioG 2 def %output dto. %/ISIN*ioG 3 def %input for Television Luminous Reflection System (TLS18) %/ISOU*ioG 3 def %output dto. %/ISIN*ioG 4 def %input for Natural Luminous System (NLS00) %/ISOU*ioG 4 def %output dto. %/ISIN*ioG 5 def %input for Natural Reflective System (NRS11) %/ISOU*ioG 5 def %output dto. %/ISIN*ioG 6 def %input for Standard Reflective System (CIE18) %/ISOU*ioG 6 def %output dto. %/ISIN*ioG 7 def %input for Standard Reflective System (TLS70) %/ISOU*ioG 7 def %output dto. /iLAB 0 def %/colormg 0 def %END EE60/OUTLIN10.PS Output Linearization (OL) olv*->olv'* 20110301 %BEG EE60/OUTLIN1X.PS 20110801 %EMPTY %END EE60/OUTLIN1X.PS 20110801 %BEG EE60/OUTLIN1Y2.PS Emty 20101101 %END EE60/OUTLIN1Y2.PS Emty 20101101 /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 /tfb {0 0.5 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 1.0 1.0 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$ [(A.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$ [(A.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 /colorm1f 00 def /colorm2f 00 def /colormdf 01 def /deintp1f 00 def /deintp2f 00 def /deintpdf 01 def /xcolor1f 00 def /xcolor2f 00 def /xcolordf 01 def /xchart1f 00 def /xchart2f 00 def /xchartdf 01 def /xchart3f 01 def /xchart4f 00 def /xchart5f 00 def /pchart1f 03 def /pchart2f 03 def /pchartdf 01 def %=3 for sRGB, Lr=0 /colsep1f 00 def /colsep2f 00 def /colsepdf 01 def /pmetam1f 00 def /pmetam2f 00 def /pmetamdf 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 %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 %15 %16 %17 %18 %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 BeginEPSF 28 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 EE600-1, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (EE600-1,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 12 %line 349 %!PS-Adobe-3.0 EPSF-3.0 EE600-2, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (EE600-2,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 28 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 EE600-3, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (EE600-3,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 14 %line 369 %!PS-Adobe-3.0 EPSF-3.0 EE600-4, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (EE600-4,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 28 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 EE600-5, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (EE600-5,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 16 %line 389 %!PS-Adobe-3.0 EPSF-3.0 EE600-6, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (EE600-6,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke 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 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 http://farbe.li.tu-berlin.de/EE60/EE600-7N 20230801 %%BoundingBox: 70 82 405 580 /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:http://farbe.li.tu-berlin.de/EE60/EE60.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2023080112000) /ModDate (D:20230801112000) /DOCINFO pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 %190811 all (el35): proc_curve_MUY, proc_linef_MUY, proc_strof_MUY %proc_LMS_: func, funclg, funclga, funclg_a, funclgb, funclg_b, thre %titl2(->tit0, tit2r), titl3(->tit0, tit3r) %tita2(->tita, tit2r), tita3(->tita, tit3r), tit0, tita, tit2r, tit3r %axi0, axis(->axi0), axia(->axio), spet, spea, names, antrt %titl2n(->tit0n, tit3rn), titl3n(->tit0n, tit3rn) %tita2n(->titan, tit2rn), tita3n(->titan, tit3rn) %tit0n, titan, tit2rn, tit3rn, spetn, thren, axian(->axi0) %proc_LI_ (el60-67): LI_lbyf, LI_lgrf, LI_ngrf( all use ->_linef_MUY) % %190811 act (el60_67): proc_curve_MUY, proc_linef_MUY, proc_strof_MUY %proc_LMS_: funclgm. axio, tita3n, tit3rn, titan, spetn, axian, thren %proc_LI_: LI_lbyf(el61,64), LI_lgrf (el62,65), LI_ngrf (el63,66) %(all under work and use ->_linef_MUY, ->_strof_MUY (for tests)) % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TS {160 /Times-ISOL1 FS} bind def /TK {200 /Times-ISOL1 FS} bind def /TM {250 /Times-ISOL1 FS} bind def /TG {300 /Times-ISOL1 FS} bind def /TIS {160 /TimesI-ISOL1 FS} bind def /TIK {200 /TimesI-ISOL1 FS} bind def /TIM {250 /TimesI-ISOL1 FS} bind def /TIG {300 /TimesI-ISOL1 FS} bind def /TBS {160 /TimesB-ISOL1 FS} bind def /TBK {200 /TimesB-ISOL1 FS} bind def /TBM {250 /TimesB-ISOL1 FS} bind def /TBG {300 /TimesB-ISOL1 FS} bind def /TBIS {160 /TimesBI-ISOL1 FS} bind def /TBIK {200 /TimesBI-ISOL1 FS} bind def /TBIM {250 /TimesBI-ISOL1 FS} bind def /TBIG {300 /TimesBI-ISOL1 FS} bind def /SK {200 10 sub /Symbol FS} bind def /SM {250 12 sub /Symbol FS} bind def /SG {300 14 sub /Symbol FS} bind def /nshowG {TG show} bind def /kshowG {TIG show} bind def /bshowG {TBG show} bind def /bishowG {TBIG show} bind def /ishowG {TM 0 -60 rmoveto show 0 60 rmoveto} bind def /ebshowG {TBM 0 200 rmoveto show 0 -200 rmoveto} bind def /sshowG {SG show} bind def /nshowM {TM show} bind def /kshowM {TIM show} bind def /bshowM {TBM show} bind def /bishowM {TBIM show} bind def /ishowM {TK 0 -40 rmoveto show 0 40 rmoveto} bind def /ebshowM {TBK 0 100 rmoveto show 0 -100 rmoveto} bind def /sshowM {SM show} bind def /nshowK {TK show} bind def /kshowK {TIK show} bind def /bshowK {TBK show} bind def /bishowK {TBIK show} bind def /ishowK {TS 0 -30 rmoveto show 0 30 rmoveto} bind def /ebshowK {TBS 0 130 rmoveto show 0 -130 rmoveto} bind def /sshowK {SK show} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 1.0 0.0} bind def %Elementarfarben special for gray surround /tzg {1.0 0.0 1.0 0.0} bind def /tzb {1.0 1.0 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 1.0 0.5} bind def %Elementarfarben vergraut special or gray sur. /tzgz {1.0 0.0 1.0 0.5} bind def /tzbz {1.0 1.0 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def /A4quer {598 0 tl 90 rotate} def /setcmyknew {setcmykcolor} def /outSM {sshowM} def /outSK {sshowK} def /outxshowf {setcmykcolor show} def %for output test only /tspace {dup abs 1.0 le {( ) show} if dup dup -1.0 le exch -10 gt and {( ) show} if dup dup 1.0 gt exch 10 lt and {( ) show} if dup dup 1.0 gt exch 10 ge and {( ) show} if } bind def /trushow {tspace 0.005 add 100 mul truncate 100 div 10 string cvs show} bind def /troshow {0.005 add 100 mul truncate 100 div 10 string cvs show} bind def /trushow4 {0.00005 add 10000 mul truncate 10000 div 10 string cvs show} bind def /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y k {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmykcolor rec stroke} bind def /cvishow {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def %/cvsshow1 {dup 0 ge {0.05 add} {0.05 sub} ifelse % 10 mul cvi 0.1 mul 7 string cvs show} def %/cvsshow2 {dup 0 ge {0.005 add} {0.005 sub} ifelse % 100 mul cvi 0.01 mul 7 string cvs show} def %/cvsshow3 {dup 0 ge {0.0005 add} {0.0005 sub} ifelse % 1000 mul cvi 0.001 mul 7 string cvs show} def % R G B C M Y /tf370 {1.00 0.00 0.20 setrgbcolor} bind def %j50r 0.00 1.00 0.80 %X=370 /tf395 {0.70 0.00 0.20 setrgbcolor} bind def %r 0.00 0.75 1.00 %U=W=395=645 /tf420 {0.50 0.00 1.00 setrgbcolor} bind def %r 0.40 1.00 0.00 %T=I=420=670 /tf445 {0.70 0.00 1.00 setrgbcolor} bind def %b25r 0.50 1.00 0.00 %S=Y=445=695 /tf470 {0.00 0.20 1.00 setrgbcolor} bind def %B 1.00 0.80 0.00 %B=Mc=570c /tf475 {0.00 0.20 1.00 setrgbcolor} bind def %B 1.00 0.80 0.00 %B' new /tf488 {0.00 0.60 1.00 setrgbcolor} bind def %g50b 1.00 0.40 0.00 %B" new /tf495 {0.00 0.80 1.00 setrgbcolor} bind def %g75b 1.00 0.20 0.00 %C=Rc=620c /tf500 {0.00 1.00 0.50 setrgbcolor} bind def %G 1.00 0.00 0.20 %C' new /tf505 {0.00 1.00 0.40 setrgbcolor} bind def %G 1.00 0.00 0.40 %C" new /tf510 {0.00 1.00 0.40 setrgbcolor} bind def %G 1.00 0.00 0.60 %C"' new /tf520 {0.20 1.00 0.25 setrgbcolor} bind def %j66g 0.80 0.00 0.75 %G=520 /tf525 {0.20 1.00 0.25 setrgbcolor} bind def %j66g 0.80 0.00 0.75 %G' new /tf538 {0.40 1.00 0.00 setrgbcolor} bind def %j48g 0.60 0.00 1.00 %G" new /tf545 {0.40 1.00 0.00 setrgbcolor} bind def %j45g 0.55 0.00 1.00 %M=545 /tf550 {0.45 1.00 0.00 setrgbcolor} bind def %j40g 0.45 0.00 1.00 %M' %/tf557 {0.60 1.00 0.00 setrgbcolor} bind def %j33g 0.40 0.00 1.00 %V /tf557 {tfw} def /tf563 {0.80 1.00 0.00 setrgbcolor} bind def %j17g 0.20 0.00 1.00 %V' new /tf570 {1.00 1.00 0.00 setrgbcolor} bind def %J 0.00 0.00 1.00 %M=570 /tf575 {1.00 1.00 0.00 setrgbcolor} bind def %J 0.00 0.00 1.00 %M' /tf595 {1.00 0.50 0.00 setrgbcolor} bind def %j50r 0.00 0.75 1.00 %O=595 /tf600 {1.00 0.20 0.00 setrgbcolor} bind def %j25r 0.00 0.80 1.00 %O' new /tf613 {1.00 0.00 0.00 setrgbcolor} bind def %r 0.00 1.00 1.00 %O" new /tf620 {1.00 0.00 0.20 setrgbcolor} bind def %j50r 0.00 1.00 0.80 %R=620 /tf645 {1.00 0.00 0.00 setrgbcolor} bind def %j75r 0.00 0.00 1.00 %W=645 /tf670 {0.50 0.00 1.00 setrgbcolor} bind def %r 0.40 1.00 0.00 %I=T=670=420 /tf695 {0.70 0.00 1.00 setrgbcolor} bind def %b25r 0.50 1.00 0.00 %Y=S=695=445 /tf50c {1.00 0.00 0.50 setrgbcolor} bind def %b75r 0.00 1.00 0.50 %Gc=520c new /tf720 {0.00 0.20 1.00 setrgbcolor} bind def %B 1.00 0.80 0.00 %W=720=470 /tfRe {1.00 0.00 0.20 setrgbcolor} bind def %Re 0.00 1.00 0.80 %Re /tfYe {1.00 1.00 0.00 setrgbcolor} bind def %Ye 0.00 0.00 1.00 %Ye /tfGe {0.00 1.00 0.20 setrgbcolor} bind def %Ge 1.00 0.00 0.80 %Ge /tfBe {0.00 0.20 1.00 setrgbcolor} bind def %Be 1.00 0.80 0.00 %Be /tti 27 array def /tti [ {(X)} {(U)} {(T)} {(S)} %370(00), 395(01), 420(02), 445(03) {(B)} {(C)} {(G)} {(M)} %470(04), 495(05), 520(06), 545(07) {(L)} {(O)} {(R)} {(W)} %570(08), 595(09), 620(10), 645(11) {(I)} {(Y)} {(V)} %670(12), 695(13), 557(14), {(Be)} {(Ge)} {(Ye)} {(Re)} %470(15), 520(16), 570(17), 620(18) {(Ble)} {(Gle)} {(Yle)} {(Rle)} %470(19), 520(20), 570(21), 620(22) {(Bge)} {(Gge)} {(Yge)} {(Rge)} %470(23), 520(24), 570(25), 620(26) ] def %00-26 /tfi 27 array def /tfi [ {tf370} {tf395} {tf420} {tf445} %00-03 {tf470} {tf495} {tf520} {tf545} %04-07 {tf570} {tf595} {tf620} {tf645} %08-11 {tf670} {tf695} {tf557} %12-14 {tfBe} {tfGe} {tfYe} {tfRe} %15-18 {tfBle} {tfGle} {tfYle} {tfRle} %19-22 {tfBge} {tfGge} {tfYge} {tfRge} %23-26 ] def %00-26 /XtRe {tfRe (R) bishowM (e) ishowK} def /XtGe {tfGe (G) bishowM (e) ishowK} def /XtBe {tfBe (B) bishowM (e) ishowK} def /XtYe {tfYe (Y) bishowM (e) ishowK} def /XtRle {tfRe (R) bishowM (le) ishowK} def /XtGle {tfGe (G) bishowM (le) ishowK} def /XtBle {tfBe (B) bishowM (le) ishowK} def /XtYle {tfYe (Y) bishowM (le) ishowK} def /XtRge {tfRe (R) bishowM (ge) ishowK} def /XtGge {tfGe (G) bishowM (ge) ishowK} def /XtBge {tfBe (B) bishowM (ge) ishowK} def /XtYge {tfYe (Y) bishowM (ge) ishowK} def /Xa {tfn (a) ishowM} def /Xo {tfw (o) ishowM} def /Xla {tfn (la) ishowM} def /Xlo {tfw (lo) ishowM} def /Xga {tfn (ga) ishowM} def /Xgo {tfw (go) ishowM} def /X_a {tfn (_a) ishowM} def /X_o {tfw (_o) ishowM} def /X_la {tfn (_la) ishowM} def /X_lo {tfw (_lo) ishowM} def /X_ga {tfn (_ga) ishowM} def /X_go {tfw (_go) ishowM} def /IWE0 {WE0 370 sub 25 idiv} def /IWE1 {WE1 370 sub 25 idiv} def /IWE2 {WE2 370 sub 25 idiv} def /xpWE0 {0100 300 IWE0 mul add} def /xpWE1 {0100 300 IWE1 mul add} def /xpWE2 {0100 300 IWE2 mul add} def /XnWE0 {tfi IWE0 get exec WE0 6 string cvs bshowM} def /XnWE1 {tfi IWE1 get exec WE1 6 string cvs bshowM} def /XnWE2 {tfi IWE2 get exec WE2 6 string cvs bshowM} def /XtWE0 {tfi IWE0 get exec tti IWE0 get exec bishowM} def /XtWE1 {tfi IWE1 get exec tti IWE1 get exec bishowM} def /XtWE2 {tfi IWE2 get exec tti IWE2 get exec bishowM} def /XtWE0i {tfi IWE0 get exec tti IWE0 get exec ishowK} def /XtWE1i {tfi IWE1 get exec tti IWE1 get exec ishowK} def /XtWE2i {tfi IWE2 get exec tti IWE2 get exec ishowK} def /XnWE0i {tfi IWE0 get exec WE0 6 string cvs ishowK} def /XnWE1i {tfi IWE1 get exec WE1 6 string cvs ishowK} def /XnWE2i {tfi IWE2 get exec WE2 6 string cvs ishowK} def /tfWE0 {tfi IWE0 get exec} def /tfWE1 {tfi IWE1 get exec} def /tfWE2 {tfi IWE2 get exec} def /cvsshoW0 {10 mul 0.5 add cvi 0.1 mul 10 string cvs show} def /cvsshow1 {10 mul 0.5 add cvi 0.1 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow2 {100 mul 0.5 add cvi 0.01 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow3 {1000 mul 0.5 add cvi 0.001 mul 10 string cvs show} def /cvsshow1x {/nxx exch def %example nxx=99.1/99.0 nxx 10 mul cvi /nxi exch def %nxi=991/990 nxi 10 idiv /nxa exch def %nxa=99 nxi nxa 10 mul sub /nxb exch def %nxb=1/0 nxa cvishow (,) show %nxa=99 nxb cvishow %nxb=1/0 } def /cvsshow2x {/nxx exch def %example nxx=99.12/99,02/99,00 nxx 100 mul cvi /nxi exch def %nxi=9912/9902/00 nxi 100 idiv /nxa exch def %nxa=99 nxi nxa 100 mul sub /nxb exch def %nxb=12/02/00 nxa cvishow (,) show %nxb=99, nxb 10 ge {nxb cvishow} if %nxb=12 nxb 1 ge nxb 9 le and {(0) show nxb cvishow} if %nxb=02 nxb 0 eq {(00) show} if %nxb=00 } def /cvsshow3x {/nxx exch def %example nxx=99.123/99.012/99.001/99.000 nxx 1000 mul cvi /nxi exch def %nxi=99123/99012/99001/99000 nxi 1000 idiv /nxa exch def %nxa=99 nxi nxa 1000 mul sub /nxb exch def %nxb=123/012/001/000 nxa cvishow (,) show %nxb=99, nxb 100 ge {nxb cvishow} if %nxb=123/012/001/000 nxb 10 ge nxb 99 le and {(0) show nxb cvishow} if %nxb=012 nxb 1 ge nxb 9 le and {(00) show nxb cvishow} if %nxb=001 nxb 0 eq {(000) show} if %nxb=000 } def /MULX 0600 def /MULY2 1200 0.8 mul 2 mul def /MULY1 1200 0.8 mul 1 mul def /JPPM 4 def /CY 0.35 def /CX 50 def /proc_curve_MUY {%190801 BEG proc_curve_MUY 0 3 72 {/i exch def %i=0,75 ab 380nm bis 710nm i 0 eq {%i=0 /xst {Xi i get 550 sub CX div MULX mul} bind def /yst {IORY Yi i get MUY mul add} bind def xst yst moveto } if %i=0 /xst {Xi i get 550 sub CX div MULX mul} bind def /yst {IORY Yi i get MUY mul add} bind def /x20 {Xi i 1 add get 550 sub CX div MULX mul} bind def /y20 {IORY Yi i 1 add get MUY mul add} bind def /x21 {Xi i 2 add get 550 sub CX div MULX mul} bind def /y21 {IORY Yi i 2 add get MUY mul add} bind def /x22 {Xi i 3 add get 550 sub CX div MULX mul} bind def /y22 {IORY Yi i 3 add get MUY mul add} bind def x20 y20 x21 y21 x22 y22 curveto } for %i=0,75 ab 380nm bis 710nm stroke } bind def %END proc_curve_MUY %***************************************************************** /proc_linef_MUY {%190801 BEG proc_linef_MUY i1 1 i3 {/i exch def %i=0,75 ab 380nm bis 710nm i i1 eq {%i=i1 /xst {Xni i get 550 sub CX div MULX mul} bind def /yst {IORY Yi i get MUY mul add} bind def xst yst moveto } if %i=i1 i i3 le {/xpos {Xni i get 550 sub CX div MULX mul} bind def /ypos {IORY Yi i get MUY mul add} bind def xpos ypos lineto } if i i3 eq {closepath fill} if } for %i=0,75 ab 380nm bis 710nm } bind def %END proc_linef_MUY %***************************************************************** /proc_strof_MUY {%190801 BEG proc_linef_MUY i1 1 i3 {/i exch def %i=0,75 ab 380nm bis 710nm i i1 eq {%i=i1 /xst {Xni i get 550 sub CX div MULX mul} bind def /yst {IORY Yi i get MUY mul add} bind def xst yst moveto } if %i=i1 i i3 le {/xpos {Xni i get 550 sub CX div MULX mul} bind def /ypos {IORY Yi i get MUY mul add} bind def xpos ypos lineto } if i i3 eq {stroke} if } for %i=0,75 ab 380nm bis 710nm } bind def %END proc_strof_MUY %************************************************************* %define arrays of proc_LI_lbyf, -lgrf, -ngrf and main PS-code /Xni 176 array def %new Xi /Xi 176 array def /Yi 176 array def /Yi00 176 array def %WE0n linear /Yi01 176 array def /Yi02 176 array def %WE1n linear /Yi03 176 array def /Yi04 176 array def %WE2n linear /Yi05 176 array def /Yi06 176 array def %WE0n log /Yi07 176 array def /Yi08 176 array def %WE1n log /Yi09 176 array def /Yi10 176 array def %WE2n log /Yi11 176 array def %******************************************************** %define arrays of proc_LMS_funclgm /Yi0l0 176 array def %WE0n 000 000 lin /Yn0l0 176 array def %WE0n nor 000 lin /Yinl0 176 array def %WE0n 000 neg lin /Ynnl0 176 array def %WE0n nor neg lin /Yi0g0 176 array def %WE0n 000 000 log /Yn0g0 176 array def %WE0n nor 000 log /Ying0 176 array def %WE0n 000 neg log /Ynng0 176 array def %WE0n nor neg log /Yi0l1 176 array def %WE1n 000 000 lin /Yn0l1 176 array def %WE1n nor 000 lin /Yinl1 176 array def %WE1n 000 neg lin /Ynnl1 176 array def %WE1n nor neg lin /Yi0g1 176 array def %WE1n 000 000 log /Yn0g1 176 array def %WE1n nor 000 log /Ying1 176 array def %WE1n 000 neg log /Ynng1 176 array def %WE1n nor neg log /Yi0l2 176 array def %WE2n 000 000 lin /Yn0l2 176 array def %WE2n nor 000 lin /Yinl2 176 array def %WE2n 000 neg lin /Ynnl2 176 array def %WE2n nor neg lin /Yi0g2 176 array def %WE2n 000 000 log /Yn0g2 176 array def %WE2n nor 000 log /Ying2 176 array def %WE2n 000 neg log /Ynng2 176 array def %WE2n nor neg log /Yi0l3 176 array def %WE0n 000 000 lin (WE0n+WE2n)*0.5 /Yn0l3 176 array def %WE0n nor 000 lin /Yinl3 176 array def %WE0n 000 neg lin /Ynnl3 176 array def %WE0n nor neg lin /Yi0g3 176 array def %WE0n 000 000 log /Yn0g3 176 array def %WE0n nor 000 log /Ying3 176 array def %WE0n 000 neg log /Ynng3 176 array def %WE0n nor neg log /Yi0l4 176 array def %WE1n 000 000 lin (WE0n-WE3n) /Yn0l4 176 array def %WE1n nor 000 lin /Yinl4 176 array def %WE1n 000 neg lin /Ynnl4 176 array def %WE1n nor neg lin /Yi0g4 176 array def %WE1n 000 000 log /Yn0g4 176 array def %WE1n nor 000 log /Ying4 176 array def %WE1n 000 neg log /Ynng4 176 array def %WE1n nor neg log /Yi0l5 176 array def %WE2n 000 000 lin (WE1n-WE3n) /Yn0l5 176 array def %WE2n nor 000 lin /Yinl5 176 array def %WE2n 000 neg lin /Ynnl5 176 array def %WE2n nor neg lin /Yi0g5 176 array def %WE2n 000 000 log /Yn0g5 176 array def %WE2n nor 000 log /Ying5 176 array def %WE2n 000 neg log /Ynng5 176 array def %WE2n nor neg log /Yi0l6 176 array def %WE0n 000 000 lin (WE2n-WE3n) /Yn0l6 176 array def %WE0n nor 000 lin /Yinl6 176 array def %WE0n 000 neg lin /Ynnl6 176 array def %WE0n nor neg lin /Yi0g6 176 array def %WE0n 000 000 log /Yn0g6 176 array def %WE0n nor 000 log /Ying6 176 array def %WE0n 000 neg log /Ynng6 176 array def %WE0n nor neg log /Yi0l7 176 array def %WE1n 000 000 lin (WE1n-WE0n) /Yn0l7 176 array def %WE1n nor 000 lin /Yinl7 176 array def %WE1n 000 neg lin /Ynnl7 176 array def %WE1n nor neg lin /Yi0g7 176 array def %WE1n 000 000 log /Yn0g7 176 array def %WE1n nor 000 log /Ying7 176 array def %WE1n 000 neg log /Ynng7 176 array def %WE1n nor neg log /Yi0l8 176 array def %WE2n 000 000 lin (WE2n-WE1n) /Yn0l8 176 array def %WE2n nor 000 lin /Yinl8 176 array def %WE2n 000 neg lin /Ynnl8 176 array def %WE2n nor neg lin /Yi0g8 176 array def %WE2n 000 000 log /Yn0g8 176 array def %WE2n nor 000 log /Ying8 176 array def %WE2n 000 neg log /Ynng8 176 array def %WE2n nor neg log /Yi0l9 176 array def %WE2n 000 000 lin (WE2n-WE0n) /Yn0l9 176 array def %WE2n nor 000 lin /Yinl9 176 array def %WE2n 000 neg lin /Ynnl9 176 array def %WE2n nor neg lin /Yi0g9 176 array def %WE2n 000 000 log /Yn0g9 176 array def %WE2n nor 000 log /Ying9 176 array def %WE2n 000 neg log /Ynng9 176 array def %WE2n nor neg log %*************************************************** /proc_LMS_funclgm {%190801 BEG proc_LMS_funclgm %input ILG=0,1; I12=1,2 0 1 76 {/i exch def %i=0,1,76 Xi i i 5 mul 380 add put /YEXP Xi i get WE0 sub CX div dup mul CY mul neg def /EYEXP 10 YEXP exp tsa add dtsa mul def %always for further use of lo Yi0l0 i EYEXP tsb add put Yn0l0 i EYEXP tsb add 2 mul put Yinl0 i EYEXP tsb add neg put Ynnl0 i EYEXP tsb add 2 mul neg put ILG 1 eq {Yi0g0 i EYEXP tsb add abs log put Yn0g0 i EYEXP tsb add abs 2 mul log put Ying0 i EYEXP tsb add abs log neg put Ynng0 i EYEXP tsb add abs 2 mul log neg put } if /YEXP Xi i get WE1 sub CX div dup mul CY mul neg def /EYEXP 10 YEXP exp tsa add dtsa mul def %always for further use of log(linear) Yi0l1 i EYEXP tsb add put Yn0l1 i EYEXP tsb add 2 mul put Yinl1 i EYEXP tsb add neg put Ynnl1 i EYEXP tsb add 2 mul neg put ILG 1 eq {Yi0g1 i EYEXP tsb add abs log put Yn0g1 i EYEXP tsb add abs 2 mul log put Ying1 i EYEXP tsb add abs log neg put Ynng1 i EYEXP tsb add abs 2 mul log neg put } if /YEXP Xi i get WE2 sub CX div dup mul CY mul neg def /EYEXP 10 YEXP exp tsa add dtsa mul def %always for further use of log(linear) Yi0l2 i EYEXP tsb add put Yn0l2 i EYEXP tsb add 2 mul put Yinl2 i EYEXP tsb add neg put Ynnl2 i EYEXP tsb add 2 mul neg put ILG 1 eq {Yi0g2 i EYEXP tsb add abs log put Yn0g2 i EYEXP tsb add abs 2 mul log put Ying2 i EYEXP tsb add abs log neg put Ynng2 i EYEXP tsb add abs 2 mul log neg put } if } for %i=0,1,76 %input ILG=0,1; I12=1,2 0 1 76 {/i exch def %i=0,1,76 %combinations %linear or log summation (Yi00+Yi02)*0.5 or [log(Yi00)+log(Yi02)]*0.5 %always for further use of log(linear) Yi0l3 i Yi0l0 i get Yi0l2 i get add 0.5 mul put Yn0l3 i Yn0l0 i get Yn0l2 i get add 0.5 mul put Yinl3 i Yinl0 i get Yinl2 i get add 0.5 mul put Ynnl3 i Ynnl0 i get Ynnl2 i get add 0.5 mul put ILG 1 eq {Yi0g3 i Yi0g0 i get Yi0g2 i get add 0.5 mul put Yn0g3 i Yn0g0 i get Yn0g2 i get add 0.5 mul put Ying3 i Ying0 i get Ying2 i get add 0.5 mul put Ynng3 i Ynng0 i get Ynng2 i get add 0.5 mul put } if /iouty 0 def iouty 1 eq {%iouty=1 %linear or log difference (Yi00-Yi03)*0.5 or [log(Yi00)-log(Yi03)]*0.5 %always for further use of log(linear) Yi0l4 i Yi0l0 i get Yi0l3 i get sub 0.5 mul put Yn0l4 i Yn0l0 i get Yn0l3 i get sub 0.5 mul put Yinl4 i Yinl0 i get Yinl3 i get sub 0.5 mul put Ynnl4 i Ynnl0 i get Ynnl3 i get sub 0.5 mul put ILG 1 eq {Yi0g4 i Yi0g0 i get Yi0g3 i get sub 0.5 mul put Yn0g4 i Yn0g0 i get Yn0g3 i get sub 0.5 mul put Ying4 i Ying0 i get Ying3 i get sub 0.5 mul put Ynng4 i Ynng0 i get Ynng3 i get sub 0.5 mul put } if %linear or log difference (Yi01-Yi03)*0.5 or [log(Yi01)-log(Yi03)]*0.5 %always for further use of log(linear) Yi0l5 i Yi0l1 i get Yi0l3 i get sub 0.5 mul put Yn0l5 i Yn0l1 i get Yn0l3 i get sub 0.5 mul put Yinl5 i Yinl1 i get Yinl3 i get sub 0.5 mul put Ynnl5 i Ynnl1 i get Ynnl3 i get sub 0.5 mul put ILG 1 eq {Yi0g5 i Yi0g1 i get Yi0g3 i get sub 0.5 mul put Yn0g5 i Yn0g1 i get Yn0g3 i get sub 0.5 mul put Ying5 i Ying1 i get Ying3 i get sub 0.5 mul put Ynng5 i Ynng1 i get Ynng3 i get sub 0.5 mul put } if %linear or log difference (Yi02-Yi03)*0.5 or [log(Yi02)-log(Yi03)]*0.5 %always for further use of log(linear) Yi0l6 i Yi0l2 i get Yi0l3 i get sub 0.5 mul put Yn0l6 i Yn0l2 i get Yn0l3 i get sub 0.5 mul put Yinl6 i Yinl2 i get Yinl3 i get sub 0.5 mul put Ynnl6 i Ynnl2 i get Ynnl3 i get sub 0.5 mul put ILG 1 eq {Yi0g6 i Yi0g2 i get Yi0g3 i get sub 0.5 mul put Yn0g6 i Yn0g2 i get Yn0g3 i get sub 0.5 mul put Ying6 i Ying2 i get Ying3 i get sub 0.5 mul put Ynng6 i Ynng2 i get Ynng3 i get sub 0.5 mul put } if %linear or log difference (Yi00-Yi01)*0.5 or [log(Yi00)-log(Yi01)]*0.5 %always for further use of log(linear) Yi0l7 i Yi0l0 i get Yi0l1 i get sub 0.5 mul put Yn0l7 i Yn0l0 i get Yn0l1 i get sub 0.5 mul put Yinl7 i Yinl0 i get Yinl1 i get sub 0.5 mul put Ynnl7 i Ynnl0 i get Ynnl1 i get sub 0.5 mul put ILG 1 eq {Yi0g7 i Yi0g0 i get Yi0g1 i get sub 0.5 mul put Yn0g7 i Yn0g0 i get Yn0g1 i get sub 0.5 mul put Ying7 i Ying0 i get Ying1 i get sub 0.5 mul put Ynng7 i Ynng0 i get Ynng1 i get sub 0.5 mul put } if %linear or log difference (Yi02-Yi01)*0.5 or [log(Yi02)-log(Yi01)]*0.5 %always for further use of log(linear) Yi0l8 i Yi0l2 i get Yi0l1 i get sub 0.5 mul put Yn0l8 i Yn0l2 i get Yn0l1 i get sub 0.5 mul put Yinl8 i Yinl2 i get Yinl1 i get sub 0.5 mul put Ynnl8 i Ynnl2 i get Ynnl1 i get sub 0.5 mul put ILG 1 eq {Yi0g8 i Yi0g2 i get Yi0g1 i get sub 0.5 mul put Yn0g8 i Yn0g2 i get Yn0g1 i get sub 0.5 mul put Ying8 i Ying2 i get Ying1 i get sub 0.5 mul put Ynng8 i Ynng2 i get Ynng1 i get sub 0.5 mul put } if %linear or log difference (Yi02-Yi00)*0.5 or [log(Yi02)-log(Yi00)]*0.5 %always for further use of log(linear) Yi0l9 i Yi0l2 i get Yi0l0 i get sub 0.5 mul put Yn0l9 i Yn0l2 i get Yn0l0 i get sub 0.5 mul put Yinl9 i Yinl2 i get Yinl0 i get sub 0.5 mul put Ynnl9 i Ynnl2 i get Ynnl0 i get sub 0.5 mul put ILG 1 eq {Yi0g9 i Yi0g2 i get Yi0g0 i get sub 0.5 mul put Yn0g9 i Yn0g2 i get Yn0g0 i get sub 0.5 mul put Ying9 i Ying2 i get Ying0 i get sub 0.5 mul put Ynng9 i Ynng2 i get Ynng0 i get sub 0.5 mul put } if } if %iouty=1 } for %i=0,1,76 } bind def %END proc_LMS_funclgm %**************************************************** /proc_LI_lbyfm {%190801 BEG proc_LI_lbyfm %input ceroc, Yi03, Yi01: i=0 to 76 10 setlinewidth 0 1 2 {/kx exch def %kx=0,2 %/kx 0 def kx 0 eq {%kx=0 xchartl 5 le {tfYe}{tfBe} ifelse /i10 525 380 sub 5 idiv def %28 /i20 620 380 sub 5 idiv def %38 /i11 620 380 sub 5 idiv def %28 /i21 525 380 sub 5 idiv def %38 } if %kx=0 kx 1 eq {%kx=1 xchartl 5 le {tfBe}{tfYe} ifelse /i10 380 380 sub 5 idiv def %28 /i20 525 380 sub 5 idiv def %38 /i11 525 380 sub 5 idiv def %28 /i21 380 380 sub 5 idiv def %38 } if %kx=1 kx 2 eq {%kx=2 xchartl 5 le {tfBe}{tfYe} ifelse /i10 615 380 sub 5 idiv def %28 /i20 740 380 sub 5 idiv def %38 /i11 740 380 sub 5 idiv def %28 /i21 615 380 sub 5 idiv def %38 } if %kx=2 /id1 i20 i10 sub abs 0 add def /id2 i21 i11 sub abs 0 add def 0 1 76 {/i exch def Xni i 380 i 5 mul add put Yi i i i10 lt {ceroc put} if i i10 ge i i20 lt and {Yi03 i get put} if i i20 ge {ceroc put} if } for 0 1 id2 {/i exch def /ix i11 i sub def Xni i20 i add Xi ix get put Yi i20 i add Yi01 ix get put } for /i1 i10 def /i3 i20 id2 add def %proc_strof_MUY proc_linef_MUY } for %kx=0,2 40 setlinewidth } bind def %END proc_LI_lbyfm %**************************************************** /proc_LI_lgrfm {%190801 BEG proc_LI_lgrfm %input ceroc, Yi03, Yi00, Yi02: i=0 to 76 10 setlinewidth 0 1 1 {/kx exch def %kx=0,2 %/kx 0 def kx 0 eq {%kx=0 xchartl 5 le {tfGe}{tfRe} ifelse /i10 380 380 sub 5 idiv def %28 /i20 570 380 sub 5 idiv def %38 /i11 570 380 sub 5 idiv def %28 /i21 380 380 sub 5 idiv def %38 } if %kx=0 kx 1 eq {%kx=1 xchartl 5 le {tfRe}{tfGe} ifelse /i10 570 380 sub 5 idiv def %28 /i20 700 380 sub 5 idiv def %38 /i11 700 380 sub 5 idiv def %28 /i21 570 380 sub 5 idiv def %38 } if %kx=1 /id1 i20 i10 sub abs 0 add def /id2 i21 i11 sub abs 0 add def 0 1 76 {/i exch def Xni i 380 i 5 mul add put Yi i i i10 lt {ceroc put} if i i10 ge i i20 lt and {Yi03 i get put} if i i20 ge {ceroc put} if } for 0 1 id2 {/i exch def /ix i11 i sub def Xni i20 i add Xi ix get put Yi i20 i add kx 0 eq {Yi00 ix get put} if kx 1 eq {Yi02 ix get put} if } for /i1 i10 def /i3 i20 id2 add def %proc_strof_MUY proc_linef_MUY } for %kx=0,1 40 setlinewidth } bind def %END proc_LI_lgrfm %**************************************************** /proc_LI_ngrfm {%190801 BEG proc_LI_ngrfm %input ceroc, Yi00, Yi02: i=0 to 76 10 setlinewidth 0 1 1 {/kx exch def %kx=0,1 %/kx 0 def kx 0 eq {%kx=0 xchartl 5 le {tfGe}{tfRe} ifelse /i10 400 380 sub 5 idiv def %28 /i20 570 380 sub 5 idiv def %38 /i11 570 380 sub 5 idiv def %28 /i21 400 380 sub 5 idiv def %38 } if %kx=0 kx 1 eq {%kx=1 xchartl 5 le {tfRe}{tfGe} ifelse /i10 570 380 sub 5 idiv def %28 /i20 730 380 sub 5 idiv def %38 /i11 730 380 sub 5 idiv def %28 /i21 570 380 sub 5 idiv def %38 } if %kx=1 /id1 i20 i10 sub abs 0 add def /id2 i21 i11 sub abs 0 add def 0 1 76 {/i exch def Xni i 380 i 5 mul add put Yi i i i10 lt {ceroc put} if i i10 ge i i20 lt and {Yi00 i get put} if i i20 ge {ceroc put} if } for 0 1 id2 {/i exch def /ix i11 i sub def Xni i20 i add Xi ix get put Yi i20 i add Yi02 ix get put } for /i1 i10 def /i3 i20 id2 add def %proc_strof_MUY proc_linef_MUY } for %kx=0,1 40 setlinewidth } bind def %END proc_LI_ngrfm %**************************************************** /proc_LMS_antrt {%BEG 190813 proc_LMS_antrt %anti reference text (antrt) /Xb {tfn (b) ishowM} def /Xn {tfw (n) ishowM} def /Xlb {tfn (lb) ishowM} def /Xln {tfw (ln) ishowM} def /Xgb {tfn (gb) ishowM} def /Xgn {tfw (gn) ishowM} def /X_b {tfn (_b) ishowM} def /X_n {tfw (_n) ishowM} def /X_lb {tfn (_lb) ishowM} def /X_ln {tfw (_ln) ishowM} def /X_gb {tfn (_gb) ishowM} def /X_gn {tfw (_gn) ishowM} def } bind def %END proc_LMS_antrt %*********************************************** /proc_LMS_tita3n {%190801 BEG proc_LMS_tita3n proc_LMS_titan proc_LMS_tit3rn } bind def %END proc_LMS_tita3n %*********************************************** /proc_LMS_titan {%190801 BEG proc_LMS_titan 300 -150 moveto IRS 0 eq {(lin:) show}{(log:) show} ifelse tfn WE0 cvishow (, ) show WE1 cvishow (, ) show WE2 cvishow 010 3800 moveto tfw ILG 1 eq {TBM (logarithm. [) showde (logarithmic [) showen} if xchartl 0 eq xchartl 1 eq or {%0&1 XtWE0 Xo tfw (, ) bshowM XtWE2 Xo tfw (, ) bshowM XtWE1 Xla } if %0&1 xchartl 2 eq xchartl 3 eq or {%2&3 XtWE0 X_o tfw (, ) bshowM XtWE2 X_o tfw (, ) bshowM XtWE1 X_la } if %2&3 xchartl 4 eq xchartl 5 eq or {%4&5 XtWE0 Xn tfw (, ) bshowM XtWE2 Xn tfw (, ) bshowM XtWE1 Xln } if %4&5 xchartl 6 eq xchartl 7 eq or {%6&7 XtWE0 X_n tfw (, ) bshowM XtWE2 X_n tfw (, ) bshowM XtWE1 X_ln } if %6&7 ILG 1 eq {tfw (]) bshowM} if tfw TBM (\255Daten) showde ( data) showen 010 3500 moveto XtWE1 Xla tfw (=\050) bshowM XtWE0 Xo tfw (+) bshowM XtWE2 Xo tfw (\051/2) bshowM xchartl 4 ge {%>=4 tfw (=) bshowM XtWE0 Xn tfw (+) bshowM XtWE2 Xn } if %>=4 010 3200 moveto xchartl 2 eq xchartl 3 eq or {%2&3 XtWE1 X_la tfw (=1-) bshowM XtWE1 Xla } if %2&3 xchartl 4 eq xchartl 5 eq or {%4&5 XtWE1 Xln tfw (=) bshowM XtWE1 Xla tfw (=\050) bshowM XtWE0 Xn tfw (+) bshowM XtWE2 Xn tfw (\051/2) bshowM } if %4&5 xchartl 6 eq xchartl 7 eq or {%6&7 XtWE1 X_ln tfw (=2-) bshowM XtWE1 Xln } if %6&7 010 2900 moveto ILG 1 eq {tfw (log[) bshowM} if xchartl 0 eq xchartl 1 eq or {%0&1 XtWE0 Xo tfw (, ) bshowM XtWE2 Xo tfw (, ) bshowM XtWE1 Xla } if %0&1 xchartl 2 eq xchartl 3 eq or {%2&3 XtWE0 X_o tfw (, ) bshowM XtWE2 X_o tfw (, ) bshowM XtWE1 X_la } if %2&3 xchartl 4 eq xchartl 5 eq or {%4&5 XtWE0 Xn tfw (, ) bshowM XtWE2 Xn tfw (, ) bshowM XtWE1 Xln } if %4&5 xchartl 6 eq xchartl 7 eq or {%6&7 XtWE0 X_n tfw (, ) bshowM XtWE2 X_n tfw (, ) bshowM XtWE1 X_ln } if %6&7 ILG 1 eq {tfw (]) bshowM} if /funcWE1_WE0 WE1 WE0 sub CX div dup mul CY mul neg def /funcWE1_WE2 WE1 WE2 sub CX div dup mul CY mul neg def } bind def %END proc_LMS_titan %********************************************* /proc_LMS_tit3rn {%190801 BEG proc_LMS_tit3rn 3850 3800 moveto tfw (u) bishowM 0 -60 rmoveto (l) outSK 0 10 rmoveto (=\050) bshowM (l) outSM (-550\051/50) bshowM 2900 3500 moveto tfw (log) bshowM 20 0 rmoveto XtWE0 Xo 20 0 rmoveto tfw (=-0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM XnWE0i (]) TBM tfw show (2) ebshowM 2900 3200 moveto tfw (log) bshowM 20 0 rmoveto XtWE2 Xo 20 0 rmoveto tfw (=-0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM XnWE2i (]) TBM tfw show (2) ebshowM 2900 2900 moveto xchartl 0 eq xchartl 1 eq or {%xchartl 0%1 tfw (log) bshowM 20 0 rmoveto XtWE1 Xo 20 0 rmoveto tfw (=-0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM XnWE1i (]) TBM tfw show (2) ebshowM } if %xchartl 0&1 xchartl 2 eq xchartl 3 eq or {%xchartl 2&3 XtWE0 X_o 20 0 rmoveto tfw (=1-) bshowM XtWE0 Xo tfw (; ) bshowM XtWE2 X_o 20 0 rmoveto tfw (=1-) bshowM XtWE2 Xo } if %xchartl 2&3 xchartl 4 eq xchartl 5 eq or {%xchartl 4&5 XtWE0 Xn 20 0 rmoveto tfw (=2) bshowM XtWE0 Xo tfw (; ) bshowM XtWE2 Xn 20 0 rmoveto tfw (=2) bshowM XtWE2 Xo } if %xchartl 4&5 xchartl 6 eq xchartl 7 eq or {%xchartl 6&7 XtWE0 X_n 20 0 rmoveto tfw (=2-) bshowM XtWE0 Xn tfw (; ) bshowM XtWE2 X_n 20 0 rmoveto tfw (=2-) bshowM XtWE2 Xn } if %xchartl 6&7 3600 2600 moveto tfw (Adapt.: ) bshowM tfw (l) outSM XtWE0i XtWE2i tfw (=) bshowM XnWE1 } bind def %END proc_LMS_tit3rn %*********************************************************** /proc_LMS_spetn {%190801 BEG proc_LMS_spetn %special text %reference position: 370, 420, 470, 520, 570, 620, 670, 720 %xpWEi=100+600j 0100,0700,1300,1900,2500,3100,3700,4300 /xpos0 0100 300 IWE0 mul add def /xpos1 0100 300 IWE1 mul add def /xpos2 0100 300 IWE2 mul add def xchartl 0 eq {%xchartl =0 570(2500) xpos0 450 sub 2200 moveto XtWE0 Xo xpos2 550 add 2200 moveto XtWE2 Xo xpos1 100 add 1700 moveto XtWE1 Xla } if %xchartl =0 xchartl 1 eq {%xchartl =1 %WE1=570(2500) xpos0 600 sub 2200 moveto XtWE0 Xo xpos2 650 add 2200 moveto XtWE2 Xo xpos1 100 add 2000 moveto XtWE1 Xla } if %xchartl =1 xchartl 2 eq {%xchartl =2 570(2500) xpos0 100 sub 2200 moveto XtWE2 X_o xpos2 050 add 2200 moveto XtWE0 X_o xpos1 000 add 1700 moveto XtWE1 X_la } if %xchartl =2 xchartl 3 eq {%xchartl =3 %WE1=570(2500) xpos0 100 sub 2200 moveto XtWE2 X_o xpos2 100 add 2200 moveto XtWE0 X_o xpos1 000 add 1400 moveto XtWE1 X_la } if %xchartl =3 xchartl 4 eq {%xchartl =4 570(2500) xpos0 500 sub 2200 moveto XtWE0 Xn xpos2 550 add 2200 moveto XtWE2 Xn xpos1 100 add 1700 moveto XtWE1 Xln } if %xchartl =4 xchartl 5 eq {%xchartl =5 %WE1=570(2500) xpos0 200 sub 2250 moveto XtWE0 Xn xpos2 100 add 2250 moveto XtWE2 Xn xpos1 000 add 1650 moveto XtWE1 Xln } if %xchartl =5 xchartl 6 eq {%xchartl =6 570(2500) xpos0 000 sub 2200 moveto XtWE2 X_n xpos2 000 add 2200 moveto XtWE0 X_n xpos1 000 add 1700 moveto XtWE1 X_ln } if %xchartl =6 xchartl 7 eq {%xchartl =7 %WE1=570(2500) xpos0 200 sub 0700 moveto XtWE0 X_n xpos2 300 add 0700 moveto XtWE2 X_n xpos1 000 add 1700 moveto XtWE1 X_ln } if %xchartl =7 } bind def %END proc_LMS_spetn %************************************************ /proc_LMS_thren {%190801 BEG proc_LMS_thren /ydelt 225 def /YEXP funcWE1_WE2 def /EYEXP 10 YEXP exp tsa add def xchartl 4 ge {/EYEXP EYEXP 2 mul def} if /YEXP xchartl 3 le {1 log EYEXP log sub def} {2 log EYEXP log sub def} ifelse xts yts 0 ydelt mul sub moveto (maximum) bshowK xts yts 1 ydelt mul sub moveto (log\050) bshowK XtWE1 xchartl 3 le {Xla}{Xln} ifelse tfw (m) ishowK (\051=-) bshowK YEXP dup 0 lt {neg} if cvsshow2x xts yts 2 ydelt mul sub moveto XtWE1 xchartl 3 le {Xla}{Xln} ifelse tfw (m) ishowK (=) bshowK EYEXP cvsshow2x xts yts 3 ydelt mul sub moveto TBK (thresholds) showen (Schwellen) showde xts yts 4 ydelt mul sub moveto (t) bshowK (a) ishowK (=) bshowK tsa cvsshow2x (, ) bshowK (t) bshowK (b) ishowK (=) bshowK tsb cvsshow2x } bind def %END proc_LMS_thren %******************************************* /proc_LMS_axian {%190801 BEG proc_LMS_axian (anti chromatic) proc_LMS_axi0 %without y-axis %!y-Axis: 100 S-units = 960 = 1200*0.8 Scal units 0 1 4 {/i exch def /iyt {150 i 0480 mul add} def /iyl {240 i 0480 mul add} def -450 xchartl 3 le {100 add} if iyt moveto xchartl 3 le {%xchartl<=3 %new tye ILG 0 eq {tyl}{TBK tye} ifelse i get exec show } if %xchartl<=3 xchartl 3 gt {%xchartl>3 ILG 0 eq {tyl2}{TBK tys2} ifelse i get exec show } if %xchartl>3 -075 iyl moveto 150 0 rlineto stroke } for } bind def %END proc_LMS_axian (anti chormatic) %*************************************************** /proc_LMS_axi0 {%190801 BEG proc_LMS_axi0 TBM /tx [ (400) (500) (600) (700)] def /tyl [(0,0) () (0,5) () (1,0)] def /tyl2 [( 0) () ( 1) () ( 2)] def /tye [(-2) () (-1) () ( 0)] def /tys [(-1) ( ) ( 0) ( ) ( 1) ] def /tu [ (-3) (-1) ( 1) ( 3)] def /tyu [(-1,0) ( ) (-0,5) ( ) ( 0,0)] def /tys2 [(-0,5) ( ) ( 0,0) ( ) ( 0,5) ] def %!u-Achse: 100 Einheiten = 1200 Skalen-Einheiten 0 1 3 {/i exch def %i=0,3 /ixt {100 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt 100 moveto tu i get exec show } for %i=0,3 % 550 nm; u=0.0 /ixt -180 1.50 1200 mul add def /ixl 240 1.50 1200 mul add def tf550 ixt 350 add 100 moveto (0) show /ixt 20 1860 add def ixt -320 moveto (550) show ixl 75 moveto 0 -150 rlineto stroke 4700 450 sub 050 350 sub moveto tfw (l) outSM 20 0 rmoveto (/nm) bshowM 5000 450 sub 450 350 sub moveto (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto %!x-Achse: 100 Einheiten = 1200 Skalen-Einheiten tfw 0 1 3 {/i exch def /ixt {070 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt -300 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %no !y-Achse: 100 S-Einheiten = 960 = 1200*0.8 Skalen-Einheiten } bind def %END proc_LMS_axi0 %**************************************************** %%EndProlog gsave %LANINDL2 START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /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 /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /xcolorg where {pop /xcolor xcolorg def} {/xcolor 0 def} ifelse /xchartg where {pop /xchart xchartg def} {/xchart 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage gsave 70 90 translate 0.01 MM dup scale 20 setlinewidth /rtext 1 def rtext 1 eq {%if rtext=1 20 setlinewidth 0 0 11600 17100 0.0 0.0 0.0 0.0 colrecfi %area white grey 0 0 11600 17100 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz 150 /Times-ISOL1 FS 100 -150 moveto (EE600-7N) show %(_) show xchartx 1 add cvishow } if %rtext=1 /xchartl 0 def 0 1 07 {/xchartl exch def %xchartl=0,07 %/xchartl def 20 setlinewidth xchartl 0 eq { 100 13000 translate} if xchartl 1 eq { 6100 13000 translate} if xchartl 2 eq { 100 08750 translate} if xchartl 3 eq { 6100 08750 translate} if xchartl 4 eq { 100 4500 translate} if xchartl 5 eq { 6100 4500 translate} if xchartl 6 eq { 100 0250 translate} if xchartl 7 eq { 6100 0250 translate} if 0 setgray 150 /Times-ISOL1 FS 4200 -150 moveto (EE600-) show xchartl 1 add cvishow (N) show %N /ibil 0 def /ILK 2 def /ILS 0 def /ILT 0 def/ILU 1 def /IKOM 3 def %N curve, not used /ILN 3 def %U&T /JPPM 3 def %three curves ILT 0 eq {/tsa 0.000 def /dtsa 1 1 tsa add div def} if ILT 1 eq {/tsa 0.007 def} if /tsb 0.000 def 30 setlinewidth [ ] 0 setdash 0.0 0.0 0.0 0.5 setcmykcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill 0 setgray 150 /Times-ISOL1 FS proc_LMS_antrt gsave %start because of clip %***************************************************************** xchartl 0 eq {%xchartl=0, Rlin:545,570,585 /WE0 545 def /WE1 570 def /WE2 595 def /IRS 0 def /ILG 0 def /I12 1 def proc_LMS_titan proc_LMS_tit3rn xpWE0 150 sub 2600 moveto XnWE0 xpWE1 2600 moveto XnWE1 xpWE2 150 add 2600 moveto XnWE2 proc_LMS_spetn tfw 450 350 translate 40 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 2700 0.8 mul rlineto stroke 0 2700 0.8 mul moveto 340 12 mul 0 rlineto stroke proc_LMS_axian /yta 0 def ILS 0 ne ILT 1 eq and {/yta 650 def} if /xts -150 3 1200 mul add def %special /yts 500 3 0480 mul add yta add def %special proc_LMS_thren 40 setlinewidth %Cero point at 550 nm /X0T {550 380 sub 12 mul} def X0T 0 translate 0 setlinewidth % fuer clip 0.0 0.0 0.0 0.5 setcmykcolor /Y0C 050 def /Y1C 2450 def X0T neg 100 add Y0C moveto 4650 0 rlineto 0 Y1C rlineto -4650 0 rlineto 0 Y1C neg rlineto clip stroke proc_LMS_funclgm 40 setlinewidth /IORY 2700 0.8 mul def 0 480 4 mul neg translate /JPPM 4 def 0 1 JPPM {/jkurv exch def %jkurv=0,3 [ ] 0 setdash %usually continues curves jkurv 0 eq {tfWE0 [100 100] 0 setdash} if jkurv 1 eq {tfWE1} if jkurv 2 eq {tfWE2 [100 100] 0 setdash} if jkurv 3 eq {tfWE1} if jkurv 4 eq {tf620} if 0 1 76 {/i exch def %i=0,76 Yi00 i Yi0l0 i get put Yi01 i Yi0l1 i get put Yi02 i Yi0l2 i get put Yi03 i Yi0l3 i get put % Yi04 i Yi0l4 i get put % Yi05 i Yi0l5 i get put % Yi06 i Yi0l6 i get put % Yi07 i Yi0l7 i get put % Yi08 i Yi0l8 i get put % Yi09 i Yi0l9 i get put } for %i=0,76 0 1 76 {/i exch def jkurv 0 eq {Yi i Yi00 i get put} if %jkurv=0 jkurv 1 eq {Yi i Yi01 i get put} if %jkurv=1 jkurv 2 eq {Yi i Yi02 i get put} if %jkurv=2 jkurv 3 eq {Yi i Yi03 i get put} if %jkurv=3 jkurv 4 eq {Yi i 0.5 put} if %jkurv=4 } for % 0 1 2 3 4 5 6 7 8 9 10 11 12 /kurvi [1 1 1 1 1 0 0 0 0 0 0 0 0] def kurvi jkurv get 1 eq {%kurvi=1 /MUY MULY2 I12 div def proc_curve_MUY } if %kurvi=1 } for %jkurv=0,JPPM /iout 1 def iout 1 eq {%iout=1 %additionally dashed curve, no. 3 [100 100] 0 setdash %dashed curves 0 0 0 1 setcmykcolor %black 0 1 76 {/i exch def Yi i Yi03 i get put} for /MUY MULY2 I12 div def proc_curve_MUY %additionally dashed curve, no. 4 %[050 100] 0 setdash %dashed curves %0 0 0 1 setcmykcolor %black %0 1 76 {/i exch def Yi i Yi04 i get put} for %/MUY MULY2 I12 div def %proc_curve_MUY } if %iout=1 0 480 4 mul translate X0T neg 0 translate -450 -350 translate } if %xchartl=0 %***************************************************************** xchartl 1 eq {%xchartl=1, Rlog:545,570,585 /WE0 545 def /WE1 570 def /WE2 595 def /IRS 1 def /ILG 1 def /I12 1 def proc_LMS_titan proc_LMS_tit3rn xpWE0 150 sub 2600 moveto XnWE0 xpWE1 2600 moveto XnWE1 xpWE2 150 add 2600 moveto XnWE2 proc_LMS_spetn tfw 450 350 translate 40 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 2700 0.8 mul rlineto stroke 0 2700 0.8 mul moveto 340 12 mul 0 rlineto stroke %0 240 480 2 mul add moveto 340 12 mul 0 rlineto stroke %cero line %2700*0.8=2160; 240+480*4=240+1920=2160; 0.5 log = -0.30102999 % 0 2700 0.8 mul %0.5 log line % 2700 0.8 mul 0.5 log mul add moveto 340 12 mul 0 rlineto stroke proc_LMS_axian /yta 0 def ILS 0 ne ILT 1 eq and {/yta 650 def} if /xts -150 3 1200 mul add def /yts 500 3 0480 mul add yta add def proc_LMS_thren 40 setlinewidth %Cero point at 550 nm /X0T {550 380 sub 12 mul} def X0T 0 translate 0 setlinewidth % fuer clip 0.0 0.0 0.0 0.5 setcmykcolor /Y0C 050 def /Y1C 2450 def X0T neg 100 add Y0C moveto 4650 0 rlineto 0 Y1C rlineto -4650 0 rlineto 0 Y1C neg rlineto clip stroke proc_LMS_funclgm 40 setlinewidth /IORY 2700 0.8 mul def %0 480 4 mul neg translate /JPPM 4 def 0 1 JPPM {/jkurv exch def %jkurv=0,3 [ ] 0 setdash %usually continues curves jkurv 0 eq {tfWE0 [100 100] 0 setdash} if jkurv 1 eq {tfWE1} if jkurv 2 eq {tfWE2 [100 100] 0 setdash} if jkurv 3 eq {tfWE1} if jkurv 4 eq {tf620} if 0 1 76 {/i exch def %i=0,76 Yi00 i Yi0g0 i get put Yi01 i Yi0g1 i get put Yi02 i Yi0g2 i get put Yi03 i Yi0l3 i get log put % Yi04 i Yi0g4 i get put % Yi05 i Yi0g5 i get put % Yi06 i Yi0g6 i get put % Yi07 i Yi0g7 i get put % Yi08 i Yi0g8 i get put % Yi09 i Yi0g9 i get put } for %i=0,76 0 1 76 {/i exch def jkurv 0 eq {Yi i Yi00 i get put} if %jkurv=0 jkurv 1 eq {Yi i Yi01 i get put} if %jkurv=1 jkurv 2 eq {Yi i Yi02 i get put} if %jkurv=2 jkurv 3 eq {Yi i Yi03 i get put} if %jkurv=3 jkurv 4 eq {Yi i 0.5 log put} if %jkurv=4 } for % 0 1 2 3 4 5 6 7 8 9 10 11 12 /kurvi [1 1 1 1 1 0 0 0 0 0 0 0 0] def kurvi jkurv get 1 eq {%kurvi=1 /MUY MULY2 I12 div def proc_curve_MUY } if %kurvi=1 } for %jkurv=0,JPPM /iout 1 def iout 1 eq {%iout=1 %additionally dashed curve, no. 3 [100 100] 0 setdash %dashed curves 0 0 0 1 setcmykcolor %black 0 1 76 {/i exch def Yi i Yi03 i get put} for /MUY MULY2 I12 div def proc_curve_MUY %additionally dashed curve, no. 4 %[050 100] 0 setdash %dashed curves %0 0 0 1 setcmykcolor %black %0 1 76 {/i exch def Yi i Yi04 i get put} for %not used %/MUY MULY2 I12 div def %proc_curve_MUY } if %iout=1 %0 480 4 mul translate X0T neg 0 translate -450 -350 translate } if %xchartl=1 %***************************************************************** xchartl 2 eq {%xchartl=2, Rlin:545,570,585 /WE0 545 def /WE1 570 def /WE2 595 def /IRS 0 def /ILG 0 def /I12 1 def proc_LMS_titan proc_LMS_tit3rn xpWE0 150 sub 2600 moveto XnWE0 xpWE1 2600 moveto XnWE1 xpWE2 150 add 2600 moveto XnWE2 proc_LMS_spetn tfw 450 350 translate 40 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 2700 0.8 mul rlineto stroke 0 2700 0.8 mul moveto 340 12 mul 0 rlineto stroke proc_LMS_axian /yta 0 def ILS 0 ne ILT 1 eq and {/yta 650 def} if /xts -150 3 1200 mul add def %special /yts 500 3 0480 mul add yta add def %special proc_LMS_thren 40 setlinewidth %Cero point at 550 nm /X0T {550 380 sub 12 mul} def X0T 0 translate 0 setlinewidth % fuer clip 0.0 0.0 0.0 0.5 setcmykcolor /Y0C 050 def /Y1C 2450 def X0T neg 100 add Y0C moveto 4650 0 rlineto 0 Y1C rlineto -4650 0 rlineto 0 Y1C neg rlineto clip stroke proc_LMS_funclgm 40 setlinewidth /IORY 2700 0.8 mul def %0 480 4 mul neg translate /JPPM 4 def 0 1 JPPM {/jkurv exch def %jkurv=0,3 [ ] 0 setdash %usually continues curves jkurv 0 eq {tfWE0 [100 100] 0 setdash} if jkurv 1 eq {tfWE1} if jkurv 2 eq {tfWE2 [100 100] 0 setdash} if jkurv 3 eq {tfWE1} if jkurv 4 eq {tf620} if 0 1 76 {/i exch def %i=0,76 Yi00 i Yinl0 i get put Yi01 i Yinl1 i get put Yi02 i Yinl2 i get put Yi03 i Yinl3 i get put % Yi04 i Yinl4 i get put % Yi05 i Yinl5 i get put % Yi06 i Yinl6 i get put % Yi07 i Yinl7 i get put % Yi08 i Yinl8 i get put % Yi09 i Yinl9 i get put } for %i=0,76 0 1 76 {/i exch def jkurv 0 eq {Yi i Yi00 i get put} if %jkurv=0 jkurv 1 eq {Yi i Yi01 i get put} if %jkurv=1 jkurv 2 eq {Yi i Yi02 i get put} if %jkurv=2 jkurv 3 eq {Yi i Yi03 i get put} if %jkurv=3 jkurv 4 eq {Yi i 0.5 neg put} if %jkurv=4 } for % 0 1 2 3 4 5 6 7 8 9 10 11 12 /kurvi [1 1 1 1 1 0 0 0 0 0 0 0 0] def kurvi jkurv get 1 eq {%kurvi=1 /MUY MULY2 I12 div def proc_curve_MUY } if %kurvi=1 } for %jkurv=0,JPPM /iout 1 def iout 1 eq {%iout=1 %additionally dashed curve, no. 3 [100 100] 0 setdash %dashed curves 0 0 0 1 setcmykcolor %black 0 1 76 {/i exch def Yi i Yi03 i get put} for /MUY MULY2 I12 div def proc_curve_MUY %additionally dashed curve, no. 4 %[050 100] 0 setdash %dashed curves %0 0 0 1 setcmykcolor %black %0 1 76 {/i exch def Yi i Yi04 i get put} for %/MUY MULY2 I12 div def %proc_curve_MUY } if %iout=1 %0 480 4 mul translate X0T neg 0 translate -450 -350 translate } if %xchartl=2 %***************************************************************** xchartl 3 eq {%xchartl=3, Rlog:545,570,585 /WE0 545 def /WE1 570 def /WE2 595 def /IRS 1 def /ILG 1 def /I12 1 def proc_LMS_titan proc_LMS_tit3rn xpWE0 150 sub 2600 moveto XnWE0 xpWE1 2600 moveto XnWE1 xpWE2 150 add 2600 moveto XnWE2 proc_LMS_spetn tfw 450 350 translate 40 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 2700 0.8 mul rlineto stroke 0 2700 0.8 mul moveto 340 12 mul 0 rlineto stroke %0 240 480 2 mul add moveto 340 12 mul 0 rlineto stroke %cero line %2700*0.8=2160; 240+480*4=240+1920=2160; 0.5 log = -0.30102999 %half way to top % 0 2700 0.8 mul 0.5 mul log moveto 340 12 mul 0 rlineto stroke proc_LMS_axian /yta 0 def ILS 0 ne ILT 1 eq and {/yta 650 def} if /xts -150 3 1200 mul add def /yts 500 3 0480 mul add yta add def proc_LMS_thren 40 setlinewidth %Cero point at 550 nm /X0T {550 380 sub 12 mul} def X0T 0 translate 0 setlinewidth % fuer clip 0.0 0.0 0.0 0.5 setcmykcolor /Y0C 050 def /Y1C 2450 def X0T neg 100 add Y0C moveto 4650 0 rlineto 0 Y1C rlineto -4650 0 rlineto 0 Y1C neg rlineto clip stroke proc_LMS_funclgm 40 setlinewidth /IORY 2700 0.8 mul def 0 480 4 mul neg translate /JPPM 4 def 0 1 JPPM {/jkurv exch def %jkurv=0,3 [ ] 0 setdash %usually continues curves jkurv 0 eq {tfWE0 [100 100] 0 setdash} if jkurv 1 eq {tfWE1} if jkurv 2 eq {tfWE2 [100 100] 0 setdash} if jkurv 3 eq {tfWE1} if jkurv 4 eq {tf620} if 0 1 76 {/i exch def %i=0,76 Yi00 i Ying0 i get put Yi01 i Ying1 i get put Yi02 i Ying2 i get put Yi03 i Yinl3 i get abs log neg put % Yi04 i Ying4 i get put % Yi05 i Ying5 i get put % Yi06 i Ying6 i get put % Yi07 i Ying7 i get put % Yi08 i Ying8 i get put % Yi09 i Ying9 i get put } for %i=0,76 0 1 76 {/i exch def jkurv 0 eq {Yi i Yi00 i get put} if %jkurv=0 jkurv 1 eq {Yi i Yi01 i get put} if %jkurv=1 jkurv 2 eq {Yi i Yi02 i get put} if %jkurv=2 jkurv 3 eq {Yi i Yi03 i get put} if %jkurv=3 jkurv 4 eq {Yi i 0.5 log neg put} if %jkurv=4 } for % 0 1 2 3 4 5 6 7 8 9 10 11 12 /kurvi [1 1 1 1 1 0 0 0 0 0 0 0 0] def kurvi jkurv get 1 eq {%kurvi=1 /MUY MULY2 I12 div def proc_curve_MUY } if %kurvi=1 } for %jkurv=0,JPPM /iout 1 def iout 1 eq {%iout=1 %additionally dashed curve, no. 3 [100 100] 0 setdash %dashed curves 0 0 0 1 setcmykcolor %black 0 1 76 {/i exch def Yi i Yi03 i get put} for /MUY MULY2 I12 div def proc_curve_MUY %additionally dashed curve, no. 4 %[050 100] 0 setdash %dashed curves %0 0 0 1 setcmykcolor %black %0 1 76 {/i exch def Yi i Yi04 i get put} for %/MUY MULY2 I12 div def %proc_curve_MUY } if %iout=1 0 480 4 mul translate X0T neg 0 translate -450 -350 translate } if %xchartl=3 %***************************************************************** xchartl 4 eq {%xchartl=4, Rlin:545,570,585 /WE0 545 def /WE1 570 def /WE2 595 def /IRS 0 def /ILG 0 def /I12 2 def proc_LMS_titan proc_LMS_tit3rn xpWE0 150 sub 2600 moveto XnWE0 xpWE1 2600 moveto XnWE1 xpWE2 150 add 2600 moveto XnWE2 proc_LMS_spetn tfw 450 350 translate 40 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 2700 0.8 mul rlineto stroke 0 2700 0.8 mul moveto 340 12 mul 0 rlineto stroke 0 240 480 2 mul add moveto 340 12 mul 0 rlineto stroke %cero line proc_LMS_axian /yta 0 def ILS 0 ne ILT 1 eq and {/yta 650 def} if /xts -150 3 1200 mul add def %special /yts 500 3 0480 mul add yta add def %special proc_LMS_thren 40 setlinewidth %Cero point at 550 nm /X0T {550 380 sub 12 mul} def X0T 0 translate 0 setlinewidth % fuer clip 0.0 0.0 0.0 0.5 setcmykcolor /Y0C 050 def /Y1C 2450 def X0T neg 100 add Y0C moveto 4650 0 rlineto 0 Y1C rlineto -4650 0 rlineto 0 Y1C neg rlineto clip stroke proc_LMS_funclgm 40 setlinewidth /IORY 2700 0.8 mul def 0 480 4 mul neg translate /JPPM 4 def 0 1 JPPM {/jkurv exch def %jkurv=0,3 [ ] 0 setdash %usually continues curves jkurv 0 eq {tfWE0 [100 100] 0 setdash} if jkurv 1 eq {tfWE1} if jkurv 2 eq {tfWE2 [100 100] 0 setdash} if jkurv 3 eq {tfWE1} if jkurv 4 eq {tf620} if 0 1 76 {/i exch def %i=0,76 Yi00 i Yn0l0 i get put Yi01 i Yn0l1 i get put Yi02 i Yn0l2 i get put Yi03 i Yn0l3 i get put % Yi04 i Yn0l4 i get put % Yi05 i Yn0l5 i get put % Yi06 i Yn0l6 i get put % Yi07 i Yn0l7 i get put % Yi08 i Yn0l8 i get put % Yi09 i Yn0l9 i get put } for %i=0,76 0 1 76 {/i exch def jkurv 0 eq {Yi i Yi00 i get put} if %jkurv=0 jkurv 1 eq {Yi i Yi01 i get put} if %jkurv=1 jkurv 2 eq {Yi i Yi02 i get put} if %jkurv=2 jkurv 3 eq {Yi i Yi03 i get put} if %jkurv=3 jkurv 4 eq {Yi i 1 put} if %jkurv=4 } for % 0 1 2 3 4 5 6 7 8 9 10 11 12 /kurvi [1 1 1 1 1 0 0 0 0 0 0 0 0] def kurvi jkurv get 1 eq {%kurvi=1 /MUY MULY2 I12 div def proc_curve_MUY } if %kurvi=1 } for %jkurv=0,JPPM /iout 1 def iout 1 eq {%iout=1 %additionally dashed curve, no. 3 [100 100] 0 setdash %dashed curves 0 0 0 1 setcmykcolor %black 0 1 76 {/i exch def Yi i Yi03 i get put} for /MUY MULY2 I12 div def proc_curve_MUY %additionally dashed curve, no. 4 %[050 100] 0 setdash %dashed curves %0 0 0 1 setcmykcolor %black %0 1 76 {/i exch def Yi i Yi04 put} for %/MUY MULY2 I12 div def %proc_curve_MUY } if %iout=1 /KF 0 def KF 1 eq {/ceroc 1.0 def proc_LI_lbyfm} if KF 2 eq {/ceroc 1.0 def proc_LI_lgrfm} if KF 3 eq {/ceroc 1.0 def proc_LI_ngrfm} if 0 480 4 mul translate X0T neg 0 translate -450 -350 translate } if %xchartl=4 %***************************************************************** xchartl 5 eq {%xchartl=5, Rlog:545,570,585 /WE0 545 def /WE1 570 def /WE2 595 def /IRS 0 def /ILG 1 def /I12 2 def proc_LMS_titan proc_LMS_tit3rn xpWE0 150 sub 2600 moveto XnWE0 xpWE1 2600 moveto XnWE1 xpWE2 150 add 2600 moveto XnWE2 proc_LMS_spetn tfw 450 350 translate 40 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 2700 0.8 mul rlineto stroke 0 2700 0.8 mul moveto 340 12 mul 0 rlineto stroke 0 240 480 2 mul add moveto 340 12 mul 0 rlineto stroke %cero line proc_LMS_axian /yta 0 def ILS 0 ne ILT 1 eq and {/yta 650 def} if /xts -150 3 1200 mul add def %special /yts 500 3 0480 mul add yta add def %special proc_LMS_thren 40 setlinewidth %Cero point at 550 nm /X0T {550 380 sub 12 mul} def X0T 0 translate 0 setlinewidth % fuer clip 0.0 0.0 0.0 0.5 setcmykcolor /Y0C 050 def /Y1C 2450 def X0T neg 100 add Y0C moveto 4650 0 rlineto 0 Y1C rlineto -4650 0 rlineto 0 Y1C neg rlineto clip stroke proc_LMS_funclgm 40 setlinewidth /IORY 2700 0.8 mul def 0 480 2 mul neg translate /JPPM 4 def 0 1 JPPM {/jkurv exch def %jkurv=0,3 [ ] 0 setdash %usually continues curves jkurv 0 eq {tfWE0 [100 100] 0 setdash} if jkurv 1 eq {tfWE1} if jkurv 2 eq {tfWE2 [100 100] 0 setdash} if jkurv 3 eq {tfWE1} if jkurv 4 eq {tf620} if 0 1 76 {/i exch def %i=0,76 Yi00 i Yn0g0 i get put Yi01 i Yn0g1 i get put Yi02 i Yn0g2 i get put Yi03 i Yn0l3 i get log put % Yi04 i Yn0g4 i get put % Yi05 i Yn0g5 i get put % Yi06 i Yn0g6 i get put % Yi07 i Yn0g7 i get put % Yi08 i Yn0g8 i get put % Yi09 i Yn0g9 i get put } for %i=0,76 0 1 76 {/i exch def jkurv 0 eq {Yi i Yi00 i get put} if %jkurv=0 jkurv 1 eq {Yi i Yi01 i get put} if %jkurv=1 jkurv 2 eq {Yi i Yi02 i get put} if %jkurv=2 jkurv 3 eq {Yi i Yi03 i get put} if %jkurv=3 jkurv 4 eq {Yi i 1 log put} if %jkurv=4 } for % 0 1 2 3 4 5 6 7 8 9 10 11 12 /kurvi [1 1 1 1 1 0 0 0 0 0 0 0 0] def kurvi jkurv get 1 eq {%kurvi=1 /MUY MULY2 def proc_curve_MUY } if %kurvi=1 } for %jkurv=0,JPPM /iout 1 def iout 1 eq {%iout=1 %additionally dashed curve, no. 3 [100 100] 0 setdash %dashed curves 0 0 0 1 setcmykcolor %black 0 1 76 {/i exch def Yi i Yi03 i get put} for /MUY MULY2 def proc_curve_MUY %additionally dashed curve, no. 4 %[050 100] 0 setdash %dashed curves %0 0 0 1 setcmykcolor %black %0 1 76 {/i exch def Yi i Yi04 i get put} for %/MUY MULY2 def %proc_curve_MUY } if %iout=1 /KF 0 def KF 1 eq {/ceroc 0.0 def proc_LI_lbyfm} if KF 2 eq {/ceroc 0.0 def proc_LI_lgrfm} if KF 3 eq {/ceroc 0.0 def proc_LI_ngrfm} if 0 480 2 mul translate X0T neg 0 translate -450 -350 translate } if %xchartl=5 %***************************************************************** xchartl 6 eq {%xchartl=6, Rlog:545,570,585 /WE0 545 def /WE1 570 def /WE2 595 def /IRS 0 def /ILG 0 def /I12 2 def proc_LMS_titan proc_LMS_tit3rn xpWE0 150 sub 2600 moveto XnWE0 xpWE1 2600 moveto XnWE1 xpWE2 150 add 2600 moveto XnWE2 proc_LMS_spetn tfw 450 350 translate 40 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 2700 0.8 mul rlineto stroke 0 2700 0.8 mul moveto 340 12 mul 0 rlineto stroke 0 240 480 2 mul add moveto 340 12 mul 0 rlineto stroke %cero line proc_LMS_axian /yta 0 def ILS 0 ne ILT 1 eq and {/yta 650 def} if /xts -150 3 1200 mul add def %special /yts 500 3 0480 mul add yta add def %special proc_LMS_thren 40 setlinewidth %Cero point at 550 nm /X0T {550 380 sub 12 mul} def X0T 0 translate 0 setlinewidth % fuer clip 0.0 0.0 0.0 0.5 setcmykcolor /Y0C 050 def /Y1C 2450 def X0T neg 100 add Y0C moveto 4650 0 rlineto 0 Y1C rlineto -4650 0 rlineto 0 Y1C neg rlineto clip stroke proc_LMS_funclgm 40 setlinewidth /IORY 2700 0.8 mul def %0 480 4 mul neg translate /JPPM 4 def 0 1 JPPM {/jkurv exch def %jkurv=0,3 [ ] 0 setdash %usually continues curves jkurv 0 eq {tfWE0 [100 100] 0 setdash} if jkurv 1 eq {tfWE1} if jkurv 2 eq {tfWE2 [100 100] 0 setdash} if jkurv 3 eq {tfWE1} if jkurv 4 eq {tf620} if 0 1 76 {/i exch def %i=0,76 Yi00 i Ynnl0 i get put Yi01 i Ynnl1 i get put Yi02 i Ynnl2 i get put Yi03 i Ynnl3 i get put % Yi04 i Ynnl4 i get put % Yi05 i Ynnl5 i get put % Yi06 i Ynnl6 i get put % Yi07 i Ynnl7 i get put % Yi08 i Ynnl8 i get put % Yi09 i Ynnl9 i get put } for %i=0,76 0 1 76 {/i exch def jkurv 0 eq {Yi i Yi00 i get put} if %jkurv=0 jkurv 1 eq {Yi i Yi01 i get put} if %jkurv=1 jkurv 2 eq {Yi i Yi02 i get put} if %jkurv=2 jkurv 3 eq {Yi i Yi03 i get put} if %jkurv=3 jkurv 4 eq {Yi i 1 neg put} if %jkurv=4 } for % 0 1 2 3 4 5 6 7 8 9 10 11 12 /kurvi [1 1 1 1 1 0 0 0 0 0 0 0 0] def kurvi jkurv get 1 eq {%kurvi=1 /MUY MULY2 I12 div def proc_curve_MUY } if %kurvi=1 } for %jkurv=0,JPPM /iout 1 def iout 1 eq {%iout=1 %additionally dashed curve, no. 3 [100 100] 0 setdash %dashed curves 0 0 0 1 setcmykcolor %black 0 1 76 {/i exch def Yi i Yi03 i get put} for /MUY MULY2 I12 div def proc_curve_MUY %additionally dashed curve, no. 4 %[050 100] 0 setdash %dashed curves %0 0 0 1 setcmykcolor %black %0 1 76 {/i exch def Yi i Yi04 i get put} for %/MUY MULY2 I12 div def %proc_curve_MUY } if %iout=1 /KF 0 def KF 1 eq {/ceroc 0.5 def proc_LI_lbyfm} if KF 2 eq {/ceroc 0.5 def proc_LI_lgrfm} if KF 3 eq {/ceroc 0.5 def proc_LI_ngrfm} if %0 480 4 mul translate X0T neg 0 translate -450 -350 translate } if %xchartl=6 %***************************************************************** xchartl 7 eq {%xchartl=7, Rlog:545,570,585 /WE0 545 def /WE1 570 def /WE2 595 def /IRS 0 def /ILG 1 def /I12 2 def proc_LMS_titan proc_LMS_tit3rn xpWE0 150 sub 2600 moveto XnWE0 xpWE1 2600 moveto XnWE1 xpWE2 150 add 2600 moveto XnWE2 proc_LMS_spetn tfw 450 350 translate 40 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 2700 0.8 mul rlineto stroke 0 2700 0.8 mul moveto 340 12 mul 0 rlineto stroke 0 240 480 2 mul add moveto 340 12 mul 0 rlineto stroke %cero line proc_LMS_axian /yta 0 def ILS 0 ne ILT 1 eq and {/yta 650 def} if /xts -150 3 1200 mul add def %special /yts 500 3 0480 mul add yta add def %special proc_LMS_thren 40 setlinewidth %Cero point at 550 nm /X0T {550 380 sub 12 mul} def X0T 0 translate 0 setlinewidth % fuer clip 0.0 0.0 0.0 0.5 setcmykcolor /Y0C 050 def /Y1C 2450 def X0T neg 100 add Y0C moveto 4650 0 rlineto 0 Y1C rlineto -4650 0 rlineto 0 Y1C neg rlineto clip stroke proc_LMS_funclgm 40 setlinewidth /IORY 2700 0.8 mul def 0 480 2 mul neg translate /JPPM 4 def 0 1 JPPM {/jkurv exch def %jkurv=0,3 [ ] 0 setdash %usually continues curves jkurv 0 eq {tfWE0 [100 100] 0 setdash} if jkurv 1 eq {tfWE1} if jkurv 2 eq {tfWE2 [100 100] 0 setdash} if jkurv 3 eq {tfWE1} if jkurv 4 eq {tf620} if 0 1 76 {/i exch def %i=0,76 Yi00 i Ynng0 i get put Yi01 i Ynng1 i get put Yi02 i Ynng2 i get put Yi03 i Ynnl3 i get abs log neg put % Yi04 i Ynng4 i get put % Yi05 i Ynng5 i get put % Yi06 i Ynng6 i get put % Yi07 i Ynng7 i get put % Yi08 i Ynng8 i get put % Yi09 i Ynng9 i get put } for %i=0,76 0 1 76 {/i exch def jkurv 0 eq {Yi i Yi00 i get put} if %jkurv=0 jkurv 1 eq {Yi i Yi01 i get put} if %jkurv=1 jkurv 2 eq {Yi i Yi02 i get put} if %jkurv=2 jkurv 3 eq {Yi i Yi03 i get put} if %jkurv=3 jkurv 4 eq {Yi i 1 log put} if %jkurv=4 } for % 0 1 2 3 4 5 6 7 8 9 10 11 12 /kurvi [1 1 1 1 1 0 0 0 0 0 0 0 0] def kurvi jkurv get 1 eq {%kurvi=1 /MUY MULY2 def proc_curve_MUY } if %kurvi=1 } for %jkurv=0,JPPM /iout 1 def iout 1 eq {%iout=1 %additionally dashed curve, no. 3 [100 100] 0 setdash %dashed curves 0 0 0 1 setcmykcolor %black 0 1 76 {/i exch def Yi i Yi03 i get put} for /MUY MULY2 def proc_curve_MUY %additionally dashed curve, no. 4 %[050 100] 0 setdash %dashed curves %0 0 0 1 setcmykcolor %black %0 1 76 {/i exch def Yi i I12 Yi04 i get sub put} for %/MUY MULY2 def %proc_curve_MUY } if %iout=1 /KF 0 def KF 1 eq {/ceroc 0.0 def proc_LI_lbyfm} if KF 2 eq {/ceroc 0.0 def proc_LI_lgrfm} if KF 3 eq {/ceroc 0.0 def proc_LI_ngrfm} if 0 480 2 mul translate X0T neg 0 translate -450 -350 translate } if %xchartl=7 %***************************************************************** grestore %end because of clip xchartl 0 eq { 100 neg 13000 neg translate} if xchartl 1 eq { 6100 neg 13000 neg translate} if xchartl 2 eq { 100 neg 08750 neg translate} if xchartl 3 eq { 6100 neg 08750 neg translate} if xchartl 4 eq { 100 neg 4500 neg translate} if xchartl 5 eq { 6100 neg 4500 neg translate} if xchartl 6 eq { 100 neg 0250 neg translate} if xchartl 7 eq { 6100 neg 0250 neg translate} if } for %xchartl=0,07 showpage grestore %} for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 020 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM moveto ( ) show 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 18 %line 409 %!PS-Adobe-3.0 EPSF-3.0 EE600-8, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (EE600-8,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke 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 BeginEPSF 161 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 21 %line 429 %!PS-Adobe-3.0 EPSF-3.0 EE601-1, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (EE601-1,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 22 %line 439 %!PS-Adobe-3.0 EPSF-3.0 EE601-2, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (EE601-2,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 23 %line 449 %!PS-Adobe-3.0 EPSF-3.0 EE601-3, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (EE601-3,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 24 %line 459 %!PS-Adobe-3.0 EPSF-3.0 EE601-4, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (EE601-4,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 25 %line 469 %!PS-Adobe-3.0 EPSF-3.0 EE601-5, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (EE601-5,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 26 %line 479 %!PS-Adobe-3.0 EPSF-3.0 EE601-6, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (EE601-6,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 020 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 27 %line 489 %!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/EE60/EE601-7N 20230801 %%BoundingBox: 70 82 405 580 /pdfmark17 where {pop} {userdict /pdfmark17 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictureS:http://farbe.li.tu-berlin.de/EE60/EE60.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2023080112000) /ModDate (D:20230801112000) /DOCINFO pdfmark17 [ /View [ /FitB ] /DOCVIEW pdfmark17 %190811 all (el35): proc_curve_MUY, proc_linef_MUY, proc_strof_MUY %proc_LMS_: func, funclg, funclga, funclg_a, funclgb, funclg_b, thre %titl2(->tit0, tit2r), titl3(->tit0, tit3r) %tita2(->tita, tit2r), tita3(->tita, tit3r), tit0, tita, tit2r, tit3r %axi0, axis(->axi0), axia(->axio), spet, spea, names, antrt %titl2n(->tit0n, tit3rn), titl3n(->tit0n, tit3rn) %tita2n(->titan, tit2rn), tita3n(->titan, tit3rn) %tit0n, titan, tit2rn, tit3rn, spetn, thren, axian(->axi0) %proc_LI_ (el60-67): LI_lbyf, LI_lgrf, LI_ngrf( all use ->_linef_MUY) % %190811 act (el60_67): proc_curve_MUY, proc_linef_MUY, proc_strof_MUY %proc_LMS_: funclgm. axio, tita3n, tit3rn, titan, spetn, axian, thren %proc_LI_: LI_lbyf(el61,64), LI_lgrf (el62,65), LI_ngrf (el63,66) %(all under work and use ->_linef_MUY, ->_strof_MUY (for tests)) % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TS {160 /Times-ISOL1 FS} bind def /TK {200 /Times-ISOL1 FS} bind def /TM {250 /Times-ISOL1 FS} bind def /TG {300 /Times-ISOL1 FS} bind def /TIS {160 /TimesI-ISOL1 FS} bind def /TIK {200 /TimesI-ISOL1 FS} bind def /TIM {250 /TimesI-ISOL1 FS} bind def /TIG {300 /TimesI-ISOL1 FS} bind def /TBS {160 /TimesB-ISOL1 FS} bind def /TBK {200 /TimesB-ISOL1 FS} bind def /TBM {250 /TimesB-ISOL1 FS} bind def /TBG {300 /TimesB-ISOL1 FS} bind def /TBIS {160 /TimesBI-ISOL1 FS} bind def /TBIK {200 /TimesBI-ISOL1 FS} bind def /TBIM {250 /TimesBI-ISOL1 FS} bind def /TBIG {300 /TimesBI-ISOL1 FS} bind def /SK {200 10 sub /Symbol FS} bind def /SM {250 12 sub /Symbol FS} bind def /SG {300 14 sub /Symbol FS} bind def /nshowG {TG show} bind def /kshowG {TIG show} bind def /bshowG {TBG show} bind def /bishowG {TBIG show} bind def /ishowG {TM 0 -60 rmoveto show 0 60 rmoveto} bind def /ebshowG {TBM 0 200 rmoveto show 0 -200 rmoveto} bind def /sshowG {SG show} bind def /nshowM {TM show} bind def /kshowM {TIM show} bind def /bshowM {TBM show} bind def /bishowM {TBIM show} bind def /ishowM {TK 0 -40 rmoveto show 0 40 rmoveto} bind def /ebshowM {TBK 0 100 rmoveto show 0 -100 rmoveto} bind def /sshowM {SM show} bind def /nshowK {TK show} bind def /kshowK {TIK show} bind def /bshowK {TBK show} bind def /bishowK {TBIK show} bind def /ishowK {TS 0 -30 rmoveto show 0 30 rmoveto} bind def /ebshowK {TBS 0 130 rmoveto show 0 -130 rmoveto} bind def /sshowK {SK show} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 1.0 0.0} bind def %Elementarfarben special for gray surround /tzg {1.0 0.0 1.0 0.0} bind def /tzb {1.0 1.0 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 1.0 0.5} bind def %Elementarfarben vergraut special or gray sur. /tzgz {1.0 0.0 1.0 0.5} bind def /tzbz {1.0 1.0 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def /A4quer {598 0 tl 90 rotate} def /setcmyknew {setcmykcolor} def /outSM {sshowM} def /outSK {sshowK} def /outxshowf {setcmykcolor show} def %for output test only /tspace {dup abs 1.0 le {( ) show} if dup dup -1.0 le exch -10 gt and {( ) show} if dup dup 1.0 gt exch 10 lt and {( ) show} if dup dup 1.0 gt exch 10 ge and {( ) show} if } bind def /trushow {tspace 0.005 add 100 mul truncate 100 div 10 string cvs show} bind def /troshow {0.005 add 100 mul truncate 100 div 10 string cvs show} bind def /trushow4 {0.00005 add 10000 mul truncate 10000 div 10 string cvs show} bind def /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y k {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmykcolor rec stroke} bind def /cvishow {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def %/cvsshow1 {dup 0 ge {0.05 add} {0.05 sub} ifelse % 10 mul cvi 0.1 mul 7 string cvs show} def %/cvsshow2 {dup 0 ge {0.005 add} {0.005 sub} ifelse % 100 mul cvi 0.01 mul 7 string cvs show} def %/cvsshow3 {dup 0 ge {0.0005 add} {0.0005 sub} ifelse % 1000 mul cvi 0.001 mul 7 string cvs show} def % R G B C M Y /tf370 {1.00 0.00 0.20 setrgbcolor} bind def %j50r 0.00 1.00 0.80 %X=370 /tf395 {0.70 0.00 0.20 setrgbcolor} bind def %r 0.00 0.75 1.00 %U=W=395=645 /tf420 {0.50 0.00 1.00 setrgbcolor} bind def %r 0.40 1.00 0.00 %T=I=420=670 /tf445 {0.70 0.00 1.00 setrgbcolor} bind def %b25r 0.50 1.00 0.00 %S=Y=445=695 /tf470 {0.00 0.20 1.00 setrgbcolor} bind def %B 1.00 0.80 0.00 %B=Mc=570c /tf475 {0.00 0.20 1.00 setrgbcolor} bind def %B 1.00 0.80 0.00 %B' new /tf488 {0.00 0.60 1.00 setrgbcolor} bind def %g50b 1.00 0.40 0.00 %B" new /tf495 {0.00 0.80 1.00 setrgbcolor} bind def %g75b 1.00 0.20 0.00 %C=Rc=620c /tf500 {0.00 1.00 0.50 setrgbcolor} bind def %G 1.00 0.00 0.20 %C' new /tf505 {0.00 1.00 0.40 setrgbcolor} bind def %G 1.00 0.00 0.40 %C" new /tf510 {0.00 1.00 0.40 setrgbcolor} bind def %G 1.00 0.00 0.60 %C"' new /tf520 {0.20 1.00 0.25 setrgbcolor} bind def %j66g 0.80 0.00 0.75 %G=520 /tf525 {0.20 1.00 0.25 setrgbcolor} bind def %j66g 0.80 0.00 0.75 %G' new /tf538 {0.40 1.00 0.00 setrgbcolor} bind def %j48g 0.60 0.00 1.00 %G" new /tf545 {0.40 1.00 0.00 setrgbcolor} bind def %j45g 0.55 0.00 1.00 %M=545 /tf550 {0.45 1.00 0.00 setrgbcolor} bind def %j40g 0.45 0.00 1.00 %M' %/tf557 {0.60 1.00 0.00 setrgbcolor} bind def %j33g 0.40 0.00 1.00 %V /tf557 {tfw} def /tf563 {0.80 1.00 0.00 setrgbcolor} bind def %j17g 0.20 0.00 1.00 %V' new /tf570 {1.00 1.00 0.00 setrgbcolor} bind def %J 0.00 0.00 1.00 %M=570 /tf575 {1.00 1.00 0.00 setrgbcolor} bind def %J 0.00 0.00 1.00 %M' /tf595 {1.00 0.50 0.00 setrgbcolor} bind def %j50r 0.00 0.75 1.00 %O=595 /tf600 {1.00 0.20 0.00 setrgbcolor} bind def %j25r 0.00 0.80 1.00 %O' new /tf613 {1.00 0.00 0.00 setrgbcolor} bind def %r 0.00 1.00 1.00 %O" new /tf620 {1.00 0.00 0.20 setrgbcolor} bind def %j50r 0.00 1.00 0.80 %R=620 /tf645 {1.00 0.00 0.00 setrgbcolor} bind def %j75r 0.00 0.00 1.00 %W=645 /tf670 {0.50 0.00 1.00 setrgbcolor} bind def %r 0.40 1.00 0.00 %I=T=670=420 /tf695 {0.70 0.00 1.00 setrgbcolor} bind def %b25r 0.50 1.00 0.00 %Y=S=695=445 /tf50c {1.00 0.00 0.50 setrgbcolor} bind def %b75r 0.00 1.00 0.50 %Gc=520c new /tf720 {0.00 0.20 1.00 setrgbcolor} bind def %B 1.00 0.80 0.00 %W=720=470 /tfRe {1.00 0.00 0.20 setrgbcolor} bind def %Re 0.00 1.00 0.80 %Re /tfYe {1.00 1.00 0.00 setrgbcolor} bind def %Ye 0.00 0.00 1.00 %Ye /tfGe {0.00 1.00 0.20 setrgbcolor} bind def %Ge 1.00 0.00 0.80 %Ge /tfBe {0.00 0.20 1.00 setrgbcolor} bind def %Be 1.00 0.80 0.00 %Be /tti 27 array def /tti [ {(X)} {(U)} {(T)} {(S)} %370(00), 395(01), 420(02), 445(03) {(B)} {(C)} {(G)} {(M)} %470(04), 495(05), 520(06), 545(07) {(L)} {(O)} {(R)} {(W)} %570(08), 595(09), 620(10), 645(11) {(I)} {(Y)} {(V)} %670(12), 695(13), 557(14), {(Be)} {(Ge)} {(Ye)} {(Re)} %470(15), 520(16), 570(17), 620(18) {(Ble)} {(Gle)} {(Yle)} {(Rle)} %470(19), 520(20), 570(21), 620(22) {(Bge)} {(Gge)} {(Yge)} {(Rge)} %470(23), 520(24), 570(25), 620(26) ] def %00-26 /tfi 27 array def /tfi [ {tf370} {tf395} {tf420} {tf445} %00-03 {tf470} {tf495} {tf520} {tf545} %04-07 {tf570} {tf595} {tf620} {tf645} %08-11 {tf670} {tf695} {tf557} %12-14 {tfBe} {tfGe} {tfYe} {tfRe} %15-18 {tfBle} {tfGle} {tfYle} {tfRle} %19-22 {tfBge} {tfGge} {tfYge} {tfRge} %23-26 ] def %00-26 /XtRe {tfRe (R) bishowM (e) ishowK} def /XtGe {tfGe (G) bishowM (e) ishowK} def /XtBe {tfBe (B) bishowM (e) ishowK} def /XtYe {tfYe (Y) bishowM (e) ishowK} def /XtRle {tfRe (R) bishowM (le) ishowK} def /XtGle {tfGe (G) bishowM (le) ishowK} def /XtBle {tfBe (B) bishowM (le) ishowK} def /XtYle {tfYe (Y) bishowM (le) ishowK} def /XtRge {tfRe (R) bishowM (ge) ishowK} def /XtGge {tfGe (G) bishowM (ge) ishowK} def /XtBge {tfBe (B) bishowM (ge) ishowK} def /XtYge {tfYe (Y) bishowM (ge) ishowK} def /Xa {tfn (a) ishowM} def /Xo {tfw (o) ishowM} def /Xla {tfn (la) ishowM} def /Xlo {tfw (lo) ishowM} def /Xga {tfn (ga) ishowM} def /Xgo {tfw (go) ishowM} def /X_a {tfn (_a) ishowM} def /X_o {tfw (_o) ishowM} def /X_la {tfn (_la) ishowM} def /X_lo {tfw (_lo) ishowM} def /X_ga {tfn (_ga) ishowM} def /X_go {tfw (_go) ishowM} def /IWE0 {WE0 370 sub 25 idiv} def /IWE1 {WE1 370 sub 25 idiv} def /IWE2 {WE2 370 sub 25 idiv} def /xpWE0 {0100 300 IWE0 mul add} def /xpWE1 {0100 300 IWE1 mul add} def /xpWE2 {0100 300 IWE2 mul add} def /XnWE0 {tfi IWE0 get exec WE0 6 string cvs bshowM} def /XnWE1 {tfi IWE1 get exec WE1 6 string cvs bshowM} def /XnWE2 {tfi IWE2 get exec WE2 6 string cvs bshowM} def /XtWE0 {tfi IWE0 get exec tti IWE0 get exec bishowM} def /XtWE1 {tfi IWE1 get exec tti IWE1 get exec bishowM} def /XtWE2 {tfi IWE2 get exec tti IWE2 get exec bishowM} def /XtWE0i {tfi IWE0 get exec tti IWE0 get exec ishowK} def /XtWE1i {tfi IWE1 get exec tti IWE1 get exec ishowK} def /XtWE2i {tfi IWE2 get exec tti IWE2 get exec ishowK} def /XnWE0i {tfi IWE0 get exec WE0 6 string cvs ishowK} def /XnWE1i {tfi IWE1 get exec WE1 6 string cvs ishowK} def /XnWE2i {tfi IWE2 get exec WE2 6 string cvs ishowK} def /tfWE0 {tfi IWE0 get exec} def /tfWE1 {tfi IWE1 get exec} def /tfWE2 {tfi IWE2 get exec} def /cvsshoW0 {10 mul 0.5 add cvi 0.1 mul 10 string cvs show} def /cvsshow1 {10 mul 0.5 add cvi 0.1 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow2 {100 mul 0.5 add cvi 0.01 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow3 {1000 mul 0.5 add cvi 0.001 mul 10 string cvs show} def /cvsshow1x {/nxx exch def %example nxx=99.1/99.0 nxx 10 mul cvi /nxi exch def %nxi=991/990 nxi 10 idiv /nxa exch def %nxa=99 nxi nxa 10 mul sub /nxb exch def %nxb=1/0 nxa cvishow (,) show %nxa=99 nxb cvishow %nxb=1/0 } def /cvsshow2x {/nxx exch def %example nxx=99.12/99,02/99,00 nxx 100 mul cvi /nxi exch def %nxi=9912/9902/00 nxi 100 idiv /nxa exch def %nxa=99 nxi nxa 100 mul sub /nxb exch def %nxb=12/02/00 nxa cvishow (,) show %nxb=99, nxb 10 ge {nxb cvishow} if %nxb=12 nxb 1 ge nxb 9 le and {(0) show nxb cvishow} if %nxb=02 nxb 0 eq {(00) show} if %nxb=00 } def /cvsshow3x {/nxx exch def %example nxx=99.123/99.012/99.001/99.000 nxx 1000 mul cvi /nxi exch def %nxi=99123/99012/99001/99000 nxi 1000 idiv /nxa exch def %nxa=99 nxi nxa 1000 mul sub /nxb exch def %nxb=123/012/001/000 nxa cvishow (,) show %nxb=99, nxb 100 ge {nxb cvishow} if %nxb=123/012/001/000 nxb 10 ge nxb 99 le and {(0) show nxb cvishow} if %nxb=012 nxb 1 ge nxb 9 le and {(00) show nxb cvishow} if %nxb=001 nxb 0 eq {(000) show} if %nxb=000 } def /MULX 0600 def /MULY2 1200 0.8 mul 2 mul def /MULY1 1200 0.8 mul 1 mul def /JPPM 4 def /CY 0.35 def /CX 50 def /proc_curve_MUY {%190801 BEG proc_curve_MUY 0 3 72 {/i exch def %i=0,75 ab 380nm bis 710nm i 0 eq {%i=0 /xst {Xi i get 550 sub CX div MULX mul} bind def /yst {IORY Yi i get MUY mul add} bind def xst yst moveto } if %i=0 /xst {Xi i get 550 sub CX div MULX mul} bind def /yst {IORY Yi i get MUY mul add} bind def /x20 {Xi i 1 add get 550 sub CX div MULX mul} bind def /y20 {IORY Yi i 1 add get MUY mul add} bind def /x21 {Xi i 2 add get 550 sub CX div MULX mul} bind def /y21 {IORY Yi i 2 add get MUY mul add} bind def /x22 {Xi i 3 add get 550 sub CX div MULX mul} bind def /y22 {IORY Yi i 3 add get MUY mul add} bind def x20 y20 x21 y21 x22 y22 curveto } for %i=0,75 ab 380nm bis 710nm stroke } bind def %END proc_curve_MUY %***************************************************************** /proc_linef_MUY {%190801 BEG proc_linef_MUY i1 1 i3 {/i exch def %i=0,75 ab 380nm bis 710nm i i1 eq {%i=i1 /xst {Xni i get 550 sub CX div MULX mul} bind def /yst {IORY Yi i get MUY mul add} bind def xst yst moveto } if %i=i1 i i3 le {/xpos {Xni i get 550 sub CX div MULX mul} bind def /ypos {IORY Yi i get MUY mul add} bind def xpos ypos lineto } if i i3 eq {closepath fill} if } for %i=0,75 ab 380nm bis 710nm } bind def %END proc_linef_MUY %***************************************************************** /proc_strof_MUY {%190801 BEG proc_linef_MUY i1 1 i3 {/i exch def %i=0,75 ab 380nm bis 710nm i i1 eq {%i=i1 /xst {Xni i get 550 sub CX div MULX mul} bind def /yst {IORY Yi i get MUY mul add} bind def xst yst moveto } if %i=i1 i i3 le {/xpos {Xni i get 550 sub CX div MULX mul} bind def /ypos {IORY Yi i get MUY mul add} bind def xpos ypos lineto } if i i3 eq {stroke} if } for %i=0,75 ab 380nm bis 710nm } bind def %END proc_strof_MUY %************************************************************* %define arrays of proc_LI_lbyf, -lgrf, -ngrf and main PS-code /Xni 176 array def %new Xi /Xi 176 array def /Yi 176 array def /Yi00 176 array def %WE0n linear /Yi01 176 array def /Yi02 176 array def %WE1n linear /Yi03 176 array def /Yi04 176 array def %WE2n linear /Yi05 176 array def /Yi06 176 array def %WE0n log /Yi07 176 array def /Yi08 176 array def %WE1n log /Yi09 176 array def /Yi10 176 array def %WE2n log /Yi11 176 array def %******************************************************** %define arrays of proc_LMS_funclgm /Yi0l0 176 array def %WE0n 000 000 lin /Yn0l0 176 array def %WE0n nor 000 lin /Yinl0 176 array def %WE0n 000 neg lin /Ynnl0 176 array def %WE0n nor neg lin /Yi0g0 176 array def %WE0n 000 000 log /Yn0g0 176 array def %WE0n nor 000 log /Ying0 176 array def %WE0n 000 neg log /Ynng0 176 array def %WE0n nor neg log /Yi0l1 176 array def %WE1n 000 000 lin /Yn0l1 176 array def %WE1n nor 000 lin /Yinl1 176 array def %WE1n 000 neg lin /Ynnl1 176 array def %WE1n nor neg lin /Yi0g1 176 array def %WE1n 000 000 log /Yn0g1 176 array def %WE1n nor 000 log /Ying1 176 array def %WE1n 000 neg log /Ynng1 176 array def %WE1n nor neg log /Yi0l2 176 array def %WE2n 000 000 lin /Yn0l2 176 array def %WE2n nor 000 lin /Yinl2 176 array def %WE2n 000 neg lin /Ynnl2 176 array def %WE2n nor neg lin /Yi0g2 176 array def %WE2n 000 000 log /Yn0g2 176 array def %WE2n nor 000 log /Ying2 176 array def %WE2n 000 neg log /Ynng2 176 array def %WE2n nor neg log /Yi0l3 176 array def %WE0n 000 000 lin (WE0n+WE2n)*0.5 /Yn0l3 176 array def %WE0n nor 000 lin /Yinl3 176 array def %WE0n 000 neg lin /Ynnl3 176 array def %WE0n nor neg lin /Yi0g3 176 array def %WE0n 000 000 log /Yn0g3 176 array def %WE0n nor 000 log /Ying3 176 array def %WE0n 000 neg log /Ynng3 176 array def %WE0n nor neg log /Yi0l4 176 array def %WE1n 000 000 lin (WE0n-WE3n) /Yn0l4 176 array def %WE1n nor 000 lin /Yinl4 176 array def %WE1n 000 neg lin /Ynnl4 176 array def %WE1n nor neg lin /Yi0g4 176 array def %WE1n 000 000 log /Yn0g4 176 array def %WE1n nor 000 log /Ying4 176 array def %WE1n 000 neg log /Ynng4 176 array def %WE1n nor neg log /Yi0l5 176 array def %WE2n 000 000 lin (WE1n-WE3n) /Yn0l5 176 array def %WE2n nor 000 lin /Yinl5 176 array def %WE2n 000 neg lin /Ynnl5 176 array def %WE2n nor neg lin /Yi0g5 176 array def %WE2n 000 000 log /Yn0g5 176 array def %WE2n nor 000 log /Ying5 176 array def %WE2n 000 neg log /Ynng5 176 array def %WE2n nor neg log /Yi0l6 176 array def %WE0n 000 000 lin (WE2n-WE3n) /Yn0l6 176 array def %WE0n nor 000 lin /Yinl6 176 array def %WE0n 000 neg lin /Ynnl6 176 array def %WE0n nor neg lin /Yi0g6 176 array def %WE0n 000 000 log /Yn0g6 176 array def %WE0n nor 000 log /Ying6 176 array def %WE0n 000 neg log /Ynng6 176 array def %WE0n nor neg log /Yi0l7 176 array def %WE1n 000 000 lin (WE1n-WE0n) /Yn0l7 176 array def %WE1n nor 000 lin /Yinl7 176 array def %WE1n 000 neg lin /Ynnl7 176 array def %WE1n nor neg lin /Yi0g7 176 array def %WE1n 000 000 log /Yn0g7 176 array def %WE1n nor 000 log /Ying7 176 array def %WE1n 000 neg log /Ynng7 176 array def %WE1n nor neg log /Yi0l8 176 array def %WE2n 000 000 lin (WE2n-WE1n) /Yn0l8 176 array def %WE2n nor 000 lin /Yinl8 176 array def %WE2n 000 neg lin /Ynnl8 176 array def %WE2n nor neg lin /Yi0g8 176 array def %WE2n 000 000 log /Yn0g8 176 array def %WE2n nor 000 log /Ying8 176 array def %WE2n 000 neg log /Ynng8 176 array def %WE2n nor neg log /Yi0l9 176 array def %WE2n 000 000 lin (WE2n-WE0n) /Yn0l9 176 array def %WE2n nor 000 lin /Yinl9 176 array def %WE2n 000 neg lin /Ynnl9 176 array def %WE2n nor neg lin /Yi0g9 176 array def %WE2n 000 000 log /Yn0g9 176 array def %WE2n nor 000 log /Ying9 176 array def %WE2n 000 neg log /Ynng9 176 array def %WE2n nor neg log %*************************************************** /proc_LMS_funclgm {%190801 BEG proc_LMS_funclgm %input ILG=0,1; I12=1,2 0 1 76 {/i exch def %i=0,1,76 Xi i i 5 mul 380 add put /YEXP Xi i get WE0 sub CX div dup mul CY mul neg def /EYEXP 10 YEXP exp tsa add dtsa mul def %always for further use of lo Yi0l0 i EYEXP tsb add put Yn0l0 i EYEXP tsb add 2 mul put Yinl0 i EYEXP tsb add neg put Ynnl0 i EYEXP tsb add 2 mul neg put ILG 1 eq {Yi0g0 i EYEXP tsb add abs log put Yn0g0 i EYEXP tsb add abs 2 mul log put Ying0 i EYEXP tsb add abs log neg put Ynng0 i EYEXP tsb add abs 2 mul log neg put } if /YEXP Xi i get WE1 sub CX div dup mul CY mul neg def /EYEXP 10 YEXP exp tsa add dtsa mul def %always for further use of log(linear) Yi0l1 i EYEXP tsb add put Yn0l1 i EYEXP tsb add 2 mul put Yinl1 i EYEXP tsb add neg put Ynnl1 i EYEXP tsb add 2 mul neg put ILG 1 eq {Yi0g1 i EYEXP tsb add abs log put Yn0g1 i EYEXP tsb add abs 2 mul log put Ying1 i EYEXP tsb add abs log neg put Ynng1 i EYEXP tsb add abs 2 mul log neg put } if /YEXP Xi i get WE2 sub CX div dup mul CY mul neg def /EYEXP 10 YEXP exp tsa add dtsa mul def %always for further use of log(linear) Yi0l2 i EYEXP tsb add put Yn0l2 i EYEXP tsb add 2 mul put Yinl2 i EYEXP tsb add neg put Ynnl2 i EYEXP tsb add 2 mul neg put ILG 1 eq {Yi0g2 i EYEXP tsb add abs log put Yn0g2 i EYEXP tsb add abs 2 mul log put Ying2 i EYEXP tsb add abs log neg put Ynng2 i EYEXP tsb add abs 2 mul log neg put } if } for %i=0,1,76 %input ILG=0,1; I12=1,2 0 1 76 {/i exch def %i=0,1,76 %combinations %linear or log summation (Yi00+Yi02)*0.5 or [log(Yi00)+log(Yi02)]*0.5 %always for further use of log(linear) Yi0l3 i Yi0l0 i get Yi0l2 i get add 0.5 mul put Yn0l3 i Yn0l0 i get Yn0l2 i get add 0.5 mul put Yinl3 i Yinl0 i get Yinl2 i get add 0.5 mul put Ynnl3 i Ynnl0 i get Ynnl2 i get add 0.5 mul put ILG 1 eq {Yi0g3 i Yi0g0 i get Yi0g2 i get add 0.5 mul put Yn0g3 i Yn0g0 i get Yn0g2 i get add 0.5 mul put Ying3 i Ying0 i get Ying2 i get add 0.5 mul put Ynng3 i Ynng0 i get Ynng2 i get add 0.5 mul put } if /iouty 0 def iouty 1 eq {%iouty=1 %linear or log difference (Yi00-Yi03)*0.5 or [log(Yi00)-log(Yi03)]*0.5 %always for further use of log(linear) Yi0l4 i Yi0l0 i get Yi0l3 i get sub 0.5 mul put Yn0l4 i Yn0l0 i get Yn0l3 i get sub 0.5 mul put Yinl4 i Yinl0 i get Yinl3 i get sub 0.5 mul put Ynnl4 i Ynnl0 i get Ynnl3 i get sub 0.5 mul put ILG 1 eq {Yi0g4 i Yi0g0 i get Yi0g3 i get sub 0.5 mul put Yn0g4 i Yn0g0 i get Yn0g3 i get sub 0.5 mul put Ying4 i Ying0 i get Ying3 i get sub 0.5 mul put Ynng4 i Ynng0 i get Ynng3 i get sub 0.5 mul put } if %linear or log difference (Yi01-Yi03)*0.5 or [log(Yi01)-log(Yi03)]*0.5 %always for further use of log(linear) Yi0l5 i Yi0l1 i get Yi0l3 i get sub 0.5 mul put Yn0l5 i Yn0l1 i get Yn0l3 i get sub 0.5 mul put Yinl5 i Yinl1 i get Yinl3 i get sub 0.5 mul put Ynnl5 i Ynnl1 i get Ynnl3 i get sub 0.5 mul put ILG 1 eq {Yi0g5 i Yi0g1 i get Yi0g3 i get sub 0.5 mul put Yn0g5 i Yn0g1 i get Yn0g3 i get sub 0.5 mul put Ying5 i Ying1 i get Ying3 i get sub 0.5 mul put Ynng5 i Ynng1 i get Ynng3 i get sub 0.5 mul put } if %linear or log difference (Yi02-Yi03)*0.5 or [log(Yi02)-log(Yi03)]*0.5 %always for further use of log(linear) Yi0l6 i Yi0l2 i get Yi0l3 i get sub 0.5 mul put Yn0l6 i Yn0l2 i get Yn0l3 i get sub 0.5 mul put Yinl6 i Yinl2 i get Yinl3 i get sub 0.5 mul put Ynnl6 i Ynnl2 i get Ynnl3 i get sub 0.5 mul put ILG 1 eq {Yi0g6 i Yi0g2 i get Yi0g3 i get sub 0.5 mul put Yn0g6 i Yn0g2 i get Yn0g3 i get sub 0.5 mul put Ying6 i Ying2 i get Ying3 i get sub 0.5 mul put Ynng6 i Ynng2 i get Ynng3 i get sub 0.5 mul put } if %linear or log difference (Yi00-Yi01)*0.5 or [log(Yi00)-log(Yi01)]*0.5 %always for further use of log(linear) Yi0l7 i Yi0l0 i get Yi0l1 i get sub 0.5 mul put Yn0l7 i Yn0l0 i get Yn0l1 i get sub 0.5 mul put Yinl7 i Yinl0 i get Yinl1 i get sub 0.5 mul put Ynnl7 i Ynnl0 i get Ynnl1 i get sub 0.5 mul put ILG 1 eq {Yi0g7 i Yi0g0 i get Yi0g1 i get sub 0.5 mul put Yn0g7 i Yn0g0 i get Yn0g1 i get sub 0.5 mul put Ying7 i Ying0 i get Ying1 i get sub 0.5 mul put Ynng7 i Ynng0 i get Ynng1 i get sub 0.5 mul put } if %linear or log difference (Yi02-Yi01)*0.5 or [log(Yi02)-log(Yi01)]*0.5 %always for further use of log(linear) Yi0l8 i Yi0l2 i get Yi0l1 i get sub 0.5 mul put Yn0l8 i Yn0l2 i get Yn0l1 i get sub 0.5 mul put Yinl8 i Yinl2 i get Yinl1 i get sub 0.5 mul put Ynnl8 i Ynnl2 i get Ynnl1 i get sub 0.5 mul put ILG 1 eq {Yi0g8 i Yi0g2 i get Yi0g1 i get sub 0.5 mul put Yn0g8 i Yn0g2 i get Yn0g1 i get sub 0.5 mul put Ying8 i Ying2 i get Ying1 i get sub 0.5 mul put Ynng8 i Ynng2 i get Ynng1 i get sub 0.5 mul put } if %linear or log difference (Yi02-Yi00)*0.5 or [log(Yi02)-log(Yi00)]*0.5 %always for further use of log(linear) Yi0l9 i Yi0l2 i get Yi0l0 i get sub 0.5 mul put Yn0l9 i Yn0l2 i get Yn0l0 i get sub 0.5 mul put Yinl9 i Yinl2 i get Yinl0 i get sub 0.5 mul put Ynnl9 i Ynnl2 i get Ynnl0 i get sub 0.5 mul put ILG 1 eq {Yi0g9 i Yi0g2 i get Yi0g0 i get sub 0.5 mul put Yn0g9 i Yn0g2 i get Yn0g0 i get sub 0.5 mul put Ying9 i Ying2 i get Ying0 i get sub 0.5 mul put Ynng9 i Ynng2 i get Ynng0 i get sub 0.5 mul put } if } if %iouty=1 } for %i=0,1,76 } bind def %END proc_LMS_funclgm %**************************************************** /proc_LI_lbyfm {%190801 BEG proc_LI_lbyfm %input ceroc, Yi03, Yi01: i=0 to 76 10 setlinewidth 0 1 2 {/kx exch def %kx=0,2 %/kx 0 def kx 0 eq {%kx=0 xchartl 5 le {tfYe}{tfBe} ifelse /i10 525 380 sub 5 idiv def %28 /i20 620 380 sub 5 idiv def %38 /i11 620 380 sub 5 idiv def %28 /i21 525 380 sub 5 idiv def %38 } if %kx=0 kx 1 eq {%kx=1 xchartl 5 le {tfBe}{tfYe} ifelse /i10 380 380 sub 5 idiv def %28 /i20 525 380 sub 5 idiv def %38 /i11 525 380 sub 5 idiv def %28 /i21 380 380 sub 5 idiv def %38 } if %kx=1 kx 2 eq {%kx=2 xchartl 5 le {tfBe}{tfYe} ifelse /i10 615 380 sub 5 idiv def %28 /i20 740 380 sub 5 idiv def %38 /i11 740 380 sub 5 idiv def %28 /i21 615 380 sub 5 idiv def %38 } if %kx=2 /id1 i20 i10 sub abs 0 add def /id2 i21 i11 sub abs 0 add def 0 1 76 {/i exch def Xni i 380 i 5 mul add put Yi i i i10 lt {ceroc put} if i i10 ge i i20 lt and {Yi03 i get put} if i i20 ge {ceroc put} if } for 0 1 id2 {/i exch def /ix i11 i sub def Xni i20 i add Xi ix get put Yi i20 i add Yi01 ix get put } for /i1 i10 def /i3 i20 id2 add def %proc_strof_MUY proc_linef_MUY } for %kx=0,2 40 setlinewidth } bind def %END proc_LI_lbyfm %**************************************************** /proc_LI_lgrfm {%190801 BEG proc_LI_lgrfm %input ceroc, Yi03, Yi00, Yi02: i=0 to 76 10 setlinewidth 0 1 1 {/kx exch def %kx=0,2 %/kx 0 def kx 0 eq {%kx=0 xchartl 5 le {tfGe}{tfRe} ifelse /i10 380 380 sub 5 idiv def %28 /i20 570 380 sub 5 idiv def %38 /i11 570 380 sub 5 idiv def %28 /i21 380 380 sub 5 idiv def %38 } if %kx=0 kx 1 eq {%kx=1 xchartl 5 le {tfRe}{tfGe} ifelse /i10 570 380 sub 5 idiv def %28 /i20 700 380 sub 5 idiv def %38 /i11 700 380 sub 5 idiv def %28 /i21 570 380 sub 5 idiv def %38 } if %kx=1 /id1 i20 i10 sub abs 0 add def /id2 i21 i11 sub abs 0 add def 0 1 76 {/i exch def Xni i 380 i 5 mul add put Yi i i i10 lt {ceroc put} if i i10 ge i i20 lt and {Yi03 i get put} if i i20 ge {ceroc put} if } for 0 1 id2 {/i exch def /ix i11 i sub def Xni i20 i add Xi ix get put Yi i20 i add kx 0 eq {Yi00 ix get put} if kx 1 eq {Yi02 ix get put} if } for /i1 i10 def /i3 i20 id2 add def %proc_strof_MUY proc_linef_MUY } for %kx=0,1 40 setlinewidth } bind def %END proc_LI_lgrfm %**************************************************** /proc_LI_ngrfm {%190801 BEG proc_LI_ngrfm %input ceroc, Yi00, Yi02: i=0 to 76 10 setlinewidth 0 1 1 {/kx exch def %kx=0,1 %/kx 0 def kx 0 eq {%kx=0 xchartl 5 le {tfGe}{tfRe} ifelse /i10 400 380 sub 5 idiv def %28 /i20 570 380 sub 5 idiv def %38 /i11 570 380 sub 5 idiv def %28 /i21 400 380 sub 5 idiv def %38 } if %kx=0 kx 1 eq {%kx=1 xchartl 5 le {tfRe}{tfGe} ifelse /i10 570 380 sub 5 idiv def %28 /i20 730 380 sub 5 idiv def %38 /i11 730 380 sub 5 idiv def %28 /i21 570 380 sub 5 idiv def %38 } if %kx=1 /id1 i20 i10 sub abs 0 add def /id2 i21 i11 sub abs 0 add def 0 1 76 {/i exch def Xni i 380 i 5 mul add put Yi i i i10 lt {ceroc put} if i i10 ge i i20 lt and {Yi00 i get put} if i i20 ge {ceroc put} if } for 0 1 id2 {/i exch def /ix i11 i sub def Xni i20 i add Xi ix get put Yi i20 i add Yi02 ix get put } for /i1 i10 def /i3 i20 id2 add def %proc_strof_MUY proc_linef_MUY } for %kx=0,1 40 setlinewidth } bind def %END proc_LI_ngrfm %**************************************************** /proc_LMS_antrt {%BEG 190813 proc_LMS_antrt %anti reference text (antrt) /Xb {tfn (b) ishowM} def /Xn {tfw (n) ishowM} def /Xlb {tfn (lb) ishowM} def /Xln {tfw (ln) ishowM} def /Xgb {tfn (gb) ishowM} def /Xgn {tfw (gn) ishowM} def /X_b {tfn (_b) ishowM} def /X_n {tfw (_n) ishowM} def /X_lb {tfn (_lb) ishowM} def /X_ln {tfw (_ln) ishowM} def /X_gb {tfn (_gb) ishowM} def /X_gn {tfw (_gn) ishowM} def } bind def %END proc_LMS_antrt %*********************************************** /proc_LMS_tita3n {%190801 BEG proc_LMS_tita3n proc_LMS_titan proc_LMS_tit3rn } bind def %END proc_LMS_tita3n %*********************************************** /proc_LMS_titan {%190801 BEG proc_LMS_titan 300 -150 moveto IRS 0 eq {(lin:) show}{(log:) show} ifelse tfn WE0 cvishow (, ) show WE1 cvishow (, ) show WE2 cvishow 010 3800 moveto tfw ILG 1 eq {TBM (logarithm. [) showde (logarithmic [) showen} if xchartl 0 eq xchartl 1 eq or {%0&1 XtWE0 Xo tfw (, ) bshowM XtWE2 Xo tfw (, ) bshowM XtWE1 Xla } if %0&1 xchartl 2 eq xchartl 3 eq or {%2&3 XtWE0 X_o tfw (, ) bshowM XtWE2 X_o tfw (, ) bshowM XtWE1 X_la } if %2&3 xchartl 4 eq xchartl 5 eq or {%4&5 XtWE0 Xn tfw (, ) bshowM XtWE2 Xn tfw (, ) bshowM XtWE1 Xln } if %4&5 xchartl 6 eq xchartl 7 eq or {%6&7 XtWE0 X_n tfw (, ) bshowM XtWE2 X_n tfw (, ) bshowM XtWE1 X_ln } if %6&7 ILG 1 eq {tfw (]) bshowM} if tfw TBM (\255Daten) showde ( data) showen 010 3500 moveto XtWE1 Xla tfw (=\050) bshowM XtWE0 Xo tfw (+) bshowM XtWE2 Xo tfw (\051/2) bshowM xchartl 4 ge {%>=4 tfw (=) bshowM XtWE0 Xn tfw (+) bshowM XtWE2 Xn } if %>=4 010 3200 moveto xchartl 2 eq xchartl 3 eq or {%2&3 XtWE1 X_la tfw (=1-) bshowM XtWE1 Xla } if %2&3 xchartl 4 eq xchartl 5 eq or {%4&5 XtWE1 Xln tfw (=) bshowM XtWE1 Xla tfw (=\050) bshowM XtWE0 Xn tfw (+) bshowM XtWE2 Xn tfw (\051/2) bshowM } if %4&5 xchartl 6 eq xchartl 7 eq or {%6&7 XtWE1 X_ln tfw (=2-) bshowM XtWE1 Xln } if %6&7 010 2900 moveto ILG 1 eq {tfw (log[) bshowM} if xchartl 0 eq xchartl 1 eq or {%0&1 XtWE0 Xo tfw (, ) bshowM XtWE2 Xo tfw (, ) bshowM XtWE1 Xla } if %0&1 xchartl 2 eq xchartl 3 eq or {%2&3 XtWE0 X_o tfw (, ) bshowM XtWE2 X_o tfw (, ) bshowM XtWE1 X_la } if %2&3 xchartl 4 eq xchartl 5 eq or {%4&5 XtWE0 Xn tfw (, ) bshowM XtWE2 Xn tfw (, ) bshowM XtWE1 Xln } if %4&5 xchartl 6 eq xchartl 7 eq or {%6&7 XtWE0 X_n tfw (, ) bshowM XtWE2 X_n tfw (, ) bshowM XtWE1 X_ln } if %6&7 ILG 1 eq {tfw (]) bshowM} if /funcWE1_WE0 WE1 WE0 sub CX div dup mul CY mul neg def /funcWE1_WE2 WE1 WE2 sub CX div dup mul CY mul neg def } bind def %END proc_LMS_titan %********************************************* /proc_LMS_tit3rn {%190801 BEG proc_LMS_tit3rn 3850 3800 moveto tfw (u) bishowM 0 -60 rmoveto (l) outSK 0 10 rmoveto (=\050) bshowM (l) outSM (-550\051/50) bshowM 2900 3500 moveto tfw (log) bshowM 20 0 rmoveto XtWE0 Xo 20 0 rmoveto tfw (=-0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM XnWE0i (]) TBM tfw show (2) ebshowM 2900 3200 moveto tfw (log) bshowM 20 0 rmoveto XtWE2 Xo 20 0 rmoveto tfw (=-0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM XnWE2i (]) TBM tfw show (2) ebshowM 2900 2900 moveto xchartl 0 eq xchartl 1 eq or {%xchartl 0%1 tfw (log) bshowM 20 0 rmoveto XtWE1 Xo 20 0 rmoveto tfw (=-0,35[) bshowM (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM XnWE1i (]) TBM tfw show (2) ebshowM } if %xchartl 0&1 xchartl 2 eq xchartl 3 eq or {%xchartl 2&3 XtWE0 X_o 20 0 rmoveto tfw (=1-) bshowM XtWE0 Xo tfw (; ) bshowM XtWE2 X_o 20 0 rmoveto tfw (=1-) bshowM XtWE2 Xo } if %xchartl 2&3 xchartl 4 eq xchartl 5 eq or {%xchartl 4&5 XtWE0 Xn 20 0 rmoveto tfw (=2) bshowM XtWE0 Xo tfw (; ) bshowM XtWE2 Xn 20 0 rmoveto tfw (=2) bshowM XtWE2 Xo } if %xchartl 4&5 xchartl 6 eq xchartl 7 eq or {%xchartl 6&7 XtWE0 X_n 20 0 rmoveto tfw (=2-) bshowM XtWE0 Xn tfw (; ) bshowM XtWE2 X_n 20 0 rmoveto tfw (=2-) bshowM XtWE2 Xn } if %xchartl 6&7 3600 2600 moveto tfw (Adapt.: ) bshowM tfw (l) outSM XtWE0i XtWE2i tfw (=) bshowM XnWE1 } bind def %END proc_LMS_tit3rn %*********************************************************** /proc_LMS_spetn {%190801 BEG proc_LMS_spetn %special text %reference position: 370, 420, 470, 520, 570, 620, 670, 720 %xpWEi=100+600j 0100,0700,1300,1900,2500,3100,3700,4300 /xpos0 0100 300 IWE0 mul add def /xpos1 0100 300 IWE1 mul add def /xpos2 0100 300 IWE2 mul add def xchartl 0 eq {%xchartl =0 570(2500) xpos0 450 sub 2200 moveto XtWE0 Xo xpos2 550 add 2200 moveto XtWE2 Xo xpos1 100 add 1700 moveto XtWE1 Xla } if %xchartl =0 xchartl 1 eq {%xchartl =1 %WE1=570(2500) xpos0 600 sub 2200 moveto XtWE0 Xo xpos2 650 add 2200 moveto XtWE2 Xo xpos1 100 add 2000 moveto XtWE1 Xla } if %xchartl =1 xchartl 2 eq {%xchartl =2 570(2500) xpos0 100 sub 2200 moveto XtWE2 X_o xpos2 050 add 2200 moveto XtWE0 X_o xpos1 000 add 1700 moveto XtWE1 X_la } if %xchartl =2 xchartl 3 eq {%xchartl =3 %WE1=570(2500) xpos0 100 sub 2200 moveto XtWE2 X_o xpos2 100 add 2200 moveto XtWE0 X_o xpos1 000 add 1400 moveto XtWE1 X_la } if %xchartl =3 xchartl 4 eq {%xchartl =4 570(2500) xpos0 500 sub 2200 moveto XtWE0 Xn xpos2 550 add 2200 moveto XtWE2 Xn xpos1 100 add 1700 moveto XtWE1 Xln } if %xchartl =4 xchartl 5 eq {%xchartl =5 %WE1=570(2500) xpos0 200 sub 2250 moveto XtWE0 Xn xpos2 100 add 2250 moveto XtWE2 Xn xpos1 000 add 1650 moveto XtWE1 Xln } if %xchartl =5 xchartl 6 eq {%xchartl =6 570(2500) xpos0 000 sub 2200 moveto XtWE2 X_n xpos2 000 add 2200 moveto XtWE0 X_n xpos1 000 add 1700 moveto XtWE1 X_ln } if %xchartl =6 xchartl 7 eq {%xchartl =7 %WE1=570(2500) xpos0 200 sub 0700 moveto XtWE0 X_n xpos2 300 add 0700 moveto XtWE2 X_n xpos1 000 add 1700 moveto XtWE1 X_ln } if %xchartl =7 } bind def %END proc_LMS_spetn %************************************************ /proc_LMS_thren {%190801 BEG proc_LMS_thren /ydelt 225 def /YEXP funcWE1_WE2 def /EYEXP 10 YEXP exp tsa add def xchartl 4 ge {/EYEXP EYEXP 2 mul def} if /YEXP xchartl 3 le {1 log EYEXP log sub def} {2 log EYEXP log sub def} ifelse xts yts 0 ydelt mul sub moveto (maximum) bshowK xts yts 1 ydelt mul sub moveto (log\050) bshowK XtWE1 xchartl 3 le {Xla}{Xln} ifelse tfw (m) ishowK (\051=-) bshowK YEXP dup 0 lt {neg} if cvsshow2x xts yts 2 ydelt mul sub moveto XtWE1 xchartl 3 le {Xla}{Xln} ifelse tfw (m) ishowK (=) bshowK EYEXP cvsshow2x xts yts 3 ydelt mul sub moveto TBK (thresholds) showen (Schwellen) showde xts yts 4 ydelt mul sub moveto (t) bshowK (a) ishowK (=) bshowK tsa cvsshow2x (, ) bshowK (t) bshowK (b) ishowK (=) bshowK tsb cvsshow2x } bind def %END proc_LMS_thren %******************************************* /proc_LMS_axian {%190801 BEG proc_LMS_axian (anti chromatic) proc_LMS_axi0 %without y-axis %!y-Axis: 100 S-units = 960 = 1200*0.8 Scal units 0 1 4 {/i exch def /iyt {150 i 0480 mul add} def /iyl {240 i 0480 mul add} def -450 xchartl 3 le {100 add} if iyt moveto xchartl 3 le {%xchartl<=3 %new tye ILG 0 eq {tyl}{TBK tye} ifelse i get exec show } if %xchartl<=3 xchartl 3 gt {%xchartl>3 ILG 0 eq {tyl2}{TBK tys2} ifelse i get exec show } if %xchartl>3 -075 iyl moveto 150 0 rlineto stroke } for } bind def %END proc_LMS_axian (anti chormatic) %*************************************************** /proc_LMS_axi0 {%190801 BEG proc_LMS_axi0 TBM /tx [ (400) (500) (600) (700)] def /tyl [(0,0) () (0,5) () (1,0)] def /tyl2 [( 0) () ( 1) () ( 2)] def /tye [(-2) () (-1) () ( 0)] def /tys [(-1) ( ) ( 0) ( ) ( 1) ] def /tu [ (-3) (-1) ( 1) ( 3)] def /tyu [(-1,0) ( ) (-0,5) ( ) ( 0,0)] def /tys2 [(-0,5) ( ) ( 0,0) ( ) ( 0,5) ] def %!u-Achse: 100 Einheiten = 1200 Skalen-Einheiten 0 1 3 {/i exch def %i=0,3 /ixt {100 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt 100 moveto tu i get exec show } for %i=0,3 % 550 nm; u=0.0 /ixt -180 1.50 1200 mul add def /ixl 240 1.50 1200 mul add def tf550 ixt 350 add 100 moveto (0) show /ixt 20 1860 add def ixt -320 moveto (550) show ixl 75 moveto 0 -150 rlineto stroke 4700 450 sub 050 350 sub moveto tfw (l) outSM 20 0 rmoveto (/nm) bshowM 5000 450 sub 450 350 sub moveto (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto %!x-Achse: 100 Einheiten = 1200 Skalen-Einheiten tfw 0 1 3 {/i exch def /ixt {070 i 1200 mul add} def /ixl {240 i 1200 mul add} def ixt -300 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %no !y-Achse: 100 S-Einheiten = 960 = 1200*0.8 Skalen-Einheiten } bind def %END proc_LMS_axi0 %**************************************************** %%EndProlog gsave %LANINDL2 START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /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 /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /xcolorg where {pop /xcolor xcolorg def} {/xcolor 0 def} ifelse /xchartg where {pop /xchart xchartg def} {/xchart 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage gsave 70 90 translate 0.01 MM dup scale 20 setlinewidth /rtext 1 def rtext 1 eq {%if rtext=1 20 setlinewidth 0 0 11600 17100 0.0 0.0 0.0 0.0 colrecfi %area white grey 0 0 11600 17100 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz 150 /Times-ISOL1 FS 100 -150 moveto (EE601-7N) show %(_) show xchartx 1 add cvishow } if %rtext=1 /xchartl 0 def 0 1 07 {/xchartl exch def %xchartl=0,07 %/xchartl def 20 setlinewidth xchartl 0 eq { 100 13000 translate} if xchartl 1 eq { 6100 13000 translate} if xchartl 2 eq { 100 08750 translate} if xchartl 3 eq { 6100 08750 translate} if xchartl 4 eq { 100 4500 translate} if xchartl 5 eq { 6100 4500 translate} if xchartl 6 eq { 100 0250 translate} if xchartl 7 eq { 6100 0250 translate} if 0 setgray 150 /Times-ISOL1 FS 4200 -150 moveto (EE601-) show xchartl 1 add cvishow (N) show %N /ibil 0 def /ILK 2 def /ILS 0 def /ILT 0 def/ILU 1 def /IKOM 3 def %N curve, not used /ILN 3 def %U&T /JPPM 3 def %three curves ILT 0 eq {/tsa 0.030 def /dtsa 1 1 tsa add div def} if ILT 1 eq {/tsa 0.007 def} if /tsb 0.000 def 30 setlinewidth [ ] 0 setdash 0.0 0.0 0.0 0.5 setcmykcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill 0 setgray 150 /Times-ISOL1 FS proc_LMS_antrt gsave %start because of clip %***************************************************************** xchartl 0 eq {%xchartl=0, Rlin:545,570,585 /WE0 545 def /WE1 570 def /WE2 595 def /IRS 0 def /ILG 0 def /I12 1 def proc_LMS_titan proc_LMS_tit3rn xpWE0 150 sub 2600 moveto XnWE0 xpWE1 2600 moveto XnWE1 xpWE2 150 add 2600 moveto XnWE2 proc_LMS_spetn tfw 450 350 translate 40 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 2700 0.8 mul rlineto stroke 0 2700 0.8 mul moveto 340 12 mul 0 rlineto stroke proc_LMS_axian /yta 0 def ILS 0 ne ILT 1 eq and {/yta 650 def} if /xts -150 3 1200 mul add def %special /yts 500 3 0480 mul add yta add def %special proc_LMS_thren 40 setlinewidth %Cero point at 550 nm /X0T {550 380 sub 12 mul} def X0T 0 translate 0 setlinewidth % fuer clip 0.0 0.0 0.0 0.5 setcmykcolor /Y0C 050 def /Y1C 2450 def X0T neg 100 add Y0C moveto 4650 0 rlineto 0 Y1C rlineto -4650 0 rlineto 0 Y1C neg rlineto clip stroke proc_LMS_funclgm 40 setlinewidth /IORY 2700 0.8 mul def 0 480 4 mul neg translate /JPPM 4 def 0 1 JPPM {/jkurv exch def %jkurv=0,3 [ ] 0 setdash %usually continues curves jkurv 0 eq {tfWE0 [100 100] 0 setdash} if jkurv 1 eq {tfWE1} if jkurv 2 eq {tfWE2 [100 100] 0 setdash} if jkurv 3 eq {tfWE1} if jkurv 4 eq {tf620} if 0 1 76 {/i exch def %i=0,76 Yi00 i Yi0l0 i get put Yi01 i Yi0l1 i get put Yi02 i Yi0l2 i get put Yi03 i Yi0l3 i get put % Yi04 i Yi0l4 i get put % Yi05 i Yi0l5 i get put % Yi06 i Yi0l6 i get put % Yi07 i Yi0l7 i get put % Yi08 i Yi0l8 i get put % Yi09 i Yi0l9 i get put } for %i=0,76 0 1 76 {/i exch def jkurv 0 eq {Yi i Yi00 i get put} if %jkurv=0 jkurv 1 eq {Yi i Yi01 i get put} if %jkurv=1 jkurv 2 eq {Yi i Yi02 i get put} if %jkurv=2 jkurv 3 eq {Yi i Yi03 i get put} if %jkurv=3 jkurv 4 eq {Yi i 0.5 put} if %jkurv=4 } for % 0 1 2 3 4 5 6 7 8 9 10 11 12 /kurvi [1 1 1 1 1 0 0 0 0 0 0 0 0] def kurvi jkurv get 1 eq {%kurvi=1 /MUY MULY2 I12 div def proc_curve_MUY } if %kurvi=1 } for %jkurv=0,JPPM /iout 1 def iout 1 eq {%iout=1 %additionally dashed curve, no. 3 [100 100] 0 setdash %dashed curves 0 0 0 1 setcmykcolor %black 0 1 76 {/i exch def Yi i Yi03 i get put} for /MUY MULY2 I12 div def proc_curve_MUY %additionally dashed curve, no. 4 %[050 100] 0 setdash %dashed curves %0 0 0 1 setcmykcolor %black %0 1 76 {/i exch def Yi i Yi04 i get put} for %/MUY MULY2 I12 div def %proc_curve_MUY } if %iout=1 0 480 4 mul translate X0T neg 0 translate -450 -350 translate } if %xchartl=0 %***************************************************************** xchartl 1 eq {%xchartl=1, Rlog:545,570,585 /WE0 545 def /WE1 570 def /WE2 595 def /IRS 1 def /ILG 1 def /I12 1 def proc_LMS_titan proc_LMS_tit3rn xpWE0 150 sub 2600 moveto XnWE0 xpWE1 2600 moveto XnWE1 xpWE2 150 add 2600 moveto XnWE2 proc_LMS_spetn tfw 450 350 translate 40 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 2700 0.8 mul rlineto stroke 0 2700 0.8 mul moveto 340 12 mul 0 rlineto stroke %0 240 480 2 mul add moveto 340 12 mul 0 rlineto stroke %cero line %2700*0.8=2160; 240+480*4=240+1920=2160; 0.5 log = -0.30102999 % 0 2700 0.8 mul %0.5 log line % 2700 0.8 mul 0.5 log mul add moveto 340 12 mul 0 rlineto stroke proc_LMS_axian /yta 0 def ILS 0 ne ILT 1 eq and {/yta 650 def} if /xts -150 3 1200 mul add def /yts 500 3 0480 mul add yta add def proc_LMS_thren 40 setlinewidth %Cero point at 550 nm /X0T {550 380 sub 12 mul} def X0T 0 translate 0 setlinewidth % fuer clip 0.0 0.0 0.0 0.5 setcmykcolor /Y0C 050 def /Y1C 2450 def X0T neg 100 add Y0C moveto 4650 0 rlineto 0 Y1C rlineto -4650 0 rlineto 0 Y1C neg rlineto clip stroke proc_LMS_funclgm 40 setlinewidth /IORY 2700 0.8 mul def %0 480 4 mul neg translate /JPPM 4 def 0 1 JPPM {/jkurv exch def %jkurv=0,3 [ ] 0 setdash %usually continues curves jkurv 0 eq {tfWE0 [100 100] 0 setdash} if jkurv 1 eq {tfWE1} if jkurv 2 eq {tfWE2 [100 100] 0 setdash} if jkurv 3 eq {tfWE1} if jkurv 4 eq {tf620} if 0 1 76 {/i exch def %i=0,76 Yi00 i Yi0g0 i get put Yi01 i Yi0g1 i get put Yi02 i Yi0g2 i get put Yi03 i Yi0l3 i get log put % Yi04 i Yi0g4 i get put % Yi05 i Yi0g5 i get put % Yi06 i Yi0g6 i get put % Yi07 i Yi0g7 i get put % Yi08 i Yi0g8 i get put % Yi09 i Yi0g9 i get put } for %i=0,76 0 1 76 {/i exch def jkurv 0 eq {Yi i Yi00 i get put} if %jkurv=0 jkurv 1 eq {Yi i Yi01 i get put} if %jkurv=1 jkurv 2 eq {Yi i Yi02 i get put} if %jkurv=2 jkurv 3 eq {Yi i Yi03 i get put} if %jkurv=3 jkurv 4 eq {Yi i 0.5 log put} if %jkurv=4 } for % 0 1 2 3 4 5 6 7 8 9 10 11 12 /kurvi [1 1 1 1 1 0 0 0 0 0 0 0 0] def kurvi jkurv get 1 eq {%kurvi=1 /MUY MULY2 I12 div def proc_curve_MUY } if %kurvi=1 } for %jkurv=0,JPPM /iout 1 def iout 1 eq {%iout=1 %additionally dashed curve, no. 3 [100 100] 0 setdash %dashed curves 0 0 0 1 setcmykcolor %black 0 1 76 {/i exch def Yi i Yi03 i get put} for /MUY MULY2 I12 div def proc_curve_MUY %additionally dashed curve, no. 4 %[050 100] 0 setdash %dashed curves %0 0 0 1 setcmykcolor %black %0 1 76 {/i exch def Yi i Yi04 i get put} for %not used %/MUY MULY2 I12 div def %proc_curve_MUY } if %iout=1 %0 480 4 mul translate X0T neg 0 translate -450 -350 translate } if %xchartl=1 %***************************************************************** xchartl 2 eq {%xchartl=2, Rlin:545,570,585 /WE0 545 def /WE1 570 def /WE2 595 def /IRS 0 def /ILG 0 def /I12 1 def proc_LMS_titan proc_LMS_tit3rn xpWE0 150 sub 2600 moveto XnWE0 xpWE1 2600 moveto XnWE1 xpWE2 150 add 2600 moveto XnWE2 proc_LMS_spetn tfw 450 350 translate 40 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 2700 0.8 mul rlineto stroke 0 2700 0.8 mul moveto 340 12 mul 0 rlineto stroke proc_LMS_axian /yta 0 def ILS 0 ne ILT 1 eq and {/yta 650 def} if /xts -150 3 1200 mul add def %special /yts 500 3 0480 mul add yta add def %special proc_LMS_thren 40 setlinewidth %Cero point at 550 nm /X0T {550 380 sub 12 mul} def X0T 0 translate 0 setlinewidth % fuer clip 0.0 0.0 0.0 0.5 setcmykcolor /Y0C 050 def /Y1C 2450 def X0T neg 100 add Y0C moveto 4650 0 rlineto 0 Y1C rlineto -4650 0 rlineto 0 Y1C neg rlineto clip stroke proc_LMS_funclgm 40 setlinewidth /IORY 2700 0.8 mul def %0 480 4 mul neg translate /JPPM 4 def 0 1 JPPM {/jkurv exch def %jkurv=0,3 [ ] 0 setdash %usually continues curves jkurv 0 eq {tfWE0 [100 100] 0 setdash} if jkurv 1 eq {tfWE1} if jkurv 2 eq {tfWE2 [100 100] 0 setdash} if jkurv 3 eq {tfWE1} if jkurv 4 eq {tf620} if 0 1 76 {/i exch def %i=0,76 Yi00 i Yinl0 i get put Yi01 i Yinl1 i get put Yi02 i Yinl2 i get put Yi03 i Yinl3 i get put % Yi04 i Yinl4 i get put % Yi05 i Yinl5 i get put % Yi06 i Yinl6 i get put % Yi07 i Yinl7 i get put % Yi08 i Yinl8 i get put % Yi09 i Yinl9 i get put } for %i=0,76 0 1 76 {/i exch def jkurv 0 eq {Yi i Yi00 i get put} if %jkurv=0 jkurv 1 eq {Yi i Yi01 i get put} if %jkurv=1 jkurv 2 eq {Yi i Yi02 i get put} if %jkurv=2 jkurv 3 eq {Yi i Yi03 i get put} if %jkurv=3 jkurv 4 eq {Yi i 0.5 neg put} if %jkurv=4 } for % 0 1 2 3 4 5 6 7 8 9 10 11 12 /kurvi [1 1 1 1 1 0 0 0 0 0 0 0 0] def kurvi jkurv get 1 eq {%kurvi=1 /MUY MULY2 I12 div def proc_curve_MUY } if %kurvi=1 } for %jkurv=0,JPPM /iout 1 def iout 1 eq {%iout=1 %additionally dashed curve, no. 3 [100 100] 0 setdash %dashed curves 0 0 0 1 setcmykcolor %black 0 1 76 {/i exch def Yi i Yi03 i get put} for /MUY MULY2 I12 div def proc_curve_MUY %additionally dashed curve, no. 4 %[050 100] 0 setdash %dashed curves %0 0 0 1 setcmykcolor %black %0 1 76 {/i exch def Yi i Yi04 i get put} for %/MUY MULY2 I12 div def %proc_curve_MUY } if %iout=1 %0 480 4 mul translate X0T neg 0 translate -450 -350 translate } if %xchartl=2 %***************************************************************** xchartl 3 eq {%xchartl=3, Rlog:545,570,585 /WE0 545 def /WE1 570 def /WE2 595 def /IRS 1 def /ILG 1 def /I12 1 def proc_LMS_titan proc_LMS_tit3rn xpWE0 150 sub 2600 moveto XnWE0 xpWE1 2600 moveto XnWE1 xpWE2 150 add 2600 moveto XnWE2 proc_LMS_spetn tfw 450 350 translate 40 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 2700 0.8 mul rlineto stroke 0 2700 0.8 mul moveto 340 12 mul 0 rlineto stroke %0 240 480 2 mul add moveto 340 12 mul 0 rlineto stroke %cero line %2700*0.8=2160; 240+480*4=240+1920=2160; 0.5 log = -0.30102999 %half way to top % 0 2700 0.8 mul 0.5 mul log moveto 340 12 mul 0 rlineto stroke proc_LMS_axian /yta 0 def ILS 0 ne ILT 1 eq and {/yta 650 def} if /xts -150 3 1200 mul add def /yts 500 3 0480 mul add yta add def proc_LMS_thren 40 setlinewidth %Cero point at 550 nm /X0T {550 380 sub 12 mul} def X0T 0 translate 0 setlinewidth % fuer clip 0.0 0.0 0.0 0.5 setcmykcolor /Y0C 050 def /Y1C 2450 def X0T neg 100 add Y0C moveto 4650 0 rlineto 0 Y1C rlineto -4650 0 rlineto 0 Y1C neg rlineto clip stroke proc_LMS_funclgm 40 setlinewidth /IORY 2700 0.8 mul def 0 480 4 mul neg translate /JPPM 4 def 0 1 JPPM {/jkurv exch def %jkurv=0,3 [ ] 0 setdash %usually continues curves jkurv 0 eq {tfWE0 [100 100] 0 setdash} if jkurv 1 eq {tfWE1} if jkurv 2 eq {tfWE2 [100 100] 0 setdash} if jkurv 3 eq {tfWE1} if jkurv 4 eq {tf620} if 0 1 76 {/i exch def %i=0,76 Yi00 i Ying0 i get put Yi01 i Ying1 i get put Yi02 i Ying2 i get put Yi03 i Yinl3 i get abs log neg put % Yi04 i Ying4 i get put % Yi05 i Ying5 i get put % Yi06 i Ying6 i get put % Yi07 i Ying7 i get put % Yi08 i Ying8 i get put % Yi09 i Ying9 i get put } for %i=0,76 0 1 76 {/i exch def jkurv 0 eq {Yi i Yi00 i get put} if %jkurv=0 jkurv 1 eq {Yi i Yi01 i get put} if %jkurv=1 jkurv 2 eq {Yi i Yi02 i get put} if %jkurv=2 jkurv 3 eq {Yi i Yi03 i get put} if %jkurv=3 jkurv 4 eq {Yi i 0.5 log neg put} if %jkurv=4 } for % 0 1 2 3 4 5 6 7 8 9 10 11 12 /kurvi [1 1 1 1 1 0 0 0 0 0 0 0 0] def kurvi jkurv get 1 eq {%kurvi=1 /MUY MULY2 I12 div def proc_curve_MUY } if %kurvi=1 } for %jkurv=0,JPPM /iout 1 def iout 1 eq {%iout=1 %additionally dashed curve, no. 3 [100 100] 0 setdash %dashed curves 0 0 0 1 setcmykcolor %black 0 1 76 {/i exch def Yi i Yi03 i get put} for /MUY MULY2 I12 div def proc_curve_MUY %additionally dashed curve, no. 4 %[050 100] 0 setdash %dashed curves %0 0 0 1 setcmykcolor %black %0 1 76 {/i exch def Yi i Yi04 i get put} for %/MUY MULY2 I12 div def %proc_curve_MUY } if %iout=1 0 480 4 mul translate X0T neg 0 translate -450 -350 translate } if %xchartl=3 %***************************************************************** xchartl 4 eq {%xchartl=4, Rlin:545,570,585 /WE0 545 def /WE1 570 def /WE2 595 def /IRS 0 def /ILG 0 def /I12 2 def proc_LMS_titan proc_LMS_tit3rn xpWE0 150 sub 2600 moveto XnWE0 xpWE1 2600 moveto XnWE1 xpWE2 150 add 2600 moveto XnWE2 proc_LMS_spetn tfw 450 350 translate 40 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 2700 0.8 mul rlineto stroke 0 2700 0.8 mul moveto 340 12 mul 0 rlineto stroke 0 240 480 2 mul add moveto 340 12 mul 0 rlineto stroke %cero line proc_LMS_axian /yta 0 def ILS 0 ne ILT 1 eq and {/yta 650 def} if /xts -150 3 1200 mul add def %special /yts 500 3 0480 mul add yta add def %special proc_LMS_thren 40 setlinewidth %Cero point at 550 nm /X0T {550 380 sub 12 mul} def X0T 0 translate 0 setlinewidth % fuer clip 0.0 0.0 0.0 0.5 setcmykcolor /Y0C 050 def /Y1C 2450 def X0T neg 100 add Y0C moveto 4650 0 rlineto 0 Y1C rlineto -4650 0 rlineto 0 Y1C neg rlineto clip stroke proc_LMS_funclgm 40 setlinewidth /IORY 2700 0.8 mul def 0 480 4 mul neg translate /JPPM 4 def 0 1 JPPM {/jkurv exch def %jkurv=0,3 [ ] 0 setdash %usually continues curves jkurv 0 eq {tfWE0 [100 100] 0 setdash} if jkurv 1 eq {tfWE1} if jkurv 2 eq {tfWE2 [100 100] 0 setdash} if jkurv 3 eq {tfWE1} if jkurv 4 eq {tf620} if 0 1 76 {/i exch def %i=0,76 Yi00 i Yn0l0 i get put Yi01 i Yn0l1 i get put Yi02 i Yn0l2 i get put Yi03 i Yn0l3 i get put % Yi04 i Yn0l4 i get put % Yi05 i Yn0l5 i get put % Yi06 i Yn0l6 i get put % Yi07 i Yn0l7 i get put % Yi08 i Yn0l8 i get put % Yi09 i Yn0l9 i get put } for %i=0,76 0 1 76 {/i exch def jkurv 0 eq {Yi i Yi00 i get put} if %jkurv=0 jkurv 1 eq {Yi i Yi01 i get put} if %jkurv=1 jkurv 2 eq {Yi i Yi02 i get put} if %jkurv=2 jkurv 3 eq {Yi i Yi03 i get put} if %jkurv=3 jkurv 4 eq {Yi i 1 put} if %jkurv=4 } for % 0 1 2 3 4 5 6 7 8 9 10 11 12 /kurvi [1 1 1 1 1 0 0 0 0 0 0 0 0] def kurvi jkurv get 1 eq {%kurvi=1 /MUY MULY2 I12 div def proc_curve_MUY } if %kurvi=1 } for %jkurv=0,JPPM /iout 1 def iout 1 eq {%iout=1 %additionally dashed curve, no. 3 [100 100] 0 setdash %dashed curves 0 0 0 1 setcmykcolor %black 0 1 76 {/i exch def Yi i Yi03 i get put} for /MUY MULY2 I12 div def proc_curve_MUY %additionally dashed curve, no. 4 %[050 100] 0 setdash %dashed curves %0 0 0 1 setcmykcolor %black %0 1 76 {/i exch def Yi i Yi04 put} for %/MUY MULY2 I12 div def %proc_curve_MUY } if %iout=1 /KF 0 def KF 1 eq {/ceroc 1.0 def proc_LI_lbyfm} if KF 2 eq {/ceroc 1.0 def proc_LI_lgrfm} if KF 3 eq {/ceroc 1.0 def proc_LI_ngrfm} if 0 480 4 mul translate X0T neg 0 translate -450 -350 translate } if %xchartl=4 %***************************************************************** xchartl 5 eq {%xchartl=5, Rlog:545,570,585 /WE0 545 def /WE1 570 def /WE2 595 def /IRS 0 def /ILG 1 def /I12 2 def proc_LMS_titan proc_LMS_tit3rn xpWE0 150 sub 2600 moveto XnWE0 xpWE1 2600 moveto XnWE1 xpWE2 150 add 2600 moveto XnWE2 proc_LMS_spetn tfw 450 350 translate 40 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 2700 0.8 mul rlineto stroke 0 2700 0.8 mul moveto 340 12 mul 0 rlineto stroke 0 240 480 2 mul add moveto 340 12 mul 0 rlineto stroke %cero line proc_LMS_axian /yta 0 def ILS 0 ne ILT 1 eq and {/yta 650 def} if /xts -150 3 1200 mul add def %special /yts 500 3 0480 mul add yta add def %special proc_LMS_thren 40 setlinewidth %Cero point at 550 nm /X0T {550 380 sub 12 mul} def X0T 0 translate 0 setlinewidth % fuer clip 0.0 0.0 0.0 0.5 setcmykcolor /Y0C 050 def /Y1C 2450 def X0T neg 100 add Y0C moveto 4650 0 rlineto 0 Y1C rlineto -4650 0 rlineto 0 Y1C neg rlineto clip stroke proc_LMS_funclgm 40 setlinewidth /IORY 2700 0.8 mul def 0 480 2 mul neg translate /JPPM 4 def 0 1 JPPM {/jkurv exch def %jkurv=0,3 [ ] 0 setdash %usually continues curves jkurv 0 eq {tfWE0 [100 100] 0 setdash} if jkurv 1 eq {tfWE1} if jkurv 2 eq {tfWE2 [100 100] 0 setdash} if jkurv 3 eq {tfWE1} if jkurv 4 eq {tf620} if 0 1 76 {/i exch def %i=0,76 Yi00 i Yn0g0 i get put Yi01 i Yn0g1 i get put Yi02 i Yn0g2 i get put Yi03 i Yn0l3 i get log put % Yi04 i Yn0g4 i get put % Yi05 i Yn0g5 i get put % Yi06 i Yn0g6 i get put % Yi07 i Yn0g7 i get put % Yi08 i Yn0g8 i get put % Yi09 i Yn0g9 i get put } for %i=0,76 0 1 76 {/i exch def jkurv 0 eq {Yi i Yi00 i get put} if %jkurv=0 jkurv 1 eq {Yi i Yi01 i get put} if %jkurv=1 jkurv 2 eq {Yi i Yi02 i get put} if %jkurv=2 jkurv 3 eq {Yi i Yi03 i get put} if %jkurv=3 jkurv 4 eq {Yi i 1 log put} if %jkurv=4 } for % 0 1 2 3 4 5 6 7 8 9 10 11 12 /kurvi [1 1 1 1 1 0 0 0 0 0 0 0 0] def kurvi jkurv get 1 eq {%kurvi=1 /MUY MULY2 def proc_curve_MUY } if %kurvi=1 } for %jkurv=0,JPPM /iout 1 def iout 1 eq {%iout=1 %additionally dashed curve, no. 3 [100 100] 0 setdash %dashed curves 0 0 0 1 setcmykcolor %black 0 1 76 {/i exch def Yi i Yi03 i get put} for /MUY MULY2 def proc_curve_MUY %additionally dashed curve, no. 4 %[050 100] 0 setdash %dashed curves %0 0 0 1 setcmykcolor %black %0 1 76 {/i exch def Yi i Yi04 i get put} for %/MUY MULY2 def %proc_curve_MUY } if %iout=1 /KF 0 def KF 1 eq {/ceroc 0.0 def proc_LI_lbyfm} if KF 2 eq {/ceroc 0.0 def proc_LI_lgrfm} if KF 3 eq {/ceroc 0.0 def proc_LI_ngrfm} if 0 480 2 mul translate X0T neg 0 translate -450 -350 translate } if %xchartl=5 %***************************************************************** xchartl 6 eq {%xchartl=6, Rlog:545,570,585 /WE0 545 def /WE1 570 def /WE2 595 def /IRS 0 def /ILG 0 def /I12 2 def proc_LMS_titan proc_LMS_tit3rn xpWE0 150 sub 2600 moveto XnWE0 xpWE1 2600 moveto XnWE1 xpWE2 150 add 2600 moveto XnWE2 proc_LMS_spetn tfw 450 350 translate 40 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 2700 0.8 mul rlineto stroke 0 2700 0.8 mul moveto 340 12 mul 0 rlineto stroke 0 240 480 2 mul add moveto 340 12 mul 0 rlineto stroke %cero line proc_LMS_axian /yta 0 def ILS 0 ne ILT 1 eq and {/yta 650 def} if /xts -150 3 1200 mul add def %special /yts 500 3 0480 mul add yta add def %special proc_LMS_thren 40 setlinewidth %Cero point at 550 nm /X0T {550 380 sub 12 mul} def X0T 0 translate 0 setlinewidth % fuer clip 0.0 0.0 0.0 0.5 setcmykcolor /Y0C 050 def /Y1C 2450 def X0T neg 100 add Y0C moveto 4650 0 rlineto 0 Y1C rlineto -4650 0 rlineto 0 Y1C neg rlineto clip stroke proc_LMS_funclgm 40 setlinewidth /IORY 2700 0.8 mul def %0 480 4 mul neg translate /JPPM 4 def 0 1 JPPM {/jkurv exch def %jkurv=0,3 [ ] 0 setdash %usually continues curves jkurv 0 eq {tfWE0 [100 100] 0 setdash} if jkurv 1 eq {tfWE1} if jkurv 2 eq {tfWE2 [100 100] 0 setdash} if jkurv 3 eq {tfWE1} if jkurv 4 eq {tf620} if 0 1 76 {/i exch def %i=0,76 Yi00 i Ynnl0 i get put Yi01 i Ynnl1 i get put Yi02 i Ynnl2 i get put Yi03 i Ynnl3 i get put % Yi04 i Ynnl4 i get put % Yi05 i Ynnl5 i get put % Yi06 i Ynnl6 i get put % Yi07 i Ynnl7 i get put % Yi08 i Ynnl8 i get put % Yi09 i Ynnl9 i get put } for %i=0,76 0 1 76 {/i exch def jkurv 0 eq {Yi i Yi00 i get put} if %jkurv=0 jkurv 1 eq {Yi i Yi01 i get put} if %jkurv=1 jkurv 2 eq {Yi i Yi02 i get put} if %jkurv=2 jkurv 3 eq {Yi i Yi03 i get put} if %jkurv=3 jkurv 4 eq {Yi i 1 neg put} if %jkurv=4 } for % 0 1 2 3 4 5 6 7 8 9 10 11 12 /kurvi [1 1 1 1 1 0 0 0 0 0 0 0 0] def kurvi jkurv get 1 eq {%kurvi=1 /MUY MULY2 I12 div def proc_curve_MUY } if %kurvi=1 } for %jkurv=0,JPPM /iout 1 def iout 1 eq {%iout=1 %additionally dashed curve, no. 3 [100 100] 0 setdash %dashed curves 0 0 0 1 setcmykcolor %black 0 1 76 {/i exch def Yi i Yi03 i get put} for /MUY MULY2 I12 div def proc_curve_MUY %additionally dashed curve, no. 4 %[050 100] 0 setdash %dashed curves %0 0 0 1 setcmykcolor %black %0 1 76 {/i exch def Yi i Yi04 i get put} for %/MUY MULY2 I12 div def %proc_curve_MUY } if %iout=1 /KF 0 def KF 1 eq {/ceroc 0.5 def proc_LI_lbyfm} if KF 2 eq {/ceroc 0.5 def proc_LI_lgrfm} if KF 3 eq {/ceroc 0.5 def proc_LI_ngrfm} if %0 480 4 mul translate X0T neg 0 translate -450 -350 translate } if %xchartl=6 %***************************************************************** xchartl 7 eq {%xchartl=7, Rlog:545,570,585 /WE0 545 def /WE1 570 def /WE2 595 def /IRS 0 def /ILG 1 def /I12 2 def proc_LMS_titan proc_LMS_tit3rn xpWE0 150 sub 2600 moveto XnWE0 xpWE1 2600 moveto XnWE1 xpWE2 150 add 2600 moveto XnWE2 proc_LMS_spetn tfw 450 350 translate 40 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 2700 0.8 mul rlineto stroke 0 2700 0.8 mul moveto 340 12 mul 0 rlineto stroke 0 240 480 2 mul add moveto 340 12 mul 0 rlineto stroke %cero line proc_LMS_axian /yta 0 def ILS 0 ne ILT 1 eq and {/yta 650 def} if /xts -150 3 1200 mul add def %special /yts 500 3 0480 mul add yta add def %special proc_LMS_thren 40 setlinewidth %Cero point at 550 nm /X0T {550 380 sub 12 mul} def X0T 0 translate 0 setlinewidth % fuer clip 0.0 0.0 0.0 0.5 setcmykcolor /Y0C 050 def /Y1C 2450 def X0T neg 100 add Y0C moveto 4650 0 rlineto 0 Y1C rlineto -4650 0 rlineto 0 Y1C neg rlineto clip stroke proc_LMS_funclgm 40 setlinewidth /IORY 2700 0.8 mul def 0 480 2 mul neg translate /JPPM 4 def 0 1 JPPM {/jkurv exch def %jkurv=0,3 [ ] 0 setdash %usually continues curves jkurv 0 eq {tfWE0 [100 100] 0 setdash} if jkurv 1 eq {tfWE1} if jkurv 2 eq {tfWE2 [100 100] 0 setdash} if jkurv 3 eq {tfWE1} if jkurv 4 eq {tf620} if 0 1 76 {/i exch def %i=0,76 Yi00 i Ynng0 i get put Yi01 i Ynng1 i get put Yi02 i Ynng2 i get put Yi03 i Ynnl3 i get abs log neg put % Yi04 i Ynng4 i get put % Yi05 i Ynng5 i get put % Yi06 i Ynng6 i get put % Yi07 i Ynng7 i get put % Yi08 i Ynng8 i get put % Yi09 i Ynng9 i get put } for %i=0,76 0 1 76 {/i exch def jkurv 0 eq {Yi i Yi00 i get put} if %jkurv=0 jkurv 1 eq {Yi i Yi01 i get put} if %jkurv=1 jkurv 2 eq {Yi i Yi02 i get put} if %jkurv=2 jkurv 3 eq {Yi i Yi03 i get put} if %jkurv=3 jkurv 4 eq {Yi i 1 log put} if %jkurv=4 } for % 0 1 2 3 4 5 6 7 8 9 10 11 12 /kurvi [1 1 1 1 1 0 0 0 0 0 0 0 0] def kurvi jkurv get 1 eq {%kurvi=1 /MUY MULY2 def proc_curve_MUY } if %kurvi=1 } for %jkurv=0,JPPM /iout 1 def iout 1 eq {%iout=1 %additionally dashed curve, no. 3 [100 100] 0 setdash %dashed curves 0 0 0 1 setcmykcolor %black 0 1 76 {/i exch def Yi i Yi03 i get put} for /MUY MULY2 def proc_curve_MUY %additionally dashed curve, no. 4 %[050 100] 0 setdash %dashed curves %0 0 0 1 setcmykcolor %black %0 1 76 {/i exch def Yi i I12 Yi04 i get sub put} for %/MUY MULY2 def %proc_curve_MUY } if %iout=1 /KF 0 def KF 1 eq {/ceroc 0.0 def proc_LI_lbyfm} if KF 2 eq {/ceroc 0.0 def proc_LI_lgrfm} if KF 3 eq {/ceroc 0.0 def proc_LI_ngrfm} if 0 480 2 mul translate X0T neg 0 translate -450 -350 translate } if %xchartl=7 %***************************************************************** grestore %end because of clip xchartl 0 eq { 100 neg 13000 neg translate} if xchartl 1 eq { 6100 neg 13000 neg translate} if xchartl 2 eq { 100 neg 08750 neg translate} if xchartl 3 eq { 6100 neg 08750 neg translate} if xchartl 4 eq { 100 neg 4500 neg translate} if xchartl 5 eq { 6100 neg 4500 neg translate} if xchartl 6 eq { 100 neg 0250 neg translate} if xchartl 7 eq { 6100 neg 0250 neg translate} if } for %xchartl=0,07 showpage grestore %} for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 020 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM moveto ( ) show 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 28 %line 499 %!PS-Adobe-3.0 EPSF-3.0 EE601-8, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (EE601-8,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke 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 0.0 MM translate 0.15 MM setlinewidth /x 20 array def /y 20 array def /d 20 array def /x [000 296 296 000 002 294 294 002 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 /xlu 017 MM def /ylu 017 MM def /xro 279 MM def /yro 193 MM def /xlo 017 MM def /ylo 193 MM def /xru 279 MM def /yru 017 MM def xlu 8 MM sub ylu moveto 16 MM 0 rlineto stroke xlu ylu 8 MM sub moveto 0 16 MM rlineto stroke xro 8 MM add yro moveto -16 MM 0 rlineto stroke xro yro 8 MM add moveto 0 -16 MM rlineto stroke xru 8 MM sub yru moveto 16 MM 0 rlineto stroke xru yru 8 MM sub moveto 0 16 MM rlineto stroke xlo 8 MM add ylo moveto -16 MM 0 rlineto stroke xlo ylo 8 MM add moveto 0 -16 MM rlineto stroke 1 2 7 {/i exch def %Zentrierkreise xlu ylu i MM 0 360 arc stroke xro yro i MM 0 360 arc stroke xru yru i MM 0 360 arc stroke xlo ylo i MM 0 360 arc stroke } for %i 12 4 16 {/i exch def /i0 i def %i=0,16 %0 4 16 {/i exch def /i0 i def %i=0,16 /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse 0 setgray x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto x i0 get MM y i0 get MM lineto stroke i 16 eq {6 /Times-ISOL1 FS /x00 67 def /xdif 32 def /y0o 202.3 def /y0u 6.3 def /x0l 6.1 def /x0r 288 def /y00 22 def /ydif 32 def x00 xdif 0 mul add MM y0o MM moveto (V) show x00 xdif 0 mul add MM y0u MM moveto (C) show x00 xdif 1 mul add MM y0o MM moveto (L) show x00 xdif 1 mul add MM y0u MM moveto (M) show x00 xdif 2 mul add MM y0o MM moveto (O) show x00 xdif 2 mul add MM y0u MM moveto (Y) show x00 xdif 3 mul add MM y0o MM moveto (Y) show x00 xdif 3 mul add MM y0u MM moveto (O) show x00 xdif 4 mul add MM y0o MM moveto (M) show x00 xdif 4 mul add MM y0u MM moveto (L) show x00 xdif 5 mul add MM y0o MM moveto (C) show x00 xdif 5 mul add MM y0u MM moveto (V) show x0l MM y00 ydif 0 mul add MM moveto (V) show x0r MM y00 ydif 0 mul add MM moveto (C) show x0l MM y00 ydif 1 mul add MM moveto (L) show x0r MM y00 ydif 1 mul add MM moveto (M) show x0l MM y00 ydif 2 mul add MM moveto (O) show x0r MM y00 ydif 2 mul add MM moveto (Y) show x0l MM y00 ydif 3 mul add MM moveto (Y) show x0r MM y00 ydif 3 mul add MM moveto (O) show x0l MM y00 ydif 4 mul add MM moveto (M) show x0r MM y00 ydif 4 mul add MM moveto (L) show x0l MM y00 ydif 5 mul add MM moveto (C) show x0r MM y00 ydif 5 mul add MM moveto (V) show } if } for %i=0,16 0 1 10 {/j0 exch def /j1 j0 1 add def %j0 j0 0 eq {tzccmy0* setcmykcolor} if j0 1 eq {0 setgray} if j0 2 eq {tzmcmy0* setcmykcolor} if j0 3 eq {0 setgray} if j0 4 eq {tzycmy0* setcmykcolor} if j0 5 eq {0 setgray} if j0 6 eq {tzocmy0* setcmykcolor} if j0 7 eq {0 setgray} if j0 8 eq {tzlcmy0* setcmykcolor} if j0 9 eq {0 setgray} if j0 10 eq {tzvcmy0* setcmykcolor} if 12 4 16 {/i exch def /i0 i def %i=0,16 %0 4 16 {/i exch def /i0 i def %i=0,16 /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse x i0 get d i0 get add 16 j0 mul add MM y i0 get MM moveto x i0 get d i0 get add 16 j1 mul add MM y i0 get MM lineto stroke x i1 get MM y i1 get d i1 get add 16 j0 mul add MM moveto x i1 get MM y i1 get d i1 get add 16 j1 mul add MM lineto stroke x i2 get d i2 get add 16 j0 mul sub MM y i2 get MM moveto x i2 get d i2 get add 16 j1 mul sub MM y i2 get MM lineto stroke x i3 get MM y i3 get d i3 get add 16 j0 mul sub MM moveto x i3 get MM y i3 get d i3 get add 16 j1 mul sub MM lineto stroke } for %i=0,16 } for %j0 0.15 MM setlinewidth /s 7 MM def /s1 8 MM def /s5 36 MM def 16 1 20 {/j exch def /j0 j 16 sub def %j=16,20 /ix0 xlu 8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def 0 1 3 {/ij exch def %ij=0,3 ij 0 eq {/ix0 xlu 8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def} if ij 1 eq {/ix0 xru 43 MM sub j0 7 MM mul add def /iy0 yru 8 MM sub def} if ij 2 eq {/ix0 xlo 8 MM add j0 7 MM mul add def /iy0 ylo 1 MM add def} if ij 3 eq {/ix0 xro 43 MM sub j0 7 MM mul add def /iy0 yro 1 MM add def} if i*ptrsc 0 eq i*ptrsc 2 eq or {%i*ptrsc=0,2 cmy0* setcmykcolor j 16 eq {tzan j get dup dup 0 setcmykcolor ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if tzan j get dup dup 0 setcmykcolor ix0 iy0 s s rec fill } if %i*ptrsc=0,2 i*ptrsc 1 eq i*ptrsc 3 eq or {%i*ptrsc=1,3 www* setrgbcolor j 16 eq {1 tzan j get 1 sub dup dup setrgbcolor %N ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 1 tzan j get sub dup dup setrgbcolor %N ix0 iy0 s s rec fill } if %i*ptrsc=1,3 i*ptrsc 4 eq i*ptrsc 5 eq or {%i*ptrsc=4,5 [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace j 16 eq {tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add setcolor %N ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add setcolor %N ix0 iy0 s s rec fill } if %i*ptrsc=4,5 i*ptrsc 6 eq {%i*ptrsc=6 000n* setcmykcolor j 16 eq {0 0 0 tzan j get setcmykcolor ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 0 0 0 tzan j get setcmykcolor ix0 iy0 s s rec fill } if %i*ptrsc=6 i*ptrsc 7 eq {%i*ptrsc=7 w* setgray j 16 eq {1 tzan j get sub setgray ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 1 tzan j get sub setgray ix0 iy0 s s rec fill } if %i*ptrsc=7 } for %ij=0,3 } for %j=16,20 0 setgray 018 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show 018 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show 276 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show 276 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show 018 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show 018 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show 276 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show 276 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show /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 /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 /TELi 8 array def /TELi [(D65) (D50) (P40) (A00) (E00) (C00) (P00) (Q00)] def 0 setgray 12 /Times-ISOL1 FS 61 MM 13.5 MM moveto (TUB\255Pr\374fvorlage EE60; ) showde %0EE60X-Y 0000# (TUB\255test chart EE60; ) showen %1EE60X-Y 0000# (gr\341fico TUB\255EE60; ) showes %2EE60X-Y 0000# (TUB\255test graphique EE60; ) showfr %3EE60X-Y 0000# (grafico TUB\255EE60; ) showit %4EE60X-Y 0000# (TUB\255test chart EE60; ) showjp %5EE60X-Y 0000# xchart4 0 eq {%xchart4=0 (Relatives Elementar\255Farbensehen) showde (Relative elementary colour vision) showea } if %xchart4=0 61 MM 09.5 MM moveto xchart4 0 eq {%xchart4=0 12 /Times-ISOL1 FS (Empfindlichkeiten) showde (Sensitivities) showea ( log[) show 12 /TimesI-ISOL1 FS (LMS\255R17_M5) show 12 /Times-ISOL1 FS (] ) show 12 /Times-ISOL1 FS (und Kombinationen; Schwelle ) showde (and combinations; threshold ) showea 12 /Times-ISOL1 FS (t) show 10 /Times-ISOL1 FS 0 -2 rmoveto (a) show 0 2 rmoveto 12 /Times-ISOL1 FS (=0,00 (links) und 0,03 (rechts)) showde (=0,00 (left) and 0,03 (right)) showen } if %xchart4=0 xchart4 1 eq { 12 /Times-ISOL1 FS (Chromatische Pr\374fvorlage) showde %0EE60X-Y 0300# (chromatic test chart) showen %1EE60X-Y 0300# (test crom\341tico gr\341fico) showes %2EE60X-Y 0300# (chromatic graphique de test) showfr %3EE60X-Y 0300# (prova cromatica grafico) showit %4EE60X-Y 0300# (chromatic test chart) showjp %5EE60X-Y 0300# 12 /TimesI-ISOL1 FS ( RGB) show } if xchart4 2 eq { 12 /Times-ISOL1 FS (Chromatische Pr\374fvorlage) showde %0EE60X-Y 0400# (chromatic test chart) showen %1EE60X-Y 0400# (test crom\341tico gr\341fico) showes %2EE60X-Y 0400# (chromatic graphique de test) showfr %3EE60X-Y 0400# (prova cromatica grafico) showit %4EE60X-Y 0400# (chromatic test chart) showjp %5EE60X-Y 0400# 12 /TimesI-ISOL1 FS ( CMY) show } if 62 MM 198.5 MM moveto 12RN tfb (http://farbe.li.tu-berlin.de/EE60/EE60L) 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 %0EE60X-Y 1000# (start output) showen %1EE60X-Y 1000# (comience salida) showes %2EE60X-Y 1000# (sortie de production) showfr %3EE60X-Y 1000# (cominciare l'uscita) showit %4EE60X-Y 1000# (start output) showjp %5EE60X-Y 1000# } if 62 MM 194 MM moveto (Siehe separate Bilder dieser Seite: ) showde %0EE60X-Y 2300# (see separate images of this page: ) showen %1EE60X-Y 2300# (vea archivos semejantes: ) showes %2EE60X-Y 2300# (voir des fichiers similaires: ) showfr %3EE60X-Y 2300# (vedere dei file simili: ) showit %4EE60X-Y 2300# (see similar files: ) showjp %5EE60X-Y 2300# 12RN tfb (http://farbe.li.tu-berlin.de/EE60/EE60.HTM) show tfn 12TN 16 MM 185 MM moveto -90 rotate (Siehe \344hnliche Dateien der ganzen Serie: ) showde %0EE60X-Y 2350# (see similar files of the whole serie: ) showen %1EE60X-Y 2350# (vea archivos semejantes: ) showes %2EE60X-Y 2350# (voir des fichiers similaires de serie: ) showfr %3EE60X-Y 2350# (vedere dei file simili: ) showit %4EE60X-Y 2350# (see similar files: ) showjp %5EE60X-Y 2350# 12RN tfb (http://farbe.li.tu-berlin.de/EG.HTM) showde (http://farbe.li.tu-berlin.de/EE.HTM) showen tfn 12TN 90 rotate 12 MM 185 MM moveto -90 rotate (Technische Information: ) showde %0EE60X-Y 2400# (technical information: ) showen %1EE60X-Y 2400# (informaci\363n t\351cnica: ) showes %2EE60X-Y 2400# (informations techniques: ) showfr %3EE60X-Y 2400# (informazioni tecniche: ) showit %4EE60X-Y 2400# (technical information: ) showjp %5EE60X-Y 2400# 12RN tfb (http://farbe.li.tu-berlin.de) show tfn 12TN ( oder ) showde %0EE60X-Y 2500# ( or ) showen %1EE60X-Y 2500# ( o ) showes %2EE60X-Y 2500# ( ou ) showfr %3EE60X-Y 2500# ( o ) showit %4EE60X-Y 2500# ( or ) showjp %5EE60X-Y 2500# 12RN tfb (http://color.li.tu-berlin.de) show tfn 12TN 90 rotate 281 MM 185 MM moveto -90 rotate (TUB\255Registrierung: 20230801\255EE60/EE60L) showde %0EE60X-Y 2600# (TUB registration: 20230801\255EE60/EE60L) showen %1EE60X-Y 2600# (TUB matr\355cula: 20230801\255EE60/EE60L) showes %2EE60X-Y 2600# (TUB enregistrement: 20230801\255EE60/EE60L) showfr %3EE60X-Y 2600# (TUB iscrizione: 20230801\255EE60/EE60L) showit %4EE60X-Y 2600# (TUB registration: 20230801\255EE60/EE60L) showjp %5EE60X-Y 2600# (0) show % LSC$ show LEX$ show 90 rotate 281 MM 74 MM moveto -90 rotate (TUB\255Material: Code=rha4ta) showde %0EE60X-Y 2700# (TUB material: code=rha4ta) showen %1EE60X-Y 2700# (TUB material: code=rha4ta) showes %2EE60X-Y 2700# (TUB mat\351riel: code=rha4ta) showfr %3EE60X-Y 2700# (TUB materiale: code=rha4ta) showit %4EE60X-Y 2700# (TUB material: code=rha4ta) showjp %5EE60X-Y 2700# 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 %0EE60X-Y 2800# ( application for evaluation and measurement ) showen %1EE60X-Y 2800# ( aplicaci\363n para la medida ) showes %2EE60X-Y 2800# ( application pour la mesure ) showfr %3EE60X-Y 2800# ( la domanda per la misura ) showit %4EE60X-Y 2800# ( application for measurement ) showjp %5EE60X-Y 2800# (von Display\255 oder Druck\255Ausgabe) showde %0EE60X-Y 2900# (of display or print output) showen %1EE60X-Y 2900# (de display output) showes %2EE60X-Y 2900# (de sortie sur \350cran) showfr %3EE60X-Y 2900# (di stampa di display) showit %4EE60X-Y 2900# (of display output) showjp %5EE60X-Y 2900# 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,1 %} for %xcolorf=3,3 %} for %deintpf=0,1 %} for %colormf=0,1 %} for %lanindf=0,0 %%Trailer