%!PS-Adobe-3.0 EPSF-3.0 XE160-1N %%BoundingBox: 70 83 400 190 %START PDFDE011.EPS /pdfmark01 where {pop} {userdict /pdfmark01 /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:2015110112000) /ModDate (D:2015110112000) /DOCINFO pdfmark01 [ /View [ /FitB ] /DOCVIEW pdfmark01 %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 /TV {160 /Times-ISOL1 FS} bind def /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 /TIV {160 /TimesI-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 /TBV {160 /TimesB-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 /TBIV {160 /TimesBI-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 %40% kleiner /ns4 {250 /Times-ISOL1 FS show TK} bind def /ks4 {250 /TimesI-ISOL1 FS show TK} bind def /bs4 {250 /TimesB-ISOL1 FS show TK} bind def /js4 {250 /TimesBI-ISOL1 FS show TK} bind def /ss4 {250 /Symbol FS show TK} bind def /is4 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /es4 {200 /Times-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ib4 {200 /TimesB-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /eb4 {200 /TimesB-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ip4 {200 /Times-ISOL1 FS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def %60% kleiner /ns6 {200 /Times-ISOL1 FS show TS} bind def /ks6 {200 /TimesI-ISOL1 FS show TS} bind def /bs6 {200 /TimesB-ISOL1 FS show TS} bind def /js6 {200 /TimesBI-ISOL1 FS show TS} bind def /ss6 {200 /Symbol FS show TS} bind def /is6 {160 /Times-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /es6 {160 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ib6 {160 /TimesB-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /eb6 {160 /TimesB-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ip6 {160 /Times-ISOL1 FS 24 24 rmoveto (\267) show 24 -24 rmoveto TS} bind /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show} def %%EndProlog gsave /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 /xchartl 0 def /xchart4 0 def %0 1 5 {/xchartl exch def %xchartl=0,5 gsave 5 /Times-ISOL1 FS 360 85 moveto (XE160-1N) show 72 90 translate /ytit 550 def /yhoe 4000 def /yhoet yhoe ytit sub def /xwide 11500 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 /OXYZ 30 array def /OXYZ [ (18,74) (26,62) (68,54) %C (33,06) (16,90) (22,01) %M (68,06) (77,10) ( 9,03) %Y (33,13) (16,75) ( 2,68) %O ( 8,71) (19,18) ( 6,62) %L ( 7,17) ( 4,65) (21,41) %V (83,69) (88,60) (89,47) %W ( 2,42) ( 2,52) ( 2,81) %N (94,44) (100,00) (100,84) %W1 ( 0,02) ( 0,00) ( 0,12) %N0 ] def /OLAB 30 array def /OLAB [ (58,62) (-30,63) (-42,75) %C (48,13) ( 75,20) ( -6,80) %M (90,37) (-11,16) ( 96,17) %Y (47,94) ( 65,31) ( 52,07) %O (50,90) (-62,96) ( 36,71) %L (25,72) ( 31,35) (-44,36) %V (95,41) ( -0,98) ( 4,76) %W (18,01) ( 0,50) ( -0,46) %N (100,0) ( -1,07) ( 5,06) %W1 ( 0,01) ( 0,84) ( -1,68) %N0 ] def /DLAB 30 array def /DLAB [ (58,09) (-32,78) (-44,14) %C (46,88) ( 75,30) ( -8,74) %M (88,56) ( -6,91) ( 95,35) %Y (50,78) ( 66,45) ( 53,75) %O (49,24) (-60,02) ( 37,66) %L (28,18) ( 32,61) (-42,38) %V (94,50) ( -1,38) ( 5,57) %W (19,14) ( 4,32) ( 0,26) %N (100,0) ( 0,00) ( 0,00) %W1 ( 0,00) ( 0,00) ( 0,00) %N0 ] def /DELAB 10 array def /DELAB [ (2,62) %C (2,31) %M (4,69) %Y (3,49) %O (3,51) %L (3,40) %V (1,28) %W (4,05) %N (0,00) %W1 (0,00) %N0 ] def /OLABn 30 array def /OLABn [ 58.62 -30.63 -42.75 %C 25.72 31.35 -44.36 %V 48.13 75.20 -6.80 %M 47.94 65.31 52.07 %O 90.37 -11.16 96.17 %Y 50.90 -62.96 36.71 %L 95.41 -0.98 4.76 %W 18.01 0.50 -0.46 %N 100.0 -1.07 5.06 %W1 0.01 0.84 -1.68 %N0 ] def /DLABn 30 array def /DLABn [ 58.09 -32.78 -44.14 %C 28.18 32.61 -42.38 %V 46.88 75.30 -8.74 %M 50.78 66.45 53.75 %O 88.56 -6.91 95.35 %Y 49.24 -60.02 37.66 %L 94.50 -1.38 5.57 %W 19.14 4.32 0.26 %N 100.0 0.00 0.00 %W1 0.00 0.00 0.00 %N0 ] def /OLABa 50 array def /DLABa 50 array def /L*Wio OLABn 6 3 mul get def /a*Wio OLABn 6 3 mul 1 add get def /b*Wio OLABn 6 3 mul 2 add get def /L*Nio OLABn 7 3 mul get def /a*Nio OLABn 7 3 mul 1 add get def /b*Nio OLABn 7 3 mul 2 add get def 0 1 7 {/i exch def %i=0,7 /i3 i 3 mul def /i5 i 5 mul def /L*Xio OLABn i3 get def /a*Xio OLABn i3 1 add get def /b*Xio OLABn i3 2 add get def /l*CIE L*Xio L*Nio sub L*Wio L*Nio sub div def /a*s a*Wio a*Nio sub l*CIE mul def /b*s b*Wio b*Nio sub l*CIE mul def OLABa i5 OLABn i3 get put OLABa i5 1 add OLABn i3 1 add get a*Nio sub a*s sub put OLABa i5 2 add OLABn i3 2 add get b*Nio sub b*s sub put OLABa i5 3 add OLABa i5 1 add get dup mul OLABa i5 2 add get dup mul add 0.000001 add sqrt put OLABa i5 4 add OLABa i5 2 add get OLABa i5 1 add get 0.0000001 add atan put } for %i=0,7 /L*Wid DLABn 6 3 mul get def /a*Wid DLABn 6 3 mul 1 add get def /b*Wid DLABn 6 3 mul 2 add get def /L*Nid DLABn 7 3 mul get def /a*Nid DLABn 7 3 mul 1 add get def /b*Nid DLABn 7 3 mul 2 add get def 0 1 7 {/i exch def %i=0,7 /i3 i 3 mul def /i5 i 5 mul def /L*Xid DLABn i3 get def /a*Xid DLABn i3 1 add get def /b*Xid DLABn i3 2 add get def /l*CIE L*Xid L*Nid sub L*Wid L*Nid sub div def /a*s a*Wid a*Nid sub l*CIE mul def /b*s b*Wid b*Nid sub l*CIE mul def DLABa i5 DLABn i3 get put DLABa i5 1 add DLABn i3 1 add get a*Nid sub a*s sub put DLABa i5 2 add DLABn i3 2 add get b*Nid sub b*s sub put DLABa i5 3 add DLABa i5 1 add get dup mul DLABa i5 2 add get dup mul add 0.000001 add sqrt put DLABa i5 4 add DLABa i5 2 add get DLABa i5 1 add get 0.000001 add atan put } for %i=0,7 /LCh*O 24 array def %O=offset /LCh*O [59 54 236 %C 26 54 304 %V 48 76 353 %M 48 83 037 %O 90 92 096 %Y 51 72 150 %L 95 00 000 %W 18 00 000 %N ] def /LCh*D 24 array def %D=device /LCh*D [58 58 234 %C 28 52 303 %V 47 74 351 %M 51 82 038 %O 89 90 093 %Y 49 71 150 %L 95 00 000 %W 19 00 000 %N ] def /rgb*X 24 array def /rgb*X [0 1 1 0 0 1 1 0 1 1 0 0 1 1 0 0 1 0 1 1 1 0 0 0 ] def /rgb*Y 84 def %7x12=21x4 /rgb*Y [0.00 1.00 1.00 %C 0.00 0.75 1.00 0.00 0.50 1.00 0.00 0.25 1.00 0.00 0.00 1.00 %V 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 1.00 1.00 0.00 1.00 %M 1.00 0.00 0.75 1.00 0.00 0.50 1.00 0.00 0.25 1.00 0.00 0.00 %O 1.00 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 1.00 1.00 0.00 %Y 0.75 1.00 0.00 0.50 1.00 0.00 0.25 1.00 0.00 0.00 1.00 0.00 %L 0.00 1.00 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 1.00 1.00 %C ] def /tex*X 24 array def /tex*X [(cyan blue) (cyan) (C=C) (violet blue) (blue) (V=B) (magenta red) (magenta) (M=M) (orange red) (red) (O=R) (yellow) () (Y=Y) (leaf green) (green) (L=G) (white) () (W) (black) () (N) ] def /tex*B 8 array def /tex*B [(C) (V) (M) (O) (Y) (L) (W) (N)] def /LCh*X 24 array def 0 1 23 {/i exch def %i=0,23 xchart4 0 eq {LCh*X i LCh*O i get put} if xchart4 1 eq {LCh*X i LCh*D i get put} if } for %i=0,23 %definition of A for xchartl=0,1,2 /LCh*A 3 array def /rgb*A 3 array def /tex*A 3 array def /LCh*N 3 array def /rgb*N 3 array def /tex*N 3 array def /LCh*W 3 array def /rgb*W 3 array def /tex*W 3 array def 0 1 2 {/i exch def %i=0,2 /j3 xchartl 3 mul def LCh*A i LCh*X i j3 add get put rgb*A i rgb*X i j3 add get put tex*A i tex*X i j3 add get put } for %i=0,2 0 1 2 {/i exch def %i=0,2 LCh*N i LCh*X i 21 add get put rgb*N i rgb*X i 21 add get put tex*N i tex*X i 21 add get put LCh*W i LCh*X i 18 add get put rgb*W i rgb*X i 18 add get put tex*W i tex*X i 18 add get put } for %i=0,2 %Titeltext /xt1 0 def /yt1 300 def xt1 yt1 translate 100 2800 moveto TBIK (rgb) show (d) is4 TBK ( input and) showen (\255Ein-Ausgabe) showde TBIK ( LCh*) show (da) is4 TBK ( output of) showen (von) showde TBIK xchart4 0 eq {( Offset) show} if xchart4 1 eq {( BAM) show} if TBK ( colours) showen (\255Farben) showde /S10 100 def /S11 800 def /S20 3250 def /S30 4000 def /Z10 2500 def /Z1C 2200 def /Z1V 1900 def /Z1M 1600 def /Z1O 1300 def /Z1Y 1000 def /Z1L 0700 def /Z1N 0400 def /Z1W 0100 def S10 Z10 moveto TBK (Device colour) showen (Ger\344tefarbe) showde S20 Z10 moveto TBIK (rgb) show (d) is4 S30 Z10 moveto TBIK (LCh*) show (d) is4 %Z1C**************************** S10 Z1C moveto TBIK (C=C) show (d) is4 S11 Z1C moveto TK (Cyanblau (Cyan)) showde (cyan blue (cyan)) showen S20 Z1C moveto TBK (0 1 1) show S30 Z1C moveto TK LCh*X 0 get cvishow (, ) show LCh*X 1 get cvishow (, ) show TBK LCh*X 2 get cvishow TK %Z1V**************************** S10 Z1V moveto TBIK (V=B) show (d) ishow S11 Z1V moveto TK (Violetblau (Blau)) showde (violet blue (blue)) showen S20 Z1V moveto TBK (0 0 1) show S30 Z1V moveto TK LCh*X 3 get cvishow (, ) show LCh*X 4 get cvishow (, ) show TBK LCh*X 5 get cvishow TK %Z1M**************************** S10 Z1M moveto TBIK (M=M) show (d) is4 S11 Z1M moveto TK (Magentarot) showde (magenta red (magenta)) showen S20 Z1M moveto TBK (1 0 1) show S30 Z1M moveto TK LCh*X 6 get cvishow (, ) show LCh*X 7 get cvishow (, ) show TBK LCh*X 8 get cvishow %Z1O**************************** S10 Z1O moveto TBIK (O=R) show (d) is4 S11 Z1O moveto TK (Orangerot (Rot)) showde (orange red (red)) showen S20 Z1O moveto TBK (1 0 0) show S30 Z1O moveto TK LCh*X 09 get cvishow (, ) show LCh*X 10 get cvishow (, ) show TBK LCh*X 11 get cvishow TK %Z1Y**************************** S10 Z1Y moveto TBIK (Y=Y) show (d) is4 S11 Z1Y moveto TK (Gelb) showde (yellow) showen S20 Z1Y moveto TBK (1 1 0) show S30 Z1Y moveto TK LCh*X 12 get cvishow (, ) show LCh*X 13 get cvishow (, ) show TBK LCh*X 14 get cvishow TK %Z1O**************************** S10 Z1L moveto TBIK (L=G) show (d) is4 S11 Z1L moveto TK (Laubgr\374n (Gr\374n)) showde (leaf green (green)) showen S20 Z1L moveto TBK (0 1 0) show S30 Z1L moveto TK LCh*X 15 get cvishow (, ) show LCh*X 16 get cvishow (, ) show TBK LCh*X 17 get cvishow TK %Z1N**************************** S10 Z1N moveto TBIK (N) show S11 Z1N moveto TK (Schwarz) showde (black) showen S20 Z1N moveto TBK (0 0 0) show S30 Z1N moveto TK LCh*X 18 get cvishow (, ) show LCh*X 19 get cvishow (, ) show 0 cvishow TK %Z1W**************************** S10 Z1W moveto TBIK (W) show S11 Z1W moveto TK (Wei\337) showde (white) showen S20 Z1W moveto TBK (1 1 1) show S30 Z1W moveto TK LCh*X 21 get cvishow (, ) show LCh*X 22 get cvishow (, ) show 0 cvishow TK xt1 neg yt1 neg translate %HUE CIRCLE /xd 1550 def /yd 5000 def /xp 1550 def /yp 5000 def /xdN xd def /ydN yd 2000 sub def /xdW xd def /ydW yd def /xdR xd 2000 add def /ydR yd 1000 sub def /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 %************************************************************************* %RJGB /xt2 5550 def /yt2 -2670 def xt2 yt2 translate [ 100 ] 100 setdash xp 1750 sub yp 950 add moveto 0 -3000 rlineto stroke [ ] 0 setdash 0 setgray xp 1450 sub yp 0750 add moveto TBIK xchart4 0 eq {(Offset) show} if xchart4 1 eq {(BAM) show} if TBK (\2555stufige Farbreihen im \255CIELAB\255Farbraum) showde ( 5 step colour series in CIELAB colour space) showen /L*Xd LCh*A 0 get def /C*Xd LCh*A 1 get def /L*Nd LCh*N 0 get def /L*Wd LCh*W 0 get def /xfact 15 def /yfact 15 def /xp0 xp 0400 add def /yp0 yp 1000 sub def /xpN xp0 1000 sub def /ypN yp0 1000 sub def xp0 1750 sub yp0 0 sub moveto 3500 0 rlineto stroke %horizontal axis xp0 0000 add yp0 1250 sub moveto 0 3000 rlineto stroke %vertical axis xp0 1500 sub yp0 70 sub moveto 0 140 rlineto stroke %vertical marks xp0 0750 sub yp0 70 sub moveto 0 140 rlineto stroke xp0 0750 add yp0 70 sub moveto 0 140 rlineto stroke xp0 1500 add yp0 70 sub moveto 0 140 rlineto stroke TS xp0 1800 sub yp0 220 sub moveto (-100) show %horizontal scale xp0 1100 sub yp0 220 sub moveto (-50) show xp0 0550 add yp0 220 sub moveto ( 50) show xp0 1300 add yp0 220 sub moveto (100) show xp0 70 sub yp0 1500 add moveto 140 0 rlineto stroke %horizontal marks xp0 70 sub yp0 0750 add moveto 140 0 rlineto stroke xp0 70 sub yp0 0750 sub moveto 140 0 rlineto stroke xp0 400 sub yp0 1500 add moveto (100) show %vertical scale xp0 300 sub yp0 0700 add moveto (50) show xp0 400 sub yp0 0900 sub moveto (-50) show xp0 0100 add yp0 1550 add moveto TBIK (b*) show xp0 1800 add yp0 0050 sub moveto TBIK (a*) show %xp0 yp0 0750 0 360 arc stroke %xp0 yp0 1500 0 360 arc stroke 30 setlinewidth 0 1 5 {/i exch def %i=0,5 0 setgray /i5 i 5 mul def /xi xp0 OLABa i5 1 add get xfact mul add def /yi yp0 OLABa i5 2 add get yfact mul add def i 0 eq {/xi0 xi def /yi0 yi def xi0 yi0 moveto} if i 1 ge {xi yi lineto} if i 5 eq {xi0 yi0 lineto stroke} if } for %i=0,5 0 1 5 {/i exch def %i=0,5 1 1 3 {/k exch def %k=1,3 0 setgray /i34 i 12 mul k 3 mul add def /i5 i 5 mul def /xi0 xp0 OLABa i5 1 add get xfact mul add def /yi0 yp0 OLABa i5 2 add get yfact mul add def i 4 le {%i<=4 /i51 i5 5 add def /xi1 xp0 OLABa i51 1 add get xfact mul add def /yi1 yp0 OLABa i51 2 add get yfact mul add def } {%i=5 /i51 0 def /xi1 xp0 OLABa i51 1 add get xfact mul add def /yi1 yp0 OLABa i51 2 add get yfact mul add def } ifelse /xiM xi0 xi1 xi0 sub k 0.25 mul mul add def /yiM yi0 yi1 yi0 sub k 0.25 mul mul add def /r rgb*Y i34 3 add get def /g rgb*Y i34 4 add get def /b rgb*Y i34 5 add get def r g b setrgbcolor xiM yiM 0050 0 360 arc fill } for %k=1,3 } for %i=0,5 newpath /xshift 6 array def /yshift 6 array def /xshift [-300 100 000 -050 -300 -300] def /yshift [-200 -200 -300 120 -100 -100] def 0 1 5 {/i exch def %i=0,5 0 setgray /i3 i 3 mul def /i5 i 5 mul def /xi xp0 OLABa i5 1 add get xfact mul add def /yi yp0 OLABa i5 2 add get yfact mul add def xi yi 0100 0 360 arc fill /r rgb*X i3 0 add get def /g rgb*X i3 1 add get def /b rgb*X i3 2 add get def r g b setrgbcolor xi yi 0050 0 360 arc fill newpath 0 setgray xi xshift i get add yi yshift i get add moveto tex*B i get show newpath } for %i=0,5 20 setlinewidth 0 setgray xpN 2300 add ypN 2550 add moveto (6 Anker\255Farbpaare) showde (6 anker colour pairs) showen 0 1 5 {/i exch def %i=0,5 %six colours /i3 i 3 mul def /i5 i 5 mul def i 2 le {/ix i def /n 0 def} {/ix i 3 sub def /n 1 def} ifelse 0 setgray [40] 40 setdash /xpNj xpN 2300 add 100 add ix 900 mul add def /ypNj ypN 2400 add n 300 mul sub def xpNj ypNj moveto 0600 0 rlineto stroke [ ] 0 setdash 0 0 0 setrgbcolor xpNj ypNj 100 0 360 arc fill xpNj 600 add ypNj 100 0 360 arc fill /r rgb*X i3 0 add get def /g rgb*X i3 1 add get def /b rgb*X i3 2 add get def r g b setrgbcolor xpNj ypNj 050 0 360 arc fill i 4 le {/i31 i3 3 add def} {/i31 0 def} ifelse /r rgb*X i31 0 add get def /g rgb*X i31 1 add get def /b rgb*X i31 2 add get def r g b setrgbcolor xpNj 600 add ypNj 050 0 360 arc fill } for %i=0,5 0 setgray xpN 2300 add ypN 1800 add moveto (6 Triplet\255Farbserien) showde (6 triplet colour series) showen 0 1 5 {/i exch def %i=0,5 %six colours /i3 i 3 mul def /i5 i 5 mul def i 2 le {/ix i def /n 0 def} {/ix i 3 sub def /n 1 def} ifelse 0 setgray [40] 40 setdash /xpNj xpN 2300 add 100 add ix 900 mul add def /ypNj ypN 1650 add n 300 mul sub def xpNj ypNj moveto 0600 0 rlineto stroke [ ] 0 setdash 0 0 0 setrgbcolor xpNj ypNj 100 0 360 arc fill xpNj 600 add ypNj 100 0 360 arc fill /r rgb*X i3 0 add get def /g rgb*X i3 1 add get def /b rgb*X i3 2 add get def r g b setrgbcolor xpNj ypNj 050 0 360 arc fill newpath i 4 le {/i31 i3 3 add def} {/i31 0 def} ifelse i 3 eq {%i=3 40 setlinewidth 0 setgray xpNj 300 add 70 sub ypNj moveto 140 0 rlineto stroke xpNj 300 add ypNj 70 sub moveto 0 140 rlineto stroke 20 setlinewidth } if %i=3 /r rgb*X i31 0 add get def /g rgb*X i31 1 add get def /b rgb*X i31 2 add get def r g b setrgbcolor xpNj 300 add 70 sub ypNj moveto 140 0 rlineto stroke xpNj 300 add ypNj 70 sub moveto 0 140 rlineto stroke newpath i 3 le {/i31 i3 6 add def} {/i31 0 def} ifelse i 4 eq {/i31 0 def} if i 5 eq {/i31 3 def} if /r rgb*X i31 0 add get def /g rgb*X i31 1 add get def /b rgb*X i31 2 add get def r g b setrgbcolor xpNj 600 add ypNj 050 0 360 arc fill } for %i=0,5 showpage grestore %%Trailer