%!PS-Adobe-3.0 EPSF-3.0 INFIE11:IEAK011.TXT 31.10.98 % aus B8672-1A.eps %%BoundingBox: 72 430 505 602 %ANFA PDFIE011 /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 (Colour circles with four and six colours) /Author (goto: http://o2.ps.bam.de or http://trappist.kb.bam.de/ps) /Subject (specifying image reproduction of colour devices) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@bam.de) /CreationDate (D:1998111212000) /ModDate (D:1998111212000) /DOCINFO pdfmark [ /View [ /Fit ] /DOCVIEW pdfmark %ENDE PDFIE011 %%Creator: K. Richter, BAM und TU Berlin, 1998.08.15 % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TK {250 16.67 div /Times-ISOL1 FS} bind def /TM {300 16.67 div /Times-ISOL1 FS} bind def /TG {350 16.67 div /Times-ISOL1 FS} bind def /TIK {250 16.67 div /TimesI-ISOL1 FS} bind def /TIM {300 16.67 div /TimesI-ISOL1 FS} bind def /TIG {350 16.67 div /TimesI-ISOL1 FS} bind def /TBK {250 16.67 div /TimesB-ISOL1 FS} bind def /TBM {300 16.67 div /TimesB-ISOL1 FS} bind def /TBG {350 16.67 div /TimesB-ISOL1 FS} bind def /TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def /TBIM {300 16.67 div /TimesBI-ISOL1 FS} bind def /TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def /proz1 {pop} bind def /proz2 {sqrt} bind def /setgc {pop pop pop 1 exch sub setgray} bind def /setgm {pop pop 1 exch sub setgray pop} bind def /setgy {pop 1 exch sub setgray pop pop} bind def /setgn {1 exch sub setgray pop pop pop} bind def /setgf {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def 0 ccolor eq 0 mcolor eq and 0 ycolor eq and {1 ncolor sub setgray} {1 ccolor sub 0.71 mul 1 mcolor sub 0.22 mul add 1 ycolor sub 0.07 mul add setgray} ifelse } bind def /setsc {075 135 {proz1} setscreen } bind def /setsm {075 090 {proz1} setscreen } bind def /setsy {075 000 {proz1} setscreen } bind def /setsn {075 045 {proz1} setscreen } bind def /setsf {075 135 {proz1} 075 090 {proz1} 075 000 {proz1} 075 045 {proz1} setcolorscreen } bind def /setcmykcolorf {setcmykcolor setsf} bind def %fuer PSL1/2-Farbgeraet %ANFA HALBTON /Halbt { %wrbie:HALBTOA0.eps } bind def %ANFA SETCMYK /setcmyknew { %Ersatz setcolornew durch setcmykcolor1 ausz 1 eq {setgc half 0 eq {setsc} if} if %C ausz 2 eq {setgm half 0 eq {setsm} if} if %M ausz 3 eq {setgy half 0 eq {setsy} if} if %Y ausz 4 eq {pop pop pop /ccolor exch def ccolor 0 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgc setsc} %PSL1-SW-Geraet ifelse } if %Cbunt ausz 5 eq {pop pop /mcolor exch def pop 0 mcolor 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgm setsm} %PSL1-SW-Geraet ifelse } if %Mbunt ausz 6 eq {pop /ycolor exch def pop pop 0 0 ycolor 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgy setsy} %PSL1-SW-Geraet ifelse } if %Ybunt ausz 7 eq {setgn half 0 eq {setsn} if} if %N ausz 8 ge { /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgf setsn} %PSL1-SW-Geraet ifelse } if %bei ausz=8: Farb- oder SW-Ausdruck je nach Drucker } 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 {setcmyknew rec fill} bind def /colrecst %x y width heigth c m y k {setcmyknew rec stroke} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmyknew} bind def /tfl {tzl setcmyknew} bind def /tfv {tzv setcmyknew} bind def /tfc {tzc setcmyknew} bind def /tfm {tzm setcmyknew} bind def /tfy {tzy setcmyknew} bind def /tfn {tzn setcmyknew} bind def /tfd {tzd setcmyknew} bind def /tfz {tzz setcmyknew} bind def /tfh {tzh setcmyknew} bind def /tfw {tzw setcmyknew} bind def /tfr {tzr setcmyknew} bind def /tfg {tzg setcmyknew} bind def /tfb {tzb setcmyknew} bind def /tfj {tzj setcmyknew} bind def /tfrz {tzrz setcmyknew} bind def /tfgz {tzgz setcmyknew} bind def /tfbz {tzbz setcmyknew} bind def /tfjz {tzjz setcmyknew} bind def %ANFA OUTLIN00 951204 /pixf 1.0 def /ueg 1 pixf mul def /uek 1 pixf mul def /ues 1 pixf mul def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /pss ues def /outxshowf {show} bind def /outxshow {show} bind def /outSK {250 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSM {300 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSG {350 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outshowf {setcmyknew show} bind def /outrecfi { %x y width heigth c m y k setcmyknew rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmyknew lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmyknew stroke} bind def %%EndProlog gsave %{proz2} settransfer 5 /Times-ISOL1 FS 430 83 350 add moveto %!2 (INFIE11:B8670-1A.eps) show (INFIE11:IEAK011.TXT) show 72 1 add 90 1 add 350 add translate /pixf 1.0 def 0.1667 pixf div MM 1.35 mul dup scale /ausz 8 def /half 0 def Halbt %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F 0 0 320 240 0.0 0.0 0.0 1.0 colrecst %Rechteckrand N TBIG %Schrift Times-Bold-Gross 0.0 0.0 0.0 1.0 setcmyknew %Schrift N 2 setlinewidth /ir 19 def /ixm 169 def /iym 119 def %Definitionen Rechtecke 0.0 0.0 0.0 1.0 setcmyknew %N ixm 119 100 0 360 arc stroke %ixm 120 moveto ixm 239 3 setlinewidth tzj outlinetos 2 setlinewidth %J %ixm 1 add 119 moveto 319 119 tzr outlinetos %R %ixm 000 moveto ixm 118 tzb outlinetos %B %000 119 moveto ixm 1 sub 119 tzg outlinetos %G %ixm ir sub 000 add iym ir sub 101 add 38 38 tzy outrecfi4 %J %ixm ir sub 100 add iym ir sub 000 add 38 38 tzr outrecfi4 %R %ixm ir sub 000 add iym ir sub 100 sub 38 38 tzb outrecfi4 %B %ixm ir sub 100 sub iym ir sub 000 add 38 38 tzg outrecfi4 %G ixm 120 moveto ixm 239 2 setlinewidth tzn outlinetos 2 setlinewidth %J ixm 1 add 119 moveto 319 119 tzn outlinetos %R ixm 000 moveto ixm 118 tzn outlinetos %B 000 119 moveto ixm 1 sub 119 tzn outlinetos %G ixm ir sub 000 add iym ir sub 101 add 38 38 tzw outrecfi4 %J ixm ir sub 100 add iym ir sub 000 add 38 38 tzw outrecfi4 %R ixm ir sub 000 add iym ir sub 100 sub 38 38 tzw outrecfi4 %B ixm ir sub 100 sub iym ir sub 000 add 38 38 tzw outrecfi4 %G ixm ir sub 000 add iym ir sub 101 add 38 38 tzn colrecst %J ixm ir sub 100 add iym ir sub 000 add 38 38 tzn colrecst %R ixm ir sub 000 add iym ir sub 100 sub 38 38 tzn colrecst %B ixm ir sub 100 sub iym ir sub 000 add 38 38 tzn colrecst %G %TBIG %/it 6 def %ixm it sub 000 add 00 add iym it sub 101 add moveto %(J) tzb outshowf %J mit Schriftfarbe %B %ixm it sub 100 add 00 sub iym it sub 000 add moveto %(R) tzg outshowf %R mit Schriftfarbe G %ixm it sub 000 add 00 add iym it sub 100 sub moveto %(B) tzy outshowf %B mit Schriftfarbe J %ixm it sub 100 sub 00 sub iym it sub 000 add moveto %(G) tzr outshowf %G mit Schriftfarbe R %TBG %0.0 0.0 0.0 0.0 setcmyknew %W %005 220 moveto (vier Elemen\255) show %005 200 moveto (tarfarben) show TBIG /it 6 def ixm it sub 000 add 00 add iym it sub 101 add moveto (J) tzn outshowf %J mit Schriftfarbe %B ixm it sub 100 add 00 sub iym it sub 000 add moveto (R) tzn outshowf %R mit Schriftfarbe G ixm it sub 000 add 00 add iym it sub 100 sub moveto (B) tzn outshowf %B mit Schriftfarbe J ixm it sub 100 sub 00 sub iym it sub 000 add moveto (G) tzn outshowf %G mit Schriftfarbe R TBG 0.0 0.0 0.0 1.0 setcmyknew %N 003 222 moveto (four elementary) show 003 202 moveto (colours) show TBM 005 020 moveto (human) show 005 003 moveto (colour vision) show 72 1 add neg 90 1 add 350 add neg translate grestore gsave 6 /Times-ISOL1 FS 74 83 moveto %!2 (INFIE11:B8670-5N.eps) show %72 90 translate 237 1.25 mul 90 1 add 350 add translate /pixf 1.0 def 0.1667 pixf div MM 1.35 mul dup scale /ausz 8 def /half 0 def Halbt %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F 0 0 320 240 0.0 0.0 0.0 1.0 colrecst %Rechteck N TBIG %Schrift Times-Bold-Gross 0.0 0.0 0.0 1.0 setcmyknew %Schrift N 2 setlinewidth /ir 19 def /ixm 169 def /iym 119 def %Definitionen Rechtecke 0.0 0.0 0.0 1.0 setcmyknew %N ixm 119 100 0 360 arc stroke %ixm 120 moveto ixm 239 3 setlinewidth tzj outlinetos 2 setlinewidth %J %ixm 1 add 119 moveto 319 119 tzr outlinetos %R %ixm 000 moveto ixm 118 tzb outlinetos %B %000 119 moveto ixm 1 sub 119 tzg outlinetos %G %ixm ir sub 004 sub iym ir sub 101 add 38 38 tzy outrecfi4 %Y %ixm ir sub 090 add iym ir sub 050 add 38 38 tzo outrecfi4 %O %ixm ir sub 090 add iym ir sub 050 sub 38 38 tzm outrecfi4 %M %ixm ir sub 004 add iym ir sub 100 sub 38 38 tzv outrecfi4 %V %ixm ir sub 090 sub iym ir sub 050 sub 38 38 tzc outrecfi4 %C %ixm ir sub 090 sub iym ir sub 050 add 38 38 tzl outrecfi4 %L ixm 120 moveto ixm 239 2 setlinewidth tzn outlinetos 2 setlinewidth %J ixm 1 add 119 moveto 319 119 tzn outlinetos %R ixm 000 moveto ixm 118 tzn outlinetos %B 000 119 moveto ixm 1 sub 119 tzn outlinetos %G ixm ir sub 004 sub iym ir sub 101 add 38 38 tzw outrecfi4 %Y ixm ir sub 090 add iym ir sub 050 add 38 38 tzw outrecfi4 %O ixm ir sub 090 add iym ir sub 050 sub 38 38 tzw outrecfi4 %M ixm ir sub 004 add iym ir sub 100 sub 38 38 tzw outrecfi4 %V ixm ir sub 090 sub iym ir sub 050 sub 38 38 tzw outrecfi4 %C ixm ir sub 090 sub iym ir sub 050 add 38 38 tzw outrecfi4 ixm ir sub 004 sub iym ir sub 101 add 38 38 tzn colrecst %Y ixm ir sub 090 add iym ir sub 050 add 38 38 tzn colrecst %O ixm ir sub 090 add iym ir sub 050 sub 38 38 tzn colrecst %M ixm ir sub 004 add iym ir sub 100 sub 38 38 tzn colrecst %V ixm ir sub 090 sub iym ir sub 050 sub 38 38 tzn colrecst %C ixm ir sub 090 sub iym ir sub 050 add 38 38 tzn colrecst %TBIG %/it 6 def %ixm it sub 006 sub 00 add iym it sub 101 add moveto %(Y) tzv outshowf %Y mit Schriftfarbe V %ixm it sub 090 add 00 sub iym it sub 050 add moveto %(O) tzc outshowf %O mit Schriftfarbe C %ixm it sub 090 add 02 sub iym it sub 050 sub moveto %(M) tzl outshowf %M mit Schriftfarbe L %ixm it sub 004 add 00 add iym it sub 100 sub moveto %(V) tzy outshowf %V mit Schriftfarbe Y %ixm it sub 090 sub 00 sub iym it sub 050 sub moveto %(C) tzo outshowf %C mit Schriftfarbe O %ixm it sub 090 sub 00 add iym it sub 050 add moveto %(L) tzm outshowf %L mit Schriftfarbe M %TBG %0.0 0.0 0.0 0.0 setcmyknew %W %005 220 moveto (Bunttonkreis) show %005 200 moveto (sechsteilig) show TBIG /it 6 def ixm it sub 006 sub 00 add iym it sub 101 add moveto (Y) tzn outshowf %Y mit Schriftfarbe V ixm it sub 090 add 00 sub iym it sub 050 add moveto (O) tzn outshowf %O mit Schriftfarbe C ixm it sub 090 add 02 sub iym it sub 050 sub moveto (M) tzn outshowf %M mit Schriftfarbe L ixm it sub 004 add 00 add iym it sub 100 sub moveto (V) tzn outshowf %V mit Schriftfarbe Y ixm it sub 090 sub 00 sub iym it sub 050 sub moveto (C) tzn outshowf %C mit Schriftfarbe O ixm it sub 090 sub 00 add iym it sub 050 add moveto (L) tzn outshowf %L mit Schriftfarbe M TBG 0.0 0.0 0.0 1.0 setcmyknew %N 003 222 moveto (colour circle) show 002 202 moveto (six colours) show TBM 005 054 moveto (for) show 005 037 moveto (printing) show 005 020 moveto (television) show 005 003 moveto (photography) show showpage %%Trailer