%!PS-Adobe-3.0 EPSF-3.0 WG060-7R.EPS %%BoundingBox: 70 83 800 580 %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/WG06/) /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:2015040112000) /ModDate (D:2015040112000) /DOCINFO pdfmark07 [ /View [ /FitB ] /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 %Early binding /sggray where {pop /slgray {sggray} bind def} {/slgray {setgray} bind def} ifelse /sgcmykcolor where {pop /slcmykcolor {sgcmykcolor} bind def} {/slcmykcolor {setcmykcolor} bind def} ifelse /sgrgbcolor where {pop /slrgbcolor {sgrgbcolor} bind def} {/slrgbcolor {setrgbcolor} bind def} ifelse /halfg where {pop /half halfg def} {/half 0 def} ifelse /VisTol*ioL 1.00 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 /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-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 /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBGG {500 /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 /CBKK {200 /CourierB-ISOL1 FS} bind def /CBK {250 /CourierB-ISOL1 FS} bind def /CBM {300 /CourierB-ISOL1 FS} bind def /CBG {350 /CourierB-ISOL1 FS} bind def /ibshownG {TBM -50 -50 rmoveto show 0 50 rmoveto TBG} bind def /ibshow0G {TBM -00 -50 rmoveto show 0 50 rmoveto TBG} bind def /ishownG {TM -50 -50 rmoveto show 0 50 rmoveto TG } bind def /ishow0G {TM -00 -50 rmoveto show 0 50 rmoveto TG } bind def /ibshownM {TBK -50 -50 rmoveto show 0 50 rmoveto TBM} bind def /ibshow0M {TBK -00 -50 rmoveto show 0 50 rmoveto TBM} bind def /ishownM {TK -50 -50 rmoveto show 0 50 rmoveto TM } bind def /ishow0M {TK -00 -50 rmoveto show 0 50 rmoveto TM } bind 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 /rem %x0, y0 width heigth {/heigth exch def /width exch def /y0 exch def /x0 exch def x0 width 0.5 mul add y0 heigth 0.5 mul add moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def %******************************************************************* %%EndProlog gsave /lanind 0 def /lantex [(G) (E) (S) (N) (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 /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 0 def /lanind2 0 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 0 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 57 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def} if %colorm=1, deintp=1 xchart xchart3 lt {/Txx (-) def} if %always independent of intended output gsave %LANINDL2 END /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 /cvishow {0.4 add cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def /cvi3show {/ix exch def ix 0 eq {(000) show} if ix 0 gt ix 9 le and {(00) show ix cvishow} if ix 10 ge ix 99 le and {(0) show ix cvishow} if ix 100 ge ix 999 le and {ix cvishow} if } def /nr1 57 array def /tc1 57 array def /nr1 [(01) (02) (03) (04) (05) (06) (07) (08) %R00Y-R88Y (09) (10) (11) (12) (13) (14) (15) (16) %Y00G-Y87G (17) (18) (19) (20) (21) (22) (23) (24) %G00C-G87C (25) (26) (27) (28) (29) (30) (31) (32) %C00B-C87B (33) (34) (35) (36) (37) (38) (39) (40) %B00M-B87M (41) (42) (43) (44) (45) (46) (47) (48) %M00R-M87R (49) (50) (51) (52) (53) (54) (55) (56) %N00W-N88W (57) %N99W ] def /tc1 [(R000Y) (R125Y) (R250Y) (R375Y) (R500Y) (R625Y) (R750Y) (R875Y) %R000Y-R875Y (Y000G) (Y125G) (Y250G) (Y375G) (Y500G) (Y625G) (Y750G) (Y875G) %Y000G-Y875G (G000C) (G125C) (G250C) (G375C) (G500C) (G625C) (G750C) (G875C) %G000C-G875C (C000B) (C125B) (C250B) (C375B) (C500B) (C625B) (C750B) (C875B) %C000B-C875B (B000M) (B125M) (B250M) (B375M) (B500M) (B625M) (B750M) (B875M) %B000M-B875M (M000R) (M125R) (M250R) (M375R) (M500R) (M625R) (M750R) (M875R) %M000R-M875R (N000W) (N125W) (N250W) (N375W) (N500W) (N625W) (N750W) (N875W) %N000W-N875W (N99W) %N99W ] def /rx 57 array def /gx 57 array def /bx 57 array def 0 1 56 {/i exch def %i=0,57 rx i 0 put gx i 0 put bx i 0 put } for %i=0,57 00 1 07 {/i exch def %i=0,7 %o00y-o88y rx i 1 put gx i i 0 sub 0.125 mul put } for %i=0,7 08 1 15 {/i exch def %i=8,15 %y00l-y88l rx i 1 i 8 sub 0.125 mul sub put gx i 1 put } for %i=8,15 16 1 23 {/i exch def %i=16,23 %l00c-l88c gx i 1 put bx i i 16 sub 0.125 mul put } for %i=16,23 24 1 31 {/i exch def %i=24,31 %c00v-c88v gx i 1 i 24 sub 0.125 mul sub put bx i 1 put } for %i=24,31 32 1 39 {/i exch def %i=32,39 %v00m-v88m bx i 1 put rx i i 32 sub 0.125 mul put } for %i=32,39 40 1 47 {/i exch def %i=40,47 %m00o-m88o bx i 1 i 40 sub 0.125 mul sub put rx i 1 put } for %i=40,47 48 1 55 {/i exch def %i=48,55 %n00w-n88w rx i i 48 sub 0.125 mul put gx i i 48 sub 0.125 mul put bx i i 48 sub 0.125 mul put } for %i=48,55 56 1 56 {/i exch def %i=56 %w rx i 1 put gx i 1 put bx i 1 put } for %i=56 %STOP0 % /rx2 1401 array def /gx2 1401 array def /bx2 1401 array def /tx1 1401 array def /tx2 1401 array def /nrx 1401 array def 0 1 1400 {/i exch def %i=0,1400 rx2 i 0 put gx2 i 0 put bx2 i 0 put } for %i=0,1400 000 1 199 {/i exch def %i=0,199 %o000y-975y rx2 i 1 put gx2 i i 0 sub 0.005 mul put tx1 i (R) put tx2 i (Y) put nrx i i 0 sub 0.005 mul 1000 mul put } for %i=0,199 200 1 399 {/i exch def %i=200,399 %y000l-y975l rx2 i 1 i 200 sub 0.005 mul sub put gx2 i 1 put tx1 i (Y) put tx2 i (G) put nrx i i 200 sub 0.005 mul 1000 mul put } for %i=200,399 400 1 599 {/i exch def %i=400,599 %l000c-l975c gx2 i 1 put bx2 i i 400 sub 0.005 mul put tx1 i (G) put tx2 i (C) put nrx i i 400 sub 0.005 mul 1000 mul put } for %i=400,599 600 1 799 {/i exch def %i=600,799 %c000v-c975v gx2 i 1 i 600 sub 0.005 mul sub put bx2 i 1 put tx1 i (C) put tx2 i (B) put nrx i i 600 sub 0.005 mul 1000 mul put } for %i=600,799 800 1 999 {/i exch def %i=800,999 %v000m-v975m bx2 i 1 put rx2 i i 800 sub 0.005 mul put tx1 i (B) put tx2 i (M) put nrx i i 800 sub 0.005 mul 1000 mul put } for %i=800,999 1000 1 1199 {/i exch def %i=1000,1199 %m000o-m975o bx2 i 1 i 1000 sub 0.005 mul sub put rx2 i 1 put tx1 i (M) put tx2 i (R) put nrx i i 10000 sub 0.005 mul 1000 mul put } for %i=1000,1199 1200 1 1399 {/i exch def %i=1200,1399 %o000y-975y rx2 i 1 put gx2 i i 1200 sub 0.005 mul put tx1 i (R) put tx2 i (Y) put nrx i i 1200 sub 0.005 mul 1000 mul put } for %i=1200,1399 %rx2 240 rx2 0 get put %gx2 240 gx2 0 get put %bx2 240 bx2 0 get put %STOP1 72 90 translate 00 1 459 {/xchart exch def %xchart=0,459 /xchartl xchart 50 idiv 25 mul def /xchartx1 xchartl def /xchartx2 xchartx1 50 add def /xchartx xchart xchartx1 sub def gsave 8 /Times-ISOL1 FS 12 0 moveto (WG060-7R) show ( Test chart with 460 colours) showea ( Pr\374fvorlage mit 460 Farben) showde (; digital equidistant 9 step hue circle) showea (; digitaler gleichabst\344ndiger 9stufiger Bunttonkreis) showde (, Page ) showea (, Seite ) showde xchart 1 add cvishow (/460) show 0.01 MM 1.00 mul dup scale 0 200 translate %Start-transformation %0.5 0.5 0.5 setrgbcolor 1.0 1.0 1.0 setrgbcolor 0 0 moveto 25500 0 rlineto 0 17000 rlineto 25500 neg 0 rlineto closepath fill %/xt 1000 def %/yt 1000 def %0.5 0.5 0.5 setrgbcolor %xt yt moveto 25500 xt 2 mul sub 0 rlineto 0 17000 yt 2 mul sub rlineto % 25500 xt 2 mul sub neg 0 rlineto closepath fill 0.0 dup dup setrgbcolor 0 0 moveto 25500 0 rlineto 0 17000 rlineto 25500 neg 0 rlineto closepath stroke 20 setlinewidth /xd 2500 def /yd 2500 def /xm 12750 def /ym 08500 def /xls xm 3 xd mul sub def /xrs xm 1 xd mul add def /yt1 ym 1 yd mul add def /yt2 ym 2 yd mul sub def /xlq xm xd sub def /ylq xm 3 xd mul sub def /yt3 1500 def TBG %left 0 setgray /x0 1600 def /x1 4200 def /x2 5400 def /x3 6600 def /y1 9900 def /y2 9500 def /y3 8900 def /y4 8500 def x0 y1 moveto (no.) showea (Nr.) showde (, ) show xchartl cvishow (, ) show xchartx cvishow TBIG x1 y1 moveto (r*) show (d) ibshownG x2 y1 moveto (g*) show (d) ibshownG x3 y1 moveto (b*) show (d) ibshownG x0 y2 moveto xchartl 25 idiv cvishow (, ) show tc1 xchartl 25 idiv get show x1 y2 moveto rx2 xchartl get cvsshow3 x2 y2 moveto gx2 xchartl get cvsshow3 x3 y2 moveto bx2 xchartl get cvsshow3 TBG 0 setgray x0 y3 moveto (no.) showea (Nr.) showde TBIG x1 y3 moveto (r*) show (2d) ibshownG x2 y3 moveto (g*) show (2d) ibshownG x3 y3 moveto (b*) show (2d) ibshownG x0 y4 moveto xchartl 25 idiv cvishow (, ) show xchartx xchartl sub cvishow (, ) show %tx1 xchartx get show tx1 xchartx get show nrx xchartx get cvi3show tx2 xchartx get show x1 y4 moveto rx2 xchartx get cvsshow3 x2 y4 moveto gx2 xchartx get cvsshow3 x3 y4 moveto bx2 xchartx get cvsshow3 rx2 xchartl get gx2 xchartl get bx2 xchartl get setrgbcolor xls yt1 moveto xd 0 rlineto 0 yd rlineto xd neg 0 rlineto closepath fill rx2 xchartx get gx2 xchartx get bx2 xchartx get setrgbcolor xls xd add 20 sub yt1 moveto xd 0 rlineto 0 yd rlineto xd neg 0 rlineto closepath fill %STOP2 TBG %right 0 setgray /x0 x0 16500 add def /x1 x1 16500 add def /x2 x2 16500 add def /x3 x3 16500 add def /y1 9900 def /y2 9500 def /y3 8900 def /y4 8500 def x0 y1 moveto (no.) showea (Nr.) showde (, ) show xchartl 600 add cvishow (, ) show xchartx 600 add cvishow x1 y1 moveto TBG (1-) show TBIG (r*) show (d) ibshownG x2 y1 moveto TBG (1-) show TBIG (g*) show (d) ibshownG x3 y1 moveto TBG (1-) show TBIG (b*) show (d) ibshownG x0 y2 moveto xchartl 25 idiv 24 add cvishow (, ) show tc1 xchartl 25 idiv 24 add get show x1 y2 moveto 1 rx2 xchartl get sub cvsshow3 x2 y2 moveto 1 gx2 xchartl get sub cvsshow3 x3 y2 moveto 1 bx2 xchartl get sub cvsshow3 TBG 0 setgray x0 y3 moveto (no.) showea (Nr.) showde x1 y3 moveto TBG (1-) show TBIG (r*) show (2d) ibshownG x2 y3 moveto TBG (1-) show TBIG (g*) show (2d) ibshownG x3 y3 moveto TBG (1-) show TBIG (b*) show (2d) ibshownG x0 y4 moveto xchartl 25 idiv 24 add cvishow (, ) show xchartx xchartl sub cvishow (, ) show %tx1 xchartx get show tx1 xchartx 600 add get show nrx xchartx 600 add get cvi3show tx2 xchartx 600 add get show x1 y4 moveto 1 rx2 xchartx get sub cvsshow3 x2 y4 moveto 1 gx2 xchartx get sub cvsshow3 x3 y4 moveto 1 bx2 xchartx get sub cvsshow3 1 rx2 xchartl get sub 1 gx2 xchartl get sub 1 bx2 xchartl get sub setrgbcolor xrs yt1 moveto xd 0 rlineto 0 yd rlineto xd neg 0 rlineto closepath fill 1 rx2 xchartx get sub 1 gx2 xchartx get sub 1 bx2 xchartx get sub setrgbcolor xrs xd add 20 sub yt1 moveto xd 0 rlineto 0 yd rlineto xd neg 0 rlineto closepath fill %STOP3 %squares %left /xlq xm xd sub def /ylq xm 3 xd mul sub def /xd 2500 def /yd 2500 def /xl 125 def /yl 125 def /xc xd xl idiv 1 sub def /yc yd yl idiv 1 sub def /w2 2 sqrt def /w07 w2 0.5 mul def /xk xl w07 mul def /yk yl w07 mul def %translation /xt 1 w07 sub 0.5 mul xl mul def /yt 1 w07 sub 0.5 mul yl mul def rx2 xchartl get gx2 xchartl get bx2 xchartl get setrgbcolor xlq ylq moveto xd 0 rlineto 0 yd rlineto xd neg 0 rlineto closepath fill 1 rx2 xchartl get sub 1 gx2 xchartl get sub 1 bx2 xchartl get sub setrgbcolor 0 1 xc {/xi exch def 0 1 yc {/yi exch def xlq xt add xl xi mul add ylq yt add yl yi mul add moveto xk 0 rlineto 0 yk rlineto xk neg 0 rlineto closepath fill } for } for %STOP4 /iout 1 def iout 1 eq {%iout=1 %right /xlq xm def /ylq xm 3 xd mul sub def rx2 xchartx get gx2 xchartx get bx2 xchartx get setrgbcolor xlq ylq moveto xd 0 rlineto 0 yd rlineto xd neg 0 rlineto closepath fill 1 rx2 xchartx get sub 1 gx2 xchartx get sub 1 bx2 xchartx get sub setrgbcolor 0 1 xc {/xi exch def 0 1 yc {/yi exch def xlq xt add xl xi mul add ylq yt add yl yi mul add moveto xk 0 rlineto 0 yk rlineto xk neg 0 rlineto closepath fill } for } for } if %iout=1 %STOP5 /iout 1 def iout 1 eq {%iout=1 %lines /xd 2500 def /yd 2500 def /xl 125 def /yl 125 def /xl 062 def /yl 062 def /yl1 yl 1 add def /yl2 yl 2 add def /iy yd yl idiv 1 sub def %/iy 0 def %left /xlq xm xd 1.5 mul add def /ylq xm 3 xd mul sub def 0 2 iy {/i exch def rx2 xchartl get gx2 xchartl get bx2 xchartl get setrgbcolor xlq ylq yl i mul add moveto xd 0 rlineto 0 yl2 rlineto xd neg 0 rlineto closepath fill 1 rx2 xchartl get sub 1 gx2 xchartl get sub 1 bx2 xchartl get sub setrgbcolor xlq ylq yl i 1 add mul add moveto xd 0 rlineto 0 yl2 rlineto xd neg 0 rlineto closepath fill } for %i=0,iy %right /xlq xm xd 2.5 mul add def /ylq xm 3 xd mul sub def 0 2 iy {/i exch def rx2 xchartx get gx2 xchartx get bx2 xchartx get setrgbcolor xlq ylq yl i mul add moveto xd 0 rlineto 0 yl2 rlineto xd neg 0 rlineto closepath fill 1 rx2 xchartx get sub 1 gx2 xchartx get sub 1 bx2 xchartx get sub setrgbcolor xlq ylq yl i 1 add mul add moveto xd 0 rlineto 0 yl2 rlineto xd neg 0 rlineto closepath fill } for %i=0,iy } if %iout=1 /xd 2500 def /xg0 xm 4.5 xd mul sub def 48 1 56 {/i exch def %i=48,56 %grey series rx i get gx i get bx i get setrgbcolor xg0 i 48 sub xd mul add yt3 moveto xd 0 rlineto 0 xd rlineto xd neg 0 rlineto closepath fill } for %i=48,56 48 1 48 {/i exch def %i=48,48 white frame 1 1 1 setrgbcolor xg0 i 48 sub xd mul add yt3 moveto xd 0 rlineto 0 xd rlineto xd neg 0 rlineto closepath stroke } for %i=48,48 52 4 56 {/i exch def %i=56,56 black frame 0 0 0 setrgbcolor xg0 i 48 sub xd mul add yt3 moveto xd 0 rlineto 0 xd rlineto xd neg 0 rlineto closepath stroke } for %i=56,56 %STOP6 0 200 neg translate showpage grestore } for %xchart=0,459 %%Trailer