%!PS-Adobe-3.0 EPSF-3.0 PG010-7A %%BoundingBox: 70 83 376 320 %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: http://130.149.60.45/~farbmetrik/PG01/) /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:2011090112000) /ModDate (D:2011090112000) /DOCINFO pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 %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 /str {8 string } bind def /TKK {200 16.67 div /Times-ISOL1 FS} bind def /TK {250 16.67 div /Times-ISOL1 FS} bind def /TM {300 16.67 div /Times-ISOL1 FS} bind def /TG {350 16.67 div /Times-ISOL1 FS} bind def /TIK {250 16.67 div /TimesI-ISOL1 FS} bind def /TIM {300 16.67 div /TimesI-ISOL1 FS} bind def /TIG {350 16.67 div /TimesI-ISOL1 FS} bind def /TBK {250 16.67 div /TimesB-ISOL1 FS} bind def /TBM {300 16.67 div /TimesB-ISOL1 FS} bind def /TBG {350 16.67 div /TimesB-ISOL1 FS} bind def /TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def /TBIM {300 16.67 div /TimesBI-ISOL1 FS} bind def /TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def /tolvfcol %Farbkreis-Reihenfolge [ (000) (F00) (FF0) (0F0) (0FF) (00F) (F0F) (FFF) (777) (700) (770) (070) (077) (007) (707) (F07) %15=R (333) (F77) (FF7) (7F7) (7FF) (77F) (F7F) (07F) %23=B (BBB) (F70) (7F0) (0F7) (07F) (70F) (F07) (0F7) %31=G ] def /tcmyfcol %Farbkreis-Reihenfolge [ (FFF) (0FF) (00F) (F0F) (F00) (FF0) (0F0) (000) (888) (8FF) (88F) (F8F) (F88) (FF8) (8F8) (0F8) %15=R (CCC) (088) (008) (808) (800) (880) (080) (F80) %23=B (444) (08F) (80F) (F08) (F80) (8F0) (0F8) (F08) %31=G ] def /tcmykfcol %Farbkreis-Reihenfolge [ (000F) (0FF0) (00F0) (F0F0) (F000) (FF00) (0F00) (0000) (0008) (0FF8) (00F8) (F0F8) (F008) (FF08) (0F08) (0F80) %15=R (000C) (0880) (0080) (8080) (8000) (8800) (0800) (F800) %23=B (0004) (0F80) (80F0) (F080) (F800) (8F00) (0F80) (F080) %31=G ] def /tolvfcols %Farbkreis-Reihenfolge [ (000*) (F00*) (FF0*) (0F0*) (0FF*) (00F*) (F0F*) (FFF*) (777*) (700*) (770*) (070*) (077*) (007*) (707*) (F07*) %15=R (333*) (F77*) (FF7*) (7F7*) (7FF*) (77F*) (F7F*) (07F*) %23=B (BBB*) (F70*) (7F0*) (0F7*) (07F*) (70F*) (F07*) (0F7*) %31=G ] def /tcmyfcols %Farbkreis-Reihenfolge [ (FFF*) (0FF*) (00F*) (F0F*) (F00*) (FF0*) (0F0*) (000*) (888*) (8FF*) (88F*) (F8F*) (F88*) (FF8*) (8F8*) (0F8*) %15=R (CCC*) (088*) (008*) (808*) (800*) (880*) (080*) (F80*) %23=B (444*) (08F*) (80F*) (F08*) (F80*) (8F0*) (0F8*) (F08*) %31=G ] def /tcmykfcols %Farbkreis-Reihenfolge [ (000F*) (0FF0*) (00F0*) (F0F0*) (F000*) (FF00*) (0F00*) (0000*) (0008*) (0FF8*) (00F8*) (F0F8*) (F008*) (FF08*) (0F08*) (0F80*) %15=R (000C*) (0880*) (0080*) (8080*) (8000*) (8800*) (0800*) (F800*) %23=B (0004*) (0F80*) (80F0*) (F080*) (F800*) (8F00*) (0F80*) (F080*) %31=G ] 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 /fak 0.5 def /Far %Farbkreis-Reihenfolge [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %R 16 17 18 19 20 21 22 23 %B 24 25 26 27 28 29 30 31 %G ] def /cFar %Kompensativ-Farbkreis-Reihenfolge [ 8 4 5 6 1 2 3 0 0 20 21 22 17 18 19 31 %G 24 12 13 14 9 10 11 2 %J 16 28 29 30 25 26 27 15 %R ] def /Btx %Farbkreis- -> %Btx-Reihenfolge [ 0 1 3 2 5 6 4 7 8 9 11 10 13 14 12 15 %R 16 17 19 18 21 22 20 23 %B 24 25 26 27 28 29 30 31 %G ] def /cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge [ 7 4 6 5 2 3 1 0 8 20 22 21 18 19 17 31 %G 24 12 14 13 10 11 9 2 %J 16 25 26 27 28 29 30 15 %R ] 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 /colrecfi %x y width heigth c m y k {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmykcolor rec stroke} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %%EndProlog gsave %LANINDL2 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 /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /lanind lanind1 def 1 1 1 {/iout exch def %iout=1,1 gsave 72 90 translate 7 /Times-ISOL1 FS 2 -6 moveto iout 0 eq {( PG010-3) show} if iout 1 eq {( PG010-7) show} if iout 2 eq {( PG011-3) show} if iout 3 eq {( PG011-7) show} if /pixf 1.0 def 0.1667 pixf div MM dup scale 0 0 639 479 0.0 0.0 0.0 0.0 colrecfi %Rechteck Weiss 0 0 639 479 0.0 0.0 0.0 1.0 colrecst %Rahmen N %************************************************************** %ibild=0 10 239 translate TBIG %Schrift Times-Bold-Italic-Gross 0 setgray %Schrift Weiss 20 190 moveto (L*) show 80 3 moveto (N) show 250 85 moveto iout 0 eq {(R) show} if iout 1 eq {(Y) show} if iout 2 eq {(G) show} if iout 3 eq {(B) show} if 080 216 moveto (W) show -20 0 translate TBG 47 11 moveto (0) show 45 111 moveto (50) show 75 120 moveto 85 120 lineto stroke 28 216 moveto (100) show %160 025 moveto (50) show 150 03 moveto (Buntheit ) showde %08140-3 1 (chroma ) showen %18140-3 1 (chroma ) showes %28140-3 1 (chroma ) showfr %38140-3 1 (chroma ) showit %48140-3 1 (chroma ) showjp %58140-3 1 TBIG (C*) show TBM 0 -3 rmoveto (ab) show 0 3 rmoveto TBG 15 160 moveto (Hellig\255) showde %08140-3 2 (light\255) showen %18140-3 2 (vista del) showes %28140-3 2 (light\255) showfr %38140-3 2 (light\255) showit %48140-3 2 (light\255) showjp %58140-3 2 15 140 moveto (keit) showde %08140-3 3 (ness) showen %18140-3 3 (brillo) showes %28140-3 3 (ness) showfr %38140-3 3 (ness) showit %48140-3 3 (ness) showjp %58140-3 3 2 setlinewidth 0 setgray %Linien Weiss 80 20 moveto 320 20 lineto stroke 30 185 moveto 30 210 lineto 24 200 lineto 30 210 lineto 34 200 lineto stroke 180 25 moveto 180 15 lineto stroke 280 09 moveto 310 09 lineto 300 13 lineto 310 09 lineto 300 05 lineto stroke 280 25 moveto 280 15 lineto stroke %1 0 0 setrgbcolor %320 25 moveto 320 15 lineto stroke %308 27 moveto (120%) show 0 setgray tfn %Linien Weiss 80 20 moveto 280 120 lineto 80 220 lineto closepath stroke 065 005 30 30 0.0 0.0 0.0 1.0 colrecfi %265 105 30 30 0.0 1.0 1.0 0.0 colrecfi iout 0 eq {265 105 30 30 0.0 1.0 1.0 0.0 colrecfi} if %R iout 1 eq {265 105 30 30 0.0 0.0 1.0 0.0 colrecfi} if %J iout 2 eq {265 105 30 30 1.0 0.0 1.0 0.0 colrecfi} if %G iout 3 eq {265 105 30 30 1.0 1.0 0.0 0.0 colrecfi} if %B 065 205 30 30 0.0 0.0 0.0 0.0 colrecfi 065 205 30 30 0.0 0.0 0.0 1.0 colrecst iout 0 eq {%iout=0 130 15 sub 045 15 sub 30 30 0.0 1.0 1.0 0.75 colrecfi 180 15 sub 070 15 sub 30 30 0.0 1.0 1.0 0.50 colrecfi 230 15 sub 095 15 sub 30 30 0.0 1.0 1.0 0.25 colrecfi 230 15 sub 145 15 sub 30 30 0.0 0.75 0.75 0.0 colrecfi 180 15 sub 170 15 sub 30 30 0.0 0.50 0.50 0.0 colrecfi 130 15 sub 195 15 sub 30 30 0.0 0.25 0.25 0.0 colrecfi } if %iout=0 iout 1 eq {%iout=1 130 15 sub 045 15 sub 30 30 0.0 0.0 1.0 0.75 colrecfi 180 15 sub 070 15 sub 30 30 0.0 0.0 1.0 0.50 colrecfi 230 15 sub 095 15 sub 30 30 0.0 0.0 1.0 0.25 colrecfi 230 15 sub 145 15 sub 30 30 0.0 0.00 0.75 0.0 colrecfi 180 15 sub 170 15 sub 30 30 0.0 0.00 0.50 0.0 colrecfi 130 15 sub 195 15 sub 30 30 0.0 0.00 0.25 0.0 colrecfi } if %iout=1 iout 2 eq {%iout=2 130 15 sub 045 15 sub 30 30 1.0 0.0 1.0 0.75 colrecfi 180 15 sub 070 15 sub 30 30 1.0 0.0 1.0 0.50 colrecfi 230 15 sub 095 15 sub 30 30 1.0 0.0 1.0 0.25 colrecfi 230 15 sub 145 15 sub 30 30 0.75 0.0 0.75 0.0 colrecfi 180 15 sub 170 15 sub 30 30 0.50 0.0 0.50 0.0 colrecfi 130 15 sub 195 15 sub 30 30 0.25 0.0 0.25 0.0 colrecfi } if %iout=2 iout 3 eq {%iout=3 130 15 sub 045 15 sub 30 30 1.0 1.0 0.0 0.75 colrecfi 180 15 sub 070 15 sub 30 30 1.0 1.0 0.0 0.50 colrecfi 230 15 sub 095 15 sub 30 30 1.0 1.0 0.0 0.25 colrecfi 230 15 sub 145 15 sub 30 30 0.75 0.75 0.0 0.0 colrecfi 180 15 sub 170 15 sub 30 30 0.50 0.50 0.0 0.0 colrecfi 130 15 sub 195 15 sub 30 30 0.25 0.25 0.0 0.0 colrecfi } if %iout=3 0 setgray 170 223 moveto (standard output) showen (Normausgabe) showde (standard output) showes (standard output) showfr (standard output) showit 166 193 moveto TBIG (I*) showen TBG (=100 ) showen 235 193 moveto (equal) showen (gleiche) showde (equal) showes (equal) showfr (equal) showit 220 173 moveto (brilliance) showen (Brillantheit) showde (brilliance) showes (brilliance) showfr (brilliance) showit 20 0 translate 10 neg 239 neg translate %************************************************************** %ibild=1 329 239 translate TBIG %Schrift Times-Bold-Italic-Gross 0 setgray %Schrift Weiss 20 190 moveto (L*) show 80 3 moveto (N) show iout 0 eq {(R) show} if iout 1 eq {(Y) show} if iout 2 eq {(G) show} if iout 3 eq {(B) show} if 080 216 moveto (W) show 080 167 moveto (H) show 080 113 moveto (Z) show 080 058 moveto (D) show -20 0 translate TBG 40 11 moveto (18) show % 45 111 moveto (50) show 75 120 moveto 85 120 lineto stroke 40 216 moveto (95) show %160 025 moveto (50) show 150 03 moveto (Buntheit ) showde %08140-3 1 (chroma ) showen %18140-3 1 (chroma ) showes %28140-3 1 (chroma ) showfr %38140-3 1 (chroma ) showit %48140-3 1 (chroma ) showjp %58140-3 1 TBIG (C*) show TBM 0 -3 rmoveto (ab) show 0 3 rmoveto TBG 2 setlinewidth 0 setgray %Linien Weiss 80 20 moveto 320 20 lineto stroke 30 185 moveto 30 210 lineto 24 200 lineto 30 210 lineto 34 200 lineto stroke 180 25 moveto 180 15 lineto stroke 280 09 moveto 310 09 lineto 300 13 lineto 310 09 lineto 300 05 lineto stroke 280 25 moveto 280 15 lineto stroke %1 0 0 setrgbcolor %320 25 moveto 320 15 lineto stroke %308 27 moveto (120%) show 0 setgray tfn %Linien Weiss 80 20 moveto 280 120 lineto 80 220 lineto closepath stroke 065 005 30 30 0.0 0.0 0.0 1.0 colrecfi %N %265 105 30 30 0.0 1.0 1.0 0.0 colrecfi iout 0 eq {265 105 30 30 0.0 1.0 1.0 0.0 colrecfi} if %R iout 1 eq {265 105 30 30 0.0 0.0 1.0 0.0 colrecfi} if %J iout 2 eq {265 105 30 30 1.0 0.0 1.0 0.0 colrecfi} if %G iout 3 eq {265 105 30 30 1.0 1.0 0.0 0.0 colrecfi} if %B 065 205 30 30 0.0 0.0 0.0 0.0 colrecfi 065 205 30 30 0.0 0.0 0.0 1.0 colrecst %W 065 105 30 30 0.0 0.0 0.0 0.50 colrecfi %Z 065 055 30 30 0.0 0.0 0.0 0.75 colrecfi %D 065 155 30 30 0.0 0.0 0.0 0.25 colrecfi %H iout 0 eq {%iout=0 %R 180 15 sub 070 15 sub 30 30 0.0 1.0 1.0 0.50 colrecfi %dark 180 15 sub 170 15 sub 30 30 0.0 0.50 0.50 0.0 colrecfi %light 180 15 sub 120 15 sub 30 30 0.25 0.75 0.75 0.00 colrecfi %middle } if %iout=0 iout 1 eq {%iout=0 %J 180 15 sub 070 15 sub 30 30 0.00 0.00 1.00 0.50 colrecfi %dark 180 15 sub 170 15 sub 30 30 0.00 0.00 0.50 0.00 colrecfi %light 180 15 sub 120 15 sub 30 30 0.25 0.25 0.75 0.00 colrecfi %middle } if %iout=1 iout 2 eq {%iout=0 %G 180 15 sub 070 15 sub 30 30 1.00 0.00 1.00 0.50 colrecfi %dark 180 15 sub 170 15 sub 30 30 0.50 0.00 0.50 0.00 colrecfi %light 180 15 sub 120 15 sub 30 30 0.75 0.25 0.75 0.00 colrecfi %middle } if %iout=2 iout 3 eq {%iout=0 %B 180 15 sub 070 15 sub 30 30 1.00 1.00 0.00 0.50 colrecfi %dark 180 15 sub 170 15 sub 30 30 0.50 0.50 0.00 0.00 colrecfi %light 180 15 sub 120 15 sub 30 30 0.75 0.75 0.25 0.00 colrecfi %middle } if %iout=3 0 setgray 140 223 moveto TBIG (L*, a*, b*, C*) show TM 0 -2 rmoveto (ab) show 0 2 rmoveto TBIG (, h) show TM 0 -2 rmoveto (ab) show 0 2 rmoveto (\255) showde 125 203 moveto TBG (data, 45/0 geometry) showen (Daten, 45/0\255Geometrie) showde (data, 45/0 geometry) showes (data, 45/0 geometry) showfr (data, 45/0 geometry) showit 20 0 translate 329 neg 239 neg translate %************************************************************** %ibild=2 10 003 translate TBIG %Schrift Times-Bold-Italic-Gross 0 setgray %Schrift Weiss 20 190 moveto (L*) show 80 3 moveto (N) show 250 85 moveto iout 0 eq {250 85 moveto (R) show} if iout 1 eq {250 85 moveto (Y) show} if iout 2 eq {250 85 moveto (G) show} if iout 3 eq {250 85 moveto (B) show} if 080 216 moveto (W) show 080 167 moveto (H) show 080 113 moveto (Z) show 080 058 moveto (D) show -20 0 translate TBG 40 11 moveto (18) show %45 111 moveto (50) show 75 120 moveto 85 120 lineto stroke 40 216 moveto (95) show %160 025 moveto (50) show 150 03 moveto (Buntheit ) showde %08140-3 1 (chroma ) showen %18140-3 1 (chroma ) showes %28140-3 1 (chroma ) showfr %38140-3 1 (chroma ) showit %48140-3 1 (chroma ) showjp %58140-3 1 TBIG (C*) show TBM 0 -3 rmoveto (ab) show 0 3 rmoveto TBG 2 setlinewidth 0 setgray %Linien Weiss 80 20 moveto 320 20 lineto stroke 30 185 moveto 30 210 lineto 24 200 lineto 30 210 lineto 34 200 lineto stroke 180 25 moveto 180 15 lineto stroke 280 09 moveto 310 09 lineto 300 13 lineto 310 09 lineto 300 05 lineto stroke 280 25 moveto 280 15 lineto stroke %1 0 0 setrgbcolor %320 25 moveto 320 15 lineto stroke %308 27 moveto (120%) show 0 setgray tfn %Linien Weiss 80 20 moveto 280 120 lineto 80 220 lineto closepath stroke 080 15 sub 020 15 sub 30 30 0.0 0.0 0.0 0.0 colrecfi 080 15 sub 020 15 sub 30 30 0.0 0.0 0.0 1.0 colrecst %N 0 setgray TKK 080 15 sub 005 add 020 15 sub 020 add moveto (0,00) show 080 15 sub 005 add 020 15 sub 011 add moveto (0,00) show 080 15 sub 005 add 020 15 sub 002 add moveto (0,00) show 265 105 30 30 0.0 0.0 0.0 0.0 colrecfi %W iout 0 eq {265 105 30 30 0.0 1.0 1.0 0.0 colrecst} if %R iout 1 eq {265 105 30 30 0.0 0.0 1.0 0.0 colrecst} if %J iout 2 eq {265 105 30 30 1.0 0.0 1.0 0.0 colrecst} if %G iout 3 eq {265 105 30 30 1.0 1.0 0.0 0.0 colrecst} if %B 0 setgray TKK iout 0 eq {%iout=0 280 15 sub 005 add 120 15 sub 020 add moveto (1,00) show %R 280 15 sub 005 add 120 15 sub 011 add moveto (0,00) show 280 15 sub 005 add 120 15 sub 002 add moveto (0,00) show } if %iout=0 iout 1 eq {%iout=1 280 15 sub 005 add 120 15 sub 020 add moveto (1,00) show %J 280 15 sub 005 add 120 15 sub 011 add moveto (1,00) show 280 15 sub 005 add 120 15 sub 002 add moveto (0,00) show } if %iout=1 iout 2 eq {%iout=2 280 15 sub 005 add 120 15 sub 020 add moveto (0,00) show %G 280 15 sub 005 add 120 15 sub 011 add moveto (1,00) show 280 15 sub 005 add 120 15 sub 002 add moveto (0,00) show } if %iout=2 iout 3 eq {%iout=3 280 15 sub 005 add 120 15 sub 020 add moveto (0,00) show %B 280 15 sub 005 add 120 15 sub 011 add moveto (0,00) show 280 15 sub 005 add 120 15 sub 002 add moveto (1,00) show } if %iout=3 080 15 sub 220 15 sub 30 30 0.0 0.0 0.0 0.0 colrecfi 080 15 sub 220 15 sub 30 30 0.0 0.0 0.0 1.0 colrecst %W 0 setgray TKK 080 15 sub 005 add 220 15 sub 020 add moveto (1,00) show 080 15 sub 005 add 220 15 sub 011 add moveto (1,00) show 080 15 sub 005 add 220 15 sub 002 add moveto (1,00) show 080 15 sub 120 15 sub 30 30 0.0 0.0 0.0 0.00 colrecfi %W 080 15 sub 120 15 sub 30 30 0.0 0.0 0.0 0.50 colrecst %Z 080 15 sub 070 15 sub 30 30 0.0 0.0 0.0 0.00 colrecfi %W 080 15 sub 070 15 sub 30 30 0.0 0.0 0.0 0.75 colrecst %D 080 15 sub 170 15 sub 30 30 0.0 0.0 0.0 0.00 colrecfi %W 080 15 sub 170 15 sub 30 30 0.0 0.0 0.0 0.25 colrecst %H 0 setgray TKK 080 15 sub 005 add 120 15 sub 020 add moveto (0,50) show 080 15 sub 005 add 120 15 sub 011 add moveto (0,50) show 080 15 sub 005 add 120 15 sub 002 add moveto (0,50) show 080 15 sub 005 add 070 15 sub 020 add moveto (0,25) show 080 15 sub 005 add 070 15 sub 011 add moveto (0,25) show 080 15 sub 005 add 070 15 sub 002 add moveto (0,25) show 080 15 sub 005 add 170 15 sub 020 add moveto (0,75) show 080 15 sub 005 add 170 15 sub 011 add moveto (0,75) show 080 15 sub 005 add 170 15 sub 002 add moveto (0,75) show iout 0 eq {%iout=0 180 15 sub 070 15 sub 30 30 0.0 0.0 0.0 0.00 colrecfi 180 15 sub 070 15 sub 30 30 0.0 1.0 1.0 0.50 colrecst %RN 180 15 sub 170 15 sub 30 30 0.00 0.00 0.00 0.00 colrecfi %W 180 15 sub 170 15 sub 30 30 0.00 0.50 0.50 0.00 colrecst %RW 180 15 sub 120 15 sub 30 30 0.00 0.00 0.00 0.00 colrecfi %W 180 15 sub 120 15 sub 30 30 0.25 0.75 0.75 0.00 colrecst %Middle } if %iout=0 iout 1 eq {%iout=1 180 15 sub 070 15 sub 30 30 0.0 0.0 0.0 0.00 colrecfi 180 15 sub 070 15 sub 30 30 0.0 0.0 1.0 0.50 colrecst %JN 180 15 sub 170 15 sub 30 30 0.00 0.00 0.00 0.00 colrecfi %W 180 15 sub 170 15 sub 30 30 0.00 0.00 0.50 0.00 colrecst %JW 180 15 sub 120 15 sub 30 30 0.00 0.00 0.00 0.00 colrecfi %W 180 15 sub 120 15 sub 30 30 0.25 0.25 0.75 0.00 colrecst %Middle } if %iout=1 iout 2 eq {%iout=2 180 15 sub 070 15 sub 30 30 0.0 0.0 0.0 0.00 colrecfi 180 15 sub 070 15 sub 30 30 1.0 0.0 1.0 0.50 colrecst %GN 180 15 sub 170 15 sub 30 30 0.00 0.00 0.00 0.00 colrecfi %W 180 15 sub 170 15 sub 30 30 0.50 0.00 0.50 0.00 colrecst %GW 180 15 sub 120 15 sub 30 30 0.00 0.00 0.00 0.00 colrecfi %W 180 15 sub 120 15 sub 30 30 0.75 0.25 0.75 0.00 colrecst %Middle } if %iout=2 iout 3 eq {%iout=3 180 15 sub 070 15 sub 30 30 0.0 0.0 0.0 0.00 colrecfi 180 15 sub 070 15 sub 30 30 1.0 1.0 0.0 0.50 colrecst %BN 180 15 sub 170 15 sub 30 30 0.00 0.00 0.00 0.00 colrecfi %W 180 15 sub 170 15 sub 30 30 0.50 0.50 0.00 0.00 colrecst %RW 180 15 sub 120 15 sub 30 30 0.00 0.00 0.00 0.00 colrecfi %W 180 15 sub 120 15 sub 30 30 0.75 0.75 0.25 0.00 colrecst %Middle } if %iout=3 0 setgray TKK iout 0 eq {%R 180 15 sub 005 add 070 15 sub 020 add moveto (0,50) show %RN 180 15 sub 005 add 070 15 sub 011 add moveto (0,00) show 180 15 sub 005 add 070 15 sub 002 add moveto (0,00) show 180 15 sub 005 add 170 15 sub 020 add moveto (1,00) show %W 180 15 sub 005 add 170 15 sub 011 add moveto (0,50) show %RW 180 15 sub 005 add 170 15 sub 002 add moveto (0,50) show 180 15 sub 005 add 120 15 sub 020 add moveto (0,75) show %W 180 15 sub 005 add 120 15 sub 011 add moveto (0,25) show %Middle 180 15 sub 005 add 120 15 sub 002 add moveto (0,25) show } if %R iout 1 eq {%J 180 15 sub 005 add 070 15 sub 020 add moveto (0,50) show %JN 180 15 sub 005 add 070 15 sub 011 add moveto (0,50) show 180 15 sub 005 add 070 15 sub 002 add moveto (0,00) show 180 15 sub 005 add 170 15 sub 020 add moveto (1,00) show %W 180 15 sub 005 add 170 15 sub 011 add moveto (1,00) show %JW 180 15 sub 005 add 170 15 sub 002 add moveto (0,50) show 180 15 sub 005 add 120 15 sub 020 add moveto (0,75) show %W 180 15 sub 005 add 120 15 sub 011 add moveto (0,75) show %Middle 180 15 sub 005 add 120 15 sub 002 add moveto (0,25) show } if %J iout 2 eq {%G 180 15 sub 005 add 070 15 sub 020 add moveto (0,00) show %GN 180 15 sub 005 add 070 15 sub 011 add moveto (0,50) show 180 15 sub 005 add 070 15 sub 002 add moveto (0,00) show 180 15 sub 005 add 170 15 sub 020 add moveto (0,50) show %W 180 15 sub 005 add 170 15 sub 011 add moveto (1,00) show %GW 180 15 sub 005 add 170 15 sub 002 add moveto (0,50) show 180 15 sub 005 add 120 15 sub 020 add moveto (0,25) show %W 180 15 sub 005 add 120 15 sub 011 add moveto (0,75) show %Middle 180 15 sub 005 add 120 15 sub 002 add moveto (0,25) show } if %G iout 3 eq {%B 180 15 sub 005 add 070 15 sub 020 add moveto (0,00) show %BN 180 15 sub 005 add 070 15 sub 011 add moveto (0,00) show 180 15 sub 005 add 070 15 sub 002 add moveto (0,50) show 180 15 sub 005 add 170 15 sub 020 add moveto (0,50) show %W 180 15 sub 005 add 170 15 sub 011 add moveto (0,50) show %BW 180 15 sub 005 add 170 15 sub 002 add moveto (1,00) show 180 15 sub 005 add 120 15 sub 020 add moveto (0,25) show %W 180 15 sub 005 add 120 15 sub 011 add moveto (0,25) show %Middle 180 15 sub 005 add 120 15 sub 002 add moveto (0,75) show } if %B 0 setgray 166 215 moveto TBIG (rgb) show TBM 0 -3 rmoveto (e) show 0 3 rmoveto TBG ( data ) showen (\255Daten) showde ( data ) showes ( data ) showfr ( data ) showit 166 195 moveto TBIG (-> icu*) show ( data ) showen (\255Daten) showde ( data ) showes ( data ) showfr ( data ) showit 166 030 moveto TBIG (c*) show TBG (= max) show TBM 0 -3 rmoveto (rgb) show 0 3 rmoveto TBG (- min) show TBM 0 -3 rmoveto (rgb) show 0 3 rmoveto 220 055 moveto TBIG (i*) show TBG (= max) show TBM 0 -3 rmoveto (rgb) show 0 3 rmoveto 220 160 moveto TBIG (u*) show TBIG iout 0 eq {(= r00j) show} if iout 1 eq {(= j00g) show} if iout 2 eq {(= g00b) show} if iout 3 eq {(= b00r) show} if 20 0 translate 10 neg 003 neg translate %************************************************************** %ibild=3 329 003 translate TBIG %Schrift Times-Bold-Italic-Gross 0 setgray %Schrift Weiss 20 190 moveto (L*) show 80 3 moveto (N) show 240 85 moveto (RYGB) show 080 216 moveto (W) show 080 167 moveto (H) show 080 113 moveto (Z) show 080 058 moveto (D) show -20 0 translate TBG 40 11 moveto (18) show %45 111 moveto (50) show 75 120 moveto 85 120 lineto stroke 40 216 moveto (95) show %160 025 moveto (50) show 150 03 moveto (Buntheit ) showde %08140-3 1 (chroma ) showen %18140-3 1 (chroma ) showes %28140-3 1 (chroma ) showfr %38140-3 1 (chroma ) showit %48140-3 1 (chroma ) showjp %58140-3 1 TBIG (C*) show TBM 0 -3 rmoveto (ab) show 0 3 rmoveto TBG 2 setlinewidth 0 setgray %Linien Weiss 80 20 moveto 320 20 lineto stroke 30 185 moveto 30 210 lineto 24 200 lineto 30 210 lineto 34 200 lineto stroke 180 25 moveto 180 15 lineto stroke 280 09 moveto 310 09 lineto 300 13 lineto 310 09 lineto 300 05 lineto stroke 280 25 moveto 280 15 lineto stroke 0 setgray tfn %Linien Weiss 80 20 moveto 280 120 lineto 80 220 lineto closepath stroke 065 005 30 30 0.0 0.0 0.0 1.0 colrecfi %N 265 105 30 30 0.0 0.0 0.0 0.0 colrecfi %W iout 0 eq {265 105 30 30 0.0 1.0 1.0 0.0 colrecfi} if %R iout 1 eq {265 105 30 30 0.0 0.0 1.0 0.0 colrecfi} if %J iout 2 eq {265 105 30 30 1.0 0.0 1.0 0.0 colrecfi} if %G iout 3 eq {265 105 30 30 1.0 1.0 0.0 0.0 colrecfi} if %B 0 0 1 setrgbcolor 265 105 moveto 30 0 rlineto stroke 1 0 0 setrgbcolor 295 105 moveto 0 30 rlineto stroke 1 1 0 setrgbcolor 295 135 moveto -30 0 rlineto stroke 0 1 0 setrgbcolor 265 135 moveto 0 -30 rlineto stroke 0 setgray 270 113 moveto TBG (16) show 065 205 30 30 0.0 0.0 0.0 0.0 colrecfi 065 205 30 30 0.0 0.0 0.0 1.0 colrecst %W 065 105 30 30 0.0 0.0 0.0 0.50 colrecfi %Z 065 055 30 30 0.0 0.0 0.0 0.75 colrecfi %D 065 155 30 30 0.0 0.0 0.0 0.25 colrecfi %H 180 15 sub 070 15 sub 30 30 0.0 0.0 0.0 0.0 colrecfi %W 180 15 sub 070 15 sub 30 30 0.0 0.5 0.5 0.0 colrecst %RW 0 0 1 setrgbcolor 165 55 moveto 30 0 rlineto stroke 1 0 0 setrgbcolor 195 55 moveto 0 30 rlineto stroke 1 1 0 setrgbcolor 195 85 moveto -30 0 rlineto stroke 0 1 0 setrgbcolor 165 85 moveto 0 -30 rlineto stroke 0 setgray 174 63 moveto TBG (8) show 180 15 sub 170 15 sub 30 30 0.0 0.0 0.0 0.0 colrecfi %W 180 15 sub 170 15 sub 30 30 0.0 0.5 0.5 0.0 colrecst %RW 0 0 1 setrgbcolor 165 155 moveto 30 0 rlineto stroke 1 0 0 setrgbcolor 195 155 moveto 0 30 rlineto stroke 1 1 0 setrgbcolor 195 185 moveto -30 0 rlineto stroke 0 1 0 setrgbcolor 165 185 moveto 0 -30 rlineto stroke 0 setgray 174 163 moveto TBG (8) show 265 105 30 30 0.0 0.0 0.0 0.0 colrecfi %W 265 105 30 30 0.0 1.0 1.0 0.0 colrecst%R 0 0 1 setrgbcolor 265 105 moveto 30 0 rlineto stroke 1 0 0 setrgbcolor 295 105 moveto 0 30 rlineto stroke 1 1 0 setrgbcolor 295 135 moveto -30 0 rlineto stroke 0 1 0 setrgbcolor 265 135 moveto 0 -30 rlineto stroke 0 setgray 270 113 moveto TBG (16) show %130 15 sub 195 15 sub 30 30 0.0 0.25 0.25 0.0 colrecfi %230 15 sub 145 15 sub 30 30 0.0 0.60 0.60 0.0 colrecfi %180 15 sub 170 15 sub 30 30 0.0 0.40 0.40 0.0 colrecfi %130 15 sub 195 15 sub 30 30 0.0 0.20 0.20 0.0 colrecfi %180 15 sub 120 15 sub 30 30 0.25 0.75 0.75 0.00 colrecfi %Middle 180 15 sub 120 15 sub 30 30 0.0 0.0 0.0 0.0 colrecfi %W %180 15 sub 120 15 sub 30 30 0.0 0.5 0.5 0.0 colrecst %RW 0 0 1 setrgbcolor 165 105 moveto 30 0 rlineto stroke 1 0 0 setrgbcolor 195 105 moveto 0 30 rlineto stroke 1 1 0 setrgbcolor 195 135 moveto -30 0 rlineto stroke 0 1 0 setrgbcolor 165 135 moveto 0 -30 rlineto stroke 0 setgray 174 113 moveto TBG (8) show 265 105 30 30 0.0 0.0 0.0 0.0 colrecfi %W 265 105 30 30 0.0 1.0 1.0 0.0 colrecst %R 0 0 1 setrgbcolor 265 105 moveto 30 0 rlineto stroke 1 0 0 setrgbcolor 295 105 moveto 0 30 rlineto stroke 1 1 0 setrgbcolor 295 135 moveto -30 0 rlineto stroke 0 1 0 setrgbcolor 265 135 moveto 0 -30 rlineto stroke 0 setgray 270 113 moveto TBG (16) show 0 setgray %170 223 moveto (standard output) show 140 205 moveto TBG (samples of hue circle) showen (Bunttonkreismuster) showde (samples of hue circle) showes (samples of hue circle) showfr (samples of hue circle) showit 20 0 translate 329 neg 003 neg translate %************************************************************************* showpage grestore } for %iout=1,1 %%Trailer