%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/AGS5/AGS51-3 %%BoundingBox: 70 83 392 335 %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: farbe.li.tu-berlin.de/AGS5/AGS5.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:2020110112000) /ModDate (D:20201101112000) /DOCINFO pdfmark13 [ /View [ /Fit ] /DOCVIEW pdfmark13 %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 /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 /RV {150 /Times-Roman FS} bind def /RS {190 /Times-Roman FS} bind def /RK {240 /Times-Roman FS} bind def /RM {290 /Times-Roman FS} bind def /RG {340 /Times-Roman FS} bind def /RIV {150 /Times-Italic FS} bind def /RIS {190 /Times-Italic FS} bind def /RIK {240 /Times-Italic FS} bind def /RIM {290 /Times-Italic FS} bind def /RIG {340 /Times-Italic FS} bind def /RBV {150 /Times-Bold FS} bind def /RBS {190 /Times-Bold FS} bind def /RBK {240 /Times-Bold FS} bind def /RBM {290 /Times-Bold FS} bind def /RBG {340 /Times-Bold FS} bind def /RBIV {150 /Times-BoldItalic FS} bind def /RBIS {190 /Times-BoldItalic FS} bind def /RBIK {240 /Times-BoldItalic FS} bind def /RBIM {290 /Times-BoldItalic FS} bind def /RBIG {340 /Times-BoldItalic FS} bind def /TV {150 /Times-ISOL1 FS} bind def /TS {190 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TM {290 /Times-ISOL1 FS} bind def /TG {340 /Times-ISOL1 FS} bind def /TIV {150 /TimesI-ISOL1 FS} bind def /TIS {190 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIM {290 /TimesI-ISOL1 FS} bind def /TIG {340 /TimesI-ISOL1 FS} bind def /TBV {150 /TimesB-ISOL1 FS} bind def /TBS {190 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBM {290 /TimesB-ISOL1 FS} bind def /TBG {340 /TimesB-ISOL1 FS} bind def /TBIV {150 /TimesBI-ISOL1 FS} bind def /TBIS {190 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIM {290 /TimesBI-ISOL1 FS} bind def /TBIG {340 /TimesBI-ISOL1 FS} bind def /SV {150 /Symbol FS} bind def /SS {190 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SM {290 /Symbol FS} bind def /SG {340 /Symbol FS} bind def %XCHA01.PS BEG /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 /circ %x, y radius {dcirc 0 360 arc } bind def /colrecfi %x y width heigth c m y k {setcmyk_olvcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmyk_olvcolor rec stroke} bind def /colarcfi %x y c m y k {setcmyk_olvcolor circ fill} bind def /colarcst %x y width heigth c m y k {setcmyk_olvcolor circ stroke} bind def /rem %x, y width heigth {/heigth exch 0.5 mul def /width exch 0.5 mul def /yleftb exch heigth 0.5 mul add def /xleftb exch width 0.5 mul add def xleftb yleftb moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colremfi %x y width heigth c m y k {setcmykcolor rem fill} bind def /colremst %x y width heigth c m y k {setcmykcolor rem stroke} bind def /tzr {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzg {1.0 0.0 1.0 0.0} bind def /tzb {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 /tfr {0.0 1.0 1.0 0.0 setcmyk_olvcolor} bind def %Reproduktionsfarben /tfg {1.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def /tfb {1.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def /tfc {1.0 0.0 0.0 0.0 setcmyk_olvcolor} bind def /tfm {0.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def /tfy {0.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def /tfrz {0.0 1.0 1.0 0.5 setcmyk_olvcolor} bind def %Reproduktionsfarben /tfgz {1.0 0.0 1.0 0.5 setcmyk_olvcolor} bind def /tfbz {1.0 1.0 0.0 0.5 setcmyk_olvcolor} bind def /tfcz {1.0 0.0 0.0 0.5 setcmyk_olvcolor} bind def /tfmz {0.0 1.0 0.0 0.5 setcmyk_olvcolor} bind def /tfyz {0.0 0.0 1.0 0.5 setcmyk_olvcolor} bind def /tfn {0.0 0.0 0.0 1.00 setcmyk_olvcolor} bind def %Graureihe /tfd {0.0 0.0 0.0 0.75 setcmyk_olvcolor} bind def /tfz {0.0 0.0 0.0 0.50 setcmyk_olvcolor} bind def /tfh {0.0 0.0 0.0 0.25 setcmyk_olvcolor} bind def /tfw {0.0 0.0 0.0 0.00 setcmyk_olvcolor} bind def /cvishow {cvi 10 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 /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def %%EndProlog gsave /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 {3 lanind eq {show} {pop} ifelse} bind def /showfr {2 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 3 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 0 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 /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output 5 /Times-ISOL1 FS 75 85 moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolor cvishow xchart cvishow pchart cvishow colsep cvishow (-L) show pmetam cvishow gsave /xchart xchart1 def /xchartl 2 def gsave 0 setgray 4 /Times-ISOL1 FS 74 86 moveto (AGS51-3N) show %xchartl 0 eq {(AGS50-3N) show} if %xchartl 1 eq {(AGS50-7N) show} if %xchartl 2 eq {(AGS51-3N) show} if %xchartl 3 eq {(AGS51-7N) show} if %not used 72 90 translate /yhoe 8500 def 0.01 MM dup scale 15 setlinewidth 0.0 0.0 0.0 0.0 setcmyk_olvcolor 0 0 moveto 11200 0 rlineto 0 yhoe rlineto -11200 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmyk_olvcolor 0 0 moveto 11200 0 rlineto 0 yhoe rlineto -11200 0 rlineto closepath stroke 0 yhoe 400 sub moveto 11200 0 rlineto stroke /ns {340 /Times-ISOL1 FS show TG} bind def /ks {340 /TimesI-ISOL1 FS show TG} bind def /bs {340 /TimesB-ISOL1 FS show TG} bind def /js {340 /TimesBI-ISOL1 FS show TG} bind def /ss {340 /Symbol FS show TG} bind def /is {240 /Times-ISOL1 FS 0 -90 rmoveto show 0 90 rmoveto TG} bind def /is0 {240 /Times-ISOL1 FS -30 -90 rmoveto show 0 90 rmoveto TG} bind def /es {240 /Times-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto TG} bind def %/ipoint {340 /Times-ISOL1 FS 50 50 rmoveto show 50 -50 rmoveto TG} bind def %/ip {(.) ipoint} bind def /ip {(\267) ns TG} bind def /ib {(\267) bs TG} bind def %20% kleiner /ns2 {290 /Times-ISOL1 FS show TM} bind def /ks2 {290 /TimesI-ISOL1 FS show TM} bind def /bs2 {290 /TimesB-ISOL1 FS show TM} bind def /js2 {290 /TimesBI-ISOL1 FS show TM} bind def /is2 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TM} bind def /is20 {200 /Times-ISOL1 FS -20 -60 rmoveto show 0 60 rmoveto TM} bind def /iks2 {200 /TimesI-ISOL1 FS 10 -40 rmoveto show -10 40 rmoveto TM} bind def /es2 {240 /Times-ISOL1 FS 0 060 rmoveto show 0 -060 rmoveto TM} bind def /ip2 {(\267) ns2 TM} bind def /ib2 {(\267) bs2 TM} bind def %40% kleiner /ns4 {240 /Times-ISOL1 FS show TK} bind def /ks4 {240 /TimesI-ISOL1 FS show TK} bind def /bs4 {240 /TimesB-ISOL1 FS show TK} bind def /js4 {240 /TimesBI-ISOL1 FS show TK} bind def /is4 {160 /Times-ISOL1 FS -30 -48 rmoveto show 0 48 rmoveto TK} bind def /ibs4 {160 /TimesB-ISOL1 FS -30 -48 rmoveto show 0 48 rmoveto TK} bind def /iks4 {160 /TimesI-ISOL1 FS -30 -48 rmoveto show 0 48 rmoveto TK} bind def /es4 {200 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TK} bind def /ip4 {(\267) ns4 TK} bind def /ib4 {(\267) bs4 TK} bind def /ydel 300 def %Titeltext 100 8200 moveto TBM (16stufige Grauskalierung zwischen ) showde (Equal 16 step grey scaling between ) showen (16 pasos di gri con escala equal entre ) showes (Les 16 plages d'\351chelle de gris entre ) showfr (16 fasi di grigio con uguale la scalatura fra ) showit (16 trinn av gr\345 med samme skalering mellom ) showjp (L*) js2 (N) is2 TBM ( und ) showde ( and ) showen ( y ) showes ( et ) showfr ( e ) showit ( og ) showjp (L*) js2 (W) is2 TBM TBM ( f\374r 3 Reflexionen des Umgebungslichts) showde ( for three reflections of ambient light) showen ( para tres reflexiones de luz ambiental) showes ( pour trois r\351flexions de lumi\350re ambiante) showfr ( per tre riflessioni della luce ambiente) showit ( for tre refections omgivelselys) showjp /La*0i 16 array def /La*1i 16 array def /La*2i 16 array def /Da*0i 16 array def /Da*1i 16 array def /Da*2i 16 array def /lr*0i 16 array def /lr*1i 16 array def /lr*2i 16 array def /wl*0i 16 array def /wl*1i 16 array def /wl*2i 16 array def /r*0i 16 array def /r*1i 16 array def /r*2i 16 array def /g*0i 16 array def /g*1i 16 array def /g*2i 16 array def /b*0i 16 array def /b*1i 16 array def /b*2i 16 array def /w*0i 16 array def /w*1i 16 array def /w*2i 16 array def /La*r0 00.0 def /La*r1 18.01 def /La*r2 69.69 def /La*rn 00.0 def /La*rw 95.4 def /s 350 def /xdels 2000 def %s=series /xdelc s def %c=color=s /xdel2 s 2 mul def /ydel 0800 def /dcirc s 0.25 mul def /dcir2 dcirc 0.5 mul def /tcirc s 0.60 mul def /yscale 70 def /Da*00 La*rw La*r0 sub 15 div def 0 1 15 {/i exch def La*0i i La*r0 Da*00 i mul add put lr*0i i La*0i i get La*r0 sub La*rw La*rn sub div put w*0i i lr*0i i get put } for /Da*01 La*rw La*r1 sub 15 div def 0 1 15 {/i exch def La*1i i La*r1 Da*01 i mul add put lr*1i i La*1i i get La*r0 sub La*rw La*rn sub div put w*1i i lr*1i i get put } for /Da*02 La*rw La*r2 sub 15 div def 0 1 15 {/i exch def La*2i i La*r2 Da*02 i mul add put lr*2i i La*2i i get La*r0 sub La*rw La*rn sub div put w*2i i lr*2i i get put } for 0 1 15 {/i exch def r*0i i i 15 div put g*0i i i 15 div put b*0i i i 15 div put w*0i i i 15 div put } for 0 1 15 {/i exch def r*1i i r*0i i get 1. 0.875 div exp put g*1i i g*0i i get 1. 0.875 div exp put b*1i i b*0i i get 1. 0.875 div exp put w*1i i w*0i i get 1. 0.875 div exp put } for 0 1 15 {/i exch def r*2i i r*0i i get 1. 0.500 div exp put g*2i i r*0i i get 1. 0.500 div exp put b*2i i r*0i i get 1. 0.500 div exp put w*2i i r*0i i get 1. 0.500 div exp put } for /xpos0 0700 def /ypos0 0300 def /xpos1 0700 def /ypos1 0300 100 yscale mul add def /ytext 6 array def /ytext [( 0) ( 20) ( 40) ( 60) ( 80) (100)] def /TBGshift 100 def /TVGshift 060 def xpos0 ypos0 moveto xpos1 ypos1 500 add lineto stroke xpos1 ypos1 500 add moveto -100 -250 rlineto stroke xpos1 ypos1 500 add moveto 100 -250 rlineto stroke xpos1 500 sub ypos1 300 add moveto TBIM (L*) show TBM 0 1 5 {/i exch def %i=0,5 xpos0 100 sub ypos0 i 20 mul yscale mul add moveto 200 0 rlineto stroke xpos0 600 sub ypos0 i 20 mul yscale mul add TBGshift sub moveto ytext i get show } for %i=0,5 /xpos 1000 def TV 0 1 15 {/i exch def %i=0,15 i 0 eq {xpos 0000 add ypos1 0600 add moveto TBS (keine Umgebungsreflexion ) showde (No ambient reflection ) showen (No hay reflexi\363n ambiental ) showes (No r\351flexion ambiante ) showfr (Nessuna riflessione ambientale ) showit (Ingen ambient refleksjion ) showjp TBIS (Y) show (N) is4 TBS (=0, ) show TBIS (L*) show (N) is4 TBS (=0) show xpos 000 add ypos1 300 add moveto TBS (Helligkeitsdifferenz ) showde (lightness difference ) showen (differencia de luminosidad ) showes (clart\351 diff\351rence ) showfr (leggerezza differenza ) showit (skryt forskjellen ) showjp SS (D) show TBIS (L*) show TBS (=6,3) show xpos 0300 add ypos1 0000 add moveto TBS (n0.) show xpos 0700 add ypos1 0000 add moveto TBIS (w*) show xpos 1200 add ypos1 0000 add moveto TBIS (w*) show (r) is2 xchartl 0 eq {%xchartl=0 xpos 1750 add ypos1 0000 add moveto TBIS (L*) show (it) is2 xpos 2250 add ypos1 0000 add moveto TBIS (Y) show (it) is2 xpos 2750 add ypos1 0000 add moveto TBIS (Y) show (N) is2 } if %xchartl=0 xchartl 1 eq {%xchartl=1 1 0 0 setrgbcolor xpos 1750 add ypos1 0000 add moveto TBIS (L*) show (re) is2 xpos 2250 add ypos1 0000 add moveto TBIS (Y) show (re) is2 xpos 2750 add ypos1 0000 add moveto TBIS (Y) show (N) is2 0 setgray } if %xchartl=1 xchartl 2 ge {%xchartl>=2 xpos 1750 add ypos1 0000 add moveto TBIS (L*) show (it) is2 1 0 0 setrgbcolor xpos 2250 add ypos1 0000 add moveto TBIS (L*) show (re) is2 xchartl 2 eq {%xchartl=2 xpos 2750 add ypos1 0000 add moveto SS (D) show TBIS (L*) show (re) is2 } if %xchartl=2 0 setgray } if %xchartl>=2 xchartl 3 eq {%xchartl=3 1 0 0 setrgbcolor xpos 2750 add ypos1 0000 add moveto TBIS (Y) show (re) is2 0 setgray } if %xchartl=3 TV } if newpath /ypos La*0i i get yscale mul def i 14 le {La*0i i get 95.4 div} {newpath 0} ifelse setgray xpos dcirc add ypos0 ypos add dcirc 0 360 arc i 14 le {fill} {stroke} ifelse 0 setgray xpos 0300 add ypos ypos0 add TVGshift sub moveto i 1 add cvishow xpos 0700 add ypos ypos0 add TVGshift sub moveto La*0i i get 95.4 div cvsshow3 xpos 1200 add ypos ypos0 add TVGshift sub moveto La*0i i get La*r0 sub 95.4 La*r0 sub div cvsshow3 xchartl 1 ne {%xchartl#1 xpos 1750 add ypos ypos0 add TVGshift sub moveto La*0i i get cvsshow1 } if %xchartl#1 } for %i=0,15 /Yci 16 array def /Yc0i 16 array def xchartl 0 eq {%xchartl=0 0 1 15 {/i exch def /ypos La*0i i get yscale mul def /Y* La*0i i get 16 add 116 div def Yci i Y* DecodeXYZ* 100.00 mul put Yc0i i Yci 0 get put xpos 2250 add ypos ypos0 add TVGshift sub moveto Yci i get cvsshow1 xpos 2750 add ypos ypos0 add TVGshift sub moveto Yc0i i get cvsshow1 } for %i=0,15 } if %xchartl=0 /xpos 4300 def TV 0 1 15 {/i exch def %i=0,15 i 0 eq {xpos 0000 add ypos1 0600 add moveto TBS (Umgebungsreflexion ) showde (Ambient reflection ) showen (Reflexi\363n ambiental ) showes (R\351flexion ambiante ) showfr (Riflessione ambientale ) showit (Ambient refleksjion ) showjp TBIS (Y) show (N) is4 TBS (=2,5, ) show TBIS (L*) show (N) is4 TBS (=18) show xpos 000 add ypos1 300 add moveto TBS (Helligkeitsdifferenz ) showde (lightness difference ) showen (differencia de luminosidad ) showes (clart\351 diff\351rence ) showfr (leggerezza differenza ) showit (skryt forskjellen ) showjp SS (D) show TBIS (L*) show TBS (=5,1) show xpos 0300 add ypos1 0000 add moveto TBS (n0.) show xpos 0700 add ypos1 0000 add moveto TBIS (w*) show xpos 1200 add ypos1 0000 add moveto TBIS (w*) show (r) is2 xchartl 0 eq {%xchartl=0 xpos 1750 add ypos1 0000 add moveto TBIS (L*) show (it) is2 xpos 2250 add ypos1 0000 add moveto TBIS (Y) show (it) is2 xpos 2750 add ypos1 0000 add moveto TBIS (Y) show (N) is2 } if %xchartl=0 xchartl 1 eq {%xchartl=1 1 0 0 setrgbcolor xpos 1750 add ypos1 0000 add moveto TBIS (L*) show (re) is2 xpos 2250 add ypos1 0000 add moveto TBIS (Y) show (re) is2 xpos 2750 add ypos1 0000 add moveto TBIS (Y) show (N) is2 0 setgray } if %xchartl=1 xchartl 2 ge {%xchartl>=2 xpos 1750 add ypos1 0000 add moveto TBIS (L*) show (it) is2 1 0 0 setrgbcolor xpos 2250 add ypos1 0000 add moveto TBIS (L*) show (re) is2 xchartl 2 eq {%xchartl=2 xpos 2750 add ypos1 0000 add moveto SS (D) show TBIS (L*) show (re) is2 } if %xchartl=2 0 setgray } if %xchartl>=2 xchartl 3 eq {%xchartl=3 1 0 0 setrgbcolor xpos 2750 add ypos1 0000 add moveto TBIS (Y) show (re) is2 0 setgray } if %xchartl=3 TV } if newpath /ypos La*1i i get yscale mul def i 14 le {La*1i i get 95.4 div} {newpath 0} ifelse setgray xpos dcirc add ypos0 ypos add dcirc 0 360 arc i 14 le {fill} {stroke} ifelse 0 setgray xpos 0300 add ypos ypos0 add TVGshift sub moveto i 1 add cvishow xpos 0700 add ypos ypos0 add TVGshift sub moveto La*1i i get 95.4 div cvsshow3 xpos 1200 add ypos ypos0 add TVGshift sub moveto La*1i i get La*r1 sub 95.4 La*r1 sub div cvsshow3 xchartl 1 ne {%xchartl#1 xpos 1750 add ypos ypos0 add TVGshift sub moveto La*1i i get cvsshow1 } if %xchartl#1 } for %i=0,15 %STOP0 xchartl 0 eq {%xchartl=0 0 1 15 {/i exch def /ypos La*1i i get yscale mul def /Y* La*1i i get 16 add 116 div def Yci i Y* DecodeXYZ* 100.00 mul put Yc0i i Yci 0 get put xpos 2250 add ypos ypos0 add TVGshift sub moveto Yci i get cvsshow1 xpos 2750 add ypos ypos0 add TVGshift sub moveto Yc0i i get cvsshow1 } for %i=0,15 } if %xchartl=0 %STOP1 /xpos 7600 def TV 0 1 15 {/i exch def %i=0,15 i 0 eq {TBS xpos 0000 add ypos1 0600 add moveto TBS (Umgebungsreflexion ) showde (Ambient reflection ) showen (Reflexi\363n ambiental ) showes (R\351flexion ambiante ) showfr (Riflessione ambientale ) showit (Ambient refleksjion ) showjp TBIS (Y) show (N) is4 TBS (=40, ) show TBIS (L*) show (N) is4 TBS (=70) show xpos 000 add ypos1 0300 add moveto TBS (Helligkeitsdifferenz ) showde (lightness difference ) showen (differencia de luminosidad ) showes (clart\351 diff\351rence ) showfr (leggerezza differenza ) showit (skryt forskjellen ) showjp SS (D) show TBIS (L*) show TBS (=1,7) show xpos 0300 add ypos1 0000 add moveto TBS (n0.) show xpos 0700 add ypos1 0000 add moveto TBIS (w*) show xpos 1200 add ypos1 0000 add moveto TBIS (w*) show (r) is2 xchartl 0 eq {%xchartl=0 xpos 1750 add ypos1 0000 add moveto TBIS (L*) show (it) is2 xpos 2250 add ypos1 0000 add moveto TBIS (Y) show (it) is2 xpos 2750 add ypos1 0000 add moveto TBIS (Y) show (N) is2 } if %xchartl=0 xchartl 1 eq {%xchartl=1 1 0 0 setrgbcolor xpos 1750 add ypos1 0000 add moveto TBIS (L*) show (re) is2 xpos 2250 add ypos1 0000 add moveto TBIS (Y) show (re) is2 xpos 2750 add ypos1 0000 add moveto TBIS (Y) show (N) is2 0 setgray } if %xchartl=1 xchartl 2 ge {%xchartl>=2 xpos 1750 add ypos1 0000 add moveto TBIS (L*) show (it) is2 1 0 0 setrgbcolor xpos 2250 add ypos1 0000 add moveto TBIS (L*) show (re) is2 xchartl 2 eq {%xchartl=2 xpos 2750 add ypos1 0000 add moveto SS (D) show TBIS (L*) show (re) is2 } if %xchartl=2 0 setgray } if %xchartl>=2 xchartl 3 eq {%xchartl=3 1 0 0 setrgbcolor xpos 2750 add ypos1 0000 add moveto TBIS (Y) show (re) is2 0 setgray } if %xchartl=3 TV } if newpath /ypos La*2i i get yscale mul def i 14 le {La*2i i get 95.4 div} {newpath 0} ifelse setgray xpos dcirc add ypos0 ypos add dcirc 0 360 arc i 14 le {fill} {stroke} ifelse 0 setgray xpos 0300 add ypos ypos0 add TVGshift sub moveto i 1 add cvishow xpos 0700 add ypos ypos0 add TVGshift sub moveto La*2i i get 95.4 div cvsshow3 xpos 1200 add ypos ypos0 add TVGshift sub moveto La*2i i get La*r2 sub 95.4 La*r2 sub div cvsshow3 xchartl 1 ne {%xchartl#1 xpos 1750 add ypos ypos0 add TVGshift sub moveto La*2i i get cvsshow1 } if %xchartl#1 } for %i=0,15 xchartl 0 eq {%xchartl=0 0 1 15 {/i exch def /ypos La*2i i get yscale mul def /Y* La*2i i get 16 add 116 div def Yci i Y* DecodeXYZ* 100.00 mul put Yc0i i Yci 0 get put xpos 2250 add ypos ypos0 add TVGshift sub moveto Yci i get cvsshow1 xpos 2750 add ypos ypos0 add TVGshift sub moveto Yc0i i get cvsshow1 } for %i=0,15 } if %xchartl=0 4700 1150 moveto RBS (ISO/CIE 11664-4: ) show TBIS (L*) show (it) is2 RBS ( = angestrebte CIELAB-Helligkeit der Ausgabe) showde TBS ( = intended CIELAB lightness of output) showen ( = la CIELAB ligereza de la salida) showes ( = pr\351vue sortie de la clart\351 CIELAB) showfr ( = la valuta CIELAB leggerezza dell'uscita) showit ( = del tiltenkte CIELAB skryt av utskriften) showjp 4700 0800 moveto RBS (IEC 61966-2-1: ) show TBIS (w*) show (sRGB) is2 TBS ( ist ungef\344hr proportional zu ) showde ( is approximately proportional to ) showen ( es approximadente proporcional a ) showes ( est approximativement proportionelle \340 ) showfr ( \350 approssimativamente proporzionale alla ) showit ( er omtrent proporsjional til ) showjp TBIS (L*) show 4700 0450 moveto TBIS (w*) show (sRGB) is2 TBS ( = ) show TBIS (L*) show TBS (/95,4) show TBS (; ) show TBIS (w*) show (r) is2 TBS ( = [) show TBIS (L*) show RBS (-) show TBS TBIS (L*) show (N) is2 TBS (] / [) show TBIS (L*) show (W) is2 TBS RBS (-) show TBS TBIS (L*) show (N) is2 TBS (]) show xchartl 0 eq {%xchartl=0 0 setgray 4700 0100 moveto TBIS (Y) show (it) is2 RBS ( = angestrebter Normfarbwert mit Ausgabe-Linearisierung) showde TBS ( = intended tristimulus value with output linearization) showen ( = prevista valor de triestimulos con linearizaci\363n de la salida) showes ( = prevue valeur tristimulus avec lin\351arisation de la sortie) showfr ( = destinata valore tristimulo con linearizzazione di uscita) showit ( = beregnet tristimulus verdien med linearization av utg\345ende) showjp } if %xchartl=0 xchartl 1 eq {%xchartl=1 1 0 0 setrgbcolor 4700 0100 moveto TBIS (Y) show (re) is2 RBS ( = realer Normfarbwert ohne Ausgabe-Linearisierung) showde TBS ( = real tristimulus value without output linearization) showen ( = real valor de triestimulos sin linearizaci\363n de la salida) showes ( = vrai valeur tristimulus sans lin\351arisation de la sortie) showfr ( = reale valore tristimulo senza linearizzazione di uscita) showit ( = real tristimulus verdien uten linearization av utg\345ende) showjp 0 setgray } if %xchartl=1 xchartl 2 ge {%xchartl>=2 1 0 0 setrgbcolor 4700 0100 moveto TBIS (L*) show (re) is2 RBS ( = realer Normfarbwert ohne Ausgabe-Linearisierung) showde TBS ( = real lightness of output without output linearization) showen ( = real ligereza de la salida sin linearizaci\363n de la salida) showes ( = vrai clart\351 sans lin\351arisation de la sortie) showfr ( = reale leggerezza senza linearizzazione di uscita) showit ( = real skryt av utgang uten linearization av utg\345ende) showjp 0 setgray } if %xchartl>=2 %************************************************************************ xchartl 1 ge {%xchartl>=1 /TSY {200 /Symbol FS} bind def /TSS {150 /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 /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 /SS {200 /Symbol FS} bind def /SK {250 /Symbol FS} bind def /SM {300 /Symbol FS} bind def /SG {350 /Symbol FS} bind def /nshow {iyd /Times-ISOL1 FS show} def /nishow {-30 -50 rmoveto iyd 50 sub /Times-ISOL1 FS show 30 50 rmoveto} def /kshow {iyd /TimesI-ISOL1 FS show} def /bshow {iyd /TimesB-ISOL1 FS show} def /jshow {iyd /TimesBI-ISOL1 FS show} def /ishow {-30 -50 rmoveto iyd 50 sub /TimesB-ISOL1 FS show 30 50 rmoveto} def /sshow {iyd /Symbol FS show} def /nshowde {0 lanind eq {nshow} {pop} ifelse} bind def /nshowen {1 lanind eq {nshow} {pop} ifelse} bind def /nishowde {0 lanind eq {nishow} {pop} ifelse} bind def /nishowen {1 lanind eq {nishow} {pop} ifelse} bind def /kshowde {0 lanind eq {kshow} {pop} ifelse} bind def /kshowen {1 lanind eq {kshow} {pop} ifelse} bind def /bshowde {0 lanind eq {bshow} {pop} ifelse} bind def /bshowen {1 lanind eq {bshow} {pop} ifelse} bind def /jshowde {0 lanind eq {jshow} {pop} ifelse} bind def /jshowen {1 lanind eq {jshow} {pop} ifelse} bind def /ishowde {0 lanind eq {ishow} {pop} ifelse} bind def /ishowen {1 lanind eq {ishow} {pop} ifelse} bind def /nshowea {1 lanind le {nshow} {pop} ifelse} bind def /nishowea {1 lanind le {nishow} {pop} ifelse} bind def /kshowea {1 lanind le {kshow} {pop} ifelse} bind def /bshowea {1 lanind le {bshow} {pop} ifelse} bind def /jshowea {1 lanind le {jshow} {pop} ifelse} bind def /ishowea {1 lanind le {ishow} {pop} ifelse} bind def /LAB*rc 33 array def /XYZrc 33 array def /LAB*ra 33 array def /XYZra 33 array def /LAB*la 33 array def /XYZla 33 array def /LAB*lc 33 array def /XYZlc 33 array def %part 2 /LAB*c 48 array def /XYZc 48 array def /LAB*sa 48 array def /XYZsa 48 array def /LAB*s0 48 array def /XYZc0 48 array def /Xrcr089 16 array def /Yrcr089 16 array def /Zrcr089 16 array def /Lrcr089 16 array def /arcr089 16 array def /brcr089 16 array def /Xrcrn089 16 array def /Yrcrn089 16 array def /Zrcrn089 16 array def /Lrcrn089 16 array def /arcrn089 16 array def /brcrn089 16 array def /LABN 12 array def /LAB*system { %BEG procedure LAB*system /LAB*ORS [%D=Device OYLCVMO+NW %for Offset Reflective System (ORS) 58.62 -30.63 -42.75 %C 0 %see Table 1 of ISO/IEC 15775:1999-12 25.72 31.45 -44.36 %V 1 48.13 75.20 -6.80 %M 2 47.94 65.31 52.07 %0 3 90.37 -11.16 96.17 %Y 4 50.90 -62.97 36.71 %L 5 58.62 -32.63 -42.75 %C 6 18.01 0.50 -0.47 %N 7 95.41 -0.99 4.76 %W 8 00.01 0.84 -1.69 %N0 9 100.0 -1.08 5.06 %W1 10 ] def %OYLCVMO+NW /LAB*TLS00 [%D=Device OYLCVMO+NW %for Television Luminous System (TLS) 86.88 -46.17 -13.56 %C 0 %see Table 1 of ISO/IEC 15775:1999-12 30.39 76.06 -103.6 %V 1 %see IE350-7A.PDF 57.30 94.35 -20.70 %M 2 50.50 76.92 64.55 %0 3 92.66 -20.70 90.75 %Y 4 83.63 -82.76 79.90 %L 5 86.88 -46.17 -13.56 %C 6 0.01 0.00 0.00 %N0 7 95.41 0.00 0.00 %W 8 18.01 0.00 0.00 %N 9 100.0 0.00 0.00 %W1 10 ] def %OYLCVMO+NW /LAB*TLS18 [%D=Device OYLCVMO+NW %for Television Luminous System (TLS) 87.14 -44.43 -13.13 %C 0 %computed from Table 1 of ISO/IEC 15775:1999-12 31.90 24.46 -37.39 %V 1 % with Yn=2.52 59.01 89.33 -19.44 %M 2 %see IE350-7A.PDF 52.76 71.63 49.88 %0 3 92.74 -20.04 84.97 %Y 4 84.00 -79.00 73.94 %L 5 87.14 -44.43 -13.13 %C 6 18.01 0.00 0.00 %N 7 95.41 0.00 0.00 %W 8 0.01 0.00 0.00 %N0 9 100.0 0.00 0.00 %W1 10 ] def %OYLCVMO+NW /LAB*TLS70 [%D=Device OYLCVMO+NW %for Television Luminous System (TLS) 90.93 -21.97 -7.09 %C 0 %computed from Table 1 of ISO/IEC 15775:1999-12 71.46 4.57 -9.01 %V 1 % with Yn=40.32 78.50 37.52 -25.24 %M 2 %see IE350-7A.PDF 76.43 26.27 10.57 %0 3 93.93 -10.77 34.63 %Y 4 89.32 -35.82 27.64 %L 5 90.93 -21.97 -7.09 %C 6 69.70 0.00 0.00 %N 7 95.41 0.00 0.00 %W 8 0.01 0.00 0.00 %N0 9 100.0 0.00 0.00 %W1 10 ] def %OYLCVMO+NW 0 1 8 {/sISO exch def /i30 sISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def ISYSTEM 0 eq { %ORS LAB*rc i30 LAB*ORS i30 get put LAB*rc i31 LAB*ORS i31 get put LAB*rc i32 LAB*ORS i32 get put } if ISYSTEM 1 eq { %TLS00 LAB*rc i30 LAB*TLS00 i30 get put LAB*rc i31 LAB*TLS00 i31 get put LAB*rc i32 LAB*TLS00 i32 get put } if ISYSTEM 2 eq { %TLS18 LAB*rc i30 LAB*TLS18 i30 get put LAB*rc i31 LAB*TLS18 i31 get put LAB*rc i32 LAB*TLS18 i32 get put } if ISYSTEM 3 eq { %TLS70 LAB*rc i30 LAB*TLS70 i30 get put LAB*rc i31 LAB*TLS70 i31 get put LAB*rc i32 LAB*TLS70 i32 get put } if } for /L*N LAB*rc 21 get def /A*N LAB*rc 22 get def /B*N LAB*rc 23 get def /L*W LAB*rc 24 get def /A*W LAB*rc 25 get def /B*W LAB*rc 26 get def } bind def %END procedure LAB*system /LABN [(00, F) (01, E) (02, D) (03, C) (04, B) (05, A) (06, 9) (07, 8) (08, 7) (09, 6) (10, 5) (11, 4) (12, 3) (13, 2) (14, 1) (15, 0)] def /ISYSTEM 1 def %1 1 1 {/ISYSTEM exch def %ISYSTEM=0,1 %0 1 3 {/iout exch def %iout=0,3 /iout 1 def LAB*system /ix1 50 def %COLOR /ix2 850 def %L* /ix3 3450 def %Y /ix4 6150 def %Yt /ix5 8850 def %t /ixd 1200 def /iyd 170 def /iy00 4600 def /iy0d 1510 def /iy01 iy00 def /iy02 iy01 iy0d sub def /iy03 iy02 iy0d sub def /iy04 iy03 iy0d sub def /iy05 iy04 iy0d sub def % achromatic (D65) colours /XLWD65100 95.04 def /YLWD65100 100.00 def /ZLWD65100 108.88 def /Xwref XYZra 24 get def /Ywref XYZra 25 get def /Zwref XYZra 26 get def /Xnref 2.52 0.9505 mul def /Ynref 2.52 def /Znref 2.52 1.0888 mul def /ix2i ix2 800 add def /iy iy02 iyd add 50 add def /iy0 iy 500 add def /iy1 iy 290 add def /ilf 8 array def /ilf [0.00 0.25 0.50 1.00 2.00 4.00 8.00 16.00] def /Lrefl 8 array def /Lrefl [(0%) (0,6%) (1,2%) (2,5%) (5%) (10%) (20%) (40%)] def %Reference black and factors /YrN 2.52 def /LrefNt 8 array def /LrefNi 8 array def LrefNi 0 0 put 1 1 7 {/i exch def %i=0,7 /Ynref YrN ilf i get mul def LrefNi i 116 Ynref 0.01 mul 0.3333 exp mul 16 sub put } for %i=0,7 %iout 0 eq {/ila1 0 def /ilad 7 def /ila2 7 def} if %iout 1 eq {/ila1 0 def /ilad 3 def /ila2 3 def} if %iout 2 eq {/ila1 0 def /ilad 7 def /ila2 7 def} if %iout 3 eq {/ila1 0 def /ilad 3 def /ila2 3 def} if %ila1 ilad ila2 {/il exch def %il=0,x 0 1 2 {/kl exch def %kl=0,2 kl 0 eq {/il 0 def /ila1 0 def /ilad 1 def /ila2 0 def} if kl 1 eq {/il 3 def /ila1 3 def /ilad 1 def /ila2 3 def} if kl 2 eq {/il 7 def /ila1 7 def /ilad 1 def /ila2 7 def} if /Xnref YrN ilf il get mul 0.9505 mul def /Ynref YrN ilf il get mul def /Znref YrN ilf il get mul 1.0890 mul def /PLref (System OLS00) def /TLref (System TLS00) def %LAB*TLS0 21 LrefNi il get put /ISYSTEM kl 1 add def /i11 7 3 mul def /i12 i11 1 add def /i13 i11 2 add def %colour N /i21 8 3 mul def /i22 i21 1 add def /i23 i21 2 add def %colour W 0 1 15 {/sISO exch def /i30 sISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def ISYSTEM 0 eq { %ORS LAB*c i30 LAB*ORS i11 get LAB*ORS i21 get LAB*ORS i11 get sub sISO 15 div mul add put LAB*c i31 LAB*ORS i12 get LAB*ORS i22 get LAB*ORS i12 get sub sISO 15 div mul add put LAB*c i32 LAB*ORS i13 get LAB*ORS i23 get LAB*ORS i13 get sub sISO 15 div mul add put } if ISYSTEM 1 eq { %TLS00 LAB*c i30 LAB*TLS00 i11 get LAB*TLS00 i21 get LAB*TLS00 i11 get sub sISO 15 div mul add put LAB*c i31 LAB*TLS00 i12 get LAB*TLS00 i22 get LAB*TLS00 i12 get sub sISO 15 div mul add put LAB*c i32 LAB*TLS00 i13 get LAB*TLS00 i23 get LAB*TLS00 i13 get sub sISO 15 div mul add put } if ISYSTEM 2 eq { %TLS18 LAB*c i30 LAB*TLS18 i11 get LAB*TLS18 i21 get LAB*TLS18 i11 get sub sISO 15 div mul add put LAB*c i31 LAB*TLS18 i12 get LAB*TLS18 i22 get LAB*TLS18 i12 get sub sISO 15 div mul add put LAB*c i32 LAB*TLS18 i13 get LAB*TLS18 i23 get LAB*TLS18 i13 get sub sISO 15 div mul add put } if ISYSTEM 3 eq { %TLS70 LAB*c i30 LAB*TLS70 i11 get LAB*TLS70 i21 get LAB*TLS70 i11 get sub sISO 15 div mul add put LAB*c i31 LAB*TLS70 i12 get LAB*TLS70 i22 get LAB*TLS70 i12 get sub sISO 15 div mul add put LAB*c i32 LAB*TLS70 i13 get LAB*TLS70 i23 get LAB*TLS70 i13 get sub sISO 15 div mul add put } if } for /L*N LAB*c 0 get def /A*N LAB*c 1 get def /B*N LAB*c 2 get def /L*W LAB*c 45 get def /A*W LAB*c 46 get def /B*W LAB*c 47 get def /A*D A*W A*N sub def /B*D B*W B*N sub def /L*Nsa L*N def /A*Nsa 0.0 def /B*Nsa 0.0 def /L*Wsa L*W def /A*Wsa 0.0 def /B*Wsa 0.0 def /L*Ns0 0.0 def /A*Ns0 0.0 def /B*Ns0 0.0 def /L*Ws0 L*W L*N sub def /A*Ws0 0.0 def /B*Ws0 0.0 def /Xssrefl Xnref def /Yssrefl Ynref def /Zssrefl Znref def /Xrsrefl Xnref def /Yrsrefl Ynref def /Zrsrefl Znref def 0 1 15 {/i exch def /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def /X* {LAB*c i30 get 16 add 116 div LAB*c i31 get 500 div add} bind def /Y* {LAB*c i30 get 16 add 116 div} bind def /Z* {LAB*c i30 get 16 add 116 div LAB*c i32 get 200 div sub} bind def XYZc i30 X* DecodeXYZ* 95.05 mul put XYZc i31 Y* DecodeXYZ* 100.00 mul put XYZc i32 Z* DecodeXYZ* 108.90 mul put il 0 eq {%il=0 XYZc0 i30 XYZc i30 get put XYZc0 i31 XYZc i31 get put XYZc0 i32 XYZc i32 get put } if %il=0 } for %i=0,15 0 1 15 {/i exch def /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def LAB*sa i30 LAB*c i30 get put /l*CIE LAB*c i30 get L*N sub L*W L*N sub div def %system rel. lightn. /a*s A*W A*N sub l*CIE mul def /b*s B*W B*N sub l*CIE mul def LAB*sa i31 LAB*c i31 get A*N sub a*s sub put LAB*sa i32 LAB*c i32 get B*N sub b*s sub put } for %i=0,15 0 1 15 {/i exch def /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def /X*sa {LAB*sa i30 get 16 add 116 div LAB*sa i31 get 500 div add} bind def /Y*sa {LAB*sa i30 get 16 add 116 div} bind def /Z*sa {LAB*sa i30 get 16 add 116 div LAB*sa i32 get 200 div sub} bind def XYZsa i30 X*sa DecodeXYZ* 95.05 mul put XYZsa i31 Y*sa DecodeXYZ* 100.00 mul put XYZsa i32 Z*sa DecodeXYZ* 108.90 mul put } for %i=0,15 0 1 15 {/i exch def %i=0,15 /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def Xrcr089 i XYZc0 i30 get put Yrcr089 i XYZc0 i31 get put Zrcr089 i XYZc0 i32 get put } for %i=0,15 0 1 15 {/i exch def %i=0,15 Yrcrn089 i Yrcr089 i get Ynref add Yrcr089 15 get Ynref add div 88.59 mul put /YQ Yrcrn089 i get YLWD65100 div def YQ 0 lt {/YQ 0.00000001 def} if Lrcrn089 i YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse put } for %i=0,15 xchartl 1 eq {/xposa 1750 def} if xchartl 2 eq {/xposa 2250 def} if xchartl 3 eq {/xposa 2250 def} if /LAB*refi 16 array def il 0 eq {%il=0 /xpos 1000 def TV 1 0 0 setrgbcolor 0 1 15 {/i exch def %i=0,15 i 0 eq {TBS % xpos 2200 add ypos1 0000 add moveto TBIS (L*) show (re) is2 /ypos La*0i 0 get yscale mul def TV } if /ypos La*0i i get yscale mul def i 0 gt {%i>0 /yposd La*0i i get yscale mul La*0i i 1 sub get yscale mul add 0.5 mul def } if %i>0 xpos xposa add ypos ypos0 add TVGshift sub moveto /LAB*ref Lrcrn089 i get def 1 0 0 setrgbcolor LAB*ref cvsshow1 % 0 setgray LAB*refi i Lrcrn089 i get put /xfak 88.59 0.00 sub 88.59 div def xchartl 1 eq {%xchartl=1 xpos xposa add 450 add ypos ypos0 add TVGshift sub moveto Yrcr089 i get cvsshow2 xpos xposa add 450 add 500 add ypos ypos0 add TVGshift sub moveto Yrcr089 0 get cvsshow2 } if %xchartl=1 xchartl 2 eq {%xchartl=2 i 0 gt {%i>0 1 0 0 setrgbcolor xpos xposa add 0450 add yposd ypos0 add TVGshift sub moveto LAB*refi i get LAB*refi i 1 sub get sub cvsshow2 0 setgray } if %i>0 } if %xchartl=2 xchartl 3 eq {%xchartl=3 xpos xposa add 450 add ypos ypos0 add TVGshift sub moveto Yrcr089 i get xfak mul 0.00 add cvsshow2 } if %xchartl=3 } for %i=0,15 0 setgray } if %il=0 il 3 eq {%il=3 /xpos 4300 def TV 1 0 0 setrgbcolor 0 1 15 {/i exch def %i=0,15 i 0 eq {TBS % xpos 2200 add ypos1 0000 add moveto TBIS (L*) show (re) is2 /ypos La*1i 0 get yscale mul def TV } if /ypos La*1i i get yscale mul def i 0 gt {%i>0 /yposd La*1i i get yscale mul La*1i i 1 sub get yscale mul add 0.5 mul def } if %i>0 % xpos 2200 add ypos ypos0 add TVGshift sub moveto % Lrcrn089 i get cvsshow1 /xfak 88.59 2.52 sub 88.59 div def % xpos 2500 add ypos ypos0 add TVGshift sub moveto % Yrcr089 i get xfak mul cvsshow2 % xpos 2500 add ypos ypos0 add TVGshift sub moveto % Yrcr089 i get xfak mul cvsshow2 /YQ Yrcr089 i get xfak mul 2.52 add 100 div def YQ 0 lt {/YQ 0.00000001 def} if /LAB*ref YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse def xpos xposa add ypos ypos0 add TVGshift sub moveto 1 0 0 setrgbcolor LAB*ref cvsshow1 % 0 setgray LAB*refi i LAB*ref put xchartl 1 eq {%xchartl=1 xpos xposa add 450 add ypos ypos0 add TVGshift sub moveto Yrcr089 i get xfak mul 2.52 add cvsshow2 xpos xposa add 450 add 500 add ypos ypos0 add TVGshift sub moveto Yrcr089 0 get xfak mul 2.52 add cvsshow2 } if %xchartl=1 xchartl 2 eq {%xchartl=2 i 0 gt {%i>0 1 0 0 setrgbcolor xpos xposa add 0450 add yposd ypos0 add TVGshift sub moveto LAB*refi i get LAB*refi i 1 sub get sub cvsshow2 0 setgray } if %i>0 } if %xchartl=2 xchartl 3 eq {%xchartl=3 xpos xposa add 0450 add ypos ypos0 add TVGshift sub moveto Yrcr089 i get xfak mul 2.52 add cvsshow2 } if %xchartl=3 } for %i=0,15 0 setgray } if %il=3 il 7 eq {%il=7 /xpos 7600 def TV 1 0 0 setrgbcolor 0 1 15 {/i exch def %i=0,15 i 0 eq {TBS % xpos 2200 add ypos1 0000 add moveto TBIS (L*) show (re) is2 /ypos La*2i 0 get yscale mul def TV } if /ypos La*2i i get yscale mul def i 0 gt {%i>0 /yposd La*2i i get yscale mul La*2i i 1 sub get yscale mul add 0.5 mul def } if %i>0 % xpos 2200 add ypos ypos0 add TVGshift sub moveto % Lrcrn089 i get cvsshow1 /xfak 88.59 40.32 sub 88.59 div def % xpos 2500 add ypos ypos0 add TVGshift sub moveto % Yrcr089 i get xfak mul cvsshow2 /YQ Yrcr089 i get xfak mul 40.32 add 100 div def YQ 0 lt {/YQ 0.00000001 def} if /LAB*ref YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse def xpos xposa add ypos ypos0 add TVGshift sub moveto 1 0 0 setrgbcolor LAB*ref cvsshow1 % 0 setgray LAB*refi i LAB*ref put xchartl 1 eq {%xchartl=1 xpos xposa add 450 add ypos ypos0 add TVGshift sub moveto Yrcr089 i get xfak mul 40.32 add cvsshow2 xpos xposa add 450 add 500 add ypos ypos0 add TVGshift sub moveto Yrcr089 0 get xfak mul 40.32 add cvsshow2 } if %xchartl=1 xchartl 2 eq {%xchartl=2 i 0 gt {%i>0 1 0 0 setrgbcolor xpos xposa add 0450 add yposd ypos0 add TVGshift sub moveto LAB*refi i get LAB*refi i 1 sub get sub cvsshow2 0 setgray } if %i>0 } if %xchartl=2 xchartl 3 eq {%xchartl=3 xpos xposa add 0450 add ypos ypos0 add TVGshift sub moveto Yrcr089 i get xfak mul 40.32 add cvsshow2 } if %xchartl=3 } for %i=0,15 0 setgray } if %il=7 } for %il=0,2 } if %xchartll>=1 showpage grestore %} for %xchartl<=3 %%Trailer