%!PS-Adobe-3.0 EPSF-3.0 UE200-7N %%BoundingBox: 70 83 413 318 %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: farbe.li.tu-berlin.de/UE20/UE20.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2020080112000) /ModDate (D:2020080112000) /DOCINFO pdfmark07 [ /View [ /Fit ] /DOCVIEW pdfmark07 %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 72 85 moveto (UE200-7N) 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 CIE Farbkennzeichen) showde TBIK ( ice*) show TBK ( and linear relations between) showen ( und lineare Beziehungen zwischen) showde TBIK ( rgb*) show (\255) showde TBK ( and CIELAB data) showen (und CIELAB\255Daten) showde 0000 -200 translate %triangle S1 7200 moveto TBK (Example for elementary hue red) showen (Beispiel f\374r Elementarbuntton Rot) showde TBIK ( R:) show S1 6800 moveto TBIK (i* ) show ( relative brilliance) showen ( relative Brillantheit) showde S1 6500 moveto TBIK (c* ) show TBK ( relative chroma) showen ( relative Buntheit) showde S1 6200 moveto TBIK (e*) show TBK ( elementary hue value) showen ( Elementar\255Bunttonwert) showde ( = 0) show /xd 1550 def /yd 5000 def xd yd 2000 sub moveto 2000 1000 rlineto -2000 1000 rlineto closepath stroke xd 1000 add yd 0400 sub moveto TK (9 steps) showen (9 Stufen) showde xd 1100 add yd 1750 sub moveto TK (9 steps) showen (9 Stufen) showde xd 900 sub yd 1100 sub moveto TK (9 steps) showen (9 Stufen) showde /xdN xd def /ydN yd 2000 sub def /xdW xd def /ydW yd def /xdR xd 2000 add def /ydR yd 1000 sub def xdN ydN moveto 3000 0 rlineto stroke %mark xdN 3000 add 100 sub ydN 050 sub moveto 100 050 rlineto -100 050 rlineto stroke xdN ydN moveto 0 2350 rlineto stroke %mark xdN 050 sub ydN 2250 add moveto 050 100 rlineto 050 -100 rlineto stroke xdN 1400 add ydN 250 sub moveto TBK (relative chroma) showen (relative Buntheit) showde TBIK ( c*) show xdN 100 add ydN 2250 add moveto TBK (relative ligthness) showen (relative Helligkeit) showde TBIK ( l*) show TBK xdW ydW moveto 200 0 rlineto 50 -50 rmoveto (1) show %Scale rel. lightness xdR ydN 50 sub moveto 0 100 rlineto stroke xdR 50 sub ydN 100 add moveto (1) show %scale rel. chroma newpath /xm 2000 8 div def 0 1 08 {/i exch def /xi xd def /yi ydN xm i mul add def xi yi 050 0 360 arc fill /xi xd xm i mul add def /yi ydN xm 0.5 mul i mul add def xi yi 050 0 360 arc fill /xi xdR xm i mul sub def /yi ydR xm 0.5 mul i mul add def xi yi 050 0 360 arc fill } for 0 setgray /xNd xd def %Nd /yNd ydN def xNd yNd 100 0 360 arc fill /xWd xd def %Wd /yWd ydN 2000 add def xWd yWd 100 0 360 arc fill xd xm 8 mul add ydN xm 0.5 mul 8 mul add 100 0 360 arc fill xdN 1400 sub ydN 050 sub moveto TBK (Schwarz) showde ( Black) showen TBIK ( N) show xdN 1100 sub ydN 350 sub moveto TBIK (LCh*) show (N) ibshow0 TBK ( = 18, 0, 0) show xdN 1100 sub ydN 600 sub moveto TBIK (rgb*) show (N) ibshow0 TBK ( = 0, 0, 0) show xdW 1400 sub ydW 700 add moveto TBIK (LCh*) show (W) ibshow0 TBK ( = 95, 0, 0) show xdW 1400 sub ydW 450 add moveto TBIK (rgb*) show (W) ibshow0 TBK ( = 1, 1, 1) show xdW 1100 sub ydW 050 sub moveto TBK (Wei\337) showde (White) showen TBIK ( W) show xdR 200 add ydR 050 add moveto TBK (red) showen (Rot) showde TBIK ( R) show (e) ishow xdR 200 sub ydR 300 sub moveto TBIK (LCh*) show (R) ibshow0 TBK ( = 47, 74, 26) show xdR 200 sub ydR 550 sub moveto TBIK (rgb*) show (R) ibshow0 TBK ( = 1, 0, 0) show /xm 2000 4 div def /xip xd xm 2 mul add def /yip ydN xm 2 mul add def /xi1 xd xm 1 mul sub def /yi1 ydW xm 0.5 mul sub def /xi2 xd xm 2 mul add def /yi2 ydN 400 sub def newpath 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 450 sub moveto TBIM (i*) show TBM ( = 0,75) show xi2 300 sub yi2 300 sub moveto TBIM (c*) show TBM ( = 0,50) show 100 1500 moveto 0 setgray TBK (examples for user colour notation:) showen (Beispiele f\374r Benutzer\255Farbkennzeichen:) showde 1 0 0 setrgbcolor 100 1200 moveto TBIK (ice*) show TBK ( = 0,75 0,50 0,00) show TBK ( oder ) showde ( or ) showen 100 900 moveto TBIK (rgb*) show TBK ( = 0,75 0,25 0,00) show 100 600 moveto TBIK (L*) show TK (=47; ) show TBIK (C*) show (ab) ibshow0 TK (=75; ) show TBIK (h) show (ab) ibshow0 TK (=26) show 100 300 moveto TBIK (L*) show (N) ibshow0 TK (=18; ) show TBIK (L*) show (W) ibshow0 TK (=95) show 0000 200 translate %*************************************************************** %HUE CIRCLE 8000 5300 translate 0 setgray -2300 1700 moveto TBK (Notation des relativen Elementar\255Bunttons) showde (Notation of the relative elementary hue) showen TBIK ( e*) show 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 -50 1500 100 sub moveto 50 100 rlineto 50 -100 rlineto closepath stroke %150 1400 moveto TBIK (y*) show 0 setgray 1000 100 add 0000 150 add moveto TBIK (u*) show (R) ibshown TBK ( = R00Y) show () ishow0 -1700 550 sub 0000 150 add moveto TBIK (u*) show (G) ibshown TBK ( = G00B) show () ibshow0 -800 550 sub 1000 350 add moveto TBIK (u*) show (Y) ibshown TBK ( = Y00G) show () ibshow0 -0750 550 sub -1000 250 sub moveto TBIK (u*) show (B) ibshown TBK ( = B00R) show () ibshow0 1000 100 add 0000 200 sub moveto TBIK (e*) show (R) ibshown TBK ( = 0,00) show -1700 550 sub 0000 200 sub moveto TBIK (e*) show (G) ibshown TBK ( = 0,50) show -800 550 sub 1000 050 add moveto TBIK (e*) show (Y) ibshown TBK ( = 0,25) show %-0900 550 sub -1000 550 sub moveto 100 -1000 250 sub moveto TBIK (e*) show (B) ibshown TBK ( = 0,75) show 900 -700 moveto TBK (relative chroma) showen (relative Buntheit) showde TBIK ( c*) show TBK ( = 1) show /angle 36.0 def 20 setlinewidth 1 0 0 setrgbcolor 0 0 moveto 1500 angle cos mul 1500 angle sin mul rlineto stroke 1500 750 300 add moveto TBIK (u*) show TBK ( = R40Y) show 1500 750 050 add moveto TBIK (e*) show TBK ( = 0,10) show 1500 750 200 sub moveto TBK (o, O) show TBK ( = orange) showen ( = Orange) showde newpath 0 0 moveto ( ) show 0.9 0.4 0.0 setrgbcolor 40 setlinewidth 0 0 moveto 1500 angle cos mul 1500 angle sin mul rlineto stroke 0.8 0.4 0.0 setrgbcolor 500 angle cos mul 500 angle sin mul 100 0 360 arc fill newpath 300 450 moveto (o) show newpath 1.0 0.5 0.0 setrgbcolor 1000 angle cos mul 1000 angle sin mul 100 0 360 arc fill newpath 0750 750 moveto (O) show 0 setgray /angle 0 def newpath 0 0 moveto ( ) show 1 0 0 setrgbcolor 40 setlinewidth 0 0 moveto 500 angle cos mul 500 angle sin mul rlineto stroke 0.9 0.2 0.2 setrgbcolor 500 angle cos mul 500 angle sin mul 100 0 360 arc fill newpath 300 -200 moveto (r) show newpath 1.0 0.0 0.0 setrgbcolor 1000 angle cos mul 1000 angle sin mul 100 0 360 arc fill newpath 0700 -250 moveto (R) show 0 setgray -8000 -5300 translate %************************************************************************* %RJGB /xt2 6000 def /yt2 -2500 def xt2 yt2 translate /xp 1550 def /yp 5000 def 0 setgray xp 1900 sub yp 0900 add moveto TBK (9stufige Offset\255Farben im \255CIELAB\255Farbraum) showde (9 step offset colours in CIELAB colour space) showen /xfact 2000 100 div def /yfact 1000 100 div def /L*d 47 yfact mul def /C*d 75 xfact mul def /L*Nd 18 yfact mul def /L*Wd 95 yfact mul def 0 setgray xp 900 add yp 0600 sub moveto TK (9 steps) showen (9 Stufen) showde xp 800 add yp 1550 sub moveto TK ( 9 steps) showen (9 Stufen) showde xp 900 sub yp 1000 sub moveto TK (9 steps) showen (9 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 %sertical axis xpN 3000 add 100 sub ypN 050 sub moveto 100 050 rlineto -100 050 rlineto stroke xpN ypN moveto 0 2350 rlineto stroke %diagonal up xpN 050 sub ypN 2250 add moveto 050 100 rlineto 050 -100 rlineto stroke xpN 1570 add ypN 250 sub moveto TBK (CIELAB chroma) showen (CIELAB Buntheit) showde TBIK ( C*) show (ab) ibshown xpN 100 add ypN 2250 add moveto TBK (CIELAB ligthness) showen (CIELAB Helligkeit) showde TBIK ( L*) show TBK xpW ypW moveto 200 0 rlineto 50 -50 rmoveto (100) show %Scale lightness xpX ypN 50 sub moveto 0 100 rlineto stroke xpX 150 sub ypN 100 add moveto (100) show %scale chroma 0 setgray /xNd xp def %Nd /yNd ypN 2000 0.18 mul add def newpath xNd yNd 100 0 360 arc fill /xWd xp def %Wd /yWd ypN 2000 0.95 mul add def newpath xWd yWd 100 0 360 arc fill /xRd xp 2000 0.75 mul add def %Rd /yRd ypN 2000 0.47 mul add def newpath xRd yRd 100 0 360 arc fill newpath 1 0 0 setrgbcolor xip 100 sub yip 50 sub moveto (F) show 0 setgray 20 setlinewidth newpath xNd yNd moveto xRd yRd lineto xWd yWd lineto stroke newpath 0 setgray /xm 2000 8 div def /ym 2000 8 div def 0 1 08 {/i exch def /xm 0 def /ym yWd yNd sub 8 div def /xi xNd xm i mul add def %NW /yi yNd ym i mul add def xi yi 050 0 360 arc fill /xm xRd xNd sub 8 div def /ym yRd yNd sub 8 div def /xi xNd xm i mul add def %NR /yi yNd ym i mul add def xi yi 050 0 360 arc fill /xm xRd xWd sub 8 div def /ym yWd yRd sub 8 div def /xi xRd xm i mul sub def %RW /yi yRd ym i mul add def xi yi 050 0 360 arc fill } for 1 0 0 setrgbcolor /xRd2 xp 2000 0.375 mul add def /yRd2 yRd ym 4 mul add yWd yNd sub 4 div sub def 40 setlinewidth xRd2 yRd2 100 0 360 arc fill xRd2 yRd2 moveto xNd yWd yWd yNd sub 4 div sub lineto stroke xRd2 yRd2 moveto 0 -750 rlineto stroke 0 setgray xpN 1500 sub ypN 500 add moveto TBK (Schwarz) showde ( Black) showen TBIK ( N) show xpN 1900 sub ypN 250 add moveto TBIK (LCh*) show (N) ibshow0 TBK ( = 18, 0, 0) show xpN 1900 sub ypN 000 sub moveto TBIK (rgb*) show (N) ibshow0 TBK ( = 0, 0, 0) show xpW 1250 sub ypW 050 sub moveto TBK (Wei\337) showde (White) showen TBIK ( W) show xpW 1900 sub ypW 550 add moveto TBIK (LCh*) show (W) ibshow0 TBK ( = 95, 0, 0) show xpW 1900 sub ypW 300 add moveto TBIK (rgb*) show (W) ibshow0 TBK ( = 1, 1, 1) show xpX 300 sub ypX 000 sub moveto TBK (red) showen (Rot) showde TBIK ( R) show (e) ishow xpX 300 sub ypX 300 sub moveto TBIK (LCh*) show (R) ibshow0 TBK ( = 47, 74, 26) show xpX 300 sub ypX 550 sub moveto TBIK (rgb*) show (R) ibshow0 TBK ( = 1, 0, 0) show /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 1 0 0 setrgbcolor xi1 900 sub yi1 450 sub moveto TBIM (I*) show TBM ( = 75) show xi2 300 sub yi2 500 add moveto TBIM (C*) show (ab) ibshow0 TBM ( = 37) show xpN 500 sub ypN 250 sub moveto TBIK (rgb*) show (F) ibshow0 TBK ( =0,75, 0,25, 0) show xt2 neg yt2 neg translate %************************************************************************* showpage grestore %%Trailer