%!PS-Adobe-3.0 EPSF-3.0 IE150-3N.eps %%BoundingBox: 70 85 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: Image Technology) /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@bam.de) /CreationDate (D:2009080112000) /ModDate (D:2009080112000) /DOCINFO pdfmark03 [ /View [ /FitB ] /DOCVIEW pdfmark03 %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 %Umrechnung Inch -> mm /A4quer {598 0 translate 90 rotate} def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /TKK {200 /Times-ISOL1 FS} bind def /TK {250 /Times-ISOL1 FS} bind def /TM {290 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIKK {200 /TimesI-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 /TBKK {200 /TimesB-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 /TKr {250 /Times-Roman FS} bind def /TMr {300 /Times-Roman FS} bind def /TGr {350 /Times-Roman FS} bind def /TIKr {250 /Times-Italic FS} bind def /TIMr {300 /Times-Italic FS} bind def /TIGr {350 /Times-Italic FS} bind def /TBKr {250 /Times-Bold FS} bind def /TBMr {300 /Times-Bold FS} bind def /TBGr {350 /Times-Bold FS} bind def /TBIKr {250 /Times-BoldItalic FS} bind def /TBIMr {300 /Times-BoldItalic FS} bind def /TBIGr {350 /Times-BoldItalic 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 %%EndProlog gsave %LANINDL2.EPS 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 /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %no loops /colorml colorm1 def /xcolorl xcolor1 def /xchart xchart1 def gsave %LANINDL2 END 0 setgray 4 /Times-Roman FS 72 86 moveto ( IE150-3N) show /LAB*a [%Natural symmetric Luminous System OYLCVMO+NW (NLS18) 43.81 67.03 38.70 %O 0 77.40/2 = 38.70 69.61 00.00 77.40 %Y 1 C*ab = 77.40 43.81 -67.03 38.70 %L 2 0.866 C*ab = 67.03 69.61 -67.03 -38.70 %C 3 delta L*=25.8 43.81 00.00 -77.40 %V 4 43.81=18.01+25.80 69.61 67.03 -38.70 %M 5 69.61=18.01+2*25.80 18.01 0.00 0.00 %N 6 18.01+77.40/3 = 18.01+25.80=43.81 95.41 0.00 0.00 %W 7 18.01+77.40*(2/3) = 18.01+51.60=69.61 ] def %CVMOYLC+NW gsave 72 90 translate 0.01 MM dup scale /DEintp 0 def /xcharts 10 def 20 setlinewidth 1.0 setgray 0 0 moveto 5300 0 rlineto 0 4000 rlineto -5300 0 rlineto closepath fill 0.0 setgray 0 0 moveto 5300 0 rlineto 0 4000 rlineto -5300 0 rlineto closepath stroke TBK 050 3800 moveto (8 Device Colours in elementary hue (h) system) showen (8 Ger\344tefarben im Elementarbuntton\255System (h)) showde TIK 050 3400 moveto (OYLCVM and NW) showen (OYLCVM und NW) showde 2400 3400 moveto TK (triangle system) showen (Dreiecks\255System) showde TBIK ( rgb*) show TK TKK -150 -100 rmoveto (h) show 150 100 rmoveto TK 2400 3000 moveto TK (cylindric system) showen (zylindrisches System) showde TIK ( tch*) show TK % TKK -100 -100 rmoveto (h) show 100 100 rmoveto TK 2400 2700 moveto TK (triangle lightness) showen (Dreiecks\255Helligkeit) showde TIK ( t*) show TK 2400 2400 moveto TK (relative chroma) showen (relative Buntheit) showde TIK ( c*) show TK 2400 2100 moveto TK (CIELAB hue angle) showen (CIELAB\255Bunttonwinkel) showde TIK ( h) show TK TKK -000 -100 rmoveto (ab) show 100 100 rmoveto TK 2400 1800 moveto TK (elementary hue text) showen (Elementar\255Bunttontext) showde TIK ( u*) show TKK -100 -100 rmoveto (h) show 100 100 rmoveto TK 2300 0350 moveto TIKK (more coordinates and relations:) showen (mehr Koordinaten und Beziehungen:) showde 2300 0100 moveto TIKK (http://www.ps.bam.de/33872E) showen (http://www.ps.bam.de/33872) showde TIM 1200 1300 translate 0 -1000 moveto 0 2500 rlineto stroke -1000 -500 moveto 1000 500 rlineto stroke /rx 774 def %standard hexagon gamut /fakt 1.5 def /iangle 10 def /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0.0 setgray /a0 0 def /b0 rx 1.5 mul def /c0 rx 1.5 mul neg def /faktr 0.6 def 100 1500 moveto (t*) show -1000 000 sub -500 300 sub moveto (b*) show TK -150 -100 rmoveto (h) show 150 100 rmoveto TIM 0 0 moveto c fakt mul d fakt mul lineto stroke c fakt mul 200 sub d fakt mul 150 add moveto (r*) show TK -150 -100 rmoveto (h) show 150 100 rmoveto TIM c fakt mul 500 sub d fakt mul 350 sub moveto (R) show TK -00 -100 rmoveto (h) show 00 100 rmoveto TIM 0 0 0 setrgbcolor c fakt mul 450 sub d fakt mul 220 add moveto (O) show newpath c fakt mul faktr mul d fakt mul faktr mul moveto 1 0 0.1 setrgbcolor c fakt mul faktr mul d fakt mul faktr mul 100 0 360 arc fill 0 0 0 setrgbcolor /iangle 170 def /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 0 moveto c fakt mul d fakt mul lineto stroke c fakt mul 050 sub d fakt mul 200 add moveto (g*) show TK -150 -100 rmoveto (h) show 150 100 rmoveto TIM %1100 0 moveto (a*) show TM 0 -50 rmoveto (a) 0 50 rmoveto show TIM %0 1100 moveto (b*) show TM 0 -50 rmoveto (a) 0 50 rmoveto show TIM 0.0 setgray 30 60 210 {/iangle exch def %iangle=30,60,210 /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray [50 50] 0 setdash iangle 030 eq {c d moveto} if c d lineto iangle 210 eq {stroke} if } for %iangle=30,60,210 210 60 390 {/iangle exch def %iangle=210,60,390 /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray [ ] 0 setdash iangle 210 eq {c d moveto} if c d lineto iangle 390 eq {stroke} if } for %iangle=210,60,390 30 60 330 {/iangle exch def %iangle=30,60,330 /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray iangle 090 ge iangle 150 le and {[50 50] 0 setdash} {[ ] 0 setdash} ifelse a0 b0 moveto c d lineto stroke iangle 090 ge iangle 150 le and {[50 50] 0 setdash} {[ ] 0 setdash} ifelse a0 c0 moveto c d lineto stroke iangle 030 eq {/r*x 1 def /g*x 0 def /b*x 0 def} if iangle 090 eq {/r*x 1 def /g*x 1 def /b*x 0 def} if iangle 150 eq {/r*x 0 def /g*x 1 def /b*x 0 def} if iangle 210 eq {/r*x 0 def /g*x 1 def /b*x 1 def} if iangle 270 eq {/r*x 0 def /g*x 0 def /b*x 1 def} if iangle 330 eq {/r*x 1 def /g*x 0 def /b*x 1 def} if r*x g*x b*x setrgbcolor c d 100 0 360 arc fill } for %iangle=30,60,330 1 1 1 setrgbcolor %W a0 b0 100 0 360 arc fill 0 0 0 setrgbcolor %N a0 b0 100 0 360 arc stroke 0 0 0 setrgbcolor %N a0 c0 100 0 360 arc fill %calculation line of actual hue %45 setlinewidth %actual gamut %0 0 0 setrgbcolor %0 1 5 {/i exch def %i=0,5 % /A*Ma LAB*a i 3 mul 1 add get def % /B*Ma LAB*a i 3 mul 2 add get def % i 0 eq {A*Ma 10 mul B*Ma 10 mul moveto} % {A*Ma 10 mul B*Ma 10 mul lineto} ifelse % i 5 eq {closepath stroke} if % } for %i=0,5 %plot line of actual hue 50 setlinewidth xcharts 0 eq {/r*x 1 def /g*x 0 def /b*x 0 def} if xcharts 1 eq {/r*x 1 def /g*x 1 def /b*x 0 def} if xcharts 2 eq {/r*x 0 def /g*x 1 def /b*x 0 def} if xcharts 3 eq {/r*x 0 def /g*x 1 def /b*x 1 def} if xcharts 4 eq {/r*x 0 def /g*x 0 def /b*x 1 def} if xcharts 5 eq {/r*x 1 def /g*x 0 def /b*x 1 def} if xcharts 5 le {%xcharts<=5 r*x g*x b*x setrgbcolor 0 0 moveto /A*Ma LAB*a xcharts 3 mul 1 add get def /B*Ma LAB*a xcharts 3 mul 2 add get def A*Ma 10 mul B*Ma 10 mul lineto stroke } if %xcharts<=5 %xcharts 6 ge {%xcharts>=6 % 0 1 15 {/jhue exch def %jhue % /L*xMa DEintp 0 eq {L*diMa} {L*eiMa} ifelse jhue get def % /A*xMa DEintp 0 eq {A*diMa} {A*eiMa} ifelse jhue get def % /B*xMa DEintp 0 eq {B*diMa} {B*eiMa} ifelse jhue get def % /r*x DEintp 0 eq {o3*ddiMa} {o3*ediMa} ifelse jhue get def % /g*x DEintp 0 eq {l3*ddiMa} {l3*ediMa} ifelse jhue get def % /b*x DEintp 0 eq {v3*ddiMa} {v3*ediMa} ifelse jhue get def % r*x g*x b*x setrgbcolor % 0 0 moveto % A*xMa 10 mul B*xMa 10 mul lineto stroke % A*xMa 10 mul B*xMa 10 mul moveto % -100 -100 rlineto 200 200 rlineto stroke % A*xMa 10 mul B*xMa 10 mul moveto % -100 100 rlineto 200 -200 rlineto stroke % } for %jhue=0,15 % } if %xcharts>=6 /fakt 1.5 def /iangle 10 def /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 20 setlinewidth 1 0 0.1 setrgbcolor a0 c0 moveto c fakt mul faktr mul d fakt mul faktr mul lineto a0 b0 lineto stroke 0 0 0 setrgbcolor newpath c fakt mul faktr mul d fakt mul faktr mul moveto 1 0 0.1 setrgbcolor c fakt mul faktr mul d fakt mul faktr mul 100 0 360 arc fill 0 0 0 setrgbcolor -1200 -1300 translate grestore showpage %%Trailer