%!PS-Adobe-3.0 EPSF-3.0 SE251-7 %%BoundingBox: 70 83 413 318 %START PDFDE011.EPS /pdfmark17 where {pop} {userdict /pdfmark17 /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/SE25/) /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:2013030112000) /ModDate (D:2013030112000) /DOCINFO pdfmark17 [ /View [ /FitB ] /DOCVIEW pdfmark17 %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 /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 /nshow {TS show} bind def /kshow {TIS show} bind def /bshow {TBS show} bind def /jshow {TBIS show} bind def /ibshown {TBS -50 -50 rmoveto show 0 50 rmoveto TBS} bind def /ibshow0 {TBS -00 -50 rmoveto show 0 50 rmoveto TBS} bind def /ishown {TS -50 -50 rmoveto show 0 50 rmoveto TS } bind def /ishow0 {TS -00 -50 rmoveto show 0 50 rmoveto TS } bind def /lanind 0 def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind le {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind le {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind le {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 (SE251-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 CIE colour notation) showen (Benutzerfreundliches farbmetrisches CIE Farbkennzeichen) showde TBIK ( ncu*) show (e) ibshown TBK ( or) showen ( oder) showde TBIK ( uic*) show (e) ibshown TBK ( or) showen ( oder) showde TBIK ( nce*) show (e) ibshown TBK ( and linear relation to) showen ( und lineare Beziehung zu) showde TBIK ( rgb*) show (e) ibshown TBK ( data) showen (\255Daten) showde S1 7100 moveto TBIK (n* ) show (e) ibshown TBK ( relative blackness) showen ( relative Schwarzheit) showde S1 6800 moveto TBIK (i* ) show (e) ibshown TBK ( = 1 - ) show TBIK (n* ) show (e) ibshown TBK ( relative brilliance) showen ( relative Brillantheit) showde S1 6500 moveto TBIK (c* ) show (e) ibshown TBK ( relative chroma) showen ( relative Buntheit) showde S1 6200 moveto TBIK (u*) show (e) ibshown TBK ( elementary (unique) hue text) showen ( Elementar\255(Ur\255)Bunttontext) showde S1 5900 moveto TBIK (e*) show (e) ibshown TBK ( elementary hue number) showen ( Elementar\255(Ur\255)Bunttonzahl) showde /xp 1550 def /yp 5000 def xp yp 2000 sub moveto 2000 1000 rlineto -2000 1000 rlineto closepath stroke xp 1000 add yp 0300 sub moveto TK (5 steps) showen (5 Stufen) showde xp 1200 add yp 1650 sub moveto TK (5 steps) showen (5 Stufen) showde xp 1300 sub yp 1300 sub moveto TK (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 (e) ibshown 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 900 sub ypN 350 sub moveto TBIK (n*) show (e) ibshown TBK ( = 1; ) show TBIK (i*) show (e) ibshown TBK ( = 0) show xpN 500 sub ypN 650 sub moveto TBIK (c*) show (e) ibshown TBK ( = 0) show xpW 1050 sub ypW 050 sub moveto TBK (Wei\337) showde (White) showen TBIK ( W) show xpW 900 sub ypW 600 add moveto TBIK (n*) show (e) ibshown TBK ( = 0; ) show TBIK (i*) show (e) ibshown TBK ( = 1) show xpW 500 sub ypW 300 add moveto TBIK (c*) show (e) ibshown 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 200 sub ypX 300 sub moveto TBIK (n*) show (e) ibshown TBK ( = 0; ) show TBIK (i*) show (e) ibshown TBK ( = 1) show xpX 100 add ypX 600 sub moveto TBIK (c*) show (e) ibshown 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 950 sub yi1 400 sub moveto TBIM (n*) show (e) ibshown TBM ( = 0,25) show xi1 950 sub yi1 700 sub moveto TBIM (i*) show (e) ibshown TBM ( = 0,75) show xi2 300 sub yi2 300 sub moveto TBIM (c*) show (e) ibshown TBM ( = 0,50) show 100 1200 moveto 0 setgray TBM (examples for user colour notation:) showen (Beispiele f\374r Benutzer\255Farbkennzeichen:) showde 1 0 0 setrgbcolor 100 800 moveto TBIM (ncu*) show (e) ibshown TBM ( = 0,25 0,50 R25Y) show (e) ibshow0 TBM ( oder ) showde ( or ) showen TBIM (uic*) show (e) ibshown TBM ( = R25Y_0,75_0,50) show (e) ibshow0 100 500 moveto 0 setgray TBM (or) showen (oder) showde 100 200 moveto 1 0 0 setrgbcolor TBIM (nce*) show (e) ibshown 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 CIELAB) showen TBIM ( \050 a*) showen (\255\050 a*) showde (a) ibshown TBIM (, b*) show (b) ibshown TBIM (\051) show TBM ( chroma) showen (\255Buntheit) showde 5500 7000 moveto TBIM (relative gegenfarbige) showde (relative opponent) showen TBIM ( \050 r*) show (e) ibshown TBIM ( , y*) show (e) ibshown TBIM (\051) show TBM ( chroma) showen (\255Buntheit) 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 2600 -150 moveto TBIK (a*) show (a) ibshown -50 1700 100 sub moveto 50 100 rlineto 50 -100 rlineto closepath stroke 150 1600 moveto TBIK (b*) show (a) ibshown 1 0 0 setrgbcolor 0 0 moveto 1500 25 cos mul 1500 25 sin mul lineto stroke 0 0 0 setrgbcolor 0 0 moveto 1500 92 cos mul 1500 92 sin mul lineto stroke [100] 100 setdash 1 1 0 setrgbcolor 0 0 moveto 1500 92 cos mul 1500 92 sin mul lineto stroke [ ] 0 setdash 0 1 0 setrgbcolor 0 0 moveto 1500 162 cos mul 1500 162 sin mul lineto stroke 0 0 1 setrgbcolor 0 0 moveto 1200 272 cos mul 1200 272 sin mul lineto stroke 0 setgray 1500 25 cos mul 100 add 1000 25 sin mul 250 sub moveto TBIK (h) show (ab,R) ibshow0 TBK ( = 25 degree) showen ( = 25 Grad) showde 1500 25 cos mul 100 add 1000 25 sin mul 000 add moveto TBIK (rgb*) show (e,R) ibshown TBK ( = 1 0 0) show 1300 92 cos mul 1900 sub 1000 92 sin mul 100 add moveto TBIK (h) show (ab,Y) ibshow0 TBK ( = 92 degree) showen ( = 92 Grad) showde 1300 92 cos mul 1900 sub 1000 92 sin mul 400 add moveto TBIK (rgb*) show (e,Y) ibshown TBK ( = 1 1 0) show 1300 162 cos mul 1800 sub 1000 162 sin mul 300 sub moveto TBIK (h) show (ab,G) ibshow0 TBK ( = 162 degree) showen ( = 162 Grad) showde 1300 162 cos mul 1800 sub 1000 162 sin mul 000 add moveto TBIK (rgb*) show (e,G) ibshown TBK ( = 0 1 0) show 1500 272 cos mul 2800 sub 1000 272 sin mul 400 sub moveto TBIK (rgb*) show (e,B) ibshown TBK ( = 0 0 1;) show TBIK ( h) show (ab,B) ibshow0 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 1400 42 cos mul 000 add 1500 42 sin mul 200 add moveto TBIK (h) show (ab,X) ibshow0 TBK ( = 42 degree) showen ( = 42 Grad) showde 1400 42 cos mul 000 add 1500 42 sin mul 100 sub moveto 1 setgray %white lettters TBIK (h) show (ab,X) ibshow0 0 setgray TBK ( =\05025+) show 1 0 0 setrgbcolor (0,25*) show 0 setgray (67\051) show ( degree) showen ( Grad) showde 1400 42 cos mul 000 add 1500 42 sin mul 500 add moveto TBIK (rgb*) show (e,X) ibshown TBK ( = 1) show 1 0 0 setrgbcolor ( 0,25) show 0 setgray ( 0) show 1200 -230 moveto 1 0 0 setrgbcolor (colour F:) showen (Farbe F:) showde 1200 -500 moveto 1 0 0 setrgbcolor TBIK (rgb*) show (e) ibshown TBK ( = 0,75 0,375 0,25) show 1200 -0800 moveto TBIK (n*) show (e) ibshown TBK ( = 1 - ) show TBIK (r*) show (e) ibshown TBK ( = 0,25 ) show (oder ) showde (or ) showen 1200 -1100 moveto TBIK (i*) show (e) ibshown TBK ( = 1 - ) show TBIK (n*) show (e) ibshown TBK ( = 0,75) show 1200 -1400 moveto TBIK (c*) show TBK ( = ) show TBIK (r*) show (e) ibshown TBK ( - ) show TBIK (b*) show (e) ibshown 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 %50 setlinewidth 0 0 0 setrgbcolor 0 0 moveto 0 1500 rlineto stroke [100] 100 setdash 1 1 0 setrgbcolor 0 0 moveto 0 1500 rlineto stroke [ ] 0 setdash 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 (e) ibshown -50 1500 100 sub moveto 50 100 rlineto 50 -100 rlineto closepath stroke 150 1400 moveto TBIK (y*) show (e) ibshown 0 setgray 1000 100 add 0000 150 add moveto TBIK (u*) show (eR) ibshown TBK ( = R00Y) show (e) ishow0 -1900 550 sub 0000 150 add moveto TBIK (u*) show (eG) ibshown TBK ( = G00B) show (e) ibshow0 -1000 550 sub 1000 350 add moveto TBIK (u*) show (eY) ibshown TBK ( = Y00G) show (e) ibshow0 -0900 550 sub -1000 250 sub moveto TBIK (u*) show (eB) ibshown TBK ( = B00R) show (e) ibshow0 1000 100 add 0000 200 sub moveto TBIK (e*) show (eR) ibshown TBK ( = 0,00) show -1900 550 sub 0000 200 sub moveto TBIK (e*) show (eG) ibshown TBK ( = 0,50) show -1000 550 sub 1000 050 add moveto TBIK (e*) show (eY) ibshown TBK ( = 0,25) show -0900 550 sub -1000 550 sub moveto TBIK (e*) show (eB) ibshown 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 TBIK (u*) show (e) ibshown TBK ( = R25Y) show (e) ibshow0 1500 100 add 750 200 sub moveto TBIK (e*) show (e) ibshown TBK ( = 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