%!PS-Adobe-3.0 EPSF-3.0 IE611-3N %%BoundingBox: 70 83 413 318 %START PDFDE011.EPS /pdfmark13 where {pop} {userdict /pdfmark13 /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: http://130.149.60.45/~farbmetrik/IE61/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.Richter@mac.com) /CreationDate (D:2009090112000) /ModDate (D:2009090112000) /DOCINFO pdfmark13 [ /View [ /FitB ] /DOCVIEW pdfmark13 %END PDFDE011 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /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 /TS {200 /Times-ISOL1 FS} bind def /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIS {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 /TBS {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 /TBIS {200 /TimesBI-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 %%EndProlog gsave /lantex [(G) (E) (S) (N) (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 /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 %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES where {pop %/IMES IMES def } {/IMES 0 def} ifelse 5 /Times-ISOL1 FS 380 85 moveto (IE611-7) show 72 90 translate /ytit 550 def /yhoe 8500 def /yhoet yhoe ytit sub def /xwide 12000 def /ishow {-50 -100 rmoveto 200 /Times-ISOL1 FS show 0 100 rmoveto TM} bind def 0.01 MM 0.01 MM scale 15 setlinewidth 0.0 0.0 0.0 0.0 setcmykcolor 0 0 moveto xwide 0 rlineto 0 yhoet rlineto xwide neg 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmykcolor 0 0 moveto xwide 0 rlineto 0 yhoet rlineto xwide neg 0 rlineto closepath stroke /yt 300 def %y-Zeilenabstand for text /yd 400 def %y-Zeilenabstand for formula %Spalten /S1 100 def /S2 1500 def /S3 2300 def /S4 5900 def /S5 7700 def /S6 8500 def /yz 400 def /yu5 7600 def /yu4 7100 def /yu3 5800 def /yu2 5800 def /yu1 5800 def /yhoey yhoet 550 sub def /yhoe2 yhoet 1250 sub def %vertical % S2 100 sub yhoey moveto 0 yhoey neg rlineto stroke %horizontal 0 yu4 300 add moveto xwide 0 rlineto stroke %Titeltext TBK S1 yu5 moveto (User friendly colorimetric colour notation) showen (Benutzerfreundliches farbmetrisches Farbkennzeichen) showde TBIK ( ncu*) show %TBK ( or) showen ( oder) showde %TBIK ( nce*) show TBK ( and linear relation to three) showen ( und lineare Beziehung zu drei) showde TBIK ( rgb*) show %TBS -30 -60 rmoveto (3) show 0 60 rmoveto TBK ( data) showen (\255Daten) showde S1 7100 moveto TBIK (n* ) show TBK (relative blackness) showen (relative Schwarzheit) showde S1 6800 moveto TBIK (c* ) show TBK (relative chroma) showen (relative Buntheit) showde S1 6500 moveto TBIK (u* ) show TBK (elementary (unique) hue text) showen (Elementar\255(Ur\255)Bunttontext) showde %S1 6200 moveto %TBIK (e* ) show TBK (elementary hue number) showen %(Elementar\255(Ur\255)Bunttonzahl) showde S1 6200 moveto TBIK (h) show TBS 20 -60 rmoveto (ab) show 30 60 rmoveto TBK ( hue angle in CIELAB) showen ( Bunttonwinkel in CIELAB) showde /xp 1550 def /yp 5000 def xp yp 2000 sub moveto 2000 1000 rlineto -2000 1000 rlineto closepath stroke TK xp 1000 add yp 0300 sub moveto (5 steps) showen (5 Stufen) showde xp 1200 add yp 1650 sub moveto (5 steps) showen (5 Stufen) showde xp 1300 sub yp 1200 sub moveto (5 steps) showen (5 Stufen) showde /xpN xp def /ypN yp 2000 sub def /xpW xp def /ypW yp def /xpX xp 2000 add def /ypX yp 1000 sub def xpN ypN moveto 3000 0 rlineto stroke %mark xpN 3000 add 100 sub ypN 050 sub moveto 100 050 rlineto -100 050 rlineto stroke xpN 1300 add ypN 250 sub moveto TBK (relative chroma) showen (relative Buntheit) showde TBIK ( c*) show newpath /xm 2000 4 div def 0 1 04 {/i exch def /xi xp def /yi ypN xm i mul add def xi yi 050 0 360 arc fill /xi xp xm i mul add def /yi ypN xm 0.5 mul i mul add def xi yi 050 0 360 arc fill /xi xpX xm i mul sub def /yi ypX xm 0.5 mul i mul add def xi yi 050 0 360 arc fill } for xpN 1300 sub ypN 050 sub moveto TBK (Schwarz) showde ( Black) showen TBIK ( N) show xpN 500 sub ypN 350 sub moveto TBIK (n*) show TBK ( = 1) show xpN 500 sub ypN 650 sub moveto TBIK (c*) show TBK ( = 0) show xpW 1050 sub ypW 050 sub moveto TBK (Wei\337) showde (White) showen TBIK ( W) show xpW 500 sub ypW 600 add moveto TBIK (n*) show TBK ( = 0) show xpW 500 sub ypW 300 add moveto TBIK (c*) show TBK ( = 0) show xpX ypX moveto ( ) show xpX ypX 100 0 360 arc fill xpX 100 add ypX 300 add moveto TBK (Chromatic) showen (Bunt) showde xpX 150 add ypX 050 sub moveto (X) show xpX 100 add ypX 300 sub moveto TBIK (n*) show TBK ( = 0) show xpX 100 add ypX 600 sub moveto TBIK (c*) show TBK ( = 1) show /xip xp xm 2 mul add def /yip ypN xm 2 mul add def /xi1 xp xm 1 mul sub def /yi1 ypW xm 0.5 mul sub def /xi2 xp xm 2 mul add def /yi2 ypN 400 sub def newpath xip yip moveto ( ) show 1 0 0 setrgbcolor xip yip 100 0 360 arc fill newpath xip 150 add yip 50 sub moveto (F) show 40 setlinewidth xi1 yi1 moveto xip yip lineto stroke xip yip moveto xi2 yi2 lineto stroke xi1 700 sub yi1 500 sub moveto TBIM (n*) show TBM ( = 0,25) show xi2 300 sub yi2 300 sub moveto TBIM (c*) show TBM ( = 0,50) show 100 1200 moveto 0 setgray TBM (example for colour notation:) showen (Beispiel f\374r Farbkennzeichen:) showde 1 0 0 setrgbcolor 100 800 moveto TBIM (ncu*) show TBM ( = 0,25 0,50 r25j) show % 100 500 moveto %0 setgray (or) showen (oder) showde % 100 200 moveto %1 0 0 setrgbcolor %TBIM (nce*) show %TBM ( = 0,25 0,50 0,0625 (=0,25/4)) show newpath 0 setgray 0 0 moveto ( ) show 5500 3400 moveto TBIM (relative CIELAB) showde (relative trichromatic CIELAB) showen TBIM ( \050 a*) showen (\255\050 a*) showde TBS -30 -60 rmoveto (r) show 30 60 rmoveto TBIM (, b*) show TBS -30 -60 rmoveto (r) show 30 60 rmoveto TBIM (\051) show TBM ( chroma) showen (\255Buntheit) showde 5500 7000 moveto TBIM (relative Elementar\255) showde (relative elementary) showen TBIM ( \050 r*) showen (\255\050 r*) showde TBS -30 -60 rmoveto (e) show 30 60 rmoveto TBIM (, j*) show TBS -30 -60 rmoveto (e) show 50 60 rmoveto TBIM (\051) show TBM ( chroma) showen ( Buntheit) showde %RJGB 8000 1500 translate 20 setlinewidth 0 0 moveto ( ) show 0 0 1000 0 360 arc stroke 40 setlinewidth 0 0 moveto 2500 0 rlineto stroke 0 0 moveto 0 1700 rlineto stroke 2500 100 sub -50 moveto 100 50 rlineto -100 50 rlineto closepath stroke 2400 -300 moveto TBIK (a*) show TBS -30 -60 rmoveto (r) show 0 60 rmoveto -50 1700 100 sub moveto 50 100 rlineto 50 -100 rlineto closepath stroke 150 1600 moveto TBIK (b*) show TBS -30 -60 rmoveto (r) show 0 60 rmoveto 1 0 0 setrgbcolor 0 0 moveto 1500 25 cos mul 1000 25 sin mul lineto stroke 1 1 0 setrgbcolor 0 0 moveto 1500 92 cos mul 1000 92 sin mul lineto stroke 0 1 0 setrgbcolor 0 0 moveto 1500 162 cos mul 1000 162 sin mul lineto stroke 0 0 1 setrgbcolor 0 0 moveto 1500 272 cos mul 1000 272 sin mul lineto stroke 0 setgray 1500 25 cos mul 100 add 1000 25 sin mul 300 sub moveto TBIK (h) show TBS 10 -60 rmoveto (ab,R) show 0 60 rmoveto TBK ( = 25 degree) showen ( = 25 Grad) showde 1500 25 cos mul 100 add 1000 25 sin mul 000 add moveto TBIK (rgb*) show TBS -30 -60 rmoveto (R) show 0 60 rmoveto TBK ( = 1 0 0) show 1500 92 cos mul 1900 sub 1000 92 sin mul 100 add moveto TBIK (h) show TBS 10 -60 rmoveto (ab,J) show 0 50 rmoveto TBK ( = 92 degree) showen ( = 92 Grad) showde 1500 92 cos mul 1900 sub 1000 92 sin mul 400 add moveto TBIK (rgb*) show TBS -30 -60 rmoveto (J) show 0 60 rmoveto TBK ( = 1 1 0) show 1500 162 cos mul 1800 sub 1000 162 sin mul 300 sub moveto TBIK (h) show TBS 10 -60 rmoveto (ab,G) show 0 60 rmoveto TBK ( = 162 degree) showen ( = 162 Grad) showde 1500 162 cos mul 1800 sub 1000 162 sin mul 000 add moveto TBIK (rgb*) show TBS -30 -60 rmoveto (G) show 0 60 rmoveto TBK ( = 0 1 0) show 1500 272 cos mul 2800 sub 1000 272 sin mul 300 sub moveto TBIK (rgb*) show TBS -30 -60 rmoveto (B) show 0 60 rmoveto TBK ( = 0 0 1;) show TBIK ( h) show TBS 10 -60 rmoveto (ab,B) show 0 60 rmoveto TBK ( = 272 degree) showen ( = 272 Grad) showde newpath 0 0 moveto ( ) show 0 setgray 0 0 moveto 1500 42 cos mul 1500 42 sin mul rlineto stroke 1500 42 cos mul 000 add 1500 42 sin mul 200 add moveto TBIK (h) show TBS 10 -60 rmoveto (ab,X) show 0 60 rmoveto TBK ( = 42 degree) showen ( = 42 Grad) showde 1500 42 cos mul 000 add 1500 42 sin mul 100 sub moveto 1 setgray %white lettters TBIK (h) show TBS 10 -60 rmoveto (ab,X) show 0 60 rmoveto 0 setgray TBK ( =\05025+) show 1 0 0 setrgbcolor (0,25*) show 0 setgray (67\051) show (degree) showen (Grad) showde 1500 42 cos mul 000 add 1500 42 sin mul 500 add moveto TBIK (rgb*) show TBS -30 -60 rmoveto (X) show 0 60 rmoveto TBK ( = 1) show 1 0 0 setrgbcolor ( 0,25) show 0 setgray ( 0) show %1200 -400 moveto %1 0 0 setrgbcolor %(colour F:) showen (Farbe F:) showde %1200 -700 moveto %1 0 0 setrgbcolor %TBIK (rgb*) show %TBS -30 -60 rmoveto (3) show 0 60 rmoveto %TBK ( = 0,75 0,375 0,25) show %1200 -1000 moveto %TBIK (n*) show %TBK ( = 1 - ) show TBIK (r*) show %TBS -30 -60 rmoveto (3) show 30 60 rmoveto %TBK ( = 0,25) show %1200 -1300 moveto %TBIK (c*) show %TBK ( = ) show TBIK (r*) show %TBS -30 -60 rmoveto (3) show 30 60 rmoveto %TBK ( - ) show TBIK (b*) show %TBS -30 -60 rmoveto (3) show 30 60 rmoveto %TBK ( = 0,50) show newpath 0 0 moveto ( ) show newpath 40 setlinewidth 0 setgray 1000 42 cos mul 1000 42 sin mul 100 0 360 arc fill 1 0 0 setrgbcolor 0500 42 cos mul 0500 42 sin mul 100 0 360 arc fill newpath 0 0 moveto ( ) show 0 0 moveto 0500 42 cos mul 0500 42 sin mul rlineto stroke 0500 42 cos mul 100 sub 0500 42 sin mul 150 add moveto (F) show 0 setgray 1000 42 cos mul 100 sub 1000 42 sin mul 150 add moveto (X) show -8000 -1500 translate %CIELAB 8000 5300 translate newpath 0 setgray 0 0 moveto ( ) show 20 setlinewidth 0 0 1000 0 360 arc stroke 40 setlinewidth 1 0 0 setrgbcolor 0 0 moveto 2500 0 rlineto stroke 1 1 0 setrgbcolor 0 0 moveto 0 1500 rlineto stroke 0 1 0 setrgbcolor 0 0 moveto -2000 0 rlineto stroke 0 0 1 setrgbcolor 0 0 moveto 0 -1500 rlineto stroke 0 setgray 2500 100 sub -50 moveto 100 50 rlineto -100 50 rlineto closepath stroke 2400 -300 moveto TBIK (r*) show TBS -30 -60 rmoveto (e) show 0 60 rmoveto -50 1500 100 sub moveto 50 100 rlineto 50 -100 rlineto closepath stroke 150 1400 moveto TBIK (j*) show TBS -30 -60 rmoveto (e) show 0 60 rmoveto 0 setgray 1000 100 add 0000 100 add moveto TBIK (u*) show TBS -10 -50 rmoveto (R) show 0 50 rmoveto TBK ( = r00j) show -1700 550 sub 0000 100 add moveto TBIK (u*) show TBS -10 -50 rmoveto (G) show 0 50 rmoveto TBK ( = g00b) show -0700 550 sub 1000 350 add moveto TBIK (u*) show TBS -10 -50 rmoveto (J) show 0 50 rmoveto TBK ( = j00g) show -0700 550 sub -1000 250 sub moveto TBIK (u*) show TBS -10 -50 rmoveto (B) show 0 50 rmoveto TBK ( = b00r) show % 1000 100 add 0000 250 sub moveto TBIK (e*) show %TBS -10 -50 rmoveto (R) show 0 50 rmoveto TBK ( = 0,00) show %-1700 550 sub 0000 250 sub moveto TBIK (e*) show %TBS -10 -50 rmoveto (G) show 0 50 rmoveto TBK ( = 0,50) show %-0700 550 sub 1000 050 add moveto TBIK (e*) show %TBS -10 -50 rmoveto (J) show 0 50 rmoveto TBK ( = 0,25) show %-0700 550 sub -1000 550 sub moveto TBIK (e*) show %TBS -10 -50 rmoveto (B) show 0 50 rmoveto TBK ( = 0,75) show 20 setlinewidth 1 0 0 setrgbcolor 0 0 moveto 1500 22.5 cos mul 1500 22.5 sin mul rlineto stroke 1500 100 add 750 100 add moveto TBIM (u*) show TBM ( = r25j) show %1500 100 add 750 200 sub moveto TBIM (e*) show TBM ( = 0,0625) show newpath 0 0 moveto ( ) show 1 0 0 setrgbcolor 40 setlinewidth 500 22.5 cos mul 500 22.5 sin mul 100 0 360 arc fill 0 0 moveto 500 22.5 cos mul 500 22.5 sin mul rlineto stroke newpath 400 350 moveto (F) show newpath 0 setgray 1000 22.5 cos mul 1000 22.5 sin mul 100 0 360 arc fill newpath 0900 600 moveto (X) show -8000 -5300 translate showpage grestore %%Trailer