%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/ME96/ME96L00XX.PS 190801 %%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/ME96/ME96.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2019080112000) /ModDate (D:20190801112000) /DOCINFO pdfmark [ /View [ /Fit ] /DOCVIEW pdfmark /sfgray {setgray} bind def /ypaper 0 def %Early Frame File (f) definition /sfrgbcolor {setrgbcolor} bind def /sfcmykcolor {setcmykcolor} bind def %line20****************************************************** %BEG ME96/OUTLIN10.PS Emty 20120301 %END ME96/OUTLIN10.PS Emty 20120301 /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 /A4querF {598 0 translate 90 rotate} def /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /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 %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 /tzrcmy0* {0.0 1.0 1.0 0.0} bind def %Reproduction colours /tzgcmy0* {1.0 0.0 1.0 0.0} bind def %cmyn* setcmykcolor /tzbcmy0* {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 /tzrolv* {1.0 0.0 0.0} bind def %Reproduction colours /tzgolv* {0.0 1.0 0.0} bind def %olv* setrgbcolor /tzbolv* {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 /tzrLAB* [53.34 72.46 50.66] def %Reproduction colours /tzgLAB* [84.93 -79.83 74.80] def %LAB* setcolor /tzbLAB* [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 %%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$ [(0.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 %******************************************************************* %line 360 ******************************************************************* /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 03 def /xcolor2f 03 def /xcolordf 01 def /xchart1f 00 def /xchart2f 00 def /xchartdf 01 def %0-1,2-5,6-9,10-23 /xchart3f 01 def /xchart4f 00 def /xchart5f 00 def /pchart1f 00 def /pchart2f 00 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 % colorm1f colormdf colorm2f {/colormf exch 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 % 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 /xchart3P0 xchart3 0 add def /xchart4 xchart4f def /pchart pchartf def /colsep colsepf def /xchart3P8 xchart3 8 add def %/pmetamf pmetam1f def % /pmetamf pmetam1f def %pmetam1f pmetamdf pmetam2f {/pmetamf exch def /pmetam pmetamf def %************************************************************* xchart xchart3 lt {%xchart=xchart3 for CM %BEG special for ColorInterpolation /xchartj pchart def %sRGB, Lr=0%, pchart=3 /hei -1 def /heM -1 def /ausz 8 def /xchartt (F) def %necessary PROC_LAB_IOF % PROC_RX0F_IOF PROC_COLSEP_IOF colorm 1 eq {PROC_COLINT_IOF} if % PROC_COLINT_IOF % PROC_SPEC_IOF % Colordata_sRGB_F %new % setcolortrans_F %new proc_LAB729a_to_LAB*LabCh64M proc_LAB*LabCh64M_to_tab362_dy %END special for ColorInterpolation %********************************************************* } ifelse %xchart>=xchart3 for CM xchart xchart3P8 le {72 90 translate} {72 56 translate} ifelse 0.01 MM dup scale %0 0 moveto 24600 0 rlineto 0 17220 rlineto % -24600 0 rlineto closepath stroke 200 -180 moveto 180 /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 %01 %02 %03 %04 %05 %06 %07 %08 xchart xchart3P0 le {%xchart<=xchart3P0 %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 ME960-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 (ME960-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 ME960-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 (ME960-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 ME960-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 (ME960-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 ME960-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 (ME960-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 ME960-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 (ME960-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 ME960-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 (ME960-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 28 MM 020 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 ME960-7 %%BoundingBox: 70 83 392 485 %START PDFDE011.EPS /pdfmark07 where {pop} {userdict /pdfmark07 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [/Title (PostScript pictures: farbe.li.tu-berlin.de/ME96/ME96.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2019080112000) /ModDate (D:20190801112000) /DOCINFO pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % 113mm = 113*72/25.4 = 320; 320+72 = 392 % 60mm = 60*72/25.4 = 176; 170+90+8 = 268 % !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 /TS {200 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /SS {200 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SG {350 /Symbol FS} bind def %%EndProlog gsave %lanindL2 START 20000505 /lanind 1 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showfr {2 lanind eq {show} {pop} ifelse} bind def /showes {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showno {5 lanind eq {show} {pop} ifelse} bind def /showpt {6 lanind eq {show} {pop} ifelse} bind def /showx1 {7 lanind eq {show} {pop} ifelse} bind def /showy1 {8 lanind eq {show} {pop} ifelse} bind def /showz1 {9 lanind eq {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 3 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def 75 85 moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolor cvishow xchart cvishow pchart cvishow colsep cvishow (-L) show pmetam cvishow gsave %lanindL2 END 5 /Times-ISOL1 FS 340 85 moveto (ME961-7) show xchart 0 eq {(N) show} {deintp colorm 2 mul add cvishow} ifelse % (, BT9_10) show % ( B7361_7, M8620-7, BT9_10, N=10_10 2x4) show 72 90 translate /yhoe 13900 def 0.01 MM 0.01 MM scale /ausz 8 def 15 setlinewidth 0.0 0.0 0.5 0.0 setcmykcolor 0 0 moveto 11200 0 rlineto 0 yhoe rlineto -11200 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmykcolor 0 0 moveto 11200 0 rlineto 0 yhoe rlineto -11200 0 rlineto closepath stroke 0 yhoe 550 sub moveto 11200 0 rlineto stroke /ns {TG show} bind def /ks {TIG show} bind def /bs {TBG show} bind def /js {TBIG show} bind def /ss {SG show} bind def /is {TK 0 -90 rlineto show 0 90 rlineto} bind def /es {TK 0 200 rlineto show 0 -200 rlineto} bind def %20% kleiner /ns2 {TM show} bind def /ks2 {TIM show} bind def /bs2 {TBM show} bind def /js2 {TBIM show} bind def /is2 {TS 10 -40 rlineto show -10 40 rlineto} bind def /iks2 {TIS 10 -40 rlineto show -10 40 rlineto} bind def /es2 {TS 0 160 rlineto show 0 -160 rlineto} bind def /yd -550 def %y-Zeilenabstand %Spalten /S1 150 def /S2 300 def /S3 2350 def /S4 8500 def /yz 550 def /yu0 0 def /yu1 {yu0 -100 add yz 6 mul add} bind def /yu2 {yu1 100 add yz 7 mul add} bind def /yu3 {yu2 100 add yz 6 mul add} bind def /yu4 {yu3 100 add yz 2 mul add} bind def /yu5 {yu4 000 add yz 2 mul add} bind def /yu6 {yu5 100 add yz 1 mul add} bind def %Titeltext S1 yu6 moveto TBG (Farbempfindungsgr\366\337en ) showde %0ME960-7 00000 (percieved color terms ) showen %1ME960-7 00001 (Vista del color ) showes %3ME960-7 00003 (percieved color terms ) showfr %2ME960-7 00002 (percieved color terms ) showit %4ME960-7 00004 (persiperte fargest\370rrelser ) showno %5ME960-7 00005 (percieved color terms ) showpt %6ME960-7 00006 (percieved color terms ) showx1 %7ME960-7 00007 (percieved color terms ) showy1 %8ME960-7 00008 (percieved color terms ) showz1 %9ME960-7 00009 ((Farbheiten: Kubikwurzel\255Koordinaten)) showde %0ME960-7 01000 ((colorness: cube root coordinates)) showen %1ME960-7 01001 ((Coordenadas cubicas)) showes %3ME960-7 01003 ((colorness: cube root coordinates)) showfr %2ME960-7 01002 ((colorness: cube root coordinates)) showit %4ME960-7 01004 ((fargeheter: kubikkrot\255koordinater)) showno %5ME960-7 01005 ((colorness: cube root coordinates)) showpt %6ME960-7 01006 ((colorness: cube root coordinates)) showx1 %7ME960-7 01007 ((colorness: cube root coordinates)) showy1 %8ME960-7 01008 ((colorness: cube root coordinates)) showz1 %9ME960-7 01009 S1 yu5 moveto TBG (Farbempfin\255) showde %0ME960-7 02000 (percieved ) showen %1ME960-7 02001 (vista del ) showes %3ME960-7 02003 (percieved ) showfr %2ME960-7 02002 (percieved ) showit %4ME960-7 02004 (persipert ) showno %5ME960-7 02005 (percieved ) showpt %6ME960-7 02006 (percieved ) showx1 %7ME960-7 02007 (percieved ) showy1 %8ME960-7 02008 (percieved ) showz1 %9ME960-7 02009 S1 yu5 400 sub moveto TBG (dungsgr\366\337en) showde %0ME960-7 03000 (color terms) showen %1ME960-7 03001 (color) showes %3ME960-7 03003 (color terms) showfr %2ME960-7 03002 (color terms) showit %4ME960-7 03004 (fargest\370rrelse) showno %5ME960-7 03005 (color terms) showpt %6ME960-7 03006 (color terms) showx1 %7ME960-7 03007 (color terms) showy1 %8ME960-7 03008 (color terms) showz1 %9ME960-7 03009 S3 yu5 moveto TBG (Bezeichnung und Zusammenhang) showde %0ME960-7 04000 (name and relationship with) showen %1ME960-7 04001 (Nombre y contexto) showes %3ME960-7 04003 (name and relationship with) showfr %2ME960-7 04002 (name and relationship with) showit %4ME960-7 04004 (navn og sammenheng med) showno %5ME960-7 04005 (name and relationship with) showpt %6ME960-7 04006 (name and relationship with) showx1 %7ME960-7 04007 (name and relationship with) showy1 %8ME960-7 04008 (name and relationship with) showz1 %9ME960-7 04009 S3 yu5 400 sub moveto TBG (mit Normfarbwerten / \255anteilen) showde %0ME960-7 05000 (standard chromaticity values) showen %1ME960-7 05001 (con CIE standard cromaticos) showes %3ME960-7 05003 (standard chromaticity values) showfr %2ME960-7 05002 (standard valori chromatico) showit %4ME960-7 05004 (standard kromatisitetsverdier) showno %5ME960-7 05005 (standard chromaticity values) showpt %6ME960-7 05006 (standard chromaticity values) showx1 %7ME960-7 05007 (standard chromaticity values) showy1 %8ME960-7 05008 (standard chromaticity values) showz1 %9ME960-7 05009 S4 yu5 moveto TBG (Bemerkungen:) showde %0ME960-7 06000 (notes:) showen %1ME960-7 06001 (Notas:) showes %3ME960-7 06003 (notes:) showfr %2ME960-7 06002 (Note:) showit %4ME960-7 06004 (merknader:) showno %5ME960-7 06005 (notes:) showpt %6ME960-7 06006 (notes:) showx1 %7ME960-7 06007 (notes:) showy1 %8ME960-7 06008 (notes:) showz1 %9ME960-7 06009 S1 yu4 moveto TBG (Helligkeit) showde %0ME960-7 07000 (lightness) showen %1ME960-7 07001 (Vista luz) showes %3ME960-7 07003 (lightness) showfr %2ME960-7 07002 (chiarezza) showit %4ME960-7 07004 (lyshet) showno %5ME960-7 07005 (lightness) showpt %6ME960-7 07006 (lightness) showx1 %7ME960-7 07007 (lightness) showy1 %8ME960-7 07008 (lightness) showz1 %9ME960-7 07009 S3 yu4 moveto (L*) ks ( = 116 \050 ) ns (Y) ks ( / 100 \051 ) ns (1/3) es ( - 16) ns S3 yu4 yd add moveto (N\344herung: ) showde %0ME960-7 08000 (Aproximation: ) showen %1ME960-7 08001 (Aproximation: ) showes %3ME960-7 08003 (Aproximation: ) showfr %2ME960-7 08002 (Approssimazione: ) showit %4ME960-7 08004 (Aproximation: ) showno %5ME960-7 08005 (Aproximation: ) showpt %6ME960-7 08006 (Aproximation: ) showx1 %7ME960-7 08007 (Aproximation: ) showy1 %8ME960-7 08008 (Aproximation: ) showz1 %9ME960-7 08009 (Aproximation: ) showpt %6ME960-7 08006 (Aproximation: ) showx1 %7ME960-7 08007 (Aproximation: ) showy1 %8ME960-7 08008 (Aproximation: ) showz1 %9ME960-7 08009 (L*) ks ( = 100 \050 ) ns (Y) ks ( / 100 \051 ) ns (1/3) es S4 yu4 moveto TIG (Definition 1976 in:) showde %0ME960-7 09000 (definition 1976 in:) showen %1ME960-7 09001 (Definido 1976 en:) showes %3ME960-7 09003 (definition 1976 in:) showfr %2ME960-7 09002 (definition 1976 in:) showit %4ME960-7 09004 (definisjon 1976 i:) showno %5ME960-7 09005 (definition 1976 in:) showpt %6ME960-7 09006 (definition 1976 in:) showx1 %7ME960-7 09007 (definition 1976 in:) showy1 %8ME960-7 09008 (definition 1976 in:) showz1 %9ME960-7 09009 S4 yu4 yd add moveto TIG (CIELUV, CIELAB) showde %0ME960-7 10000 (CIELUV, CIELAB) showen %1ME960-7 10001 (CIELUV, CIELAB) showes %3ME960-7 10003 (CIELUV, CIELAB) showfr %2ME960-7 10002 (CIELUV, CIELAB) showit %4ME960-7 10004 (CIELUV, CIELAB) showno %5ME960-7 10005 (CIELUV, CIELAB) showpt %6ME960-7 10006 (CIELUV, CIELAB) showx1 %7ME960-7 10007 (CIELUV, CIELAB) showy1 %8ME960-7 10008 (CIELUV, CIELAB) showz1 %9ME960-7 10009 S1 yu3 moveto TBG (Buntheit) showde %0ME960-7 11000 (chroma ) showen %1ME960-7 11001 (vista cromatica ) showes %3ME960-7 11003 (chroma ) showfr %2ME960-7 11002 (chroma ) showit %4ME960-7 11004 (kul\370rthet ) showno %5ME960-7 11005 (chroma ) showpt %6ME960-7 11006 (chroma ) showx1 %7ME960-7 11007 (chroma ) showy1 %8ME960-7 11008 (chroma ) showz1 %9ME960-7 11009 S3 yu3 moveto TIG (f\374r nichtlineares Buntheitsdiagramm (a*, b*)) showde %0ME960-7 12000 (for nonlinear chroma diagram (a*, b*)) showen %1ME960-7 12001 (Para diagrama no lineal de vista cromatica (a*, b*)) showes %3ME960-7 12003 (for nonlinear chroma diagram (a*, b*)) showfr %2ME960-7 12002 (per diagramma chroma (A, B)) showit %4ME960-7 12004 (for ikke\255linear kul\370rthets\255diagram (a*, b*)) showno %5ME960-7 12005 (for nonlinear chroma diagram (a*, b*)) showpt %6ME960-7 12006 (for nonlinear chroma diagram (a*, b*)) showx1 %7ME960-7 12007 (for nonlinear chroma diagram (a*, b*)) showy1 %8ME960-7 12008 (for nonlinear chroma diagram (a*, b*)) showz1 %9ME960-7 12009 S4 yu3 yd 1 mul add moveto TIG (Definition) showde %0ME960-7 13000 (definition 1976 in:) showen %1ME960-7 13001 (Definicion 1976 in:) showes %3ME960-7 13003 (definition 1976 in:) showfr %2ME960-7 13002 (definition 1976 per:) showit %4ME960-7 13004 (definisjon 1976 i:) showno %5ME960-7 13005 (definition 1976 in:) showpt %6ME960-7 13006 (definition 1976 in:) showx1 %7ME960-7 13007 (definition 1976 in:) showy1 %8ME960-7 13008 (definition 1976 in:) showz1 %9ME960-7 13009 S4 yu3 yd 2 mul add moveto TIG (Gegenfarbsystem) showde %0ME960-7 14000 (CIELAB) showen %1ME960-7 14001 (sistema opuesto) showes %3ME960-7 14003 (CIELAB) showfr %2ME960-7 14002 (CIELAB) showit %4ME960-7 14004 (CIELAB) showno %5ME960-7 14005 (CIELAB) showpt %6ME960-7 14006 (CIELAB) showx1 %7ME960-7 14007 (CIELAB) showy1 %8ME960-7 14008 (CIELAB) showz1 %9ME960-7 14009 S4 yu3 yd 4 mul add moveto TIG (n = D65 (Umfeld)) showde %0ME960-7 15000 (n=D65 (surround)) showen %1ME960-7 15001 (n=D65 (redondeo)) showes %3ME960-7 15003 (n=D65 (surround)) showfr %2ME960-7 15002 (n=D65 (sfondo)) showit %4ME960-7 15004 (n=D65 (omfelt)) showno %5ME960-7 15005 (n=D65 (surround)) showpt %6ME960-7 15006 (n=D65 (surround)) showx1 %7ME960-7 15007 (n=D65 (surround)) showy1 %8ME960-7 15008 (n=D65 (surround)) showz1 %9ME960-7 15009 S2 yu3 yd add moveto TG (Rot-Gr\374n) showde %0ME960-7 16000 (red-green) showen %1ME960-7 16001 (Rojo-Verde) showes %3ME960-7 16003 (red-green) showfr %2ME960-7 16002 (rosso-verde) showit %4ME960-7 16004 (r\370d-gr\370nn) showno %5ME960-7 16005 (red-green) showpt %6ME960-7 16006 (red-green) showx1 %7ME960-7 16007 (red-green) showy1 %8ME960-7 16008 (red-green) showz1 %9ME960-7 16009 S2 yu3 yd 3 mul add moveto TG (Gelb-Blau) showde %0ME960-7 17000 (yellow-blue) showen %1ME960-7 17001 (Amarillo-Azul) showes %3ME960-7 17003 (yellow-blue) showfr %2ME960-7 17002 (giallo-blu) showit %4ME960-7 17004 (gul-bl\345) showno %5ME960-7 17005 (yellow-blue) showpt %6ME960-7 17006 (yellow-blue) showx1 %7ME960-7 17007 (yellow-blue) showy1 %8ME960-7 17008 (yellow-blue) showz1 %9ME960-7 17009 S2 yu3 yd 5 mul add moveto TG (radial) showde %0ME960-7 18000 (radial) showen %1ME960-7 18001 (radial) showes %3ME960-7 18003 (radial) showfr %2ME960-7 18002 (radiale) showit %4ME960-7 18004 (radiell) showno %5ME960-7 18005 (radial) showpt %6ME960-7 18006 (radial) showx1 %7ME960-7 18007 (radial) showy1 %8ME960-7 18008 (radial) showz1 %9ME960-7 18009 S3 yu3 yd 1 mul add moveto (a*) ks ( = 500 [ \050 ) ns (X / X) ks (n) is (\051) ns (1/3) es ( - \050 ) ns (Y / Y) ks (n) is (\051) ns (1/3) es ( ]) ns S3 yu3 yd 2 mul add moveto ( )ns ( = 500 \050) ns ( a' - a') ks -100 0 rmoveto (n) is ( \051 ) ns (Y) ks (1/3) es S3 yu3 yd 3 mul add moveto (b*) ks ( = 200 [ \050 ) ns (Y / Y) ks (n) is (\051) ns (1/3) es ( - \050 ) ns (Z / Z) ks (n) is (\051) ns (1/3) es ( ]) ns S3 yu3 yd 4 mul add moveto ( )ns ( = 500 \050) ns ( b' - b') ks -100 0 rmoveto (n) is ( \051 ) ns (Y) ks (1/3) es S3 yu3 yd 5 mul add moveto (C*) ks (ab) is ( = [ ) ns (a*) ks (2) es ( + ) ns (b*) ks (2) es ( ] ) ns (1/2) es S1 yu2 moveto TBG (S\344ttigung) showde %0ME960-7 19000 (saturation) showen %1ME960-7 19001 (vista saturacion ) showes %3ME960-7 19003 (saturation) showfr %2ME960-7 19002 (saturation) showit %4ME960-7 19004 (metning) showno %5ME960-7 19005 (saturation) showpt %6ME960-7 19006 (saturation) showx1 %7ME960-7 19007 (saturation) showy1 %8ME960-7 19008 (saturation) showz1 %9ME960-7 19009 S4 yu2 yd 1 mul add moveto TIG (Definition) showde %0ME960-7 20000 (definition) showen %1ME960-7 20001 (Definicion) showes %3ME960-7 20003 (definition) showfr %2ME960-7 20002 (definition) showit %4ME960-7 20004 (definisjon) showno %5ME960-7 20005 (definition) showpt %6ME960-7 20006 (definition) showx1 %7ME960-7 20007 (definition) showy1 %8ME960-7 20008 (definition) showz1 %9ME960-7 20009 S4 yu2 yd 2 mul add moveto TIG (f\374r:) showde %0ME960-7 21000 (for:) showen %1ME960-7 21001 (sistema opuesto) showes %3ME960-7 21003 (for:) showfr %2ME960-7 21002 (per:) showit %4ME960-7 21004 (for:) showno %5ME960-7 21005 (for:) showpt %6ME960-7 21006 (for:) showx1 %7ME960-7 21007 (for:) showy1 %8ME960-7 21008 (for:) showz1 %9ME960-7 21009 S4 yu2 yd 3 mul add moveto TIG ( CIELAB 1976) showde %0ME960-7 22000 ( CIELAB 1976) showen %1ME960-7 22001 (de color) showes %3ME960-7 22003 ( CIELAB 1976) showfr %2ME960-7 22002 ( CIELAB 1976) showit %4ME960-7 22004 ( CIELAB 1976) showno %5ME960-7 22005 ( CIELAB 1976) showpt %6ME960-7 22006 ( CIELAB 1976) showx1 %7ME960-7 22007 ( CIELAB 1976) showy1 %8ME960-7 22008 ( CIELAB 1976) showz1 %9ME960-7 22009 S3 yu2 moveto TBG (= Buntheit / Helligkeit) showde %0ME960-7 23000 (= chroma / lightness) showen %1ME960-7 23001 (= vista cromaticos / vista acromaticos) showes %3ME960-7 23003 (= chromaticness / lightness) showfr %2ME960-7 23002 (= chroma / chiarezza) showit %4ME960-7 23004 (= kul\370rthet / lyshet) showno %5ME960-7 23005 (= chromaticness / lightness) showpt %6ME960-7 23006 (= chroma / lightness) showx1 %7ME960-7 23007 (= chroma / lightness) showy1 %8ME960-7 23008 (= chroma / lightness) showz1 %9ME960-7 23009 S4 yu2 yd 1 mul add moveto TIG (Definition) showde %0ME960-7 24000 (definition) showen %1ME960-7 24001 (Definicion) showes %3ME960-7 24003 (definition) showfr %2ME960-7 24002 (definition) showit %4ME960-7 24004 (definisjon) showno %5ME960-7 24005 (definition) showpt %6ME960-7 24006 (definition) showx1 %7ME960-7 24007 (definition) showy1 %8ME960-7 24008 (definition) showz1 %9ME960-7 24009 S4 yu2 yd 2 mul add moveto TIG (f\374r:) showde %0ME960-7 25000 (for:) showen %1ME960-7 25001 (sistema opuesto) showes %3ME960-7 25003 (for:) showfr %2ME960-7 25002 (per:) showit %4ME960-7 25004 (for:) showno %5ME960-7 25005 (for:) showpt %6ME960-7 25006 (for:) showx1 %7ME960-7 25007 (for:) showy1 %8ME960-7 25008 (for:) showz1 %9ME960-7 25009 S4 yu2 yd 3 mul add moveto TIG ( CIELAB 1976) showde %0ME960-7 26000 ( CIELAB 1976) showen %1ME960-7 26001 (de color) showes %3ME960-7 26003 ( CIELAB 1976) showfr %2ME960-7 26002 ( CIELAB 1976) showit %4ME960-7 26004 ( CIELAB 1976) showno %5ME960-7 26005 ( CIELAB 1976) showpt %6ME960-7 26006 ( CIELAB 1976) showx1 %7ME960-7 26007 ( CIELAB 1976) showy1 %8ME960-7 26008 ( CIELAB 1976) showz1 %9ME960-7 26009 S2 yu2 yd add moveto TG (Rot-Gr\374n) showde %0ME960-7 27000 (red-green) showen %1ME960-7 27001 (Rojo-Verde) showes %3ME960-7 27003 (red-green) showfr %2ME960-7 27002 (rosso-verde) showit %4ME960-7 27004 (r\370d-gr\370nn) showno %5ME960-7 27005 (red-green) showpt %6ME960-7 27006 (red-green) showx1 %7ME960-7 27007 (red-green) showy1 %8ME960-7 27008 (red-green) showz1 %9ME960-7 27009 S2 yu2 yd 3 mul add moveto TG (Gelb-Blau) showde %0ME960-7 28000 (yellow-blue) showen %1ME960-7 28001 (Amarillo-Azul) showes %3ME960-7 28003 (yellow-blue) showfr %2ME960-7 28002 (giallo-blu) showit %4ME960-7 28004 (gul-bl\345) showno %5ME960-7 28005 (yellow-blue) showpt %6ME960-7 28006 (yellow-blue) showx1 %7ME960-7 28007 (yellow-blue) showy1 %8ME960-7 28008 (yellow-blue) showz1 %9ME960-7 28009 S2 yu2 yd 5 mul add moveto TG (radial) showde %0ME960-7 29000 (radial) showen %1ME960-7 29001 (radial) showes %3ME960-7 29003 (radial) showfr %2ME960-7 29002 (radiale) showit %4ME960-7 29004 (radiell) showno %5ME960-7 29005 (radial) showpt %6ME960-7 29006 (radial) showx1 %7ME960-7 29007 (radial) showy1 %8ME960-7 29008 (radial) showz1 %9ME960-7 29009 S3 yu2 yd 1 mul add moveto (S*) ks -150 0 rmoveto (a) is ( = ) ns (a*) ks ( / [ ) ns (100 \050 ) ns (Y) ks ( / 100 \051 ) ns (1/3) es ( ]) ns S3 yu2 yd 2 mul add moveto ( = 21,6 \050 ) ns (a' - a') ks -100 0 rmoveto (n) is ( \051) ns S3 yu2 yd 3 mul add moveto (S*) ks -150 0 rmoveto (b) is ( = ) ns (b*) ks ( / [ ) ns (100 \050 ) ns (Y) ks ( / 100 \051 ) ns (1/3) es ( ]) ns S3 yu2 yd 4 mul add moveto ( = 21,6 \050 ) ns (b' - b') ks -100 0 rmoveto (n) is ( \051) ns S3 yu2 yd 5 mul add moveto (S*) ks -150 0 rmoveto (ab) is ( = ) ns (C*) ks ( / [ ) ns (100 \050 ) ns (Y) ks ( / 100 \051 ) ns (1/3) es ( ]) ns S3 yu2 yd 6 mul add moveto ( = 21,6 [ \050 ) ns (a' - a') ks -100 0 rmoveto (n) is ( \051) ns (2) es (+\050 ) ns (b' - b') ks -100 0 rmoveto (n) is ( \051) ns (2) es ( ]) ns (1/2) es S1 yu1 moveto TBG (Farbart) showde %0ME960-7 30000 (chromaticity ) showen %1ME960-7 30001 (chromatico ) showes %3ME960-7 30003 (chromaticity ) showfr %2ME960-7 30002 (chromaticito ) showit %4ME960-7 30004 (kromatisitet ) showno %5ME960-7 30005 (chromaticity ) showpt %6ME960-7 30006 (chromaticity ) showx1 %7ME960-7 30007 (chromaticity ) showy1 %8ME960-7 30008 (chromaticity ) showz1 %9ME960-7 30009 S3 yu1 moveto TIG (f\374r nichtlineare Farbtafel (a', b')) showde %0ME960-7 31000 (for nonlinear chromaticity diagram (a', b')) showen %1ME960-7 31001 (para color nonlineal-tablero (a', b')) showes %3ME960-7 31003 (for nonlinear chromaticity diagram (a', b')) showfr %2ME960-7 31002 (for nonlinear chromaticity diagram (a', b')) showit %4ME960-7 31004 (for ikke\255line\346rt kromatisitetsdiagram (a', b')) showno %5ME960-7 31005 (for nonlinear chromaticity diagram (a', b')) showpt %6ME960-7 31006 (for nonlinear chromaticity diagram (a', b')) showx1 %7ME960-7 31007 (for nonlinear chromaticity diagram (a', b')) showy1 %8ME960-7 31008 (for nonlinear chromaticity diagram (a', b')) showz1 %9ME960-7 31009 S4 yu1 yd 1 mul add moveto TIG (Definition) showde %0ME960-7 32000 (definition for) showen %1ME960-7 32001 (Definicion for) showes %3ME960-7 32003 (definition pour) showfr %2ME960-7 32002 (definition per) showit %4ME960-7 32004 () showno %5ME960-7 32005 (definition pour) showpt %6ME960-7 32006 (definition for) showx1 %7ME960-7 32007 (definition for) showy1 %8ME960-7 32008 (definition for) showz1 %9ME960-7 32009 S4 yu1 yd 2 mul add moveto TIG (im) showde %0ME960-7 33000 (opponent) showen %1ME960-7 33001 (sistema opuesto) showes %3ME960-7 33003 (opponent) showfr %2ME960-7 33002 (opponent) showit %4ME960-7 33004 (definisjon) showno %5ME960-7 33005 (opponent) showpt %6ME960-7 33006 (opponent) showx1 %7ME960-7 33007 (opponent) showy1 %8ME960-7 33008 (opponent) showz1 %9ME960-7 33009 S4 yu1 yd 3 mul add moveto TIG (Gegenfarbsystem) showde %0ME960-7 34000 (color system) showen %1ME960-7 34001 (de color) showes %3ME960-7 34003 (color system) showfr %2ME960-7 34002 (color system) showit %4ME960-7 34004 (motfargesystem) showno %5ME960-7 34005 (color system) showpt %6ME960-7 34006 (color system) showx1 %7ME960-7 34007 (color system) showy1 %8ME960-7 34008 (color system) showz1 %9ME960-7 34009 S2 yu1 yd 1 mul add moveto TG (Rot-Gr\374n) showde %0ME960-7 35000 (red-green) showen %1ME960-7 35001 (Rojo-Verde) showes %3ME960-7 35003 (red-green) showfr %2ME960-7 35002 (rosso-verde) showit %4ME960-7 35004 (r\370d-gr\370nn) showno %5ME960-7 35005 (red-green) showpt %6ME960-7 35006 (red-green) showx1 %7ME960-7 35007 (red-green) showy1 %8ME960-7 35008 (red-green) showz1 %9ME960-7 35009 S2 yu1 yd 3 mul add moveto TG (Gelb-Blau) showde %0ME960-7 36000 (yellow-blue) showen %1ME960-7 36001 (Amarillo-Azul) showes %3ME960-7 36003 (yellow-blue) showfr %2ME960-7 36002 (giallo-blu) showit %4ME960-7 36004 (gul-bl\345) showno %5ME960-7 36005 (yellow-blue) showpt %6ME960-7 36006 (yellow-blue) showx1 %7ME960-7 36007 (yellow-blue) showy1 %8ME960-7 36008 (yellow-blue) showz1 %9ME960-7 36009 S2 yu1 yd 5 mul add moveto TG (radial) showde %0ME960-7 37000 (radial) showen %1ME960-7 37001 (radial) showes %3ME960-7 37003 (radial) showfr %2ME960-7 37002 (radiale) showit %4ME960-7 37004 (radiell) showno %5ME960-7 37005 (radial) showpt %6ME960-7 37006 (radial) showx1 %7ME960-7 37007 (radial) showy1 %8ME960-7 37008 (radial) showz1 %9ME960-7 37009 S3 yu1 yd 1 mul add moveto (a') ks ( = \050 1 / ) ns (X) ks (n) is ( \051) ns (1/3) es ( \050 ) ns (x / y) ks ( \051) ns (1/3) es S3 yu1 yd 2 mul add moveto ( ) ks ( = 0,2191 \050 ) ns (x / y) ks ( \051) ns (1/3) es TG ( f\374r ) showde %0ME960-7 38000 ( for ) showen %1ME960-7 38001 ( para ) showes %3ME960-7 38003 ( for ) showfr %2ME960-7 38002 ( per ) showit %4ME960-7 38004 ( for ) showno %5ME960-7 38005 ( for ) showpt %6ME960-7 38006 ( for ) showx1 %7ME960-7 38007 ( for ) showy1 %8ME960-7 38008 ( for ) showz1 %9ME960-7 38009 TG (D65) show S3 yu1 yd 3 mul add moveto (b') ks ( = - 0,4 \050 1 / ) ns (Z) ks (n) is ( \051) ns (1/3) es ( \050 ) ns (z / y) ks ( \051) ns (1/3) es S3 yu1 yd 4 mul add moveto ( ) ks ( = - 0,08376 \050 ) ns (z / y) ks ( \051) ns (1/3) es TG ( f\374r ) showde %0ME960-7 39000 ( for ) showen %1ME960-7 39001 ( para ) showes %3ME960-7 39003 ( for ) showfr %2ME960-7 39002 ( per ) showit %4ME960-7 39004 ( for ) showno %5ME960-7 39005 ( for ) showpt %6ME960-7 39006 ( for ) showx1 %7ME960-7 39007 ( for ) showy1 %8ME960-7 39008 ( for ) showz1 %9ME960-7 39009 TG (D65) show S3 yu1 yd 5 mul add moveto (c') ks -50 0 rmoveto (ab) is ( = [ \050 ) ns (a' - a') ks -100 0 rmoveto (n) is ( \051) ns (2) es ( + \050 ) ns (b' - b') ks -100 0 rmoveto (n) is ( \051) ns (2) es ( ]) ns (1/2) es showpage grestore %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 020 MM translate 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 ME960-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 (ME960-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 ME961-1 %%BoundingBox: 70 83 226 206 %START PDFDE011.EPS /pdfmark12 where {pop} {userdict /pdfmark12 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [/Title (PostScript pictures: farbe.li.tu-berlin.de/ME96/ME96.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2019080112000) /ModDate (D:20190801112000) /DOCINFO pdfmark12 [ /View [ /FitB ] /DOCVIEW pdfmark12 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % !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 /TK {250 16.67 div /Times-ISOL1 FS} bind def /TM {300 16.67 div /Times-ISOL1 FS} bind def /TG {350 16.67 div /Times-ISOL1 FS} bind def /TIK {250 16.67 div /TimesI-ISOL1 FS} bind def /TIM {300 16.67 div /TimesI-ISOL1 FS} bind def /TIG {350 16.67 div /TimesI-ISOL1 FS} bind def /TBK {250 16.67 div /TimesB-ISOL1 FS} bind def /TBM {300 16.67 div /TimesB-ISOL1 FS} bind def /TBG {350 16.67 div /TimesB-ISOL1 FS} bind def /TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def /TBIM {300 16.67 div /TimesBI-ISOL1 FS} bind def /TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def /SK {250 16.67 div 1 sub /Symbol FS} bind def /SM {300 16.67 div 1 sub /Symbol FS} bind def /SG {350 16.67 div 1 sub /Symbol FS} bind def /tolvfcol %Farbkreis-Reihenfolge [ (000) (F00) (FF0) (0F0) (0FF) (00F) (F0F) (FFF) (777) (700) (770) (070) (077) (007) (707) (F07) %15=R (333) (F77) (FF7) (7F7) (7FF) (77F) (F7F) (07F) %23=B (BBB) (F70) (7F0) (0F7) (07F) (70F) (F07) (0F7) %31=G ] def /tcmyfcol %Farbkreis-Reihenfolge [ (FFF) (0FF) (00F) (F0F) (F00) (FF0) (0F0) (000) (888) (8FF) (88F) (F8F) (F88) (FF8) (8F8) (0F8) %15=R (CCC) (088) (008) (808) (800) (880) (080) (F80) %23=B (444) (08F) (80F) (F08) (F80) (8F0) (0F8) (F08) %31=G ] def /tcmykfcol %Farbkreis-Reihenfolge [ (000F) (0FF0) (00F0) (F0F0) (F000) (FF00) (0F00) (0000) (0008) (0FF8) (00F8) (F0F8) (F008) (FF08) (0F08) (0F80) %15=R (000C) (0880) (0080) (8080) (8000) (8800) (0800) (F800) %23=B (0004) (0F80) (80F0) (F080) (F800) (8F00) (0F80) (F080) %31=G ] def /tolvfcols %Farbkreis-Reihenfolge [ (000*) (F00*) (FF0*) (0F0*) (0FF*) (00F*) (F0F*) (FFF*) (777*) (700*) (770*) (070*) (077*) (007*) (707*) (F07*) %15=R (333*) (F77*) (FF7*) (7F7*) (7FF*) (77F*) (F7F*) (07F*) %23=B (BBB*) (F70*) (7F0*) (0F7*) (07F*) (70F*) (F07*) (0F7*) %31=G ] def /tcmyfcols %Farbkreis-Reihenfolge [ (FFF*) (0FF*) (00F*) (F0F*) (F00*) (FF0*) (0F0*) (000*) (888*) (8FF*) (88F*) (F8F*) (F88*) (FF8*) (8F8*) (0F8*) %15=R (CCC*) (088*) (008*) (808*) (800*) (880*) (080*) (F80*) %23=B (444*) (08F*) (80F*) (F08*) (F80*) (8F0*) (0F8*) (F08*) %31=G ] def /tcmykfcols %Farbkreis-Reihenfolge [ (000F*) (0FF0*) (00F0*) (F0F0*) (F000*) (FF00*) (0F00*) (0000*) (0008*) (0FF8*) (00F8*) (F0F8*) (F008*) (FF08*) (0F08*) (0F80*) %15=R (000C*) (0880*) (0080*) (8080*) (8000*) (8800*) (0800*) (F800*) %23=B (0004*) (0F80*) (80F0*) (F080*) (F800*) (8F00*) (0F80*) (F080*) %31=G ] def /fcolors %CMYN 32 Testfarben Nr. 0 bis 31; Farbkreis-Reihenfolge [{0.0 0.0 0.0 1.0} {0.0 1.0 1.0 0.0} {0.0 0.0 1.0 0.0} {1.0 0.0 1.0 0.0} {1.0 0.0 0.0 0.0} {1.0 1.0 0.0 0.0} {0.0 1.0 0.0 0.0} {0.0 0.0 0.0 0.0} {0.0 0.0 0.0 0.5} {0.0 1.0 1.0 0.5} {0.0 0.0 1.0 0.5} {1.0 0.0 1.0 0.5} {1.0 0.0 0.0 0.5} {1.0 1.0 0.0 0.5} {0.0 1.0 0.0 0.5} {0.0 1.0 0.5 0.0} {0.0 0.0 0.0 0.75} {0.0 0.5 0.5 0.0} {0.0 0.0 0.5 0.0} {0.5 0.0 0.5 0.0} {0.5 0.0 0.0 0.0} {0.5 0.5 0.0 0.0} {0.0 0.5 0.0 0.0} {1.0 0.5 0.0 0.0} {0.0 0.0 0.0 0.25} {0.0 0.5 1.0 0.0} {0.5 0.0 1.0 0.0} {1.0 0.0 0.5 0.0} {1.0 0.5 0.0 0.0} {0.5 1.0 0.0 0.0} {0.0 1.0 0.5 0.0} {1.0 0.0 0.5 0.0} ] def /fak 0.5 def /Far %Farbkreis-Reihenfolge [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %R 16 17 18 19 20 21 22 23 %B 24 25 26 27 28 29 30 31 %G ] def /cFar %Kompensativ-Farbkreis-Reihenfolge [ 8 4 5 6 1 2 3 0 0 20 21 22 17 18 19 31 %G 24 12 13 14 9 10 11 2 %J 16 28 29 30 25 26 27 15 %R ] def /Btx %Farbkreis- -> %Btx-Reihenfolge [ 0 1 3 2 5 6 4 7 8 9 11 10 13 14 12 15 %R 16 17 19 18 21 22 20 23 %B 24 25 26 27 28 29 30 31 %G ] def /cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge [ 7 4 6 5 2 3 1 0 8 20 22 21 18 19 17 31 %G 24 12 14 13 10 11 9 2 %J 16 25 26 27 28 29 30 15 %R ] def %XCHA01.PS BEG /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y k {setcmyk_olvcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmyk_olvcolor rec stroke} bind def /rem %x, y width heigth {/heigth exch 0.5 mul def /width exch 0.5 mul def /yleftb exch heigth 0.5 mul add def /xleftb exch width 0.5 mul add def xleftb yleftb moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colremfi %x y width heigth c m y k {setcmykcolor rem fill} bind def /colremst %x y width heigth c m y k {setcmykcolor rem stroke} bind def /tzr {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzg {1.0 0.0 1.0 0.0} bind def /tzb {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tfr {0.0 1.0 1.0 0.0 setcmyk_olvcolor} bind def %Reproduktionsfarben /tfg {1.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def /tfb {1.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def /tfc {1.0 0.0 0.0 0.0 setcmyk_olvcolor} bind def /tfm {0.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def /tfy {0.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def /tfn {0.0 0.0 0.0 1.00 setcmyk_olvcolor} bind def %Graureihe /tfd {0.0 0.0 0.0 0.75 setcmyk_olvcolor} bind def /tfz {0.0 0.0 0.0 0.50 setcmyk_olvcolor} bind def /tfh {0.0 0.0 0.0 0.25 setcmyk_olvcolor} bind def /tfw {0.0 0.0 0.0 0.00 setcmyk_olvcolor} bind def %%EndProlog gsave /lanind 1 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showfr {2 lanind eq {show} {pop} ifelse} bind def /showes {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showno {5 lanind eq {show} {pop} ifelse} bind def /showpt {6 lanind eq {show} {pop} ifelse} bind def /showx1 {7 lanind eq {show} {pop} ifelse} bind def /showy1 {8 lanind eq {show} {pop} ifelse} bind def /showz1 {9 lanind eq {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 3 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def 75 85 moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolor cvishow xchart cvishow pchart cvishow colsep cvishow (-L) show pmetam cvishow gsave %XCHA01.PS END 5 /Times-ISOL1 FS 175 85 moveto (ME961-1) show xchart 0 eq {(N) show} {deintp colorm 2 mul add cvishow} ifelse (, B2_33) show % ( B8540_1, M8150-4, B2_33, N=2_33) show 72 90 translate /pixf 1.0 def 0.1667 pixf div MM dup scale /ausz 8 def %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F 0 0 320 240 0.0 0.0 0.0 0.5 colrecfi %Rechteck Mittelgrau TBM %Schrift Times-Bold-Gross 0.0 0.0 0.0 0.0 setcmyk_olvcolor %Schrift Weiss 010 030 moveto (Farben: Wei\337) showde %0ME961-1 00000 (colours: white) showen %1ME961-1 00001 (colores: blanco) showes %3ME961-1 00003 (couleurs: blanc) showfr %2ME961-1 00002 (colori: bianco) showit %4ME961-1 00004 (farger: hvit) showno %5ME961-1 00005 (couleurs: blanc) showpt %6ME961-1 00006 (colours: white) showx1 %7ME961-1 00007 (colours: white) showy1 %8ME961-1 00008 (colours: white) showz1 %9ME961-1 00009 TBIM ( W) show TBK 0 -3 rmoveto (d) show 0 3 rmoveto TBM ( (I), Rot) showde %0ME961-1 01000 ( (I), red) showen %1ME961-1 01001 ( (I), rojo) showes %3ME961-1 01003 ( (II), rouge) showfr %2ME961-1 01002 ( (I), rosso) showit %4ME961-1 01004 ( (I), r\370d) showno %5ME961-1 01005 ( (II), rouge) showpt %6ME961-1 01006 ( (I), red) showx1 %7ME961-1 01007 ( (I), red) showy1 %8ME961-1 01008 ( (I), red) showz1 %9ME961-1 01009 TBIM ( R) show TBK 0 -3 rmoveto (d) show 0 3 rmoveto TBM ( (II)) show 010 006 moveto (und fluoreszierendes Rot) showde %0ME961-1 02000 (and fluorescent red) showen %1ME961-1 02001 (y rojo fluorescente) showes %3ME961-1 02003 (et rouge fluorescent) showfr %2ME961-1 02002 (e fluorescente rosso) showit %4ME961-1 02004 (og fluorescerende r\370d) showno %5ME961-1 02005 (et rouge fluorescent) showpt %6ME961-1 02006 (and fluorescent red) showx1 %7ME961-1 02007 (and fluorescent red) showy1 %8ME961-1 02008 (and fluorescent red) showz1 %9ME961-1 02009 TBIM ( R) show TBK 0 -3 rmoveto (df) show 0 3 rmoveto TBM ( (III)) show TBG 005 215 moveto (Drei K\366rperfarben) showde %0ME961-1 03000 (three surface colours) showen %1ME961-1 03001 (tres objetos de color) showes %3ME961-1 03003 (trois couleurs de surface) showfr %2ME961-1 03002 (tre superficie i colori) showit %4ME961-1 03004 (tre overflatefarger) showno %5ME961-1 03005 (trois couleurs de surface) showpt %6ME961-1 03006 (three surface colours) showx1 %7ME961-1 03007 (three surface colours) showy1 %8ME961-1 03008 (three surface colours) showz1 %9ME961-1 03009 /xd 4.0 def /xd2 8.0 def /ix0 45 def /iy0 50 def %ix0 3 sub iy0 1 sub 273 2 fcolors 7 get exec colrecfi ix0 1 sub iy0 3 sub 2 157 fcolors 7 get exec colrecfi 0 50 150 {/iyd exch def 10 iy0 iyd add 1 sub 300 2 fcolors 07 get exec colrecfi } for %Schleife iyd %three colours ix0 001 add iy0 101 add 256 48 fcolors 7 get exec colrecfi ix0 001 add iy0 051 add 256 48 fcolors 1 get exec colrecfi /it 0 def it 0 eq {%it=0,1 ix0 001 add iy0 001 add 256 48 fcolors 7 get exec colrecfi }%it=0 {%it=1 ix0 001 add iy0 001 add 256 48 fcolors 0 get exec colrecfi fcolors 7 get exec setcmykcolor TBIM ix0 010 add iy0 030 add moveto (fluoreszierendes Rot) showde %0ME961-1 04000 (fluorescent red) showen %1ME961-1 04001 (rojo fluorescente) showes %3ME961-1 04003 (rouge fluorescent) showfr %2ME961-1 04002 (rosso fluorescente) showit %4ME961-1 04004 (fluorescerende r\370d) showno %5ME961-1 04005 (rouge fluorescent) showpt %6ME961-1 04006 (fluorescent red) showx1 %7ME961-1 04007 (fluorescent red) showy1 %8ME961-1 04008 (fluorescent red) showz1 %9ME961-1 04009 ix0 010 add iy0 010 add moveto (im Druck) showde %0ME961-1 05000 (in offset print) showen %1ME961-1 05001 (en impresi\363n offset) showes %3ME961-1 05003 (en impression offset) showfr %2ME961-1 05002 (nella stampa di deviazione) showit %4ME961-1 05004 (i offsettrykk) showno %5ME961-1 05005 (en impression offset) showpt %6ME961-1 05006 (in offset print) showx1 %7ME961-1 05007 (in offset print) showy1 %8ME961-1 05008 (in offset print) showz1 %9ME961-1 05009 } ifelse %it=0,1 0.0 0.0 0.0 0.0 setcmyk_olvcolor %W ix0 25 sub iy0 100 add 20 add moveto (I) show ix0 30 sub iy0 050 add 20 add moveto (II) show ix0 35 sub iy0 000 add 20 add moveto (III) show showpage grestore %%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 ME961-2 %%BoundingBox: 70 83 226 206 %START PDFDE011.EPS /pdfmark12 where {pop} {userdict /pdfmark12 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [/Title (PostScript pictures: farbe.li.tu-berlin.de/ME96/ME96.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2019080112000) /ModDate (D:20190801112000) /DOCINFO pdfmark12 [ /View [ /FitB ] /DOCVIEW pdfmark12 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % !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 /TK {250 16.67 div /Times-ISOL1 FS} bind def /TM {300 16.67 div /Times-ISOL1 FS} bind def /TG {350 16.67 div /Times-ISOL1 FS} bind def /TIK {250 16.67 div /TimesI-ISOL1 FS} bind def /TIM {300 16.67 div /TimesI-ISOL1 FS} bind def /TIG {350 16.67 div /TimesI-ISOL1 FS} bind def /TBK {250 16.67 div /TimesB-ISOL1 FS} bind def /TBM {300 16.67 div /TimesB-ISOL1 FS} bind def /TBG {350 16.67 div /TimesB-ISOL1 FS} bind def /TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def /TBIM {300 16.67 div /TimesBI-ISOL1 FS} bind def /TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def /SK {250 16.67 div 1 sub /Symbol FS} bind def /SM {300 16.67 div 1 sub /Symbol FS} bind def /SG {350 16.67 div 1 sub /Symbol FS} bind def /tolvfcol %Farbkreis-Reihenfolge [ (000) (F00) (FF0) (0F0) (0FF) (00F) (F0F) (FFF) (777) (700) (770) (070) (077) (007) (707) (F07) %15=R (333) (F77) (FF7) (7F7) (7FF) (77F) (F7F) (07F) %23=B (BBB) (F70) (7F0) (0F7) (07F) (70F) (F07) (0F7) %31=G ] def /tcmyfcol %Farbkreis-Reihenfolge [ (FFF) (0FF) (00F) (F0F) (F00) (FF0) (0F0) (000) (888) (8FF) (88F) (F8F) (F88) (FF8) (8F8) (0F8) %15=R (CCC) (088) (008) (808) (800) (880) (080) (F80) %23=B (444) (08F) (80F) (F08) (F80) (8F0) (0F8) (F08) %31=G ] def /tcmykfcol %Farbkreis-Reihenfolge [ (000F) (0FF0) (00F0) (F0F0) (F000) (FF00) (0F00) (0000) (0008) (0FF8) (00F8) (F0F8) (F008) (FF08) (0F08) (0F80) %15=R (000C) (0880) (0080) (8080) (8000) (8800) (0800) (F800) %23=B (0004) (0F80) (80F0) (F080) (F800) (8F00) (0F80) (F080) %31=G ] def /tolvfcols %Farbkreis-Reihenfolge [ (000*) (F00*) (FF0*) (0F0*) (0FF*) (00F*) (F0F*) (FFF*) (777*) (700*) (770*) (070*) (077*) (007*) (707*) (F07*) %15=R (333*) (F77*) (FF7*) (7F7*) (7FF*) (77F*) (F7F*) (07F*) %23=B (BBB*) (F70*) (7F0*) (0F7*) (07F*) (70F*) (F07*) (0F7*) %31=G ] def /tcmyfcols %Farbkreis-Reihenfolge [ (FFF*) (0FF*) (00F*) (F0F*) (F00*) (FF0*) (0F0*) (000*) (888*) (8FF*) (88F*) (F8F*) (F88*) (FF8*) (8F8*) (0F8*) %15=R (CCC*) (088*) (008*) (808*) (800*) (880*) (080*) (F80*) %23=B (444*) (08F*) (80F*) (F08*) (F80*) (8F0*) (0F8*) (F08*) %31=G ] def /tcmykfcols %Farbkreis-Reihenfolge [ (000F*) (0FF0*) (00F0*) (F0F0*) (F000*) (FF00*) (0F00*) (0000*) (0008*) (0FF8*) (00F8*) (F0F8*) (F008*) (FF08*) (0F08*) (0F80*) %15=R (000C*) (0880*) (0080*) (8080*) (8000*) (8800*) (0800*) (F800*) %23=B (0004*) (0F80*) (80F0*) (F080*) (F800*) (8F00*) (0F80*) (F080*) %31=G ] def /fcolors %CMYN 32 Testfarben Nr. 0 bis 31; Farbkreis-Reihenfolge [{0.0 0.0 0.0 1.0} {0.0 1.0 1.0 0.0} {0.0 0.0 1.0 0.0} {1.0 0.0 1.0 0.0} {1.0 0.0 0.0 0.0} {1.0 1.0 0.0 0.0} {0.0 1.0 0.0 0.0} {0.0 0.0 0.0 0.0} {0.0 0.0 0.0 0.5} {0.0 1.0 1.0 0.5} {0.0 0.0 1.0 0.5} {1.0 0.0 1.0 0.5} {1.0 0.0 0.0 0.5} {1.0 1.0 0.0 0.5} {0.0 1.0 0.0 0.5} {0.0 1.0 0.5 0.0} {0.0 0.0 0.0 0.75} {0.0 0.5 0.5 0.0} {0.0 0.0 0.5 0.0} {0.5 0.0 0.5 0.0} {0.5 0.0 0.0 0.0} {0.5 0.5 0.0 0.0} {0.0 0.5 0.0 0.0} {1.0 0.5 0.0 0.0} {0.0 0.0 0.0 0.25} {0.0 0.5 1.0 0.0} {0.5 0.0 1.0 0.0} {1.0 0.0 0.5 0.0} {1.0 0.5 0.0 0.0} {0.5 1.0 0.0 0.0} {0.0 1.0 0.5 0.0} {1.0 0.0 0.5 0.0} ] def /fak 0.5 def /Far %Farbkreis-Reihenfolge [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %R 16 17 18 19 20 21 22 23 %B 24 25 26 27 28 29 30 31 %G ] def /cFar %Kompensativ-Farbkreis-Reihenfolge [ 8 4 5 6 1 2 3 0 0 20 21 22 17 18 19 31 %G 24 12 13 14 9 10 11 2 %J 16 28 29 30 25 26 27 15 %R ] def /Btx %Farbkreis- -> %Btx-Reihenfolge [ 0 1 3 2 5 6 4 7 8 9 11 10 13 14 12 15 %R 16 17 19 18 21 22 20 23 %B 24 25 26 27 28 29 30 31 %G ] def /cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge [ 7 4 6 5 2 3 1 0 8 20 22 21 18 19 17 31 %G 24 12 14 13 10 11 9 2 %J 16 25 26 27 28 29 30 15 %R ] def %XCHA01.PS BEG /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y k {setcmyk_olvcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmyk_olvcolor rec stroke} bind def /rem %x, y width heigth {/heigth exch 0.5 mul def /width exch 0.5 mul def /yleftb exch heigth 0.5 mul add def /xleftb exch width 0.5 mul add def xleftb yleftb moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colremfi %x y width heigth c m y k {setcmykcolor rem fill} bind def /colremst %x y width heigth c m y k {setcmykcolor rem stroke} bind def /tzr {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzg {1.0 0.0 1.0 0.0} bind def /tzb {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tfr {0.0 1.0 1.0 0.0 setcmyk_olvcolor} bind def %Reproduktionsfarben /tfg {1.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def /tfb {1.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def /tfc {1.0 0.0 0.0 0.0 setcmyk_olvcolor} bind def /tfm {0.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def /tfy {0.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def /tfn {0.0 0.0 0.0 1.00 setcmyk_olvcolor} bind def %Graureihe /tfd {0.0 0.0 0.0 0.75 setcmyk_olvcolor} bind def /tfz {0.0 0.0 0.0 0.50 setcmyk_olvcolor} bind def /tfh {0.0 0.0 0.0 0.25 setcmyk_olvcolor} bind def /tfw {0.0 0.0 0.0 0.00 setcmyk_olvcolor} bind def %%EndProlog gsave /lanind 1 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showfr {2 lanind eq {show} {pop} ifelse} bind def /showes {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showno {5 lanind eq {show} {pop} ifelse} bind def /showpt {6 lanind eq {show} {pop} ifelse} bind def /showx1 {7 lanind eq {show} {pop} ifelse} bind def /showy1 {8 lanind eq {show} {pop} ifelse} bind def /showz1 {9 lanind eq {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 3 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def 75 85 moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolor cvishow xchart cvishow pchart cvishow colsep cvishow (-L) show pmetam cvishow gsave %XCHA01.PS END 5 /Times-ISOL1 FS 175 85 moveto (ME961-2) show xchart 0 eq {(N) show} {deintp colorm 2 mul add cvishow} ifelse (, B2_33) show % ( B8540_1, M8150-4, B2_33, N=2_33) show 72 90 translate /pixf 1.0 def 0.1667 pixf div MM dup scale /ausz 8 def %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F 0 0 320 240 0.0 0.0 0.0 0.5 colrecfi %Rechteck Mittelgrau TBM %Schrift Times-Bold-Gross 0.0 0.0 0.0 0.0 setcmyk_olvcolor %Schrift Weiss 010 030 moveto (Farben: Wei\337) showde %0ME961-2 00000 (colours: white) showen %1ME961-2 00001 (colores: blanco) showes %3ME961-2 00003 (couleurs: blanc) showfr %2ME961-2 00002 (colori: bianco) showit %4ME961-2 00004 (farger: hvit) showno %5ME961-2 00005 (couleurs: blanc) showpt %6ME961-2 00006 (colours: white) showx1 %7ME961-2 00007 (colours: white) showy1 %8ME961-2 00008 (colours: white) showz1 %9ME961-2 00009 TBIM ( W) show TBK 0 -3 rmoveto (d) show 0 3 rmoveto TBM ( (I), Rot) showde %0ME961-2 01000 ( (I), red) showen %1ME961-2 01001 ( (I), rojo) showes %3ME961-2 01003 ( (II), rouge) showfr %2ME961-2 01002 ( (I), rosso) showit %4ME961-2 01004 ( (I), r\370d) showno %5ME961-2 01005 ( (II), rouge) showpt %6ME961-2 01006 ( (I), red) showx1 %7ME961-2 01007 ( (I), red) showy1 %8ME961-2 01008 ( (I), red) showz1 %9ME961-2 01009 TBIM ( R) show TBK 0 -3 rmoveto (d) show 0 3 rmoveto TBM ( (II)) show 010 006 moveto (und fluoreszierendes Rot) showde %0ME961-2 02000 (and fluorescent red) showen %1ME961-2 02001 (y rojo fluorescente) showes %3ME961-2 02003 (et rouge fluorescent) showfr %2ME961-2 02002 (e fluorescente rosso) showit %4ME961-2 02004 (og fluorescerende r\370d) showno %5ME961-2 02005 (et rouge fluorescent) showpt %6ME961-2 02006 (and fluorescent red) showx1 %7ME961-2 02007 (and fluorescent red) showy1 %8ME961-2 02008 (and fluorescent red) showz1 %9ME961-2 02009 TBIM ( R) show TBK 0 -3 rmoveto (df) show 0 3 rmoveto TBM ( (III)) show TBG 005 215 moveto (Drei K\366rperfarben) showde %0ME961-2 03000 (three surface colours) showen %1ME961-2 03001 (tres objetos de color) showes %3ME961-2 03003 (trois couleurs de surface) showfr %2ME961-2 03002 (tre superficie i colori) showit %4ME961-2 03004 (tre overflatefarger) showno %5ME961-2 03005 (trois couleurs de surface) showpt %6ME961-2 03006 (three surface colours) showx1 %7ME961-2 03007 (three surface colours) showy1 %8ME961-2 03008 (three surface colours) showz1 %9ME961-2 03009 /xd 4.0 def /xd2 8.0 def /ix0 45 def /iy0 50 def %ix0 3 sub iy0 1 sub 273 2 fcolors 7 get exec colrecfi ix0 1 sub iy0 3 sub 2 157 fcolors 7 get exec colrecfi 0 50 150 {/iyd exch def 10 iy0 iyd add 1 sub 300 2 fcolors 07 get exec colrecfi } for %Schleife iyd %three colours ix0 001 add iy0 101 add 256 48 fcolors 7 get exec colrecfi ix0 001 add iy0 051 add 256 48 fcolors 1 get exec colrecfi /it 1 def it 0 eq {%it=0,1 ix0 001 add iy0 001 add 256 48 fcolors 7 get exec colrecfi }%it=0 {%it=1 ix0 001 add iy0 001 add 256 48 fcolors 0 get exec colrecfi fcolors 7 get exec setcmykcolor TBIM ix0 010 add iy0 030 add moveto (fluoreszierendes Rot) showde %0ME961-2 04000 (fluorescent red) showen %1ME961-2 04001 (rojo fluorescente) showes %3ME961-2 04003 (rouge fluorescent) showfr %2ME961-2 04002 (rosso fluorescente) showit %4ME961-2 04004 (fluorescerende r\370d) showno %5ME961-2 04005 (rouge fluorescent) showpt %6ME961-2 04006 (fluorescent red) showx1 %7ME961-2 04007 (fluorescent red) showy1 %8ME961-2 04008 (fluorescent red) showz1 %9ME961-2 04009 ix0 010 add iy0 010 add moveto (im Druck) showde %0ME961-2 05000 (in offset print) showen %1ME961-2 05001 (en impresi\363n offset) showes %3ME961-2 05003 (en impression offset) showfr %2ME961-2 05002 (nella stampa di deviazione) showit %4ME961-2 05004 (i offsettrykk) showno %5ME961-2 05005 (en impression offset) showpt %6ME961-2 05006 (in offset print) showx1 %7ME961-2 05007 (in offset print) showy1 %8ME961-2 05008 (in offset print) showz1 %9ME961-2 05009 } ifelse %it=0,1 0.0 0.0 0.0 0.0 setcmyk_olvcolor %W ix0 25 sub iy0 100 add 20 add moveto (I) show ix0 30 sub iy0 050 add 20 add moveto (II) show ix0 35 sub iy0 000 add 20 add moveto (III) show showpage grestore %%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 ME961-3 %%BoundingBox: 70 83 226 206 %START PDFDE011.EPS /pdfmark13 where {pop} {userdict /pdfmark13 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [/Title (PostScript pictures: farbe.li.tu-berlin.de/ME96/ME96.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2019080112000) /ModDate (D:20190801112000) /DOCINFO pdfmark13 [ /View [ /FitB ] /DOCVIEW pdfmark13 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % !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 /TV {160 16.67 div /Times-ISOL1 FS} bind def /TS {200 16.67 div /Times-ISOL1 FS} bind def /TK {250 16.67 div /Times-ISOL1 FS} bind def /TM {300 16.67 div /Times-ISOL1 FS} bind def /TG {350 16.67 div /Times-ISOL1 FS} bind def /TIV {160 16.67 div /TimesI-ISOL1 FS} bind def /TIS {200 16.67 div /TimesI-ISOL1 FS} bind def /TIK {250 16.67 div /TimesI-ISOL1 FS} bind def /TIM {300 16.67 div /TimesI-ISOL1 FS} bind def /TIG {350 16.67 div /TimesI-ISOL1 FS} bind def /TBV {160 16.67 div /TimesB-ISOL1 FS} bind def /TBS {200 16.67 div /TimesB-ISOL1 FS} bind def /TBK {250 16.67 div /TimesB-ISOL1 FS} bind def /TBM {300 16.67 div /TimesB-ISOL1 FS} bind def /TBG {350 16.67 div /TimesB-ISOL1 FS} bind def /TBIV {160 16.67 div /TimesBI-ISOL1 FS} bind def /TBIS {200 16.67 div /TimesBI-ISOL1 FS} bind def /TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def /TBIM {300 16.67 div /TimesBI-ISOL1 FS} bind def /TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def /SV {160 16.67 div 1 sub /Symbol FS} bind def /SS {200 16.67 div 1 sub /Symbol FS} bind def /SK {250 16.67 div 1 sub /Symbol FS} bind def /SM {300 16.67 div 1 sub /Symbol FS} bind def /SG {350 16.67 div 1 sub /Symbol FS} bind def /tolvfcol %Farbkreis-Reihenfolge [ (000) (F00) (FF0) (0F0) (0FF) (00F) (F0F) (FFF) (777) (700) (770) (070) (077) (007) (707) (F07) %15=R (333) (F77) (FF7) (7F7) (7FF) (77F) (F7F) (07F) %23=B (BBB) (F70) (7F0) (0F7) (07F) (70F) (F07) (0F7) %31=G ] def /tcmyfcol %Farbkreis-Reihenfolge [ (FFF) (0FF) (00F) (F0F) (F00) (FF0) (0F0) (000) (888) (8FF) (88F) (F8F) (F88) (FF8) (8F8) (0F8) %15=R (CCC) (088) (008) (808) (800) (880) (080) (F80) %23=B (444) (08F) (80F) (F08) (F80) (8F0) (0F8) (F08) %31=G ] def /tcmykfcol %Farbkreis-Reihenfolge [ (000F) (0FF0) (00F0) (F0F0) (F000) (FF00) (0F00) (0000) (0008) (0FF8) (00F8) (F0F8) (F008) (FF08) (0F08) (0F80) %15=R (000C) (0880) (0080) (8080) (8000) (8800) (0800) (F800) %23=B (0004) (0F80) (80F0) (F080) (F800) (8F00) (0F80) (F080) %31=G ] def /tolvfcols %Farbkreis-Reihenfolge [ (000*) (F00*) (FF0*) (0F0*) (0FF*) (00F*) (F0F*) (FFF*) (777*) (700*) (770*) (070*) (077*) (007*) (707*) (F07*) %15=R (333*) (F77*) (FF7*) (7F7*) (7FF*) (77F*) (F7F*) (07F*) %23=B (BBB*) (F70*) (7F0*) (0F7*) (07F*) (70F*) (F07*) (0F7*) %31=G ] def /tcmyfcols %Farbkreis-Reihenfolge [ (FFF*) (0FF*) (00F*) (F0F*) (F00*) (FF0*) (0F0*) (000*) (888*) (8FF*) (88F*) (F8F*) (F88*) (FF8*) (8F8*) (0F8*) %15=R (CCC*) (088*) (008*) (808*) (800*) (880*) (080*) (F80*) %23=B (444*) (08F*) (80F*) (F08*) (F80*) (8F0*) (0F8*) (F08*) %31=G ] def /tcmykfcols %Farbkreis-Reihenfolge [ (000F*) (0FF0*) (00F0*) (F0F0*) (F000*) (FF00*) (0F00*) (0000*) (0008*) (0FF8*) (00F8*) (F0F8*) (F008*) (FF08*) (0F08*) (0F80*) %15=R (000C*) (0880*) (0080*) (8080*) (8000*) (8800*) (0800*) (F800*) %23=B (0004*) (0F80*) (80F0*) (F080*) (F800*) (8F00*) (0F80*) (F080*) %31=G ] def /fcolors %CMYN 32 Testfarben Nr. 0 bis 31; Farbkreis-Reihenfolge [{0.0 0.0 0.0 1.0} {0.0 1.0 1.0 0.0} {0.0 0.0 1.0 0.0} {1.0 0.0 1.0 0.0} {1.0 0.0 0.0 0.0} {1.0 1.0 0.0 0.0} {0.0 1.0 0.0 0.0} {0.0 0.0 0.0 0.0} {0.0 0.0 0.0 0.5} {0.0 1.0 1.0 0.5} {0.0 0.0 1.0 0.5} {1.0 0.0 1.0 0.5} {1.0 0.0 0.0 0.5} {1.0 1.0 0.0 0.5} {0.0 1.0 0.0 0.5} {0.0 1.0 0.5 0.0} {0.0 0.0 0.0 0.75} {0.0 0.5 0.5 0.0} {0.0 0.0 0.5 0.0} {0.5 0.0 0.5 0.0} {0.5 0.0 0.0 0.0} {0.5 0.5 0.0 0.0} {0.0 0.5 0.0 0.0} {1.0 0.5 0.0 0.0} {0.0 0.0 0.0 0.25} {0.0 0.5 1.0 0.0} {0.5 0.0 1.0 0.0} {1.0 0.0 0.5 0.0} {1.0 0.5 0.0 0.0} {0.5 1.0 0.0 0.0} {0.0 1.0 0.5 0.0} {1.0 0.0 0.5 0.0} ] def /fak 0.5 def /Far %Farbkreis-Reihenfolge [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %R 16 17 18 19 20 21 22 23 %B 24 25 26 27 28 29 30 31 %G ] def /cFar %Kompensativ-Farbkreis-Reihenfolge [ 8 4 5 6 1 2 3 0 0 20 21 22 17 18 19 31 %G 24 12 13 14 9 10 11 2 %J 16 28 29 30 25 26 27 15 %R ] def /Btx %Farbkreis- -> %Btx-Reihenfolge [ 0 1 3 2 5 6 4 7 8 9 11 10 13 14 12 15 %R 16 17 19 18 21 22 20 23 %B 24 25 26 27 28 29 30 31 %G ] def /cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge [ 7 4 6 5 2 3 1 0 8 20 22 21 18 19 17 31 %G 24 12 14 13 10 11 9 2 %J 16 25 26 27 28 29 30 15 %R ] def %XCHA01.PS BEG /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y k {setcmyk_olvcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmyk_olvcolor rec stroke} bind def /rem %x, y width heigth {/heigth exch 0.5 mul def /width exch 0.5 mul def /yleftb exch heigth 0.5 mul add def /xleftb exch width 0.5 mul add def xleftb yleftb moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colremfi %x y width heigth c m y k {setcmykcolor rem fill} bind def /colremst %x y width heigth c m y k {setcmykcolor rem stroke} bind def /tzr {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzg {1.0 0.0 1.0 0.0} bind def /tzb {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tfr {0.0 1.0 1.0 0.0 setcmyk_olvcolor} bind def %Reproduktionsfarben /tfg {1.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def /tfb {1.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def /tfc {1.0 0.0 0.0 0.0 setcmyk_olvcolor} bind def /tfm {0.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def /tfy {0.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def /tfn {0.0 0.0 0.0 1.00 setcmyk_olvcolor} bind def %Graureihe /tfd {0.0 0.0 0.0 0.75 setcmyk_olvcolor} bind def /tfz {0.0 0.0 0.0 0.50 setcmyk_olvcolor} bind def /tfh {0.0 0.0 0.0 0.25 setcmyk_olvcolor} bind def /tfw {0.0 0.0 0.0 0.00 setcmyk_olvcolor} bind def %%EndProlog gsave /lanind 1 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showfr {2 lanind eq {show} {pop} ifelse} bind def /showes {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showno {5 lanind eq {show} {pop} ifelse} bind def /showpt {6 lanind eq {show} {pop} ifelse} bind def /showx1 {7 lanind eq {show} {pop} ifelse} bind def /showy1 {8 lanind eq {show} {pop} ifelse} bind def /showz1 {9 lanind eq {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 3 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def 75 85 moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolor cvishow xchart cvishow pchart cvishow colsep cvishow (-L) show pmetam cvishow gsave %XCHA01.PS END 5 /Times-ISOL1 FS 180 85 moveto (ME961-3) show xchart 0 eq {(N) show} {deintp colorm 2 mul add cvishow} ifelse %(ZE421-4) show 72 90 translate /pixf 1.0 def 0.1667 pixf div MM 2 mul dup scale 0 0 159 119 0.0 0.0 0.0 0.5 colrecfi %Rechteck Mittelgrau TBG %Schrift Times-Bold-Gross 0.0 0.0 0.0 0.0 setcmyk_olvcolor %Schrift Weiss TBK /PRA 40 array def /TVA 40 array def /Li60 8 array def /Ai60 8 array def /Bi60 8 array def /Li61 8 array def /Ai61 8 array def /Bi61 8 array def /tBtxb %textBtx-Reihenfolge [(W) (O) (Y) (L) (C) (V) (M) (W) (H) (YO) (OM) (MV) (VC) (CL) (LY) (R) ] def /imx 65 def /imy 13 def /sPRTV 0 def %Start PR, dann Transfer TV %/sPRTV 1 def %Start TV, dann Transfer PR %/pPRTV 0 def %Show TV %/pPRTV 1 def %Show PR /pPRTV 2 def %Show ALL=PR+TV %Start PR: /PR1 0 def %ORS18ca %/PR1 1 def %OLS00ca %/PR1 2 def %OLS18ca %/PR1 3 def %OLS27ca %/PR1 4 def %OLS33ca %Transfer TV: %/TV1 0 def %TRS18ca %/TV1 1 def %TLS00ca /TV1 2 def %TLS18ca %/TV1 3 def %TLS27ca %/TV1 4 def %TLS33ca %START TV: %/TV2 0 def %TRS18ca %/TV2 1 def %TLS00ca %/TV2 2 def %TLS18ca %/TV2 3 def %TLS27ca %/TV2 4 def %TLS33ca %TRANSFER PR %/PR2 0 def %ORS18ca %/PR2 1 def %OLS00ca %/PR2 2 def %OLS18ca %/PR2 3 def %OLS27ca %/PR2 4 def %OLS33ca /i1 1 def /i2 4 def %calculated by E6511-71.PS 20.6.2003 O=Offset, R/LS=Reflective or Luminous System %xx=00,18,27,33 correspond to L* data, RA=Reflective adapted, RC=Reflective CIE /ORS18RA [(C) 58.62 -30.34 -45.01 (V) 25.72 31.10 -44.40 (M) 48.13 75.28 -8.36 (O) 47.94 65.39 50.52 (Y) 90.37 -10.26 91.75 (L) 50.90 -62.83 34.96 (N) 18.01 0.00 0.00 (W) 95.41 0.00 0.00 (N0) 0.01 0.00 0.00 (W1) 100.0 0.00 0.00 ] def /ORS18RC [(C) 58.62 -30.62 -42.74 (V) 25.72 31.45 -44.35 (M) 48.13 75.20 -6.79 (O) 47.94 65.31 52.07 (Y) 90.37 -11.15 96.17 (L) 50.90 -62.96 36.71 (N) 18.01 0.50 -0.46 (W) 95.41 -0.98 4.76 (N0) 0.01 0.84 -1.68 (W1) 100.0 -1.07 5.06 ] def /OLS00LA [(C) 56.88 -33.11 -47.41 (V) 16.48 45.84 -56.22 (M) 45.36 81.85 -9.29 (O) 45.14 71.37 75.54 (Y) 90.22 -10.60 99.51 (L) 48.45 -73.19 42.21 (N) 0.00 0.00 0.00 (W) 95.41 0.00 0.00 (N0) 0.00 0.00 0.00 (W1) 100.13 0.00 0.00 ] def /OLS00LC [(C) 56.88 -33.36 -45.25 (V) 16.48 46.37 -56.79 (M) 45.36 81.82 -7.91 (O) 45.14 71.35 76.90 (Y) 90.22 -11.49 103.92 (L) 48.45 -73.28 43.80 (N) 0.00 0.85 -1.68 (W) 95.41 -0.98 4.76 (N0) 0.00 0.85 -1.68 (W1) 100.13 -1.07 5.07 ] def /OLS18LA [(C) 58.62 -30.34 -45.01 (V) 25.72 31.10 -44.4 (M) 48.13 75.28 -8.36 (O) 47.94 65.39 50.52 (Y) 90.37 -10.26 91.75 (L) 50.90 -62.83 34.96 (N) 18.01 0.00 0.00 (W) 95.41 0.00 0.00 (N0) 0.01 0.00 0.00 (W1) 100.0 0.00 0.00 ] def /OLS18LC [(C) 58.62 -30.62 -42.74 (V) 25.72 31.45 -44.35 (M) 48.13 75.20 -6.79 (O) 47.94 65.31 52.07 (Y) 90.37 -11.15 96.17 (L) 50.90 -62.96 36.71 (N) 18.01 0.50 -0.46 (W) 95.41 -0.98 4.76 (N0) 0.01 0.84 -1.68 (W1) 100.0 -1.07 5.06 ] def /OLS27LA [(C) 60.28 -27.91 -42.75 (V) 32.06 24.02 -37.32 (M) 50.68 69.50 -7.57 (O) 50.51 60.17 40.13 (Y) 90.52 -9.92 85.20 (L) 53.18 -55.04 30.00 (N) 26.85 0.00 0.00 (W) 95.41 0.00 0.00 (N0) 18.34 0.00 0.00 (W1) 99.87 0.00 0.00 ] def /OLS27LC [(C) 60.28 -28.22 -40.36 (V) 32.06 24.25 -36.84 (M) 50.68 69.37 -5.83 (O) 50.51 60.04 41.85 (Y) 90.52 -10.82 89.63 (L) 53.18 -55.21 31.90 (N) 26.85 0.33 0.13 (W) 95.41 -0.98 4.76 (N0) 18.34 0.49 -0.44 (W1) 99.87 -1.07 5.05 ] def /OLS33LA [(C) 61.87 -25.76 -40.60 (V) 37.05 19.67 -32.32 (M) 53.05 64.36 -6.90 (O) 52.90 55.55 33.73 (Y) 90.68 -9.59 79.47 (L) 55.33 -48.88 26.28 (N) 33.05 0.00 0.00 (W) 95.41 0.00 0.00 (N0) 27.27 0.00 0.00 (W1) 99.74 0.00 0.00 ] def /OLS33LC [(C) 61.87 -26.10 -38.11 (V) 37.05 19.81 -31.50 (M) 53.05 64.19 -5.00 (O) 52.90 55.38 35.61 (Y) 90.68 -10.48 83.91 (L) 55.33 -49.10 28.33 (N) 33.05 0.21 0.55 (W) 95.41 -0.98 4.76 (N0) 27.27 0.32 0.15 (W1) 99.74 -1.06 5.04 ] def %calculated by E6531-71.PS 20.6.2003 T=Television, R/LS=Reflective or Luminous System %xx=00,18,27,33 correspond to L* data, RA=Reflective adapted, RC=Reflective CIE /TRS18RA [(C) 87.14 -44.42 -13.12 (V) 35.47 64.92 -95.08 (M) 59.01 89.33 -19.43 (O) 52.76 71.63 49.88 (Y) 92.74 -20.03 84.97 (L) 84.00 -78.99 73.94 (N) 18.01 0.00 0.00 (W) 95.41 0.00 0.00 (N0) 0.01 0.00 0.00 (W1) 100.0 0.00 0.00 ] def /TRS18RC [(C) 87.14 -44.42 -13.12 (V) 35.47 64.92 -95.08 (M) 59.01 89.33 -19.43 (O) 52.76 71.63 49.88 (Y) 92.74 -20.03 84.97 (L) 84.00 -78.99 73.94 (N) 18.01 0.00 0.00 (W) 95.41 0.00 0.00 (N0) 0.01 0.00 0.00 (W1) 100.0 0.00 0.00 ] def /TLS00LA [(C) 86.88 -46.15 -13.54 (V) 30.39 76.06 -103.58 (M) 57.31 94.35 -20.68 (O) 50.50 76.91 64.55 (Y) 92.66 -20.68 90.75 (L) 83.62 -82.74 79.90 (N) 0.00 0.00 0.00 (W) 95.41 0.00 0.00 (N0) 0.00 0.00 0.00 (W1) 100.13 0.00 0.00 ] def /TLS00LC [(C) 86.88 -46.15 -13.54 (V) 30.39 76.06 -103.58 (M) 57.31 94.35 -20.68 (O) 50.50 76.91 64.55 (Y) 92.66 -20.68 90.75 (L) 83.62 -82.74 79.90 (N) 0.00 0.00 0.00 (W) 95.41 0.00 0.00 (N0) 0.00 0.00 0.00 (W1) 100.13 0.00 0.00 ] def /TLS18LA [(C) 87.14 -44.42 -13.12 (V) 35.47 64.92 -95.08 (M) 59.01 89.33 -19.43 (O) 52.76 71.63 49.88 (Y) 92.74 -20.03 84.97 (L) 84.00 -78.99 73.94 (N) 18.01 0.00 0.00 (W) 95.41 0.00 0.00 (N0) 0.01 0.00 0.00 (W1) 100.0 0.00 0.00 ] def /TLS18LC [(C) 87.14 -44.42 -13.12 (V) 35.47 64.92 -95.08 (M) 59.01 89.33 -19.43 (O) 52.76 71.63 49.88 (Y) 92.74 -20.03 84.97 (L) 84.00 -78.99 73.94 (N) 18.01 0.00 0.00 (W) 95.41 0.00 0.00 (N0) 0.01 0.00 0.00 (W1) 100.0 0.00 0.00 ] def /TLS27LA [(C) 87.40 -42.72 -12.70 (V) 39.70 56.66 -88.03 (M) 60.64 84.61 -18.27 (O) 54.88 66.84 41.69 (Y) 92.82 -19.39 79.81 (L) 84.37 -75.39 68.76 (N) 26.85 0.00 0.00 (W) 95.41 0.00 0.00 (N0) 18.34 0.00 0.00 (W1) 99.87 0.00 0.00 ] def /TLS27LC [(C) 87.40 -42.72 -12.70 (V) 39.70 56.66 -88.03 (M) 60.64 84.61 -18.27 (O) 54.88 66.84 41.69 (Y) 92.82 -19.39 79.81 (L) 84.37 -75.39 68.76 (N) 26.85 0.00 0.00 (W) 95.41 0.00 0.00 (N0) 18.34 0.00 0.00 (W1) 99.87 0.00 0.00 ] def /TLS33LA [(C) 87.66 -41.06 -12.29 (V) 43.38 50.19 -81.95 (M) 62.20 80.15 -17.20 (O) 56.88 62.47 36.02 (Y) 92.90 -18.75 75.12 (L) 84.74 -71.92 64.16 (N) 33.05 0.00 0.00 (W) 95.41 0.00 0.00 (N0) 27.27 0.00 0.00 (W1) 99.74 0.00 0.00 ] def /TLS33LC [(C) 87.66 -41.06 -12.29 (V) 43.38 50.19 -81.95 (M) 62.20 80.15 -17.20 (O) 56.88 62.47 36.02 (Y) 92.90 -18.75 75.12 (L) 84.74 -71.92 64.16 (N) 33.05 0.00 0.00 (W) 95.41 0.00 0.00 (N0) 27.27 0.00 0.00 (W1) 99.74 0.00 0.00 ] def 0 1 39 {/i exch def %i=0,39 sPRTV 0 eq {%A* CIELAB PR PR1 0 eq {PRA i ORS18RA i get put} if PR1 1 eq {PRA i OLS00LA i get put} if PR1 2 eq {PRA i OLS18LA i get put} if PR1 3 eq {PRA i OLS27LA i get put} if PR1 4 eq {PRA i OLS33LA i get put} if TV1 0 eq {TVA i TRS18RA i get put} if TV1 1 eq {TVA i TLS00LA i get put} if TV1 2 eq {TVA i TLS18LA i get put} if TV1 3 eq {TVA i TLS27LA i get put} if TV1 4 eq {TVA i TLS33LA i get put} if } { TV2 0 eq {TVA i TRS18RA i get put} if TV2 1 eq {TVA i TLS00LA i get put} if TV2 2 eq {TVA i TLS18LA i get put} if TV2 3 eq {TVA i TLS27LA i get put} if TV2 4 eq {TVA i TLS33LA i get put} if PR2 0 eq {PRA i ORS18RA i get put} if PR2 1 eq {PRA i OLS00LA i get put} if PR2 2 eq {PRA i OLS18LA i get put} if PR2 3 eq {PRA i OLS27LA i get put} if PR2 4 eq {PRA i OLS33LA i get put} if } ifelse } for %i=0,39 sPRTV 0 eq { Li60 0 PRA 7 4 mul 1 add get put Ai60 0 PRA 7 4 mul 2 add get put Bi60 0 PRA 7 4 mul 3 add get put 1 1 3 {/i exch def %i=1,3 Li60 i PRA i 2 add 4 mul 1 add get put Ai60 i PRA i 2 add 4 mul 2 add get put Bi60 i PRA i 2 add 4 mul 3 add get put } for %i=1,3 4 1 6 {/i exch def %i=4,6 Li60 i PRA i 4 sub 4 mul 1 add get put Ai60 i PRA i 4 sub 4 mul 2 add get put Bi60 i PRA i 4 sub 4 mul 3 add get put } for %i=4,6 Li60 7 PRA 6 4 mul 1 add get put Ai60 7 PRA 6 4 mul 2 add get put Bi60 7 PRA 6 4 mul 3 add get put Li61 0 TVA 7 4 mul 1 add get put Ai61 0 TVA 7 4 mul 2 add get put Bi61 0 TVA 7 4 mul 3 add get put 1 1 3 {/i exch def %i=1,3 Li61 i TVA i 2 add 4 mul 1 add get put Ai61 i TVA i 2 add 4 mul 2 add get put Bi61 i TVA i 2 add 4 mul 3 add get put } for %i=1,3 4 1 6 {/i exch def %i=4,6 Li61 i TVA i 4 sub 4 mul 1 add get put Ai61 i TVA i 4 sub 4 mul 2 add get put Bi61 i TVA i 4 sub 4 mul 3 add get put } for %i=4,6 Li61 7 TVA 6 4 mul 1 add get put Ai61 7 TVA 6 4 mul 2 add get put Bi61 7 TVA 6 4 mul 3 add get put } { Li60 0 TVA 7 4 mul 1 add get put Ai60 0 TVA 7 4 mul 2 add get put Bi60 0 TVA 7 4 mul 3 add get put 1 1 3 {/i exch def %i=1,3 Li60 i TVA i 2 add 4 mul 1 add get put Ai60 i TVA i 2 add 4 mul 2 add get put Bi60 i TVA i 2 add 4 mul 3 add get put } for %i=1,3 4 1 6 {/i exch def %i=4,6 Li60 i TVA i 4 sub 4 mul 1 add get put Ai60 i TVA i 4 sub 4 mul 2 add get put Bi60 i TVA i 4 sub 4 mul 3 add get put } for %i=4,6 Li60 7 TVA 6 4 mul 1 add get put Ai60 7 TVA 6 4 mul 2 add get put Bi60 7 TVA 6 4 mul 3 add get put Li61 0 PRA 7 4 mul 1 add get put Ai61 0 PRA 7 4 mul 2 add get put Bi61 0 PRA 7 4 mul 3 add get put 1 1 3 {/i exch def %i=1,3 Li61 i PRA i 2 add 4 mul 1 add get put Ai61 i PRA i 2 add 4 mul 2 add get put Bi61 i PRA i 2 add 4 mul 3 add get put } for %i=1,3 4 1 6 {/i exch def %i=4,6 Li61 i PRA i 4 sub 4 mul 1 add get put Ai61 i PRA i 4 sub 4 mul 2 add get put Bi61 i PRA i 4 sub 4 mul 3 add get put } for %i=4,6 Li61 7 PRA 6 4 mul 1 add get put Ai61 7 PRA 6 4 mul 2 add get put Bi61 7 PRA 6 4 mul 3 add get put } ifelse 2 setlinewidth fcolors 00 get exec setcmyk_olvcolor %N /fak 0.8 def %x and yaxis imx 60 fak mul sub imy moveto imx 70 fak mul add imy lineto stroke imx imy 15 fak mul sub moveto imx imy 123 fak mul add lineto stroke %arrows imx 70 fak mul add 5 sub imy 2 add moveto 5 -2 rlineto -5 -2 rlineto stroke imx 2 sub imy 123 fak mul add 5 sub moveto 2 5 rlineto 2 -5 rlineto stroke %imx 55 fak mul add imy 15 sub moveto TIK (C*) show -8 -5 rmoveto 200 16.67 div /Times-ISOL1 FS (ab) show %0 5 rmoveto TIK (=LAB*) show -8 -5 rmoveto 200 16.67 div /Times-ISOL1 FS (r) show %imx 5 add imy 138 fak mul add moveto TIK (L*=LAB*) show -8 -5 rmoveto 200 16.67 div /Times-ISOL1 FS (1) show newpath 150 16.67 div /Times-ISOL1 FS imx 03 sub imy 100 fak mul add moveto 6 0 rlineto stroke imx 02 add imy 100 fak mul add 04 add moveto (100) show imx 03 add imy 10 sub moveto (0) show i1 2 eq {1.0 0.0 1.0 0.0 } {0.0 0.0 1.0 0.0} ifelse setcmyk_olvcolor %second lightness yellow or green sPRTV 0 eq {imx i1 2 eq {12 sub} {02 add} ifelse imy i1 2 eq { 0 add} {02 add} ifelse PR1 2 eq TV1 2 eq or {7 fak mul add moveto (18) show} if PR1 3 eq TV1 3 eq or {13 fak mul add moveto (27) show} if PR1 4 eq TV1 4 eq or {17 fak mul add moveto (33) show} if } if sPRTV 1 eq {imx i1 2 eq {12 sub} {02 add} ifelse imy i1 2 eq { 0 add} {02 add} ifelse PR2 2 eq TV2 2 eq or {7 fak mul add moveto (18) show} if PR2 3 eq TV2 3 eq or {13 fak mul add moveto (27) show} if PR2 4 eq TV2 4 eq or {17 fak mul add moveto (33) show} if } if tfn /trushow {0.005 add 100 mul truncate 100 div 6 string cvs show} bind def /j 0 def i1 3 i2 {/i exch def /k i j 8 mul add def pPRTV 1 eq pPRTV 2 eq or { %print TV und ALL TBIM /ku Far i get exec def /CAB0 Bi60 i get Bi60 0 get sub dup mul Ai60 i get Ai60 0 get sub dup mul add sqrt def /ix imx CAB0 fak mul i i2 eq {sub} {add} ifelse def /iy imy Li60 i get fak mul add def ix 18 sub iy 18 sub 37 37 fcolors ku get exec colrecfi %Farbe-Fuellen je nach Auszug 1 setlinewidth ix 18 sub iy 18 sub 37 37 0.0 0.0 0.0 1.0 colrecst %Farbe-Umgrenzen je nach Auszug 2 setlinewidth 0.0 0.0 0.0 0.0 setcmyk_olvcolor ix 17.5 sub iy 26 sub moveto /delL0 Li60 i get Li60 0 get sub fak mul 04 div def /delA0 Ai60 i get Ai60 0 get sub fak mul 04 div def /delB0 Bi60 i get Bi60 0 get sub fak mul 04 div def /delLAB0 delL0 dup mul delA0 dup mul add delB0 dup mul add sqrt def 150 16.67 div /Symbol FS (D) show 150 16.67 div /Times-ISOL1 FS (E*=) show delLAB0 trushow %sPRTV 1 eq { %start TV -> PRINT TV %%O-C, text etc. %TBIM tfn %i i1 eq {ix 25 add iy 10 add moveto} % {ix 35 sub iy 0 add moveto} ifelse % tBtxb i get exec show % } if %start TV -> PRINT TV } if %print TV und ALL pPRTV 0 eq pPRTV 2 eq or { %print PR und ALL /ku Far i get exec def /CAB1 Bi61 i get Bi61 0 get sub dup mul Ai61 i get Ai61 0 get sub dup mul add sqrt def /ix imx CAB1 fak mul i i2 eq {sub} {add} ifelse def /iy imy Li61 i get fak mul add def ix 18 sub iy 18 sub 37 37 fcolors ku get exec colrecfi %Farbe-Fuellen je nach Auszug 1 setlinewidth ix 18 sub iy 18 sub 37 37 i1 2 eq {1.0 0.0 1.0 0.0 } {0.0 0.0 1.0 0.0} ifelse colrecst %Farbe-Umgrenzen je nach Auszug 2 setlinewidth 0.0 0.0 0.0 0.0 setcmyk_olvcolor ix 17.5 sub iy 21 add moveto /delL1 Li61 i get Li61 0 get sub fak mul 04 div def /delA1 Ai61 i get Ai61 0 get sub fak mul 04 div def /delB1 Bi61 i get Bi61 0 get sub fak mul 04 div def /delLAB1 delL1 dup mul delA1 dup mul add delB1 dup mul add sqrt def 150 16.67 div /Symbol FS (D) show 150 16.67 div /Times-ISOL1 FS (E*=) show delLAB1 trushow %sPRTV 0 eq { %start PR -> PRINT TV %%O-C, text etc. %TBIM tfn %i i1 eq {ix 25 add iy 10 add moveto} % {ix 35 sub iy 0 add moveto} ifelse % tBtxb i get exec show % } if %start PR -> PRINT TV } if %print TV und ALL } for %schleife i TBM newpath /Ball1x 5 array def /Ball1y 5 array def /Ball4x 5 array def /Ball4y 5 array def /Ball1xh 5 array def /Ball1yh 5 array def /Ball4xh 5 array def /Ball4yh 5 array def pPRTV 1 eq pPRTV 2 eq or { %print TV und ALL 150 16.67 div /TimesB-ISOL1 FS 0.0 0.0 0.0 1.0 setcmyk_olvcolor %first balls black i1 3 i2 {/j exch def /CAB0 Bi60 j get Bi60 0 get sub dup mul Ai60 j get Ai60 0 get sub dup mul add sqrt def /delL Li60 0 get Li60 j get sub fak mul 04 div def /delCAB0 CAB0 fak mul 04 div def 0 1 04 {/i exch def /imx1 imx delCAB0 i mul j i2 eq {neg} if add def /imy1 imy Li60 0 get fak mul add delL i mul sub def j i1 eq {Ball1x i imx1 put Ball1y i imy1 put} {Ball4x i imx1 put Ball4y i imy1 put} ifelse imx1 imy1 2 0 360 arc fill /imx1 imx delCAB0 0.5 mul i mul j i2 eq {neg} if add def /imy1 imy Li60 0 get Li60 7 get sub 0.5 mul Li60 7 get add fak mul add delL i mul 0.5 mul sub def j i1 eq {Ball1xh i imx1 put Ball1yh i imy1 put} {Ball4xh i imx1 put Ball4yh i imy1 put} ifelse imx1 imy1 2 0 360 arc fill } for } for %j 1 setlinewidth %N-Line i1 3 i2 {/i exch def /CAB0 Bi60 i get Bi60 0 get sub dup mul Ai60 i get Ai60 0 get sub dup mul add sqrt def /ix imx CAB0 fak mul i i2 eq {sub} {add} ifelse def /iy imy Li60 i get fak mul add def ix iy moveto imx imy Li60 7 get fak mul add lineto stroke } for 2 setlinewidth } if %print TV und ALL /Ball2x 5 array def /Ball2y 5 array def /Ball5x 5 array def /Ball5y 5 array def /Ball2xh 5 array def /Ball2yh 5 array def /Ball5xh 5 array def /Ball5yh 5 array def pPRTV 0 eq pPRTV 2 eq or { %print PR und ALL %i1 3 i2 {/j exch def i1 2 eq {1.0 0.0 1.0 0.0 } {0.0 0.0 1.0 0.0} ifelse setcmyk_olvcolor %second balls yellow or green i1 3 i2 {/j exch def /CAB1 Bi61 j get Bi61 0 get sub dup mul Ai61 j get Ai61 0 get sub dup mul add sqrt def /delL Li61 0 get Li61 j get sub fak mul 04 div def /delCAB1 CAB1 fak mul 04 div def 0 1 04 {/i exch def /imx2 imx delCAB1 i mul j i2 eq {neg} if add def /imy2 imy Li61 0 get fak mul add delL i mul sub def imx2 imy2 2 0 360 arc fill j i1 eq {Ball2x i imx2 put Ball2y i imy2 put} {Ball5x i imx2 put Ball5y i imy2 put} ifelse /imx1 imx delCAB1 0.5 mul i mul j i2 eq {neg} if add def /imy1 imy Li61 0 get Li61 7 get sub 0.5 mul Li61 7 get add fak mul add delL i mul 0.5 mul sub def j i1 eq {Ball2xh i imx1 put Ball2yh i imy1 put} {Ball5xh i imx1 put Ball5yh i imy1 put} ifelse imx1 imy1 2 0 360 arc fill } for } for %j 1 setlinewidth %N-Line i1 3 i2 {/i exch def /CAB1 Bi61 i get Bi61 0 get sub dup mul Ai61 i get Ai61 0 get sub dup mul add sqrt def /ix imx CAB1 fak mul i i2 eq {sub} {add} ifelse def /iy imy Li61 i get fak mul add def ix iy moveto imx imy Li61 7 get fak mul add lineto stroke } for 2 setlinewidth } if %print PR und ALL %achromatic series pPRTV 1 eq pPRTV 2 eq or { %print TV und ALL sPRTV 1 eq { %start TV -> PRINT PR /delL0 95.41 Li60 7 get sub fak mul 04 div def 0 1 04 {/i exch def 0.0 0.0 0.0 i 04 div setcmyk_olvcolor imx imy Li60 0 get fak mul add delL0 i mul sub 2 0 360 arc fill } for } if %start TV -> PRINT PR } if %print TV und ALL pPRTV 0 eq pPRTV 2 eq or { %print PR und ALL sPRTV 0 eq { %start PR -> PRINT TV /delL1 95.41 Li61 7 get sub fak mul 04 div def 0 1 04 {/i exch def 0.0 0.0 0.0 i 04 div setcmyk_olvcolor imx imy Li61 0 get fak mul add delL1 i mul sub 2 0 360 arc fill } for } if %start PR -> PRINT TV } if %print PR und ALL %W-N, text etc. TBIS tfn 052 017 moveto (N) show tfw 051 091 moveto (W) show 070 106 moveto (L*) show 124 007 moveto (C*) show -5 -4 rmoveto TBS (ab) show 0 4 rmoveto TBIS tfc 014 022 moveto (C) show 0 -4 rmoveto TBV Fxx show 0 4 rmoveto TBIS tfr 124 088 moveto (R) show 0 -4 rmoveto TBV Fxx show 0 4 rmoveto TBIS 154 16.67 div /Times-ISOL1 FS 0 0 1 0 setcmyk_olvcolor 069 090 moveto (95) show %Connection 0 1 0 setrgbcolor 0 1 04 {/i exch def /imx1 Ball1x i get def /imy1 Ball1y i get def /imx2 Ball2x i get def /imy2 Ball2y i get def imx1 imy1 moveto imx2 imy2 lineto stroke /imx4 Ball4x i get def /imy4 Ball4y i get def /imx5 Ball5x i get def /imy5 Ball5y i get def imx5 imy5 moveto imx4 imy4 lineto stroke /imx1 Ball1xh i get def /imy1 Ball1yh i get def /imx2 Ball2xh i get def /imy2 Ball2yh i get def imx1 imy1 moveto imx2 imy2 lineto stroke /imx4 Ball4xh i get def /imy4 Ball4yh i get def /imx5 Ball5xh i get def /imy5 Ball5yh i get def imx5 imy5 moveto imx4 imy4 lineto stroke } for showpage grestore %%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 ME961-4 %%BoundingBox: 70 83 226 206 %START PDFDE011.EPS /pdfmark14 where {pop} {userdict /pdfmark14 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [/Title (PostScript pictures: farbe.li.tu-berlin.de/ME96/ME96.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2019080112000) /ModDate (D:20190801112000) /DOCINFO pdfmark14 [ /View [ /FitB ] /DOCVIEW pdfmark14 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % !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 /TV {160 16.67 div /Times-ISOL1 FS} bind def /TS {200 16.67 div /Times-ISOL1 FS} bind def /TK {250 16.67 div /Times-ISOL1 FS} bind def /TM {300 16.67 div /Times-ISOL1 FS} bind def /TG {350 16.67 div /Times-ISOL1 FS} bind def /TIV {160 16.67 div /TimesI-ISOL1 FS} bind def /TIS {200 16.67 div /TimesI-ISOL1 FS} bind def /TIK {250 16.67 div /TimesI-ISOL1 FS} bind def /TIM {300 16.67 div /TimesI-ISOL1 FS} bind def /TIG {350 16.67 div /TimesI-ISOL1 FS} bind def /TBV {160 16.67 div /TimesB-ISOL1 FS} bind def /TBS {200 16.67 div /TimesB-ISOL1 FS} bind def /TBK {250 16.67 div /TimesB-ISOL1 FS} bind def /TBM {300 16.67 div /TimesB-ISOL1 FS} bind def /TBG {350 16.67 div /TimesB-ISOL1 FS} bind def /TBIV {160 16.67 div /TimesBI-ISOL1 FS} bind def /TBIS {200 16.67 div /TimesBI-ISOL1 FS} bind def /TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def /TBIM {300 16.67 div /TimesBI-ISOL1 FS} bind def /TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def /SV {160 16.67 div 1 sub /Symbol FS} bind def /SS {200 16.67 div 1 sub /Symbol FS} bind def /SK {250 16.67 div 1 sub /Symbol FS} bind def /SM {300 16.67 div 1 sub /Symbol FS} bind def /SG {350 16.67 div 1 sub /Symbol FS} bind def /tolvfcol %Farbkreis-Reihenfolge [ (000) (F00) (FF0) (0F0) (0FF) (00F) (F0F) (FFF) (777) (700) (770) (070) (077) (007) (707) (F07) %15=R (333) (F77) (FF7) (7F7) (7FF) (77F) (F7F) (07F) %23=B (BBB) (F70) (7F0) (0F7) (07F) (70F) (F07) (0F7) %31=G ] def /tcmyfcol %Farbkreis-Reihenfolge [ (FFF) (0FF) (00F) (F0F) (F00) (FF0) (0F0) (000) (888) (8FF) (88F) (F8F) (F88) (FF8) (8F8) (0F8) %15=R (CCC) (088) (008) (808) (800) (880) (080) (F80) %23=B (444) (08F) (80F) (F08) (F80) (8F0) (0F8) (F08) %31=G ] def /tcmykfcol %Farbkreis-Reihenfolge [ (000F) (0FF0) (00F0) (F0F0) (F000) (FF00) (0F00) (0000) (0008) (0FF8) (00F8) (F0F8) (F008) (FF08) (0F08) (0F80) %15=R (000C) (0880) (0080) (8080) (8000) (8800) (0800) (F800) %23=B (0004) (0F80) (80F0) (F080) (F800) (8F00) (0F80) (F080) %31=G ] def /tolvfcols %Farbkreis-Reihenfolge [ (000*) (F00*) (FF0*) (0F0*) (0FF*) (00F*) (F0F*) (FFF*) (777*) (700*) (770*) (070*) (077*) (007*) (707*) (F07*) %15=R (333*) (F77*) (FF7*) (7F7*) (7FF*) (77F*) (F7F*) (07F*) %23=B (BBB*) (F70*) (7F0*) (0F7*) (07F*) (70F*) (F07*) (0F7*) %31=G ] def /tcmyfcols %Farbkreis-Reihenfolge [ (FFF*) (0FF*) (00F*) (F0F*) (F00*) (FF0*) (0F0*) (000*) (888*) (8FF*) (88F*) (F8F*) (F88*) (FF8*) (8F8*) (0F8*) %15=R (CCC*) (088*) (008*) (808*) (800*) (880*) (080*) (F80*) %23=B (444*) (08F*) (80F*) (F08*) (F80*) (8F0*) (0F8*) (F08*) %31=G ] def /tcmykfcols %Farbkreis-Reihenfolge [ (000F*) (0FF0*) (00F0*) (F0F0*) (F000*) (FF00*) (0F00*) (0000*) (0008*) (0FF8*) (00F8*) (F0F8*) (F008*) (FF08*) (0F08*) (0F80*) %15=R (000C*) (0880*) (0080*) (8080*) (8000*) (8800*) (0800*) (F800*) %23=B (0004*) (0F80*) (80F0*) (F080*) (F800*) (8F00*) (0F80*) (F080*) %31=G ] def /fcolors %CMYN 32 Testfarben Nr. 0 bis 31; Farbkreis-Reihenfolge [{0.0 0.0 0.0 1.0} {0.0 1.0 1.0 0.0} {0.0 0.0 1.0 0.0} {1.0 0.0 1.0 0.0} {1.0 0.0 0.0 0.0} {1.0 1.0 0.0 0.0} {0.0 1.0 0.0 0.0} {0.0 0.0 0.0 0.0} {0.0 0.0 0.0 0.5} {0.0 1.0 1.0 0.5} {0.0 0.0 1.0 0.5} {1.0 0.0 1.0 0.5} {1.0 0.0 0.0 0.5} {1.0 1.0 0.0 0.5} {0.0 1.0 0.0 0.5} {0.0 1.0 0.5 0.0} {0.0 0.0 0.0 0.75} {0.0 0.5 0.5 0.0} {0.0 0.0 0.5 0.0} {0.5 0.0 0.5 0.0} {0.5 0.0 0.0 0.0} {0.5 0.5 0.0 0.0} {0.0 0.5 0.0 0.0} {1.0 0.5 0.0 0.0} {0.0 0.0 0.0 0.25} {0.0 0.5 1.0 0.0} {0.5 0.0 1.0 0.0} {1.0 0.0 0.5 0.0} {1.0 0.5 0.0 0.0} {0.5 1.0 0.0 0.0} {0.0 1.0 0.5 0.0} {1.0 0.0 0.5 0.0} ] def /fak 0.5 def /Far %Farbkreis-Reihenfolge [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %R 16 17 18 19 20 21 22 23 %B 24 25 26 27 28 29 30 31 %G ] def /cFar %Kompensativ-Farbkreis-Reihenfolge [ 8 4 5 6 1 2 3 0 0 20 21 22 17 18 19 31 %G 24 12 13 14 9 10 11 2 %J 16 28 29 30 25 26 27 15 %R ] def /Btx %Farbkreis- -> %Btx-Reihenfolge [ 0 1 3 2 5 6 4 7 8 9 11 10 13 14 12 15 %R 16 17 19 18 21 22 20 23 %B 24 25 26 27 28 29 30 31 %G ] def /cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge [ 7 4 6 5 2 3 1 0 8 20 22 21 18 19 17 31 %G 24 12 14 13 10 11 9 2 %J 16 25 26 27 28 29 30 15 %R ] def %XCHA01.PS BEG /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y k {setcmyk_olvcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmyk_olvcolor rec stroke} bind def /rem %x, y width heigth {/heigth exch 0.5 mul def /width exch 0.5 mul def /yleftb exch heigth 0.5 mul add def /xleftb exch width 0.5 mul add def xleftb yleftb moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colremfi %x y width heigth c m y k {setcmykcolor rem fill} bind def /colremst %x y width heigth c m y k {setcmykcolor rem stroke} bind def /tzr {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzg {1.0 0.0 1.0 0.0} bind def /tzb {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tfr {0.0 1.0 1.0 0.0 setcmyk_olvcolor} bind def %Reproduktionsfarben /tfg {1.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def /tfb {1.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def /tfc {1.0 0.0 0.0 0.0 setcmyk_olvcolor} bind def /tfm {0.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def /tfy {0.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def /tfn {0.0 0.0 0.0 1.00 setcmyk_olvcolor} bind def %Graureihe /tfd {0.0 0.0 0.0 0.75 setcmyk_olvcolor} bind def /tfz {0.0 0.0 0.0 0.50 setcmyk_olvcolor} bind def /tfh {0.0 0.0 0.0 0.25 setcmyk_olvcolor} bind def /tfw {0.0 0.0 0.0 0.00 setcmyk_olvcolor} bind def %%EndProlog gsave /lanind 1 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showfr {2 lanind eq {show} {pop} ifelse} bind def /showes {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showno {5 lanind eq {show} {pop} ifelse} bind def /showpt {6 lanind eq {show} {pop} ifelse} bind def /showx1 {7 lanind eq {show} {pop} ifelse} bind def /showy1 {8 lanind eq {show} {pop} ifelse} bind def /showz1 {9 lanind eq {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 3 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def 75 85 moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolor cvishow xchart cvishow pchart cvishow colsep cvishow (-L) show pmetam cvishow gsave %XCHA01.PS END 5 /Times-ISOL1 FS 180 85 moveto (ME961-4) show xchart 0 eq {(N) show} {deintp colorm 2 mul add cvishow} ifelse 72 90 translate /pixf 1.0 def 0.1667 pixf div MM 2 mul dup scale 0 0 159 119 0.0 0.0 0.0 0.5 colrecfi %Rechteck Mittelgrau TBG %Schrift Times-Bold-Gross 0.0 0.0 0.0 0.0 setcmyk_olvcolor %Schrift Weiss TBK /PRA 40 array def /TVA 40 array def /Li60 8 array def /Ai60 8 array def /Bi60 8 array def /Li61 8 array def /Ai61 8 array def /Bi61 8 array def /tBtxb %textBtx-Reihenfolge [(W) (O) (Y) (L) (C) (V) (M) (W) (H) (YO) (OM) (MV) (VC) (CL) (LY) (R) ] def /imx 65 def /imy 13 def /sPRTV 0 def %Start PR, dann Transfer TV %/sPRTV 1 def %Start TV, dann Transfer PR %/pPRTV 0 def %Show TV %/pPRTV 1 def %Show PR /pPRTV 2 def %Show ALL=PR+TV %Start PR: /PR1 0 def %ORS18ca %/PR1 1 def %OLS00ca %/PR1 2 def %OLS18ca %/PR1 3 def %OLS27ca %/PR1 4 def %OLS33ca %Transfer TV: %/TV1 0 def %TRS18ca %/TV1 1 def %TLS00ca /TV1 2 def %TLS18ca %/TV1 3 def %TLS27ca %/TV1 4 def %TLS33ca %START TV: %/TV2 0 def %TRS18ca %/TV2 1 def %TLS00ca %/TV2 2 def %TLS18ca %/TV2 3 def %TLS27ca %/TV2 4 def %TLS33ca %TRANSFER PR %/PR2 0 def %ORS18ca %/PR2 1 def %OLS00ca %/PR2 2 def %OLS18ca %/PR2 3 def %OLS27ca %/PR2 4 def %OLS33ca /i1 1 def /i2 4 def %calculated by E6511-71.PS 20.6.2003 O=Offset, R/LS=Reflective or Luminous System %xx=00,18,27,33 correspond to L* data, RA=Reflective adapted, RC=Reflective CIE /ORS18RA [(C) 58.62 -30.34 -45.01 (V) 25.72 31.10 -44.40 (M) 48.13 75.28 -8.36 (O) 47.94 65.39 50.52 (Y) 90.37 -10.26 91.75 (L) 50.90 -62.83 34.96 (N) 18.01 0.00 0.00 (W) 95.41 0.00 0.00 (N0) 0.01 0.00 0.00 (W1) 100.0 0.00 0.00 ] def /ORS18RC [(C) 58.62 -30.62 -42.74 (V) 25.72 31.45 -44.35 (M) 48.13 75.20 -6.79 (O) 47.94 65.31 52.07 (Y) 90.37 -11.15 96.17 (L) 50.90 -62.96 36.71 (N) 18.01 0.50 -0.46 (W) 95.41 -0.98 4.76 (N0) 0.01 0.84 -1.68 (W1) 100.0 -1.07 5.06 ] def /OLS00LA [(C) 56.88 -33.11 -47.41 (V) 16.48 45.84 -56.22 (M) 45.36 81.85 -9.29 (O) 45.14 71.37 75.54 (Y) 90.22 -10.60 99.51 (L) 48.45 -73.19 42.21 (N) 0.00 0.00 0.00 (W) 95.41 0.00 0.00 (N0) 0.00 0.00 0.00 (W1) 100.13 0.00 0.00 ] def /OLS00LC [(C) 56.88 -33.36 -45.25 (V) 16.48 46.37 -56.79 (M) 45.36 81.82 -7.91 (O) 45.14 71.35 76.90 (Y) 90.22 -11.49 103.92 (L) 48.45 -73.28 43.80 (N) 0.00 0.85 -1.68 (W) 95.41 -0.98 4.76 (N0) 0.00 0.85 -1.68 (W1) 100.13 -1.07 5.07 ] def /OLS18LA [(C) 58.62 -30.34 -45.01 (V) 25.72 31.10 -44.4 (M) 48.13 75.28 -8.36 (O) 47.94 65.39 50.52 (Y) 90.37 -10.26 91.75 (L) 50.90 -62.83 34.96 (N) 18.01 0.00 0.00 (W) 95.41 0.00 0.00 (N0) 0.01 0.00 0.00 (W1) 100.0 0.00 0.00 ] def /OLS18LC [(C) 58.62 -30.62 -42.74 (V) 25.72 31.45 -44.35 (M) 48.13 75.20 -6.79 (O) 47.94 65.31 52.07 (Y) 90.37 -11.15 96.17 (L) 50.90 -62.96 36.71 (N) 18.01 0.50 -0.46 (W) 95.41 -0.98 4.76 (N0) 0.01 0.84 -1.68 (W1) 100.0 -1.07 5.06 ] def /OLS27LA [(C) 60.28 -27.91 -42.75 (V) 32.06 24.02 -37.32 (M) 50.68 69.50 -7.57 (O) 50.51 60.17 40.13 (Y) 90.52 -9.92 85.20 (L) 53.18 -55.04 30.00 (N) 26.85 0.00 0.00 (W) 95.41 0.00 0.00 (N0) 18.34 0.00 0.00 (W1) 99.87 0.00 0.00 ] def /OLS27LC [(C) 60.28 -28.22 -40.36 (V) 32.06 24.25 -36.84 (M) 50.68 69.37 -5.83 (O) 50.51 60.04 41.85 (Y) 90.52 -10.82 89.63 (L) 53.18 -55.21 31.90 (N) 26.85 0.33 0.13 (W) 95.41 -0.98 4.76 (N0) 18.34 0.49 -0.44 (W1) 99.87 -1.07 5.05 ] def /OLS33LA [(C) 61.87 -25.76 -40.60 (V) 37.05 19.67 -32.32 (M) 53.05 64.36 -6.90 (O) 52.90 55.55 33.73 (Y) 90.68 -9.59 79.47 (L) 55.33 -48.88 26.28 (N) 33.05 0.00 0.00 (W) 95.41 0.00 0.00 (N0) 27.27 0.00 0.00 (W1) 99.74 0.00 0.00 ] def /OLS33LC [(C) 61.87 -26.10 -38.11 (V) 37.05 19.81 -31.50 (M) 53.05 64.19 -5.00 (O) 52.90 55.38 35.61 (Y) 90.68 -10.48 83.91 (L) 55.33 -49.10 28.33 (N) 33.05 0.21 0.55 (W) 95.41 -0.98 4.76 (N0) 27.27 0.32 0.15 (W1) 99.74 -1.06 5.04 ] def %calculated by E6531-71.PS 20.6.2003 T=Television, R/LS=Reflective or Luminous System %xx=00,18,27,33 correspond to L* data, RA=Reflective adapted, RC=Reflective CIE /TRS18RA [(C) 87.14 -44.42 -13.12 (V) 35.47 64.92 -95.08 (M) 59.01 89.33 -19.43 (O) 52.76 71.63 49.88 (Y) 92.74 -20.03 84.97 (L) 84.00 -78.99 73.94 (N) 18.01 0.00 0.00 (W) 95.41 0.00 0.00 (N0) 0.01 0.00 0.00 (W1) 100.0 0.00 0.00 ] def /TRS18RC [(C) 87.14 -44.42 -13.12 (V) 35.47 64.92 -95.08 (M) 59.01 89.33 -19.43 (O) 52.76 71.63 49.88 (Y) 92.74 -20.03 84.97 (L) 84.00 -78.99 73.94 (N) 18.01 0.00 0.00 (W) 95.41 0.00 0.00 (N0) 0.01 0.00 0.00 (W1) 100.0 0.00 0.00 ] def /TLS00LA [(C) 86.88 -46.15 -13.54 (V) 30.39 76.06 -103.58 (M) 57.31 94.35 -20.68 (O) 50.50 76.91 64.55 (Y) 92.66 -20.68 90.75 (L) 83.62 -82.74 79.90 (N) 0.00 0.00 0.00 (W) 95.41 0.00 0.00 (N0) 0.00 0.00 0.00 (W1) 100.13 0.00 0.00 ] def /TLS00LC [(C) 86.88 -46.15 -13.54 (V) 30.39 76.06 -103.58 (M) 57.31 94.35 -20.68 (O) 50.50 76.91 64.55 (Y) 92.66 -20.68 90.75 (L) 83.62 -82.74 79.90 (N) 0.00 0.00 0.00 (W) 95.41 0.00 0.00 (N0) 0.00 0.00 0.00 (W1) 100.13 0.00 0.00 ] def /TLS18LA [(C) 87.14 -44.42 -13.12 (V) 35.47 64.92 -95.08 (M) 59.01 89.33 -19.43 (O) 52.76 71.63 49.88 (Y) 92.74 -20.03 84.97 (L) 84.00 -78.99 73.94 (N) 18.01 0.00 0.00 (W) 95.41 0.00 0.00 (N0) 0.01 0.00 0.00 (W1) 100.0 0.00 0.00 ] def /TLS18LC [(C) 87.14 -44.42 -13.12 (V) 35.47 64.92 -95.08 (M) 59.01 89.33 -19.43 (O) 52.76 71.63 49.88 (Y) 92.74 -20.03 84.97 (L) 84.00 -78.99 73.94 (N) 18.01 0.00 0.00 (W) 95.41 0.00 0.00 (N0) 0.01 0.00 0.00 (W1) 100.0 0.00 0.00 ] def /TLS27LA [(C) 87.40 -42.72 -12.70 (V) 39.70 56.66 -88.03 (M) 60.64 84.61 -18.27 (O) 54.88 66.84 41.69 (Y) 92.82 -19.39 79.81 (L) 84.37 -75.39 68.76 (N) 26.85 0.00 0.00 (W) 95.41 0.00 0.00 (N0) 18.34 0.00 0.00 (W1) 99.87 0.00 0.00 ] def /TLS27LC [(C) 87.40 -42.72 -12.70 (V) 39.70 56.66 -88.03 (M) 60.64 84.61 -18.27 (O) 54.88 66.84 41.69 (Y) 92.82 -19.39 79.81 (L) 84.37 -75.39 68.76 (N) 26.85 0.00 0.00 (W) 95.41 0.00 0.00 (N0) 18.34 0.00 0.00 (W1) 99.87 0.00 0.00 ] def /TLS33LA [(C) 87.66 -41.06 -12.29 (V) 43.38 50.19 -81.95 (M) 62.20 80.15 -17.20 (O) 56.88 62.47 36.02 (Y) 92.90 -18.75 75.12 (L) 84.74 -71.92 64.16 (N) 33.05 0.00 0.00 (W) 95.41 0.00 0.00 (N0) 27.27 0.00 0.00 (W1) 99.74 0.00 0.00 ] def /TLS33LC [(C) 87.66 -41.06 -12.29 (V) 43.38 50.19 -81.95 (M) 62.20 80.15 -17.20 (O) 56.88 62.47 36.02 (Y) 92.90 -18.75 75.12 (L) 84.74 -71.92 64.16 (N) 33.05 0.00 0.00 (W) 95.41 0.00 0.00 (N0) 27.27 0.00 0.00 (W1) 99.74 0.00 0.00 ] def 0 1 39 {/i exch def %i=0,39 sPRTV 0 eq {%A* CIELAB PR PR1 0 eq {PRA i ORS18RA i get put} if PR1 1 eq {PRA i OLS00LA i get put} if PR1 2 eq {PRA i OLS18LA i get put} if PR1 3 eq {PRA i OLS27LA i get put} if PR1 4 eq {PRA i OLS33LA i get put} if TV1 0 eq {TVA i TRS18RA i get put} if TV1 1 eq {TVA i TLS00LA i get put} if TV1 2 eq {TVA i TLS18LA i get put} if TV1 3 eq {TVA i TLS27LA i get put} if TV1 4 eq {TVA i TLS33LA i get put} if } { TV2 0 eq {TVA i TRS18RA i get put} if TV2 1 eq {TVA i TLS00LA i get put} if TV2 2 eq {TVA i TLS18LA i get put} if TV2 3 eq {TVA i TLS27LA i get put} if TV2 4 eq {TVA i TLS33LA i get put} if PR2 0 eq {PRA i ORS18RA i get put} if PR2 1 eq {PRA i OLS00LA i get put} if PR2 2 eq {PRA i OLS18LA i get put} if PR2 3 eq {PRA i OLS27LA i get put} if PR2 4 eq {PRA i OLS33LA i get put} if } ifelse } for %i=0,39 sPRTV 0 eq { Li60 0 PRA 7 4 mul 1 add get put Ai60 0 PRA 7 4 mul 2 add get put Bi60 0 PRA 7 4 mul 3 add get put 1 1 3 {/i exch def %i=1,3 Li60 i PRA i 2 add 4 mul 1 add get put Ai60 i PRA i 2 add 4 mul 2 add get put Bi60 i PRA i 2 add 4 mul 3 add get put } for %i=1,3 4 1 6 {/i exch def %i=4,6 Li60 i PRA i 4 sub 4 mul 1 add get put Ai60 i PRA i 4 sub 4 mul 2 add get put Bi60 i PRA i 4 sub 4 mul 3 add get put } for %i=4,6 Li60 7 PRA 6 4 mul 1 add get put Ai60 7 PRA 6 4 mul 2 add get put Bi60 7 PRA 6 4 mul 3 add get put Li61 0 TVA 7 4 mul 1 add get put Ai61 0 TVA 7 4 mul 2 add get put Bi61 0 TVA 7 4 mul 3 add get put 1 1 3 {/i exch def %i=1,3 Li61 i TVA i 2 add 4 mul 1 add get put Ai61 i TVA i 2 add 4 mul 2 add get put Bi61 i TVA i 2 add 4 mul 3 add get put } for %i=1,3 4 1 6 {/i exch def %i=4,6 Li61 i TVA i 4 sub 4 mul 1 add get put Ai61 i TVA i 4 sub 4 mul 2 add get put Bi61 i TVA i 4 sub 4 mul 3 add get put } for %i=4,6 Li61 7 TVA 6 4 mul 1 add get put Ai61 7 TVA 6 4 mul 2 add get put Bi61 7 TVA 6 4 mul 3 add get put } { Li60 0 TVA 7 4 mul 1 add get put Ai60 0 TVA 7 4 mul 2 add get put Bi60 0 TVA 7 4 mul 3 add get put 1 1 3 {/i exch def %i=1,3 Li60 i TVA i 2 add 4 mul 1 add get put Ai60 i TVA i 2 add 4 mul 2 add get put Bi60 i TVA i 2 add 4 mul 3 add get put } for %i=1,3 4 1 6 {/i exch def %i=4,6 Li60 i TVA i 4 sub 4 mul 1 add get put Ai60 i TVA i 4 sub 4 mul 2 add get put Bi60 i TVA i 4 sub 4 mul 3 add get put } for %i=4,6 Li60 7 TVA 6 4 mul 1 add get put Ai60 7 TVA 6 4 mul 2 add get put Bi60 7 TVA 6 4 mul 3 add get put Li61 0 PRA 7 4 mul 1 add get put Ai61 0 PRA 7 4 mul 2 add get put Bi61 0 PRA 7 4 mul 3 add get put 1 1 3 {/i exch def %i=1,3 Li61 i PRA i 2 add 4 mul 1 add get put Ai61 i PRA i 2 add 4 mul 2 add get put Bi61 i PRA i 2 add 4 mul 3 add get put } for %i=1,3 4 1 6 {/i exch def %i=4,6 Li61 i PRA i 4 sub 4 mul 1 add get put Ai61 i PRA i 4 sub 4 mul 2 add get put Bi61 i PRA i 4 sub 4 mul 3 add get put } for %i=4,6 Li61 7 PRA 6 4 mul 1 add get put Ai61 7 PRA 6 4 mul 2 add get put Bi61 7 PRA 6 4 mul 3 add get put } ifelse 2 setlinewidth fcolors 00 get exec setcmyk_olvcolor %N /fak 0.8 def %x and yaxis imx 60 fak mul sub imy moveto imx 70 fak mul add imy lineto stroke imx imy 15 fak mul sub moveto imx imy 123 fak mul add lineto stroke %arrows imx 70 fak mul add 5 sub imy 2 add moveto 5 -2 rlineto -5 -2 rlineto stroke imx 2 sub imy 123 fak mul add 5 sub moveto 2 5 rlineto 2 -5 rlineto stroke %imx 55 fak mul add imy 15 sub moveto TIK (C*) show -8 -5 rmoveto 200 16.67 div /Times-ISOL1 FS (ab) show %0 5 rmoveto TIK (=LAB*) show -8 -5 rmoveto 200 16.67 div /Times-ISOL1 FS (r) show %imx 5 add imy 138 fak mul add moveto TIK (L*=LAB*) show -8 -5 rmoveto 200 16.67 div /Times-ISOL1 FS (1) show newpath 150 16.67 div /Times-ISOL1 FS imx 03 sub imy 100 fak mul add moveto 6 0 rlineto stroke imx 02 add imy 100 fak mul add 04 add moveto (100) show imx 03 add imy 10 sub moveto (0) show i1 2 eq {1.0 0.0 1.0 0.0 } {0.0 0.0 1.0 0.0} ifelse setcmyk_olvcolor %second lightness yellow or green sPRTV 0 eq {imx i1 2 eq {12 sub} {02 add} ifelse imy i1 2 eq { 0 add} {02 add} ifelse PR1 2 eq TV1 2 eq or {7 fak mul add moveto (18) show} if PR1 3 eq TV1 3 eq or {13 fak mul add moveto (27) show} if PR1 4 eq TV1 4 eq or {17 fak mul add moveto (33) show} if } if sPRTV 1 eq {imx i1 2 eq {12 sub} {02 add} ifelse imy i1 2 eq { 0 add} {02 add} ifelse PR2 2 eq TV2 2 eq or {7 fak mul add moveto (18) show} if PR2 3 eq TV2 3 eq or {13 fak mul add moveto (27) show} if PR2 4 eq TV2 4 eq or {17 fak mul add moveto (33) show} if } if tfn /trushow {0.005 add 100 mul truncate 100 div 6 string cvs show} bind def /j 0 def i1 3 i2 {/i exch def /k i j 8 mul add def pPRTV 1 eq pPRTV 2 eq or { %print TV und ALL TBIM /ku Far i get exec def /CAB0 Bi60 i get Bi60 0 get sub dup mul Ai60 i get Ai60 0 get sub dup mul add sqrt def /ix imx CAB0 fak mul i i2 eq {sub} {add} ifelse def /iy imy Li60 i get fak mul add def ix 18 sub iy 18 sub 37 37 fcolors ku get exec colrecfi %Farbe-Fuellen je nach Auszug 1 setlinewidth ix 18 sub iy 18 sub 37 37 0.0 0.0 0.0 1.0 colrecst %Farbe-Umgrenzen je nach Auszug 2 setlinewidth 0.0 0.0 0.0 0.0 setcmyk_olvcolor ix 17.5 sub iy 26 sub moveto /delL0 Li60 i get Li60 0 get sub fak mul 15 div def /delA0 Ai60 i get Ai60 0 get sub fak mul 15 div def /delB0 Bi60 i get Bi60 0 get sub fak mul 15 div def /delLAB0 delL0 dup mul delA0 dup mul add delB0 dup mul add sqrt def 150 16.67 div /Symbol FS (D) show 150 16.67 div /Times-ISOL1 FS (E*=) show delLAB0 trushow %sPRTV 1 eq { %start TV -> PRINT TV %%O-C, text etc. %TBIM tfn %i i1 eq {ix 25 add iy 10 add moveto} % {ix 35 sub iy 0 add moveto} ifelse % tBtxb i get exec show % } if %start TV -> PRINT TV } if %print TV und ALL pPRTV 0 eq pPRTV 2 eq or { %print PR und ALL /ku Far i get exec def /CAB1 Bi61 i get Bi61 0 get sub dup mul Ai61 i get Ai61 0 get sub dup mul add sqrt def /ix imx CAB1 fak mul i i2 eq {sub} {add} ifelse def /iy imy Li61 i get fak mul add def ix 18 sub iy 18 sub 37 37 fcolors ku get exec colrecfi %Farbe-Fuellen je nach Auszug 1 setlinewidth ix 18 sub iy 18 sub 37 37 i1 2 eq {1.0 0.0 1.0 0.0 } {0.0 0.0 1.0 0.0} ifelse colrecst %Farbe-Umgrenzen je nach Auszug 2 setlinewidth 0.0 0.0 0.0 0.0 setcmyk_olvcolor ix 17.5 sub iy 21 add moveto /delL1 Li61 i get Li61 0 get sub fak mul 04 div def /delA1 Ai61 i get Ai61 0 get sub fak mul 04 div def /delB1 Bi61 i get Bi61 0 get sub fak mul 04 div def /delLAB1 delL1 dup mul delA1 dup mul add delB1 dup mul add sqrt def 150 16.67 div /Symbol FS (D) show 150 16.67 div /Times-ISOL1 FS (E*=) show delLAB1 trushow %sPRTV 0 eq { %start PR -> PRINT TV %%O-C, text etc. %TBIM tfn %i i1 eq {ix 25 add iy 10 add moveto} % {ix 35 sub iy 0 add moveto} ifelse % tBtxb i get exec show % } if %start PR -> PRINT TV } if %print TV und ALL } for %schleife i TBM newpath /Ball1x 16 array def /Ball1y 16 array def /Ball4x 16 array def /Ball4y 16 array def pPRTV 1 eq pPRTV 2 eq or { %print TV und ALL 150 16.67 div /TimesB-ISOL1 FS 0.0 0.0 0.0 1.0 setcmyk_olvcolor %first balls black i1 3 i2 {/j exch def /CAB0 Bi60 j get Bi60 0 get sub dup mul Ai60 j get Ai60 0 get sub dup mul add sqrt def /delL Li60 0 get Li60 j get sub fak mul 15 div def /delCAB0 CAB0 fak mul 15 div def 0 1 15 {/i exch def /imx1 imx delCAB0 i mul j i2 eq {neg} if add def /imy1 imy Li60 0 get fak mul add delL i mul sub def j i1 eq {Ball1x i imx1 put Ball1y i imy1 put} {Ball4x i imx1 put Ball4y i imy1 put} ifelse imx1 imy1 2 0 360 arc fill } for } for %j 1 setlinewidth %N-Line i1 3 i2 {/i exch def /CAB0 Bi60 i get Bi60 0 get sub dup mul Ai60 i get Ai60 0 get sub dup mul add sqrt def /ix imx CAB0 fak mul i i2 eq {sub} {add} ifelse def /iy imy Li60 i get fak mul add def ix iy moveto imx imy Li60 7 get fak mul add lineto stroke } for 2 setlinewidth } if %print TV und ALL /Ball2x 5 array def /Ball2y 5 array def /Ball5x 5 array def /Ball5y 5 array def pPRTV 0 eq pPRTV 2 eq or { %print PR und ALL %i1 3 i2 {/j exch def i1 2 eq {1.0 0.0 1.0 0.0 } {0.0 0.0 1.0 0.0} ifelse setcmyk_olvcolor %second balls yellow or green i1 3 i2 {/j exch def /CAB1 Bi61 j get Bi61 0 get sub dup mul Ai61 j get Ai61 0 get sub dup mul add sqrt def /delL Li61 0 get Li61 j get sub fak mul 04 div def /delCAB1 CAB1 fak mul 04 div def 0 1 04 {/i exch def /imx2 imx delCAB1 i mul j i2 eq {neg} if add def /imy2 imy Li61 0 get fak mul add delL i mul sub def imx2 imy2 2 0 360 arc fill j i1 eq {Ball2x i imx2 put Ball2y i imy2 put} {Ball5x i imx2 put Ball5y i imy2 put} ifelse } for } for %j 1 setlinewidth %N-Line i1 3 i2 {/i exch def /CAB1 Bi61 i get Bi61 0 get sub dup mul Ai61 i get Ai61 0 get sub dup mul add sqrt def /ix imx CAB1 fak mul i i2 eq {sub} {add} ifelse def /iy imy Li61 i get fak mul add def ix iy moveto imx imy Li61 7 get fak mul add lineto stroke } for 2 setlinewidth } if %print PR und ALL %achromatic series pPRTV 1 eq pPRTV 2 eq or { %print TV und ALL sPRTV 1 eq { %start TV -> PRINT PR /delL0 95.41 Li60 7 get sub fak mul 15 div def 0 1 15 {/i exch def 0.0 0.0 0.0 i 15 div setcmyk_olvcolor imx imy Li60 0 get fak mul add delL0 i mul sub 2 0 360 arc fill } for } if %start TV -> PRINT PR } if %print TV und ALL pPRTV 0 eq pPRTV 2 eq or { %print PR und ALL sPRTV 0 eq { %start PR -> PRINT TV /delL1 95.41 Li61 7 get sub fak mul 15 div def 0 1 15 {/i exch def 0.0 0.0 0.0 i 15 div setcmyk_olvcolor imx imy Li61 0 get fak mul add delL1 i mul sub 2 0 360 arc fill } for } if %start PR -> PRINT TV } if %print PR und ALL %W-N, text etc. TBIS tfn 052 017 moveto (N) show tfw 051 091 moveto (W) show 070 106 moveto (L*) show 124 007 moveto (C*) show -5 -4 rmoveto TBS (ab) show 0 4 rmoveto TBIS tfc 014 022 moveto (C) show 0 -4 rmoveto TBV Fxx show 0 4 rmoveto TBIS tfr 124 088 moveto (R) show 0 -4 rmoveto TBV Fxx show 0 4 rmoveto TBIS 154 16.67 div /Times-ISOL1 FS 0 0 1 0 setcmyk_olvcolor 069 090 moveto (95) show %Connection 0 1 0 setrgbcolor 0 1 04 {/i exch def %O i 0 eq {/ix 00 def} if i 1 eq {/ix 04 def} if i 2 eq {/ix 08 def} if i 3 eq {/ix 12 def} if i 4 eq {/ix 15 def} if /imx1 Ball1x ix get def /imy1 Ball1y ix get def /imx2 Ball2x i get def /imy2 Ball2y i get def imx1 imy1 moveto imx2 imy2 lineto stroke %C i 0 eq {/ix 00 def} if i 1 eq {/ix 03 def} if i 2 eq {/ix 05 def} if i 3 eq {/ix 08 def} if i 4 eq {/ix 10 def} if /imx4 Ball4x ix get def /imy4 Ball4y ix get def /imx5 Ball5x i get def /imy5 Ball5y i get def imx5 imy5 moveto imx4 imy4 lineto stroke } for showpage grestore %%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 ME961-4 %%BoundingBox: 70 83 226 206 %START PDFDE011.EPS /pdfmark14 where {pop} {userdict /pdfmark14 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [/Title (PostScript pictures: farbe.li.tu-berlin.de/ME96/ME96.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2019080112000) /ModDate (D:20190801112000) /DOCINFO pdfmark14 [ /View [ /FitB ] /DOCVIEW pdfmark14 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % !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 /TV {160 16.67 div /Times-ISOL1 FS} bind def /TS {200 16.67 div /Times-ISOL1 FS} bind def /TK {250 16.67 div /Times-ISOL1 FS} bind def /TM {300 16.67 div /Times-ISOL1 FS} bind def /TG {350 16.67 div /Times-ISOL1 FS} bind def /TIV {160 16.67 div /TimesI-ISOL1 FS} bind def /TIS {200 16.67 div /TimesI-ISOL1 FS} bind def /TIK {250 16.67 div /TimesI-ISOL1 FS} bind def /TIM {300 16.67 div /TimesI-ISOL1 FS} bind def /TIG {350 16.67 div /TimesI-ISOL1 FS} bind def /TBV {160 16.67 div /TimesB-ISOL1 FS} bind def /TBS {200 16.67 div /TimesB-ISOL1 FS} bind def /TBK {250 16.67 div /TimesB-ISOL1 FS} bind def /TBM {300 16.67 div /TimesB-ISOL1 FS} bind def /TBG {350 16.67 div /TimesB-ISOL1 FS} bind def /TBIV {160 16.67 div /TimesBI-ISOL1 FS} bind def /TBIS {200 16.67 div /TimesBI-ISOL1 FS} bind def /TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def /TBIM {300 16.67 div /TimesBI-ISOL1 FS} bind def /TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def /SV {160 16.67 div 1 sub /Symbol FS} bind def /SS {200 16.67 div 1 sub /Symbol FS} bind def /SK {250 16.67 div 1 sub /Symbol FS} bind def /SM {300 16.67 div 1 sub /Symbol FS} bind def /SG {350 16.67 div 1 sub /Symbol FS} bind def /tolvfcol %Farbkreis-Reihenfolge [ (000) (F00) (FF0) (0F0) (0FF) (00F) (F0F) (FFF) (777) (700) (770) (070) (077) (007) (707) (F07) %15=R (333) (F77) (FF7) (7F7) (7FF) (77F) (F7F) (07F) %23=B (BBB) (F70) (7F0) (0F7) (07F) (70F) (F07) (0F7) %31=G ] def /tcmyfcol %Farbkreis-Reihenfolge [ (FFF) (0FF) (00F) (F0F) (F00) (FF0) (0F0) (000) (888) (8FF) (88F) (F8F) (F88) (FF8) (8F8) (0F8) %15=R (CCC) (088) (008) (808) (800) (880) (080) (F80) %23=B (444) (08F) (80F) (F08) (F80) (8F0) (0F8) (F08) %31=G ] def /tcmykfcol %Farbkreis-Reihenfolge [ (000F) (0FF0) (00F0) (F0F0) (F000) (FF00) (0F00) (0000) (0008) (0FF8) (00F8) (F0F8) (F008) (FF08) (0F08) (0F80) %15=R (000C) (0880) (0080) (8080) (8000) (8800) (0800) (F800) %23=B (0004) (0F80) (80F0) (F080) (F800) (8F00) (0F80) (F080) %31=G ] def /tolvfcols %Farbkreis-Reihenfolge [ (000*) (F00*) (FF0*) (0F0*) (0FF*) (00F*) (F0F*) (FFF*) (777*) (700*) (770*) (070*) (077*) (007*) (707*) (F07*) %15=R (333*) (F77*) (FF7*) (7F7*) (7FF*) (77F*) (F7F*) (07F*) %23=B (BBB*) (F70*) (7F0*) (0F7*) (07F*) (70F*) (F07*) (0F7*) %31=G ] def /tcmyfcols %Farbkreis-Reihenfolge [ (FFF*) (0FF*) (00F*) (F0F*) (F00*) (FF0*) (0F0*) (000*) (888*) (8FF*) (88F*) (F8F*) (F88*) (FF8*) (8F8*) (0F8*) %15=R (CCC*) (088*) (008*) (808*) (800*) (880*) (080*) (F80*) %23=B (444*) (08F*) (80F*) (F08*) (F80*) (8F0*) (0F8*) (F08*) %31=G ] def /tcmykfcols %Farbkreis-Reihenfolge [ (000F*) (0FF0*) (00F0*) (F0F0*) (F000*) (FF00*) (0F00*) (0000*) (0008*) (0FF8*) (00F8*) (F0F8*) (F008*) (FF08*) (0F08*) (0F80*) %15=R (000C*) (0880*) (0080*) (8080*) (8000*) (8800*) (0800*) (F800*) %23=B (0004*) (0F80*) (80F0*) (F080*) (F800*) (8F00*) (0F80*) (F080*) %31=G ] def /fcolors %CMYN 32 Testfarben Nr. 0 bis 31; Farbkreis-Reihenfolge [{0.0 0.0 0.0 1.0} {0.0 1.0 1.0 0.0} {0.0 0.0 1.0 0.0} {1.0 0.0 1.0 0.0} {1.0 0.0 0.0 0.0} {1.0 1.0 0.0 0.0} {0.0 1.0 0.0 0.0} {0.0 0.0 0.0 0.0} {0.0 0.0 0.0 0.5} {0.0 1.0 1.0 0.5} {0.0 0.0 1.0 0.5} {1.0 0.0 1.0 0.5} {1.0 0.0 0.0 0.5} {1.0 1.0 0.0 0.5} {0.0 1.0 0.0 0.5} {0.0 1.0 0.5 0.0} {0.0 0.0 0.0 0.75} {0.0 0.5 0.5 0.0} {0.0 0.0 0.5 0.0} {0.5 0.0 0.5 0.0} {0.5 0.0 0.0 0.0} {0.5 0.5 0.0 0.0} {0.0 0.5 0.0 0.0} {1.0 0.5 0.0 0.0} {0.0 0.0 0.0 0.25} {0.0 0.5 1.0 0.0} {0.5 0.0 1.0 0.0} {1.0 0.0 0.5 0.0} {1.0 0.5 0.0 0.0} {0.5 1.0 0.0 0.0} {0.0 1.0 0.5 0.0} {1.0 0.0 0.5 0.0} ] def /fak 0.5 def /Far %Farbkreis-Reihenfolge [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %R 16 17 18 19 20 21 22 23 %B 24 25 26 27 28 29 30 31 %G ] def /cFar %Kompensativ-Farbkreis-Reihenfolge [ 8 4 5 6 1 2 3 0 0 20 21 22 17 18 19 31 %G 24 12 13 14 9 10 11 2 %J 16 28 29 30 25 26 27 15 %R ] def /Btx %Farbkreis- -> %Btx-Reihenfolge [ 0 1 3 2 5 6 4 7 8 9 11 10 13 14 12 15 %R 16 17 19 18 21 22 20 23 %B 24 25 26 27 28 29 30 31 %G ] def /cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge [ 7 4 6 5 2 3 1 0 8 20 22 21 18 19 17 31 %G 24 12 14 13 10 11 9 2 %J 16 25 26 27 28 29 30 15 %R ] def %XCHA01.PS BEG /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y k {setcmyk_olvcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmyk_olvcolor rec stroke} bind def /rem %x, y width heigth {/heigth exch 0.5 mul def /width exch 0.5 mul def /yleftb exch heigth 0.5 mul add def /xleftb exch width 0.5 mul add def xleftb yleftb moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colremfi %x y width heigth c m y k {setcmykcolor rem fill} bind def /colremst %x y width heigth c m y k {setcmykcolor rem stroke} bind def /tzr {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzg {1.0 0.0 1.0 0.0} bind def /tzb {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tfr {0.0 1.0 1.0 0.0 setcmyk_olvcolor} bind def %Reproduktionsfarben /tfg {1.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def /tfb {1.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def /tfc {1.0 0.0 0.0 0.0 setcmyk_olvcolor} bind def /tfm {0.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def /tfy {0.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def /tfn {0.0 0.0 0.0 1.00 setcmyk_olvcolor} bind def %Graureihe /tfd {0.0 0.0 0.0 0.75 setcmyk_olvcolor} bind def /tfz {0.0 0.0 0.0 0.50 setcmyk_olvcolor} bind def /tfh {0.0 0.0 0.0 0.25 setcmyk_olvcolor} bind def /tfw {0.0 0.0 0.0 0.00 setcmyk_olvcolor} bind def %%EndProlog gsave /lanind 1 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showfr {2 lanind eq {show} {pop} ifelse} bind def /showes {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showno {5 lanind eq {show} {pop} ifelse} bind def /showpt {6 lanind eq {show} {pop} ifelse} bind def /showx1 {7 lanind eq {show} {pop} ifelse} bind def /showy1 {8 lanind eq {show} {pop} ifelse} bind def /showz1 {9 lanind eq {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 3 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def 75 85 moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolor cvishow xchart cvishow pchart cvishow colsep cvishow (-L) show pmetam cvishow gsave %XCHA01.PS END 5 /Times-ISOL1 FS 180 85 moveto (ME961-5) show xchart 0 eq {(N) show} {deintp colorm 2 mul add cvishow} ifelse (, B4_17_1) show % ( B8120_2, M8270-1, B4_17_1, N=4_17_1) show 72 90 translate 0.01 MM 0.01 MM scale %d2:[rr.b4f]bausz8y.eps /ausz 8 def 15 setlinewidth 0.0 0.0 0.5 0.0 setcmykcolor 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmykcolor 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath stroke 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath clip 700 3200 translate 0 400 moveto 4000 0 rlineto stroke 0 400 moveto 0 -3000 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten 300 /Times-ISOL1 FS 0 350 moveto 0 100 rlineto stroke 800 350 moveto 0 100 rlineto stroke 1600 350 moveto 0 100 rlineto stroke 2400 350 moveto 0 100 rlineto stroke 3200 350 moveto 0 100 rlineto stroke 4000 350 moveto 0 100 rlineto stroke -350 500 moveto (-0,8) show 550 500 moveto (0,0) show 1350 500 moveto (0,8) show 2150 500 moveto (1,6) show 2950 500 moveto (2,4) show 3750 500 moveto (3,2) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 -800 moveto 100 0 rlineto stroke -50 -1600 moveto 100 0 rlineto stroke -50 -2400 moveto 100 0 rlineto stroke -50 -3200 moveto 100 0 rlineto stroke -650 -100 moveto ( 0,0) show -650 -900 moveto (-0,8) show -650 -1700 moveto (-1,6) show -650 -2500 moveto (-2,4) show /nshow {350 /Times-ISOL1 FS show} bind def /kshow {350 /TimesI-ISOL1 FS show} bind def /ishow {280 /Times-ISOL1 FS -25 -125 rmoveto show 25 125 rmoveto} bind def /nshowa {350 /Times-ISOL1 FS 30 0 3 -1 roll ashow} bind def /kshowa {250 /TimesI-ISOL1 FS 30 0 3 -1 roll ashow} bind def /nshow2 {300 /Times-ISOL1 FS show} bind def /kshow2 {300 /TimesI-ISOL1 FS show} bind def /ishow2 {250 /Times-ISOL1 FS -20 -100 rmoveto show -20 100 rmoveto} bind def /nshow3 {250 /Times-ISOL1 FS 20 0 3 -1 roll ashow} bind def /kshow3 {250 /TimesI-ISOL1 FS 20 0 3 -1 roll ashow} bind def /ishow3 {200 /Times-ISOL1 FS -15 -80 rmoveto 20 0 3 -1 roll ashow -15 80 rmoveto} bind def -675 -3050 moveto (b) kshowa (=-0,40) nshowa (z/y) kshowa 3650 100 moveto (a=x/y) kshowa -700 -3200 translate %1000 02 01 16 01-.03**************************************** %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 1500 3200 translate % 36136 -68535 moveto % 36136 -68535 36234 -68875 35958 -68561 curveto % 35610 -68128 33600 -64560 29424 -56936 curveto % 24474 -47779 19507 -38551 15143 -30384 curveto % 11681 -23927 8847 -18653 6639 -14534 curveto % 4846 -11128 3397 -8271 2147 -5661 curveto 1261 -3701 moveto 1261 -3701 688 -2339 342 -1455 curveto 153 -894 56 -546 15 -336 curveto 5 -208 18 -125 47 -73 curveto 89 -44 138 -28 191 -19 curveto 246 -13 304 -8 366 -5 curveto 435 -3 512 -2 597 -1 curveto 693 -1 800 0 920 0 curveto 1053 0 1198 0 1355 0 curveto 1520 0 1683 0 1844 0 curveto 1993 0 2126 0 2242 0 curveto 2340 0 2424 0 2497 0 curveto 2559 0 2610 0 2649 0 curveto 2680 0 2703 0 2718 0 curveto 2731 0 2741 0 2751 0 curveto 2760 0 2764 0 2767 0 curveto 2769 0 2770 0 2824 -116 curveto 3023 -529 3168 -817 3275 -1036 curveto 3357 -1209 3430 -1349 3482 -1469 curveto 3545 -1597 3622 -1746 3704 -1922 curveto 3817 -2156 3983 -2496 4262 -3058 curveto % 4786 -4149 6341 -7346 35775 -67850 curveto stroke 1 setgray % 36136 -68535 30 0 360 arc fill % 400 % 29424 -56936 30 0 360 arc fill % 425 % 8847 -18653 30 0 360 arc fill % 450 1261 -3701 30 0 360 arc fill % 475 15 -336 30 0 360 arc fill % 500 138 -28 30 0 360 arc fill % 525 435 -3 30 0 360 arc fill % 550 920 0 30 0 360 arc fill % 575 1683 0 30 0 360 arc fill % 600 2340 0 30 0 360 arc fill % 625 2649 0 30 0 360 arc fill % 650 2741 0 30 0 360 arc fill % 675 2769 0 30 0 360 arc fill % 700 3023 -529 30 0 360 arc fill %500c 3482 -1469 30 0 360 arc fill %525c 3983 -2496 30 0 360 arc fill %550c 0 setgray % 36136 -68535 30 0 360 arc stroke % 400 % 29424 -56936 30 0 360 arc stroke % 425 % 8847 -18653 30 0 360 arc stroke % 450 1261 -3701 30 0 360 arc stroke % 475 15 -336 30 0 360 arc stroke % 500 138 -28 30 0 360 arc stroke % 525 435 -3 30 0 360 arc stroke % 550 920 0 30 0 360 arc stroke % 575 1683 0 30 0 360 arc stroke % 600 2340 0 30 0 360 arc stroke % 625 2649 0 30 0 360 arc stroke % 650 2741 0 30 0 360 arc stroke % 675 2769 0 30 0 360 arc stroke % 700 3023 -529 30 0 360 arc stroke %500c 3482 -1469 30 0 360 arc stroke %525c 3983 -2496 30 0 360 arc stroke %550c 950 -435 30 0 360 arc fill %D65 0 setgray 250 /TimesI-ISOL1 FS % 36136 500 sub -68535 100 sub moveto (400) show % 29424 500 sub -56936 100 sub moveto (425) show % 8847 500 sub -18653 100 sub moveto (450) show % 1261 500 sub -3701 100 sub moveto (475) show 15 500 sub -336 100 sub moveto (500) show % 138 200 sub -28 100 add moveto (525) show 435 200 sub -3 100 add moveto (550) show % 920 200 sub 0 100 add moveto (575) show 1683 200 sub 0 100 add moveto (600) show 2340 200 sub 0 100 add moveto (625) show % 2649 200 sub 0 100 add moveto (650) show % 2741 200 sub 0 100 add moveto (675) show 2769 100 add 0 150 sub moveto (700) show 3023 100 add -529 100 sub moveto (500c) show % 3482 100 sub -1469 200 add moveto (525c) show % 3983 500 sub -2496 100 sub moveto (550c) show % 950 100 add -435 100 sub moveto (D65 ) show 15 350 sub -336 100 add moveto (5G) show 920 100 sub 0 100 add moveto (5Y) show 920 100 sub 0 2050 sub moveto (5PB) show 2340 150 sub 0 250 sub moveto (5R) show -1500 -3200 translate %ENDE: 2 %1000 02 10 01 16 01 00 NE JA NE 01 ******************** % 10 01 01 F39M5C2.DAT Chroma 4,8,12,..,24 fŸr B8230/1-xn.eps 30.3.93 %ANF FANXYAL: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 1G0= 4 1500 3200 translate 1060 -679 moveto 1060 -679 1027 -689 990 -692 curveto 955 -688 923 -681 894 -666 curveto 865 -643 843 -616 826 -585 curveto 809 -546 798 -513 789 -471 curveto 784 -443 782 -415 783 -389 curveto 787 -355 801 -310 819 -273 curveto 849 -236 874 -215 904 -200 curveto 934 -197 967 -198 1003 -210 curveto 1040 -225 1074 -247 1097 -267 curveto 1123 -295 1141 -320 1155 -352 curveto 1161 -377 1162 -405 1163 -429 curveto 1162 -457 1158 -490 1149 -534 curveto 1139 -569 1127 -603 1106 -639 curveto 1086 -665 1060 -679 1060 -679 curveto stroke -1500 -3200 translate %ANF FANXYAL: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 2G0= 8 1500 3200 translate 1163 -943 moveto 1163 -943 1096 -976 1007 -983 curveto 946 -977 881 -953 830 -922 curveto 777 -877 724 -798 688 -723 curveto 658 -634 640 -563 623 -481 curveto 615 -426 611 -377 611 -329 curveto 618 -265 647 -181 685 -129 curveto 749 -85 806 -66 867 -58 curveto 917 -57 975 -62 1035 -69 curveto 1099 -82 1163 -100 1219 -122 curveto 1275 -154 1318 -191 1347 -242 curveto 1362 -289 1371 -341 1377 -391 curveto 1378 -451 1373 -516 1357 -613 curveto 1331 -690 1299 -764 1256 -839 curveto 1217 -898 1163 -943 1163 -943 curveto stroke -1500 -3200 translate %ANF FANXYAL: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 3G0= 12 1500 3200 translate 1283 -1240 moveto 1283 -1240 1178 -1314 1032 -1339 curveto 946 -1333 848 -1297 775 -1248 curveto 692 -1164 607 -1019 557 -879 curveto 516 -737 492 -622 473 -501 curveto 463 -416 459 -352 459 -289 curveto 470 -200 511 -91 579 -40 curveto 691 -12 773 -4 851 -1 curveto 915 -1 982 -3 1056 -8 curveto 1132 -16 1218 -26 1309 -42 curveto 1402 -62 1497 -93 1557 -157 curveto 1587 -217 1605 -290 1611 -363 curveto 1608 -451 1594 -547 1563 -695 curveto 1524 -819 1476 -932 1419 -1055 curveto 1363 -1145 1283 -1240 1283 -1240 curveto stroke -1500 -3200 translate %ANF FANXYAL: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 4G0= 16 1500 3200 translate 1487 -7 moveto 1487 -7 1650 -33 1771 -92 curveto 1817 -162 1840 -252 1850 -344 curveto 1842 -459 1827 -584 1785 -783 curveto 1733 -956 1672 -1116 1597 -1289 curveto 1529 -1421 1430 -1600 1287 -1732 curveto 1076 -1799 958 -1782 812 -1725 curveto 718 -1650 607 -1504 503 -1245 curveto 445 -1029 405 -826 381 -674 curveto 359 -522 350 -414 344 -339 curveto 340 -266 348 -155 403 -35 curveto stroke -1500 -3200 translate %ANF FANXYAL: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 5G0= 20 1500 3200 translate 279 -726 moveto 279 -726 263 -543 256 -414 curveto 251 -329 247 -252 247 -126 curveto stroke -1500 -3200 translate %ANF FANXYAL: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 6G0= 20 1500 3200 translate 1986 -49 moveto 1986 -49 2068 -119 2127 -220 curveto 2128 -326 2109 -472 2085 -626 curveto 2028 -883 1972 -1116 1894 -1333 curveto 1797 -1549 1718 -1731 1595 -1971 curveto 1447 -2249 1447 -2249 1447 -2249 curveto stroke -1500 -3200 translate %ANF FANXYAL: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 7G0= 24 1500 3200 translate 191 -562 moveto 191 -562 180 -418 174 -324 curveto 169 -242 171 -109 171 -109 curveto stroke -1500 -3200 translate %ANF FANXYAL: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 8G0= 24 1500 3200 translate 2367 -675 moveto 2367 -675 2281 -988 2218 -1284 curveto 2129 -1559 2033 -1853 1939 -2094 curveto stroke -1500 -3200 translate %ANF FANXYAL: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 9G0= 28 1500 3200 translate 124 -421 moveto 124 -421 111 -320 103 -236 curveto 107 -98 107 -98 107 -98 curveto stroke -1500 -3200 translate %ANF FANXYAL: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 10G0= 28 1500 3200 translate 2505 -1479 moveto 2505 -1479 2408 -1828 2306 -2201 curveto stroke -1500 -3200 translate 1500 3200 translate 950 -435 40 0 360 arc fill -1500 -3200 translate %ENDE: 2 %1000 02 21 01 16 01 00 NE JA JA 02 ******************** % 21 01 01 F39M5T2.DAT Ton=2,4,.. jede 2.Ton; fŸr B8230/1 mit TDELC=2 %ANF FANXYAL: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 2 5.0PB 1500 3200 translate 990 -692 moveto 990 -692 1007 -983 1032 -1339 curveto 1076 -1799 1076 -1799 1076 -1799 curveto stroke 1 setgray 990 -692 40 0 360 arc fill 1007 -983 40 0 360 arc fill 1032 -1339 40 0 360 arc fill 0 setgray 990 -692 40 0 360 arc stroke 1007 -983 40 0 360 arc stroke 1032 -1339 40 0 360 arc stroke 1076 -1799 40 0 360 arc fill -1500 -3200 translate %ANF FANXYAL: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 8 5.0G 1500 3200 translate 783 -389 moveto 783 -389 611 -329 459 -289 curveto 340 -266 247 -252 169 -242 curveto 103 -236 103 -236 103 -236 curveto stroke 1 setgray 783 -389 40 0 360 arc fill 611 -329 40 0 360 arc fill 0 setgray 783 -389 40 0 360 arc stroke 611 -329 40 0 360 arc stroke 459 -289 40 0 360 arc fill 340 -266 40 0 360 arc fill 247 -252 40 0 360 arc fill 169 -242 40 0 360 arc fill 103 -236 40 0 360 arc fill -1500 -3200 translate %ANF FANXYAL: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 12 5.0Y 1500 3200 translate 967 -198 moveto 967 -198 975 -62 982 -3 curveto stroke 1 setgray 967 -198 40 0 360 arc fill 975 -62 40 0 360 arc fill 0 setgray 967 -198 40 0 360 arc stroke 975 -62 40 0 360 arc stroke 982 -3 40 0 360 arc fill -1500 -3200 translate %ANF FANXYAL: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 16 5.0R 1500 3200 translate 1161 -377 moveto 1161 -377 1362 -289 1587 -217 curveto 1817 -162 2068 -119 2068 -119 curveto stroke 1 setgray 1161 -377 40 0 360 arc fill 1362 -289 40 0 360 arc fill 1587 -217 40 0 360 arc fill 0 setgray 1161 -377 40 0 360 arc stroke 1362 -289 40 0 360 arc stroke 1587 -217 40 0 360 arc stroke 1817 -162 40 0 360 arc fill 2068 -119 40 0 360 arc fill -1500 -3200 translate %ANF FANXYAL: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 21 C 1500 3200 translate 980 -472 moveto 980 -472 980 -472 980 -472 curveto stroke 1 setgray 980 -472 40 0 360 arc fill 0 setgray 980 -472 40 0 360 arc stroke -1500 -3200 translate 1500 3200 translate 950 -435 40 0 360 arc fill -1500 -3200 translate %ENDE: 2 %END-35 %END-34 %Platz fŸr Text 700 3200 translate 1 setgray 2633 -3100 moveto 1900 0 rlineto 0 1200 rlineto -1900 0 rlineto closepath fill 0 setgray 2633 -3100 moveto 1900 0 rlineto 0 1200 rlineto -1900 0 rlineto closepath stroke 300 /TimesI-ISOL1 FS 2700 -2150 moveto (Munsell V=5) show 250 /TimesI-ISOL1 FS 2700 -2400 moveto 20 0 (a=x/y) ashow 2700 -2700 moveto 20 0 (b) ashow 250 /Times-ISOL1 FS 20 0 (=-0,40) ashow 250 /TimesI-ISOL1 FS 20 0 (z/y) ashow 300 /Times-ISOL1 FS 2700 -3050 moveto (LAB 1977) show -700 -3200 translate %Platz ACHTUNG KurvenŸberschreibung showpage grestore %%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 ME961-6 %%BoundingBox: 70 83 226 206 %START PDFDE011.EPS /pdfmark16 where {pop} {userdict /pdfmark16 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [/Title (PostScript pictures: farbe.li.tu-berlin.de/ME96/ME96.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2019080112000) /ModDate (D:20190801112000) /DOCINFO pdfmark16 [ /View [ /FitB ] /DOCVIEW pdfmark16 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % !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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave %LANINDL2 START 20000505 /lanind 1 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showfr {2 lanind eq {show} {pop} ifelse} bind def /showes {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showno {5 lanind eq {show} {pop} ifelse} bind def /showpt {6 lanind eq {show} {pop} ifelse} bind def /showx1 {7 lanind eq {show} {pop} ifelse} bind def /showy1 {8 lanind eq {show} {pop} ifelse} bind def /showz1 {9 lanind eq {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 3 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def 75 85 moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolor cvishow xchart cvishow pchart cvishow colsep cvishow (-L) show pmetam cvishow gsave %LANINDL2 END 5 /Times-ISOL1 FS 180 85 moveto (ME961-6) show xchart 0 eq {(N) show} {deintp colorm 2 mul add cvishow} ifelse (, B3_08) show % ( B8311_2, M8121-6, B3_08, N=3_08) show 72 90 translate 0.01 MM 0.01 MM scale %d2:[rr.b4f]bausz8y.eps 15 setlinewidth 0.0 0.0 0.5 0.0 setcmyk_olvcolor 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmyk_olvcolor 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath stroke 600 400 translate 20 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 3000 rlineto stroke 0 735 moveto 120 810 240 1230 360 1365 curveto 480 1395 600 1290 720 1560 curveto 840 1755 960 1755 1080 1710 curveto 1200 1725 1320 1620 1440 1635 curveto 1560 1605 1680 1560 1800 1605 curveto 1920 1560 2040 1560 2160 1500 curveto 2280 1440 2400 1425 2520 1320 curveto 2640 1350 2760 1335 2880 1305 curveto 3000 1245 3120 1245 3240 1200 curveto 3360 1200 3480 1230 3600 1170 curveto 3720 1035 3840 1065 3960 1110 curveto 4080 915 4200 1035 4320 1125 curveto stroke 0 135 moveto 120 180 240 210 360 255 curveto 480 315 600 360 720 420 curveto 840 495 960 555 1080 630 curveto 1200 720 1320 795 1440 885 curveto 1560 990 1680 1080 1800 1185 curveto 1920 1275 2040 1380 2160 1500 curveto 2280 1605 2400 1710 2520 1815 curveto 2640 1935 2760 2040 2880 2145 curveto 3000 2250 3120 2355 3240 2460 curveto 3360 2565 3480 2670 3600 2775 curveto 3720 2865 3840 2970 3960 3060 curveto 4080 3150 lineto %! 4200 3240 4320 3315 curveto stroke 300 /Times-ISOL1 FS %! 100 lambda-Einheiten = 1200 Skalen-Einheiten 240 50 moveto 0 -100 rlineto stroke 1440 50 moveto 0 -100 rlineto stroke 2640 50 moveto 0 -100 rlineto stroke 3840 50 moveto 0 -100 rlineto stroke 20 -300 moveto (400) show 1220 -300 moveto (500) show 2420 -300 moveto (600) show 3620 -300 moveto (700) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 750 moveto 100 0 rlineto stroke -50 1500 moveto 100 0 rlineto stroke -50 2250 moveto 100 0 rlineto stroke -50 3000 moveto 100 0 rlineto stroke -550 -80 moveto ( 0) show -550 670 moveto ( 50) show -550 1420 moveto (100) show -550 2170 moveto (150) show -550 2920 moveto (200) show 350 /Times-ISOL1 FS -550 3275 moveto (relative Strahlung) showde %0ME961-6 00000 (relative radiation) showen %1ME961-6 00001 (radiaci\363n relativa) showes %3ME961-6 00003 (rayonnement relatif) showfr %2ME961-6 00002 (distribuzione spettrale relativa) showit %4ME961-6 00004 (relativ str\345ling) showno %5ME961-6 00005 (rayonnement relatif) showpt %6ME961-6 00006 (relative radiation) showx1 %7ME961-6 00007 (relative radiation) showy1 %8ME961-6 00008 (relative radiation) showz1 %9ME961-6 00009 300 2925 moveto () showde %0ME961-6 01000 () showen %1ME961-6 01001 () showes %3ME961-6 01003 () showfr %2ME961-6 01002 (della radiazione) showit %4ME961-6 01004 () showno %5ME961-6 01005 () showpt %6ME961-6 01006 () showx1 %7ME961-6 01007 () showy1 %8ME961-6 01008 () showz1 %9ME961-6 01009 350 /TimesI-ISOL1 FS ( S) show 350 /Symbol FS ((l)) show 350 /Times-ISOL1 FS 300 2525 moveto (Normlichtarten) showde %0ME961-6 02000 (standard illuminants) showen %1ME961-6 02001 (iluminantes est\341ndar) showes %3ME961-6 02003 (illuminants standard) showfr %2ME961-6 02002 (illuminanti standard) showit %4ME961-6 02004 (standard lyskilder) showno %5ME961-6 02005 (illuminants standard) showpt %6ME961-6 02006 (standard illuminants) showx1 %7ME961-6 02007 (standard illuminants) showy1 %8ME961-6 02008 (standard illuminants) showz1 %9ME961-6 02009 1400 150 moveto 300 /Times-ISOL1 FS (Wellenl\344nge ) showde %0ME961-6 03000 (wavelength ) showen %1ME961-6 03001 (longitud de onda ) showes %3ME961-6 03003 (longueur d'onde ) showfr %2ME961-6 03002 (lunghezza d'onda ) showit %4ME961-6 03004 (b\370lgelengde ) showno %5ME961-6 03005 (longueur d'onde ) showpt %6ME961-6 03006 (wavelength ) showx1 %7ME961-6 03007 (wavelength ) showy1 %8ME961-6 03008 (wavelength ) showz1 %9ME961-6 03009 300 /Symbol FS (l) show 300 /Times-ISOL1 FS (/nm) show 3000 2000 moveto 300 /TimesI-ISOL1 FS (A) show 300 /Times-ISOL1 FS ( = P 2856 K) show 2600 600 moveto 300 /TimesI-ISOL1 FS (D65) show 300 /Times-ISOL1 FS ( = D 6504 K) show showpage grestore %%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 ME961-7 %%BoundingBox: 70 83 226 206 %START PDFDE011.EPS /pdfmark17 where {pop} {userdict /pdfmark17 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [/Title (PostScript pictures: farbe.li.tu-berlin.de/ME96/ME96.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2019080112000) /ModDate (D:20190801112000) /DOCINFO pdfmark17 [ /View [ /FitB ] /DOCVIEW pdfmark17 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % !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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave %LANINDL2 START 20000505 /lanind 1 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showfr {2 lanind eq {show} {pop} ifelse} bind def /showes {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showno {5 lanind eq {show} {pop} ifelse} bind def /showpt {6 lanind eq {show} {pop} ifelse} bind def /showx1 {7 lanind eq {show} {pop} ifelse} bind def /showy1 {8 lanind eq {show} {pop} ifelse} bind def /showz1 {9 lanind eq {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 3 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def 75 85 moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolor cvishow xchart cvishow pchart cvishow colsep cvishow (-L) show pmetam cvishow gsave %LANINDL2 END 5 /Times-ISOL1 FS 180 85 moveto (ME961-7) show xchart 0 eq {(N) show} {deintp colorm 2 mul add cvishow} ifelse (, B3_09_1) show % ( B8310_5, M8121-7, B3_09_1, N=3_09_1) show 72 90 translate 0.01 MM 0.01 MM scale %d2:[rr.b4f]bausz8y.eps 15 setlinewidth 0.0 0.0 0.5 0.0 setcmyk_olvcolor 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmyk_olvcolor 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath stroke 600 400 translate 15 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 3000 rlineto stroke 0 135 moveto 120 180 240 210 360 255 curveto 480 315 600 360 720 420 curveto 840 495 960 555 1080 630 curveto 1200 720 1320 795 1440 885 curveto 1560 990 1680 1080 1800 1185 curveto 1920 1275 2040 1380 2160 1500 curveto 2280 1605 2400 1710 2520 1815 curveto 2640 1935 2760 2040 2880 2145 curveto 3000 2250 3120 2355 3240 2460 curveto 3360 2565 3480 2670 3600 2775 curveto 3720 2865 3840 2970 3960 3060 curveto 4080 3150 4200 3240 4320 3315 curveto stroke 300 /Times-ISOL1 FS %! 100 lambda-Einheiten = 1200 Skalen-Einheiten 240 50 moveto 0 -100 rlineto stroke 1440 50 moveto 0 -100 rlineto stroke 2640 50 moveto 0 -100 rlineto stroke 3840 50 moveto 0 -100 rlineto stroke 20 -300 moveto (400) show 1220 -300 moveto (500) show 2420 -300 moveto (600) show 3620 -300 moveto (700) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 750 moveto 100 0 rlineto stroke -50 1500 moveto 100 0 rlineto stroke -50 2250 moveto 100 0 rlineto stroke -50 3000 moveto 100 0 rlineto stroke -500 -80 moveto (0,0) show -500 670 moveto (0,5) show -500 1420 moveto (1,0) show -500 2170 moveto (1,5) show -500 2920 moveto (2,0) show -500 3300 moveto 350 /Times-ISOL1 FS (relative Strahlung) showde %0ME961-7 00000 (relative radiation) showen %1ME961-7 00001 (radiaci\363n relativa) showes %3ME961-7 00003 (rayonnement relatif) showfr %2ME961-7 00002 (radiazione relativa) showit %4ME961-7 00004 (relativ str\345ling) showno %5ME961-7 00005 (rayonnement relatif) showpt %6ME961-7 00006 (relative radiation) showx1 %7ME961-7 00007 (relative radiation) showy1 %8ME961-7 00008 (relative radiation) showz1 %9ME961-7 00009 350 /TimesI-ISOL1 FS ( S) show 250 /Times-ISOL1 FS 0 -125 rmoveto (A) show 0 125 rmoveto 350 /Symbol FS ((l)) show 300 /Times-ISOL1 FS 1400 150 moveto (Wellenl\344nge ) showde %0ME961-7 01000 (wavelength ) showen %1ME961-7 01001 (la longitud de onda) showes %3ME961-7 01003 (longueur d'onde ) showfr %2ME961-7 01002 (lunghezza d'onda ) showit %4ME961-7 01004 (b\370lgelengde ) showno %5ME961-7 01005 (longueur d'onde ) showpt %6ME961-7 01006 (wavelength ) showx1 %7ME961-7 01007 (wavelength ) showy1 %8ME961-7 01008 (wavelength ) showz1 %9ME961-7 01009 300 /Symbol FS (l) show 300 /Times-ISOL1 FS (/nm) show 2900 1900 moveto 300 /TimesI-ISOL1 FS (A) show 300 /Times-ISOL1 FS ( = P 2856 K) show showpage grestore %%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 ME961-8 %%BoundingBox: 70 83 226 206 %START PDFDE011.EPS /pdfmark18 where {pop} {userdict /pdfmark18 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [/Title (PostScript pictures: farbe.li.tu-berlin.de/ME96/ME96.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2019080112000) /ModDate (D:20190801112000) /DOCINFO pdfmark18 [ /View [ /FitB ] /DOCVIEW pdfmark18 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % !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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave %LANINDL2 START 20000505 /lanind 1 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showfr {2 lanind eq {show} {pop} ifelse} bind def /showes {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showno {5 lanind eq {show} {pop} ifelse} bind def /showpt {6 lanind eq {show} {pop} ifelse} bind def /showx1 {7 lanind eq {show} {pop} ifelse} bind def /showy1 {8 lanind eq {show} {pop} ifelse} bind def /showz1 {9 lanind eq {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 3 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def 75 85 moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolor cvishow xchart cvishow pchart cvishow colsep cvishow (-L) show pmetam cvishow gsave %LANINDL2 END 5 /Times-ISOL1 FS 180 85 moveto (ME961-8) show xchart 0 eq {(N) show} {deintp colorm 2 mul add cvishow} ifelse (, B3_09_2) show % ( B8310_6, M8121-8, B3_09_2, N=3_09_2) show 72 90 translate 0.01 MM 0.01 MM scale %d2:[rr.b4f]bausz8y.eps 15 setlinewidth 0.0 0.0 0.5 0.0 setcmyk_olvcolor 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmyk_olvcolor 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath stroke 600 400 translate 15 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 3000 rlineto stroke %! REM(I)*1500 0 333 moveto 120 381 240 381 360 348 curveto 480 324 600 312 720 315 curveto 840 330 960 369 1080 444 curveto 1200 576 1320 756 1440 974 curveto 1560 1068 1680 1038 1800 942 curveto 1920 813 2040 681 2160 564 curveto 2280 459 2400 375 2520 318 curveto 2640 288 2760 270 2880 255 curveto 3000 240 3120 234 3240 234 curveto 3360 243 3480 264 3600 306 curveto 3720 375 3840 483 3960 609 curveto 4080 726 4200 810 4320 876 curveto stroke 300 /Times-ISOL1 FS %! 100 lambda-Einheiten = 1200 Skalen-Einheiten 240 50 moveto 0 -100 rlineto stroke 1440 50 moveto 0 -100 rlineto stroke 2640 50 moveto 0 -100 rlineto stroke 3840 50 moveto 0 -100 rlineto stroke 20 -300 moveto (400) show 1220 -300 moveto (500) show 2420 -300 moveto (600) show 3620 -300 moveto (700) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 600 moveto 100 0 rlineto stroke -50 1200 moveto 100 0 rlineto stroke -50 1800 moveto 100 0 rlineto stroke -50 2400 moveto 100 0 rlineto stroke -50 3000 moveto 100 0 rlineto stroke -500 -80 moveto (0,0) show -500 520 moveto (0,2) show -500 1120 moveto (0,4) show -500 1720 moveto (0,6) show -500 2320 moveto (0,8) show -500 2920 moveto (1,0) show -500 3300 moveto 350 /Times-ISOL1 FS (spektraler Reflexionsfaktor) showde %0ME961-8 00000 (spectral reflection factor) showen %1ME961-8 00001 (el factor espectral de reflejo) showes %3ME961-8 00003 (facteur de r\351flexion spectrale) showfr %2ME961-8 00002 (fattore di riflessione spettrale) showit %4ME961-8 00004 (spektral refleksjonsfaktor) showno %5ME961-8 00005 (facteur de r\351flexion spectrale) showpt %6ME961-8 00006 (spectral reflection factor) showx1 %7ME961-8 00007 (spectral reflection factor) showy1 %8ME961-8 00008 (spectral reflection factor) showz1 %9ME961-8 00009 350 /TimesI-ISOL1 FS ( R) show 350 /Symbol FS ((l)) show 3900 150 moveto 300 /Symbol FS (l) show 300 /Times-ISOL1 FS (/nm) show 0900 1900 moveto 300 /Times-ISOL1 FS (CIE\255Testfarbe Nr. 11) showde %0ME961-8 01000 (CIE\255test color no. 11) showen %1ME961-8 01001 (color de prueba CIE no. 11) showes %3ME961-8 01003 (CIE\255test couleur no 11) showfr %2ME961-8 01002 (CIE campione di colore n 11) showit %4ME961-8 01004 (CIE\255testfarge nr. 11) showno %5ME961-8 01005 (CIE\255test couleur no 11) showpt %6ME961-8 01006 (CIE\255test color no. 11) showx1 %7ME961-8 01007 (CIE\255test color no. 11) showy1 %8ME961-8 01008 (CIE\255test color no. 11) showz1 %9ME961-8 01009 showpage grestore %%Trailer %%EndDocument EndEPSF grestore gsave } if %xchart<=xchart3P0 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 /showfr {2 lanind eq {show} {pop} ifelse} bind def /showes {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showno {5 lanind eq {show} {pop} ifelse} bind def /showpt {6 lanind eq {show} {pop} ifelse} bind def /showx1 {7 lanind eq {show} {pop} ifelse} bind def /showy1 {8 lanind eq {show} {pop} ifelse} bind def /showz1 {9 lanind eq {show} {pop} ifelse} bind def /lanind1 01 def /lanind2 01 def /lanindd 01 def /colorm1 00 def /colorm2 00 def /colormd 01 def /deintp1 00 def /deintp2 00 def /deintpd 01 def /xcolor1 03 def /xcolor2 03 def /xcolord 01 def /xchart1 00 def /xchart2 00 def /xchartd 01 def /pchart1 00 def /pchart2 00 def /pchartd 01 def /colsep1 00 def /colsep2 00 def /colsepd 01 def /pmetam1 00 def /pmetam2 00 def /pmetamd 01 def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} if /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} if /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} if /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} if /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm 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 %xchart 0 eq {%beg if xchart=0 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 {tzrcmy0* setcmykcolor} if j0 7 eq {0 setgray} if j0 8 eq {tzgcmy0* setcmykcolor} if j0 9 eq {0 setgray} if j0 10 eq {tzbcmy0* 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 colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %3D=0, de=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %3D=0, de=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %3D=1, de=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %3D=1, de=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if /10TIN {10 /Times-ISOL1 FS} def /10TRN {10 /Times-Roman FS} def /12TIN {12 /Times-ISOL1 FS} def /12TRN {12 /Times-Roman FS} def /10TII {10 /TimesI-ISOL1 FS} def /10TRI {10 /Times-Italic FS} def /12TII {12 /TimesI-ISOL1 FS} def /12TRI {12 /Times-Italic FS} def /10TIB {10 /TimesB-ISOL1 FS} def /10TRB {10 /Times-Bold FS} def /12TIB {12 /TimesB-ISOL1 FS} def /12TRB {12 /Times-Bold FS} def /10TIBI {10 /TimesBI-ISOL1 FS} def /10TRBI {10 /Times-BoldItalic FS} def /12TIBI {12 /TimesBI-ISOL1 FS} def /12TRBI {12 /Times-BoldItalic FS} def /xchart3P0 xchart3 0 add def 0 setgray 12TIN 61 MM 13 MM moveto (TUB\255Pr\374fvorlage ME96) showde %0ME96X-Y 00100 (TUB\255test chart ME96) showen %1ME96X-Y 00101 (Gr\341fico TUB\255ME96) showes %3ME96X-Y 00103 (Graphique TUB\255ME96) showfr %2ME96X-Y 00102 (Grafico TUB\255ME96) showit %4ME96X-Y 00104 (TUB\255testplansje ME96) showno %5ME96X-Y 00105 (TUB\255test chart ME96) showpt %6ME96X-Y 00106 (TUB\255test chart ME96) showx1 %7ME96X-Y 00107 (TUB\255test chart ME96) showy1 %8ME96X-Y 00108 (TUB\255test chart ME96) showz1 %9ME96X-Y 00109 (; Computergrafik und Farbmetrik) showde %0ME96X-Y 01100 (; Computer graphics and colorimetry) showen %1ME96X-Y 01101 (; la gr\341fica de Ordenador y colorimetry) showes %3ME96X-Y 01103 (; les infographies et colorim\351trie) showfr %2ME96X-Y 01102 (; Grafica computerizzata e colorimetria) showit %4ME96X-Y 01104 (; Computergrafikk og fargemetrikk) showno %5ME96X-Y 01105 (; Computer graphics and colorimetry) showpt %6ME96X-Y 01106 (; Computer graphics and colorimetry) showx1 %7ME96X-Y 01107 (; Computer graphics and colorimetry) showy1 %8ME96X-Y 01108 (; Computer graphics and colorimetry) showz1 %9ME96X-Y 01109 61 MM 09 MM moveto 12TIN xchart xchart3P0 le {%xchart<=xchart3P0 (Bildserie ) showde %0ME96X-Y 02100 (Image series ) showen %1ME96X-Y 02101 (Imagine la serie ) showes %3ME96X-Y 02103 (Collection d'image ) showfr %2ME96X-Y 02102 (Serie di immagini ) showit %4ME96X-Y 02104 (Bildeserie ) showno %5ME96X-Y 02105 (Image series ) showpt %6ME96X-Y 02106 (Image series ) showx1 %7ME96X-Y 02107 (Image series ) showy1 %8ME96X-Y 02108 (Image series ) showz1 %9ME96X-Y 02109 (ME96) show }%xchart<=xchart3P0 {%xchart>xchart3P0 (Farben und Farbdifferenz ) showde %0ME96X-Y 03100 (Colors and color difference ) showen %1ME96X-Y 03101 (Colores y diferencia en color ) showes %3ME96X-Y 03103 (Les couleurs et diff\351rences de couleur ) showfr %2ME96X-Y 03102 (I colori e colora la differenza ) showit %4ME96X-Y 03104 (Farger og fargedifferanse ) showno %5ME96X-Y 03105 (Colors and color difference ) showpt %6ME96X-Y 03106 (Colors and color difference ) showx1 %7ME96X-Y 03107 (Colors and color difference ) showy1 %8ME96X-Y 03108 (Colors and color difference ) showz1 %9ME96X-Y 03109 12TII colorm 0 eq {%3D=0 (DE*' ) show }%3D=0 {%3D=1 (DE'* ) show } ifelse %3D=1 } ifelse %xchart>xchart3P0 12TIN (, 3D=) show colorm cvishow (, de=) show deintp cvishow xchart 1 ge {%xchart>=1 12TII %MK00_49 % colorm 0 eq {(, sRGB) show} % {(, sRGB*) show % } ifelse %MK50_99 pchart 0 eq {(, L-cmyn6) show} if pchart 2 eq {(, P-cmyn6) show} if pchart 4 eq {(, A-cmyn6) show} if pchart 6 eq {(, L-cmy0) show} if pchart 8 eq {(, P-cmy0) show} if colorm 1 eq {(*) show} if } if %xchart>=1 xchart 1 ge {%xchart>=1 7 /Times-ISOL1 FS 172 MM 16 MM moveto /FILEDATA_RX0F_IOF where {pop FILEDATA_RX0F_IOF show} if } if %xchart>=1 12TIN 172 MM 12.5 MM moveto (Eingabe: ) showde %0ME96X-Y 04100 (input: ) showen %1ME96X-Y 04101 (entrada: ) showes %3ME96X-Y 04103 (entr\351e : ) showfr %2ME96X-Y 04102 (Input: ) showit %4ME96X-Y 04104 (input: ) showno %5ME96X-Y 04105 (input: ) showpt %6ME96X-Y 04106 (input: ) showx1 %7ME96X-Y 04107 (input: ) showy1 %8ME96X-Y 04108 (input: ) showz1 %9ME96X-Y 04109 12TII (rgb/cmyk -> ) show xchart xchart3 lt {(rgb/cmyk) show} if xchart xchart3 ge {%xchart>=xchart3 (rgb) show 10 /Times-ISOL1 FS 0 -2 rmoveto Txx show 0 2 rmoveto 12TIN } if %xchart>=xchart3 12TIN 172 MM 9 MM moveto (Ausgabe: ) showde %0ME96X-Y 05100 (output: ) showen %1ME96X-Y 05101 (salida: ) showes %3ME96X-Y 05103 (sortie : ) showfr %2ME96X-Y 05102 (Output: ) showit %4ME96X-Y 05104 (output: ) showno %5ME96X-Y 05105 (output: ) showpt %6ME96X-Y 05106 (output: ) showx1 %7ME96X-Y 05107 (output: ) showy1 %8ME96X-Y 05108 (output: ) showz1 %9ME96X-Y 05109 %colorm=0,1! 12TIN xchart 0 eq {%xchart=0,#0 12TIN (keine \334nderung) showde %0ME96X-Y 06100 (no change) showen %1ME96X-Y 06101 (ning\372n cambio) showes %3ME96X-Y 06103 (aucun changement) showfr %2ME96X-Y 06102 (nessun cambiamento) showit %4ME96X-Y 06104 (ingen endring) showno %5ME96X-Y 06105 (no change) showpt %6ME96X-Y 06106 (no change) showx1 %7ME96X-Y 06107 (no change) showy1 %8ME96X-Y 06108 (no change) showz1 %9ME96X-Y 06109 }%xchart=0 {%xchart#0 12TIN colorm 0 eq {%colorm=0 (Transfer nach ) showde %0ME96X-Y 07100 (transfer to ) showen %1ME96X-Y 07101 (transfiera a ) showes %3ME96X-Y 07103 (transf\351rer \340 ) showfr %2ME96X-Y 07102 (trasferire a ) showit %4ME96X-Y 07104 (overf\370ring til ) showno %5ME96X-Y 07105 (transfer to ) showpt %6ME96X-Y 07106 (transfer to ) showx1 %7ME96X-Y 07107 (transfer to ) showy1 %8ME96X-Y 07108 (transfer to ) showz1 %9ME96X-Y 07109 }%colorm=0 {%colorm=1 (3D\255Linearisierung ) showde %0ME96X-Y 08100 (3D\255linearization to ) showen %1ME96X-Y 08101 (3D\255linealizaci\363n a ) showes %3ME96X-Y 08103 (lin\351arisation 3D selon ) showfr %2ME96X-Y 08102 (linearizzazione 3D a ) showit %4ME96X-Y 08104 (3D\255linearisering ) showno %5ME96X-Y 08105 (3D\255linearization to ) showpt %6ME96X-Y 08106 (3D\255linearization to ) showx1 %7ME96X-Y 08107 (3D\255linearization to ) showy1 %8ME96X-Y 08108 (3D\255linearization to ) showz1 %9ME96X-Y 08109 } ifelse %colorm=1 12TII xchart5f 0 eq {(rgb) show} if xchart5f 1 eq {(cmyk) show} if xchart5f 2 eq {(cmy0) show} if xchart5f 3 eq {(cmyk) show} if colorm 1 eq {(*) show} if 10 /Times-ISOL1 FS 0 -2 rmoveto Txx show 0 2 rmoveto 12TIN } ifelse %xchart=0,#0 %0 setgray %end white and unvisible 62 MM 198.5 MM moveto 12TRN (http://farbe.li.tu-berlin.de/ME96/ME96L) show 12TIN (0) show LSC$ show LEX$ show 12TIN %1 setgray %start white and unvisible (; ) show xchart 0 eq { (Start\255Ausgabe) showde %0ME96X-Y 09100 (start output) showen %1ME96X-Y 09101 (comience salida) showes %3ME96X-Y 09103 (sortie de production) showfr %2ME96X-Y 09102 (inizio dell'output) showit %4ME96X-Y 09104 (start output) showno %5ME96X-Y 09105 (start output) showpt %6ME96X-Y 09106 (start output) showx1 %7ME96X-Y 09107 (start output) showy1 %8ME96X-Y 09108 (start output) showz1 %9ME96X-Y 09109 } if LSC$ (C) eq { (Start\255Ausgabe) showde %0ME96X-Y 10100 (start output) showen %1ME96X-Y 10101 (comience salida) showes %3ME96X-Y 10103 (sortie de production) showfr %2ME96X-Y 10102 (inizio dell'output) showit %4ME96X-Y 10104 (start output) showno %5ME96X-Y 10105 (start output) showpt %6ME96X-Y 10106 (start output) showx1 %7ME96X-Y 10107 (start output) showy1 %8ME96X-Y 10108 (start output) showz1 %9ME96X-Y 10109 } if xchart 1 ge {%xchart>=1 colorm 0 eq {%colorm=0,1 (Transfer Ausgabe) showde %0ME96X-Y 11100 (transfer output) showen %1ME96X-Y 11101 (salida de transferencia) showes %3ME96X-Y 11103 (sortie de transfert) showfr %2ME96X-Y 11102 (Output di trasferimento) showit %4ME96X-Y 11104 (overf\370ringsoutput) showno %5ME96X-Y 11105 (transfer output) showpt %6ME96X-Y 11106 (transfer output) showx1 %7ME96X-Y 11107 (transfer output) showy1 %8ME96X-Y 11108 (transfer output) showz1 %9ME96X-Y 11109 }%colorm=0 {%colorm=1 (3D\255Linearisierung) showde %0ME96X-Y 12100 (3D\255linearization) showen %1ME96X-Y 12101 (3D\255linealizaci\363n) showes %3ME96X-Y 12103 (lin\351arisation 3D) showfr %2ME96X-Y 12102 (linearizzzazione 3D) showit %4ME96X-Y 12104 (3D\255linerisering) showno %5ME96X-Y 12105 (3D\255linearization) showpt %6ME96X-Y 12106 (3D\255linearization) showx1 %7ME96X-Y 12107 (3D\255linearization) showy1 %8ME96X-Y 12108 (3D\255linearization) showz1 %9ME96X-Y 12109 } ifelse %colorm=0,1 } if %xchart>=1 62 MM 194 MM moveto LSC$ (N) eq LSC$ (C) eq or { (N: Keine 3D\255Linearisierung (OL) ) showde %0ME96X-Y 13100 (N: no 3D\255linearization (OL) ) showen %1ME96X-Y 13101 (N: ninguna 3D\255linealizaci\363n (OL) ) showes %3ME96X-Y 13103 (N: aucune lin\351arisation 3D (OL) ) showfr %2ME96X-Y 13102 (N: nessuna linearizzazione 3D (OL) ) showit %4ME96X-Y 13104 (N: ingen 3D\255linearisering (OL) ) showno %5ME96X-Y 13105 (N: no 3D\255linearization (OL) ) showpt %6ME96X-Y 13106 (N: no 3D\255linearization (OL) ) showx1 %7ME96X-Y 13107 (N: no 3D\255linearization (OL) ) showy1 %8ME96X-Y 13108 (N: no 3D\255linearization (OL) ) showz1 %9ME96X-Y 13109 (in Datei (F) oder PS\255Startup (S)) showde %0ME96X-Y 14100 (in file (F) or PS\255startup (S)) showen %1ME96X-Y 14101 (en archivo (F) o PS\255startup (S)) showes %3ME96X-Y 14103 (dans fichier (F) ou PS\255startup (S)) showfr %2ME96X-Y 14102 (nel file (F) o PS\255startup (S)) showit %4ME96X-Y 14104 (i fil (F) eller PS\255startup (S)) showno %5ME96X-Y 14105 (in file (F) or PS\255startup (S)) showpt %6ME96X-Y 14106 (in file (F) or PS\255startup (S)) showx1 %7ME96X-Y 14107 (in file (F) or PS\255startup (S)) showy1 %8ME96X-Y 14108 (in file (F) or PS\255startup (S)) showz1 %9ME96X-Y 14109 } {LSC$ show (: ) show (3D\255Linearisierung) showde %0ME96X-Y 15100 (3D\255linearization) showen %1ME96X-Y 15101 (3D\255linealizaci\363n) showes %3ME96X-Y 15103 (lin\351arisation 3D) showfr %2ME96X-Y 15102 (linearizzzazione 3D) showit %4ME96X-Y 15104 (3D\255linearisering) showno %5ME96X-Y 15105 (3D\255linearization) showpt %6ME96X-Y 15106 (3D\255linearization) showx1 %7ME96X-Y 15107 (3D\255linearization) showy1 %8ME96X-Y 15108 (3D\255linearization) showz1 %9ME96X-Y 15109 ( ME96/ME96L) show LSS$ show LSX$ show (0) show LSC$ show LEY$ show } ifelse LSC$ (F) eq { ( in Datei (F)) showde %0ME96X-Y 16100 ( in file (F)) showen %1ME96X-Y 16101 ( en archivo (F)) showes %3ME96X-Y 16103 ( dans fichier (F)) showfr %2ME96X-Y 16102 ( nel file (F)) showit %4ME96X-Y 16104 ( i fil (F)) showno %5ME96X-Y 16105 ( in file (F)) showpt %6ME96X-Y 16106 ( in file (F)) showx1 %7ME96X-Y 16107 ( in file (F)) showy1 %8ME96X-Y 16108 ( in file (F)) showz1 %9ME96X-Y 16109 } if LSC$ (S) eq { ( im Distiller Startup (S) Directory) showde %0ME96X-Y 17100 ( in Distiller Startup (S) Directory) showen %1ME96X-Y 17101 ( en el Distiller Startup (S) Directory) showes %3ME96X-Y 17103 ( dans le Distiller Startup (S) Directory) showfr %2ME96X-Y 17102 ( nel Distiller Startup (S) Directory) showit %4ME96X-Y 17104 ( i Distiller Startup (S) Directory) showno %5ME96X-Y 17105 ( in Distiller Startup (S) Directory) showpt %6ME96X-Y 17106 ( in Distiller Startup (S) Directory) showx1 %7ME96X-Y 17107 ( in Distiller Startup (S) Directory) showy1 %8ME96X-Y 17108 ( in Distiller Startup (S) Directory) showz1 %9ME96X-Y 17109 } if LSC$ (D) eq { ( in PS\255Device (D)) showde %0ME96X-Y 18100 ( in PS\255device (D)) showen %1ME96X-Y 18101 ( en el PS\255device (D)) showes %3ME96X-Y 18103 ( dans l'appareil PS (D)) showfr %2ME96X-Y 18102 ( nel PS\255dispositivo (D)) showit %4ME96X-Y 18104 ( i PS\255apparat (D)) showno %5ME96X-Y 18105 ( in PS\255device (D)) showpt %6ME96X-Y 18106 ( in PS\255device (D)) showx1 %7ME96X-Y 18107 ( in PS\255device (D)) showy1 %8ME96X-Y 18108 ( in PS\255device (D)) showz1 %9ME96X-Y 18109 } if LSC$ (T) eq { ( im Distiller Startup (S) Directory) showde %0ME96X-Y 19100 ( in Distiller Startup (S) Directory) showen %1ME96X-Y 19101 ( en el Distiller Startup (S) Directory) showes %3ME96X-Y 19103 ( dans le Distiller Startup (S) Directory) showfr %2ME96X-Y 19102 ( nel Distiller Startup (S) Directory) showit %4ME96X-Y 19104 ( i Distiller Startup (S) Directory) showno %5ME96X-Y 19105 ( in Distiller Startup (S) Directory) showpt %6ME96X-Y 19106 ( in Distiller Startup (S) Directory) showx1 %7ME96X-Y 19107 ( in Distiller Startup (S) Directory) showy1 %8ME96X-Y 19108 ( in Distiller Startup (S) Directory) showz1 %9ME96X-Y 19109 } if LSC$ (E) eq { ( in PS\255Device (D)) showde %0ME96X-Y 20100 ( in PS\255device (D)) showen %1ME96X-Y 20101 ( en el PS\255device (D)) showes %3ME96X-Y 20103 ( dans l'appareil PS (D)) showfr %2ME96X-Y 20102 ( nel PS\255dispositivo (D)) showit %4ME96X-Y 20104 ( i PS\255apparat (D)) showno %5ME96X-Y 20105 ( in PS\255device (D)) showpt %6ME96X-Y 20106 ( in PS\255device (D)) showx1 %7ME96X-Y 20107 ( in PS\255device (D)) showy1 %8ME96X-Y 20108 ( in PS\255device (D)) showz1 %9ME96X-Y 20109 } if %0 setgray %end white and unvisible (, Seite ) showde %0ME96X-Y 21100 (, page ) showen %1ME96X-Y 21101 (, p\341gina ) showes %3ME96X-Y 21103 (, p\341ge ) showfr %2ME96X-Y 21102 (, pagine ) showit %4ME96X-Y 21104 (, side ) showno %5ME96X-Y 21105 (, page ) showpt %6ME96X-Y 21106 (, page ) showx1 %7ME96X-Y 21107 (, page ) showy1 %8ME96X-Y 21108 (, page ) showz1 %9ME96X-Y 21109 xchart 1 add cvishow (/) show xchartm cvishow 16 MM 185 MM moveto -90 rotate (Siehe \344hnliche Dateien: ) showde %0ME96X-Y 22100 (see similar files: ) showen %1ME96X-Y 22101 (vea archivos semejantes: ) showes %3ME96X-Y 22103 (voir fichiers similaires: ) showfr %2ME96X-Y 22102 (vedi file simili: ) showit %4ME96X-Y 22104 (se lignende filer: ) showno %5ME96X-Y 22105 (see similar files: ) showpt %6ME96X-Y 22106 (see similar files: ) showx1 %7ME96X-Y 22107 (see similar files: ) showy1 %8ME96X-Y 22108 (see similar files: ) showz1 %9ME96X-Y 22109 12TRN (http://farbe.li.tu-berlin.de/ME96/ME96.HTM) show 12TIN %(0) show %LSC$ show LEX$ show 90 rotate 12 MM 185 MM moveto -90 rotate %(Technische Information: ) showde %0ME96X-Y 23100 %(technical information: ) showen %1ME96X-Y 23101 %(informaci\363n t\351cnica: ) showes %3ME96X-Y 23103 %(informations techniques: ) showfr %2ME96X-Y 23102 %(informazioni tecniche: ) showit %4ME96X-Y 23104 %(teknisk informasjon: ) showno %5ME96X-Y 23105 %(technical information: ) showpt %6ME96X-Y 23106 %(technical information: ) showx1 %7ME96X-Y 23107 %(technical information: ) showy1 %8ME96X-Y 23108 %(technical information: ) showz1 %9ME96X-Y 23109 12TIN (http://130.149.60.45/~farbmetrik) show 12TIN ( oder ) showde %0ME96X-Y 24100 ( or ) showen %1ME96X-Y 24101 ( o ) showes %3ME96X-Y 24103 ( ou ) showfr %2ME96X-Y 24102 ( o ) showit %4ME96X-Y 24104 ( eller ) showno %5ME96X-Y 24105 ( or ) showpt %6ME96X-Y 24106 ( or ) showx1 %7ME96X-Y 24107 ( or ) showy1 %8ME96X-Y 24108 ( or ) showz1 %9ME96X-Y 24109 12TRN (http://farbe.li.tu-berlin.de) show 12TIN 90 rotate 281 MM 185 MM moveto -90 rotate (TUB\255Registrierung: 20190801\255ME96/ME96L) showde %0ME96X-Y 25100 (TUB registration: 20190801\255ME96/ME96L) showen %1ME96X-Y 25101 (TUB matr\355cula: 20190801\255ME96/ME96L) showes %3ME96X-Y 25103 (TUB enregistrement: 20190801\255ME96/ME96L) showfr %2ME96X-Y 25102 (iscrizione TUB: 20190801\255ME96/ME96L) showit %4ME96X-Y 25104 (TUB registrering: 20190801\255ME96/ME96L) showno %5ME96X-Y 25105 (TUB registration: 20190801\255ME96/ME96L) showpt %6ME96X-Y 25106 (TUB registration: 20190801\255ME96/ME96L) showx1 %7ME96X-Y 25107 (TUB registration: 20190801\255ME96/ME96L) showy1 %8ME96X-Y 25108 (TUB registration: 20190801\255ME96/ME96L) showz1 %9ME96X-Y 25109 (0) show LSC$ show LEX$ show 90 rotate 281 MM 74 MM moveto -90 rotate (TUB\255Material: Code=rha4ta) showde %0ME96X-Y 26100 (TUB material: code=rha4ta) showen %1ME96X-Y 26101 (TUB material: code=rha4ta) showes %3ME96X-Y 26103 (TUB mat\351riel: code=rha4ta) showfr %2ME96X-Y 26102 (TUB materiale: code=rha4ta) showit %4ME96X-Y 26104 (TUB materiell: code=rha4ta) showno %5ME96X-Y 26105 (TUB material: code=rha4ta) showpt %6ME96X-Y 26106 (TUB material: code=rha4ta) showx1 %7ME96X-Y 26107 (TUB material: code=rha4ta) showy1 %8ME96X-Y 26108 (TUB material: code=rha4ta) showz1 %9ME96X-Y 26109 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 Messung ) showde %0ME96X-Y 27100 ( application for measurement ) showen %1ME96X-Y 27101 ( aplicaci\363n para la medida ) showes %3ME96X-Y 27103 ( application pour la mesure ) showfr %2ME96X-Y 27102 ( Applicatione per la misura dell'output ) showit %4ME96X-Y 27104 ( anvendelse for m\345ling ) showno %5ME96X-Y 27105 ( application for measurement ) showpt %6ME96X-Y 27106 ( application for measurement ) showx1 %7ME96X-Y 27107 ( application for measurement ) showy1 %8ME96X-Y 27108 ( application for measurement ) showz1 %9ME96X-Y 27109 xchart5f 0 eq {%xchart5f=0 (von Display-Ausgabe) showde %0ME96X-Y 28100 (of display output) showen %1ME96X-Y 28101 (de display output) showes %3ME96X-Y 28103 (de sortie sur \350cran) showfr %2ME96X-Y 28102 (su display) showit %4ME96X-Y 28104 (av display output) showno %5ME96X-Y 28105 (of display output) showpt %6ME96X-Y 28106 (of display output) showx1 %7ME96X-Y 28107 (of display output) showy1 %8ME96X-Y 28108 (of display output) showz1 %9ME96X-Y 28109 } if %xchart5f=0 xchart5f 1 eq xchart5f 2 eq or {%xchart5f=1,2 (von Offsetdruck\255Ausgabe) showde %0ME96X-Y 29100 (of offset print output) showen %1ME96X-Y 29101 (salida en la impressi\363n offset) showes %3ME96X-Y 29103 (des sorties sur offset) showfr %2ME96X-Y 29102 (output nella stampa di offset) showit %4ME96X-Y 29104 (av offsettrykkoutput) showno %5ME96X-Y 29105 (of offset print output) showpt %6ME96X-Y 29106 (of offset print output) showx1 %7ME96X-Y 29107 (of offset print output) showy1 %8ME96X-Y 29108 (of offset print output) showz1 %9ME96X-Y 29109 } if %xchart5f=1,2 xchart5f 3 eq {%xchart5f=3 (von Laserdrucker\255Ausgabe) showde %0ME96X-Y 30100 (of laser printer output) showen %1ME96X-Y 30101 (salida de impresora l\341ser) showes %3ME96X-Y 30103 (des sorties sur imprimante laser) showfr %2ME96X-Y 30102 (output della stampante laser) showit %4ME96X-Y 30104 (av laserprinter output) showno %5ME96X-Y 30105 (of laser printer output) showpt %6ME96X-Y 30106 (of laser printer output) showx1 %7ME96X-Y 30107 (of laser printer output) showy1 %8ME96X-Y 30108 (of laser printer output) showz1 %9ME96X-Y 30109 } if %xchart5f=3 xchart 1 ge {%xchart>=1 xchart5f 0 eq {%xchart5f=0 (, keine Separation) showde %0ME96X-Y 31100 (, no separation) showen %1ME96X-Y 31101 (, ninguna separaci\363n) showes %3ME96X-Y 31103 (, aucune s\351paration) showfr %2ME96X-Y 31102 (, nessuna separazione) showit %4ME96X-Y 31104 (, ingen separasjon) showno %5ME96X-Y 31105 (, no separation) showpt %6ME96X-Y 31106 (, no separation) showx1 %7ME96X-Y 31107 (, no separation) showy1 %8ME96X-Y 31108 (, no separation) showz1 %9ME96X-Y 31109 } if %chart5f=0 xchart5f 1 ge {%xchart5f>=1 (, Separation) showde %0ME96X-Y 32100 (, separation) showen %1ME96X-Y 32101 (, separaci\363n) showes %3ME96X-Y 32103 (, s\351paration) showfr %2ME96X-Y 32102 (, separazione) showit %4ME96X-Y 32104 (, separasjon) showno %5ME96X-Y 32105 (, separation) showpt %6ME96X-Y 32106 (, separation) showx1 %7ME96X-Y 32107 (, separation) showy1 %8ME96X-Y 32108 (, separation) showz1 %9ME96X-Y 32109 xchart5f 1 eq xchart5f 3 eq or {( cmyn6) show} if xchart5f 2 eq {( cmy0) show} if colorm 1 eq {(*) show} if colsep 0 eq {( (CMYK))}{( (CMY0))} ifelse show } if %xchart5f>=1 } if %xchart>=1 IMES 1 eq LSC$ (N) ne and { %IMES=1 (, Yr=) show Yre cvsshow1 (, XYZ) show } if %IMES=1 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 %/xlu1 013 MM def /ylu1 010 MM def %/xro1 283 MM def /yro1 200 MM def %/xlo1 013 MM def /ylo1 200 MM def %/xru1 283 MM def /yru1 010 MM def %xlu1 4 MM sub ylu1 moveto 8 MM 0 rlineto stroke %xlu1 ylu1 4 MM sub moveto 0 8 MM rlineto stroke %xro1 4 MM add yro1 moveto -8 MM 0 rlineto stroke %xro1 yro1 4 MM add moveto 0 -8 MM rlineto stroke %xru1 4 MM sub yru1 moveto 8 MM 0 rlineto stroke %xru1 yru1 4 MM sub moveto 0 8 MM rlineto stroke %xlo1 4 MM add ylo1 moveto -8 MM 0 rlineto stroke %xlo1 ylo1 4 MM add moveto 0 -8 MM rlineto stroke %} ifelse %xt=1 xchart 1 le {%xchart<=1 /ypapert 5 array def %/ypapert [(S) (D) (C) (E) (F)] def /ypapert [(A) (B) (L) (G) (P)] def 0 0 0 0 setcmykcolor /i0 14 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def x i0 get MM 18 MM sub y i0 get MM 04 MM sub moveto 17 MM 0 rlineto 0 4.5 MM rlineto -17 MM 0 rlineto closepath fill x i0 get MM 17.5 MM sub y i0 get MM 3 MM sub moveto 0 1 1 0 setcmykcolor 4.5 MM /Times-ISOL1 FS (ME96) show 3.5 MM /Times-ISOL1 FS xchart 0 eq {(S0) show} {colorm cvishow deintp cvishow} ifelse ypapert ypaper get show } if %xchart<=1 grestore gsave %********************************************************** xchart xchart3P0 gt {%BEG xchart>xchart3P0 /n00 xchart3P0 1 add def %special tables start at page 6 /n01 n00 1 add def %1080-rgb-tables start at page 8 /n02 n00 2 add def xchart n00 eq {/n1 0 def /n2 57 def} if xchart n01 eq {/n1 0 def /n2 53 def} if xchart n02 ge {/n1 xchart n02 sub 81 mul def /n2 n1 80 add def n2 1079 ge {/n2 1079 def} if } if 72 56 translate 0.01 MM dup scale 0 0 0 setrgbcolor %0 0 moveto 24600 0 rlineto 0 17220 rlineto % -24600 0 rlineto closepath stroke 180 /Times-ISOL1 FS 0 0 0 setrgbcolor 7000 -180 moveto (ME960-7N, ) show lanind 0 eq {(Seite ) show} if lanind 1 ge {(page ) show} if xchart 1 add cvishow (/) show xchartm cvishow (-F) show %pmetam cvishow /prog_rgb_dyF_LAB*'dyF {%BEG prog_rgb_dyF_LAB*'dyF /R01000 r_dyF 1000 mul def /G01000 g_dyF 1000 mul def /B01000 b_dyF 1000 mul def R01000 0.04045 le %equations of IEC 61966-2-1:2003 {/RsRGB R01000 12.92 div def} {/RsRGB R01000 0.001 mul 0.055 add 1.055 div 2.4 exp def} ifelse G01000 0.04045 le {/GsRGB G01000 12.92 div def} {/GsRGB G01000 0.001 mul 0.055 add 1.055 div 2.4 exp def} ifelse B01000 0.04045 le {/BsRGB B01000 12.92 div def} {/BsRGB B01000 0.001 mul 0.055 add 1.055 div 2.4 exp def} ifelse /X*'dyF 0.4124 RsRGB mul 0.3576 GsRGB mul add 0.1805 BsRGB mul add 88.59 mul def /Y*'dyF 0.2126 RsRGB mul 0.7152 GsRGB mul add 0.0722 BsRGB mul add 88.59 mul def /Z*'dyF 0.0193 RsRGB mul 0.1192 GsRGB mul add 0.9505 BsRGB mul add 88.59 mul def % achromatic (D65) colours /XLWD65100 95.04 def /YLWD65100 100.00 def /ZLWD65100 108.88 def /XQ X*'dyF XLWD65100 div def /YQ Y*'dyF YLWD65100 div def /ZQ Z*'dyF ZLWD65100 div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if /L*'dyF YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse def /a*'dyF XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul def /b*'dyF YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul def /C*'dyF a*'dyF dup mul b*'dyF dup mul add 0.0001 add sqrt def /h*'dyF b*'dyF a*'dyF 0.0001 add atan def } bind def %END prog_rgb_dyF_LAB*'dyF %******************************************************** /prog_rgb'*dyF_LAB'*dyF {%BEG prog_rgb'*dyF_LAB'*dyF /R01000 r'*dyF 1000 mul def /G01000 g'*dyF 1000 mul def /B01000 b'*dyF 1000 mul def R01000 0.04045 le %equations of IEC 61966-2-1:2003 {/RsRGB R01000 12.92 div def} {/RsRGB R01000 0.001 mul 0.055 add 1.055 div 2.4 exp def} ifelse G01000 0.04045 le {/GsRGB G01000 12.92 div def} {/GsRGB G01000 0.001 mul 0.055 add 1.055 div 2.4 exp def} ifelse B01000 0.04045 le {/BsRGB B01000 12.92 div def} {/BsRGB B01000 0.001 mul 0.055 add 1.055 div 2.4 exp def} ifelse /X'*dyF 0.4124 RsRGB mul 0.3576 GsRGB mul add 0.1805 BsRGB mul add 88.59 mul def /Y'*dyF 0.2126 RsRGB mul 0.7152 GsRGB mul add 0.0722 BsRGB mul add 88.59 mul def /Z'*dyF 0.0193 RsRGB mul 0.1192 GsRGB mul add 0.9505 BsRGB mul add 88.59 mul def % achromatic (D65) colours /XLWD65100 95.04 def /YLWD65100 100.00 def /ZLWD65100 108.88 def /XQ X'*dyF XLWD65100 div def /YQ Y'*dyF YLWD65100 div def /ZQ Z'*dyF ZLWD65100 div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if /L'*dyF YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse def /A'*dyF XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul def /B'*dyF YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul def /C'*dyF A'*dyF dup mul B'*dyF dup mul add 0.0001 add sqrt def /h'*dyF B'*dyF A'*dyF 0.0001 add atan def } bind def %END prog_rgb'*dyF_LAB'*dyF %************************************************************* /fakt 1.0 def /fakt2 0.74 def %0.2 /iyt 250 fakt2 mul def %text size /iyd 277 fakt2 mul def %line difference /ixs0 00 fakt2 mul def /ixs1 -10 fakt2 mul def /ixs2 10 fakt2 mul def /iys1 -25 fakt2 mul def /iys2 25 fakt2 mul def /iys3 35 fakt2 mul def /iys4 -35 fakt2 mul def /iytie iyt 50 fakt2 mul sub def /nshow {iyt /Times-ISOL1 FS show} def /kshow {iyt /TimesI-ISOL1 FS show} def /bshow {iyt /TimesB-ISOL1 FS show} def /jshow {iyt /TimesBI-ISOL1 FS show} def /sshow {iyt /Symbol FS show} def /nishow {ixs1 iys1 rmoveto iytie /Times-ISOL1 FS show ixs2 iys2 rmoveto} def /nishow0 { 00 iys1 rmoveto iytie /Times-ISOL1 FS show 00 iys2 rmoveto} def /neshow {ixs1 iys3 rmoveto iytie /Times-ISOL1 FS show ixs2 iys4 rmoveto} def /neshow0 { 00 iys3 rmoveto iytie /Times-ISOL1 FS show 00 iys4 rmoveto} def /ishow {ixs1 iys1 rmoveto iytie /TimesB-ISOL1 FS show ixs2 iys2 rmoveto} def /ishow0 { 00 iys1 rmoveto iytie /TimesB-ISOL1 FS show 00 iys2 rmoveto} def /eshow { 00 iys3 rmoveto iytie /TimesB-ISOL1 FS show 00 iys4 rmoveto} def 0 0 0 setrgbcolor /imaxym 17220 def /iymax 16700 def /imaxy0 17000 def colorm 0 eq deintp 0 eq and {/Txx (d) def} if %3D=0, de=0 colorm 0 eq deintp 1 eq and {/Txx (e) def} if %3D=0, de=1 colorm 1 eq deintp 0 eq and {/Txx (d*) def} if %3D=1, de=0 colorm 1 eq deintp 1 eq and {/Txx (e*) def} if %3D=1, de=1 xchart 0 eq {/Txx (-) def} if /RGB58M1_F 174 array def %58x3=174 /RGB58M1_F [%rgb data of 48+1 step colour circle + 9 step gray series = 58 1.000 0.000 0.000 %00 R00Y %R 1.000 0.125 0.000 %01 R13Y 1.000 0.250 0.000 %02 R25Y 1.000 0.375 0.000 %03 R38Y 1.000 0.500 0.000 %04 R50Y 1.000 0.625 0.000 %05 R63Y 1.000 0.750 0.000 %06 R75Y 1.000 0.875 0.000 %07 R88Y 1.000 1.000 0.000 %08 Y00G %Y 0.875 1.000 0.000 %09 Y13G 0.750 1.000 0.000 %10 Y25G 0.625 1.000 0.000 %11 Y38G 0.500 1.000 0.000 %12 Y50G 0.375 1.000 0.000 %13 Y63G 0.250 1.000 0.000 %14 Y75G 0.125 1.000 0.000 %15 Y88G 0.000 1.000 0.000 %16 G00C %G 0.000 1.000 0.125 %17 G13C 0.000 1.000 0.250 %18 G25C 0.000 1.000 0.375 %19 G38C 0.000 1.000 0.500 %20 G50C 0.000 1.000 0.625 %21 G63C 0.000 1.000 0.750 %22 G75C 0.000 1.000 0.875 %23 G88C 0.000 1.000 1.000 %24 C00B %C 0.000 0.875 1.000 %25 C13B 0.000 0.750 1.000 %26 C25B 0.000 0.625 1.000 %27 C38B 0.000 0.500 1.000 %28 C50B 0.000 0.375 1.000 %29 C63B 0.000 0.250 1.000 %30 C75B 0.000 0.125 1.000 %31 C88B 0.000 0.000 1.000 %32 B00M %B 0.125 0.000 1.000 %33 B13M 0.250 0.000 1.000 %34 B25M 0.375 0.000 1.000 %35 B38M 0.500 0.000 1.000 %36 B50M 0.625 0.000 1.000 %37 B63M 0.750 0.000 1.000 %38 B75M 0.875 0.000 1.000 %39 B88M 1.000 0.000 1.000 %40 M00R %M 1.000 0.000 0.875 %41 M13R 1.000 0.000 0.750 %42 M25R 1.000 0.000 0.625 %43 M38R 1.000 0.000 0.500 %44 M50R 1.000 0.000 0.375 %45 M63R 1.000 0.000 0.250 %46 M75R 1.000 0.000 0.125 %47 M88R 1.000 0.000 0.000 %48 R00Y %R 0.000 0.000 0.000 %49 N00Wd %ncolors 0.125 0.125 0.125 %50 N13Wd 0.250 0.250 0.250 %51 N25Md 0.375 0.375 0.375 %52 N38Wd 0.500 0.500 0.500 %53 N50Wd 0.625 0.625 0.625 %54 N63Wd 0.750 0.750 0.750 %55 N75Wd 0.875 0.875 0.875 %56 N88Wd 1.000 1.000 1.000 %57 W00Nd = W ] def /RGB58M1t_F 58 array def %48+1 step colour circle and 9 step grey steps = 58 /RGB58M1t_F [%high chromatic series: %relative hue h*, brillance i*, and chroma c* %range 0 ... 100 (R00Y_100_100) (R13Y_100_100) (R25Y_100_100) (R38Y_100_100) (R50Y_100_100) (R63Y_100_100) (R75Y_100_100) (R88Y_100_100) (Y00G_100_100) (Y13G_100_100) (Y25G_100_100) (Y38G_100_100) (Y50G_100_100) (Y63G_100_100) (Y75G_100_100) (Y88G_100_100) (G00C_100_100) (G13C_100_100) (G25C_100_100) (G38C_100_100) (G50C_100_100) (G63C_100_100) (G75C_100_100) (G88C_100_100) (C00B_100_100) (C13B_100_100) (C25B_100_100) (C38B_100_100) (C50B_100_100) (C63B_100_100) (C75B_100_100) (C88B_100_100) (B00M_100_100) (B13M_100_100) (B25M_100_100) (B38M_100_100) (B50M_100_100) (B63M_100_100) (B75M_100_100) (B88M_100_100) (M00R_100_100) (M13R_100_100) (M25R_100_100) (M38R_100_100) (M50R_100_100) (M63R_100_100) (M75R_100_100) (M88R_100_100) (R00Y_100_100) %gray series (NW_000) (NW_013) (NW_025) (NW_038) (NW_050) (NW_063) (NW_075) (NW_088) (NW_100) ] def /RGB54CR_F 162 array def %54x3=162 /RGB54CR_F [%54 colours of colour rendering (CR) test chart 1.000 0.000 0.000 %01 R00Yd %RGB54CR 1.000 0.250 0.000 %02 R25Yd 1.000 0.500 0.000 %03 R50Yd 1.000 0.750 0.000 %04 R75Yd 1.000 1.000 0.000 %05 Y00Gd 0.750 1.000 0.000 %06 Y25Gd 0.500 1.000 0.000 %07 Y50Gd 0.250 1.000 0.000 %08 Y75Gd 0.000 1.000 0.000 %09 G00Bd = 10 0.000 1.000 0.000 %10 G00Bd 0.000 1.000 0.500 %11 G25Bd 0.000 1.000 1.000 %12 G50Bd 0.000 0.500 1.000 %13 G75Bd 0.000 0.000 1.000 %14 B00Rd 0.500 0.000 1.000 %15 B25Rd 1.000 0.000 1.000 %16 B50Rd 1.000 0.000 0.500 %17 B75Rd 1.000 0.000 0.000 %18 R00Yd = 01 1.000 0.500 0.500 %19 R00Yd %lcolors 1.000 0.750 0.500 %20 R50Yd 1.000 1.000 0.500 %21 Y00Gd 0.750 1.000 0.500 %22 Y50Gd 0.500 1.000 0.500 %23 G00Bd 0.500 1.000 1.000 %24 G50Bd 0.500 0.500 1.000 %25 B00Rd 1.000 0.500 1.000 %26 B50Rd 1.000 0.500 0.500 %27 R00Yd = 19 0.750 0.250 0.250 %28 R00Yd %zcolors 0.750 0.500 0.250 %29 R50Yd 0.750 0.750 0.250 %30 Y00Gd 0.500 0.750 0.250 %31 Y50Gd 0.250 0.750 0.250 %32 G00Bd 0.250 0.750 0.750 %33 G50Bd 0.250 0.250 0.750 %34 B00Rd 0.750 0.250 0.750 %35 B50Rd 0.750 0.250 0.250 %36 R00Yd = 28 0.500 0.000 0.000 %37 R00Yd %dcolors 0.500 0.250 0.000 %38 R50Yd 0.500 0.500 0.000 %38 Y00Gd 0.250 0.500 0.000 %40 Y50Gd 0.000 0.500 0.000 %41 G00Bd 0.000 0.500 0.500 %42 G50Bd 0.000 0.000 0.500 %43 B00Rd 0.500 0.000 0.500 %44 B50Rd 0.500 0.000 0.000 %45 R00Yd = 37 0.000 0.000 0.000 %46 N00Wd %ncolors 0.125 0.125 0.125 %47 N13Wd 0.250 0.250 0.250 %48 N25Md 0.375 0.375 0.375 %49 N38Wd 0.500 0.500 0.500 %50 N50Wd 0.625 0.625 0.625 %51 N63Wd 0.750 0.750 0.750 %52 N75Wd 0.875 0.875 0.875 %53 N88Wd 1.000 1.000 1.000 %54 W00Nd = W ] def %54 colours of colour rendering test chart /RGB54CRt_F 54 array def /RGB54CRt_F [%high chromatic series: %relative hue h*, brillance i*, and chroma c*, range 0 ... 100 (R00Y_100_100) (R25Y_100_100) (R50Y_100_100) (R75Y_100_100) (Y00G_100_100) (Y25G_100_100) (Y50G_100_100) (Y75G_100_100) (G00B_100_100) (G00B_100_100) (G25B_100_100) (G50B_100_100) (G75B_100_100) (B00M_100_100) (B25R_100_100) (B50R_100_100) (B75R_100_100) (R00Y_100_100) %whitetish series (R00Y_100_050) (R50Y_100_050) (Y00G_100_050) (Y50G_100_050) (G00B_100_050) (G50B_100_050) (B00R_100_050) (B50R_100_050) (R00Y_100_050) %grayish series (R00Y_075_050) (R50Y_075_050) (Y00G_075_050) (Y50G_075_050) (G00B_075_050) (G50B_075_050) (B00R_075_050) (B50R_075_050) (R00Y_075_050) %blackish series (R00Y_050_050) (R50Y_050_050) (Y00G_050_050) (Y50G_050_050) (G00B_050_050) (G50B_050_050) (B00R_050_050) (B50R_050_050) (R00Y_050_050) %gray series (NW_000) (NW_013) (NW_025) (NW_038) (NW_050) (NW_063) (NW_075) (NW_088) (NW_100) ] def /jCRi 54 array def /jCRi %jCRi [ 648 %R00Y_100_100 1.00 0.00 0.00 01 %chromatic 16 step hue 666 %R25Y_100_100 1.00 0.25 0.00 02 684 %R50Y_100_100 1.00 0.50 0.00 03 702 %R75Y_100_100 1.00 0.75 0.00 04 720 %Y00G_100_100 1.00 1.00 0.00 05 558 %Y25G_100_100 0.75 1.00 0.00 06 396 %Y50G_100_100 0.50 1.00 0.00 07 234 %Y75G_100_100 0.25 1.00 0.00 08 072 %G00B_100_100 0.00 1.00 0.00 09=10 072 %G00B_100_100 0.00 1.00 0.00 10 %chromatic 16 step hue 076 %G25B_100_100 0.00 1.00 0.50 11 080 %G50B_100_100 0.00 1.00 1.00 12 044 %G75B_100_100 0.00 0.50 1.00 13 008 %B00R_100_100 0.00 0.00 1.00 14 332 %B25R_100_100 0.50 0.00 1.00 15 656 %B50R_100_100 1.00 0.00 1.00 16 652 %B75R_100_100 1.00 0.00 0.50 17 648 %R00Y_100_100 1.00 0.00 0.00 18=01 688 %R00Y_100_050 1.00 0.50 0.50 19 %whitish 8 step hue 706 %R50Y_100_050 1.00 0.75 0.50 20 724 %Y00G_100_050 1.00 1.00 0.50 21 562 %Y50G_100_050 0.75 1.00 0.50 22 400 %G00B_100_050 0.50 1.00 0.50 23 404 %G50B_100_050 0.50 1.00 1.00 24 368 %B00R_100_050 0.50 0.50 1.00 25 692 %B50R_100_050 1.00 0.50 1.00 26 688 %R00Y_100_050 1.00 0.50 0.50 27=19 506 %R00Y_075_050 0.75 0.25 0.25 28 %greyish 8 step hue 524 %R50Y_075_050 0.75 0.50 0.25 29 542 %Y00G_075_050 0.75 0.75 0.25 30 380 %Y50G_075_050 0.50 0.75 0.25 31 218 %G00B_075_050 0.25 0.75 0.25 32 222 %G50B_075_050 0.25 0.75 0.75 33 186 %B00R_075_050 0.25 0.25 0.75 34 510 %B50R_075_050 0.75 0.25 0.75 35 506 %R00Y_075_050 0.75 0.25 0.25 36=28 324 %R00Y_050_050 0.50 0.00 0.00 37 %blackish 8 step hue 342 %R50Y_050_050 0.50 0.25 0.00 38 360 %Y00G_050_050 0.50 0.50 0.00 39 198 %Y50G_050_050 0.25 0.50 0.00 40 036 %G00B_050_050 0.00 0.50 0.00 41 040 %G50B_050_050 0.00 0.50 0.50 42 004 %B00R_050_050 0.00 0.00 0.50 43 328 %B50R_050_050 0.50 0.00 0.50 44 324 %R00Y_050_050 0.50 0.00 0.00 45=37 000 %NW_000 0.000 0.000 0.000 46 %grey 9 steps 091 %NW_013 0.125 0.125 0.125 47 182 %NW_025 0.250 0.250 0.250 48 273 %NW_038 0.375 0.375 0.375 49 364 %NW_050 0.500 0.500 0.500 50 455 %NW_063 0.625 0.625 0.625 51 546 %NW_075 0.750 0.750 0.750 52 637 %NW_088 0.875 0.875 0.875 53 728 %NW_100 1.000 1.000 1.000 54 ] def %END jCRi /SUMDE*' 0 def /SUMDE'* 0 def n1 1 n2 {/n exch def %n=n1,n2 /n30 n 3 mul def /n31 n30 1 add def /n32 n30 2 add def xchart n00 eq {%48+1=49 step colour circle + 9 gray steps=58 steps /hcolort RGB58M1t_F n get def RGB58M1_F n30 get %real RGB58M1_F n31 get RGB58M1_F n32 get } if %48 step colour circle xchart n01 eq {%45 colour rendering (CR) + 9 grey steps = 54 steps /hcolort RGB54CRt_F n get def RGB54CR_F n30 get %real RGB54CR_F n31 get RGB54CR_F n32 get } if %54 colour rendering colours xchart n02 ge {%1080 standard colours /hcolort n cvi 6 string cvs def RGB0_F n30 get 1000 div RGB0_F n31 get 1000 div RGB0_F n32 get 1000 div } if %1080 standard colours setrgbcolor %default to create data %setrgbcolor calculates data for output in "FF_LM_de_setrgbcolor_F" %3D=0 calculates: rgb_dyF, rgb*dyF, LAB*dyF, ,cmyk*dyF and more %3D=1 calculates: rgb_dyF, rgb*dyF, LAB*dyF', rgb'*dyF, cmyk*dyF and more /r_xF r_dyF def /g_xF g_dyF def /b_xF b_dyF def /i_xF i_dyF def /c_xF c_dyF def /t_xF t_dyF def /r*xF r*dyF def /g*xF g*dyF def /b*xF b*dyF def /LAB*LxF LAB*LdyF def /LAB*axF LAB*adyF def /LAB*bxF LAB*bdyF def /LAB*CxF LAB*adyF dup mul LAB*bdyF dup mul add 0.0001 add sqrt def /LAB*hxF LAB*bdyF LAB*adyF 0.0001 add atan def colorm 0 eq {%3D=0 %prog_rgb_dyF_LAB*'dyF uses rgb_dyF by default %calculates output data according to IEC 61966-2-1 prog_rgb_dyF_LAB*'dyF /LAB*'LxF L*'dyF def /LAB*'axF A*'dyF def /LAB*'bxF B*'dyF def /LAB*'CxF C*'dyF def /LAB*'hxF h*'dyF def /DE*' LAB*'LxF LAB*LxF sub dup mul LAB*'axF LAB*axF sub dup mul add LAB*'bxF LAB*bxF sub dup mul add 0.0001 add sqrt def /SUMDE*' SUMDE*' DE*' add def } if %3D=0 colorm 1 eq {%3D=1 /r'*xF r'*dyF def /g'*xF g'*dyF def /b'*xF b'*dyF def %calculates output data according to IEC 61966-2-1 prog_rgb'*dyF_LAB'*dyF /LAB'*LxF L'*dyF def /LAB'*axF A'*dyF def /LAB'*bxF B'*dyF def /LAB'*CxF C'*dyF def /LAB'*hxF h'*dyF def /DE'* LAB'*LxF LAB*LxF sub dup mul LAB'*axF LAB*axF sub dup mul add LAB'*bxF LAB*bxF sub dup mul add 0.0001 add sqrt def /SUMDE'* SUMDE'* DE'* add def } if %3D=1 /hsi_xF hsiF def % /c4*F c4*Fa def % /m4*F m4*Fa def % /y4*F y4*Fa def % /n4*F n4*Fa def /r*xM r*dyM def /g*xM g*dyM def /b*xM b*dyM def /LAB*LxM LAB*LdyM def /LAB*axM LAB*adyM def /LAB*bxM LAB*bdyM def /LAB*CxM LAB*adyM dup mul LAB*bdyM dup mul add 0.0001 add sqrt def /LAB*hxM LAB*bdyM LAB*adyM 0.0001 add atan def /hsi_xM hsiM def 0 setgray xchart n00 eq {/nx n 8 idiv def n 49 ge {/nx nx 1 add def} if n 56 ge {/nx nx 1 sub def} if } if xchart n01 eq {/nx n 9 idiv def} if xchart n02 ge {/nx 0 def} if /iydn iymax n n1 sub nx add iyd mul sub def n n1 eq {%n=n1 00050 imaxy0 moveto (n) jshow xchart n00 eq {(/j) show} if xchart n01 eq {(/j) show} if xchart n02 eq {(=j) show} if 00700 imaxy0 moveto (HIC*) bshow (F) ishow0 Txx ishow0 02300 imaxy0 moveto (rgb) jshow (_F) ishow0 Txx ishow0 04200 imaxy0 moveto (ict) jshow (_F) ishow0 Txx ishow0 06100 imaxy0 moveto (h) jshow (si_F,) ishow0 Txx ishow0 06700 imaxym moveto 0 imaxym neg rlineto stroke 06800 imaxy0 moveto (rgb*) jshow (F) ishow0 Txx ishow0 08700 imaxy0 moveto (LabCh*) jshow (F) ishow0 Txx ishow0 12100 imaxym moveto 0 imaxym neg rlineto stroke colorm 0 eq {%3D=1 12200 imaxy0 moveto (rgb*') jshow (F) ishow0 Txx ishow0 14100 imaxy0 moveto (LabCh*') jshow (F) ishow0 Txx ishow0 17600 imaxy0 moveto (DE*') jshow (F) ishow0 Txx ishow0 } if %3D=0 colorm 1 eq {%3D=1 12200 imaxy0 moveto (rgb'*) jshow (F) ishow0 Txx ishow0 14100 imaxy0 moveto (LabCh'*) jshow (F) ishow0 Txx ishow0 17600 imaxy0 moveto (DE'*) jshow (F) ishow0 Txx ishow0 } if %3D=1 % 15100 imaxy0 moveto (cmyn*) jshow (sep,) ishow0 % (F) ishow0 Txx ishow0 18300 imaxy0 moveto (h) jshow (siM,) ishow0 Txx ishow0 18900 imaxym moveto 0 imaxym neg rlineto stroke 19000 imaxy0 moveto (rgb*) jshow (M) ishow0 Txx ishow0 20900 imaxy0 moveto (LabCh*) jshow (M) ishow0 Txx ishow0 () nshow } if %n=n1 00050 iydn moveto n cvishow xchart n00 eq {%xchart=n00 n 48 le {%n<=48 (/) show M1jx n get cvishow }%n<=48 {%n>48 (/) show jCRi n 4 sub get cvishow } ifelse } if %xchart=n00 xchart n01 eq {(/) show jCRi n get cvishow} if 00700 iydn moveto hcolort show Txx ishow0 () nshow 02300 iydn moveto r_xF cvsshow3 02900 iydn moveto g_xF cvsshow3 03500 iydn moveto b_xF cvsshow3 04200 iydn moveto i_xF cvsshow3 04800 iydn moveto c_xF cvsshow3 05400 iydn moveto t_xF cvsshow3 06100 iydn moveto hsi_xF cvishow 06800 iydn moveto r*xF cvsshow3 07400 iydn moveto g*xF cvsshow3 08000 iydn moveto b*xF cvsshow3 08700 iydn moveto LAB*LxF cvsshow1 09400 iydn moveto LAB*axF cvsshow1 10100 iydn moveto LAB*bxF cvsshow1 10800 iydn moveto LAB*CxF cvsshow1 11500 iydn moveto LAB*hxF cvsshow1 colorm 0 eq {%3D=0 12200 iydn moveto r_xF cvsshow3 12800 iydn moveto g_xF cvsshow3 13400 iydn moveto b_xF cvsshow3 14100 iydn moveto LAB*'LxF cvsshow1 14800 iydn moveto LAB*'axF cvsshow1 15500 iydn moveto LAB*'bxF cvsshow1 16200 iydn moveto LAB*'CxF cvsshow1 16900 iydn moveto LAB*'hxF cvsshow1 17600 iydn moveto DE*' cvsshow1 } if %3D=0 colorm 1 eq {%3D=1 12200 iydn moveto r'*xF cvsshow3 12800 iydn moveto g'*xF cvsshow3 13400 iydn moveto b'*xF cvsshow3 14100 iydn moveto LAB'*LxF cvsshow1 14800 iydn moveto LAB'*axF cvsshow1 15500 iydn moveto LAB'*bxF cvsshow1 16200 iydn moveto LAB'*CxF cvsshow1 16900 iydn moveto LAB'*hxF cvsshow1 17600 iydn moveto DE'* cvsshow1 } if %3D=1 18300 iydn moveto hsi_xM cvishow 19000 iydn moveto r*xM cvsshow3 19600 iydn moveto g*xM cvsshow3 20200 iydn moveto b*xM cvsshow3 20900 iydn moveto LAB*LxM cvsshow1 21600 iydn moveto LAB*axM cvsshow1 22300 iydn moveto LAB*bxM cvsshow1 23000 iydn moveto LAB*CxM cvsshow1 23700 iydn moveto LAB*hxM cvsshow1 } for %n=n1,n2 n2 57 eq n2 53 eq or n2 80 ge n2 1079 lt and or n2 1079 eq or {%n2=57,53,80,161,...,1052,1079 /iydn iymax n 1 add n1 sub nx add iyd mul sub def 12500 iydn moveto lanind 1 eq {(Mean color difference of this page:) bshow} if lanind 0 eq {(Mitttlere Farbdifferenz dieser Seite: ) bshow} if 16600 iydn moveto (delta ) bshow colorm 0 eq {(E*' =) jshow} {(E'* =) jshow} ifelse () bshow colorm 0 eq {%3D=0 17600 iydn moveto SUMDE*' n2 n1 sub 1 add div cvsshow1 }%3D=0 {%3D=1 17600 iydn moveto SUMDE'* n2 n1 sub 1 add div cvsshow1 } ifelse %3D=1 } if %n2=57,53,80,161, ...,1052,1079 } if %END xchart>xchart3P0 %************************************************************* %%Trailer %%EndDocument EndEPSF grestore gsave showpage grestore %} for %colsep=0,1 %} for %pchart=0,0 } for %xchart=0,1 %} for %xcolor=3,3 } for %de=0,1 } for %3D=0,1 %} for %lanind=0,0 %%Trailer