%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/DG01/DG01.HTM 6 20180701 %%BoundingBox: 00 00 414 292 %START PDFDE011.EPS /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/DG01/DG01.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:2018070112000) /ModDate (D:20180701112000) /DOCINFO pdfmark [ /View [ /Fit ] /DOCVIEW pdfmark %END PDFDE011 /sfgray {setgray} bind def %Early Frame File (f) definition %BEG DG01/OUTLIN10.PS Output Linearization (OL) olv*->olv'* 20110301 %Early Binding: needed for colour separation %/sgcmykcolor {setcmykcolor} bind def %/sggray {setgray} bind def %/sgrgbcolor {setrgbcolor} bind def %FILE PREPARED FOR MIXED MODE, e. g. input ORS18 and output TLS00 /IMES 0 def %0=LAB* used, no reflection factor necessary %/IMES 1 def /Yre 2.52 def %1=XYZ measurement and standard device reflection %/i*ptrsc 0 def %LAB* setcolor to cmy0* / 000n* setcmykcolor /i*ptrsc 1 def %LAB* setcolor to olv* setrgbcolor / w* setgray %/i*ptrsc 2 def %LAB* setcolor to cmy0* / nnn0* setcmykcolor %/i*ptrsc 3 def %LAB* setcolor to olv* / www* setrgbcolor %/i*ptrsc 4 def %LAB* setcolor to lab* setcolor %/i*ptrsc 5 def %LAB* setcolor to LAB* setcolor %/i*ptrsc 6 def %LAB* setcolor to 000n* setcmykcolor %/i*ptrsc 7 def %LAB* setcolor to w* setgray %/ISIN*ioG 0 def %default input for Offset Reflective System (ORS18/FRS09) %/ISOU*ioG 0 def %default output dto. /ISIN*ioG 1 def %input for Television Luminous System (TLS00) /ISOU*ioG 1 def %output dto. %/ISIN*ioG 2 def %input for Device Reflective measurement system (FRS09) %/ISOU*ioG 2 def %output dto. %/ISIN*ioG 3 def %input for Television Luminous Reflection System (TLS18) %/ISOU*ioG 3 def %output dto. %/ISIN*ioG 4 def %input for Natural Luminous System (NLS00) %/ISOU*ioG 4 def %output dto. %/ISIN*ioG 5 def %input for Natural Reflective System (NRS11) %/ISOU*ioG 5 def %output dto. %/ISIN*ioG 6 def %input for Standard Reflective System (CIE18) %/ISOU*ioG 6 def %output dto. %/ISIN*ioG 7 def %input for Standard Reflective System (TLS70) %/ISOU*ioG 7 def %output dto. /iLAB 0 def %/colormg 0 def %END DG01/OUTLIN10.PS Output Linearization (OL) olv*->olv'* 20110301 %BEG DG01/OUTLIN1X.PS 20110801 %EMPTY %END DG01/OUTLIN1X.PS 20110801 %BEG DG01/OUTLIN1Y2.PS Emty 20101101 %END DG01/OUTLIN1Y2.PS Emty 20101101 /sfrgbcolor {setrgbcolor} bind def /sfcmykcolor {setcmykcolor} bind def %line 20****************************************************** /BeginEPSF {% def % Prepare for EPS file /b4_Inc_state save def % Save state for cleanup /dict_count countdictstack def /op_count count 1 sub def % Count objects on op stack userdict begin % Make userdict current dict /showpage {} def 0 setgray 0 setlinecap 1 setlinewidth 0 setlinejoin 10 setmiterlimit [] 0 setdash newpath /languagelevel where % If level not equal to 1 then {pop languagelevel where % If level not equal to 1 then 1 ne {false setstrokeadjust false setoverprint } if } if } bind def /EndEPSF {% def % End for EPS file count op_count sub {pop} repeat countdictstack dict_count sub {end} repeat % Clean up dict stack b4_Inc_state restore } bind def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def %ANFA CMYKDEF %CMYKDEA0 (A0=Standard-Drucker-CMYKDEF) 15.3.97 /tzac [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzam [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzay [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzan [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tza0 [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000] def /tza1 [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000] def %ENDE CMYKD /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfiLAB* %x y width heigth LAB* { setcolor rec fill} bind def /colrecstLAB* %x y width heigth LAB* { setcolor rec stroke} bind def /colrecficmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec fill} bind def /colrecstcmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec stroke} bind def /colrecfiw* %x y width heigth w* { setgray rec fill} bind def /colrecstw* %x y width heigth w* { setgray rec stroke} bind def /colrecfiolv* %x y width heigth olv* { setrgbcolor rec fill} bind def /colrecstolv* %x y width heigth olv* { setrgbcolor rec stroke} bind def /tzocmy0* {0.0 1.0 1.0 0.0} bind def %Reproduction colours /tzlcmy0* {1.0 0.0 1.0 0.0} bind def %cmyn* setcmykcolor /tzvcmy0* {1.0 1.0 0.0 0.0} bind def /tzccmy0* {1.0 0.0 0.0 0.0} bind def /tzmcmy0* {0.0 1.0 0.0 0.0} bind def /tzycmy0* {0.0 0.0 1.0 0.0} bind def /tzoolv* {1.0 0.0 0.0} bind def %Reproduction colours /tzlolv* {0.0 1.0 0.0} bind def %olv* setrgbcolor /tzvolv* {0.0 0.0 1.0} bind def /tzcolv* {0.0 1.0 1.0} bind def /tzmolv* {1.0 0.0 1.0} bind def /tzyolv* {1.0 1.0 0.0} bind def /tzoLAB* [53.34 72.46 50.66] def %Reproduction colours /tzlLAB* [84.93 -79.83 74.80] def %LAB* setcolor /tzvLAB* [32.20 24.88 -37.89] def /tzcLAB* [88.10 -44.88 -13.36] def /tzmLAB* [59.66 90.32 -19.65] def /tzyLAB* [93.76 -20.24 85.93] def /tzncmy0* {1.00 1.00 1.00 0.00} bind def %grey series /tzdcmy0* {0.75 0.75 0.75 0.00} bind def %cmy0* setcmykcolor /tzzcmy0* {0.50 0.50 0.50 0.00} bind def /tzhcmy0* {0.25 0.25 0.25 0.00} bind def /tzwcmy0* {0.00 0.00 0.00 0.00} bind def /tzn000n* {0.00 0.00 0.00 1.00} bind def %grey series 000n* /tzd000n* {0.00 0.00 0.00 0.75} bind def %000n* setcmykcolor /tzz000n* {0.00 0.00 0.00 0.50} bind def /tzh000n* {0.00 0.00 0.00 0.25} bind def /tzw000n* {0.00 0.00 0.00 0.00} bind def /tznw* {0.00} bind def %grey series /tzdw* {0.25} bind def %w* setgray /tzzw* {0.50} bind def /tzhw* {0.75} bind def /tzww* {1.00} bind def /tznolv* {0.00 0.00 0.00} bind def %grey series /tzdolv* {0.25 0.25 0.25} bind def %olv* setrgbcolor /tzzolv* {0.50 0.50 0.50} bind def /tzholv* {0.75 0.75 0.75} bind def /tzwolv* {1.00 1.00 1.00} bind def /tznLAB* [18.01 0.00 0.00] def %grey series /tzdLAB* [37.36 0.00 0.00] def %LAB* setcolor /tzzLAB* [56.71 0.00 0.00] def /tzhLAB* [76.06 0.00 0.00] def /tzwLAB* [95.41 0.00 0.00] def /tfn {0 setgray} bind def /tfw {1 setgray} bind def /A4quer {598 0 translate 90 rotate} def /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def %%EndProlog %*********************************************************** %%BeginPageSetup /#copies 1 def %A4querF 0.5 0.5 scale /pgsave save def %%EndPageSetup /SS$ [(G) (E) (S) (F) (I) (J) (M)] def /SC$ [(N) (F) (S) (D) (T) (E) (C)] def /SX$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def /SY$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def % 0 1 2 3 4 5 % 6 7 8 /EX$ [(1.TXT /.PS) (B.BMP /.PS) (G.GIF /.PS) (H.HTM /.PS) (I.HTM /.PS) (J.JPE /.PS) (P.PDF /.PS) (T.TIF /.PS)] def /EY$ [(1.DAT) (B.DAT) (G.DAT) (H.DAT) (I.DAT) (J.DAT) (P.DAT) (T.DAT)] def %******************************************************************* /lanind1f 00 def /lanind2f 00 def /laninddf 01 def /colorm1f 00 def /colorm2f 00 def /colormdf 01 def /deintp1f 00 def /deintp2f 00 def /deintpdf 01 def /xcolor1f 00 def /xcolor2f 00 def /xcolordf 01 def %2/10 degree observer /xchart1f 00 def /xchart2f 00 def /xchartdf 01 def %8 illuminants /xchart3f 00 def /xchart4f 00 def /xchart5f 00 def %3f:0/1=M/O 5f:1/2=M,M&T /pchart1f 03 def /pchart2f 03 def /pchartdf 01 def %=3 for sRGB, Lr=0 /colsep1f 00 def /colsep2f 00 def /colsepdf 01 def /pmetam1f 00 def /pmetam2f 00 def /pmetamdf 01 def %/lanindf lanind1f def % /lanindf lanind1f def %lanind1f laninddf lanind2f {/lanindf exch def %/colormf colorm1f def % /colormf colorm1f def %colorm1f colormdf colorm2f {/colormf exch def %/deintpf deintp1f def % /deintpf deintp1f def %deintp1f deintpdf deintp2f {/deintpf exch def %/xcolorf xcolor1f def % /xcolorf xcolor1f def %xcolor1f xcolordf xcolor2f {/xcolorf exch def %/xchartf xchart1f def % /xchartf xchart1f def %xchart1f xchartdf xchart2f {/xchartf exch def %/pchartf pchart1f def % /pchartf pchart1f def %/pchartf pchart1f def %pchart1f pchartdf pchart2f {/pchartf exch def %/colsepf colsep1f def % /colsepf colsep1f def %colsep1f colsepdf colsep2f {/colsepf exch def /lanind lanindf def /colorm colormf def /deintp deintpf def /xcolor xcolorf def /xchart xchartf def /xchartm xchart2f xchart1f sub 1 add def /xchart3 xchart3f def /xchart4 xchart4f def /xchart5 xchart5f def /pchart pchartf def /colsep colsepf def %/pmetamf pmetam1f def % /pmetamf pmetam1f def %pmetam1f pmetamdf pmetam2f {/pmetamf exch def /pmetam pmetamf def %************************************************************* /setgray {sfgray} bind def /setrgbcolor {sfrgbcolor} bind def /setcmykcolor {sfcmykcolor} bind def %72 90 translate %0.01 MM dup scale %0 0 moveto 24600 0 rlineto 0 17220 rlineto % -24600 0 rlineto closepath stroke %000 -240 moveto %240 /Times-ISOL1 FS %lanindf cvishow (-) show %colormf cvishow %deintpf cvishow %xcolorf cvishow %xchartf cvishow %pchartf cvishow %colsepf cvishow (-F) show pmetamf cvishow %grestore gsave /GSS$ SS$ lanind get def /GSC$ SC$ colorm get def /GSX$ SX$ xcolor xcolor 16 idiv 16 mul sub get def /GSY$ SY$ xchart xchart 16 idiv 16 mul sub get def /GEX$ EX$ 0 get def /GEY$ EY$ 0 get def %01 %02 %03 %04 %05 %06 %07 %08 %09 %10 %11 %12 %13 %14 %15 %16 %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 http://farbe.li.tu-berlin.de/DG01/DG01.HTM 1N_R 20180701 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark01 where {pop} {userdict /pdfmark01 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: farbe.li.tu-berlin.de/DG01/DG01.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:2018070112000) /ModDate (D:20180701112000) /DOCINFO pdfmark01 [ /View [ /Fit ] /DOCVIEW pdfmark01 %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 % !exchange 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 /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 0 def /lanind2 0 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 (DG010-1) show xchart 0 eq {(N) show} {deintp colorm 2 mul add cvishow} ifelse %(, B3_03) show % ( B8310_2, M8120-1, B3_03, N=3_03) 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 0 0 moveto 4000 0 rlineto stroke 0 0 moveto 0 3200 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten 300 /Times-ISOL1 FS 0 -50 moveto 0 100 rlineto stroke 800 -50 moveto 0 100 rlineto stroke 1600 -50 moveto 0 100 rlineto stroke 2400 -50 moveto 0 100 rlineto stroke 3200 -50 moveto 0 100 rlineto stroke 4000 -50 moveto 0 100 rlineto stroke -100 -300 moveto (0,0) show 700 -300 moveto (0,2) show 1500 -300 moveto (0,4) show 2300 -300 moveto (0,6) show 3100 -300 moveto (0,8) show 3900 -300 moveto (1,0) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 800 moveto 100 0 rlineto stroke -50 1600 moveto 100 0 rlineto stroke -50 2400 moveto 100 0 rlineto stroke -50 3200 moveto 100 0 rlineto stroke -450 -80 moveto (0,0) show -450 720 moveto (0,2) show -450 1520 moveto (0,4) show -450 2320 moveto (0,6) show -450 3120 moveto (0,8) show 350 /TimesI-ISOL1 FS -300 2800 moveto (y) show 350 /TimesI-ISOL1 FS 4200 150 moveto (x) show 300 /TimesI-ISOL1 FS 2600 150 moveto (CIE 1931) show 350 /Times-ISOL1 FS 0850 3200 moveto (Normfarbtafel) showde %0DG010-1 0051# (chromaticity diagram) showen %1DG010-1 0051# (esquema de chromaticity) showes %2DG010-1 0051# (diagramme de chromaticit\351) showfr %3DG010-1 0051# (diagramma di cromaticit\340) showit %4DG010-1 0051# (kromatisitetsdiagram) showjp %5DG010-1 0051# 2100 2800 moveto (2\260\255Beobachter) showde %0DG010-1 0151# (2\260\255 observer) showen %1DG010-1 0151# (observador 2\260\255) showes %2DG010-1 0151# (2\260\255 observateur) showfr %3DG010-1 0151# (2\260\255 l'osservatore) showit %4DG010-1 0151# (2\260\255 observat\370r) showjp %5DG010-1 0151# -600 -400 translate %1000 02 **************************************** %ANF PROZSPEP.FOR: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 600 400 translate 693 19 moveto 693 19 692 19 690 19 curveto 688 19 685 20 681 23 curveto %425 675 27 667 34 657 43 curveto 644 55 626 70 603 90 curveto %455 575 118 542 159 496 231 curveto 438 347 365 530 274 802 curveto %485 181 1179 93 1650 32 2153 curveto 15 2619 55 3000 155 3248 curveto %515 297 3335 456 3304 618 3223 curveto 771 3126 918 3017 1063 2897 curveto %545 1206 2769 1349 2635 1492 2497 curveto 1634 2358 1776 2218 1915 2080 curveto %575 2049 1946 2179 1817 2300 1696 curveto 2411 1585 2508 1489 2592 1405 curveto 2663 1336 2720 1278 2765 1233 curveto 2802 1197 2831 1168 2856 1143 curveto 2876 1123 2892 1107 2903 1096 curveto 2913 1086 2919 1080 2924 1075 curveto 2927 1072 2930 1069 2933 1066 curveto 2936 1063 2937 1062 2938 1061 curveto 2938 1061 2939 1060 2744 971 curveto 2261 748 2040 643 1908 582 curveto 1819 541 1758 512 1708 490 curveto 1660 468 1612 445 1558 420 curveto 1495 391 1419 356 1320 309 curveto 1184 247 986 155 693 19 curveto stroke 0.0 0.0 0.0 0.0 setcmyk_olvcolor 693 19 30 0 360 arc fill % 400 681 23 30 0 360 arc fill % 425 626 70 30 0 360 arc fill % 450 438 347 30 0 360 arc fill % 475 32 2153 30 0 360 arc fill % 500 456 3304 30 0 360 arc fill % 525 1206 2769 30 0 360 arc fill % 550 1915 2080 30 0 360 arc fill % 575 2508 1489 30 0 360 arc fill % 600 2802 1197 30 0 360 arc fill % 625 2903 1096 30 0 360 arc fill % 650 2930 1069 30 0 360 arc fill % 675 2938 1061 30 0 360 arc fill % 700 2261 748 30 0 360 arc fill %500c 1708 490 30 0 360 arc fill %525c 1419 356 30 0 360 arc fill %550c 0.0 0.0 0.0 1.0 setcmyk_olvcolor 693 19 30 0 360 arc stroke % 400 681 23 30 0 360 arc stroke % 425 626 70 30 0 360 arc stroke % 450 438 347 30 0 360 arc stroke % 475 32 2153 30 0 360 arc stroke % 500 456 3304 30 0 360 arc stroke % 525 1206 2769 30 0 360 arc stroke % 550 1915 2080 30 0 360 arc stroke % 575 2508 1489 30 0 360 arc stroke % 600 2802 1197 30 0 360 arc stroke % 625 2903 1096 30 0 360 arc stroke % 650 2930 1069 30 0 360 arc stroke % 675 2938 1061 30 0 360 arc stroke % 700 2261 748 30 0 360 arc stroke %500c 1708 490 30 0 360 arc stroke %525c 1419 356 30 0 360 arc stroke %550c 1250 1316 30 0 360 arc fill %D65 0.0 0.0 0.0 1.0 setcmyk_olvcolor 250 /TimesI-ISOL1 FS 693 375 sub 19 250 sub moveto (400) show % 681 600 sub 23 100 sub moveto (425) show % 626 450 sub 70 100 sub moveto (450) show 438 400 sub 347 225 sub moveto (475) show 32 450 sub 2153 100 sub moveto (500) show 456 150 sub 3304 070 add moveto (525) show 1206 100 add 2769 moveto (550) show 1915 100 add 2080 moveto (575) show 2508 100 add 1489 moveto (600) show 2802 100 add 1197 moveto (625) show % 2903 100 add 1096 moveto (650) show % 2930 100 add 1069 moveto (675) show 2938 100 add 1061 100 sub moveto (700) show 2261 100 add 748 200 sub moveto (500c) show 1708 100 add 490 200 sub moveto (525c) show 1419 356 250 sub moveto (550c) show 1250 600 sub 1316 200 sub moveto (D65 ) show 438 347 moveto % 475 1915 2080 lineto stroke %575 % 693 19 moveto % 400 % 1634 2358 lineto stroke %565 % 1634 2358 30 0 360 arc stroke %565 % 1634 100 add 2358 moveto (565) show /XIE 0.3 def %567 %565, 570: 1634 2358 1776 2218 /x0 1634 def /y0 2358 def /x1 1776 def /y1 2218 def /xm x1 x0 sub XIE mul x0 add def /ym y1 y0 sub XIE mul y0 add def xm ym moveto %567 693 19 lineto stroke %400 xm ym 30 0 360 arc stroke %567 xm 100 add ym moveto (567) show % 93 1650 moveto %495 % 2938 1061 lineto stroke %700 % 93 100 add 1650 moveto (495) show /XIE 0.60 def %593 %590,595: xy0,xy1 181 1179 93 1650 /x0 181 def /y0 1179 def /x1 93 def /y1 1650 def /xm x1 x0 sub XIE mul x0 add def /ym y1 y0 sub XIE mul y0 add def xm ym moveto %493 2938 1061 lineto stroke %700 xm ym 30 0 360 arc stroke %493 xm 100 add ym moveto (493) show [100] 0 setdash %500 - 500c 32 2153 moveto %500 2261 748 lineto stroke %500c %525 - 525c 456 3304 moveto %525 1708 490 lineto stroke %550 - 550c 1206 2769 moveto %550 1419 356 lineto stroke %550c 1333 1333 30 0 360 arc fill %E 1333 100 add 1333 000 sub moveto (E ) show -600 -400 translate %ENDE: 1 showpage grestore %%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 http://farbe.li.tu-berlin.de/DG01/DG01.HTM 2N_R 20180701 %%BoundingBox: 70 83 226 206 %START PDFDE011.EPS /pdfmark02 where {pop} {userdict /pdfmark02 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: farbe.li.tu-berlin.de/DG01/DG01.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:2018070112000) /ModDate (D:20180701112000) /DOCINFO pdfmark02 [ /View [ /Fit ] /DOCVIEW pdfmark02 %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 % !Exchange 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 /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 0 def /lanind2 0 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 (DG010-2) show xchart 0 eq {(N) show} {deintp colorm 2 mul add cvishow} ifelse %(, B3_05) show % ( B8310_4, M8120-2, B3_05, N=3-05) 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 0 0 moveto 4000 0 rlineto stroke 0 0 moveto 0 3200 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten 300 /Times-ISOL1 FS 0 -50 moveto 0 100 rlineto stroke 800 -50 moveto 0 100 rlineto stroke 1600 -50 moveto 0 100 rlineto stroke 2400 -50 moveto 0 100 rlineto stroke 3200 -50 moveto 0 100 rlineto stroke 4000 -50 moveto 0 100 rlineto stroke -100 -300 moveto (0,0) show 700 -300 moveto (0,2) show 1500 -300 moveto (0,4) show 2300 -300 moveto (0,6) show 3100 -300 moveto (0,8) show 3900 -300 moveto (1,0) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 800 moveto 100 0 rlineto stroke -50 1600 moveto 100 0 rlineto stroke -50 2400 moveto 100 0 rlineto stroke -50 3200 moveto 100 0 rlineto stroke -450 -80 moveto (0,0) show -450 720 moveto (0,2) show -450 1520 moveto (0,4) show -450 2320 moveto (0,6) show -450 3120 moveto (0,8) show 350 /TimesI-ISOL1 FS -500 2000 moveto (y) show 300 /Times-ISOL1 FS -20 -125 rmoveto (10) show 20 125 rmoveto 350 /TimesI-ISOL1 FS 4100 150 moveto (x) show 300 /Times-ISOL1 FS 000 -125 rmoveto (10) show 000 125 rmoveto 300 /TimesI-ISOL1 FS 2600 150 moveto (CIE 1964) show 350 /Times-ISOL1 FS 0850 3200 moveto (Normfarbtafel) showde %0DG010-2 0051# (chromaticity diagram) showen %1DG010-2 0051# (esquema de chromaticity) showes %2DG010-2 0051# (diagramme de chromaticit\351) showfr %3DG010-2 0051# (diagramma di cromaticit\340) showit %4DG010-2 0051# (kromatisitetsdiagram) showjp %5DG010-2 0051# 2100 2800 moveto (10\260\255Beobachter) showde %0DG010-2 0151# (10\260\255 observer) showen %1DG010-2 0151# (observador 10\260\255) showes %2DG010-2 0151# (10\260\255 observateur) showfr %3DG010-2 0151# (10\260\255 l'osservatore) showit %4DG010-2 0151# (10\260\255 observat\370r) showjp %5DG010-2 0151# -600 -400 translate %1000 10 **************************************** %ANF PROZSPEP.FOR: MULYA= 4000 BEO=10 xy-Norm-Farbtafel IXY0: 600 400 600 400 translate 713 74 moveto 713 74 708 73 701 72 curveto 692 71 682 71 671 74 curveto %425 660 81 648 89 636 102 curveto 621 120 604 145 583 180 curveto %455 555 235 518 311 460 436 curveto 382 636 291 917 180 1310 curveto %485 83 1760 29 2250 22 2698 curveto 87 3010 198 3209 340 3267 curveto %515 500 3240 665 3168 828 3065 curveto 974 2959 1114 2845 1252 2725 curveto %545 1389 2600 1524 2472 1656 2343 curveto 1787 2212 1916 2083 2038 1961 curveto %575 2154 1845 2261 1738 2359 1640 curveto 2446 1553 2522 1477 2588 1411 curveto 2644 1355 2692 1307 2730 1269 curveto 2759 1240 2781 1218 2804 1195 curveto 2823 1176 2841 1158 2855 1144 curveto 2862 1137 2867 1132 2871 1128 curveto 2874 1125 2877 1122 2879 1120 curveto 2879 1120 2880 1119 2881 1118 curveto 2883 1116 2881 1118 2144 762 curveto 1964 676 1858 626 1783 589 curveto 1727 564 1679 540 1630 516 curveto 1578 491 1525 464 1463 435 curveto 1387 399 1290 352 1158 288 curveto 969 197 672 55 713 74 curveto stroke 1 setgray 713 74 30 0 360 arc fill % 400 671 74 30 0 360 arc fill % 425 604 145 30 0 360 arc fill % 450 382 636 30 0 360 arc fill % 475 22 2698 30 0 360 arc fill % 500 665 3168 30 0 360 arc fill % 525 1389 2600 30 0 360 arc fill % 550 2038 1961 30 0 360 arc fill % 575 2522 1477 30 0 360 arc fill % 600 2759 1240 30 0 360 arc fill % 625 2855 1144 30 0 360 arc fill % 650 2877 1122 30 0 360 arc fill % 675 2883 1116 30 0 360 arc fill % 700 1964 676 30 0 360 arc fill %500c 1630 516 30 0 360 arc fill %525c 1290 352 30 0 360 arc fill %550c 0.0 0.0 0.0 1.0 setcmyk_olvcolor 713 74 30 0 360 arc stroke % 400 671 74 30 0 360 arc stroke % 425 604 145 30 0 360 arc stroke % 450 382 636 30 0 360 arc stroke % 475 22 2698 30 0 360 arc stroke % 500 665 3168 30 0 360 arc stroke % 525 1389 2600 30 0 360 arc stroke % 550 2038 1961 30 0 360 arc stroke % 575 2522 1477 30 0 360 arc stroke % 600 2759 1240 30 0 360 arc stroke % 625 2855 1144 30 0 360 arc stroke % 650 2877 1122 30 0 360 arc stroke % 675 2883 1116 30 0 360 arc stroke % 700 1964 676 30 0 360 arc stroke %500c 1630 516 30 0 360 arc stroke %525c 1290 352 30 0 360 arc stroke %550c 1255 1324 30 0 360 arc fill %D65 0.0 0.0 0.0 1.0 setcmyk_olvcolor 250 /TimesI-ISOL1 FS 713 400 sub 74 300 sub moveto (400) show % 671 600 sub 74 100 sub moveto (425) show 604 450 sub 145 100 sub moveto (450) show 382 375 sub 636 225 sub moveto (475) show 22 450 sub 2698 50 sub moveto (500) show 665 200 sub 3168 150 add moveto (525) show 1389 50 add 2600 moveto (550) show 2038 50 add 1961 moveto (575) show 2522 50 add 1477 moveto (600) show 2759 50 add 1240 moveto (625) show % 2855 200 sub 1144 100 add moveto (650) show % 2877 200 sub 1122 100 add moveto (675) show 2883 100 add 1116 100 sub moveto (700) show 1964 100 add 676 150 sub moveto (500c) show 1630 100 add 516 200 sub moveto (525c) show 1290 50 add 352 250 sub moveto (550c) show 1255 600 sub 1324 150 sub moveto (D65 ) show 382 636 moveto % 475 2038 1961 lineto stroke %575 % 713 74 moveto % 400 % 1656 2343 lineto stroke %560 % 1634 2358 30 0 360 arc stroke %565 % 1634 100 add 2358 moveto (565) show /XIE 0.2 def %561 %560, 565: 1656 2343 1787 2212 /x0 1656 def /y0 2343 def /x1 1787 def /y1 2212 def /xm x1 x0 sub XIE mul x0 add def /ym y1 y0 sub XIE mul y0 add def xm ym moveto %561 713 74 lineto stroke %400 xm ym 30 0 360 arc stroke %561 xm 100 add ym moveto (561) show % 180 1310 moveto %485 % 2938 1061 lineto stroke %700 % 180 100 add 1310 moveto (485) show /XIE 0.40 def %485 %485,490: xy0,xy1 180 1310 83 1760 /x0 180 def /y0 1310 def /x1 83 def /y1 1760 def /xm x1 x0 sub XIE mul x0 add def /ym y1 y0 sub XIE mul y0 add def xm ym moveto %4487 2883 1116 lineto stroke %700 xm ym 30 0 360 arc stroke %487 xm 100 add ym moveto (487) show % 22 2698 30 0 360 arc stroke % 500 % 665 3168 30 0 360 arc stroke % 525 % 1389 2600 30 0 360 arc stroke % 550 % 1964 676 30 0 360 arc stroke %500c % 1630 516 30 0 360 arc stroke %525c % 1290 352 30 0 360 arc stroke %550c [100] 0 setdash %500 - 500c 22 2698 moveto %500 1964 676 lineto stroke %500c %525 - 525c 665 3168 moveto %525 1630 516 lineto stroke %550 - 550c 1389 2600 moveto %550 1290 352 lineto stroke %550c 1333 1333 30 0 360 arc fill %E 1333 100 add 1333 000 sub moveto (E ) show -600 -400 translate %ENDE: 1 showpage grestore %%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 http://farbe.li.tu-berlin.de/DG01/DG01.HTM 3N_R 20180701 %%BoundingBox: 70 83 226 206 %START PDFDE011.EPS /pdfmark03 where {pop} {userdict /pdfmark03 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: farbe.li.tu-berlin.de/DG01/DG01.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:2018070112000) /ModDate (D:20180701112000) /DOCINFO pdfmark03 [ /View [ /Fit ] /DOCVIEW pdfmark03 %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 % !exchange 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 %%EndProlog gsave %LANINDL2 START 20000505 /lanind 1 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 0 def /lanind2 0 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 (DG010-3) show xchart 0 eq {(N) show} {deintp colorm 2 mul add cvishow} ifelse 72 90 translate 0.01 MM 0.01 MM scale 15 setlinewidth 0 0 0.5 0 setcmyk_olvcolor 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath fill 0 0 0 1 setcmyk_olvcolor 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath stroke 600 400 translate 0 0 moveto 4000 0 rlineto stroke 0 0 moveto 0 3200 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten 300 /Times-ISOL1 FS 0 -50 moveto 0 100 rlineto stroke 800 -50 moveto 0 100 rlineto stroke 1600 -50 moveto 0 100 rlineto stroke 2400 -50 moveto 0 100 rlineto stroke 3200 -50 moveto 0 100 rlineto stroke 4000 -50 moveto 0 100 rlineto stroke -100 -300 moveto (0,0) show 700 -300 moveto (0,2) show 1500 -300 moveto (0,4) show 2300 -300 moveto (0,6) show 3100 -300 moveto (0,8) show 3900 -300 moveto (1,0) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 800 moveto 100 0 rlineto stroke -50 1600 moveto 100 0 rlineto stroke -50 2400 moveto 100 0 rlineto stroke -50 3200 moveto 100 0 rlineto stroke -450 -80 moveto (0,0) show -450 720 moveto (0,2) show -450 1520 moveto (0,4) show -450 2320 moveto (0,6) show -450 3120 moveto (0,8) show 350 /TimesI-ISOL1 FS -300 2800 moveto (y) show 350 /TimesI-ISOL1 FS 4200 150 moveto (x) show 300 /TimesI-ISOL1 FS 2600 150 moveto (CIE 1931) show 300 /TimesI-ISOL1 FS 2300 3200 moveto (Munsell V=2,5,8) show 2300 2900 moveto (C=4, 8, ...) show 300 /Times-ISOL1 FS 2300 2600 moveto (o Muster) showde %0DG010-3 00521 (o samples) showen %1DG010-3 00521 (o muestras) showes %2DG010-3 00521 (o exemple) showfr %3DG010-3 00521 (o campioni) showit %4DG010-3 00521 (o pr\370ver) showjp %5DG010-3 00521 300 /TimesI-ISOL1 FS ( Munsell) show 300 /Times-ISOL1 FS -600 -400 translate %1000 02 01 16 01 .00 .0020 ******************** %ANF PROZSPEP3.FOR: MULYA= 4000 BEO=02 xy-Farbtafel IXY0: 600 400 600 400 translate 693 19 moveto 693 19 692 19 690 19 curveto 688 19 685 20 681 23 curveto 675 27 667 34 657 43 curveto 644 55 626 70 603 90 curveto 575 118 542 159 496 231 curveto 438 347 365 530 274 802 curveto 181 1179 93 1650 32 2153 curveto 15 2619 55 3000 155 3248 curveto 297 3335 456 3304 618 3223 curveto 771 3126 918 3017 1063 2897 curveto 1206 2769 1349 2635 1492 2497 curveto 1634 2358 1776 2218 1915 2080 curveto 2049 1946 2179 1817 2300 1696 curveto 2411 1585 2508 1489 2592 1405 curveto 2663 1336 2720 1278 2765 1233 curveto 2802 1197 2831 1168 2856 1143 curveto 2876 1123 2892 1107 2903 1096 curveto 2913 1086 2919 1080 2924 1075 curveto 2927 1072 2930 1069 2933 1066 curveto 2936 1063 2937 1062 2938 1061 curveto 2938 1061 2939 1060 2744 971 curveto 2261 748 2040 643 1908 582 curveto 1819 541 1758 512 1708 490 curveto 1660 468 1612 445 1558 420 curveto 1495 391 1419 356 1320 309 curveto 1184 247 986 155 693 19 curveto stroke 0 0 0 1 setcmyk_olvcolor 693 19 30 0 360 arc fill % 400 681 23 30 0 360 arc fill % 425 626 70 30 0 360 arc fill % 450 438 347 30 0 360 arc fill % 475 32 2153 30 0 360 arc fill % 500 456 3304 30 0 360 arc fill % 525 1206 2769 30 0 360 arc fill % 550 1915 2080 30 0 360 arc fill % 575 2508 1489 30 0 360 arc fill % 600 2802 1197 30 0 360 arc fill % 625 2903 1096 30 0 360 arc fill % 650 2930 1069 30 0 360 arc fill % 675 2938 1061 30 0 360 arc fill % 700 2261 748 30 0 360 arc fill %500c 1708 490 30 0 360 arc fill %525c 1419 356 30 0 360 arc fill %550c 0 0 0 1 setcmyk_olvcolor 693 19 30 0 360 arc stroke % 400 681 23 30 0 360 arc stroke % 425 626 70 30 0 360 arc stroke % 450 438 347 30 0 360 arc stroke % 475 32 2153 30 0 360 arc stroke % 500 456 3304 30 0 360 arc stroke % 525 1206 2769 30 0 360 arc stroke % 550 1915 2080 30 0 360 arc stroke % 575 2508 1489 30 0 360 arc stroke % 600 2802 1197 30 0 360 arc stroke % 625 2903 1096 30 0 360 arc stroke % 650 2930 1069 30 0 360 arc stroke % 675 2938 1061 30 0 360 arc stroke % 700 2261 748 30 0 360 arc stroke %500c 1708 490 30 0 360 arc stroke %525c 1419 356 30 0 360 arc stroke %550c 1250 1316 30 0 360 arc fill %D65 0 0 0 1 setcmyk_olvcolor 250 /TimesI-ISOL1 FS 693 375 sub 19 250 sub moveto (400) show % 681 500 sub 23 100 sub moveto (425) show % 626 500 sub 70 100 sub moveto (450) show 438 400 sub 347 225 sub moveto (475) show 32 450 sub 2153 100 sub moveto (500) show 456 100 add 3304 000 add moveto (525) show 1206 100 add 2769 000 add moveto (550) show 1915 100 add 2080 000 add moveto (575) show 2508 100 add 1489 000 add moveto (600) show 2802 100 add 1197 100 add moveto (625) show % 2903 200 sub 1096 100 add moveto (650) show % 2930 200 sub 1069 100 add moveto (675) show 2938 100 add 1061 100 sub moveto (700) show 2261 100 add 748 200 sub moveto (500c) show 1708 100 add 490 200 sub moveto (525c) show 1419 000 add 356 250 sub moveto (550c) show 1250 100 add 1316 100 sub moveto %(D65 ) show -600 -400 translate %ENDE: 1 %1000 02 19 01 16 01 00 NE JA JA 02 ******************** % 19 01 01 F39E258.DAT ELEMENTARFARBEN für 8290/1 %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 2 5.0PB 600 400 translate 905 876 moveto 905 876 674 596 545 419 curveto stroke 0 0 0 0 setcmyk_olvcolor 905 876 40 0 360 arc fill 674 596 40 0 360 arc fill 0 0 0 1 setcmyk_olvcolor 905 876 40 0 360 arc stroke 674 596 40 0 360 arc stroke 545 419 40 0 360 arc fill -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 8 5.0G 600 400 translate 1056 1538 moveto 1056 1538 791 1833 448 2143 curveto 110 2394 110 2394 110 2394 curveto stroke 0 0 0 0 setcmyk_olvcolor 1056 1538 40 0 360 arc fill 0 0 0 1 setcmyk_olvcolor 1056 1538 40 0 360 arc stroke 791 1833 40 0 360 arc fill 448 2143 40 0 360 arc fill 110 2394 40 0 360 arc fill -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 12 5.0Y 600 400 translate 1817 1829 moveto 1817 1829 1817 1829 1817 1829 curveto stroke 0 0 0 1 setcmyk_olvcolor 1817 1829 40 0 360 arc fill -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 16 5.0R 600 400 translate 1673 1212 moveto 1673 1212 2057 1120 2372 986 curveto stroke 0 0 0 0 setcmyk_olvcolor 1673 1212 40 0 360 arc fill 2057 1120 40 0 360 arc fill 0 0 0 1 setcmyk_olvcolor 1673 1212 40 0 360 arc stroke 2057 1120 40 0 360 arc stroke 2372 986 40 0 360 arc fill -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 21 C 600 400 translate 1240 1264 moveto 1240 1264 1240 1264 1240 1264 curveto stroke 0 0 0 0 setcmyk_olvcolor 1240 1264 40 0 360 arc fill 0 0 0 1 setcmyk_olvcolor 1240 1264 40 0 360 arc stroke -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 2 5.0PB 600 400 translate 1064 1074 moveto 1064 1074 902 895 767 743 curveto 655 608 655 608 655 608 curveto stroke 0 0 0 0 setcmyk_olvcolor 1064 1074 40 0 360 arc fill 902 895 40 0 360 arc fill 767 743 40 0 360 arc fill 0 0 0 1 setcmyk_olvcolor 1064 1074 40 0 360 arc stroke 902 895 40 0 360 arc stroke 767 743 40 0 360 arc stroke 655 608 40 0 360 arc fill -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 8 5.0G 600 400 translate 1136 1451 moveto 1136 1451 1004 1642 841 1831 curveto 678 1992 527 2128 381 2251 curveto 243 2359 243 2359 243 2359 curveto stroke 0 0 0 0 setcmyk_olvcolor 1136 1451 40 0 360 arc fill 1004 1642 40 0 360 arc fill 0 0 0 1 setcmyk_olvcolor 1136 1451 40 0 360 arc stroke 1004 1642 40 0 360 arc stroke 841 1831 40 0 360 arc fill 678 1992 40 0 360 arc fill 527 2128 40 0 360 arc fill 381 2251 40 0 360 arc fill 243 2359 40 0 360 arc fill -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 12 5.0Y 600 400 translate 1570 1622 moveto 1570 1622 1831 1876 1972 2007 curveto stroke 0 0 0 0 setcmyk_olvcolor 1570 1622 40 0 360 arc fill 1831 1876 40 0 360 arc fill 0 0 0 1 setcmyk_olvcolor 1570 1622 40 0 360 arc stroke 1831 1876 40 0 360 arc stroke 1972 2007 40 0 360 arc fill -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 16 5.0R 600 400 translate 1496 1288 moveto 1496 1288 1765 1296 2028 1277 curveto 2254 1240 2456 1188 2456 1188 curveto stroke 0 0 0 0 setcmyk_olvcolor 1496 1288 40 0 360 arc fill 1765 1296 40 0 360 arc fill 2028 1277 40 0 360 arc fill 0 0 0 1 setcmyk_olvcolor 1496 1288 40 0 360 arc stroke 1765 1296 40 0 360 arc stroke 2028 1277 40 0 360 arc stroke 2254 1240 40 0 360 arc fill 2456 1188 40 0 360 arc fill -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 21 C 600 400 translate 1240 1264 moveto 1240 1264 1240 1264 1240 1264 curveto stroke 0 0 0 0 setcmyk_olvcolor 1240 1264 40 0 360 arc fill 0 0 0 1 setcmyk_olvcolor 1240 1264 40 0 360 arc stroke -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 2 5.0PB 600 400 translate 1119 1144 moveto 1119 1144 1119 1144 1119 1144 curveto stroke 0 0 0 0 setcmyk_olvcolor 1119 1144 40 0 360 arc fill 0 0 0 1 setcmyk_olvcolor 1119 1144 40 0 360 arc stroke -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 8 5.0G 600 400 translate 1169 1409 moveto 1169 1409 1089 1546 995 1676 curveto 896 1800 782 1922 782 1922 curveto stroke 0 0 0 0 setcmyk_olvcolor 1169 1409 40 0 360 arc fill 0 0 0 1 setcmyk_olvcolor 1169 1409 40 0 360 arc stroke 1089 1546 40 0 360 arc fill 995 1676 40 0 360 arc fill 896 1800 40 0 360 arc fill 782 1922 40 0 360 arc fill -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 12 5.0Y 600 400 translate 1460 1530 moveto 1460 1530 1663 1751 1824 1915 curveto 1916 2004 1916 2004 1916 2004 curveto stroke 0 0 0 0 setcmyk_olvcolor 1460 1530 40 0 360 arc fill 1663 1751 40 0 360 arc fill 1824 1915 40 0 360 arc fill 0 0 0 1 setcmyk_olvcolor 1460 1530 40 0 360 arc stroke 1663 1751 40 0 360 arc stroke 1824 1915 40 0 360 arc stroke 1916 2004 40 0 360 arc fill -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 16 5.0R 600 400 translate 1404 1289 moveto 1404 1289 1600 1305 1600 1305 curveto stroke 0 0 0 0 setcmyk_olvcolor 1404 1289 40 0 360 arc fill 0 0 0 1 setcmyk_olvcolor 1404 1289 40 0 360 arc stroke 1600 1305 40 0 360 arc fill -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 21 C 600 400 translate 1240 1264 moveto 1240 1264 1240 1264 1240 1264 curveto stroke 0 0 0 0 setcmyk_olvcolor 1240 1264 40 0 360 arc fill 0 0 0 1 setcmyk_olvcolor 1240 1264 40 0 360 arc stroke -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 22 R 600 400 translate 2277 1244 moveto 2277 1244 2277 1244 2277 1244 curveto stroke 1 0 0 setrgbcolor 2277 1244 80 0 360 arc fill 0 0 0 1 setcmyk_olvcolor 2277 1244 80 0 360 arc stroke -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 23 Y 600 400 translate 1743 1874 moveto 1743 1874 1743 1874 1743 1874 curveto stroke 1 1 0 setrgbcolor 1743 1874 80 0 360 arc fill 0 0 0 1 setcmyk_olvcolor 1743 1874 80 0 360 arc stroke -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 24 G 600 400 translate 1015 1703 moveto 1015 1703 1015 1703 1015 1703 curveto stroke 0 1 0 setrgbcolor 1015 1703 80 0 360 arc fill 0 0 0 1 setcmyk_olvcolor 1015 1703 80 0 360 arc stroke -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 25 B 600 400 translate 620 640 moveto 620 640 620 640 620 640 curveto stroke 0 0 1 setrgbcolor 620 640 80 0 360 arc fill 0 0 0 1 setcmyk_olvcolor 620 640 80 0 360 arc stroke -600 -400 translate 600 400 translate 1250 1316 80 0 360 arc fill -600 -400 translate %ENDE: 1 0 0 0 1 setcmyk_olvcolor /xm 2000 def /ym 1200 def 250 /Times-ISOL1 FS xm 1100 add ym 200 add moveto (5R) show xm 450 add ym 850 add moveto (5Y) show xm 1000 sub ym 1500 add moveto (5G) show xm 1100 sub ym 000 sub moveto (5PB) show %xm ym moveto (x) show 1 0 0 setrgbcolor xm 400 add ym 560 add moveto (CIE) show (09) show xm 400 sub ym 1100 add moveto (CIE) show (10) show xm 1200 sub ym 700 add moveto (CIE) show (11) show xm 700 sub ym 400 sub moveto (CIE) show (12) show 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 http://farbe.li.tu-berlin.de/DG01/DG01.HTM 4N_R 20180701 %%BoundingBox: 70 83 226 206 %START PDFDE011.EPS /pdfmark04 where {pop} {userdict /pdfmark04 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: farbe.li.tu-berlin.de/DG01/DG01.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:2018070112000) /ModDate (D:20180701112000) /DOCINFO pdfmark04 [ /View [ /Fit ] /DOCVIEW pdfmark04 %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 % !Exchange 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 /A4quer {595 0 translate 90 rotate} def %%EndProlog gsave %LANINDL2 START 20000505 /lanind 1 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 0 def /lanind2 0 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 (DG010-4) show xchart 0 eq {(N) show} {deintp colorm 2 mul add cvishow} ifelse %(, B2_40) show % ( B8331_5, M8120-4, B2_40, N=2_40) show %! Aus pprozspe.com mit MULY=2000 und FERN, D65, Kurve Nr. 1 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 20 setlinewidth 500 400 translate 0 0 moveto 4000 0 rlineto stroke 0 0 moveto 0 3200 rlineto stroke 696 19 moveto 695 19 693 19 690 19 curveto 685 20 675 27 657 43 curveto 626 70 575 118 496 231 curveto 365 530 181 1179 32 2153 curveto 55 3000 297 3335 618 3223 curveto 918 3017 1206 2769 1492 2497 curveto 1776 2218 2049 1946 2300 1696 curveto 2508 1489 2663 1336 2765 1233 curveto 2831 1168 2876 1123 2903 1096 curveto 2919 1080 2927 1072 2933 1066 curveto 2937 1062 2938 1061 2938 1061 curveto 2938 1061 2938 1061 2938 1061 curveto stroke 693 19 40 0 360 arc stroke 626 70 40 0 360 arc stroke 32 2153 40 0 360 arc stroke 1206 2769 40 0 360 arc stroke 2508 1489 40 0 360 arc stroke 2903 1096 40 0 360 arc stroke 2938 1061 40 0 360 arc stroke newpath 2938 1061 moveto 696 13 lineto stroke %!Purpurgerade 300 /Times-ISOL1 FS 693 650 sub 19 50 add moveto (400) show 32 100 add 2153 100 sub moveto (500) show 1206 100 sub 2769 200 add moveto (550) show 2508 100 add 1489 moveto (600) show 2938 100 add 1061 100 sub moveto (700) show %! Programm FANxyp: Normfarbwertanteile fŸr PostScript %! Berechnet d2:[rr.p6f]fanxys.for,MULY:2000 COD: 1MIEOLV 1779 1963 moveto %! 2325 1294 lineto %! 680 542 lineto %! 756 1798 lineto %! stroke 1 setgray 1779 1963 40 0 360 arc fill 2325 1294 40 0 360 arc fill 680 542 40 0 360 arc fill 756 1798 40 0 360 arc fill 0.0 0.0 0.0 1.0 setcmyk_olvcolor 1779 1963 40 0 360 arc stroke 2325 1294 40 0 360 arc stroke 680 542 40 0 360 arc stroke 756 1798 40 0 360 arc stroke %! Berechnet d2:[rr.p6f]fanxys.for,MULY:2000 COD: 2MIECMY 1250 1316 moveto 1779 1963 lineto stroke 1250 1316 moveto 2325 1294 lineto stroke 1250 1316 moveto 680 542 lineto stroke 1250 1316 moveto 756 1798 lineto stroke stroke 1 setgray 1250 1316 40 0 360 arc fill 0.0 0.0 0.0 1.0 setcmyk_olvcolor 1250 1316 40 0 360 arc stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten 300 /Times-ISOL1 FS 0 -50 moveto 0 100 rlineto stroke 800 -50 moveto 0 100 rlineto stroke 1600 -50 moveto 0 100 rlineto stroke 2400 -50 moveto 0 100 rlineto stroke 3200 -50 moveto 0 100 rlineto stroke 4000 -50 moveto 0 100 rlineto stroke -80 -300 moveto (0,0) show 720 -300 moveto (0,2) show 1520 -300 moveto (0,4) show 2320 -300 moveto (0,6) show 3120 -300 moveto (0,8) show 3920 -300 moveto (1,0) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 800 moveto 100 0 rlineto stroke -50 1600 moveto 100 0 rlineto stroke -50 2400 moveto 100 0 rlineto stroke -50 3200 moveto 100 0 rlineto stroke -450 -80 moveto (0,0) show -450 720 moveto (0,2) show -450 1520 moveto (0,4) show -450 2320 moveto (0,6) show -450 3120 moveto (0,8) show 350 /TimesI-ISOL1 FS -300 2700 moveto (y) show 3600 100 moveto (x) show 350 /Times-ISOL1 FS 1700 3200 moveto (Elementarfarben) showde %0DG010-4 0051# (elementary colors) showen %1DG010-4 0051# (colores elementales) showes %2DG010-4 0051# (couleurs \351l\351mentaires) showfr %3DG010-4 0051# (colori elementari di) showit %4DG010-4 0051# (element\346rfargene) showjp %5DG010-4 0051# 1700 2800 moveto (von ) showde %0DG010-4 0151# (of ) showen %1DG010-4 0151# (de ) showes %2DG010-4 0151# (de ) showfr %3DG010-4 0151# () showit %4DG010-4 0151# (til ) showjp %5DG010-4 0151# 350 /TimesI-ISOL1 FS (Miescher) show 350 /Times-ISOL1 FS ( in) showde %0DG010-4 0251# ( in) showen %1DG010-4 0251# ( en es\255) showes %2DG010-4 0251# ( en dia\255) showfr %3DG010-4 0251# ( nel diagram\255) showit %4DG010-4 0251# ( i kroma\255) showjp %5DG010-4 0251# 1800 2400 moveto (Normfarbtafel) showde %0DG010-4 0351# (chromaticity diagram) showen %1DG010-4 0351# (quema de chromaticity) showes %2DG010-4 0351# (gramme chromaticit\351) showfr %3DG010-4 0351# (ma di cromaticit\340) showit %4DG010-4 0351# (tisitetsdiagrammet) showjp %5DG010-4 0351# /ishowe {280 /TimesI-ISOL1 FS -20 -60 rmoveto (e) show 0 60 rmoveto 350 /TimesI-ISOL1 FS} def 350 /TimesI-ISOL1 FS 1250 1316 400 sub moveto (D65) show 1779 400 sub 1963 moveto (Y) show ishowe 2325 100 add 1294 200 sub moveto (R) show ishowe 680 100 add 542 200 sub moveto (B) show ishowe 756 400 sub 1798 200 sub moveto (G) show ishowe showpage grestore %%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 DG010-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 (DG010-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 DG010-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 (DG010-6,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF /xc1 16 def /yc1 12 def /xt 1 def xchart 1 eq {/xt 1 def} if 28 MM xt 0 eq {16 MM sub} if 20 MM xt 0 eq {12 MM sub} if translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 17 %line 399 %!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/DG01/DG01.HTM 7N_R 20180701 %%BoundingBox: 70 83 392 335 %START PDFDE011.EPS /pdfmark07 where {pop} {userdict /pdfmark07 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: farbe.li.tu-berlin.de/DG01/DG01.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:2018070112000) /ModDate (D:20180701112000) /DOCINFO pdfmark07 [ /View [ /Fit ] /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 % !exchange 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 %%EndProlog gsave %LANINDL2 START 20000505 /lanind 1 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 0 def /lanind2 0 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 (DG010-7) show xchart 0 eq {(N) show} {deintp colorm 2 mul add cvishow} ifelse 72 90 translate /yhoe 8500 def /xwidth 11200 def 0.01 MM dup scale %d2:[rr.b4f]bausz8y.eps 15 setlinewidth 0.0 0.0 1.0 0.0 setcmyk_olvcolor 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmyk_olvcolor 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath stroke /tfo {0 1 1 0 setcmyk_olvcolor} def /tfl {1 0 1 0 setcmyk_olvcolor} def /tfv {1 1 0 0 setcmyk_olvcolor} def /tfn {0 0 0 1 setcmyk_olvcolor} def /tfw {0 0 0 0 setcmyk_olvcolor} def /yd -550 def %y-Zeilenabstand %Spalten /S1 100 def /S2 300 def /S3 2650 def /S4 8300 def /yz 550 def /yu0 0 def /yu1 {yu0 -100 add yz 4 mul add} bind def /yu2 {yu1 000 add yz 0 mul add} bind def /yu3 {yu2 100 add yz 6.1 mul add} bind def /yu4 {yu3 100 add yz 1.4 mul add} bind def /yu5 {yu4 000 add yz 1.9 mul add} bind def /yu6 {yu5 100 add yz 0.9 mul add} bind def 0 yhoe 500 sub moveto xwidth 0 rlineto stroke 0 yu4 400 add moveto xwidth 0 rlineto stroke 0 yu3 400 add moveto xwidth 0 rlineto stroke 0 yu1 400 add moveto xwidth 0 rlineto stroke S3 100 sub yhoe 500 sub moveto 0 yhoe 440 sub neg rlineto stroke S4 100 sub yhoe 500 sub moveto 0 yhoe 440 sub neg rlineto stroke /tedef {/anz exch def /ydt exch def /y0t exch def /x0t exch def} bind def /ns {350 /Times-ISOL1 FS show} bind def /ks {350 /TimesI-ISOL1 FS show} bind def /bs {350 /TimesB-ISOL1 FS show} bind def /js {350 /TimesBI-ISOL1 FS show} bind def /ss {350 /Symbol FS show} bind def /is {250 /Times-ISOL1 FS 0 -90 rlineto show 0 90 rlineto} bind def /es {250 /Times-ISOL1 FS 0 200 rlineto show 0 -200 rlineto} bind def /TEn {350 /Times-ISOL1 FS tedef} bind def /TEk {350 /TimesI-ISOL1 FS tedef} bind def /TEb {350 /TimesB-ISOL1 FS tedef} bind def /TEj {350 /TimesBI-ISOL1 FS tedef} bind def /TEs {350 /Symbol FS tedef} bind def %20% kleiner /ns2 {280 /Times-ISOL1 FS show} bind def /ks2 {280 /TimesI-ISOL1 FS show} bind def /bs2 {280 /TimesB-ISOL1 FS show} bind def /js2 {280 /TimesBI-ISOL1 FS show} bind def /is2 {200 /Times-ISOL1 FS 10 -40 rlineto show -10 40 rlineto} bind def /iks2 {200 /TimesI-ISOL1 FS 10 -40 rlineto show -10 40 rlineto} bind def /es2 {250 /Times-ISOL1 FS 0 160 rlineto show 0 -160 rlineto} bind def /TEn2 {280 /Times-ISOL1 FS tedef} bind def /TEk2 {280 /TimesI-ISOL1 FS tedef} bind def /TEb2 {280 /TimesB-ISOL1 FS tedef} bind def /TEj2 {280 /TimesBI-ISOL1 FS tedef} bind def /TEs2 {280 /Symbol FS tedef} bind def /TEA {anz 1 sub -1 0 {ydt mul y0t add x0t exch moveto show} for} bind def /TBM1 {320 /TimesB-ISOL1 FS} bind def %Titeltext TBG S1 yu6 yd 0.1 mul sub moveto (Niedere Farbmetrik \050Farbdaten: ) showde %0DG010-7 00T03 (colour valence metric \050color data: ) showen %1DG010-7 00T03 (m\351trica de valencia de color \050) showes %2DG010-7 00T03 (colorim\351trie inf\351rieure: \050donn\351es: ) showfr %3DG010-7 00T03 (Metrica del colore di valenza: ) showit %4DG010-7 00T03 (lavere fargemetrikk \050fargedata: ) showjp %5DG010-7 00T03 (lineare Beziehung zu CIE 1931\051) showde %0DG010-7 01T03 (linear relation to CIE 1931 data\051) showen %1DG010-7 01T03 (relaci\363n lineal con datos CIE 1931\051) showes %2DG010-7 01T03 (relation lin\351aire \340 CIE 1931\051) showfr %3DG010-7 01T03 ((relazioni lineari dai dati CIE 1931)) showit %4DG010-7 01T03 (line\346r relasjon til CIE 1931 data\051) showjp %5DG010-7 01T03 S1 yu5 280 add moveto TBM (Denominazione) showit %4DG010-7 02T03 TBG S1 yu5 yd 0 mul add moveto (lineare) showde %0DG010-7 02T03 (linear) showen %1DG010-7 02T03 (t\351rminos de) showes %2DG010-7 02T03 (term lin\351aire) showfr %3DG010-7 02T03 TBM 0 -60 rmoveto (degli attributi) showit %4DG010-7 02T03 0 50 rmoveto TBG (line\346re) showjp %5DG010-7 02T03 S1 yu5 400 sub moveto (Farbgr\366\337en) showde %0DG010-7 03T03 (color terms) showen %1DG010-7 03T03 (color lineales) showes %2DG010-7 03T03 (des couleurs) showfr %3DG010-7 03T03 TBM (chromatici "lineari") showit %4DG010-7 03T03 TBG (fargebetegnelser) showjp %5DG010-7 03T03 S3 yu5 yd 0 mul add moveto (Bezeichnung und Zusammenhang) showde %0DG010-7 04T03 (name and relationship to CIE) showen %1DG010-7 04T03 (nombre y relaci\363n con los valores) showes %2DG010-7 04T03 (nom et raport aux valeurs de) showfr %3DG010-7 04T03 TBM1 (Simbolo e relatione con i valori) showit %4DG010-7 04T03 TBG (navn og sammenheng med CIE tri\255) showjp %5DG010-7 04T03 S3 yu5 400 sub moveto (mit Normfarbwerten / \255anteilen) showde %0DG010-7 05T03 (tristimulus or chromaticity values) showen %1DG010-7 05T03 (triest\355mulo o cromaticidad CIE) showes %2DG010-7 05T03 (tristimulus ou de chromaticit\351) showfr %3DG010-7 05T03 TBM1 (trstimulo o di cromaticit\340 CIE) showit %4DG010-7 05T03 TBG (stimulus\255 eller kromatisitetsverdier) showjp %5DG010-7 05T03 S4 yu5 yd 0 mul add moveto (Bemerkungen) showde %0DG010-7 06T03 (notes) showen %1DG010-7 06T03 (notas) showes %2DG010-7 06T03 (remarques) showfr %3DG010-7 06T03 TBM1 (Note) showit %4DG010-7 06T03 TBG (merknader) showjp %5DG010-7 06T03 TIM S4 yu3 yd 0 mul add moveto (n=D65) show S4 yu3 yd 1 mul add moveto (\050Umfeld\051) showde %0DG010-7 07T03 (\050background\051) showen %1DG010-7 07T03 (\050campo circundante\051) showes %2DG010-7 07T03 (\050fond\051) showfr %3DG010-7 07T03 (\050sfondo\051) showit %4DG010-7 07T03 (\050omfelt\051) showjp %5DG010-7 07T03 TBM S1 yu4 100 sub yd 0.3 mul sub moveto (Normfarbwerte) showde %0DG010-7 08T03 (tristimulus) showen %1DG010-7 08T03 (valores) showes %2DG010-7 08T03 (valeurs de) showfr %3DG010-7 08T03 (valori di) showit %4DG010-7 08T03 (tristimulus\255) showjp %5DG010-7 08T03 TBM S1 yu4 100 sub yd 0.3 mul add moveto () showde %0DG010-7 08T03 (values) showen %1DG010-7 08T03 (triest\355mulo) showes %2DG010-7 08T03 (tristimulus) showfr %3DG010-7 08T03 (tristimulus) showit %4DG010-7 08T03 (verdier) showjp %5DG010-7 08T03 S3 yu4 100 sub moveto (X, Y, Z) ks TBM S1 yu3 yd 0 mul add moveto (Buntwert) showde %0DG010-7 09T03 (chromatic value ) showen %1DG010-7 09T03 (valor crom\341tico ) showes %2DG010-7 09T03 (val. chromatique) showfr %3DG010-7 09T03 (valore cromatico) showit %4DG010-7 09T03 (kul\370rverdi ) showjp %5DG010-7 09T03 TIM S3 yu3 yd 0 mul add moveto (lineares Buntwertdiagramm (A, B)) showde %0DG010-7 10T03 (linear chromatic value diagram (A, B)) showen %1DG010-7 10T03 (diagrama lineal de valor crom\341tico (A, B)) showes %2DG010-7 10T03 (diagramme valeur chromatique lin\351aire (A,B)) showfr %3DG010-7 10T03 (Diagramma lineare del valore cromatico (A, B)) showit %4DG010-7 10T03 (line\346rt kul\370rverdi diagram (A, B)) showjp %5DG010-7 10T03 TM S2 yu3 yd 1 mul add moveto (Rot-Gr\374n) showde %0DG010-7 11T03 (red-green) showen %1DG010-7 11T03 (rojo-verde) showes %2DG010-7 11T03 (rouge-vert) showfr %3DG010-7 11T03 (rosso-verde) showit %4DG010-7 11T03 (r\370d-gr\370nn) showjp %5DG010-7 11T03 TM S2 yu3 yd 3 mul add moveto (Gelb-Blau) showde %0DG010-7 12T03 (yellow-blue) showen %1DG010-7 12T03 (amarillo-azul) showes %2DG010-7 12T03 (jaune-bleu) showfr %3DG010-7 12T03 (giallo-blu) showit %4DG010-7 12T03 (gul-bl\345) showjp %5DG010-7 12T03 TM S2 yu3 yd 5 mul add moveto (radial) showde %0DG010-7 13T03 (radial) showen %1DG010-7 13T03 (radial) showes %2DG010-7 13T03 (radial) showfr %3DG010-7 13T03 (radiale) showit %4DG010-7 13T03 (radiell) showjp %5DG010-7 13T03 S3 yu3 yd 1 mul add moveto (A) ks ( = [ ) ns (X / Y) ks ( - ) ns (X) ks (n) is ( / Y) ks (n) is ( ] ) ns (Y) ks ( = [ ) ns (a) ks ( - ) ns (a) ks (n) is ( ] ) ns (Y) ks S3 yu3 yd 2 mul add moveto ( = [ ) ns (x / y) ks ( - ) ns (x) ks (n) is ( / y) ks (n) is ( ] ) ns (Y) ks S3 yu3 yd 3 mul add moveto (B) ks ( = - 0,4 [ ) ns (Z/Y) ks (-) ns (Z) ks (n) is (/Y) ks (n) is ( ] ) ns (Y) ks ( = [ ) ns (b) ks ( - ) ns (b) ks (n) is ( ] ) ns (Y) ks S3 yu3 yd 4 mul add moveto ( = - 0,4 [ ) ns (z / y) ks ( - ) ns (z) ks (n) is ( / y) ks (n) is ( ] ) ns (Y) ks 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 TBM S1 yu1 yd 0 mul add moveto (Farbartwert) showde %0DG010-7 14T03 (chromaticity) showen %1DG010-7 14T03 (cromaticidad) showes %2DG010-7 14T03 (chromaticit\351) showfr %3DG010-7 14T03 (cromaticit\340) showit %4DG010-7 14T03 (kromatisitet ) showjp %5DG010-7 14T03 TIM S3 yu1 yd 0 mul add moveto (lineare Farbtafel (a, b)) showde %0DG010-7 15T03 (linear chromaticity diagram (a, b)) showen %1DG010-7 15T03 (diagrama de cromaticidad lineal (a, b)) showes %2DG010-7 15T03 (diagramme chromaticit\351 lin\351air (a, b)) showfr %3DG010-7 15T03 (Diagramma lineare di cromaticit\340 (a, b)) showit %4DG010-7 15T03 (line\346rt kromatisitetsdiagram (a, b)) showjp %5DG010-7 15T03 TBIM S4 yu1 yd 0.0 mul add moveto (vergleiche lineare) showde %0DG010-7 16T03 (compare to linear) showen %1DG010-7 16T03 (comparar excitaci\255) showes %2DG010-7 16T03 (comparer stimulation) showfr %3DG010-7 16T03 (confrontabili con le) showit %4DG010-7 16T03 (sammenlign med li\255) showjp %5DG010-7 16T03 S4 yu1 yd 0.7 mul add moveto (Zapfens\344ttigung) showde %0DG010-7 17T03 (cone excitation) showen %1DG010-7 17T03 (\363n lineal de conos) showes %2DG010-7 17T03 (des c\364nes lin\351aires) showfr %3DG010-7 17T03 (sensibilit\340 dei) showit %4DG010-7 17T03 (ne\346r tappe\255eksitasjon) showjp %5DG010-7 17T03 S4 yu1 yd 1.4 mul add moveto () showde %0DG010-7 17T03 () showen %1DG010-7 17T03 () showes %2DG010-7 17T03 () showfr %3DG010-7 17T03 (coni in modo lineare) showit %4DG010-7 17T03 () showjp %5DG010-7 17T03 TIM S4 yu1 yd 2.5 mul add moveto tfo (L) show tfn (/\050) show tfo (L) show tfn (+) show tfl (M) show tfn (\051) show tfn (=) show tfo (P) show tfn (/\050) show tfo (P) show tfn (+) show tfl (D) show tfn (\051) show S4 yu1 yd 3.5 mul add moveto tfv (S) show tfn (/\050) show tfo (L) show tfn (+) show tfl (M) show tfn (\051) show tfn (=) show tfv (T) show tfn (/\050) show tfo (P) show tfn (+) show tfl (D) show tfn (\051) show TM S2 yu1 yd 1 mul add moveto (Rot-Gr\374n) showde %0DG010-7 18T03 (red-green) showen %1DG010-7 18T03 (rojo-verde) showes %2DG010-7 18T03 (rouge-vert) showfr %3DG010-7 18T03 (rosso-verde) showit %4DG010-7 18T03 (r\370d-gr\370nn) showjp %5DG010-7 18T03 TM S2 yu1 yd 2 mul add moveto (Gelb-Blau) showde %0DG010-7 19T03 (yellow-blue) showen %1DG010-7 19T03 (amarillo-azul) showes %2DG010-7 19T03 (jaune-bleu) showfr %3DG010-7 19T03 (giallo-blu) showit %4DG010-7 19T03 (gul-bl\345) showjp %5DG010-7 19T03 TM S2 yu1 yd 3 mul add moveto (radial) showde %0DG010-7 20T03 (radial) showen %1DG010-7 20T03 (radial) showes %2DG010-7 20T03 (radial) showfr %3DG010-7 20T03 (radiale) showit %4DG010-7 20T03 (radiell) showjp %5DG010-7 20T03 S3 yu1 yd 1 mul add moveto (a) ks ( = ) ns (X / Y) ks ( = ) ns (x / y ) ks S3 yu1 yd 2 mul add moveto (b) ks ( = - 0,4 [) ns (Z / Y) ks ( ]) ns ( = - 0,4 [) ns (z / y) ks ( ]) ns S3 yu1 yd 3 mul add moveto (c) ks (ab) is ( = [ \050 ) ns (a - a) ks (n) is ( \051) ns (2) es ( + \050 ) ns (b - b) ks (n) is ( \051) ns (2) es ( ]) ns (1/2) es showpage grestore %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 020 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM moveto ( ) show 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 18 %line 409 %!PS-Adobe-3.0 EPSF-3.0 DG010-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 (DG010-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 08 MM sub 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 21 %line 429 %!PS-Adobe-3.0 EPSF-3.0 DG011-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 (DG011-1,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 22 %line 439 %!PS-Adobe-3.0 EPSF-3.0 DG011-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 (DG011-2,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 08 MM sub 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 23 %line 449 %!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/DG01/DG01.HTM 3N_R 20180701 %%BoundingBox: 70 83 392 335 %START PDFDE011.EPS /pdfmark13 where {pop} {userdict /pdfmark13 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: farbe.li.tu-berlin.de/DG01/DG01.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:2018070112000) /ModDate (D:20180701112000) /DOCINFO pdfmark13 [ /View [ /Fit ] /DOCVIEW pdfmark13 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % 40mm = 80*72/25.4 = 232; 232+90+13 = 335 % !Exchange 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 /showes {3 lanind eq {show} {pop} ifelse} bind def /showfr {2 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 0 def /lanind2 0 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 (DG011-3) show xchart 0 eq {(N) show} {deintp colorm 2 mul add cvishow} ifelse 72 90 translate /yhoe 8500 def /xwidth 11200 def 0.01 MM dup scale 15 setlinewidth 0.0 0.0 1.0 0.0 setcmyk_olvcolor 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmyk_olvcolor 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath stroke 0 yhoe 600 sub moveto xwidth 0 rlineto stroke /ishow1 {0 -70 rmoveto TK (1) show 0 70 rmoveto} bind def /ishow2 {0 -70 rmoveto TK (2) show 0 70 rmoveto} bind def /ishowu {0 -70 rmoveto TK (u) show 0 70 rmoveto} bind def /ishoww {0 -70 rmoveto TK (w) show 0 70 rmoveto} bind def %Titeltext 100 8000 moveto TBIG (NW\255) show TBG (Unbunt\255 sowie ) showde (achromatic and ) showea TBIG (RG\255) show TBG ( und ) showde ( and ) showea TBIG (JB\255) show TBG (Buntschwellen als Funktion von ) showde (chromatic thresholds as function of ) showea TBIG (Y) show 100 7500 moveto TM (Experimente und Daten: BAM\255Forschungsbericht ) showde (Nr. 115 (1985), S. 72 ff.) showde (experiments and data: BAM\255research report ) showea (no. 115 (1985), page 72) showea 800 800 translate %Ueberschriften 100 6200 moveto TBM (Farbmetrische differenzen an der Schwelle) showde (Colorimetric differences at the threshold) showea 200 5500 moveto SM (D) show TM ((Hellbezugswerte)) showde ((luminous values)) showea TM ( = ) show TIM (Y) show ishow1 TM ( - ) show TIM (Y) show ishow2 200 5000 moveto SM (D) show TM (\050) show TIM (RG\255) show TM (Buntfarbarten\051 \267 mittlerer Hellbezugswert) showde (chromaticities\051 \267 mean luminous value) showea TIM ( Y) show 200 4500 moveto SM (D) show TM (\050) show TIM (JB\255) show TM (Buntfarbarten\051 \267 mittlerer Hellbezugswert) showde (chromaticities\051 \267 mean luminous value) showea TIM ( Y ) show 6700 5500 moveto TIM (Y) show TM ( = 0,5 \050) show TIM (Y) show ishow1 TM ( + ) show TIM (Y) show ishow2 TM (\051) show 6700 5000 moveto SM (D) show TIM (b \267 Y) show 7900 5000 moveto TBIM (JB\255) show TBM (Richtung) showde (direction) showea 6700 4500 moveto SM (D) show TIM (a \267 Y) show 7900 4500 moveto TBIM (RG\255) show TBM (Richtung) showde (direction) showea 6700 4000 moveto SM (D) show TIM (Y) show 7900 4000 moveto TBIM (NW\255) show TBM (Richtung) showde (direction) showea 200 4000 moveto SM (D) show TIM (a = x) show ishow1 TM ( / ) show TIM (y) show ishow1 TM ( - ) show TIM (x) show ishow2 TM ( / ) show TIM (y) show ishow2 200 3500 moveto SM (D) show TIM (b = z) show ishow1 TM ( / ) show TIM (y) show ishow1 TM ( - ) show TIM (z) show ishow2 TM ( / ) show TIM (y) show ishow2 /ix0 6700 def /iy0 1250 def 0.0 0.0 0.0 0.0 setcmyk_olvcolor %W ix0 iy0 moveto 2600 0 rlineto 0 2600 rlineto -2600 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmyk_olvcolor %N ix0 iy0 moveto 2600 0 rlineto 0 2600 rlineto -2600 0 rlineto closepath stroke 0.0 0.0 0.0 0.5 setcmyk_olvcolor %Z ix0 400 add iy0 400 add moveto 1800 0 rlineto 0 1800 rlineto -1800 0 rlineto closepath fill 0.0 0.0 0.0 0.7 setcmyk_olvcolor ix0 1300 add iy0 1300 add 340 90 270 arc fill 0.0 0.0 0.0 0.6 setcmyk_olvcolor ix0 1300 add iy0 1300 add 340 -90 90 arc fill 0.0 0.0 0.0 1.0 setcmyk_olvcolor %W ix0 0500 add iy0 1775 add moveto SM (D) show 30 0 rmoveto TIM (Y) show 30 0 rmoveto TM (=) show 30 0 rmoveto TIM (Y) show ishow2 30 0 rmoveto TM (-) show 30 0 rmoveto TIM (Y) show ishow1 ix0 0600 add iy0 1175 add moveto TIM (Y) show ishow1 ix0 1700 add iy0 1175 add moveto TIM (Y) show ishow2 ix0 1800 add iy0 600 add moveto TIM (Y) show ishowu 0.0 0.0 0.0 1.0 setcmyk_olvcolor %N ix0 080 add iy0 200 add moveto TIM (Y) show ishoww 20 setlinewidth 0 0 moveto 9000 0 rlineto stroke 0 0 moveto 0 6000 rlineto stroke 0 6000 moveto 9000 0 rlineto stroke %NULLkreuz Umfeld %4400 0 moveto 0 4000 rlineto stroke 4600 950 moveto TIM (Y) show ishowu TM (=18, ) show (Hellbezugswert von grauem Umfeld) showde (luminous value of gray background) showea 6300 0550 moveto SM (D) show TIM (Y) show TM ( = ) show TIM (s) show TM ( + ) show TIM (c) show TIM ( Y ) show TM (= 0,017 + 0,0058 ) show TIM (Y) show 6000 150 moveto TIM (Y) show ishoww TM (=90, ) show (wei\337e Umgebung) showde (white surround) showea 1 0 0 setrgbcolor 2000 18 log 2000 mul add 0 moveto 0 3500 rlineto stroke 2000 90 log 2000 mul add 0 moveto 0 0400 rlineto stroke 0 setgray 0 50 moveto 0 -100 rlineto stroke 1000 50 moveto 0 -100 rlineto stroke 2000 50 moveto 0 -100 rlineto stroke 3000 50 moveto 0 -100 rlineto stroke 4000 50 moveto 0 -100 rlineto stroke 5000 50 moveto 0 -100 rlineto stroke 6000 50 moveto 0 -100 rlineto stroke 7000 50 moveto 0 -100 rlineto stroke 8000 50 moveto 0 -100 rlineto stroke TM -230 -500 moveto (-1) show 1910 -500 moveto (0) show 3910 -500 moveto (1) show 5910 -500 moveto (2) show 7910 -500 moveto (3) show 8400 -400 moveto TBIM (x) show TBM ( = log ) show TBIM (Y) show %! 1 y-log-Einheit = 1000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 1000 moveto 100 0 rlineto stroke -50 2000 moveto 100 0 rlineto stroke -50 3000 moveto 100 0 rlineto stroke -50 4000 moveto 100 0 rlineto stroke -50 5000 moveto 100 0 rlineto stroke -50 6000 moveto 100 0 rlineto stroke TM -500 -80 moveto (-2) show -500 1920 moveto (-1) show -350 3920 moveto (0) show -350 5920 moveto (2) show %LULWALL1.FOR mit FOR002.DAT=DAPO8XY2.DAT % IM1,JM,LM0: 20 2 20 %WRPOS:LULWALL.FOR: MOR/MUL(X/Y): 2000 2000 4000 2000 %X: 197.48 120.27 74.34 49.81 34.40 24.67 %X: 17.74 12.87 9.19 5.12 3.17 1.94 %X: 1.28 0.88 0.63 0.46 0.30 0.24 %X: 0.17 0.12 0.12 0.12 %Y: 1.16 0.69 0.41 0.28 0.18 0.15 %Y: 0.10 0.10 0.08 0.07 0.05 0.04 %Y: 0.03 0.02 0.02 0.02 0.02 0.02 %Y: 0.02 0.02 0.02 0.02 %X: 2.30 2.08 1.87 1.70 1.54 1.39 %X: 1.25 1.11 0.96 0.71 0.50 0.29 %X: 0.11 -0.06 -0.20 -0.34 -0.52 -0.62 %X: -0.77 -0.92 -0.92 -0.92 %Y: 0.06 -0.16 -0.39 -0.55 -0.74 -0.82 %Y: -1.00 -1.02 -1.09 -1.18 -1.32 -1.44 %Y: -1.52 -1.62 -1.66 -1.66 -1.70 -1.74 %Y: -1.74 -1.74 -1.74 -1.74 %!MORX,MULX,MORY,MULY,TE(1): 2000 2000 4000 2000 QPS 6591 4128 moveto 6160 3678 5742 3230 5394 2907 curveto 5073 2521 4784 2364 4497 2000 curveto 4219 1965 3926 1828 3418 1640 curveto 3002 1363 2575 1113 2214 955 curveto 1889 761 1599 685 1326 685 curveto 955 603 761 511 461 511 curveto 159 511 159 511 159 511 curveto stroke %WRPOS:LULWALL.FOR: MOR/MUL(X/Y): 2000 2000 4000 2000 %X: 197.48 120.27 74.34 49.81 34.40 24.67 %X: 17.74 12.87 9.19 5.12 3.17 1.94 %X: 1.28 0.88 0.63 0.46 0.30 0.24 %X: 0.17 0.12 0.12 0.12 %Y: 2.04 1.19 0.84 0.56 0.42 0.30 %Y: 0.26 0.18 0.15 0.10 0.08 0.06 %Y: 0.05 0.04 0.04 0.04 0.03 0.04 %Y: 0.03 0.03 0.03 0.03 %X: 2.30 2.08 1.87 1.70 1.54 1.39 %X: 1.25 1.11 0.96 0.71 0.50 0.29 %X: 0.11 -0.06 -0.20 -0.34 -0.52 -0.62 %X: -0.77 -0.92 -0.92 -0.92 %Y: 0.31 0.07 -0.08 -0.25 -0.37 -0.52 %Y: -0.59 -0.75 -0.83 -1.02 -1.12 -1.20 %Y: -1.29 -1.37 -1.39 -1.44 -1.46 -1.46 %Y: -1.53 -1.53 -1.53 -1.53 %!MORX,MULX,MORY,MULY,TE(1): 2000 2000 4000 2000 QPS 6591 4618 moveto 6160 4148 5742 3850 5394 3503 curveto 5073 3251 4784 2964 4497 2829 curveto 4219 2492 3926 2336 3418 1970 curveto 3002 1767 2575 1594 2214 1428 curveto 1889 1268 1599 1211 1326 1115 curveto 955 1079 761 1090 461 941 curveto 159 937 159 937 159 937 curveto stroke %WRPOS:LULWALL.FOR: MOR/MUL(X/Y): 2000 2000 4000 2000 %X: 197.48 120.27 74.34 49.81 34.40 24.67 %X: 17.74 12.87 9.19 5.12 3.17 1.94 %X: 1.28 0.88 0.63 0.46 0.30 0.24 %X: 0.17 0.12 0.12 0.12 %Y: 3.65 2.02 1.31 0.88 0.69 0.49 %Y: 0.40 0.33 0.28 0.18 0.14 0.11 %Y: 0.09 0.08 0.07 0.06 0.05 0.05 %Y: 0.05 0.04 0.04 0.04 %X: 2.30 2.08 1.87 1.70 1.54 1.39 %X: 1.25 1.11 0.96 0.71 0.50 0.29 %X: 0.11 -0.06 -0.20 -0.34 -0.52 -0.62 %X: -0.77 -0.92 -0.92 -0.92 %Y: 0.56 0.31 0.12 -0.05 -0.16 -0.31 %Y: -0.40 -0.48 -0.55 -0.74 -0.86 -0.94 %Y: -1.04 -1.11 -1.14 -1.21 -1.27 -1.27 %Y: -1.32 -1.39 -1.39 -1.39 %!MORX,MULX,MORY,MULY,TE(1): 2000 2000 4000 2000 QPS 6591 5125 moveto 6160 4612 5742 4236 5394 3891 curveto 5073 3677 4784 3387 4497 3210 curveto 4219 3050 3926 2905 3418 2530 curveto 3002 2282 2575 2111 2214 1913 curveto 1889 1772 1599 1721 1326 1586 curveto 955 1455 761 1455 461 1367 curveto 159 1226 159 1226 159 1226 curveto stroke 40 setlinewidth [100] 0 setdash %WRPOS:LULWALL.FOR: MOR/MUL(X/Y): 2000 2000 4000 2000 %X: 197.48 120.27 74.34 49.81 34.40 24.67 %X: 17.74 12.87 9.19 5.12 3.17 1.94 %X: 1.28 0.88 0.63 0.46 0.30 0.24 %X: 0.17 0.12 0.12 0.12 %Y: 1.16 0.71 0.45 0.31 0.22 0.16 %Y: 0.12 0.09 0.07 0.05 0.04 0.03 %Y: 0.02 0.02 0.02 0.02 0.02 0.02 %Y: 0.02 0.02 0.02 0.02 %X: 2.30 2.08 1.87 1.70 1.54 1.39 %X: 1.25 1.11 0.96 0.71 0.50 0.29 %X: 0.11 -0.06 -0.20 -0.34 -0.52 -0.62 %X: -0.77 -0.92 -0.92 -0.92 %Y: 0.07 -0.15 -0.35 -0.51 -0.66 -0.80 %Y: -0.92 -1.04 -1.15 -1.33 -1.45 -1.55 %Y: -1.61 -1.66 -1.68 -1.71 -1.73 -1.74 %Y: -1.75 -1.75 -1.75 -1.75 %!MORX,MULX,MORY,MULY,TE(1): 2000 2000 4000 2000 QPS 6591 4130 moveto 6160 3709 5742 3303 5394 2972 curveto 5073 2671 4784 2409 4497 2158 curveto 4219 1925 3926 1694 3418 1339 curveto 3002 1098 2575 903 2214 776 curveto 1889 689 1599 631 1326 588 curveto 955 546 761 530 461 510 curveto 159 496 159 496 159 496 curveto stroke 5650 0650 moveto 500 0000 rlineto stroke 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 DG011-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 (DG011-4,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 08 MM sub 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 25 %line 469 %!PS-Adobe-3.0 EPSF-3.0 DG011-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 (DG011-5,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 26 %line 479 %!PS-Adobe-3.0 EPSF-3.0 DG011-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 (DG011-6,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 08 MM sub 020 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 27 %line 489 %!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/DG01/DG01.HTM 7N_R 20180701 %%BoundingBox: 70 83 392 33 %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/DG01/DG01.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:2018070112000) /ModDate (D:20180701112000) /DOCINFO pdfmark17 [ /View [ /Fit ] /DOCVIEW pdfmark17 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % 113mm = 113*72/25.4 = 320; 320+72 = 392 % 60mm = 60*72/25.4 = 176; 170+90+8 = 268 % !Exchange 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 %%EndProlog gsave %LANINDL2 START 20000505 /lanind 1 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 0 def /lanind2 0 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 (DG011-7) show xchart 0 eq {(N) show} {deintp colorm 2 mul add cvishow} ifelse 72 90 translate /yhoe 8500 def /xwidth 11200 def 0.01 MM dup scale 15 setlinewidth 0.0 0.0 1.0 0.0 setcmyk_olvcolor 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmyk_olvcolor 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath stroke /tfo {0 1 1 0 setcmyk_olvcolor} def /tfl {1 0 1 0 setcmyk_olvcolor} def /tfv {1 1 0 0 setcmyk_olvcolor} def /tfn {0 0 0 1 setcmyk_olvcolor} def /tfw {0 0 0 0 setcmyk_olvcolor} def /yd -520 def %y-Zeilenabstand %Spalten /S1 100 def /S2 200 def /S3 2200 def /S4 8550 def /yz 480 def /yu0 1100 def /yu1 {yu0 -100 add yz 3.7 mul add} bind def /yu2 {yu1 000 add yz 0.0 mul add} bind def /yu3 {yu2 200 add yz 5.9 mul add} bind def /yu4 {yu3 100 add yz 1.80 mul add} bind def /yu5 {yu4 050 add yz 1.80 mul add} bind def /yu6 {yu5 000 add yz 1.0 mul add} bind def 0 yu5 320 add moveto xwidth 0 rlineto stroke 0 yu4 400 add moveto xwidth 0 rlineto stroke 0 yu3 350 add moveto xwidth 0 rlineto stroke 0 yu2 320 add moveto xwidth 0 rlineto stroke S3 100 sub yhoe 440 sub moveto 0 yhoe 440 sub neg rlineto stroke S4 100 sub yhoe 440 sub moveto 0 yhoe 440 sub neg rlineto stroke /tedef {/anz exch def /ydt exch def /y0t exch def /x0t exch def} bind def /ns {350 /Times-ISOL1 FS show} bind def /ks {350 /TimesI-ISOL1 FS show} bind def /bs {350 /TimesB-ISOL1 FS show} bind def /js {350 /TimesBI-ISOL1 FS show} bind def /ss {350 /Symbol FS show} bind def /is {250 /Times-ISOL1 FS 0 -90 rlineto show 0 90 rlineto} bind def /es {250 /Times-ISOL1 FS 0 200 rlineto show 0 -200 rlineto} bind def /TEn {350 /Times-ISOL1 FS tedef} bind def /TEk {350 /TimesI-ISOL1 FS tedef} bind def /TEb {350 /TimesB-ISOL1 FS tedef} bind def /TEj {350 /TimesBI-ISOL1 FS tedef} bind def /TEs {350 /Symbol FS tedef} bind def %20% kleiner /ns2 {280 /Times-ISOL1 FS show} bind def /ks2 {280 /TimesI-ISOL1 FS show} bind def /bs2 {280 /TimesB-ISOL1 FS show} bind def /js2 {280 /TimesBI-ISOL1 FS show} bind def /is2 {200 /Times-ISOL1 FS 10 -40 rlineto show -10 40 rlineto} bind def /iks2 {200 /TimesI-ISOL1 FS 10 -40 rlineto show -10 40 rlineto} bind def /es2 {250 /Times-ISOL1 FS 0 160 rlineto show 0 -160 rlineto} bind def /TEn2 {280 /Times-ISOL1 FS tedef} bind def /TEk2 {280 /TimesI-ISOL1 FS tedef} bind def /TEb2 {280 /TimesB-ISOL1 FS tedef} bind def /TEj2 {280 /TimesBI-ISOL1 FS tedef} bind def /TEs2 {280 /Symbol FS tedef} bind def /TEA {anz 1 sub -1 0 {ydt mul y0t add x0t exch moveto show} for} bind def /TBM1 {300 /TimesB-ISOL1 FS} bind def %Titeltext TBG S1 yu6 yd 0 mul add moveto (H\366here Farbmetrik \050Farbdaten: ) showde %0DG011-7 00T04 (higher colour metric \050color data: ) showen %1DG011-7 00T04 (m\351trico de color alto ) showes %2DG011-7 00T03 (colorim\351trie sup\351rieure \050donn\351es: ) showfr %3DG011-7 00T03 TBM1 (Metrica del colore basata sulla percezione : ) showit %4DG011-7 00T03 TBG (h\370yere fargemetrikk \050fargedata: ) showjp %5DG011-7 00T03 (nichtlineare Beziehung zu CIE 1931\051) showde %0DG011-7 01T04 (nonlinear relation to CIE 1931 data\051) showen %1DG011-7 01T04 (\050relaci\363n no lineal con los datos CIE 1931\051) showes %2DG011-7 01T04 (relation non lin\351aire \340 CIE 1931\051) showfr %3DG011-7 01T04 TBM1 ((relazioni non lineari dai dati CIE 1931)) showit %4DG011-7 01T04 TBG (ikke\255line\346r relasjon til CIE 1931 data\051) showjp %5DG011-7 01T04 S1 yu5 yd 0 mul add moveto (nichtlineare) showde %0DG011-7 02T04 (nonlinear ) showen %1DG011-7 02T04 (t\351rminos) showes %2DG011-7 02T04 (terme) showfr %3DG011-7 02T04 TBM (termini di colore) showit %4DG010-7 02T03 TBG (ikke\255line\346re) showjp %5DG011-7 02T04 S1 yu5 400 sub moveto (Farbgr\366\337en) showde %0DG011-7 03T04 (color terms) showen %1DG011-7 03T04 (no lineales) showes %2DG011-7 03T04 (non lin\351aire) showfr %3DG011-7 03T04 TBM ("non lineare") showit %4DG010-7 03T03 TBG (st\370rrelser) showjp %5DG011-7 03T04 %TBK %three lines for it % S1 50 sub yu5 050 add moveto %(Denominazione) showit %4DG011-7 02T04 % S1 50 sub yu5 200 sub moveto %(degli attributi di) showit %4DG011-7 03T04 % S1 50 sub yu5 450 sub moveto %(colori "non lineari") showit %4DG011-7 03T0 %TBG S3 yu5 yd 0 mul add moveto (Name und Zusammenhang mit) showde %0DG011-7 04T04 (name and relationship with) showen %1DG011-7 04T04 (nombre y relaci\363n con) showes %2DG011-7 04T04 (nom et rapport aux valeurs) showfr %3DG011-7 04T04 TBM1 (Simbolo e relazione con i valori tristimolo) showit %4DG011-7 04T04 TBG (navn og sammenheng med) showjp %5DG011-7 04T04 S3 yu5 400 sub moveto (Normfarbwerten und \255anteilen) showde %0DG011-7 05T04 (tristimulues or chromaticity values) showen %1DG011-7 05T04 (valores triest\355mulo o cromaticidad) showes %2DG011-7 05T04 (de tristimulus ou de chromaticit\351) showfr %3DG011-7 05T04 TBM1 (o di cromaticit\340 CIE) showit %4DG011-7 05T04 TBG (tristimulus\255 eller kromatisitetsverdier) showjp %5DG011-7 05T04 S4 yu5 yd 0 mul add moveto (Bemerkungen) showde %0DG011-7 06T04 (notes) showen %1DG011-7 06T04 (notas) showes %2DG011-7 06T04 (remarque) showfr %3DG011-7 06T04 TBM1 (Note) showit %4DG011-7 06T04 TBG (merknader) showjp %5DG011-7 06T04 TM S4 yu4 50 sub yd 0 mul add moveto (CIELAB 1976) showde %0DG011-7 07T04 (CIELAB 1976) showen %1DG011-7 07T04 (CIELAB 1976) showes %2DG011-7 07T04 (CIELAB 1976) showfr %3DG011-7 07T04 (CIELAB 1976) showit %4DG011-7 07T04 (CIELAB 1976) showjp %5DG011-7 07T04 TM S4 yu3 yd 1 mul add moveto (CIELAB 1976) show S4 yu3 yd 3 mul add moveto (CIELAB 1976) show TIM S4 yu3 yd 4 mul add moveto (n=D65) show TIM S4 yu3 yd 5 mul add moveto (\050Umfeld\051) showde %0DG011-7 08T04 (\050background\051) showen %1DG011-7 08T04 (\050campo circundante\051) showes %2DG011-7 08T04 (\050fond\051) showfr %3DG011-7 08T04 (\050sfondo\051) showit %4DG011-7 08T04 (\050omfelt\051) showjp %5DG011-7 08T04 TM S4 yu3 yd 3 mul add moveto (CIELAB 1976) show TBM S1 yu4 50 sub yd 0 mul add moveto (Helligkeit) showde %0DG011-7 09T04 (lightness) showen %1DG011-7 09T04 (claridad) showes %2DG011-7 09T04 (clart\351) showfr %3DG011-7 09T04 (chiarezza) showit %4DG011-7 09T04 (lyshet) showjp %5DG011-7 09T04 S3 yu4 50 sub moveto (L*) ks ( = 116 \050 ) ns (Y) ks ( / 100 \051 ) ns (1/3) es ( - 16) ns ( ) show (\050Y) ks ( > 0,8\051) ns TM S3 yu4 yd add moveto (N\344herung: ) showde %0DG011-7 10T04 (approximation: ) showen %1DG011-7 10T04 (aproximaci\363n: ) showes %2DG011-7 10T04 (approximation:) showfr %3DG011-7 10T04 (Approssimazione: ) showit %4DG011-7 10T04 (tiln\346rming: ) showjp %5DG011-7 10T04 S3 2400 add yu4 yd add moveto (L*) ks (=100 \050) ns (Y) ks (/100\051) ns (1/2,4) es ( \050Y) ks ( >0\051) ns TBM S1 yu3 yd 0 mul add moveto (Buntheit) showde %0DG011-7 11T04 (chroma) showen %1DG011-7 11T04 (croma) showes %2DG011-7 11T04 (chroma) showfr %3DG011-7 11T04 (croma) showit %4DG011-7 11T04 (kul\370rthet ) showjp %5DG011-7 11T04 TIM S3 yu3 yd 0 mul add moveto (nichtlineare Transformation Buntwerte) showde %0DG011-7 12T04 (nonlinear transform chromatic values) showen %1DG011-7 12T04 (transformaci\363n nolin de crom\341ticos) showes %2DG011-7 12T04 (transformation non lin\351aire des valeurs) showfr %3DG011-7 12T04 (trasformazioni non lineari dei valori cromatici) showit %4DG011-7 12T04 (ikke\255line\346r transformasjon av kul\370rverdier) showjp %5DG011-7 12T04 ( A, B) show TM S2 yu3 yd 1 mul add moveto (Rot-Gr\374n) showde %0DG011-7 13T04 (red-green) showen %1DG011-7 13T04 (rojo-verde) showes %2DG011-7 13T04 (rouge-vert) showfr %3DG011-7 13T04 (rosso-verde) showit %4DG011-7 13T04 (r\370d-gr\370nn) showjp %5DG011-7 13T04 TM S2 yu3 yd 3 mul add moveto (Gelb-Blau) showde %0DG011-7 14T04 (yellow-blue) showen %1DG011-7 14T04 (amarillo-azul) showes %2DG011-7 14T04 (jaune-bleu) showfr %3DG011-7 14T04 (giallo-blu) showit %4DG011-7 14T04 (gul-bl\345) showjp %5DG011-7 14T04 TM S2 yu3 yd 5 mul add moveto (radial) showde %0DG011-7 15T04 (radial) showen %1DG011-7 15T04 (radial) showes %2DG011-7 15T04 (radial) showfr %3DG011-7 15T04 (radiale) showit %4DG011-7 15T04 (radiell) showjp %5DG011-7 15T04 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 TBM S1 yu1 50 sub yd 0 mul add moveto (Farbart) showde %0DG011-7 16T04 (chromaticity) showen %1DG011-7 16T04 (cromaticidad) showes %2DG011-7 16T04 (chromaticit\351) showfr %3DG011-7 16T04 (cromaticit\340) showit %4DG011-7 16T04 (kromatisitet) showjp %5DG011-7 16T04 TIM S3 yu1 50 sub yd 0 mul add moveto (nichtlinearer Transfer Farbarten) showde %0DG011-7 17T04 (nonlinear transform chromaticities) showen %1DG011-7 17T04 (transformaci\363n no lineal de cromaticidades) showes %2DG011-7 17T04 (transformation non lin\351aire) showfr %3DG011-7 17T04 (trasformazioni non lineari delle cromaticit\340) showit %4DG011-7 17T04 (ikke\255line\346r transformasjon av kromatisiteter) showjp %5DG011-7 17T04 ( x/y, z/y) show TIM S4 50 sub yu1 50 sub yd 0 mul add moveto (vergleiche log) showde %0DG011-7 18T04 (compare to log) showen %1DG011-7 18T04 (comparar log) showes %2DG011-7 18T04 (comparer log) showfr %3DG011-7 18T04 (confrontabili con le) showit %4DG011-7 18T04 (sammenlign med log) showjp %5DG011-7 18T04 S4 50 sub yu1 00 sub yd 0.7 mul add moveto (Zapfens\344ttigung) showde %0DG011-7 19T04 (cone excitation) showen %1DG011-7 19T04 (excitaci\363n de conos) showes %2DG011-7 19T04 (stimulation des c\364nes) showfr %3DG011-7 19T04 (sensibilit\340 dei coni in) showit %4DG011-7 19T04 (tappe\255eksitasjon) showjp %5DG011-7 19T04 S4 50 sub yu1 yd 1.4 mul add moveto () showde %0DG011-7 20T04 () showen %1DG011-7 20T04 () showes %2DG011-7 20T04 () showfr %3DG011-7 20T04 (modo logaritmico) showit %4DG011-7 20T04 () showjp %5DG011-7 20T04 TM S4 yu1 yd 2.3 mul add moveto 0 0 1 0 setcmyk_olvcolor (= ) show tfn (log[) show TIM tfo (L) show TM tfn ( / \050) show TIM tfo (L) show TM tfn (+) show TIM tfl (M) show TM tfn (\051]) show S4 yu1 yd 3.2 mul add moveto tfn (= ) show tfn (log[) show TIM tfo (P) show TM tfn ( / \050) show TIM tfo (P) show TM tfn (+) show TIM tfl (D) show TM tfn (\051]) show S4 yu1 yd 4.1 mul add moveto 0 0 1 0 setcmyk_olvcolor (= ) show tfn (log[) show TIM tfv (S) show TM tfn ( / \050) show TIM tfo (L) show TM tfn (+) show TIM tfl (M) show TM tfn (\051]) show S4 yu1 yd 5 mul add moveto tfn (= ) show tfn (log[) show TIM tfv (T) show TM tfn ( / \050) show TIM tfo (P) show TM tfn (+) show TIM tfl (D) show TM tfn (\051]) show TM S2 yu1 yd 1 mul add moveto (Rot-Gr\374n) showde %0DG011-7 21T04 (red-green) showen %1DG011-7 21T04 (rojo-verde) showes %2DG011-7 21T04 (rouge-vert) showfr %3DG011-7 21T04 (rosso-verde) showit %4DG011-7 21T04 (r\370d-gr\370nn) showjp %5DG011-7 21T04 TM S2 yu1 yd 3 mul add moveto (Gelb-Blau) showde %0DG011-7 22T04 (yellow-blue) showen %1DG011-7 22T04 (amarillo-azul) showes %2DG011-7 22T04 (jaune-bleu) showfr %3DG011-7 22T04 (giallo-blu) showit %4DG011-7 22T04 (gul-bl\345) showjp %5DG011-7 22T04 TM S2 yu1 yd 5 mul add moveto (radial) showde %0DG011-7 23T04 (radial) showen %1DG011-7 23T04 (radial) showes %2DG011-7 23T04 (radial) showfr %3DG011-7 23T04 (radiale) showit %4DG011-7 23T04 (radiell) showjp %5DG011-7 23T04 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 TM ( f\374r ) showde %0DG011-7 24T04 ( for ) showen %1DG011-7 24T04 ( para ) showes %2DG011-7 24T04 ( pour) showfr %3DG011-7 24T04 ( per) showit %4DG011-7 24T04 ( for ) showjp %5DG011-7 24T04 (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 TM ( f\374r ) showde %0DG011-7 25T04 ( for ) showen %1DG011-7 25T04 ( para ) showes %2DG011-7 25T04 ( pour ) showfr %3DG011-7 25T04 ( per ) showit %4DG011-7 25T04 ( for ) showjp %5DG011-7 25T04 (D65) show S3 yu1 yd 5 mul add moveto (c') ks (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 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 DG011-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 (DG011-8,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 080 MM add 008 MM translate %80 MM Breite von TestStreifen 10 /Times-ISOL1 FS 53 MM 1 MM moveto () show 1 1 scale -77 21 MM sub -91 translate %%BeginDocument: Bild 29 Teststreifen Ueberlaenge %line 509 %%EndDocument EndEPSF grestore gsave BeginEPSF -0.0 MM -0.0 MM translate %xy-Verschiebung Rechteckrahmen nach innen% %%BeginDocument: Bild 30 %Rechteckrahmen %line 519 %!PS-Adobe-3.0 EPSF-3.0 Frame arround with Internet text DG02 20070101 %%BoundingBox: 0 0 598 845 %%EndProlog gsave /lanind 1 def /lantex [(G) (E) (S) (N) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanind1 01 def /lanind2 01 def /lanindd 01 def /colorm1 00 def /colorm2 00 def /colormd 01 def /deintp1 00 def /deintp2 00 def /deintpd 01 def /xcolor1 00 def /xcolor2 00 def /xcolord 01 def /xchart1 00 def /xchart2 00 def /xchartd 01 def /pchart1 00 def /pchart2 00 def /pchartd 01 def /colsep1 00 def /colsep2 00 def /colsepd 01 def /pmetam1 00 def /pmetam2 00 def /pmetamd 01 def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} if /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} if /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} if /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} if /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 1 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /xchart5f where {pop /xchart5 xchart5f def} {/xchart5 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} if /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} if /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} if /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES 0 def /i*ptrsc 0 def gsave 0 setgray 1.0 1.0 scale 0.0 MM 0.0 MM translate 0.15 MM setlinewidth /x 20 array def /y 20 array def /d 20 array def /x [000 296 296 000 002 294 294 002 005 291 291 005 %speziell 006 290 290 006 008 288 288 008 ] def /y [000 000 210 210 002 002 208 208 005 005 205 205 %speziell 006 006 204 204 008 008 202 202 ] def /d [060 017 -60 -17 058 015 -58 -15 056 013 -56 -13 054 011 -54 -11 052 009 -52 -09 ] def 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 xchart3 lt {/Txx (-) def /Fxx (-) def} if xchart xchart3 ge {%xchart>=xchart3 /i0 12 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def 2.5 MM /Times-ISOL1 FS x i0 get MM 40 MM add y i0 get MM 1 MM sub moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolor cvishow xchart cvishow pchart cvishow colsep cvishow (-F) show pmetam cvishow } if %xchart>=xchart3 /xt 1 def xchart 1 eq {/xt 1 def} if xt 0 eq {%xt=0,1 ifelse /i0 12 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def 2.5 MM /Times-ISOL1 FS x i0 get MM 110 MM add y i0 get MM 1 MM sub moveto (http://130.149.60.45/~farbmetrik/DG01/DG01) show colorm cvishow deintp cvishow colorm 0 eq {(N) show} {(F) show} ifelse (P.PDF & ) show (http://130.149.60.45/~farbmetrik/DG01/DG01) show colorm cvishow deintp cvishow colorm 0 eq {(N) show} {(F) show} ifelse (P.TXT & ) show (http://130.149.60.45/~farbmetrik/DG01/DG01.HTM) show } %xt=0 { %xt=1 /xlu 017 MM def /ylu 017 MM def /xro 279 MM def /yro 193 MM def /xlo 017 MM def /ylo 193 MM def /xru 279 MM def /yru 017 MM def xlu 8 MM sub ylu moveto 16 MM 0 rlineto stroke xlu ylu 8 MM sub moveto 0 16 MM rlineto stroke xro 8 MM add yro moveto -16 MM 0 rlineto stroke xro yro 8 MM add moveto 0 -16 MM rlineto stroke xru 8 MM sub yru moveto 16 MM 0 rlineto stroke xru yru 8 MM sub moveto 0 16 MM rlineto stroke xlo 8 MM add ylo moveto -16 MM 0 rlineto stroke xlo ylo 8 MM add moveto 0 -16 MM rlineto stroke 1 2 7 {/i exch def %Zentrierkreise xlu ylu i MM 0 360 arc stroke xro yro i MM 0 360 arc stroke xru yru i MM 0 360 arc stroke xlo ylo i MM 0 360 arc stroke } for %i 12 4 16 {/i exch def /i0 i def %i=0,16 %0 4 16 {/i exch def /i0 i def %i=0,16 /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse 0 setgray x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto x i0 get MM y i0 get MM lineto stroke i 16 eq {6 /Times-ISOL1 FS /x00 67 def /xdif 32 def /y0o 202.3 def /y0u 6.3 def /x0l 6.1 def /x0r 288 def /y00 22 def /ydif 32 def x00 xdif 0 mul add MM y0o MM moveto (V) show x00 xdif 0 mul add MM y0u MM moveto (C) show x00 xdif 1 mul add MM y0o MM moveto (L) show x00 xdif 1 mul add MM y0u MM moveto (M) show x00 xdif 2 mul add MM y0o MM moveto (O) show x00 xdif 2 mul add MM y0u MM moveto (Y) show x00 xdif 3 mul add MM y0o MM moveto (Y) show x00 xdif 3 mul add MM y0u MM moveto (O) show x00 xdif 4 mul add MM y0o MM moveto (M) show x00 xdif 4 mul add MM y0u MM moveto (L) show x00 xdif 5 mul add MM y0o MM moveto (C) show x00 xdif 5 mul add MM y0u MM moveto (V) show x0l MM y00 ydif 0 mul add MM moveto (V) show x0r MM y00 ydif 0 mul add MM moveto (C) show x0l MM y00 ydif 1 mul add MM moveto (L) show x0r MM y00 ydif 1 mul add MM moveto (M) show x0l MM y00 ydif 2 mul add MM moveto (O) show x0r MM y00 ydif 2 mul add MM moveto (Y) show x0l MM y00 ydif 3 mul add MM moveto (Y) show x0r MM y00 ydif 3 mul add MM moveto (O) show x0l MM y00 ydif 4 mul add MM moveto (M) show x0r MM y00 ydif 4 mul add MM moveto (L) show x0l MM y00 ydif 5 mul add MM moveto (C) show x0r MM y00 ydif 5 mul add MM moveto (V) show } if } for %i=0,16 0 1 10 {/j0 exch def /j1 j0 1 add def %j0 j0 0 eq {tzccmy0* setcmykcolor} if j0 1 eq {0 setgray} if j0 2 eq {tzmcmy0* setcmykcolor} if j0 3 eq {0 setgray} if j0 4 eq {tzycmy0* setcmykcolor} if j0 5 eq {0 setgray} if j0 6 eq {tzocmy0* setcmykcolor} if j0 7 eq {0 setgray} if j0 8 eq {tzlcmy0* setcmykcolor} if j0 9 eq {0 setgray} if j0 10 eq {tzvcmy0* setcmykcolor} if 12 4 16 {/i exch def /i0 i def %i=0,16 %0 4 16 {/i exch def /i0 i def %i=0,16 /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse x i0 get d i0 get add 16 j0 mul add MM y i0 get MM moveto x i0 get d i0 get add 16 j1 mul add MM y i0 get MM lineto stroke x i1 get MM y i1 get d i1 get add 16 j0 mul add MM moveto x i1 get MM y i1 get d i1 get add 16 j1 mul add MM lineto stroke x i2 get d i2 get add 16 j0 mul sub MM y i2 get MM moveto x i2 get d i2 get add 16 j1 mul sub MM y i2 get MM lineto stroke x i3 get MM y i3 get d i3 get add 16 j0 mul sub MM moveto x i3 get MM y i3 get d i3 get add 16 j1 mul sub MM lineto stroke } for %i=0,16 } for %j0 0.15 MM setlinewidth /s 7 MM def /s1 8 MM def /s5 36 MM def 16 1 20 {/j exch def /j0 j 16 sub def %j=16,20 /ix0 xlu 8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def 0 1 3 {/ij exch def %ij=0,3 ij 0 eq {/ix0 xlu 8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def} if ij 1 eq {/ix0 xru 43 MM sub j0 7 MM mul add def /iy0 yru 8 MM sub def} if ij 2 eq {/ix0 xlo 8 MM add j0 7 MM mul add def /iy0 ylo 1 MM add def} if ij 3 eq {/ix0 xro 43 MM sub j0 7 MM mul add def /iy0 yro 1 MM add def} if i*ptrsc 0 eq i*ptrsc 2 eq or {%i*ptrsc=0,2 cmy0* setcmykcolor j 16 eq {tzan j get dup dup 0 setcmykcolor ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if tzan j get dup dup 0 setcmykcolor ix0 iy0 s s rec fill } if %i*ptrsc=0,2 i*ptrsc 1 eq i*ptrsc 3 eq or {%i*ptrsc=1,3 www* setrgbcolor j 16 eq {1 tzan j get 1 sub dup dup setrgbcolor %N ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 1 tzan j get sub dup dup setrgbcolor %N ix0 iy0 s s rec fill } if %i*ptrsc=1,3 i*ptrsc 4 eq i*ptrsc 5 eq or {%i*ptrsc=4,5 [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace j 16 eq {tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add setcolor %N ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add setcolor %N ix0 iy0 s s rec fill } if %i*ptrsc=4,5 i*ptrsc 6 eq {%i*ptrsc=6 000n* setcmykcolor j 16 eq {0 0 0 tzan j get setcmykcolor ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 0 0 0 tzan j get setcmykcolor ix0 iy0 s s rec fill } if %i*ptrsc=6 i*ptrsc 7 eq {%i*ptrsc=7 w* setgray j 16 eq {1 tzan j get sub setgray ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 1 tzan j get sub setgray ix0 iy0 s s rec fill } if %i*ptrsc=7 } for %ij=0,3 } for %j=16,20 0 setgray 018 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show 018 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show 276 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show 276 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show 018 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show 018 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show 276 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show 276 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show %xchart3 0 def %with Munsell colours %xchart3 1 def %with Ostwald colours %xchart3 2 det %without any colour %steered: xchart3 2 def %diagram 0:Munsell colours, 1:Ostwald colours, 2:- %xchart5 0 def %without marc illuminant and text %xchart5 1 def %with marc illuminant %xchart5 2 def %with marc illuminant and text %steered: xchart5 2 def %0:-, 1:illuminant, 2:illuminant and text %xchart6 0 def %without chromaticity_lines %xchart6 1 def %with chromaticity_lines %xchart6 2 def %with chromaticity_lines and names /xchart6 2 def %0:-, 1:chromaticity_lines 2:chromaticity_lines & names %xchart7 0 def %Ostwald colours without Name or Y %xchart7 1 def %Ostwald colours with Name %xchart7 2 def %Ostwald colours with CIE Y /xchart7 2 def %0:-, 1:Name, 2:Y %xchartl with 0 1 2 3 4 5 6 7 %xchart8 0 def %0:Pxx (P60, P55, P50, P45, P40, P35, P30, P25) colours %xchart8 1 def %1:Dxx (D65, D50, P40, A00, E00, C00, P00, Q00) colours /xchart8 0 def %0:Pxx, 1:Dxx colours %xchart9 0 def %for Y10-7R.EPS -> Table XYZ, not used here %xchart9 1 def %for Y10-7R.EPS -> Table CAB, not used here %xchart9 2 def %for Y10-7R.EPS -> Table (a,b), not used here /xchart9 0 def %Table 0:(XYZ), 1:(CAB), 2(ab) %xchart10 0 def %for Y10G00NA.PS6.PS -> chromaticity coordinates (ai,bi) %xchart10 1 def %for Y10G00NA.PS6.PS -> chromatic values (Ai,Bi) %xchart10 2 def %for Y10G00NA.PS6.PS -> chroma (A*i,B*i) /xchart10 1 def %diagram 0:(ai,bi), 1:(Ai,Bi), 2:(A*i,B*i) /TELi 8 array def xchart8 0 eq {%xchart8=0 /TELi [(P60) (P55) (P50) (P45) (P40) (P35) (P30) (P25)] def }%xchart8=0 {%xchart8=1 /TELi [(D65) (D50) (P40) (A00) (E00) (C00) (P00) (Q00)] def } ifelse %xchart8=1 /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 %special /10TIN10 {10TIN 0 -3 rmoveto xcolor 1 eq {(10) show} if 0 3 rmoveto} def /10TINi10 {10TIN 0 -3 rmoveto (i) show xcolor 1 eq {(,10) show} if 0 3 rmoveto} def 0 setgray 12TIN 61 MM 14 MM moveto (TUB\255Pr\374fvorlage DG01; ) showde %0DG01X-Y 0000# (TUB\255test chart DG01; ) showen %1DG01X-Y 0000# (gr\341fico TUB\255DG01; ) showes %2DG01X-Y 0000# (TUB\255test graphique DG01; ) showfr %3DG01X-Y 0000# (grafico TUB\255DG01; ) showit %4DG01X-Y 0000# (TUB\255test chart DG01; ) showjp %5DG01X-Y 0000# 12TIN (Special colorimetric proporties for colour vision and image technology) showea (spezielle farbmetrische Eigenschaften von Farbensehen und Bildtechnologie) showde 61 MM 09.5 MM moveto xchart3 0 eq {12TIN (Elementary colours, complementary wavelength, ) showea (and linear and nonlinear equations in colorimetry) showea (Elementarfarben, komplement\344re Wellenl\344ngen, ) showde (Gleichungen der niederen und h\366heren Farbmetrik) showde } if %xchart3=0 xchart3 1 eq {%xchart3=1 } if %xchart3=1 /iout 0 def iout 1 eq {%iout=1 12TIN 180 MM 14 MM moveto (Eingabe: ) showde %0DG01X-Y 0500# (input: ) showen %1DG01X-Y 0500# (entrada: ) showes %2DG01X-Y 0500# (entr\351e: ) showfr %3DG01X-Y 0500# (immettere: ) showit %4DG01X-Y 0500# (input: ) showjp %5DG01X-Y 0500# 12TII (w/rgb/cmyk -> rgb) show xchart xchart3 lt {(w/rgb/cmyk) show } if xchart xchart3 ge {%xchart>=xchart3 (rgb) show } if %xchart>=xchart3 10TIN 0 -2 rmoveto Txx show 0 2 rmoveto 12TIN 12TIN 165 MM 9 MM moveto (Ausgabe: ) showde %0DG01X-Y 0600# (output: ) showen %1DG01X-Y 0600# (salida: ) showes %2DG01X-Y 0600# (sortie: ) showfr %3DG01X-Y 0600# (uscita: ) showit %4DG01X-Y 0600# (output: ) showjp %5DG01X-Y 0600# %colorm=0,1! xchart xchart3 lt {%xchart=xchart3 12TIN (keine \304nderung) showde %0DG01X-Y 0700# (no change) showen %1DG01X-Y 0700# (ning\372n cambio) showes %2DG01X-Y 0700# (aucun changement) showfr %3DG01X-Y 0700# (nessun cambiamento) showit %4DG01X-Y 0700# (no change compared) showjp %5DG01X-Y 0700# }%xchart=xchart3 12TIN colorm 0 eq {%colorm=0 (Transfer nach ) showde %0DG01X-Y 0800# (transfer to ) showen %1DG01X-Y 0800# (transfiera a ) showes %2DG01X-Y 0800# (transf\351rer \340 ) showfr %3DG01X-Y 0800# (trasferire a ) showit %4DG01X-Y 0800# (transfer to ) showjp %5DG01X-Y 0800# }%colorm=0 {%colorm=1 (3D\255Linearisierung ) showde %0DG01X-Y 0900# (3D\255linearization to ) showen %1DG01X-Y 0900# (3D\255linealizaci\363n a ) showes %2DG01X-Y 0900# (linearisation 3D selon ) showfr %3DG01X-Y 0900# (3D\255linearizzazione a ) showit %4DG01X-Y 0900# (3D\255linearization to ) showjp %5DG01X-Y 0900# } 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 10TIN 0 -2 rmoveto Txx show 0 2 rmoveto 12TIN } ifelse %xchart=xchart3 } if %iout=1 %0 setgray %end white and unvisible 62 MM 198.5 MM moveto 12TRN (http://farbe.li.tu-berlin.de/DG01/DG01L) show 12TIN (0) show LSC$ show LEX$ show iout 1 eq {%iout=1 %1 setgray %start white and unvisible (; ) show xchart xchart3 lt { (Start\255Ausgabe) showde %0DG01X-Y 1000# (start output) showen %1DG01X-Y 1000# (comience salida) showes %2DG01X-Y 1000# (sortie de production) showfr %3DG01X-Y 1000# (cominciare l'uscita) showit %4DG01X-Y 1000# (start output) showjp %5DG01X-Y 1000# } if LSC$ (C) eq { (Start\255Ausgabe) showde %0DG01X-Y 1100# (start output) showen %1DG01X-Y 1100# (comience salida) showes %2DG01X-Y 1100# (sortie de production) showfr %3DG01X-Y 1100# (cominciare l'uscita) showit %4DG01X-Y 1100# (start output) showjp %5DG01X-Y 1100# } if xchart xchart3 ge {%xchart>=xchart3 colorm 0 eq {%colorm=0,1 (Transfer Ausgabe) showde %0DG01X-Y 1200# (transfer output) showen %1DG01X-Y 1200# (salida de transferencia) showes %2DG01X-Y 1200# (sortie de transfert) showfr %3DG01X-Y 1200# (uscita di trasferimento) showit %4DG01X-Y 1200# (transfer output) showjp %5DG01X-Y 1200# }%colorm=0 {%colorm=1 (3D\255Linearisierung) showde %0DG01X-Y 1300# (3D\255linearization) showen %1DG01X-Y 1300# (3D\255linealizaci\363n) showes %2DG01X-Y 1300# (linearisation 3D) showfr %3DG01X-Y 1300# (3D\255linearizzzazione) showit %4DG01X-Y 1300# (3D\255linearization) showjp %5DG01X-Y 1300# } ifelse %colorm=0,1 } if %xchart>=xchart3 } if %iout=1 62 MM 194 MM moveto 12TIN LSC$ (N) eq LSC$ (C) eq or { (N: Keine 3D\255Linearisierung (OL) ) showde %0DG01X-Y 1400# (N: no 3D\255linearization (OL) ) showen %1DG01X-Y 1400# (N: ninguna 3D\255linealizaci\363n (OL) ) showes %2DG01X-Y 1400# (N: aucun linearisation 3D (OL) ) showfr %3DG01X-Y 1400# (N: nessun 3D\255linearizzazione (OL) ) showit %4DG01X-Y 1400# (N: no 3D\255linearization (OL) ) showjp %5DG01X-Y 1400# (in Datei (F) oder PS\255Startup (S)) showde %0DG01X-Y 1500# (in file (F) or PS\255startup (S)) showen %1DG01X-Y 1500# (en archivo (F) o PS\255startup (S)) showes %2DG01X-Y 1500# (dans fichier (F) ou PS\255startup (S)) showfr %3DG01X-Y 1500# (nel file (F) o PS\255startup (S)) showit %4DG01X-Y 1500# (in file (F) or PS\255startup (S)) showjp %5DG01X-Y 1500# } {LSC$ show (: ) show (3D\255Linearisierung) showde %0DG01X-Y 1600# (3D\255linearization) showen %1DG01X-Y 1600# (3D\255linealizaci\363n) showes %2DG01X-Y 1600# (linearisation 3D) showfr %3DG01X-Y 1600# (3D\255linearizzzazione) showit %4DG01X-Y 1600# (3D\255linearization) showjp %5DG01X-Y 1600# ( DG01/DG01L) show LSS$ show LSX$ show (0) show LSC$ show LEY$ show } ifelse LSC$ (F) eq { ( in Datei (F)) showde %0DG01X-Y 1700# ( in file (F)) showen %1DG01X-Y 1700# ( en archivo (F)) showes %2DG01X-Y 1700# ( dans fichier (F)) showfr %3DG01X-Y 1700# ( nel file (F)) showit %4DG01X-Y 1700# ( in file (F)) showjp %5DG01X-Y 1700# } if LSC$ (S) eq { ( im Distiller Startup (S) Directory) showde %0DG01X-Y 1800# ( in Distiller Startup (S) Directory) showen %1DG01X-Y 1800# ( en el Distiller Startup (S) Directory) showes %2DG01X-Y 1800# ( dans le Distiller Startup (S) Directory) showfr %3DG01X-Y 1800# ( nel Distiller Startup (S) Directory) showit %4DG01X-Y 1800# ( in Distiller Startup (S) Directory) showjp %5DG01X-Y 1800# } if LSC$ (D) eq { ( in PS\255Device (D)) showde %0DG01X-Y 1900# ( in PS\255device (D)) showen %1DG01X-Y 1900# ( en el PS\255device (D)) showes %2DG01X-Y 1900# ( dans l'appareil PS (D)) showfr %3DG01X-Y 1900# ( nel PS\255dispositivo (D)) showit %4DG01X-Y 1900# ( in PS\255Device (D)) showjp %5DG01X-Y 1900# } if LSC$ (T) eq { ( im Distiller Startup (S) Directory) showde %0DG01X-Y 2000# ( in Distiller Startup (S) Directory) showen %1DG01X-Y 2000# ( en el Distiller Startup (S) Directory) showes %2DG01X-Y 2000# ( dans le Distiller Startup (S) Directory) showfr %3DG01X-Y 2000# ( nel Distiller Startup (S) Directory) showit %4DG01X-Y 2000# ( in Distiller Startup (S) Directory) showjp %5DG01X-Y 2000# } if LSC$ (E) eq { ( in PS\255Device (D)) showde %0DG01X-Y 2100# ( in PS\255device (D)) showen %1DG01X-Y 2100# ( en el PS\255device (D)) showes %2DG01X-Y 2100# ( dans appareil PS (D)) showfr %3DG01X-Y 2100# ( nel PS\255dispositivo (D)) showit %4DG01X-Y 2100# ( in PS\255Device (D)) showjp %5DG01X-Y 2100# } if %0 setgray %end white and unvisible (, Seite ) showde %0DG01X-Y 2200# (, page ) showen %1DG01X-Y 2200# (, p\341gina ) showes %2DG01X-Y 2200# (, page ) showfr %3DG01X-Y 2200# (, pagina ) showit %4DG01X-Y 2200# (, page ) showjp %5DG01X-Y 2200# xchart 1 add cvishow (/) show xchartm cvishow 16 MM 185 MM moveto 12TIN -90 rotate (Siehe \344hnliche Dateien: ) showde %0DG01X-Y 2300# (see similar files: ) showen %1DG01X-Y 2300# (vea archivos semejantes: ) showes %2DG01X-Y 2300# (voir des fichiers similaires: ) showfr %3DG01X-Y 2300# (vedere dei file simili: ) showit %4DG01X-Y 2300# (see similar files: ) showjp %5DG01X-Y 2300# 12TRN (http://farbe.li.tu-berlin.de/DG01/DG01.HTM) show 12TIN %(0) show %LSC$ show LEX$ show 90 rotate 12 MM 185 MM moveto 12TIN -90 rotate (Technische Information: ) showde %0DG01X-Y 2400# (technical information: ) showen %1DG01X-Y 2400# (informaci\363n t\351cnica: ) showes %2DG01X-Y 2400# (informations techniques: ) showfr %3DG01X-Y 2400# (informazioni tecniche: ) showit %4DG01X-Y 2400# (technical information: ) showjp %5DG01X-Y 2400# 12TRN (http://farbe.li.tu-berlin.de) show 12TIN ( oder ) showde %0DG01X-Y 2500# ( or ) showen %1DG01X-Y 2500# ( o ) showes %2DG01X-Y 2500# ( ou ) showfr %3DG01X-Y 2500# ( o ) showit %4DG01X-Y 2500# ( or ) showjp %5DG01X-Y 2500# 12TRN (http://130.149.60.45/~farbmetrik) show 12TIN 90 rotate 281 MM 185 MM moveto 12TIN -90 rotate (TUB\255Registrierung: 20180701\255DG01/DG01L) showde %0DG01X-Y 2600# (TUB registration: 20180701\255DG01/DG01L) showen %1DG01X-Y 2600# (TUB matr\355cula: 20180701\255DG01/DG01L) showes %2DG01X-Y 2600# (TUB enregistrement: 20180701\255DG01/DG01L) showfr %3DG01X-Y 2600# (TUB iscrizione: 20180701\255DG01/DG01L) showit %4DG01X-Y 2600# (TUB registration: 20180701\255DG01/DG01L) showjp %5DG01X-Y 2600# (0) show LSC$ show LEX$ show 90 rotate 281 MM 74 MM moveto 12TIN -90 rotate (TUB\255Material: Code=rha4ta) showde %0DG01X-Y 2700# (TUB material: code=rha4ta) showen %1DG01X-Y 2700# (TUB material: code=rha4ta) showes %2DG01X-Y 2700# (TUB mat\351riel: code=rha4ta) showfr %3DG01X-Y 2700# (TUB materiale: code=rha4ta) showit %4DG01X-Y 2700# (TUB material: code=rha4ta) showjp %5DG01X-Y 2700# 90 rotate 277 MM 185 MM moveto 12TIN -90 rotate ( Anwendung f\374r Messung ) showde %0DG01X-Y 2800# ( application for measurement ) showen %1DG01X-Y 2800# ( aplicaci\363n para la medida ) showes %2DG01X-Y 2800# ( application pour la mesure ) showfr %3DG01X-Y 2800# ( la domanda per la misura ) showit %4DG01X-Y 2800# ( application for measurement ) showjp %5DG01X-Y 2800# xchart5f 0 eq {%xchart5f=0 (von Display-Ausgabe) showde %0DG01X-Y 2900# (of display output) showen %1DG01X-Y 2900# (de display output) showes %2DG01X-Y 2900# (de sortie sur \350cran) showfr %3DG01X-Y 2900# (di stampa di display) showit %4DG01X-Y 2900# (of display output) showjp %5DG01X-Y 2900# } if %xchart5f=0 xchart5f 1 eq xchart5f 2 eq or {%xchart5f=1,2 (von Offsetdruck\255Ausgabe) showde %0DG01X-Y 3000# (of offset print output) showen %1DG01X-Y 3000# (salida en la impressi\363n offset) showes %2DG01X-Y 3000# (des sorties sur offset) showfr %3DG01X-Y 3000# (uscita nella stampa di offset) showit %4DG01X-Y 3000# (of offset print output) showjp %5DG01X-Y 3000# } if %xchart5f=1,2 xchart5f 3 eq {%xchart5f=3 (von Laserdrucker\255Ausgabe) showde %0DG01X-Y 3100# (of laser printer output) showen %1DG01X-Y 3100# (salida de impresora l\341ser) showes %2DG01X-Y 3100# (des sorties sur imprimante laser) showfr %3DG01X-Y 3100# (di uscita della stampante laser) showit %4DG01X-Y 3100# (of laser printer output) showjp %5DG01X-Y 3100# } if %xchart5f=3 iout 1 eq {%iout=1 xchart xchart3 ge {%xchart>=xchart3 xchart5f 0 eq {%xchart5f=0 (, keine Separation) showde %0DG01X-Y 3200# (, no separation) showen %1DG01X-Y 3200# (, ninguna separaci\363n) showes %2DG01X-Y 3200# (, aucune s\351paration) showfr %3DG01X-Y 3200# (, nessuna separazione) showit %4DG01X-Y 3200# (, no separation) showjp %5DG01X-Y 3200# } if %chart5f=0 xchart5f 1 ge {%xchart5f>=1 (, Separation) showde %0DG01X-Y 3300# (, separation) showen %1DG01X-Y 3300# (, separaci\363n) showes %2DG01X-Y 3300# (, s\351paration) showfr %3DG01X-Y 3300# (, separazione) showit %4DG01X-Y 3300# (, separation) showjp %5DG01X-Y 3300# 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>=xchart3 } if %iout=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 grestore gsave %********************************************************** %%Trailer %%EndDocument EndEPSF grestore gsave showpage grestore %} for %colsepf=0,1 %} for %pchartf=0,0 %} for %xchartf=0,7 %} for %xcolorf=0,1 %} for %deintpf=0,1 %} for %colormf=0,1 %} for %lanindf=0,0 %%Trailer