%!PS-Adobe-3.0 EPSF-3.0 JG511-3N %%BoundingBox: 70 83 226 206 %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/JG51/) /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:2010030112000) /ModDate (D:2010030112000) /DOCINFO pdfmark13 [ /View [ /FitB ] /DOCVIEW pdfmark13 %END PDFDE011 %%Creator: K. Richter, BAM und TU Berlin, 20060601 %%+Copyright (c) 1996 VDE-Verlag Berlin Offenbach % !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 /TS {200 16.67 div /Times-ISOL1 FS} bind def /TK {250 16.67 div /Times-ISOL1 FS} bind def /TM {280 16.67 div /Times-ISOL1 FS} bind def /TG {350 16.67 div /Times-ISOL1 FS} bind def /TIS {200 16.67 div /TimesI-ISOL1 FS} bind def /TIK {250 16.67 div /TimesI-ISOL1 FS} bind def /TIM {280 16.67 div /TimesI-ISOL1 FS} bind def /TIG {350 16.67 div /TimesI-ISOL1 FS} bind def /TBS {200 16.67 div /TimesB-ISOL1 FS} bind def /TBK {250 16.67 div /TimesB-ISOL1 FS} bind def /TBM {280 16.67 div /TimesB-ISOL1 FS} bind def /TBG {350 16.67 div /TimesB-ISOL1 FS} bind def /TBIS {200 16.67 div /TimesBI-ISOL1 FS} bind def /TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def /TBIM {280 16.67 div /TimesBI-ISOL1 FS} bind def /TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def /fcolors %CMYN 32 Testfarben Nr. 0 bis 31; Farbkreis-Reihenfolge [{0.0 0.0 0.0 1.0} {0.0 1.0 1.0 0.0} {0.0 0.0 1.0 0.0} {1.0 0.0 1.0 0.0} {1.0 0.0 0.0 0.0} {1.0 1.0 0.0 0.0} {0.0 1.0 0.0 0.0} {0.0 0.0 0.0 0.0} {0.0 0.0 0.0 0.5} {0.0 1.0 1.0 0.5} {0.0 0.0 1.0 0.5} {1.0 0.0 1.0 0.5} {1.0 0.0 0.0 0.5} {1.0 1.0 0.0 0.5} {0.0 1.0 0.0 0.5} {0.0 1.0 0.5 0.0} {0.0 0.0 0.0 0.75} {0.0 0.5 0.5 0.0} {0.0 0.0 0.5 0.0} {0.5 0.0 0.5 0.0} {0.5 0.0 0.0 0.0} {0.5 0.5 0.0 0.0} {0.0 0.5 0.0 0.0} {1.0 0.5 0.0 0.0} {0.0 0.0 0.0 0.25} {0.0 0.5 1.0 0.0} {0.5 0.0 1.0 0.0} {1.0 0.0 0.5 0.0} {1.0 0.5 0.0 0.0} {0.5 1.0 0.0 0.0} {0.0 1.0 0.5 0.0} {1.0 0.0 0.5 0.0} ] 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 START 20000505 /lanind 1 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 0 def /lanind2 0 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END 5 /Times-ISOL1 FS %72 85 moveto (Teil 2) showde (Part 2) showen 195 85 moveto (JG511-3) show %5 /Times-ISOL1 FS %(elementary hue Red R: relation) showen %(Elemantarfarbe Rot R: Beziehung) showde %5 /TimesI-ISOL1 FS %( lab*rgb-lab*ncw) show 72 90 translate 0.1667 MM dup scale 0.5 0.5 0.5 setrgbcolor 0 0 319 239 rec fill 1 1 1 setrgbcolor %Schrift Weiss 02 222 moveto TBM (Maximalfarbe) showde (Maximum colour) showen TBM ( R) show TBM ( mit 0% N,W) showde ( with 0% N,W) showen TBM (; linear) showen (; lineare) showde 02 202 moveto TBM (relation) showen (Beziehung) showde TBIM ( lab*rgb*) show TK 0 -3 rmoveto (3) show 0 3 rmoveto TBIM ( - lab*nicwd*) show /xd 4.0 def /ix0 28 def /iy0 30 def /ya [150 150] def /yb [ 00 000] def /yc [ 00 000] def /scolors [ {0.0 0.0 0.0 0.0} {0.4 0.4 0.8 0.2} ] def 1 setlinewidth TBIK /j 0 def /ix1 ix0 15 add j 130 mul add def /ixd 15 def /ix2 ix1 ixd add def /iy1 iy0 def /iyd ya j get exec def /iy2 iy0 iyd add def ix1 iy1 ixd iyd fcolors 1 get exec setcmykcolor rec fill ix1 0 sub iy2 8 add moveto (r*) fcolors 1 get exec setcmykcolor show TS 0 -3 rmoveto (3) show 0 3 rmoveto TBIK /ix1 ix0 40 add j 130 mul add def /ix2 ix1 ixd add def /iy1 iy0 def /iyd yb j get exec def /iy2 iy0 iyd add def ix1 iy1 ixd iyd fcolors 3 get exec setcmykcolor rec fill ix1 0 sub iy2 8 add moveto (g*) fcolors 3 get exec setcmykcolor show TS 0 -3 rmoveto (3) show 0 3 rmoveto TBIK /ix1 ix0 65 add j 130 mul add def /ix2 ix1 ixd add def /iy1 iy0 def /iyd yc j get exec def /iy2 iy0 iyd add def ix1 iy1 ixd iyd fcolors 5 get exec setcmykcolor rec fill ix1 0 sub iy2 8 add moveto (b*) fcolors 5 get exec setcmykcolor show TS 0 -3 rmoveto (3) show 0 3 rmoveto TBIK ix1 50 sub iy0 22 sub moveto 0.0 0.0 0.0 0.0 setcmykcolor TBK 05 05 moveto %(Colour:) showen (Farbe:) showde TBIK ( ncu*) show TBK ( = 0,00 1,00 r00j; ) show TBIK ( rgb*) show TBS -2 -3 rmoveto (3) show 0 3 rmoveto TBK ( = 1,00 0,00 0,00 ) show fcolors 7 get exec setcmykcolor /x1 10 def ix2 x1 add iy0 moveto 0 150 rlineto stroke ix2 x1 add 2 sub iy0 8 add moveto 2 -8 rlineto 2 8 rlineto closepath fill ix2 x1 add 2 sub iy0 8 sub 150 add moveto 2 8 rlineto 2 -8 rlineto closepath fill TBIK /iya iy0 ya j get exec add def /iyb iy0 yb j get exec add def /iyc iy0 yc j get exec add def /itc iy0 yc j get exec add ya j get exec yc j get exec sub 2 idiv add def /itn iy0 ya j get exec add 150 ya j get exec sub 2 idiv add def /itw iy0 yc j get exec 2 idiv add def ix2 x1 add 2 sub iya 8 add moveto 2 -8 rlineto 2 8 rlineto closepath fill ix2 x1 add 2 sub iya 8 sub moveto 2 8 rlineto 2 -8 rlineto closepath fill ix2 x1 add 2 sub iyc 8 add moveto 2 -8 rlineto 2 8 rlineto closepath fill ix2 x1 add 2 sub iyc 8 sub moveto 2 8 rlineto 2 -8 rlineto closepath fill 125 165 moveto TBIK (n*) show TBK ( = 1 - ) show TBIK (i*) show TBK ( = 0,00 ) show 125 150 moveto TBK (blackness = 1 - brilliantness) showen (Schwarzheit = 1 -Brilliantheit) showde 125 125 moveto TBIK (c*) show TBK ( = 1 - ) show TBIK (n* - w*) show TBK ( = 1,00 ) show 125 110 moveto TBK (chromaticness =1-blackness) showen (Buntheit = 1 - Schwarzheit) showde 233 095 moveto TBK (- whiteness) showen (- Wei\337heit) showde 125 065 moveto TBIK (w*) show TBK ( = 1 - ) show TBIK (d*) show TBK ( = 0,00 ) show 125 050 moveto TBK (whiteness = 1 - deepness) showen (Wei\337heit = 1 - Farbtiefe) showde /ty [( 0,0) ( 0,2) ( 0,4) ( 0,6) ( 0,8) ( 1,0) ] def /ix0 30 def /iy0 30 def 2 setlinewidth TBK 0 1 5 {/i exch def %y-Achsen-Beschriftung ix0 30 sub iy0 07 sub i 30 mul add moveto ty i get exec show } for TBM ix0 3 sub iy0 1 sub 273 2 fcolors 7 get exec setcmykcolor rec fill ix0 1 sub iy0 3 sub 2 153 fcolors 7 get exec setcmykcolor rec fill ix0 3 sub iy0 1 sub 150 add 273 2 fcolors 7 get exec setcmykcolor rec fill 0 30 150 {/iyd exch def ix0 4 sub iy0 1 sub iyd add 8 2 fcolors 07 get exec setcmykcolor rec fill } for %Schleife iyd showpage grestore } for %output with langind end %%Trailer