%!PS-Adobe-3.0 EPSF-3.0 MN021-5 %%BoundingBox: 70 83 226 206 %START PDFDE011.EPS /pdfmark15 where {pop} {userdict /pdfmark15 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: MN021-5) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.445/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2015070112000) /ModDate (D:2015070112000) /DOCINFO pdfmark15 [ /View [ /FitB ] /DOCVIEW pdfmark15 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TK {250 16.67 div /Times-ISOL1 FS} bind def /TM {300 16.67 div /Times-ISOL1 FS} bind def /TG {350 16.67 div /Times-ISOL1 FS} bind def /TIK {250 16.67 div /TimesI-ISOL1 FS} bind def /TIM {300 16.67 div /TimesI-ISOL1 FS} bind def /TIG {350 16.67 div /TimesI-ISOL1 FS} bind def /TBK {250 16.67 div /TimesB-ISOL1 FS} bind def /TBM {300 16.67 div /TimesB-ISOL1 FS} bind def /TBM1 {275 16.67 div /TimesB-ISOL1 FS} bind def /TBG {350 16.67 div /TimesB-ISOL1 FS} bind def /TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def /TBIM {300 16.67 div /TimesBI-ISOL1 FS} bind def /TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def /tolvfcol %Farbkreis-Reihenfolge [ (000) (F00) (FF0) (0F0) (0FF) (00F) (F0F) (FFF) (777) (700) (770) (070) (077) (007) (707) (F07) %15=R (333) (F77) (FF7) (7F7) (7FF) (77F) (F7F) (07F) %23=B (BBB) (F70) (7F0) (0F7) (07F) (70F) (F07) (0F7) %31=G ] def /tcmyfcol %Farbkreis-Reihenfolge [ (FFF) (0FF) (00F) (F0F) (F00) (FF0) (0F0) (000) (888) (8FF) (88F) (F8F) (F88) (FF8) (8F8) (0F8) %15=R (CCC) (088) (008) (808) (800) (880) (080) (F80) %23=B (444) (08F) (80F) (F08) (F80) (8F0) (0F8) (F08) %31=G ] def /tcmykfcol %Farbkreis-Reihenfolge [ (000F) (0FF0) (00F0) (F0F0) (F000) (FF00) (0F00) (0000) (0008) (0FF8) (00F8) (F0F8) (F008) (FF08) (0F08) (0F80) %15=R (000C) (0880) (0080) (8080) (8000) (8800) (0800) (F800) %23=B (0004) (0F80) (80F0) (F080) (F800) (8F00) (0F80) (F080) %31=G ] def /tolvfcols %Farbkreis-Reihenfolge [ (000*) (F00*) (FF0*) (0F0*) (0FF*) (00F*) (F0F*) (FFF*) (777*) (700*) (770*) (070*) (077*) (007*) (707*) (F07*) %15=R (333*) (F77*) (FF7*) (7F7*) (7FF*) (77F*) (F7F*) (07F*) %23=B (BBB*) (F70*) (7F0*) (0F7*) (07F*) (70F*) (F07*) (0F7*) %31=G ] def /tcmyfcols %Farbkreis-Reihenfolge [ (FFF*) (0FF*) (00F*) (F0F*) (F00*) (FF0*) (0F0*) (000*) (888*) (8FF*) (88F*) (F8F*) (F88*) (FF8*) (8F8*) (0F8*) %15=R (CCC*) (088*) (008*) (808*) (800*) (880*) (080*) (F80*) %23=B (444*) (08F*) (80F*) (F08*) (F80*) (8F0*) (0F8*) (F08*) %31=G ] def /tcmykfcols %Farbkreis-Reihenfolge [ (000F*) (0FF0*) (00F0*) (F0F0*) (F000*) (FF00*) (0F00*) (0000*) (0008*) (0FF8*) (00F8*) (F0F8*) (F008*) (FF08*) (0F08*) (0F80*) %15=R (000C*) (0880*) (0080*) (8080*) (8000*) (8800*) (0800*) (F800*) %23=B (0004*) (0F80*) (80F0*) (F080*) (F800*) (8F00*) (0F80*) (F080*) %31=G ] def /fcolors %CMYN 32 Testfarben Nr. 0 bis 31; Farbkreis-Reihenfolge [{0.0 0.0 0.0 1.0} {0.0 1.0 1.0 0.0} {0.0 0.0 1.0 0.0} {1.0 0.0 1.0 0.0} {1.0 0.0 0.0 0.0} {1.0 1.0 0.0 0.0} {0.0 1.0 0.0 0.0} {0.0 0.0 0.0 0.0} {0.0 0.0 0.0 0.5} {0.0 1.0 1.0 0.5} {0.0 0.0 1.0 0.5} {1.0 0.0 1.0 0.5} {1.0 0.0 0.0 0.5} {1.0 1.0 0.0 0.5} {0.0 1.0 0.0 0.5} {0.0 1.0 0.5 0.0} {0.0 0.0 0.0 0.75} {0.0 0.5 0.5 0.0} {0.0 0.0 0.5 0.0} {0.5 0.0 0.5 0.0} {0.5 0.0 0.0 0.0} {0.5 0.5 0.0 0.0} {0.0 0.5 0.0 0.0} {1.0 0.5 0.0 0.0} {0.0 0.0 0.0 0.25} {0.0 0.5 1.0 0.0} {0.5 0.0 1.0 0.0} {1.0 0.0 0.5 0.0} {1.0 0.5 0.0 0.0} {0.5 1.0 0.0 0.0} {0.0 1.0 0.5 0.0} {1.0 0.0 0.5 0.0} ] def /fak 0.5 def /Far %Farbkreis-Reihenfolge [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %R 16 17 18 19 20 21 22 23 %B 24 25 26 27 28 29 30 31 %G ] def /cFar %Kompensativ-Farbkreis-Reihenfolge [ 8 4 5 6 1 2 3 0 0 20 21 22 17 18 19 31 %G 24 12 13 14 9 10 11 2 %J 16 28 29 30 25 26 27 15 %R ] def /Btx %Farbkreis- -> %Btx-Reihenfolge [ 0 1 3 2 5 6 4 7 8 9 11 10 13 14 12 15 %R 16 17 19 18 21 22 20 23 %B 24 25 26 27 28 29 30 31 %G ] def /cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge [ 7 4 6 5 2 3 1 0 8 20 22 21 18 19 17 31 %G 24 12 14 13 10 11 9 2 %J 16 25 26 27 28 29 30 15 %R ] def /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y k {setcmyk_olvcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmyk_olvcolor rec stroke} bind def /rem %x, y width heigth {/heigth exch 0.5 mul def /width exch 0.5 mul def /yleftb exch heigth 0.5 mul add def /xleftb exch width 0.5 mul add def xleftb yleftb moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colremfi %x y width heigth c m y k {setcmykcolor rem fill} bind def /colremst %x y width heigth c m y k {setcmykcolor rem stroke} bind def /tzr {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzg {1.0 0.0 1.0 0.0} bind def /tzb {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tfr {0.0 1.0 1.0 0.0 setcmyk_olvcolor} bind def %Reproduktionsfarben /tfg {1.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def /tfb {1.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def /tfc {1.0 0.0 0.0 0.0 setcmyk_olvcolor} bind def /tfm {0.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def /tfy {0.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def /tfn {0.0 0.0 0.0 1.00 setcmyk_olvcolor} bind def %Graureihe /tfd {0.0 0.0 0.0 0.75 setcmyk_olvcolor} bind def /tfz {0.0 0.0 0.0 0.50 setcmyk_olvcolor} bind def /tfh {0.0 0.0 0.0 0.25 setcmyk_olvcolor} bind def /tfw {0.0 0.0 0.0 0.00 setcmyk_olvcolor} bind def %%EndProlog gsave %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 5 def /lanind2 5 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 /T00 (-) def 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 (MN021-5) show xchart 0 eq {(N) show} {deintp colorm 2 mul add cvishow} ifelse (, B2_14) show % ( B8670_4, M8131-5, B2_14, N=2_14) show 72 90 translate /pixf 1.0 def 0.1667 pixf div MM dup scale 0 0 320 240 0.0 0.0 0.0 0.5 colrecfi %Rechteck Mittelgrau TBIG %Schrift Times-Bold-Gross 0.0 0.0 0.0 0.0 setcmyk_olvcolor %Schrift Weiss 2 setlinewidth tfw %N 159 119 100 0 360 arc stroke 0 1 15 {/i exch def %i=0,15 /xpos 159 100 i 22.5 mul cos mul add def /ypos 119 100 i 22.5 mul sin mul add def xpos ypos 5 0 360 arc fill } for %i=0,15 159 120 moveto 159 239 3 setlinewidth tzy setcmyk_olvcolor lineto stroke 2 setlinewidth 160 119 moveto 319 119 tzr setcmyk_olvcolor lineto stroke %R 159 000 moveto 159 118 tzb setcmyk_olvcolor lineto stroke %B 000 119 moveto 158 119 tzg setcmyk_olvcolor lineto stroke %G /ir 19 def /ixm 159 def /iym 119 def %Definitionen Rechtecke ixm ir sub 000 add iym ir sub 101 add 38 38 tzy colrecfi %J ixm ir sub 100 add iym ir sub 000 add 38 38 tzr colrecfi %R ixm ir sub 000 add iym ir sub 100 sub 38 38 tzb colrecfi %B ixm ir sub 100 sub iym ir sub 000 add 38 38 tzg colrecfi %G ixm ir sub 000 add iym ir sub 101 add 38 38 tzy colremfi %J ixm ir sub 100 add iym ir sub 000 add 38 38 tzr colremfi %R ixm ir sub 000 add iym ir sub 100 sub 38 38 tzb colremfi %B ixm ir sub 100 sub iym ir sub 000 add 38 38 tzg colremfi %G TBIG /it 8 def ixm it sub 000 add 02 add 10 sub iym it sub 101 add moveto (Y) tzb setcmyk_olvcolor show %J mit Schriftfarbe %B TBM 0 -2 rmoveto Fxx show 0 2 rmoveto TBIG ixm it sub 100 add 00 sub 8 sub iym it sub 000 add moveto (R) tzg setcmyk_olvcolor show %R mit Schriftfarbe G TBM 0 -2 rmoveto Fxx show 0 2 rmoveto TBIG ixm it sub 000 add 00 add 8 sub iym it sub 100 sub moveto (B) tzy setcmyk_olvcolor show %B mit Schriftfarbe J TBM 0 -2 rmoveto Fxx show 0 2 rmoveto TBIG ixm it sub 100 sub 00 sub 8 sub iym it sub 000 add moveto (G) tzr setcmyk_olvcolor show %G mit Schriftfarbe R TBM 0 -2 rmoveto Fxx show 0 2 rmoveto TBIG TBG 0.0 0.0 0.0 0.0 setcmyk_olvcolor %W 002 224 moveto (Bunttonkreis) showde %0MN021-5 00122 (hue circle) showen %1MN021-5 00122 TBM1 (c\355rculo de tono) showes %2MN021-5 00122 (cercle chromatique) showfr %3MN021-5 00122 (cerchio delle tinte) showit %4MN021-5 00122 TBG (fargetonesirkel) showjp %5MN021-5 00122 188 224 moveto (sechzehnteilig) showde %0MN021-5 01122 (sixteen steps) showen %1MN021-5 01122 TBM1 (16 pasos) showes %2MN021-5 01122 (\340 16 parliers) showfr %3MN021-5 01122 (con sedici passi) showit %4MN021-5 01122 TBG (sekstendelt) showjp %5MN021-5 01122 %0.0 0.0 0.0 1.0 setcmyk_olvcolor tfw TBIM ixm 065 add 10 sub iym 081 add 07 add moveto (R75Y) show TBK 0 -2 rmoveto Fxx show 0 2 rmoveto TBIM ixm 088 add iym 058 add 8 add moveto (R50Y) show TBK 0 -2 rmoveto Fxx show 0 2 rmoveto TBIM ixm 101 add iym 033 add moveto (R25Y) show TBK 0 -2 rmoveto Fxx show 0 2 rmoveto TBIM ixm 092 add 10 add iym 055 sub 10 add moveto (B75R) show TBK 0 -2 rmoveto Fxx show 0 2 rmoveto TBIM ixm 076 add 5 add iym 081 sub 5 add moveto (B50R) show TBK 0 -2 rmoveto Fxx show 0 2 rmoveto TBIM ixm 045 add iym 106 sub moveto (B25R) show TBK 0 -2 rmoveto Fxx show 0 2 rmoveto TBIM ixm 100 sub 6 sub iym 106 sub moveto (G75B) show TBK 0 -2 rmoveto Fxx show 0 2 rmoveto TBIM ixm 129 sub 6 sub iym 081 sub 5 add moveto (G50B) show TBK 0 -2 rmoveto Fxx show 0 2 rmoveto TBIM ixm 144 sub 6 sub 7 sub iym 055 sub 10 add moveto (G25B) show TBK 0 -2 rmoveto Fxx show 0 2 rmoveto TBIM ixm 143 sub 12 sub iym 033 add 2 add moveto (Y75G) show TBK 0 -2 rmoveto Fxx show 0 2 rmoveto TBIM ixm 128 sub 12 sub iym 058 add 8 add moveto (Y50G) show TBK 0 -2 rmoveto Fxx show 0 2 rmoveto TBIM ixm 108 sub 12 sub 12 add iym 081 add 07 add moveto (Y25G) show TBK 0 -2 rmoveto Fxx show 0 2 rmoveto TBIM tfy %W newpath 159 119 090 22.5 01 mul 22.5 03 mul arc stroke 159 119 090 22.5 05 mul 22.5 07 mul arc stroke 159 119 090 22.5 09 mul 22.5 11 mul arc stroke 159 119 090 22.5 13 mul 22.5 15 mul arc stroke ixm 010 add iym 047 add moveto (R50Y) show TBK 0 -2 rmoveto T00 show 0 2 rmoveto TBIM ixm 058 sub iym 047 add moveto (Y50G) show TBK 0 -2 rmoveto T00 show 0 2 rmoveto TBIM ixm 010 add iym 062 sub moveto (B50R) show TBK 0 -2 rmoveto T00 show 0 2 rmoveto TBIM ixm 058 sub iym 062 sub moveto (G50B) show TBK 0 -2 rmoveto T00 show 0 2 rmoveto TBIM showpage grestore %%Trailer