%!PS-Adobe-3.0 EPSF-3.0 IE090-2A %%BoundingBox: 70 85 226 206 %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:) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://www.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2009070112000) /ModDate (D:2009070112000) /DOCINFO pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 %END PDFDE011 % !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 /TKK {180 16.67 div /Times-ISOL1 FS} bind def /TK {215 16.67 div /Times-ISOL1 FS} bind def /TM {260 16.67 div /Times-ISOL1 FS} bind def /TG {300 16.67 div /Times-ISOL1 FS} bind def /TIKK {180 16.67 div /TimesI-ISOL1 FS} bind def /TIK {215 16.67 div /TimesI-ISOL1 FS} bind def /TIM {260 16.67 div /TimesI-ISOL1 FS} bind def /TIG {300 16.67 div /TimesI-ISOL1 FS} bind def /TBKK {180 16.67 div /TimesB-ISOL1 FS} bind def /TBK {215 16.67 div /TimesB-ISOL1 FS} bind def /TBM {260 16.67 div /TimesB-ISOL1 FS} bind def /TBG {300 16.67 div /TimesB-ISOL1 FS} bind def /TBIKK {180 16.67 div /TimesBI-ISOL1 FS} bind def /TBIK {215 16.67 div /TimesBI-ISOL1 FS} bind def /TBIM {260 16.67 div /TimesBI-ISOL1 FS} bind def /TBIG {300 16.67 div /TimesBI-ISOL1 FS} bind 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 {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmykcolor 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 setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def /cvishow {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def /cvsshow1 {dup 0 ge {0.05 add} {0.05 sub} ifelse 10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {dup 0 ge {0.005 add} {0.005 sub} ifelse 100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {dup 0 ge {0.0005 add} {0.0005 sub} ifelse 1000 mul cvi 0.001 mul 7 string cvs show} def %%EndProlog gsave %LANINDL2 START 20000505 /lanind 0 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 /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /xcolorg where {pop /xcolor xcolorg def} {/xcolor 0 def} ifelse /xchartg where {pop /xchart xchartg def} {/xchart 0 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave 72 90 translate /pixf 1.0 def 0.1667 pixf div MM dup scale /FMM 16.67 def 20 FMM div setlinewidth %0 0 25000 FMM div 17100 FMM div 0.0 0.0 0.0 0.0 colrecfi %area white grey %0 0 25000 FMM div 17100 FMM div 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz %00 1 15 {/xchart exch def %xchart=0,15 /xchartl 1 def 20 FMM div setlinewidth % xchartl 0 eq { 100 FMM div 13000 FMM div translate} if % xchartl 1 eq { 6100 FMM div 13000 FMM div translate} if % xchartl 2 eq { 100 FMM div 08750 FMM div translate} if % xchartl 3 eq { 6100 FMM div 08750 FMM div translate} if % xchartl 4 eq { 100 FMM div 4500 FMM div translate} if % xchartl 5 eq { 6100 FMM div 4500 FMM div translate} if % xchartl 6 eq { 100 FMM div 0250 FMM div translate} if % xchartl 7 eq { 6100 FMM div 0250 FMM div translate} if % xchartl 8 eq {13500 FMM div 13000 FMM div translate} if % xchartl 9 eq {19500 FMM div 13000 FMM div translate} if % xchartl 10 eq {13500 FMM div 08750 FMM div translate} if % xchartl 11 eq {19500 FMM div 08750 FMM div translate} if % xchartl 12 eq {13500 FMM div 4500 FMM div translate} if % xchartl 13 eq {19500 FMM div 4500 FMM div translate} if % xchartl 14 eq {13500 FMM div 0250 FMM div translate} if % xchartl 15 eq {19500 FMM div 0250 FMM div translate} if 0 setgray 150 FMM div /Times-ISOL1 FS 4300 FMM div -150 FMM div moveto xchartl 7 le {(IE090-) show} {(IE091-) show} ifelse xchartl 0 ge xchartl 7 le and {xchartl 1 add cvishow} if xchartl 8 ge xchartl 15 le and {xchartl 7 sub cvishow} if (A) show %A xchartl 7 le {/ibil 0 def /iton xchartl def} {/ibil 1 def /iton xchartl 8 sub def} ifelse 0 0 319 239 0.0 0.0 0.0 1.0 colrecst %Rechteck Mittelgrau TBIG %Schrift Times-Bold-Italic-Gross 0.0 0.0 0.0 1.0 setcmykcolor %Schrift Weiss -34 0 translate /ted (d) def %iton 3 le {/ted (e) def} {/ted (d) def} ifelse %ibil 0 eq {/tqc ( = ?) def} {/tqc ( = calculated) def} ifelse 44 11 moveto (N) show ibil 0 eq {%ibil=0 97 11 moveto TBIM (ncw*) show TBK -2 -3 rmoveto ted show 0 3 rmoveto TBM ( = 1, 0, 0) show TBIM } if %ibil=0 ibil 1 eq {%ibil=1 97 11 moveto TBIM (icw*) show TBK -2 -3 rmoveto ted show 0 3 rmoveto TBM ( = 0, 0, 0) show TBIM } if %ibil=1 TBIG 260 90 moveto TBIM iton 0 eq {(r00j) show} if iton 1 eq {(j00g) show} if iton 2 eq {(g00b) show} if iton 3 eq {(b00r) show} if iton 4 eq {(r25j) show} if iton 5 eq {(j25g) show} if iton 6 eq {(g25b) show} if iton 7 eq {(b25r) show} if TBK 0 -3 rmoveto ted show 0 3 rmoveto 40 212 moveto TBIG (W) show ibil 0 eq {%ibil=0 97 220 moveto TBIM (ncw*) show %W TBK -2 -3 rmoveto ted show 0 3 rmoveto TBM ( = 0, 0, 1) show TBIM } if %ibil=0 ibil 1 eq {%ibil=1 97 220 moveto TBIM (icw*) show %W TBK -2 -3 rmoveto ted show 0 3 rmoveto TBM ( = 1, 0, 1) show TBIM } if %ibil=1 2 setlinewidth 0.0 0.0 0.0 1.0 setcmykcolor %Linien N 215 16 moveto TBIG (c*) show TBK -2 -3 rmoveto ted show 0 3 rmoveto 210 10 moveto 45 0 rlineto stroke 245 06 moveto 10 4 rlineto -10 4 rlineto stroke %for c* 37 195 moveto TBIG (t*) show TBK -2 -3 rmoveto ted show 0 3 rmoveto 42 150 moveto 0 30 rlineto stroke 38 170 moveto 4 10 rlineto 4 -10 rlineto stroke %for t* ibil 0 eq {%ibil=0 53 080 moveto TBIG (n*) show TBK -2 -3 rmoveto ted show 0 3 rmoveto 60 100 moveto 0 20 rlineto stroke 56 110 moveto 4 -10 rlineto 4 10 rlineto stroke %for n* } if %ibil=0 ibil 1 eq {%ibil=1 53 065 moveto TBIG (i*) show TBK -2 -3 rmoveto ted show 0 3 rmoveto 60 080 moveto 0 20 rlineto stroke 56 090 moveto 4 10 rlineto 4 -10 rlineto stroke %for i* } if %ibil=1 50 158 moveto TBIG (w*) show TBK -2 -3 rmoveto ted show 0 3 rmoveto 60 130 moveto 0 20 rlineto stroke 56 140 moveto 4 10 rlineto 4 -10 rlineto stroke %for w* ibil 0 eq {%ibil=0 165 45 moveto TBIG (n*) show TBK -2 -3 rmoveto ted show 0 3 rmoveto 190 60 moveto 20 10 rlineto stroke 200 60 moveto -10 0 rlineto 7 08 rlineto stroke %for n* } if %ibil=0 ibil 1 eq {%ibil=1 168 48 moveto TBIG (i*) show TBK -2 -3 rmoveto ted show 0 3 rmoveto 190 60 moveto 20 10 rlineto stroke 200 70 moveto 10 0 rlineto -7 -08 rlineto stroke %for n* } if %ibil=1 152 192 moveto TBIG (w*) show TBK -2 -3 rmoveto ted show 0 3 rmoveto 180 185 moveto 20 -10 rlineto stroke 190 185 moveto -10 0 rlineto 7 -08 rlineto stroke %for w* 0.0 0.0 0.0 1.0 setcmykcolor %Linien N 80 20 moveto 280 120 lineto 80 220 lineto closepath stroke TBK ibil 0 eq {%ibil=0 210 225 moveto (relative blackness) showen (relative Schwarzheit) showde TBIK ( n*) show TBKK -2 -3 rmoveto ted show 0 3 rmoveto TBK 210 212 moveto (relative chroma) showen (relative Buntheit) showde TBIK ( c*) show TBKK -2 -3 rmoveto ted show 0 3 rmoveto TBK } if %ibil=0 ibil 1 eq {%ibil=1 210 225 moveto (relative brilliance) showen (relative Brillanz) showde TBIK ( i*) show TBKK -2 -3 rmoveto ted show 0 3 rmoveto TBK 210 212 moveto (relative chroma) showen (relative Buntheit) showde TBIK ( c*) show TBKK -2 -3 rmoveto ted show 0 3 rmoveto TBK } if %ibil=1 iton 0 eq {%iton=0 223 195 moveto (neither yellowish) showen (weder gelblich noch) showde 223 182 moveto (nor bluish \050) showen (bl\344ulich \050) showde TBIK (h*) show TBKK -2 -3 rmoveto ted show 0 3 rmoveto TBK (=0\051) show } if %iton=0 iton 1 eq {%iton=1 223 195 moveto (neither redish) showen (weder r\366tlich noch) showde 223 182 moveto (nor greenish \050) showen (gr\374nlich \050) showde TBIK (h*) show TBKK -2 -3 rmoveto ted show 0 3 rmoveto TBK (=0,25\051) show } if %iton=1 iton 2 eq {%iton=2 223 195 moveto (neither yellowish) showen (weder gelblich noch) showde 223 182 moveto (nor bluish \050) showen (bl\344ulich \050) showde TBIK (h*) show TBKK -2 -3 rmoveto ted show 0 3 rmoveto TBK (=0,5\051) show } if %iton=2 iton 3 eq {%iton=3 223 195 moveto (neither redish) showen (weder r\366tlich noch) showde 223 182 moveto (nor greenish \050) showen (gr\374nlich \050) showde TBIK (h*) show TBKK -2 -3 rmoveto ted show 0 3 rmoveto TBK (=0,75\051) show } if %iton=3 iton 4 eq {%iton=4 223 195 moveto (75% Red) showen (75% Rot) showde TBIK ( R ) show TBK (and 25%) showen (und 25%) showde 223 182 moveto (Yellow) showen (Gelb) showde TBIK ( J ) show TBK (\050) show TBIK (h*) show TBKK -2 -3 rmoveto ted show 0 3 rmoveto TBK (=0,06\051) show } if %iton=4 iton 5 eq {%iton=5 223 195 moveto (75% Yellow) showen (75% Gelb) showde TBIK ( J ) show TBK (and 25%) showen (und 25%) showde 223 182 moveto (Green) showen (Gr\374n) showde TBIK ( G ) show TBK (\050) show TBIK (h*) show TBKK -2 -3 rmoveto ted show 0 3 rmoveto TBK (=0,31\051) show } if %iton=5 iton 6 eq {%iton=6 223 195 moveto (75% Green) showen (75% Gr\374n) showde TBIK ( G ) show TBK (and 25%) showen (und 25%) showde 223 182 moveto (Blue) showen (Blau) showde TBIK ( B ) show TBK (\050) show TBIK (h*) show TBKK -2 -3 rmoveto ted show 0 3 rmoveto TBK (=0,56\051) show } if %iton=6 iton 7 eq {%iton=7 223 195 moveto (75% Blue) showen (75% Blau) showde TBIK ( B ) show TBK (and 25%) showen (und 25%) showde 223 182 moveto (Red) showen (Rot) showde TBIK ( R ) show TBK (\050) show TBIK (h*) show TBKK -2 -3 rmoveto ted show 0 3 rmoveto TBK (=0,81\051) show } if %iton=7 TBK 235 75 moveto (Device (d) colour) showen (Ger\344tefarbe (d)) showde 235 60 moveto (of maximum) showen (von maximaler) showde 235 45 moveto (relative chroma) showen (relativer Buntheit) showde 235 30 moveto TBK (\050) show TBIK (c*) show TBKK -2 -3 rmoveto ted show 0 3 rmoveto TBK (=1\051) show ibil 0 eq {%ibil=0 298 123 moveto TBIM (ncw*) show %C TBK -2 -3 rmoveto ted show 0 3 rmoveto TBM ( =) show 298 107 moveto (0, 1, 0) show } if %ibil=0 ibil 1 eq {%ibil=1 298 123 moveto TBIM (icw*) show %C TBK -2 -3 rmoveto ted show 0 3 rmoveto TBM ( =) show 298 107 moveto (1, 1, 0) show } if %ibil=1 newpath 0.0 0.0 0.0 1.0 setcmykcolor %N 065 15 add 005 15 add 15 0 360 arc fill newpath 0.0 0.0 0.0 0.0 setcmykcolor %W 065 15 add 205 15 add 15 0 360 arc fill 0.0 0.0 0.0 1.0 setcmykcolor %W 065 15 add 205 15 add 15 0 360 arc stroke newpath 0.0 0.0 0.0 0.0 setcmykcolor %X 265 15 add 105 15 add 15 0 360 arc fill newpath iton 0 eq {0.00 1.00 0.90 0.00 setcmykcolor} if %r00j iton 1 eq {0.00 0.00 1.00 0.00 setcmykcolor} if %j00g iton 2 eq {1.00 0.00 1.00 0.00 setcmykcolor} if %g00b iton 3 eq {1.00 0.75 0.00 0.00 setcmykcolor} if %b00r iton 4 eq {0.00 0.75 1.00 0.00 setcmykcolor} if %r25j iton 5 eq {0.40 0.00 1.00 0.00 setcmykcolor} if %j25g iton 6 eq {1.00 0.00 0.60 0.00 setcmykcolor} if %g25b iton 7 eq {0.40 1.00 0.00 0.00 setcmykcolor} if %b25r 265 15 add 105 15 add 15 0 360 arc fill %265 10 add 105 10 add moveto TBG (?) show newpath 0.0 0.0 0.0 1.0 setcmykcolor %X ibil 0 eq {%ibil=0 095 120 moveto TBIG (Ostwald) show TBG ( equation) showen (\255Gleichung) showde 095 100 moveto TBIG (n*) show TBK -2 -3 rmoveto ted show 0 3 rmoveto TBG ( + ) show TBIG (c*) show TBK -2 -3 rmoveto ted show 0 3 rmoveto TBG ( + ) show TBIG (w*) show TBK -2 -3 rmoveto ted show 0 3 rmoveto TBG ( = 1) show } if %ibil=0 ibil 1 eq {%ibil=1 095 120 moveto TBIG (Richter) show TBG ( equation) showen (\255Gleichung) showde 095 100 moveto TBIG (i*) show TBK -2 -3 rmoveto ted show 0 3 rmoveto TBG ( = ) show TBIG (c*) show TBK -2 -3 rmoveto ted show 0 3 rmoveto TBG ( + ) show TBIG (w*) show TBK -2 -3 rmoveto ted show 0 3 rmoveto } if %ibil=1 34 0 translate % xchartl 0 eq { 100 neg FMM div 13000 neg FMM div translate} if % xchartl 1 eq { 6100 neg FMM div 13000 neg FMM div translate} if % xchartl 2 eq { 100 neg FMM div 08750 neg FMM div translate} if % xchartl 3 eq { 6100 neg FMM div 08750 neg FMM div translate} if % xchartl 4 eq { 100 neg FMM div 4500 neg FMM div translate} if % xchartl 5 eq { 6100 neg FMM div 4500 neg FMM div translate} if % xchartl 6 eq { 100 neg FMM div 0250 neg FMM div translate} if % xchartl 7 eq { 6100 neg FMM div 0250 neg FMM div translate} if % xchartl 8 eq {13500 neg FMM div 13000 neg FMM div translate} if % xchartl 9 eq {19500 neg FMM div 13000 neg FMM div translate} if % xchartl 10 eq {13500 neg FMM div 08750 neg FMM div translate} if % xchartl 11 eq {19500 neg FMM div 08750 neg FMM div translate} if % xchartl 12 eq {13500 neg FMM div 4500 neg FMM div translate} if % xchartl 13 eq {19500 neg FMM div 4500 neg FMM div translate} if % xchartl 14 eq {13500 neg FMM div 0250 neg FMM div translate} if % xchartl 15 eq {19500 neg FMM div 0250 neg FMM div translate} if %} for % xchart=0,15 showpage grestore } for %output with langind end %%Trailer