%!PS-Adobe-3.0 EPSF-3.0 http://130.149.60.45/~farbmetrik/QS59/QS59L00XX.PS 20120401 %%BoundingBox: 00 00 842 595 /pdfmark where {pop} {userdict /pdfmark /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: www.ps.bam.de/QS59/QS59.HTM) /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) /Creator (klaus.richter@mac.com) /CreationDate (D:2013020112000) /ModDate (D:20130210112000) /DOCINFO pdfmark [ /View [ /Fit ] /DOCVIEW pdfmark /sfgray {setgray} bind def /ypaper 0 def /ybunta 0 def %Early FF definition /sfrgbcolor {setrgbcolor} bind def /sfcmykcolor {setcmykcolor} bind def %line 20****************************************************** %**************************************************** %BEG 'QS59'OUTLIN11.PS for output 3D-linearization %**************************************************** /PROC_COLINT_IOF {%BEG procedure PROC_COLINT_IOF /Lab2RGB {%BEG Procedure Lab2RGB % --- Lab2RGB ----------------- % % --- Eingabe (stack): L* a* b* % --- Ausgabe (stack): iR iG iB ; die Indizes des LUT-Wertes mit dem geringsten Delta-E bzgl. Eingabewert % ---- : delta-E ; und das Delta-E dazu % /Zielb exch def /Ziela exch def /ZielL exch def /dE 1000 def /opt 0 def 1 1 nges { 1 sub 3 mul /ii exch def /dL lut ii get ZielL sub abs def dE dL ge { %dE>dL /da lut ii 1 add get Ziela sub abs def dE da ge { %dE>da /db lut ii 2 add get Zielb sub abs def dE db ge { %dE>db /dEneu dL dL mul da da mul db db mul add add sqrt def dE dEneu ge { % test ob dEneu < dE /dE dEneu def /opt ii def } if } if } if } if } for /opt opt 3 idiv def opt nG nB mul idiv % R auf den stack (Wertebereich real: 0-(nr-1)) opt nG nB mul mod nB idiv % G auf den stack opt nG nB mul mod nB mod % B auf den stack dEneu } def %END Procedure Lab2RGB %********************************************************************* /indexkonv {%BEG Procedure indexkonv % --- indexkonv ----------------- % % --- Eingabe (stack): iR iG iB ; Indizes eines LUT-Wertes % --- Ausgabe (stack): Position des LUT-Wertes im 1-dim Lut-Array % %errechnet aus r g b index auf stack den fortlaufenden index exch nB mul add exch nB nG mul mul add 3 mul } def %END Procedure indexkonv %********************************************************************* /set_oktant {%BEG Procedure set_oktant % --- set_oktant ----------------- % % --- Eingabe (stack): iR iG iB ; Indizes eines LUT-Wertes, % kennzeichnet die dem Ursprung entfernteste Ecke des ausgewaehlten Raumbereiches % sortierung v1->v8: RGB, RGB+1, RG+1B, RG+1B+1, usw.. % --- Ausgabe (stack): keine % /B_index exch def /G_index exch def /R_index exch def R_index G_index B_index indexkonv /tempindex exch def % /eswird R_index G_index B_index /zu tempindex /lin_v8L lut tempindex get def /lin_v8a lut tempindex 1 add get def /lin_v8b lut tempindex 2 add get def R_index G_index B_index 1 sub indexkonv /tempindex exch def % /eswird R_index G_index B_index 1 sub /zu tempindex jens /lin_v7L lut tempindex get def /lin_v7a lut tempindex 1 add get def /lin_v7b lut tempindex 2 add get def R_index G_index 1 sub B_index indexkonv /tempindex exch def /lin_v6L lut tempindex get def /lin_v6a lut tempindex 1 add get def /lin_v6b lut tempindex 2 add get def R_index G_index 1 sub B_index 1 sub indexkonv /tempindex exch def /lin_v5L lut tempindex get def /lin_v5a lut tempindex 1 add get def /lin_v5b lut tempindex 2 add get def R_index 1 sub G_index B_index indexkonv /tempindex exch def /lin_v4L lut tempindex get def /lin_v4a lut tempindex 1 add get def /lin_v4b lut tempindex 2 add get def R_index 1 sub G_index B_index 1 sub indexkonv /tempindex exch def /lin_v3L lut tempindex get def /lin_v3a lut tempindex 1 add get def /lin_v3b lut tempindex 2 add get def R_index 1 sub G_index 1 sub B_index indexkonv /tempindex exch def /lin_v2L lut tempindex get def /lin_v2a lut tempindex 1 add get def /lin_v2b lut tempindex 2 add get def R_index 1 sub G_index 1 sub B_index 1 sub indexkonv /tempindex exch def /lin_v1L lut tempindex get def /lin_v1a lut tempindex 1 add get def /lin_v1b lut tempindex 2 add get def } def %END Procedure set_oktant %********************************************************************* /L_abc {%BEG Procedure L_abc % --- L_abc ----------------- % % --- Eingabe (stack): alpha (R-Richtung) beta (G-Richtung) gamma (B-Richtung) % --- Ausgabe (stack): L* interpoliert aus LUT im aktuellen Oktanten % /gamma exch def /beta exch def /alpha exch def /alpham 1 alpha sub def /betam 1 beta sub def /gammam 1 gamma sub def lin_v8L alpha beta gamma mul mul mul lin_v7L alpha beta gammam mul mul mul add lin_v6L alpha betam gamma mul mul mul add lin_v5L alpha betam gammam mul mul mul add lin_v4L alpham beta gamma mul mul mul add lin_v3L alpham beta gammam mul mul mul add lin_v2L alpham betam gamma mul mul mul add lin_v1L alpham betam gammam mul mul mul add } def %END Procedure L_abc %********************************************************************* /a_abc {%BEG Procedure a_abc % --- a_abc ----------------- % % --- Eingabe (stack): alpha (R-Richtung) beta (G-Richtung) gamma (B-Richtung) % --- Ausgabe (stack): L* interpoliert aus LUT im aktuellen Oktanten % /gamma exch def /beta exch def /alpha exch def /alpham 1 alpha sub def /betam 1 beta sub def /gammam 1 gamma sub def lin_v8a alpha beta gamma mul mul mul lin_v7a alpha beta gammam mul mul mul add lin_v6a alpha betam gamma mul mul mul add lin_v5a alpha betam gammam mul mul mul add lin_v4a alpham beta gamma mul mul mul add lin_v3a alpham beta gammam mul mul mul add lin_v2a alpham betam gamma mul mul mul add lin_v1a alpham betam gammam mul mul mul add } def %END Procedure a_abc %********************************************************************* /b_abc {%BEG Procedure b_abc % --- b_abc ----------------- % % --- Eingabe (stack): alpha (R-Richtung) beta (G-Richtung) gamma (B-Richtung) % --- Ausgabe (stack): L* interpoliert aus LUT im aktuellen Oktanten % /gamma exch def /beta exch def /alpha exch def /alpham 1 alpha sub def /betam 1 beta sub def /gammam 1 gamma sub def lin_v8b alpha beta gamma mul mul mul lin_v7b alpha beta gammam mul mul mul add lin_v6b alpha betam gamma mul mul mul add lin_v5b alpha betam gammam mul mul mul add lin_v4b alpham beta gamma mul mul mul add lin_v3b alpham beta gammam mul mul mul add lin_v2b alpham betam gamma mul mul mul add lin_v1b alpham betam gammam mul mul mul add } def %END Procedure b_abc %********************************************************************* /Jacobi_abc {%BEG Procedure Jacobi_abc % --- Jacobi_abc ----------------- % % --- Eingabe (stack): alpha (R-Richtung) beta (G-Richtung) gamma (B-Richtung) % --- Ausgabe (stack): Jacobi Matrix an der stelle abc im aktuellen Oktanten % in der reihenfolge abcdefghi % (a b c) % (d e f) % (g h i) % /gamma exch def /beta exch def /alpha exch def /alpham 1 alpha sub def /betam 1 beta sub def /gammam 1 gamma sub def lin_v5L lin_v1L sub betam gammam mul mul lin_v6L lin_v2L sub betam gamma mul mul add lin_v7L lin_v3L sub beta gammam mul mul add lin_v8L lin_v4L sub beta gamma mul mul add lin_v3L lin_v1L sub alpham gammam mul mul lin_v4L lin_v2L sub alpham gamma mul mul add lin_v7L lin_v5L sub alpha gammam mul mul add lin_v8L lin_v6L sub alpha gamma mul mul add lin_v2L lin_v1L sub alpham betam mul mul lin_v4L lin_v3L sub alpham beta mul mul add lin_v6L lin_v5L sub alpha betam mul mul add lin_v8L lin_v7L sub alpha beta mul mul add lin_v5a lin_v1a sub betam gammam mul mul lin_v6a lin_v2a sub betam gamma mul mul add lin_v7a lin_v3a sub beta gammam mul mul add lin_v8a lin_v4a sub beta gamma mul mul add lin_v3a lin_v1a sub alpham gammam mul mul lin_v4a lin_v2a sub alpham gamma mul mul add lin_v7a lin_v5a sub alpha gammam mul mul add lin_v8a lin_v6a sub alpha gamma mul mul add lin_v2a lin_v1a sub alpham betam mul mul lin_v4a lin_v3a sub alpham beta mul mul add lin_v6a lin_v5a sub alpha betam mul mul add lin_v8a lin_v7a sub alpha beta mul mul add lin_v5b lin_v1b sub betam gammam mul mul lin_v6b lin_v2b sub betam gamma mul mul add lin_v7b lin_v3b sub beta gammam mul mul add lin_v8b lin_v4b sub beta gamma mul mul add lin_v3b lin_v1b sub alpham gammam mul mul lin_v4b lin_v2b sub alpham gamma mul mul add lin_v7b lin_v5b sub alpha gammam mul mul add lin_v8b lin_v6b sub alpha gamma mul mul add lin_v2b lin_v1b sub alpham betam mul mul lin_v4b lin_v3b sub alpham beta mul mul add lin_v6b lin_v5b sub alpha betam mul mul add lin_v8b lin_v7b sub alpha beta mul mul add } def %END Procedure Jacobi_abc %********************************************************************* /Inverse_mat {%BEG Procedure Inverse_mat % --- Inverse_mat ----------------- % % --- Eingabe (stack): Matrix in der reihenfolge abcdefghi % invertiert die Matrix (a b c) % (d e f) % (g h i) % --- Ausgabe (stack): Matrix % /i_i exch def /i_h exch def /i_g exch def /i_f exch def /i_e exch def /i_d exch def /i_c exch def /i_b exch def /i_a exch def /i_det i_a i_e i_i mul mul i_b i_d i_i mul mul sub i_a i_f i_h mul mul sub i_c i_d i_h mul mul add i_b i_f i_g mul mul add i_c i_e i_g mul mul sub def i_e i_i mul i_f i_h mul sub i_det div %a der inversen auf stack i_c i_h mul i_b i_i mul sub i_det div %b der inversen auf stack i_b i_f mul i_c i_e mul sub i_det div %c der inversen auf stack i_f i_g mul i_d i_i mul sub i_det div %d der inversen auf stack i_a i_i mul i_c i_g mul sub i_det div %e der inversen auf stack i_c i_d mul i_a i_f mul sub i_det div %f der inversen auf stack i_d i_h mul i_e i_g mul sub i_det div %g der inversen auf stack i_b i_g mul i_a i_h mul sub i_det div %h der inversen auf stack i_a i_e mul i_b i_d mul sub i_det div %i der inversen auf stack } def %END Procedure Inverse_mat %********************************************************************* /linear_finden {%BEG Procedure linear_finden % --- linear_finden ----------------- % % --- Eingabe (stack): iR iG iB ; Indizes eines LUT-Wertes, % kennzeichnet die dem Ursprung entfernteste Ecke des ausgewaehlten Raumbereiches % L* a* b* ; danach der zielpunkt als lab wert % --- Ausgabe (stack): Delta-E: Abstand zum Zielpunkt % alpha, beta, gamma die den kürzesten abstand zum gegebenen zielpunkt aufweisen % /lin_zielb exch def /lin_ziela exch def /lin_zielL exch def set_oktant /akt_a 0.5 def /akt_b 0.5 def /akt_c 0.5 def /last_L akt_a akt_b akt_c L_abc def /last_a akt_a akt_b akt_c a_abc def /last_b akt_a akt_b akt_c b_abc def /diff_L last_L lin_zielL sub def /diff_a last_a lin_ziela sub def /diff_b last_b lin_zielb sub def 0 %default rueckgabewert fuer delta-e (wird nie benutzt, aber fuer pop wichtig) 1 1 10 { pop %pop schleifenzaehler pop %pop letzes Delta-E akt_a akt_b akt_c Jacobi_abc Inverse_mat diff_b mul exch diff_a mul add exch diff_L mul add /delta_c exch def diff_b mul exch diff_a mul add exch diff_L mul add /delta_b exch def diff_b mul exch diff_a mul add exch diff_L mul add /delta_a exch def % akt_a akt_b akt_c % delta_a delta_b delta_c /akt_a akt_a delta_a sub def /akt_b akt_b delta_b sub def /akt_c akt_c delta_c sub def akt_a 0 lt {/akt_a 0 def} if akt_b 0 lt {/akt_b 0 def} if akt_c 0 lt {/akt_c 0 def} if 1 akt_a lt {/akt_a 1 def} if 1 akt_b lt {/akt_b 1 def} if 1 akt_c lt {/akt_c 1 def} if /last_L akt_a akt_b akt_c L_abc def /last_a akt_a akt_b akt_c a_abc def /last_b akt_a akt_b akt_c b_abc def /diff_L last_L lin_zielL sub def /diff_a last_a lin_ziela sub def /diff_b last_b lin_zielb sub def %/naechster %akt_a %akt_b %akt_c %last_L %last_a %last_b diff_L dup mul diff_a dup mul diff_b dup mul add add sqrt dup %Abbruch wenn Delta_e<0.1 0.1 lt {exit} if } for akt_a akt_b akt_c } def %END Procedure linear_finden %********************************************************************* /Lab2RGBinterpolation {%BEG Procedure Lab2RGBinterpolation /Ziel_b exch def /Ziel_a exch def /Ziel_L exch def Ziel_L Ziel_a Ziel_b Lab2RGB /now_delta_e exch def /B_next exch def /G_next exch def /R_next exch def /R_fin R_next nR 1 sub div def % defaults falls kein besserer wert gefunden /G_fin G_next nG 1 sub div def /B_fin B_next nB 1 sub div def -1 1 2 { R_next add /R_now exch def -1 1 2 { G_next add /G_now exch def -1 1 2 { B_next add /B_now exch def B_now 0 gt G_now 0 gt R_now 0 gt nB B_now gt nG G_now gt nR R_now gt and and and and and { R_now G_now B_now Ziel_L Ziel_a Ziel_b linear_finden /now_c exch def /now_b exch def /now_a exch def dup %rueckgabe delta-e doppeln now_delta_e lt { /now_delta_e exch def /Bs0 B_now 1 sub nB 1 sub div 255 mul round 255 div def /Bs1 B_now nB 1 sub div 255 mul round 255 div def /B_fin Bs0 1 now_c sub mul Bs1 now_c mul add def /Gs0 G_now 1 sub nG 1 sub div 255 mul round 255 div def /Gs1 G_now nG 1 sub div 255 mul round 255 div def /G_fin Gs0 1 now_b sub mul Gs1 now_b mul add def /Rs0 R_now 1 sub nR 1 sub div 255 mul round 255 div def /Rs1 R_now nR 1 sub div 255 mul round 255 div def /R_fin Rs0 1 now_a sub mul Rs1 now_a mul add def } { pop } ifelse } if } for } for } for R_fin G_fin B_fin } bind def %END Procedure Lab2RGBinterpolation } bind def %END procedure PROC_COLINT_IOF %**************************************************** %END 'QS59'OUTLIN11.PS for output 3D-linearization %**************************************************** %**************************************************** %BEG 'QS59'OUTLIN1X.PS Other procedures for Offset output linearization %**************************************************** %********************************************************************* %BEG Procedure PROC_COLSEP_IOF different procedures 20100301 %********************************************************************* /PROC_COLSEP_IOF {%BEG PROC_COLSEP_IOF different procedures 20100301 %********************************************************************* /proc_rgb_rgb*'dy_LAB*'dy_rgb'*dy_*ioL { %BEG proc_rgb_rgb*'dy_LAB*'dy_rgb'*dy_*ioL %assumes input of rgb, which is called rgb_dyF %calculation of intended rgb*dyF, LABCh*dyF %Lab2RGBinterpolation for colorm=1 %calculation of inverse rgb'*dyF, LABCh'*dyF, which produces rgb*dyF, LABCh*dyF %requires /hab*dy362Mi 362 array def %(y=s,d,e) %requires /rgb*dy362Mi 362 array def %(y=s,d,e) %requires /LAB*dyx362Mi 362 array def %(y=s,d,e, x=LabCh) /b_dyF exch def /g_dyF exch def /r_dyF exch def %calculation of i_dyF, c_dyF, and t_dyF /maxd r_dyF def g_dyF maxd gt {/maxd g_dyF def} if b_dyF maxd gt {/maxd b_dyF def} if /mind r_dyF def g_dyF mind lt {/mind g_dyF def} if b_dyF mind lt {/mind b_dyF def} if /i_dyF maxd def /c_dyF maxd mind sub def /t_dyF i_dyF c_dyF 0.5 mul sub def /hsiF r_dyF 030 sin mul g_dyF 150 sin mul add b_dyF 270 sin mul add %y_e r_dyF 030 cos mul g_dyF 150 cos mul add %x_e 0.0001 add atan 0.5 add cvi def %range 30 ... 390 %perhaps change %to decide hab*dyF/dsF/deF ! hsiF hab*ds362Mi 0 get sub 0 le {/hsiF hsiF 360 add def} if /hsiFm30 hsiF 30 sub def %range 00 ... 360 %test grey r_dyF g_dyF sub abs 0.002 le g_dyF b_dyF sub abs 0.002 le and {%grey, not grey /r*dyM 1 def /g*dyM 1 def /b*dyM 1 def /hsiM r*dyM 030 sin mul g*dyM 150 sin mul add b*dyM 270 sin mul add %y_d r*dyM 030 cos mul g*dyM 150 cos mul add %x_d 0.0001 add atan def hsiM hab*ds362Mi 0 get sub 0 le {/hsiM hsiM 360 add def} if /hsiMm30 hsiM 30 sub def /LAB*LdyM L*Wioa def /LAB*adyM 0 def /LAB*bdyM 0 def /LAB*LdyF L*Nioa r_dyF L*Wioa L*Nioa sub mul add def /LAB*adyF 0 def /LAB*bdyF 0 def /r*dyF r_dyF def /g*dyF g_dyF def /b*dyF b_dyF def /r'*dyF r_dyF def /g'*dyF g_dyF def /b'*dyF b_dyF def }%grey {%color hsiFm30 0 lt {/hsiFm30 0 def} if %for correction to be deleted! hsiFm30 360 gt {/hsiFm30 360 def} if %calculation of intended rgb*dyM, LAB*LabdyM deintp 0 eq {%deintp=0 /r*dyM r*dd362Mi hsiFm30 get def /g*dyM g*dd362Mi hsiFm30 get def /b*dyM b*dd362Mi hsiFm30 get def /LAB*LdyM LAB*Ldd362Mi hsiFm30 get def /LAB*adyM LAB*add362Mi hsiFm30 get def /LAB*bdyM LAB*bdd362Mi hsiFm30 get def } if %deintp=0 deintp 1 eq {%deintp=1 /r*dyM r*de362Mi hsiFm30 get def /g*dyM g*de362Mi hsiFm30 get def /b*dyM b*de362Mi hsiFm30 get def /LAB*LdyM LAB*Lde362Mi hsiFm30 get def /LAB*adyM LAB*ade362Mi hsiFm30 get def /LAB*bdyM LAB*bde362Mi hsiFm30 get def } if %deintp=1 %calculation of intended rgb*dyF, LAB*LabdyF c_dyF 1 eq {%c_dy=1,#1 /r*dyF r*dyM def /g*dyF g*dyM def /b*dyF b*dyM def /LAB*LdyF LAB*LdyM def /LAB*adyF LAB*adyM def /LAB*bdyF LAB*bdyM def }%c_dyF=1 {%c_dyF#1 /t00 1.0 c_dyF 0.5 mul sub def /t0x 0.5 t_dyF 0.5 sub 0.5 mul t00 0.5 sub div add def /r*dyF t0x r*dyM t0x sub c_dyF mul add def /g*dyF t0x g*dyM t0x sub c_dyF mul add def /b*dyF t0x b*dyM t0x sub c_dyF mul add def %/LAB*LdyF L*Nioa r_dyF L*Wioa L*Nioa sub mul add def /L*Xioa L*Nioa t0x L*Wioa L*Nioa sub mul add def /LAB*LdyF L*Xioa LAB*LdyM L*Xioa sub c_dyF mul add def /LAB*adyF 0 LAB*adyM 0 sub c_dyF mul add def /LAB*bdyF 0 LAB*bdyM 0 sub c_dyF mul add def } ifelse %c_dyF=1,#1 } ifelse %grey or color %only for control, not used: calculation of hsiM /hsiM r*dyM 030 sin mul g*dyM 150 sin mul add b*dyM 270 sin mul add %y_d r*dyM 030 cos mul g*dyM 150 cos mul add %x_d 0.0001 add atan def hsiM hab*ds362Mi 0 get sub 0 le {/hsiM hsiM 360 add def} if /hsiMm30 hsiM 30 sub def %only for control, not used: calculation of ict*dyM and ict*dyF %calculation of i*dyM, c*dyM, and t*dyM /maxd r*dyM def g*dyM maxd gt {/maxd g*dyM def} if b*dyM maxd gt {/maxd b*dyM def} if /mind r*dyM def g*dyM mind lt {/mind g*dyM def} if b*dyM mind lt {/mind b*dyM def} if /i*dyM maxd def /c*dyM maxd mind sub def /t*dyM i*dyM c*dyM 0.5 mul sub def %%only for control, not used: calculation of i*dyF, c*dyF, and t*dyF /maxd r*dyF def g*dyF maxd gt {/maxd g*dyF def} if b*dyF maxd gt {/maxd b*dyF def} if /mind r*dyF def g*dyF mind lt {/mind g*dyF def} if b*dyF mind lt {/mind b*dyF def} if /i*dyF maxd def /c*dyF maxd mind sub def /t*dyF i*dyF c*dyF 0.5 mul sub def colorm 0 eq {%colorm=0 r*dyF g*dyF b*dyF }%colorm=0 {%colorm=1 LAB*LdyF LAB*adyF LAB*bdyF Lab2RGBinterpolation /b'*dyF exch def /g'*dyF exch def /r'*dyF exch def r'*dyF g'*dyF b'*dyF } ifelse %colorm=1 } bind def %END proc_rgb_rgb*'dy_LAB*'dy_rgb'*dy_*ioL %********************************************************************* /proc_trans_rgb3*_cmyn4*ioL {%BEG Procedure proc_trans_rgb3*_cmyn4*ioL %assumes input of olv* o* 0 le {/o* 0.0000 def} if l* 0 le {/l* 0.0000 def} if v* 0 le {/v* 0.0000 def} if o* 1 ge {/o* 1.0000 def} if l* 1 ge {/l* 1.0000 def} if v* 1 ge {/v* 1.0000 def} if /tdel 0 def v* l* ge l* o* ge and tdel 0 eq and % v* >= l* >= o* equal y* <= m* <= c* %sector C-V of C-M, C>=M: i*p=0 {/n*n 1 v* sub def /w*w o* def /tdel 1 def } if % v* >= l* >= o* v* o* ge o* l* ge and tdel 0 eq and % v* >= o* >= l* equal y* <= c* <= m* %sector V-M of C-M, M>=C: i*p=1 {/n*n 1 v* sub def /w*w l* def /tdel 1 def } if % v* >= o* >= l* o* v* ge v* l* ge and tdel 0 eq and % o* >= v* >= l* equal c* <= y* <= m* %sector M-O of M-Y, M>=Y: i*p=2 {/n*n 1 o* sub def /w*w l* def /tdel 1 def } if % o* >= v* >= l* o* l* ge l* v* ge and tdel 0 eq and % o* >= l* >= v* equal c* <= m* <= y* %sector O-Y of M-Y, Y>=M: i*p=3 {/n*n 1 o* sub def /w*w v* def /tdel 1 def } if % o* >= l* >= v* l* o* ge o* v* ge and tdel 0 eq and % l* >= o* >= v* equal m* <= c* <= y* %sector Y-L of Y-C, Y>=C: i*p=4 {/n*n 1 l* sub def /w*w v* def /tdel 1 def } if % l* >= o* >= v* l* v* ge v* o* ge and tdel 0 eq and % l* >= v* >= o* equal m* <= y* <= c* %sector L-C of Y-C, C>=Y: i*p=5 {/n*n 1 l* sub def /w*w o* def /tdel 1 def } if % l* >= v* >= o* %achromatic %W: o*, l*, v* = 1.00 1.0 o* sub abs 0.001 le 1.0 l* sub abs 0.001 le and 1.0 v* sub abs 0.001 le and %W special case {/n*n 0 def /w*w 1 def %W } if %N: o*, l*, v* <= 0.001 o* abs 0.001 le l* abs 0.001 le and v* abs 0.001 le and %N special case {/n*n 1 def /w*w 0 def %N } if %Achromatic o* l* sub abs 0.001 le l* v* sub abs 0.001 le and %Achromatic special case {/n*n 1 o* sub def /w*w o* def %grey } if /lab*wFa w*w def /lab*nFa n*n def /c3*Fa 1 o* sub def /m3*Fa 1 l* sub def /y3*Fa 1 v* sub def /c4*Fa c3*Fa lab*nFa sub def %at least one of cmy will be cero /m4*Fa m3*Fa lab*nFa sub def /y4*Fa y3*Fa lab*nFa sub def /n4*Fa lab*nFa def /o4*Fa 1 c4*Fa sub def /l4*Fa 1 m4*Fa sub def /v4*Fa 1 y4*Fa sub def /i4*Fa 1 n4*Fa sub def } def %END Procedure proc_trans_rgb3*_cmyn4*ioL %******************************************************************* /proc_trans_rgb3*_cmyn5*ioL {%BEG Procedure proc_trans_rgb3*_cmyn5*ioL %assumes input of olv*, 'zm60'CMYN559LT.PS o* 0 le {/o* 0.0000 def} if l* 0 le {/l* 0.0000 def} if v* 0 le {/v* 0.0000 def} if o* 1 ge {/o* 1.0000 def} if l* 1 ge {/l* 1.0000 def} if v* 1 ge {/v* 1.0000 def} if /ok* o* def /lk* l* def /vk* v* def /tdel 0 def vk* lk* ge lk* ok* ge and tdel 0 eq and % v* >= l* >= o* equal y* <= m* <= c* %sector C-V of C-M, C>=M: i*p=0 {/n*n 1 vk* sub def /w*w ok* def /m*w lk* def /tdel 1 def /isec 3 def } if % v* >= l* >= o* vk* ok* ge ok* lk* ge and tdel 0 eq and % v* >= o* >= l* equal y* <= c* <= m* %sector V-M of C-M, M>=C: i*p=1 {/n*n 1 vk* sub def /w*w lk* def /m*w ok* def /tdel 1 def /isec 4 def } if % v* >= o* >= l* ok* vk* ge vk* lk* ge and tdel 0 eq and % o* >= v* >= l* equal c* <= y* <= m* %sector M-O of M-Y, M>=Y: i*p=2 {/n*n 1 ok* sub def /w*w lk* def /m*w vk* def /tdel 1 def /isec 5 def } if % o* >= v* >= l* ok* lk* ge lk* vk* ge and tdel 0 eq and % o* >= l* >= v* equal c* <= m* <= y* %sector O-Y of M-Y, Y>=M: i*p=3 {/n*n 1 ok* sub def /w*w vk* def /m*w lk* def /tdel 1 def /isec 0 def } if % o* >= l* >= v* lk* ok* ge ok* vk* ge and tdel 0 eq and % l* >= o* >= v* equal m* <= c* <= y* %sector Y-L of Y-C, Y>=C: i*p=4 {/n*n 1 lk* sub def /w*w vk* def /m*w ok* def /tdel 1 def /isec 1 def } if % l* >= o* >= v* lk* vk* ge vk* ok* ge and tdel 0 eq and % l* >= v* >= o* equal m* <= y* <= c* %sector L-C of Y-C, C>=Y: i*p=5 {/n*n 1 lk* sub def /w*w ok* def /m*w vk* def /tdel 1 def /isec 2 def } if % l* >= v* >= o* %achromatic %W: ok*, lk*, vk* = 1.00 1.0 ok* sub abs 0.001 le 1.0 lk* sub abs 0.001 le and 1.0 vk* sub abs 0.001 le and %W special case {/n*n 0 def /w*w 1 def /m*w 1 def %W /isec 6 def } if %N: ok*, lk*, vk* <= 0.001 ok* abs 0.001 le lk* abs 0.001 le and vk* abs 0.001 le and %N special case {/n*n 1 def /w*w 0 def /m*w 0 def %N /isec 6 def } if %Achromatic ok* lk* sub abs 0.001 le lk* vk* sub abs 0.001 le and %Achromatic special case {/n*n 1 ok* sub def /w*w ok* def /m*w ok* def %grey /isec 6 def } if /lab*wFa w*w def /lab*nFa n*n def /lab*cFa 1 n*n sub w*w sub def /argb 1 lab*nFa sub def /brgb m*w def /crgb lab*wFa def /c* lab*cFa def /lab*tFa 1 lab*nFa sub lab*cFa 0.5 mul sub def isec 6 eq {%BEG isec=6 achromatic /o*1 1 def /l*1 1 def /v*1 1 def }%END isec=6 achromatic {%BEG isec#6 chromatic /o*1 ok* argb 0.000001 add div def /l*1 lk* argb 0.000001 add div def /v*1 vk* argb 0.000001 add div def } ifelse %END isec#6 /c3*Fa 1 o*1 sub def /m3*Fa 1 l*1 sub def /y3*Fa 1 v*1 sub def /c4*Fa c3*Fa def %at least one of cmy will be cero /m4*Fa m3*Fa def /y4*Fa y3*Fa def /n4*Fa lab*nFa def /o4*Fa 1 c4*Fa sub def /l4*Fa 1 m4*Fa sub def /v4*Fa 1 y4*Fa sub def /i4*Fa 1 n4*Fa sub def } def %END Procedure proc_trans_rgb3*_cmyn5*ioL 'zm60'CMYN559LT.PS %********************************************************************* /proc_trans_rgb3*_cmyn6*ioL {%BEG Procedure proc_trans_rgb3*_cmyn6*ioL %assumes input of olv*, 'zm60'CMYN559LT.PS o* 0 le {/o* 0.0000 def} if l* 0 le {/l* 0.0000 def} if v* 0 le {/v* 0.0000 def} if o* 1 ge {/o* 1.0000 def} if l* 1 ge {/l* 1.0000 def} if v* 1 ge {/v* 1.0000 def} if /ok* o* def /lk* l* def /vk* v* def /tdel 0 def vk* lk* ge lk* ok* ge and tdel 0 eq and % v* >= l* >= o* equal y* <= m* <= c* %sector C-V of C-M, C>=M: i*p=0 {/n*n 1 vk* sub def /w*w ok* def /m*w lk* def /tdel 1 def /isec 3 def } if % v* >= l* >= o* vk* ok* ge ok* lk* ge and tdel 0 eq and % v* >= o* >= l* equal y* <= c* <= m* %sector V-M of C-M, M>=C: i*p=1 {/n*n 1 vk* sub def /w*w lk* def /m*w ok* def /tdel 1 def /isec 4 def } if % v* >= o* >= l* ok* vk* ge vk* lk* ge and tdel 0 eq and % o* >= v* >= l* equal c* <= y* <= m* %sector M-O of M-Y, M>=Y: i*p=2 {/n*n 1 ok* sub def /w*w lk* def /m*w vk* def /tdel 1 def /isec 5 def } if % o* >= v* >= l* ok* lk* ge lk* vk* ge and tdel 0 eq and % o* >= l* >= v* equal c* <= m* <= y* %sector O-Y of M-Y, Y>=M: i*p=3 {/n*n 1 ok* sub def /w*w vk* def /m*w lk* def /tdel 1 def /isec 0 def } if % o* >= l* >= v* lk* ok* ge ok* vk* ge and tdel 0 eq and % l* >= o* >= v* equal m* <= c* <= y* %sector Y-L of Y-C, Y>=C: i*p=4 {/n*n 1 lk* sub def /w*w vk* def /m*w ok* def /tdel 1 def /isec 1 def } if % l* >= o* >= v* lk* vk* ge vk* ok* ge and tdel 0 eq and % l* >= v* >= o* equal m* <= y* <= c* %sector L-C of Y-C, C>=Y: i*p=5 {/n*n 1 lk* sub def /w*w ok* def /m*w vk* def /tdel 1 def /isec 2 def } if % l* >= v* >= o* %achromatic %W: ok*, lk*, vk* = 1.00 1.0 ok* sub abs 0.001 le 1.0 lk* sub abs 0.001 le and 1.0 vk* sub abs 0.001 le and %W special case {/n*n 0 def /w*w 1 def /m*w 1 def %W /isec 6 def } if %N: ok*, lk*, vk* <= 0.001 ok* abs 0.001 le lk* abs 0.001 le and vk* abs 0.001 le and %N special case {/n*n 1 def /w*w 0 def /m*w 0 def %N /isec 6 def } if %Achromatic ok* lk* sub abs 0.001 le lk* vk* sub abs 0.001 le and %Achromatic special case {/n*n 1 ok* sub def /w*w ok* def /m*w ok* def %grey /isec 6 def } if /lab*wFa w*w def /lab*nFa n*n def /lab*cFa 1 n*n sub w*w sub def /argb 1 lab*nFa sub def /brgb m*w def /crgb lab*wFa def /c* lab*cFa def /lab*tFa 1 lab*nFa sub lab*cFa 0.5 mul sub def isec 6 eq {%BEG isec=6 achromatic /o*1 1 def /l*1 1 def /v*1 1 def }%END isec=6 achromatic {%BEG isec#6 chromatic /o*1 ok* argb 0.000001 add div def /l*1 lk* argb 0.000001 add div def /v*1 vk* argb 0.000001 add div def } ifelse %END isec#6 /c3*Fa 1 o*1 sub def /m3*Fa 1 l*1 sub def /y3*Fa 1 v*1 sub def /c41*Fa c3*Fa def %at least one of cmy will be cero /m41*Fa m3*Fa def /y41*Fa y3*Fa def /n4*Fa lab*nFa def %change by deepness difference delta d* = c*S1 - c*S2 %use lab*cFa, lab*tFa for correction %equations of three lines %t* = 1 - 0.5 c* %t* = [t* / c*] c* %t* = [(t* + 0,18) / c*] c* - 0,18 %cut point S1 for nt=0,18: %c*s1 = 1 /[ t*F / c*F + 0,5 ] %cut point S2 for n=0,18: %c*s1 = (1 + nt) / [ (t*F + nt) / c*F + 0,5 ] %special case lab*cFa=0 and n=0,18 /nt 0.18 def lab*cFa 0 eq { %lab*cFa=0,#0 /c*S1 0 def /c*S2 0 def } %lab*cFa=0 { %lab*cFa#0 /c*S1 1 lab*tFa lab*cFa div 0.5 add div def /c*S2 1 nt add lab*tFa nt add lab*cFa div 0.5 add div def } ifelse %lab*cFa=0,#0 /c4*Fa c41*Fa c41*Fa c*S1 c*S2 sub mul sub def /m4*Fa m41*Fa m41*Fa c*S1 c*S2 sub mul sub def /y4*Fa y41*Fa y41*Fa c*S1 c*S2 sub mul sub def /o4*Fa 1 c4*Fa sub def /l4*Fa 1 m4*Fa sub def /v4*Fa 1 y4*Fa sub def /i4*Fa 1 n4*Fa sub def } def %END Procedure proc_trans_rgb3*_cmyn6*ioL 'zm60'CMYN559LT.PS %************************************************************* /cmyk_olv*_cmyn4* {%BEG procedure cmyk_olv*_cmyn4* /k*n exch def /y*n exch def /m*n exch def /c*n exch def k*n 0 eq {%k*n=0 /o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def /n4*Fa 0 def }%k*n=0 {%k*n#0 c*n 0 eq m*n 0 eq and y*n 0 eq and {%k*n#0 and c=m=y=0 achromatic /o* 1 k*n sub def /v* o* def /l* o* def /n4*Fa k*n def }%k*n#0 and c=m=y=0 achromatic {%k*n#0 and c or m or y#0 chromatic /o* 1 c*n sub 1 k*n sub mul def /l* 1 m*n sub 1 k*n sub mul def /v* 1 y*n sub 1 k*n sub mul def /n4*Fa 0 def %change of k*n!!! } ifelse %k*n#0 and c or m or y#0 chromatic } ifelse %k*n#0 /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def } def %END procedure cmyk_olv*_cmyn4* %*********************************************************** colsep 3 eq {%colsep=3 cmyn5* /tLAB 0 def xchart 1 ge {%xchart>=1 'zm60'COLM559LT.PS cmyn5* 20120301 colorm 0 eq {%BEG colorm=0 /setrgbcolor {/v* exch def /l* exch def /o* exch def o* l* v* proc_rgb_rgb*'dy_LAB*'dy_rgb'*dy_*ioL /v* exch def /l* exch def /o* exch def proc_trans_rgb3*_cmyn5*ioL %in: olv*, out: cmyn5 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setgray {dup dup /v* exch def /l* exch def /o* exch def o* l* v* proc_rgb_rgb*'dy_LAB*'dy_rgb'*dy_*ioL /v* exch def /l* exch def /o* exch def proc_trans_rgb3*_cmyn5*ioL %in: olv*, out: cmyn5 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setcmykcolor {cmyk_olv*_cmyn4* o* l* v* proc_rgb_rgb*'dy_LAB*'dy_rgb'*dy_*ioL /v* exch def /l* exch def /o* exch def proc_trans_rgb3*_cmyn5*ioL %in: olv*, out: cmyn5 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def }%END colorm=0 {%BEG colorm=1 /olvtrans 0 def %no change of olv* /setrgbcolor {/v* exch def /l* exch def /o* exch def o* l* v* proc_rgb_rgb*'dy_LAB*'dy_rgb'*dy_*ioL /v* exch def /l* exch def /o* exch def proc_trans_rgb3*_cmyn5*ioL %in: olv*, out: cmyn5 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setgray {dup dup /v* exch def /l* exch def /o* exch def o* l* v* proc_rgb_rgb*'dy_LAB*'dy_rgb'*dy_*ioL /v* exch def /l* exch def /o* exch def proc_trans_rgb3*_cmyn5*ioL %in: olv*, out: cmyn5 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setcmykcolor {cmyk_olv*_cmyn4* o* l* v* proc_rgb_rgb*'dy_LAB*'dy_rgb'*dy_*ioL /v* exch def /l* exch def /o* exch def proc_trans_rgb3*_cmyn5*ioL %in: olv*, out: cmyn5 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def } ifelse %END colorm=1 }%END %xchart>=0 {%BEG %xchart=0 /setrgbcolor {/v* exch def /l* exch def /o* exch def /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def o* l* v* sfrgbcolor } def /setgray {dup dup /v* exch def /l* exch def /o* exch def /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def o* sfgray } def /setcmykcolor {cmyk_olv*_cmyn4* c4*Fa m4*Fa y4*Fa n4*Fa sfcmykcolor } def } ifelse %END %xchart=0 'zm60'COLM559LT.PS cmyn5* 20120301 } if %colsep=3 cmyn5* %********************************************************************* colsep 1 eq {%colsep=1 /tLAB 0 def xchart 1 ge {%xchart>=1 'zm60'COLM57LT.PS cmy0* 20120301 colorm 0 eq {%BEG colorm=0 /setrgbcolor {/v* exch def /l* exch def /o* exch def o* l* v* proc_rgb_rgb*'dy_LAB*'dy_rgb'*dy_*ioL /v* exch def /l* exch def /o* exch def %standard cmy0* for input /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setgray {dup dup /v* exch def /l* exch def /o* exch def o* l* v* proc_rgb_rgb*'dy_LAB*'dy_rgb'*dy_*ioL /v* exch def /l* exch def /o* exch def %standard cmy0* for input /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setcmykcolor {cmyk_olv*_cmyn4* o* l* v* proc_rgb_rgb*'dy_LAB*'dy_rgb'*dy_*ioL /v* exch def /l* exch def /o* exch def /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def }%END colorm=0 {%BEG colorm=1 /setrgbcolor {/v* exch def /l* exch def /o* exch def o* l* v* proc_rgb_rgb*'dy_LAB*'dy_rgb'*dy_*ioL /v* exch def /l* exch def /o* exch def /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setgray {/w*w exch def /o* w*w def /l* w*w def /v* w*w def o* l* v* proc_rgb_rgb*'dy_LAB*'dy_rgb'*dy_*ioL /v* exch def /l* exch def /o* exch def /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setcmykcolor {cmyk_olv*_cmyn4* o* l* v* proc_rgb_rgb*'dy_LAB*'dy_rgb'*dy_*ioL /v* exch def /l* exch def /o* exch def /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def } ifelse %END colorm=1 }%END %xchart>=1 {%BEG %xchart=0 /setrgbcolor {/v* exch def /l* exch def /o* exch def /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def o* l* v* sfrgbcolor } def /setgray {dup dup /v* exch def /l* exch def /o* exch def /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def o* sfgray } def /setcmykcolor {cmyk_olv*_cmyn4* c4*Fa m4*Fa y4*Fa n4*Fa sfcmykcolor } def } ifelse %END %xchart=0 'zm60'COLM57LT.PS cmy0* 20120301 } if %colsep=1 %*************************************************************** colsep 2 eq {%colsep=2 /tLAB 0 def xchart 1 ge {%xchart>=1 'zm60'COLM58LT.PS cmyn4* 20120301 colorm 0 eq {%BEG colorm=0 /setrgbcolor {/v* exch def /l* exch def /o* exch def o* l* v* proc_rgb_rgb*'dy_LAB*'dy_rgb'*dy_*ioL /v* exch def /l* exch def /o* exch def proc_trans_rgb3*_cmyn4*ioL %in: olv*, out: cmyn4 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setgray {dup dup /v* exch def /l* exch def /o* exch def o* l* v* proc_rgb_rgb*'dy_LAB*'dy_rgb'*dy_*ioL /v* exch def /l* exch def /o* exch def proc_trans_rgb3*_cmyn4*ioL %in: olv*, out: cmyn4 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setcmykcolor {cmyk_olv*_cmyn4* o* l* v* proc_rgb_rgb*'dy_LAB*'dy_rgb'*dy_*ioL /v* exch def /l* exch def /o* exch def proc_trans_rgb3*_cmyn4*ioL %in: olv*, out: cmyn4 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def }%END colorm=0 {%BEG colorm=1 /setrgbcolor {/v* exch def /l* exch def /o* exch def o* l* v* proc_rgb_rgb*'dy_LAB*'dy_rgb'*dy_*ioL /v* exch def /l* exch def /o* exch def proc_trans_rgb3*_cmyn4*ioL %needs olv* for input %produces cmyn4*ioL as output c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setgray {dup dup /v* exch def /l* exch def /o* exch def o* l* v* proc_rgb_rgb*'dy_LAB*'dy_rgb'*dy_*ioL /v* exch def /l* exch def /o* exch def proc_trans_rgb3*_cmyn4*ioL %in: olv*, out: cmyn4 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setcmykcolor {cmyk_olv*_cmyn4* o* l* v* proc_rgb_rgb*'dy_LAB*'dy_rgb'*dy_*ioL /v* exch def /l* exch def /o* exch def proc_trans_rgb3*_cmyn4*ioL %in: olv*, out: cmyn4 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def } ifelse %END colorm=1 }%END %xchart>=0 {%BEG %xchart=0 /setrgbcolor {/v* exch def /l* exch def /o* exch def /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def o* l* v* sfrgbcolor } def /setgray {dup dup /v* exch def /l* exch def /o* exch def /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def o* sfgray } def /setcmykcolor {cmyk_olv*_cmyn4* c4*Fa m4*Fa y4*Fa n4*Fa sfcmykcolor } def } ifelse %END %xchart=0 'zm60'COLM58LT.PS cmyn4* 20120301 } if %colsep=2 %********************************************************************* colsep 0 eq {%colsep=0 cmyn6* /tLAB 0 def xchart 1 ge {%xchart>=1 'zm60'COLM559LT.PS cmyn6* 20120201 colorm 0 eq {%BEG colorm=0 /olvtrans 1 def %changes olv* to olvk* /setrgbcolor {/v* exch def /l* exch def /o* exch def o* l* v* proc_rgb_rgb*'dy_LAB*'dy_rgb'*dy_*ioL /v* exch def /l* exch def /o* exch def proc_trans_rgb3*_cmyn6*ioL %in: olv*, out: cmyn6 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setgray {/w*w exch def /v* w*w def /l* w*w def /o* w*w def o* l* v* proc_rgb_rgb*'dy_LAB*'dy_rgb'*dy_*ioL /v* exch def /l* exch def /o* exch def proc_trans_rgb3*_cmyn6*ioL %in: olv*, out: cmyn6 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setcmykcolor {cmyk_olv*_cmyn4* o* l* v* proc_rgb_rgb*'dy_LAB*'dy_rgb'*dy_*ioL /v* exch def /l* exch def /o* exch def proc_trans_rgb3*_cmyn6*ioL %in: olv*, out: cmyn6 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def }%END colorm=0 {%BEG colorm=1 /olvtrans 0 def %no change of olv* /setrgbcolor {/v* exch def /l* exch def /o* exch def o* l* v* proc_rgb_rgb*'dy_LAB*'dy_rgb'*dy_*ioL /v* exch def /l* exch def /o* exch def proc_trans_rgb3*_cmyn6*ioL %in: olv*, out: cmyn6 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setgray {dup dup /v* exch def /l* exch def /o* exch def o* l* v* proc_rgb_rgb*'dy_LAB*'dy_rgb'*dy_*ioL /v* exch def /l* exch def /o* exch def proc_trans_rgb3*_cmyn6*ioL %in: olv*, out: cmyn6 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setcmykcolor {cmyk_olv*_cmyn4* o* l* v* proc_rgb_rgb*'dy_LAB*'dy_rgb'*dy_*ioL /v* exch def /l* exch def /o* exch def proc_trans_rgb3*_cmyn6*ioL %in: olv*, out: cmyn6 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def } ifelse %END colorm=1 }%END %xchart>=0 {%BEG %xchart=0 /setrgbcolor {/v* exch def /l* exch def /o* exch def /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def o* l* v* sfrgbcolor } def /setgray {dup dup /v* exch def /l* exch def /o* exch def /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def o* sfgray } def /setcmykcolor {cmyk_olv*_cmyn4* c4*Fa m4*Fa y4*Fa n4*Fa sfcmykcolor } def } ifelse %END %xchart=0 'zm60'COLM559LT.PS cmyn6* 20120301 } if %colsep=0 cmyn6* %********************************************************************* /setgc {pop pop pop 1 exch sub sfgray} bind def /setgm {pop pop 1 exch sub sfgray pop} bind def /setgy {pop 1 exch sub sfgray pop pop} bind def /setgn {1 exch sub sfgray pop pop pop} bind def /setgf {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def 0 ccolor eq 0 mcolor eq and 0 ycolor eq and {1 ncolor sub lggray} {1 ccolor sub 0.71 mul 1 mcolor sub 0.22 mul add 1 ycolor sub 0.07 mul add sfgray} ifelse } bind def /setcmykcolorf { sfcmykcolor} bind def %fuer PSL1/2-Farbgeraet /setcmyknew { %Ersatz setcolornew durch setcmykcolor1 ausz 1 eq {setgc} if %C ausz 2 eq {setgm} if %M ausz 3 eq {setgy} if %Y ausz 4 eq {pop pop pop /ccolor exch def ccolor 0 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgc} %PSL1-SW-Geraet ifelse } if %Cbunt ausz 5 eq {pop pop /mcolor exch def pop 0 mcolor 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgm} %PSL1-SW-Geraet ifelse } if %Mbunt ausz 6 eq {pop /ycolor exch def pop pop 0 0 ycolor 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgy} %PSL1-SW-Geraet ifelse } if %Ybunt ausz 7 eq {setgn} if %N ausz 8 ge { /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgf} %PSL1-SW-Geraet ifelse } if %bei ausz=8: Farb- oder SW-Ausdruck je nach Drucker } bind def %END different procedures } bind def %END Procedure PROC_COLSEP_IOF 20100301 %********************************************************************* %END Procedure PROC_COLSEP_IOF different procedures 20100301 %********************************************************************* %********************************************************************* %BEG Procedure PROC_LAB_IOF %********************************************************************* /PROC_LAB_IOF {%BEG Procedure PROC_LAB_IOF %calculation of LAB data from spectral data %calculation of 48 step hue circles %calculation of rgb-LAB tables /SDx 80 array def %380 bis 775 mit deltalambda=05 /SD65 80 array def %380 bis 775 mit deltalambda=05 /SD50 80 array def %380 bis 775 mit deltalambda=05 /SDP4 80 array def %380 bis 775 mit deltalambda=05 /SDA0 80 array def %380 bis 775 mit deltalambda=05 /SDE0 80 array def %380 bis 775 mit deltalambda=05 /SDC0 80 array def %380 bis 775 mit deltalambda=05 /SDAK 80 array def %380 bis 775 mit deltalambda=05 /RA 80 array def %380 bis 770 nm /F2 240 array def %3 x 80 Daten fuer Bereich 380 bis 770nm /F2N 240 array def %normiert auf Y=100 fuer D65 und 10nm %C %C LITERATURQUELLEN LICHTARTEN %C SA,SC,SD65, CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 1.1.1, SEITE 81 %C SD55,SD75, CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 1.1.4, SEITE 85 %C LINEAR INTERPOLIERT VON 5 ZU 5NM %C SG,SP,SXE, DIN 5033, BLATT 7 ,SEITE 8-9 %C AUSGABE 1966 /SD65 %80 data 5 nm [50.0 52.3 54.6 68.7 82.8 87.1 91.5 92.5 93.4 90.1 86.7 95.8 104.9 110.9 117.0 117.4 117.8 116.3 114.9 115.4 115.9 112.4 108.8 109.1 109.4 108.6 107.8 106.3 104.8 106.2 107.7 106.0 104.4 104.2 104.0 102.0 100.0 98.2 96.3 96.1 95.8 92.2 88.7 89.3 90.0 89.8 89.6 88.6 87.7 85.5 83.3 83.5 83.7 81.9 80.0 80.1 80.2 81.2 82.3 80.3 78.3 74.0 69.7 70.7 71.6 73.0 74.3 68.0 61.6 65.7 69.9 72.5 75.1 69.3 63.6 55.0 46.4 56.6 66.8 65.1] def /SD50 %80 data 5 nm CIE 15.3, Seite 30; aus JE540-1N.PS [24.5 27.2 29.9 39.6 49.3 52.9 56.5 58.3 60.0 58.9 57.8 66.3 74.8 81.0 87.2 88.9 90.6 91.0 91.4 93.2 95.1 93.5 92.0 93.8 95.7 96.2 96.6 96.8 97.1 99.6 102.1 101.4 100.8 101.5 102.3 101.2 100.0 98.9 97.7 98.3 98.9 96.2 93.5 95.6 97.7 98.5 99.3 99.2 99.0 97.4 95.7 97.3 98.9 97.3 95.7 96.9 98.2 100.6 103.0 101.1 99.1 93.3 87.4 89.5 91.6 92.2 92.9 84.9 76.9 81.7 86.5 89.5 92.6 85.4 78.2 68.0 57.7 70.3 82.9 0.0] def %0.0 not used /SDA0 %80 data 5 nm CIE 15.3 Seite 30; aus JE540-1N.PS [9.80 10.90 12.09 13.35 14.71 16.15 17.68 19.29 20.99 22.79 24.67 26.64 28.70 30.85 33.09 35.41 37.81 40.30 42.87 45.52 48.24 51.04 53.91 56.85 59.86 62.93 66.06 69.25 72.50 75.79 79.13 82.52 85.95 89.41 92.91 96.44 100.00 103.58 107.18 110.80 114.44 118.08 121.73 125.39 129.04 132.70 136.35 139.99 143.62 147.24 150.84 154.42 157.98 161.52 165.03 168.51 171.96 175.38 178.77 182.12 185.43 188.70 191.93 195.12 198.26 201.36 204.41 207.41 210.36 213.27 216.12 218.92 221.67 224.36 227.00 229.59 232.12 234.59 237.01 239.37 0.0] def %0.0 not used % AUS BILDPLA.FOR aus vrbam/wrpos:KRPROG.FOR, 5987-6023 5.10.92 %C PROGRAMM ZUR BERECHNUNG DER RELATIVEN SPEKTRALEN STRAHLUNGSVERTEI- %C LUNG EINES HOHLRAUMSTRAHLERS ALS FUNKTION DER WELLENLAENGE LAMDA %C BEI GEGEBENER TEMPERATUR T %C VERWENDETE VARIABLE %C T TEMPERATUR %C C2 PLANCKSCHE KONSTANTE (=1.4388 CM K (1967)) %C LAMDA(I) WELLENLAENGE %C S(I) STRAHLUNGSVERTEILUNG DES HOHLRAUMSTRAHLERS %C %C LITERATUR OFFIZIELLE EMPFEHLUNGEN DER CIE,DEUTSCHE VERSION, %C CA. 1969, SEITE 21 UND TABELLE 1.1.1 %C %SDP4 80 array def %380 bis 775 mit deltalambda=05 % DO 50 I=1,54 % 50 S(I)=100. % 1*(560./FLOAT(LAMDA(I)))**5 % 2*(EXP(C2/(560.*10.**(-7)*T))-1.) % 3/(EXP(C2/(FLOAT(LAMDA(I))*10.**(-7)*T))-1.) %new CIE 15.3:2004, Eq. (3.1) page 2 %S(I) = [100{560/lambda}**5] [exp{(c2*10**7)/(TNC*560 )} - 1] % /[exp{(c2*10**7)/(TNC*lambda)} - 1] % exp = e {...} = 2.71 {...} %/TNC 2848 def %NLA /TNC 4000 def /EE 2.718281 def %e=mac pocket calculator /C2 1.4350000 10 7 exp mul def /lamd 80 array def 0 1 79 {%i=0,79 /i exch def /lambda 380 i 5 mul add def lamd i lambda put /E1 560 lambda div 5 exp def /E4 C2 TNC 560 mul div def /E5 C2 TNC lambda mul div def /E6 EE E4 exp def /E7 EE E5 exp def SDP4 i E1 100 mul E6 1 sub E7 1 sub div mul put } for %i=0,79 /xex 10 2 exp def /yex EE 2 exp def /SDE0 %80 data 5 nm [100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0] def %0.0 not used /SDC0 %80 data 5 nm [ 33.00 39.92 47.40 55.17 63.30 71.81 80.60 89.53 98.10 105.80 112.40 117.75 121.50 123.45 124.00 123.60 123.10 123.30 123.80 124.09 123.90 122.92 120.70 116.90 112.10 106.98 102.30 98.81 96.90 96.78 98.00 99.94 102.10 103.95 105.20 105.67 105.30 104.11 102.30 100.15 97.80 95.43 93.20 91.22 89.70 88.83 88.40 88.19 88.10 88.06 88.00 87.86 87.80 87.99 88.20 88.20 87.90 87.22 86.30 85.30 84.00 82.21 80.20 78.24 76.30 74.36 72.40 70.40 68.30 66.30 64.40 62.80 61.50 60.20 59.20 58.50 58.10 58.00 58.20 58.50 ] def %0.0 not used %C LITERATURQUELLEN SPEKTRALWERTE %C F2 CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 2.1, SEITE 93-102 /F2 %3x80 data [.001368 .002236 .004243 .007650 .01431 .02319 .04351 .07763 .1344 .2148 .2839 .3285 .3483 .3481 .3362 .3187 .2908 .2511 .1954 .1421 .09564 .05795 .03201 .01470 .0049 .0024 .0093 .0291 .06327 .1096 .1655 .2257 .2904 .3597 .4334 .5121 .5945 .6784 .7621 .8425 .9163 .9786 1.0263 1.0567 1.0622 1.0456 1.0026 .9384 .8544 .7514 .6424 .5419 .4479 .3608 .2835 .2187 .1649 .1212 .0874 .0636 .04677 .03290 .02270 .01584 .01136 .00811 .00579 .004109 .002899 .002049 .001440 .0009999 .0006901 .000476 .0003323 .0002348 .0001662 .0001174 .00008308 .00005871 .000039 .000064 .00012 .000217 .000396 .00064 .00121 .00218 .004 .0073 .0116 .01684 .023 .0298 .0380 .048 .06 .0739 .09098 .1126 .139 .1693 .208 .2586 .323 .4073 .503 .6082 .71 .7932 .862 .9149 .954 .9803 .995 1.0 .995 .9786 .952 .9154 .870 .8163 .757 .6949 .631 .5668 .503 .4412 .381 .321 .265 .217 .175 .1382 .107 .0816 .061 .04458 .032 .0232 .017 .01192 .00821 .005723 .004102 .002929 .002091 .001484 .001047 .00074 .00052 .0003611 .0002492 .0001719 .00012 .0000848 .00006 .0000424 .00003 .0000212 .00645 .01055 .02005 .03621 .06785 .1102 .2074 .3713 .6456 1.0391 1.3856 1.623 1.7471 1.7826 1.7721 1.7441 1.6692 1.5281 1.2876 1.0419 .8130 .6162 .4652 .3533 .2720 .2123 .1582 .1117 .07825 .05725 .04216 .02984 .0203 .0134 .00875 .00575 .0039 .00275 .0021 .0018 .00165 .0014 .0011 .0010 .0008 .0006 .00034 .00024 .00019 .0001 .00005 .00003 .00002 .00001 % 26*0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %10 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %20 0.0 0.0 0.0 0.0 0.0 0.0 %26 ] def /indxi 1080 array def /indxi %indxt=0,1079 [0000 0001 0002 0003 0004 0005 0006 0007 0008 %A 0243 0244 0245 0246 0247 0248 0249 0250 0251 0486 0487 0488 0489 0490 0491 0492 0493 0494 0009 0010 0011 0012 0013 0014 0015 0016 0017 %B 0252 0253 0254 0255 0256 0257 0258 0259 0260 0495 0496 0497 0498 0499 0500 0501 0502 0503 0018 0019 0020 0021 0022 0023 0024 0025 0026 %C 0261 0262 0263 0264 0265 0266 0267 0268 0269 0504 0505 0506 0507 0508 0509 0510 0511 0512 0027 0028 0029 0030 0031 0032 0033 0034 0035 %D 0270 0271 0272 0273 0274 0275 0276 0277 0278 0513 0514 0515 0516 0517 0518 0519 0520 0521 0036 0037 0038 0039 0040 0041 0042 0043 0044 %E 0279 0280 0281 0282 0283 0284 0285 0286 0287 0522 0523 0524 0525 0526 0527 0528 0529 0530 0045 0046 0047 0048 0049 0050 0051 0052 0053 %F 0288 0289 0290 0291 0292 0293 0294 0295 0296 0531 0532 0533 0534 0535 0536 0537 0538 0539 0054 0055 0056 0057 0058 0059 0060 0061 0062 %G 0297 0298 0299 0300 0301 0302 0303 0304 0305 0540 0541 0542 0543 0544 0545 0546 0547 0548 0063 0064 0065 0066 0067 0068 0069 0070 0071 %H 0306 0307 0308 0309 0310 0311 0312 0313 0314 0549 0550 0551 0552 0553 0554 0555 0556 0557 0072 0073 0074 0075 0076 0077 0078 0079 0080 %I 0315 0316 0317 0318 0319 0320 0321 0322 0323 0558 0559 0560 0561 0562 0563 0564 0565 0566 0081 0082 0083 0084 0085 0086 0087 0088 0089 %J 0324 0325 0326 0327 0328 0329 0330 0331 0332 0567 0568 0569 0570 0571 0572 0573 0574 0575 0090 0091 0092 0093 0094 0095 0096 0097 0098 %K 0333 0334 0335 0336 0337 0338 0339 0340 0341 0576 0577 0578 0579 0580 0581 0582 0583 0584 0099 0100 0101 0102 0103 0104 0105 0106 0107 %L 0342 0343 0344 0345 0346 0347 0348 0349 0350 0585 0586 0587 0588 0589 0590 0591 0592 0593 0108 0109 0110 0111 0112 0113 0114 0115 0116 %M 0351 0352 0353 0354 0355 0356 0357 0358 0359 0594 0595 0596 0597 0598 0599 0600 0601 0602 0117 0118 0119 0120 0121 0122 0123 0124 0125 %N 0360 0361 0362 0363 0364 0365 0366 0367 0368 0603 0604 0605 0606 0607 0608 0609 0610 0611 0126 0127 0128 0129 0130 0131 0132 0133 0134 %O 0369 0370 0371 0372 0373 0374 0375 0376 0377 0612 0613 0614 0615 0616 0617 0618 0619 0620 0135 0136 0137 0138 0139 0140 0141 0142 0143 %P 0378 0379 0380 0381 0382 0383 0384 0385 0386 0621 0622 0623 0624 0625 0626 0627 0628 0629 0144 0145 0146 0147 0148 0149 0150 0151 0152 %Q 0387 0388 0389 0390 0391 0392 0393 0394 0395 0630 0631 0632 0633 0634 0635 0636 0637 0638 0153 0154 0155 0156 0157 0158 0159 0160 0161 %R 0396 0397 0398 0399 0400 0401 0402 0403 0404 0639 0640 0641 0642 0643 0644 0645 0646 0647 0162 0163 0164 0165 0166 0167 0168 0169 0170 %S 0405 0406 0407 0408 0409 0410 0411 0412 0413 0648 0649 0650 0651 0652 0653 0654 0655 0656 0171 0172 0173 0174 0175 0176 0177 0178 0179 %T 0414 0415 0416 0417 0418 0419 0420 0421 0422 0657 0658 0659 0660 0661 0662 0663 0664 0665 0180 0181 0182 0183 0184 0185 0186 0187 0188 %U 0423 0424 0425 0426 0427 0428 0429 0430 0431 0666 0667 0668 0669 0670 0671 0672 0673 0674 0189 0190 0191 0192 0193 0194 0195 0196 0197 %V 0432 0433 0434 0435 0436 0437 0438 0439 0440 0675 0676 0677 0678 0679 0680 0681 0682 0683 0198 0199 0200 0201 0202 0203 0204 0205 0206 %W 0441 0442 0443 0444 0445 0446 0447 0448 0449 0684 0685 0686 0687 0688 0689 0690 0691 0692 0207 0208 0209 0210 0211 0212 0213 0214 0215 %X 0450 0451 0452 0453 0454 0455 0456 0457 0458 0693 0694 0695 0696 0697 0698 0699 0700 0701 0216 0217 0218 0219 0220 0221 0222 0223 0224 %Y 0459 0460 0461 0462 0463 0464 0465 0466 0467 0702 0703 0704 0705 0706 0707 0708 0709 0710 0225 0226 0227 0228 0229 0230 0231 0232 0233 %Z 0468 0469 0470 0471 0472 0473 0474 0475 0476 0711 0712 0713 0714 0715 0716 0717 0718 0719 0234 0235 0236 0237 0238 0239 0240 0241 0242 %a 0477 0478 0479 0480 0481 0482 0483 0484 0485 0720 0721 0722 0723 0724 0725 0726 0727 0728 0729 0730 0731 0732 0733 0734 0735 0736 0737 %b 0810 0811 0812 0813 0814 0815 0816 0817 0818 0891 0892 0893 0894 0895 0896 0897 0898 0899 0738 0739 0740 0741 0742 0743 0744 0745 0746 %c 0819 0820 0821 0822 0823 0824 0825 0826 0827 0900 0901 0902 0903 0904 0905 0906 0907 0908 0747 0748 0749 0750 0751 0752 0753 0754 0755 %d 0828 0829 0830 0831 0832 0833 0834 0835 0836 0909 0910 0911 0912 0913 0914 0915 0916 0917 0756 0757 0758 0759 0760 0761 0762 0763 0764 %e 0837 0838 0839 0840 0841 0842 0843 0844 0845 0918 0919 0920 0921 0922 0923 0924 0925 0926 0765 0766 0767 0768 0769 0770 0771 0772 0773 %f 0846 0847 0848 0849 0850 0851 0852 0853 0854 0927 0928 0929 0930 0931 0932 0933 0934 0935 0774 0775 0776 0777 0778 0779 0780 0781 0782 %g 0855 0856 0857 0858 0859 0860 0861 0862 0863 0936 0937 0938 0939 0940 0941 0942 0943 0944 0783 0784 0785 0786 0787 0788 0789 0790 0791 %h 0864 0865 0866 0867 0868 0869 0870 0871 0872 0945 0946 0947 0948 0949 0950 0951 0952 0953 0792 0793 0794 0795 0796 0797 0798 0799 0800 %i 0873 0874 0875 0876 0877 0878 0879 0880 0881 0954 0955 0956 0957 0958 0959 0960 0961 0962 0801 0802 0803 0804 0805 0806 0807 0808 0809 %j 0882 0883 0884 0885 0886 0887 0888 0889 0890 0963 0964 0965 0966 0967 0968 0969 0970 0971 0972 0973 0974 0975 0976 0977 0978 0979 0980 %k 1008 1009 1010 1011 1012 1013 1014 1015 1016 1017 1018 1019 1020 1021 1022 1023 1072 1073 0981 0982 0983 0984 0985 0986 0987 0988 0989 %l 1024 1025 1026 1027 1028 1029 1030 1031 1032 1033 1034 1035 1036 1037 1038 1039 1074 1075 0990 0991 0992 0993 0994 0995 0996 0997 0998 %m 1040 1041 1042 1043 1044 1045 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1076 1077 0999 1000 1001 1002 1003 1004 1005 1006 1007 %n 1056 1057 1058 1059 1060 1061 1062 1063 1064 1065 1066 1067 1068 1069 1070 1071 1078 1079 ] def %indxi=0,1079 %parameters for calculations /FileData colsep 0 eq {FILEDATA_RX0F_IOF def} if %cmyn6* colsep 1 eq {FILEDATA_RX1F_IOF def} if %cmy0* %colsep 2 eq {FileData2L def} if %cmyn4* not used %colsep 3 eq {FileData3L def} if %cmyn6* not used 0 1 79 {/i exch def %i=0,79 SDx i SD65 i get put } for %i=0,79 /YKSUM 0 def 0 2 78 {/i exch def %i=0,2,79 /YKSUM YKSUM SDx i get F2 80 i add get mul add def } for %i=0,2,79 0 2 78 {/i exch def %i=0,2,79 /i2 i 2 idiv def F2N 00 i2 add SDx i get F2 00 i add get mul YKSUM div 100 mul put F2N 40 i2 add SDx i get F2 80 i add get mul YKSUM div 100 mul put F2N 80 i2 add SDx i get F2 160 i add get mul YKSUM div 100 mul put } for %i=0,2,79 /XDx 0 def /YDx 0 def /ZDx 0 def 0 1 039 {/i exch def %i=0,39 /XDx XDx F2N 00 i add get add def /YDx YDx F2N 40 i add get add def /ZDx ZDx F2N 80 i add get add def } for %i=0,39 /Xj 1080 array def /Yj 1080 array def /Zj 1080 array def /LAB*Lj 1080 array def /LAB*aj 1080 array def /LAB*bj 1080 array def /LAB*Lja 1080 array def /LAB*aja 1080 array def /LAB*bja 1080 array def /jmax 1079 def 00 1 jmax {/j exch def %j=0,jmac 0 1 040 {/i exch def %i=0,40 i 35 le {/n i 2 add j 38 mul add def RA i colsep 0 eq {RX0F} if %cmyn6* colsep 1 eq {RX1F} if colsep 2 eq {RX2F} if colsep 3 eq {RX3F} if n get 10000 div put} {RA i RA 35 get put } ifelse } for %i=0,40 /X 0 def /Y 0 def /Z 0 def 0 1 039 {/i exch def %i=0,39 /X X F2N 00 i add get RA i get mul add def /Y Y F2N 40 i add get RA i get mul add def /Z Z F2N 80 i add get RA i get mul add def } for %i=0,39 /XQ X XDx div def /YQ Y YDx div def /ZQ Z ZDx div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if /LAB*L YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse def /LAB*a XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul def /LAB*b YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul def /k indxi j get def Xj k X put Yj k Y put Zj k Z put LAB*Lj k LAB*L put LAB*aj k LAB*a put LAB*bj k LAB*b put } for %j=0,jmax %Adaptation /L*Nio LAB*Lj 0 get def /A*Nio LAB*aj 0 get def /B*Nio LAB*bj 0 get def /L*Wio LAB*Lj 728 get def /A*Wio LAB*aj 728 get def /B*Wio LAB*bj 728 get def /A*Dio A*Wio A*Nio sub def /B*Dio B*Wio B*Nio sub def 0 1 jmax {/j exch def %j=0,jmax LAB*Lja j LAB*Lj j get put /l*CIE LAB*Lj j get L*Nio sub L*Wio L*Nio sub div def %system rel. lightn. /a*s A*Wio A*Nio sub l*CIE mul def /b*s B*Wio B*Nio sub l*CIE mul def LAB*aja j LAB*aj j get A*Nio sub a*s sub put LAB*bja j LAB*bj j get B*Nio sub b*s sub put } for %j=0,jmax /L*Nioa LAB*Lja 0 get def /A*Nioa LAB*aja 0 get def /B*Nioa LAB*bja 0 get def /L*Wioa LAB*Lja 728 get def /A*Wioa LAB*aja 728 get def /B*Wioa LAB*bja 728 get def %only 729 data used /nR 9 def %LUT size /nG 9 def /nB 9 def /nges nR nG nB mul mul def /lut 2187 array def %729x3=2187 (only 9x9x9 used) 0 1 728 {/i exch def %i=0,728 /i3 i 3 mul def lut i3 LAB*Lja i get put lut i3 1 add LAB*aja i get put lut i3 2 add LAB*bja i get put } for %i=0,729 } bind def %END Procedure PROC_LAB_IOF %*********************************************************** %END Procedure PROC_LAB_IOF %*********************************************************** %***************************************************************************** %BEG Procedure PROC_SPEC_IOF Colour special for NP-file 20120401 %***************************************************************************** %different procedures: % proc_LAB729a_to_LAB*LabCh64M and proc_LAB*LabCh64M_to_tab362_dy %*********************************************************** /proc_LAB729a_to_LAB*LabCh64M { %BEG Procedure proc_LAB729a_to_LAB*LabCh64M %transfer from proc_LAB729a_to_LAB*LabCh64M, %9x9x9=729 steps used for LAB729a %requires /LAB*LabCh64M 64 array def %requires in addition /LAB729a 729 array def /LAB*Ldd64M 64 array def /LAB*add64M 64 array def /LAB*bdd64M 64 array def /LAB*Cdd64M 64 array def /LAB*hdd64M 64 array def /hab*dd64M 64 array def /M1jx 49 array def 0 1 5 {/xtonj exch def %xtonj=0,5 0 1 7 {/j exch def %j=0,7 /ja xtonj 8 mul j add def xtonj 0 eq {/jx 648 j 09 mul add def} if %see O00Y-O83Y, -0 xtonj 1 eq {/jx 720 j 81 mul sub def} if %see Y00L-Y83L, -81 xtonj 2 eq {/jx 072 j add def} if %see L00C-L83C, +01 xtonj 3 eq {/jx 080 j 09 mul sub def} if %see C00V-C83V, -09 xtonj 4 eq {/jx 008 j 81 mul add def} if %see V00M-V83M, -81 xtonj 5 eq {/jx 656 j sub def} if %see M00O-M83O, +01 LAB*Ldd64M ja LAB*Lja jx get put LAB*add64M ja LAB*aja jx get put LAB*bdd64M ja LAB*bja jx get put LAB*Cdd64M ja LAB*add64M ja get dup mul LAB*bdd64M ja get dup mul add sqrt put LAB*hdd64M ja LAB*bdd64M ja get LAB*add64M ja get 0.0001 add atan put xtonj 5 eq LAB*hdd64M ja get 90 le and {LAB*hdd64M ja LAB*hdd64M ja get 360 add put} if M1jx ja jx put } for %j=0,7 } for %xtonj=0,5 M1jx 48 M1jx 0 get put 0 1 15 {/i exch def %i=0,15 LAB*Ldd64M 48 i add LAB*Ldd64M i get put LAB*add64M 48 i add LAB*add64M i get put LAB*bdd64M 48 i add LAB*bdd64M i get put LAB*Cdd64M 48 i add LAB*Cdd64M i get put LAB*hdd64M 48 i add LAB*hdd64M i get 360 add put } for %i=1,15 0 1 63 {/i exch def %i=0,63 hab*dd64M i LAB*hdd64M i get put } for %i=0,63 %data test according to increasing hue angle and appropriate correction /xtesthuea -1 def /xtesthuei 64 array def 0 1 48 {/i exch def %i=0,49 hab*dd64M i get hab*dd64M i 1 add get gt {/xtesthuea xtesthuea 1 add def xtesthuei xtesthuea i put hab*dd64M i 1 add hab*dd64M i get put LAB*Ldd64M i 1 add LAB*Ldd64M i get put LAB*add64M i 1 add LAB*add64M i get put LAB*bdd64M i 1 add LAB*bdd64M i get put LAB*Cdd64M i 1 add LAB*Cdd64M i get put LAB*hdd64M i 1 add LAB*hdd64M i get put } if } for %i=0,49 } bind def %END proc_LAB729a_to_LAB*LabCh64M %*********************************************************** /proc_LAB*LabCh64M_to_tab362_dy { %BEG procedure proc_LAB*LabCh64M_to_tab362_dy /LAB*e 40 array def %8x5=40 LabCh* /LAB*e [39.92 58.74 27.99 0.0 0.0 %0 00_04 R CIE No.09 elementary in LAB 81.26 -2.89 71.56 0.0 0.0 %1 05_09 J CIE No.10 52.23 -42.42 13.60 0.0 0.0 %2 10_14 G CIE No.11 0.0 0.0 0.0 0.0 0.0 %3 15_19 Cgb to be calculated 30.57 1.41 -46.47 0.0 0.0 %4 20_24 B CIE No.12 0.0 0.0 0.0 0.0 0.0 %5 25_29 Mbr to be calculated 39.92 58.74 27.99 0.0 0.0 %6 30_34 Re+360 to be calculated 81.26 -2.89 71.56 0.0 0.0 %7 35_39 Ye+360 to be calculated ] def %add no. 03_04 Re LAB*e 03 LAB*e 01 get dup mul LAB*e 02 get dup mul add sqrt put LAB*e 04 LAB*e 02 get LAB*e 01 get 0.0001 add atan put %add no. 08_09 Ye LAB*e 08 LAB*e 06 get dup mul LAB*e 07 get dup mul add sqrt put LAB*e 09 LAB*e 07 get LAB*e 06 get 0.0001 add atan put %add no. 13_14 Ge LAB*e 13 LAB*e 11 get dup mul LAB*e 12 get dup mul add sqrt put LAB*e 14 LAB*e 12 get LAB*e 11 get 0.0001 add atan put %add no. 23_24 Be LAB*e 23 LAB*e 21 get dup mul LAB*e 22 get dup mul add sqrt put LAB*e 24 LAB*e 22 get LAB*e 21 get 0.0001 add atan put %add no. 33_34 Re+360 LAB*e 33 LAB*e 31 get dup mul LAB*e 32 get dup mul add sqrt put LAB*e 34 LAB*e 32 get LAB*e 31 get 0.0001 add atan 360 add put %add no. 38_39 Ye+360 LAB*e 38 LAB*e 36 get dup mul LAB*e 37 get dup mul add sqrt put LAB*e 39 LAB*e 37 get LAB*e 36 get 0.0001 add atan 360 add put %new no. 15_19 Cgb with Ge_Be LAB*e 19 LAB*e 14 get LAB*e 24 get add 0.5 mul put %hab LAB*e 18 LAB*e 13 get LAB*e 23 get add 0.5 mul put %C*ab LAB*e 15 LAB*e 10 get LAB*e 20 get add 0.5 mul put %L* LAB*e 16 LAB*e 18 get LAB*e 19 get cos mul put %a* LAB*e 17 LAB*e 18 get LAB*e 19 get sin mul put %b* %new no. 25_29 Mbr with Be_Re+360 LAB*e 29 LAB*e 24 get LAB*e 34 get add 0.5 mul put %hab LAB*e 28 LAB*e 23 get LAB*e 33 get add 0.5 mul put %C*ab LAB*e 25 LAB*e 20 get LAB*e 00 get add 0.5 mul put %L* LAB*e 26 LAB*e 28 get LAB*e 29 get cos mul put %a* LAB*e 27 LAB*e 28 get LAB*e 29 get sin mul put %b* /LAB*He 8 array def 0 1 7 {/i exch def %i=0,7 LAB*He i LAB*e i 5 mul 4 add get put } for %i=0,7 /hab*de64M 50 array def 0 1 47 {/i exch def %i=0,47 /i8 i 8 idiv def /i8d i i8 8 mul sub def /dLAB*He LAB*He i8 1 add get LAB*He i8 get sub 8 div def hab*de64M i LAB*He i8 get dLAB*He i8d mul add put } for %i=0,47 hab*de64M 48 hab*de64M 0 get 360 add put hab*de64M 49 hab*de64M 1 get 360 add put /LAB*Hs 8 array def /LAB*Hs [30. 90. 150. 210. 270. 330. 390. 450.] def /hab*ds64M 50 array def 0 1 47 {/i exch def %i=0,47 /i8 i 8 idiv def /i8d i i8 8 mul sub def /dLAB*Hs LAB*Hs i8 1 add get LAB*Hs i8 get sub 8 div def hab*ds64M i LAB*Hs i8 get dLAB*Hs i8d mul add put } for %i=0,47 hab*ds64M 48 hab*ds64M 0 get 360 add put hab*ds64M 49 hab*ds64M 1 get 360 add put %***************** calculation of LAB*LabChd362Mi and rgb*dd362Mi %***************** for 362 elementary hue angles /LAB*Ldd362Mi 362 array def /LAB*add362Mi 362 array def /LAB*bdd362Mi 362 array def /LAB*Cdd362Mi 362 array def /LAB*hdd362Mi 362 array def /r*dd362Mi 362 array def /g*dd362Mi 362 array def /b*dd362Mi 362 array def %******default rgb-input data for output of device colours /r*dd64M 64 array def /r*dd64M [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %R 1.000 0.875 0.750 0.625 0.500 0.375 0.250 0.125 %J 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %G 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %C 0.000 0.125 0.250 0.375 0.500 0.625 0.750 0.875 %B 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %M 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %R 1.000 0.875 0.750 0.625 0.500 0.375 0.250 0.125 %J ] def /g*dd64M 64 array def /g*dd64M [0.000 0.125 0.250 0.375 0.500 0.625 0.750 0.875 %R 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %J 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %G 1.000 0.875 0.750 0.625 0.500 0.375 0.250 0.125 %C 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %B 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %M 0.000 0.125 0.250 0.375 0.500 0.625 0.750 0.875 %R 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %J ] def /b*dd64M 64 array def /b*dd64M [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %R 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %J 0.000 0.125 0.250 0.375 0.500 0.625 0.750 0.875 %G 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %C 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %B 1.000 0.875 0.750 0.625 0.500 0.375 0.250 0.125 %M 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %R 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %J ] def %calculate all data of 16+1=17 step elementary colour circle /ind64M 17 array def /ind64M %R00Y R25Y R50Y R75Y Y00G Y25G Y50G Y75G [0 2 4 6 8 10 12 14 %G00B G25B G50B G75G B00R B25R B50R B75R R00Y 16 20 24 28 32 36 40 44 0 ] def %actual 16 step device circle + N + W /r*dd18M 18 array def /g*dd18M 18 array def /b*dd18M 18 array def 0 1 15 {/i exch def %i=0,15 /indi ind64M i get def r*dd18M i r*dd64M indi get put %16 device colours g*dd18M i g*dd64M indi get put b*dd18M i b*dd64M indi get put } for %i=0,15 r*dd18M 16 0 put %N g*dd18M 16 0 put b*dd18M 16 0 put r*dd18M 17 1 put %W g*dd18M 17 1 put b*dd18M 17 1 put %actual 6 step device circle + N + W /r*dd08M 08 array def /g*dd08M 08 array def /b*dd08M 08 array def 0 1 5 {/i exch def %i=0,5 r*dd08M i r*dd64M i 8 mul get put %6 device colours g*dd08M i g*dd64M i 8 mul get put b*dd08M i b*dd64M i 8 mul get put } for %i=0,5 r*dd08M 6 0 put %N g*dd08M 6 0 put b*dd08M 6 0 put r*dd08M 7 1 put %W g*dd08M 7 1 put b*dd08M 7 1 put 0 1 361 {/i exch def %i=0,361 %default only for test r*dd362Mi i 0 put %of irregularities g*dd362Mi i 0 put b*dd362Mi i 0 put LAB*Ldd362Mi i 0.0001 put LAB*add362Mi i 0 put LAB*bdd362Mi i 0 put LAB*Cdd362Mi i 0 put LAB*hdd362Mi i 0 put } for %i=0,361 % s-data 030,0 -> LAB*hdd64M 0 get -> LAB*Ldd362Mi 30,0 put: LAB*hdd362Mi=40 % s-data 037,5 -> LAB*hdd64M 1 get -> LAB*Ldd362Mi 37,5 put: LAB*hdd362Mi=41,3 % s-data 045,0 -> LAB*hdd64M 2 get -> LAB*Ldd362Mi 45,0 put: LAB*hdd362Mi=44,6 % s-data 052,5 -> LAB*hdd64M 3 get -> LAB*Ldd362Mi 52,5 put: LAB*hdd362Mi=50,7 %... % s-data 090,0 -> LAB*hdd64M 8 get -> LAB*Ldd362Mi 90,0 put: LAB*hdd362Mi=102,8 % s-data 330,0 -> LAB*hdd64M 41 get -> LAB*Ldd362Mi 330,0 put: LAB*hdd362Mi=328 % s-data 337,5 -> LAB*hdd64M 42 get -> LAB*Ldd362Mi 337,5 put: LAB*hdd362Mi=334 % s-data 345,0 -> LAB*hdd64M 43 get -> LAB*Ldd362Mi 345,0 put: LAB*hdd362Mi=341 % s-data 352,5 -> LAB*hdd64M 44 get -> LAB*Ldd362Mi 352,5 put: LAB*hdd362Mi=351 % s-data 360,0 -> LAB*hdd64M 45 get -> LAB*Ldd362Mi 360,0 put: LAB*hdd362Mi=352 %... % s-data 390,0 -> LAB*hdd64M 49 get -> LAB*Ldd362Mi 390,0 put: LAB*hdd362Mi=400 0 15 345 {/i exch def %i=0,15,345 /ix00 i 15 idiv 2 mul def /ix01 ix00 1 add def /ix02 ix00 2 add def 0 1 14 {/j exch def %j=0,14 j 07 le {%j<=7 /XIE j 7.5 div def /i0 i j add def /ix0 ix00 def /ix1 ix01 def }%j<=7 {%j>7 /XIE j 8 sub 0.5 add 7.5 div def /i0 i j add def /ix0 ix01 def /ix1 ix02 def } ifelse %j>7 LAB*Ldd362Mi i0 LAB*Ldd64M ix0 get LAB*Ldd64M ix1 get LAB*Ldd64M ix0 get sub XIE mul add put LAB*Cdd362Mi i0 LAB*Cdd64M ix0 get LAB*Cdd64M ix1 get LAB*Cdd64M ix0 get sub XIE mul add put LAB*hdd362Mi i0 LAB*hdd64M ix0 get LAB*hdd64M ix1 get LAB*hdd64M ix0 get sub XIE mul add dup 90 gt i0 45 le and {360 sub} if put LAB*add362Mi i0 LAB*Cdd362Mi i0 get LAB*hdd362Mi i0 get cos mul put LAB*bdd362Mi i0 LAB*Cdd362Mi i0 get LAB*hdd362Mi i0 get sin mul put r*dd362Mi i0 r*dd64M ix0 get r*dd64M ix1 get r*dd64M ix0 get sub XIE mul add put g*dd362Mi i0 g*dd64M ix0 get g*dd64M ix1 get g*dd64M ix0 get sub XIE mul add put b*dd362Mi i0 b*dd64M ix0 get b*dd64M ix1 get b*dd64M ix0 get sub XIE mul add put } for %j=0,14 } for %i0=0,15,345 0 1 1 {/i exch def %i=0,1 LAB*Ldd362Mi 360 i add LAB*Ldd362Mi i get put LAB*add362Mi 360 i add LAB*add362Mi i get put LAB*bdd362Mi 360 i add LAB*bdd362Mi i get put LAB*Cdd362Mi 360 i add LAB*Cdd362Mi i get put LAB*hdd362Mi 360 i add LAB*hdd362Mi i get 360 add put r*dd362Mi 360 i add r*dd362Mi i get put g*dd362Mi 360 i add g*dd362Mi i get put b*dd362Mi 360 i add b*dd362Mi i get put } for %i=0,1 /hab*dd362Fi 362 array def 0 1 361 {/i exch def %i=0,361 hab*dd362Fi i LAB*hdd362Mi i get put %floating point F } for %i=0,361 %***************** calculation of hab*ds362Mi %integer %***************** for 362 standard hue angles /hab*ds362Mi 362 array def 0 1 361 {/i exch def %i=0,361 %range 30..391 hab*ds362Mi i 30 i add put %always integer } for %i=0,361 %***************** calculation of LAB*LabChs362Mi and rgb*ds362Mi %***************** for 362 device hue angles /LAB*Lds362Mi 362 array def /LAB*ads362Mi 362 array def /LAB*bds362Mi 362 array def /LAB*Cds362Mi 362 array def /LAB*hds362Mi 362 array def /r*ds362Mi 362 array def /g*ds362Mi 362 array def /b*ds362Mi 362 array def 0 1 361 {/i exch def %i=0,361 %default only for test r*ds362Mi i 0 put %of irregularities g*ds362Mi i 0 put b*ds362Mi i 0 put LAB*Lds362Mi i 0.0001 put LAB*ads362Mi i 0 put LAB*bds362Mi i 0 put LAB*Cds362Mi i 0 put LAB*hds362Mi i 0 put } for %i=0,361 0 1 359 {/i0 exch def %i=0,359 /i0i hab*ds362Mi i0 get def %integer range 30...390 i0i hab*dd362Fi 0 get lt {/i0i i0i 360 add def} if 0 1 47 {/ix0 exch def %ix0=0,48 /ix1 ix0 1 add def i0i LAB*hdd64M ix0 get sub 0 ge i0i LAB*hdd64M ix1 get sub 0 lt and {%ge..lt /XIE i0i LAB*hdd64M ix0 get sub LAB*hdd64M ix1 get LAB*hdd64M ix0 get sub div def LAB*Lds362Mi i0 LAB*Ldd64M ix0 get LAB*Ldd64M ix1 get LAB*Ldd64M ix0 get sub XIE mul add put LAB*Cds362Mi i0 LAB*Cdd64M ix0 get LAB*Cdd64M ix1 get LAB*Cdd64M ix0 get sub XIE mul add put LAB*hds362Mi i0 LAB*hdd64M ix0 get LAB*hdd64M ix1 get LAB*hdd64M ix0 get sub XIE mul add dup 90 gt i0 45 le and {360 sub} if put LAB*ads362Mi i0 LAB*Cds362Mi i0 get LAB*hds362Mi i0 get cos mul put LAB*bds362Mi i0 LAB*Cds362Mi i0 get LAB*hds362Mi i0 get sin mul put r*ds362Mi i0 r*dd64M ix0 get r*dd64M ix1 get r*dd64M ix0 get sub XIE mul add put g*ds362Mi i0 g*dd64M ix0 get g*dd64M ix1 get g*dd64M ix0 get sub XIE mul add put b*ds362Mi i0 b*dd64M ix0 get b*dd64M ix1 get b*dd64M ix0 get sub XIE mul add put exit } if %ge..lt } for %ix0=0,47 } for %i=0,359 0 1 1 {/i exch def %i=0,1 LAB*Lds362Mi 360 i add LAB*Lds362Mi i get put LAB*ads362Mi 360 i add LAB*ads362Mi i get put LAB*bds362Mi 360 i add LAB*bds362Mi i get put LAB*Cds362Mi 360 i add LAB*Cds362Mi i get put LAB*hds362Mi 360 i add LAB*hds362Mi i get 360 add put r*ds362Mi 360 i add r*ds362Mi i get put g*ds362Mi 360 i add g*ds362Mi i get put b*ds362Mi 360 i add b*ds362Mi i get put } for %i=0,1 %***************** calculation of hab*de382Fi %***************** for 362 elementary hue angles /hab*de382Fi 382 array def %floating point %range 26..386 30 1 389 {/i exch def %i=30,389 /im30 i 30 sub def /hab*sM i def %alphas = [habs - LAB*Hs(h)]/[LAB*Hs(n+1) - LAB*Hs(n)] % = [habs - LAB*Hs(h)]/60 %habe = LAB*He(n) + alphas [LAB*He(n+1) - LAB*He(n)] %use of LAB*He 0..7 Re_to_Ye i 030 ge i 089 le and {/ipan0 0 def /ipan1 1 def} if i 090 ge i 149 le and {/ipan0 1 def /ipan1 2 def} if i 150 ge i 209 le and {/ipan0 2 def /ipan1 3 def} if i 210 ge i 269 le and {/ipan0 3 def /ipan1 4 def} if i 270 ge i 329 le and {/ipan0 4 def /ipan1 5 def} if i 330 ge i 359 le and {/ipan0 5 def /ipan1 6 def} if i 360 ge i 389 le and {/ipan0 6 def /ipan1 7 def} if /alphas {hab*sM LAB*Hs ipan0 get sub 60 div} bind def /habe {LAB*He ipan0 get LAB*He ipan1 get LAB*He ipan0 get sub alphas mul add} bind def hab*de382Fi im30 habe put %floating point } for %i=30,389 0 1 20 {/i exch def %i=0,20 hab*de382Fi 360 i add hab*de382Fi i get 360 add put } for %i=0,20 %***************** calculation LAB*LabChe32Mi and rgb*de362Mi %***************** for 362 elementary hue angles /LAB*Lde362Mi 362 array def /LAB*ade362Mi 362 array def /LAB*bde362Mi 362 array def /LAB*Cde362Mi 362 array def /LAB*hde362Mi 362 array def /r*de362Mi 362 array def /g*de362Mi 362 array def /b*de362Mi 362 array def 0 1 361 {/i exch def %i=0,361 %default only for test r*de362Mi i 0 put %of irregularities g*de362Mi i 0 put b*de362Mi i 0 put LAB*Lde362Mi i 0.0001 put LAB*ade362Mi i 0 put LAB*bde362Mi i 0 put LAB*Cde362Mi i 0 put LAB*hde362Mi i 0 put } for %i=0,361 0 1 359 {/i0 exch def %i=0,359 /i0i hab*de382Fi i0 get def %range 26...386 i0i hab*dd362Fi 0 get lt {/i0i i0i 360 add def} if 0 1 47 {/ix0 exch def %ix0=0,48 /ix1 ix0 1 add def i0i LAB*hdd64M ix0 get sub 0 ge i0i LAB*hdd64M ix1 get sub 0 lt and {%ge..lt /XIE i0i LAB*hdd64M ix0 get sub LAB*hdd64M ix1 get LAB*hdd64M ix0 get sub div def LAB*Lde362Mi i0 LAB*Ldd64M ix0 get LAB*Ldd64M ix1 get LAB*Ldd64M ix0 get sub XIE mul add put LAB*Cde362Mi i0 LAB*Cdd64M ix0 get LAB*Cdd64M ix1 get LAB*Cdd64M ix0 get sub XIE mul add put LAB*hde362Mi i0 LAB*hdd64M ix0 get LAB*hdd64M ix1 get LAB*hdd64M ix0 get sub XIE mul add dup 90 gt i0 45 le and {360 sub} if put LAB*ade362Mi i0 LAB*Cde362Mi i0 get LAB*hde362Mi i0 get cos mul put LAB*bde362Mi i0 LAB*Cde362Mi i0 get LAB*hde362Mi i0 get sin mul put r*de362Mi i0 r*dd64M ix0 get r*dd64M ix1 get r*dd64M ix0 get sub XIE mul add put g*de362Mi i0 g*dd64M ix0 get g*dd64M ix1 get g*dd64M ix0 get sub XIE mul add put b*de362Mi i0 b*dd64M ix0 get b*dd64M ix1 get b*dd64M ix0 get sub XIE mul add put exit } if %ge..lt } for %ix0=0,47 } for %i=0,359 0 1 1 {/i exch def %i=0,1 LAB*Lde362Mi 360 i add LAB*Lde362Mi i get put LAB*ade362Mi 360 i add LAB*ade362Mi i get put LAB*bde362Mi 360 i add LAB*bde362Mi i get put LAB*Cde362Mi 360 i add LAB*Cde362Mi i get put LAB*hde362Mi 360 i add LAB*hde362Mi i get 360 add put r*de362Mi 360 i add r*de362Mi i get put g*de362Mi 360 i add g*de362Mi i get put b*de362Mi 360 i add b*de362Mi i get put } for %i=0,1 %special LAB* data calculation of 17 step colour circle %needs LAB*LabCh64M, hab*dd64M /ind64M 17 array def /ind64M %R00Y R25Y R50Y R75Y Y00G Y25G Y50G Y75G [0 2 4 6 8 10 12 14 %G00B G25B G50B G75G B00R B25R B50R B75R R00Y 16 20 24 28 32 36 40 44 0 ] def /LAB*Ldd18M 17 array def /LAB*add18M 17 array def /LAB*bdd18M 17 array def /LAB*Cdd18M 17 array def /LAB*hdd18M 17 array def /hab*dd18M 17 array def 0 1 16 {/i exch def %i=0,16 /indi ind64M i get def LAB*Ldd18M i LAB*Ldd64M indi get put LAB*add18M i LAB*add64M indi get put LAB*bdd18M i LAB*bdd64M indi get put LAB*Cdd18M i LAB*Cdd64M indi get put LAB*hdd18M i LAB*hdd64M indi get put hab*dd18M i hab*dd64M indi get put } for %i=0,16 } bind def %END proc_LAB*LabCh64M_to_tab362_dy %***************************************************************************** %END Procedure PROC_SPEC_IOF Colour special for NP-file 20120401 %***************************************************************************** /FileDaten (Laser printer output; separation cmyn6*, D65) def /FileDatde (Laserdrucker\255Ausgabe; Separation cmyn6*, D65) def /RGB0_F 3240 array def %1080*3 /RGB0_F [%1000 x rgb* nr. pos 1080 colours 0000 0000 0000 %0000 A01 0000 0000 0125 %0001 A02 0000 0000 0250 %0002 A03 0000 0000 0375 %0003 A04 0000 0000 0500 %0004 A05 0000 0000 0625 %0005 A06 0000 0000 0750 %0006 A07 0000 0000 0875 %0007 A08 0000 0000 1000 %0008 A09 0000 0125 0000 %0009 B01 0000 0125 0125 %0010 B02 0000 0125 0250 %0011 B03 0000 0125 0375 %0012 B04 0000 0125 0500 %0013 B05 0000 0125 0625 %0014 B06 0000 0125 0750 %0015 B07 0000 0125 0875 %0016 B08 0000 0125 1000 %0017 B09 0000 0250 0000 %0018 C01 0000 0250 0125 %0019 C02 0000 0250 0250 %0020 C03 0000 0250 0375 %0021 C04 0000 0250 0500 %0022 C05 0000 0250 0625 %0023 C06 0000 0250 0750 %0024 C07 0000 0250 0875 %0025 C08 0000 0250 1000 %0026 C09 0000 0375 0000 %0027 D01 0000 0375 0125 %0028 D02 0000 0375 0250 %0029 D03 0000 0375 0375 %0030 D04 0000 0375 0500 %0031 D05 0000 0375 0625 %0032 D06 0000 0375 0750 %0033 D07 0000 0375 0875 %0034 D08 0000 0375 1000 %0035 D09 0000 0500 0000 %0036 E01 0000 0500 0125 %0037 E02 0000 0500 0250 %0038 E03 0000 0500 0375 %0039 E04 0000 0500 0500 %0040 E05 0000 0500 0625 %0041 E06 0000 0500 0750 %0042 E07 0000 0500 0875 %0043 E08 0000 0500 1000 %0044 E09 0000 0625 0000 %0045 F01 0000 0625 0125 %0046 F02 0000 0625 0250 %0047 F03 0000 0625 0375 %0048 F04 0000 0625 0500 %0049 F05 0000 0625 0625 %0050 F06 0000 0625 0750 %0051 F07 0000 0625 0875 %0052 F08 0000 0625 1000 %0053 F09 0000 0750 0000 %0054 G01 0000 0750 0125 %0055 G02 0000 0750 0250 %0056 G03 0000 0750 0375 %0057 G04 0000 0750 0500 %0058 G05 0000 0750 0625 %0059 G06 0000 0750 0750 %0060 G07 0000 0750 0875 %0061 G08 0000 0750 1000 %0062 G09 0000 0875 0000 %0063 H01 0000 0875 0125 %0064 H02 0000 0875 0250 %0065 H03 0000 0875 0375 %0066 H04 0000 0875 0500 %0067 H05 0000 0875 0625 %0068 H06 0000 0875 0750 %0069 H07 0000 0875 0875 %0070 H08 0000 0875 1000 %0071 H09 0000 1000 0000 %0072 I01 0000 1000 0125 %0073 I02 0000 1000 0250 %0074 I03 0000 1000 0375 %0075 I04 0000 1000 0500 %0076 I05 0000 1000 0625 %0077 I06 0000 1000 0750 %0078 I07 0000 1000 0875 %0079 I08 0000 1000 1000 %0080 I09 0125 0000 0000 %0081 J01 0125 0000 0125 %0082 J02 0125 0000 0250 %0083 J03 0125 0000 0375 %0084 J04 0125 0000 0500 %0085 J05 0125 0000 0625 %0086 J06 0125 0000 0750 %0087 J07 0125 0000 0875 %0088 J08 0125 0000 1000 %0089 J09 0125 0125 0000 %0090 K01 0125 0125 0125 %0091 K02 0125 0125 0250 %0092 K03 0125 0125 0375 %0093 K04 0125 0125 0500 %0094 K05 0125 0125 0625 %0095 K06 0125 0125 0750 %0096 K07 0125 0125 0875 %0097 K08 0125 0125 1000 %0098 K09 0125 0250 0000 %0099 L01 0125 0250 0125 %0100 L02 0125 0250 0250 %0101 L03 0125 0250 0375 %0102 L04 0125 0250 0500 %0103 L05 0125 0250 0625 %0104 L06 0125 0250 0750 %0105 L07 0125 0250 0875 %0106 L08 0125 0250 1000 %0107 L09 0125 0375 0000 %0108 M01 0125 0375 0125 %0109 M02 0125 0375 0250 %0110 M03 0125 0375 0375 %0111 M04 0125 0375 0500 %0112 M05 0125 0375 0625 %0113 M06 0125 0375 0750 %0114 M07 0125 0375 0875 %0115 M08 0125 0375 1000 %0116 M09 0125 0500 0000 %0117 N01 0125 0500 0125 %0118 N02 0125 0500 0250 %0119 N03 0125 0500 0375 %0120 N04 0125 0500 0500 %0121 N05 0125 0500 0625 %0122 N06 0125 0500 0750 %0123 N07 0125 0500 0875 %0124 N08 0125 0500 1000 %0125 N09 0125 0625 0000 %0126 O01 0125 0625 0125 %0127 O02 0125 0625 0250 %0128 O03 0125 0625 0375 %0129 O04 0125 0625 0500 %0130 O05 0125 0625 0625 %0131 O06 0125 0625 0750 %0132 O07 0125 0625 0875 %0133 O08 0125 0625 1000 %0134 O09 0125 0750 0000 %0135 P01 0125 0750 0125 %0136 P02 0125 0750 0250 %0137 P03 0125 0750 0375 %0138 P04 0125 0750 0500 %0139 P05 0125 0750 0625 %0140 P06 0125 0750 0750 %0141 P07 0125 0750 0875 %0142 P08 0125 0750 1000 %0143 P09 0125 0875 0000 %0144 Q01 0125 0875 0125 %0145 Q02 0125 0875 0250 %0146 Q03 0125 0875 0375 %0147 Q04 0125 0875 0500 %0148 Q05 0125 0875 0625 %0149 Q06 0125 0875 0750 %0150 Q07 0125 0875 0875 %0151 Q08 0125 0875 1000 %0152 Q09 0125 1000 0000 %0153 R01 0125 1000 0125 %0154 R02 0125 1000 0250 %0155 R03 0125 1000 0375 %0156 R04 0125 1000 0500 %0157 R05 0125 1000 0625 %0158 R06 0125 1000 0750 %0159 R07 0125 1000 0875 %0160 R08 0125 1000 1000 %0161 R09 0250 0000 0000 %0162 S01 0250 0000 0125 %0163 S02 0250 0000 0250 %0164 S03 0250 0000 0375 %0165 S04 0250 0000 0500 %0166 S05 0250 0000 0625 %0167 S06 0250 0000 0750 %0168 S07 0250 0000 0875 %0169 S08 0250 0000 1000 %0170 S09 0250 0125 0000 %0171 T01 0250 0125 0125 %0172 T02 0250 0125 0250 %0173 T03 0250 0125 0375 %0174 T04 0250 0125 0500 %0175 T05 0250 0125 0625 %0176 T06 0250 0125 0750 %0177 T07 0250 0125 0875 %0178 T08 0250 0125 1000 %0179 T09 0250 0250 0000 %0180 U01 0250 0250 0125 %0181 U02 0250 0250 0250 %0182 U03 0250 0250 0375 %0183 U04 0250 0250 0500 %0184 U05 0250 0250 0625 %0185 U06 0250 0250 0750 %0186 U07 0250 0250 0875 %0187 U08 0250 0250 1000 %0188 U09 0250 0375 0000 %0189 V01 0250 0375 0125 %0190 V02 0250 0375 0250 %0191 V03 0250 0375 0375 %0192 V04 0250 0375 0500 %0193 V05 0250 0375 0625 %0194 V06 0250 0375 0750 %0195 V07 0250 0375 0875 %0196 V08 0250 0375 1000 %0197 V09 0250 0500 0000 %0198 W01 0250 0500 0125 %0199 W02 0250 0500 0250 %0200 W03 0250 0500 0375 %0201 W04 0250 0500 0500 %0202 W05 0250 0500 0625 %0203 W06 0250 0500 0750 %0204 W07 0250 0500 0875 %0205 W08 0250 0500 1000 %0206 W09 0250 0625 0000 %0207 X01 0250 0625 0125 %0208 X02 0250 0625 0250 %0209 X03 0250 0625 0375 %0210 X04 0250 0625 0500 %0211 X05 0250 0625 0625 %0212 X06 0250 0625 0750 %0213 X07 0250 0625 0875 %0214 X08 0250 0625 1000 %0215 X09 0250 0750 0000 %0216 Y01 0250 0750 0125 %0217 Y02 0250 0750 0250 %0218 Y03 0250 0750 0375 %0219 Y04 0250 0750 0500 %0220 Y05 0250 0750 0625 %0221 Y06 0250 0750 0750 %0222 Y07 0250 0750 0875 %0223 Y08 0250 0750 1000 %0224 Y09 0250 0875 0000 %0225 Z01 0250 0875 0125 %0226 Z02 0250 0875 0250 %0227 Z03 0250 0875 0375 %0228 Z04 0250 0875 0500 %0229 Z05 0250 0875 0625 %0230 Z06 0250 0875 0750 %0231 Z07 0250 0875 0875 %0232 Z08 0250 0875 1000 %0233 Z09 0250 1000 0000 %0234 a01 0250 1000 0125 %0235 a02 0250 1000 0250 %0236 a03 0250 1000 0375 %0237 a04 0250 1000 0500 %0238 a05 0250 1000 0625 %0239 a06 0250 1000 0750 %0240 a07 0250 1000 0875 %0241 a08 0250 1000 1000 %0242 a09 0375 0000 0000 %0243 A10 0375 0000 0125 %0244 A11 0375 0000 0250 %0245 A12 0375 0000 0375 %0246 A13 0375 0000 0500 %0247 A14 0375 0000 0625 %0248 A15 0375 0000 0750 %0249 A16 0375 0000 0875 %0250 A17 0375 0000 1000 %0251 A18 0375 0125 0000 %0252 B10 0375 0125 0125 %0253 B11 0375 0125 0250 %0254 B12 0375 0125 0375 %0255 B13 0375 0125 0500 %0256 B14 0375 0125 0625 %0257 B15 0375 0125 0750 %0258 B16 0375 0125 0875 %0259 B17 0375 0125 1000 %0260 B18 0375 0250 0000 %0261 C10 0375 0250 0125 %0262 C11 0375 0250 0250 %0263 C12 0375 0250 0375 %0264 C13 0375 0250 0500 %0265 C14 0375 0250 0625 %0266 C15 0375 0250 0750 %0267 C16 0375 0250 0875 %0268 C17 0375 0250 1000 %0269 C18 0375 0375 0000 %0270 D10 0375 0375 0125 %0271 D11 0375 0375 0250 %0272 D12 0375 0375 0375 %0273 D13 0375 0375 0500 %0274 D14 0375 0375 0625 %0275 D15 0375 0375 0750 %0276 D16 0375 0375 0875 %0277 D17 0375 0375 1000 %0278 D18 0375 0500 0000 %0279 E10 0375 0500 0125 %0280 E11 0375 0500 0250 %0281 E12 0375 0500 0375 %0282 E13 0375 0500 0500 %0283 E14 0375 0500 0625 %0284 E15 0375 0500 0750 %0285 E16 0375 0500 0875 %0286 E17 0375 0500 1000 %0287 E18 0375 0625 0000 %0288 F10 0375 0625 0125 %0289 F11 0375 0625 0250 %0290 F12 0375 0625 0375 %0291 F13 0375 0625 0500 %0292 F14 0375 0625 0625 %0293 F15 0375 0625 0750 %0294 F16 0375 0625 0875 %0295 F17 0375 0625 1000 %0296 F18 0375 0750 0000 %0297 G10 0375 0750 0125 %0298 G11 0375 0750 0250 %0299 G12 0375 0750 0375 %0300 G13 0375 0750 0500 %0301 G14 0375 0750 0625 %0302 G15 0375 0750 0750 %0303 G16 0375 0750 0875 %0304 G17 0375 0750 1000 %0305 G18 0375 0875 0000 %0306 H10 0375 0875 0125 %0307 H11 0375 0875 0250 %0308 H12 0375 0875 0375 %0309 H13 0375 0875 0500 %0310 H14 0375 0875 0625 %0311 H15 0375 0875 0750 %0312 H16 0375 0875 0875 %0313 H17 0375 0875 1000 %0314 H18 0375 1000 0000 %0315 I10 0375 1000 0125 %0316 I11 0375 1000 0250 %0317 I12 0375 1000 0375 %0318 I13 0375 1000 0500 %0319 I14 0375 1000 0625 %0320 I15 0375 1000 0750 %0321 I16 0375 1000 0875 %0322 I17 0375 1000 1000 %0323 I18 0500 0000 0000 %0324 J10 0500 0000 0125 %0325 J11 0500 0000 0250 %0326 J12 0500 0000 0375 %0327 J13 0500 0000 0500 %0328 J14 0500 0000 0625 %0329 J15 0500 0000 0750 %0330 J16 0500 0000 0875 %0331 J17 0500 0000 1000 %0332 J18 0500 0125 0000 %0333 K10 0500 0125 0125 %0334 K11 0500 0125 0250 %0335 K12 0500 0125 0375 %0336 K13 0500 0125 0500 %0337 K14 0500 0125 0625 %0338 K15 0500 0125 0750 %0339 K16 0500 0125 0875 %0340 K17 0500 0125 1000 %0341 K18 0500 0250 0000 %0342 L10 0500 0250 0125 %0343 L11 0500 0250 0250 %0344 L12 0500 0250 0375 %0345 L13 0500 0250 0500 %0346 L14 0500 0250 0625 %0347 L15 0500 0250 0750 %0348 L16 0500 0250 0875 %0349 L17 0500 0250 1000 %0350 L18 0500 0375 0000 %0351 M10 0500 0375 0125 %0352 M11 0500 0375 0250 %0353 M12 0500 0375 0375 %0354 M13 0500 0375 0500 %0355 M14 0500 0375 0625 %0356 M15 0500 0375 0750 %0357 M16 0500 0375 0875 %0358 M17 0500 0375 1000 %0359 M18 0500 0500 0000 %0360 N10 0500 0500 0125 %0361 N11 0500 0500 0250 %0362 N12 0500 0500 0375 %0363 N13 0500 0500 0500 %0364 N14 0500 0500 0625 %0365 N15 0500 0500 0750 %0366 N16 0500 0500 0875 %0367 N17 0500 0500 1000 %0368 N18 0500 0625 0000 %0369 O10 0500 0625 0125 %0370 O11 0500 0625 0250 %0371 O12 0500 0625 0375 %0372 O13 0500 0625 0500 %0373 O14 0500 0625 0625 %0374 O15 0500 0625 0750 %0375 O16 0500 0625 0875 %0376 O17 0500 0625 1000 %0377 O18 0500 0750 0000 %0378 P10 0500 0750 0125 %0379 P11 0500 0750 0250 %0380 P12 0500 0750 0375 %0381 P13 0500 0750 0500 %0382 P14 0500 0750 0625 %0383 P15 0500 0750 0750 %0384 P16 0500 0750 0875 %0385 P17 0500 0750 1000 %0386 P18 0500 0875 0000 %0387 Q10 0500 0875 0125 %0388 Q11 0500 0875 0250 %0389 Q12 0500 0875 0375 %0390 Q13 0500 0875 0500 %0391 Q14 0500 0875 0625 %0392 Q15 0500 0875 0750 %0393 Q16 0500 0875 0875 %0394 Q17 0500 0875 1000 %0395 Q18 0500 1000 0000 %0396 R10 0500 1000 0125 %0397 R11 0500 1000 0250 %0398 R12 0500 1000 0375 %0399 R13 0500 1000 0500 %0400 R14 0500 1000 0625 %0401 R15 0500 1000 0750 %0402 R16 0500 1000 0875 %0403 R17 0500 1000 1000 %0404 R18 0625 0000 0000 %0405 S10 0625 0000 0125 %0406 S11 0625 0000 0250 %0407 S12 0625 0000 0375 %0408 S13 0625 0000 0500 %0409 S14 0625 0000 0625 %0410 S15 0625 0000 0750 %0411 S16 0625 0000 0875 %0412 S17 0625 0000 1000 %0413 S18 0625 0125 0000 %0414 T10 0625 0125 0125 %0415 T11 0625 0125 0250 %0416 T12 0625 0125 0375 %0417 T13 0625 0125 0500 %0418 T14 0625 0125 0625 %0419 T15 0625 0125 0750 %0420 T16 0625 0125 0875 %0421 T17 0625 0125 1000 %0422 T18 0625 0250 0000 %0423 U10 0625 0250 0125 %0424 U11 0625 0250 0250 %0425 U12 0625 0250 0375 %0426 U13 0625 0250 0500 %0427 U14 0625 0250 0625 %0428 U15 0625 0250 0750 %0429 U16 0625 0250 0875 %0430 U17 0625 0250 1000 %0431 U18 0625 0375 0000 %0432 V10 0625 0375 0125 %0433 V11 0625 0375 0250 %0434 V12 0625 0375 0375 %0435 V13 0625 0375 0500 %0436 V14 0625 0375 0625 %0437 V15 0625 0375 0750 %0438 V16 0625 0375 0875 %0439 V17 0625 0375 1000 %0440 V18 0625 0500 0000 %0441 W10 0625 0500 0125 %0442 W11 0625 0500 0250 %0443 W12 0625 0500 0375 %0444 W13 0625 0500 0500 %0445 W14 0625 0500 0625 %0446 W15 0625 0500 0750 %0447 W16 0625 0500 0875 %0448 W17 0625 0500 1000 %0449 W18 0625 0625 0000 %0450 X10 0625 0625 0125 %0451 X11 0625 0625 0250 %0452 X12 0625 0625 0375 %0453 X13 0625 0625 0500 %0454 X14 0625 0625 0625 %0455 X15 0625 0625 0750 %0456 X16 0625 0625 0875 %0457 X17 0625 0625 1000 %0458 X18 0625 0750 0000 %0459 Y10 0625 0750 0125 %0460 Y11 0625 0750 0250 %0461 Y12 0625 0750 0375 %0462 Y13 0625 0750 0500 %0463 Y14 0625 0750 0625 %0464 Y15 0625 0750 0750 %0465 Y16 0625 0750 0875 %0466 Y17 0625 0750 1000 %0467 Y18 0625 0875 0000 %0468 Z10 0625 0875 0125 %0469 Z11 0625 0875 0250 %0470 Z12 0625 0875 0375 %0471 Z13 0625 0875 0500 %0472 Z14 0625 0875 0625 %0473 Z15 0625 0875 0750 %0474 Z16 0625 0875 0875 %0475 Z17 0625 0875 1000 %0476 Z18 0625 1000 0000 %0477 a10 0625 1000 0125 %0478 a11 0625 1000 0250 %0479 a12 0625 1000 0375 %0480 a13 0625 1000 0500 %0481 a14 0625 1000 0625 %0482 a15 0625 1000 0750 %0483 a16 0625 1000 0875 %0484 a17 0625 1000 1000 %0485 a18 0750 0000 0000 %0486 A19 0750 0000 0125 %0487 A20 0750 0000 0250 %0488 A21 0750 0000 0375 %0489 A22 0750 0000 0500 %0490 A23 0750 0000 0625 %0491 A24 0750 0000 0750 %0492 A25 0750 0000 0875 %0493 A26 0750 0000 1000 %0494 A27 0750 0125 0000 %0495 B19 0750 0125 0125 %0496 B20 0750 0125 0250 %0497 B21 0750 0125 0375 %0498 B22 0750 0125 0500 %0499 B23 0750 0125 0625 %0500 B24 0750 0125 0750 %0501 B25 0750 0125 0875 %0502 B26 0750 0125 1000 %0503 B27 0750 0250 0000 %0504 C19 0750 0250 0125 %0505 C20 0750 0250 0250 %0506 C21 0750 0250 0375 %0507 C22 0750 0250 0500 %0508 C23 0750 0250 0625 %0509 C24 0750 0250 0750 %0510 C25 0750 0250 0875 %0511 C26 0750 0250 1000 %0512 C27 0750 0375 0000 %0513 D19 0750 0375 0125 %0514 D20 0750 0375 0250 %0515 D21 0750 0375 0375 %0516 D22 0750 0375 0500 %0517 D23 0750 0375 0625 %0518 D24 0750 0375 0750 %0519 D25 0750 0375 0875 %0520 D26 0750 0375 1000 %0521 D27 0750 0500 0000 %0522 E19 0750 0500 0125 %0523 E20 0750 0500 0250 %0524 E21 0750 0500 0375 %0525 E22 0750 0500 0500 %0526 E23 0750 0500 0625 %0527 E24 0750 0500 0750 %0528 E25 0750 0500 0875 %0529 E26 0750 0500 1000 %0530 E27 0750 0625 0000 %0531 F19 0750 0625 0125 %0532 F20 0750 0625 0250 %0533 F21 0750 0625 0375 %0534 F22 0750 0625 0500 %0535 F23 0750 0625 0625 %0536 F24 0750 0625 0750 %0537 F25 0750 0625 0875 %0538 F26 0750 0625 1000 %0539 F27 0750 0750 0000 %0540 G19 0750 0750 0125 %0541 G20 0750 0750 0250 %0542 G21 0750 0750 0375 %0543 G22 0750 0750 0500 %0544 G23 0750 0750 0625 %0545 G24 0750 0750 0750 %0546 G25 0750 0750 0875 %0547 G26 0750 0750 1000 %0548 G27 0750 0875 0000 %0549 H19 0750 0875 0125 %0550 H20 0750 0875 0250 %0551 H21 0750 0875 0375 %0552 H22 0750 0875 0500 %0553 H23 0750 0875 0625 %0554 H24 0750 0875 0750 %0555 H25 0750 0875 0875 %0556 H26 0750 0875 1000 %0557 H27 0750 1000 0000 %0558 I19 0750 1000 0125 %0559 I20 0750 1000 0250 %0560 I21 0750 1000 0375 %0561 I22 0750 1000 0500 %0562 I23 0750 1000 0625 %0563 I24 0750 1000 0750 %0564 I25 0750 1000 0875 %0565 I26 0750 1000 1000 %0566 I27 0875 0000 0000 %0567 J19 0875 0000 0125 %0568 J20 0875 0000 0250 %0569 J21 0875 0000 0375 %0570 J22 0875 0000 0500 %0571 J23 0875 0000 0625 %0572 J24 0875 0000 0750 %0573 J25 0875 0000 0875 %0574 J26 0875 0000 1000 %0575 J27 0875 0125 0000 %0576 K19 0875 0125 0125 %0577 K20 0875 0125 0250 %0578 K21 0875 0125 0375 %0579 K22 0875 0125 0500 %0580 K23 0875 0125 0625 %0581 K24 0875 0125 0750 %0582 K25 0875 0125 0875 %0583 K26 0875 0125 1000 %0584 K27 0875 0250 0000 %0585 L19 0875 0250 0125 %0586 L20 0875 0250 0250 %0587 L21 0875 0250 0375 %0588 L22 0875 0250 0500 %0589 L23 0875 0250 0625 %0590 L24 0875 0250 0750 %0591 L25 0875 0250 0875 %0592 L26 0875 0250 1000 %0593 L27 0875 0375 0000 %0594 M19 0875 0375 0125 %0595 M20 0875 0375 0250 %0596 M21 0875 0375 0375 %0597 M22 0875 0375 0500 %0598 M23 0875 0375 0625 %0599 M24 0875 0375 0750 %0600 M25 0875 0375 0875 %0601 M26 0875 0375 1000 %0602 M27 0875 0500 0000 %0603 N19 0875 0500 0125 %0604 N20 0875 0500 0250 %0605 N21 0875 0500 0375 %0606 N22 0875 0500 0500 %0607 N23 0875 0500 0625 %0608 N24 0875 0500 0750 %0609 N25 0875 0500 0875 %0610 N26 0875 0500 1000 %0611 N27 0875 0625 0000 %0612 O19 0875 0625 0125 %0613 O20 0875 0625 0250 %0614 O21 0875 0625 0375 %0615 O22 0875 0625 0500 %0616 O23 0875 0625 0625 %0617 O24 0875 0625 0750 %0618 O25 0875 0625 0875 %0619 O26 0875 0625 1000 %0620 O27 0875 0750 0000 %0621 P19 0875 0750 0125 %0622 P20 0875 0750 0250 %0623 P21 0875 0750 0375 %0624 P22 0875 0750 0500 %0625 P23 0875 0750 0625 %0626 P24 0875 0750 0750 %0627 P25 0875 0750 0875 %0628 P26 0875 0750 1000 %0629 P27 0875 0875 0000 %0630 Q19 0875 0875 0125 %0631 Q20 0875 0875 0250 %0632 Q21 0875 0875 0375 %0633 Q22 0875 0875 0500 %0634 Q23 0875 0875 0625 %0635 Q24 0875 0875 0750 %0636 Q25 0875 0875 0875 %0637 Q26 0875 0875 1000 %0638 Q27 0875 1000 0000 %0639 R19 0875 1000 0125 %0640 R20 0875 1000 0250 %0641 R21 0875 1000 0375 %0642 R22 0875 1000 0500 %0643 R23 0875 1000 0625 %0644 R24 0875 1000 0750 %0645 R25 0875 1000 0875 %0646 R26 0875 1000 1000 %0647 R27 1000 0000 0000 %0648 S19 1000 0000 0125 %0649 S20 1000 0000 0250 %0650 S21 1000 0000 0375 %0651 S22 1000 0000 0500 %0652 S23 1000 0000 0625 %0653 S24 1000 0000 0750 %0654 S25 1000 0000 0875 %0655 S26 1000 0000 1000 %0656 S27 1000 0125 0000 %0657 T19 1000 0125 0125 %0658 T20 1000 0125 0250 %0659 T21 1000 0125 0375 %0660 T22 1000 0125 0500 %0661 T23 1000 0125 0625 %0662 T24 1000 0125 0750 %0663 T25 1000 0125 0875 %0664 T26 1000 0125 1000 %0665 T27 1000 0250 0000 %0666 U19 1000 0250 0125 %0667 U20 1000 0250 0250 %0668 U21 1000 0250 0375 %0669 U22 1000 0250 0500 %0670 U23 1000 0250 0625 %0671 U24 1000 0250 0750 %0672 U25 1000 0250 0875 %0673 U26 1000 0250 1000 %0674 U27 1000 0375 0000 %0675 V19 1000 0375 0125 %0676 V20 1000 0375 0250 %0677 V21 1000 0375 0375 %0678 V22 1000 0375 0500 %0679 V23 1000 0375 0625 %0680 V24 1000 0375 0750 %0681 V25 1000 0375 0875 %0682 V26 1000 0375 1000 %0683 V27 1000 0500 0000 %0684 W19 1000 0500 0125 %0685 W20 1000 0500 0250 %0686 W21 1000 0500 0375 %0687 W22 1000 0500 0500 %0688 W23 1000 0500 0625 %0689 W24 1000 0500 0750 %0690 W25 1000 0500 0875 %0691 W26 1000 0500 1000 %0692 W27 1000 0625 0000 %0693 X19 1000 0625 0125 %0694 X20 1000 0625 0250 %0695 X21 1000 0625 0375 %0696 X22 1000 0625 0500 %0697 X23 1000 0625 0625 %0698 X24 1000 0625 0750 %0699 X25 1000 0625 0875 %0700 X26 1000 0625 1000 %0701 X27 1000 0750 0000 %0702 Y19 1000 0750 0125 %0703 Y20 1000 0750 0250 %0704 Y21 1000 0750 0375 %0705 Y22 1000 0750 0500 %0706 Y23 1000 0750 0625 %0707 Y24 1000 0750 0750 %0708 Y25 1000 0750 0875 %0709 Y26 1000 0750 1000 %0710 Y27 1000 0875 0000 %0711 Z19 1000 0875 0125 %0712 Z20 1000 0875 0250 %0713 Z21 1000 0875 0375 %0714 Z22 1000 0875 0500 %0715 Z23 1000 0875 0625 %0716 Z24 1000 0875 0750 %0717 Z25 1000 0875 0875 %0718 Z26 1000 0875 1000 %0719 Z27 1000 1000 0000 %0720 a19 1000 1000 0125 %0721 a20 1000 1000 0250 %0722 a21 1000 1000 0375 %0723 a22 1000 1000 0500 %0724 a23 1000 1000 0625 %0725 a24 1000 1000 0750 %0726 a25 1000 1000 0875 %0727 a26 1000 1000 1000 %0728 a27 1000 1000 1000 %0729 b01 0875 1000 1000 %0730 b02 0750 1000 1000 %0731 b03 0625 1000 1000 %0732 b04 0500 1000 1000 %0733 b05 0375 1000 1000 %0734 b06 0250 1000 1000 %0735 b07 0125 1000 1000 %0736 b08 0000 1000 1000 %0737 b09 1000 0875 0875 %0738 c01 0875 0875 0875 %0739 c02 0750 0875 0875 %0740 c03 0625 0875 0875 %0741 c04 0500 0875 0875 %0742 c05 0375 0875 0875 %0743 c06 0250 0875 0875 %0744 c07 0125 0875 0875 %0745 c08 0000 0875 0875 %0746 c09 1000 0750 0750 %0747 d01 0875 0750 0750 %0748 d02 0750 0750 0750 %0749 d03 0625 0750 0750 %0750 d04 0500 0750 0750 %0751 d05 0375 0750 0750 %0752 d06 0250 0750 0750 %0753 d07 0125 0750 0750 %0754 d08 0000 0750 0750 %0755 d09 1000 0625 0625 %0756 e01 0875 0625 0625 %0757 e02 0750 0625 0625 %0758 e03 0625 0625 0625 %0759 e04 0500 0625 0625 %0760 e05 0375 0625 0625 %0761 e06 0250 0625 0625 %0762 e07 0125 0625 0625 %0763 e08 0000 0625 0625 %0764 e09 1000 0500 0500 %0765 f01 0875 0500 0500 %0766 f02 0750 0500 0500 %0767 f03 0625 0500 0500 %0768 f04 0500 0500 0500 %0769 f05 0375 0500 0500 %0770 f06 0250 0500 0500 %0771 f07 0125 0500 0500 %0772 f08 0000 0500 0500 %0773 f09 1000 0375 0375 %0774 g01 0875 0375 0375 %0775 g02 0750 0375 0375 %0776 g03 0625 0375 0375 %0777 g04 0500 0375 0375 %0778 g05 0375 0375 0375 %0779 g06 0250 0375 0375 %0780 g07 0125 0375 0375 %0781 g08 0000 0375 0375 %0782 g09 1000 0250 0250 %0783 h01 0875 0250 0250 %0784 h02 0750 0250 0250 %0785 h03 0625 0250 0250 %0786 h04 0500 0250 0250 %0787 h05 0375 0250 0250 %0788 h06 0250 0250 0250 %0789 h07 0125 0250 0250 %0790 h08 0000 0250 0250 %0791 h09 1000 0125 0125 %0792 i01 0875 0125 0125 %0793 i02 0750 0125 0125 %0794 i03 0625 0125 0125 %0795 i04 0500 0125 0125 %0796 i05 0375 0125 0125 %0797 i06 0250 0125 0125 %0798 i07 0125 0125 0125 %0799 i08 0000 0125 0125 %0800 i09 1000 0000 0000 %0801 j01 0875 0000 0000 %0802 j02 0750 0000 0000 %0803 j03 0625 0000 0000 %0804 j04 0500 0000 0000 %0805 j05 0375 0000 0000 %0806 j06 0250 0000 0000 %0807 j07 0125 0000 0000 %0808 j08 0000 0000 0000 %0809 j09 1000 1000 1000 %0810 b10 0875 0875 1000 %0811 b11 0750 0750 1000 %0812 b12 0625 0625 1000 %0813 b13 0500 0500 1000 %0814 b14 0375 0375 1000 %0815 b15 0250 0250 1000 %0816 b16 0125 0125 1000 %0817 b17 0000 0000 1000 %0818 b18 1000 1000 0875 %0819 c10 0875 0875 0875 %0820 c11 0750 0750 0875 %0821 c12 0625 0625 0875 %0822 c13 0500 0500 0875 %0823 c14 0375 0375 0875 %0824 c15 0250 0250 0875 %0825 c16 0125 0125 0875 %0826 c17 0000 0000 0875 %0827 c18 1000 1000 0750 %0828 d10 0875 0875 0750 %0829 d11 0750 0750 0750 %0830 d12 0625 0625 0750 %0831 d13 0500 0500 0750 %0832 d14 0375 0375 0750 %0833 d15 0250 0250 0750 %0834 d16 0125 0125 0750 %0835 d17 0000 0000 0750 %0836 d18 1000 1000 0625 %0837 e10 0875 0875 0625 %0838 e11 0750 0750 0625 %0839 e12 0625 0625 0625 %0840 e13 0500 0500 0625 %0841 e14 0375 0375 0625 %0842 e15 0250 0250 0625 %0843 e16 0125 0125 0625 %0844 e17 0000 0000 0625 %0845 e18 1000 1000 0500 %0846 f10 0875 0875 0500 %0847 f11 0750 0750 0500 %0848 f12 0625 0625 0500 %0849 f13 0500 0500 0500 %0850 f14 0375 0375 0500 %0851 f15 0250 0250 0500 %0852 f16 0125 0125 0500 %0853 f17 0000 0000 0500 %0854 f18 1000 1000 0375 %0855 g10 0875 0875 0375 %0856 g11 0750 0750 0375 %0857 g12 0625 0625 0375 %0858 g13 0500 0500 0375 %0859 g14 0375 0375 0375 %0860 g15 0250 0250 0375 %0861 g16 0125 0125 0375 %0862 g17 0000 0000 0375 %0863 g18 1000 1000 0250 %0864 h10 0875 0875 0250 %0865 h11 0750 0750 0250 %0866 h12 0625 0625 0250 %0867 h13 0500 0500 0250 %0868 h14 0375 0375 0250 %0869 h15 0250 0250 0250 %0870 h16 0125 0125 0250 %0871 h17 0000 0000 0250 %0872 h18 1000 1000 0125 %0873 i10 0875 0875 0125 %0874 i11 0750 0750 0125 %0875 i12 0625 0625 0125 %0876 i13 0500 0500 0125 %0877 i14 0375 0375 0125 %0878 i15 0250 0250 0125 %0879 i16 0125 0125 0125 %0880 i17 0000 0000 0125 %0881 i18 1000 1000 0000 %0882 j10 0875 0875 0000 %0883 j11 0750 0750 0000 %0884 j12 0625 0625 0000 %0885 j13 0500 0500 0000 %0886 j14 0375 0375 0000 %0887 j15 0250 0250 0000 %0888 j16 0125 0125 0000 %0889 j17 0000 0000 0000 %0890 j18 1000 1000 1000 %0891 b19 1000 0875 1000 %0892 b20 1000 0750 1000 %0893 b21 1000 0625 1000 %0894 b22 1000 0500 1000 %0895 b23 1000 0375 1000 %0896 b24 1000 0250 1000 %0897 b25 1000 0125 1000 %0898 b26 1000 0000 1000 %0899 b27 0875 1000 0875 %0900 c19 0875 0875 0875 %0901 c20 0875 0750 0875 %0902 c21 0875 0625 0875 %0903 c22 0875 0500 0875 %0904 c23 0875 0375 0875 %0905 c24 0875 0250 0875 %0906 c25 0875 0125 0875 %0907 c26 0875 0000 0875 %0908 c27 0750 1000 0750 %0909 d19 0750 0875 0750 %0910 d20 0750 0750 0750 %0911 d21 0750 0625 0750 %0912 d22 0750 0500 0750 %0913 d23 0750 0375 0750 %0914 d24 0750 0250 0750 %0915 d25 0750 0125 0750 %0916 d26 0750 0000 0750 %0917 d27 0625 1000 0625 %0918 e19 0625 0875 0625 %0919 e20 0625 0750 0625 %0920 e21 0625 0625 0625 %0921 e22 0625 0500 0625 %0922 e23 0625 0375 0625 %0923 e24 0625 0250 0625 %0924 e25 0625 0125 0625 %0925 e26 0625 0000 0625 %0926 e27 0500 1000 0500 %0927 f19 0500 0875 0500 %0928 f20 0500 0750 0500 %0929 f21 0500 0625 0500 %0930 f22 0500 0500 0500 %0931 f23 0500 0375 0500 %0932 f24 0500 0250 0500 %0933 f25 0500 0125 0500 %0934 f26 0500 0000 0500 %0935 f27 0375 1000 0375 %0936 g19 0375 0875 0375 %0937 g20 0375 0750 0375 %0938 g21 0375 0625 0375 %0939 g22 0375 0500 0375 %0940 g23 0375 0375 0375 %0941 g24 0375 0250 0375 %0942 g25 0375 0125 0375 %0943 g26 0375 0000 0375 %0944 g27 0250 1000 0250 %0945 h19 0250 0875 0250 %0946 h20 0250 0750 0250 %0947 h21 0250 0625 0250 %0948 h22 0250 0500 0250 %0949 h23 0250 0375 0250 %0950 h24 0250 0250 0250 %0951 h25 0250 0125 0250 %0952 h26 0250 0000 0250 %0953 h27 0125 1000 0125 %0954 i19 0125 0875 0125 %0955 i20 0125 0750 0125 %0956 i21 0125 0625 0125 %0957 i22 0125 0500 0125 %0958 i23 0125 0375 0125 %0959 i24 0125 0250 0125 %0960 i25 0125 0125 0125 %0961 i26 0125 0000 0125 %0962 i27 0000 1000 0000 %0963 j19 0000 0875 0000 %0964 j20 0000 0750 0000 %0965 j21 0000 0625 0000 %0966 j22 0000 0500 0000 %0967 j23 0000 0375 0000 %0968 j24 0000 0250 0000 %0969 j25 0000 0125 0000 %0970 j26 0000 0000 0000 %0971 j27 0000 0000 0000 %0972 k01 0125 0125 0125 %0973 k02 0250 0250 0250 %0974 k03 0375 0375 0375 %0975 k04 0500 0500 0500 %0976 k05 0625 0625 0625 %0977 k06 0750 0750 0750 %0978 k07 0875 0875 0875 %0979 k08 1000 1000 1000 %0980 k09 0000 0000 0000 %0981 l01 0125 0125 0125 %0982 l02 0250 0250 0250 %0983 l03 0375 0375 0375 %0984 l04 0500 0500 0500 %0985 l05 0625 0625 0625 %0986 l06 0750 0750 0750 %0987 l07 0875 0875 0875 %0988 l08 1000 1000 1000 %0989 l09 0000 0000 0000 %0990 m01 0125 0125 0125 %0991 m02 0250 0250 0250 %0992 m03 0375 0375 0375 %0993 m04 0500 0500 0500 %0994 m05 0625 0625 0625 %0995 m06 0750 0750 0750 %0996 m07 0875 0875 0875 %0997 m08 1000 1000 1000 %0998 m09 0000 0000 0000 %0999 n01 0125 0125 0125 %1000 n02 0250 0250 0250 %1001 n03 0375 0375 0375 %1002 n04 0500 0500 0500 %1003 n05 0625 0625 0625 %1004 n06 0750 0750 0750 %1005 n07 0875 0875 0875 %1006 n08 1000 1000 1000 %1007 n09 0000 0000 0000 %1008 k10 0066 0066 0066 %1009 k11 0133 0133 0133 %1010 k12 0200 0200 0200 %1011 k13 0266 0266 0266 %1012 k14 0333 0333 0333 %1013 k15 0400 0400 0400 %1014 k16 0466 0466 0466 %1015 k17 0533 0533 0533 %1016 k18 0600 0600 0600 %1017 k19 0666 0666 0666 %1018 k20 0734 0734 0734 %1019 k21 0800 0800 0800 %1020 k22 0866 0866 0866 %1021 k23 0933 0933 0933 %1022 k24 1000 1000 1000 %1023 k25 0000 0000 0000 %1024 l10 0066 0066 0066 %1025 l11 0133 0133 0133 %1026 l12 0200 0200 0200 %1027 l13 0266 0266 0266 %1028 l14 0333 0333 0333 %1029 l15 0400 0400 0400 %1030 l16 0466 0466 0466 %1031 l17 0533 0533 0533 %1032 l18 0600 0600 0600 %1033 l19 0666 0666 0666 %1034 l20 0734 0734 0734 %1035 l21 0800 0800 0800 %1036 l22 0866 0866 0866 %1037 l23 0933 0933 0933 %1038 l24 1000 1000 1000 %1039 l25 0000 0000 0000 %1040 m10 0066 0066 0066 %1041 m11 0133 0133 0133 %1042 m12 0200 0200 0200 %1043 m13 0266 0266 0266 %1044 m14 0333 0333 0333 %1045 m15 0400 0400 0400 %1046 m16 0466 0466 0466 %1047 m17 0533 0533 0533 %1048 m18 0600 0600 0600 %1049 m19 0666 0666 0666 %1050 m20 0734 0734 0734 %1051 m21 0800 0800 0800 %1052 m22 0866 0866 0866 %1053 m23 0933 0933 0933 %1054 m24 1000 1000 1000 %1055 m25 0000 0000 0000 %1056 n10 0066 0066 0066 %1057 n11 0133 0133 0133 %1058 n12 0200 0200 0200 %1059 n13 0266 0266 0266 %1060 n14 0333 0333 0333 %1061 n15 0400 0400 0400 %1062 n16 0466 0466 0466 %1063 n17 0533 0533 0533 %1064 n18 0600 0600 0600 %1065 n19 0666 0666 0666 %1066 n20 0734 0734 0734 %1067 n21 0800 0800 0800 %1068 n22 0866 0866 0866 %1069 n23 0933 0933 0933 %1070 n24 1000 1000 1000 %1071 n25 0000 0000 0000 %1072 k26 1000 1000 1000 %1073 k27 1000 0000 0000 %1074 l26 0000 1000 1000 %1075 l27 1000 1000 0000 %1076 m26 0000 0000 1000 %1077 m27 0000 1000 0000 %1078 n26 1000 0000 1000 %1079 n27 0000 1000 0000 %1078 nx6 1000 0000 1000 %1079 nx7 ] def %END RGB0_F %**************************************************** %END 'QS59'OUTLIN1X.PS Other procedures for Offset output linearization %**************************************************** %BEG_OUTLIN1Y_PK8940********************************************************** %BEG 'QS59'OUTLIN1Y2_PK8940.PS %BEG spectral reflection data, cmyn6*, 1080 colours, offset A,B,L,G, printer P %***************************************************************************** %reflection 380 to 720 nm extrapolated to 770 /RX0F 45360 array def %1080x42=45360 %cmyn6* /ypaper 4 def %Laserprinter HP Color LaserJet CP1514m (PS-Output) ypaper 4 eq {%ypaper=4 /FILEDATA_RX0F_IOF (PE4300P_120901.TXT, 1080 colors, Separation cmyn6*) def /RX0F [ %PE4300P_120901_01.txt 1 1 0351 0367 0372 0371 0374 0376 0378 0377 0382 0382 0386 0389 0392 0394 0397 0399 0401 0403 0405 0408 0410 0413 0416 0419 0423 0427 0430 0437 0440 0445 0448 0451 0455 0459 0463 0469 2 2 0374 0445 0536 0611 0641 0682 0727 0743 0729 0703 0669 0633 0600 0561 0506 0447 0398 0356 0315 0292 0303 0363 0422 0448 0459 0463 0467 0473 0484 0492 0491 0488 0482 0475 0477 0489 3 3 0291 0392 0525 0658 0714 0794 0881 0921 0902 0858 0800 0737 0680 0611 0519 0423 0346 0285 0234 0211 0224 0275 0320 0335 0338 0339 0339 0344 0355 0365 0364 0359 0347 0339 0343 0362 4 4 0424 0587 0832 1065 1180 1322 1492 1560 1514 1426 1309 1185 1076 0952 0788 0621 0494 0393 0305 0262 0278 0368 0454 0490 0501 0504 0505 0516 0539 0557 0555 0544 0521 0502 0504 0530 5 5 0484 0720 1109 1498 1687 1924 2221 2331 2221 2043 1814 1585 1396 1191 0934 0694 0530 0405 0300 0252 0278 0403 0526 0575 0588 0591 0592 0608 0645 0674 0670 0648 0608 0578 0576 0610 6 6 0483 0746 1209 1667 1898 2193 2557 2657 2472 2205 1884 1580 1348 1116 0838 0601 0461 0364 0280 0245 0279 0402 0509 0539 0542 0538 0534 0551 0592 0624 0619 0593 0547 0507 0506 0547 7 7 0516 0794 1257 1718 1955 2251 2628 2741 2559 2294 1979 1676 1440 1202 0912 0660 0504 0395 0301 0260 0293 0427 0552 0593 0602 0600 0598 0617 0660 0695 0687 0662 0616 0571 0571 0615 8 8 0552 0836 1319 1799 2045 2347 2724 2837 2653 2385 2062 1753 1510 1263 0961 0695 0528 0407 0302 0253 0289 0443 0597 0653 0668 0670 0669 0691 0739 0777 0771 0740 0690 0640 0636 0683 9 9 0562 0856 1367 1866 2120 2439 2844 2982 2812 2550 2229 1915 1663 1400 1074 0779 0586 0441 0318 0258 0291 0447 0603 0665 0680 0683 0683 0705 0753 0792 0786 0757 0705 0657 0655 0695 10 10 0289 0249 0241 0231 0224 0223 0224 0230 0239 0272 0352 0443 0483 0469 0422 0378 0368 0376 0369 0368 0472 0862 1389 1737 1905 1985 2027 2056 2073 2083 2091 2099 2110 2119 2127 2136 11 11 0522 0498 0491 0488 0481 0484 0489 0481 0471 0479 0523 0573 0588 0565 0511 0465 0455 0463 0456 0454 0563 0954 1460 1784 1940 2011 2049 2074 2089 2097 2102 2111 2117 2128 2132 2140 12 12 0791 0784 0811 0824 0836 0848 0857 0822 0771 0716 0670 0630 0592 0545 0481 0430 0418 0425 0416 0414 0523 0932 1464 1807 1969 2043 2082 2105 2121 2129 2135 2138 2144 2151 2153 2163 13 13 0975 1033 1099 1157 1193 1221 1244 1189 1087 0965 0839 0728 0649 0577 0492 0426 0403 0401 0384 0377 0490 0944 1568 1981 2178 2266 2310 2340 2364 2376 2379 2379 2377 2377 2376 2386 14 14 0964 1042 1165 1279 1338 1396 1445 1392 1262 1108 0940 0792 0690 0597 0489 0402 0367 0354 0327 0315 0420 0868 1498 1916 2114 2203 2246 2277 2315 2336 2338 2330 2311 2296 2290 2316 15 15 0895 1041 1265 1456 1552 1664 1761 1716 1555 1355 1139 0943 0807 0681 0532 0415 0361 0333 0293 0273 0367 0776 1351 1718 1889 1960 1995 2034 2087 2125 2122 2101 2058 2016 2009 2050 16 16 0941 1171 1477 1747 1881 2033 2181 2142 1935 1684 1405 1155 0979 0816 0625 0471 0400 0361 0307 0279 0376 0812 1420 1808 1983 2055 2086 2132 2200 2248 2246 2210 2148 2084 2073 2126 17 17 0985 1245 1612 1943 2106 2292 2487 2448 2211 1922 1602 1315 1111 0920 0697 0519 0434 0384 0320 0285 0384 0824 1439 1827 1998 2068 2097 2146 2224 2280 2270 2229 2151 2075 2058 2124 18 18 0968 1217 1619 1975 2151 2358 2573 2541 2299 1993 1659 1357 1143 0943 0709 0522 0432 0378 0310 0274 0369 0790 1371 1732 1890 1951 1976 2022 2099 2156 2148 2105 2026 1945 1932 1990 19 19 0384 0346 0313 0297 0282 0279 0290 0292 0307 0356 0474 0594 0628 0581 0481 0401 0384 0397 0384 0378 0561 1365 2687 3755 4346 4625 4758 4827 4864 4879 4890 4897 4907 4921 4923 4930 20 20 0494 0443 0416 0399 0390 0390 0398 0396 0393 0425 0512 0598 0617 0565 0468 0391 0375 0388 0375 0371 0546 1314 2564 3567 4115 4374 4502 4566 4602 4614 4625 4633 4644 4656 4656 4672 21 21 0643 0617 0595 0590 0581 0588 0596 0580 0558 0563 0614 0658 0652 0591 0488 0408 0391 0404 0392 0387 0567 1346 2594 3580 4117 4371 4490 4552 4585 4597 4608 4616 4625 4638 4641 4650 22 22 0917 0896 0902 0906 0911 0926 0937 0895 0829 0776 0746 0711 0662 0586 0478 0398 0381 0395 0383 0379 0557 1331 2564 3530 4049 4292 4408 4469 4502 4513 4520 4526 4536 4550 4551 4557 23 23 1270 1265 1305 1348 1369 1398 1409 1327 1185 1038 0891 0759 0661 0567 0457 0377 0361 0373 0362 0360 0537 1325 2597 3601 4143 4400 4519 4579 4611 4621 4628 4632 4644 4657 4656 4664 24 24 1472 1529 1605 1692 1737 1790 1805 1692 1494 1273 1043 0845 0713 0598 0468 0377 0355 0365 0349 0342 0526 1347 2651 3665 4205 4459 4577 4640 4681 4696 4702 4699 4698 4697 4694 4715 25 25 1537 1661 1842 1976 2058 2142 2192 2078 1849 1587 1309 1065 0902 0757 0590 0466 0428 0424 0391 0372 0560 1397 2696 3678 4195 4434 4542 4611 4670 4701 4702 4685 4654 4627 4618 4648 26 26 1603 1780 2030 2240 2345 2468 2561 2448 2179 1872 1544 1258 1062 0887 0684 0529 0472 0455 0406 0378 0564 1415 2729 3715 4226 4456 4560 4636 4715 4761 4757 4727 4671 4615 4592 4648 27 27 1565 1747 2014 2242 2355 2489 2591 2473 2195 1875 1540 1248 1051 0875 0671 0517 0458 0438 0390 0362 0536 1367 2706 3741 4291 4540 4650 4732 4817 4869 4863 4825 4757 4687 4670 4725 28 1 0362 0391 0440 0479 0491 0515 0543 0574 0605 0654 0748 0856 0916 0924 0901 0851 0794 0730 0668 0629 0607 0595 0584 0577 0576 0574 0576 0581 0591 0598 0598 0596 0591 0586 0587 0602 29 2 0376 0446 0581 0698 0754 0820 0902 0964 0991 1009 1032 1044 1029 0983 0899 0788 0671 0555 0455 0396 0370 0370 0368 0363 0359 0357 0357 0361 0372 0379 0380 0374 0364 0359 0362 0379 30 3 0341 0456 0645 0820 0896 0997 1125 1205 1218 1205 1176 1136 1081 1001 0879 0733 0593 0465 0360 0302 0287 0303 0319 0320 0319 0318 0317 0322 0333 0342 0341 0335 0325 0317 0326 0342 31 4 0354 0517 0789 1049 1176 1339 1540 1661 1665 1623 1549 1459 1361 1229 1043 0831 0641 0476 0344 0274 0265 0299 0329 0335 0335 0333 0332 0339 0354 0368 0366 0358 0341 0330 0332 0358 32 5 0420 0662 1074 1489 1697 1961 2312 2496 2458 2342 2170 1976 1793 1569 1272 0964 0717 0514 0355 0277 0275 0343 0398 0410 0411 0409 0408 0419 0444 0466 0462 0448 0420 0395 0399 0434 33 6 0511 0798 1315 1849 2125 2478 2947 3179 3083 2882 2609 2322 2067 1775 1400 1034 0761 0544 0374 0289 0298 0391 0470 0488 0489 0486 0483 0499 0535 0566 0559 0538 0499 0464 0463 0501 34 7 0507 0788 1313 1858 2127 2481 2955 3157 3020 2776 2465 2149 1884 1596 1234 0895 0658 0479 0337 0269 0288 0395 0488 0511 0512 0509 0506 0522 0562 0594 0589 0565 0523 0483 0482 0522 35 8 0539 0845 1397 1948 2227 2587 3059 3265 3127 2879 2564 2243 1973 1677 1305 0953 0704 0511 0355 0276 0294 0417 0527 0560 0565 0563 0561 0580 0625 0660 0655 0629 0580 0536 0537 0578 36 9 0521 0855 1426 2000 2285 2668 3168 3399 3269 3032 2718 2397 2117 1807 1413 1034 0758 0541 0367 0280 0292 0411 0517 0547 0552 0551 0548 0568 0613 0647 0642 0615 0569 0525 0523 0567 37 10 0309 0270 0246 0238 0232 0230 0234 0239 0257 0303 0435 0628 0756 0787 0760 0724 0719 0728 0721 0718 0814 1121 1472 1681 1779 1825 1853 1871 1886 1892 1899 1905 1913 1919 1925 1935 38 11 0578 0538 0513 0500 0495 0495 0504 0503 0510 0551 0666 0810 0896 0906 0868 0825 0818 0826 0817 0814 0915 1248 1634 1866 1975 2026 2054 2073 2083 2089 2095 2098 2106 2112 2120 2125 39 12 0877 0871 0886 0896 0891 0904 0908 0889 0864 0845 0853 0869 0868 0840 0786 0738 0728 0736 0726 0723 0823 1168 1577 1824 1941 1993 2021 2039 2050 2056 2060 2064 2069 2076 2079 2086 40 13 1224 1294 1372 1444 1480 1517 1545 1508 1428 1327 1218 1116 1041 0968 0876 0796 0761 0748 0716 0695 0803 1207 1694 1988 2124 2184 2214 2237 2257 2267 2268 2266 2261 2258 2257 2273 41 14 1176 1300 1462 1599 1666 1741 1812 1787 1686 1550 1401 1258 1152 1047 0914 0796 0729 0688 0628 0593 0692 1104 1619 1932 2076 2137 2168 2196 2228 2248 2247 2236 2217 2196 2193 2214 42 15 1109 1297 1570 1803 1918 2051 2188 2183 2054 1878 1675 1482 1335 1185 0998 0825 0720 0643 0553 0499 0588 0992 1505 1812 1951 2008 2035 2068 2116 2150 2146 2124 2084 2044 2036 2074 43 16 1178 1434 1808 2130 2286 2474 2679 2692 2531 2307 2047 1801 1611 1417 1173 0947 0807 0703 0587 0516 0607 1037 1578 1899 2037 2095 2120 2160 2223 2266 2259 2228 2169 2110 2096 2144 44 17 1010 1302 1740 2140 2329 2572 2823 2832 2604 2310 1976 1667 1440 1216 0946 0714 0583 0493 0393 0338 0427 0842 1396 1729 1874 1929 1951 1997 2073 2130 2121 2078 1998 1922 1904 1965 45 18 0986 1272 1730 2145 2346 2586 2857 2878 2658 2370 2037 1727 1497 1269 0988 0746 0606 0507 0399 0339 0422 0817 1331 1633 1763 1812 1832 1873 1950 2004 1995 1953 1875 1801 1780 1843 46 19 0309 0259 0225 0206 0196 0191 0193 0207 0232 0309 0506 0767 0906 0892 0777 0672 0650 0670 0650 0637 0876 1835 3276 4388 4988 5270 5402 5470 5508 5520 5528 5535 5547 5562 5563 5569 47 20 0526 0467 0420 0399 0390 0386 0393 0400 0419 0492 0679 0910 1034 1020 0916 0818 0798 0816 0798 0785 1007 1865 3100 4019 4504 4729 4838 4894 4924 4934 4943 4947 4954 4968 4974 4979 48 21 0725 0679 0649 0629 0621 0626 0634 0632 0629 0677 0819 0990 1069 1036 0927 0829 0809 0826 0807 0796 1014 1862 3082 3988 4465 4686 4790 4845 4876 4883 4890 4895 4904 4917 4915 4921 49 22 0923 0889 0874 0863 0858 0867 0880 0861 0834 0847 0926 1020 1049 0997 0883 0787 0767 0783 0765 0755 0965 1790 2981 3864 4329 4544 4648 4701 4730 4738 4742 4746 4755 4766 4766 4776 50 23 1310 1300 1316 1333 1345 1359 1377 1325 1246 1179 1146 1120 1075 0991 0863 0761 0739 0754 0736 0728 0943 1801 3043 3966 4453 4678 4783 4838 4866 4873 4878 4882 4889 4901 4896 4903 51 24 1710 1738 1794 1844 1871 1906 1924 1835 1687 1525 1366 1222 1113 0999 0856 0746 0723 0738 0717 0706 0931 1835 3148 4127 4647 4888 5001 5057 5087 5095 5100 5102 5107 5116 5113 5122 52 25 1969 2078 2221 2328 2393 2458 2492 2380 2167 1917 1652 1417 1255 1107 0930 0794 0755 0758 0722 0699 0934 1879 3221 4194 4702 4937 5046 5109 5152 5170 5171 5163 5152 5143 5141 5158 53 26 2007 2167 2386 2579 2675 2785 2864 2755 2504 2211 1894 1610 1412 1229 1011 0835 0769 0748 0686 0645 0876 1851 3259 4289 4827 5072 5183 5257 5322 5355 5352 5329 5289 5254 5242 5279 54 27 1808 1994 2299 2547 2676 2820 2938 2836 2563 2240 1895 1588 1374 1177 0941 0753 0673 0636 0564 0518 0715 1603 2937 3924 4436 4666 4767 4842 4927 4975 4969 4933 4865 4803 4783 4836 55 1 0242 0296 0365 0431 0449 0485 0540 0599 0663 0777 1000 1261 1408 1420 1338 1196 1032 0863 0715 0621 0569 0541 0518 0501 0493 0489 0490 0497 0514 0527 0525 0517 0504 0492 0493 0514 56 2 0272 0363 0476 0589 0631 0696 0786 0863 0923 1002 1132 1262 1313 1276 1173 1019 0851 0682 0540 0454 0409 0385 0367 0352 0346 0343 0343 0347 0359 0370 0369 0362 0351 0343 0348 0364 57 3 0414 0574 0822 1049 1154 1285 1456 1585 1637 1669 1694 1696 1655 1560 1404 1195 0973 0757 0576 0470 0418 0396 0380 0365 0359 0355 0353 0358 0372 0382 0381 0372 0360 0350 0355 0379 58 4 0429 0635 0975 1292 1447 1637 1886 2059 2099 2092 2056 1988 1891 1743 1523 1252 0984 0734 0529 0412 0369 0369 0370 0361 0357 0353 0351 0358 0376 0389 0386 0377 0361 0349 0351 0375 59 5 0424 0669 1093 1519 1727 1996 2357 2593 2620 2574 2475 2340 2182 1964 1656 1302 0978 0691 0467 0346 0312 0335 0353 0351 0347 0343 0342 0351 0372 0389 0386 0374 0353 0335 0339 0369 60 6 0420 0706 1227 1784 2065 2433 2950 3271 3274 3167 2981 2755 2515 2208 1795 1349 0971 0658 0421 0303 0280 0320 0348 0347 0343 0339 0336 0346 0370 0391 0387 0371 0347 0327 0328 0362 61 7 0462 0743 1327 1959 2284 2719 3328 3687 3646 3471 3203 2895 2599 2242 1775 1298 0919 0616 0389 0281 0270 0327 0367 0367 0362 0357 0355 0366 0394 0418 0413 0395 0364 0339 0342 0379 62 8 0458 0780 1378 2013 2339 2772 3373 3706 3627 3418 3116 2787 2484 2129 1672 1217 0866 0588 0376 0274 0270 0342 0394 0398 0394 0389 0385 0399 0432 0461 0454 0433 0397 0366 0369 0407 63 9 0460 0783 1393 2043 2381 2825 3449 3797 3727 3521 3217 2886 2575 2212 1740 1266 0899 0606 0382 0273 0267 0336 0388 0391 0387 0383 0379 0394 0428 0455 0450 0428 0393 0360 0361 0403 64 10 0237 0216 0196 0182 0176 0176 0179 0185 0204 0264 0460 0790 1051 1160 1177 1163 1164 1174 1171 1172 1236 1431 1630 1740 1793 1819 1838 1851 1862 1865 1871 1877 1883 1893 1897 1903 65 11 0661 0633 0608 0589 0575 0580 0581 0595 0625 0711 0919 1196 1383 1449 1445 1420 1417 1424 1416 1415 1485 1701 1926 2051 2112 2137 2156 2170 2177 2178 2182 2181 2190 2194 2197 2201 66 12 1070 1062 1064 1059 1058 1064 1069 1065 1067 1091 1168 1261 1313 1315 1282 1245 1237 1243 1232 1230 1305 1549 1811 1959 2028 2061 2078 2091 2099 2100 2103 2102 2109 2112 2114 2121 67 13 1451 1544 1639 1719 1752 1793 1826 1816 1773 1709 1640 1571 1516 1455 1375 1294 1251 1221 1172 1141 1215 1495 1794 1959 2033 2065 2082 2100 2116 2126 2125 2122 2112 2106 2106 2120 68 14 1375 1550 1770 1959 2053 2152 2261 2280 2212 2104 1975 1845 1738 1622 1465 1305 1191 1097 0989 0918 0987 1314 1693 1908 2003 2042 2061 2086 2116 2134 2132 2116 2091 2068 2059 2087 69 15 1292 1556 1889 2192 2337 2510 2703 2761 2666 2516 2330 2142 1983 1807 1574 1337 1162 1019 0866 0769 0836 1198 1632 1882 1992 2035 2056 2086 2129 2158 2154 2128 2085 2047 2034 2074 70 16 1367 1681 2112 2511 2699 2932 3202 3286 3167 2979 2740 2500 2296 2071 1776 1478 1260 1079 0893 0775 0841 1230 1693 1955 2067 2112 2131 2164 2223 2263 2255 2221 2162 2105 2092 2140 71 17 1144 1491 2014 2496 2734 3027 3368 3458 3262 2988 2655 2333 2076 1807 1466 1147 0932 0766 0599 0499 0572 0965 1454 1732 1848 1890 1908 1949 2023 2075 2064 2023 1944 1872 1852 1914 72 18 1058 1403 1920 2409 2638 2933 3280 3365 3173 2895 2562 2241 1985 1720 1383 1070 0863 0702 0541 0447 0515 0880 1331 1582 1685 1725 1740 1780 1852 1905 1896 1853 1776 1703 1688 1745 73 19 0346 0288 0248 0219 0209 0207 0213 0226 0260 0362 0664 1137 1481 1574 1495 1393 1373 1397 1372 1358 1611 2526 3737 4586 5017 5213 5311 5362 5392 5398 5404 5407 5418 5429 5429 5435 74 20 0580 0542 0486 0458 0447 0441 0452 0463 0495 0605 0889 1280 1538 1588 1499 1396 1375 1396 1372 1358 1600 2478 3655 4487 4916 5112 5206 5255 5284 5289 5295 5297 5306 5318 5314 5325 75 21 0932 0888 0854 0824 0808 0813 0828 0830 0842 0925 1156 1452 1628 1640 1538 1433 1411 1430 1406 1392 1629 2488 3622 4417 4823 5007 5097 5144 5170 5173 5176 5180 5189 5202 5192 5204 76 22 1252 1208 1190 1175 1170 1179 1195 1186 1170 1215 1366 1554 1650 1624 1508 1399 1376 1393 1369 1355 1592 2452 3592 4388 4797 4982 5072 5119 5145 5146 5147 5150 5159 5169 5167 5174 77 23 1719 1727 1734 1750 1751 1773 1787 1756 1701 1673 1713 1772 1783 1719 1591 1478 1453 1468 1443 1429 1663 2515 3630 4405 4799 4978 5064 5108 5133 5134 5135 5137 5141 5154 5154 5155 78 24 2279 2340 2395 2452 2488 2525 2542 2474 2349 2213 2087 1974 1880 1768 1614 1489 1459 1475 1446 1430 1680 2583 3753 4562 4975 5163 5254 5300 5326 5328 5330 5329 5336 5346 5340 5350 79 25 2548 2690 2841 2963 3035 3105 3149 3054 2864 2631 2379 2148 1982 1826 1632 1470 1421 1417 1365 1330 1589 2548 3770 4593 5007 5195 5283 5336 5375 5387 5387 5378 5366 5358 5348 5370 80 26 2570 2781 3039 3255 3366 3493 3586 3501 3270 2990 2679 2391 2181 1980 1728 1514 1422 1383 1291 1227 1488 2504 3822 4714 5161 5359 5452 5515 5574 5604 5600 5575 5534 5500 5481 5528 81 27 2174 2426 2776 3072 3226 3396 3548 3474 3212 2893 2537 2214 1978 1750 1472 1231 1113 1045 0933 0858 1074 2008 3294 4187 4635 4835 4923 4992 5075 5121 5111 5070 5004 4937 4916 4971 82 1 0192 0225 0265 0297 0310 0332 0375 0432 0512 0688 1078 1599 1928 1981 1847 1603 1326 1046 0809 0662 0584 0541 0507 0480 0468 0462 0459 0470 0493 0510 0507 0493 0473 0454 0455 0479 83 2 0247 0294 0399 0487 0528 0584 0677 0772 0866 1036 1362 1738 1935 1917 1748 1485 1197 0919 0689 0553 0482 0445 0415 0394 0384 0379 0377 0384 0402 0416 0412 0403 0386 0371 0375 0395 84 3 0334 0477 0713 0933 1037 1166 1352 1504 1601 1716 1883 2033 2062 1962 1757 1471 1169 0877 0640 0502 0432 0396 0369 0349 0339 0335 0332 0338 0354 0368 0365 0355 0341 0329 0333 0355 85 4 0431 0647 1040 1416 1593 1817 2133 2372 2463 2525 2577 2584 2505 2324 2033 1664 1288 0934 0651 0487 0414 0386 0363 0344 0334 0330 0327 0333 0351 0367 0364 0353 0333 0319 0328 0352 86 5 0456 0715 1192 1673 1911 2209 2629 2933 3016 3028 2983 2887 2733 2492 2140 1713 1292 0910 0609 0442 0373 0353 0337 0320 0312 0306 0302 0311 0330 0345 0342 0329 0312 0297 0304 0327 87 6 0468 0777 1336 1937 2232 2621 3174 3563 3634 3598 3477 3297 3068 2750 2307 1792 1319 0903 0581 0409 0350 0349 0348 0336 0328 0324 0321 0330 0352 0371 0367 0352 0331 0313 0320 0349 88 7 0532 0866 1554 2295 2676 3181 3920 4423 4478 4378 4159 3873 3546 3122 2553 1928 1382 0919 0569 0388 0335 0360 0378 0372 0364 0358 0356 0368 0397 0420 0416 0398 0369 0345 0345 0383 89 8 0485 0848 1548 2300 2683 3206 3965 4473 4499 4370 4118 3802 3462 3027 2448 1828 1299 0857 0523 0353 0309 0344 0370 0363 0356 0352 0348 0361 0392 0416 0412 0394 0360 0335 0341 0374 90 9 0477 0837 1517 2274 2663 3194 3963 4467 4483 4341 4071 3742 3396 2958 2376 1762 1242 0812 0490 0328 0289 0328 0356 0352 0346 0341 0338 0350 0381 0406 0402 0382 0349 0325 0327 0363 91 10 0310 0271 0251 0232 0223 0218 0225 0238 0275 0384 0716 1264 1719 1941 2018 2031 2036 2032 2020 2020 2031 2074 2113 2134 2148 2156 2163 2177 2189 2193 2194 2196 2198 2205 2207 2215 92 11 0723 0684 0639 0613 0597 0588 0603 0629 0693 0849 1217 1718 2086 2254 2311 2317 2318 2314 2301 2300 2310 2353 2390 2409 2423 2430 2440 2449 2459 2460 2460 2459 2462 2465 2462 2471 93 12 1220 1237 1234 1234 1222 1227 1243 1272 1326 1437 1649 1898 2057 2124 2144 2136 2125 2114 2096 2090 2087 2102 2114 2119 2125 2128 2135 2143 2153 2154 2153 2152 2151 2153 2153 2166 94 13 1815 1884 1916 1941 1960 1967 1980 1986 1996 1998 2002 2006 2008 2011 2015 2012 2012 2011 2006 2012 2010 2011 2011 2014 2020 2024 2032 2040 2047 2046 2048 2048 2052 2059 2059 2072 95 14 1518 1752 2025 2267 2370 2500 2649 2722 2706 2652 2575 2486 2397 2282 2120 1930 1762 1603 1439 1332 1339 1509 1688 1773 1809 1821 1828 1846 1877 1896 1889 1871 1840 1812 1806 1834 96 15 1460 1779 2172 2518 2678 2876 3112 3227 3187 3092 2954 2804 2658 2480 2233 1956 1720 1504 1288 1148 1164 1407 1676 1815 1873 1894 1903 1927 1971 1997 1991 1963 1918 1877 1864 1900 97 16 1554 1905 2390 2829 3040 3292 3608 3752 3687 3544 3347 3137 2941 2707 2389 2044 1762 1509 1259 1098 1124 1433 1783 1968 2043 2072 2083 2114 2170 2209 2199 2163 2106 2049 2036 2083 98 17 1406 1824 2450 3022 3304 3651 4093 4273 4139 3901 3591 3271 2992 2677 2262 1840 1519 1245 0981 0819 0864 1230 1656 1881 1973 2006 2018 2056 2126 2176 2163 2120 2046 1968 1952 2011 99 18 1259 1658 2256 2811 3087 3429 3854 4016 3873 3626 3312 2991 2717 2412 2014 1615 1318 1069 0831 0687 0732 1078 1484 1698 1784 1816 1828 1865 1938 1988 1976 1934 1858 1783 1768 1827 100 19 0370 0293 0256 0233 0216 0214 0220 0233 0275 0401 0791 1451 1981 2185 2157 2070 2056 2082 2058 2045 2290 3111 4102 4746 5060 5202 5275 5315 5339 5342 5345 5348 5357 5365 5363 5374 101 20 0590 0528 0477 0439 0415 0413 0428 0445 0493 0643 1040 1630 2064 2208 2155 2061 2045 2068 2044 2030 2272 3104 4125 4802 5139 5291 5366 5408 5432 5432 5435 5436 5440 5453 5451 5463 102 21 1094 1026 0977 0945 0931 0930 0942 0957 0994 1128 1469 1923 2227 2306 2233 2136 2116 2136 2109 2095 2327 3119 4085 4723 5040 5181 5252 5290 5313 5314 5316 5314 5322 5332 5325 5334 103 22 1541 1492 1458 1442 1430 1437 1453 1460 1477 1577 1838 2164 2366 2392 2300 2196 2173 2191 2163 2148 2379 3166 4117 4738 5046 5184 5253 5289 5311 5310 5308 5307 5314 5324 5318 5325 104 23 2063 2078 2079 2087 2084 2106 2125 2118 2103 2138 2275 2449 2539 2514 2405 2296 2271 2286 2257 2242 2470 3238 4151 4742 5032 5163 5228 5263 5283 5280 5282 5281 5288 5296 5289 5294 105 24 2714 2792 2846 2901 2933 2970 2994 2951 2870 2786 2724 2672 2614 2522 2383 2258 2231 2247 2214 2198 2443 3244 4173 4768 5057 5187 5252 5286 5305 5303 5301 5303 5308 5317 5310 5317 106 25 3073 3232 3376 3493 3569 3637 3679 3610 3458 3265 3049 2848 2701 2558 2377 2218 2171 2168 2112 2076 2338 3209 4212 4838 5144 5277 5344 5384 5417 5424 5422 5415 5406 5404 5396 5414 107 26 3101 3338 3621 3863 3989 4123 4231 4169 3969 3710 3418 3146 2940 2738 2476 2242 2134 2077 1963 1883 2146 3131 4320 5083 5455 5618 5694 5750 5811 5835 5830 5804 5765 5726 5712 5749 108 27 2544 2842 3215 3532 3699 3878 4049 4000 3759 3454 3110 2791 2551 2314 2014 1743 1601 1510 1369 1274 1498 2441 3662 4476 4877 5051 5129 5195 5275 5318 5307 5266 5203 5137 5112 5173 109 1 0191 0195 0202 0207 0201 0212 0229 0267 0342 0560 1178 2191 2959 3120 2839 2337 1798 1291 0886 0649 0530 0467 0417 0382 0366 0356 0353 0364 0392 0415 0411 0393 0363 0340 0341 0372 110 2 0193 0234 0286 0332 0347 0376 0442 0529 0661 0953 1631 2582 3199 3245 2898 2354 1787 1262 0852 0614 0498 0437 0389 0356 0339 0331 0327 0337 0364 0385 0382 0364 0338 0316 0316 0348 111 3 0250 0364 0549 0728 0805 0922 1104 1278 1435 1703 2186 2725 2975 2876 2536 2057 1563 1106 0751 0548 0450 0399 0359 0332 0318 0312 0309 0318 0339 0356 0353 0341 0316 0302 0306 0332 112 4 0372 0578 0974 1362 1543 1780 2127 2419 2591 2797 3085 3332 3353 3136 2729 2198 1658 1160 0771 0550 0444 0390 0349 0320 0306 0300 0297 0305 0327 0345 0342 0328 0307 0289 0295 0325 113 5 0473 0800 1330 1881 2147 2488 2979 3358 3502 3583 3626 3598 3449 3165 2735 2200 1660 1165 0774 0554 0450 0398 0359 0333 0320 0313 0310 0317 0339 0356 0353 0339 0318 0303 0309 0336 114 6 0483 0833 1447 2094 2402 2823 3427 3887 4039 4105 4101 4013 3803 3448 2936 2318 1719 1180 0761 0532 0430 0387 0354 0327 0314 0308 0305 0313 0334 0354 0349 0335 0313 0297 0303 0334 115 7 0539 0940 1710 2529 2940 3491 4326 4966 5141 5157 5044 4825 4503 4037 3397 2648 1934 1299 0815 0550 0434 0384 0348 0318 0304 0297 0295 0303 0326 0347 0343 0329 0304 0287 0294 0325 116 8 0575 1025 1879 2780 3241 3864 4811 5520 5674 5637 5444 5142 4755 4225 3513 2709 1967 1316 0816 0542 0432 0404 0379 0351 0336 0329 0326 0337 0368 0394 0388 0369 0336 0312 0317 0353 117 9 0527 0949 1730 2594 3030 3632 4537 5192 5296 5212 4975 4650 4264 3756 3078 2334 1668 1101 0669 0443 0365 0367 0367 0351 0341 0335 0332 0344 0373 0398 0394 0374 0344 0319 0324 0358 118 10 0246 0230 0215 0200 0196 0195 0199 0214 0245 0355 0706 1340 1894 2167 2257 2258 2231 2189 2141 2115 2093 2086 2076 2074 2077 2080 2087 2101 2118 2127 2128 2126 2123 2121 2119 2136 119 11 0718 0696 0698 0689 0679 0685 0715 0763 0847 1051 1523 2187 2688 2909 2960 2918 2852 2766 2680 2624 2584 2562 2543 2530 2528 2526 2531 2545 2563 2574 2571 2561 2548 2535 2535 2545 120 12 1167 1198 1249 1284 1293 1327 1382 1449 1546 1733 2107 2568 2872 2977 2964 2877 2770 2648 2524 2444 2388 2359 2328 2308 2301 2298 2300 2312 2334 2344 2340 2326 2305 2289 2280 2305 121 13 1579 1717 1860 1969 2014 2073 2165 2248 2327 2447 2658 2893 3019 3033 2976 2860 2727 2577 2430 2332 2266 2229 2194 2169 2158 2150 2150 2164 2188 2202 2195 2179 2154 2132 2121 2146 122 14 1940 2229 2582 2870 3008 3168 3367 3508 3561 3583 3597 3593 3542 3437 3270 3040 2797 2544 2301 2138 2056 2042 2027 2002 1990 1983 1979 1994 2028 2050 2043 2016 1977 1939 1930 1962 123 15 1755 2128 2600 3009 3197 3427 3724 3909 3938 3904 3824 3718 3589 3410 3150 2827 2514 2205 1912 1717 1656 1732 1805 1822 1824 1820 1819 1841 1880 1907 1897 1870 1821 1776 1763 1805 124 16 1797 2222 2764 3248 3480 3757 4117 4334 4336 4258 4124 3961 3782 3549 3221 2836 2482 2146 1822 1609 1570 1733 1903 1975 2000 2005 2008 2034 2085 2121 2109 2073 2014 1959 1944 1990 125 17 1747 2242 2963 3624 3939 4338 4870 5167 5123 4961 4714 4434 4154 3810 3342 2827 2382 1978 1600 1361 1339 1588 1861 1989 2035 2048 2054 2087 2155 2203 2191 2145 2064 1990 1972 2037 126 18 1441 1900 2591 3234 3544 3937 4447 4697 4601 4389 4095 3780 3487 3145 2690 2208 1820 1478 1158 0960 0970 1260 1582 1737 1797 1816 1824 1858 1926 1977 1965 1919 1844 1770 1747 1811 127 19 0416 0326 0280 0255 0239 0234 0242 0260 0308 0469 0978 1864 2638 2999 3056 3007 3007 3031 3008 3002 3207 3864 4602 5052 5268 5366 5418 5451 5470 5472 5474 5476 5481 5493 5487 5495 128 20 0608 0519 0455 0419 0396 0391 0399 0425 0489 0690 1243 2115 2832 3148 3183 3124 3118 3142 3116 3107 3320 4009 4800 5297 5538 5645 5702 5736 5755 5756 5756 5755 5760 5774 5767 5777 129 21 1266 1181 1122 1081 1057 1057 1072 1104 1176 1385 1885 2574 3082 3278 3268 3197 3186 3205 3177 3167 3367 4016 4752 5212 5435 5536 5588 5618 5634 5635 5632 5631 5638 5649 5640 5651 130 22 1763 1728 1676 1647 1631 1631 1653 1681 1737 1909 2304 2817 3167 3278 3237 3157 3139 3156 3130 3116 3312 3955 4688 5150 5377 5478 5529 5561 5577 5575 5574 5571 5574 5587 5576 5584 131 23 2476 2492 2488 2484 2487 2499 2527 2544 2575 2684 2936 3246 3438 3471 3401 3309 3290 3302 3272 3260 3453 4072 4759 5183 5389 5481 5528 5557 5572 5570 5567 5566 5568 5574 5565 5578 132 24 3148 3228 3279 3324 3357 3392 3422 3411 3384 3371 3408 3456 3464 3411 3303 3196 3173 3184 3152 3137 3346 3999 4708 5136 5345 5439 5485 5512 5526 5523 5523 5521 5525 5530 5524 5533 133 25 3743 3959 4127 4270 4348 4431 4486 4449 4339 4189 4016 3852 3726 3599 3436 3284 3231 3218 3152 3110 3335 4066 4838 5294 5511 5605 5653 5689 5717 5725 5719 5709 5700 5693 5683 5702 134 26 3684 4008 4353 4637 4790 4946 5093 5075 4919 4700 4439 4190 3996 3793 3530 3272 3135 3041 2887 2777 3004 3867 4841 5432 5714 5833 5889 5942 5999 6030 6021 5989 5942 5899 5881 5927 135 27 3310 3632 4039 4384 4556 4749 4941 4926 4728 4461 4147 3846 3612 3372 3063 2767 2596 2477 2301 2181 2408 3335 4449 5160 5505 5653 5722 5781 5852 5888 5876 5839 5778 5717 5693 5747 136 1 0184 0198 0204 0210 0209 0216 0240 0281 0374 0637 1403 2704 3737 3976 3609 2954 2263 1618 1100 0795 0639 0556 0491 0442 0420 0409 0403 0419 0456 0487 0482 0458 0418 0383 0381 0417 137 2 0196 0211 0223 0242 0245 0260 0296 0357 0477 0799 1675 3102 4193 4381 3896 3118 2329 1615 1059 0742 0586 0503 0439 0393 0371 0361 0355 0369 0403 0434 0427 0405 0367 0336 0335 0372 138 3 0217 0279 0397 0500 0545 0615 0749 0913 1122 1568 2547 3889 4732 4693 4057 3178 2321 1569 1002 0686 0535 0457 0397 0354 0334 0324 0319 0331 0363 0390 0384 0363 0329 0303 0303 0338 139 4 0320 0538 0898 1260 1419 1646 1993 2328 2599 3028 3769 4577 4904 4647 4001 3168 2346 1612 1044 0724 0568 0487 0426 0382 0361 0350 0345 0358 0393 0419 0414 0393 0357 0330 0332 0366 140 5 0437 0753 1332 1918 2189 2556 3120 3608 3903 4269 4800 5271 5313 4899 4169 3275 2410 1639 1044 0712 0552 0470 0409 0366 0347 0336 0331 0343 0376 0402 0397 0375 0343 0317 0322 0354 141 6 0541 0944 1675 2419 2780 3266 3998 4589 4837 5023 5182 5217 5005 4540 3857 3040 2246 1533 0981 0673 0525 0452 0397 0359 0341 0332 0328 0339 0366 0389 0385 0366 0337 0316 0322 0354 142 7 0558 0989 1785 2618 3035 3593 4448 5138 5398 5553 5634 5571 5283 4755 4009 3133 2292 1542 0968 0649 0500 0427 0372 0334 0316 0308 0304 0315 0343 0367 0360 0343 0316 0292 0301 0332 143 8 0584 1063 1947 2873 3341 3973 4948 5733 5995 6098 6064 5883 5517 4946 4164 3252 2377 1595 0993 0658 0501 0421 0364 0324 0305 0297 0293 0304 0333 0359 0354 0333 0304 0279 0287 0320 144 9 0578 1033 1940 2908 3401 4069 5116 5927 6136 6134 5953 5646 5228 4648 3871 2985 2158 1430 0871 0565 0434 0381 0339 0306 0291 0282 0279 0290 0319 0344 0339 0319 0290 0267 0275 0305 145 10 0261 0238 0223 0221 0219 0217 0232 0253 0307 0466 0954 1804 2535 2862 2901 2786 2622 2433 2247 2124 2048 2006 1968 1941 1931 1926 1928 1948 1981 2003 2002 1985 1957 1932 1926 1952 146 11 0603 0592 0612 0646 0639 0661 0712 0787 0903 1173 1799 2697 3378 3646 3635 3472 3263 3032 2810 2663 2570 2516 2468 2432 2418 2411 2411 2429 2463 2484 2478 2458 2425 2391 2382 2410 147 12 0887 0973 1079 1167 1198 1252 1350 1461 1598 1872 2427 3142 3622 3756 3662 3437 3171 2883 2614 2437 2327 2265 2209 2167 2148 2136 2134 2153 2188 2213 2205 2180 2140 2100 2090 2126 148 13 1254 1430 1656 1850 1926 2032 2200 2355 2499 2740 3177 3680 3965 3977 3808 3519 3195 2855 2542 2336 2210 2137 2074 2025 2001 1988 1982 2000 2039 2066 2056 2028 1982 1942 1929 1964 149 14 1736 2054 2411 2719 2849 3022 3255 3446 3570 3716 3938 4155 4225 4138 3932 3624 3288 2938 2613 2395 2263 2185 2117 2065 2039 2024 2019 2037 2078 2106 2095 2066 2016 1972 1957 1996 150 15 1969 2386 2939 3421 3639 3911 4276 4547 4654 4720 4772 4787 4706 4514 4209 3805 3378 2945 2546 2281 2137 2077 2021 1969 1943 1927 1920 1941 1992 2028 2016 1979 1918 1862 1847 1893 151 16 2094 2604 3277 3857 4135 4473 4919 5227 5304 5289 5207 5082 4910 4659 4298 3841 3382 2921 2490 2202 2072 2064 2054 2017 1996 1981 1975 2000 2060 2102 2088 2046 1977 1911 1895 1947 152 17 1984 2517 3288 3973 4299 4710 5257 5621 5675 5614 5470 5275 5040 4715 4254 3706 3185 2683 2219 1917 1812 1887 1957 1961 1955 1946 1940 1969 2032 2079 2066 2019 1944 1873 1856 1911 153 18 1477 2028 2836 3600 3974 4447 5096 5499 5497 5359 5112 4817 4505 4107 3567 2964 2429 1939 1499 1224 1158 1309 1464 1519 1533 1533 1531 1562 1628 1677 1665 1620 1545 1472 1459 1517 154 19 0465 0362 0297 0261 0239 0234 0245 0272 0341 0583 1320 2618 3819 4468 4676 4691 4710 4736 4718 4722 4880 5356 5839 6111 6244 6301 6340 6367 6385 6382 6380 6379 6385 6401 6387 6402 155 20 0701 0594 0512 0463 0438 0427 0442 0480 0579 0867 1639 2870 3937 4484 4650 4651 4664 4687 4668 4669 4818 5277 5750 6023 6156 6214 6251 6279 6294 6292 6290 6290 6296 6304 6298 6307 156 21 1432 1361 1277 1215 1184 1176 1197 1252 1376 1689 2410 3433 4243 4627 4727 4708 4715 4730 4709 4708 4843 5257 5680 5923 6042 6095 6129 6153 6166 6162 6158 6155 6159 6172 6161 6169 157 22 1975 1933 1863 1812 1780 1772 1804 1866 1991 2287 2909 3722 4316 4572 4616 4578 4577 4589 4565 4563 4702 5125 5553 5794 5913 5966 5998 6021 6033 6029 6025 6023 6030 6042 6034 6042 158 23 2792 2797 2775 2750 2732 2744 2784 2841 2942 3164 3601 4128 4478 4604 4591 4531 4522 4532 4505 4501 4649 5093 5527 5772 5892 5946 5979 6003 6015 6010 6007 6004 6008 6018 6008 6017 159 24 3699 3818 3876 3920 3938 3978 4027 4065 4113 4198 4356 4522 4606 4607 4548 4470 4457 4467 4439 4434 4592 5014 5389 5589 5685 5729 5760 5781 5793 5791 5786 5784 5789 5799 5793 5802 160 25 4365 4622 4829 4989 5081 5169 5239 5251 5216 5139 5044 4951 4876 4790 4669 4540 4490 4462 4385 4340 4507 4981 5390 5601 5700 5744 5772 5803 5833 5841 5836 5824 5810 5804 5791 5816 161 26 4319 4728 5128 5460 5628 5815 6001 6047 5964 5814 5626 5433 5267 5083 4831 4558 4385 4240 4036 3891 4057 4702 5332 5669 5822 5885 5918 5965 6029 6059 6045 6010 5954 5902 5879 5937 162 27 3916 4337 4817 5207 5409 5634 5872 5930 5805 5603 5355 5107 4896 4662 4344 4015 3795 3613 3376 3210 3382 4127 4926 5388 5600 5686 5728 5781 5853 5890 5875 5832 5763 5698 5671 5731 163 1 0188 0192 0210 0219 0214 0226 0255 0307 0413 0721 1608 3132 4389 4699 4255 3476 2667 1914 1308 0945 0758 0656 0575 0515 0486 0471 0464 0484 0532 0571 0564 0532 0480 0437 0431 0474 164 2 0194 0215 0238 0257 0258 0276 0320 0388 0517 0867 1813 3355 4559 4782 4262 3424 2580 1810 1205 0850 0673 0578 0503 0448 0423 0409 0403 0420 0462 0497 0490 0463 0418 0379 0373 0415 165 3 0227 0288 0389 0481 0509 0571 0692 0839 1038 1480 2471 3868 4791 4812 4207 3343 2489 1722 1129 0791 0623 0534 0465 0415 0392 0379 0373 0389 0427 0458 0452 0426 0385 0350 0349 0388 166 4 0314 0489 0797 1087 1212 1394 1687 1986 2261 2738 3634 4694 5221 5014 4332 3439 2565 1779 1167 0816 0643 0550 0480 0428 0403 0391 0386 0401 0440 0473 0466 0440 0398 0362 0360 0402 167 5 0429 0715 1216 1705 1930 2236 2707 3133 3430 3858 4553 5263 5476 5116 4380 3465 2579 1784 1166 0812 0640 0550 0480 0431 0407 0396 0391 0406 0443 0473 0467 0442 0404 0369 0371 0414 168 6 0506 0869 1518 2168 2468 2888 3523 4063 4365 4716 5206 5617 5597 5131 4355 3426 2534 1736 1120 0770 0601 0514 0448 0401 0380 0370 0364 0378 0412 0441 0435 0412 0375 0346 0349 0387 169 7 0541 0958 1701 2476 2850 3367 4153 4805 5105 5374 5670 5829 5634 5094 4289 3347 2452 1657 1051 0712 0552 0469 0410 0368 0348 0339 0334 0346 0377 0402 0397 0377 0346 0319 0325 0360 170 8 0554 1026 1880 2760 3198 3788 4704 5452 5747 5943 6075 6047 5743 5161 4341 3388 2476 1666 1043 0694 0529 0445 0384 0341 0320 0311 0306 0319 0349 0376 0369 0351 0317 0294 0299 0336 171 9 0578 1084 1998 2974 3464 4133 5190 6047 6331 6433 6376 6160 5757 5142 4313 3354 2443 1631 1007 0660 0496 0414 0354 0312 0294 0285 0281 0292 0323 0348 0342 0323 0292 0269 0275 0309 172 10 0288 0258 0263 0256 0256 0258 0280 0318 0397 0631 1316 2518 3586 4051 4031 3752 3397 3013 2658 2421 2278 2198 2126 2070 2045 2032 2029 2055 2105 2144 2138 2108 2056 2005 1990 2041 173 11 0502 0538 0578 0623 0623 0654 0726 0819 0968 1318 2136 3352 4304 4647 4542 4197 3789 3361 2972 2715 2561 2474 2394 2335 2306 2291 2286 2312 2363 2400 2390 2355 2299 2245 2229 2273 174 12 0790 0890 1030 1149 1186 1261 1389 1536 1716 2081 2839 3858 4571 4756 4573 4186 3749 3299 2894 2629 2471 2381 2301 2240 2211 2195 2188 2211 2261 2295 2285 2252 2194 2138 2124 2167 175 13 1159 1333 1569 1781 1857 1977 2163 2356 2550 2899 3559 4372 4875 4937 4699 4284 3826 3355 2932 2655 2490 2394 2310 2247 2217 2200 2191 2213 2265 2301 2287 2252 2192 2135 2118 2162 176 14 1573 1875 2243 2550 2677 2860 3123 3367 3560 3860 4373 4953 5254 5211 4925 4482 4004 3515 3071 2777 2604 2501 2412 2345 2312 2293 2284 2308 2362 2399 2387 2346 2282 2221 2204 2253 177 15 1957 2395 2974 3466 3686 3966 4353 4669 4843 5024 5275 5495 5524 5343 4992 4503 3982 3449 2963 2639 2445 2331 2231 2154 2118 2096 2085 2112 2175 2217 2203 2160 2087 2019 2002 2059 178 16 2221 2819 3558 4222 4530 4918 5445 5850 6001 6087 6137 6124 5991 5716 5292 4734 4149 3560 3021 2661 2450 2331 2226 2144 2102 2079 2066 2097 2166 2213 2197 2148 2070 1991 1974 2036 179 17 2261 2907 3790 4580 4956 5429 6084 6563 6702 6717 6636 6484 6250 5894 5386 4749 4102 3460 2879 2493 2289 2208 2134 2060 2021 1999 1986 2017 2092 2143 2125 2074 1987 1904 1886 1954 180 18 2105 2784 3722 4590 5011 5547 6295 6838 6966 6944 6805 6587 6294 5874 5286 4572 3876 3203 2599 2204 2021 1989 1954 1900 1864 1844 1832 1864 1939 1991 1975 1922 1834 1749 1727 1795 181 19 0498 0390 0309 0257 0239 0235 0245 0277 0368 0674 1596 3239 4852 5828 6240 6356 6406 6426 6417 6435 6484 6643 6781 6857 6907 6934 6958 6980 6994 6990 6987 6987 6993 7006 6997 7006 182 20 0752 0623 0532 0478 0447 0433 0445 0494 0614 0964 1893 3412 4801 5588 5900 5974 6011 6029 6017 6030 6095 6306 6496 6601 6663 6692 6717 6742 6754 6749 6747 6744 6749 6762 6751 6758 183 21 1598 1496 1399 1331 1285 1277 1298 1375 1538 1933 2839 4154 5258 5841 6066 6110 6136 6144 6127 6138 6186 6348 6491 6567 6617 6642 6664 6686 6698 6691 6686 6683 6689 6699 6693 6698 184 22 2154 2095 2000 1934 1892 1885 1922 2013 2195 2597 3432 4552 5428 5863 6023 6045 6061 6066 6047 6055 6103 6253 6382 6454 6502 6525 6547 6565 6577 6574 6571 6569 6570 6580 6568 6582 185 23 3047 3041 2985 2944 2916 2927 2977 3082 3271 3636 4311 5136 5726 6006 6105 6107 6115 6115 6097 6105 6139 6251 6337 6387 6422 6440 6459 6477 6490 6484 6482 6478 6484 6494 6486 6499 186 24 4143 4245 4280 4320 4341 4387 4451 4547 4696 4919 5272 5643 5875 5975 6015 6006 6012 6011 5991 6001 6019 6080 6119 6146 6171 6187 6205 6224 6239 6236 6235 6231 6234 6245 6236 6256 187 25 4772 5027 5168 5289 5373 5439 5503 5553 5608 5633 5662 5690 5712 5729 5750 5747 5753 5752 5743 5760 5755 5759 5758 5768 5789 5803 5823 5840 5857 5855 5854 5854 5864 5876 5876 5887 188 26 4764 5261 5726 6089 6278 6484 6697 6825 6848 6806 6736 6649 6555 6426 6231 5985 5782 5575 5321 5137 5157 5406 5575 5625 5652 5658 5665 5712 5784 5821 5806 5767 5698 5633 5611 5681 189 27 4669 5249 5839 6330 6572 6844 7160 7333 7338 7258 7130 6982 6825 6615 6317 5956 5655 5360 5015 4769 4793 5135 5410 5514 5555 5564 5572 5621 5708 5754 5734 5680 5589 5499 5469 5551 190 1 0177 0211 0221 0237 0233 0245 0280 0338 0451 0777 1695 3273 4598 4937 4482 3675 2843 2071 1445 1067 0869 0761 0673 0607 0575 0559 0553 0574 0625 0667 0661 0627 0571 0520 0517 0557 191 2 0199 0234 0275 0303 0301 0329 0382 0463 0606 0975 1932 3465 4656 4880 4369 3546 2711 1945 1333 0970 0783 0683 0602 0540 0512 0498 0491 0511 0557 0595 0587 0558 0506 0460 0457 0500 192 3 0247 0321 0448 0546 0583 0648 0776 0932 1137 1580 2569 3969 4912 4958 4377 3530 2685 1919 1311 0954 0773 0675 0596 0539 0511 0497 0490 0508 0553 0589 0584 0554 0505 0462 0459 0502 193 4 0340 0485 0750 0990 1091 1245 1490 1748 2004 2477 3402 4568 5225 5100 4459 3589 2731 1950 1332 0970 0786 0687 0608 0550 0523 0508 0501 0519 0564 0601 0594 0565 0517 0473 0472 0516 194 5 0436 0699 1131 1543 1722 1972 2366 2730 3016 3465 4245 5119 5482 5203 4507 3614 2744 1952 1326 0961 0776 0677 0600 0543 0517 0503 0496 0514 0557 0591 0586 0558 0509 0470 0467 0511 195 6 0541 0864 1437 1994 2241 2592 3120 3582 3873 4258 4864 5459 5587 5195 4456 3550 2676 1888 1270 0913 0736 0642 0570 0518 0492 0480 0474 0489 0528 0561 0555 0528 0486 0449 0449 0493 196 7 0560 0954 1640 2319 2637 3070 3730 4288 4582 4907 5352 5711 5661 5184 4411 3489 2603 1809 1192 0838 0665 0575 0505 0457 0434 0423 0417 0432 0468 0498 0491 0468 0429 0398 0400 0435 197 8 0564 1033 1852 2693 3110 3677 4544 5253 5546 5765 5952 5986 5719 5151 4342 3397 2497 1694 1075 0726 0560 0475 0411 0368 0347 0338 0333 0345 0378 0405 0399 0379 0344 0319 0324 0362 198 9 0582 1073 1945 2866 3323 3943 4912 5697 5984 6140 6196 6089 5743 5148 4325 3377 2473 1669 1049 0702 0536 0452 0391 0348 0328 0319 0314 0325 0358 0384 0379 0358 0325 0300 0304 0345 199 10 0319 0299 0302 0297 0294 0303 0329 0378 0479 0773 1629 3180 4643 5303 5236 4786 4242 3683 3181 2849 2653 2539 2439 2362 2326 2307 2301 2330 2397 2445 2434 2394 2323 2250 2232 2289 200 11 0459 0485 0520 0551 0547 0579 0644 0746 0913 1324 2356 4011 5446 6013 5851 5321 4713 4098 3549 3190 2979 2855 2746 2663 2623 2602 2592 2623 2692 2741 2729 2683 2604 2526 2507 2564 201 12 0807 0893 1044 1159 1197 1271 1415 1587 1804 2267 3275 4720 5822 6149 5894 5337 4725 4108 3560 3205 2993 2871 2764 2681 2642 2620 2610 2640 2704 2752 2736 2691 2615 2540 2518 2575 202 13 1107 1275 1521 1715 1782 1902 2106 2324 2568 3043 4009 5317 6239 6433 6110 5511 4866 4221 3647 3273 3052 2924 2812 2726 2684 2660 2649 2678 2746 2793 2777 2728 2645 2565 2546 2603 203 14 1423 1689 2055 2367 2485 2668 2950 3231 3488 3935 4784 5852 6519 6557 6163 5530 4863 4198 3612 3230 3005 2873 2759 2672 2630 2604 2593 2622 2687 2733 2717 2667 2586 2505 2482 2544 204 15 1830 2213 2732 3177 3360 3621 3999 4343 4594 4962 5584 6275 6608 6488 6055 5428 4767 4108 3518 3133 2905 2773 2657 2569 2524 2498 2487 2516 2585 2634 2616 2564 2480 2399 2377 2438 205 16 2125 2681 3393 4031 4314 4689 5226 5665 5903 6156 6504 6815 6848 6576 6068 5390 4685 3985 3358 2945 2704 2561 2437 2343 2296 2269 2256 2285 2359 2411 2393 2340 2251 2165 2148 2212 206 17 2350 3041 3982 4830 5231 5744 6476 7041 7256 7358 7388 7323 7107 6709 6126 5387 4632 3882 3216 2778 2521 2370 2240 2139 2089 2060 2046 2079 2158 2213 2196 2139 2046 1954 1935 2006 207 18 2354 3079 4057 4956 5388 5937 6720 7313 7505 7543 7468 7300 7024 6605 6011 5269 4516 3772 3109 2672 2425 2289 2170 2075 2028 1999 1983 2018 2095 2150 2133 2077 1984 1893 1874 1945 208 19 0536 0413 0325 0269 0251 0246 0255 0295 0398 0742 1779 3665 5611 6880 7463 7651 7726 7746 7739 7760 7772 7835 7883 7918 7954 7975 7998 8023 8040 8033 8028 8024 8028 8043 8029 8042 209 20 0706 0569 0476 0419 0384 0377 0390 0441 0569 0941 1981 3761 5505 6578 7051 7193 7241 7241 7217 7225 7217 7246 7262 7279 7311 7327 7347 7370 7389 7386 7380 7375 7377 7385 7374 7390 210 21 1653 1531 1422 1349 1304 1293 1325 1409 1590 2036 3059 4578 5908 6651 6962 7045 7067 7052 7016 7017 6993 6984 6972 6973 6991 7004 7021 7045 7063 7059 7054 7046 7049 7053 7041 7055 211 22 2068 1996 1919 1854 1811 1808 1854 1962 2173 2642 3636 5018 6153 6746 6972 7000 6977 6918 6839 6805 6760 6739 6715 6707 6720 6727 6741 6768 6793 6797 6791 6777 6768 6764 6749 6771 212 23 2723 2756 2737 2712 2688 2703 2776 2915 3146 3609 4509 5677 6569 6995 7132 7097 7021 6910 6785 6712 6644 6609 6571 6550 6555 6558 6572 6600 6634 6643 6636 6618 6592 6571 6561 6591 213 24 3531 3654 3711 3762 3764 3809 3915 4077 4313 4722 5436 6274 6849 7092 7146 7073 6972 6836 6685 6592 6510 6463 6414 6386 6387 6387 6395 6428 6471 6489 6481 6459 6424 6396 6379 6427 214 25 4534 4868 5154 5359 5459 5585 5773 5968 6178 6471 6918 7383 7652 7717 7662 7495 7305 7075 6826 6654 6521 6442 6367 6313 6298 6290 6296 6337 6403 6435 6421 6382 6320 6262 6240 6304 215 26 5247 5881 6439 6888 7119 7368 7657 7869 7977 8023 8042 8042 8003 7910 7758 7508 7234 6920 6582 6336 6158 6048 5943 5864 5834 5819 5821 5871 5959 6007 5987 5935 5848 5763 5742 5826 216 27 5111 5774 6432 6970 7237 7541 7902 8161 8269 8301 8287 8244 8157 8004 7767 7424 7072 6681 6270 5973 5799 5735 5656 5580 5547 5529 5526 5578 5674 5727 5701 5639 5539 5440 5407 5500 217 1 0179 0208 0232 0238 0237 0249 0279 0341 0457 0786 1715 3325 4698 5084 4655 3861 3033 2255 1615 1223 1015 0899 0804 0733 0698 0679 0671 0695 0752 0799 0790 0754 0692 0632 0625 0675 218 2 0215 0258 0308 0350 0360 0389 0455 0553 0713 1102 2083 3626 4825 5062 4566 3753 2919 2148 1521 1143 0945 0836 0747 0681 0648 0632 0624 0646 0698 0739 0731 0700 0643 0587 0584 0628 219 3 0256 0337 0463 0566 0599 0671 0803 0960 1165 1613 2614 4038 5021 5102 4541 3703 2857 2084 1464 1095 0903 0798 0714 0650 0621 0605 0598 0617 0667 0705 0697 0666 0613 0564 0558 0602 220 4 0333 0499 0765 0998 1097 1243 1477 1727 1983 2464 3413 4624 5339 5257 4637 3776 2916 2126 1491 1113 0917 0810 0724 0660 0628 0613 0605 0625 0674 0713 0706 0675 0620 0571 0567 0609 221 5 0413 0649 1027 1363 1510 1718 2051 2371 2648 3112 3973 4988 5499 5302 4642 3762 2894 2101 1468 1093 0900 0796 0712 0652 0624 0608 0600 0618 0666 0703 0696 0665 0613 0567 0567 0612 222 6 0546 0871 1413 1910 2129 2443 2919 3336 3627 4042 4725 5440 5681 5350 4639 3745 2867 2070 1434 1060 0870 0767 0685 0626 0598 0584 0576 0593 0638 0675 0665 0637 0587 0545 0542 0588 223 7 0620 0995 1632 2245 2532 2921 3504 4005 4296 4660 5201 5701 5769 5352 4607 3696 2812 2010 1374 1004 0818 0718 0640 0583 0557 0543 0535 0551 0594 0629 0621 0593 0545 0508 0506 0550 224 8 0589 1013 1739 2453 2792 3252 3940 4513 4808 5124 5536 5858 5787 5307 4533 3604 2706 1893 1255 0885 0701 0605 0531 0478 0452 0440 0434 0449 0490 0522 0514 0488 0446 0410 0411 0453 225 9 0566 1030 1901 2782 3212 3814 4732 5479 5776 5969 6095 6065 5764 5184 4362 3407 2492 1679 1053 0700 0534 0448 0385 0342 0322 0312 0307 0320 0352 0379 0373 0353 0319 0294 0301 0332 226 10 0297 0303 0309 0313 0303 0315 0346 0406 0520 0849 1803 3534 5200 5943 5808 5221 4542 3860 3259 2869 2640 2507 2392 2302 2258 2234 2226 2258 2334 2388 2376 2329 2244 2163 2144 2206 227 11 0379 0367 0399 0417 0420 0438 0495 0581 0738 1136 2170 3882 5390 5963 5732 5107 4408 3715 3110 2718 2491 2359 2245 2158 2115 2090 2081 2112 2183 2236 2224 2176 2095 2015 1996 2057 228 12 0703 0778 0924 1041 1073 1149 1290 1461 1686 2164 3222 4758 5950 6295 5997 5377 4698 4025 3431 3050 2824 2694 2581 2495 2452 2428 2416 2447 2516 2564 2548 2502 2421 2338 2320 2378 229 13 0821 0965 1175 1351 1414 1520 1703 1914 2156 2639 3650 5048 6053 6267 5902 5248 4546 3857 3254 2870 2645 2515 2402 2317 2275 2252 2242 2268 2335 2383 2370 2322 2240 2165 2143 2201 230 14 1022 1251 1544 1798 1893 2041 2290 2541 2795 3267 4204 5429 6244 6338 5930 5257 4545 3848 3239 2848 2622 2490 2376 2291 2248 2223 2212 2239 2306 2352 2338 2291 2209 2129 2111 2167 231 15 1471 1828 2303 2714 2884 3125 3486 3819 4089 4513 5267 6145 6615 6526 6054 5361 4638 3926 3300 2895 2660 2522 2403 2314 2269 2241 2229 2259 2328 2377 2360 2310 2225 2146 2122 2182 232 16 1850 2346 3031 3624 3890 4236 4746 5180 5441 5766 6255 6728 6869 6615 6076 5350 4599 3858 3206 2779 2531 2385 2260 2166 2119 2091 2077 2107 2182 2235 2220 2167 2075 1989 1971 2035 233 17 2112 2722 3539 4272 4608 5045 5668 6170 6410 6628 6891 7080 7022 6683 6116 5379 4619 3869 3203 2766 2511 2361 2232 2135 2084 2056 2042 2075 2153 2207 2189 2135 2041 1953 1933 2002 234 18 2123 2816 3781 4666 5084 5627 6409 7014 7235 7332 7344 7253 7009 6579 5959 5182 4391 3617 2937 2496 2244 2095 1969 1874 1826 1798 1784 1815 1890 1943 1926 1873 1781 1698 1679 1746 235 19 0559 0431 0348 0301 0272 0266 0281 0327 0443 0818 1930 3963 6117 7558 8204 8355 8340 8248 8123 8061 7995 7960 7925 7911 7923 7931 7949 7978 8011 8018 8010 7991 7968 7959 7940 7962 236 20 0748 0632 0548 0491 0459 0454 0478 0543 0694 1123 2283 4262 6240 7465 7951 8004 7921 7770 7596 7496 7408 7360 7313 7287 7291 7294 7307 7338 7379 7393 7381 7361 7327 7304 7294 7318 237 21 1300 1219 1146 1091 1052 1053 1096 1199 1399 1902 3100 4974 6705 7683 8016 7984 7842 7642 7427 7295 7188 7129 7070 7037 7036 7031 7041 7074 7119 7138 7125 7098 7059 7024 7003 7041 238 22 1597 1554 1520 1495 1467 1481 1547 1667 1889 2408 3579 5341 6901 7725 7949 7835 7621 7359 7086 6916 6787 6714 6641 6595 6585 6577 6583 6617 6668 6691 6676 6643 6592 6547 6526 6563 239 23 2120 2163 2195 2220 2201 2243 2344 2499 2751 3281 4388 5938 7211 7809 7912 7732 7475 7174 6870 6674 6529 6447 6366 6313 6296 6287 6290 6324 6381 6408 6392 6352 6294 6241 6219 6261 240 24 3012 3176 3310 3401 3425 3502 3655 3857 4131 4636 5581 6775 7648 7988 7975 7750 7470 7150 6824 6609 6454 6359 6271 6211 6192 6181 6181 6218 6282 6314 6295 6253 6185 6125 6099 6150 241 25 3946 4229 4463 4634 4702 4821 5015 5244 5518 5956 6693 7530 8071 8239 8175 7951 7688 7383 7064 6848 6688 6591 6500 6434 6412 6400 6401 6443 6512 6549 6530 6488 6410 6341 6316 6373 242 26 4676 5185 5654 6023 6196 6412 6699 6956 7169 7421 7781 8131 8300 8270 8104 7812 7484 7113 6727 6457 6263 6144 6029 5946 5912 5892 5891 5937 6024 6072 6050 5994 5901 5809 5782 5860 243 27 4951 5672 6385 6953 7236 7553 7944 8233 8364 8420 8435 8414 8337 8183 7938 7576 7181 6739 6283 5954 5725 5582 5448 5346 5302 5276 5268 5323 5424 5483 5458 5395 5282 5174 5145 5236 244 1 0285 0272 0272 0262 0262 0264 0266 0266 0267 0278 0314 0360 0384 0388 0376 0362 0360 0364 0363 0364 0401 0510 0626 0693 0724 0740 0751 0759 0765 0771 0774 0779 0784 0788 0792 0797 245 2 0511 0537 0571 0601 0612 0628 0643 0634 0614 0587 0560 0536 0515 0489 0454 0421 0403 0393 0378 0370 0410 0547 0699 0781 0819 0839 0849 0860 0870 0877 0880 0880 0879 0880 0882 0892 246 3 0469 0555 0663 0768 0814 0866 0929 0936 0897 0839 0768 0698 0642 0581 0503 0426 0374 0333 0292 0271 0305 0441 0598 0681 0718 0733 0741 0755 0774 0786 0788 0782 0772 0758 0762 0781 247 4 0510 0631 0820 0995 1075 1175 1282 1310 1252 1163 1053 0942 0852 0756 0632 0511 0428 0363 0302 0270 0304 0453 0624 0712 0748 0763 0770 0786 0813 0833 0833 0822 0800 0780 0781 0808 248 5 0562 0762 1061 1339 1478 1643 1831 1867 1740 1567 1360 1161 1010 0859 0673 0512 0416 0349 0284 0255 0301 0488 0714 0832 0879 0896 0905 0927 0969 1004 1000 0979 0936 0896 0894 0930 249 6 0604 0841 1186 1520 1688 1883 2106 2135 1963 1735 1470 1226 1047 0875 0669 0499 0407 0346 0285 0259 0309 0515 0760 0887 0935 0953 0959 0985 1035 1075 1069 1040 0989 0941 0933 0982 250 7 0634 0896 1318 1714 1918 2155 2436 2482 2278 2010 1700 1413 1204 0998 0756 0555 0445 0371 0300 0267 0317 0525 0768 0889 0932 0945 0950 0976 1030 1073 1067 1033 0974 0921 0914 0963 251 8 0637 0907 1350 1779 1991 2248 2543 2588 2377 2096 1772 1470 1250 1033 0778 0566 0451 0372 0294 0258 0310 0522 0766 0884 0924 0936 0941 0968 1025 1069 1062 1028 0967 0911 0901 0949 252 9 0644 0907 1373 1821 2043 2321 2653 2723 2523 2247 1923 1616 1385 1154 0875 0636 0494 0392 0300 0255 0302 0508 0743 0855 0893 0905 0909 0937 0992 1037 1029 0995 0938 0879 0872 0919 253 10 0268 0254 0235 0224 0217 0217 0217 0223 0238 0276 0363 0457 0490 0461 0398 0345 0332 0341 0333 0331 0457 0973 1741 2285 2558 2686 2752 2793 2818 2829 2841 2851 2863 2877 2883 2894 254 11 0490 0448 0428 0416 0407 0412 0417 0413 0411 0434 0503 0576 0598 0565 0495 0434 0421 0432 0422 0419 0556 1091 1845 2367 2625 2744 2806 2842 2864 2874 2884 2891 2900 2914 2921 2923 255 12 0712 0695 0695 0695 0701 0712 0717 0694 0655 0626 0620 0614 0590 0541 0467 0408 0395 0405 0397 0395 0528 1053 1792 2300 2550 2666 2725 2759 2778 2788 2794 2802 2810 2823 2822 2835 256 13 0957 0964 1000 1022 1043 1061 1069 1017 0928 0834 0740 0653 0588 0523 0442 0381 0367 0375 0366 0364 0497 1038 1812 2346 2609 2729 2787 2820 2843 2852 2859 2863 2870 2877 2880 2890 257 14 1149 1191 1276 1346 1389 1432 1454 1378 1237 1077 0906 0757 0657 0569 0467 0391 0369 0371 0354 0348 0484 1061 1906 2494 2784 2914 2977 3018 3049 3065 3069 3068 3060 3061 3058 3076 258 15 1175 1270 1427 1555 1621 1695 1751 1676 1504 1307 1092 0904 0776 0663 0529 0427 0389 0379 0349 0335 0469 1053 1911 2506 2795 2925 2984 3028 3075 3105 3107 3095 3068 3046 3040 3073 259 16 1140 1327 1592 1820 1933 2061 2174 2108 1896 1644 1372 1128 0960 0806 0625 0485 0425 0397 0348 0322 0445 0997 1792 2325 2576 2685 2734 2786 2857 2905 2899 2868 2810 2752 2740 2789 260 17 1165 1405 1746 2033 2177 2336 2492 2425 2178 1884 1562 1276 1078 0896 0683 0517 0443 0406 0347 0315 0438 0999 1815 2359 2614 2721 2770 2824 2906 2963 2954 2912 2837 2759 2736 2800 261 18 1170 1430 1803 2119 2283 2465 2643 2583 2324 2015 1676 1372 1160 0965 0735 0553 0471 0427 0361 0324 0446 1003 1801 2328 2572 2672 2715 2772 2858 2918 2908 2862 2777 2693 2672 2739 262 19 0477 0417 0386 0357 0348 0346 0355 0360 0375 0434 0573 0716 0759 0701 0579 0480 0459 0477 0460 0451 0671 1645 3264 4629 5415 5798 5978 6064 6106 6120 6126 6137 6144 6162 6160 6167 263 20 0567 0529 0494 0471 0461 0462 0473 0470 0467 0508 0618 0728 0754 0692 0573 0476 0457 0473 0456 0448 0663 1611 3180 4496 5250 5615 5789 5870 5912 5926 5933 5939 5947 5963 5966 5970 264 21 0724 0665 0648 0631 0626 0626 0636 0628 0607 0624 0699 0767 0765 0693 0569 0471 0451 0468 0451 0443 0662 1609 3150 4418 5134 5478 5640 5720 5760 5771 5780 5785 5794 5810 5808 5814 265 22 0988 0967 0961 0959 0957 0972 0985 0948 0886 0850 0849 0838 0791 0701 0570 0470 0450 0466 0450 0442 0663 1626 3178 4439 5143 5479 5638 5716 5755 5764 5771 5778 5786 5803 5799 5803 266 23 1313 1301 1329 1358 1375 1400 1415 1345 1222 1106 1003 0898 0804 0698 0561 0461 0441 0457 0441 0435 0655 1632 3199 4460 5162 5498 5653 5729 5765 5775 5783 5784 5792 5808 5804 5809 267 24 1650 1679 1749 1807 1850 1889 1906 1789 1590 1377 1156 0958 0819 0693 0544 0438 0417 0433 0418 0409 0642 1669 3300 4602 5327 5670 5829 5905 5946 5954 5962 5966 5972 5985 5981 5990 268 25 1961 2024 2152 2259 2327 2397 2425 2277 2016 1724 1416 1146 0968 0813 0632 0500 0471 0484 0457 0442 0698 1807 3503 4818 5535 5873 6030 6111 6162 6181 6184 6180 6169 6166 6158 6178 269 26 1941 2049 2262 2431 2527 2630 2689 2550 2265 1946 1606 1309 1110 0933 0726 0571 0522 0518 0475 0448 0689 1758 3393 4651 5330 5645 5788 5873 5947 5984 5982 5960 5919 5882 5866 5904 270 27 1903 2045 2279 2457 2564 2677 2746 2602 2304 1972 1620 1315 1111 0931 0723 0566 0515 0507 0463 0436 0665 1720 3396 4726 5459 5800 5954 6045 6127 6169 6165 6139 6092 6046 6030 6078 271 1 0326 0316 0311 0300 0296 0300 0302 0308 0331 0378 0485 0622 0711 0750 0762 0763 0763 0762 0759 0760 0765 0777 0787 0794 0800 0804 0810 0816 0821 0825 0829 0830 0834 0837 0843 0847 272 2 0493 0503 0503 0510 0515 0512 0515 0518 0521 0522 0523 0525 0528 0530 0533 0533 0535 0537 0539 0542 0544 0547 0550 0553 0557 0560 0564 0571 0575 0579 0582 0584 0587 0593 0598 0603 273 3 0450 0544 0683 0806 0864 0930 1007 1040 1030 0998 0956 0908 0861 0800 0715 0617 0534 0457 0385 0346 0352 0419 0485 0514 0525 0530 0533 0542 0558 0570 0569 0563 0550 0541 0542 0560 274 4 0494 0647 0891 1105 1213 1332 1477 1543 1521 1456 1366 1268 1179 1068 0917 0753 0618 0499 0392 0332 0341 0439 0539 0582 0598 0604 0607 0621 0643 0663 0660 0650 0626 0609 0608 0633 275 5 0605 0816 1149 1444 1592 1761 1970 2063 2013 1912 1775 1625 1492 1334 1125 0904 0730 0580 0445 0368 0385 0529 0682 0752 0779 0790 0795 0812 0845 0870 0868 0850 0820 0789 0789 0820 276 6 0712 0984 1407 1811 2006 2245 2546 2668 2577 2419 2205 1986 1795 1577 1295 1011 0797 0622 0463 0376 0402 0593 0811 0918 0959 0974 0980 1004 1048 1081 1076 1052 1006 0964 0958 1004 277 7 0776 1086 1605 2103 2354 2665 3055 3219 3097 2886 2609 2326 2084 1813 1465 1122 0869 0667 0485 0385 0413 0622 0855 0967 1007 1020 1025 1052 1104 1145 1137 1106 1051 0999 0992 1037 278 8 0678 1006 1552 2085 2357 2693 3121 3281 3122 2864 2540 2216 1951 1666 1307 0969 0733 0552 0392 0308 0340 0535 0748 0842 0873 0883 0886 0912 0969 1010 1004 0971 0912 0857 0849 0895 279 9 0635 0940 1460 1972 2229 2555 2961 3109 2941 2681 2358 2039 1783 1512 1172 0858 0646 0485 0345 0274 0309 0499 0708 0804 0836 0846 0848 0873 0928 0970 0962 0930 0874 0822 0815 0861 280 10 0263 0231 0208 0198 0193 0189 0192 0198 0219 0269 0415 0624 0755 0773 0718 0661 0649 0662 0651 0647 0785 1275 1888 2278 2466 2553 2600 2630 2649 2659 2669 2675 2684 2696 2698 2709 281 11 0527 0480 0453 0434 0428 0426 0435 0439 0450 0506 0654 0843 0952 0958 0897 0835 0822 0834 0822 0815 0960 1465 2093 2494 2685 2773 2818 2845 2862 2869 2874 2882 2887 2901 2900 2907 282 12 0784 0762 0757 0755 0748 0752 0763 0754 0737 0752 0823 0911 0947 0923 0853 0789 0775 0786 0773 0767 0905 1410 2047 2459 2658 2748 2792 2820 2836 2844 2847 2853 2858 2869 2868 2876 283 13 1210 1231 1250 1273 1284 1302 1313 1272 1204 1139 1087 1039 0994 0933 0846 0773 0757 0767 0752 0745 0894 1436 2123 2565 2776 2871 2919 2946 2961 2967 2970 2973 2978 2986 2986 2992 284 14 1455 1543 1633 1721 1763 1810 1835 1773 1648 1500 1338 1193 1091 0994 0875 0777 0745 0741 0710 0692 0844 1432 2192 2684 2918 3021 3073 3106 3133 3146 3146 3143 3137 3137 3132 3147 285 15 1481 1626 1792 1933 2011 2090 2157 2099 1941 1752 1543 1352 1215 1088 0930 0798 0740 0715 0664 0631 0782 1398 2217 2752 3005 3117 3170 3211 3252 3273 3277 3261 3236 3215 3210 3239 286 16 1485 1675 1949 2177 2298 2433 2553 2507 2322 2089 1827 1586 1410 1240 1032 0853 0761 0706 0625 0573 0718 1344 2180 2717 2971 3078 3130 3178 3237 3277 3273 3248 3200 3153 3140 3183 287 17 1278 1552 1938 2283 2457 2662 2865 2823 2572 2263 1920 1609 1384 1171 0914 0701 0591 0524 0434 0381 0506 1088 1907 2448 2701 2806 2849 2907 2992 3052 3042 2996 2907 2831 2811 2872 288 18 1165 1447 1864 2226 2410 2622 2842 2821 2576 2271 1929 1615 1389 1172 0911 0692 0575 0500 0407 0355 0466 0981 1691 2143 2349 2433 2467 2519 2603 2663 2653 2607 2523 2440 2424 2485 289 19 0346 0286 0247 0220 0204 0203 0208 0222 0253 0346 0588 0897 1060 1036 0890 0759 0732 0757 0732 0714 1007 2228 4167 5800 6760 7235 7460 7566 7615 7629 7636 7640 7651 7668 7666 7670 290 20 0449 0383 0334 0303 0292 0288 0295 0309 0336 0433 0667 0958 1107 1080 0938 0811 0785 0809 0783 0767 1053 2225 4048 5552 6418 6839 7040 7137 7181 7191 7198 7203 7211 7226 7225 7232 291 21 0725 0651 0603 0575 0560 0561 0575 0577 0584 0654 0842 1054 1149 1099 0951 0824 0798 0820 0797 0780 1062 2216 3999 5457 6292 6698 6891 6982 7027 7039 7046 7045 7056 7070 7067 7073 292 22 0951 0884 0862 0843 0830 0836 0852 0838 0820 0856 0984 1119 1156 1082 0927 0798 0772 0794 0769 0753 1035 2185 3950 5374 6178 6567 6749 6836 6879 6888 6893 6897 6905 6918 6914 6920 293 23 1310 1285 1277 1277 1279 1301 1316 1279 1206 1173 1198 1216 1181 1080 0912 0779 0751 0775 0749 0734 1022 2201 3996 5430 6237 6623 6806 6893 6933 6942 6947 6951 6959 6975 6970 6974 294 24 1732 1743 1773 1804 1829 1866 1884 1801 1656 1516 1391 1271 1162 1029 0852 0719 0690 0712 0689 0673 0960 2156 3979 5428 6242 6634 6815 6902 6942 6951 6956 6959 6966 6979 6974 6980 295 25 2246 2322 2441 2539 2600 2671 2697 2558 2307 2026 1733 1468 1284 1112 0905 0750 0714 0732 0699 0678 0986 2254 4124 5567 6365 6744 6919 7007 7056 7072 7072 7074 7067 7068 7061 7075 296 26 2242 2382 2598 2774 2868 2974 3038 2893 2601 2264 1908 1592 1378 1183 0954 0777 0720 0716 0662 0627 0905 2093 3851 5189 5914 6254 6406 6495 6566 6600 6597 6576 6543 6509 6499 6533 297 27 2084 2253 2504 2706 2819 2942 3022 2886 2591 2253 1895 1576 1362 1165 0933 0752 0688 0672 0613 0574 0825 1929 3603 4891 5589 5912 6058 6147 6225 6264 6259 6233 6182 6135 6118 6166 298 1 0289 0282 0303 0313 0316 0322 0339 0366 0402 0486 0667 0904 1060 1114 1111 1074 1024 0965 0908 0871 0847 0836 0827 0819 0819 0818 0821 0830 0841 0851 0851 0849 0843 0839 0840 0855 299 2 0466 0532 0604 0658 0683 0715 0763 0805 0851 0924 1059 1205 1284 1291 1253 1179 1090 0992 0900 0840 0803 0783 0765 0752 0748 0746 0746 0756 0768 0779 0778 0772 0762 0751 0753 0770 300 3 0492 0623 0813 0985 1056 1151 1269 1356 1385 1405 1424 1428 1402 1336 1225 1076 0918 0761 0622 0535 0499 0499 0500 0494 0490 0488 0487 0495 0509 0522 0520 0512 0497 0486 0486 0507 301 4 0597 0782 1069 1334 1463 1610 1794 1916 1933 1910 1863 1796 1714 1597 1424 1211 1004 0806 0632 0524 0495 0528 0560 0567 0567 0566 0566 0577 0598 0616 0613 0601 0579 0559 0563 0581 302 5 0647 0895 1269 1617 1781 1985 2241 2391 2391 2335 2239 2123 1995 1826 1586 1311 1061 0833 0634 0517 0496 0574 0652 0678 0687 0690 0691 0705 0733 0757 0753 0737 0705 0680 0681 0707 303 6 0785 1082 1531 1956 2161 2414 2738 2915 2891 2793 2645 2473 2302 2087 1792 1465 1182 0929 0708 0578 0565 0678 0791 0833 0847 0849 0852 0870 0908 0935 0929 0908 0870 0833 0832 0865 304 7 0807 1150 1708 2238 2501 2831 3263 3494 3444 3298 3083 2840 2612 2329 1948 1542 1207 0918 0666 0521 0515 0665 0821 0884 0906 0911 0914 0935 0981 1016 1010 0981 0933 0888 0884 0925 305 8 0637 0985 1596 2200 2513 2908 3430 3682 3567 3340 3029 2702 2413 2084 1659 1238 0920 0664 0449 0336 0345 0488 0632 0681 0694 0697 0697 0720 0771 0810 0804 0772 0721 0671 0665 0711 306 9 0624 0950 1521 2096 2391 2764 3251 3473 3345 3108 2797 2473 2197 1886 1487 1099 0816 0591 0402 0305 0322 0476 0633 0696 0714 0718 0720 0742 0791 0831 0824 0796 0743 0694 0689 0734 307 10 0260 0214 0204 0186 0180 0173 0180 0186 0205 0269 0468 0804 1061 1149 1133 1090 1085 1099 1089 1087 1208 1594 2025 2278 2395 2451 2484 2508 2524 2532 2539 2545 2553 2565 2569 2576 308 11 0620 0583 0554 0530 0520 0513 0523 0533 0562 0655 0892 1214 1432 1497 1466 1417 1407 1420 1407 1402 1527 1937 2401 2680 2811 2871 2903 2923 2938 2942 2946 2949 2953 2964 2962 2969 309 12 0995 0973 0948 0942 0930 0938 0947 0948 0958 1013 1165 1353 1462 1474 1424 1367 1356 1364 1349 1343 1467 1882 2351 2632 2763 2822 2855 2874 2887 2888 2889 2893 2897 2906 2906 2910 310 13 1473 1507 1528 1547 1557 1569 1582 1557 1523 1496 1502 1516 1510 1470 1396 1328 1313 1322 1303 1296 1428 1875 2380 2681 2823 2884 2916 2937 2948 2949 2951 2951 2954 2962 2963 2964 311 14 1847 1976 2089 2178 2229 2276 2311 2275 2178 2057 1919 1790 1694 1601 1480 1372 1327 1308 1260 1229 1369 1878 2464 2814 2976 3046 3081 3108 3130 3138 3137 3132 3122 3118 3113 3124 312 15 1746 1923 2132 2314 2403 2504 2598 2572 2444 2281 2091 1910 1774 1635 1457 1293 1200 1138 1050 0991 1128 1696 2393 2827 3030 3116 3157 3193 3231 3253 3251 3235 3207 3185 3177 3202 313 16 1687 1932 2265 2557 2697 2857 3028 3036 2891 2692 2455 2228 2049 1862 1620 1391 1244 1132 0996 0907 1026 1579 2267 2690 2886 2969 3005 3047 3104 3140 3133 3106 3054 3007 2995 3038 314 17 1439 1788 2268 2682 2895 3145 3414 3440 3222 2930 2591 2269 2023 1770 1453 1161 0982 0848 0695 0598 0713 1275 2004 2449 2651 2733 2767 2818 2901 2960 2948 2901 2820 2738 2718 2781 315 18 1284 1596 2071 2490 2697 2950 3224 3252 3033 2741 2403 2084 1841 1595 1288 1009 0840 0714 0575 0491 0591 1092 1744 2141 2316 2387 2416 2465 2545 2603 2591 2546 2463 2384 2366 2427 316 19 0387 0331 0282 0246 0231 0228 0240 0252 0294 0425 0788 1334 1716 1799 1678 1535 1507 1538 1506 1482 1818 3068 4824 6165 6899 7248 7414 7494 7534 7540 7545 7548 7554 7571 7563 7570 317 20 0512 0437 0382 0347 0332 0330 0338 0357 0395 0524 0860 1327 1630 1676 1549 1410 1383 1411 1381 1359 1678 2874 4576 5882 6599 6938 7099 7177 7217 7225 7228 7230 7238 7256 7249 7256 318 21 0956 0882 0831 0794 0778 0776 0797 0805 0828 0939 1242 1626 1859 1873 1737 1598 1568 1595 1563 1541 1855 3026 4654 5877 6539 6852 7002 7073 7111 7115 7117 7120 7125 7139 7135 7140 319 22 1191 1136 1097 1067 1054 1058 1077 1076 1079 1163 1401 1689 1843 1819 1669 1526 1496 1522 1490 1468 1781 2953 4569 5773 6419 6724 6866 6936 6970 6975 6977 6980 6987 7005 6993 7002 320 23 1568 1522 1506 1499 1495 1513 1535 1511 1475 1499 1629 1789 1854 1792 1629 1484 1452 1475 1444 1423 1733 2898 4501 5686 6320 6616 6755 6825 6858 6862 6864 6866 6871 6887 6881 6884 321 24 2137 2140 2179 2207 2224 2255 2278 2223 2121 2039 2006 1981 1931 1815 1630 1474 1439 1463 1430 1407 1729 2935 4575 5777 6419 6718 6860 6928 6962 6966 6969 6968 6977 6989 6981 6989 322 25 2735 2809 2916 2992 3041 3103 3128 3019 2825 2610 2390 2188 2035 1873 1662 1493 1456 1481 1444 1420 1763 3028 4706 5913 6552 6850 6990 7058 7092 7095 7095 7097 7101 7117 7110 7115 323 26 2901 3078 3286 3455 3555 3653 3714 3586 3326 3019 2683 2377 2162 1961 1714 1513 1449 1446 1377 1330 1658 2910 4563 5727 6334 6612 6739 6814 6870 6889 6885 6871 6847 6832 6820 6845 324 27 2667 2835 3097 3305 3428 3553 3641 3517 3236 2907 2553 2233 2009 1800 1543 1332 1251 1226 1148 1093 1381 2573 4251 5490 6151 6455 6591 6675 6745 6777 6771 6748 6703 6662 6649 6692 325 1 0219 0222 0242 0254 0251 0261 0288 0324 0384 0526 0875 1374 1720 1812 1741 1573 1369 1154 0960 0834 0763 0724 0690 0665 0654 0650 0649 0661 0684 0704 0702 0690 0667 0646 0645 0669 326 2 0315 0376 0469 0549 0576 0611 0680 0753 0827 0968 1233 1549 1727 1742 1648 1483 1292 1093 0915 0803 0739 0705 0676 0653 0644 0639 0638 0648 0667 0682 0679 0670 0650 0635 0636 0656 327 3 0436 0562 0738 0884 0947 1035 1142 1239 1308 1399 1534 1668 1715 1670 1552 1375 1178 0978 0801 0691 0630 0598 0571 0552 0542 0538 0536 0544 0561 0575 0571 0561 0546 0532 0535 0551 328 4 0683 0921 1273 1593 1736 1915 2148 2323 2384 2415 2430 2416 2352 2220 2010 1734 1446 1161 0913 0758 0686 0664 0647 0627 0616 0610 0607 0617 0641 0660 0656 0641 0615 0593 0595 0622 329 5 0728 1004 1442 1848 2039 2272 2586 2800 2848 2841 2790 2705 2584 2399 2126 1788 1458 1142 0872 0708 0646 0655 0664 0656 0649 0644 0642 0654 0679 0701 0696 0679 0649 0624 0622 0652 330 6 0807 1116 1600 2056 2275 2547 2914 3149 3183 3138 3044 2909 2751 2530 2218 1845 1493 1165 0884 0716 0661 0700 0736 0740 0737 0733 0731 0745 0776 0799 0793 0773 0741 0712 0710 0742 331 7 0857 1210 1784 2344 2620 2969 3437 3733 3749 3666 3510 3313 3096 2810 2413 1963 1553 1185 0872 0690 0642 0717 0794 0816 0820 0818 0817 0835 0872 0901 0895 0870 0829 0792 0788 0829 332 8 0691 1092 1813 2549 2919 3404 4088 4509 4495 4338 4070 3753 3430 3027 2489 1915 1426 1009 0669 0481 0442 0520 0589 0602 0602 0599 0596 0615 0660 0695 0689 0663 0613 0569 0571 0611 333 9 0567 0915 1565 2229 2574 3023 3645 3999 3932 3735 3435 3106 2795 2425 1942 1449 1055 0733 0476 0344 0329 0416 0489 0503 0503 0499 0498 0514 0554 0588 0582 0556 0513 0476 0475 0518 334 10 0278 0241 0211 0198 0195 0195 0195 0203 0229 0310 0590 1087 1504 1691 1731 1719 1724 1737 1731 1733 1815 2055 2296 2430 2495 2526 2548 2566 2576 2582 2586 2590 2598 2608 2608 2617 335 11 0689 0654 0613 0579 0559 0554 0564 0585 0638 0784 1148 1665 2051 2214 2241 2222 2221 2231 2221 2220 2302 2557 2817 2961 3031 3061 3083 3099 3108 3109 3108 3110 3112 3120 3116 3126 336 12 1214 1188 1154 1134 1121 1119 1130 1152 1198 1321 1597 1945 2178 2261 2257 2224 2219 2225 2212 2208 2292 2550 2813 2961 3030 3060 3079 3093 3101 3100 3100 3100 3102 3107 3106 3109 337 13 1834 1882 1895 1905 1910 1917 1934 1937 1948 1985 2078 2188 2248 2250 2212 2168 2158 2162 2146 2142 2227 2494 2763 2912 2984 3015 3032 3044 3051 3052 3051 3050 3051 3058 3054 3058 338 14 2236 2392 2539 2644 2700 2749 2800 2800 2751 2677 2592 2508 2443 2367 2269 2165 2107 2066 1998 1954 2042 2372 2711 2897 2981 3017 3036 3057 3076 3085 3082 3075 3059 3050 3047 3058 339 15 2123 2338 2605 2825 2932 3049 3169 3190 3108 2987 2835 2684 2559 2422 2238 2048 1918 1813 1680 1591 1689 2135 2640 2934 3068 3122 3148 3178 3216 3236 3228 3210 3177 3146 3137 3165 340 16 1960 2268 2665 3007 3172 3370 3588 3653 3554 3393 3190 2982 2804 2605 2337 2061 1855 1679 1484 1353 1436 1896 2427 2732 2869 2924 2948 2985 3038 3072 3063 3031 2977 2928 2911 2951 341 17 1809 2204 2775 3272 3520 3816 4162 4273 4102 3846 3530 3212 2951 2665 2293 1922 1656 1436 1203 1053 1140 1654 2275 2634 2792 2854 2881 2927 3004 3058 3045 2999 2914 2832 2811 2875 342 18 1608 2008 2582 3084 3339 3641 4002 4114 3943 3682 3360 3038 2775 2486 2111 1742 1477 1260 1031 0889 0966 1440 2012 2335 2475 2529 2550 2595 2672 2726 2714 2668 2586 2506 2484 2545 343 19 0458 0358 0311 0275 0257 0254 0262 0282 0333 0495 0977 1752 2361 2572 2499 2365 2340 2376 2339 2317 2668 3882 5455 6574 7160 7429 7559 7625 7658 7660 7662 7664 7669 7685 7680 7684 344 20 0628 0540 0472 0438 0418 0410 0422 0446 0501 0671 1126 1792 2278 2422 2332 2202 2175 2207 2173 2151 2478 3625 5128 6204 6768 7028 7152 7217 7249 7252 7254 7255 7262 7277 7270 7273 345 21 1099 1014 0960 0919 0893 0894 0914 0932 0977 1140 1552 2101 2468 2550 2438 2300 2272 2301 2266 2242 2566 3699 5154 6177 6709 6954 7071 7132 7163 7165 7166 7167 7171 7187 7181 7187 346 22 1546 1469 1422 1396 1382 1381 1407 1416 1445 1580 1924 2354 2621 2653 2523 2379 2350 2377 2339 2317 2638 3750 5152 6118 6616 6843 6952 7007 7033 7037 7038 7039 7042 7058 7048 7054 347 23 2012 1986 1967 1952 1951 1965 1991 1986 1979 2051 2274 2545 2694 2670 2520 2369 2337 2361 2325 2302 2622 3742 5149 6122 6622 6849 6958 7016 7042 7044 7045 7042 7049 7060 7057 7059 348 24 2477 2506 2525 2550 2562 2593 2623 2592 2538 2528 2608 2710 2741 2663 2493 2338 2301 2327 2287 2262 2583 3710 5121 6089 6591 6818 6926 6982 7008 7010 7010 7010 7014 7027 7018 7025 349 25 3247 3325 3438 3520 3576 3636 3669 3586 3434 3264 3096 2944 2818 2670 2467 2295 2255 2279 2237 2209 2554 3743 5209 6207 6723 6958 7070 7124 7154 7153 7153 7154 7157 7172 7163 7169 350 26 3560 3748 3955 4125 4233 4327 4389 4285 4062 3789 3486 3207 3007 2815 2575 2368 2302 2299 2225 2175 2509 3709 5197 6199 6708 6939 7050 7113 7160 7173 7167 7155 7138 7129 7115 7144 351 27 3228 3491 3783 4030 4166 4309 4427 4336 4091 3790 3451 3139 2914 2695 2418 2174 2067 2020 1910 1833 2127 3279 4757 5771 6291 6523 6627 6699 6764 6794 6786 6760 6716 6676 6656 6697 352 1 0161 0183 0182 0190 0191 0193 0209 0237 0296 0462 0928 1677 2239 2390 2255 1960 1617 1270 0970 0783 0682 0627 0581 0548 0530 0522 0520 0533 0563 0586 0583 0567 0537 0511 0509 0535 353 2 0305 0346 0437 0509 0534 0578 0651 0735 0834 1029 1428 1923 2221 2259 2124 1881 1606 1324 1077 0920 0835 0786 0747 0717 0702 0695 0692 0705 0732 0752 0748 0734 0706 0683 0682 0711 354 3 0372 0493 0658 0793 0854 0940 1071 1196 1313 1506 1855 2242 2439 2410 2226 1941 1625 1312 1043 0876 0787 0737 0696 0667 0651 0644 0641 0652 0677 0696 0693 0680 0652 0630 0632 0655 355 4 0625 0830 1165 1457 1588 1762 1997 2189 2300 2418 2581 2719 2733 2611 2374 2047 1696 1349 1053 0871 0774 0720 0677 0646 0630 0621 0618 0629 0652 0673 0668 0652 0627 0602 0601 0627 356 5 0758 1060 1529 1968 2178 2442 2796 3064 3156 3205 3225 3195 3090 2888 2577 2178 1769 1376 1043 0841 0745 0705 0675 0646 0632 0623 0620 0630 0656 0677 0672 0653 0622 0596 0600 0627 357 6 0884 1226 1783 2313 2564 2884 3324 3639 3719 3716 3652 3536 3370 3119 2757 2310 1866 1447 1094 0882 0788 0768 0753 0730 0717 0709 0703 0717 0746 0769 0763 0742 0705 0678 0677 0708 358 7 0854 1250 1878 2480 2773 3151 3677 4047 4125 4101 3995 3831 3618 3316 2889 2378 1886 1432 1053 0831 0739 0736 0736 0718 0708 0699 0695 0708 0741 0766 0760 0736 0699 0667 0665 0701 359 8 0774 1208 1963 2736 3116 3617 4336 4836 4909 4834 4645 4383 4076 3658 3090 2445 1856 1332 0906 0665 0581 0605 0627 0618 0610 0603 0599 0616 0656 0686 0681 0655 0612 0572 0575 0613 360 9 0583 0974 1722 2519 2917 3462 4254 4790 4829 4704 4445 4120 3765 3310 2707 2053 1486 1006 0634 0436 0381 0417 0448 0443 0436 0431 0428 0443 0479 0509 0501 0480 0442 0410 0414 0453 361 10 0309 0265 0231 0215 0207 0204 0208 0218 0254 0375 0787 1539 2209 2549 2672 2698 2714 2724 2718 2727 2763 2870 2962 3012 3041 3055 3071 3087 3099 3104 3106 3108 3112 3120 3124 3126 362 11 0791 0726 0675 0631 0608 0604 0615 0651 0733 0950 1480 2255 2865 3159 3262 3279 3286 3290 3277 3280 3307 3396 3471 3512 3537 3549 3562 3576 3584 3585 3586 3583 3584 3587 3586 3592 363 12 1383 1356 1311 1286 1260 1256 1280 1323 1420 1633 2078 2650 3057 3237 3295 3294 3291 3280 3258 3255 3269 3327 3375 3400 3419 3428 3437 3450 3461 3461 3458 3453 3454 3457 3449 3455 364 13 2061 2105 2122 2124 2119 2131 2159 2200 2275 2408 2643 2908 3074 3141 3162 3151 3143 3129 3108 3105 3103 3122 3134 3144 3153 3158 3168 3177 3186 3186 3186 3182 3181 3186 3180 3188 365 14 2593 2717 2780 2825 2851 2873 2893 2910 2927 2931 2937 2945 2951 2954 2962 2957 2957 2954 2948 2955 2950 2952 2951 2954 2964 2969 2979 2988 2996 2996 2996 2998 3001 3009 3010 3014 366 15 2506 2805 3149 3418 3553 3701 3869 3952 3940 3879 3789 3687 3586 3459 3279 3065 2880 2704 2508 2376 2392 2623 2840 2944 2986 3001 3008 3033 3073 3096 3089 3062 3021 2981 2972 3006 367 16 2330 2717 3178 3569 3759 3979 4235 4362 4323 4220 4068 3901 3740 3543 3268 2956 2694 2450 2191 2014 2038 2353 2684 2851 2922 2946 2957 2990 3046 3080 3070 3034 2974 2917 2904 2947 368 17 2236 2719 3365 3934 4213 4551 4962 5154 5064 4872 4607 4321 4063 3758 3346 2906 2550 2232 1906 1692 1729 2145 2606 2851 2955 2990 3005 3048 3121 3172 3158 3108 3023 2943 2925 2981 369 18 1921 2378 3034 3612 3893 4239 4666 4848 4731 4509 4212 3903 3628 3313 2893 2456 2111 1811 1508 1309 1357 1778 2252 2503 2605 2643 2657 2699 2775 2828 2814 2764 2680 2601 2579 2637 370 19 0491 0407 0341 0303 0285 0281 0292 0316 0375 0577 1178 2196 3066 3446 3462 3363 3348 3382 3349 3331 3652 4712 5988 6839 7267 7461 7557 7610 7638 7639 7640 7640 7645 7663 7657 7658 371 20 0652 0551 0481 0438 0410 0401 0415 0446 0518 0738 1341 2272 3020 3321 3306 3198 3180 3213 3178 3161 3472 4520 5798 6662 7102 7300 7398 7450 7477 7479 7477 7481 7485 7500 7490 7496 372 21 1295 1169 1099 1048 1023 1020 1038 1071 1149 1381 1949 2730 3303 3507 3460 3350 3328 3357 3320 3303 3595 4567 5718 6479 6861 7033 7119 7168 7191 7191 7190 7185 7191 7205 7199 7205 373 22 1681 1626 1568 1527 1501 1501 1526 1558 1624 1826 2301 2921 3348 3472 3396 3276 3252 3277 3241 3224 3512 4473 5614 6368 6747 6917 7003 7052 7075 7074 7073 7073 7076 7090 7083 7087 374 23 2307 2288 2261 2239 2228 2240 2272 2291 2336 2489 2852 3301 3584 3635 3528 3397 3368 3392 3352 3332 3625 4590 5719 6454 6824 6991 7073 7118 7139 7138 7137 7139 7139 7154 7144 7152 375 24 2866 2870 2879 2885 2895 2924 2960 2962 2965 3039 3248 3496 3630 3605 3466 3320 3289 3311 3269 3247 3552 4551 5713 6470 6851 7024 7108 7153 7176 7177 7175 7175 7177 7189 7185 7189 376 25 3702 3834 3928 4001 4052 4113 4154 4115 4025 3933 3867 3808 3739 3621 3435 3269 3232 3256 3209 3184 3520 4584 5776 6536 6916 7086 7174 7220 7242 7239 7239 7236 7243 7258 7248 7249 377 26 4203 4461 4694 4883 4997 5111 5191 5119 4944 4707 4438 4185 3999 3814 3576 3361 3284 3271 3181 3121 3456 4559 5792 6562 6941 7109 7191 7245 7288 7300 7294 7282 7264 7254 7238 7263 378 27 4002 4300 4605 4857 4996 5142 5257 5192 4981 4708 4399 4106 3886 3669 3385 3125 3013 2966 2838 2751 3080 4241 5588 6452 6879 7066 7151 7215 7272 7296 7285 7263 7224 7190 7171 7205 379 1 0190 0181 0183 0192 0189 0193 0212 0251 0327 0551 1199 2290 3160 3404 3174 2703 2177 1660 1222 0952 0807 0727 0662 0612 0588 0576 0572 0588 0630 0663 0657 0634 0590 0549 0547 0582 380 2 0264 0327 0407 0472 0495 0529 0610 0701 0829 1095 1670 2435 2938 3026 2831 2475 2077 1679 1331 1112 0991 0923 0867 0824 0803 0792 0788 0804 0841 0869 0864 0841 0805 0768 0767 0797 381 3 0364 0462 0626 0762 0819 0902 1039 1180 1330 1605 2138 2788 3163 3170 2920 2522 2089 1664 1301 1076 0954 0887 0832 0790 0770 0758 0754 0769 0803 0829 0822 0802 0765 0732 0731 0764 382 4 0596 0789 1116 1399 1522 1692 1938 2158 2320 2558 2947 3350 3515 3404 3094 2655 2186 1729 1340 1097 0967 0895 0836 0793 0771 0760 0756 0770 0804 0831 0825 0802 0765 0727 0728 0762 383 5 0804 1105 1575 2012 2214 2474 2834 3131 3285 3439 3633 3784 3765 3563 3200 2721 2221 1740 1332 1082 0949 0877 0818 0775 0753 0740 0734 0748 0781 0807 0801 0776 0738 0706 0707 0737 384 6 0878 1255 1858 2427 2705 3057 3562 3952 4103 4196 4255 4246 4108 3818 3379 2826 2262 1730 1291 1027 0892 0823 0768 0726 0704 0693 0687 0700 0732 0757 0749 0725 0689 0658 0658 0689 385 7 0938 1363 2048 2721 3043 3466 4071 4517 4653 4685 4641 4519 4304 3961 3470 2872 2280 1727 1271 0997 0867 0818 0777 0740 0721 0709 0703 0717 0751 0778 0771 0746 0706 0672 0669 0704 386 8 0895 1371 2157 2940 3325 3829 4554 5085 5209 5196 5069 4861 4575 4166 3592 2918 2268 1672 1183 0895 0770 0741 0717 0686 0667 0657 0652 0666 0705 0737 0729 0700 0655 0618 0617 0656 387 9 0696 1154 2013 2907 3365 3979 4899 5577 5711 5652 5441 5129 4746 4227 3531 2748 2032 1401 0906 0631 0523 0508 0495 0469 0455 0447 0442 0457 0494 0523 0518 0494 0455 0425 0425 0467 388 10 0309 0273 0234 0219 0209 0207 0212 0226 0270 0418 0909 1808 2631 3071 3244 3286 3296 3283 3260 3257 3246 3244 3242 3245 3255 3263 3274 3289 3305 3309 3312 3313 3312 3316 3317 3324 389 11 0748 0689 0642 0600 0577 0575 0595 0639 0738 0995 1630 2575 3346 3728 3866 3877 3856 3813 3759 3736 3707 3696 3683 3678 3683 3687 3696 3710 3727 3733 3728 3723 3717 3713 3710 3719 390 12 1264 1239 1224 1217 1210 1217 1256 1327 1450 1727 2316 3103 3686 3943 4006 3958 3884 3792 3689 3627 3578 3553 3527 3512 3509 3509 3513 3529 3551 3560 3555 3544 3524 3511 3501 3517 391 13 1866 1951 2032 2085 2099 2138 2210 2306 2433 2674 3127 3673 4032 4158 4151 4057 3940 3802 3660 3568 3499 3461 3426 3403 3395 3389 3392 3409 3435 3448 3438 3422 3396 3373 3363 3386 392 14 2465 2688 2894 3051 3116 3206 3330 3451 3565 3728 4000 4291 4449 4463 4392 4245 4076 3886 3692 3564 3472 3418 3368 3333 3318 3310 3310 3328 3363 3383 3373 3351 3312 3279 3268 3299 393 15 2898 3291 3721 4064 4230 4409 4632 4789 4851 4863 4853 4820 4761 4660 4506 4280 4034 3765 3493 3305 3187 3123 3064 3014 2993 2979 2977 3003 3053 3083 3074 3042 2987 2936 2923 2970 394 16 2829 3276 3813 4255 4467 4715 5018 5213 5247 5209 5125 5015 4884 4700 4432 4098 3779 3457 3127 2900 2837 2949 3036 3051 3053 3046 3046 3077 3136 3174 3162 3121 3054 2990 2970 3025 395 17 2599 3153 3871 4488 4784 5145 5604 5878 5887 5789 5617 5407 5183 4891 4481 3997 3559 3139 2719 2437 2383 2598 2801 2877 2902 2903 2902 2940 3017 3068 3050 3000 2911 2827 2806 2867 396 18 2248 2816 3557 4220 4547 4941 5452 5737 5699 5542 5300 5023 4751 4411 3948 3428 2982 2566 2158 1890 1868 2164 2471 2611 2665 2678 2683 2723 2802 2855 2838 2785 2695 2609 2589 2649 397 19 0528 0412 0338 0298 0278 0272 0281 0310 0389 0643 1420 2775 4023 4674 4829 4789 4792 4827 4794 4785 5066 5958 6967 7609 7924 8066 8142 8187 8210 8205 8202 8201 8203 8222 8215 8215 398 20 0637 0509 0439 0386 0354 0353 0363 0398 0485 0758 1523 2775 3870 4405 4508 4451 4448 4483 4451 4439 4715 5595 6589 7221 7533 7672 7745 7787 7810 7807 7804 7800 7808 7822 7812 7815 399 21 1443 1330 1237 1173 1140 1130 1156 1206 1322 1636 2384 3454 4305 4685 4735 4669 4662 4686 4653 4644 4885 5659 6518 7060 7328 7447 7510 7550 7572 7568 7566 7566 7567 7583 7572 7574 400 22 1879 1795 1721 1668 1632 1631 1661 1712 1824 2114 2769 3646 4295 4554 4551 4467 4451 4474 4439 4426 4672 5459 6332 6880 7150 7271 7335 7372 7393 7390 7385 7385 7384 7401 7390 7392 401 23 2592 2555 2518 2484 2462 2473 2511 2559 2653 2889 3393 4024 4455 4593 4547 4447 4428 4447 4410 4397 4641 5415 6262 6794 7060 7177 7241 7279 7297 7292 7291 7289 7289 7305 7299 7306 402 24 3196 3222 3223 3210 3219 3233 3284 3328 3401 3574 3934 4353 4608 4660 4574 4461 4439 4456 4418 4404 4656 5422 6233 6725 6969 7078 7137 7172 7192 7187 7184 7183 7184 7199 7191 7196 403 25 4117 4244 4338 4410 4451 4504 4559 4572 4562 4572 4638 4708 4724 4661 4523 4384 4357 4378 4335 4316 4599 5415 6235 6722 6960 7066 7124 7160 7176 7171 7169 7168 7173 7187 7180 7183 404 26 4812 5109 5345 5529 5649 5756 5840 5808 5700 5533 5335 5147 5005 4854 4653 4464 4401 4391 4305 4251 4556 5453 6327 6829 7071 7175 7231 7272 7307 7317 7310 7295 7283 7278 7266 7293 405 27 4861 5197 5501 5745 5894 6028 6141 6096 5938 5715 5456 5204 5015 4819 4561 4316 4217 4177 4052 3967 4302 5380 6522 7219 7556 7706 7780 7834 7884 7902 7893 7871 7837 7812 7797 7828 406 1 0213 0218 0230 0234 0227 0238 0264 0313 0409 0687 1492 2879 4053 4413 4113 3495 2819 2166 1615 1270 1083 0979 0892 0828 0795 0778 0772 0794 0848 0890 0883 0849 0791 0737 0728 0774 407 2 0298 0355 0430 0501 0517 0560 0645 0751 0902 1233 1982 3032 3773 3923 3658 3173 2639 2114 1661 1375 1215 1126 1051 0994 0966 0952 0946 0967 1014 1049 1040 1011 0962 0914 0907 0950 408 3 0403 0495 0654 0797 0846 0934 1076 1237 1416 1772 2497 3439 4038 4093 3770 3245 2681 2130 1663 1370 1211 1121 1045 0990 0962 0947 0940 0961 1005 1041 1033 1003 0953 0906 0902 0940 409 4 0510 0702 1004 1265 1373 1530 1771 2014 2232 2611 3307 4132 4578 4503 4073 3451 2803 2181 1660 1340 1167 1071 0993 0934 0905 0889 0882 0901 0947 0983 0976 0943 0892 0844 0840 0883 410 5 0810 1140 1647 2113 2313 2588 2992 3344 3572 3879 4365 4857 5022 4797 4297 3627 2944 2291 1744 1407 1226 1125 1044 0982 0953 0936 0928 0947 0994 1030 1020 0989 0934 0886 0881 0929 411 6 0950 1353 1985 2582 2855 3222 3754 4189 4414 4656 4976 5238 5222 4898 4339 3629 2912 2237 1678 1337 1157 1059 0979 0920 0891 0875 0867 0884 0928 0961 0952 0921 0870 0823 0820 0861 412 7 0994 1463 2235 2986 3352 3824 4519 5070 5285 5421 5514 5505 5306 4890 4277 3528 2782 2088 1519 1178 1003 0908 0834 0778 0752 0737 0729 0744 0786 0819 0809 0781 0732 0691 0689 0730 413 8 0976 1476 2331 3156 3566 4100 4890 5499 5706 5784 5771 5643 5369 4913 4268 3492 2728 2021 1444 1101 0928 0844 0775 0724 0696 0683 0676 0691 0732 0766 0756 0727 0680 0640 0637 0680 414 9 0824 1381 2311 3265 3734 4371 5336 6079 6282 6302 6172 5916 5538 4990 4246 3385 2565 1824 1228 0880 0720 0653 0598 0551 0528 0515 0508 0525 0568 0601 0592 0565 0518 0482 0481 0522 415 10 0376 0317 0293 0275 0266 0269 0282 0310 0379 0599 1280 2521 3704 4337 4515 4447 4305 4126 3944 3827 3746 3704 3664 3637 3629 3626 3630 3655 3688 3712 3707 3689 3659 3629 3621 3653 416 11 0628 0593 0567 0552 0542 0542 0576 0641 0767 1095 1922 3221 4342 4890 5006 4895 4714 4499 4281 4143 4048 3995 3947 3912 3900 3895 3897 3923 3960 3981 3976 3954 3914 3885 3871 3902 417 12 1146 1164 1218 1257 1261 1293 1375 1482 1652 2020 2811 3904 4735 5070 5068 4878 4633 4359 4090 3913 3796 3726 3665 3620 3603 3591 3591 3613 3656 3681 3672 3642 3596 3555 3540 3574 418 13 1592 1726 1882 2006 2046 2121 2256 2413 2596 2953 3653 4544 5156 5334 5230 4961 4644 4303 3978 3764 3625 3546 3474 3419 3395 3381 3376 3402 3449 3479 3467 3430 3374 3325 3310 3349 419 14 2206 2435 2694 2897 2980 3101 3284 3468 3646 3939 4458 5061 5424 5479 5336 5056 4740 4400 4070 3852 3709 3625 3549 3491 3465 3450 3447 3472 3522 3551 3536 3502 3445 3391 3375 3419 420 15 2761 3173 3617 3981 4145 4352 4631 4863 5017 5189 5442 5683 5768 5683 5467 5134 4772 4380 4004 3747 3581 3481 3391 3322 3290 3273 3265 3295 3355 3393 3381 3337 3269 3203 3186 3238 421 16 2960 3551 4245 4824 5102 5432 5861 6184 6318 6385 6423 6411 6310 6104 5781 5336 4858 4353 3870 3534 3323 3195 3081 2992 2950 2925 2914 2951 3029 3080 3063 3011 2923 2836 2815 2886 422 17 2926 3604 4403 5097 5429 5836 6370 6758 6870 6874 6801 6672 6483 6198 5782 5248 4702 4145 3615 3252 3065 3012 2953 2884 2848 2825 2815 2854 2934 2991 2970 2916 2819 2727 2702 2776 423 18 2589 3273 4155 4927 5304 5763 6388 6811 6884 6826 6670 6447 6185 5820 5309 4695 4108 3538 2997 2636 2502 2573 2630 2618 2601 2587 2577 2616 2699 2755 2736 2678 2578 2486 2465 2532 424 19 0595 0447 0355 0308 0288 0281 0293 0328 0421 0736 1689 3398 5098 6114 6485 6540 6572 6610 6583 6587 6790 7422 8082 8473 8666 8756 8809 8846 8865 8859 8855 8852 8854 8868 8861 8856 425 20 0713 0570 0476 0420 0390 0382 0397 0439 0550 0890 1841 3442 4942 5781 6066 6092 6114 6146 6121 6125 6319 6924 7557 7931 8118 8205 8256 8290 8309 8305 8298 8300 8302 8315 8308 8313 426 21 1576 1457 1347 1272 1230 1223 1245 1315 1466 1859 2792 4170 5336 5932 6113 6111 6123 6145 6118 6122 6287 6808 7348 7671 7833 7907 7951 7985 8000 7997 7991 7990 7992 8010 8000 8007 427 22 2122 2023 1927 1856 1817 1810 1848 1921 2084 2474 3334 4523 5469 5916 6027 5998 6005 6023 5993 5995 6167 6708 7257 7583 7745 7818 7864 7893 7909 7905 7900 7899 7902 7914 7904 7909 428 23 2839 2787 2717 2664 2632 2635 2680 2766 2940 3313 4060 5015 5717 6017 6067 6020 6018 6035 6003 6002 6178 6705 7218 7516 7665 7732 7774 7804 7821 7815 7811 7805 7808 7822 7813 7823 429 24 3587 3619 3596 3578 3569 3590 3648 3737 3886 4180 4726 5362 5782 5928 5909 5832 5822 5839 5803 5798 6001 6568 7100 7404 7553 7621 7662 7689 7704 7702 7698 7695 7699 7711 7705 7706 430 25 4665 4846 4931 4995 5044 5098 5175 5240 5327 5455 5670 5883 5998 6002 5935 5843 5831 5846 5809 5803 6007 6511 6932 7154 7264 7315 7350 7376 7390 7387 7383 7380 7385 7400 7393 7400 431 26 5567 5949 6230 6446 6584 6711 6817 6851 6828 6749 6649 6542 6457 6358 6218 6064 6003 5967 5864 5806 6011 6556 6987 7199 7300 7347 7380 7416 7455 7463 7454 7440 7420 7405 7396 7428 432 27 5528 5995 6412 6725 6903 7084 7252 7310 7263 7146 6991 6830 6697 6538 6317 6072 5927 5811 5621 5490 5684 6321 6873 7152 7281 7332 7364 7414 7477 7504 7486 7454 7398 7353 7336 7384 433 1 0211 0224 0238 0242 0237 0247 0275 0329 0439 0756 1676 3313 4783 5282 4933 4187 3385 2620 1974 1570 1347 1222 1117 1036 0997 0976 0966 0996 1061 1112 1100 1061 0987 0921 0908 0965 434 2 0265 0306 0364 0403 0415 0440 0508 0610 0776 1180 2184 3780 5069 5407 4990 4229 3429 2667 2030 1632 1414 1292 1190 1112 1073 1052 1043 1068 1132 1181 1170 1129 1059 0992 0984 1039 435 3 0320 0406 0538 0642 0677 0744 0869 1031 1239 1694 2713 4183 5246 5415 4923 4136 3322 2559 1928 1539 1329 1211 1114 1041 1005 0986 0976 1000 1059 1103 1096 1055 0991 0930 0920 0970 436 4 0474 0647 0929 1181 1276 1428 1674 1927 2185 2666 3615 4834 5581 5550 4981 4164 3332 2555 1912 1517 1306 1188 1092 1019 0982 0963 0953 0977 1035 1078 1069 1031 0966 0907 0899 0953 437 5 0653 0916 1342 1741 1901 2139 2501 2841 3122 3573 4382 5330 5797 5613 4988 4149 3308 2526 1884 1492 1283 1168 1075 1005 0970 0951 0942 0963 1017 1058 1048 1011 0950 0895 0888 0938 438 6 0837 1189 1787 2346 2597 2933 3449 3891 4173 4557 5167 5796 5988 5662 4982 4118 3264 2472 1825 1433 1227 1114 1021 0953 0920 0902 0893 0912 0962 1002 0994 0957 0897 0844 0839 0886 439 7 0906 1348 2077 2772 3100 3535 4194 4734 5019 5322 5730 6070 6039 5605 4881 3995 3128 2332 1687 1303 1103 0993 0907 0843 0812 0795 0786 0803 0850 0888 0878 0846 0789 0742 0742 0784 440 8 0920 1450 2320 3192 3605 4167 5010 5691 5971 6169 6334 6363 6123 5596 4824 3907 3016 2197 1540 1149 0950 0841 0757 0695 0666 0651 0642 0658 0705 0741 0731 0700 0648 0603 0604 0644 441 9 0826 1367 2313 3260 3728 4357 5327 6103 6380 6507 6520 6381 6037 5460 4659 3723 2819 2000 1349 0969 0779 0678 0600 0544 0517 0503 0497 0512 0553 0586 0580 0551 0507 0467 0468 0512 442 10 0376 0340 0327 0308 0299 0305 0322 0369 0462 0754 1629 3232 4803 5639 5787 5553 5208 4821 4448 4199 4043 3952 3871 3809 3785 3771 3770 3801 3860 3900 3889 3855 3794 3735 3719 3765 443 11 0539 0524 0520 0515 0511 0522 0569 0650 0802 1191 2196 3835 5312 6013 6062 5762 5363 4930 4520 4248 4076 3976 3885 3817 3787 3771 3768 3799 3861 3901 3889 3850 3783 3719 3700 3753 444 12 1002 1086 1199 1286 1310 1367 1490 1643 1855 2306 3293 4698 5792 6185 6057 5653 5179 4680 4221 3917 3731 3619 3521 3448 3414 3394 3387 3417 3479 3519 3504 3461 3387 3316 3295 3351 445 13 1298 1456 1667 1836 1892 1997 2177 2379 2617 3079 4016 5268 6160 6391 6159 5673 5131 4575 4070 3735 3532 3413 3308 3230 3192 3168 3159 3188 3252 3294 3279 3232 3154 3082 3057 3111 446 14 1746 2005 2323 2577 2675 2829 3075 3327 3580 4025 4867 5911 6581 6680 6388 5875 5312 4736 4208 3858 3643 3517 3403 3317 3277 3251 3241 3271 3341 3385 3369 3317 3235 3155 3130 3188 447 15 2203 2606 3050 3423 3572 3784 4106 4408 4664 5056 5733 6504 6930 6904 6569 6039 5468 4876 4329 3962 3735 3598 3477 3385 3341 3315 3302 3338 3413 3463 3443 3388 3296 3211 3186 3250 448 16 2708 3289 3993 4585 4849 5183 5659 6048 6276 6524 6860 7168 7226 7015 6591 6002 5375 4731 4132 3723 3472 3318 3183 3081 3029 2999 2985 3025 3111 3170 3148 3088 2986 2885 2862 2934 449 17 3041 3783 4691 5484 5851 6311 6949 7433 7624 7715 7748 7706 7536 7209 6719 6076 5403 4714 4076 3636 3367 3205 3062 2952 2896 2864 2849 2891 2984 3048 3027 2960 2852 2746 2719 2801 450 18 2874 3640 4589 5425 5822 6314 6992 7489 7642 7662 7584 7427 7188 6825 6306 5651 4981 4305 3675 3244 3010 2907 2808 2717 2667 2639 2625 2666 2758 2822 2802 2736 2630 2526 2501 2576 451 19 0613 0450 0361 0304 0278 0271 0283 0323 0434 0796 1884 3856 5914 7266 7873 8061 8136 8170 8160 8180 8250 8467 8658 8767 8838 8872 8904 8932 8950 8940 8934 8925 8930 8945 8934 8938 452 20 0780 0637 0532 0463 0427 0413 0432 0484 0621 1023 2128 4010 5857 6988 7461 7591 7648 7675 7663 7679 7765 8030 8272 8408 8486 8523 8555 8583 8601 8590 8584 8578 8581 8599 8589 8594 453 21 1570 1446 1316 1232 1191 1169 1199 1278 1455 1914 3011 4690 6195 7042 7373 7450 7488 7510 7494 7508 7593 7862 8111 8252 8333 8376 8409 8436 8452 8441 8435 8432 8436 8450 8440 8447 454 22 2193 2116 1998 1914 1865 1854 1891 1993 2201 2680 3723 5202 6445 7105 7354 7405 7435 7450 7431 7445 7516 7735 7927 8038 8106 8139 8165 8193 8207 8196 8189 8186 8186 8204 8193 8199 455 23 3024 2966 2866 2793 2747 2744 2801 2922 3152 3634 4598 5868 6868 7369 7548 7575 7596 7609 7588 7602 7670 7878 8056 8158 8222 8255 8283 8309 8324 8314 8308 8300 8303 8321 8312 8321 456 24 3856 3878 3841 3793 3764 3784 3859 3997 4234 4672 5461 6407 7082 7397 7501 7503 7517 7525 7504 7516 7583 7771 7916 7996 8051 8077 8104 8131 8145 8136 8131 8123 8128 8143 8134 8145 457 25 5262 5443 5512 5569 5616 5682 5782 5917 6119 6402 6835 7277 7555 7684 7744 7748 7760 7761 7746 7764 7767 7797 7811 7833 7863 7878 7902 7925 7939 7934 7928 7920 7925 7940 7936 7947 458 26 6310 6694 6918 7108 7236 7349 7450 7534 7615 7654 7694 7736 7768 7792 7819 7816 7824 7821 7808 7830 7818 7821 7819 7835 7862 7879 7904 7927 7945 7937 7933 7925 7929 7949 7939 7954 459 27 6136 6738 7190 7550 7749 7949 8151 8282 8345 8350 8330 8295 8252 8173 8047 7864 7709 7538 7315 7160 7151 7297 7371 7381 7396 7399 7411 7463 7534 7561 7541 7500 7432 7371 7354 7427 460 1 0240 0247 0261 0266 0262 0271 0309 0364 0478 0799 1722 3345 4788 5259 4891 4136 3332 2571 1932 1533 1316 1194 1093 1015 0976 0957 0948 0975 1039 1087 1078 1038 0969 0905 0895 0946 461 2 0254 0269 0306 0326 0332 0350 0402 0481 0624 0990 1956 3547 4859 5203 4768 3988 3172 2410 1780 1393 1184 1068 0973 0900 0864 0846 0839 0861 0919 0964 0955 0920 0857 0796 0788 0842 462 3 0273 0339 0440 0524 0549 0600 0706 0842 1034 1466 2472 3960 5056 5228 4720 3910 3082 2317 1693 1313 1112 1000 0909 0841 0808 0791 0782 0804 0857 0899 0890 0857 0798 0739 0738 0784 463 4 0384 0511 0716 0908 0980 1096 1295 1511 1749 2217 3188 4494 5335 5343 4773 3946 3110 2340 1711 1332 1131 1020 0930 0862 0831 0813 0804 0825 0877 0920 0910 0876 0818 0762 0757 0806 464 5 0511 0734 1080 1399 1533 1728 2027 2330 2600 3069 3954 5037 5627 5491 4869 4017 3169 2384 1744 1361 1157 1045 0955 0887 0855 0837 0828 0849 0900 0941 0931 0897 0840 0788 0780 0829 465 6 0690 1009 1560 2071 2291 2608 3080 3495 3779 4183 4854 5567 5820 5511 4824 3949 3090 2301 1664 1283 1086 0978 0892 0827 0795 0779 0771 0790 0837 0874 0865 0832 0778 0730 0727 0772 466 7 0755 1147 1794 2423 2701 3089 3676 4169 4455 4804 5329 5824 5899 5504 4779 3889 3018 2224 1587 1208 1014 0910 0826 0765 0735 0719 0711 0729 0774 0810 0803 0770 0719 0674 0672 0717 467 8 0806 1285 2038 2779 3128 3600 4304 4886 5171 5454 5816 6088 5999 5530 4778 3873 2988 2180 1534 1150 0954 0848 0765 0704 0674 0660 0650 0668 0713 0748 0739 0709 0658 0615 0610 0655 468 9 0700 1183 2056 2941 3372 3957 4849 5573 5861 6049 6184 6171 5887 5320 4516 3575 2670 1856 1218 0850 0671 0576 0505 0454 0430 0418 0412 0426 0464 0495 0489 0464 0423 0392 0390 0435 469 10 0357 0338 0334 0326 0319 0325 0355 0409 0522 0850 1813 3590 5362 6246 6237 5754 5156 4544 3989 3623 3402 3274 3163 3076 3037 3012 3005 3038 3113 3166 3152 3106 3023 2940 2918 2981 470 11 0466 0436 0446 0454 0444 0462 0510 0592 0743 1139 2190 3972 5626 6376 6306 5810 5217 4608 4059 3696 3477 3349 3236 3151 3110 3087 3079 3113 3186 3235 3222 3173 3089 3008 2983 3046 471 12 0685 0736 0828 0892 0906 0955 1059 1200 1403 1865 2942 4582 5941 6435 6233 5683 5060 4436 3876 3512 3295 3168 3056 2972 2931 2907 2897 2928 2999 3045 3030 2983 2900 2820 2801 2860 472 13 1207 1376 1584 1758 1814 1921 2108 2319 2561 3045 4050 5431 6445 6711 6434 5876 5262 4641 4084 3720 3500 3372 3259 3174 3133 3106 3097 3127 3196 3241 3224 3174 3090 3011 2989 3046 473 14 1594 1831 2137 2380 2471 2615 2855 3103 3362 3830 4748 5939 6743 6890 6586 6032 5428 4818 4265 3899 3679 3548 3434 3346 3305 3280 3267 3299 3369 3415 3395 3343 3259 3178 3152 3209 474 15 1911 2234 2648 2982 3116 3319 3620 3913 4180 4615 5412 6376 6958 6985 6631 6056 5434 4804 4231 3849 3617 3481 3359 3267 3222 3193 3182 3214 3289 3337 3321 3265 3176 3086 3064 3126 475 16 2484 2994 3607 4136 4356 4653 5088 5463 5719 6043 6557 7081 7289 7126 6697 6085 5437 4777 4170 3761 3510 3363 3229 3128 3080 3050 3037 3072 3155 3209 3188 3128 3029 2932 2909 2981 476 17 2706 3353 4153 4834 5147 5540 6098 6548 6772 6976 7226 7421 7396 7119 6639 5993 5313 4624 3990 3560 3300 3144 3006 2899 2847 2816 2801 2840 2928 2987 2965 2903 2798 2698 2674 2751 477 18 2945 3715 4670 5500 5896 6391 7071 7586 7774 7838 7814 7706 7493 7140 6626 5958 5261 4551 3896 3450 3179 3016 2871 2759 2703 2670 2655 2698 2789 2853 2831 2766 2656 2551 2527 2611 478 19 0652 0486 0384 0328 0301 0293 0306 0351 0470 0853 1987 4046 6237 7730 8451 8702 8802 8834 8831 8862 8853 8857 8853 8868 8901 8922 8947 8971 8986 8976 8966 8960 8963 8983 8973 8976 479 20 0798 0650 0541 0472 0437 0423 0438 0495 0636 1054 2209 4219 6269 7598 8213 8419 8501 8528 8523 8549 8557 8599 8626 8656 8691 8714 8740 8763 8779 8772 8765 8757 8759 8776 8769 8775 480 21 1569 1434 1294 1209 1155 1143 1168 1256 1450 1943 3117 4949 6647 7654 8097 8238 8296 8314 8307 8333 8332 8362 8380 8402 8436 8453 8476 8498 8515 8506 8499 8489 8493 8510 8500 8511 481 22 2137 2023 1907 1819 1765 1753 1793 1899 2121 2637 3780 5461 6940 7778 8137 8237 8268 8261 8231 8239 8217 8213 8200 8209 8235 8250 8270 8296 8315 8309 8301 8293 8289 8303 8293 8302 482 23 2715 2663 2570 2503 2457 2453 2517 2649 2904 3443 4559 6111 7403 8092 8359 8398 8377 8314 8230 8196 8146 8126 8100 8097 8116 8127 8146 8171 8198 8202 8191 8174 8159 8161 8148 8169 483 24 3458 3492 3465 3438 3407 3430 3518 3682 3962 4499 5531 6870 7915 8431 8609 8594 8533 8431 8306 8241 8173 8140 8102 8087 8099 8105 8122 8153 8190 8197 8187 8163 8138 8121 8104 8143 484 25 4367 4545 4628 4685 4698 4761 4889 5081 5358 5830 6648 7605 8271 8559 8631 8557 8452 8313 8148 8049 7958 7912 7861 7832 7835 7837 7849 7885 7932 7949 7936 7905 7863 7831 7814 7860 485 26 5499 5915 6224 6462 6581 6723 6912 7105 7315 7584 7977 8374 8604 8666 8632 8498 8344 8152 7931 7781 7654 7580 7503 7458 7449 7445 7454 7498 7564 7589 7573 7533 7470 7415 7394 7454 486 27 5992 6651 7179 7590 7805 8031 8282 8467 8583 8639 8679 8706 8693 8638 8528 8335 8120 7863 7575 7367 7202 7104 7009 6941 6923 6913 6922 6973 7055 7092 7069 7017 6935 6858 6834 6922 487 1 0278 0264 0256 0252 0246 0244 0247 0243 0248 0264 0312 0374 0407 0405 0383 0360 0356 0361 0358 0360 0419 0614 0845 0986 1053 1085 1104 1118 1128 1135 1142 1148 1154 1162 1166 1176 488 2 0416 0428 0428 0432 0433 0434 0436 0424 0410 0400 0405 0413 0410 0395 0366 0343 0338 0343 0340 0341 0401 0598 0834 0978 1046 1077 1096 1110 1120 1126 1133 1137 1144 1147 1159 1161 489 3 0633 0658 0722 0768 0790 0818 0837 0816 0765 0704 0638 0577 0531 0485 0429 0380 0359 0349 0331 0324 0387 0623 0919 1101 1185 1224 1245 1263 1279 1291 1296 1296 1291 1290 1294 1310 490 4 0695 0756 0883 0988 1042 1101 1155 1143 1066 0968 0855 0750 0672 0597 0503 0420 0375 0347 0311 0294 0359 0618 0950 1149 1241 1281 1304 1326 1354 1373 1374 1366 1352 1339 1340 1362 491 5 0628 0771 0982 1166 1260 1363 1474 1473 1366 1227 1067 0916 0803 0692 0557 0441 0374 0330 0282 0259 0317 0561 0885 1078 1164 1200 1218 1244 1283 1311 1310 1295 1263 1236 1230 1263 492 6 0668 0857 1158 1418 1550 1702 1860 1858 1703 1505 1278 1068 0917 0770 0597 0455 0380 0334 0281 0258 0319 0580 0927 1129 1217 1252 1267 1297 1348 1387 1383 1359 1311 1266 1256 1301 493 7 0716 0947 1306 1642 1806 2004 2211 2217 2023 1774 1492 1235 1049 0872 0665 0498 0411 0356 0297 0269 0333 0602 0958 1164 1249 1281 1294 1327 1387 1431 1425 1393 1333 1276 1268 1318 494 8 0751 1000 1413 1783 1975 2198 2444 2454 2237 1959 1643 1355 1146 0947 0714 0523 0424 0361 0292 0259 0324 0603 0963 1161 1242 1271 1283 1318 1383 1433 1426 1388 1322 1255 1247 1303 495 9 0689 0953 1375 1774 1967 2206 2467 2485 2265 1980 1659 1366 1152 0949 0707 0512 0409 0343 0273 0241 0303 0565 0907 1098 1174 1201 1212 1246 1310 1359 1354 1316 1250 1184 1172 1229 496 10 0333 0288 0273 0255 0246 0247 0250 0257 0272 0316 0419 0526 0561 0524 0444 0380 0364 0375 0365 0362 0512 1158 2166 2923 3317 3501 3592 3642 3672 3686 3697 3707 3718 3735 3740 3751 497 11 0445 0402 0375 0359 0352 0348 0356 0355 0363 0402 0497 0588 0612 0568 0481 0410 0395 0406 0395 0391 0553 1224 2240 2992 3380 3562 3652 3701 3731 3742 3753 3762 3769 3785 3792 3801 498 12 0626 0588 0568 0559 0557 0562 0569 0554 0532 0535 0572 0602 0590 0537 0450 0383 0369 0381 0371 0368 0521 1166 2150 2878 3253 3427 3512 3557 3584 3596 3606 3614 3621 3636 3640 3648 499 13 0939 0929 0942 0964 0965 0986 0997 0947 0869 0795 0734 0674 0615 0544 0449 0378 0364 0376 0366 0364 0523 1193 2211 2958 3341 3518 3604 3648 3674 3683 3689 3695 3703 3715 3718 3728 500 14 1216 1238 1293 1338 1372 1402 1416 1328 1185 1028 0865 0724 0625 0538 0437 0365 0348 0358 0347 0346 0502 1188 2246 3027 3429 3613 3699 3747 3774 3785 3790 3795 3799 3809 3809 3820 501 15 1337 1414 1534 1647 1709 1774 1813 1715 1527 1313 1086 0887 0754 0638 0505 0406 0376 0375 0350 0339 0498 1201 2271 3049 3444 3622 3706 3759 3804 3828 3831 3822 3804 3789 3785 3809 502 16 1371 1515 1731 1912 1998 2100 2175 2079 1855 1597 1319 1074 0908 0760 0589 0459 0412 0399 0360 0338 0498 1221 2318 3108 3503 3680 3760 3822 3886 3925 3925 3901 3855 3815 3804 3844 503 17 1379 1582 1875 2113 2243 2377 2494 2405 2146 1849 1529 1244 1051 0875 0670 0513 0450 0425 0373 0343 0498 1204 2266 3017 3387 3547 3619 3684 3767 3821 3813 3775 3706 3637 3614 3679 504 18 1352 1575 1904 2188 2331 2492 2640 2550 2281 1963 1622 1318 1111 0922 0703 0533 0461 0429 0371 0338 0484 1157 2169 2881 3228 3379 3440 3504 3594 3652 3644 3597 3511 3434 3409 3480 505 19 0505 0418 0378 0350 0337 0332 0340 0350 0373 0447 0623 0805 0864 0799 0655 0538 0513 0533 0513 0500 0759 1925 3929 5737 6860 7437 7712 7840 7901 7917 7928 7929 7941 7962 7956 7964 506 20 0579 0505 0459 0437 0418 0418 0428 0433 0445 0510 0676 0843 0894 0826 0680 0561 0536 0557 0536 0522 0786 1950 3922 5672 6747 7292 7549 7671 7728 7744 7752 7757 7763 7783 7783 7791 507 21 0737 0668 0632 0609 0590 0598 0609 0603 0596 0641 0771 0896 0920 0843 0692 0573 0548 0569 0548 0534 0800 1959 3889 5565 6574 7079 7319 7431 7483 7494 7502 7504 7511 7531 7528 7533 508 22 0957 0897 0869 0862 0851 0860 0877 0853 0817 0822 0890 0947 0929 0836 0682 0562 0537 0559 0538 0526 0789 1948 3858 5500 6474 6961 7188 7295 7347 7357 7366 7367 7374 7393 7391 7403 509 23 1278 1237 1244 1246 1250 1271 1290 1236 1150 1087 1063 1027 0960 0846 0685 0563 0537 0559 0539 0526 0794 1977 3925 5583 6563 7048 7276 7380 7431 7442 7451 7451 7460 7479 7474 7483 510 24 1604 1589 1632 1665 1687 1718 1739 1652 1501 1356 1226 1094 0976 0841 0668 0540 0515 0536 0515 0502 0779 2003 3991 5665 6647 7131 7359 7463 7516 7525 7532 7533 7539 7557 7549 7561 511 25 2087 2127 2212 2288 2340 2392 2413 2274 2031 1768 1497 1252 1076 0913 0717 0576 0548 0571 0547 0533 0840 2156 4222 5922 6910 7393 7621 7724 7774 7785 7789 7788 7797 7815 7809 7820 512 26 2270 2347 2477 2589 2660 2733 2758 2582 2281 1948 1598 1297 1097 0923 0723 0579 0548 0568 0541 0526 0827 2150 4249 5978 6979 7472 7699 7810 7870 7886 7891 7884 7882 7889 7879 7899 513 27 2146 2233 2400 2543 2624 2712 2752 2582 2270 1927 1573 1268 1067 0893 0696 0553 0517 0525 0494 0475 0740 1959 3953 5617 6582 7050 7265 7376 7453 7484 7485 7464 7437 7416 7403 7436 514 1 0278 0262 0247 0238 0230 0233 0234 0237 0250 0285 0386 0529 0626 0659 0654 0641 0641 0647 0644 0646 0690 0817 0952 1027 1065 1083 1096 1107 1114 1119 1124 1129 1134 1141 1144 1156 515 2 0443 0456 0442 0446 0440 0443 0443 0441 0439 0454 0501 0559 0591 0592 0573 0552 0550 0554 0550 0551 0600 0755 0925 1022 1068 1091 1104 1114 1122 1127 1131 1136 1140 1146 1152 1158 516 3 0786 0837 0889 0946 0964 0991 1013 1002 0970 0924 0877 0833 0797 0755 0701 0649 0621 0604 0575 0560 0612 0806 1018 1136 1190 1214 1227 1241 1255 1263 1265 1264 1261 1258 1261 1274 517 4 0756 0880 1038 1171 1237 1309 1387 1400 1356 1284 1197 1108 1034 0951 0842 0730 0649 0583 0511 0467 0512 0719 0956 1086 1143 1167 1181 1198 1221 1239 1238 1229 1214 1198 1201 1222 518 5 0771 0936 1199 1432 1546 1678 1827 1870 1797 1683 1542 1398 1278 1144 0968 0794 0667 0564 0460 0400 0445 0676 0950 1100 1165 1191 1204 1227 1260 1287 1285 1269 1238 1209 1207 1234 519 6 0876 1118 1492 1828 1989 2187 2414 2487 2378 2212 2002 1793 1618 1428 1182 0944 0773 0636 0502 0424 0476 0758 1100 1290 1369 1402 1416 1443 1490 1525 1521 1495 1449 1401 1395 1435 520 7 0919 1209 1673 2109 2319 2579 2894 2996 2852 2632 2359 2087 1862 1621 1311 1016 0810 0648 0493 0405 0459 0762 1131 1335 1417 1449 1462 1495 1554 1595 1590 1556 1496 1439 1429 1479 521 8 0797 1111 1611 2077 2309 2593 2935 3018 2823 2548 2220 1904 1659 1407 1095 0814 0637 0504 0379 0313 0369 0654 1007 1200 1277 1304 1316 1349 1413 1461 1452 1415 1348 1283 1272 1328 522 9 0781 1077 1559 2027 2259 2543 2883 2969 2777 2501 2175 1863 1620 1370 1063 0787 0613 0484 0363 0299 0355 0627 0963 1145 1217 1243 1253 1285 1346 1394 1387 1350 1284 1218 1211 1267 523 10 0279 0250 0223 0212 0202 0198 0202 0209 0229 0289 0450 0670 0796 0795 0713 0635 0619 0635 0621 0612 0793 1481 2425 3080 3407 3558 3632 3676 3702 3713 3721 3727 3737 3753 3755 3766 524 11 0507 0457 0423 0403 0389 0387 0398 0403 0421 0494 0678 0915 1049 1049 0963 0878 0860 0877 0860 0849 1043 1757 2706 3362 3688 3836 3911 3950 3974 3982 3989 3991 4002 4014 4015 4023 525 12 0811 0759 0745 0734 0726 0729 0739 0731 0723 0755 0865 0995 1053 1025 0933 0850 0834 0848 0831 0822 1002 1675 2573 3188 3493 3632 3699 3736 3758 3765 3769 3773 3779 3788 3792 3798 526 13 1149 1146 1146 1157 1163 1172 1185 1153 1100 1068 1077 1093 1081 1022 0920 0834 0815 0828 0811 0802 0982 1666 2586 3216 3529 3671 3738 3777 3797 3802 3806 3810 3816 3825 3826 3832 527 14 1530 1563 1613 1658 1686 1713 1726 1661 1543 1415 1294 1181 1095 1002 0882 0787 0764 0775 0755 0744 0932 1667 2672 3368 3717 3873 3948 3988 4012 4017 4020 4022 4024 4034 4031 4040 528 15 1737 1824 1953 2051 2108 2170 2205 2119 1950 1753 1538 1346 1210 1085 0934 0813 0774 0770 0735 0712 0904 1676 2726 3445 3802 3963 4037 4082 4117 4132 4134 4129 4117 4108 4105 4127 529 16 1772 1919 2126 2297 2385 2486 2565 2481 2276 2031 1764 1520 1348 1189 0995 0836 0772 0747 0689 0651 0843 1652 2771 3542 3925 4096 4174 4228 4281 4310 4309 4287 4254 4223 4216 4247 530 17 1684 1908 2231 2504 2637 2798 2940 2858 2601 2292 1954 1650 1434 1230 0987 0785 0693 0645 0564 0512 0693 1508 2685 3510 3922 4104 4182 4251 4331 4382 4375 4335 4268 4204 4183 4240 531 18 1403 1661 2042 2368 2534 2725 2910 2857 2601 2287 1944 1630 1406 1194 0939 0727 0621 0558 0469 0416 0558 1220 2168 2813 3125 3256 3312 3371 3456 3513 3501 3458 3377 3299 3278 3343 532 19 0393 0311 0258 0233 0218 0213 0218 0234 0267 0367 0628 0960 1132 1102 0943 0800 0771 0798 0770 0749 1067 2410 4592 6524 7721 8338 8633 8772 8835 8850 8859 8861 8869 8887 8880 8888 533 20 0418 0354 0300 0275 0255 0250 0260 0272 0306 0401 0640 0922 1052 1004 0843 0705 0676 0702 0676 0657 0964 2282 4471 6442 7683 8328 8636 8781 8851 8865 8874 8877 8887 8907 8899 8906 534 21 0640 0561 0518 0483 0465 0463 0474 0482 0499 0582 0785 1001 1078 1010 0842 0703 0674 0699 0674 0655 0963 2280 4472 6444 7689 8336 8647 8791 8860 8875 8884 8885 8895 8917 8911 8919 535 22 0925 0838 0809 0784 0768 0777 0792 0780 0762 0799 0930 1057 1078 0987 0816 0677 0648 0673 0648 0630 0934 2251 4452 6435 7685 8336 8650 8794 8860 8873 8885 8887 8895 8914 8907 8918 536 23 1251 1190 1177 1164 1164 1176 1199 1161 1102 1087 1138 1174 1140 1025 0841 0696 0666 0692 0666 0649 0964 2324 4558 6531 7753 8382 8683 8822 8886 8898 8907 8907 8917 8939 8931 8941 537 24 1722 1710 1734 1762 1783 1818 1840 1753 1605 1468 1353 1230 1112 0964 0769 0623 0593 0617 0593 0575 0893 2278 4551 6537 7760 8386 8684 8821 8882 8897 8904 8903 8913 8932 8926 8932 538 25 2228 2274 2362 2444 2495 2555 2579 2428 2168 1892 1606 1348 1162 0985 0774 0620 0589 0614 0588 0570 0902 2343 4652 6624 7816 8418 8702 8833 8893 8906 8913 8913 8920 8938 8930 8943 539 26 2522 2594 2716 2834 2905 2985 3003 2814 2492 2135 1763 1438 1223 1034 0815 0656 0624 0650 0621 0604 0945 2409 4727 6684 7856 8445 8724 8851 8910 8920 8926 8925 8933 8949 8946 8954 540 27 2475 2561 2715 2843 2922 2999 3031 2848 2530 2180 1812 1492 1279 1093 0875 0717 0679 0698 0665 0644 0963 2345 4513 6304 7345 7854 8092 8209 8272 8292 8295 8287 8278 8282 8268 8296 541 1 0274 0244 0229 0221 0214 0213 0218 0223 0249 0316 0501 0782 0991 1086 1117 1123 1125 1125 1119 1121 1128 1152 1171 1183 1192 1198 1206 1212 1221 1225 1228 1231 1237 1241 1244 1248 542 2 0579 0565 0547 0536 0530 0527 0534 0547 0575 0640 0781 0957 1074 1123 1138 1138 1137 1134 1127 1127 1132 1149 1165 1173 1180 1183 1189 1195 1201 1203 1206 1206 1208 1212 1216 1227 543 3 1015 1062 1075 1088 1092 1097 1098 1100 1107 1106 1107 1109 1111 1112 1114 1113 1115 1114 1112 1116 1115 1117 1117 1120 1123 1127 1132 1137 1142 1143 1145 1147 1149 1154 1158 1162 544 4 0801 0967 1179 1358 1442 1545 1659 1715 1700 1658 1596 1527 1456 1367 1240 1093 0963 0843 0724 0649 0653 0764 0882 0938 0960 0969 0973 0988 1010 1027 1024 1013 0992 0973 0975 0998 545 5 0921 1136 1451 1734 1866 2023 2217 2306 2271 2191 2078 1953 1832 1686 1485 1263 1077 0909 0749 0650 0661 0828 1010 1099 1134 1147 1154 1173 1206 1229 1224 1207 1173 1145 1141 1171 546 6 0998 1292 1686 2055 2232 2441 2701 2825 2766 2647 2481 2301 2134 1938 1673 1389 1159 0957 0765 0647 0671 0899 1159 1293 1349 1368 1376 1401 1443 1473 1469 1444 1402 1361 1356 1395 547 7 1072 1392 1905 2374 2605 2889 3253 3414 3324 3149 2913 2662 2437 2178 1834 1480 1203 0968 0749 0620 0650 0921 1237 1404 1471 1494 1505 1533 1586 1623 1616 1584 1528 1476 1466 1514 548 8 0899 1269 1854 2412 2687 3038 3476 3649 3497 3245 2920 2594 2317 2014 1625 1247 0974 0754 0553 0440 0477 0738 1036 1184 1240 1258 1265 1295 1357 1405 1397 1358 1290 1228 1218 1272 549 9 0823 1143 1697 2235 2502 2838 3262 3423 3264 3010 2688 2365 2097 1806 1438 1085 0838 0643 0467 0372 0409 0648 0925 1061 1112 1129 1137 1164 1223 1268 1259 1225 1160 1101 1092 1145 550 10 0311 0256 0235 0217 0213 0205 0212 0219 0243 0317 0546 0910 1175 1247 1193 1121 1107 1126 1110 1101 1284 1910 2667 3144 3375 3478 3533 3568 3588 3595 3601 3607 3616 3631 3630 3639 551 11 0611 0558 0511 0486 0476 0469 0479 0489 0522 0630 0908 1293 1549 1612 1552 1471 1456 1474 1456 1445 1637 2286 3069 3570 3811 3917 3970 4003 4023 4026 4030 4030 4039 4051 4051 4060 552 12 0976 0937 0916 0893 0878 0879 0893 0894 0907 0984 1190 1450 1607 1623 1547 1464 1447 1462 1442 1431 1615 2248 3019 3513 3750 3855 3908 3939 3955 3956 3960 3961 3965 3976 3971 3983 553 13 1415 1399 1411 1417 1416 1425 1438 1421 1396 1409 1495 1604 1654 1621 1526 1437 1417 1429 1409 1397 1581 2228 3023 3533 3780 3891 3945 3976 3991 3993 3995 3996 3999 4010 4007 4012 554 14 2051 2112 2157 2205 2221 2254 2272 2222 2129 2028 1939 1859 1790 1704 1584 1481 1456 1469 1444 1431 1629 2330 3183 3731 3997 4114 4170 4201 4219 4219 4219 4217 4219 4229 4227 4232 555 15 2278 2413 2546 2663 2724 2794 2834 2770 2622 2443 2244 2059 1926 1799 1641 1506 1454 1442 1391 1357 1554 2286 3191 3773 4053 4176 4235 4272 4301 4312 4311 4301 4288 4285 4277 4294 556 16 2266 2455 2666 2847 2940 3042 3127 3070 2906 2699 2464 2245 2083 1926 1728 1550 1467 1423 1340 1283 1475 2233 3183 3792 4087 4215 4274 4319 4363 4383 4379 4360 4333 4308 4296 4325 557 17 2077 2363 2739 3072 3238 3431 3619 3578 3344 3045 2706 2391 2156 1926 1636 1378 1236 1142 1010 0923 1105 1923 3023 3758 4120 4275 4343 4406 4484 4532 4523 4482 4411 4342 4321 4377 558 18 1612 1904 2320 2692 2877 3094 3318 3300 3062 2757 2414 2094 1857 1623 1333 1077 0930 0829 0703 0623 0763 1425 2328 2923 3207 3324 3374 3432 3513 3569 3556 3511 3430 3351 3330 3396 559 19 0420 0341 0283 0248 0233 0229 0236 0254 0295 0422 0783 1329 1711 1789 1654 1503 1471 1504 1469 1444 1805 3195 5268 6977 7980 8477 8712 8824 8877 8885 8892 8890 8897 8916 8908 8919 560 20 0427 0350 0301 0269 0248 0244 0253 0270 0312 0442 0800 1324 1678 1739 1597 1444 1411 1443 1409 1383 1744 3140 5226 6954 7974 8481 8721 8833 8888 8895 8899 8899 8908 8928 8921 8929 561 21 0673 0590 0521 0487 0465 0459 0471 0488 0530 0668 1018 1479 1762 1784 1628 1469 1437 1468 1434 1408 1768 3163 5245 6967 7986 8495 8737 8852 8906 8913 8919 8916 8925 8946 8940 8952 562 22 1020 0919 0878 0842 0824 0828 0845 0848 0859 0958 1231 1566 1745 1717 1546 1385 1351 1380 1346 1321 1679 3081 5188 6934 7970 8488 8733 8849 8906 8911 8917 8919 8922 8944 8933 8941 563 23 1326 1256 1226 1205 1193 1206 1229 1206 1182 1226 1401 1604 1687 1616 1430 1269 1234 1262 1229 1205 1558 2966 5109 6891 7945 8471 8719 8838 8893 8903 8906 8906 8914 8934 8926 8935 564 24 1919 1880 1890 1901 1915 1936 1962 1908 1812 1757 1773 1797 1765 1642 1435 1264 1228 1256 1220 1196 1558 3002 5168 6942 7984 8502 8745 8858 8911 8920 8924 8926 8931 8951 8944 8952 565 25 2616 2661 2733 2802 2848 2901 2927 2816 2620 2420 2232 2057 1913 1742 1512 1331 1294 1320 1282 1257 1633 3116 5291 7028 8028 8519 8750 8858 8911 8916 8920 8916 8924 8945 8934 8943 566 26 3140 3240 3386 3502 3588 3663 3696 3526 3230 2894 2536 2217 1997 1800 1563 1379 1338 1363 1326 1299 1675 3164 5340 7068 8061 8547 8775 8881 8932 8938 8941 8942 8946 8965 8962 8971 567 27 3178 3326 3483 3630 3713 3809 3842 3680 3386 3048 2686 2362 2142 1941 1700 1511 1463 1480 1433 1399 1762 3191 5232 6813 7696 8119 8317 8413 8468 8477 8481 8474 8467 8474 8466 8488 568 1 0229 0226 0222 0217 0213 0213 0223 0238 0269 0357 0602 0980 1266 1389 1414 1390 1349 1299 1245 1212 1190 1180 1170 1164 1164 1166 1172 1182 1197 1208 1209 1208 1200 1196 1198 1213 569 2 0531 0562 0590 0609 0617 0630 0660 0705 0762 0883 1137 1454 1662 1731 1721 1663 1588 1501 1415 1359 1323 1303 1285 1273 1269 1267 1270 1280 1297 1308 1308 1302 1289 1277 1278 1293 570 3 0772 0868 0979 1058 1091 1138 1197 1258 1313 1398 1545 1702 1785 1787 1734 1640 1530 1409 1293 1215 1169 1142 1118 1101 1094 1091 1090 1099 1117 1130 1128 1119 1103 1089 1086 1108 571 4 0972 1185 1468 1708 1816 1946 2111 2230 2276 2295 2308 2302 2260 2169 2022 1823 1614 1398 1198 1068 1005 0991 0977 0959 0950 0943 0942 0952 0976 0994 0989 0974 0946 0925 0923 0947 572 5 1128 1414 1782 2118 2268 2453 2687 2829 2847 2817 2751 2662 2558 2411 2198 1937 1684 1437 1209 1064 1020 1075 1129 1142 1143 1141 1140 1155 1186 1209 1202 1182 1149 1116 1113 1143 573 6 1153 1463 1914 2326 2515 2755 3062 3241 3242 3176 3065 2925 2774 2573 2291 1965 1665 1384 1128 0968 0938 1052 1173 1220 1237 1239 1241 1259 1297 1324 1316 1293 1251 1211 1205 1245 574 7 1118 1465 2006 2510 2756 3066 3464 3692 3673 3564 3388 3184 2975 2711 2350 1947 1596 1281 0999 0827 0810 0977 1162 1246 1277 1286 1289 1310 1356 1390 1382 1352 1302 1255 1250 1291 575 8 1017 1425 2111 2783 3116 3539 4114 4420 4346 4145 3853 3531 3225 2861 2381 1880 1471 1122 0819 0643 0638 0831 1036 1124 1154 1161 1164 1190 1247 1290 1281 1244 1181 1123 1116 1165 576 9 0876 1267 1904 2538 2846 3256 3791 4061 3962 3742 3438 3112 2815 2469 2020 1564 1206 0908 0651 0506 0513 0701 0903 0991 1021 1028 1029 1055 1110 1153 1144 1110 1050 0995 0987 1037 577 10 0310 0267 0234 0223 0212 0210 0214 0223 0252 0340 0636 1149 1565 1733 1737 1692 1688 1707 1694 1691 1836 2292 2788 3078 3215 3278 3314 3340 3355 3362 3368 3372 3380 3389 3394 3396 578 11 0697 0633 0590 0552 0535 0530 0541 0561 0613 0767 1162 1735 2160 2322 2312 2257 2250 2266 2248 2240 2401 2923 3509 3865 4032 4109 4148 4174 4191 4191 4193 4191 4197 4207 4205 4209 579 12 1170 1150 1102 1071 1056 1054 1070 1086 1125 1252 1566 1983 2268 2354 2317 2251 2239 2251 2232 2223 2381 2904 3502 3874 4052 4131 4173 4197 4211 4210 4211 4210 4211 4221 4216 4222 580 13 1777 1784 1774 1778 1772 1782 1799 1803 1817 1883 2063 2284 2414 2427 2360 2284 2267 2277 2253 2243 2402 2925 3513 3868 4038 4112 4151 4174 4188 4186 4184 4183 4183 4191 4191 4193 581 14 2448 2512 2555 2591 2613 2639 2660 2637 2599 2567 2568 2580 2569 2519 2429 2342 2321 2332 2306 2294 2454 2987 3578 3936 4106 4179 4218 4239 4251 4249 4246 4242 4246 4253 4251 4257 582 15 2834 2990 3133 3249 3316 3373 3419 3379 3281 3148 2995 2850 2743 2637 2497 2370 2319 2303 2246 2209 2383 2995 3680 4097 4295 4382 4424 4454 4478 4485 4482 4472 4463 4458 4453 4468 583 16 2648 2891 3139 3350 3462 3581 3689 3677 3553 3381 3178 2983 2831 2672 2465 2265 2151 2075 1956 1875 2043 2707 3467 3928 4145 4237 4281 4318 4361 4380 4374 4353 4318 4290 4276 4308 584 17 2506 2853 3307 3703 3900 4125 4369 4384 4189 3921 3600 3292 3048 2794 2464 2149 1947 1796 1607 1478 1644 2416 3376 3983 4272 4393 4447 4503 4580 4625 4614 4570 4496 4425 4400 4458 585 18 1990 2349 2852 3290 3503 3761 4046 4088 3892 3617 3289 2970 2717 2450 2109 1780 1564 1394 1199 1073 1201 1844 2652 3150 3381 3475 3514 3566 3648 3698 3684 3638 3556 3480 3455 3518 586 19 0467 0382 0323 0285 0267 0261 0269 0290 0341 0506 0989 1773 2395 2607 2522 2374 2345 2381 2342 2316 2696 4066 5948 7396 8205 8593 8777 8869 8912 8915 8920 8918 8922 8939 8927 8942 587 20 0507 0419 0354 0316 0297 0292 0302 0324 0376 0542 1007 1722 2263 2424 2317 2165 2134 2169 2131 2104 2481 3863 5798 7311 8167 8582 8779 8873 8918 8923 8928 8925 8933 8953 8940 8953 588 21 0745 0653 0579 0539 0509 0503 0520 0542 0596 0773 1230 1874 2326 2437 2312 2155 2123 2157 2118 2091 2467 3846 5778 7291 8152 8572 8771 8866 8914 8919 8921 8920 8925 8940 8934 8949 589 22 1286 1180 1118 1080 1061 1057 1082 1093 1125 1278 1678 2208 2556 2614 2466 2302 2268 2301 2260 2232 2609 3990 5899 7373 8205 8609 8802 8896 8941 8945 8944 8942 8949 8966 8959 8967 590 23 1690 1630 1589 1564 1549 1558 1582 1580 1583 1687 1987 2373 2599 2596 2428 2257 2220 2251 2209 2180 2557 3951 5885 7373 8209 8613 8802 8897 8940 8945 8944 8943 8947 8969 8960 8964 591 24 2298 2277 2286 2289 2293 2318 2350 2318 2263 2273 2404 2567 2632 2553 2350 2169 2129 2157 2114 2083 2468 3895 5863 7366 8210 8617 8810 8902 8945 8950 8951 8949 8955 8974 8964 8979 592 25 3067 3110 3180 3237 3276 3327 3363 3285 3144 3017 2938 2875 2795 2652 2425 2235 2190 2219 2173 2142 2534 3977 5936 7415 8236 8632 8821 8909 8953 8956 8956 8953 8959 8978 8970 8982 593 26 3744 3872 4009 4137 4220 4300 4340 4205 3964 3686 3390 3122 2928 2736 2490 2291 2245 2272 2225 2192 2591 4052 6009 7468 8274 8661 8843 8934 8975 8977 8977 8975 8981 9001 8993 9005 594 27 3923 4071 4235 4382 4474 4563 4604 4459 4199 3889 3551 3248 3034 2837 2593 2395 2349 2374 2326 2296 2690 4127 6049 7477 8265 8642 8819 8905 8946 8947 8947 8946 8952 8973 8967 8973 595 1 0198 0177 0180 0178 0175 0175 0186 0204 0246 0370 0733 1342 1823 2005 1986 1856 1684 1490 1305 1180 1107 1066 1031 1004 0992 0987 0987 1002 1033 1055 1053 1041 1012 0992 0990 1014 596 2 0406 0439 0512 0561 0575 0608 0667 0740 0834 1029 1435 1956 2297 2387 2317 2150 1948 1729 1524 1388 1307 1261 1220 1192 1177 1171 1169 1184 1214 1235 1233 1216 1186 1161 1158 1189 597 3 0557 0648 0779 0889 0927 0989 1087 1181 1279 1452 1768 2133 2338 2355 2244 2052 1829 1595 1380 1241 1161 1113 1075 1045 1031 1025 1022 1035 1063 1081 1078 1063 1035 1010 1009 1033 598 4 0922 1104 1356 1575 1660 1776 1938 2069 2157 2265 2432 2589 2641 2580 2429 2207 1957 1697 1461 1306 1216 1164 1120 1086 1071 1063 1059 1072 1099 1118 1113 1095 1064 1041 1036 1061 599 5 1146 1460 1878 2259 2427 2640 2931 3139 3220 3267 3307 3312 3243 3086 2830 2496 2150 1806 1498 1301 1203 1176 1149 1120 1104 1095 1090 1105 1137 1160 1153 1130 1091 1057 1053 1087 600 6 1264 1631 2147 2633 2856 3136 3512 3766 3825 3808 3745 3641 3492 3270 2945 2547 2160 1785 1453 1244 1162 1185 1207 1199 1191 1183 1177 1193 1231 1259 1248 1225 1181 1141 1136 1173 601 7 1270 1663 2251 2810 3071 3408 3855 4154 4196 4150 4032 3872 3677 3409 3029 2577 2146 1741 1384 1162 1087 1138 1189 1195 1192 1187 1183 1201 1242 1272 1264 1236 1185 1143 1136 1179 602 8 1135 1619 2371 3097 3451 3911 4542 4951 4976 4870 4661 4396 4104 3724 3202 2615 2084 1605 1191 0941 0873 0969 1068 1097 1102 1100 1096 1120 1171 1213 1202 1167 1107 1052 1045 1097 603 9 0845 1266 1975 2694 3048 3516 4161 4542 4500 4321 4036 3708 3388 2997 2479 1929 1472 1079 0750 0565 0538 0662 0788 0831 0842 0842 0841 0864 0915 0953 0945 0914 0858 0808 0802 0849 604 10 0341 0284 0246 0225 0213 0212 0218 0230 0269 0400 0843 1643 2351 2698 2788 2781 2789 2809 2798 2800 2914 3253 3592 3783 3873 3915 3943 3964 3979 3981 3984 3986 3991 4005 4004 4014 605 11 0687 0607 0540 0501 0480 0470 0482 0514 0587 0804 1363 2218 2910 3232 3315 3303 3309 3323 3308 3309 3417 3752 4094 4287 4379 4421 4447 4466 4480 4477 4478 4476 4479 4490 4484 4491 606 12 1322 1264 1204 1160 1135 1130 1148 1186 1273 1498 2006 2693 3199 3415 3453 3426 3423 3435 3416 3415 3519 3845 4177 4366 4456 4494 4518 4536 4546 4543 4540 4536 4539 4548 4543 4547 607 13 2022 2019 1990 1968 1952 1955 1979 2015 2088 2256 2603 3023 3300 3394 3382 3338 3329 3337 3317 3313 3421 3752 4081 4266 4353 4391 4416 4432 4441 4438 4435 4432 4434 4443 4440 4444 608 14 2823 2923 2964 2986 3004 3027 3053 3070 3090 3135 3239 3354 3415 3409 3359 3299 3287 3293 3270 3265 3378 3711 4031 4206 4290 4323 4346 4363 4372 4370 4366 4365 4365 4373 4367 4374 609 15 3328 3535 3701 3825 3896 3961 4021 4015 3974 3896 3803 3712 3639 3560 3453 3341 3289 3259 3189 3147 3273 3684 4080 4295 4396 4439 4462 4486 4510 4515 4513 4499 4490 4485 4477 4499 610 16 3053 3380 3699 3965 4100 4243 4391 4428 4357 4226 4063 3900 3761 3603 3390 3166 3012 2886 2720 2605 2724 3244 3797 4114 4260 4318 4346 4381 4427 4451 4443 4418 4375 4338 4320 4359 611 17 3007 3450 3979 4430 4658 4917 5210 5292 5158 4936 4657 4374 4135 3869 3514 3150 2890 2671 2416 2239 2370 3043 3808 4257 4464 4545 4580 4632 4710 4754 4741 4692 4613 4538 4510 4578 612 18 2455 2888 3456 3959 4203 4489 4828 4934 4789 4551 4254 3950 3693 3408 3029 2640 2357 2117 1851 1671 1775 2370 3053 3445 3620 3688 3715 3763 3843 3895 3879 3829 3745 3666 3639 3704 613 19 0489 0397 0333 0296 0274 0271 0280 0303 0363 0565 1176 2212 3095 3475 3461 3334 3313 3352 3313 3288 3668 4959 6600 7771 8394 8684 8825 8897 8932 8932 8932 8927 8929 8947 8940 8949 614 20 0562 0463 0387 0345 0318 0313 0324 0352 0417 0626 1219 2165 2930 3222 3167 3026 2998 3039 2997 2971 3358 4691 6418 7678 8353 8671 8824 8900 8936 8938 8939 8935 8937 8956 8947 8957 615 21 0952 0841 0760 0707 0669 0667 0687 0720 0794 1027 1621 2477 3115 3329 3246 3096 3068 3103 3061 3032 3415 4741 6454 7699 8369 8687 8841 8917 8955 8954 8953 8950 8953 8970 8962 8972 616 22 1474 1378 1311 1258 1235 1232 1257 1281 1339 1549 2065 2767 3255 3387 3272 3113 3081 3114 3070 3042 3421 4747 6460 7702 8376 8692 8844 8919 8956 8955 8954 8950 8955 8974 8964 8974 617 23 2111 2058 2004 1971 1949 1957 1987 2007 2051 2232 2669 3237 3609 3681 3546 3380 3345 3375 3328 3299 3677 4979 6624 7793 8421 8711 8854 8926 8960 8958 8956 8951 8953 8974 8966 8973 618 24 2798 2796 2794 2792 2785 2812 2850 2849 2850 2944 3217 3550 3736 3715 3538 3359 3317 3347 3297 3266 3654 4983 6643 7815 8439 8733 8873 8946 8980 8980 8978 8972 8977 8996 8989 8998 619 25 3559 3632 3688 3734 3773 3817 3861 3829 3758 3725 3779 3855 3863 3757 3543 3346 3302 3330 3276 3243 3648 5015 6688 7852 8466 8756 8894 8964 8996 8993 8991 8990 8992 9009 9002 9014 620 26 4311 4508 4653 4787 4871 4952 5005 4909 4727 4509 4286 4077 3914 3733 3487 3275 3227 3256 3202 3167 3590 4994 6688 7858 8474 8763 8900 8968 9002 9000 8998 8996 9001 9022 9009 9018 621 27 4538 4736 4923 5079 5180 5272 5324 5203 4977 4694 4378 4088 3880 3683 3430 3218 3169 3197 3142 3107 3528 4935 6640 7818 8439 8726 8864 8933 8966 8966 8963 8959 8967 8984 8976 8984 622 1 0183 0193 0205 0204 0199 0200 0213 0245 0305 0485 1011 1915 2659 2929 2850 2580 2249 1898 1578 1366 1245 1175 1115 1069 1048 1038 1036 1056 1096 1130 1126 1103 1062 1021 1016 1050 623 2 0358 0377 0435 0479 0490 0523 0582 0667 0781 1035 1608 2401 2959 3113 2993 2717 2393 2055 1749 1548 1431 1364 1307 1263 1243 1232 1228 1247 1286 1315 1310 1289 1246 1208 1200 1236 624 3 0504 0601 0742 0852 0896 0960 1070 1187 1320 1574 2079 2708 3102 3163 3002 2709 2376 2032 1724 1523 1407 1339 1284 1241 1221 1210 1207 1223 1259 1286 1279 1259 1219 1185 1179 1209 625 4 0856 1042 1306 1526 1615 1739 1927 2097 2238 2460 2851 3286 3508 3476 3263 2931 2565 2191 1856 1641 1516 1445 1384 1338 1315 1303 1299 1314 1352 1378 1372 1347 1305 1265 1257 1296 626 5 1158 1481 1883 2248 2406 2610 2894 3126 3256 3403 3612 3805 3842 3709 3435 3052 2642 2234 1870 1638 1505 1429 1365 1318 1293 1279 1273 1288 1325 1351 1342 1315 1271 1233 1225 1262 627 6 1296 1691 2244 2748 2992 3287 3696 4002 4115 4165 4180 4142 4022 3799 3460 3019 2562 2112 1720 1473 1340 1270 1210 1164 1140 1127 1120 1135 1171 1196 1186 1160 1116 1079 1071 1107 628 7 1379 1821 2479 3106 3395 3778 4298 4677 4781 4781 4707 4571 4372 4076 3652 3132 2614 2120 1693 1425 1303 1273 1252 1220 1202 1190 1184 1198 1237 1266 1257 1227 1178 1136 1130 1166 629 8 1348 1831 2605 3358 3717 4183 4843 5308 5404 5368 5229 5018 4747 4367 3841 3218 2621 2063 1585 1291 1173 1183 1196 1178 1164 1153 1147 1168 1214 1249 1239 1204 1149 1097 1088 1137 630 9 1001 1508 2356 3211 3638 4204 5032 5618 5707 5624 5407 5104 4748 4268 3625 2902 2241 1651 1168 0886 0785 0814 0846 0839 0829 0821 0817 0837 0883 0919 0910 0877 0826 0777 0775 0823 631 10 0389 0333 0287 0262 0252 0247 0252 0271 0320 0498 1087 2174 3201 3772 3990 4044 4071 4087 4082 4094 4140 4273 4391 4456 4493 4512 4530 4548 4560 4560 4559 4562 4563 4577 4574 4579 632 11 0773 0680 0602 0550 0526 0514 0529 0566 0668 0942 1662 2793 3767 4277 4462 4503 4522 4532 4521 4528 4575 4723 4859 4930 4973 4992 5010 5027 5040 5035 5034 5032 5034 5044 5038 5047 633 12 1539 1459 1393 1337 1306 1297 1319 1379 1510 1821 2507 3461 4207 4569 4699 4716 4722 4721 4701 4705 4732 4837 4928 4979 5010 5024 5038 5054 5063 5059 5054 5047 5045 5052 5047 5054 634 13 2293 2275 2225 2191 2167 2165 2200 2271 2403 2676 3218 3897 4376 4590 4659 4656 4654 4649 4624 4624 4651 4750 4829 4874 4902 4914 4927 4942 4953 4949 4944 4938 4934 4939 4935 4938 635 14 3272 3387 3441 3466 3482 3510 3557 3622 3721 3876 4137 4419 4594 4665 4688 4673 4662 4646 4618 4613 4611 4632 4645 4653 4666 4673 4684 4700 4711 4706 4704 4697 4696 4699 4693 4702 636 15 3813 4004 4104 4188 4241 4294 4331 4363 4396 4407 4422 4437 4447 4454 4466 4461 4465 4461 4452 4464 4456 4456 4456 4461 4473 4481 4493 4509 4519 4517 4516 4515 4516 4525 4525 4532 637 16 3636 4034 4430 4750 4905 5078 5268 5367 5363 5302 5210 5105 4999 4866 4672 4440 4250 4065 3846 3695 3726 4000 4236 4337 4381 4396 4407 4439 4491 4517 4506 4475 4423 4373 4357 4403 638 17 3419 3941 4534 5024 5263 5538 5870 6034 6000 5877 5698 5497 5303 5063 4726 4342 4025 3727 3399 3172 3208 3613 4011 4209 4292 4320 4334 4376 4450 4493 4476 4428 4347 4271 4247 4312 639 18 2923 3469 4129 4711 4986 5319 5723 5920 5855 5690 5453 5196 4951 4656 4249 3804 3432 3091 2734 2490 2520 2948 3407 3646 3746 3780 3794 3839 3918 3967 3953 3898 3807 3722 3695 3759 640 19 0524 0427 0350 0305 0288 0282 0291 0316 0385 0610 1309 2533 3645 4188 4265 4176 4166 4203 4166 4148 4496 5650 7057 8021 8521 8748 8863 8924 8953 8949 8949 8945 8945 8963 8955 8962 641 20 0644 0527 0448 0398 0372 0366 0376 0408 0495 0758 1504 2743 3830 4349 4416 4328 4317 4355 4315 4297 4638 5766 7133 8064 8546 8765 8876 8933 8964 8959 8959 8954 8957 8977 8965 8972 642 21 1063 0944 0848 0792 0754 0745 0769 0810 0908 1202 1950 3084 4016 4428 4450 4347 4331 4363 4323 4304 4637 5754 7112 8045 8534 8759 8871 8929 8961 8959 8955 8950 8953 8972 8963 8973 643 22 1663 1587 1505 1447 1411 1408 1434 1473 1571 1846 2517 3461 4188 4473 4445 4325 4304 4334 4290 4269 4600 5719 7085 8030 8528 8761 8875 8938 8969 8965 8963 8957 8960 8977 8968 8977 644 23 2362 2306 2242 2198 2169 2177 2214 2254 2339 2589 3171 3947 4503 4689 4621 4489 4461 4488 4444 4422 4751 5854 7184 8091 8567 8783 8893 8948 8980 8975 8971 8966 8972 8990 8979 8986 645 24 3213 3212 3194 3185 3172 3195 3246 3280 3346 3537 3975 4518 4872 4946 4833 4684 4652 4677 4629 4604 4942 6041 7320 8176 8621 8827 8930 8985 9014 9007 9004 9000 9000 9019 9012 9021 646 25 4029 4125 4174 4213 4241 4289 4346 4357 4362 4433 4641 4889 5019 4982 4819 4648 4610 4634 4583 4554 4914 6054 7346 8199 8640 8845 8947 9000 9028 9024 9022 9013 9017 9034 9025 9035 647 26 5167 5420 5582 5736 5832 5919 5989 5947 5832 5685 5537 5394 5274 5125 4911 4716 4673 4697 4640 4609 5002 6184 7461 8275 8690 8877 8973 9024 9050 9046 9040 9036 9036 9058 9046 9059 648 27 5303 5578 5788 5960 6074 6178 6242 6173 6012 5792 5540 5304 5132 4959 4735 4537 4493 4521 4461 4429 4829 6036 7359 8211 8646 8843 8943 8997 9026 9017 9015 9012 9016 9034 9020 9039 649 1 0222 0229 0245 0242 0239 0246 0269 0316 0408 0671 1429 2744 3891 4330 4190 3748 3226 2692 2211 1897 1716 1611 1521 1452 1418 1400 1393 1422 1481 1528 1519 1484 1420 1355 1345 1398 650 2 0363 0409 0479 0536 0550 0588 0666 0769 0915 1242 1991 3063 3845 4057 3864 3455 2987 2513 2092 1817 1659 1568 1491 1432 1404 1390 1381 1406 1456 1495 1488 1456 1401 1349 1340 1386 651 3 0543 0636 0796 0925 0971 1050 1179 1330 1502 1845 2549 3475 4090 4205 3971 3544 3070 2591 2164 1888 1730 1638 1561 1501 1473 1456 1450 1471 1521 1558 1550 1519 1464 1412 1403 1448 652 4 0771 0940 1197 1415 1496 1624 1816 2013 2204 2542 3183 3964 4429 4451 4167 3705 3203 2696 2248 1959 1793 1698 1617 1555 1525 1508 1502 1523 1572 1609 1599 1565 1508 1455 1445 1488 653 5 1127 1410 1815 2169 2319 2521 2822 3084 3280 3566 4048 4575 4820 4715 4366 3859 3318 2783 2312 2010 1838 1739 1654 1591 1558 1541 1533 1555 1604 1638 1627 1593 1536 1482 1468 1517 654 6 1455 1853 2434 2956 3195 3502 3940 4291 4477 4662 4914 5129 5132 4900 4477 3916 3332 2762 2266 1952 1776 1675 1590 1527 1495 1476 1466 1485 1532 1567 1554 1520 1461 1409 1397 1445 655 7 1537 2019 2765 3457 3782 4197 4797 5255 5427 5517 5565 5534 5365 5033 4534 3904 3263 2646 2118 1787 1608 1513 1434 1371 1340 1322 1313 1332 1380 1413 1402 1367 1307 1254 1245 1293 656 8 1527 2094 2937 3748 4137 4644 5374 5923 6091 6128 6071 5921 5662 5251 4669 3962 3258 2593 2025 1670 1494 1420 1357 1302 1272 1253 1244 1264 1315 1354 1341 1302 1240 1181 1174 1218 657 9 1297 1879 2831 3760 4224 4837 5752 6444 6621 6613 6459 6195 5831 5316 4617 3800 3016 2295 1698 1339 1171 1117 1071 1024 0997 0982 0972 0992 1041 1079 1067 1031 0973 0919 0915 0964 658 10 0475 0378 0324 0293 0277 0275 0281 0308 0380 0623 1393 2802 4188 5012 5358 5456 5483 5475 5446 5446 5438 5455 5466 5476 5492 5503 5518 5539 5554 5554 5553 5548 5547 5552 5550 5558 659 11 0852 0756 0667 0615 0585 0578 0594 0645 0770 1109 1978 3359 4596 5282 5558 5626 5633 5611 5573 5561 5540 5533 5523 5523 5536 5543 5558 5577 5592 5591 5588 5581 5578 5581 5577 5592 660 12 1534 1483 1409 1369 1335 1329 1366 1443 1604 1980 2820 4020 5004 5502 5682 5698 5668 5610 5537 5504 5466 5450 5428 5421 5429 5435 5446 5463 5486 5486 5481 5468 5457 5453 5440 5455 661 13 2151 2168 2157 2154 2132 2148 2206 2311 2491 2860 3607 4580 5302 5633 5720 5675 5595 5486 5370 5300 5242 5211 5177 5160 5159 5159 5167 5189 5215 5222 5214 5196 5174 5155 5144 5168 662 14 2809 2938 3031 3086 3102 3149 3242 3370 3547 3865 4442 5125 5588 5765 5778 5688 5567 5424 5269 5170 5093 5048 5005 4978 4973 4968 4974 4997 5031 5045 5035 5011 4982 4956 4940 4972 663 15 3498 3797 4057 4258 4344 4460 4624 4781 4939 5154 5489 5840 6033 6059 5986 5821 5633 5415 5187 5032 4919 4849 4787 4740 4726 4717 4718 4747 4797 4824 4815 4785 4731 4685 4669 4720 664 16 4087 4617 5082 5463 5650 5857 6101 6279 6369 6405 6421 6417 6375 6284 6141 5919 5673 5393 5104 4902 4760 4674 4590 4532 4509 4496 4497 4534 4597 4632 4618 4578 4512 4453 4434 4497 665 17 3887 4477 5136 5667 5934 6231 6598 6837 6890 6858 6772 6654 6505 6296 5986 5597 5224 4846 4448 4168 4090 4217 4305 4312 4308 4300 4298 4341 4425 4471 4454 4401 4309 4222 4199 4272 666 18 3229 3890 4673 5358 5682 6077 6586 6906 6948 6875 6726 6533 6310 5999 5561 5034 4545 4066 3588 3257 3172 3346 3493 3530 3536 3528 3525 3567 3655 3712 3690 3629 3526 3429 3405 3475 667 19 0628 0513 0413 0367 0336 0329 0343 0379 0482 0801 1727 3327 4846 5695 5958 5962 5978 6015 5984 5980 6234 7034 7912 8457 8728 8851 8919 8960 8984 8975 8970 8966 8969 8985 8978 8981 668 20 0995 0868 0772 0697 0657 0652 0671 0722 0849 1207 2148 3645 4985 5690 5878 5853 5861 5894 5860 5853 6110 6928 7840 8420 8712 8844 8918 8962 8985 8978 8973 8966 8969 8990 8980 8987 669 21 1403 1280 1167 1093 1052 1039 1066 1126 1268 1645 2572 3972 5167 5764 5907 5865 5868 5895 5862 5853 6107 6929 7846 8428 8727 8864 8937 8982 9006 8997 8992 8988 8993 9011 8999 9008 670 22 1908 1807 1702 1635 1586 1582 1612 1680 1825 2204 3087 4365 5414 5917 6020 5967 5965 5991 5952 5946 6195 6993 7880 8445 8732 8863 8934 8977 9002 8992 8989 8983 8983 9002 8996 8999 671 23 2413 2366 2269 2208 2166 2162 2205 2277 2430 2802 3620 4735 5600 5978 6023 5948 5940 5965 5927 5916 6172 6990 7888 8456 8743 8876 8944 8988 9011 9003 8999 8995 8996 9014 9003 9010 672 24 3368 3364 3309 3276 3250 3270 3324 3400 3540 3858 4507 5319 5893 6104 6077 5973 5956 5977 5935 5921 6193 7029 7922 8479 8764 8893 8963 9008 9030 9023 9021 9015 9016 9036 9026 9036 673 25 4677 4798 4829 4863 4884 4930 5008 5086 5201 5419 5829 6293 6578 6642 6561 6441 6417 6437 6390 6376 6651 7431 8189 8635 8863 8966 9026 9065 9088 9078 9073 9066 9068 9085 9078 9088 674 26 5586 5832 5985 6114 6198 6286 6369 6396 6397 6402 6453 6507 6512 6437 6283 6120 6089 6112 6056 6032 6372 7276 8122 8609 8851 8963 9024 9064 9083 9073 9069 9062 9065 9082 9072 9080 675 27 6212 6563 6792 6994 7126 7246 7330 7316 7242 7106 6944 6787 6664 6534 6355 6185 6151 6172 6114 6090 6447 7360 8185 8651 8885 8987 9045 9082 9103 9095 9089 9083 9082 9100 9096 9107 676 1 0243 0244 0254 0261 0252 0263 0295 0351 0464 0787 1727 3406 4956 5566 5326 4662 3917 3185 2547 2134 1900 1764 1648 1559 1514 1490 1482 1516 1591 1648 1637 1588 1507 1425 1409 1470 677 2 0325 0346 0410 0446 0452 0479 0547 0649 0820 1238 2278 3931 5306 5735 5399 4694 3931 3189 2550 2138 1906 1771 1660 1572 1529 1505 1496 1527 1598 1651 1639 1594 1513 1434 1419 1478 678 3 0470 0576 0730 0853 0888 0964 1108 1280 1502 1978 3020 4518 5634 5883 5482 4769 4009 3273 2640 2235 2009 1877 1767 1682 1639 1616 1606 1634 1702 1754 1741 1696 1618 1543 1526 1583 679 4 0692 0894 1171 1407 1497 1635 1861 2105 2358 2838 3806 5089 5948 6034 5574 4843 4077 3338 2705 2300 2074 1943 1833 1750 1707 1684 1673 1700 1767 1815 1802 1755 1677 1603 1590 1648 680 5 1003 1277 1708 2074 2227 2443 2778 3097 3368 3818 4647 5647 6205 6119 5590 4830 4047 3296 2656 2248 2021 1891 1784 1700 1660 1636 1625 1650 1714 1761 1748 1701 1625 1554 1540 1592 681 6 1343 1746 2317 2842 3067 3379 3840 4240 4502 4862 5454 6100 6360 6135 5571 4815 4044 3305 2673 2274 2051 1924 1818 1736 1697 1673 1662 1685 1745 1790 1777 1731 1658 1588 1575 1631 682 7 1462 1964 2720 3413 3732 4154 4769 5270 5513 5751 6054 6294 6251 5893 5287 4521 3744 3003 2373 1979 1762 1637 1535 1458 1420 1397 1386 1408 1465 1507 1495 1452 1382 1319 1306 1360 683 8 1566 2193 3085 3946 4348 4889 5679 6307 6548 6695 6788 6773 6549 6090 5413 4590 3766 2985 2328 1918 1694 1568 1463 1386 1346 1323 1312 1335 1391 1434 1419 1377 1308 1242 1233 1286 684 9 1585 2241 3214 4167 4629 5237 6150 6861 7086 7140 7055 6849 6511 6000 5298 4457 3627 2845 2189 1784 1567 1454 1359 1286 1248 1226 1215 1237 1294 1336 1321 1280 1211 1148 1138 1188 685 10 0501 0404 0344 0309 0289 0291 0306 0344 0441 0750 1688 3396 5115 6153 6539 6562 6464 6316 6153 6052 5977 5935 5895 5872 5873 5874 5883 5911 5949 5962 5957 5939 5911 5890 5881 5909 686 11 0692 0602 0548 0511 0484 0479 0507 0571 0713 1102 2127 3813 5385 6264 6556 6525 6398 6225 6040 5927 5840 5792 5746 5719 5716 5714 5722 5750 5788 5803 5795 5772 5741 5715 5701 5735 687 12 1474 1436 1426 1413 1395 1409 1473 1586 1780 2225 3222 4662 5849 6424 6556 6443 6264 6047 5828 5688 5587 5527 5472 5436 5429 5425 5430 5457 5499 5515 5506 5477 5437 5401 5389 5423 688 13 1855 1925 1981 2025 2029 2075 2174 2321 2538 2995 3945 5239 6238 6658 6680 6482 6224 5931 5642 5453 5322 5247 5177 5127 5112 5104 5105 5134 5183 5210 5194 5159 5108 5058 5037 5081 689 14 2419 2570 2757 2887 2925 3018 3182 3372 3613 4056 4901 5970 6717 6963 6883 6604 6276 5919 5567 5331 5172 5080 4997 4934 4910 4895 4893 4923 4984 5015 4997 4957 4889 4830 4810 4855 690 15 3181 3454 3731 3937 4018 4152 4361 4583 4827 5220 5898 6681 7166 7281 7158 6876 6552 6194 5838 5594 5429 5330 5237 5170 5143 5126 5125 5161 5227 5262 5246 5199 5127 5058 5037 5091 691 16 3788 4281 4784 5189 5370 5600 5923 6202 6411 6665 7037 7403 7562 7496 7268 6903 6499 6064 5627 5322 5117 4991 4876 4790 4750 4728 4720 4763 4844 4894 4874 4821 4725 4635 4611 4686 692 17 4231 4961 5746 6408 6720 7092 7579 7945 8103 8172 8194 8162 8046 7824 7485 7016 6508 5971 5445 5074 4832 4682 4547 4442 4392 4364 4353 4401 4498 4556 4535 4467 4357 4248 4219 4305 693 18 3807 4558 5410 6139 6492 6905 7449 7841 7979 8005 7953 7843 7667 7390 6986 6453 5901 5327 4766 4372 4150 4055 3955 3863 3815 3787 3772 3821 3921 3984 3960 3892 3777 3666 3636 3727 694 19 0902 0752 0640 0565 0528 0516 0536 0593 0736 1142 2227 4018 5716 6702 7069 7132 7168 7200 7179 7187 7351 7860 8373 8674 8826 8897 8943 8976 8995 8985 8980 8974 8974 8995 8984 8993 695 20 1168 1010 0904 0824 0772 0758 0781 0850 1004 1428 2502 4218 5796 6683 6999 7042 7072 7100 7077 7083 7252 7782 8323 8645 8809 8885 8934 8967 8985 8977 8971 8964 8967 8982 8973 8983 696 21 1733 1618 1502 1421 1373 1355 1386 1467 1642 2092 3153 4750 6154 6911 7168 7192 7216 7243 7215 7220 7383 7884 8390 8690 8845 8917 8960 8994 9014 9004 8999 8992 8992 9013 9002 9010 697 22 2228 2135 2026 1944 1893 1881 1920 2014 2206 2664 3687 5154 6386 7022 7223 7228 7245 7268 7241 7245 7410 7911 8408 8701 8851 8921 8966 8998 9016 9007 9002 8993 8994 9012 9003 9012 698 23 2869 2796 2693 2619 2574 2571 2620 2727 2932 3388 4341 5628 6647 7139 7273 7250 7260 7281 7249 7250 7426 7941 8442 8732 8882 8949 8992 9027 9044 9034 9028 9021 9025 9041 9031 9041 699 24 3574 3582 3502 3454 3417 3425 3492 3611 3823 4257 5094 6142 6912 7249 7313 7264 7264 7283 7248 7247 7439 7982 8488 8777 8925 8994 9040 9069 9088 9078 9070 9066 9066 9087 9072 9081 700 25 4826 4921 4927 4927 4930 4971 5063 5207 5429 5816 6474 7210 7700 7895 7922 7871 7869 7883 7847 7852 8007 8395 8701 8865 8958 9002 9035 9061 9079 9069 9066 9056 9060 9076 9069 9079 701 26 6131 6412 6551 6671 6753 6840 6952 7056 7189 7351 7601 7843 7975 7994 7940 7850 7841 7854 7812 7809 8002 8440 8764 8932 9026 9068 9104 9129 9148 9137 9131 9124 9126 9142 9131 9145 702 27 6990 7420 7688 7913 8067 8200 8312 8373 8410 8390 8352 8310 8274 8229 8161 8074 8065 8072 8028 8027 8207 8589 8846 8974 9048 9083 9112 9140 9154 9145 9139 9130 9131 9147 9138 9152 703 21 0235 0247 0255 0262 0256 0261 0294 0350 0462 0782 1716 3397 4947 5540 5263 4564 3793 3043 2397 1983 1750 1617 1504 1416 1373 1350 1340 1371 1443 1499 1488 1443 1364 1284 1268 1330 704 22 0356 0386 0444 0488 0495 0527 0601 0708 0880 1297 2327 3965 5326 5756 5423 4725 3972 3239 2607 2204 1974 1842 1732 1646 1603 1579 1570 1600 1671 1723 1712 1667 1588 1509 1495 1554 705 23 0376 0448 0557 0652 0676 0732 0849 0992 1196 1646 2683 4222 5402 5677 5261 4520 3740 2991 2359 1959 1737 1611 1505 1424 1383 1361 1351 1378 1443 1491 1479 1437 1363 1294 1282 1339 706 24 0485 0625 0832 1018 1086 1199 1388 1598 1838 2315 3313 4681 5621 5734 5246 4479 3684 2928 2289 1889 1669 1544 1441 1362 1321 1300 1291 1316 1378 1426 1415 1372 1302 1234 1220 1278 707 25 0679 0893 1234 1530 1652 1831 2114 2398 2661 3129 4032 5173 5862 5823 5280 4495 3690 2929 2291 1892 1676 1553 1451 1375 1336 1314 1305 1329 1388 1432 1420 1379 1310 1245 1235 1289 708 26 1008 1378 1922 2421 2635 2927 3377 3773 4049 4451 5125 5870 6183 5945 5332 4520 3702 2929 2282 1881 1663 1540 1438 1361 1323 1301 1291 1313 1370 1413 1401 1360 1291 1229 1216 1271 709 27 1194 1646 2306 2931 3206 3584 4143 4612 4884 5213 5713 6203 6314 5983 5339 4516 3695 2923 2279 1881 1665 1544 1445 1369 1332 1310 1300 1321 1376 1416 1404 1365 1295 1235 1226 1281 710 28 1353 1892 2696 3455 3814 4286 4978 5540 5807 6051 6350 6565 6475 6056 5375 4531 3688 2895 2229 1815 1592 1466 1362 1285 1247 1224 1213 1235 1292 1336 1321 1281 1211 1147 1136 1190 711 29 1107 1658 2553 3441 3868 4442 5300 5992 6259 6425 6536 6520 6264 5744 4992 4092 3212 2402 1743 1347 1142 1029 0939 0873 0841 0822 0813 0831 0880 0917 0907 0872 0817 0766 0763 0810 712 210 0459 0414 0374 0361 0340 0345 0372 0425 0540 0882 1902 3791 5750 6893 7161 6926 6544 6114 5703 5431 5255 5154 5062 4996 4969 4952 4952 4986 5053 5091 5079 5037 4967 4898 4879 4931 713 211 0645 0580 0540 0519 0493 0499 0539 0617 0776 1201 2333 4255 6124 7164 7406 7205 6875 6495 6125 5884 5721 5629 5545 5483 5461 5451 5451 5485 5544 5579 5566 5527 5460 5402 5377 5428 714 212 0859 0851 0869 0872 0859 0882 0952 1064 1257 1731 2876 4680 6301 7082 7150 6831 6410 5956 5524 5241 5057 4953 4856 4784 4755 4737 4734 4767 4832 4871 4855 4809 4736 4670 4648 4699 715 213 1310 1382 1493 1576 1593 1661 1788 1951 2179 2670 3747 5308 6572 7067 6968 6555 6063 5548 5072 4755 4556 4439 4336 4258 4224 4201 4195 4227 4294 4336 4320 4270 4192 4120 4092 4150 716 214 1996 2182 2401 2574 2624 2735 2927 3139 3398 3888 4859 6143 7071 7357 7195 6781 6305 5807 5335 5023 4823 4705 4597 4516 4483 4460 4452 4488 4556 4596 4577 4526 4445 4366 4345 4403 717 215 2750 3042 3348 3589 3678 3828 4064 4311 4576 5024 5842 6842 7497 7648 7464 7073 6631 6156 5702 5394 5193 5074 4961 4881 4844 4820 4813 4851 4926 4967 4948 4895 4809 4729 4704 4769 718 216 3387 3820 4259 4610 4761 4969 5278 5568 5819 6178 6769 7421 7777 7773 7528 7115 6657 6168 5692 5366 5151 5022 4904 4816 4777 4754 4743 4784 4865 4912 4891 4835 4741 4650 4620 4690 719 217 3767 4418 5105 5684 5945 6269 6707 7063 7263 7452 7691 7894 7916 7743 7404 6919 6396 5843 5306 4930 4686 4535 4398 4293 4245 4216 4206 4251 4344 4402 4377 4314 4205 4099 4073 4155 720 218 3834 4596 5453 6187 6526 6946 7499 7912 8074 8135 8129 8065 7914 7647 7249 6712 6138 5536 4957 4552 4291 4132 3988 3878 3823 3790 3776 3824 3924 3987 3964 3898 3781 3666 3640 3727 721 219 0757 0598 0488 0417 0385 0374 0392 0445 0583 0997 2155 4167 6212 7525 8112 8293 8368 8400 8391 8413 8464 8630 8767 8849 8908 8939 8969 8995 9009 8998 8994 8985 8987 9005 8992 9002 722 220 1043 0858 0737 0656 0613 0599 0621 0688 0851 1305 2493 4472 6412 7613 8138 8293 8360 8389 8378 8399 8450 8618 8760 8845 8906 8936 8964 8990 9007 8997 8988 8984 8988 9004 8993 9000 723 221 1697 1552 1425 1344 1293 1274 1308 1393 1589 2079 3257 5079 6757 7735 8144 8253 8304 8325 8310 8332 8391 8582 8747 8845 8913 8945 8976 9002 9017 9009 9002 8995 8999 9018 9006 9016 724 222 2322 2213 2101 2008 1958 1944 1982 2089 2312 2832 3985 5675 7159 7995 8340 8431 8475 8494 8480 8499 8542 8686 8805 8879 8935 8963 8993 9019 9034 9024 9018 9009 9010 9028 9019 9028 725 223 2917 2837 2731 2651 2601 2593 2643 2770 3017 3550 4657 6195 7485 8181 8462 8531 8568 8583 8567 8587 8622 8743 8840 8906 8956 8986 9014 9041 9055 9044 9035 9028 9033 9049 9043 9052 726 224 3728 3722 3633 3567 3528 3535 3605 3754 4022 4545 5542 6831 7833 8341 8539 8575 8600 8609 8590 8609 8650 8785 8885 8948 8999 9026 9053 9078 9095 9081 9076 9068 9073 9088 9077 9088 727 225 4660 4718 4679 4655 4635 4666 4762 4934 5222 5725 6599 7636 8384 8756 8917 8955 8978 8980 8964 8985 8971 8978 8977 8990 9022 9039 9064 9088 9100 9089 9082 9075 9079 9092 9083 9093 728 226 6014 6240 6338 6417 6475 6549 6669 6832 7068 7404 7910 8440 8780 8939 9019 9029 9041 9040 9019 9041 9027 9028 9019 9033 9066 9084 9110 9133 9147 9135 9129 9120 9122 9139 9131 9140 729 227 7156 7606 7868 8096 8258 8384 8512 8613 8715 8769 8830 8884 8924 8950 8976 8965 8970 8965 8942 8959 8957 8978 8982 9002 9035 9051 9074 9098 9115 9105 9095 9084 9089 9105 9094 9112 730 21 7215 7658 7926 8150 8312 8451 8575 8681 8782 8840 8900 8956 8997 9021 9049 9038 9043 9037 9017 9035 9027 9042 9042 9058 9089 9108 9132 9157 9172 9157 9150 9141 9142 9159 9149 9164 731 22 5994 6642 7177 7599 7820 8052 8308 8499 8617 8673 8713 8736 8718 8652 8541 8339 8119 7854 7559 7346 7180 7081 6981 6913 6891 6879 6888 6941 7026 7065 7043 6991 6908 6832 6817 6900 732 23 4834 5571 6289 6879 7175 7505 7914 8218 8360 8418 8433 8405 8317 8148 7885 7504 7088 6632 6168 5836 5609 5468 5336 5238 5193 5167 5162 5212 5310 5367 5342 5278 5172 5069 5043 5131 733 24 3732 4502 5362 6099 6453 6874 7438 7862 8032 8097 8097 8031 7872 7597 7185 6632 6044 5431 4845 4436 4176 4017 3874 3763 3708 3675 3663 3708 3805 3868 3843 3776 3664 3555 3532 3613 734 25 2864 3619 4557 5392 5788 6292 6993 7524 7720 7787 7766 7656 7432 7062 6530 5850 5144 4438 3794 3362 3103 2948 2812 2708 2656 2626 2613 2649 2733 2790 2769 2708 2607 2512 2491 2561 735 26 2076 2746 3686 4578 5000 5547 6347 6974 7197 7294 7296 7189 6926 6478 5839 5050 4255 3490 2829 2407 2168 2031 1915 1826 1783 1756 1743 1769 1834 1881 1865 1816 1735 1660 1646 1701 736 27 1099 1674 2590 3492 3928 4510 5388 6092 6360 6516 6600 6549 6270 5741 4987 4087 3204 2391 1730 1331 1125 1012 0922 0855 0823 0805 0796 0815 0862 0899 0890 0856 0798 0749 0746 0794 737 28 0678 1187 2083 2989 3438 4033 4961 5709 5998 6175 6278 6229 5923 5349 4537 3588 2676 1856 1212 0842 0660 0566 0493 0443 0419 0407 0401 0415 0453 0484 0477 0452 0412 0380 0380 0421 738 29 0528 0970 1803 2686 3130 3738 4678 5452 5755 5938 6050 5993 5669 5075 4244 3283 2371 1571 0965 0633 0479 0403 0347 0309 0291 0284 0280 0290 0318 0340 0336 0317 0289 0268 0275 0311 739 210 7238 7677 7948 8172 8329 8465 8590 8696 8796 8854 8915 8970 9013 9040 9068 9054 9061 9056 9031 9049 9039 9043 9039 9054 9087 9109 9131 9155 9173 9160 9150 9142 9145 9161 9150 9163 740 211 6045 6625 7090 7456 7660 7860 8068 8198 8246 8231 8185 8127 8063 7964 7811 7603 7439 7266 7036 6874 6901 7129 7271 7317 7347 7359 7374 7421 7492 7522 7507 7465 7399 7337 7319 7383 741 212 4571 5168 5767 6262 6510 6788 7108 7284 7288 7202 7062 6900 6732 6515 6206 5839 5532 5238 4897 4657 4691 5070 5395 5533 5590 5609 5620 5667 5748 5794 5775 5723 5636 5554 5528 5598 742 213 2903 3428 4107 4694 4979 5324 5750 5967 5912 5753 5522 5264 5015 4713 4300 3839 3453 3100 2733 2487 2509 2913 3343 3560 3652 3683 3695 3737 3814 3861 3845 3793 3707 3623 3601 3661 743 214 1878 2337 2990 3579 3864 4221 4666 4865 4757 4540 4249 3940 3663 3341 2912 2460 2102 1790 1480 1281 1324 1733 2198 2444 2546 2584 2598 2639 2710 2758 2746 2698 2619 2541 2520 2579 744 215 1240 1644 2255 2823 3103 3454 3896 4075 3936 3694 3379 3055 2775 2462 2055 1646 1338 1081 0839 0692 0733 1063 1448 1646 1726 1752 1763 1799 1868 1919 1909 1865 1791 1719 1702 1761 745 216 0863 1195 1754 2275 2527 2851 3246 3378 3209 2944 2618 2295 2033 1750 1395 1060 0827 0644 0475 0381 0425 0692 1004 1162 1222 1243 1250 1283 1349 1398 1390 1352 1283 1215 1201 1259 746 217 0687 1007 1516 2019 2267 2578 2961 3082 2904 2637 2312 1995 1743 1478 1150 0848 0649 0498 0361 0290 0330 0543 0783 0895 0934 0947 0950 0979 1040 1086 1079 1042 0979 0918 0910 0962 747 218 0541 0830 1305 1779 2013 2309 2668 2765 2580 2311 1989 1681 1445 1204 0910 0655 0494 0379 0278 0231 0268 0430 0602 0670 0690 0694 0694 0719 0774 0816 0810 0778 0720 0666 0661 0712 748 219 7221 7665 7937 8157 8313 8448 8572 8675 8782 8841 8904 8964 9006 9034 9062 9050 9052 9047 9023 9040 9030 9038 9034 9052 9081 9103 9126 9150 9168 9156 9147 9139 9139 9154 9143 9158 749 220 6784 7201 7455 7670 7817 7951 8057 8105 8117 8070 8003 7934 7879 7810 7710 7594 7573 7588 7541 7533 7775 8310 8711 8921 9034 9087 9123 9153 9170 9157 9149 9142 9146 9163 9153 9167 750 221 6119 6469 6693 6896 7027 7141 7228 7215 7138 6999 6832 6670 6545 6414 6233 6061 6029 6049 5991 5969 6321 7249 8125 8639 8895 9013 9078 9118 9139 9129 9122 9116 9119 9137 9127 9137 751 222 5272 5538 5739 5915 6035 6133 6202 6136 5973 5754 5504 5269 5096 4926 4700 4502 4459 4483 4424 4394 4788 5999 7340 8215 8667 8876 8981 9039 9072 9068 9066 9064 9067 9086 9074 9086 752 223 4542 4756 4937 5095 5199 5293 5344 5230 5003 4720 4403 4110 3900 3700 3446 3230 3181 3210 3154 3118 3544 4961 6676 7861 8487 8778 8918 8989 9025 9024 9023 9019 9022 9045 9038 9051 753 224 3886 4062 4220 4373 4463 4546 4597 4451 4193 3881 3540 3230 3012 2808 2556 2350 2303 2330 2282 2249 2659 4133 6078 7511 8300 8676 8855 8941 8981 8983 8985 8982 8985 9005 9001 9013 754 225 3210 3346 3510 3654 3743 3836 3873 3710 3414 3073 2707 2377 2152 1944 1693 1496 1446 1466 1418 1383 1762 3229 5289 6864 7742 8164 8360 8457 8514 8524 8525 8518 8512 8519 8508 8530 755 226 2555 2645 2794 2924 3003 3089 3120 2936 2617 2261 1885 1557 1337 1144 0916 0749 0711 0731 0697 0674 1014 2448 4653 6453 7492 8001 8238 8354 8421 8437 8441 8435 8429 8433 8421 8450 756 227 2123 2237 2405 2550 2634 2725 2764 2592 2285 1943 1589 1284 1083 0910 0712 0567 0530 0538 0505 0485 0751 1970 3963 5624 6588 7056 7271 7383 7459 7489 7488 7474 7447 7428 7415 7454 757 21 6152 6446 6591 6723 6810 6908 7011 7105 7210 7340 7544 7748 7859 7868 7805 7714 7702 7713 7671 7668 7871 8347 8717 8914 9014 9061 9100 9129 9145 9134 9130 9122 9125 9138 9130 9146 758 22 6237 6624 6846 7029 7155 7260 7363 7441 7522 7560 7596 7634 7664 7687 7714 7707 7718 7717 7703 7725 7714 7717 7718 7732 7759 7777 7801 7824 7839 7833 7828 7826 7831 7850 7845 7855 759 23 5094 5734 6318 6780 7023 7278 7575 7798 7916 7971 7997 8002 7962 7859 7690 7425 7133 6800 6446 6192 6012 5903 5796 5717 5686 5667 5666 5716 5802 5849 5831 5773 5685 5603 5580 5664 760 24 4093 4816 5620 6290 6608 6997 7495 7876 8037 8109 8133 8098 7975 7739 7380 6887 6362 5808 5269 4893 4648 4498 4363 4259 4208 4179 4168 4213 4306 4364 4343 4276 4169 4066 4034 4121 761 25 2911 3624 4514 5297 5669 6133 6784 7284 7485 7588 7637 7608 7440 7103 6593 5936 5248 4557 3926 3497 3240 3087 2951 2848 2796 2765 2751 2789 2874 2931 2909 2848 2746 2650 2624 2694 762 26 2199 2858 3810 4677 5094 5632 6409 7008 7233 7334 7352 7266 7021 6591 5967 5196 4412 3651 2986 2557 2311 2167 2047 1954 1907 1880 1867 1897 1965 2016 1999 1945 1859 1780 1762 1824 763 27 1523 2125 3029 3892 4301 4846 5645 6279 6525 6668 6757 6736 6505 6041 5357 4525 3694 2908 2248 1838 1614 1489 1385 1307 1268 1246 1235 1257 1315 1358 1344 1302 1233 1170 1157 1213 764 28 0885 1401 2291 3173 3597 4172 5043 5744 6026 6217 6355 6356 6091 5550 4771 3848 2950 2131 1477 1091 0895 0791 0709 0650 0621 0605 0597 0613 0658 0692 0684 0655 0604 0561 0560 0604 765 29 0481 0926 1713 2560 2976 3549 4430 5158 5470 5697 5887 5918 5644 5067 4240 3278 2364 1559 0953 0622 0468 0391 0335 0297 0281 0273 0269 0278 0307 0330 0326 0307 0279 0259 0266 0295 766 210 6239 6502 6625 6728 6795 6885 7004 7164 7376 7673 8108 8554 8838 8972 9043 9050 9060 9059 9042 9064 9051 9052 9047 9061 9091 9112 9137 9160 9176 9164 9156 9146 9148 9164 9154 9165 767 211 6376 6740 6972 7158 7285 7401 7503 7588 7668 7708 7753 7796 7833 7858 7887 7882 7890 7889 7875 7897 7884 7884 7881 7895 7926 7942 7965 7989 8004 7998 7995 7992 7995 8015 8010 8024 768 212 4769 5276 5756 6144 6343 6547 6777 6903 6920 6867 6776 6670 6560 6415 6203 5940 5725 5514 5253 5069 5105 5404 5629 5715 5756 5769 5778 5823 5893 5930 5913 5871 5801 5736 5718 5784 769 213 3370 3892 4472 4977 5225 5514 5860 6040 6011 5895 5722 5528 5334 5090 4744 4349 4016 3704 3370 3141 3165 3548 3938 4131 4211 4235 4250 4291 4361 4403 4387 4337 4261 4187 4163 4222 770 214 2220 2703 3357 3939 4226 4572 5002 5205 5124 4931 4668 4383 4118 3804 3385 2932 2562 2232 1900 1680 1711 2114 2562 2796 2893 2928 2941 2982 3055 3104 3088 3039 2959 2879 2857 2915 771 215 1366 1761 2389 2970 3252 3610 4057 4251 4125 3895 3591 3276 2998 2680 2261 1835 1506 1229 0965 0805 0843 1183 1578 1787 1871 1900 1910 1947 2016 2065 2055 2012 1936 1865 1846 1906 772 216 0885 1254 1824 2368 2636 2970 3389 3542 3383 3125 2799 2473 2205 1912 1538 1178 0922 0717 0528 0422 0463 0730 1042 1200 1261 1281 1289 1322 1386 1436 1426 1387 1318 1251 1240 1295 773 217 0687 1001 1534 2049 2304 2629 3025 3166 2995 2735 2415 2100 1844 1570 1228 0910 0693 0526 0379 0301 0338 0543 0772 0878 0916 0927 0932 0960 1020 1065 1058 1022 0960 0901 0895 0947 774 218 0504 0778 1238 1688 1914 2197 2532 2614 2420 2147 1826 1524 1294 1066 0793 0562 0425 0331 0246 0210 0248 0403 0560 0619 0635 0637 0637 0661 0713 0755 0748 0717 0661 0613 0606 0650 775 219 5727 6180 6508 6756 6878 7028 7216 7401 7595 7829 8161 8488 8671 8717 8683 8553 8407 8225 8011 7867 7748 7680 7610 7563 7556 7554 7565 7610 7675 7701 7687 7649 7586 7535 7515 7581 776 220 6453 6844 7067 7265 7402 7518 7624 7709 7790 7832 7872 7913 7943 7969 7998 7994 8003 7997 7983 8005 7993 7994 7991 8005 8034 8053 8076 8099 8115 8107 8102 8098 8102 8120 8115 8129 777 221 5676 6073 6337 6564 6702 6832 6944 6980 6963 6888 6792 6696 6615 6516 6373 6215 6150 6116 6013 5951 6159 6727 7191 7430 7546 7597 7632 7670 7710 7718 7712 7692 7668 7656 7645 7676 778 222 4918 5247 5486 5685 5808 5920 6007 5981 5868 5699 5499 5304 5157 5005 4803 4611 4547 4535 4445 4390 4695 5608 6527 7072 7338 7455 7515 7559 7598 7608 7605 7588 7574 7570 7560 7586 779 223 4221 4496 4728 4922 5033 5141 5223 5152 4980 4749 4489 4247 4067 3886 3648 3438 3364 3349 3263 3203 3530 4641 5915 6734 7140 7323 7412 7470 7513 7522 7516 7499 7481 7477 7465 7491 780 224 3539 3765 3983 4153 4260 4362 4428 4323 4099 3824 3518 3236 3033 2840 2596 2389 2321 2315 2240 2187 2524 3734 5245 6272 6798 7037 7150 7217 7264 7282 7277 7263 7246 7237 7230 7259 781 225 2981 3145 3354 3520 3620 3720 3787 3662 3410 3108 2779 2481 2270 2071 1821 1618 1552 1546 1479 1429 1756 2997 4632 5783 6382 6652 6779 6852 6906 6928 6925 6905 6882 6865 6850 6884 782 226 2263 2418 2633 2821 2924 3033 3106 2962 2673 2342 1988 1673 1459 1264 1032 0851 0791 0782 0724 0686 0961 2133 3857 5160 5860 6184 6332 6419 6491 6524 6522 6498 6461 6422 6410 6455 783 227 1830 1942 2145 2304 2393 2487 2552 2408 2133 1820 1495 1214 1026 0864 0677 0539 0497 0493 0457 0436 0652 1655 3264 4535 5229 5551 5697 5787 5862 5900 5898 5874 5833 5796 5784 5828 784 21 4906 5050 5116 5161 5198 5250 5330 5399 5497 5679 6021 6404 6638 6677 6591 6466 6445 6464 6418 6402 6680 7453 8210 8657 8884 8989 9049 9090 9111 9100 9095 9088 9092 9106 9100 9111 785 22 4875 5084 5186 5273 5324 5389 5461 5517 5584 5679 5846 6021 6114 6113 6043 5952 5939 5952 5916 5914 6106 6600 7026 7257 7372 7426 7463 7490 7506 7500 7500 7493 7497 7517 7512 7525 786 23 4842 5119 5271 5394 5476 5545 5610 5661 5713 5737 5763 5790 5810 5825 5843 5838 5843 5838 5829 5845 5837 5840 5837 5848 5866 5880 5899 5918 5932 5929 5926 5923 5927 5942 5941 5954 787 24 4037 4541 5010 5388 5574 5777 6023 6204 6290 6323 6334 6327 6281 6188 6041 5814 5563 5286 5000 4800 4660 4575 4496 4437 4414 4401 4402 4437 4498 4531 4518 4480 4416 4356 4339 4398 788 25 2908 3488 4163 4748 5018 5347 5782 6112 6254 6331 6380 6382 6286 6075 5741 5284 4797 4286 3806 3476 3270 3148 3039 2956 2916 2891 2880 2914 2986 3033 3016 2965 2882 2803 2785 2844 789 26 2220 2787 3538 4199 4511 4900 5438 5850 6011 6098 6148 6133 5995 5710 5270 4700 4108 3514 2980 2630 2426 2314 2214 2139 2098 2075 2064 2090 2151 2193 2177 2132 2056 1988 1975 2027 790 27 1504 2023 2771 3471 3805 4232 4844 5310 5488 5578 5620 5580 5403 5062 4552 3911 3259 2630 2093 1755 1573 1474 1393 1329 1297 1279 1270 1287 1336 1373 1361 1325 1264 1211 1202 1251 791 28 0974 1455 2227 2998 3360 3842 4549 5110 5328 5466 5562 5554 5354 4937 4314 3555 2798 2095 1522 1179 1002 0908 0834 0778 0751 0736 0727 0743 0785 0817 0808 0780 0731 0693 0689 0729 792 29 0505 0886 1623 2394 2771 3281 4076 4732 5037 5315 5615 5780 5588 5043 4229 3280 2379 1588 0990 0662 0508 0431 0376 0337 0319 0311 0306 0316 0345 0369 0365 0345 0316 0295 0300 0337 793 210 4742 4809 4778 4766 4752 4780 4875 5047 5328 5816 6672 7690 8422 8784 8943 8980 9005 9009 8991 9015 9002 9006 9002 9016 9048 9068 9093 9117 9131 9119 9111 9107 9107 9124 9115 9128 794 211 5572 5803 5889 5971 6024 6096 6200 6334 6519 6778 7164 7566 7817 7932 7987 7985 7995 7996 7981 8001 8009 8049 8073 8099 8130 8150 8174 8200 8215 8206 8198 8194 8201 8215 8207 8220 795 212 5010 5301 5462 5595 5683 5759 5825 5883 5940 5964 5989 6017 6037 6054 6075 6069 6074 6072 6062 6080 6072 6073 6072 6080 6100 6112 6131 6151 6165 6161 6158 6156 6162 6176 6171 6185 796 213 3657 4070 4473 4795 4958 5130 5326 5429 5427 5368 5276 5171 5067 4931 4736 4497 4298 4105 3880 3724 3750 4017 4246 4345 4388 4400 4412 4443 4495 4522 4510 4476 4425 4377 4362 4405 797 214 2437 2837 3292 3690 3876 4095 4356 4484 4447 4346 4200 4036 3879 3684 3414 3104 2842 2597 2341 2167 2186 2483 2793 2944 3008 3030 3041 3069 3122 3155 3141 3108 3052 2998 2980 3029 798 215 1575 1949 2439 2878 3083 3335 3642 3784 3722 3583 3394 3190 2999 2774 2466 2131 1854 1602 1356 1197 1215 1490 1791 1940 2000 2022 2030 2060 2113 2149 2141 2108 2051 1995 1984 2029 799 216 1156 1500 2005 2468 2699 2970 3309 3445 3348 3167 2930 2683 2467 2217 1887 1548 1284 1060 0844 0714 0746 1022 1334 1489 1551 1573 1582 1611 1669 1711 1702 1669 1610 1552 1541 1589 800 217 0800 1135 1650 2148 2387 2683 3056 3203 3075 2860 2585 2303 2068 1804 1466 1134 0892 0696 0517 0417 0448 0666 0910 1026 1068 1081 1086 1114 1171 1214 1206 1173 1115 1057 1053 1097 801 218 0485 0757 1211 1667 1897 2181 2525 2615 2423 2154 1833 1531 1301 1072 0797 0566 0430 0336 0253 0218 0254 0392 0521 0563 0570 0569 0567 0586 0635 0673 0668 0639 0587 0539 0539 0578 802 219 4095 4433 4720 4935 5023 5158 5379 5617 5880 6280 6943 7683 8141 8262 8174 7937 7661 7344 7016 6790 6624 6527 6433 6365 6343 6328 6328 6369 6444 6479 6461 6411 6336 6265 6240 6306 803 220 4644 5040 5363 5610 5720 5868 6075 6280 6487 6762 7183 7617 7863 7911 7837 7655 7444 7196 6926 6741 6598 6513 6430 6372 6356 6346 6350 6396 6466 6499 6483 6438 6369 6306 6288 6356 804 221 5068 5365 5529 5660 5752 5830 5900 5956 6015 6039 6066 6094 6118 6134 6154 6151 6157 6156 6144 6162 6154 6154 6152 6162 6185 6199 6218 6237 6253 6247 6245 6242 6246 6260 6264 6273 805 222 4476 4766 4983 5151 5252 5346 5425 5439 5406 5330 5238 5145 5070 4984 4860 4729 4673 4643 4562 4513 4680 5164 5590 5807 5909 5953 5982 6013 6045 6051 6043 6030 6016 6009 5999 6023 806 223 3779 4001 4184 4334 4422 4504 4565 4526 4419 4266 4089 3921 3793 3666 3501 3346 3290 3275 3207 3164 3392 4145 4950 5433 5663 5764 5816 5851 5881 5885 5880 5871 5858 5851 5843 5865 807 224 3105 3263 3426 3555 3627 3699 3747 3677 3525 3335 3123 2925 2780 2639 2459 2301 2250 2246 2189 2151 2404 3278 4296 4939 5253 5390 5458 5498 5529 5539 5535 5526 5517 5513 5504 5524 808 225 2556 2707 2873 3006 3081 3158 3205 3112 2924 2695 2444 2212 2048 1891 1696 1534 1480 1474 1418 1380 1638 2595 3804 4610 5009 5186 5271 5321 5360 5374 5373 5363 5347 5338 5329 5350 809 226 2073 2171 2319 2439 2506 2571 2614 2499 2283 2033 1766 1526 1361 1210 1028 0885 0842 0844 0803 0777 1021 2001 3367 4338 4837 5061 5165 5224 5269 5284 5286 5279 5265 5258 5251 5275 810 227 1564 1671 1837 1982 2057 2142 2190 2075 1841 1578 1304 1067 0909 0770 0613 0496 0458 0455 0425 0408 0588 1415 2717 3705 4225 4461 4568 4637 4698 4730 4731 4713 4684 4655 4650 4686 811 21 3387 3426 3425 3411 3415 3440 3489 3526 3589 3771 4181 4684 5007 5069 4952 4801 4769 4794 4743 4721 5060 6137 7381 8212 8643 8844 8944 8999 9024 9020 9017 9011 9019 9036 9024 9035 812 22 3362 3406 3412 3422 3424 3452 3499 3541 3608 3765 4090 4467 4697 4738 4651 4539 4518 4536 4497 4483 4729 5472 6259 6741 6976 7080 7139 7174 7195 7191 7190 7186 7192 7203 7202 7210 813 23 3767 3907 3973 4021 4053 4091 4141 4179 4225 4303 4451 4606 4688 4690 4634 4559 4549 4559 4532 4528 4676 5076 5434 5630 5725 5767 5794 5816 5831 5826 5825 5822 5826 5831 5831 5842 814 24 3720 3901 4004 4081 4135 4177 4212 4244 4278 4288 4304 4317 4326 4333 4345 4340 4344 4340 4332 4342 4334 4337 4334 4343 4356 4364 4377 4393 4403 4401 4398 4399 4403 4418 4416 4425 815 25 2833 3235 3658 3991 4153 4331 4546 4707 4771 4787 4781 4753 4694 4593 4436 4211 3965 3696 3429 3243 3126 3065 3006 2960 2937 2924 2922 2947 2994 3022 3013 2981 2929 2881 2869 2910 816 26 1929 2370 2922 3404 3621 3887 4249 4518 4627 4689 4740 4751 4670 4480 4178 3774 3351 2921 2526 2262 2117 2055 1999 1948 1921 1906 1898 1921 1970 2003 1992 1956 1898 1845 1832 1875 817 27 1325 1734 2331 2870 3124 3441 3873 4200 4319 4369 4376 4328 4197 3959 3603 3141 2658 2182 1768 1505 1361 1284 1220 1169 1144 1129 1123 1137 1177 1206 1197 1168 1120 1077 1074 1108 818 28 0871 1300 1930 2535 2820 3185 3708 4109 4264 4355 4413 4395 4249 3952 3500 2931 2351 1796 1336 1056 0913 0839 0779 0735 0713 0700 0694 0707 0741 0769 0764 0737 0697 0661 0663 0698 819 29 0493 0879 1590 2335 2700 3187 3927 4526 4781 4976 5143 5183 4973 4505 3812 2985 2182 1465 0919 0618 0477 0405 0354 0319 0303 0294 0290 0301 0327 0349 0344 0327 0299 0282 0288 0320 820 210 3799 3788 3693 3631 3581 3587 3665 3816 4097 4627 5623 6882 7836 8304 8481 8506 8529 8539 8520 8535 8589 8752 8880 8955 9011 9040 9068 9092 9109 9097 9093 9084 9084 9104 9094 9100 821 211 4089 4116 4069 4024 4001 4016 4101 4245 4498 4944 5734 6660 7305 7597 7693 7690 7701 7710 7687 7701 7769 7957 8099 8181 8234 8265 8291 8313 8328 8323 8318 8310 8315 8332 8328 8333 822 212 4456 4647 4709 4763 4798 4851 4924 5020 5158 5355 5653 5957 6144 6217 6244 6227 6231 6231 6212 6222 6252 6333 6387 6422 6452 6471 6489 6509 6524 6517 6515 6512 6515 6528 6525 6537 823 213 3802 4005 4107 4190 4239 4285 4322 4353 4387 4401 4413 4427 4436 4445 4456 4450 4452 4449 4439 4452 4445 4444 4443 4450 4462 4471 4484 4500 4507 4506 4507 4505 4508 4518 4516 4524 824 214 2603 2922 3254 3534 3668 3816 3981 4062 4051 3989 3899 3797 3698 3572 3393 3182 3001 2824 2630 2497 2514 2738 2948 3041 3079 3091 3100 3125 3164 3187 3180 3154 3113 3076 3063 3097 825 215 1590 1892 2294 2638 2798 2987 3217 3326 3291 3196 3063 2915 2774 2603 2368 2098 1869 1657 1441 1300 1308 1527 1760 1870 1914 1929 1938 1962 2005 2034 2026 2000 1955 1909 1901 1937 826 216 1186 1463 1879 2242 2411 2621 2870 2972 2908 2778 2606 2422 2257 2065 1806 1531 1309 1114 0922 0801 0827 1068 1331 1460 1511 1529 1539 1564 1612 1645 1639 1610 1562 1521 1512 1554 827 217 0814 1084 1523 1920 2111 2346 2631 2740 2643 2478 2262 2041 1853 1643 1366 1089 0880 0708 0545 0451 0479 0685 0909 1013 1053 1066 1073 1098 1146 1183 1178 1151 1100 1054 1050 1090 828 218 0464 0729 1179 1625 1854 2134 2460 2539 2341 2067 1742 1440 1216 0993 0732 0516 0394 0311 0238 0207 0245 0376 0493 0524 0528 0524 0520 0540 0588 0626 0621 0590 0539 0492 0489 0529 829 219 2755 3042 3355 3590 3675 3823 4062 4316 4592 5058 5888 6884 7527 7673 7488 7098 6653 6174 5709 5389 5179 5054 4938 4850 4812 4787 4779 4818 4898 4947 4929 4873 4782 4695 4669 4735 830 220 3144 3428 3705 3906 3984 4114 4323 4544 4797 5203 5898 6694 7193 7314 7193 6911 6586 6225 5859 5607 5437 5333 5238 5167 5138 5122 5120 5154 5227 5265 5250 5202 5124 5054 5028 5088 831 221 3471 3778 4047 4238 4321 4436 4598 4760 4921 5139 5476 5824 6014 6041 5965 5801 5614 5398 5167 5009 4895 4825 4759 4713 4698 4689 4691 4723 4777 4804 4794 4760 4711 4663 4645 4694 832 222 3737 3940 4040 4121 4175 4219 4261 4288 4325 4340 4353 4368 4380 4386 4399 4393 4396 4395 4385 4397 4389 4390 4387 4394 4407 4416 4430 4444 4453 4451 4450 4449 4453 4465 4466 4476 833 223 3286 3490 3634 3754 3823 3883 3935 3932 3889 3814 3723 3635 3564 3489 3390 3286 3240 3217 3155 3118 3239 3628 3992 4185 4274 4310 4334 4356 4378 4382 4378 4370 4360 4354 4350 4364 834 224 2620 2762 2895 2995 3051 3101 3139 3098 3001 2873 2728 2592 2488 2386 2257 2140 2097 2086 2035 2003 2175 2757 3400 3781 3960 4035 4075 4104 4127 4135 4134 4125 4118 4113 4108 4124 835 225 2110 2217 2353 2455 2516 2572 2608 2545 2410 2243 2055 1883 1757 1638 1488 1360 1314 1305 1255 1223 1414 2109 2950 3477 3732 3843 3897 3933 3962 3973 3976 3967 3958 3952 3945 3967 836 226 1626 1708 1829 1922 1970 2023 2056 1977 1823 1642 1447 1272 1148 1032 0893 0782 0744 0740 0707 0686 0866 1583 2544 3190 3507 3648 3716 3760 3794 3809 3812 3806 3797 3792 3789 3807 837 227 1272 1343 1459 1565 1619 1680 1712 1618 1438 1235 1022 0837 0714 0609 0489 0402 0375 0375 0355 0346 0492 1152 2173 2918 3297 3471 3553 3606 3652 3678 3683 3675 3659 3647 3641 3672 838 21 2342 2289 2250 2223 2208 2219 2252 2270 2312 2476 2885 3403 3734 3786 3640 3471 3435 3464 3416 3391 3766 5052 6675 7831 8450 8742 8883 8954 8991 8985 8985 8984 8988 9007 8999 9009 839 22 2561 2561 2544 2541 2531 2546 2583 2600 2634 2766 3086 3480 3723 3759 3648 3520 3493 3512 3475 3455 3736 4664 5753 6471 6834 7000 7082 7126 7151 7150 7150 7146 7150 7167 7160 7167 840 23 2519 2533 2543 2545 2550 2562 2594 2613 2643 2744 2973 3244 3407 3426 3349 3256 3238 3251 3221 3211 3407 4018 4685 5094 5292 5382 5429 5456 5471 5469 5466 5464 5469 5478 5475 5486 841 24 2710 2794 2842 2871 2890 2913 2941 2951 2967 2999 3083 3176 3221 3212 3165 3108 3098 3103 3083 3077 3185 3497 3794 3957 4034 4067 4089 4107 4115 4112 4113 4108 4110 4121 4120 4122 842 25 2585 2690 2753 2802 2827 2848 2870 2886 2906 2913 2920 2929 2934 2939 2947 2944 2945 2944 2938 2944 2941 2943 2943 2948 2959 2964 2972 2985 2994 2993 2995 2994 3000 3006 3010 3020 843 26 1832 2136 2475 2756 2883 3033 3224 3357 3407 3427 3442 3435 3388 3288 3126 2905 2673 2428 2194 2036 1957 1946 1935 1913 1901 1893 1890 1905 1940 1962 1955 1931 1892 1858 1853 1884 844 27 1196 1516 1965 2366 2553 2780 3085 3307 3390 3436 3466 3461 3382 3210 2939 2587 2222 1860 1537 1330 1230 1207 1188 1160 1145 1134 1130 1145 1178 1203 1197 1170 1131 1097 1090 1125 845 28 0844 1195 1703 2179 2398 2684 3061 3344 3441 3481 3483 3437 3317 3105 2780 2364 1933 1518 1162 0944 0835 0794 0759 0728 0711 0702 0697 0710 0740 0764 0758 0738 0703 0673 0675 0704 846 29 0465 0769 1304 1856 2122 2473 2972 3356 3499 3579 3616 3580 3431 3143 2710 2169 1627 1130 0745 0529 0430 0383 0347 0321 0309 0303 0300 0308 0327 0344 0341 0328 0308 0294 0303 0331 847 210 2950 2879 2756 2662 2611 2600 2659 2791 3055 3601 4718 6242 7489 8141 8396 8451 8483 8497 8479 8498 8549 8709 8838 8916 8975 9003 9033 9058 9075 9064 9059 9052 9054 9074 9064 9072 848 211 3209 3163 3062 2986 2941 2939 3003 3134 3381 3880 4850 6097 7050 7514 7677 7693 7713 7724 7703 7717 7793 8017 8206 8314 8380 8411 8441 8467 8484 8476 8469 8463 8465 8476 8471 8485 849 212 3222 3212 3165 3129 3101 3114 3171 3283 3482 3853 4534 5349 5917 6175 6259 6256 6262 6266 6244 6254 6300 6439 6549 6609 6650 6669 6688 6708 6721 6716 6712 6707 6709 6721 6716 6723 850 213 3339 3473 3516 3551 3570 3598 3647 3716 3816 3967 4215 4478 4639 4706 4729 4716 4709 4693 4664 4661 4657 4675 4684 4694 4708 4717 4728 4745 4757 4756 4756 4748 4746 4753 4752 4764 851 214 2663 2787 2846 2890 2919 2945 2967 2981 3001 3005 3012 3020 3026 3030 3039 3034 3035 3033 3027 3036 3032 3034 3033 3037 3047 3053 3063 3075 3083 3082 3082 3082 3086 3097 3097 3107 852 215 1596 1852 2140 2384 2497 2623 2776 2850 2835 2782 2701 2612 2522 2408 2245 2053 1884 1721 1553 1441 1446 1614 1779 1854 1885 1897 1902 1921 1955 1975 1969 1950 1917 1886 1880 1914 853 216 1090 1316 1660 1947 2086 2246 2440 2524 2488 2400 2279 2148 2025 1878 1675 1450 1262 1089 0921 0815 0825 1000 1185 1271 1305 1316 1323 1344 1381 1407 1402 1382 1346 1310 1306 1339 854 217 0736 0947 1283 1586 1733 1909 2115 2201 2145 2034 1888 1733 1596 1437 1224 1003 0829 0679 0539 0458 0479 0639 0813 0894 0924 0936 0941 0960 0995 1021 1019 0999 0964 0930 0928 0962 855 218 0501 0722 1127 1506 1703 1937 2224 2317 2196 2003 1764 1528 1339 1138 0886 0656 0502 0386 0286 0240 0269 0404 0541 0594 0610 0613 0613 0632 0675 0708 0702 0680 0635 0596 0594 0634 856 219 1704 1955 2258 2499 2586 2732 2979 3226 3496 3978 4902 6079 6863 7016 6727 6194 5605 5001 4447 4077 3849 3714 3596 3506 3461 3435 3424 3457 3533 3582 3565 3511 3422 3334 3308 3370 857 220 1784 2030 2341 2582 2669 2808 3044 3287 3548 4003 4859 5926 6618 6742 6475 5982 5434 4867 4341 3989 3772 3644 3529 3442 3400 3375 3365 3398 3472 3518 3502 3450 3363 3279 3255 3317 858 221 2228 2450 2711 2904 2982 3100 3274 3461 3646 3947 4476 5082 5442 5501 5364 5094 4784 4449 4123 3901 3756 3671 3595 3537 3512 3496 3491 3519 3574 3605 3592 3557 3497 3440 3424 3469 859 222 2473 2681 2883 3034 3100 3180 3305 3423 3537 3705 3976 4262 4418 4438 4369 4229 4071 3890 3702 3575 3487 3434 3386 3351 3338 3330 3329 3352 3389 3409 3401 3378 3341 3306 3296 3328 860 223 2600 2715 2776 2826 2850 2878 2898 2914 2932 2938 2946 2954 2958 2962 2970 2968 2970 2969 2962 2971 2969 2969 2970 2975 2985 2991 3000 3011 3020 3020 3021 3020 3026 3036 3035 3046 861 224 2098 2231 2353 2448 2500 2545 2587 2580 2535 2466 2385 2306 2242 2175 2084 1994 1945 1913 1854 1815 1902 2213 2524 2690 2764 2795 2815 2833 2852 2862 2861 2852 2844 2835 2833 2847 862 225 1748 1867 1988 2073 2123 2170 2208 2169 2079 1962 1830 1708 1616 1526 1410 1307 1261 1244 1197 1166 1301 1786 2333 2654 2803 2869 2902 2927 2952 2961 2963 2957 2947 2941 2937 2951 863 226 1394 1466 1556 1632 1674 1716 1743 1688 1576 1440 1293 1157 1060 0969 0854 0760 0727 0721 0688 0670 0815 1364 2053 2484 2687 2779 2824 2857 2881 2895 2899 2897 2891 2889 2888 2900 864 227 1073 1139 1221 1286 1327 1366 1387 1319 1187 1037 0878 0740 0646 0564 0470 0399 0378 0378 0362 0356 0484 1020 1793 2320 2579 2696 2759 2798 2830 2849 2856 2858 2854 2853 2857 2877 865 21 1364 1277 1213 1174 1153 1154 1176 1191 1232 1395 1813 2360 2719 2780 2633 2463 2427 2460 2418 2393 2776 4155 6034 7466 8262 8646 8829 8918 8959 8961 8965 8964 8972 8989 8980 8984 866 22 1684 1631 1592 1558 1545 1548 1573 1583 1611 1736 2065 2480 2736 2765 2639 2498 2467 2493 2457 2437 2748 3826 5189 6134 6622 6848 6957 7012 7036 7036 7039 7038 7046 7058 7050 7052 867 23 1619 1592 1565 1552 1541 1545 1567 1572 1588 1681 1922 2226 2408 2427 2334 2232 2210 2227 2199 2185 2407 3162 4063 4651 4941 5071 5134 5169 5188 5188 5189 5189 5194 5206 5203 5205 868 24 1628 1639 1630 1632 1624 1634 1651 1651 1659 1716 1875 2072 2186 2194 2129 2055 2040 2051 2030 2023 2175 2676 3241 3586 3751 3824 3861 3884 3896 3895 3897 3897 3900 3910 3905 3908 869 25 1795 1848 1867 1880 1883 1892 1907 1912 1920 1949 2029 2119 2166 2162 2126 2080 2070 2075 2061 2058 2143 2401 2658 2800 2864 2893 2911 2925 2932 2932 2931 2932 2934 2940 2940 2945 870 26 1839 1907 1947 1972 1984 1999 2007 2013 2027 2027 2028 2031 2034 2035 2040 2036 2038 2035 2029 2035 2031 2031 2033 2036 2040 2045 2053 2060 2066 2067 2068 2071 2077 2083 2088 2096 871 27 1072 1297 1613 1885 2005 2153 2344 2476 2526 2546 2553 2540 2488 2383 2217 1994 1761 1521 1304 1163 1094 1080 1069 1050 1040 1034 1032 1043 1066 1084 1079 1063 1035 1011 1009 1032 872 28 0780 1042 1419 1773 1932 2130 2397 2589 2654 2682 2690 2663 2586 2435 2203 1898 1586 1279 1013 0850 0774 0754 0738 0719 0707 0702 0698 0708 0733 0751 0746 0732 0704 0682 0679 0709 873 29 0485 0730 1144 1552 1749 1991 2334 2591 2691 2748 2787 2779 2684 2485 2175 1781 1382 1009 0712 0543 0466 0437 0414 0394 0383 0378 0375 0383 0402 0418 0415 0402 0383 0370 0374 0399 874 210 2393 2261 2132 2039 1978 1966 2012 2122 2352 2882 4039 5724 7185 7994 8322 8402 8443 8459 8443 8461 8508 8665 8797 8878 8936 8967 8999 9024 9040 9030 9024 9016 9024 9037 9021 9025 875 211 2384 2272 2156 2075 2020 2004 2052 2156 2375 2868 3923 5403 6631 7272 7515 7559 7584 7600 7583 7601 7667 7882 8069 8178 8240 8276 8304 8329 8341 8334 8328 8322 8328 8341 8328 8330 876 212 2379 2323 2230 2165 2122 2114 2158 2252 2441 2850 3687 4797 5654 6068 6212 6228 6244 6248 6227 6236 6288 6463 6610 6692 6741 6765 6787 6806 6818 6809 6805 6798 6804 6813 6799 6803 877 213 2331 2321 2275 2242 2221 2223 2256 2324 2459 2733 3270 3940 4414 4626 4693 4689 4690 4685 4661 4663 4691 4792 4875 4919 4946 4959 4973 4989 4998 4995 4989 4985 4986 4990 4983 4989 878 214 2123 2195 2198 2210 2206 2217 2243 2287 2359 2488 2718 2976 3138 3202 3222 3212 3205 3191 3172 3167 3164 3185 3198 3208 3215 3220 3229 3239 3248 3249 3247 3245 3242 3247 3243 3252 879 215 1879 1961 1992 2023 2040 2056 2068 2076 2089 2093 2097 2102 2106 2109 2116 2113 2116 2116 2112 2121 2118 2120 2121 2127 2134 2140 2148 2158 2165 2166 2167 2172 2175 2183 2185 2193 880 216 0978 1175 1412 1617 1712 1820 1949 2008 1993 1940 1869 1789 1711 1614 1475 1314 1173 1038 0906 0822 0825 0945 1068 1124 1147 1154 1158 1174 1200 1219 1216 1202 1177 1153 1155 1174 881 217 0623 0794 1049 1281 1392 1528 1684 1756 1723 1651 1552 1445 1346 1228 1067 0890 0745 0615 0499 0431 0441 0552 0670 0722 0742 0749 0752 0767 0793 0812 0809 0796 0773 0752 0750 0776 882 218 0478 0642 0920 1182 1308 1460 1639 1714 1661 1563 1433 1297 1180 1046 0868 0688 0552 0438 0341 0289 0306 0410 0510 0551 0563 0567 0568 0582 0609 0631 0629 0613 0587 0563 0562 0593 883 219 0854 1013 1239 1418 1482 1591 1785 1998 2239 2721 3728 5119 6126 6351 6006 5368 4678 3993 3391 3000 2770 2638 2523 2435 2391 2367 2356 2385 2455 2505 2489 2441 2359 2278 2254 2317 884 220 1058 1234 1475 1674 1739 1855 2058 2274 2522 3006 3991 5322 6269 6477 6156 5555 4897 4238 3648 3263 3034 2900 2784 2695 2651 2626 2613 2645 2716 2765 2751 2700 2616 2530 2508 2569 885 221 1143 1328 1560 1748 1818 1924 2103 2288 2482 2836 3511 4347 4877 4964 4749 4353 3909 3450 3030 2751 2584 2486 2400 2334 2301 2285 2277 2300 2356 2394 2381 2342 2280 2219 2206 2247 886 222 1194 1400 1608 1788 1857 1952 2108 2255 2399 2637 3073 3577 3868 3893 3744 3477 3171 2848 2545 2340 2216 2142 2077 2027 2004 1990 1987 2007 2049 2077 2069 2041 1996 1949 1937 1976 887 223 1500 1634 1767 1866 1910 1963 2044 2122 2200 2316 2517 2737 2856 2870 2819 2713 2589 2450 2312 2220 2157 2123 2091 2066 2057 2051 2051 2065 2089 2103 2098 2085 2060 2040 2034 2055 888 224 1752 1836 1871 1902 1913 1927 1938 1945 1955 1959 1963 1970 1973 1977 1982 1979 1982 1981 1978 1985 1982 1985 1986 1990 1998 2003 2009 2019 2026 2025 2029 2031 2036 2042 2042 2052 889 225 1279 1366 1454 1523 1554 1592 1622 1610 1568 1511 1445 1382 1332 1277 1206 1134 1094 1067 1025 0998 1066 1319 1585 1728 1791 1820 1837 1853 1870 1880 1880 1877 1870 1865 1863 1879 890 226 1106 1172 1256 1321 1356 1387 1413 1379 1306 1214 1112 1018 0949 0882 0797 0724 0693 0679 0650 0632 0730 1099 1544 1814 1939 1996 2025 2048 2067 2078 2080 2078 2075 2074 2074 2089 891 227 0887 0944 1011 1065 1097 1130 1151 1099 1001 0892 0772 0667 0595 0531 0454 0395 0375 0374 0358 0353 0454 0863 1432 1811 1992 2075 2118 2148 2171 2187 2191 2193 2191 2191 2193 2207 892 21 0750 0646 0577 0536 0505 0509 0522 0543 0589 0744 1124 1616 1919 1946 1785 1620 1585 1619 1582 1556 1930 3336 5387 7057 8035 8523 8756 8868 8919 8927 8931 8932 8942 8959 8950 8948 893 22 1028 0940 0890 0853 0835 0832 0853 0865 0896 1027 1355 1763 2005 2015 1875 1728 1697 1726 1692 1671 1997 3170 4753 5913 6532 6822 6961 7030 7062 7066 7068 7070 7080 7094 7082 7089 894 23 0921 0873 0839 0812 0803 0802 0816 0823 0842 0935 1172 1467 1633 1637 1530 1422 1398 1420 1395 1381 1621 2458 3511 4220 4571 4732 4810 4854 4876 4881 4885 4890 4897 4909 4905 4910 895 24 0864 0830 0801 0776 0766 0769 0781 0785 0799 0870 1053 1274 1397 1398 1318 1239 1222 1239 1221 1210 1391 1999 2720 3173 3389 3487 3537 3570 3588 3592 3596 3601 3609 3618 3617 3629 896 25 0901 0885 0860 0853 0847 0844 0860 0861 0874 0927 1067 1233 1325 1330 1278 1222 1212 1222 1209 1203 1328 1727 2165 2424 2543 2598 2628 2650 2663 2667 2671 2676 2680 2687 2689 2697 897 26 1003 1005 0996 0997 1000 1002 1009 1009 1012 1036 1106 1186 1227 1223 1190 1153 1146 1152 1143 1141 1218 1457 1702 1838 1903 1932 1949 1964 1972 1976 1979 1979 1986 1993 1994 1999 898 27 1155 1203 1232 1240 1249 1255 1259 1263 1269 1269 1270 1273 1276 1276 1281 1280 1281 1281 1278 1284 1282 1285 1285 1289 1293 1297 1304 1310 1314 1316 1319 1322 1325 1331 1333 1340 899 28 0614 0784 1012 1219 1314 1427 1570 1668 1710 1730 1748 1749 1712 1628 1493 1313 1125 0937 0769 0665 0622 0627 0631 0624 0619 0616 0616 0624 0644 0658 0655 0645 0625 0611 0611 0633 900 29 0469 0673 0951 1216 1338 1494 1693 1843 1906 1943 1972 1973 1925 1815 1634 1392 1135 0885 0676 0551 0492 0468 0449 0433 0424 0419 0417 0424 0441 0454 0451 0441 0425 0410 0415 0434 901 210 1717 1574 1441 1350 1288 1272 1308 1400 1613 2128 3326 5146 6788 7732 8117 8214 8261 8282 8266 8285 8347 8555 8737 8845 8913 8946 8980 9007 9020 9009 9005 8999 9006 9019 9006 9006 902 211 1641 1518 1383 1288 1236 1221 1253 1345 1547 2042 3178 4863 6329 7133 7441 7504 7540 7560 7541 7557 7645 7921 8167 8307 8388 8428 8458 8484 8499 8488 8485 8478 8485 8498 8486 8490 903 212 1675 1565 1453 1378 1330 1317 1348 1433 1617 2050 3002 4340 5434 5997 6206 6244 6265 6275 6257 6269 6320 6492 6637 6718 6765 6790 6811 6832 6845 6837 6834 6828 6834 6843 6836 6834 904 213 1530 1461 1381 1328 1293 1288 1313 1374 1511 1824 2510 3443 4160 4506 4628 4643 4648 4646 4626 4629 4657 4762 4848 4895 4924 4939 4954 4968 4981 4979 4973 4971 4972 4977 4969 4974 905 214 1370 1336 1290 1257 1235 1231 1251 1298 1400 1617 2063 2624 3015 3187 3242 3239 3236 3229 3206 3205 3218 3279 3326 3353 3369 3377 3389 3401 3411 3414 3412 3409 3412 3414 3409 3416 906 215 1250 1257 1245 1241 1233 1237 1256 1285 1348 1465 1685 1934 2091 2155 2177 2170 2165 2153 2136 2132 2130 2147 2158 2164 2173 2178 2184 2196 2204 2207 2209 2208 2210 2213 2213 2222 907 216 1173 1219 1231 1251 1263 1266 1273 1276 1283 1283 1286 1289 1291 1293 1298 1296 1300 1300 1300 1305 1306 1308 1311 1314 1320 1323 1330 1338 1344 1348 1350 1353 1358 1365 1368 1375 908 217 0590 0712 0878 1022 1091 1165 1255 1298 1283 1247 1196 1140 1085 1015 0916 0800 0701 0610 0522 0467 0474 0554 0633 0668 0679 0685 0688 0700 0719 0734 0731 0726 0707 0694 0694 0714 909 218 0356 0478 0658 0823 0907 1005 1120 1167 1142 1089 1014 0931 0858 0772 0653 0528 0428 0345 0272 0234 0245 0314 0376 0398 0404 0407 0408 0416 0434 0449 0446 0440 0423 0408 0410 0437 910 219 0439 0516 0640 0739 0764 0822 0947 1105 1325 1811 2889 4442 5602 5870 5474 4758 3991 3246 2604 2194 1962 1829 1715 1628 1585 1560 1549 1580 1649 1702 1689 1644 1562 1481 1463 1526 911 220 0562 0659 0812 0934 0967 1041 1183 1358 1594 2094 3171 4692 5813 6074 5697 5002 4255 3521 2880 2467 2229 2092 1973 1882 1835 1810 1799 1830 1904 1958 1944 1895 1811 1727 1709 1770 912 221 0583 0702 0855 0975 1014 1089 1223 1377 1565 1939 2700 3691 4352 4482 4248 3811 3317 2814 2362 2064 1892 1790 1705 1638 1606 1589 1580 1606 1661 1701 1693 1657 1594 1534 1523 1566 913 222 0563 0660 0803 0915 0953 1025 1140 1268 1416 1702 2264 2959 3393 3468 3305 2996 2644 2275 1939 1715 1586 1511 1448 1398 1374 1361 1357 1378 1420 1451 1444 1418 1371 1326 1317 1355 914 223 0555 0648 0780 0886 0922 0981 1074 1170 1274 1462 1811 2212 2443 2468 2360 2163 1936 1693 1469 1321 1233 1183 1140 1108 1092 1085 1083 1096 1128 1150 1146 1128 1098 1069 1066 1093 915 224 0789 0859 0963 1049 1075 1117 1180 1243 1308 1408 1583 1768 1865 1875 1826 1731 1620 1493 1371 1287 1235 1207 1181 1162 1154 1151 1151 1164 1185 1200 1197 1186 1170 1152 1153 1169 916 225 1087 1129 1144 1158 1162 1176 1179 1182 1190 1193 1195 1199 1201 1204 1210 1210 1212 1213 1212 1218 1219 1222 1225 1231 1237 1242 1249 1257 1263 1265 1268 1273 1278 1284 1291 1296 917 226 0824 0893 0960 1011 1037 1060 1086 1077 1043 1000 0953 0908 0869 0827 0767 0711 0679 0657 0625 0604 0662 0869 1090 1212 1266 1291 1306 1321 1336 1346 1349 1346 1342 1340 1342 1354 918 227 0724 0768 0832 0879 0912 0942 0968 0943 0887 0818 0741 0671 0616 0564 0497 0437 0411 0398 0375 0363 0438 0724 1075 1288 1386 1434 1459 1480 1499 1512 1515 1516 1513 1514 1517 1527 919 21 0433 0360 0310 0282 0261 0258 0267 0283 0316 0421 0686 1009 1166 1127 0960 0812 0781 0809 0781 0760 1086 2426 4595 6523 7726 8353 8656 8796 8862 8881 8889 8890 8901 8922 8914 8915 920 22 0507 0436 0393 0359 0339 0340 0349 0365 0397 0503 0763 1080 1243 1219 1069 0933 0904 0931 0904 0886 1188 2366 4120 5514 6296 6670 6847 6934 6977 6986 6991 6991 7003 7020 7017 7017 921 23 0562 0501 0462 0433 0415 0418 0424 0436 0454 0535 0730 0967 1089 1072 0964 0864 0843 0863 0844 0831 1055 1891 3038 3854 4272 4466 4562 4615 4644 4652 4658 4665 4675 4692 4693 4699 922 24 0478 0412 0379 0360 0349 0343 0353 0357 0377 0442 0606 0806 0910 0898 0814 0734 0717 0734 0718 0710 0891 1546 2406 2984 3271 3405 3473 3511 3537 3549 3557 3561 3573 3586 3586 3593 923 25 0469 0444 0422 0408 0398 0399 0406 0407 0418 0468 0598 0758 0844 0842 0783 0724 0713 0725 0714 0709 0843 1302 1862 2213 2381 2459 2501 2528 2547 2556 2563 2569 2577 2588 2592 2599 924 26 0515 0508 0487 0479 0471 0470 0480 0478 0488 0523 0621 0740 0804 0804 0763 0723 0715 0723 0715 0713 0810 1122 1477 1687 1785 1831 1858 1877 1889 1894 1900 1906 1913 1922 1927 1934 925 27 0558 0565 0568 0562 0557 0559 0564 0557 0563 0581 0637 0704 0739 0740 0716 0692 0687 0693 0687 0688 0744 0922 1110 1216 1265 1289 1304 1316 1323 1327 1331 1337 1341 1345 1351 1358 926 28 0535 0546 0549 0556 0559 0559 0565 0564 0569 0570 0572 0574 0575 0578 0582 0582 0584 0587 0588 0592 0593 0595 0598 0602 0606 0609 0614 0620 0624 0628 0631 0633 0639 0643 0649 0657 927 29 0400 0533 0701 0860 0928 1013 1127 1208 1242 1268 1297 1310 1289 1225 1115 0968 0815 0666 0538 0461 0431 0434 0439 0435 0432 0430 0430 0437 0449 0459 0457 0451 0439 0432 0435 0450 928 210 1068 0910 0785 0693 0650 0636 0659 0731 0902 1370 2566 4526 6424 7584 8084 8226 8290 8317 8303 8327 8385 8573 8739 8839 8899 8931 8961 8989 9004 8992 8984 8981 8988 9002 8993 8989 929 211 0867 0722 0601 0524 0481 0469 0490 0549 0704 1136 2277 4160 5963 7041 7488 7602 7653 7681 7667 7685 7774 8047 8291 8429 8508 8547 8577 8604 8620 8611 8603 8602 8603 8620 8607 8609 930 212 0848 0728 0628 0560 0526 0511 0531 0585 0721 1095 2059 3585 4951 5706 5997 6063 6096 6116 6102 6116 6190 6414 6614 6725 6788 6819 6845 6866 6879 6871 6869 6866 6873 6882 6876 6877 931 213 0767 0681 0607 0557 0534 0521 0534 0577 0679 0961 1678 2784 3715 4195 4370 4405 4422 4431 4417 4424 4471 4618 4747 4815 4855 4873 4889 4908 4920 4917 4915 4913 4917 4929 4917 4923 932 214 0839 0772 0718 0680 0651 0648 0661 0697 0784 1006 1530 2272 2843 3112 3207 3221 3227 3229 3218 3222 3247 3332 3406 3445 3469 3483 3496 3508 3517 3517 3520 3517 3522 3528 3523 3531 933 215 0766 0735 0696 0671 0650 0648 0659 0691 0758 0923 1293 1783 2134 2292 2346 2349 2351 2347 2335 2335 2346 2389 2423 2442 2455 2463 2473 2483 2494 2497 2498 2498 2500 2504 2504 2508 934 216 0737 0718 0704 0692 0685 0681 0692 0709 0752 0836 1009 1216 1349 1404 1422 1420 1418 1415 1408 1408 1414 1434 1452 1462 1469 1474 1480 1488 1495 1498 1500 1503 1504 1512 1516 1519 935 217 0465 0486 0493 0498 0500 0505 0504 0504 0511 0512 0513 0517 0519 0521 0524 0526 0529 0531 0531 0536 0538 0541 0545 0548 0553 0557 0562 0568 0572 0575 0579 0584 0588 0594 0600 0602 936 218 0486 0580 0699 0798 0844 0894 0955 0978 0961 0931 0888 0842 0801 0749 0679 0599 0533 0474 0417 0383 0395 0473 0552 0587 0603 0607 0612 0622 0636 0648 0648 0642 0633 0622 0624 0639 937 219 0256 0292 0341 0371 0377 0401 0471 0571 0745 1169 2213 3830 5092 5392 4954 4175 3357 2582 1932 1529 1308 1184 1081 1003 0965 0945 0936 0962 1025 1074 1062 1024 0953 0885 0876 0928 938 220 0279 0347 0407 0450 0458 0490 0569 0685 0871 1315 2380 3999 5258 5568 5149 4389 3583 2810 2156 1744 1515 1387 1278 1194 1152 1130 1120 1149 1215 1267 1256 1212 1138 1064 1050 1110 939 221 0339 0397 0489 0556 0576 0620 0709 0830 0998 1368 2184 3313 4099 4266 4000 3501 2947 2393 1911 1599 1423 1322 1239 1174 1142 1125 1119 1142 1196 1236 1229 1195 1137 1077 1069 1115 940 222 0304 0386 0466 0542 0564 0609 0694 0798 0939 1231 1856 2682 3225 3327 3129 2762 2348 1926 1554 1314 1179 1102 1037 0988 0964 0951 0948 0966 1007 1039 1034 1007 0964 0922 0916 0953 941 223 0330 0387 0481 0560 0582 0627 0707 0796 0905 1121 1554 2093 2419 2468 2332 2084 1797 1500 1235 1063 0966 0912 0866 0831 0814 0806 0804 0819 0850 0873 0870 0852 0820 0792 0788 0819 942 224 0342 0419 0497 0560 0587 0620 0689 0761 0843 0999 1301 1661 1868 1894 1804 1637 1442 1235 1047 0924 0854 0814 0780 0755 0744 0739 0738 0749 0773 0791 0788 0776 0754 0733 0734 0760 943 225 0550 0606 0687 0741 0760 0792 0839 0887 0938 1026 1181 1350 1443 1455 1418 1341 1250 1149 1050 0984 0944 0922 0902 0888 0882 0881 0881 0891 0907 0920 0919 0911 0900 0886 0889 0905 944 226 0516 0546 0545 0550 0559 0563 0565 0567 0571 0574 0576 0580 0582 0587 0591 0593 0597 0600 0602 0607 0610 0614 0618 0624 0629 0634 0640 0647 0653 0657 0661 0666 0672 0679 0683 0693 945 227 0578 0622 0660 0692 0704 0724 0738 0731 0710 0681 0653 0625 0601 0571 0530 0491 0469 0456 0436 0425 0470 0631 0804 0898 0942 0963 0975 0988 1000 1009 1013 1012 1013 1013 1019 1031 946 21 0476 0399 0358 0325 0313 0307 0318 0328 0354 0442 0639 0850 0924 0860 0706 0580 0553 0575 0553 0538 0814 1998 3964 5692 6740 7275 7531 7650 7707 7719 7729 7732 7744 7761 7753 7761 947 22 0431 0379 0334 0311 0296 0299 0305 0311 0330 0390 0536 0686 0733 0678 0558 0460 0439 0456 0439 0429 0645 1567 3050 4258 4932 5258 5413 5489 5528 5542 5552 5559 5571 5588 5587 5596 948 23 0342 0285 0261 0247 0233 0229 0238 0241 0260 0312 0434 0561 0603 0560 0462 0383 0366 0379 0366 0359 0537 1290 2476 3396 3886 4118 4231 4291 4327 4341 4355 4364 4375 4393 4396 4405 949 24 0246 0239 0211 0196 0191 0187 0190 0197 0213 0254 0352 0457 0491 0457 0381 0319 0306 0316 0306 0303 0445 1043 1964 2648 3002 3169 3253 3301 3331 3347 3359 3370 3380 3398 3403 3411 950 25 0215 0205 0185 0178 0168 0166 0167 0175 0185 0222 0305 0396 0426 0400 0340 0289 0277 0286 0277 0277 0394 0872 1576 2071 2319 2437 2499 2538 2564 2577 2587 2596 2608 2624 2630 2641 951 26 0230 0224 0203 0196 0187 0190 0190 0194 0204 0234 0305 0386 0421 0406 0361 0321 0311 0319 0312 0313 0408 0765 1248 1566 1720 1795 1835 1862 1881 1890 1900 1908 1917 1929 1933 1940 952 27 0315 0291 0282 0273 0265 0265 0269 0270 0276 0296 0357 0429 0468 0463 0434 0404 0398 0405 0400 0401 0473 0713 0998 1169 1252 1291 1315 1330 1343 1349 1356 1361 1369 1375 1383 1388 953 28 0338 0328 0319 0318 0316 0315 0321 0317 0318 0333 0375 0428 0455 0457 0441 0424 0422 0426 0423 0425 0468 0600 0742 0823 0862 0881 0893 0903 0910 0914 0919 0924 0928 0936 0938 0944 954 29 0264 0264 0265 0272 0274 0275 0280 0279 0285 0286 0288 0290 0293 0295 0299 0300 0304 0306 0308 0312 0315 0318 0322 0325 0329 0333 0338 0342 0346 0350 0354 0357 0361 0367 0370 0374 955 210 0769 0612 0493 0426 0391 0375 0396 0449 0594 1019 2188 4196 6213 7497 8070 8242 8311 8341 8331 8354 8408 8589 8739 8828 8888 8921 8950 8978 8994 8982 8975 8972 8976 8988 8977 8975 956 211 0626 0475 0374 0312 0280 0275 0288 0335 0460 0856 1992 3983 6002 7294 7869 8037 8108 8139 8127 8148 8223 8456 8660 8775 8847 8883 8914 8942 8957 8948 8942 8937 8941 8954 8943 8941 957 212 0514 0389 0313 0266 0241 0233 0246 0281 0379 0698 1641 3290 4882 5825 6217 6326 6375 6397 6387 6404 6462 6638 6788 6872 6922 6948 6971 6996 7011 7003 7000 6997 7000 7012 7004 7010 958 213 0402 0323 0271 0239 0228 0219 0229 0248 0313 0515 1146 2254 3263 3807 4015 4066 4092 4106 4099 4111 4153 4278 4385 4442 4475 4493 4511 4528 4540 4540 4540 4542 4546 4555 4549 4556 959 214 0310 0266 0236 0211 0204 0199 0202 0220 0260 0396 0831 1586 2235 2562 2679 2704 2717 2726 2720 2728 2762 2861 2948 2994 3022 3037 3052 3068 3078 3079 3084 3087 3089 3100 3099 3105 960 215 0324 0287 0259 0237 0229 0223 0229 0246 0287 0415 0775 1344 1796 2010 2087 2103 2108 2107 2098 2099 2110 2150 2181 2202 2216 2225 2237 2251 2261 2267 2269 2273 2277 2283 2282 2293 961 216 0360 0335 0304 0292 0280 0278 0281 0295 0334 0434 0683 1042 1304 1421 1461 1466 1469 1466 1459 1459 1468 1498 1523 1535 1546 1553 1561 1571 1580 1584 1586 1589 1592 1598 1600 1606 962 217 0447 0422 0406 0397 0391 0391 0392 0404 0432 0493 0622 0782 0884 0927 0941 0942 0943 0942 0939 0940 0945 0963 0976 0984 0990 0995 1001 1007 1014 1017 1019 1022 1024 1028 1031 1039 963 218 0277 0281 0293 0296 0300 0301 0304 0305 0309 0313 0317 0319 0322 0325 0329 0331 0336 0339 0342 0347 0350 0354 0358 0362 0367 0372 0377 0383 0389 0393 0397 0403 0407 0412 0419 0425 964 219 0198 0206 0239 0256 0250 0264 0308 0382 0523 0903 1909 3547 4869 5202 4759 3960 3124 2335 1681 1278 1063 0943 0845 0770 0734 0715 0707 0731 0790 0837 0829 0791 0725 0666 0654 0703 965 220 0168 0185 0207 0217 0213 0223 0257 0321 0447 0804 1785 3416 4739 5060 4593 3773 2917 2120 1471 1076 0867 0753 0661 0592 0558 0541 0533 0555 0611 0654 0646 0612 0551 0497 0489 0535 966 221 0157 0169 0188 0193 0188 0197 0228 0286 0401 0739 1686 3255 4510 4795 4333 3533 2700 1924 1300 0925 0732 0627 0544 0482 0452 0437 0430 0450 0498 0538 0531 0500 0447 0398 0394 0439 967 222 0156 0156 0166 0176 0168 0178 0199 0248 0348 0638 1462 2825 3889 4132 3755 3080 2363 1689 1141 0813 0645 0554 0483 0429 0404 0391 0386 0402 0443 0479 0472 0446 0401 0359 0361 0393 968 223 0145 0158 0169 0172 0168 0176 0195 0233 0317 0553 1206 2250 3023 3189 2916 2417 1873 1349 0922 0666 0536 0467 0411 0371 0351 0343 0337 0350 0383 0409 0404 0386 0352 0321 0324 0356 969 224 0178 0222 0261 0287 0295 0313 0358 0415 0503 0688 1101 1636 1974 2032 1905 1668 1393 1111 0865 0710 0626 0578 0540 0511 0497 0490 0487 0500 0526 0547 0545 0529 0503 0480 0480 0510 970 225 0274 0321 0382 0437 0456 0491 0541 0600 0670 0797 1043 1328 1487 1504 1427 1287 1124 0950 0793 0692 0636 0604 0578 0558 0549 0546 0545 0555 0574 0590 0588 0580 0562 0546 0546 0567 971 226 0419 0471 0522 0562 0574 0594 0626 0662 0696 0760 0872 0993 1056 1068 1045 0996 0936 0869 0803 0758 0732 0718 0706 0697 0694 0694 0695 0704 0717 0727 0727 0724 0716 0710 0711 0723 972 227 0348 0372 0376 0378 0386 0381 0388 0389 0395 0395 0398 0401 0405 0408 0411 0413 0418 0420 0422 0427 0431 0435 0439 0443 0448 0454 0458 0464 0470 0474 0478 0485 0490 0496 0502 0506 973 21 0295 0318 0327 0329 0335 0335 0343 0339 0344 0344 0348 0350 0352 0355 0358 0359 0362 0363 0365 0368 0371 0374 0376 0380 0383 0387 0392 0395 0399 0402 0405 0411 0415 0420 0422 0427 974 22 0443 0451 0468 0470 0474 0476 0477 0479 0482 0483 0486 0489 0492 0494 0496 0497 0500 0502 0503 0507 0509 0511 0514 0519 0523 0525 0530 0535 0540 0544 0547 0550 0556 0559 0561 0567 975 23 0991 1036 1049 1062 1068 1070 1075 1079 1086 1085 1088 1092 1093 1095 1099 1098 1100 1101 1099 1103 1104 1106 1107 1111 1116 1120 1126 1132 1136 1137 1140 1143 1146 1150 1154 1161 976 24 1662 1743 1773 1802 1812 1822 1833 1837 1850 1853 1857 1863 1866 1869 1875 1871 1873 1872 1869 1875 1872 1874 1875 1878 1884 1889 1897 1904 1909 1910 1913 1913 1917 1925 1929 1936 977 25 2522 2648 2702 2746 2773 2797 2817 2830 2849 2854 2861 2870 2876 2878 2887 2882 2884 2882 2876 2884 2879 2881 2881 2886 2894 2900 2908 2919 2926 2926 2928 2928 2932 2937 2939 2944 978 26 3771 3959 4059 4146 4194 4238 4280 4308 4341 4356 4368 4383 4394 4402 4414 4407 4408 4404 4394 4406 4398 4396 4392 4398 4410 4418 4431 4445 4453 4452 4448 4445 4450 4459 4456 4461 979 27 5041 5299 5459 5598 5686 5763 5835 5884 5942 5964 5988 6014 6035 6050 6070 6063 6069 6066 6053 6068 6058 6058 6056 6065 6082 6094 6114 6132 6142 6138 6135 6133 6138 6151 6144 6154 980 28 6426 6808 7034 7230 7368 7482 7593 7672 7754 7796 7836 7879 7915 7939 7968 7961 7969 7965 7950 7972 7958 7958 7953 7964 7994 8011 8033 8058 8074 8067 8062 8057 8067 8079 8070 8079 981 29 7222 7664 7926 8151 8311 8448 8576 8677 8774 8829 8886 8943 8980 9003 9031 9015 9015 9005 8977 8992 8981 8997 8994 9009 9038 9055 9078 9103 9120 9110 9100 9091 9091 9101 9089 9105 982 210 0178 0197 0205 0204 0209 0207 0206 0205 0211 0211 0213 0216 0217 0219 0222 0223 0225 0226 0228 0231 0232 0235 0237 0241 0244 0246 0249 0253 0256 0260 0262 0266 0270 0273 0277 0280 983 211 0255 0260 0264 0261 0263 0264 0269 0268 0273 0275 0276 0278 0280 0282 0284 0286 0288 0291 0292 0296 0298 0300 0304 0307 0310 0314 0317 0322 0327 0330 0332 0336 0340 0344 0348 0353 984 212 0511 0530 0532 0534 0535 0541 0544 0545 0549 0548 0548 0550 0551 0552 0555 0556 0557 0559 0559 0562 0563 0565 0566 0569 0573 0576 0580 0584 0588 0589 0590 0594 0598 0604 0609 0612 985 213 0839 0898 0904 0911 0920 0920 0924 0921 0927 0927 0928 0930 0930 0932 0934 0932 0931 0931 0930 0934 0934 0934 0936 0938 0942 0944 0947 0953 0956 0958 0960 0960 0965 0968 0967 0971 986 214 1232 1288 1310 1322 1329 1339 1339 1347 1356 1353 1356 1360 1363 1366 1368 1366 1366 1366 1364 1368 1368 1370 1371 1374 1379 1381 1387 1393 1398 1401 1401 1403 1407 1413 1413 1420 987 215 1628 1708 1741 1767 1785 1791 1803 1808 1820 1822 1827 1832 1835 1837 1844 1842 1844 1845 1841 1847 1847 1850 1851 1856 1863 1867 1875 1883 1891 1892 1895 1897 1904 1911 1911 1921 988 216 1916 2003 2046 2078 2096 2111 2125 2135 2148 2150 2156 2163 2168 2171 2178 2175 2177 2176 2172 2178 2177 2179 2181 2186 2194 2198 2206 2216 2224 2225 2228 2228 2233 2241 2243 2251 989 217 2454 2563 2620 2664 2688 2710 2731 2745 2762 2765 2771 2779 2783 2786 2795 2790 2791 2789 2781 2789 2784 2785 2784 2788 2795 2801 2809 2820 2826 2826 2828 2826 2830 2839 2837 2845 990 218 3008 3148 3218 3272 3315 3345 3375 3395 3420 3427 3437 3448 3455 3461 3470 3465 3467 3465 3456 3466 3460 3461 3460 3466 3475 3484 3496 3508 3519 3518 3517 3518 3522 3532 3531 3539 991 219 3546 3726 3821 3892 3940 3983 4020 4048 4079 4090 4101 4115 4125 4134 4146 4139 4143 4139 4129 4141 4134 4135 4135 4142 4153 4161 4174 4188 4195 4194 4194 4192 4195 4209 4204 4211 992 220 4154 4384 4499 4595 4659 4712 4762 4798 4838 4854 4873 4894 4909 4920 4936 4928 4932 4930 4920 4933 4924 4926 4923 4930 4945 4955 4969 4985 4994 4993 4990 4992 4998 5007 5004 5012 993 221 4859 5112 5265 5393 5475 5541 5609 5659 5714 5741 5771 5799 5822 5837 5859 5853 5858 5856 5845 5863 5856 5858 5855 5863 5881 5894 5910 5931 5944 5942 5939 5939 5944 5958 5950 5961 994 222 5491 5796 5959 6115 6217 6306 6386 6452 6515 6553 6591 6630 6661 6681 6706 6701 6708 6707 6696 6719 6709 6716 6712 6723 6748 6764 6786 6810 6823 6820 6818 6818 6828 6843 6835 6844 995 223 6208 6554 6768 6948 7073 7179 7280 7357 7436 7478 7525 7572 7605 7632 7662 7656 7664 7665 7647 7672 7663 7667 7665 7679 7707 7725 7750 7774 7788 7781 7781 7777 7785 7800 7792 7799 996 224 6906 7308 7549 7756 7901 8027 8143 8238 8333 8386 8442 8497 8537 8562 8592 8579 8584 8579 8558 8579 8573 8589 8591 8606 8637 8655 8680 8703 8719 8709 8703 8695 8701 8716 8704 8712 997 225 7174 7601 7855 8081 8236 8366 8492 8593 8694 8751 8810 8871 8909 8931 8952 8933 8935 8926 8898 8912 8917 8950 8959 8977 9011 9032 9058 9085 9098 9087 9081 9070 9072 9082 9071 9083 998 226 0227 0247 0245 0249 0253 0255 0255 0258 0259 0260 0262 0264 0267 0269 0272 0273 0275 0278 0279 0282 0285 0288 0291 0294 0298 0301 0305 0310 0313 0316 0319 0322 0326 0331 0335 0339 999 227 7166 7616 7873 8106 8262 8402 8532 8629 8729 8787 8846 8903 8942 8961 8980 8953 8953 8941 8912 8922 8926 8964 8978 8996 9025 9043 9065 9091 9110 9099 9089 9079 9079 9086 9075 9090 1000 21 0445 0457 0461 0469 0472 0477 0475 0477 0482 0484 0485 0490 0492 0495 0498 0499 0502 0504 0507 0511 0513 0517 0521 0525 0530 0534 0538 0544 0550 0554 0558 0561 0566 0572 0576 0580 1001 22 0500 0511 0526 0531 0532 0536 0535 0535 0541 0542 0544 0547 0549 0551 0555 0557 0559 0561 0562 0565 0568 0571 0573 0577 0582 0585 0589 0595 0601 0604 0608 0611 0617 0622 0626 0631 1002 23 1051 1096 1106 1120 1129 1129 1137 1140 1146 1145 1147 1150 1152 1153 1157 1155 1158 1157 1156 1159 1160 1162 1163 1167 1171 1175 1181 1186 1191 1194 1196 1200 1203 1210 1215 1218 1003 24 1718 1801 1833 1852 1870 1879 1890 1898 1909 1911 1914 1918 1922 1923 1928 1924 1926 1925 1920 1927 1926 1926 1928 1931 1937 1942 1948 1957 1961 1963 1963 1967 1971 1976 1980 1984 1004 25 2602 2725 2778 2830 2857 2875 2899 2914 2934 2937 2944 2952 2957 2959 2967 2962 2964 2961 2954 2963 2958 2960 2958 2963 2971 2977 2986 2997 3005 3003 3002 3004 3009 3013 3015 3021 1005 26 3862 4044 4151 4228 4289 4337 4376 4405 4437 4449 4459 4472 4482 4488 4500 4494 4494 4490 4479 4489 4480 4480 4477 4482 4492 4501 4511 4525 4533 4532 4527 4527 4531 4543 4539 4546 1006 27 5021 5309 5461 5594 5683 5760 5828 5880 5935 5956 5981 6005 6024 6039 6061 6053 6061 6057 6045 6063 6051 6051 6047 6058 6076 6090 6108 6129 6141 6138 6136 6135 6143 6153 6151 6161 1007 28 6513 6905 7138 7338 7480 7597 7704 7786 7868 7907 7945 7986 8016 8039 8070 8064 8073 8069 8051 8074 8060 8061 8057 8070 8096 8114 8138 8161 8176 8169 8165 8163 8167 8183 8176 8190 1008 29 7206 7640 7896 8126 8289 8425 8555 8659 8757 8815 8873 8930 8971 8995 9024 9010 9013 9005 8978 8996 8984 8995 8994 9007 9036 9057 9078 9103 9122 9111 9104 9094 9094 9108 9100 9108 1009 210 0218 0237 0233 0236 0238 0242 0241 0243 0244 0246 0248 0249 0252 0254 0257 0258 0261 0263 0264 0266 0269 0272 0275 0277 0281 0284 0288 0291 0295 0298 0301 0305 0307 0311 0316 0320 1010 211 0304 0306 0313 0314 0314 0322 0320 0321 0325 0325 0328 0330 0332 0334 0337 0339 0340 0344 0344 0348 0350 0354 0357 0360 0364 0367 0372 0377 0381 0384 0387 0391 0395 0401 0405 0408 1011 212 0547 0565 0569 0578 0578 0581 0584 0582 0587 0584 0586 0588 0589 0590 0592 0593 0594 0594 0594 0598 0598 0601 0603 0606 0609 0611 0615 0619 0623 0627 0629 0632 0634 0639 0642 0649 1012 213 0908 0948 0962 0973 0976 0985 0986 0985 0994 0991 0991 0993 0994 0995 0998 0996 0998 0997 0995 0999 1000 1001 1002 1004 1008 1011 1016 1021 1025 1025 1028 1030 1033 1039 1041 1042 1013 214 1305 1364 1392 1410 1419 1425 1432 1435 1442 1440 1443 1445 1447 1449 1452 1451 1452 1451 1448 1453 1452 1454 1454 1457 1463 1466 1471 1478 1482 1484 1486 1490 1492 1498 1500 1507 1014 215 1678 1727 1772 1792 1805 1820 1828 1835 1846 1849 1852 1857 1861 1863 1869 1868 1870 1869 1866 1873 1870 1873 1876 1881 1887 1892 1900 1909 1915 1917 1920 1923 1927 1934 1938 1943 1015 216 1977 2069 2120 2151 2172 2185 2198 2208 2223 2225 2230 2235 2240 2243 2250 2247 2249 2247 2244 2253 2249 2252 2251 2255 2264 2269 2277 2288 2295 2297 2299 2302 2306 2313 2313 2323 1016 217 2533 2648 2701 2747 2779 2799 2818 2837 2848 2854 2858 2865 2870 2873 2879 2874 2876 2873 2866 2874 2869 2869 2868 2872 2882 2887 2895 2906 2911 2912 2912 2911 2915 2923 2920 2928 1017 218 3067 3237 3304 3369 3406 3439 3465 3488 3511 3520 3527 3539 3546 3552 3562 3557 3557 3556 3548 3555 3550 3551 3551 3556 3567 3573 3584 3596 3606 3606 3604 3605 3609 3618 3617 3620 1018 219 3597 3772 3866 3944 3988 4032 4068 4092 4124 4133 4143 4155 4163 4171 4181 4175 4176 4171 4163 4174 4167 4170 4166 4172 4185 4192 4204 4216 4225 4222 4222 4221 4224 4231 4234 4236 1019 220 4209 4446 4570 4668 4739 4787 4839 4876 4915 4933 4949 4967 4981 4990 5006 4999 5002 4999 4988 5001 4994 4994 4991 4999 5015 5025 5037 5054 5061 5058 5058 5057 5061 5071 5066 5072 1020 221 4910 5153 5301 5425 5511 5580 5649 5700 5753 5777 5802 5831 5851 5865 5887 5882 5887 5887 5875 5893 5886 5887 5884 5896 5911 5927 5943 5964 5976 5972 5971 5972 5977 5991 5984 5990 1021 222 5546 5842 6033 6187 6288 6375 6459 6527 6593 6627 6662 6700 6726 6745 6773 6768 6778 6777 6767 6787 6779 6781 6780 6793 6815 6832 6854 6880 6895 6892 6893 6891 6899 6913 6907 6916 1022 223 6280 6662 6880 7064 7190 7296 7399 7476 7558 7601 7645 7691 7724 7745 7776 7771 7777 7775 7760 7782 7774 7777 7775 7786 7811 7831 7857 7880 7891 7886 7884 7883 7891 7904 7895 7904 1023 224 6895 7315 7558 7770 7915 8039 8157 8251 8344 8401 8456 8509 8545 8572 8599 8588 8594 8586 8567 8587 8576 8587 8587 8600 8629 8650 8674 8698 8714 8705 8697 8693 8696 8710 8698 8709 1024 225 7159 7585 7834 8059 8213 8346 8474 8575 8681 8745 8812 8876 8918 8941 8969 8951 8954 8943 8916 8929 8922 8941 8940 8957 8986 9005 9027 9055 9070 9060 9052 9043 9043 9054 9041 9057 1025 226 0420 0360 0317 0288 0272 0266 0276 0286 0311 0386 0569 0768 0840 0782 0642 0527 0504 0522 0502 0489 0744 1888 3847 5594 6668 7217 7476 7600 7663 7681 7688 7692 7703 7718 7709 7719 1026 227 0659 1199 2106 3012 3445 4036 4930 5654 5942 6137 6268 6247 5960 5399 4597 3650 2730 1892 1227 0839 0647 0547 0470 0416 0391 0379 0373 0388 0431 0466 0458 0432 0386 0350 0352 0397 1027 21 0335 0338 0353 0352 0357 0355 0359 0360 0363 0366 0367 0370 0373 0376 0379 0381 0384 0386 0387 0392 0394 0398 0400 0403 0407 0413 0416 0421 0425 0429 0433 0437 0441 0447 0453 0458 1028 22 0502 0528 0533 0542 0542 0550 0548 0552 0555 0556 0559 0561 0563 0566 0569 0571 0574 0576 0577 0581 0583 0588 0590 0594 0598 0603 0607 0614 0619 0623 0625 0631 0636 0642 0644 0651 1029 23 1016 1059 1068 1082 1092 1094 1100 1103 1108 1107 1111 1114 1116 1117 1121 1121 1123 1123 1121 1126 1127 1130 1131 1135 1140 1143 1148 1155 1159 1163 1165 1169 1171 1177 1182 1189 1030 24 1717 1795 1830 1856 1871 1884 1895 1898 1911 1913 1916 1921 1926 1928 1933 1931 1933 1932 1929 1935 1934 1937 1939 1944 1950 1954 1963 1970 1978 1979 1981 1983 1989 1996 1998 2003 1031 25 2545 2675 2726 2775 2805 2828 2848 2863 2882 2890 2896 2905 2912 2916 2925 2922 2924 2922 2917 2926 2923 2926 2925 2930 2941 2947 2955 2967 2976 2977 2977 2981 2986 2994 2993 2997 1032 26 3812 4006 4106 4196 4248 4296 4336 4363 4396 4407 4419 4430 4440 4447 4460 4454 4456 4452 4440 4453 4447 4448 4445 4449 4462 4472 4483 4496 4509 4506 4506 4508 4512 4521 4517 4523 1033 27 5010 5302 5458 5592 5677 5750 5822 5874 5928 5952 5977 6004 6021 6038 6059 6052 6058 6055 6046 6063 6054 6057 6055 6066 6085 6099 6118 6138 6150 6147 6146 6145 6151 6164 6160 6170 1034 28 6522 6904 7136 7338 7477 7592 7703 7784 7864 7904 7941 7979 8011 8034 8065 8055 8062 8060 8043 8064 8055 8063 8058 8072 8098 8114 8139 8163 8181 8174 8169 8167 8173 8190 8177 8187 1035 29 7231 7680 7946 8173 8332 8470 8598 8696 8798 8852 8910 8968 9009 9031 9059 9043 9045 9036 9010 9026 9020 9035 9034 9047 9078 9097 9121 9142 9158 9148 9140 9133 9135 9146 9135 9147 1036 210 0225 0244 0242 0245 0248 0248 0249 0250 0254 0255 0256 0259 0260 0263 0266 0266 0268 0272 0273 0277 0278 0281 0284 0287 0290 0294 0298 0302 0306 0310 0313 0315 0319 0327 0329 0329 1037 211 0304 0320 0315 0318 0326 0327 0331 0328 0333 0334 0337 0339 0341 0344 0347 0350 0352 0355 0356 0360 0363 0366 0369 0372 0377 0380 0384 0389 0393 0399 0402 0406 0410 0415 0418 0424 1038 212 0548 0569 0569 0577 0582 0581 0584 0585 0591 0590 0589 0592 0594 0596 0598 0599 0601 0601 0602 0606 0608 0610 0613 0616 0620 0625 0627 0633 0637 0641 0644 0646 0650 0655 0660 0662 1039 213 0891 0921 0937 0944 0949 0957 0960 0957 0965 0965 0966 0967 0968 0970 0973 0972 0973 0973 0973 0976 0976 0979 0979 0982 0986 0989 0993 0999 1003 1005 1007 1010 1013 1018 1021 1026 1040 214 1277 1339 1368 1379 1393 1399 1407 1409 1417 1419 1420 1424 1425 1427 1432 1431 1432 1432 1428 1435 1435 1438 1439 1443 1448 1452 1459 1466 1473 1473 1476 1480 1484 1491 1494 1503 1041 215 1641 1718 1746 1775 1789 1804 1812 1820 1833 1836 1842 1848 1853 1857 1864 1864 1867 1868 1866 1874 1875 1878 1881 1885 1894 1900 1909 1918 1926 1928 1934 1937 1943 1952 1954 1958 1042 216 1965 2042 2087 2118 2140 2153 2167 2178 2193 2195 2200 2205 2209 2214 2221 2219 2221 2221 2219 2227 2226 2230 2233 2239 2247 2254 2263 2273 2280 2282 2286 2287 2294 2305 2306 2312 1043 217 2407 2503 2561 2604 2632 2649 2669 2683 2701 2705 2712 2722 2727 2731 2739 2735 2737 2736 2731 2739 2738 2739 2739 2745 2753 2761 2770 2781 2789 2787 2790 2791 2795 2804 2805 2810 1044 218 3017 3185 3251 3319 3351 3387 3415 3437 3462 3468 3478 3487 3494 3501 3511 3508 3512 3510 3503 3514 3512 3514 3514 3521 3533 3541 3552 3565 3575 3576 3575 3577 3584 3591 3591 3595 1045 219 3541 3712 3803 3882 3930 3968 4009 4035 4066 4078 4091 4104 4114 4122 4135 4132 4134 4130 4123 4137 4131 4135 4133 4140 4151 4161 4175 4190 4199 4199 4198 4199 4205 4215 4213 4220 1046 220 4162 4396 4522 4626 4687 4741 4794 4829 4869 4886 4901 4919 4934 4944 4957 4951 4955 4952 4944 4959 4952 4954 4953 4960 4974 4986 5000 5017 5028 5026 5026 5026 5029 5041 5039 5044 1047 221 4874 5142 5292 5419 5506 5575 5643 5692 5748 5773 5798 5828 5849 5866 5886 5882 5889 5886 5875 5895 5887 5890 5889 5899 5919 5933 5950 5968 5983 5981 5980 5981 5986 5998 5992 6002 1048 222 5507 5839 6008 6169 6276 6368 6453 6516 6583 6615 6645 6675 6700 6720 6747 6743 6750 6749 6739 6760 6752 6757 6756 6770 6791 6805 6828 6850 6863 6860 6859 6860 6868 6884 6878 6888 1049 223 6289 6662 6881 7058 7189 7296 7397 7476 7555 7597 7639 7684 7720 7744 7774 7768 7776 7775 7760 7781 7775 7782 7780 7794 7819 7837 7864 7886 7903 7898 7893 7892 7898 7916 7907 7912 1050 224 6964 7372 7623 7842 7992 8120 8240 8335 8425 8472 8516 8562 8595 8620 8647 8636 8640 8635 8616 8636 8629 8643 8644 8659 8688 8705 8730 8753 8769 8756 8751 8744 8749 8762 8755 8762 1051 225 7180 7617 7876 8097 8255 8385 8515 8614 8715 8775 8840 8902 8944 8968 8995 8978 8981 8973 8945 8962 8960 8984 8989 9006 9037 9059 9084 9108 9123 9114 9105 9097 9099 9114 9098 9106 1052 226 0673 0538 0437 0377 0343 0333 0346 0396 0525 0924 2071 4089 6157 7502 8113 8304 8381 8412 8401 8424 8473 8629 8753 8828 8881 8911 8938 8965 8981 8971 8965 8958 8963 8978 8966 8968 1053 227 0559 0850 1340 1805 2038 2325 2671 2759 2565 2292 1967 1659 1421 1182 0892 0639 0485 0375 0274 0227 0267 0441 0624 0697 0719 0724 0726 0754 0812 0858 0851 0816 0756 0696 0692 0740 1054 21 0291 0287 0299 0299 0300 0301 0303 0303 0306 0307 0310 0312 0315 0317 0320 0322 0324 0326 0327 0331 0333 0335 0339 0341 0346 0349 0354 0357 0361 0366 0369 0373 0376 0382 0386 0389 1055 22 0428 0442 0438 0444 0446 0447 0448 0450 0453 0455 0457 0460 0462 0465 0468 0469 0471 0473 0475 0479 0480 0484 0487 0490 0494 0498 0503 0508 0513 0517 0519 0524 0527 0534 0537 0542 1056 23 0981 1011 1035 1049 1053 1062 1067 1068 1076 1076 1078 1084 1087 1089 1092 1093 1095 1096 1094 1099 1099 1102 1104 1108 1114 1119 1124 1131 1136 1139 1141 1145 1148 1155 1159 1168 1057 24 1638 1723 1753 1777 1793 1804 1813 1819 1831 1832 1838 1844 1848 1852 1857 1855 1858 1857 1855 1861 1860 1862 1863 1868 1874 1878 1885 1895 1902 1903 1905 1908 1914 1922 1926 1931 1058 25 2490 2598 2651 2695 2722 2747 2765 2780 2801 2809 2818 2831 2838 2844 2852 2848 2850 2849 2845 2853 2851 2854 2854 2860 2869 2878 2886 2897 2905 2905 2905 2909 2913 2922 2922 2928 1059 26 3766 3969 4062 4142 4197 4234 4277 4308 4342 4354 4368 4385 4395 4404 4415 4408 4410 4407 4398 4411 4402 4402 4401 4406 4421 4429 4439 4453 4462 4463 4462 4462 4464 4474 4469 4479 1060 27 4987 5272 5423 5554 5643 5722 5787 5842 5897 5922 5950 5981 6002 6017 6035 6032 6038 6035 6022 6039 6032 6036 6034 6041 6062 6074 6093 6113 6123 6118 6117 6116 6124 6138 6131 6139 1061 28 6476 6863 7091 7284 7419 7540 7649 7733 7816 7860 7902 7944 7977 8000 8030 8025 8034 8031 8016 8039 8028 8032 8029 8040 8067 8085 8106 8133 8147 8140 8138 8133 8138 8153 8143 8160 1062 29 7235 7654 7922 8144 8306 8444 8571 8671 8772 8832 8894 8957 9001 9030 9061 9051 9052 9047 9020 9037 9026 9037 9034 9048 9078 9096 9121 9147 9162 9150 9142 9135 9136 9152 9138 9152 1063 210 0221 0224 0227 0226 0224 0230 0231 0234 0238 0236 0239 0240 0243 0245 0247 0249 0251 0254 0255 0258 0261 0262 0264 0267 0271 0273 0277 0282 0285 0288 0291 0294 0296 0302 0304 0313 1064 211 0283 0298 0302 0307 0308 0310 0313 0312 0315 0316 0318 0321 0323 0326 0329 0331 0334 0335 0338 0341 0343 0346 0350 0354 0357 0361 0365 0369 0374 0378 0382 0386 0391 0395 0400 0403 1065 212 0528 0545 0546 0557 0557 0560 0565 0565 0569 0569 0570 0571 0572 0575 0577 0578 0580 0581 0582 0586 0587 0589 0590 0594 0598 0601 0605 0610 0614 0618 0619 0622 0626 0631 0638 0641 1066 213 0880 0910 0932 0939 0940 0948 0954 0954 0961 0958 0959 0961 0963 0965 0967 0966 0968 0969 0968 0971 0971 0973 0974 0978 0982 0987 0991 0995 0999 1002 1003 1006 1011 1018 1021 1029 1067 214 1244 1305 1329 1346 1360 1366 1376 1377 1385 1386 1389 1391 1393 1395 1400 1400 1401 1401 1399 1405 1404 1405 1408 1412 1417 1422 1428 1435 1441 1441 1444 1447 1452 1460 1463 1470 1068 215 1629 1690 1716 1750 1759 1776 1786 1792 1805 1808 1813 1820 1823 1828 1834 1834 1837 1837 1836 1844 1845 1849 1851 1856 1865 1870 1878 1888 1895 1898 1901 1905 1911 1920 1922 1930 1069 216 1912 1998 2034 2069 2089 2104 2118 2127 2141 2146 2150 2157 2162 2168 2175 2172 2177 2178 2175 2183 2182 2186 2187 2194 2201 2208 2215 2226 2235 2237 2239 2242 2248 2254 2258 2261 1070 217 2431 2541 2602 2645 2676 2696 2718 2730 2748 2753 2761 2768 2775 2779 2786 2783 2784 2782 2775 2784 2781 2783 2783 2789 2798 2802 2810 2821 2829 2829 2829 2830 2833 2843 2843 2850 1071 218 2967 3118 3196 3256 3291 3326 3355 3375 3402 3411 3420 3432 3440 3447 3456 3451 3456 3454 3450 3460 3457 3460 3461 3468 3478 3486 3498 3512 3520 3519 3520 3523 3527 3537 3539 3545 1072 219 3510 3680 3775 3849 3898 3940 3976 4003 4038 4048 4063 4076 4089 4098 4110 4104 4110 4107 4098 4110 4104 4106 4106 4112 4123 4132 4143 4157 4167 4166 4166 4166 4171 4182 4180 4184 1073 220 4144 4358 4481 4576 4649 4705 4755 4791 4832 4849 4865 4885 4899 4909 4925 4922 4925 4925 4917 4931 4923 4923 4922 4932 4948 4959 4973 4988 4998 4996 4996 4993 5000 5010 5009 5014 1074 221 4821 5092 5233 5360 5442 5508 5575 5628 5682 5707 5737 5767 5788 5807 5827 5822 5830 5828 5818 5833 5826 5828 5827 5838 5856 5873 5889 5908 5922 5918 5918 5918 5924 5936 5932 5943 1075 222 5485 5783 5969 6121 6223 6310 6393 6451 6516 6545 6575 6608 6633 6652 6677 6672 6679 6679 6668 6690 6683 6686 6684 6697 6720 6736 6757 6780 6795 6790 6789 6790 6799 6812 6810 6818 1076 223 6213 6582 6785 6974 7098 7209 7310 7383 7464 7504 7547 7593 7629 7653 7686 7679 7688 7685 7673 7698 7688 7692 7689 7706 7733 7750 7773 7797 7813 7807 7805 7801 7809 7823 7812 7825 1077 224 6934 7350 7587 7806 7945 8076 8193 8281 8369 8413 8457 8501 8536 8560 8588 8578 8582 8577 8560 8581 8577 8590 8591 8607 8637 8656 8683 8708 8725 8713 8706 8701 8708 8723 8708 8720 1078 225 7190 7618 7878 8102 8255 8393 8517 8618 8714 8771 8829 8887 8927 8951 8973 8956 8960 8952 8926 8945 8948 8979 8990 9010 9042 9064 9091 9114 9131 9118 9114 9104 9104 9119 9100 9108 1079 226 0174 0182 0196 0194 0189 0198 0223 0274 0383 0709 1659 3312 4724 5136 4724 3932 3093 2300 1643 1237 1021 0900 0801 0725 0688 0669 0661 0686 0748 0795 0786 0750 0682 0619 0610 0661 1080 227 2180 2287 2471 2613 2702 2793 2838 2665 2352 1998 1631 1309 1096 0908 0691 0534 0493 0503 0467 0443 0732 2016 4039 5694 6644 7106 7318 7429 7505 7534 7534 7517 7491 7470 7452 7487 ] def %END RX0F } if %ypaper=4 %***************************************************************************** %END spectral reflection data, cmyn6*, 1080 colours, offset A,B,L,G, printer P %END 'QS59'OUTLIN1Y2_PK8940.PS %END_OUTLIN1Y_PK8940********************************************************** /BeginEPSF {% def % Prepare for EPS file /b4_Inc_state save def % Save state for cleanup /dict_count countdictstack def /op_count count 1 sub def % Count objects on op stack userdict begin % Make userdict current dict /showpage {} def 0 setgray 0 setlinecap 1 setlinewidth 0 setlinejoin 10 setmiterlimit [] 0 setdash newpath /languagelevel where % If level not equal to 1 then {pop languagelevel where % If level not equal to 1 then 1 ne {false setstrokeadjust false setoverprint } if } if } bind def /EndEPSF {% def % End for EPS file count op_count sub {pop} repeat countdictstack dict_count sub {end} repeat % Clean up dict stack b4_Inc_state restore } bind def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /A4querF {598 0 translate 90 rotate} 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 /cvishow {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 %ANFA CMYKDEF %CMYKDEA0 (A0=Standard-Drucker-CMYKDEF) 15.3.97 /tzac [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzam [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzay [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzan [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tza0 [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000] def /tza1 [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000] def %ENDE CMYKD /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 /colrecfiLAB* %x y width heigth LAB* { setcolor rec fill} bind def /colrecstLAB* %x y width heigth LAB* { setcolor rec stroke} bind def /colrecficmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec fill} bind def /colrecstcmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec stroke} bind def /colrecfiw* %x y width heigth w* { setgray rec fill} bind def /colrecstw* %x y width heigth w* { setgray rec stroke} bind def /colrecfiolv* %x y width heigth olv* { setrgbcolor rec fill} bind def /colrecstolv* %x y width heigth olv* { setrgbcolor rec stroke} bind def /tzocmy0* {0.0 1.0 1.0 0.0} bind def %Reproduction colours /tzlcmy0* {1.0 0.0 1.0 0.0} bind def %cmyn* setcmykcolor /tzvcmy0* {1.0 1.0 0.0 0.0} bind def /tzccmy0* {1.0 0.0 0.0 0.0} bind def /tzmcmy0* {0.0 1.0 0.0 0.0} bind def /tzycmy0* {0.0 0.0 1.0 0.0} bind def /tzoolv* {1.0 0.0 0.0} bind def %Reproduction colours /tzlolv* {0.0 1.0 0.0} bind def %olv* setrgbcolor /tzvolv* {0.0 0.0 1.0} bind def /tzcolv* {0.0 1.0 1.0} bind def /tzmolv* {1.0 0.0 1.0} bind def /tzyolv* {1.0 1.0 0.0} bind def /tzoLAB* [53.34 72.46 50.66] def %Reproduction colours /tzlLAB* [84.93 -79.83 74.80] def %LAB* setcolor /tzvLAB* [32.20 24.88 -37.89] def /tzcLAB* [88.10 -44.88 -13.36] def /tzmLAB* [59.66 90.32 -19.65] def /tzyLAB* [93.76 -20.24 85.93] def /tzncmy0* {1.00 1.00 1.00 0.00} bind def %grey series /tzdcmy0* {0.75 0.75 0.75 0.00} bind def %cmy0* setcmykcolor /tzzcmy0* {0.50 0.50 0.50 0.00} bind def /tzhcmy0* {0.25 0.25 0.25 0.00} bind def /tzwcmy0* {0.00 0.00 0.00 0.00} bind def /tzn000n* {0.00 0.00 0.00 1.00} bind def %grey series 000n* /tzd000n* {0.00 0.00 0.00 0.75} bind def %000n* setcmykcolor /tzz000n* {0.00 0.00 0.00 0.50} bind def /tzh000n* {0.00 0.00 0.00 0.25} bind def /tzw000n* {0.00 0.00 0.00 0.00} bind def /tznw* {0.00} bind def %grey series /tzdw* {0.25} bind def %w* setgray /tzzw* {0.50} bind def /tzhw* {0.75} bind def /tzww* {1.00} bind def /tznolv* {0.00 0.00 0.00} bind def %grey series /tzdolv* {0.25 0.25 0.25} bind def %olv* setrgbcolor /tzzolv* {0.50 0.50 0.50} bind def /tzholv* {0.75 0.75 0.75} bind def /tzwolv* {1.00 1.00 1.00} bind def /tznLAB* [18.01 0.00 0.00] def %grey series /tzdLAB* [37.36 0.00 0.00] def %LAB* setcolor /tzzLAB* [56.71 0.00 0.00] def /tzhLAB* [76.06 0.00 0.00] def /tzwLAB* [95.41 0.00 0.00] def /tfn {0 setgray} bind def /tfw {1 setgray} bind def %%EndProlog %*********************************************************** %%BeginPageSetup /#copies 1 def %A4querF 1.0 1.0 scale /pgsave save def %%EndPageSetup /SS$ [(G) (E) (S) (F) (I) (J) (M)] def /SC$ [(N) (F) (S) (D) (T) (E) (C)] def /SX$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def /SY$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def % 0 1 2 3 4 5 % 6 7 8 /EX$ [(A.TXT /.PS) (B.BMP /.PS) (G.GIF /.PS) (H.HTM /.PS) (I.HTM /.PS) (J.JPE /.PS) (P.PDF /.PS) (T.TIF /.PS)] def /EY$ [(A.DAT) (B.DAT) (G.DAT) (H.DAT) (I.DAT) (J.DAT) (P.DAT) (T.DAT)] def %******************************************************************* /lanind1f 02 def /lanind2f 02 def /laninddf 01 def /colorm1f 01 def /colorm2f 01 def /colormdf 01 def /deintp1f 00 def /deintp2f 00 def /deintpdf 01 def /xcolor1f 03 def /xcolor2f 03 def /xcolordf 01 def /xchart1f 01 def /xchart2f 01 def /xchartdf 01 def %0-1,2-5,6-16,17-32 /xchart3f 01 def /xchart4f 07 def /xchart5f 03 def /pchart1f 03 def /pchart2f 03 def /pchartdf 01 def %=3 for sRGB, Lr=0 /colsep1f 00 def /colsep2f 00 def /colsepdf 01 def /pmetam1f 00 def /pmetam2f 00 def /pmetamdf 01 def %/lanindf lanind1f def % /lanindf lanind1f def %lanind1f laninddf lanind2f {/lanindf exch def %/colormf colorm1f def % /colormf colorm1f def %colorm1f colormdf colorm2f {/colormf exch def %/deintpf deintp1f def % /deintpf deintp1f def %deintp1f deintpdf deintp2f {/deintpf exch def %/xcolorf xcolor1f def % /xcolorf xcolor1f def %xcolor1f xcolordf xcolor2f {/xcolorf exch def %/xchartf xchart1f def % /xchartf xchart1f def %xchart1f xchartdf xchart2f {/xchartf exch def %/pchartf pchart1f def % /pchartf pchart1f def %pchart1f pchartdf pchart2f {/pchartf exch def %/colsepf colsep1f def % /colsepf colsep1f def %colsep1f colsepdf colsep2f {/colsepf exch def /lanind lanindf def /colorm colormf def /deintp deintpf def /xcolor xcolorf def /xchart xchartf def /xchartm xchart2f xchart1f sub 1 add def /xchart3 xchart3f def /xchart3PXX xchart3 15 add def /xchart4 xchart4f def /pchart pchartf def /colsep colsepf def %/pmetamf pmetam1f def % /pmetamf pmetam1f def %pmetam1f pmetamdf pmetam2f {/pmetamf exch def /pmetam pmetamf def %************************************************************* xchart xchart3 lt {%xchart=xchart3 for CM %BEG special for ColorInterpolation /xchartj pchart def %sRGB, Lr=0%, pchart=3 /hei -1 def /heM -1 def /ausz 8 def /xchartt (F) def %necessary PROC_LAB_IOF %PROC_RX0F_IOF PROC_COLSEP_IOF colorm 1 eq {PROC_COLINT_IOF} if %PROC_COLINT_IOF %PROC_SPEC_IOF %Colordata_sRGB_F %new %setcolortrans_F %new proc_LAB729a_to_LAB*LabCh64M proc_LAB*LabCh64M_to_tab362_dy %END special for ColorInterpolation %********************************************************* } ifelse %xchart>=xchart3 for CM xchart xchart3PXX le {72 90 translate} {72 56 translate} ifelse 0.01 MM dup scale %0 0 moveto 24600 0 rlineto 0 17220 rlineto % -24600 0 rlineto closepath stroke 200 -180 moveto 180 /Times-ISOL1 FS lanindf cvishow (-) show colormf cvishow deintpf cvishow xcolorf cvishow xchartf cvishow pchartf cvishow colsepf cvishow (-F) show pmetamf cvishow grestore gsave /GSS$ SS$ lanind get def /GSC$ SC$ colorm get def /GSX$ SX$ xcolor xcolor 16 idiv 16 mul sub get def /GSY$ SY$ xchart xchart 16 idiv 16 mul sub get def /GEX$ EX$ 6 get def /GEY$ EY$ 6 get def %01 %02 %03 %04 %05 %06 %07 %08 %09 %10 %11 %12 %13 %14 xchart xchart3PXX le {%xchart<=xchart3PXX %gsave BeginEPSF 28 MM 197 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto 1 1 scale -77 -91 translate %%BeginDocument: Bild 10 %line 329 %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto 1 1 scale -77 -91 translate %%BeginDocument: Bild 11 %line 339 %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 12 %line 349 %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 13 %line 359 %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 14 %line 369 %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 15 %line 379 %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 16 %line 389 %%EndDocument EndEPSF grestore gsave BeginEPSF /xc1 16 def /yc1 12 def /xt 1 def xchart 1 eq {/xt 1 def} if 28 MM 3 MM sub xt 0 eq {16 MM sub} if 20 MM xt 0 eq {12 MM sub} if translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 17 %line 399 %!PS-Adobe-3.0 EPSF-3.0 QS590-7N.EPS %%BoundingBox: 70 82 786 582 %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/QS59/) /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:2012030112000) /ModDate (D:2012030112000) /DOCINFO pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 %END PDFDE011 %line 20 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /A4quer {598 0 translate 90 rotate} def % !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 /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-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 /TK0 {250 /Times-ISOL1 FS} bind def /TM0 {300 /Times-ISOL1 FS} bind def /TG0 {350 /Times-ISOL1 FS} bind def /TIK0 {250 /TimesI-ISOL1 FS} bind def /TIM0 {300 /TimesI-ISOL1 FS} bind def /TIG0 {350 /TimesI-ISOL1 FS} bind def /TBK0 {250 /TimesB-ISOL1 FS} bind def /TBM0 {300 /TimesB-ISOL1 FS} bind def /TBG0 {350 /TimesB-ISOL1 FS} bind def /TBIK0 {250 /TimesBI-ISOL1 FS} bind def /TBIM0 {300 /TimesBI-ISOL1 FS} bind def /TBIG0 {350 /TimesBI-ISOL1 FS} bind def /CKK0 {200 /Courier-ISOL1 FS} bind def /CK0 {250 /Courier-ISOL1 FS} bind def /CM0 {300 /Courier-ISOL1 FS} bind def /CG0 {350 /Courier-ISOL1 FS} bind def /CBKK0 {200 /CourierB-ISOL1 FS} bind def /CBK0 {250 /CourierB-ISOL1 FS} bind def /CBM0 {300 /CourierB-ISOL1 FS} bind def /CBG0 {350 /CourierB-ISOL1 FS} bind def /TV1 {160 /Times-ISOL1 FS} bind def /TS1 {200 /Times-ISOL1 FS} bind def /TK1 {250 /Times-ISOL1 FS} bind def /TM1 {300 /Times-ISOL1 FS} bind def /TG1 {350 /Times-ISOL1 FS} bind def /TIV1 {160 /TimesI-ISOL1 FS} bind def /TIS1 {200 /TimesI-ISOL1 FS} bind def /TIK1 {250 /TimesI-ISOL1 FS} bind def /TIM1 {300 /TimesI-ISOL1 FS} bind def /TIG1 {350 /TimesI-ISOL1 FS} bind def /TBV1 {160 /TimesB-ISOL1 FS} bind def /TBS1 {200 /TimesB-ISOL1 FS} bind def /TBK1 {250 /TimesB-ISOL1 FS} bind def /TBM1 {300 /TimesB-ISOL1 FS} bind def /TBG1 {350 /TimesB-ISOL1 FS} bind def /TBIV1 {080 /TimesBI-ISOL1 FS} bind def /TBIS1 {100 /TimesBI-ISOL1 FS} bind def /TBIK1 {250 /TimesBI-ISOL1 FS} bind def /TBIM1 {300 /TimesBI-ISOL1 FS} bind def /TBIG1 {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 /CBKKK {160 /CourierB-ISOL1 FS} bind def /TV {080 /Times-ISOL1 FS} bind def /TS {100 /Times-ISOL1 FS} bind def /TK {125 /Times-ISOL1 FS} bind def /TM {140 /Times-ISOL1 FS} bind def /TG {175 /Times-ISOL1 FS} bind def /TIV {080 /TimesI-ISOL1 FS} bind def /TIS {100 /TimesI-ISOL1 FS} bind def /TIK {125 /TimesI-ISOL1 FS} bind def /TIM {140 /TimesI-ISOL1 FS} bind def /TIG {175 /TimesI-ISOL1 FS} bind def /TBV {080 /TimesB-ISOL1 FS} bind def /TBS {100 /TimesB-ISOL1 FS} bind def /TBK {125 /TimesB-ISOL1 FS} bind def /TBM {140 /TimesB-ISOL1 FS} bind def /TBG {175 /TimesB-ISOL1 FS} bind def /TBIV {080 /TimesBI-ISOL1 FS} bind def /TBIS {100 /TimesBI-ISOL1 FS} bind def /TBIK {125 /TimesBI-ISOL1 FS} bind def /TBIM {140 /TimesBI-ISOL1 FS} bind def /TBIG {175 /TimesBI-ISOL1 FS} 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 /cvishow {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 %************************************************************ /RGB54CR_L 162 array def %54x3=162 /RGB54CR_L [%54 colours of colour rendering (CR) test chart 1.000 0.000 0.000 %01 R00Yd %RGB54CR 1.000 0.250 0.000 %02 R25Yd 1.000 0.500 0.000 %03 R50Yd 1.000 0.750 0.000 %04 R75Yd 1.000 1.000 0.000 %05 Y00Gd 0.750 1.000 0.000 %06 Y25Gd 0.500 1.000 0.000 %07 Y50Gd 0.250 1.000 0.000 %08 Y75Gd 0.000 1.000 0.000 %09 G00Bd = 10 0.000 1.000 0.000 %10 G00Bd 0.000 1.000 0.500 %11 G25Bd 0.000 1.000 1.000 %12 G50Bd 0.000 0.500 1.000 %13 G75Bd 0.000 0.000 1.000 %14 B00Rd 0.500 0.000 1.000 %15 B25Rd 1.000 0.000 1.000 %16 B50Rd 1.000 0.000 0.500 %17 B75Rd 1.000 0.000 0.000 %18 R00Yd = 01 1.000 0.500 0.500 %19 R00Yd %lcolors 1.000 0.750 0.500 %20 R50Yd 1.000 1.000 0.500 %21 Y00Gd 0.750 1.000 0.500 %22 Y50Gd 0.500 1.000 0.500 %23 G00Bd 0.500 1.000 1.000 %24 G50Bd 0.500 0.500 1.000 %25 B00Rd 1.000 0.500 1.000 %26 B50Rd 1.000 0.500 0.500 %27 R00Yd = 19 0.750 0.250 0.250 %28 R00Yd %zcolors 0.750 0.500 0.250 %29 R50Yd 0.750 0.750 0.250 %30 Y00Gd 0.500 0.750 0.250 %31 Y50Gd 0.250 0.750 0.250 %32 G00Bd 0.250 0.750 0.750 %33 G50Bd 0.250 0.250 0.750 %34 B00Rd 0.750 0.250 0.750 %35 B50Rd 0.750 0.250 0.250 %36 R00Yd = 28 0.500 0.000 0.000 %37 R00Yd %dcolors 0.500 0.250 0.000 %38 R50Yd 0.500 0.500 0.000 %38 Y00Gd 0.250 0.500 0.000 %40 Y50Gd 0.000 0.500 0.000 %41 G00Bd 0.000 0.500 0.500 %42 G50Bd 0.000 0.000 0.500 %43 B00Rd 0.500 0.000 0.500 %44 B50Rd 0.500 0.000 0.000 %45 R00Yd = 37 0.000 0.000 0.000 %46 N00Wd %ncolors 0.125 0.125 0.125 %47 N13Wd 0.250 0.250 0.250 %48 N25Md 0.375 0.375 0.375 %49 N38Wd 0.500 0.500 0.500 %50 N50Wd 0.625 0.625 0.625 %51 N63Wd 0.750 0.750 0.750 %52 N75Wd 0.875 0.875 0.875 %53 N88Wd 1.000 1.000 1.000 %54 W00Nd = W ] def %54 colours of colour rendering test chart /RGB54CRt_L 54 array def /RGB54CRt_L [%high chromatic series: %relative hue h*, brillance i*, and chroma c*, range 0 ... 100 (R00Y_100_100) (R25Y_100_100) (R50Y_100_100) (R75Y_100_100) (Y00G_100_100) (Y25G_100_100) (Y50G_100_100) (Y75G_100_100) (G00B_100_100) (G00B_100_100) (G25B_100_100) (G50B_100_100) (G75B_100_100) (B00R_100_100) (B25R_100_100) (B50R_100_100) (B75R_100_100) (R00Y_100_100) %whitetish series (R00Y_100_050) (R50Y_100_050) (Y00G_100_050) (Y50G_100_050) (G00B_100_050) (G50B_100_050) (B00R_100_050) (B50R_100_050) (R00Y_100_050) %grayish series (R00Y_075_050) (R50Y_075_050) (Y00G_075_050) (Y50G_075_050) (G00B_075_050) (G50B_075_050) (B00R_075_050) (B50R_075_050) (R00Y_075_050) %blackish series (R00Y_050_050) (R50Y_050_050) (Y00G_050_050) (Y50G_050_050) (G00B_050_050) (G50B_050_050) (B00R_050_050) (B50R_050_050) (R00Y_050_050) %gray series (NW_000) (NW_013) (NW_025) (NW_038) (NW_050) (NW_063) (NW_075) (NW_088) (NW_100) ] def /RGB54CM_L 162 array def %54x3=162 /RGB54CM_L [%54 colours of colour rendering metamers (CM) test chart 0.750 0.250 0.250 %01 R00Yd %RGB54CM, zcolors 0.750 0.500 0.250 %02 R50Yd 0.750 0.750 0.250 %03 Y00Gd 0.500 0.750 0.250 %04 Y50Gd 0.250 0.750 0.250 %05 G00Bd 0.250 0.750 0.750 %06 G50Bd 0.250 0.250 0.750 %07 B00Rd 0.750 0.250 0.750 %08 B50Rd 0.750 0.250 0.250 %09 R00Yd = 28 0.750 0.250 0.250 %10 R00Yd %RGB54CM, zcolors 0.750 0.500 0.250 %11 R50Yd 0.750 0.750 0.250 %12 Y00Gd 0.500 0.750 0.250 %13 Y50Gd 0.250 0.750 0.250 %14 G00Bd 0.250 0.750 0.750 %15 G50Bd 0.250 0.250 0.750 %16 B00Rd 0.750 0.250 0.750 %17 B50Rd 0.750 0.250 0.250 %18 R00Yd = 28 0.750 0.250 0.250 %19 R00Yd %RGB54CM, zcolors 0.750 0.500 0.250 %20 R50Yd 0.750 0.750 0.250 %21 Y00Gd 0.500 0.750 0.250 %22 Y50Gd 0.250 0.750 0.250 %23 G00Bd 0.250 0.750 0.750 %24 G50Bd 0.250 0.250 0.750 %25 B00Rd 0.750 0.250 0.750 %26 B50Rd 0.750 0.250 0.250 %27 R00Yd = 28 0.000 0.000 0.000 %28 N00Wd %ncolors 0.125 0.125 0.125 %29 N13Wd 0.250 0.250 0.250 %30 N25Md 0.375 0.375 0.375 %31 N38Wd 0.500 0.500 0.500 %32 N50Wd 0.625 0.625 0.625 %33 N63Wd 0.750 0.750 0.750 %34 N75Wd 0.875 0.875 0.875 %35 N88Wd 1.000 1.000 1.000 %36 W00Nd = W 0.000 0.000 0.000 %37 N00Wd %ncolors 0.125 0.125 0.125 %38 N13Wd 0.250 0.250 0.250 %39 N25Md 0.375 0.375 0.375 %40 N38Wd 0.500 0.500 0.500 %41 N50Wd 0.625 0.625 0.625 %42 N63Wd 0.750 0.750 0.750 %43 N75Wd 0.875 0.875 0.875 %44 N88Wd 1.000 1.000 1.000 %45 W00Nd = W 0.000 0.000 0.000 %46 N00Wd %ncolors 0.125 0.125 0.125 %47 N13Wd 0.250 0.250 0.250 %48 N25Md 0.375 0.375 0.375 %49 N38Wd 0.500 0.500 0.500 %50 N50Wd 0.625 0.625 0.625 %51 N63Wd 0.750 0.750 0.750 %52 N75Wd 0.875 0.875 0.875 %53 N88Wd 1.000 1.000 1.000 %54 W00Nd = W ] def %54 colours of colour rendering test chart /RGB54CMt_L 54 array def /RGB54CMt_L [%3 times chromatic grayish series, 3 times gray series %relative hue h*, brillance i*, and chroma c*, range 0 ... 100 %grayish series (R00Y_075_050) (R50Y_075_050) (Y00G_075_050) (Y50G_075_050) (G00B_075_050) (G50B_075_050) (B00R_075_050) (B50R_075_050) (R00Y_075_050) %grayish series (R00Y_075_050) (R50Y_075_050) (Y00G_075_050) (Y50G_075_050) (G00B_075_050) (G50B_075_050) (B00R_075_050) (B50R_075_050) (R00Y_075_050) %grayish series (R00Y_075_050) (R50Y_075_050) (Y00G_075_050) (Y50G_075_050) (G00B_075_050) (G50B_075_050) (B00R_075_050) (B50R_075_050) (R00Y_075_050) %gray series (NW_000) (NW_013) (NW_025) (NW_038) (NW_050) (NW_063) (NW_075) (NW_088) (NW_100) %gray series (NW_000) (NW_013) (NW_025) (NW_038) (NW_050) (NW_063) (NW_075) (NW_088) (NW_100) %gray series (NW_000) (NW_013) (NW_025) (NW_038) (NW_050) (NW_063) (NW_075) (NW_088) (NW_100) ] def %****************************************************** /F49col00 147 array def %48+1x3 /F49col00 [%Hue circle no. 0 to 47+1; hue circle de 1.000 0.000 0.000 %00 r00ye r00yd %standard e or d interpretation 1.000 0.125 0.000 %01 r12ye r12yd 1.000 0.250 0.000 %02 r25ye r25yd 1.000 0.375 0.000 %03 r37ye r37yd 1.000 0.500 0.000 %04 r50ye r50yd 1.000 0.625 0.000 %05 r62ye r62yd 1.000 0.750 0.000 %06 r75ye r75yd 1.000 0.875 0.000 %07 r87ye r87yd 1.000 1.000 0.000 %08 y00ge y00gd 0.875 1.000 0.000 %09 y12ge y12gd 0.750 1.000 0.000 %10 y25ge y25gd 0.625 1.000 0.000 %11 y37ge y37gd 0.500 1.000 0.000 %12 y50ge y50gd 0.375 1.000 0.000 %13 y62ge y62gd 0.250 1.000 0.000 %14 y75ge y75gd 0.125 1.000 0.000 %15 y87ge y87gd 0.000 1.000 0.000 %16 g00be g00cd 0.000 1.000 0.125 %17 g06be g12cd 0.000 1.000 0.250 %18 g12be g25cd 0.000 1.000 0.375 %19 g18be g37cd 0.000 1.000 0.500 %20 g25be g50cd 0.000 1.000 0.625 %21 g31be g62cd 0.000 1.000 0.750 %22 g37be g75cd 0.000 1.000 0.875 %23 g43be g87cd 0.000 1.000 1.000 %24 g50be c00bd 0.000 0.875 1.000 %25 g56be c12bd 0.000 0.750 1.000 %26 g62be c25bd 0.000 0.625 1.000 %27 g68be c37bd 0.000 0.500 1.000 %28 g75be c50bd 0.000 0.375 1.000 %29 g81be c62bd 0.000 0.250 1.000 %30 g87be c75bd 0.000 0.125 1.000 %31 g93be c87bd 0.000 0.000 1.000 %32 b00re b00md 0.125 0.000 1.000 %33 b06re b12md 0.250 0.000 1.000 %34 b12re b25md 0.375 0.000 1.000 %35 b18re b37md 0.500 0.000 1.000 %36 b24re b50md 0.625 0.000 1.000 %37 b31re b67md 0.750 0.000 1.000 %38 b37re b75md 0.875 0.000 1.000 %39 b43re b87md 1.000 0.000 1.000 %40 b50re m00rd 1.000 0.000 0.875 %41 b56re m12rd 1.000 0.000 0.750 %42 b62re m25rd 1.000 0.000 0.625 %43 b68re m37rd 1.000 0.000 0.500 %44 b75re m50rd 1.000 0.000 0.375 %45 b81re m62rd 1.000 0.000 0.250 %46 b87re m75rd 1.000 0.000 0.125 %47 b93re m87rd 1.000 0.000 0.000 %48 r00ye r00yd no. 0 ] def /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show ( ) show} def /cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show ( ) show} def /cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show ( ) show} def /tfn {0.00 0.00 0.00 setrgbcolor} bind def /tfd {0.25 0.25 0.25 setrgbcolor} bind def /tfz {0.50 0.50 0.50 setrgbcolor} bind def /tfh {0.75 0.75 0.75 setrgbcolor} bind def /tfw {1.00 1.00 1.00 setrgbcolor} 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 /outrecfi { %x y width heigth c m y k rec fill} bind def /outrecst { %x y width heigth c m y k rec stroke} bind def %******************************************************************* /proc_rgb_dyF_LAB*'dyF {%BEG proc_rgb_dyF_LAB*'dyF /R01000 r_dyF 1000 mul def /G01000 g_dyF 1000 mul def /B01000 b_dyF 1000 mul def R01000 0.04045 le %equations of IEC 61966-2-1:2003 {/RsRGB R01000 12.92 div def} {/RsRGB R01000 0.001 mul 0.055 add 1.055 div 2.4 exp def} ifelse G01000 0.04045 le {/GsRGB G01000 12.92 div def} {/GsRGB G01000 0.001 mul 0.055 add 1.055 div 2.4 exp def} ifelse B01000 0.04045 le {/BsRGB B01000 12.92 div def} {/BsRGB B01000 0.001 mul 0.055 add 1.055 div 2.4 exp def} ifelse /X*'dyF 0.4124 RsRGB mul 0.3576 GsRGB mul add 0.1805 BsRGB mul add 88.59 mul def /Y*'dyF 0.2126 RsRGB mul 0.7152 GsRGB mul add 0.0722 BsRGB mul add 88.59 mul def /Z*'dyF 0.0193 RsRGB mul 0.1192 GsRGB mul add 0.9505 BsRGB mul add 88.59 mul def % achromatic (D65) colours /XLWD65100 95.04 def /YLWD65100 100.00 def /ZLWD65100 108.88 def /XQ X*'dyF XLWD65100 div def /YQ Y*'dyF YLWD65100 div def /ZQ Z*'dyF ZLWD65100 div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if /L*'dyF YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse def /a*'dyF XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul def /b*'dyF YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul def /C*'dyF a*'dyF dup mul b*'dyF dup mul add 0.0001 add sqrt def /h*'dyF b*'dyF a*'dyF 0.0001 add atan def } bind def %END proc_rgb_dyF_LAB*'dyF %******************************************************** /proc_rgb'*dyF_LAB'*dyF {%BEG proc_rgb'*dyF_LAB'*dyF /R01000 r'*dyF 1000 mul def /G01000 g'*dyF 1000 mul def /B01000 b'*dyF 1000 mul def R01000 0.04045 le %equations of IEC 61966-2-1:2003 {/RsRGB R01000 12.92 div def} {/RsRGB R01000 0.001 mul 0.055 add 1.055 div 2.4 exp def} ifelse G01000 0.04045 le {/GsRGB G01000 12.92 div def} {/GsRGB G01000 0.001 mul 0.055 add 1.055 div 2.4 exp def} ifelse B01000 0.04045 le {/BsRGB B01000 12.92 div def} {/BsRGB B01000 0.001 mul 0.055 add 1.055 div 2.4 exp def} ifelse /X'*dyF 0.4124 RsRGB mul 0.3576 GsRGB mul add 0.1805 BsRGB mul add 88.59 mul def /Y'*dyF 0.2126 RsRGB mul 0.7152 GsRGB mul add 0.0722 BsRGB mul add 88.59 mul def /Z'*dyF 0.0193 RsRGB mul 0.1192 GsRGB mul add 0.9505 BsRGB mul add 88.59 mul def % achromatic (D65) colours /XLWD65100 95.04 def /YLWD65100 100.00 def /ZLWD65100 108.88 def /XQ X'*dyF XLWD65100 div def /YQ Y'*dyF YLWD65100 div def /ZQ Z'*dyF ZLWD65100 div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if /L'*dyF YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse def /a'*dyF XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul def /b'*dyF YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul def /C'*dyF a'*dyF dup mul b'*dyF dup mul add 0.0001 add sqrt def /h'*dyF b'*dyF a'*dyF 0.0001 add atan def } bind def %END proc_rgb'*dyF_LAB'*dyF %************************************************************* /proc_LAB*ioL {%BEG Procedure proc_LAB*ioL %requires ISRL*ioL=0,1,3 /RJGBLAB* 12 array def /RJGBLAB*[ 39.92 58.74 27.99 % R CIE No.09 elementary colours in LAB, D65 81.26 -2.89 71.56 % J CIE No.10 52.23 -42.42 13.60 % G CIE No.11 30.57 1.41 -46.47 % B CIE No.12 ] def /LAB* 132 array def %12x3=36 including N,W + 16x3=48 elementary system + 16x3=48 device system /LAB*a 132 array def /LAB*Hx 13 array def %0_to_6 8_to_12 for device and elemetary colours /LAB*00 24 array def /LAB*01 24 array def /LAB*02 24 array def /LAB*03 24 array def /LAB*04 24 array def /LAB*05 24 array def /LAB*06 24 array def /LAB*07 24 array def /LAB*TE %used in file and frame [(ORS18) (TLS00) (FRS06) (TSL18) (NLS00) (NLS18) (SRS18) (TLS70) (TLS00) (TLS06) (TLS11) (TLS18) (TLS27) (TLS38) (TLS52) (TLS70) (OLS00) (OLS06) (OLS11) (OLS18) (OLS27) (OLS38) (OLS52) (OLS70)] def %FRS09_92.DAT: measured data are not dapated here; 55 lines, 141:195 ISRL*ioL 0 eq { %ISRL*ioL=0 /LAB*00 [%D=Device OYLCVMO+NW %for Offset Reflective System (ORS18) 47.94 65.31 52.07 %O 0 90.37 -11.16 96.17 %Y 1 50.90 -62.97 36.71 %L 2 58.62 -30.63 -42.75 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 25.72 31.45 -44.36 %V 4 48.13 75.20 -6.80 %M 5 18.01 0.50 -0.47 %N 7 95.41 -0.99 4.76 %W 8 %ZE45N_CM_OF_080602_1080.TXT, 1080 colours, 20080602, Matching OFF $ (FRS09_92) %100 x LAB* %#1000 x (r g b c m y 0) %nr. pos $ %0035.06 0060.53 0039.66 %#1000 0000 0000 0000 1000 1000 0000 %0648 S19 %O1 0 $ %0083.77 -004.50 0103.15 %#1000 1000 0000 0000 0000 1000 0000 %0720 a19 %Y1 1 $ %0044.13 -062.11 0043.56 %#0000 1000 0000 1000 0000 1000 0000 %0072 I01 %L1 2 $ %0052.66 -028.56 -036.99 %#0000 1000 1000 1000 0000 0000 0000 %0080 I09 %C1 3 $ %0014.15 0050.78 -062.60 %#0000 0000 1000 1000 1000 0000 0000 %0008 A09 %V1 4 $ %0037.37 0079.18 -037.93 %#1000 0000 1000 0000 1000 0000 0000 %0656 S27 %M1 5 $ %0008.58 0000.46 -003.35 %#0000 0000 0000 1000 1000 1000 0000 %0000 A01 %N1 6 $ %0092.02 0000.69 -006.48 %#1000 1000 1000 0000 0000 0000 0000 %0728 a27 %W1 7 $ %$ %0035.87 0060.76 0039.80 %#1000 0000 0000 0000 1000 1000 0000 %0801 j01 %O2 0 $ %0083.76 -004.64 0102.56 %#1000 1000 0000 0000 0000 1000 0000 %0882 j10 %Y2 1 $ %0043.65 -062.07 0043.08 %#0000 1000 0000 1000 0000 1000 0000 %0963 j19 %L2 2 $ %0052.82 -028.73 -036.80 %#0000 1000 1000 1000 0000 0000 0000 %0737 b09 %C2 3 $ %0013.33 0052.23 -063.40 %#0000 0000 1000 1000 1000 0000 0000 %0818 b18 %V2 4 $ %0037.56 0079.25 -037.75 %#1000 0000 1000 0000 1000 0000 0000 %0899 b27 %M2 5 $ %0008.16 0000.62 -003.84 %#0000 0000 0000 1000 1000 1000 0000 %0809 j09 %N2 6 $ %0092.07 0000.62 -006.26 %#1000 1000 1000 0000 0000 0000 0000 %0729 b01 %W2 7 $ %$ %ZE45N_CM_OF_080602_1080.TXT, 1080 colours, 20080602, Matching OFF $ (FRS09_92a) %100 x LAB*a %#1000 x (r g b c m y 0) %nr. pos $ %0035.06 0059.99 0044.01 %#1000 0000 0000 0000 1000 1000 0000 %0648 S19 %O1 0 $ %0083.77 -005.16 0109.32 %#1000 1000 0000 0000 0000 1000 0000 %0720 a19 %Y1 1 $ %0044.13 -062.67 0048.25 %#0000 1000 0000 1000 0000 1000 0000 %0072 I01 %L1 2 $ %0052.66 -029.15 -031.98 %#0000 1000 1000 1000 0000 0000 0000 %0080 I09 %C1 3 $ %0014.15 0050.30 -059.03 %#0000 0000 1000 1000 1000 0000 0000 %0008 A09 %V1 4 $ %0037.37 0078.64 -033.49 %#1000 0000 1000 0000 1000 0000 0000 %0656 S27 %M1 5 $ %0008.58 0000.00 0000.00 %#0000 0000 0000 1000 1000 1000 0000 %0000 A01 %N1 6 $ %0092.02 0000.00 0000.00 %#1000 1000 1000 0000 0000 0000 0000 %0728 a27 %W1 7 $ %$ %0035.87 0060.13 0044.44 %#1000 0000 0000 0000 1000 1000 0000 %0801 j01 %O2 0 $ %0083.76 -005.27 0108.59 %#1000 1000 0000 0000 0000 1000 0000 %0882 j10 %Y2 1 $ %0043.65 -062.69 0047.95 %#0000 1000 0000 1000 0000 1000 0000 %0963 j19 %L2 2 $ %0052.82 -029.35 -031.67 %#0000 1000 1000 1000 0000 0000 0000 %0737 b09 %C2 3 $ %0013.33 0051.60 -059.41 %#0000 0000 1000 1000 1000 0000 0000 %0818 b18 %V2 4 $ %0037.56 0078.62 -033.06 %#1000 0000 1000 0000 1000 0000 0000 %0899 b27 %M2 5 $ %0008.16 0000.00 0000.00 %#0000 0000 0000 1000 1000 1000 0000 %0809 j09 %N2 6 $ %0092.07 0000.00 0000.00 %#1000 1000 1000 0000 0000 0000 0000 %0729 b01 %W2 7 $ %$ ] def %OYLCVMO+NW /LAB*01 [%D=Device OYLCVMO+NW %for Television Luminous System (TLS00) 50.50 76.92 64.55 %O 0 92.66 -20.70 90.75 %Y 1 83.63 -82.76 79.90 %L 2 86.88 -46.17 -13.56 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 30.39 76.06 -103.6 %V 4 corected 57.30 94.35 -58.42 %M 5 corected 00.01 0.00 0.00 %N 7 corected 95.41 0.00 0.00 %W 8 ] def %OYLCVMO+NW /LAB*02 [%D=Device OYLCVMO+NW %for Device Reflective System (FRS06. FUJI) 32.57 61.14 43.72 %8-0-0 O-W 0 olv* setrgbcolor 64 82.73 -3.51 109.24 %8-8-0 Y-W 1 olv* setrgbcolor 32 39.43 -62.87 42.80 %0-8-0 L-W 2 olv* setrgbcolor 80 47.86 -27.73 -37.62 %0-8-8 C-W 3 olv* setrgbcolor 0 actual printer 10.16 53.56 -62.92 %0-0-8 V-W 4 olv* setrgbcolor 96 34.50 79.53 -36.77 %8-0-8 M-W 5 olv* setrgbcolor 16 06.25 -1.63 -1.73 %0-0-0 N-W 6 olv* setrgbcolor 48 91.97 -0.18 -5.11 %8-8-8 A-W 7 olv* setrgbcolor ] def %OYLCVMO+NW /LAB*03 [%D=Device OYLCVMO+NW %for Television Luminous System (TLS18) 52.76 71.63 49.88 %O 0 92.74 -20.03 84.97 %Y 1 84.00 -78.99 73.94 %L 2 87.14 -44.42 -13.12 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 35.47 64.92 -95.07 %V 4 %see TABle X of ISO/IEC TR 24705:2005-10 59.01 89.33 -55.68 %M 5 %see Annex A, www.ps.bam.de/RLABE.PDF 18.01 0.00 0.00 %N 6 Yr=2.52 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW /LAB*04 [%Natural symmetric Luminous System OYLCVMO+NW (NLS00) 31.81 82.62 47.70 %O 0 95.40/2 = 47.70 63.61 00.00 95.40 %Y 1 C*ab = 95.40 31.81 -82.62 47.70 %L 2 0.866 C*ab = 0.866 * 95.40 = 82.62 63.61 -82.62 -47.70 %C 3 delta L*=25.8 31.81 00.00 -95.40 %V 4 43.81=00.01+31.80 63.61 82.62 -47.70 %M 5 69.61=00.01+2*31.80 00.01 0.00 0.00 %N 6 95.40/3 = 31.80 95.41 0.00 0.00 %W 7 95.40*(2/3) = 63.60 ] def %CVMOYLC+NW /LAB*05 [%Natural symmetric Luminous System OYLCVMO+NW (NLS18) 43.81 67.03 38.70 %O 0 77.40/2 = 38.70 69.61 00.00 77.40 %Y 1 C*ab = 77.40 43.81 -67.03 38.70 %L 2 0.866 C*ab = 67.03 69.61 -67.03 -38.70 %C 3 delta L*=25.8 43.81 00.00 -77.40 %V 4 43.81=18.01+25.80 69.61 67.03 -38.70 %M 5 69.61=18.01+2*25.80 18.01 0.00 0.00 %N 6 18.01+77.40/3 = 18.01+25.80=43.81 95.41 0.00 0.00 %W 7 18.01+77.40*(2/3) = 18.01+51.60=69.61 ] def %CVMOYLC+NW /LAB*06 [%Symmetric Reflective System OYLCVMO+NW (SRS18) 56.71 67.03 38.70 %O 0 18.01 + 77.40*0.5 = 18.01 + 38.70 = 56.71 56.71 00.00 77.40 %Y 1 C*ab = 77.40 56.71 -67.03 38.70 %L 2 0.866 C*ab = 67.03 56.71 -67.03 -38.70 %C 3 delta L*=25.8 56.71 00.00 -77.40 %V 4 43.81=18.01+25.80 56.71 67.03 -38.70 %M 5 69.61=18.01+2*25.80 18.01 0.00 0.00 %N 6 95.41 0.00 0.00 %W 7 95.41=18.01+3*25.80 ] def %CVMOYLC+NW /LAB*07 [%D=Device OYLCVMO+NW %for Television Luminous System (TLS70) 76.43 26.27 10.57 %O 0 93.93 -10.77 34.63 %Y 1 89.32 -35.81 27.64 %L 2 90.93 -21.96 -7.08 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 72.10 15.76 -35.64 %V 4 78.50 37.52 -25.24 %M 5 69.70 0.00 0.00 %N 6 Yr=40.32 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW } if %ISRL*ioL=0 ISRL*ioL 1 eq { %ISRL*ioL=1 /LAB*00 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS00) 50.50 76.91 64.55 %O 0 92.66 -20.68 90.75 %Y 1 83.62 -82.74 79.90 %L 2 86.88 -46.15 -13.54 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 30.39 76.06 -103.6 %V 4 %see TABle X of ISO/IEC TR 24705:2005-10 57.31 94.35 -58.40 %M 5 %see Annex A, www.ps.bam.de/RLABE.PDF 00.01 0.00 0.00 %N 6 Yr=0.00 95.41 0.00 0.00 %W 7 ] def %CVMOYLC+NW /LAB*01 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS06) 51.08 75.54 59.69 %O 0 92.68 -20.51 89.24 %Y 1 83.72 -81.79 78.32 %L 2 86.94 -45.72 -13.43 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 31.77 72.91 -101.3 %V 4 57.74 93.06 -57.71 %M 5 05.69 0.00 0.00 %N 6 Yr=0.63 95.41 0.00 0.00 %W 7 ] def %CVMOYLC+NW /LAB*02 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS11) 51.65 74.20 55.83 %O 0 92.70 -20.35 87.77 %Y 1 83.81 -80.85 76.81 %L 2 87.01 -45.28 -13.33 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 33.06 70.03 -99.09 %V 4 58.17 91.80 -57.03 %M 5 10.99 0.00 0.00 %N 6 Yr=1.26 95.41 0.00 0.00 %W 7 ] def %CVMOYLC+NW /LAB*03 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS18) 52.76 71.63 49.88 %O 0 92.74 -20.03 84.97 %Y 1 84.00 -78.99 73.94 %L 2 87.14 -44.42 -13.12 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 35.47 64.92 -95.07 %V 4 %see TABle X of ISO/IEC TR 24705:2005-10 59.01 89.33 -55.68 %M 5 %see Annex A, www.ps.bam.de/RLABE.PDF 18.01 0.00 0.00 %N 6 Yr=2.52 95.41 0.00 0.00 %W 7 ] def %CVMOYLC+NW /LAB*04 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS27) 54.88 66.84 41.69 %O 0 92.82 -19.39 79.81 %Y 1 84.37 -75.39 68.76 %L 2 87.40 -42.72 -12.70 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 39.70 56.66 -88.02 %V 4 60.64 84.61 -53.08 %M 5 26.85 0.00 0.00 %N 6 Yr=5.04 95.41 0.00 0.00 %W 7 ] def %CVMOYLC+NW /LAB*05 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS38) 58.77 58.45 31.73 %O 0 92.98 -18.11 70.81 %Y 1 85.11 -68.58 60.02 %L 2 87.92 -39.42 -11.87 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 46.64 44.93 -76.56 %V 4 63.71 75.92 -48.22 %M 5 37.99 0.00 0.00 %N 6 Yr=10.08 95.41 0.00 0.00 %W 7 ] def %CVMOYLC+NW /LAB*06 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS52) 65.53 45.06 20.98 %O 0 93.30 -15.61 56.27 %Y 1 86.55 -56.31 46.52 %L 2 88.94 -33.19 -10.24 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 57.17 30.66 -59.40 %V 4 69.22 60.95 -39.57 %M 5 52.02 0.00 0.00 %N 6 Yr=20.16 95.41 0.00 0.00 %W 7 ] def %CVMOYLC+NW /LAB*07 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS70) 76.43 26.27 10.57 %O 0 93.93 -10.77 34.63 %Y 1 89.32 -35.81 27.64 %L 2 90.93 -21.96 -7.08 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 72.10 15.76 -35.64 %V 4 78.50 37.52 -25.24 %M 5 69.70 0.00 0.00 %N 6 Yr=40.32 95.41 0.00 0.00 %W 7 ] def %CVMOYLC+NW } if %ISRL*ioL=1 ISRL*ioL 2 eq { %ISRL*ioL=2 /LAB*00 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS00) 45.14 71.37 75.54 %O 0 90.22 -10.60 99.51 %Y 1 48.45 -73.19 42.21 %L 2 56.88 -33.11 -47.41 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 16.48 45.84 -56.22 %V 4 %see TABle X of ISO/IEC TR 24705:2005-10 45.36 81.85 -9.29 %M 5 %see Annex A, www.ps.bam.de/RLABE.PDF 00.01 0.00 0.00 %N 6 Yr=0.00 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW /LAB*01 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS06) 45.87 69.79 66.99 %O 0 90.25 -10.51 97.42 %Y 1 49.08 -70.28 40.08 %L 2 57.33 -32.38 -46.80 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 19.26 40.73 -52.47 %V 4 46.07 80.12 -9.04 %M 5 05.69 0.00 0.00 %N 6 Yr=0.63 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW /LAB*02 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS11) 46.57 68.27 59.62 %O 0 90.29 -10.43 95.45 %Y 1 49.70 -67.60 38.19 %L 2 57.76 -31.68 -46.19 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 21.67 36.81 -49.37 %V 4 46.77 78.45 -8.80 %M 5 10.99 0.00 0.00 %N 6 Yr=1.26 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW /LAB*03 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS18) 47.94 65.39 50.52 %O 0 90.37 -10.26 91.75 %Y 1 50.90 -62.83 34.96 %L 2 58.62 -30.34 -45.01 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 25.72 31.10 -44.40 %V 4 %see TABle X of ISO/IEC TR 24705:2005-10 48.13 75.28 -8.36 %M 5 %see Annex A, www.ps.bam.de/RLABE.PDF 18.01 0.00 0.00 %N 6 Yr=2.52 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW /LAB*04 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS27) 50.51 60.17 40.13 %O 0 90.52 -9.92 85.20 %Y 1 53.18 -55.04 30.00 %L 2 60.28 -27.91 -42.75 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 32.06 24.02 -37.32 %V 4 50.68 69.50 -7.57 %M 5 26.85 0.00 0.00 %N 6 Yr=5.04 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW /LAB*05 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS38) 55.13 51.42 29.16 %O 0 90.83 -9.25 74.37 %Y 1 57.35 -43.84 23.35 %L 2 63.39 -23.83 -38.56 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 41.26 16.67 -28.49 %V 4 55.27 59.74 -6.32 %M 5 37.99 0.00 0.00 %N 6 Yr=10.08 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW /LAB*06 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS52) 62.90 38.38 18.55 %O 0 91.44 -7.95 57.91 %Y 1 64.49 -30.06 15.67 %L 2 68.98 -17.74 -31.24 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 53.87 10.09 -18.84 %V 4 63.00 44.96 -4.56 %M 5 52.02 0.00 0.00 %N 6 Yr=20.16 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW /LAB*07 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS70) 75.01 21.53 9.07 %O 0 92.64 -5.45 34.85 %Y 1 75.86 -15.50 7.96 %L 2 78.37 -9.90 -19.51 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 70.54 4.74 -9.47 %V 4 75.07 25.47 -2.46 %M 5 69.70 0.00 0.00 %N 6 Yr=40.32 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW } if %ISRL*ioL=2 0 1 11 {/sISO exch def %sISO=0,11 /i30 sISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def sISO 7 le { %sISO=0,7 ISIO*ioL 0 eq { %ORS18/TLS00/OLS00 LAB* i30 LAB*00 i30 get put LAB* i31 LAB*00 i31 get put LAB* i32 LAB*00 i32 get put } if ISIO*ioL 1 eq { %TLS00/TLS06/OLS06 LAB* i30 LAB*01 i30 get put LAB* i31 LAB*01 i31 get put LAB* i32 LAB*01 i32 get put } if ISIO*ioL 2 eq { %FRS06/TLS11/OLS11 LAB* i30 LAB*02 i30 get put LAB* i31 LAB*02 i31 get put LAB* i32 LAB*02 i32 get put } if ISIO*ioL 3 eq { %TLS18/TLS18/OLS18 LAB* i30 LAB*03 i30 get put LAB* i31 LAB*03 i31 get put LAB* i32 LAB*03 i32 get put } if ISIO*ioL 4 eq { %NLS00/TSL28/OLS28 LAB* i30 LAB*04 i30 get put LAB* i31 LAB*04 i31 get put LAB* i32 LAB*04 i32 get put } if ISIO*ioL 5 eq { %NRS18/TLS38/OLS38 LAB* i30 LAB*05 i30 get put LAB* i31 LAB*05 i31 get put LAB* i32 LAB*05 i32 get put } if ISIO*ioL 6 eq { %SRS18/TLS50/OLS50 LAB* i30 LAB*06 i30 get put LAB* i31 LAB*06 i31 get put LAB* i32 LAB*06 i32 get put } if ISIO*ioL 7 eq { %TLS70/TLS70/OLS70 LAB* i30 LAB*07 i30 get put LAB* i31 LAB*07 i31 get put LAB* i32 LAB*07 i32 get put } if } %sISO=0,7 {%sISO=8,11 %Definition 8 to 11 (24 to 35=33+2) /jISO sISO 8 sub def /j30 jISO 3 mul def /j31 j30 1 add def /j32 j30 2 add def LAB* i30 RJGBLAB* j30 get put LAB* i31 RJGBLAB* j31 get put LAB* i32 RJGBLAB* j32 get put LAB*a i30 LAB* i30 get put LAB*a i31 LAB* i31 get put LAB*a i32 LAB* i32 get put } ifelse } for %sISO=0,11 % possible change of LAB*a according to reduced gamut %LAB* = 20 for Black N %LAB* = 95 for White W %cfakt = (95 - 20)/(95.41 - 18.01) = 0.969 %LAB*L*Nn = 20 for Black N instead of LAB*L*N = 18,01 %LAB*L*Wn = 95 for White W instead of LAB*L*W = 95,41 %LAB*L*Zn = 20+(95-20)/2=57,5 for Grey Z instead of %LAB*L*Z = 18,01+(95,41-18,01)/2=56,71 %L*neu = L*alt + (1 - cfakt %For achromatic %deltaLmean = 57,5 (1-c*neu); 56,71 (1-c*alt) %deltaLmimu = 20,0 (1-c*neu); 18,01 (1-c*alt) %deltaLplus = 95,0 (1-c*neu); 95,41 (1-c*alt) %For chromatic M %deltaLmean = L*Ma,neu; L*Ma,alt = known %C*Ma,alt known, C*Ma,neu known /L*Nio LAB* 18 get def /A*Nio LAB* 19 get def /B*Nio LAB* 20 get def /L*Wio LAB* 21 get def /A*Wio LAB* 22 get def /B*Wio LAB* 23 get def /L*Wioref L*Wio def /L*Nioref L*Nio def /cfakt 1 def %/cfakt L*Wioref L*Nioref sub L*Wio L*Nio sub div def cfakt 1 ne {%cfakt#1 %change of lightness for Maximum colour /l*CIEN L*Nioref L*Nio sub L*Wio L*Nio sub div def /l*CIEW L*Wioref L*Nio sub L*Wio L*Nio sub div def %LAB* 18 L*Nioref put %defined change of lightness and chroma a*,b* for N LAB* 19 A*Nio A*Wio A*Nio sub l*CIEN mul add put LAB* 20 B*Nio B*Wio B*Nio sub l*CIEN mul add put %LAB* 21 L*Wioref put %defined change of lightness and chroma a*,b* for W LAB* 22 A*Nio A*Wio A*Nio sub l*CIEW mul add put LAB* 23 B*Nio B*Wio B*Nio sub l*CIEW mul add put %change of chroma by factor cfakt 0 1 07 {/iISO exch def /i30 iISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def /l*CIEL LAB* i30 get L*Nio sub L*Wio L*Nio sub div def LAB* i30 L*Nioref L*Wioref L*Nioref sub l*CIEL mul add put LAB* i31 LAB* i31 get cfakt mul put LAB* i32 LAB* i32 get cfakt mul put } for } if %cfakt#1 /L*Nior LAB* 18 get def %r=reference for reverse transform /A*Nior LAB* 19 get def /B*Nior LAB* 20 get def /L*Wior LAB* 21 get def /A*Wior LAB* 22 get def /B*Wior LAB* 23 get def 0 1 7 {/iISO exch def %iISO=0,7 /i30 iISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def /l*CIE LAB* i30 get L*Nior sub L*Wior L*Nior sub div def /a*sr A*Wior A*Nior sub l*CIE mul def /b*sr B*Wior B*Nior sub l*CIE mul def LAB*a i30 LAB* i30 get put LAB*a i31 LAB* i31 get A*Nior sub a*sr sub put LAB*a i32 LAB* i32 get B*Nior sub b*sr sub put } for /L*Nio LAB*a 18 get def %=18.01 /A*Nio LAB*a 19 get def %=0 /B*Nio LAB*a 20 get def %=0 /L*Wio LAB*a 21 get def %=95.41 /A*Wio LAB*a 22 get def %=0 /B*Wio LAB*a 23 get def %=0 /A*Dio A*Wio A*Nio sub def %=0 /B*Dio B*Wio B*Nio sub def %=0 /cLAB*s0 3 array def %C cyan blue /vLAB*s0 3 array def %V violet blue /mLAB*s0 3 array def %M magenta red /oLAB*s0 3 array def %O orange red /yLAB*s0 3 array def %Y yellow /lLAB*s0 3 array def %L leaf green /nLAB*s0 3 array def %N black /wLAB*s0 3 array def %W white /rLAB*s0 3 array def %R elementary red /jLAB*s0 3 array def %J elementary yellow /gLAB*s0 3 array def %G elementary green /bLAB*s0 3 array def %B elementary blue %Determine Matrix data input or output data oLAB*s0 0 LAB*a 0 get L*Nio sub put oLAB*s0 1 LAB*a 1 get put oLAB*s0 2 LAB*a 2 get put yLAB*s0 0 LAB*a 3 get L*Nio sub put yLAB*s0 1 LAB*a 4 get put yLAB*s0 2 LAB*a 5 get put lLAB*s0 0 LAB*a 6 get L*Nio sub put lLAB*s0 1 LAB*a 7 get put lLAB*s0 2 LAB*a 8 get put cLAB*s0 0 LAB*a 9 get L*Nio sub put cLAB*s0 1 LAB*a 10 get put cLAB*s0 2 LAB*a 11 get put vLAB*s0 0 LAB*a 12 get L*Nio sub put vLAB*s0 1 LAB*a 13 get put vLAB*s0 2 LAB*a 14 get put mLAB*s0 0 LAB*a 15 get L*Nio sub put mLAB*s0 1 LAB*a 16 get put mLAB*s0 2 LAB*a 17 get put nLAB*s0 0 LAB*a 18 get L*Nio sub put nLAB*s0 1 LAB*a 19 get put nLAB*s0 2 LAB*a 20 get put wLAB*s0 0 LAB*a 21 get L*Nio sub put wLAB*s0 1 LAB*a 22 get put wLAB*s0 2 LAB*a 23 get put rLAB*s0 0 LAB*a 24 get L*Nio sub put rLAB*s0 1 LAB*a 25 get put rLAB*s0 2 LAB*a 26 get put jLAB*s0 0 LAB*a 27 get L*Nio sub put jLAB*s0 1 LAB*a 28 get put jLAB*s0 2 LAB*a 29 get put gLAB*s0 0 LAB*a 30 get L*Nio sub put gLAB*s0 1 LAB*a 31 get put gLAB*s0 2 LAB*a 32 get put bLAB*s0 0 LAB*a 33 get L*Nio sub put bLAB*s0 1 LAB*a 34 get put bLAB*s0 2 LAB*a 35 get put % Determine the input or output angle in the A* B* plane % of each of the colours defined above /C*Ang cLAB*s0 2 get cLAB*s0 1 get 0.0001 add atan def /V*Ang vLAB*s0 2 get vLAB*s0 1 get 0.0001 add atan def /M*Ang mLAB*s0 2 get mLAB*s0 1 get 0.0001 add atan def /O*Ang oLAB*s0 2 get oLAB*s0 1 get 0.0001 add atan def /Y*Ang yLAB*s0 2 get yLAB*s0 1 get 0.0001 add atan def /L*Ang lLAB*s0 2 get mLAB*s0 1 get 0.0001 add atan def /N*Ang 0 def /W*Ang 0 def /R*Ang rLAB*s0 2 get rLAB*s0 1 get 0.0001 add atan def /J*Ang jLAB*s0 2 get jLAB*s0 1 get 0.0001 add atan def /G*Ang gLAB*s0 2 get gLAB*s0 1 get 0.0001 add atan def /B*Ang bLAB*s0 2 get bLAB*s0 1 get 0.0001 add atan def %6+1 hue angles for 6 device colour (index 0 to 06) %4+1 hue angles for 4 elementary colours (index 8 to 12) %no. 6 and 7 originaly achromatic 0 1 11 {/iHx exch def /i1x iHx 3 mul 1 add def /i2x i1x 1 add def LAB*Hx iHx LAB*a i2x get LAB*a i1x get 0.000001 add atan put } for LAB*Hx 06 LAB*Hx 00 get 360 add put LAB*Hx 12 LAB*Hx 08 get 360 add put %6 Hue angles of elementary and intermediate colours e=RJGCgbBMbr /LAB*He 7 array def LAB*He 0 LAB*Hx 08 get put %R LAB*He 1 LAB*Hx 09 get put %J LAB*He 2 LAB*Hx 10 get put %G LAB*He 3 LAB*Hx 10 get LAB*Hx 11 get add 0.5 mul put %Cgb LAB*He 4 LAB*Hx 11 get put %B LAB*He 5 LAB*Hx 11 get LAB*Hx 08 get 360 add add 0.5 mul put %Mbr LAB*He 6 LAB*Hx 08 get 360 add put %R(+360) %6 Hue angles of device and intermediate colours d=OYLCVMO /LAB*Hd 7 array def LAB*Hd 0 LAB*Hx 00 get put %O LAB*Hd 1 LAB*Hx 01 get put %Y LAB*Hd 2 LAB*Hx 02 get put %L LAB*Hd 3 LAB*Hx 03 get put %C LAB*Hd 4 LAB*Hx 04 get put %V LAB*Hd 5 LAB*Hx 05 get put %M LAB*Hd 6 LAB*Hx 00 get 360 add put %O(+360) /COLhNam16 16 array def /COLhNam16 [(R00Y) (R25Y) (R50Y) (R75Y) (Y00G) (Y25G) (Y50G) (Y75G) (G00B) (G25B) (G50B) (G75B) (B00R) (B25R) (B50R) (B75R) ] def } bind def %END Procedure proc_LAB*ioL %*********************************************************** %%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 {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 /showea {1 lanind ge {show} {pop} ifelse} bind def /nshow {iyt /Times-ISOL1 FS show} def /nishow {-30 -50 rmoveto iyt 50 sub /Times-ISOL1 FS show 30 50 rmoveto} def /nishow0 {-00 -50 rmoveto iyt 20 sub /Times-ISOL1 FS show 00 50 rmoveto} def /nishowx {-00 -50 rmoveto iyt 50 sub /Times-ISOL1 FS show 00 50 rmoveto} def /kshow {iyt /TimesI-ISOL1 FS show} def /bshow {iyt /TimesB-ISOL1 FS show} def /jshow {iyt /TimesBI-ISOL1 FS show} def /ishow {-30 -50 rmoveto iyt 50 sub /TimesB-ISOL1 FS show 30 50 rmoveto} def /ishow0 {-00 -50 rmoveto iyt 50 sub /TimesB-ISOL1 FS show 00 50 rmoveto} def /eshow { 00 070 rmoveto iyt 50 sub /TimesB-ISOL1 FS show 00 -070 rmoveto} def /neshow { 00 070 rmoveto iyt 50 sub /Times-ISOL1 FS show 00 -070 rmoveto} def /F25col00 75 array def %24+1x3 0 1 24 {/i exch def %i=0,24 /j i 2 mul def /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def /j30 j 3 mul def /j31 j30 1 add def /j32 j30 2 add def F25col00 i30 F49col00 j30 get put F25col00 i30 1 add F49col00 j31 get put F25col00 i30 2 add F49col00 j32 get put } for %i=0,24 /F17col00 51 array def %16+1x3 0 1 7 {/i exch def %i=0,7 /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def F17col00 i30 F25col00 i30 get put F17col00 i31 F25col00 i31 get put F17col00 i32 F25col00 i32 get put } for %i=0,7 8 2 24 {/i exch def %i=8,24 /j 8 i 8 sub 2 idiv add def /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def /j30 j 3 mul def /j31 j30 1 add def /j32 j30 2 add def F17col00 j30 F25col00 i30 get put F17col00 j31 F25col00 i31 get put F17col00 j32 F25col00 i32 get put } for %i=8,24 /RGB54CC17_L 17 array def /RGB54CC17_L [%high chromatic series: %relative hue h*, brillance i*, and chroma c*, range 0 ... 100 (R00Y_100_100) 1.00 0.00 0.00 %00 (R25Y_100_100) 1.00 0.25 0.00 %01 (R50Y_100_100) 1.00 0.50 0.00 %02 (R75Y_100_100) 1.00 0.75 0.00 %03 (Y00G_100_100) 1.00 1.00 0.00 %04 (Y25G_100_100) 0.75 1.00 0.00 %05 (Y50G_100_100) 0.50 1.00 0.00 %06 (Y75G_100_100) 0.25 1.00 0.00 %07 (G00B_100_100) 0.00 1.00 0.00 %08 (G25B_100_100) 0.00 1.00 0.50 %09 (G50B_100_100) 0.00 1.00 1.00 %10 (G75B_100_100) 0.00 0.50 1.00 %11 (B00R_100_100) 0.00 0.00 1.00 %12 (B25R_100_100) 0.50 0.00 1.00 %13 (B50R_100_100) 1.00 0.00 1.00 %14 (B75R_100_100) 1.00 0.00 0.50 %15 (R00Y_100_100) 1.00 0.00 0.00 %16 repeat for circle ] def /LAB*ee 12 array def %2x3=12 Lab* for D65 /LAB*ee [39.92 58.74 27.99 %0 00_04 R CIE No.09 elementary in LAB 81.26 -2.89 71.56 %1 05_09 J CIE No.10 52.23 -42.42 13.60 %2 10_14 G CIE No.11 30.57 1.41 -46.47 %3 20_24 B CIE No.12 ] def /rgb_12 12 array def %RYGCBMd, NWd,e, RYGBe /rgb_12 [1.0 0.0 0.0 1.0 1.0 0.0 0.0 1.0 0.0 %RYGd 0.0 1.0 1.0 0.0 0.0 1.0 1.0 0.0 1.0 %CBMd 0.0 0.0 0.0 1.0 1.0 1.0 %NWd,e 1.0 0.0 0.0 1.0 1.0 0.0 0.0 1.0 0.0 0.0 0.0 1.0 %RYGBe ] def %************************************************************ /proc_CIELAB_D {%BEG proc_CIELAB_D 25 setlinewidth 1.0 setgray 0 0 moveto 2800 0 rlineto 0 2800 rlineto -2800 0 rlineto closepath fill 0.0 setgray 0 0 moveto 2800 0 rlineto 0 2800 rlineto -2800 0 rlineto closepath stroke 1200 1300 translate -1000 0 moveto 1000 0 lineto stroke 0 -1000 moveto 0 1000 lineto stroke 1100 0 moveto (a*) kshow (a) ishow 0 1100 moveto (b*) kshow (a) ishow /rx 774 def %standard hexagon gamut 0.0 setgray rx 030 cos mul rx 030 sin mul moveto 0 rx lineto rx 150 cos mul rx 150 sin mul lineto rx 210 cos mul rx 210 sin mul lineto 0 rx neg lineto rx 330 cos mul rx 330 sin mul lineto closepath stroke /r*x 1 def /g*x 0 def /b*x 0 def r*x g*x b*x setrgbcolor rx 030 cos mul rx 030 sin mul 100 0 360 arc fill /r*x 1 def /g*x 1 def /b*x 0 def r*x g*x b*x setrgbcolor 0 rx 100 0 360 arc fill /r*x 0 def /g*x 1 def /b*x 0 def r*x g*x b*x setrgbcolor rx 150 cos mul rx 150 sin mul 100 0 360 arc fill /r*x 0 def /g*x 1 def /b*x 1 def r*x g*x b*x setrgbcolor rx 210 cos mul rx 210 sin mul 100 0 360 arc fill /r*x 0 def /g*x 0 def /b*x 1 def r*x g*x b*x setrgbcolor 0 rx neg 100 0 360 arc fill /r*x 1 def /g*x 0 def /b*x 1 def r*x g*x b*x setrgbcolor rx 330 cos mul rx 330 sin mul 100 0 360 arc fill %plot hexagon in device (d) space 45 setlinewidth 0 setgray 0 1 5 {/i exch def %i=0,5 /A*Ma LAB*a i 3 mul 1 add get def /B*Ma LAB*a i 3 mul 2 add get def i 0 eq {A*Ma 10 mul B*Ma 10 mul moveto} {A*Ma 10 mul B*Ma 10 mul lineto} ifelse i 5 eq {closepath stroke} if } for %i=0,5 xchart 1 ge {%xchart>=1, always only for device space %plot hexagon in actual device (d) space 45 setlinewidth /deintpd deintp def %attention change of deintp to device d! /deintp 0 def %draws allways device space gamut! 0 1 5 {/i exch def %i=0,5 /r*x r*dd08M i get def /g*x g*dd08M i get def /b*x b*dd08M i get def r*x g*x b*x setrgbcolor %default for calculation of LAB* /LAB*axF LAB*adyF def /LAB*bxF LAB*bdyF def /A*Ma LAB*axF def /B*Ma LAB*bxF def 1 0 0 setrgbcolor i 0 eq {A*Ma 10 mul B*Ma 10 mul moveto} {A*Ma 10 mul B*Ma 10 mul lineto} ifelse i 5 eq {closepath stroke} if } for %i=0,5 /deintp deintpd def %change back to deintp! } if %xchart>=1 %plot line of actual hue 50 setlinewidth xcharts 0 eq {/r*x 1 def /g*x 0 def /b*x 0 def} if xcharts 1 eq {/r*x 1 def /g*x 1 def /b*x 0 def} if xcharts 2 eq {/r*x 0 def /g*x 1 def /b*x 0 def} if xcharts 3 eq {/r*x 0 def /g*x 1 def /b*x 1 def} if xcharts 4 eq {/r*x 0 def /g*x 0 def /b*x 1 def} if xcharts 5 eq {/r*x 1 def /g*x 0 def /b*x 1 def} if xcharts 5 le {%xcharts<=5 r*x g*x b*x setrgbcolor 0 0 moveto /A*Ma LAB*a xcharts 3 mul 1 add get def /B*Ma LAB*a xcharts 3 mul 2 add get def A*Ma 10 mul B*Ma 10 mul lineto stroke } if %xcharts<=5 xcharts 6 ge {%xcharts>=6 xchart 0 eq {%xchart=0,>0 xcharts 9 eq {/i1 0 def /i2 5 def i1 1 i2 {/i exch def %i=i1,i2 /L*Ma0 LAB*a i 3 mul 0 add get def %produces ORS18 /A*Ma0 LAB*a i 3 mul 1 add get def /B*Ma0 LAB*a i 3 mul 2 add get def rgb_12 i 3 mul 0 add get rgb_12 i 3 mul 1 add get rgb_12 i 3 mul 2 add get setrgbcolor 0 0 moveto A*Ma0 10 mul B*Ma0 10 mul lineto stroke A*Ma0 10 mul B*Ma0 10 mul moveto -100 -100 rlineto 200 200 rlineto stroke A*Ma0 10 mul B*Ma0 10 mul moveto -100 100 rlineto 200 -200 rlineto stroke } for %i=i1,i2 } if %one or 6 lines xcharts 10 ge xcharts 25 le and {%xcharts>=10,<=25 %16 measured data, see PE54L0NP.pdf, page 11/24 %PE540-7N, Page 11/24 HIC*Fd rgb*Fd LabCh*Fd /LAB*a48 432 array def %48x9=432 /LAB*a48 [%HIC rgb LabCh nr (R00Y_100_100d) 1.000 0.000 0.000 48.4 66.1 40.2 77.4 31.3 %00 (R13Y_100_100d) 1.000 0.116 0.000 52.5 57.3 45.5 73.2 38.4 %01 (R25Y_100_100d) 1.000 0.233 0.000 56.8 48.0 50.5 69.8 46.4 %02 (R38Y_100_100d) 1.000 0.366 0.000 62.5 36.5 57.1 67.8 57.3 %03 (R50Y_100_100d) 1.000 0.500 0.000 68.6 25.0 63.9 68.7 68.6 %04 (R63Y_100_100d) 1.000 0.633 0.000 74.9 14.1 71.1 72.5 78.7 %05 (R75Y_100_100d) 1.000 0.766 0.000 80.6 4.8 77.2 77.4 86.4 %06 (R88Y_100_100d) 1.000 0.883 0.000 85.4 -2.5 82.3 82.3 91.7 %07 (Y00G_100_100d) 1.000 1.000 0.000 90.2 -9.6 88.2 88.7 96.2 %08 (Y13G_100_100d) 0.883 1.000 0.000 86.7 -14.2 83.5 84.7 99.6 %09 (Y25G_100_100d) 0.766 1.000 0.000 83.2 -18.4 79.9 82.0 102.9 %10 (Y38G_100_100d) 0.633 1.000 0.000 77.9 -25.1 69.5 74.0 109.8 %11 (Y50G_100_100d) 0.500 1.000 0.000 73.3 -31.7 62.7 70.3 116.8 %12 (Y63G_100_100d) 0.366 1.000 0.000 68.2 -39.5 55.9 68.5 125.2 %13 (Y75G_100_100d) 0.233 1.000 0.000 62.0 -49.7 43.2 65.9 138.9 %14 (Y88G_100_100d) 0.116 1.000 0.000 59.1 -57.1 38.5 68.9 145.9 %15 (G00C_100_100d) 0.000 1.000 0.000 55.8 -65.2 33.8 73.5 152.5 %16 (G13C_100_100d) 0.000 1.000 0.116 56.6 -62.9 24.0 67.3 159.0 %17 (G25C_100_100d) 0.000 1.000 0.233 57.4 -59.7 13.9 61.3 166.8 %18 (G38C_100_100d) 0.000 1.000 0.366 58.5 -54.9 1.5 55.0 178.4 %19 (G50C_100_100d) 0.000 1.000 0.500 59.3 -50.3 -9.0 51.1 190.2 %20 (G63C_100_100d) 0.000 1.000 0.633 60.1 -45.6 -18.7 49.3 202.3 %21 (G75C_100_100d) 0.000 1.000 0.766 61.1 -40.3 -27.8 49.0 214.6 %22 (G88C_100_100d) 0.000 1.000 0.883 62.0 -35.8 -34.7 49.9 224.0 %23 (C00B_100_100d) 0.000 1.000 1.000 63.0 -30.5 -42.0 51.9 234.0 %24 (C13B_100_100d) 0.000 0.883 1.000 59.4 -25.3 -42.7 49.7 239.2 %25 (C25B_100_100d) 0.000 0.766 1.000 55.8 -20.3 -43.2 47.7 244.7 %26 (C38B_100_100d) 0.000 0.633 1.000 50.8 -13.3 -43.9 45.9 253.0 %27 (C50B_100_100d) 0.000 0.500 1.000 45.7 -5.7 -44.6 45.0 262.6 %28 (C63B_100_100d) 0.000 0.366 1.000 40.4 2.6 -45.2 45.2 273.3 %29 (C75B_100_100d) 0.000 0.233 1.000 36.0 10.1 -46.1 47.2 282.3 %30 (C88B_100_100d) 0.000 0.116 1.000 32.1 17.3 -46.7 49.8 290.3 %31 (B00M_100_100d) 0.000 0.000 1.000 27.5 25.9 -47.3 54.0 298.7 %32 (B13M_100_100d) 0.116 0.000 1.000 29.5 33.4 -43.1 54.6 307.7 %33 (B25M_100_100d) 0.233 0.000 1.000 31.0 39.9 -38.5 55.5 315.9 %34 (B38M_100_100d) 0.366 0.000 1.000 35.1 44.5 -34.7 56.5 322.0 %35 (B50M_100_100d) 0.500 0.000 1.000 38.3 52.6 -28.5 59.9 331.5 %36 (B63M_100_100d) 0.633 0.000 1.000 41.2 59.3 -22.0 63.3 339.6 %37 (B75M_100_100d) 0.766 0.000 1.000 45.2 63.8 -18.2 66.4 344.0 %38 (B88M_100_100d) 0.883 0.000 1.000 47.5 68.6 -13.8 69.9 348.5 %39 (M00R_100_100d) 1.000 0.000 1.000 49.5 73.5 -9.0 74.1 352.9 %40 (M13R_100_100d) 1.000 0.000 0.883 49.4 72.4 -4.0 72.5 356.7 %41 (M25R_100_100d) 1.000 0.000 0.766 49.3 71.4 0.4 71.4 0.3 %42 (M38R_100_100d) 1.000 0.000 0.633 49.3 69.8 6.6 70.1 5.4 %43 (M50R_100_100d) 1.000 0.000 0.500 48.9 69.3 12.9 70.5 10.5 %44 (M63R_100_100d) 1.000 0.000 0.366 48.9 68.1 19.6 70.9 16.1 %45 (M75R_100_100d) 1.000 0.000 0.233 48.8 67.1 27.9 72.7 22.6 %46 (M88R_100_100d) 1.000 0.000 0.116 48.6 66.5 34.1 74.8 27.1 %47 ] def /indFa16 16 array def /indFa16 [%0 1 2 3 4 5 6 7 %0=R and xchart4=1, 4=Y and xchart4=5 00 02 04 06 08 10 12 14 %8 9 10 11 12 13 14 15 %8=G and xchart4=9, 12=B and xchart4=13 16 20 24 28 32 36 40 44] def /ix xchart4 1 sub def %i=0,15 /indx indFa16 ix get def /i90 indx 9 mul 4 add def /i91 i90 1 add def /i92 i90 2 add def /A*Ma0 LAB*a48 i91 get def /B*Ma0 LAB*a48 i92 get def /i90r indx 9 mul 1 add def /i91r i90r 1 add def /i92r i90r 2 add def /r_*Ma LAB*a48 i90r get def /g_*Ma LAB*a48 i91r get def /b_*Ma LAB*a48 i92r get def r_*Ma g_*Ma b_*Ma setrgbcolor 0 0 moveto A*Ma0 10 mul B*Ma0 10 mul lineto stroke A*Ma0 10 mul B*Ma0 10 mul moveto -100 -100 rlineto 200 200 rlineto stroke A*Ma0 10 mul B*Ma0 10 mul moveto -100 100 rlineto 200 -200 rlineto stroke } if %xcharts>=10,<=25 }%xchart=0 {%xchart>0 xcharts 9 eq {/i1 0 def /i2 15 def} %one or 16 lines {/i1 xcharts 10 sub def /i2 i1 def} ifelse i1 1 i2 {/i exch def %i=i1,i2 /r*x r*dd18M i get def /g*x g*dd18M i get def /b*x b*dd18M i get def r*x g*x b*x setrgbcolor %default to create data %setrgbcolor calculates data for output in "FF_LM_de_setrgbcolor_F" %colorm=0 calculates: rgb_dyF, rgb*dyF, LAB*dyF, ,cmyk*dyF and more %colorm=1 calculates: rgb_dyF, rgb*dyF, LAB*dyF', rgb'*dyF, cmyk*dyF and more /LAB*LxF LAB*LdyF def /LAB*axF LAB*adyF def /LAB*bxF LAB*bdyF def /A*Ma0 LAB*axF def /B*Ma0 LAB*bxF def r*x g*x b*x setrgbcolor 0 0 moveto A*Ma0 10 mul B*Ma0 10 mul lineto stroke A*Ma0 10 mul B*Ma0 10 mul moveto -100 -100 rlineto 200 200 rlineto stroke A*Ma0 10 mul B*Ma0 10 mul moveto -100 100 rlineto 200 -200 rlineto stroke } for %i=i1,i2 } ifelse %xchart=0,>0 } if %xcharts>=6 -1200 -1300 translate } bind def %END proc_CIELAB_D %************************************************************ /proc_CIELAB_T16 {%BEG proc_CIELAB_T16 /yhoe 6300 def ibild 0 eq {/xmi0 0 def /ymi0 -50 def} {/xmi0 700 def /ymi0 -1400 def} ifelse 15 setlinewidth 1.0 setgray 0 ymi0 moveto 5300 xmi0 add 0 rlineto 0 4800 ymi0 sub rlineto -5300 xmi0 sub 0 rlineto closepath fill 0.0 setgray 0 ymi0 moveto 5300 xmi0 add 0 rlineto 0 4800 ymi0 sub rlineto -5300 xmi0 sub 0 rlineto closepath stroke /nshow {300 /Times-ISOL1 FS show} bind def /kshow {300 /TimesI-ISOL1 FS show} bind def /bshow {300 /TimesB-ISOL1 FS show} bind def /jshow {300 /TimesBI-ISOL1 FS show} bind def /sshow {300 /Symbol FS show} bind def /ishow {220 /Times-ISOL1 FS -00 -50 rmoveto show 00 50 rmoveto} bind def /eshow {220 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto} bind def /yd 340 def %y-Zeilenabstand %Spalten /S1 20 def /S2 450 def /S3 1550 def /S4 2650 def /S5 3750 def /S6 4800 def /yu1 4650 def /yu2 3800 def 0 4100 moveto ibild 0 eq {5300}{6000} ifelse 0 rlineto stroke %Titeltext S1t 4550 moveto xchart 0 eq {ibild 1 eq {(ORS20a) bshow}{TSYSIOa bshow} ifelse} {Devicea bshow} ifelse (;) bshow xcharti 12 lt ibild 0 ne or {TBM0 ( adapted (a) CIELAB data) showen ( adaptierte CIELAB\255Daten) showde ( datos adaptados CIELAB (a)) showes ( donn\351es CIELAB (a) adapt\351es) showfr ( dati atti CIELAB (a)) showit ( adapted (a) CIELAB data) showjp } if ibild 0 eq {%BEG ibild=0 S11 4250 moveto TM0 (Name) showde (name) showen (name) showes (nom) showfr (name) showit (name) showjp () kshow S21 200 sub 4250 moveto (L*=L*) kshow xcharti 12 lt ibild 0 ne or {(a) ishow} if S31 4250 moveto (a*) kshow xcharti 12 lt ibild 0 ne or {(a) ishow} if S41 4250 moveto (b*) kshow xcharti 12 lt ibild 0 ne or {(a) ishow} if S51 100 sub 4250 moveto (C*) kshow (ab) ishow xcharti 12 lt ibild 0 ne or {(,a) ishow} if S61 100 sub 4250 moveto (h*) kshow (ab) ishow xcharti 12 lt ibild 0 ne or {(,a) ishow} if 0 1 11 {/i exch def %i=0,11 /ya yu2 yd i mul sub def S11 ya moveto ColNames i get nshow Fxx ishow (,) ishow i 8 ge {(CIE) ishow} {(M) ishow xcharti 12 lt {(a) ishow} if} ifelse ( ) nshow xcharti 12 lt {%xcharti<=12,>12 i 7 le {%i<=7 xchart 0 eq {%xchart=0,1 /L*Fax LAB*a i 3 mul get def /A*Fax LAB*a i 3 mul 1 add get def /B*Fax LAB*a i 3 mul 2 add get def /C*Fax A*Fax dup mul B*Fax dup mul add sqrt def /H*Fax B*Fax A*Fax 0.0001 add atan def }%xchart=0 {%xchart=1 /r*x r*dd08M i get def /g*x g*dd08M i get def /b*x b*dd08M i get def r*x g*x b*x setrgbcolor %default to create data %setrgbcolor calculates data for output in "FF_LM_de_setrgbcolor_F" %colorm=0 calculates: rgb_dyF, rgb*dyF, LAB*dyF, ,cmyk*dyF and more %colorm=1 calculates: rgb_dyF, rgb*dyF, LAB*dyF', rgb'*dyF, cmyk*dyF and more /LAB*LxF LAB*LdyF def /LAB*axF LAB*adyF def /LAB*bxF LAB*bdyF def /L*Fax LAB*LxF def /A*Fax LAB*axF def /B*Fax LAB*bxF def } ifelse %xchart=0,1 } if %i<=7 i 8 ge {%i>=8 TYGB /L*Fax LAB*ee i 8 sub 3 mul get def /A*Fax LAB*ee i 8 sub 3 mul 1 add get def /B*Fax LAB*ee i 8 sub 3 mul 2 add get def } if %i>=8 /C*Fax A*Fax dup mul B*Fax dup mul add sqrt def /H*Fax B*Fax A*Fax 0.0001 add atan def 0 setgray S21 ya moveto L*Fax cvsshow1 S31 ya moveto A*Fax cvsshow1 S41 ya moveto B*Fax cvsshow1 S51 ya moveto C*Fax cvsshow1 S61 ya moveto H*Fax cvishow }%xcharti<=12 {%xcharti>12 xchart 0 eq {%xchart=0,1 /L*Fax LAB*a i 3 mul get def /A*Fax LAB*a i 3 mul 1 add get def /B*Fax LAB*a i 3 mul 2 add get def /C*Fax A*Fax dup mul B*Fax dup mul add sqrt def /H*Fax B*Fax A*Fax 0.0001 add atan def }%xchart=0 {%xchart=1 /L*Fax LAB*Ldd08M i get def /A*Fax LAB*add08M i get def /B*Fax LAB*bdd08M i get def } ifelse %xchart=0,1 /C*Fax A*Fax dup mul B*Fax dup mul add sqrt def /H*Fax B*Fax A*Fax 0.0001 add atan def 0 setgray S21 ya moveto L*Fax cvsshow1 S31 ya moveto A*Fax cvsshow1 S41 ya moveto B*Fax cvsshow1 S51 ya moveto C*Fax cvsshow1 S61 ya moveto H*Fax cvishow /L*Fx LAB* i 3 mul get def /A*Fx LAB* i 3 mul 1 add get def /B*Fx LAB* i 3 mul 2 add get def /C*Fx A*Fx dup mul B*Fx dup mul add sqrt def /H*Fx B*Fx A*Fx 0.0001 add atan def S2 350 add ya moveto L*Fx cvsshow2 S3 100 add ya moveto A*Fx cvsshow2 S4 100 add ya moveto B*Fx cvsshow2 S5 ya moveto C*Fx cvsshow2 S6 ya moveto H*Fx cvishow } ifelse %xcharti=12,#12 } for %i=0,11 }%END ibild=0 {%BEG ibild=1 S1t 4250 moveto (H*) kshow Fxx ishow () nshow S2t 200 sub 4250 moveto (L*=L*) kshow xcharti 12 lt ibild 0 ne or {(a) ishow} if S3t 4250 moveto (a*) kshow xcharti 12 lt ibild 0 ne or {(a) ishow} if S4t 4250 moveto (b*) kshow xcharti 12 lt ibild 0 ne or {(a) ishow} if S5t 150 sub 4250 moveto (C*) kshow (ab) ishow xcharti 12 lt ibild 0 ne or {(,a) ishow} if S6t 150 sub 4250 moveto (h*) kshow (ab) ishow xcharti 12 lt ibild 0 ne or {(,a) ishow} if %16 measured data, see PE54L0NP.pdf, page 11/24 %PE540-7N, Page 11/24 HIC*Fd rgb*Fd LabCh*Fd /LAB*a48 432 array def %48x9=432 /LAB*a48 [%HIC rgb LabCh nr (R00Y_100_100d) 1.000 0.000 0.000 48.4 66.1 40.2 77.4 31.3 %00 (R13Y_100_100d) 1.000 0.116 0.000 52.5 57.3 45.5 73.2 38.4 %01 (R25Y_100_100d) 1.000 0.233 0.000 56.8 48.0 50.5 69.8 46.4 %02 (R38Y_100_100d) 1.000 0.366 0.000 62.5 36.5 57.1 67.8 57.3 %03 (R50Y_100_100d) 1.000 0.500 0.000 68.6 25.0 63.9 68.7 68.6 %04 (R63Y_100_100d) 1.000 0.633 0.000 74.9 14.1 71.1 72.5 78.7 %05 (R75Y_100_100d) 1.000 0.766 0.000 80.6 4.8 77.2 77.4 86.4 %06 (R88Y_100_100d) 1.000 0.883 0.000 85.4 -2.5 82.3 82.3 91.7 %07 (Y00G_100_100d) 1.000 1.000 0.000 90.2 -9.6 88.2 88.7 96.2 %08 (Y13G_100_100d) 0.883 1.000 0.000 86.7 -14.2 83.5 84.7 99.6 %09 (Y25G_100_100d) 0.766 1.000 0.000 83.2 -18.4 79.9 82.0 102.9 %10 (Y38G_100_100d) 0.633 1.000 0.000 77.9 -25.1 69.5 74.0 109.8 %11 (Y50G_100_100d) 0.500 1.000 0.000 73.3 -31.7 62.7 70.3 116.8 %12 (Y63G_100_100d) 0.366 1.000 0.000 68.2 -39.5 55.9 68.5 125.2 %13 (Y75G_100_100d) 0.233 1.000 0.000 62.0 -49.7 43.2 65.9 138.9 %14 (Y88G_100_100d) 0.116 1.000 0.000 59.1 -57.1 38.5 68.9 145.9 %15 (G00C_100_100d) 0.000 1.000 0.000 55.8 -65.2 33.8 73.5 152.5 %16 (G13C_100_100d) 0.000 1.000 0.116 56.6 -62.9 24.0 67.3 159.0 %17 (G25C_100_100d) 0.000 1.000 0.233 57.4 -59.7 13.9 61.3 166.8 %18 (G38C_100_100d) 0.000 1.000 0.366 58.5 -54.9 1.5 55.0 178.4 %19 (G50C_100_100d) 0.000 1.000 0.500 59.3 -50.3 -9.0 51.1 190.2 %20 (G63C_100_100d) 0.000 1.000 0.633 60.1 -45.6 -18.7 49.3 202.3 %21 (G75C_100_100d) 0.000 1.000 0.766 61.1 -40.3 -27.8 49.0 214.6 %22 (G88C_100_100d) 0.000 1.000 0.883 62.0 -35.8 -34.7 49.9 224.0 %23 (C00B_100_100d) 0.000 1.000 1.000 63.0 -30.5 -42.0 51.9 234.0 %24 (C13B_100_100d) 0.000 0.883 1.000 59.4 -25.3 -42.7 49.7 239.2 %25 (C25B_100_100d) 0.000 0.766 1.000 55.8 -20.3 -43.2 47.7 244.7 %26 (C38B_100_100d) 0.000 0.633 1.000 50.8 -13.3 -43.9 45.9 253.0 %27 (C50B_100_100d) 0.000 0.500 1.000 45.7 -5.7 -44.6 45.0 262.6 %28 (C63B_100_100d) 0.000 0.366 1.000 40.4 2.6 -45.2 45.2 273.3 %29 (C75B_100_100d) 0.000 0.233 1.000 36.0 10.1 -46.1 47.2 282.3 %30 (C88B_100_100d) 0.000 0.116 1.000 32.1 17.3 -46.7 49.8 290.3 %31 (B00M_100_100d) 0.000 0.000 1.000 27.5 25.9 -47.3 54.0 298.7 %32 (B13M_100_100d) 0.116 0.000 1.000 29.5 33.4 -43.1 54.6 307.7 %33 (B25M_100_100d) 0.233 0.000 1.000 31.0 39.9 -38.5 55.5 315.9 %34 (B38M_100_100d) 0.366 0.000 1.000 35.1 44.5 -34.7 56.5 322.0 %35 (B50M_100_100d) 0.500 0.000 1.000 38.3 52.6 -28.5 59.9 331.5 %36 (B63M_100_100d) 0.633 0.000 1.000 41.2 59.3 -22.0 63.3 339.6 %37 (B75M_100_100d) 0.766 0.000 1.000 45.2 63.8 -18.2 66.4 344.0 %38 (B88M_100_100d) 0.883 0.000 1.000 47.5 68.6 -13.8 69.9 348.5 %39 (M00R_100_100d) 1.000 0.000 1.000 49.5 73.5 -9.0 74.1 352.9 %40 (M13R_100_100d) 1.000 0.000 0.883 49.4 72.4 -4.0 72.5 356.7 %41 (M25R_100_100d) 1.000 0.000 0.766 49.3 71.4 0.4 71.4 0.3 %42 (M38R_100_100d) 1.000 0.000 0.633 49.3 69.8 6.6 70.1 5.4 %43 (M50R_100_100d) 1.000 0.000 0.500 48.9 69.3 12.9 70.5 10.5 %44 (M63R_100_100d) 1.000 0.000 0.366 48.9 68.1 19.6 70.9 16.1 %45 (M75R_100_100d) 1.000 0.000 0.233 48.8 67.1 27.9 72.7 22.6 %46 (M88R_100_100d) 1.000 0.000 0.116 48.6 66.5 34.1 74.8 27.1 %47 ] def /indFa16 16 array def /indFa16 [00 02 04 06 08 10 12 14 16 20 24 28 32 36 40 44] def 0 1 15 {/i exch def %i=0,15 /ya yu2 yd i mul sub def xchart 0 eq {%xchart=0,>0 /indx indFa16 i get def /i90 indx 9 mul 4 add def /i91 i90 1 add def /i92 i90 2 add def /L*Ma LAB*a48 i90 get def /A*Ma LAB*a48 i91 get def /B*Ma LAB*a48 i92 get def /C*Ma A*Ma dup mul B*Ma dup mul add 0.0001 add sqrt def /H*Ma B*Ma A*Ma 0.0001 add atan def }%xchart=0 {%xchart>0 /r*x r*dd18M i get def /g*x g*dd18M i get def /b*x b*dd18M i get def r*x g*x b*x setrgbcolor %default to create data %setrgbcolor calculates data for output in "FF_LM_de_setrgbcolor_F" %colorm=0 calculates: rgb_dyF, rgb*dyF, LAB*dyF, ,cmyk*dyF and more %colorm=1 calculates: rgb_dyF, rgb*dyF, LAB*dyF', rgb'*dyF, cmyk*dyF and more /r*xF r*dyF def /g*xF g*dyF def /b*xF b*dyF def /LAB*LxF LAB*LdyF def /LAB*axF LAB*adyF def /LAB*bxF LAB*bdyF def /LAB*CxF LAB*adyF dup mul LAB*bdyF dup mul add 0.0001 add sqrt def /LAB*hxF LAB*bdyF LAB*adyF 0.0001 add atan def /L*Ma LAB*LxF def /A*Ma LAB*axF def /B*Ma LAB*bxF def /C*Ma LAB*CxF def /H*Ma LAB*hxF def } ifelse %xchart=0,>0 0 setgray S1t ya moveto () nshow S1t ya moveto RGB54CC17_L i 4 mul get show Fxx ishow () nshow S2t 60 add ya moveto L*Ma cvsshow1 S3t ya moveto A*Ma cvsshow1 S4t ya moveto B*Ma cvsshow1 S5t ya moveto C*Ma cvsshow1 S6t ya moveto H*Ma cvishow } for %i=0,15 } ifelse %END ibild=1 } bind def %END proc_CIELAB_T16 %****************************************************************** /proc_CIELAB_G {%BEG CIELAB_G /u* 0 def /H*MGam 6 array def /C*MGam 6 array def 0 1 5 {/i exch def %i=0,5 /A*Ma LAB*a i 3 mul 1 add get def /B*Ma LAB*a i 3 mul 2 add get def /C*MGama A*Ma dup mul B*Ma dup mul add sqrt def H*MGam i B*Ma A*Ma 0.0001 add atan put C*MGam i C*MGama put /u* u* C*MGama L*Wio L*Nio sub mul add def } for %i=0,5 /u*r u* 77.4 77.4 mul 6 mul div 100 mul def 1 1 1 setrgbcolor /xmtext 2200 def /xms 0 def xmtext xms sub 11500 moveto TBG0 (%Gamut) showen (%Umfang) showde (%Gama) showes (%Gamme) showfr (%Gamma) showit (%Gamut) showjp xmtext xms sub 11100 moveto TBG0 (u*) show TBM0 -20 -50 rmoveto (rel) show 0 50 rmoveto TBG0 ( = ) show u*r cvishow 0 1 4 {/i exch def %i=0,4 /H*dif H*MGam i 1 add get H*MGam i get sub def i 0 eq {/H*MGamin H*dif def /H*MGamax H*dif def} if H*dif H*MGamin lt {/H*MGamin H*dif def} if H*dif H*MGamax gt {/H*MGamax H*dif def} if } for %i=0,4 /g*Hr H*MGamin H*MGamax div 100 mul def xmtext xms sub 10700 moveto TBG0 (%Regularity) showen (%Regularit\344t) showde (%Regularidad) showes (%R\351gularit\351) showfr (%Regularit\340) showit (%Regularity) showjp xmtext 10300 moveto TBG0 (g*) show TBM0 -20 -50 rmoveto (H,rel) show 0 50 rmoveto TBG0 ( = ) show g*Hr cvishow 0 1 4 {/i exch def %i=0,4 /C*akt C*MGam i get def i 0 eq {/C*MGamin C*akt def /C*MGamax C*akt def} if C*akt C*MGamin lt {/C*MGamin C*akt def} if C*akt C*MGamax gt {/C*MGamax C*akt def} if } for %i=0,4 /g*Cr C*MGamin C*MGamax div 100 mul def xmtext 09900 moveto TBG0 (g*) show TBM0 -20 -50 rmoveto (C,rel) show 0 50 rmoveto TBG0 ( = ) show g*Cr cvishow } bind def %CIELAB_G %****************************************************************** /ilf 8 array def /ilf [0.00 0.25 0.50 1.00 2.00 4.00 8.00 16.00] def /Lrefl 11 array def /Lrefl [(0%) (0%) (0%) (0%) (0,6%) (1,2%) (2,5%) (5%) (10%) (20%) (40%)] def /cvishowb {cvi 6 string cvs show ( ) show} def /cvsshow1b {10 mul cvi 0.1 mul 7 string cvs show ( ) show} def /cvsshow2b {100 mul cvi 0.01 mul 7 string cvs show ( ) show} def /cvsshow3b {1000 mul cvi 0.001 mul 7 string cvs show ( ) show} def /cvsshow1r {0.05 add 10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2r {0.005 add 100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3r {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show} def /cvsshow1br {0.05 add 10 mul cvi 0.1 mul 7 string cvs show ( ) show} def /cvsshow2br {0.005 add 100 mul cvi 0.01 mul 7 string cvs show ( ) show} def /cvsshow3br {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show ( ) show} def /cvi100 {100 mul cvi /xi exch def xi 0 lt {/vorz -1 def} {/vorz 1 def} ifelse /xia xi abs def vorz -1 eq {(\255) show} {(0) show} ifelse xia 0 ge xia 9 le {(0000) show} if xia 10 ge xia 99 le and {(000) show} if xia 100 ge xia 999 le and {(00) show} if xia 1000 ge xia 9999 le and {(0) show} if xia cvishow } bind def %************************************************ %******BEG RGB_48_16_6.PS default rgb data for 48/16/6 steps for device colours /r*dd64M 64 array def /r*dd64M [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %R 1.000 0.875 0.750 0.625 0.500 0.375 0.250 0.125 %J 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %G 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %C 0.000 0.125 0.250 0.375 0.500 0.625 0.750 0.875 %B 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %M 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %R 1.000 0.875 0.750 0.625 0.500 0.375 0.250 0.125 %J ] def /g*dd64M 64 array def /g*dd64M [0.000 0.125 0.250 0.375 0.500 0.625 0.750 0.875 %R 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %J 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %G 1.000 0.875 0.750 0.625 0.500 0.375 0.250 0.125 %C 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %B 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %M 0.000 0.125 0.250 0.375 0.500 0.625 0.750 0.875 %R 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %J ] def /b*dd64M 64 array def /b*dd64M [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %R 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %J 0.000 0.125 0.250 0.375 0.500 0.625 0.750 0.875 %G 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %C 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %B 1.000 0.875 0.750 0.625 0.500 0.375 0.250 0.125 %M 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %R 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %J ] def %calculate all data of 16+1=17 step elementary colour circle /ind64M 17 array def /ind64M %R00Y R25Y R50Y R75Y Y00G Y25G Y50G Y75G [0 2 4 6 8 10 12 14 %G00B G25B G50B G75G B00R B25R B50R B75R R00Y 16 20 24 28 32 36 40 44 0 ] def %actual 16 step device circle + N + W /r*dd18M 18 array def /g*dd18M 18 array def /b*dd18M 18 array def 0 1 15 {/i exch def %i=0,15 /indi ind64M i get def r*dd18M i r*dd64M indi get put %16 device colours g*dd18M i g*dd64M indi get put b*dd18M i b*dd64M indi get put } for %i=0,15 r*dd18M 16 0 put %N g*dd18M 16 0 put b*dd18M 16 0 put r*dd18M 17 1 put %W g*dd18M 17 1 put b*dd18M 17 1 put %actual 6 step device circle + N + W /r*dd08M 08 array def /g*dd08M 08 array def /b*dd08M 08 array def 0 1 5 {/i exch def %i=0,5 r*dd08M i r*dd64M i 8 mul get put %6 device colours g*dd08M i g*dd64M i 8 mul get put b*dd08M i b*dd64M i 8 mul get put } for %i=0,5 r*dd08M 6 0 put %N g*dd08M 6 0 put b*dd08M 6 0 put r*dd08M 7 1 put %W g*dd08M 7 1 put b*dd08M 7 1 put %******END RGB_48_16_6.PS default rgb data for 48/16/6 steps for device colours /lanind1 01 def /lanind2 01 def /lanindd 01 def /colorm1 00 def /colorm2 00 def /colormd 01 def /deintp1 00 def /deintp2 00 def /deintpd 01 def /xcolor1 00 def /xcolor2 00 def /xcolord 01 def /xchart1 00 def /xchart2 00 def /xchartd 01 def /pchart1 00 def /pchart2 00 def /pchartd 01 def /colsep1 00 def /colsep2 00 def /colsepd 01 def /pmetam1 00 def /pmetam2 00 def /pmetamd 01 def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def /lanindd laninddg def} if /colormg where {pop /colorm1 colormg def /colorm2 colormg def /colormd colormdg def} if /deintpg where {pop /deintp1 deintpg def /deintp2 deintpg def /deintpd deintpdg def} if /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def /xcolord xcolordg def} if /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def /xchartd xchartdg def} if /pchartg where {pop /pchart1 pchartg def /pchart2 pchartg def /pchartd pchartdg def} if /colsepg where {pop /colsep1 colsepg def /colsep2 colsepg def /colsepd colsepdg def} if /pmetamg where {pop /pmetam1 pmetamg def /pmetam2 pmetamg def /pmetamd pmetamdg def} if /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} if /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} if /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} if /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} if /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 6 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 7 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} if /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} if /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} if %only for editorial change of the following LOOPs %/lanind lanind1 def % %/colorm colorm1 def % %/deintp deintp1 def % %/xcolor xcolor1 def % %/xchart xchart1 def % %/pchart pchart1 def % %/colsep colsep1 def % %/pmetam pmetam1 def % /lanind lanind1 def %lanind1 lanindd lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 colormd colorm2 {/colorm exch def %output showpage /deintp deintp1 def %deintp1 deintpd deintp2 {/deintp exch def %output showpage /xcolor xcolor1 def %xcolor1 xcolord xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 xchartd xchart2 {/xchart exch def %output showpage /pchart pchart1 def %pchart1 pchartd pchart2 {/pchart exch def %output showpage /colsep colsep1 def %colsep1 colsepd colsep2 {/colsep exch def %output showpage /pmetam pmetam1 def %pmetam1 pmetamd pmetam2 {/pmetam exch def %output showpage %pmetam 0 eq {/colsep 0 def} %cmyn5* % {/colsep 1 def} ifelse %cmy0* /Devicea (LRS18a) def xchart 0 eq {/ISRL*ioL 0 def /ISIO*ioL 2 def} if %Laser LRS18 xchart 1 ge {/ISRL*ioL 0 def /ISIO*ioL 2 def} if %Laser LRS18 ISRL*ioL 0 eq {%ISRL*ioL=0 ISIO*ioL 0 eq {/TSYSIOa (ORS18a) def /TSYSIO (ORS18) def /TSYSIOen (Offset Reflective System ) def /TSYSIOde (Offset\255Reflektiv\255System ) def /TSYSIOes (Offset Reflective System ) def /TSYSIOfr (Syst\350me Offset Reflective ) def /TSYSIOit (Offset Reflective System ) def /TSYSIOjp (Offset Reflective System ) def } if ISIO*ioL 1 eq {/TSYSIOa (TLS00a) def /TSYSIOen (Television Luminous System ) def /TSYSIOde (Fernseh\255Lichtfarben\255System ) def /TSYSIOes (Television Luminous System ) def /TSYSIOfr (Syst\350me T\351l\351vision Lumicie ) def /TSYSIOit (Television Luminous System ) def /TSYSIOjp (Television Luminous System ) def } if ISIO*ioL 2 eq {/TSYSIOa (FRS06a) def /TSYSIOen (Printer Reflective System ) def /TSYSIOde (Drucker\255Reflektiv\255System ) def /TSYSIOes (Printer Reflective System ) def /TSYSIOfr (Syst\350me Printer Reflective ) def /TSYSIOit (Printer Reflective System ) def /TSYSIOjp (Printer Reflective System ) def } if ISIO*ioL 3 eq {/TSYSIOa (TLS18a) def /TSYSIOen (Television Luminous System ) def /TSYSIOde (Fernseh\255Lichtfarben\255System ) def /TSYSIOes (Television Luminous System ) def /TSYSIOfr (Syst\350me T\351l\351vision Lumicie ) def /TSYSIOit (Television Luminous System ) def /TSYSIOjp (Television Luminous System ) def } if ISIO*ioL 4 eq {/TSYSIOa (NLS00a) def /TSYSIOen (Natural Luminous System ) def /TSYSIOde (Nat\374rliches\255Lichtfarben\255System ) def /TSYSIOes (Natural Luminous System ) def /TSYSIOfr (Syst\350me Natural Lumicie ) def /TSYSIOit (Natural Luminous System ) def /TSYSIOjp (Natural Luminous System ) def } if ISIO*ioL 5 eq {/TSYSIOa (NRS18a) def /TSYSIOen (Natural Reflective System ) def /TSYSIOde (Nat\374rliches\255Reflektiv\255System ) def /TSYSIOes (Natural Reflective System ) def /TSYSIOfr (Syst\350me Natural Reflective ) def /TSYSIOit (Natural Reflective System ) def /TSYSIOjp (Natural Reflective System ) def } if ISIO*ioL 6 eq {/TSYSIOa (SRS18a) def /TSYSIOen (Standard Reflective System ) def /TSYSIOde (Standard\255Reflektiv\255System ) def /TSYSIOes (Standard Reflective System ) def /TSYSIOfr (Syst\350me Standard Reflective) def /TSYSIOit (Standard Reflective System ) def /TSYSIOjp (Standard Reflective System ) def } if ISIO*ioL 7 eq {/TSYSIOa (TLS70a) def /TSYSIOen (Television Luminous System ) def /TSYSIOde (Fernseh\255Lichtfarben\255System ) def /TSYSIOes (Television Luminous System ) def /TSYSIOfr (Syst\350me T\351l\351vision Lumicie ) def /TSYSIOit (Television Luminous System ) def /TSYSIOjp (Television Luminous System ) def } if } if %ISRL*ioL=0 ISRL*ioL 1 eq {%ISRL*ioL=1 ISIO*ioL 0 eq {/TSYSIOa (TLS00a) def} if ISIO*ioL 1 eq {/TSYSIOa (TLS06a) def} if ISIO*ioL 2 eq {/TSYSIOa (TLS11a) def} if ISIO*ioL 3 eq {/TSYSIOa (TLS18a) def} if ISIO*ioL 4 eq {/TSYSIOa (TLS27a) def} if ISIO*ioL 5 eq {/TSYSIOa (TLS38a) def} if ISIO*ioL 6 eq {/TSYSIOa (TLS52a) def} if ISIO*ioL 7 eq {/TSYSIOa (TLS70a) def} if /TSYSIOen (Television Luminous System ) def /TSYSIOde (Fernseh\255Lichtfarben\255System ) def /TSYSIOes (Television Luminous System ) def /TSYSIOfr (Syst\350me T\351l\351vision Lumicie ) def /TSYSIOit (Television Luminous System ) def /TSYSIOjp (Television Luminous System ) def } if %ISRL*ioL=1 ISRL*ioL 2 eq {%ISRL*ioL=2 ISIO*ioL 0 eq {/TSYSIOa (OLS00a) def} if ISIO*ioL 1 eq {/TSYSIOa (OLS06a) def} if ISIO*ioL 2 eq {/TSYSIOa (OLS11a) def} if ISIO*ioL 3 eq {/TSYSIOa (OLS18a) def} if ISIO*ioL 4 eq {/TSYSIOa (OLS27a) def} if ISIO*ioL 5 eq {/TSYSIOa (OLS38a) def} if ISIO*ioL 6 eq {/TSYSIOa (OLS52a) def} if ISIO*ioL 7 eq {/TSYSIOa (OLS70a) def} if /TSYSIOen (Offset Reflective System ) def /TSYSIOde (Offset\255Reflektiv\255System ) def /TSYSIOes (Offset Reflective System ) def /TSYSIOfr (Syst\350me Offset Reflective ) def /TSYSIOit (Offset Reflective System ) def /TSYSIOjp (Offset Reflective System ) def } if %ISRL*ioL=2 proc_LAB*ioL xchart 0 eq {/ausz 8 def /xchartt (A) def} if %LOOP not possible xchart 1 eq {/ausz 8 def /xchartt (F) def} if %in case of image xchart 2 eq {/ausz 1 def /xchartt (C) def} if xchart 3 eq {/ausz 2 def /xchartt (M) def} if xchart 4 eq {/ausz 3 def /xchartt (Y) def} if xchart 5 eq {/ausz 7 def /xchartt (N) def} if xchart 6 ge {/ausz 8 def /xchartt (F) def} if 7 /Times-ISOL1 FS 130 83 moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolor cvishow xchart cvishow pchart cvishow colsep cvishow (-L) show pmetam cvishow 180 83 moveto (QS590-7) show xchart 0 eq {(N) show} {deintp colorm 2 mul add cvishow} ifelse 72 90 translate /xt 1 def xchart 1 eq {/xt 1 def} if xt 0 eq {0.0115 MM} {0.010 MM} ifelse dup scale /xchart3P4 xchart3 4 add def /xchart3P15 xchart3 15 add def pmetam 0 eq {%pmetam=0 40 setlinewidth xchart xchart3P4 le {0.5 setgray} {1 setgray} ifelse 0 0 moveto 24600 0 rlineto 0 17220 rlineto -24600 0 rlineto closepath fill 0 setgray 0 0 moveto 24600 0 rlineto 0 17220 rlineto -24600 0 rlineto closepath stroke } if %pmetam=0 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 /xcharts 9 xchart4 add def %************************************************************** xchart xchart3P4 le {%BEG LOOP0: xchart<=xchart3P4 %two pages for xchart=0,1+4 separations /ColNames 17 array def /ColNames [(R) (Y) (G) (C) (B) (M) (N) (W) (R) (Y) (G) (B) ] def /AngsTabt 68 array def /AngsTabt [%31 angles = 360/22,5 + 1 = 16 + 1 000.0 1.00 0.00 0.00 %r00j 022.5 1.00 0.25 0.00 045.0 1.00 0.50 0.00 %r50j 067.5 1.00 0.75 0.00 090.0 1.00 1.00 0.00 %j00g 112.5 0.75 1.00 0.00 135.0 0.50 1.00 0.00 %j50g 157.5 0.25 1.00 0.00 180.0 0.00 1.00 0.00 %g00b 202.5 0.00 1.00 0.50 225.0 0.00 1.00 1.00 %g50b 247.5 0.00 0.50 1.00 270.0 0.00 0.00 1.00 %b00r 292.5 0.50 0.00 1.00 315.0 1.00 0.00 1.00 %b50r 337.5 1.00 0.00 0.50 360.0 1.00 0.00 0.00 %r00j ] def /xs 1000 def /ys xs def /d2 xs 2 div def /d8 xs 8 div def /xs5x xs 5.4 mul def /ys5x ys 5.4 mul def /x xs 0.15 mul def /y ys 12.0 mul def /xd 800 def /yd 800 def /xd5x xs5x 200 sub def /yd5x ys5x 200 sub def /j 0 def /i 0 def /xds 600 def /xmin 0000 def /xmax 10000 def /ymin 0000 def /ymax 10000 def %Spalten /S11 0020 def %code /S21 1300 def %L* /S31 2100 def %a* /S41 2900 def %b* /S51 3800 def %C* /S61 4650 def %h* /S1t 0020 def %code /S2t 2200 def %L* /S3t 3000 def %a* /S4t 3800 def %b* /S5t 4650 def %C* /S6t 5450 def %h* /xcharti pchart def %************************************************************************** 0 1 1 {/ibild exch def %ibild=0,1 xcharts 9 eq {%xcharts=9 %BEG CIELAB_09 xchart=09 ibild 0 eq { 1900 1700 translate} if ibild 1 eq {13800 1700 translate} if %BEG CIELAB_09 Top Text Hue Circles ibild 0 eq {%ibild=0 1 setgray TBG0 /xtext0 -1700 def /xtext1 -1200 def /cfakt 1.0 def xtext0 15000 moveto (Input and Output: ) showen (Ein\255 und Ausgabe: ) showde (Entrada i salida: ) showes (Entr\351e et sortie: ) showfr (Immetere y uscita: ) showit (Input and Output: ) showjp TSYSIOen showen TSYSIOde showde TSYSIOes showes TSYSIOfr showfr TSYSIOit showit TSYSIOjp showjp TSYSIOa show TBG0 xtext0 14500 moveto (Data for any device (d) or) showen (Daten f\374r jede Ger\344te\255 (d) oder) showde (Datos del dispositivo (d) o) showes (Donn\351es de couleurs p\351riph\351riques (d)) showfr (Dati del dispositivo (d) o) showit (Data for any device (d) or) showjp xtext0 14100 moveto (elementary (e) colour:) showen (Elementarfarbe (e):) showde (elemental (e) color:) showes (ou \351l\351mentaires (e):) showfr (colori elementari (e):) showit (elementary (e) colour:) showjp xtext1 13700 moveto TBIG0 (HIC*) show TBM0 -20 -50 rmoveto Fxx show 0 50 rmoveto TBG0 xtext0 13300 moveto TBG0 (hue text for the colours) showen (Bunttontext f\374r die Farben) showde (c\363digo de tono para les colores) showes (code de teinte pour les cou\255) showfr (codice di tonalit\340 per i colori) showit (hue text for the colours) showjp xtext0 12900 moveto (of this page: ) showen (dieser Seite: ) showde (esta p\341gina: ) showes (leurs de cette p\341ge: ) showfr (questa pagina: ) showit (of this page: ) showjp xtext1 12500 moveto TBIG0 (H*) show -20 -50 rmoveto TBM0 Fxx show 0 50 rmoveto TBG0 ( = ) show TBG0 COLhNam16 00 get show 0 -50 rmoveto TBM0 Fxx show 0 50 rmoveto(, ) show TBG0 COLhNam16 01 get show 0 -50 rmoveto TBM0 Fxx show 0 50 rmoveto(, ..., ) show TBG0 COLhNam16 15 get show 0 -50 rmoveto TBM0 Fxx show 0 50 rmoveto TBG0 %cfakt 1 ne {%cfakt#1 %xtext0 12100 moveto TBG0 %(contrast reduction factor: ) showen (Kontrastreduzierungsfaktor: ) showde %xtext1 11600 moveto %TBIG0 (c) show TBM0 0 -130 rmoveto (R) show 0 130 rmoveto %TBG0 ( = ) show %cfakt cvsshow2 %} if %cfakt#1 } if %ibild=0 %END CIELAB_09 Top Text Hue Circle %*********************************************************** %BEG CIELAB_09 Hue Circle -1200 -1500 translate %transfer for colour circle /xym 4 def 25 setlinewidth /xd2 xd 0.8 mul def ibild 0 eq {0.5 0.5 0.5 setrgbcolor} {1.0 1.0 1.0 setrgbcolor} ifelse 0 0 moveto 2800 xym mul 0 rlineto 0 2800 xym mul rlineto -2800 xym mul 0 rlineto closepath fill 0.0 setgray 0 0 moveto 2800 xym mul 0 rlineto 0 2800 xym mul rlineto -2800 xym mul 0 rlineto closepath stroke 1400 xym mul 1400 xym mul translate %cero at center -600 xym mul 0 moveto 600 xym mul 0 lineto stroke 0 -750 xym mul moveto 0 750 xym mul lineto stroke /rx 774 xym mul 1.56 mul def %standard hexagon gamut 0 0 0 setrgbcolor 0 0 rx 0 360 arc stroke /xs3 1400 def /xd3 xs3 2 div def CBKK 0 1 15 {/j exch def %j=0,15 /xpos rx AngsTabt j 4 mul get cos mul def /ypos rx AngsTabt j 4 mul get sin mul def /xa xpos xd3 sub def /ya ypos xd3 sub def /r_x AngsTabt j 4 mul 1 add get def /g_x AngsTabt j 4 mul 2 add get def /b_x AngsTabt j 4 mul 3 add get def /tLAB 1 def r_x g_x b_x setrgbcolor xa ya xs3 xs3 rec fill 1 r_x sub 1 g_x sub 1 b_x sub 0 setcmykcolor xa ya xs3 0.5 mul dup rem fill } for %j=0,15 TBG0 0 0 0 setrgbcolor 2100 1300 moveto (yellowish) showen (gelblich) showde (amarillento) showes (jaun\342tre) showfr (giallastro) showit (yellowish) showjp -3600 1300 moveto (yellowish) showen (gelblich) showde (amarillento) showes (jaun\342tre) showfr (giallastro) showit (yellowish) showjp 2300 -1450 moveto ( bluish) showen (bl\344ulich) showde (azulado) showes (blue\342tre) showfr (bluastro) showit ( bluish) showjp -3600 -1450 moveto ( bluish) showen (bl\344ulich) showde (azulado) showes (blue\342tre) showfr (bluastro) showit ( bluish) showjp -2000 3300 moveto (greenish) showen (gr\374nlich) showde ( verdoso) showes (verd\342tre) showfr (verdastro) showit (greenish) showjp -2000 -3500 moveto (greenish) showen (gr\374nlich) showde ( verdoso) showes (verd\342tre) showfr (verdastro) showit (greenish) showjp 900 3300 moveto ( redish) showen (r\366tlich) showde ( rojizo) showes (rouge\342tre) showfr (rossastro) showit ( redish) showjp 900 -3500 moveto ( redish) showen (r\366tlich) showde ( rojizo) showes (rouge\342tre) showfr (rossastro) showit ( redish) showjp -4000 -100 moveto (Green) showen (Gr\374n) showde (Green) showes (Vert) showfr (Verde) showit (Green) showjp TBIG0 ( G) show TBM0 0 -30 rmoveto Fxx show 0 30 rmoveto TBG0 2600 -100 moveto (Red) showen (Rot) showde (Rojo) showes (Rouge) showfr (Rosso) showit (Red) showjp TBIG0 ( R) show TBM0 0 -30 rmoveto Fxx show 0 30 rmoveto TBG0 -500 3700 moveto (Yellow) showen (Gelb) showde (Amarillo) showes (Jaune) showfr (Giallo) showit (Yellow) showjp TBIG0 ( Y) show TBM0 0 -30 rmoveto Fxx show 0 30 rmoveto TBG0 -400 -3900 moveto (Blue) showen (Blau) showde (Azul) showes (Bleu) showfr (Blu) showit (Blue) showjp TBIG0 ( B) show TBM0 0 -30 rmoveto Fxx show 0 30 rmoveto TBG0 -1400 xym mul -1400 xym mul translate 1200 1500 translate %END CIELAB_09 Hue Circle %**************************************************************************** %CIELAB_09-T16 /xdev 11000 def /xele -09250 def /xtop 600 def ibild 0 eq {5600 xdev add }{4700 xele add} ifelse 9600 xtop add translate proc_CIELAB_T16 ibild 0 eq {-5600 xdev sub}{-4700 xele sub} ifelse -9600 xtop sub translate %END CIELAB_09 Table %**************************************************************************** %BEG CIELAB_09 Diagram ibild 0 eq { %ibild=0 2600 xdev add 11600 xtop add translate proc_CIELAB_D -2600 xdev sub -11600 xtop sub translate } if %ibild=0 %END CIELAB_09 Diagram %**************************************************************************** %BEG CIELAB_09 Gamut ibild 1 eq { %ibild=1 proc_CIELAB_G } if %ibild=1 %END CIELAB_09 Diagram ibild 0 eq { 1900 neg 1700 neg translate} if ibild 1 eq {13800 neg 1700 neg translate} if } if %xcharts=9 %END CIELAB_09 xchart=09 %***************************************************************************** xcharts 10 ge xcharts 25 le and {%xcharts=10,25 %BEG CIELAB_10,25 xcharts=10,25 %BEG CIELAB_10 Top Text Hue Triangles ibild 0 eq { 1900 1700 translate} if ibild 1 eq {13800 1700 translate} if 1.0 setgray 25 setlinewidth -200 000 moveto 10500 0 rlineto stroke 000 -200 moveto 0 11800 rlineto stroke ibild 0 eq {2500 -200 moveto 0 400 rlineto stroke 5000 -200 moveto 0 400 rlineto stroke 7500 -200 moveto 0 400 rlineto stroke} {2000 -200 moveto 0 400 rlineto stroke 4000 -200 moveto 0 400 rlineto stroke 6000 -200 moveto 0 400 rlineto stroke 8000 -200 moveto 0 400 rlineto stroke }ifelse 10000 -200 moveto 0 400 rlineto stroke -200 5000 moveto 400 0 rlineto stroke -200 10000 moveto 400 0 rlineto stroke 000 000 moveto 10000 5000 rlineto -10000 5000 rlineto stroke 09700 -450 sub 000 150 add moveto 450 -150 rlineto -450 -150 rlineto closepath fill 000 150 sub 11000 -450 sub moveto 150 450 rlineto 150 -450 rlineto closepath fill TM0 %C*, C* ibild 0 eq { %ibild=0,1 /iy0 -600 def 0 200 sub iy0 moveto (000) show 2500 200 sub iy0 moveto (025) show 5000 200 sub iy0 moveto (050) show 7500 200 sub iy0 moveto (075) show 10000 200 sub iy0 moveto (100) show } { /iy0 -600 def 0 200 sub iy0 moveto (000) show 2000 200 sub iy0 moveto (020) show 4000 200 sub iy0 moveto (040) show 6000 200 sub iy0 moveto (060) show 8000 200 sub iy0 moveto (080) show 10000 200 sub iy0 moveto (100) show } ifelse %ibild=0,1 TM0 %T*, L* ibild 0 eq { %ibild=0,1 /ix0 -1750 def /iy0 200 def ix0 0 iy0 sub moveto (000) show ix0 2500 iy0 sub moveto (025) show ix0 5000 iy0 sub moveto (050) show ix0 7500 iy0 sub moveto (075) show ix0 10000 iy0 sub moveto (100) show } { /ix0 -0900 def /iy0 200 def ix0 0 iy0 sub moveto (000) show ix0 2500 iy0 sub moveto (025) show % ix0 5000 iy0 sub moveto (050) show ix0 7500 iy0 sub moveto (075) show ix0 10000 iy0 sub moveto (100) show } ifelse %ibild=0,1 TM0 i%* ibild 0 eq {%ibild=0,1 /iy0 1550 def 10000 400 sub 5000 iy0 sub moveto TIM0 (I*) show TM0 ( = 100) show 7500 400 sub 3750 iy0 sub moveto TIM0 (I*) show TM0 ( = 075) show 5000 400 sub 2500 iy0 sub moveto TIM0 (I*) show TM0 ( = 050) show 2500 400 sub 1250 iy0 sub moveto TIM0 (I*) show TM0 ( = 025) show 000 400 sub 00 iy0 sub moveto TIM0 (I*) show TM0 ( = 000) show }%ibild=0 {%ibild=1 /iy0 700 def 10000 500 sub 4700 iy0 sub moveto TIM0 (I*) show TM0 (=100) show 8000 200 sub 4000 iy0 sub moveto TIM0 (I*) show TM0 (=080) show 6000 200 sub 3000 iy0 sub moveto TIM0 (I*) show TM0 (=060) show 4000 200 sub 2000 iy0 sub moveto TIM0 (I*) show TM0 (=040) show 2000 200 sub 1000 iy0 sub moveto TIM0 (I*) show TM0 (=020) show 000 200 sub -300 iy0 sub moveto TIM0 (I*) show TM0 (=000) show } ifelse %ibild=0,1 ibild 0 eq {/iy0 2400 def} {/iy0 1400 def} ifelse 09000 0500 sub 4300 iy0 sub moveto 1000 500 rlineto stroke 10000 0500 sub 4800 iy0 sub moveto -450 -50 rlineto 150 -300 rlineto closepath fill 10000 2600 sub 3800 iy0 sub moveto TBG0 (brilliance) showen (Brillantheit) showde (brillo) showes (brillance) showfr (brillantezza) showit (brilliance) showjp TBIG0 ( I*) show 7200 -1100 moveto TBG0 (chroma) showen (Buntheit) showde (chroma) showes (chroma) showfr (croma) showit (chroma) showjp TBIG0 ( C*) show TBG0 /xtext0 -1700 def /xtext1 -1200 def ibild 0 eq { %ibild=0 TBG0 xtext0 14500 moveto (Data for any device (d) or) showen (Daten f\374r jede Ger\344te\255 (d) oder) showde (Datos del dispositivo (d) o) showes (Donn\351es de couleurs p\351riph\351riques (d)) showfr (Dati del dispositivo (d) o) showit (Data for any device (d) or) showjp xtext0 14100 moveto (elementary (e) colour:) showen (Elementarfarbe (e):) showde (elemental (e) color:) showes (ou \351l\351mentaires (e):) showfr (colori elementari (e):) showit (elementary (e) colour:) showjp xtext1 13700 moveto TBIG0 (HIC*) show TBM0 -20 -50 rmoveto Fxx show 0 50 rmoveto TBG0 xtext0 13300 moveto TBG0 (hue text for the colours) showen (Bunttontext f\374r die Farben) showde (c\363digo de tono para les colores) showes (code de teinte pour les cou\255) showfr (codice di tonalit\340 per i colori) showit (hue text for the colours) showjp xtext0 12900 moveto (of this page: ) showen (dieser Seite: ) showde (esta p\341gina: ) showes (leurs de cette p\341ge: ) showfr (questa pagina: ) showit (of this page: ) showjp xtext1 12500 moveto TBIG0 (H*) show -20 -50 rmoveto TBM0 Fxx show 0 50 rmoveto TBG0 ( = ) show TBG0 COLhNam16 xchart4 1 sub get show 0 -50 rmoveto TBM0 Fxx show 0 50 rmoveto %Equal data text for top right page in black 0 setgray 20000 14900 moveto TBIG0 (H*) show TBM0 -20 -50 rmoveto Fxx show 0 50 rmoveto TBG0 ( = ) show TBG0 COLhNam16 xchart4 1 sub get show 0 -50 rmoveto TBM0 Fxx show 0 50 rmoveto 1 setgray cfakt 1 ne {%cfakt#1 xtext0 12900 moveto TBG0 (factor of contrast reduction: ) showen (Faktor der Kontrast\255Reduzierung: ) showde (factor de reducci\363n del contraste: ) showes (facteur de contraste r\351duction: ) showfr (fattore di riduzione di contrasto: ) showit (factor of contrast reduction: ) showjp xtext1 12500 moveto TBIG0 (c) show TBM0 0 -130 rmoveto (R) show 0 130 rmoveto TBG0 ( = ) show cfakt cvsshow2 } if %cfakt#1 xtext1 12000 moveto TBG0 (triangle lightness) showen (Dreiecks\255Helligkeit) showde (tri\340ngulo claridad) showes (triangle de luminosit\351) showfr (triangulo chiarezza) showit (triangle lightness) showjp TBIG0 ( T*) show /ixt 12500 def /iyt 000 def TBG0 -1200 ixt add 12000 iyt add moveto TBG0 (triangle lightness) showen (Dreiecks\255Helligkeit) showde (tri\340ngulo claridad) showes (triangle de luminosit\351) showfr (triangulo chiarezza) showit (triangle lightness) showjp TBIG0 ( T*) show TBG0 -1200 ixt add 14500 iyt add moveto (Data for maximum colour (Ma): ) showen (Daten f\374r Maximalfarbe (Ma): ) showde (Los datos de color m\341ximo (Ma): ) showes (Les donn\351es de couleur maximale (Ma): ) showfr (Il dati per il massimo colore (Ma): ) showit (Data for maximum colour (Ma): ) showjp TBIG0 -1200 ixt add 14000 iyt add moveto (LabCh*) show TBM0 -20 -50 rmoveto Fxx show (,Ma) show 0 50 rmoveto TBG0 (: ) show /i xcharts 10 sub def i 8 le {/i1 i def}{/i1 i 1 add def} ifelse %dup at no. 10 /i30 i1 3 mul def /i31 i30 1 add def /i32 i30 2 add def xchart 0 eq {%xchart=0,>0 %16 measured data, see PE54L0NP.pdf, page 11/24 %PE540-7N, Page 11/24 HIC*Fd rgb*Fd LabCh*Fd /LAB*a48 432 array def %48x9=432 /LAB*a48 [%HIC rgb LabCh nr (R00Y_100_100d) 1.000 0.000 0.000 48.4 66.1 40.2 77.4 31.3 %00 (R13Y_100_100d) 1.000 0.116 0.000 52.5 57.3 45.5 73.2 38.4 %01 (R25Y_100_100d) 1.000 0.233 0.000 56.8 48.0 50.5 69.8 46.4 %02 (R38Y_100_100d) 1.000 0.366 0.000 62.5 36.5 57.1 67.8 57.3 %03 (R50Y_100_100d) 1.000 0.500 0.000 68.6 25.0 63.9 68.7 68.6 %04 (R63Y_100_100d) 1.000 0.633 0.000 74.9 14.1 71.1 72.5 78.7 %05 (R75Y_100_100d) 1.000 0.766 0.000 80.6 4.8 77.2 77.4 86.4 %06 (R88Y_100_100d) 1.000 0.883 0.000 85.4 -2.5 82.3 82.3 91.7 %07 (Y00G_100_100d) 1.000 1.000 0.000 90.2 -9.6 88.2 88.7 96.2 %08 (Y13G_100_100d) 0.883 1.000 0.000 86.7 -14.2 83.5 84.7 99.6 %09 (Y25G_100_100d) 0.766 1.000 0.000 83.2 -18.4 79.9 82.0 102.9 %10 (Y38G_100_100d) 0.633 1.000 0.000 77.9 -25.1 69.5 74.0 109.8 %11 (Y50G_100_100d) 0.500 1.000 0.000 73.3 -31.7 62.7 70.3 116.8 %12 (Y63G_100_100d) 0.366 1.000 0.000 68.2 -39.5 55.9 68.5 125.2 %13 (Y75G_100_100d) 0.233 1.000 0.000 62.0 -49.7 43.2 65.9 138.9 %14 (Y88G_100_100d) 0.116 1.000 0.000 59.1 -57.1 38.5 68.9 145.9 %15 (G00C_100_100d) 0.000 1.000 0.000 55.8 -65.2 33.8 73.5 152.5 %16 (G13C_100_100d) 0.000 1.000 0.116 56.6 -62.9 24.0 67.3 159.0 %17 (G25C_100_100d) 0.000 1.000 0.233 57.4 -59.7 13.9 61.3 166.8 %18 (G38C_100_100d) 0.000 1.000 0.366 58.5 -54.9 1.5 55.0 178.4 %19 (G50C_100_100d) 0.000 1.000 0.500 59.3 -50.3 -9.0 51.1 190.2 %20 (G63C_100_100d) 0.000 1.000 0.633 60.1 -45.6 -18.7 49.3 202.3 %21 (G75C_100_100d) 0.000 1.000 0.766 61.1 -40.3 -27.8 49.0 214.6 %22 (G88C_100_100d) 0.000 1.000 0.883 62.0 -35.8 -34.7 49.9 224.0 %23 (C00B_100_100d) 0.000 1.000 1.000 63.0 -30.5 -42.0 51.9 234.0 %24 (C13B_100_100d) 0.000 0.883 1.000 59.4 -25.3 -42.7 49.7 239.2 %25 (C25B_100_100d) 0.000 0.766 1.000 55.8 -20.3 -43.2 47.7 244.7 %26 (C38B_100_100d) 0.000 0.633 1.000 50.8 -13.3 -43.9 45.9 253.0 %27 (C50B_100_100d) 0.000 0.500 1.000 45.7 -5.7 -44.6 45.0 262.6 %28 (C63B_100_100d) 0.000 0.366 1.000 40.4 2.6 -45.2 45.2 273.3 %29 (C75B_100_100d) 0.000 0.233 1.000 36.0 10.1 -46.1 47.2 282.3 %30 (C88B_100_100d) 0.000 0.116 1.000 32.1 17.3 -46.7 49.8 290.3 %31 (B00M_100_100d) 0.000 0.000 1.000 27.5 25.9 -47.3 54.0 298.7 %32 (B13M_100_100d) 0.116 0.000 1.000 29.5 33.4 -43.1 54.6 307.7 %33 (B25M_100_100d) 0.233 0.000 1.000 31.0 39.9 -38.5 55.5 315.9 %34 (B38M_100_100d) 0.366 0.000 1.000 35.1 44.5 -34.7 56.5 322.0 %35 (B50M_100_100d) 0.500 0.000 1.000 38.3 52.6 -28.5 59.9 331.5 %36 (B63M_100_100d) 0.633 0.000 1.000 41.2 59.3 -22.0 63.3 339.6 %37 (B75M_100_100d) 0.766 0.000 1.000 45.2 63.8 -18.2 66.4 344.0 %38 (B88M_100_100d) 0.883 0.000 1.000 47.5 68.6 -13.8 69.9 348.5 %39 (M00R_100_100d) 1.000 0.000 1.000 49.5 73.5 -9.0 74.1 352.9 %40 (M13R_100_100d) 1.000 0.000 0.883 49.4 72.4 -4.0 72.5 356.7 %41 (M25R_100_100d) 1.000 0.000 0.766 49.3 71.4 0.4 71.4 0.3 %42 (M38R_100_100d) 1.000 0.000 0.633 49.3 69.8 6.6 70.1 5.4 %43 (M50R_100_100d) 1.000 0.000 0.500 48.9 69.3 12.9 70.5 10.5 %44 (M63R_100_100d) 1.000 0.000 0.366 48.9 68.1 19.6 70.9 16.1 %45 (M75R_100_100d) 1.000 0.000 0.233 48.8 67.1 27.9 72.7 22.6 %46 (M88R_100_100d) 1.000 0.000 0.116 48.6 66.5 34.1 74.8 27.1 %47 ] def /indFa16 16 array def /indFa16 [00 02 04 06 08 10 12 14 16 20 24 28 32 36 40 44] def /indx indFa16 i get def /i90 indx 9 mul 4 add def /i91 i90 1 add def /i92 i90 2 add def /L*Ma LAB*a48 i90 get def /A*Ma LAB*a48 i91 get def /B*Ma LAB*a48 i92 get def /C*Ma A*Ma dup mul B*Ma dup mul add 0.0001 add sqrt def /H*Ma B*Ma A*Ma 0.0001 add atan def /i90 indx 9 mul 1 add def /i91 i90 1 add def /i92 i90 2 add def /r*xF LAB*a48 i90 get def /g*xF LAB*a48 i91 get def /b*xF LAB*a48 i92 get def }%xchart=0 {%xchart>0 /r*x r*dd18M i get def /g*x g*dd18M i get def /b*x b*dd18M i get def r*x g*x b*x setrgbcolor %default to create data %setrgbcolor calculates data for output in "FF_LM_de_setrgbcolor_F" %colorm=0 calculates: rgb_dyF, rgb*dyF, LAB*dyF, ,cmyk*dyF and more %colorm=1 calculates: rgb_dyF, rgb*dyF, LAB*dyF', rgb'*dyF, cmyk*dyF and more /r_xF r_dyF def /g_xF g_dyF def /b_xF b_dyF def /i_xF i_dyF def /c_xF c_dyF def /t_xF t_dyF def /r*xF r*dyF def /g*xF g*dyF def /b*xF b*dyF def /LAB*LxF LAB*LdyF def /LAB*axF LAB*adyF def /LAB*bxF LAB*bdyF def /LAB*CxF LAB*adyF dup mul LAB*bdyF dup mul add 0.0001 add sqrt def /LAB*hxF LAB*bdyF LAB*adyF 0.0001 add atan def colorm 0 eq {%colorm=0 %proc_rgb_dyF_LAB*'dyF uses rgb_dyF by default %calculates output data according to IEC 61966-2-1 proc_rgb_dyF_LAB*'dyF /LAB*'LxF L*'dyF def /LAB*'axF a*'dyF def /LAB*'bxF b*'dyF def /LAB*'CxF C*'dyF def /LAB*'hxF h*'dyF def } if %colorm=0 colorm 1 eq {%colorm=1 /r'*xF r'*dyF def /g'*xF g'*dyF def /b'*xF b'*dyF def %calculates output data according to IEC 61966-2-1 proc_rgb'*dyF_LAB'*dyF /LAB'*LxF L'*dyF def /LAB'*axF a'*dyF def /LAB'*bxF b'*dyF def /LAB'*CxF C'*dyF def /LAB'*hxF h'*dyF def } if %colorm=1 %colorm 0 eq {%colorm=0 % /L*Ma LAB*'LxF def % /A*Ma LAB*'axF def % /B*Ma LAB*'bxF def % /C*Ma LAB*'CxF def % /H*Ma LAB*'hxF def % }%colorm=0 % {%colorm=1 % /L*Ma LAB'*LxF def % /A*Ma LAB'*axF def % /B*Ma LAB'*bxF def % /C*Ma LAB'*CxF def % /H*Ma LAB'*hxF def % } ifelse %colorm=0,1 /L*Ma LAB*LxF def /A*Ma LAB*axF def /B*Ma LAB*bxF def /C*Ma LAB*CxF def /H*Ma LAB*hxF def } ifelse %xchart=0,>0 1 setgray L*Ma cvishow ( ) show A*Ma cvishow ( ) show B*Ma cvishow ( ) show C*Ma cvishow ( ) show H*Ma cvishow ( ) show %calculation of i*xF, c*xF, and t*xF /maxd r*xF def g*xF maxd gt {/maxd g*xF def} if b*xF maxd gt {/maxd b*xF def} if /mind r*xF def g*xF mind lt {/mind g*xF def} if b*xF mind lt {/mind b*xF def} if /i*xF maxd def /c*xF maxd mind sub def /t*xF i*xF c*xF 0.5 mul sub def TBIG0 -1200 ixt add 13500 iyt add moveto (HIC*) show TBM0 -20 -50 rmoveto Fxx show (,Ma) show 0 50 rmoveto TBG0 (: ) show TBG0 COLhNam16 i get show (_) show /I*xF i*xF 100 mul cvi def I*xF 09 le {(00) show} if %filling cero I*xF 09 gt I*xF 99 le and {(0) show} if %range 0..100 I*xF 6 string cvs show (_) show /C*xF c*xF 100 mul cvi def C*xF 09 le {(00) show} if %filling cero C*xF 09 gt C*xF 99 le and {(0) show} if %range 0..100 C*xF 6 string cvs show TBM0 00 -50 rmoveto Fxx show 0 50 rmoveto TBIG0 -1200 ixt add 13000 iyt add moveto (rgbic*) show TBM0 -20 -50 rmoveto Fxx show (,Ma) show 0 50 rmoveto TBG0 (: ) show -1200 ixt add 12500 iyt add moveto r*xF cvsshow2 ( ) show g*xF cvsshow2 ( ) show b*xF cvsshow2 ( ) show i*xF cvsshow2 ( ) show c*xF cvsshow2 ( ) show } if %ibild=0 ibild 0 eq { %ibild=0 xtext0 15000 moveto (Input and Output: ) showen (Ein\255 und Ausgabe: ) showde (Entrada i salida: ) showes (Entr\351e et sortie: ) showfr (Immetere y uscita: ) showit (Input and Output: ) showjp TSYSIOen showen TSYSIOde showde TSYSIOes showes TSYSIOfr showfr TSYSIOit showit TSYSIOjp showjp TSYSIOa show /i xcharts 10 sub def TBG0 ( for relative CIELAB hue) showen ( f\374r relativen CIELAB\255Buntton) showde ( for relative CIELAB hue) showes ( pour la teinte CIELAB relative) showfr ( for relative CIELAB hue) showit ( for relative CIELAB hue) showjp TBIG0 ( h) show TBM0 0 -50 rmoveto (ab,a,rel) show 0 50 rmoveto TBG0 ( = ) show TBIG0 ( h) show TBM0 -20 -50 rmoveto (ab) show 0 50 rmoveto TBG0 (/360 = ) show H*Ma cvishow (/360 = ) show H*Ma 360 div cvsshow2 } if %ibild=0 %END CIELAB_10 Top Text Hue Triangles %*********************************************************************** %BEG CIELAB_10 Hue Triangle left 5 steps 0.0 setgray CBM0 ibild 0 eq { %ibild=0 /Tabfakt 0.82 def /anz 5 def /xs 10000 anz 3 add div def /ys xs def /x9 xs 1.8 mul def /xd xs 2 mul def /yd xs def 1 1 1 setrgbcolor %n* 1 1 3 {/j exch def /x1 xmin def /y1 ymax yd j 2 mul mul sub def /x2 xmin xd 4 j sub mul add def /y2 ymin yd 4 j sub mul add def x1 y1 moveto x2 y2 lineto stroke } for %c* 1 1 3 {/j exch def /x1 xmin xd j mul add def /y1 ymax yd j mul sub def /x2 xmin xd j mul add def /y2 ymin yd j mul add def x1 y1 moveto x2 y2 lineto stroke } for xcharts 6 ge {/i xcharts 10 sub def /r*xsi r*dd18M i get def /g*xsi g*dd18M i get def /b*xsi b*dd18M i get def } if /id 1 4 div def 0 1 04 {/j exch def %j=0,4 /im 4 j sub def 0 1 im {/i exch def %i=0,4 im 0 eq %im=0 {/r*x 0 def /g*x 0 def /b*x 0 def} %im=0 {/ia 1 id j mul sub def /argb ia def /brgb ia i id mul sub def xcharts 0 eq {/r*x argb def /g*x brgb def /b*x brgb def} if xcharts 1 eq {/r*x argb def /g*x argb def /b*x brgb def} if xcharts 2 eq {/r*x brgb def /g*x argb def /b*x brgb def} if xcharts 3 eq {/r*x brgb def /g*x argb def /b*x argb def} if xcharts 4 eq {/r*x brgb def /g*x brgb def /b*x argb def} if xcharts 5 eq {/r*x argb def /g*x brgb def /b*x argb def} if xcharts 6 ge {%xcharts>=6 /ib 1 im div def %im#0 /ic 1 ib i mul sub def /ie 1 ic sub def /r*x 1 ia mul ic mul r*xsi ia mul ie mul add def /g*x 1 ia mul ic mul g*xsi ia mul ie mul add def /b*x 1 ia mul ic mul b*xsi ia mul ie mul add def } if %xcharts>=6 } ifelse %im=0 r*x g*x b*x setrgbcolor %only to calculate olv'*3, cmyn'*4 /xa xmin xd i mul add 0.5 xd mul sub def /iad j 2 mul def /ya ymax yd i iad add mul sub 1.0 yd mul sub def r*x g*x b*x setrgbcolor xa ya xd xd rec fill xcharti 5 le {1 r*x sub 1 g*x sub 1 b*x sub 0 setcmykcolor xa ya xd 0.5 mul dup rem fill} if xcharti 0 eq {%xcharti=0 [100 300] 0 setdash r*x 0 eq g*x 0 eq and b*x 0 eq and {1 setgray} {0 setgray} ifelse xa ya xd 0.5 mul dup rem stroke [ ] 0 setdash } if %xcharti=0 } for %i=0,4 } for %j=0,4 /i 2 def %mean grey stroke of 5 steps /xa xmin 0.5 xd mul sub def /ya ymax yd i mul 2 mul sub 1.0 yd mul sub def 1 1 1 setrgbcolor xa ya xd xd rec stroke } if %ibild=0 %END CIELAB_10 Hue Triangle left 5 steps %******************************************************************* %BEG CIELAB_10 Hue Triangle right 16 steps ibild 1 eq { %ibild=1 CBK0 /Tabfakt 1 def /anz 16 def /xs 10000 anz 14 add div def /ys xs def /x9 xs 1.8 mul def /xd xs 2 mul def /yd xs def 1 1 1 setrgbcolor %n* 1 1 14 {/j exch def %j=1,14 /x1 xmin def /y1 ymax yd j 2 mul mul sub def /x2 xmin xd 15 j sub mul add def /y2 ymin yd 15 j sub mul add def x1 y1 moveto x2 y2 lineto stroke } for %j=1,14 %c* 1 1 14 {/j exch def %j=1,14 /x1 xmin xd j mul add def /y1 ymax yd j mul sub def /x2 xmin xd j mul add def /y2 ymin yd j mul add def x1 y1 moveto x2 y2 lineto stroke } for %j=1,14 xcharts 6 ge {/i xcharts 10 sub def /r*xsi r*dd18M i get def /g*xsi g*dd18M i get def /b*xsi b*dd18M i get def } if /id 1 15 div def 0 1 15 {/j exch def %j=0,14 /im 15 j sub def 0 1 im {/i exch def %i=0,15 im 0 eq %im=0 {/r*x 0 def /g*x 0 def /b*x 0 def} %im=0 {/ia 1 id j mul sub def /argb ia def /brgb ia i id mul sub def xcharts 0 eq {/r*x argb def /g*x brgb def /b*x brgb def} if xcharts 1 eq {/r*x argb def /g*x argb def /b*x brgb def} if xcharts 2 eq {/r*x brgb def /g*x argb def /b*x brgb def} if xcharts 3 eq {/r*x brgb def /g*x argb def /b*x argb def} if xcharts 4 eq {/r*x brgb def /g*x brgb def /b*x argb def} if xcharts 5 eq {/r*x argb def /g*x brgb def /b*x argb def} if xcharts 6 ge {%xcharts>=6 /ib 1 im div def %im#0 /ic 1 ib i mul sub def /ie 1 ic sub def /r*x 1 ia mul ic mul r*xsi ia mul ie mul add def /g*x 1 ia mul ic mul g*xsi ia mul ie mul add def /b*x 1 ia mul ic mul b*xsi ia mul ie mul add def } if %xcharts>=6 } ifelse %im=0 r*x g*x b*x setrgbcolor %only to calculate olv'*3, cmyn'*4 /xa xmin xd i mul add 0.5 xd mul sub def /iad j 2 mul def /ya ymax yd i iad add mul sub 1.0 yd mul sub def r*x g*x b*x setrgbcolor xa ya xd xd rec fill xcharti 5 le {1 r*x sub 1 g*x sub 1 b*x sub 0 setcmykcolor xa ya xd 0.5 mul dup rem fill} if xcharti 0 eq {%xcharti=0 [100 300] 0 setdash r*x 0 eq g*x 0 eq and b*x 0 eq and {1 setgray} {0 setgray} ifelse xa ya xd 0.5 mul dup rem stroke [ ] 0 setdash } if %xcharti=0 } for %i=0,15 } for %j=0,15 xcharti 5 le {%xchart=0,5 %mean grey stroke of steps 7 and 8 7 1 8 {/i exch def %i=7,8 /xa xmin xd 0.5 mul sub def /ya ymax yd i mul 2 mul sub xd 0.5 mul sub def 1 1 1 setrgbcolor xa ya xd xd rec stroke } for %i=7,8 } if %xchart=0,5 } if %ibild=1 %END CIELAB_10 Hue Triangle right %******************************************************************* %BEG CIELAB_10 Table ibild 0 eq {5600}{4500} ifelse 9600 translate proc_CIELAB_T16 ibild 0 eq {-5600}{-4500} ifelse -9600 translate %END CIELAB_10 Table %******************************************************************** %BEG CIELAB_10 Diagram ibild 0 eq { %ibild=0 2700 11600 translate proc_CIELAB_D -2700 -11600 translate } if %ibild=0 %END CIELAB_10 Diagram %***************************************************************** %BEG CIELAB_10 Gamut ibild 1 eq { %ibild=1 proc_CIELAB_G } if %ibild=1 %END CIELAB_10 Gamut %***************************************************************** ibild 1 eq {-13800 -1700 translate} if ibild 0 eq { -1900 -1700 translate} if } if %xcharts=10,25 %END CIELAB_10,25 xchart=10,25 %***************************************************************************** } for %ibild=0,1 %***************************************************************************** xcharts 26 eq {%BEG CIELAB_26 xcharts=26 % Data for 1080 colour test chart /nr1 27 array def /tx1 52 array def /nr1 [(01) (02) (03) (04) (05) (06) (07) (08) (09) (10) (11) (12) (13) (14) (15) (16) (17) (18) (19) (20) (21) (22) (23) (24) (25) (26) (27)] def /tx1 [(A) (B) (C) (D) (E) (F) (G) (H) (I) (J) (K) (L) (M) (N) (O) (P) (Q) (R) (S) (T) (U) (V) (W) (X) (Y) (Z) (a) (b) (c) (d) (e) (f) (g) (h) (i) (j) (k) (l) (m) (n) (o) (p) (q) (r) (s) (t) (u) (v) (w) (x) (y) (z)] def /fakt 1 def /iyt 32 fakt mul def %text size /iyd 35 fakt mul def %line difference 180 /Times-ISOL1 FS 0 0 0 setrgbcolor 9000 -180 moveto (Test chart G with 40x27=1080 colours) showea (Pr\374fvorlage G mit 40x27=1080 Farben) showde (; digital equidistant 9 or 16 step colour scales;) showea (; digital gleichabst\344ndige 9 oder 16stufige Farbreihen;) showde ( Farbdaten in Spalte (A-n):) showde ( Colour data in column (A-n):) showea 180 /TimesB-ISOL1 FS xchart 0 eq {( rgb + cmy0 (A_j + k26_n27)) show (, 000n (k), w (l), nnn0 (m), www (n)) show} if xchart 1 eq {( rgb (A_n)) show} if /xs 900 3 div 2 mul def /ys xs def /d2 xs 2 div def /d8 xs 8 div def (, 3D = ) show colorm cvishow %(, colsep = ) show colsep cvishow %colorm 1 eq {(, cmyn4*) show} if %/xchartg where {pop /faktg xchartg 1 ge {1.10} {1.00} ifelse def} % {/faktg 1.10 def} ifelse %0.01 MM faktg mul dup scale /xmin 650 3 div 2.2 mul def /ymax 15800 def xchart 0 eq {/xd 800 3 div 2 mul def /yd 800 3 div 2 mul def} {/xd 900 3 div 2 mul def /yd 900 3 div 2 mul def} ifelse /xsd xs xd sub 0.5 mul def /ysd xs xd sub 0.5 mul def /xd2 xd 0.50 mul def /xd4 xd 0.25 mul def 20 setlinewidth 500 3 div 2 mul /Times-ISOL1 FS 0 0 0 setrgbcolor 1 1 27 {/i exch def %i=1,27 /x xs 0.15 mul def /y 27.6 ys mul ys i mul sub def x y moveto nr1 i 1 sub get show } for %i=1,27 1 1 40 {/i exch def %i=1,36 /x xs i mul 000 add def /y 27.5 ys mul def x y moveto tx1 i 1 sub get show } for %i=1,36 /RGB*R0 1080 array def /RGB*G0 1080 array def /RGB*B0 1080 array def /IMODE 0 def %input rgb for output LAB* %row no.1 and 2: 9xrgb /imax 08 def /jmax 08 def /kmax 08 def /TKK2 {200 3 div 2 mul /Times-ISOL1 FS} bind def TKK2 0 1 kmax {/k exch def %beg k=0,08 /k0 k 3 idiv def /k1 k k0 3 mul sub def /xadd k1 xs 9 mul mul def /yadd k0 xs 9 mul mul def 0 1 jmax {/j exch def %beg j=0,jmax 0 1 imax {/i exch def %beg i=0,imax /n1079 i j 9 mul add k 81 mul add def /xa xmin j xs mul add xadd add xsd add def /ya ymax i ys mul sub yadd sub ysd add def /r k kmax div def /g j jmax div def /b i imax div def RGB*R0 n1079 r put RGB*G0 n1079 g put RGB*B0 n1079 b put r g b setrgbcolor xa ya xd dup rec fill 1 r sub 1 g sub 1 b sub 0 setcmykcolor xa xd4 add ya xd4 add xd2 dup rec fill } for %end i=0,jmax } for %end j=0,jmax } for %end k=0,kmax %3x rgbcmy /id 1 8 div def /rijn 81 array def %for intermediate storage /gijn 81 array def /bijn 81 array def /lmax 2 def /n1079 728 def 0 1 lmax {/l exch def %beg k=0,kmax /xadd 3 xs 9 mul mul def /yadd l ys 9 mul mul def %for intermediate storage of l=0,lmax 0 1 01 {/jchart exch def %jchart=0,1 /xchartj l jchart 3 mul add def 0 1 08 {/j exch def %j=0,7 /im 8 j sub def jchart 1 im {/i exch def %i=0,8 /ia 1 id j mul sub def /argb ia def /brgb ia i id mul sub def xchartj 0 eq {/r argb def /g brgb def /b brgb def} if xchartj 1 eq {/r argb def /g argb def /b brgb def} if xchartj 2 eq {/r brgb def /g argb def /b brgb def} if xchartj 3 eq {/r brgb def /g argb def /b argb def} if xchartj 4 eq {/r brgb def /g brgb def /b argb def} if xchartj 5 eq {/r argb def /g brgb def /b argb def} if jchart 0 eq {/in i j add def /jn j def} {/in j def /jn i j add def} ifelse rijn in 9 mul jn add r put gijn in 9 mul jn add g put bijn in 9 mul jn add b put } for %i=0,7 } for %j=0,8 } for %jchart=0,1 %for output of l=0,lmax 0 1 08 {/j exch def %j=0,8 0 1 08 {/i exch def %i=0,8 /n1079 n1079 1 add def /r rijn i j 9 mul add get def /g gijn i j 9 mul add get def /b bijn i j 9 mul add get def /xa xmin xs j mul add xadd add xsd add def /ya ymax xs i mul sub yadd sub ysd add def r g b setrgbcolor xa ya xd dup rec fill 1 r sub 1 g sub 1 b sub 0 setcmykcolor xa xd4 add ya xd4 add xd2 dup rec fill } for %i=0,7 } for %j=0,8 } for %end l=0,lmax %6wrgbcmy /n1079 971 def /lmax 03 def %4 rows with geys /kmax 1 def %9 or 16 steps 0 1 kmax {/k exch def % k 0 eq {/jmax 08 def} {/jmax 15 def} ifelse 0 1 lmax {/l exch def %beg l=0,lmax /xadd 36 l add xs mul def /yadd k 9 xs mul mul def /j1 l 36 add def /j1$ tx1 j1 get def 0 1 jmax {/j exch def %j=0,08 /n1079 n1079 1 add def /i1 j k 9 mul add 1 add def %9 steps, 16 steps /argb j jmax div def /xa xmin xadd add xsd add def /ya ymax xs j mul sub yadd sub ysd add def /r argb def /g argb def /b argb def r g b setrgbcolor xa ya xd dup rec fill 1 r sub 1 g sub 1 b sub 0 setcmykcolor xa xd4 add ya xd4 add xd2 dup rec fill } for %j=0,jmax } for %l=0,lmax } for %k=0,kmax %basic colours 1072 - 1080 /basrgb 24 array def /basrgb [0 0 0 1 1 1 1 0 0 0 1 1 1 1 0 0 0 1 0 1 0 1 0 1 ] def /n1079 1071 def 0 1 07 {/i exch def %i=0,7 /n1079 n1079 1 add def /i3 i 3 mul def /xadd 36 xs mul def /yadd 25 xs mul def i 0 eq {/l 0 def /j 0 def /j1$ (k) def /i1 26 def} if i 1 eq {/l 0 def /j 1 def /j1$ (k) def /i1 27 def} if i 2 eq {/l 1 def /j 0 def /j1$ (l) def /i1 26 def} if i 3 eq {/l 1 def /j 1 def /j1$ (l) def /i1 27 def} if i 4 eq {/l 2 def /j 0 def /j1$ (m) def /i1 26 def} if i 5 eq {/l 2 def /j 1 def /j1$ (m) def /i1 27 def} if i 6 eq {/l 3 def /j 0 def /j1$ (n) def /i1 26 def} if i 7 eq {/l 3 def /j 1 def /j1$ (n) def /i1 27 def} if /xa xmin xs l mul add xadd add xsd add def /ya ymax xs j mul sub yadd sub ysd add def /r basrgb i3 get def /g basrgb i3 1 add get def /b basrgb i3 2 add get def r g b setrgbcolor xa ya xd dup rec fill 1 r sub 1 g sub 1 b sub 0 setcmykcolor xa xd4 add ya xd4 add xd2 dup rec fill } for %i=0,7 %*************************************************************************** %} for %pmetam=0,1 } if %END CIELAB_26 xcharts=26 } if %END LOOP0: xchart<=xchart3P4 two pages+4 separations %***************************************************************************** %used for tables in the rest /xchart3P5 xchart3 5 add def /xchart3P6 xchart3 6 add def /xchart3P7 xchart3 7 add def xchart xchart3P5 ge {%BEG LOOPtables: xchart>=xchart3P5 /xcharti pchart def xcharti 0 eq {/Xprint 0 def /FileData (LAB*rc) def} if xcharti 1 eq {/Xprint 1 def /FileData (LAB*ra) def} if xcharti 2 eq {/Xprint 1 def /FileData (LAB*na) def} if xcharti 3 eq {/Xprint 1 def /FileData (LAB*la0) def} if xcharti 4 eq {/Xprint 1 def /FileData (LAB*la1) def} if xcharti 5 eq {/Xprint 1 def /FileData (LAB*la2) def} if xcharti 6 eq {/Xprint 1 def /FileData (LAB*la3) def} if xcharti 7 eq {/Xprint 1 def /FileData (LAB*la4) def} if xcharti 8 eq {/Xprint 1 def /FileData (LAB*la5) def} if xcharti 9 eq {/Xprint 1 def /FileData (LAB*la6) def} if xcharti 10 eq {/Xprint 1 def /FileData (LAB*la7) def} if TK1 0 setgray 5500 -200 moveto FileData show xcharti 3 ge {(, YN=) show Lrefl xcharti get show} if (, XYZnw=) show Xj 000 get cvsshow1r (, ) show Yj 000 get cvsshow1r (, ) show Zj 000 get cvsshow1r (, ) show Xj 728 get cvsshow1r (, ) show Yj 728 get cvsshow1r (, ) show Zj 728 get cvsshow1r (, LAB*nw=) show LAB*Lja 000 get cvsshow1r (, ) show LAB*aja 000 get cvsshow1r (, ) show LAB*bja 000 get cvsshow1r (, ) show LAB*Lja 728 get cvsshow1r (, ) show LAB*aja 728 get cvsshow1r (, ) show LAB*bja 728 get cvsshow1r TK1 18500 -200 moveto (Output: ) showen (Ausgabe: ) showde (salida: ) showes (sortie: ) showfr (uscita: ) showit (output: ) showjp FileDaten showen FileDatde showde FileDaten showes FileDaten showfr FileDaten showit FileDaten showjp (, Seite ) showde (, page ) showen (, p\341gina ) showes (, page ) showfr (, pagina ) showit (, page ) showjp xchart 1 add cvishow (/) show 2 cvishow TBK1 /xi 000 def xi 100 add 16700 moveto (Data of Maximum color M in colorimetric system ) showen (Daten der Maximalfarbe M im Farbmetrik\255Sytem ) showde (Data of Maximum color M in colorimetric system ) showes (Couleur maximale dans le syst\350me colorimetrique : ) showfr (Data of Maximum color M in colorimetric system ) showit (Data of Maximum color M in colorimetric system ) showjp FileDaten showen FileDatde showde FileDaten showes FileDaten showfr FileDaten showit FileDaten showjp ( for input or output; ) showen ( f\374r Ein\255 oder Ausgabe; ) showde ( for input or output; ) showes ( pour l'entr\351e et sortie; ) showfr ( for input or output; ) showit ( for input or output; ) showjp (Six hue angles of the 60 degree standard colours) showen (Sechs Bunttonwinkel der 60\255Grad Standardfarben) showde (Six hue angles of the 60 degree standard colours) showes (Six angles de teinte \340 60 degr\350s couleurs standard ) showfr (Six hue angles of the 60 degree standard colours) showit (Six hue angles of the 60 degree standard colours) showjp TBIK1 ( RYGCBM) show TBS1 0 -50 rmoveto (s) show 0 50 rmoveto TBK1 (:) show TBIK1 ( h) show TBS1 0 -50 rmoveto (ab,ds) show 0 50 rmoveto TBK1 ( = ) show LAB*Hs 0 get cvsshow1r (, ) show LAB*Hs 1 get cvsshow1r (, ) show LAB*Hs 2 get cvsshow1r (, ) show LAB*Hs 3 get cvsshow1r (, ) show LAB*Hs 4 get cvsshow1r (, ) show LAB*Hs 5 get cvsshow1r (; ) show xi 100 add 16400 moveto (Six hue angles of the device colours) showen (Sechs Bunttonwinkel der Ger\344tefarben) showde (Six hue angles of the device colours) showes (Six angles de teinte des couleurs p\351riph\351riques) showfr (Six hue angles of the device colours) showit (Six hue angles of the device colours) showjp TBIK1 ( RYGCBM) show TBS1 0 -50 rmoveto (d) show 0 50 rmoveto TBK1 (:) show TBIK1 ( h) show TBS1 0 -50 rmoveto (ab,d) show 0 50 rmoveto TBK1 ( = ) show LAB*hdd64M 00 get cvsshow1r (, ) show LAB*hdd64M 08 get cvsshow1r (, ) show LAB*hdd64M 16 get cvsshow1r (, ) show LAB*hdd64M 24 get cvsshow1r (, ) show LAB*hdd64M 32 get cvsshow1r (, ) show LAB*hdd64M 40 get cvsshow1r (; ) show (Six hue angles of the elementary colours) showen (Sechs Bunttonwinkel der Elementarfarben) showde (Six hue angles of the elementary colours) showes (Six angles de teinte des couleurs \351l\351mentaires) showfr (Six hue angles of the elementary colours) showit (Six hue angles of the elementary colours) showjp TBIK1 ( RYGCBM) show TBS1 0 -50 rmoveto (e) show 0 50 rmoveto TBK1 (:) show TBIK1 ( h) show TBS1 0 -50 rmoveto (ab,e) show 0 50 rmoveto TBK1 ( = ) show LAB*He 0 get cvsshow1r (, ) show LAB*He 1 get cvsshow1r (, ) show LAB*He 2 get cvsshow1r (, ) show LAB*He 3 get cvsshow1r (, ) show LAB*He 4 get cvsshow1r (, ) show LAB*He 5 get cvsshow1r xchart xchart3P5 le {%BEG LOOP1: xchart<=xchart3P5 /ToutenN0 (Colorimetric data of Natural Colour System NCS) def /ToutdeN0 (Farbmetrische Daten des Nat\374rliches Farbsystems NCS) def /ToutenL0 (Colorimetric data of Natural Luminous System NLS) def /ToutdeL0 (Farbmetrische Daten des Nat\374rliches\255Lichtfarbensystem NLS) def 8 /Times-ISOL1 FS 72 82.5 moveto ( QS590-7N, ) show xchart 8 le {ToutdeN0 showde ToutenN0 showea} {ToutdeL0 showde ToutenL0 showea} ifelse /yhoe 8500 def /xhoe 12300 def % 0 1 2 3 4 5 /Dcol [(O=R) (J=Y) (L=G) (C=C) (V=B) (M=M) ] def /Dcolen [(orange\255red) (Yellow) (leaf\255green) (cyan\255blue) (violet\255blue) (magenta\255red)] def /Dcolde [(Orangerot) (Gelb) (Laubgr\374n) (Cyanblau) (Violettblau) (Magentarot)] def /xshifd [ 2800 -4000 -5400 -5100 2800 2900 ] def /yshifd [ 2500 3700 1800 -1000 -2600 -0850 ] def /Ecol [(R) (Y) (G) (C) (B) (M) ] def /Ecolen [(red) (yellow) (green) (blue\255green) (blue) (blue\255red)] def /Ecolde [(Rot) (Gelb) (Gr\374n) (Blaugr\374n) (Blau) (Blaurot)] def /xshife [ 2800 -3000 -5400 -5100 -3000 2900 ] def /yshife [ 2000 3700 1800 -1000 -2600 -0850 ] def /Scol [(R) (Y) (G) (C) (B) (M) ] def /Scolen [(red) (yellow) (green) (blue\255green) (blue) (blue\255red)] def /Scolde [(Rot) (Gelb) (Gr\374n) (Blaugr\374n) (Blau) (Blaurot)] def /xshifs [ 2800 -3000 -5400 -5100 -3000 2900 ] def /yshifs [ 2000 3700 1800 -1000 -2600 -0850 ] def 2500 8200 moveto 20000 0 rlineto stroke 12500 2000 moveto 0 13000 rlineto stroke 0 1 3 {/ibild exch def %ibild=0,3 ibild 0 eq {xhoe 0.5 mul 600 sub yhoe 1.47 mul 400 sub translate} if ibild 1 eq {xhoe 1.1 mul yhoe 0.0 mul translate} if ibild 2 eq {xhoe 1.1 mul neg yhoe 0.97 mul neg translate} if ibild 3 eq {xhoe 1.1 mul yhoe 0.0 mul translate} if ibild 2 le {%ibild<=2 0 setgray -4000 0 moveto 8000 0 rlineto stroke 0 -3500 moveto 0 7500 rlineto stroke 3800 70 moveto 200 -70 rlineto -200 -70 rlineto closepath fill -70 3800 moveto 70 200 rlineto 70 -200 rlineto closepath fill /fak0 28 def /fakt 25 def 0 1 48 {/i exch def %i=0,48 LAB*add64M i get fakt mul LAB*bdd64M i get fakt mul moveto LAB*add64M i 1 add get fakt mul LAB*bdd64M i 1 add get fakt mul lineto stroke newpath r*dd64M i get g*dd64M i get b*dd64M i get setrgbcolor LAB*add64M i get fakt mul LAB*bdd64M i get fakt mul 100 0 360 arc fill } for %i=0,48 0 setgray 0 8 48 {/i exch def %i=0,8,48 RJGCBMd 0 0 moveto LAB*add64M i get fak0 mul LAB*bdd64M i get fak0 mul rlineto stroke } for %i=0,8,48 } if %ibild<=2 ibild 0 eq {%ibild=0 %device (d) 0 setgray 0300 3900 moveto TBIK1 (device ) showea (Ger\344te\255) showde TBK1 (CIELAB) show TBIK1 ( \050 a*) show TBS1 0 -50 rmoveto (d) show 0 50 rmoveto TBIK1 (, b*) show TBS1 0 -50 rmoveto (d) show 0 50 rmoveto TBIK1 (\051) show TBK1 ( chroma diagram) showea (\255Diagramm) showde TBIK1 3500 0150 moveto (a*) show TBS1 0 -50 rmoveto (d) show 0 50 rmoveto -500 4000 moveto (b*) show TBS1 0 -50 rmoveto (d) show 0 50 rmoveto 0 8 40 {/kn exch def %kn=0,8,40 0 setgray /kn8 kn 8 idiv def xshifd kn8 get yshifd kn8 get moveto TBIK1 Dcol kn8 get show TBS1 0 -50 rmoveto (d) show 0 50 rmoveto TBK1 ( ) show Dcolen kn8 get showea Dcolde kn8 get showde TIK1 xshifd kn8 get yshifd kn8 get 350 sub moveto (LCH*) show TK1 -30 -50 rmoveto (d) show 0 50 rmoveto TK1 ( = ) show LAB*Ldd64M kn get cvsshow1 ( ) show LAB*Cdd64M kn get cvsshow1 ( ) show LAB*hdd64M kn get cvsshow1 TIK1 xshifd kn8 get yshifd kn8 get 700 sub moveto (LAB*) show TK1 -30 -50 rmoveto (d) show 0 50 rmoveto TK1 ( = ) show LAB*Ldd64M kn get cvsshow1 ( ) show LAB*add64M kn get cvsshow1 ( ) show LAB*bdd64M kn get cvsshow1 TIK1 xshifd kn8 get yshifd kn8 get 1050 sub moveto (rgb*) show TK1 -30 -50 rmoveto (d) show 0 50 rmoveto TK1 ( = ) show r*dd64M kn get cvsshow3 ( ) show g*dd64M kn get cvsshow3 ( ) show b*dd64M kn get cvsshow3 0 8 48 {/i exch def %i=0,8,48 RYGCBMd 0 1 8 {/l exch def %l=0,8 newpath /alpha l 0.125 mul def /beta 1 alpha sub def 1.0 beta mul r*dd362Mi i 7.5 mul cvi get alpha mul add 1.0 beta mul g*dd362Mi i 7.5 mul cvi get alpha mul add 1.0 beta mul b*dd362Mi i 7.5 mul cvi get alpha mul add setrgbcolor LAB*add362Mi i 7.5 mul cvi get fakt mul alpha mul LAB*bdd362Mi i 7.5 mul cvi get fakt mul alpha mul 100 0 360 arc fill } for %l=0,8 l 0 eq {%l=0 0 setgray LAB*add362Mi i 7.5 mul cvi get fakt mul alpha mul LAB*bdd362Mi i 7.5 mul cvi get fakt mul alpha mul 100 0 360 arc stroke } if %l=0 } for %i=0,8,48 } for %kn=0,8,40 } if %ibild=0 ibild 1 eq {%ibild=1 %elementary (e) 0 setgray 0300 3900 moveto TBIK1 (elementary ) showea (Elementar\255) showde TBK1 (CIELAB) show TBIK1 ( \050 a*) show TBS1 0 -50 rmoveto (e) show 0 50 rmoveto TBIK1 (, b*) show TBS1 0 -50 rmoveto (e) show 0 50 rmoveto TBIK1 (\051) show TBK1 ( chroma diagram) showea (\255Diagramm) showde TBIK1 3500 0150 moveto (a*) show TBS1 0 -50 rmoveto (e) show 0 50 rmoveto -500 4000 moveto (b*) show TBS1 0 -50 rmoveto (e) show 0 50 rmoveto 0 setgray 0 8 40 {/kn exch def %kn=0,8,40 /kn8 kn 8 idiv def xshife kn8 get yshife kn8 get moveto TBIK1 Ecol kn8 get show TBS1 0 -50 rmoveto (e) show 0 50 rmoveto TBK1 ( ) show Ecolen kn8 get showea Ecolde kn8 get showde /i362e hab*de64M kn get round cvi def i362e 360 ge {/i362e i362e 360 sub def} if TIK1 xshife kn8 get yshife kn8 get 350 sub moveto (LCH*) show TK1 -30 -50 rmoveto (e) show 0 50 rmoveto TK1 ( = ) show LAB*Lde362Mi kn 7.5 mul cvi get cvsshow1 ( ) show LAB*Cde362Mi kn 7.5 mul cvi get cvsshow1 ( ) show LAB*hde362Mi kn 7.5 mul cvi get cvsshow1 TIK1 xshife kn8 get yshife kn8 get 700 sub moveto (LAB*) show TK1 -30 -50 rmoveto (e) show 0 50 rmoveto TK1 ( = ) show LAB*Lde362Mi kn 7.5 mul cvi get cvsshow1 ( ) show LAB*ade362Mi kn 7.5 mul cvi get cvsshow1 ( ) show LAB*bde362Mi kn 7.5 mul cvi get cvsshow1 TIK1 xshife kn8 get yshife kn8 get 1050 sub moveto (rgb*) show TK1 -30 -50 rmoveto (de) show 0 50 rmoveto TK1 ( = ) show r*de362Mi kn 7.5 mul cvi get cvsshow3 ( ) show g*de362Mi kn 7.5 mul cvi get cvsshow3 ( ) show b*de362Mi kn 7.5 mul cvi get cvsshow3 } for %kn=0,8,40 0 8 48 {/i exch def %i=0,8,48 RYGCBMe r*de362Mi i 7.5 mul cvi get g*de362Mi i 7.5 mul cvi get b*de362Mi i 7.5 mul cvi get setrgbcolor 0 0 moveto LAB*ade362Mi i 7.5 mul cvi get fakt mul LAB*bde362Mi i 7.5 mul cvi get fakt mul rlineto stroke 0 1 8 {/l exch def %l=0,8 newpath /alpha l 0.125 mul def /beta 1 alpha sub def 1.0 beta mul r*de362Mi i 7.5 mul cvi get alpha mul add 1.0 beta mul g*de362Mi i 7.5 mul cvi get alpha mul add 1.0 beta mul b*de362Mi i 7.5 mul cvi get alpha mul add setrgbcolor LAB*ade362Mi i 7.5 mul cvi get fakt mul alpha mul LAB*bde362Mi i 7.5 mul cvi get fakt mul alpha mul 100 0 360 arc fill } for %l=0,8 } for %i=0,8,48 } if %ibild=1 ibild 2 eq {%ibild=2 %standard (s) 0 setgray 0300 3900 moveto TBIK1 (standard ) showea (Standard\255) showde TBK1 (CIELAB) show TBIK1 ( \050 a*) show TBS1 0 -50 rmoveto (s) show 0 50 rmoveto TBIK1 (, b*) show TBS1 0 -50 rmoveto (s) show 0 50 rmoveto TBIK1 (\051) show TBK1 ( chroma diagram) showea (\255Diagramm) showde TBIK1 3500 0150 moveto (a*) show TBS1 0 -50 rmoveto (s) show 0 50 rmoveto -500 4000 moveto (b*) show TBS1 0 -50 rmoveto (s) show 0 50 rmoveto 0 setgray 0 8 40 {/kn exch def %kn=0,8,40 /kn8 kn 8 idiv def xshifs kn8 get yshifs kn8 get moveto TBIK1 Scol kn8 get show TBS1 0 -50 rmoveto (s) show 0 50 rmoveto TBK1 ( ) show Scolen kn8 get showea Scolde kn8 get showde TIK1 xshifs kn8 get yshifs kn8 get 350 sub moveto (LCH*) show TK1 -30 -50 rmoveto (s) show 0 50 rmoveto TK1 ( = ) show LAB*Lds362Mi kn 7.5 mul cvi get cvsshow1 ( ) show LAB*Cds362Mi kn 7.5 mul cvi get cvsshow1 ( ) show LAB*hds362Mi kn 7.5 mul cvi get cvsshow1 TIK1 xshifs kn8 get yshifs kn8 get 700 sub moveto (LAB*) show TK1 -30 -50 rmoveto (s) show 0 50 rmoveto TK1 ( = ) show LAB*Lds362Mi kn 7.5 mul cvi get cvsshow1 ( ) show LAB*ads362Mi kn 7.5 mul cvi get cvsshow1 ( ) show LAB*bds362Mi kn 7.5 mul cvi get cvsshow1 TIK1 xshifs kn8 get yshifs kn8 get 1050 sub moveto (rgb*) show TK1 -30 -50 rmoveto (ds) show 0 50 rmoveto TK1 ( = ) show r*ds362Mi kn 7.5 mul cvi get cvsshow3 ( ) show g*ds362Mi kn 7.5 mul cvi get cvsshow3 ( ) show b*ds362Mi kn 7.5 mul cvi get cvsshow3 } for %kn=0,8,40 0 8 40 {/i exch def %i=0,8,48 RYGCBMs r*ds362Mi i 7.5 mul cvi get g*ds362Mi i 7.5 mul cvi get b*ds362Mi i 7.5 mul cvi get setrgbcolor 0 0 moveto LAB*ads362Mi i 7.5 mul cvi get fakt mul LAB*bds362Mi i 7.5 mul cvi get fakt mul rlineto stroke 0 1 8 {/l exch def %l=0,8 newpath /alpha l 0.125 mul def /beta 1 alpha sub def 1.0 beta mul r*ds362Mi i 7.5 mul cvi get alpha mul add 1.0 beta mul g*ds362Mi i 7.5 mul cvi get alpha mul add 1.0 beta mul b*ds362Mi i 7.5 mul cvi get alpha mul add setrgbcolor LAB*ads362Mi i 7.5 mul cvi get fakt mul alpha mul LAB*bds362Mi i 7.5 mul cvi get fakt mul alpha mul 100 0 360 arc fill } for %l=0,8 } for %i=0,8,48 } if %ibild=2 ibild 3 eq {%ibild=3 0 setgray -6500 3900 moveto TBK1 (Notes to the CIELAB chroma diagrams) showea (Anmerkung zu den CIELAB\255Buntheits\255Diagrammen) showde TBIK1 ( \050 a*) show TBS1 -30 -50 rmoveto (d) show 0 50 rmoveto TBIK1 (, b*) show TBS1 -30 -50 rmoveto (d) show 0 50 rmoveto TBIK1 ( \051, ) show TBIK1 ( \050 a*) show TBS1 -30 -50 rmoveto (s) show 0 50 rmoveto TBIK1 (, b*) show TBS1 -30 -50 rmoveto (s) show 0 50 rmoveto TBIK1 ( \051, ) show TBIK1 ( \050 a*) show TBS1 -30 -50 rmoveto (e) show 0 50 rmoveto TBIK1 (, b*) show TBS1 -30 -50 rmoveto (e) show 0 50 rmoveto TBIK1 ( \051) show -6500 3400 moveto TK1 (1. For the) showea (1. F\374r die) showde TIK1 ( rgb*) show TS -30 -50 rmoveto (d) show 0 50 rmoveto TK1 (\255input values the CIELAB data) showea (\255Eingabedaten wurden die CIELAB-Daten) showde TIK1 ( LCH*) show TS -30 -50 rmoveto (d) show 0 50 rmoveto TK1 ( and) showea ( und) showde TIK1 ( LAB*) show TS -30 -50 rmoveto (d) show 0 50 rmoveto TK1 ( have been calculated.) showea ( berechnet.) showde -6500 3000 moveto TK1 (2. For the calculation of the standard hue angle ) showea TIK1 (h) show TS -30 -50 rmoveto (ab,s) show 0 50 rmoveto TK1 ( use for any device values) showea TIK1 ( rgb*) show TS -30 -50 rmoveto (d) show 0 50 rmoveto TK1 ( the equation:) showea -6000 2650 moveto TBIK1 (h) show TBS1 -30 -50 rmoveto (ab,s) show 0 50 rmoveto TBK1 ( = ) show TBIK1 (atan) show TBK1 ( [ ) show TBIK1 (r*) show TBS1 -30 -50 rmoveto (d) show 0 50 rmoveto TBIK1 ( cos(30)) show TBK1 ( + ) show TBIK1 (g*) show TBS1 -30 -50 rmoveto (d) show 0 50 rmoveto TBIK1 ( cos(150)) show TBK1 ( ] / [ ) show TBIK1 (r*) show TBS1 -30 -50 rmoveto (d) show 0 50 rmoveto TBIK1 ( sin(30)) show TBK1 ( + ) show TBIK1 (g*) show TBS1 -30 -50 rmoveto (d) show 0 50 rmoveto TBIK1 ( sin(150)) show TBK1 ( + ) show TBIK1 (b*) show TBS1 -30 -50 rmoveto (d) show 0 50 rmoveto TBIK1 ( sin(270)) show TBK1 ( ] ) show 5000 2650 moveto TK1 ((1)) show -6500 2200 moveto TK1 (3. For the 48 or 360 equally spaced standard hue angles ) showea (3. F\374r die 48 oder 360 gleichabst\344ndig gestuften Standard\255Bunttonwinkel ) showde TIK1 (h) show TS -30 -50 rmoveto (ab,s) show 0 50 rmoveto TK1 ( of the colours of maximum chroma use) showea ( der Farben von maximaler Buntheit benutze) showde -6250 1900 moveto (the seven hue angles of the 60 degree colours) showea (die sieben Bunttonwinkel der 60\Grad\255Farben) showde TIK1 ( s: h) show TS 0 -50 rmoveto (ab,si) show 0 50 rmoveto TK1 ( = ) show LAB*Hs 0 get cvsshow1r (, ) show LAB*Hs 1 get cvsshow1r (, ) show LAB*Hs 2 get cvsshow1r (, ) show LAB*Hs 3 get cvsshow1r (, ) show LAB*Hs 4 get cvsshow1r (, ) show LAB*Hs 5 get cvsshow1r (, ) show LAB*Hs 6 get cvsshow1r ( (i=0,6) ) show -6250 1600 moveto (and the equations for a 48 and 360 step hue circle: ) showea (und die Gleichungen f\374r einen 48\255 und 360\255stufigen Bunttonkreis: ) showde -6000 1250 moveto TBIK1 (h) show TBS1 0 -50 rmoveto (48ab,sij) show 0 50 rmoveto TBK1 ( = ) show TBIK1 (h) show TBS1 0 -50 rmoveto (ab,si) show 0 50 rmoveto ( + ) show TBIK1 (j) show TBK1 ( [) show TBIK1 (h) show TBS1 0 -50 rmoveto (ab,si+1) show 0 50 rmoveto ( - ) show TBIK1 (h) show TBS1 0 -50 rmoveto (ab,si) show 0 50 rmoveto TBK1 ( ] /8 \050 ) show TBIK1 (i) show TBK1 ( = 0, 1, ..., 5; ) show TBIK1 (j) show TBK1 ( = 0, 1, ..., 7\051) show 5000 1250 moveto TK1 ((2)) show -6000 0850 moveto TBIK1 (h) show TBS1 0 -50 rmoveto (360ab,sij) show 0 50 rmoveto TBK1 ( = ) show TBIK1 (h) show TBS1 0 -50 rmoveto (ab,si) show 0 50 rmoveto ( + ) show TBIK1 (j) show TBK1 ( [) show TBIK1 (h) show TBS1 0 -50 rmoveto (ab,si+1) show 0 50 rmoveto ( - ) show TBIK1 (h) show TBS1 0 -50 rmoveto (ab,si) show 0 50 rmoveto TBK1 ( ] /60 \050 ) show TBIK1 (i) show TBK1 ( = 0, 1, ..., 5; ) show TBIK1 (j) show TBK1 ( = 0, 1, ..., 59\051) show 5000 0850 moveto TK1 ((3)) show -6500 0400 moveto TK1 (4. For the 48 or 360 elementary hue angles ) showea (4. F\374r die 48 oder 360 Elementar\255Bunttonwinkel ) showde TIK1 (h) show TS -30 -50 rmoveto (ab,e) show 0 50 rmoveto TK1 ( of the colours of maximum chroma use) showea ( der Farben von maximaler Buntheit benutze) showde -6250 0100 moveto (the seven hue angles of the elementary colours) showea (die sieben Bunttonwinkel der Elementarfarben) showde TIK1 ( e: h) show TS 0 -50 rmoveto (ab,ei) show 0 50 rmoveto TK1 ( = ) show LAB*He 0 get cvsshow1r (, ) show LAB*He 1 get cvsshow1r (, ) show LAB*He 2 get cvsshow1r (, ) show LAB*He 3 get cvsshow1r (, ) show LAB*He 4 get cvsshow1r (, ) show LAB*He 5 get cvsshow1r (, ) show LAB*He 6 get cvsshow1r ( (i=0,6) ) show -6250 -200 moveto (and the equations for a 48 and 360 step elementary hue circle: ) showea (und die Gleichungen f\374r einen 48\255 und 360\255stufigen Elementar\255Bunttonkreis: ) showde -6000 -550 moveto TBIK1 (h) show TBS1 0 -50 rmoveto (48ab,eij) show 0 50 rmoveto TBK1 ( = ) show TBIK1 (h) show TBS1 0 -50 rmoveto (ab,ei) show 0 50 rmoveto ( + ) show TBIK1 (j) show TBK1 ( [) show TBIK1 (h) show TBS1 0 -50 rmoveto (ab,ei+1) show 0 50 rmoveto ( - ) show TBIK1 (h) show TBS1 0 -50 rmoveto (ab,ei) show 0 50 rmoveto TBK1 ( ] /8 \050 ) show TBIK1 (i) show TBK1 ( = 0, 1, ..., 5; ) show TBIK1 (j) show TBK1 ( = 0, 1, ..., 7\051) show 5000 -550 moveto TK1 ((4)) show -6000 -0950 moveto TBIK1 (h) show TBS1 0 -50 rmoveto (360ab,eij) show 0 50 rmoveto TBK1 ( = ) show TBIK1 (h) show TBS1 0 -50 rmoveto (ab,ei) show 0 50 rmoveto ( + ) show TBIK1 (j) show TBK1 ( [) show TBIK1 (h) show TBS1 0 -50 rmoveto (ab,ei+1) show 0 50 rmoveto ( - ) show TBIK1 (h) show TBS1 0 -50 rmoveto (ab,ei) show 0 50 rmoveto TBK1 ( ] /60 \050 ) show TBIK1 (i) show TBK1 ( = 0, 1, ..., 5; ) show TBIK1 (j) show TBK1 ( = 0, 1, ..., 59\051) show 5000 -950 moveto TK1 ((5)) show -6500 -1400 moveto TK1 (5. For any elementary hue angle ) showea (5. F\374r jeden Elementar\255Bunttonwinkel ) showde TIK1 (h) show TS -30 -50 rmoveto (ab,e) show 0 50 rmoveto TK1 ( there is a well defined device hue angle ) showea ( gibt es einem genau definierten Ger\344te\255Bunttonwinkel ) showde TIK1 (h) show TS -30 -50 rmoveto (ab,d) show 0 50 rmoveto -6250 -1700 moveto TK1 (see the following tables, columns 1 to 5 or 1 to 4.) showea (siehe die folgenden Tabellen, Spalten 1 bis 5 oder 1 bis 4.) showde -6500 -2100 moveto TK1 (6. The values ) showea (6. Die Werte ) showde TIK1 (rgb*) show TS -30 -50 rmoveto (de) show 0 50 rmoveto TK1 ( produce the output of the device\255independent elementary hues) showea ( erzeugen die Ausgabe der ger\344teunabh\344ngigen Elemetar\255Buntt\366ne) showde } if %ibild=3 } for %ibild=0,3 }%LOOP1: xchart<=xchart3P5 {%LOOP1: xchart>xchart3P5 /x0x 0000 def /x1x 5700 def /x2x 13300 def /x01 2200 def %rgb /x02 2850 def /x03 3500 def /x04 4150 def %LabCh /x05 4800 def /x06 5450 def /x07 6100 def /x08 6800 def /x09 7700 def /x10 8400 def /x11 9100 def /xd0 0100 def /xs0 0800 def /xe0 1500 def /xd1 23050 def /xs1 23700 def /xe1 24350 def /xax 5400 def /xbx 10500 def /xcx 15600 def /ymax 16100 def TBIK1 xd0 ymax moveto (h) show TBK1 -00 -80 rmoveto (ab,d) show 00 80 rmoveto TBIK1 xs0 ymax moveto (h) show TBK1 -00 -80 rmoveto (ab,s) show 00 80 rmoveto TBIK1 xe0 ymax moveto (h) show TBK1 -00 -80 rmoveto (ab,e) show 00 80 rmoveto TBIK1 xchart xchart3P6 eq xchart xchart3P7 eq or {%BEG LOOP3: xchart=xchart3P6/3 x0x x01 add ymax moveto (rgb*) show TBK1 -00 -80 rmoveto (dd64M) show 00 80 rmoveto TBIK1 x0x x04 add ymax moveto (LAB*) show TBK1 -00 -80 rmoveto (ddx64M (x=LabCh)) show 00 80 rmoveto TBIK1 xchart xchart3P6 eq {%xchart=xchart3P6 xax x01 add ymax moveto (rgb*) show TBK1 -00 -80 rmoveto (ddx361M) show 00 80 rmoveto TBIK1 xax x04 add ymax moveto (LAB*) show TBK1 -00 -80 rmoveto (ddx361M (x=LabCh)) show 00 80 rmoveto TBIK1 xbx x01 add ymax moveto (rgb*) show TBK1 -00 -80 rmoveto (dsx361M) show 00 80 rmoveto TBIK1 xbx x04 add ymax moveto (LAB*) show TBK1 -00 -80 rmoveto (dsx361M (x=LabCh)) show 00 80 rmoveto TBIK1 } if %xchart=xchart3P6 xcx x01 add ymax moveto (rgb*) show TBK1 -00 -80 rmoveto (dex361M) show 00 80 rmoveto TBIK1 xcx x04 add ymax moveto (LAB*) show TBK1 -00 -80 rmoveto (dex361M) show 00 80 rmoveto }%LOOP3: xchart=xchart3P6/3 {%LOOP3: xchart>xchart3P7 x0x x01 add ymax moveto (rgb*) show TBK1 -00 -80 rmoveto (dd361M) show 00 80 rmoveto TBIK1 x0x x04 add ymax moveto (LAB*) show TBK1 -00 -80 rmoveto (ddx361Mi (x=LabCh)) show 00 80 rmoveto TBIK1 x1x x01 add ymax moveto (rgb*) show TBK1 -00 -80 rmoveto (ds361Mi) show 00 80 rmoveto TBIK1 x1x x04 add ymax moveto (LAB*) show TBK1 -00 -80 rmoveto (dsx361Mi (x=LabCh)) show 00 80 rmoveto TBIK1 x1x x09 add ymax moveto (rgb*) show TBK1 -00 -80 rmoveto (dd361Mi) show 00 80 rmoveto TBIK1 x2x x01 add ymax moveto (rgb*) show TBK1 -00 -80 rmoveto (de361Mi) show 00 80 rmoveto TBIK1 x2x x04 add ymax moveto (LAB*) show TBK1 -00 -80 rmoveto (dex361Mi (x=LabCh)) show 00 80 rmoveto TBIK1 x2x x09 add ymax moveto (rgb*) show TBK1 -00 -80 rmoveto (dd361Mi) show 00 80 rmoveto TBIK1 } ifelse %END LOOP3: xchart>xchart3P7 xd1 ymax moveto (rgb*) show TBK1 -100 -100 rmoveto (dd) show 100 100 rmoveto TBIK1 xs1 ymax moveto (rgb*) show TBK1 -100 -100 rmoveto (ds) show 100 100 rmoveto TBIK1 xe1 ymax moveto (rgb*) show TBK1 -100 -100 rmoveto (de) show 100 100 rmoveto TBIK1 /ymax 15700 def /ydel0 310 def /ydel1 345 def /ys 50 def /RJGCBMs 9 array def /RJGCBMs [( ) (R) (Y) (G) (C) (C) (B) (M) (R)] def /RJGCBM 7 array def /RJGCBM [(R) (Y) (G) (C) (B) (M) (R)] def xchart xchart3P6 eq xchart xchart3P7 eq or {%BEG LOOP4: xchart=xchart3P6/3 x0x x01 add 30 sub 0 moveto 0 16200 rlineto stroke xax x01 add 30 sub 0 moveto 0 16200 rlineto stroke xbx x01 add 30 sub 0 moveto 0 16200 rlineto stroke xcx x01 add 30 sub 0 moveto 0 16200 rlineto stroke TK1 0 1 48 {/i exch def %i=0,48 xchart xchart3P6 eq {%xchart=xchart3P6 /i8 i 8 idiv def} {/i8 0 def} ifelse /yi ymax i ydel0 mul sub i8 ydel0 0.4 mul mul sub def xd0 yi moveto hab*dd64M i get cvsshow1 %all floating point xs0 yi moveto hab*ds64M i get cvsshow1 xe0 yi moveto hab*de64M i get cvsshow1 x0x x01 add yi moveto r*dd64M i get cvsshow3 x0x x02 add yi moveto g*dd64M i get cvsshow3 x0x x03 add yi moveto b*dd64M i get cvsshow3 x0x x04 add yi moveto LAB*Ldd64M i get cvsshow1 x0x x05 add yi moveto LAB*add64M i get cvsshow1 x0x x06 add yi moveto LAB*bdd64M i get cvsshow1 x0x x07 add yi moveto LAB*Cdd64M i get cvsshow1 x0x x08 add yi moveto LAB*hdd64M i get cvsshow1 xchart xchart3P6 eq {%xchart=xchart3P6 xax x01 add yi moveto r*dd362Mi i 7.5 mul cvi get cvsshow3r xax x02 add yi moveto g*dd362Mi i 7.5 mul cvi get cvsshow3r xax x03 add yi moveto b*dd362Mi i 7.5 mul cvi get cvsshow3r xax x04 add yi moveto LAB*Ldd362Mi i 7.5 mul cvi get cvsshow1r xax x05 add yi moveto LAB*add362Mi i 7.5 mul cvi get cvsshow1r xax x06 add yi moveto LAB*bdd362Mi i 7.5 mul cvi get cvsshow1r xax x07 add yi moveto LAB*Cdd362Mi i 7.5 mul cvi get cvsshow1r xax x08 add yi moveto hab*dd362Fi i 7.5 mul cvi get cvishow xbx x01 add yi moveto r*ds362Mi i 7.5 mul cvi get cvsshow3r xbx x02 add yi moveto g*ds362Mi i 7.5 mul cvi get cvsshow3r xbx x03 add yi moveto b*ds362Mi i 7.5 mul cvi get cvsshow3r xbx x04 add yi moveto LAB*Lds362Mi i 7.5 mul cvi get cvsshow1r xbx x05 add yi moveto LAB*ads362Mi i 7.5 mul cvi get cvsshow1r xbx x06 add yi moveto LAB*bds362Mi i 7.5 mul cvi get cvsshow1r xbx x07 add yi moveto LAB*Cds362Mi i 7.5 mul cvi get cvsshow1r xbx x08 add yi moveto hab*ds362Mi i 7.5 mul cvi get cvishow } if %xchart=xchart3P6 xcx x01 add yi moveto r*de362Mi i 7.5 mul cvi get cvsshow3r xcx x02 add yi moveto g*de362Mi i 7.5 mul cvi get cvsshow3r xcx x03 add yi moveto b*de362Mi i 7.5 mul cvi get cvsshow3r xcx x04 add yi moveto LAB*Lde362Mi i 7.5 mul cvi get cvsshow1r xcx x05 add yi moveto LAB*ade362Mi i 7.5 mul cvi get cvsshow1r xcx x06 add yi moveto LAB*bde362Mi i 7.5 mul cvi get cvsshow1r xcx x07 add yi moveto LAB*Cde362Mi i 7.5 mul cvi get cvsshow1r xcx x08 add yi moveto hab*de382Fi i 7.5 mul cvi get cvishow xchart xchart3P7 eq {%xchart=xchart3P7 0 1 46 {/kk exch def %kk LAB*hdd64M i get hab*de382Fi kk 7.5 mul cvi get gt LAB*hdd64M i get hab*de382Fi kk 1 add 7.5 mul cvi get le and {/ykkd LAB*hdd64M i get hab*de382Fi kk 7.5 mul cvi get sub hab*de382Fi kk 1 add 7.5 mul cvi get hab*de382Fi kk 7.5 mul cvi get sub 0.0001 add div def /i8 0 def /yi ymax i ydel0 mul sub i8 ydel0 0.4 mul mul sub def /kk8 0 def /ykk ymax kk ykkd add ydel0 mul sub kk8 ydel0 0.4 mul mul sub def xax x01 add yi moveto LAB*hdd64M i get cvsshow1 xbx x08 add 100 sub ykk moveto LAB*hdd64M i get cvsshow1 xax x01 add yi moveto xcx x01 add ykk lineto stroke} if } for %kk } if %xchart=xchart3P7 r*dd362Mi i 7.5 mul cvi get g*dd362Mi i 7.5 mul cvi get b*dd362Mi i 7.5 mul cvi get setrgbcolor xd1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath fill r*ds362Mi i 7.5 mul cvi get g*ds362Mi i 7.5 mul cvi get b*ds362Mi i 7.5 mul cvi get setrgbcolor xs1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath fill i 16 le { r*de362Mi i 7.5 mul cvi get g*de362Mi i 7.5 mul cvi get b*de362Mi i 7.5 mul cvi get setrgbcolor xe1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath fill } if i 16 gt i i 2 idiv 2 mul eq and { r*de362Mi i 7.5 mul cvi get g*de362Mi i 7.5 mul cvi get b*de362Mi i 7.5 mul cvi get setrgbcolor xe1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath fill } if 0 setgray xd1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath stroke xs1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath stroke xe1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath stroke } for %i=0,48 xtesthuea 0 ge {600 /TimesB-ISOL1 FS 8000 2100 moveto 30 rotate 0 setgray (no continues hue change of device near ) showea (keine kontinuiertliche Buntton\344nderung nahe ) showde 600 /TimesBI-ISOL1 FS (h) show 500 /TimesB-ISOL1 FS 0 -100 rmoveto (ab,d) show 0 100 rmoveto 600 /TimesB-ISOL1 FS ( = ) show 0 1 xtesthuea {/in exch def %in=0,xtesthuea LAB*hdd64M xtesthuei in get get cvishow in xtesthuea ne {(, ) show} if } for %in=0,xtesthuea -30 rotate 8000 1100 moveto 30 rotate (or ) showea ( oder ) showde 600 /TimesBI-ISOL1 FS (rgb*) show 500 /TimesBI-ISOL1 FS 0 -100 rmoveto (d) show 0 100 rmoveto 600 /TimesB-ISOL1 FS ( = ) show 0 1 xtesthuea {/in exch def %in=0,xtesthuea r*dd64M xtesthuei in get get cvsshow3r (, ) show g*dd64M xtesthuei in get get cvsshow3r (, ) show b*dd64M xtesthuei in get get cvsshow3r in xtesthuea ne {(; ) show} if } for %in=0,xtesthuea -30 rotate 8000 0100 moveto 30 rotate 600 /TimesB-ISOL1 FS (appropriate correction done) showea (plausible Korrektur erfolgt) showde -30 rotate } if }%LOOP4: xchart=xchart3P6/3 {%LOOP4: xchart>xchart3P7 x0x x01 add 50 sub 0 moveto 0 16200 rlineto stroke x1x x01 add 50 sub 0 moveto 0 16200 rlineto stroke x2x x01 add 50 sub 0 moveto 0 16200 rlineto stroke TK1 00 1 45 {/i exch def %i=0,45 /ik45 xchart xchart3P7 1 add sub 45 mul i add def %range 0...359 /yi ymax i ydel1 mul sub def xd0 yi moveto hab*dd362Fi ik45 get cvishow %all integer xs0 yi moveto hab*ds362Mi ik45 get cvishow xe0 yi moveto hab*de382Fi ik45 get cvishow x0x x01 add yi moveto r*dd362Mi ik45 get cvsshow3 x0x x02 add yi moveto g*dd362Mi ik45 get cvsshow3 x0x x03 add yi moveto b*dd362Mi ik45 get cvsshow3 x0x x04 add yi moveto LAB*Ldd362Mi ik45 get cvsshow1 x0x x05 add yi moveto LAB*add362Mi ik45 get cvsshow1 x0x x06 add yi moveto LAB*bdd362Mi ik45 get cvsshow1 x0x x07 add yi moveto LAB*Cdd362Mi ik45 get cvsshow1 x0x x08 add yi moveto LAB*hdd362Mi ik45 get cvishow %integer x1x x01 add yi moveto r*ds362Mi ik45 get cvsshow3r x1x x02 add yi moveto g*ds362Mi ik45 get cvsshow3r x1x x03 add yi moveto b*ds362Mi ik45 get cvsshow3r x1x x04 add yi moveto LAB*Lds362Mi ik45 get cvsshow1r x1x x05 add yi moveto LAB*ads362Mi ik45 get cvsshow1r x1x x06 add yi moveto LAB*bds362Mi ik45 get cvsshow1r x1x x07 add yi moveto LAB*Cds362Mi ik45 get cvsshow1r x1x x08 add yi moveto LAB*hds362Mi ik45 get cvishow x1x x09 add yi moveto r*dd362Mi ik45 get cvsshow3r x1x x10 add yi moveto g*dd362Mi ik45 get cvsshow3r x1x x11 add yi moveto b*dd362Mi ik45 get cvsshow3r x2x x01 add yi moveto r*de362Mi ik45 get cvsshow3r x2x x02 add yi moveto g*de362Mi ik45 get cvsshow3r x2x x03 add yi moveto b*de362Mi ik45 get cvsshow3r x2x x04 add yi moveto LAB*Lde362Mi ik45 get cvsshow1r x2x x05 add yi moveto LAB*ade362Mi ik45 get cvsshow1r x2x x06 add yi moveto LAB*bde362Mi ik45 get cvsshow1r x2x x07 add yi moveto LAB*Cde362Mi ik45 get cvsshow1r x2x x08 add yi moveto LAB*hde362Mi ik45 get cvishow x2x x09 add yi moveto r*dd362Mi ik45 get cvsshow3r x2x x10 add yi moveto g*dd362Mi ik45 get cvsshow3r x2x x11 add yi moveto b*dd362Mi ik45 get cvsshow3r r*dd362Mi ik45 get g*dd362Mi ik45 get b*dd362Mi ik45 get setrgbcolor xd1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath fill r*ds362Mi ik45 get g*ds362Mi ik45 get b*ds362Mi ik45 get setrgbcolor xs1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath fill r*de362Mi ik45 get g*de362Mi ik45 get b*de362Mi ik45 get setrgbcolor xe1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath fill 0 setgray xd1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath stroke xs1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath stroke xe1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath stroke xchart xchart3P7 1 add eq ik45 000 eq and xchart xchart3P7 2 add eq ik45 060 eq and or xchart xchart3P7 3 add eq ik45 120 eq and or xchart xchart3P7 4 add eq ik45 180 eq and or xchart xchart3P7 5 add eq ik45 180 eq and or xchart xchart3P7 6 add eq ik45 240 eq and or xchart xchart3P7 7 add eq ik45 300 eq and or xchart xchart3P7 8 add eq ik45 360 eq and or {/ik 1 def} {/ik 0 def} ifelse ik 1 eq {x1x x01 add yi ydel1 0.7 mul add moveto x2x x11 add 600 add yi ydel1 0.7 mul add lineto stroke x1x x01 add yi ydel1 0.3 mul sub moveto x2x x11 add 600 add yi ydel1 0.3 mul sub lineto stroke} if ik 1 eq {TBIK1 x1x x08 add 400 add yi moveto RJGCBMs xchart xchart3P7 sub get show TBS1 0 -80 rmoveto (s) show 0 80 rmoveto TK1 TBIK1 x2x x08 add 400 add yi moveto RJGCBMs xchart xchart3P7 sub get show TBS1 0 -80 rmoveto (e) show 0 80 rmoveto TK1} if 0 8 48 {/it exch def %it=0,8,48 LAB*hdd64M it get LAB*hdd362Mi ik45 get ge LAB*hdd64M it get LAB*hdd362Mi ik45 1 add get lt and {x0x x01 add yi ydel1 0.3 mul sub moveto x1x x01 add yi ydel1 0.3 mul sub lineto stroke TBIK1 x1x x01 add 400 sub yi moveto RJGCBM it 8 idiv get show TBS1 0 -80 rmoveto (d) show 0 80 rmoveto TK1} if } for %it=0,8,48 } for i%=0,45 } ifelse %END LOOP4: xchart>xchart3P7 } ifelse %END LOOP2: xchart=xchart3P5,>xchart3P5 } if %END LOOPtables: xchart>=xchart3P5 showpage grestore %} for %xcharti=00,10 %} for %colsep=0,1 %} for %pchart=0,0 %} for %xchart=0,18 %} for %xcolor=3,3 %} for %deintp=0,1 %} for %colorm=0,1 %} for %lanind=0,0 %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 020 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM moveto ( ) show 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 18 %line 409 %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 197 MM translate 10 /Times-ISOL1 FS 1 1 scale -77 -91 translate %%BeginDocument: Bild 12 %line 419 %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 21 %line 429 %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 22 %line 439 %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 23 %line 449 %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 24 %line 459 %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 25 %line 469 %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 26 %line 479 %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 020 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 27 %line 489 %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 020 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM moveto ( ) show 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 28 %line 499 %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 080 MM add 008 MM translate %80 MM Breite von TestStreifen 10 /Times-ISOL1 FS 53 MM 1 MM moveto () show 1 1 scale -77 21 MM sub -91 translate %%BeginDocument: Bild 29 Teststreifen Ueberlaenge %line 509 %%EndDocument EndEPSF grestore gsave } if %xchart<=xchart3PXX BeginEPSF -0.0 MM -0.0 MM translate %xy-Verschiebung Rechteckrahmen nach innen% %%BeginDocument: Bild 30 %Rechteckrahmen %line 519 %!PS-Adobe-3.0 EPSF-3.0 Frame arround with Internet text DG02 20070101 %%BoundingBox: 0 0 598 845 %%EndProlog gsave /lanind 1 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 /showm {6 lanind eq {show} {pop} ifelse} bind def /lanind1 01 def /lanind2 01 def /lanindd 01 def /colorm1 00 def /colorm2 00 def /colormd 01 def /deintp1 00 def /deintp2 00 def /deintpd 01 def /xcolor1 03 def /xcolor2 03 def /xcolord 01 def /xchart1 00 def /xchart2 00 def /xchartd 01 def /pchart1 00 def /pchart2 00 def /pchartd 01 def /colsep1 00 def /colsep2 00 def /colsepd 01 def /pmetam1 00 def /pmetam2 00 def /pmetamd 01 def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} if /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} if /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} if /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} if /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 1 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} if /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} if /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} if /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % /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 0 def /i*ptrsc 0 def gsave %xchart 0 eq {%beg if xchart=0 0 setgray 1.0 1.0 scale 0.0 MM 0.0 MM translate 0.15 MM setlinewidth /x 20 array def /y 20 array def /d 20 array def /x [000 296 296 000 002 294 294 002 005 291 291 005 %speziell 006 290 290 006 008 288 288 008 ] def /y [000 000 210 210 002 002 208 208 005 005 205 205 %speziell 006 006 204 204 008 008 202 202 ] def /d [060 017 -60 -17 058 015 -58 -15 056 013 -56 -13 054 011 -54 -11 052 009 -52 -09 ] 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 xchart 1 ge {%xchart>=1 /i0 12 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def 2.5 MM /Times-ISOL1 FS x i0 get MM 40 MM add y i0 get MM 1 MM sub moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolor cvishow xchart cvishow pchart cvishow colsep cvishow (-F) show pmetam cvishow } if %xchart>=1 /xt 1 def xchart 1 eq {/xt 1 def} if xt 0 eq {%xt=0,1 ifelse /i0 12 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def 2.5 MM /Times-ISOL1 FS x i0 get MM 110 MM add y i0 get MM 1 MM sub moveto (http://130.149.60.45/~farbmetrik/QS59/QS59) show colorm cvishow deintp cvishow colorm 0 eq {(N) show} {(F) show} ifelse (P.PDF & ) show (http://130.149.60.45/~farbmetrik/QS59/QS59) show colorm cvishow deintp cvishow colorm 0 eq {(N) show} {(F) show} ifelse (P.TXT & ) show (http://130.149.60.45/~farbmetrik/QS59/QS59.HTM) show } %xt=0 { %xt=1 /xlu 017 MM def /ylu 017 MM def /xro 279 MM def /yro 193 MM def /xlo 017 MM def /ylo 193 MM def /xru 279 MM def /yru 017 MM def xlu 8 MM sub ylu moveto 16 MM 0 rlineto stroke xlu ylu 8 MM sub moveto 0 16 MM rlineto stroke xro 8 MM add yro moveto -16 MM 0 rlineto stroke xro yro 8 MM add moveto 0 -16 MM rlineto stroke xru 8 MM sub yru moveto 16 MM 0 rlineto stroke xru yru 8 MM sub moveto 0 16 MM rlineto stroke xlo 8 MM add ylo moveto -16 MM 0 rlineto stroke xlo ylo 8 MM add moveto 0 -16 MM rlineto stroke 1 2 7 {/i exch def %Zentrierkreise xlu ylu i MM 0 360 arc stroke xro yro i MM 0 360 arc stroke xru yru i MM 0 360 arc stroke xlo ylo i MM 0 360 arc stroke } for %i 12 4 16 {/i exch def /i0 i def %i=0,16 %0 4 16 {/i exch def /i0 i def %i=0,16 /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse 0 setgray x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto x i0 get MM y i0 get MM lineto stroke i 16 eq {6 /Times-ISOL1 FS /x00 67 def /xdif 32 def /y0o 202.3 def /y0u 6.3 def /x0l 6.1 def /x0r 288 def /y00 22 def /ydif 32 def x00 xdif 0 mul add MM y0o MM moveto (V) show x00 xdif 0 mul add MM y0u MM moveto (C) show x00 xdif 1 mul add MM y0o MM moveto (L) show x00 xdif 1 mul add MM y0u MM moveto (M) show x00 xdif 2 mul add MM y0o MM moveto (O) show x00 xdif 2 mul add MM y0u MM moveto (Y) show x00 xdif 3 mul add MM y0o MM moveto (Y) show x00 xdif 3 mul add MM y0u MM moveto (O) show x00 xdif 4 mul add MM y0o MM moveto (M) show x00 xdif 4 mul add MM y0u MM moveto (L) show x00 xdif 5 mul add MM y0o MM moveto (C) show x00 xdif 5 mul add MM y0u MM moveto (V) show x0l MM y00 ydif 0 mul add MM moveto (V) show x0r MM y00 ydif 0 mul add MM moveto (C) show x0l MM y00 ydif 1 mul add MM moveto (L) show x0r MM y00 ydif 1 mul add MM moveto (M) show x0l MM y00 ydif 2 mul add MM moveto (O) show x0r MM y00 ydif 2 mul add MM moveto (Y) show x0l MM y00 ydif 3 mul add MM moveto (Y) show x0r MM y00 ydif 3 mul add MM moveto (O) show x0l MM y00 ydif 4 mul add MM moveto (M) show x0r MM y00 ydif 4 mul add MM moveto (L) show x0l MM y00 ydif 5 mul add MM moveto (C) show x0r MM y00 ydif 5 mul add MM moveto (V) show } if } for %i=0,16 0 1 10 {/j0 exch def /j1 j0 1 add def %j0 j0 0 eq {tzccmy0* setcmykcolor} if j0 1 eq {0 setgray} if j0 2 eq {tzmcmy0* setcmykcolor} if j0 3 eq {0 setgray} if j0 4 eq {tzycmy0* setcmykcolor} if j0 5 eq {0 setgray} if j0 6 eq {tzocmy0* setcmykcolor} if j0 7 eq {0 setgray} if j0 8 eq {tzlcmy0* setcmykcolor} if j0 9 eq {0 setgray} if j0 10 eq {tzvcmy0* setcmykcolor} if 12 4 16 {/i exch def /i0 i def %i=0,16 %0 4 16 {/i exch def /i0 i def %i=0,16 /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse x i0 get d i0 get add 16 j0 mul add MM y i0 get MM moveto x i0 get d i0 get add 16 j1 mul add MM y i0 get MM lineto stroke x i1 get MM y i1 get d i1 get add 16 j0 mul add MM moveto x i1 get MM y i1 get d i1 get add 16 j1 mul add MM lineto stroke x i2 get d i2 get add 16 j0 mul sub MM y i2 get MM moveto x i2 get d i2 get add 16 j1 mul sub MM y i2 get MM lineto stroke x i3 get MM y i3 get d i3 get add 16 j0 mul sub MM moveto x i3 get MM y i3 get d i3 get add 16 j1 mul sub MM lineto stroke } for %i=0,16 } for %j0 0.15 MM setlinewidth /s 7 MM def /s1 8 MM def /s5 36 MM def 16 1 20 {/j exch def /j0 j 16 sub def %j=16,20 /ix0 xlu 8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def 0 1 3 {/ij exch def %ij=0,3 ij 0 eq {/ix0 xlu 8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def} if ij 1 eq {/ix0 xru 43 MM sub j0 7 MM mul add def /iy0 yru 8 MM sub def} if ij 2 eq {/ix0 xlo 8 MM add j0 7 MM mul add def /iy0 ylo 1 MM add def} if ij 3 eq {/ix0 xro 43 MM sub j0 7 MM mul add def /iy0 yro 1 MM add def} if i*ptrsc 0 eq i*ptrsc 2 eq or {%i*ptrsc=0,2 cmy0* setcmykcolor j 16 eq {tzan j get dup dup 0 setcmykcolor ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if tzan j get dup dup 0 setcmykcolor ix0 iy0 s s rec fill } if %i*ptrsc=0,2 i*ptrsc 1 eq i*ptrsc 3 eq or {%i*ptrsc=1,3 www* setrgbcolor j 16 eq {1 tzan j get 1 sub dup dup setrgbcolor %N ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 1 tzan j get sub dup dup setrgbcolor %N ix0 iy0 s s rec fill } if %i*ptrsc=1,3 i*ptrsc 4 eq i*ptrsc 5 eq or {%i*ptrsc=4,5 [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace j 16 eq {tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add setcolor %N ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add setcolor %N ix0 iy0 s s rec fill } if %i*ptrsc=4,5 i*ptrsc 6 eq {%i*ptrsc=6 000n* setcmykcolor j 16 eq {0 0 0 tzan j get setcmykcolor ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 0 0 0 tzan j get setcmykcolor ix0 iy0 s s rec fill } if %i*ptrsc=6 i*ptrsc 7 eq {%i*ptrsc=7 w* setgray j 16 eq {1 tzan j get sub setgray ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 1 tzan j get sub setgray ix0 iy0 s s rec fill } if %i*ptrsc=7 } for %ij=0,3 } for %j=16,20 0 setgray 018 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show 018 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show 276 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show 276 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show 018 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show 018 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show 276 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show 276 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show /COLhNam16 16 array def /COLhNam16 [(R00Y) (R25Y) (R50Y) (R75Y) (Y00G) (Y25G) (Y50G) (Y75G) (G00B) (G25B) (G50B) (G75B) (B00R) (B25R) (B50R) (B75R) ] def 0 setgray 12 /Times-ISOL1 FS 61 MM 13 MM moveto (TUB\255Pr\374fvorlage QS59; ) showde %0QS59X-Y 0000# (TUB\255test chart QS59; ) showen %1QS59X-Y 0000# (gr\341fico TUB\255QS59; ) showes %2QS59X-Y 0000# (graphique TUB\255QS59; ) showfr %3QS59X-Y 0000# (grafico TUB\255QS59; ) showit %4QS59X-Y 0000# (TUB\255test chart QS59; ) showjp %5QS59X-Y 0000# xchart4 0 eq { (16 Buntt\366ne) showde %0QS59X-Y 0100# (16 step hue circle) showen %1QS59X-Y 0100# (c\355rculo de tono, 16 pasos) showes %2QS59X-Y 0100# (cercle de teinte, 16 \351tapes) showfr %3QS59X-Y 0100# (cerchio delle tinte a 16 passi) showit %4QS59X-Y 0100# (16 step hue circle) showjp %5QS59X-Y 0100# } if xchart4 1 ge xchart4 16 le and { (Bunttoncode: ) showde %0QS59X-Y 0200# (hue code: ) showen %1QS59X-Y 0200# (c\363digo de tono: ) showes %2QS59X-Y 0200# (code de teinte: ) showfr %3QS59X-Y 0200# (codice di tinte: ) showit %4QS59X-Y 0200# (hue code: ) showjp %5QS59X-Y 0200# 12 /Times-ISOL1 FS (H*) show 10 /Times-ISOL1 FS 0 -2 rmoveto Fxx show 0 2 rmoveto 12 /Times-ISOL1 FS (=) show COLhNam16 xchart4 1 sub get show 10 /Times-ISOL1 FS 0 -2 rmoveto Fxx show 0 2 rmoveto } if xchart4 17 eq { (1080 Normfarben) showde %0QS59X-Y 0300# (1080 standard colours) showen %1QS59X-Y 0300# (1080 colores est\341ndar) showes %2QS59X-Y 0300# (1080 couleurs standard) showfr %3QS59X-Y 0300# (1080 colori standard) showit %4QS59X-Y 0300# (1080 standard colours) showjp %5QS59X-Y 0300# } if 61 MM 09 MM moveto xchart 5 le {%xchart<=5 12 /Times-ISOL1 FS (Pr\374fvorlage nach DIN 33872) showde %0QS59X-Y 0400# (Test chart according to DIN 33872) showen %1QS59X-Y 0400# (gr\341fico seg\372n a DIN 33872) showes %2QS59X-Y 0400# (graphique conforme \340 DIN 33872) showfr %3QS59X-Y 0400# (grafico conformemente a DIN 33872) showit %4QS59X-Y 0400# (Test chart according to DIN 33872) showjp %5QS59X-Y 0400# }%xchart<=5 {%xchart>5 xchart xchart3PXX le {%xchart<=xchart3PXX % 12 /TimesI-ISOL1 FS % ((a*,b*): ) show 12 /Times-ISOL1 FS (48\255stufige Farbkreise;) showde %0QS59X-Y 0500# (48 step hue circles;) showen %1QS59X-Y 0500# (c\355rculo de tono, 48 pasos;) showes %2QS59X-Y 0500# (cercle chromatique 48 paliers; tableaux) showfr %3QS59X-Y 0500# (cerchio delle tinte a 48 passi;) showit %4QS59X-Y 0500# (48 step hue cicle;) showjp %5QS59X-Y 0500# 12 /TimesI-ISOL1 FS ( rgb-LabCh*) show 12 /Times-ISOL1 FS (Tabellen) showde %0QS59X-Y 0600# (tables) showen %1QS59X-Y 0600# (mesas) showes %2QS59X-Y 0600# () showfr %3QS59X-Y 0600# (tavole) showit %4QS59X-Y 0600# (tables) showjp %5QS59X-Y 0600# }%xchart<=xchart3PXX {%xchart>xchart3PXX (Farben und Farbabst\344nde, ) showde %0QS59X-Y 0400# (colors and differences, ) showen %1QS59X-Y 0400# (colores y differencia en color, ) showes %2QS59X-Y 0400# (couleurs et diff\351rences, ) showfr %3QS59X-Y 0400# (colori e la differenza, ) showit %4QS59X-Y 0400# (colors and differences, ) showjp %5QS59X-Y 0400# 12 /Symbol FS (D) show 12 /TimesI-ISOL1 FS colorm 0 eq {%colorm=0 (E*') show }%colorm=0 {%colorm=1 (E'*) show } ifelse %colorm=1 } ifelse %xchart>xchart3PXX } ifelse %xchart>5 xchart 5 le {%xchart<=5 including separation 12 /Times-ISOL1 FS (, 3D=) show colorm cvishow (, de=) show deintp cvishow 12 /TimesI-ISOL1 FS xchart5f 0 eq {(, sRGB) show} if xchart5f 1 eq {(, cmyk) show} if xchart5f 2 eq {(, cmy0) show} if xchart5f 3 eq {(, cmyk) show} if colorm 1 eq {(*) show} if } if %xchart<=5 12 /Times-ISOL1 FS 165 MM 13 MM moveto (Eingabe: ) showde %0QS59X-Y 0500# (input: ) showen %1QS59X-Y 0500# (entrada: ) showes %2QS59X-Y 0500# (entr\351e : ) showfr %3QS59X-Y 0500# (immettere: ) showit %4QS59X-Y 0500# (input: ) showjp %5QS59X-Y 0500# 12 /TimesI-ISOL1 FS (rgb/cmyk -> ) show xchart xchart3 lt {(rgb/cmyk) show} if xchart xchart3 ge {%xchart>=xchart3 (rgb) show 10 /Times-ISOL1 FS 0 -2 rmoveto Txx show 0 2 rmoveto 12 /Times-ISOL1 FS } if %xchart>=xchart3 12 /Times-ISOL1 FS 165 MM 9 MM moveto (Ausgabe: ) showde %0QS59X-Y 0600# (output: ) showen %1QS59X-Y 0600# (salida: ) showes %2QS59X-Y 0600# (sortie : ) showfr %3QS59X-Y 0600# (uscita: ) showit %4QS59X-Y 0600# (output: ) showjp %5QS59X-Y 0600# %colorm=0,1! 12 /Times-ISOL1 FS xchart 0 eq {%xchart=0,#0 12 /Times-ISOL1 FS (keine \334nderung) showde %0QS59X-Y 0700# (no change) showen %1QS59X-Y 0700# (ning\372n cambio) showes %2QS59X-Y 0700# (aucun changement) showfr %3QS59X-Y 0700# (nessun cambiamento) showit %4QS59X-Y 0700# (no change compared) showjp %5QS59X-Y 0700# }%xchart=0 {%xchart#0 12 /Times-ISOL1 FS colorm 0 eq {%colorm=0 (Transfer nach ) showde %0QS59X-Y 0800# (transfer to ) showen %1QS59X-Y 0800# (transfiera a ) showes %2QS59X-Y 0800# (transf\351rer \340 ) showfr %3QS59X-Y 0800# (trasferire a ) showit %4QS59X-Y 0800# (transfer to ) showjp %5QS59X-Y 0800# }%colorm=0 {%colorm=1 (3D\255Linearisierung ) showde %0QS59X-Y 0900# (3D\255linearization to ) showen %1QS59X-Y 0900# (3D\255linealizaci\363n a ) showes %2QS59X-Y 0900# (lin\351arisation 3D selon ) showfr %3QS59X-Y 0900# (3D\255linearizzazione a ) showit %4QS59X-Y 0900# (3D\255linearization to ) showjp %5QS59X-Y 0900# } ifelse %colorm=1 12 /TimesI-ISOL1 FS xchart5f 0 eq {(rgb) show} if xchart5f 1 eq {(cmyk) show} if xchart5f 2 eq {(cmy0) show} if xchart5f 3 eq {(cmyk) show} if colorm 1 eq {(*) show} if 10 /Times-ISOL1 FS 0 -2 rmoveto Txx show 0 2 rmoveto 12 /Times-ISOL1 FS } ifelse %xchart=0,#0 %0 setgray %end white and unvisible 12 /Times-ISOL1 FS 62 MM 198.5 MM moveto (http://130.149.60.45/~farbmetrik/QS59/QS59L) show (0) show LSC$ show LEX$ show %1 setgray %start white and unvisible (; ) show xchart 0 eq { (Start\255Ausgabe) showde %0QS59X-Y 1000# (start output) showen %1QS59X-Y 1000# (comience salida) showes %2QS59X-Y 1000# (sortie de production) showfr %3QS59X-Y 1000# (cominciare l'uscita) showit %4QS59X-Y 1000# (start output) showjp %5QS59X-Y 1000# } if LSC$ (C) eq { (Start\255Ausgabe) showde %0QS59X-Y 1100# (start output) showen %1QS59X-Y 1100# (comience salida) showes %2QS59X-Y 1100# (sortie de production) showfr %3QS59X-Y 1100# (cominciare l'uscita) showit %4QS59X-Y 1100# (start output) showjp %5QS59X-Y 1100# } if xchart 1 ge {%xchart>=1 colorm 0 eq {%colorm=0,1 (Transfer Ausgabe) showde %0QS59X-Y 1200# (transfer output) showen %1QS59X-Y 1200# (salida de transferencia) showes %2QS59X-Y 1200# (sortie de transfert) showfr %3QS59X-Y 1200# (uscita di trasferimento) showit %4QS59X-Y 1200# (transfer output) showjp %5QS59X-Y 1200# }%colorm=0 {%colorm=1 (3D\255Linearisierung) showde %0QS59X-Y 1300# (3D\255linearization) showen %1QS59X-Y 1300# (3D\255linealizaci\363n) showes %2QS59X-Y 1300# (lin\351arisation 3D) showfr %3QS59X-Y 1300# (3D\255linearizzzazione) showit %4QS59X-Y 1300# (3D\255linearization) showjp %5QS59X-Y 1300# } ifelse %colorm=0,1 } if %xchart>=1 62 MM 194 MM moveto LSC$ (N) eq LSC$ (C) eq or { (N: Keine 3D\255Linearisierung (OL) ) showde %0QS59X-Y 1400# (N: no 3D\255linearization (OL) ) showen %1QS59X-Y 1400# (N: ninguna 3D\255linealizaci\363n (OL) ) showes %2QS59X-Y 1400# (N: aucune linearisation 3D (OL) ) showfr %3QS59X-Y 1400# (N: nessun 3D\255linearizzazione (OL) ) showit %4QS59X-Y 1400# (N: no 3D\255linearization (OL) ) showjp %5QS59X-Y 1400# (in Datei (F) oder PS\255Startup (S)) showde %0QS59X-Y 1500# (in file (F) or PS\255startup (S)) showen %1QS59X-Y 1500# (en archivo (F) o PS\255startup (S)) showes %2QS59X-Y 1500# (dans fichier (F) ou PS\255startup (S)) showfr %3QS59X-Y 1500# (nel file (F) o PS\255startup (S)) showit %4QS59X-Y 1500# (in file (F) or PS\255startup (S)) showjp %5QS59X-Y 1500# } {LSC$ show (: ) show (3D\255Linearisierung) showde %0QS59X-Y 1600# (3D\255linearization) showen %1QS59X-Y 1600# (3D\255linealizaci\363n) showes %2QS59X-Y 1600# (lin\351arisation 3D) showfr %3QS59X-Y 1600# (3D\255linearizzzazione) showit %4QS59X-Y 1600# (3D\255linearization) showjp %5QS59X-Y 1600# ( QS59/QS59L) show LSS$ show LSX$ show (0) show LSC$ show LEY$ show } ifelse LSC$ (F) eq { ( in Datei (F)) showde %0QS59X-Y 1700# ( in file (F)) showen %1QS59X-Y 1700# ( en archivo (F)) showes %2QS59X-Y 1700# ( dans fichier (F)) showfr %3QS59X-Y 1700# ( nel file (F)) showit %4QS59X-Y 1700# ( in file (F)) showjp %5QS59X-Y 1700# } if LSC$ (S) eq { ( im Distiller Startup (S) Directory) showde %0QS59X-Y 1800# ( in Distiller Startup (S) Directory) showen %1QS59X-Y 1800# ( en el Distiller Startup (S) Directory) showes %2QS59X-Y 1800# ( dans le Distiller Startup (S) Directory) showfr %3QS59X-Y 1800# ( nel Distiller Startup (S) Directory) showit %4QS59X-Y 1800# ( in Distiller Startup (S) Directory) showjp %5QS59X-Y 1800# } if LSC$ (D) eq { ( in PS\255Device (D)) showde %0QS59X-Y 1900# ( in PS\255device (D)) showen %1QS59X-Y 1900# ( en el PS\255device (D)) showes %2QS59X-Y 1900# ( dans l'appareil PS (D)) showfr %3QS59X-Y 1900# ( nel PS\255dispositivo (D)) showit %4QS59X-Y 1900# ( in PS\255Device (D)) showjp %5QS59X-Y 1900# } if LSC$ (T) eq { ( im Distiller Startup (S) Directory) showde %0QS59X-Y 2000# ( in Distiller Startup (S) Directory) showen %1QS59X-Y 2000# ( en el Distiller Startup (S) Directory) showes %2QS59X-Y 2000# ( dans le Distiller Startup (S) Directory) showfr %3QS59X-Y 2000# ( nel Distiller Startup (S) Directory) showit %4QS59X-Y 2000# ( in Distiller Startup (S) Directory) showjp %5QS59X-Y 2000# } if LSC$ (E) eq { ( in PS\255Device (D)) showde %0QS59X-Y 2100# ( in PS\255device (D)) showen %1QS59X-Y 2100# ( en el PS\255device (D)) showes %2QS59X-Y 2100# ( dans appareil PS (D)) showfr %3QS59X-Y 2100# ( nel PS\255dispositivo (D)) showit %4QS59X-Y 2100# ( in PS\255Device (D)) showjp %5QS59X-Y 2100# } if %0 setgray %end white and unvisible (, Seite ) showde %0QS59X-Y 2200# (, page ) showen %1QS59X-Y 2200# (, p\341gina ) showes %2QS59X-Y 2200# (, p\341ge ) showfr %3QS59X-Y 2200# (, pagina ) showit %4QS59X-Y 2200# (, page ) showjp %5QS59X-Y 2200# xchart 1 add cvishow (/) show 2 cvishow 16 MM 185 MM moveto -90 rotate (Siehe \344hnliche Dateien: ) showde %0QS59X-Y 2300# (see similar files: ) showen %1QS59X-Y 2300# (vea archivos semejantes: ) showes %2QS59X-Y 2300# (voir fichiers similaires: ) showfr %3QS59X-Y 2300# (vedere dei file simili: ) showit %4QS59X-Y 2300# (see similar files: ) showjp %5QS59X-Y 2300# (http://130.149.60.45/~farbmetrik/QS59/QS59.HTM) show %(0) show %LSC$ show LEX$ show 90 rotate 12 MM 185 MM moveto -90 rotate (Technische Information: ) showde %0QS59X-Y 2400# (technical information: ) showen %1QS59X-Y 2400# (informaci\363n t\351cnica: ) showes %2QS59X-Y 2400# (informations techniques: ) showfr %3QS59X-Y 2400# (informazioni tecniche: ) showit %4QS59X-Y 2400# (technical information: ) showjp %5QS59X-Y 2400# (http://www.ps.bam.de) show ( oder ) showde %0QS59X-Y 2500# ( or ) showen %1QS59X-Y 2500# ( o ) showes %2QS59X-Y 2500# ( ou ) showfr %3QS59X-Y 2500# ( o ) showit %4QS59X-Y 2500# ( or ) showjp %5QS59X-Y 2500# (http://130.149.60.45/~farbmetrik) show 90 rotate 281 MM 185 MM moveto -90 rotate (TUB\255Registrierung: 20130201\255QS59/QS59L) showde %0QS59X-Y 2600# (TUB registration: 20130201\255QS59/QS59L) showen %1QS59X-Y 2600# (TUB matr\355cula: 20130201\255QS59/QS59L) showes %2QS59X-Y 2600# (TUB enregistrement: 20130201\255QS59/QS59L) showfr %3QS59X-Y 2600# (TUB iscrizione: 20130201\255QS59/QS59L) showit %4QS59X-Y 2600# (TUB registration: 20130201\255QS59/QS59L) showjp %5QS59X-Y 2600# (0) show LSC$ show LEX$ show 90 rotate 281 MM 74 MM moveto -90 rotate (TUB\255Material: Code=rha4ta) showde %0QS59X-Y 2700# (TUB material: code=rha4ta) showen %1QS59X-Y 2700# (TUB material: code=rha4ta) showes %2QS59X-Y 2700# (TUB mat\351riel: code=rha4ta) showfr %3QS59X-Y 2700# (TUB materiale: code=rha4ta) showit %4QS59X-Y 2700# (TUB material: code=rha4ta) showjp %5QS59X-Y 2700# 90 rotate 277 MM 185 MM moveto -90 rotate /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def ( Anwendung f\374r Messung ) showde %0QS59X-Y 2800# ( application for measurement ) showen %1QS59X-Y 2800# ( aplicaci\363n para la medida ) showes %2QS59X-Y 2800# ( application pour la mesure ) showfr %3QS59X-Y 2800# ( la domanda per la misura ) showit %4QS59X-Y 2800# ( application for measurement ) showjp %5QS59X-Y 2800# xchart5f 0 eq {%xchart5f=0 (von Display-Ausgabe) showde %0QS59X-Y 2900# (of display output) showen %1QS59X-Y 2900# (de display output) showes %2QS59X-Y 2900# (de sortie sur \350cran) showfr %3QS59X-Y 2900# (di stampa di display) showit %4QS59X-Y 2900# (of display output) showjp %5QS59X-Y 2900# } if %xchart5f=0 xchart5f 1 eq xchart5f 2 eq or {%xchart5f=1,2 (von Offsetdruck\255Ausgabe) showde %0QS59X-Y 3000# (of offset print output) showen %1QS59X-Y 3000# (salida en la impressi\363n offset) showes %2QS59X-Y 3000# (des sorties sur offset) showfr %3QS59X-Y 3000# (uscita nella stampa di offset) showit %4QS59X-Y 3000# (of offset print output) showjp %5QS59X-Y 3000# } if %xchart5f=1,2 xchart5f 3 eq {%xchart5f=3 (von Laserdrucker\255Ausgabe) showde %0QS59X-Y 3100# (of laser printer output) showen %1QS59X-Y 3100# (salida de impresora l\341ser) showes %2QS59X-Y 3100# (des sorties sur imprimante laser) showfr %3QS59X-Y 3100# (di uscita della stampante laser) showit %4QS59X-Y 3100# (of laser printer output) showjp %5QS59X-Y 3100# } if %xchart5f=3 xchart 1 ge {%xchart>=1 xchart5f 0 eq {%xchart5f=0 (, keine Separation) showde %0QS59X-Y 3200# (, no separation) showen %1QS59X-Y 3200# (, ninguna separaci\363n) showes %2QS59X-Y 3200# (, aucune s\351paration) showfr %3QS59X-Y 3200# (, nessuna separazione) showit %4QS59X-Y 3200# (, no separation) showjp %5QS59X-Y 3200# } if %chart5f=0 xchart5f 1 ge {%xchart5f>=1 (, Separation) showde %0QS59X-Y 3300# (, separation) showen %1QS59X-Y 3300# (, separaci\363n) showes %2QS59X-Y 3300# (, s\351paration) showfr %3QS59X-Y 3300# (, separazione) showit %4QS59X-Y 3300# (, separation) showjp %5QS59X-Y 3300# xchart5f 1 eq xchart5f 3 eq or {( cmyn6) show} if xchart5f 2 eq {( cmy0) show} if colorm 1 eq {(*) show} if colsep 0 eq {( (CMYK))}{( (CMY0))} ifelse show } if %xchart5f>=1 } if %xchart>=1 IMES 1 eq LSC$ (N) ne and { %IMES=1 (, Yr=) show Yre cvsshow1 (, XYZ) show } if %IMES=1 90 rotate /i0 8 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def 0.30 MM setlinewidth 0 setgray x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto x i0 get MM y i0 get MM lineto stroke %/xlu1 013 MM def /ylu1 010 MM def %/xro1 283 MM def /yro1 200 MM def %/xlo1 013 MM def /ylo1 200 MM def %/xru1 283 MM def /yru1 010 MM def %xlu1 4 MM sub ylu1 moveto 8 MM 0 rlineto stroke %xlu1 ylu1 4 MM sub moveto 0 8 MM rlineto stroke %xro1 4 MM add yro1 moveto -8 MM 0 rlineto stroke %xro1 yro1 4 MM add moveto 0 -8 MM rlineto stroke %xru1 4 MM sub yru1 moveto 8 MM 0 rlineto stroke %xru1 yru1 4 MM sub moveto 0 8 MM rlineto stroke %xlo1 4 MM add ylo1 moveto -8 MM 0 rlineto stroke %xlo1 ylo1 4 MM add moveto 0 -8 MM rlineto stroke } ifelse %xt=1 xchart 1 le {%xchart<=1 /ypapert 5 array def /ypapert [(A) (B) (L) (G) (P)] def 0 0 0 0 setcmykcolor /i0 14 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def x i0 get MM 18 MM sub y i0 get MM 04 MM sub moveto 17 MM 0 rlineto 0 4.5 MM rlineto -17 MM 0 rlineto closepath fill x i0 get MM 17.5 MM sub y i0 get MM 3 MM sub moveto 0 1 1 0 setcmykcolor 4.5 MM /Times-ISOL1 FS (QS59) show 3.5 MM /Times-ISOL1 FS xchart 0 eq {(S0) show} {colorm cvishow deintp cvishow} ifelse ypapert colsep 0 eq {ypaper}{ybunta} ifelse get show } if %xchart<=1 grestore gsave %********************************************************** xchart xchart3PXX gt {%BEG xchart>xchart3PXX /n00 xchart3PXX 1 add def %special tables start at page 11 /n01 n00 1 add def %1080-rgb-tables start at page 13 /n02 n00 2 add def xchart n00 eq {/n1 0 def /n2 57 def} if xchart n01 eq {/n1 0 def /n2 53 def} if xchart n02 ge {/n1 xchart n02 sub 81 mul def /n2 n1 80 add def n2 1079 ge {/n2 1079 def} if } if 72 56 translate 0.01 MM dup scale 0 0 0 setrgbcolor 0 0 moveto 24600 0 rlineto 0 17220 rlineto -24600 0 rlineto closepath stroke 180 /Times-ISOL1 FS 0 0 0 setrgbcolor 7000 -180 moveto (QS590-7N, ) show lanind 0 eq {(Seite ) show} if lanind 1 eq {(Page ) show} if xchart 1 add cvishow (/) show 2 cvishow (-F) show %pmetam cvishow %******************************************************** /prog_rgb_dyF_LAB*'dyF {%BEG prog_rgb_dyF_LAB*'dyF %LAB*'dyF allready known by proc_rgb_rgb*'dy_LAB*'dy_rgb'*dy_*ioL } bind def %END prog_rgb_dyF_LAB*'dyF %******************************************************** /prog_rgb'*dyF_LAB'*dyF {%BEG prog_rgb'*dyF_LAB'*dyF %rgb'*dyF allready known by proc_rgb_rgb*'dy_LAB*'dy_rgb'*dy_*ioL %calculation of LAB'*dyF not possible, only by sRGB-equations } bind def %END prog_rgb'*dyF_LAB'*dyF %************************************************************* /fakt 1.0 def /fakt2 0.74 def %0.2 /iyt 250 fakt2 mul def %text size /iyd 277 fakt2 mul def %line difference /ixs0 00 fakt2 mul def /ixs1 -10 fakt2 mul def /ixs2 10 fakt2 mul def /iys1 -25 fakt2 mul def /iys2 25 fakt2 mul def /iys3 35 fakt2 mul def /iys4 -35 fakt2 mul def /iytie iyt 50 fakt2 mul sub def /nshow {iyt /Times-ISOL1 FS show} def /kshow {iyt /TimesI-ISOL1 FS show} def /bshow {iyt /TimesB-ISOL1 FS show} def /jshow {iyt /TimesBI-ISOL1 FS show} def /sshow {iyt /Symbol FS show} def /nishow {ixs1 iys1 rmoveto iytie /Times-ISOL1 FS show ixs2 iys2 rmoveto} def /nishow0 { 00 iys1 rmoveto iytie /Times-ISOL1 FS show 00 iys2 rmoveto} def /neshow {ixs1 iys3 rmoveto iytie /Times-ISOL1 FS show ixs2 iys4 rmoveto} def /neshow0 { 00 iys3 rmoveto iytie /Times-ISOL1 FS show 00 iys4 rmoveto} def /ishow {ixs1 iys1 rmoveto iytie /TimesB-ISOL1 FS show ixs2 iys2 rmoveto} def /ishow0 { 00 iys1 rmoveto iytie /TimesB-ISOL1 FS show 00 iys2 rmoveto} def /eshow { 00 iys3 rmoveto iytie /TimesB-ISOL1 FS show 00 iys4 rmoveto} def 0 0 0 setrgbcolor /imaxym 17220 def /iymax 16700 def /imaxy0 17000 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 /RGB58M1_F 174 array def %58x3=174 /RGB58M1_F [%rgb data of 48+1 step colour circle + 9 step gray series = 58 1.000 0.000 0.000 %00 R00Y %R 1.000 0.125 0.000 %01 R13Y 1.000 0.250 0.000 %02 R25Y 1.000 0.375 0.000 %03 R38Y 1.000 0.500 0.000 %04 R50Y 1.000 0.625 0.000 %05 R63Y 1.000 0.750 0.000 %06 R75Y 1.000 0.875 0.000 %07 R88Y 1.000 1.000 0.000 %08 Y00G %Y 0.875 1.000 0.000 %09 Y13G 0.750 1.000 0.000 %10 Y25G 0.625 1.000 0.000 %11 Y38G 0.500 1.000 0.000 %12 Y50G 0.375 1.000 0.000 %13 Y63G 0.250 1.000 0.000 %14 Y75G 0.125 1.000 0.000 %15 Y88G 0.000 1.000 0.000 %16 G00C %G 0.000 1.000 0.125 %17 G13C 0.000 1.000 0.250 %18 G25C 0.000 1.000 0.375 %19 G38C 0.000 1.000 0.500 %20 G50C 0.000 1.000 0.625 %21 G63C 0.000 1.000 0.750 %22 G75C 0.000 1.000 0.875 %23 G88C 0.000 1.000 1.000 %24 C00B %C 0.000 0.875 1.000 %25 C13B 0.000 0.750 1.000 %26 C25B 0.000 0.625 1.000 %27 C38B 0.000 0.500 1.000 %28 C50B 0.000 0.375 1.000 %29 C63B 0.000 0.250 1.000 %30 C75B 0.000 0.125 1.000 %31 C88B 0.000 0.000 1.000 %32 B00M %B 0.125 0.000 1.000 %33 B13M 0.250 0.000 1.000 %34 B25M 0.375 0.000 1.000 %35 B38M 0.500 0.000 1.000 %36 B50M 0.625 0.000 1.000 %37 B63M 0.750 0.000 1.000 %38 B75M 0.875 0.000 1.000 %39 B88M 1.000 0.000 1.000 %40 M00R %M 1.000 0.000 0.875 %41 M13R 1.000 0.000 0.750 %42 M25R 1.000 0.000 0.625 %43 M38R 1.000 0.000 0.500 %44 M50R 1.000 0.000 0.375 %45 M63R 1.000 0.000 0.250 %46 M75R 1.000 0.000 0.125 %47 M88R 1.000 0.000 0.000 %48 R00Y %R 0.000 0.000 0.000 %49 N00Wd %ncolors 0.125 0.125 0.125 %50 N13Wd 0.250 0.250 0.250 %51 N25Md 0.375 0.375 0.375 %52 N38Wd 0.500 0.500 0.500 %53 N50Wd 0.625 0.625 0.625 %54 N63Wd 0.750 0.750 0.750 %55 N75Wd 0.875 0.875 0.875 %56 N88Wd 1.000 1.000 1.000 %57 W00Nd = W ] def /RGB58M1t_F 58 array def %48+1 step colour circle and 9 step grey steps = 58 /RGB58M1t_F [%high chromatic series: %relative hue h*, brillance i*, and chroma c* %range 0 ... 100 (R00Y_100_100) (R13Y_100_100) (R25Y_100_100) (R38Y_100_100) (R50Y_100_100) (R63Y_100_100) (R75Y_100_100) (R88Y_100_100) (Y00G_100_100) (Y13G_100_100) (Y25G_100_100) (Y38G_100_100) (Y50G_100_100) (Y63G_100_100) (Y75G_100_100) (Y88G_100_100) (G00C_100_100) (G13C_100_100) (G25C_100_100) (G38C_100_100) (G50C_100_100) (G63C_100_100) (G75C_100_100) (G88C_100_100) (C00B_100_100) (C13B_100_100) (C25B_100_100) (C38B_100_100) (C50B_100_100) (C63B_100_100) (C75B_100_100) (C88B_100_100) (B00M_100_100) (B13M_100_100) (B25M_100_100) (B38M_100_100) (B50M_100_100) (B63M_100_100) (B75M_100_100) (B88M_100_100) (M00R_100_100) (M13R_100_100) (M25R_100_100) (M38R_100_100) (M50R_100_100) (M63R_100_100) (M75R_100_100) (M88R_100_100) (R00Y_100_100) %gray series (NW_000) (NW_013) (NW_025) (NW_038) (NW_050) (NW_063) (NW_075) (NW_088) (NW_100) ] def /RGB54CR_F 162 array def %54x3=162 /RGB54CR_F [%54 colours of colour rendering (CR) test chart 1.000 0.000 0.000 %01 R00Yd %RGB54CR 1.000 0.250 0.000 %02 R25Yd 1.000 0.500 0.000 %03 R50Yd 1.000 0.750 0.000 %04 R75Yd 1.000 1.000 0.000 %05 Y00Gd 0.750 1.000 0.000 %06 Y25Gd 0.500 1.000 0.000 %07 Y50Gd 0.250 1.000 0.000 %08 Y75Gd 0.000 1.000 0.000 %09 G00Bd = 10 0.000 1.000 0.000 %10 G00Bd 0.000 1.000 0.500 %11 G25Bd 0.000 1.000 1.000 %12 G50Bd 0.000 0.500 1.000 %13 G75Bd 0.000 0.000 1.000 %14 B00Rd 0.500 0.000 1.000 %15 B25Rd 1.000 0.000 1.000 %16 B50Rd 1.000 0.000 0.500 %17 B75Rd 1.000 0.000 0.000 %18 R00Yd = 01 1.000 0.500 0.500 %19 R00Yd %lcolors 1.000 0.750 0.500 %20 R50Yd 1.000 1.000 0.500 %21 Y00Gd 0.750 1.000 0.500 %22 Y50Gd 0.500 1.000 0.500 %23 G00Bd 0.500 1.000 1.000 %24 G50Bd 0.500 0.500 1.000 %25 B00Rd 1.000 0.500 1.000 %26 B50Rd 1.000 0.500 0.500 %27 R00Yd = 19 0.750 0.250 0.250 %28 R00Yd %zcolors 0.750 0.500 0.250 %29 R50Yd 0.750 0.750 0.250 %30 Y00Gd 0.500 0.750 0.250 %31 Y50Gd 0.250 0.750 0.250 %32 G00Bd 0.250 0.750 0.750 %33 G50Bd 0.250 0.250 0.750 %34 B00Rd 0.750 0.250 0.750 %35 B50Rd 0.750 0.250 0.250 %36 R00Yd = 28 0.500 0.000 0.000 %37 R00Yd %dcolors 0.500 0.250 0.000 %38 R50Yd 0.500 0.500 0.000 %38 Y00Gd 0.250 0.500 0.000 %40 Y50Gd 0.000 0.500 0.000 %41 G00Bd 0.000 0.500 0.500 %42 G50Bd 0.000 0.000 0.500 %43 B00Rd 0.500 0.000 0.500 %44 B50Rd 0.500 0.000 0.000 %45 R00Yd = 37 0.000 0.000 0.000 %46 N00Wd %ncolors 0.125 0.125 0.125 %47 N13Wd 0.250 0.250 0.250 %48 N25Md 0.375 0.375 0.375 %49 N38Wd 0.500 0.500 0.500 %50 N50Wd 0.625 0.625 0.625 %51 N63Wd 0.750 0.750 0.750 %52 N75Wd 0.875 0.875 0.875 %53 N88Wd 1.000 1.000 1.000 %54 W00Nd = W ] def %54 colours of colour rendering test chart /RGB54CRt_F 54 array def /RGB54CRt_F [%high chromatic series: %relative hue h*, brillance i*, and chroma c*, range 0 ... 100 (R00Y_100_100) (R25Y_100_100) (R50Y_100_100) (R75Y_100_100) (Y00G_100_100) (Y25G_100_100) (Y50G_100_100) (Y75G_100_100) (G00B_100_100) (G00B_100_100) (G25B_100_100) (G50B_100_100) (G75B_100_100) (B00M_100_100) (B25R_100_100) (B50R_100_100) (B75R_100_100) (R00Y_100_100) %whitetish series (R00Y_100_050) (R50Y_100_050) (Y00G_100_050) (Y50G_100_050) (G00B_100_050) (G50B_100_050) (B00R_100_050) (B50R_100_050) (R00Y_100_050) %grayish series (R00Y_075_050) (R50Y_075_050) (Y00G_075_050) (Y50G_075_050) (G00B_075_050) (G50B_075_050) (B00R_075_050) (B50R_075_050) (R00Y_075_050) %blackish series (R00Y_050_050) (R50Y_050_050) (Y00G_050_050) (Y50G_050_050) (G00B_050_050) (G50B_050_050) (B00R_050_050) (B50R_050_050) (R00Y_050_050) %gray series (NW_000) (NW_013) (NW_025) (NW_038) (NW_050) (NW_063) (NW_075) (NW_088) (NW_100) ] def /jCRi 54 array def /jCRi %jCRi [ 648 %R00Y_100_100 1.00 0.00 0.00 01 %chromatic 16 step hue 666 %R25Y_100_100 1.00 0.25 0.00 02 684 %R50Y_100_100 1.00 0.50 0.00 03 702 %R75Y_100_100 1.00 0.75 0.00 04 720 %Y00G_100_100 1.00 1.00 0.00 05 558 %Y25G_100_100 0.75 1.00 0.00 06 396 %Y50G_100_100 0.50 1.00 0.00 07 234 %Y75G_100_100 0.25 1.00 0.00 08 072 %G00B_100_100 0.00 1.00 0.00 09=10 072 %G00B_100_100 0.00 1.00 0.00 10 %chromatic 16 step hue 076 %G25B_100_100 0.00 1.00 0.50 11 080 %G50B_100_100 0.00 1.00 1.00 12 044 %G75B_100_100 0.00 0.50 1.00 13 008 %B00R_100_100 0.00 0.00 1.00 14 332 %B25R_100_100 0.50 0.00 1.00 15 656 %B50R_100_100 1.00 0.00 1.00 16 652 %B75R_100_100 1.00 0.00 0.50 17 648 %R00Y_100_100 1.00 0.00 0.00 18=01 688 %R00Y_100_050 1.00 0.50 0.50 19 %whitish 8 step hue 706 %R50Y_100_050 1.00 0.75 0.50 20 724 %Y00G_100_050 1.00 1.00 0.50 21 562 %Y50G_100_050 0.75 1.00 0.50 22 400 %G00B_100_050 0.50 1.00 0.50 23 404 %G50B_100_050 0.50 1.00 1.00 24 368 %B00R_100_050 0.50 0.50 1.00 25 692 %B50R_100_050 1.00 0.50 1.00 26 688 %R00Y_100_050 1.00 0.50 0.50 27=19 506 %R00Y_075_050 0.75 0.25 0.25 28 %greyish 8 step hue 524 %R50Y_075_050 0.75 0.50 0.25 29 542 %Y00G_075_050 0.75 0.75 0.25 30 380 %Y50G_075_050 0.50 0.75 0.25 31 218 %G00B_075_050 0.25 0.75 0.25 32 222 %G50B_075_050 0.25 0.75 0.75 33 186 %B00R_075_050 0.25 0.25 0.75 34 510 %B50R_075_050 0.75 0.25 0.75 35 506 %R00Y_075_050 0.75 0.25 0.25 36=28 324 %R00Y_050_050 0.50 0.00 0.00 37 %blackish 8 step hue 342 %R50Y_050_050 0.50 0.25 0.00 38 360 %Y00G_050_050 0.50 0.50 0.00 39 198 %Y50G_050_050 0.25 0.50 0.00 40 036 %G00B_050_050 0.00 0.50 0.00 41 040 %G50B_050_050 0.00 0.50 0.50 42 004 %B00R_050_050 0.00 0.00 0.50 43 328 %B50R_050_050 0.50 0.00 0.50 44 324 %R00Y_050_050 0.50 0.00 0.00 45=37 000 %NW_000 0.000 0.000 0.000 46 %grey 9 steps 091 %NW_013 0.125 0.125 0.125 47 182 %NW_025 0.250 0.250 0.250 48 273 %NW_038 0.375 0.375 0.375 49 364 %NW_050 0.500 0.500 0.500 50 455 %NW_063 0.625 0.625 0.625 51 546 %NW_075 0.750 0.750 0.750 52 637 %NW_088 0.875 0.875 0.875 53 728 %NW_100 1.000 1.000 1.000 54 ] def %END jCRi /SUMDE*' 0 def /SUMDE'* 0 def n1 1 n2 {/n exch def %n=n1,n2 /n30 n 3 mul def /n31 n30 1 add def /n32 n30 2 add def xchart n00 eq {%48+1=49 step colour circle + 9 gray steps=58 steps /hcolort RGB58M1t_F n get def RGB58M1_F n30 get %real RGB58M1_F n31 get RGB58M1_F n32 get } if %48 step colour circle xchart n01 eq {%45 colour rendering (CR) + 9 grey steps = 54 steps /hcolort RGB54CRt_F n get def RGB54CR_F n30 get %real RGB54CR_F n31 get RGB54CR_F n32 get } if %54 colour rendering colours xchart n02 ge {%1080 standard colours /r_RGBF RGB0_F n30 get 1000 div def /g_RGBF RGB0_F n31 get 1000 div def /b_RGBF RGB0_F n32 get 1000 div def /hsiRGBF r_RGBF 030 sin mul g_RGBF 150 sin mul add b_RGBF 270 sin mul add %y_e r_RGBF 030 cos mul g_RGBF 150 cos mul add %x_e 0.0001 add atan 0.5 add cvi def %range 0..360 hsiRGBF 30 lt {/hsiRGBF hsiRGBF 30 add def} if %range 30..390 hsiRGBF 030 ge hsiRGBF 090 le and {/u_100 hsiRGBF 030 sub 060 div 100 mul def /u1_RGYB (R) def /u2_RGYB (Y) def} if hsiRGBF 090 ge hsiRGBF 150 le and {/u_100 hsiRGBF 090 sub 060 div 100 mul def /u1_RGYB (Y) def /u2_RGYB (G) def} if hsiRGBF 150 ge hsiRGBF 270 le and {/u_100 hsiRGBF 150 sub 120 div 100 mul def /u1_RGYB (G) def /u2_RGYB (B) def} if hsiRGBF 270 ge hsiRGBF 390 le and {/u_100 hsiRGBF 270 sub 120 div 100 mul def /u1_RGYB (B) def /u2_RGYB (R) def} if %calculation of i_RGBF, c_RGBF, and t_RGBF /maxd r_RGBF def g_RGBF maxd gt {/maxd g_RGBF def} if b_RGBF maxd gt {/maxd b_RGBF def} if /mind r_RGBF def g_RGBF mind lt {/mind g_RGBF def} if b_RGBF mind lt {/mind b_RGBF def} if /I_RGBF maxd 100 mul def /C_RGBF maxd mind sub 100 mul def /T_RGBF I_RGBF C_RGBF 0.5 mul sub def r_RGBF g_RGBF b_RGBF %for setrgbcolor } if %1080 standard colours setrgbcolor %default to create data %setrgbcolor calculates data for output in "FF_LM_de_setrgbcolor_F" %colorm=0 calculates: rgb_dyF, rgb*dyF, LAB*dyF, ,cmyk*dyF and more %colorm=1 calculates: rgb_dyF, rgb*dyF, LAB*dyF', rgb'*dyF, cmyk*dyF and more /r_xF r_dyF def /g_xF g_dyF def /b_xF b_dyF def /i_xF i_dyF def /c_xF c_dyF def /t_xF t_dyF def /r*xF r*dyF def /g*xF g*dyF def /b*xF b*dyF def /LAB*LxF LAB*LdyF def /LAB*axF LAB*adyF def /LAB*bxF LAB*bdyF def /LAB*CxF LAB*adyF dup mul LAB*bdyF dup mul add 0.0001 add sqrt def /LAB*hxF LAB*bdyF LAB*adyF 0.0001 add atan def colorm 0 eq {%colorm=0 %prog_rgb_dyF_LAB*'dyF uses rgb_dyF by default %calculates output data according to IEC 61966-2-1 prog_rgb_dyF_LAB*'dyF xchart n00 eq {%xchart=n00 n 49 le {%n<=49 %chromatic hue series /LAB*'LxF LAB*Ldd64M n get def /LAB*'axF LAB*add64M n get def /LAB*'bxF LAB*bdd64M n get def /LAB*'CxF LAB*Cdd64M n get def /LAB*'hxF LAB*hdd64M n get def }%n<=49 %chromatic hue series {%n>49 %grey series /LAB*'LxF LAB*Lja jCRi n 5 sub get get def %Offset /LAB*'axF LAB*aja jCRi n 5 sub get get def /LAB*'bxF LAB*bja jCRi n 5 sub get get def /LAB*'CxF LAB*'axF dup mul LAB*'bxF dup mul add 0.0001 add sqrt def /LAB*'hxF LAB*'bxF LAB*'axF 0.0001 add atan def } ifelse %n>49 %grey series } if%xchart=n00 xchart n01 eq {%xchart=n01 /LAB*'LxF LAB*Lja jCRi n get get def %Offset hue circle /LAB*'axF LAB*aja jCRi n get get def /LAB*'bxF LAB*bja jCRi n get get def /LAB*'CxF LAB*'axF dup mul LAB*'bxF dup mul add 0.0001 add sqrt def /LAB*'hxF LAB*'bxF LAB*'axF 0.0001 add atan def } if %xchart=n01 xchart n02 ge %xchart>=n02 {/LAB*'LxF LAB*Lja n get def %only for Offset /LAB*'axF LAB*aja n get def /LAB*'bxF LAB*bja n get def /LAB*'CxF LAB*'axF dup mul LAB*'bxF dup mul add 0.0001 add sqrt def /LAB*'hxF LAB*'bxF LAB*'axF 0.0001 add atan def } if %xchart>=n02 % /LAB*'LxF L*'dyF def %only for sRGB % /LAB*'axF a*'dyF def % /LAB*'bxF b*'dyF def % /LAB*'CxF C*'dyF def % /LAB*'hxF h*'dyF def /DE*' LAB*'LxF LAB*LxF sub dup mul LAB*'axF LAB*axF sub dup mul add LAB*'bxF LAB*bxF sub dup mul add 0.0001 add sqrt def /SUMDE*' SUMDE*' DE*' add def } if %colorm=0 colorm 1 eq {%colorm=1 % /r'*xF r'*dyF def % /g'*xF g'*dyF def % /b'*xF b'*dyF def %calculates output data according to IEC 61966-2-1 % prog_rgb'*dyF_LAB'*dyF % /LAB'*LxF L'*dyF def % /LAB'*axF a'*dyF def % /LAB'*bxF b'*dyF def % /LAB'*CxF C'*dyF def % /LAB'*hxF h'*dyF def % /DE'* LAB'*LxF LAB*LxF sub dup mul % LAB'*axF LAB*axF sub dup mul add % LAB'*bxF LAB*bxF sub dup mul add % 0.0001 add sqrt def % /SUMDE'* SUMDE'* DE'* add def } if %colorm=1 /hsi_xF hsiF def /c4*xF c4*Fa def /m4*xF m4*Fa def /y4*xF y4*Fa def /n4*xF n4*Fa def /r*xM r*dyM def /g*xM g*dyM def /b*xM b*dyM def /LAB*LxM LAB*LdyM def /LAB*axM LAB*adyM def /LAB*bxM LAB*bdyM def /LAB*CxM LAB*adyM dup mul LAB*bdyM dup mul add 0.0001 add sqrt def /LAB*hxM LAB*bdyM LAB*adyM 0.0001 add atan def /hsi_xM hsiM def 0 setgray xchart n00 eq {/nx n 8 idiv def n 49 ge {/nx nx 1 add def} if n 56 ge {/nx nx 1 sub def} if } if xchart n01 eq {/nx n 9 idiv def} if xchart n02 ge {/nx 0 def} if /iydn iymax n n1 sub nx add iyd mul sub def n n1 eq {%n=n1 00050 imaxy0 moveto (n) jshow xchart n00 eq {(/j) show} if xchart n01 eq {(/j) show} if xchart n02 eq {(=j) show} if 00700 imaxy0 moveto (HIC*) bshow (F) ishow0 Txx ishow0 02300 imaxy0 moveto (rgb) jshow (_F) ishow0 Txx ishow0 04200 imaxy0 moveto (ict) jshow (_F) ishow0 Txx ishow0 06100 imaxy0 moveto (h) jshow (si_F,) ishow0 Txx ishow0 06700 imaxym moveto 0 imaxym neg rlineto stroke 06800 imaxy0 moveto (rgb*) jshow (F) ishow0 Txx ishow0 08700 imaxy0 moveto (LabCh*) jshow (F) ishow0 Txx ishow0 12100 imaxym moveto 0 imaxym neg rlineto stroke colorm 0 eq {%colorm=1 12200 imaxy0 moveto (rgb*') jshow (F) ishow0 Txx ishow0 14100 imaxy0 moveto (LabCh*') jshow (F) ishow0 Txx ishow0 17600 imaxy0 moveto (DE*') jshow (F) ishow0 Txx ishow0 } if %colorm=0 colorm 1 eq {%colorm=1 % 12200 imaxy0 moveto (rgb'*) jshow % (F) ishow0 Txx ishow0 % 14100 imaxy0 moveto (LabCh'*) jshow (F) ishow0 % Txx ishow0 % 17600 imaxy0 moveto (DE'*) jshow (F) ishow0 % Txx ishow0 12200 imaxy0 moveto (cmyn*) jshow (sep,) ishow0 (F) ishow0 Txx ishow0 } if %colorm=1 18300 imaxy0 moveto (h) jshow (siM,) ishow0 Txx ishow0 18900 imaxym moveto 0 imaxym neg rlineto stroke 19000 imaxy0 moveto (rgb*) jshow (M) ishow0 Txx ishow0 20900 imaxy0 moveto (LabCh*) jshow (M) ishow0 Txx ishow0 () nshow } if %n=n1 00050 iydn moveto n cvishow xchart n00 eq {%xchart=n00 n 48 le {%n<=48 (/) show M1jx n get cvishow }%n<=48 {%n>48 (/) show jCRi n 4 sub get cvishow } ifelse } if %xchart=n00 xchart n01 eq {(/) show jCRi n get cvishow} if 00700 iydn moveto xchart n01 le {hcolort show Txx ishow0 () nshow} if xchart n02 ge {%xchart>n02 C_RGBF 0 eq {%ifelse achromatic (NW) show (_) show I_RGBF cvi 9 le {(00) show} if %filling cero I_RGBF cvi 9 gt I_RGBF cvi 99 le and {(0) show } if %range 0..100 I_RGBF cvi 6 string cvs show }%ifelse achromatic {%ifelse chromatic u1_RGYB show %filling cero range 0..99 u_100 cvi 9 le {(0) show} if %filling cero u_100 cvi cvi 6 string cvs show u2_RGYB show (_) show I_RGBF cvi 9 le {(00) show} if %filling cero I_RGBF cvi 9 gt I_RGBF cvi 99 le and {(0) show } if %range 0..100 I_RGBF cvi 6 string cvs show (_) show C_RGBF 9 le {(00) show} if %filling cero C_RGBF cvi 9 gt C_RGBF cvi 99 le and {(0) show } if %range 0..100 C_RGBF cvi 6 string cvs show } ifelse %ifelse chromatic Txx ishow0 () nshow } if %xchart>n02 02300 iydn moveto r_xF cvsshow3 02900 iydn moveto g_xF cvsshow3 03500 iydn moveto b_xF cvsshow3 04200 iydn moveto i_xF cvsshow3 04800 iydn moveto c_xF cvsshow3 05400 iydn moveto t_xF cvsshow3 06100 iydn moveto hsi_xF cvishow 06800 iydn moveto r*xF cvsshow3 07400 iydn moveto g*xF cvsshow3 08000 iydn moveto b*xF cvsshow3 08700 iydn moveto LAB*LxF cvsshow1 09400 iydn moveto LAB*axF cvsshow1 10100 iydn moveto LAB*bxF cvsshow1 10800 iydn moveto LAB*CxF cvsshow1 11500 iydn moveto LAB*hxF cvsshow1 colorm 0 eq {%colorm=0 12200 iydn moveto r_xF cvsshow3 12800 iydn moveto g_xF cvsshow3 13400 iydn moveto b_xF cvsshow3 14100 iydn moveto LAB*'LxF cvsshow1 14800 iydn moveto LAB*'axF cvsshow1 15500 iydn moveto LAB*'bxF cvsshow1 16200 iydn moveto LAB*'CxF cvsshow1 16900 iydn moveto LAB*'hxF cvsshow1 17600 iydn moveto DE*' cvsshow1 } if %colorm=0 colorm 1 eq {%colorm=1 % 12200 iydn moveto r'*xF cvsshow3 % 12800 iydn moveto g'*xF cvsshow3 % 13400 iydn moveto b'*xF cvsshow3 % 14100 iydn moveto LAB'*LxF cvsshow1 % 14800 iydn moveto LAB'*axF cvsshow1 % 15500 iydn moveto LAB'*bxF cvsshow1 % 16200 iydn moveto LAB'*CxF cvsshow1 % 16900 iydn moveto LAB'*hxF cvsshow1 % 17600 iydn moveto DE'* cvsshow1 12200 iydn moveto c4*xF cvsshow3 13100 iydn moveto m4*xF cvsshow3 14000 iydn moveto y4*xF cvsshow3 14900 iydn moveto n4*xF cvsshow3 } if %colorm=1 18300 iydn moveto hsi_xM cvishow 19000 iydn moveto r*xM cvsshow3 19600 iydn moveto g*xM cvsshow3 20200 iydn moveto b*xM cvsshow3 20900 iydn moveto LAB*LxM cvsshow1 21600 iydn moveto LAB*axM cvsshow1 22300 iydn moveto LAB*bxM cvsshow1 23000 iydn moveto LAB*CxM cvsshow1 23700 iydn moveto LAB*hxM cvsshow1 } for %n=n1,n2 n2 57 eq n2 53 eq or n2 80 ge or {%n2=57,53,80,161,...,971,1079 /iydn iymax n 1 add n1 sub nx add iyd mul sub def 12500 iydn moveto lanind 1 eq {(Mean color difference of this page:) bshow} if %lanind 0 eq {(Mitttlere Farbdifferenz dieser Seite: ) bshow} if 16600 iydn moveto (delta ) bshow colorm 0 eq {(E*' =) jshow} if % {(E'* =) jshow} ifelse () bshow colorm 0 eq {%colorm=0 17600 iydn moveto SUMDE*' n2 n1 sub 1 add div cvsshow1 }%colorm=0 {%colorm=1 % 17600 iydn moveto SUMDE'* n2 n1 sub 1 add div cvsshow1 } ifelse %colorm=1 } if %n2=57,53,80,161,...,971,1079 } if %END xchart>xchart3PXX %************************************************************* %%Trailer %%EndDocument EndEPSF grestore gsave showpage grestore %} for %colsepf=0,1 %} for %pchartf=0,0 %} for %xchartf=0,18 %} for %xcolorf=3,3 %} for %deintpf=0,1 %} for %colormf=0,1 %} for %lanindf=0,0 %%Trailer