%!PS-Adobe-3.0 EPSF-3.0 MS510-6 %%BoundingBox: 70 83 226 206 %START PDFDE011.EPS /pdfmark06 where {pop} {userdict /pdfmark06 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [/Title (PostScript pictures: farbe.li.tu-berlin.de/MS51/MS51.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2019080112000) /ModDate (D:20190801112000) /DOCINFO pdfmark06 [ /View [ /FitB ] /DOCVIEW pdfmark06 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /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 {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 /showno {5 lanind eq {show} {pop} ifelse} bind def /showpt {6 lanind eq {show} {pop} ifelse} bind def /showx1 {7 lanind eq {show} {pop} ifelse} bind def /showy1 {8 lanind eq {show} {pop} ifelse} bind def /showz1 {9 lanind eq {show} {pop} ifelse} bind def /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 2 def /lanind2 2 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 (MS510-6) show xchart 0 eq {(N) show} {deintp colorm 2 mul add cvishow} ifelse (, B2_40) show % ( B8331_5, M8120-6, 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 %0MS510-6 00000 (elementary colors) showen %1MS510-6 00001 (colores elementales) showes %3MS510-6 00003 (couleurs \351l\351mentaires) showfr %2MS510-6 00002 (colori elementari di) showit %4MS510-6 00004 (element\346rfargene) showno %5MS510-6 00005 (elementary colors) showpt %6MS510-6 00006 (elementary colors) showx1 %7MS510-6 00007 (elementary colors) showy1 %8MS510-6 00008 (elementary colors) showz1 %9MS510-6 00009 1700 2800 moveto (von ) showde %0MS510-6 01000 (of ) showen %1MS510-6 01001 (de ) showes %3MS510-6 01003 (de ) showfr %2MS510-6 01002 () showit %4MS510-6 01004 (til ) showno %5MS510-6 01005 (of ) showpt %6MS510-6 01006 (of ) showx1 %7MS510-6 01007 (of ) showy1 %8MS510-6 01008 (of ) showz1 %9MS510-6 01009 350 /TimesI-ISOL1 FS (Miescher) show 350 /Times-ISOL1 FS ( in) showde %0MS510-6 02000 ( in) showen %1MS510-6 02001 ( en es\255) showes %3MS510-6 02003 ( en dia\255) showfr %2MS510-6 02002 ( nel diagram\255) showit %4MS510-6 02004 ( i kroma\255) showno %5MS510-6 02005 ( in) showpt %6MS510-6 02006 ( in) showx1 %7MS510-6 02007 ( in) showy1 %8MS510-6 02008 ( in) showz1 %9MS510-6 02009 1800 2400 moveto (Normfarbtafel) showde %0MS510-6 03000 (chromaticity diagram) showen %1MS510-6 03001 (quema de chromaticity) showes %3MS510-6 03003 (gramme chromaticit\351) showfr %2MS510-6 03002 (ma di cromaticit\340) showit %4MS510-6 03004 (tisitetsdiagrammet) showno %5MS510-6 03005 (chromaticity diagram) showpt %6MS510-6 03006 (chromaticity diagram) showx1 %7MS510-6 03007 (chromaticity diagram) showy1 %8MS510-6 03008 (chromaticity diagram) showz1 %9MS510-6 03009 /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