%!PS-Adobe-3.0 EPSF-3.0 DM100/PK0X_FRAME_A4_F1_PK83.PS 20120401 %%BoundingBox: 70 82 786 592 /pdfmarkF where {pop} {userdict /pdfmarkF /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.445/~farbmetrik/DM10) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.445/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2012040112000) /ModDate (D:2012040112000) /DOCINFO pdfmarkF [ /View [ /Fit ] /DOCVIEW pdfmarkF %************************************************************ %Early Frame File (f) definition /sfgray {setgray} bind def /sfrgbcolor {setrgbcolor} bind def /sfcmykcolor {setcmykcolor} bind def %********************************************* %line 29, %BEG Include Procedures for output linearization at line 30 %**************************************************** %BEG 'DM10'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 'DM10'OUTLIN11.PS for output 3D-linearization %**************************************************** %**************************************************** %BEG 'DM10'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 (Offset standard print; separation cmy0*, D65) def /FileDatde (Offset\255Normdruck; Separation cmy0*, 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 'DM10'OUTLIN1X.PS Other procedures for Offset output linearization %**************************************************** %BEG_OUTLIN1Y_PK8601********************************************************** %BEG 'QK0X'OUTLIN1Y_PK8601.PS %BEG spectral reflection data, cmy0*, 1080 colours, offset A,B,L,G, printer P %***************************************************************************** %reflection 380 to 720 nm extrapolated to 770 /RX1F 45360 array def %1080x42=45360 %cmy0* /ybunta 0 def ybunta 0 eq {%ybunta=0 /FILEDATA_RX1F_IOF (PE4600A_120830.TXT, 1080 colors, Separation cmy0*) def /RX1F [ %PE4600A_120830_01.txt 1 1 0265 0396 0496 0525 0501 0512 0543 0567 0582 0533 0488 0564 0754 0813 0670 0518 0414 0299 0201 0169 0196 0296 0381 0383 0370 0363 0367 0408 0492 0551 0536 0487 0405 0344 0370 0498 2 2 0283 0441 0569 0615 0604 0631 0679 0707 0716 0650 0588 0641 0798 0825 0669 0515 0409 0295 0197 0166 0195 0294 0378 0376 0364 0357 0359 0400 0482 0542 0527 0477 0396 0337 0363 0491 3 3 0316 0491 0655 0735 0739 0786 0856 0897 0891 0805 0718 0744 0860 0851 0679 0519 0412 0294 0196 0166 0195 0296 0381 0381 0369 0362 0366 0407 0490 0549 0533 0483 0403 0341 0367 0498 4 4 0339 0550 0749 0866 0887 0954 1049 1099 1081 0972 0855 0848 0914 0861 0674 0510 0403 0286 0189 0161 0192 0292 0377 0376 0362 0357 0359 0400 0483 0541 0526 0477 0397 0338 0363 0490 5 5 0364 0604 0853 1004 1049 1142 1274 1336 1298 1159 1010 0958 0967 0869 0665 0501 0392 0277 0182 0156 0189 0289 0373 0373 0360 0354 0357 0397 0478 0536 0522 0472 0393 0335 0359 0489 6 6 0390 0671 0959 1150 1219 1347 1511 1584 1525 1353 1167 1064 1009 0865 0646 0482 0377 0266 0173 0151 0187 0286 0372 0371 0358 0353 0356 0395 0477 0535 0519 0473 0390 0333 0359 0488 7 7 0426 0736 1073 1309 1415 1577 1782 1875 1789 1581 1354 1196 1074 0883 0649 0481 0375 0262 0171 0150 0187 0286 0370 0371 0358 0353 0355 0396 0477 0534 0518 0470 0391 0334 0358 0485 8 8 0468 0802 1179 1470 1605 1808 2059 2164 2050 1803 1535 1320 1126 0889 0641 0472 0365 0254 0166 0148 0186 0286 0370 0371 0358 0353 0355 0395 0476 0534 0518 0471 0391 0332 0360 0483 9 9 0476 0848 1283 1622 1794 2044 2351 2478 2330 2047 1734 1455 1190 0910 0647 0472 0363 0250 0159 0141 0180 0279 0365 0368 0357 0353 0356 0395 0475 0532 0516 0470 0390 0334 0359 0487 10 10 0497 0509 0503 0466 0422 0410 0419 0430 0444 0409 0381 0460 0634 0685 0565 0450 0382 0304 0227 0200 0264 0692 1505 2069 2316 2413 2462 2551 2681 2759 2737 2668 2544 2437 2461 2643 11 11 0553 0586 0592 0564 0522 0522 0543 0557 0561 0508 0462 0522 0671 0700 0569 0452 0383 0301 0223 0197 0260 0687 1494 2052 2295 2390 2439 2526 2657 2733 2712 2642 2518 2412 2439 2622 12 12 0630 0688 0715 0713 0687 0707 0740 0759 0747 0667 0590 0615 0715 0704 0561 0442 0374 0294 0218 0195 0264 0691 1501 2063 2309 2406 2455 2543 2672 2750 2728 2659 2536 2426 2453 2634 13 13 0712 0786 0835 0860 0849 0888 0941 0963 0932 0821 0715 0704 0761 0716 0561 0439 0370 0290 0214 0194 0262 0686 1492 2053 2301 2399 2448 2536 2665 2742 2720 2650 2528 2422 2444 2631 14 14 0824 0902 0981 1026 1036 1094 1174 1198 1141 0999 0852 0798 0799 0714 0547 0425 0359 0281 0207 0192 0264 0696 1524 2106 2366 2468 2520 2608 2736 2813 2791 2721 2601 2494 2521 2700 15 15 0885 1032 1140 1208 1242 1329 1437 1466 1382 1200 1013 0911 0856 0727 0545 0421 0355 0277 0204 0190 0265 0700 1534 2126 2391 2496 2550 2639 2769 2848 2827 2755 2631 2527 2549 2730 16 16 1007 1136 1269 1393 1451 1568 1707 1744 1629 1408 1179 1023 0906 0738 0543 0417 0349 0270 0197 0186 0262 0689 1501 2068 2320 2419 2472 2562 2692 2770 2748 2679 2554 2447 2470 2655 17 17 1064 1247 1424 1573 1666 1814 1995 2037 1887 1621 1347 1131 0947 0736 0529 0402 0336 0260 0190 0183 0260 0681 1479 2038 2287 2387 2440 2526 2655 2733 2710 2641 2517 2409 2436 2618 18 18 1134 1349 1560 1756 1878 2065 2287 2337 2149 1837 1518 1241 0992 0744 0526 0398 0333 0256 0188 0185 0265 0684 1487 2050 2305 2406 2459 2547 2676 2753 2733 2663 2542 2436 2461 2640 19 19 0784 0667 0548 0455 0393 0370 0363 0370 0383 0352 0333 0412 0571 0617 0512 0424 0385 0333 0267 0242 0357 1234 3106 4636 5397 5707 5838 5948 6066 6125 6112 6065 5980 5901 5919 6063 20 20 0892 0780 0661 0569 0507 0493 0491 0496 0499 0450 0410 0470 0603 0626 0513 0422 0384 0331 0265 0241 0358 1240 3120 4661 5432 5745 5881 5990 6105 6165 6150 6105 6021 5945 5959 6095 21 21 1017 0925 0815 0735 0681 0674 0687 0688 0671 0592 0521 0547 0642 0635 0510 0419 0380 0328 0262 0241 0361 1248 3129 4669 5439 5755 5890 6003 6120 6177 6166 6117 6036 5961 5978 6114 22 22 1195 1088 0981 0916 0886 0895 0925 0921 0875 0759 0650 0633 0678 0635 0500 0408 0371 0319 0255 0237 0360 1243 3123 4667 5449 5770 5907 6019 6136 6193 6181 6133 6053 5980 5994 6132 23 23 1351 1269 1177 1130 1113 1145 1190 1185 1105 0948 0794 0729 0716 0630 0483 0393 0357 0307 0246 0234 0358 1224 3088 4640 5433 5761 5901 6014 6127 6186 6175 6130 6047 5977 5991 6124 24 24 1542 1448 1365 1341 1343 1400 1471 1460 1348 1146 0949 0830 0758 0635 0476 0384 0349 0299 0240 0231 0358 1228 3097 4651 5446 5776 5919 6034 6150 6207 6195 6150 6070 5998 6011 6148 25 25 1650 1598 1530 1517 1539 1613 1706 1694 1552 1310 1076 0912 0790 0632 0466 0374 0342 0294 0237 0233 0362 1229 3095 4653 5452 5787 5929 6043 6158 6217 6205 6160 6078 6009 6020 6155 26 26 1820 1783 1719 1737 1776 1880 1993 1978 1799 1511 1228 1010 0830 0636 0458 0367 0336 0289 0234 0233 0369 1256 3165 4758 5579 5923 6069 6182 6295 6351 6343 6300 6223 6156 6169 6295 27 27 1992 1939 1890 1929 2002 2128 2275 2258 2032 1698 1370 1093 0853 0627 0442 0353 0324 0279 0227 0233 0370 1263 3192 4806 5639 5988 6137 6249 6362 6416 6408 6367 6293 6227 6236 6362 28 1 0274 0435 0541 0565 0533 0537 0561 0592 0620 0584 0553 0673 0957 1098 0960 0769 0613 0442 0289 0222 0236 0327 0400 0394 0381 0376 0378 0422 0506 0566 0550 0502 0417 0358 0383 0513 29 2 0293 0471 0611 0656 0637 0655 0695 0731 0752 0700 0651 0747 0991 1092 0937 0744 0589 0421 0270 0206 0220 0311 0382 0376 0362 0358 0362 0404 0489 0548 0533 0483 0401 0340 0368 0498 30 3 0325 0540 0719 0817 0811 0856 0928 0978 0989 0914 0837 0898 1086 1136 0959 0755 0597 0424 0270 0205 0219 0309 0378 0372 0359 0353 0356 0398 0483 0541 0526 0476 0395 0335 0362 0493 31 4 0374 0601 0816 0946 0969 1035 1137 1193 1195 1097 0993 1014 1142 1138 0938 0734 0579 0409 0261 0199 0217 0310 0381 0375 0362 0357 0361 0404 0487 0547 0532 0481 0400 0342 0365 0498 32 5 0405 0661 0945 1124 1169 1273 1410 1484 1467 1341 1199 1173 1227 1158 0933 0723 0567 0398 0251 0192 0211 0304 0376 0371 0359 0354 0358 0399 0480 0540 0525 0476 0395 0336 0365 0492 33 6 0434 0736 1059 1287 1366 1505 1682 1772 1733 1575 1397 1315 1293 1164 0920 0709 0552 0387 0243 0187 0208 0298 0368 0363 0350 0344 0348 0388 0470 0528 0513 0466 0385 0324 0353 0482 34 7 0457 0804 1181 1468 1579 1757 1981 2095 2033 1838 1619 1477 1374 1183 0915 0698 0543 0377 0235 0181 0204 0296 0369 0363 0350 0346 0349 0390 0472 0531 0515 0467 0386 0330 0356 0480 35 8 0483 0874 1315 1653 1808 2029 2309 2443 2352 2121 1860 1652 1463 1209 0921 0700 0542 0375 0231 0178 0203 0293 0363 0358 0345 0341 0344 0385 0466 0524 0510 0460 0382 0322 0348 0479 36 9 0509 0942 1436 1840 2034 2306 2651 2812 2690 2420 2115 1834 1558 1249 0939 0708 0545 0376 0230 0178 0204 0294 0364 0361 0348 0343 0346 0387 0469 0526 0512 0463 0386 0327 0352 0482 37 10 0539 0558 0544 0495 0440 0423 0426 0443 0465 0439 0418 0535 0804 0958 0866 0730 0635 0518 0392 0329 0396 0845 1613 2119 2335 2420 2466 2552 2681 2759 2735 2663 2540 2435 2460 2641 38 11 0604 0651 0655 0628 0577 0575 0588 0609 0623 0579 0539 0636 0876 0996 0886 0745 0646 0526 0397 0333 0399 0846 1611 2116 2333 2419 2464 2551 2678 2755 2733 2663 2538 2434 2458 2638 39 12 0695 0755 0802 0787 0757 0769 0803 0826 0829 0759 0693 0757 0946 1018 0887 0741 0642 0522 0395 0334 0401 0844 1603 2105 2323 2407 2454 2539 2666 2742 2720 2650 2529 2425 2448 2627 40 13 0796 0885 0962 0981 0965 0999 1057 1085 1067 0968 0868 0889 1016 1034 0881 0732 0632 0512 0387 0329 0399 0845 1603 2100 2315 2399 2444 2531 2659 2736 2713 2643 2519 2411 2442 2618 41 14 0922 1041 1139 1195 1203 1260 1345 1379 1340 1209 1073 1049 1111 1072 0896 0742 0641 0519 0394 0338 0410 0861 1635 2154 2378 2467 2514 2598 2726 2802 2778 2708 2586 2481 2507 2687 42 15 1006 1162 1301 1396 1430 1519 1633 1675 1612 1445 1272 1194 1186 1088 0891 0732 0629 0507 0383 0330 0403 0842 1595 2098 2317 2404 2449 2536 2662 2735 2716 2644 2521 2419 2446 2623 43 16 1120 1309 1488 1628 1696 1819 1974 2027 1935 1728 1508 1372 1284 1126 0906 0741 0635 0511 0386 0335 0410 0843 1586 2078 2295 2380 2427 2513 2637 2713 2692 2622 2499 2397 2420 2601 44 17 1216 1459 1688 1867 1963 2130 2323 2386 2262 2013 1749 1545 1374 1158 0917 0746 0641 0516 0391 0343 0418 0849 1588 2079 2295 2382 2428 2513 2637 2713 2691 2622 2500 2398 2420 2601 45 18 1295 1552 1837 2085 2223 2425 2673 2750 2589 2292 1978 1702 1444 1167 0907 0732 0626 0501 0377 0332 0409 0826 1540 2014 2224 2309 2352 2437 2561 2637 2614 2545 2423 2321 2347 2524 46 19 0819 0718 0587 0479 0405 0380 0364 0373 0394 0369 0359 0471 0726 0884 0821 0728 0682 0612 0510 0453 0589 1521 3319 4720 5403 5677 5795 5901 6016 6073 6060 6012 5927 5853 5871 6002 47 20 0984 0873 0750 0645 0574 0550 0545 0550 0562 0520 0488 0586 0826 0968 0896 0800 0752 0678 0572 0512 0652 1594 3384 4770 5446 5717 5836 5941 6054 6109 6095 6047 5966 5891 5908 6041 48 21 1133 1034 0919 0833 0770 0755 0762 0766 0761 0692 0633 0698 0893 0991 0900 0801 0753 0677 0571 0513 0656 1603 3400 4796 5479 5756 5875 5980 6091 6148 6134 6087 6001 5930 5943 6078 49 22 1343 1246 1145 1073 1024 1030 1051 1052 1023 0919 0823 0847 0977 1020 0908 0803 0754 0679 0576 0522 0666 1604 3395 4795 5487 5766 5887 5993 6104 6159 6147 6100 6019 5947 5961 6092 50 23 1569 1497 1413 1369 1338 1366 1407 1410 1348 1202 1060 1024 1078 1055 0917 0807 0758 0684 0580 0532 0676 1608 3393 4798 5493 5779 5904 6011 6119 6174 6159 6117 6035 5968 5982 6111 51 24 1778 1717 1659 1636 1627 1680 1747 1747 1656 1469 1285 1196 1180 1099 0940 0829 0778 0701 0599 0554 0702 1626 3404 4807 5508 5796 5925 6031 6141 6196 6185 6137 6058 5987 6000 6130 52 25 1967 1918 1875 1880 1901 1976 2068 2067 1945 1716 1489 1343 1256 1119 0939 0824 0773 0698 0598 0557 0707 1628 3406 4812 5514 5806 5935 6039 6151 6206 6194 6148 6070 5998 6009 6140 53 26 2156 2139 2118 2149 2189 2297 2417 2414 2252 1980 1705 1497 1331 1137 0938 0820 0770 0695 0597 0559 0715 1659 3478 4918 5638 5936 6067 6171 6281 6335 6324 6277 6203 6132 6146 6273 54 27 2369 2347 2346 2408 2489 2629 2782 2776 2570 2248 1925 1645 1396 1149 0933 0814 0767 0694 0598 0568 0726 1676 3508 4958 5684 5986 6113 6220 6327 6381 6370 6329 6255 6189 6198 6319 55 1 0282 0444 0563 0583 0537 0538 0554 0586 0627 0601 0584 0751 1157 1430 1318 1080 0858 0613 0388 0271 0261 0335 0391 0379 0366 0361 0365 0410 0497 0557 0542 0491 0408 0345 0375 0510 56 2 0314 0515 0674 0725 0694 0711 0750 0793 0831 0793 0756 0905 1271 1493 1352 1103 0874 0623 0394 0276 0265 0338 0391 0377 0363 0358 0363 0406 0493 0554 0538 0489 0404 0345 0371 0503 57 3 0368 0593 0793 0892 0888 0936 1002 1059 1092 1035 0976 1088 1393 1550 1378 1115 0880 0626 0392 0272 0262 0335 0388 0374 0360 0356 0361 0405 0492 0553 0537 0487 0404 0342 0369 0502 58 4 0375 0664 0934 1079 1102 1176 1279 1357 1380 1302 1214 1287 1520 1601 1394 1122 0882 0623 0388 0268 0258 0331 0383 0367 0354 0351 0354 0398 0485 0545 0528 0479 0396 0336 0361 0492 59 5 0427 0739 1071 1279 1330 1442 1593 1688 1701 1597 1476 1498 1644 1642 1399 1117 0875 0616 0381 0264 0254 0327 0378 0365 0352 0347 0352 0396 0479 0540 0524 0475 0393 0334 0361 0497 60 6 0477 0827 1212 1473 1565 1719 1918 2038 2026 1892 1732 1687 1725 1631 1357 1074 0838 0587 0362 0253 0248 0322 0376 0363 0350 0345 0350 0392 0476 0535 0519 0471 0388 0329 0360 0486 61 7 0516 0908 1353 1686 1818 2015 2269 2415 2383 2213 2012 1896 1833 1651 1342 1052 0819 0570 0350 0244 0243 0320 0375 0365 0352 0348 0352 0396 0480 0540 0525 0475 0394 0335 0361 0495 62 8 0555 0974 1495 1895 2064 2306 2624 2800 2739 2533 2284 2095 1926 1664 1328 1038 0805 0559 0342 0239 0240 0316 0372 0362 0350 0346 0351 0394 0478 0538 0522 0473 0392 0331 0358 0491 63 9 0590 1069 1649 2124 2354 2662 3055 3263 3175 2932 2639 2363 2080 1739 1370 1065 0824 0570 0346 0242 0244 0317 0372 0361 0349 0346 0350 0393 0477 0537 0521 0472 0391 0332 0358 0485 64 10 0586 0613 0603 0534 0468 0447 0439 0461 0495 0478 0470 0641 1065 1402 1373 1217 1078 0901 0706 0587 0641 1088 1780 2212 2393 2465 2508 2594 2724 2801 2777 2704 2581 2473 2498 2679 65 11 0675 0721 0736 0697 0635 0621 0633 0655 0686 0652 0627 0778 1157 1435 1377 1213 1070 0893 0698 0582 0636 1079 1766 2194 2376 2448 2490 2576 2705 2785 2761 2686 2563 2455 2482 2668 66 12 0765 0854 0899 0894 0845 0849 0882 0911 0931 0875 0824 0941 1256 1462 1370 1195 1052 0876 0682 0569 0626 1064 1745 2170 2350 2420 2461 2547 2676 2753 2731 2659 2533 2425 2450 2637 67 13 0910 1021 1112 1145 1118 1152 1204 1241 1247 1166 1085 1160 1406 1538 1410 1224 1075 0895 0699 0588 0644 1081 1761 2185 2367 2438 2480 2566 2694 2773 2747 2676 2551 2442 2466 2650 68 14 1043 1219 1347 1421 1427 1487 1574 1623 1608 1495 1377 1398 1558 1604 1439 1243 1090 0908 0712 0604 0661 1093 1772 2197 2381 2452 2493 2578 2703 2780 2757 2687 2562 2459 2482 2661 69 15 1181 1381 1565 1690 1718 1813 1936 2000 1964 1817 1659 1625 1695 1661 1458 1252 1097 0910 0714 0608 0665 1091 1760 2182 2363 2436 2478 2561 2686 2762 2738 2669 2545 2441 2464 2642 70 16 1323 1568 1814 1985 2052 2189 2359 2435 2371 2189 1987 1884 1853 1730 1489 1272 1111 0922 0723 0618 0676 1099 1764 2185 2366 2439 2480 2566 2692 2768 2744 2673 2549 2444 2468 2647 71 17 1450 1757 2055 2289 2399 2583 2805 2900 2801 2575 2325 2140 1991 1773 1497 1272 1110 0920 0723 0621 0679 1099 1761 2180 2361 2434 2477 2562 2688 2765 2743 2671 2545 2439 2464 2646 72 18 1587 1908 2270 2569 2733 2967 3248 3360 3226 2957 2657 2386 2121 1822 1516 1283 1117 0924 0728 0631 0688 1101 1761 2177 2360 2433 2477 2562 2688 2763 2738 2668 2546 2440 2463 2650 73 19 0920 0805 0651 0531 0437 0402 0387 0395 0428 0415 0413 0577 0988 1340 1368 1283 1228 1132 0987 0887 1038 2004 3686 4936 5533 5773 5882 5983 6096 6151 6135 6087 6003 5926 5940 6079 74 20 1097 0989 0851 0731 0639 0612 0597 0607 0631 0599 0580 0728 1105 1412 1415 1323 1265 1166 1018 0922 1075 2044 3723 4968 5561 5799 5907 6008 6122 6176 6164 6112 6028 5952 5965 6102 75 21 1298 1213 1095 0988 0911 0889 0888 0897 0908 0850 0805 0925 1258 1523 1505 1406 1344 1242 1091 0992 1145 2110 3772 5004 5594 5832 5939 6038 6149 6205 6190 6139 6056 5980 5994 6131 76 22 1542 1466 1368 1283 1226 1217 1230 1236 1228 1141 1064 1144 1412 1602 1549 1442 1379 1274 1124 1028 1182 2143 3803 5036 5629 5869 5977 6077 6187 6242 6225 6176 6094 6017 6034 6172 77 23 1822 1777 1711 1655 1614 1633 1668 1679 1642 1518 1397 1416 1585 1677 1580 1461 1394 1288 1141 1051 1206 2157 3811 5047 5646 5889 5997 6100 6209 6262 6249 6205 6120 6047 6059 6196 78 24 2100 2093 2061 2045 2031 2080 2145 2156 2088 1921 1755 1709 1774 1772 1634 1504 1433 1326 1178 1092 1245 2182 3827 5059 5656 5901 6010 6110 6220 6273 6261 6213 6128 6057 6072 6205 79 25 2342 2360 2348 2367 2383 2466 2557 2570 2472 2265 2058 1946 1918 1832 1660 1524 1451 1346 1199 1121 1275 2205 3845 5084 5691 5941 6053 6155 6260 6313 6299 6253 6176 6099 6112 6244 80 26 2591 2646 2664 2720 2769 2880 3006 3018 2880 2631 2375 2192 2058 1882 1677 1533 1461 1354 1213 1141 1297 2238 3914 5186 5810 6062 6178 6280 6385 6436 6424 6381 6300 6231 6245 6371 81 27 2841 2902 2955 3068 3156 3308 3474 3488 3306 3010 2703 2435 2189 1931 1694 1546 1472 1367 1229 1161 1320 2259 3929 5198 5821 6074 6189 6289 6394 6446 6433 6388 6311 6241 6251 6379 82 1 0306 0468 0598 0617 0561 0553 0562 0596 0652 0641 0637 0858 1399 1816 1731 1439 1141 0813 0509 0338 0300 0354 0389 0370 0356 0353 0357 0403 0488 0549 0534 0483 0401 0340 0367 0500 83 2 0339 0543 0704 0755 0715 0727 0755 0803 0857 0836 0818 1021 1517 1870 1753 1451 1149 0818 0513 0342 0305 0357 0391 0370 0355 0351 0357 0401 0486 0547 0534 0482 0400 0340 0367 0496 84 3 0377 0630 0860 0973 0961 1005 1073 1139 1193 1152 1109 1274 1691 1955 1793 1474 1164 0825 0513 0338 0302 0354 0389 0368 0355 0352 0357 0402 0490 0551 0535 0484 0401 0339 0366 0501 85 4 0421 0715 1009 1180 1196 1276 1385 1474 1521 1462 1392 1512 1841 2010 1805 1474 1160 0821 0508 0334 0297 0350 0383 0362 0348 0345 0349 0395 0481 0541 0526 0476 0393 0331 0361 0494 86 5 0476 0830 1196 1439 1495 1611 1774 1896 1937 1858 1760 1831 2065 2130 1871 1517 1186 0835 0515 0338 0299 0349 0380 0361 0347 0344 0348 0393 0479 0539 0524 0474 0393 0333 0360 0490 87 6 0499 0920 1375 1691 1799 1965 2194 2348 2375 2273 2138 2146 2267 2227 1919 1548 1208 0846 0518 0336 0295 0343 0372 0351 0338 0334 0341 0385 0470 0530 0515 0464 0384 0326 0351 0483 88 7 0563 1004 1528 1922 2067 2286 2580 2760 2768 2632 2455 2379 2365 2204 1855 1482 1151 0805 0491 0322 0289 0342 0377 0359 0347 0343 0348 0394 0479 0540 0524 0474 0391 0332 0360 0492 89 8 0588 1091 1682 2151 2348 2625 2987 3209 3187 3013 2789 2627 2479 2211 1823 1447 1122 0781 0472 0309 0280 0334 0368 0350 0336 0334 0340 0383 0469 0529 0513 0464 0382 0322 0351 0485 90 9 0635 1185 1857 2417 2676 3029 3480 3747 3701 3495 3226 2966 2679 2309 1882 1486 1149 0798 0482 0315 0284 0335 0369 0350 0336 0335 0340 0384 0469 0527 0513 0465 0382 0325 0351 0479 91 10 0631 0657 0644 0566 0484 0459 0446 0468 0514 0507 0511 0730 1288 1795 1838 1668 1492 1266 1010 0841 0880 1305 1902 2255 2401 2461 2499 2583 2708 2783 2761 2690 2567 2462 2486 2666 92 11 0756 0793 0808 0754 0687 0664 0668 0692 0739 0718 0707 0913 1437 1886 1892 1706 1520 1287 1025 0856 0894 1315 1909 2260 2409 2468 2505 2588 2712 2790 2766 2694 2572 2465 2491 2671 93 12 0862 0963 1018 0999 0945 0946 0969 1006 1043 1005 0968 1142 1593 1954 1913 1714 1523 1285 1024 0857 0895 1308 1899 2250 2399 2459 2496 2578 2703 2780 2757 2684 2559 2456 2480 2660 94 13 1032 1160 1267 1295 1268 1293 1341 1391 1418 1356 1292 1428 1801 2068 1980 1764 1567 1323 1058 0891 0929 1340 1928 2274 2423 2481 2519 2601 2726 2803 2777 2706 2582 2477 2501 2682 95 14 1185 1382 1551 1633 1633 1685 1778 1839 1852 1761 1662 1739 2003 2152 2005 1773 1570 1325 1060 0895 0932 1337 1919 2267 2416 2474 2512 2593 2717 2791 2768 2695 2573 2467 2490 2671 96 15 1349 1603 1817 1963 1998 2092 2223 2302 2296 2174 2036 2048 2200 2235 2038 1789 1581 1331 1065 0904 0942 1347 1936 2292 2444 2507 2545 2626 2750 2824 2800 2728 2607 2502 2526 2703 97 16 1532 1825 2121 2324 2402 2540 2725 2823 2789 2633 2454 2391 2419 2340 2093 1830 1615 1363 1094 0933 0971 1376 1970 2330 2482 2546 2585 2667 2792 2867 2843 2771 2648 2542 2565 2741 98 17 1697 2053 2410 2686 2810 3009 3249 3369 3306 3109 2882 2728 2615 2413 2116 1843 1624 1372 1106 0950 0988 1387 1977 2336 2492 2556 2595 2678 2801 2877 2853 2780 2657 2550 2574 2753 99 18 1870 2257 2687 3042 3219 3476 3787 3932 3834 3596 3321 3067 2807 2494 2155 1870 1648 1391 1126 0972 1009 1401 1987 2346 2504 2566 2606 2689 2811 2886 2863 2791 2667 2564 2587 2767 100 19 1020 0897 0727 0580 0473 0426 0403 0411 0458 0454 0466 0693 1286 1878 2025 1958 1895 1774 1581 1434 1598 2575 4079 5130 5621 5817 5906 6002 6111 6165 6149 6097 6013 5936 5950 6089 101 20 1218 1115 0967 0823 0721 0678 0656 0668 0710 0689 0681 0891 1435 1951 2053 1976 1908 1785 1594 1452 1615 2582 4091 5153 5654 5858 5950 6044 6153 6205 6189 6140 6057 5981 5996 6127 102 21 1462 1376 1249 1127 1033 1007 1000 1010 1037 0994 0962 1135 1610 2041 2102 2014 1940 1816 1627 1490 1650 2611 4115 5182 5680 5883 5975 6069 6177 6228 6213 6162 6080 6006 6018 6152 103 22 1790 1735 1645 1554 1478 1464 1472 1484 1496 1426 1364 1499 1894 2237 2254 2150 2071 1940 1746 1610 1770 2718 4200 5245 5736 5934 6027 6119 6227 6278 6262 6213 6133 6058 6070 6201 104 23 2090 2051 1994 1942 1886 1896 1927 1942 1932 1835 1737 1818 2114 2347 2310 2189 2106 1973 1782 1652 1807 2735 4202 5245 5740 5941 6033 6126 6230 6282 6266 6218 6139 6065 6080 6209 105 24 2429 2463 2453 2449 2432 2476 2540 2562 2522 2381 2235 2239 2397 2487 2385 2244 2156 2019 1828 1703 1856 2769 4226 5267 5764 5963 6056 6149 6252 6300 6286 6239 6160 6089 6096 6228 106 25 2704 2766 2798 2832 2851 2927 3023 3048 2978 2804 2619 2553 2595 2575 2422 2271 2178 2039 1850 1734 1882 2776 4225 5274 5775 5980 6074 6166 6269 6319 6303 6257 6176 6108 6116 6245 107 26 3007 3119 3180 3257 3314 3430 3558 3591 3484 3264 3031 2880 2787 2645 2438 2276 2183 2047 1866 1756 1911 2823 4313 5389 5906 6115 6215 6308 6410 6457 6442 6396 6320 6252 6261 6388 108 27 3311 3456 3578 3714 3825 3981 4161 4196 4048 3785 3507 3260 3026 2767 2518 2345 2249 2112 1931 1830 1982 2880 4358 5436 5957 6167 6265 6358 6457 6506 6491 6449 6372 6304 6316 6432 109 1 0331 0520 0649 0655 0593 0579 0585 0625 0694 0696 0708 0987 1681 2266 2219 1865 1475 1051 0655 0420 0350 0380 0393 0364 0349 0346 0353 0398 0486 0547 0531 0482 0398 0337 0366 0498 110 2 0352 0585 0763 0817 0769 0774 0802 0857 0928 0921 0919 1185 1827 2334 2243 1875 1481 1052 0653 0419 0349 0379 0390 0363 0348 0345 0351 0397 0484 0546 0530 0481 0396 0335 0363 0499 111 3 0400 0681 0934 1051 1029 1071 1137 1213 1287 1269 1245 1472 2028 2428 2282 1896 1493 1059 0655 0418 0348 0377 0388 0359 0345 0342 0348 0394 0482 0544 0529 0479 0394 0334 0361 0494 112 4 0458 0784 1125 1318 1345 1422 1548 1653 1725 1688 1637 1812 2253 2518 2307 1900 1489 1050 0645 0410 0341 0370 0382 0354 0340 0337 0345 0390 0477 0539 0523 0473 0391 0330 0358 0492 113 5 0521 0907 1321 1591 1654 1782 1962 2104 2169 2114 2036 2159 2487 2628 2359 1934 1514 1068 0659 0422 0351 0380 0391 0364 0350 0347 0355 0401 0488 0549 0535 0484 0400 0339 0370 0499 114 6 0543 1009 1529 1890 2004 2189 2441 2624 2685 2613 2504 2561 2762 2771 2435 1981 1544 1082 0661 0416 0342 0367 0377 0349 0336 0334 0341 0387 0474 0535 0520 0468 0387 0327 0355 0488 115 7 0610 1132 1749 2213 2385 2632 2972 3205 3256 3157 3010 2979 3028 2896 2497 2019 1567 1098 0669 0421 0345 0367 0375 0346 0333 0332 0339 0385 0472 0534 0516 0468 0385 0326 0354 0483 116 8 0660 1229 1945 2504 2734 3060 3488 3770 3807 3680 3490 3364 3252 2976 2517 2021 1564 1090 0660 0413 0338 0360 0368 0341 0329 0327 0334 0381 0466 0529 0513 0463 0380 0321 0353 0482 117 9 0710 1332 2124 2779 3077 3481 4004 4339 4349 4187 3948 3707 3420 3014 2510 2007 1550 1078 0651 0407 0334 0357 0366 0340 0327 0325 0333 0380 0467 0527 0512 0461 0378 0318 0350 0483 118 10 0719 0743 0715 0627 0529 0489 0474 0497 0557 0562 0580 0863 1608 2350 2489 2304 2078 1785 1451 1219 1238 1651 2177 2466 2589 2639 2675 2758 2885 2961 2937 2862 2737 2630 2654 2839 119 11 0833 0906 0907 0856 0758 0734 0731 0761 0825 0817 0821 1092 1791 2447 2535 2329 2091 1790 1451 1218 1233 1630 2136 2412 2528 2577 2609 2691 2818 2894 2871 2798 2670 2563 2591 2773 120 12 0978 1103 1164 1153 1083 1073 1101 1140 1202 1178 1161 1401 2019 2565 2589 2359 2108 1798 1455 1223 1233 1611 2098 2367 2479 2526 2559 2639 2764 2839 2815 2743 2617 2514 2536 2715 121 13 1168 1325 1457 1498 1456 1482 1536 1593 1648 1606 1561 1756 2272 2694 2655 2403 2142 1827 1480 1248 1255 1625 2105 2369 2481 2527 2560 2641 2765 2840 2815 2740 2615 2508 2536 2716 122 14 1354 1586 1778 1887 1883 1940 2043 2121 2165 2098 2021 2159 2552 2826 2710 2435 2163 1841 1493 1265 1269 1629 2107 2371 2486 2535 2568 2647 2769 2843 2818 2746 2623 2520 2542 2723 123 15 1544 1835 2115 2294 2327 2432 2580 2679 2706 2608 2495 2559 2808 2933 2746 2448 2171 1845 1497 1271 1277 1634 2114 2383 2498 2545 2578 2658 2782 2857 2832 2760 2634 2531 2553 2731 124 16 1741 2104 2454 2710 2799 2952 3160 3287 3290 3162 3007 2985 3079 3049 2793 2478 2197 1868 1523 1302 1305 1658 2140 2413 2532 2581 2614 2695 2818 2891 2868 2795 2670 2566 2587 2769 125 17 1974 2384 2808 3144 3282 3495 3764 3921 3893 3729 3530 3410 3340 3159 2838 2508 2221 1893 1547 1330 1335 1689 2181 2465 2588 2639 2675 2754 2877 2951 2926 2853 2727 2623 2649 2826 126 18 2117 2585 3106 3525 3735 4016 4366 4551 4492 4291 4045 3811 3560 3232 2855 2510 2219 1889 1548 1333 1334 1674 2156 2436 2559 2608 2644 2723 2845 2921 2895 2822 2696 2593 2616 2797 127 19 1144 1012 0831 0656 0522 0465 0429 0443 0506 0515 0540 0847 1675 2587 2909 2877 2806 2653 2404 2206 2368 3305 4575 5398 5775 5927 6004 6092 6197 6245 6228 6174 6091 6018 6030 6168 128 20 1409 1273 1116 0951 0824 0768 0734 0753 0814 0812 0820 1116 1896 2721 2990 2942 2865 2710 2465 2272 2432 3357 4624 5455 5838 5992 6067 6154 6258 6307 6289 6241 6155 6080 6093 6226 129 21 1676 1602 1475 1342 1228 1187 1171 1188 1237 1214 1200 1452 2125 2806 2994 2921 2836 2679 2437 2251 2407 3325 4607 5455 5845 6005 6083 6167 6271 6324 6305 6255 6168 6100 6107 6244 130 22 2010 1983 1899 1794 1702 1680 1683 1702 1737 1687 1646 1848 2408 2946 3058 2961 2868 2708 2470 2291 2442 3345 4625 5479 5876 6034 6110 6198 6299 6349 6333 6283 6202 6129 6138 6270 131 23 2411 2425 2387 2337 2271 2272 2300 2329 2346 2271 2199 2347 2787 3179 3219 3101 2997 2831 2594 2422 2564 3430 4682 5529 5926 6085 6165 6248 6350 6397 6381 6330 6247 6182 6190 6317 132 24 2780 2863 2873 2876 2847 2886 2945 2980 2976 2866 2754 2823 3107 3330 3283 3140 3030 2862 2627 2461 2602 3459 4706 5548 5942 6100 6176 6261 6360 6407 6391 6342 6259 6191 6198 6331 133 25 3114 3253 3324 3381 3399 3474 3575 3616 3582 3436 3283 3266 3393 3456 3334 3168 3048 2879 2648 2490 2626 3462 4704 5553 5951 6114 6194 6278 6377 6423 6406 6358 6277 6208 6216 6343 134 26 3521 3698 3822 3936 4002 4124 4265 4318 4250 4071 3874 3764 3727 3629 3431 3244 3120 2949 2718 2567 2702 3542 4796 5654 6058 6222 6301 6386 6483 6529 6511 6464 6383 6315 6324 6453 135 27 3833 4054 4259 4453 4579 4756 4955 5018 4913 4692 4448 4227 4007 3753 3493 3290 3159 2982 2755 2610 2740 3552 4777 5617 6015 6174 6254 6336 6433 6480 6463 6414 6333 6268 6277 6398 136 1 0344 0545 0690 0696 0623 0600 0598 0638 0727 0743 0772 1121 1995 2788 2799 2376 1877 1334 0832 0523 0409 0405 0392 0357 0342 0340 0348 0393 0482 0544 0527 0475 0395 0335 0361 0495 137 2 0379 0623 0820 0875 0815 0810 0834 0893 0984 0995 1015 1352 2175 2880 2836 2395 1888 1341 0835 0524 0409 0404 0390 0355 0339 0338 0346 0391 0479 0542 0525 0475 0393 0332 0359 0496 138 3 0427 0720 0999 1126 1095 1129 1196 1285 1382 1384 1387 1688 2420 3000 2892 2426 1907 1352 0838 0523 0408 0401 0386 0349 0335 0333 0340 0387 0476 0537 0523 0472 0388 0328 0356 0490 139 4 0495 0864 1259 1478 1504 1592 1728 1858 1960 1949 1926 2175 2762 3165 2964 2466 1931 1365 0844 0526 0409 0401 0385 0349 0334 0333 0340 0387 0476 0538 0523 0472 0388 0328 0357 0488 140 5 0546 0986 1473 1792 1866 2010 2215 2389 2495 2471 2422 2609 3052 3286 3001 2475 1928 1356 0834 0516 0400 0393 0378 0343 0330 0330 0336 0383 0470 0530 0515 0466 0384 0325 0353 0486 141 6 0585 1096 1676 2089 2222 2423 2707 2931 3034 2995 2916 3030 3323 3395 3033 2483 1927 1349 0823 0506 0389 0379 0363 0329 0316 0315 0322 0369 0454 0515 0499 0450 0368 0312 0339 0469 142 7 0654 1233 1933 2469 2665 2943 3321 3603 3707 3654 3544 3573 3701 3608 3169 2584 2003 1402 0858 0528 0402 0387 0369 0335 0322 0321 0330 0377 0465 0526 0509 0460 0377 0319 0347 0477 143 8 0726 1347 2149 2794 3055 3415 3898 4244 4338 4263 4115 4041 3978 3709 3191 2583 1993 1388 0842 0513 0390 0375 0356 0321 0309 0308 0316 0363 0450 0511 0495 0445 0364 0306 0334 0466 144 9 0773 1446 2367 3126 3471 3923 4522 4940 5020 4920 4731 4528 4258 3825 3245 2617 2014 1401 0847 0515 0389 0373 0353 0318 0306 0306 0315 0363 0449 0510 0494 0444 0361 0304 0334 0467 145 10 0767 0806 0775 0672 0560 0510 0487 0513 0590 0606 0640 0996 1950 2968 3243 3043 2752 2376 1952 1648 1621 1947 2318 2498 2577 2610 2639 2720 2845 2921 2897 2824 2697 2591 2614 2801 146 11 0895 0983 1009 0938 0835 0798 0790 0826 0908 0919 0943 1294 2199 3113 3313 3082 2772 2381 1953 1647 1610 1911 2254 2420 2490 2522 2552 2631 2755 2829 2804 2731 2608 2503 2524 2708 147 12 1067 1208 1292 1280 1199 1190 1207 1257 1341 1340 1346 1666 2482 3266 3390 3128 2801 2398 1961 1653 1610 1889 2217 2376 2443 2474 2500 2580 2704 2781 2755 2683 2555 2451 2476 2654 148 13 1299 1491 1652 1700 1648 1665 1720 1791 1876 1859 1844 2119 2816 3444 3483 3196 2858 2454 2018 1713 1667 1944 2275 2438 2508 2539 2566 2644 2769 2843 2815 2743 2618 2513 2537 2718 149 14 1506 1801 2047 2166 2152 2211 2313 2412 2490 2457 2415 2634 3190 3634 3575 3254 2906 2491 2051 1747 1697 1961 2285 2445 2515 2546 2573 2651 2774 2847 2820 2746 2623 2518 2542 2721 150 15 1743 2080 2423 2627 2667 2779 2938 3065 3131 3075 3000 3138 3522 3774 3618 3268 2908 2491 2050 1751 1697 1956 2283 2447 2520 2551 2578 2656 2779 2852 2827 2752 2629 2522 2545 2725 151 16 2017 2438 2876 3186 3286 3461 3697 3859 3914 3836 3727 3774 3974 4030 3779 3398 3020 2593 2145 1843 1781 2027 2345 2510 2581 2612 2640 2719 2840 2915 2888 2814 2689 2586 2608 2786 152 17 2227 2746 3278 3683 3851 4086 4394 4597 4631 4528 4379 4321 4323 4186 3848 3442 3057 2623 2174 1872 1808 2047 2361 2525 2596 2628 2656 2736 2858 2931 2905 2831 2702 2598 2623 2799 153 18 2421 2984 3614 4127 4369 4682 5084 5329 5339 5198 5002 4814 4591 4263 3848 3422 3032 2600 2154 1860 1795 2026 2345 2513 2587 2619 2648 2726 2850 2922 2896 2823 2696 2591 2617 2792 154 19 1268 1128 0936 0734 0576 0502 0460 0477 0558 0578 0620 1007 2075 3334 3867 3890 3815 3636 3348 3104 3245 4067 5035 5616 5877 5986 6046 6128 6227 6274 6256 6205 6120 6046 6058 6191 155 20 1536 1454 1275 1092 0936 0864 0827 0845 0929 0941 0972 1353 2372 3526 3992 3992 3907 3726 3439 3201 3335 4135 5095 5676 5940 6049 6109 6189 6287 6334 6317 6268 6183 6111 6123 6247 156 21 1895 1850 1713 1562 1427 1372 1347 1369 1447 1443 1458 1804 2719 3725 4103 4072 3978 3790 3505 3272 3397 4176 5126 5708 5975 6082 6140 6221 6318 6364 6345 6295 6212 6141 6153 6279 157 22 2284 2283 2205 2101 1981 1945 1939 1970 2037 2015 2005 2304 3090 3915 4191 4127 4019 3828 3545 3322 3439 4194 5138 5724 5993 6103 6167 6245 6342 6388 6370 6319 6237 6164 6176 6304 158 23 2745 2811 2796 2743 2664 2654 2677 2716 2772 2731 2696 2929 3555 4165 4319 4217 4094 3896 3617 3404 3507 4229 5161 5748 6020 6131 6191 6272 6368 6411 6392 6342 6260 6194 6203 6329 159 24 3202 3335 3393 3408 3378 3403 3462 3513 3549 3482 3413 3567 4012 4418 4469 4336 4202 4003 3728 3527 3621 4307 5224 5809 6081 6190 6252 6330 6420 6466 6448 6398 6317 6251 6257 6382 160 25 3617 3813 3935 4023 4044 4123 4222 4287 4299 4203 4096 4157 4408 4599 4541 4375 4229 4023 3752 3559 3644 4311 5225 5819 6098 6207 6270 6347 6439 6481 6466 6418 6336 6269 6277 6395 161 26 4033 4321 4529 4689 4770 4888 5045 5127 5116 4994 4853 4813 4867 4850 4693 4495 4335 4127 3856 3669 3745 4388 5285 5869 6145 6256 6318 6395 6486 6528 6509 6458 6380 6314 6321 6446 162 27 4405 4748 5036 5294 5456 5641 5857 5958 5911 5755 5573 5407 5229 5007 4758 4533 4363 4143 3873 3691 3758 4370 5248 5823 6091 6199 6261 6338 6428 6473 6453 6406 6321 6254 6266 6385 163 1 0352 0564 0710 0713 0631 0605 0596 0636 0735 0764 0807 1206 2219 3176 3235 2758 2174 1545 0962 0600 0454 0423 0390 0350 0335 0333 0341 0388 0475 0537 0520 0472 0389 0328 0359 0495 164 2 0399 0642 0861 0906 0842 0834 0850 0913 1021 1046 1083 1477 2437 3297 3295 2796 2200 1560 0972 0605 0455 0423 0390 0348 0333 0332 0340 0386 0473 0535 0520 0470 0386 0328 0356 0491 165 3 0430 0761 1047 1180 1146 1176 1243 1334 1450 1471 1490 1849 2708 3427 3346 2821 2213 1569 0975 0606 0454 0423 0388 0347 0333 0332 0340 0387 0475 0537 0522 0471 0388 0328 0359 0488 166 4 0506 0891 1296 1527 1550 1631 1768 1906 2031 2045 2046 2354 3072 3607 3429 2865 2237 1576 0974 0599 0446 0411 0375 0335 0321 0320 0330 0376 0462 0525 0509 0460 0376 0318 0345 0479 167 5 0564 1055 1578 1938 2014 2168 2391 2589 2724 2730 2706 2948 3494 3812 3520 2917 2269 1595 0982 0604 0447 0410 0376 0335 0322 0320 0330 0377 0465 0526 0510 0461 0378 0318 0347 0482 168 6 0633 1187 1836 2312 2461 2693 3012 3274 3413 3407 3353 3506 3860 3975 3588 2948 2284 1600 0979 0597 0438 0398 0362 0322 0310 0309 0318 0366 0453 0514 0498 0449 0367 0310 0339 0472 169 7 0687 1304 2053 2627 2837 3137 3542 3858 3994 3973 3892 3965 4154 4099 3632 2971 2297 1606 0983 0598 0439 0399 0363 0323 0310 0310 0321 0368 0455 0518 0501 0453 0369 0310 0340 0474 170 8 0759 1431 2320 3031 3323 3711 4247 4641 4786 4757 4644 4611 4591 4333 3768 3063 2358 1644 1000 0603 0438 0392 0353 0313 0300 0301 0310 0359 0445 0507 0491 0442 0359 0303 0332 0459 171 9 0811 1555 2560 3406 3783 4284 4949 5434 5572 5527 5377 5206 4949 4496 3851 3116 2393 1664 1009 0606 0437 0389 0349 0309 0297 0298 0308 0356 0443 0503 0488 0438 0356 0300 0331 0464 172 10 0795 0850 0832 0723 0591 0540 0510 0538 0631 0659 0705 1122 2246 3489 3867 3650 3295 2845 2346 1983 1909 2147 2381 2472 2513 2534 2558 2637 2760 2835 2811 2735 2611 2507 2533 2715 173 11 0958 1061 1088 1015 0898 0857 0843 0885 0983 1008 1045 1455 2517 3634 3927 3678 3307 2846 2345 1983 1904 2125 2348 2437 2477 2498 2523 2601 2725 2798 2774 2703 2576 2472 2495 2677 174 12 1141 1316 1413 1399 1314 1293 1314 1372 1475 1493 1517 1896 2862 3832 4035 3750 3359 2886 2377 2012 1924 2126 2336 2419 2456 2475 2500 2576 2699 2772 2746 2672 2547 2442 2465 2646 175 13 1406 1637 1822 1876 1818 1836 1891 1972 2079 2085 2092 2428 3264 4054 4161 3846 3447 2968 2459 2096 2004 2204 2420 2510 2550 2571 2594 2672 2795 2869 2843 2770 2644 2542 2562 2746 176 14 1646 1953 2225 2359 2344 2399 2502 2616 2721 2717 2704 2989 3685 4280 4277 3923 3506 3019 2506 2147 2046 2228 2434 2520 2560 2580 2604 2680 2800 2873 2845 2776 2651 2548 2569 2743 177 15 1927 2331 2721 2977 3027 3148 3331 3484 3585 3561 3515 3706 4180 4512 4374 3973 3535 3036 2517 2156 2050 2216 2415 2498 2536 2555 2578 2655 2778 2851 2826 2753 2628 2523 2543 2723 178 16 2178 2662 3166 3515 3629 3814 4067 4265 4357 4317 4242 4343 4621 4745 4503 4072 3621 3115 2591 2228 2114 2266 2458 2543 2582 2604 2627 2704 2828 2900 2872 2797 2672 2567 2593 2769 179 17 2471 3067 3669 4138 4330 4590 4930 5174 5261 5206 5105 5103 5168 5072 4724 4254 3780 3254 2717 2348 2219 2345 2519 2591 2628 2646 2670 2746 2869 2941 2913 2839 2714 2610 2637 2812 180 18 2734 3404 4123 4716 4994 5341 5789 6091 6157 6082 5941 5799 5605 5283 4843 4344 3858 3325 2788 2419 2284 2399 2563 2636 2670 2690 2714 2791 2913 2983 2956 2881 2756 2651 2673 2855 181 19 1346 1204 0994 0777 0607 0527 0478 0498 0588 0619 0671 1116 2355 3863 4556 4621 4542 4345 4029 3756 3871 4591 5336 5745 5928 6005 6052 6129 6227 6274 6254 6202 6118 6048 6057 6188 182 20 1688 1559 1384 1180 1012 0930 0886 0907 1007 1030 1076 1519 2709 4106 4723 4760 4671 4470 4156 3890 3996 4682 5407 5805 5985 6058 6108 6184 6279 6325 6305 6252 6171 6101 6107 6238 183 21 2039 2004 1879 1715 1564 1500 1463 1493 1589 1603 1635 2044 3124 4350 4861 4863 4759 4552 4240 3982 4077 4738 5452 5850 6030 6105 6154 6232 6325 6368 6348 6297 6216 6146 6156 6282 184 22 2492 2516 2457 2338 2218 2174 2163 2200 2290 2289 2302 2662 3597 4617 5012 4975 4858 4647 4337 4088 4169 4791 5486 5885 6069 6147 6193 6268 6362 6404 6384 6333 6252 6184 6191 6320 185 23 3011 3111 3106 3055 2968 2954 2971 3019 3104 3091 3083 3389 4164 4960 5225 5141 5004 4782 4475 4234 4298 4873 5542 5932 6112 6186 6234 6308 6398 6440 6422 6370 6292 6222 6231 6353 186 24 3529 3696 3785 3814 3781 3805 3861 3929 3999 3964 3930 4148 4715 5257 5380 5254 5100 4872 4569 4341 4390 4930 5582 5970 6152 6226 6272 6344 6433 6476 6456 6403 6323 6257 6264 6386 187 25 3956 4232 4397 4505 4530 4609 4712 4797 4848 4794 4733 4858 5214 5518 5519 5351 5182 4946 4644 4425 4461 4969 5610 5993 6173 6247 6292 6365 6456 6498 6476 6426 6345 6273 6282 6408 188 26 4446 4794 5059 5258 5349 5484 5643 5749 5784 5707 5615 5631 5757 5807 5685 5479 5295 5055 4755 4544 4571 5048 5673 6053 6232 6306 6354 6425 6514 6552 6533 6485 6406 6339 6348 6471 189 27 4879 5309 5668 5968 6143 6344 6572 6703 6702 6602 6474 6354 6216 6026 5796 5562 5366 5123 4832 4629 4641 5090 5705 6086 6265 6340 6387 6457 6543 6581 6562 6513 6432 6364 6374 6493 190 1 0342 0592 0750 0753 0661 0629 0619 0665 0779 0820 0880 1342 2531 3710 3837 3285 2583 1831 1141 0703 0510 0442 0383 0334 0319 0318 0326 0374 0460 0522 0506 0457 0376 0317 0345 0476 191 2 0412 0686 0916 0973 0900 0885 0904 0973 1099 1142 1198 1659 2796 3861 3915 3338 2621 1858 1159 0716 0518 0446 0386 0336 0322 0321 0330 0376 0464 0527 0510 0460 0378 0319 0346 0478 192 3 0465 0788 1107 1246 1205 1233 1302 1407 1544 1587 1631 2061 3092 4007 3976 3367 2635 1863 1157 0709 0510 0437 0377 0328 0313 0312 0322 0369 0457 0519 0504 0454 0371 0312 0341 0475 193 4 0532 0932 1360 1604 1618 1703 1835 1986 2141 2183 2215 2601 3494 4206 4059 3406 2652 1868 1155 0705 0504 0430 0369 0322 0309 0308 0317 0366 0451 0513 0498 0449 0366 0307 0340 0469 194 5 0613 1119 1695 2086 2181 2343 2581 2810 2983 3022 3030 3346 4029 4472 4182 3480 2699 1897 1172 0714 0509 0431 0370 0323 0309 0309 0319 0367 0453 0515 0500 0449 0368 0312 0341 0470 195 6 0685 1269 1989 2521 2691 2944 3299 3602 3789 3822 3805 4024 4483 4675 4262 3516 2717 1900 1164 0702 0494 0415 0353 0306 0294 0293 0304 0352 0439 0499 0485 0434 0353 0298 0328 0456 196 7 0739 1418 2250 2905 3148 3483 3939 4312 4507 4537 4497 4628 4890 4867 4352 3572 2755 1928 1183 0714 0501 0419 0357 0309 0297 0299 0309 0358 0445 0507 0492 0442 0358 0301 0332 0465 197 8 0815 1528 2503 3291 3607 4027 4612 5069 5267 5291 5225 5247 5284 5041 4427 3613 2779 1938 1184 0710 0494 0410 0347 0300 0288 0289 0301 0350 0438 0499 0483 0434 0352 0292 0324 0457 198 9 0868 1673 2769 3702 4120 4655 5394 5949 6153 6166 6068 5942 5704 5231 4523 3677 2822 1966 1200 0717 0497 0410 0346 0299 0287 0289 0301 0350 0438 0500 0484 0433 0352 0295 0326 0461 199 10 0836 0913 0887 0762 0623 0560 0527 0556 0662 0703 0765 1251 2579 4109 4636 4406 3978 3438 2850 2415 2287 2422 2506 2507 2510 2520 2540 2616 2737 2811 2786 2714 2588 2486 2510 2689 200 11 0996 1133 1163 1082 0948 0899 0882 0925 1042 1082 1141 1625 2895 4292 4722 4449 3997 3442 2846 2412 2271 2386 2458 2454 2455 2464 2483 2559 2681 2754 2727 2654 2530 2428 2454 2629 201 12 1247 1425 1537 1522 1425 1396 1411 1475 1602 1639 1689 2145 3308 4531 4852 4541 4071 3505 2904 2466 2316 2412 2476 2469 2470 2477 2496 2572 2695 2767 2741 2667 2541 2438 2462 2642 202 13 1561 1815 2021 2086 2026 2040 2093 2190 2324 2359 2394 2810 3828 4834 5034 4686 4203 3633 3033 2599 2444 2529 2591 2585 2587 2593 2614 2689 2810 2882 2857 2782 2657 2554 2578 2755 203 14 1806 2154 2466 2626 2601 2657 2766 2897 3040 3072 3096 3467 4336 5119 5182 4780 4272 3685 3077 2639 2471 2535 2584 2575 2577 2582 2600 2677 2796 2868 2840 2766 2643 2540 2562 2739 204 15 2096 2561 3000 3274 3322 3450 3632 3817 3961 3984 3985 4273 4917 5426 5340 4887 4353 3751 3129 2687 2507 2552 2591 2579 2581 2586 2605 2682 2803 2876 2847 2775 2647 2544 2568 2752 205 16 2443 2986 3564 3978 4107 4314 4592 4830 4976 4989 4966 5140 5523 5736 5505 5004 4454 3840 3216 2775 2583 2612 2646 2633 2635 2643 2661 2738 2860 2932 2903 2828 2701 2598 2621 2806 206 17 2738 3372 4066 4599 4806 5093 5470 5761 5906 5911 5862 5927 6069 6026 5676 5136 4566 3943 3316 2874 2673 2680 2705 2691 2694 2699 2718 2795 2915 2985 2959 2883 2758 2652 2676 2857 207 18 2965 3715 4550 5226 5542 5923 6419 6779 6915 6909 6831 6746 6593 6284 5816 5237 4646 4009 3374 2927 2712 2696 2706 2685 2684 2688 2708 2785 2903 2973 2945 2871 2746 2640 2666 2847 208 19 1475 1320 1087 0842 0647 0557 0503 0521 0628 0671 0737 1257 2729 4603 5550 5697 5630 5424 5084 4781 4867 5438 5877 6060 6144 6184 6221 6292 6382 6424 6403 6355 6275 6208 6215 6342 209 20 1805 1705 1510 1280 1096 1003 0949 0974 1088 1129 1193 1714 3136 4885 5738 5849 5766 5554 5212 4918 4988 5517 5933 6112 6192 6230 6264 6332 6422 6465 6444 6392 6313 6246 6254 6380 210 21 2256 2198 2064 1885 1715 1637 1594 1627 1746 1781 1838 2333 3642 5198 5926 5993 5890 5667 5329 5041 5095 5584 5978 6147 6227 6263 6298 6367 6455 6496 6477 6427 6346 6280 6285 6406 211 22 2753 2801 2739 2601 2459 2403 2382 2427 2548 2578 2623 3078 4236 5558 6142 6157 6036 5806 5473 5197 5230 5674 6045 6210 6287 6325 6361 6427 6515 6553 6532 6483 6405 6340 6347 6467 212 23 3296 3445 3465 3412 3311 3288 3298 3357 3481 3503 3536 3931 4902 5945 6357 6309 6158 5913 5578 5309 5317 5700 6038 6191 6267 6302 6335 6401 6491 6527 6504 6454 6377 6314 6322 6443 213 24 3899 4150 4289 4337 4308 4333 4396 4482 4593 4604 4617 4915 5634 6363 6600 6492 6311 6052 5721 5463 5444 5760 6061 6204 6274 6307 6337 6404 6489 6526 6505 6456 6373 6306 6315 6432 214 25 4423 4749 4970 5112 5140 5216 5329 5435 5538 5538 5531 5737 6225 6673 6757 6597 6401 6134 5804 5556 5522 5801 6087 6230 6303 6338 6370 6434 6520 6556 6536 6483 6404 6337 6345 6463 215 26 4913 5351 5698 5940 6047 6186 6360 6493 6584 6574 6546 6641 6866 7016 6952 6745 6528 6252 5924 5686 5632 5870 6133 6268 6341 6376 6406 6470 6553 6590 6568 6519 6443 6375 6382 6500 216 27 5425 5950 6408 6771 6970 7188 7439 7605 7668 7643 7590 7535 7456 7313 7114 6869 6635 6355 6032 5803 5737 5936 6183 6315 6384 6414 6447 6509 6593 6628 6606 6556 6476 6411 6418 6537 217 1 0359 0611 0783 0784 0679 0637 0627 0676 0797 0848 0921 1434 2774 4148 4345 3738 2934 2084 1307 0805 0569 0468 0389 0335 0320 0321 0329 0377 0466 0529 0513 0463 0381 0320 0349 0484 218 2 0419 0709 0962 1020 0939 0919 0940 1012 1150 1207 1279 1798 3085 4334 4445 3803 2980 2114 1326 0817 0576 0471 0390 0336 0323 0322 0331 0379 0468 0532 0516 0466 0383 0322 0352 0488 219 3 0489 0829 1175 1318 1281 1306 1374 1486 1642 1700 1765 2254 3429 4507 4517 3838 2996 2120 1324 0812 0568 0462 0382 0329 0314 0314 0324 0372 0460 0524 0508 0458 0376 0315 0347 0480 220 4 0554 0982 1448 1717 1737 1824 1972 2139 2319 2382 2437 2882 3895 4740 4621 3892 3025 2131 1325 0807 0561 0450 0370 0317 0303 0304 0313 0362 0450 0513 0498 0446 0364 0308 0336 0468 221 5 0633 1150 1770 2178 2270 2437 2686 2929 3132 3200 3243 3624 4438 5002 4727 3944 3052 2142 1327 0805 0555 0443 0364 0313 0300 0301 0313 0360 0447 0510 0494 0444 0363 0306 0336 0468 222 6 0682 1330 2094 2661 2834 3104 3475 3804 4027 4102 4124 4413 4991 5282 4865 4027 3103 2173 1339 0806 0549 0432 0350 0299 0286 0288 0299 0348 0436 0498 0481 0431 0349 0292 0323 0456 223 7 0770 1499 2425 3139 3400 3774 4276 4701 4943 5020 5023 5208 5533 5542 4989 4103 3155 2207 1359 0816 0552 0433 0349 0298 0286 0288 0299 0349 0438 0499 0485 0433 0350 0293 0325 0455 224 8 0836 1635 2677 3535 3894 4358 4998 5518 5773 5851 5829 5899 5977 5737 5068 4144 3176 2214 1358 0810 0543 0423 0339 0289 0277 0280 0291 0341 0429 0491 0475 0425 0342 0286 0318 0451 225 9 0918 1765 2941 3943 4393 4968 5765 6388 6648 6724 6674 6594 6389 5908 5146 4189 3207 2236 1370 0815 0545 0422 0337 0287 0276 0280 0291 0342 0431 0493 0477 0428 0345 0287 0319 0456 226 10 0895 0973 0936 0796 0650 0572 0532 0564 0681 0730 0805 1349 2862 4666 5344 5115 4624 4008 3346 2852 2661 2689 2646 2578 2557 2558 2577 2654 2779 2853 2828 2754 2627 2521 2542 2731 227 11 1069 1201 1250 1164 1024 0965 0940 0989 1125 1177 1251 1802 3251 4886 5434 5141 4609 3964 3286 2785 2579 2576 2520 2449 2428 2428 2444 2521 2645 2718 2692 2618 2492 2387 2410 2598 228 12 1320 1534 1659 1638 1532 1498 1509 1584 1730 1785 1853 2381 3720 5180 5619 5290 4746 4100 3423 2925 2711 2694 2631 2561 2539 2538 2557 2632 2754 2827 2799 2726 2599 2495 2521 2700 229 13 1641 1934 2163 2233 2159 2167 2224 2327 2488 2547 2610 3101 4291 5513 5818 5443 4883 4230 3552 3056 2829 2793 2719 2644 2623 2621 2641 2714 2837 2909 2881 2806 2679 2575 2597 2775 230 14 1922 2304 2639 2814 2785 2842 2952 3101 3274 3335 3393 3841 4870 5843 5994 5562 4973 4303 3618 3120 2880 2816 2732 2655 2633 2632 2649 2724 2846 2918 2889 2815 2688 2584 2608 2787 231 15 2252 2751 3219 3514 3565 3684 3876 4072 4258 4319 4365 4735 5534 6208 6191 5704 5090 4404 3712 3210 2954 2866 2771 2691 2668 2667 2684 2759 2880 2950 2923 2849 2721 2616 2643 2822 232 16 2622 3256 3891 4337 4482 4700 5001 5272 5463 5529 5554 5807 6307 6630 6433 5884 5240 4538 3836 3331 3059 2940 2831 2748 2724 2723 2742 2819 2939 3009 2981 2905 2778 2672 2698 2878 233 17 2970 3707 4494 5087 5328 5639 6054 6395 6592 6655 6660 6784 6981 6978 6623 6024 5359 4646 3943 3441 3154 3015 2896 2811 2788 2786 2802 2878 2999 3069 3043 2965 2838 2730 2756 2938 234 18 3202 4029 4950 5693 6034 6443 6974 7384 7575 7635 7620 7596 7490 7207 6730 6091 5407 4682 3972 3466 3168 3011 2885 2800 2776 2771 2790 2866 2986 3056 3029 2952 2824 2718 2741 2919 235 19 1554 1406 1166 0893 0688 0583 0523 0543 0663 0713 0793 1375 3051 5257 6442 6670 6612 6398 6040 5716 5757 6141 6287 6292 6306 6321 6350 6418 6504 6545 6527 6478 6395 6328 6335 6458 236 20 1927 1847 1633 1388 1180 1077 1015 1043 1174 1227 1307 1897 3518 5575 6650 6835 6760 6539 6187 5871 5895 6233 6355 6355 6367 6379 6408 6473 6559 6598 6580 6531 6451 6385 6393 6512 237 21 2417 2385 2242 2049 1862 1773 1725 1761 1900 1955 2032 2598 4097 5940 6867 6992 6891 6654 6301 5998 5994 6271 6366 6358 6370 6383 6411 6477 6562 6599 6579 6528 6450 6382 6394 6514 238 22 2938 2998 2945 2805 2652 2586 2556 2612 2755 2808 2881 3412 4755 6341 7105 7172 7042 6795 6446 6149 6117 6335 6399 6384 6390 6405 6431 6496 6583 6618 6596 6545 6467 6399 6405 6530 239 23 3540 3695 3733 3674 3569 3533 3537 3610 3763 3817 3885 4366 5523 6802 7367 7355 7188 6919 6565 6279 6212 6351 6377 6350 6355 6366 6393 6457 6542 6577 6552 6500 6423 6353 6368 6484 240 24 4152 4436 4595 4651 4614 4634 4686 4789 4937 4988 5045 5431 6310 7235 7597 7512 7308 7021 6671 6396 6299 6371 6361 6326 6330 6338 6363 6422 6507 6542 6521 6470 6390 6322 6332 6452 241 25 4759 5157 5430 5596 5623 5710 5822 5952 6095 6146 6191 6480 7097 7698 7881 7738 7516 7225 6881 6622 6499 6508 6473 6435 6435 6442 6467 6527 6611 6644 6620 6570 6488 6422 6431 6550 242 26 5329 5848 6247 6518 6642 6791 6971 7137 7277 7327 7364 7535 7864 8125 8133 7932 7685 7385 7045 6797 6648 6600 6537 6492 6492 6498 6522 6583 6665 6698 6675 6624 6544 6481 6487 6600 243 27 5867 6506 7034 7444 7667 7903 8166 8371 8491 8535 8554 8568 8549 8463 8314 8069 7804 7503 7173 6940 6771 6679 6597 6546 6545 6548 6570 6630 6711 6743 6721 6673 6591 6527 6530 6644 244 1 0350 0466 0541 0552 0521 0526 0552 0575 0589 0541 0497 0576 0762 0810 0666 0520 0420 0311 0213 0178 0215 0404 0690 0839 0893 0915 0930 0989 1094 1164 1146 1085 0981 0901 0927 1083 245 2 0371 0520 0620 0653 0633 0657 0694 0723 0731 0665 0601 0656 0809 0828 0670 0520 0419 0308 0210 0178 0215 0401 0678 0820 0871 0891 0907 0966 1071 1141 1122 1061 0958 0877 0905 1065 246 3 0420 0591 0719 0780 0781 0820 0883 0920 0912 0825 0734 0757 0865 0847 0675 0521 0420 0308 0208 0177 0216 0405 0687 0830 0881 0901 0918 0978 1082 1153 1134 1073 0970 0888 0915 1075 247 4 0460 0640 0814 0911 0925 0986 1074 1119 1097 0984 0866 0854 0913 0857 0669 0512 0409 0298 0199 0171 0211 0394 0663 0797 0844 0862 0878 0937 1040 1111 1093 1032 0928 0850 0880 1035 248 5 0489 0714 0931 1063 1103 1195 1309 1366 1325 1181 1025 0970 0972 0869 0667 0507 0404 0292 0195 0169 0210 0389 0650 0780 0825 0843 0858 0916 1018 1087 1070 1010 0910 0829 0857 1014 249 6 0558 0783 1047 1213 1281 1399 1555 1621 1554 1377 1185 1077 1015 0869 0652 0491 0390 0280 0187 0163 0207 0383 0645 0777 0823 0841 0856 0915 1015 1084 1066 1008 0907 0828 0857 1012 250 7 0579 0860 1161 1370 1468 1622 1818 1896 1804 1592 1360 1200 1073 0881 0649 0484 0383 0273 0180 0160 0205 0382 0643 0776 0822 0839 0855 0912 1014 1083 1065 1006 0906 0826 0855 1011 251 8 0643 0939 1277 1541 1664 1855 2094 2184 2064 1813 1538 1321 1126 0889 0643 0478 0377 0267 0176 0159 0205 0383 0643 0774 0819 0838 0853 0911 1013 1082 1064 1004 0905 0825 0851 1008 252 9 0682 1016 1395 1708 1867 2101 2386 2491 2339 2052 1738 1460 1199 0919 0658 0486 0382 0270 0176 0158 0207 0387 0648 0779 0824 0842 0859 0915 1018 1086 1067 1009 0910 0828 0856 1011 253 10 0620 0610 0563 0501 0454 0434 0437 0451 0463 0426 0397 0476 0645 0691 0572 0461 0400 0326 0247 0218 0299 0873 2007 2845 3229 3381 3455 3554 3688 3765 3744 3677 3553 3446 3467 3653 254 11 0707 0686 0655 0615 0563 0560 0574 0582 0587 0531 0480 0539 0681 0705 0574 0461 0399 0323 0244 0214 0298 0877 2013 2850 3233 3383 3457 3556 3691 3770 3748 3678 3558 3447 3469 3651 255 12 0765 0802 0781 0757 0719 0729 0760 0772 0758 0675 0595 0622 0723 0711 0569 0455 0393 0318 0238 0214 0299 0874 2005 2835 3216 3366 3439 3539 3674 3751 3733 3662 3537 3429 3451 3638 256 13 0912 0930 0937 0937 0919 0953 1003 1019 0975 0855 0736 0716 0760 0707 0553 0438 0379 0305 0230 0209 0296 0870 2008 2853 3243 3400 3475 3573 3706 3784 3761 3694 3572 3462 3486 3667 257 14 1007 1042 1079 1093 1094 1148 1219 1236 1172 1020 0868 0808 0805 0717 0550 0433 0374 0299 0224 0206 0295 0867 2001 2845 3239 3396 3471 3567 3696 3772 3752 3685 3564 3461 3481 3657 258 15 1136 1188 1230 1278 1298 1379 1469 1489 1395 1205 1014 0906 0846 0718 0539 0422 0365 0293 0220 0206 0300 0883 2044 2911 3314 3477 3553 3651 3784 3861 3841 3772 3652 3546 3566 3748 259 16 1245 1325 1406 1472 1519 1621 1747 1765 1640 1411 1176 1016 0895 0726 0534 0416 0358 0286 0213 0201 0297 0889 2065 2942 3354 3518 3597 3696 3829 3905 3883 3816 3696 3589 3611 3791 260 17 1366 1465 1566 1668 1746 1878 2039 2062 1898 1625 1344 1125 0938 0726 0522 0404 0348 0278 0207 0199 0298 0891 2064 2937 3346 3511 3590 3690 3825 3902 3881 3814 3690 3585 3604 3786 261 18 1455 1575 1712 1862 1970 2140 2340 2370 2174 1855 1529 1251 1001 0751 0534 0410 0352 0279 0209 0203 0303 0878 2015 2863 3262 3423 3500 3601 3731 3807 3788 3720 3600 3493 3515 3699 262 19 0926 0756 0610 0492 0419 0393 0382 0388 0396 0364 0343 0418 0577 0617 0512 0426 0393 0346 0280 0253 0387 1426 3665 5547 6512 6906 7071 7186 7289 7335 7331 7295 7238 7191 7198 7307 263 20 1046 0875 0728 0612 0551 0525 0522 0522 0523 0469 0424 0482 0614 0635 0519 0432 0401 0352 0284 0259 0397 1450 3700 5589 6553 6950 7121 7232 7332 7377 7375 7341 7283 7233 7244 7352 264 21 1210 1036 0891 0780 0725 0718 0719 0717 0694 0611 0536 0562 0656 0646 0521 0432 0401 0351 0284 0260 0404 1469 3728 5616 6579 6975 7143 7255 7357 7403 7398 7365 7307 7260 7267 7374 265 22 1364 1202 1066 0973 0929 0933 0951 0946 0897 0776 0663 0645 0692 0648 0512 0422 0392 0343 0277 0256 0404 1472 3732 5614 6575 6970 7138 7247 7347 7390 7386 7358 7299 7254 7260 7362 266 23 1565 1419 1280 1201 1172 1199 1237 1225 1140 0975 0816 0745 0730 0642 0493 0404 0376 0329 0266 0252 0400 1461 3728 5633 6612 7014 7186 7298 7397 7441 7436 7404 7352 7308 7314 7420 267 24 1748 1623 1482 1427 1419 1469 1525 1509 1389 1177 0971 0847 0772 0644 0483 0395 0367 0322 0260 0250 0403 1467 3726 5620 6591 6991 7165 7274 7373 7415 7412 7383 7331 7285 7295 7393 268 25 1918 1790 1658 1622 1640 1708 1789 1767 1613 1359 1110 0936 0805 0640 0470 0381 0355 0311 0252 0248 0401 1463 3729 5630 6608 7013 7187 7301 7396 7440 7437 7409 7355 7313 7318 7418 269 26 2072 1953 1829 1821 1850 1948 2054 2027 1836 1542 1250 1024 0842 0643 0463 0374 0350 0306 0248 0248 0405 1467 3732 5632 6611 7015 7188 7298 7396 7437 7436 7409 7359 7318 7328 7423 270 27 2244 2112 2015 2025 2085 2205 2336 2305 2072 1730 1395 1113 0869 0640 0452 0365 0342 0299 0245 0249 0410 1478 3760 5678 6666 7075 7250 7362 7456 7497 7494 7472 7426 7386 7399 7491 271 1 0359 0485 0565 0573 0536 0536 0555 0580 0610 0571 0539 0658 0938 1080 0948 0767 0625 0466 0316 0246 0271 0455 0705 0824 0866 0882 0896 0955 1060 1128 1108 1050 0948 0866 0893 1051 272 2 0403 0559 0660 0691 0664 0673 0708 0741 0763 0712 0661 0760 1007 1114 0964 0779 0635 0472 0318 0249 0275 0459 0710 0829 0869 0886 0900 0960 1063 1134 1116 1055 0952 0870 0901 1056 273 3 0462 0634 0790 0850 0839 0876 0937 0978 0991 0918 0840 0904 1100 1157 0984 0790 0641 0475 0319 0248 0276 0459 0707 0824 0863 0879 0896 0955 1057 1127 1110 1048 0944 0865 0893 1047 274 4 0526 0728 0926 1035 1045 1111 1205 1263 1256 1155 1046 1065 1192 1187 0989 0788 0638 0470 0314 0245 0274 0458 0707 0825 0865 0882 0898 0956 1060 1131 1113 1052 0949 0867 0895 1054 275 5 0555 0804 1043 1205 1238 1337 1460 1532 1508 1377 1235 1210 1270 1207 0986 0779 0626 0457 0304 0238 0267 0445 0686 0799 0837 0853 0868 0925 1028 1096 1078 1019 0919 0838 0864 1021 276 6 0617 0894 1191 1395 1467 1594 1765 1850 1803 1640 1456 1372 1351 1227 0984 0774 0621 0454 0302 0238 0270 0451 0695 0810 0850 0866 0882 0939 1043 1112 1092 1032 0932 0852 0881 1034 277 7 0665 0995 1344 1593 1703 1869 2083 2188 2119 1923 1703 1560 1459 1268 0998 0781 0625 0457 0304 0241 0275 0452 0690 0799 0838 0854 0868 0925 1028 1096 1078 1020 0918 0837 0864 1021 278 8 0717 1092 1482 1791 1929 2146 2410 2531 2433 2198 1931 1723 1533 1280 0991 0771 0617 0449 0297 0240 0275 0453 0694 0807 0846 0861 0877 0934 1036 1105 1088 1026 0925 0847 0871 1028 279 9 0765 1167 1638 2004 2187 2452 2780 2926 2794 2519 2208 1925 1647 1335 1022 0790 0628 0452 0296 0237 0273 0450 0691 0802 0843 0858 0872 0931 1033 1100 1081 1024 0923 0843 0870 1026 280 10 0672 0647 0611 0532 0470 0451 0451 0462 0485 0455 0435 0550 0819 0972 0881 0755 0673 0567 0443 0377 0467 1083 2185 2961 3312 3450 3519 3614 3746 3821 3801 3734 3610 3502 3527 3708 281 11 0745 0770 0730 0670 0617 0610 0616 0628 0643 0597 0554 0652 0893 1018 0914 0783 0699 0590 0463 0397 0488 1097 2177 2931 3271 3405 3472 3571 3702 3777 3756 3685 3561 3455 3475 3664 282 12 0869 0887 0876 0844 0796 0805 0828 0846 0844 0772 0704 0767 0960 1040 0917 0782 0696 0586 0460 0397 0488 1098 2177 2931 3271 3405 3472 3568 3700 3778 3755 3684 3561 3453 3474 3659 283 13 1019 1052 1068 1075 1044 1074 1121 1142 1118 1011 0905 0921 1046 1064 0917 0777 0691 0580 0456 0396 0490 1097 2178 2939 3284 3419 3487 3584 3717 3791 3771 3701 3578 3472 3490 3675 284 14 1160 1212 1263 1290 1289 1336 1411 1435 1390 1249 1108 1079 1137 1098 0927 0781 0691 0580 0454 0397 0493 1095 2167 2919 3261 3398 3466 3560 3692 3767 3744 3675 3552 3447 3467 3648 285 15 1267 1375 1449 1506 1521 1598 1698 1724 1654 1477 1295 1212 1201 1107 0916 0769 0680 0571 0449 0396 0494 1097 2176 2935 3282 3420 3489 3586 3716 3792 3771 3702 3579 3472 3490 3673 286 16 1436 1569 1676 1769 1821 1931 2060 2097 1992 1772 1544 1400 1309 1153 0940 0786 0697 0585 0463 0413 0514 1131 2238 3023 3384 3527 3596 3694 3824 3899 3877 3809 3691 3585 3601 3782 287 17 1586 1721 1866 2006 2091 2231 2410 2449 2307 2044 1771 1560 1384 1167 0933 0777 0689 0577 0457 0411 0512 1118 2201 2966 3318 3461 3531 3628 3758 3833 3814 3746 3622 3518 3537 3717 288 18 1683 1863 2065 2257 2378 2566 2789 2844 2664 2361 2041 1761 1500 1226 0970 0804 0710 0593 0470 0423 0523 1116 2172 2917 3261 3401 3471 3566 3695 3772 3750 3680 3558 3453 3474 3656 289 19 0995 0825 0665 0522 0440 0407 0394 0397 0418 0393 0379 0496 0761 0926 0867 0781 0746 0683 0583 0524 0688 1805 3979 5725 6598 6952 7106 7214 7312 7358 7349 7316 7261 7212 7221 7330 290 20 1187 0994 0832 0705 0624 0593 0579 0585 0597 0549 0514 0612 0858 1000 0931 0842 0806 0740 0637 0576 0746 1876 4046 5782 6649 7005 7159 7264 7362 7403 7397 7364 7309 7261 7271 7374 291 21 1333 1187 1018 0905 0828 0811 0812 0811 0804 0730 0665 0732 0932 1035 0947 0855 0817 0752 0647 0588 0761 1902 4079 5813 6682 7035 7186 7292 7388 7431 7426 7393 7335 7288 7295 7401 292 22 1531 1403 1249 1152 1091 1089 1100 1097 1064 0957 0855 0878 1014 1060 0950 0854 0815 0749 0647 0592 0767 1900 4068 5793 6654 7002 7153 7258 7356 7400 7400 7371 7318 7271 7283 7383 293 23 1777 1667 1533 1446 1407 1426 1459 1452 1384 1233 1087 1051 1110 1089 0953 0851 0813 0749 0647 0599 0776 1909 4086 5826 6697 7052 7206 7310 7408 7450 7444 7412 7357 7313 7320 7424 294 24 2036 1935 1816 1758 1743 1788 1843 1833 1729 1529 1335 1236 1214 1129 0968 0864 0826 0759 0660 0615 0797 1931 4105 5836 6704 7060 7213 7317 7413 7453 7448 7418 7363 7321 7329 7427 295 25 2273 2178 2067 2036 2051 2118 2203 2186 2047 1803 1560 1401 1298 1152 0971 0861 0824 0758 0661 0623 0807 1937 4117 5863 6741 7100 7254 7360 7452 7495 7489 7459 7408 7366 7373 7470 296 26 2440 2366 2285 2272 2312 2404 2512 2496 2321 2037 1754 1538 1365 1168 0971 0860 0822 0757 0662 0630 0813 1933 4104 5848 6725 7087 7243 7346 7440 7478 7475 7448 7395 7354 7365 7457 297 27 2653 2583 2516 2540 2604 2734 2868 2846 2627 2297 1968 1686 1434 1186 0974 0864 0828 0764 0673 0645 0832 1959 4144 5902 6786 7151 7309 7413 7501 7542 7541 7513 7465 7430 7437 7524 298 1 0399 0532 0608 0610 0558 0548 0558 0588 0631 0606 0590 0764 1183 1472 1377 1155 0950 0717 0491 0366 0370 0542 0760 0855 0886 0899 0915 0974 1079 1150 1131 1069 0967 0886 0914 1070 299 2 0444 0597 0714 0750 0708 0713 0744 0780 0821 0782 0749 0903 1281 1519 1397 1166 0956 0719 0491 0367 0371 0539 0753 0845 0876 0889 0903 0962 1066 1136 1117 1058 0955 0874 0903 1061 300 3 0514 0704 0868 0945 0925 0960 1019 1076 1103 1044 0983 1097 1406 1573 1417 1173 0960 0718 0489 0365 0369 0538 0754 0849 0881 0896 0911 0970 1074 1144 1125 1064 0960 0882 0908 1064 301 4 0566 0805 1027 1157 1168 1233 1330 1400 1418 1337 1245 1315 1546 1633 1441 1185 0965 0721 0488 0364 0369 0534 0746 0837 0869 0881 0897 0956 1059 1129 1110 1050 0949 0867 0894 1048 302 5 0618 0898 1182 1353 1398 1496 1630 1717 1721 1614 1490 1512 1659 1664 1435 1171 0950 0705 0476 0355 0361 0522 0730 0820 0851 0864 0880 0937 1040 1108 1090 1030 0928 0847 0875 1036 303 6 0687 1001 1347 1575 1657 1793 1976 2081 2064 1924 1760 1718 1762 1678 1418 1151 0931 0691 0467 0352 0361 0524 0736 0831 0863 0877 0893 0950 1052 1120 1103 1042 0941 0860 0890 1043 304 7 0744 1112 1523 1810 1930 2117 2351 2482 2445 2273 2071 1959 1903 1734 1438 1160 0936 0694 0468 0355 0364 0524 0730 0820 0851 0865 0879 0938 1040 1109 1089 1030 0925 0850 0874 1031 305 8 0811 1207 1679 2038 2199 2430 2727 2884 2816 2604 2356 2167 1999 1744 1418 1136 0914 0674 0452 0343 0354 0514 0719 0808 0839 0853 0867 0926 1029 1098 1079 1018 0914 0835 0865 1022 306 9 0871 1322 1857 2290 2503 2796 3165 3350 3254 3008 2714 2439 2162 1828 1468 1171 0939 0690 0462 0350 0362 0519 0724 0813 0845 0858 0873 0931 1033 1100 1081 1022 0921 0840 0871 1026 307 10 0756 0703 0663 0577 0498 0470 0460 0476 0513 0494 0487 0661 1090 1434 1421 1285 1171 1015 0830 0710 0794 1406 2392 3051 3344 3461 3522 3615 3744 3819 3798 3728 3605 3498 3521 3703 308 11 0842 0847 0822 0749 0685 0666 0666 0687 0717 0680 0652 0803 1180 1461 1417 1272 1157 1002 0819 0705 0789 1396 2380 3043 3339 3456 3517 3610 3738 3814 3793 3723 3599 3492 3512 3696 309 12 0975 1008 1020 0972 0916 0916 0937 0959 0978 0917 0865 0983 1307 1534 1462 1308 1189 1029 0842 0728 0814 1416 2388 3040 3329 3443 3504 3597 3726 3802 3780 3709 3585 3477 3498 3678 310 13 1144 1202 1244 1235 1194 1217 1259 1287 1287 1202 1116 1190 1436 1579 1468 1304 1180 1021 0836 0727 0812 1408 2378 3028 3317 3433 3493 3587 3718 3792 3771 3698 3577 3469 3489 3669 311 14 1321 1421 1494 1527 1515 1563 1634 1671 1652 1535 1411 1435 1597 1656 1508 1332 1203 1039 0853 0745 0830 1421 2391 3046 3340 3456 3518 3610 3739 3812 3789 3718 3598 3492 3512 3694 312 15 1493 1628 1746 1815 1835 1910 2011 2055 2012 1861 1700 1667 1739 1713 1527 1343 1214 1050 0866 0762 0850 1445 2423 3082 3379 3500 3560 3651 3782 3854 3832 3762 3640 3535 3557 3737 313 16 1664 1837 2001 2121 2178 2297 2440 2496 2422 2229 2024 1917 1883 1765 1542 1348 1216 1049 0865 0763 0851 1436 2396 3042 3334 3451 3514 3607 3735 3809 3786 3716 3596 3489 3511 3688 314 17 1805 2047 2266 2451 2546 2705 2904 2977 2864 2630 2376 2191 2045 1839 1580 1377 1238 1069 0883 0785 0869 1437 2375 3009 3297 3414 3475 3569 3696 3769 3746 3676 3553 3449 3469 3650 315 18 1957 2240 2517 2760 2900 3114 3359 3442 3295 3020 2718 2450 2191 1902 1613 1402 1260 1089 0901 0805 0890 1455 2395 3032 3321 3437 3500 3593 3720 3792 3772 3703 3580 3475 3497 3675 316 19 1094 0907 0731 0577 0479 0435 0411 0419 0454 0437 0432 0602 1018 1375 1410 1341 1304 1227 1092 0997 1181 2330 4364 5927 6695 7006 7143 7247 7339 7380 7375 7341 7283 7235 7240 7352 317 20 1281 1114 0933 0789 0688 0652 0633 0638 0665 0628 0606 0760 1149 1469 1487 1412 1375 1296 1158 1064 1251 2402 4429 5984 6750 7060 7196 7296 7388 7428 7421 7384 7331 7284 7294 7395 318 21 1525 1383 1213 1076 0988 0958 0949 0952 0963 0902 0851 0975 1317 1592 1584 1501 1459 1376 1236 1141 1332 2487 4495 6025 6774 7075 7212 7309 7399 7439 7433 7402 7346 7300 7309 7415 319 22 1794 1656 1503 1387 1314 1298 1301 1304 1293 1203 1121 1202 1477 1676 1636 1544 1500 1416 1277 1185 1377 2525 4527 6050 6797 7099 7234 7330 7423 7462 7456 7421 7366 7321 7327 7430 320 23 2038 1947 1821 1724 1667 1672 1695 1694 1656 1532 1411 1439 1622 1732 1650 1549 1504 1419 1284 1201 1391 2529 4536 6073 6829 7137 7271 7368 7458 7496 7489 7459 7404 7363 7370 7465 321 24 2412 2334 2234 2179 2157 2187 2239 2238 2162 1990 1817 1767 1835 1838 1710 1598 1550 1463 1331 1252 1444 2577 4569 6092 6843 7148 7284 7380 7470 7508 7502 7470 7416 7372 7380 7479 322 25 2651 2629 2544 2529 2533 2598 2677 2674 2563 2348 2130 2012 1976 1890 1728 1609 1559 1473 1342 1270 1461 2574 4559 6086 6841 7149 7284 7379 7472 7507 7501 7471 7419 7377 7382 7481 323 26 2921 2890 2839 2853 2894 2991 3096 3091 2944 2688 2425 2238 2103 1934 1737 1611 1560 1473 1343 1278 1468 2580 4567 6102 6860 7168 7305 7402 7490 7526 7522 7492 7439 7400 7408 7503 324 27 3191 3191 3166 3218 3287 3422 3560 3548 3356 3056 2747 2480 2236 1990 1765 1637 1586 1503 1380 1324 1518 2640 4665 6236 7018 7336 7476 7572 7654 7691 7689 7660 7616 7581 7584 7669 325 1 0407 0552 0642 0643 0573 0566 0571 0604 0660 0648 0643 0870 1427 1873 1820 1552 1277 0966 0664 0484 0461 0602 0768 0828 0849 0857 0872 0930 1032 1101 1085 1024 0922 0842 0870 1028 326 2 0472 0647 0786 0813 0767 0769 0795 0841 0895 0871 0851 1061 1574 1958 1870 1589 1308 0990 0681 0499 0475 0619 0787 0850 0870 0881 0895 0954 1056 1127 1106 1046 0943 0865 0892 1049 327 3 0544 0751 0936 1014 0987 1019 1080 1137 1186 1147 1105 1277 1714 2013 1885 1593 1307 0989 0679 0499 0476 0618 0788 0854 0876 0887 0900 0959 1063 1132 1112 1052 0951 0872 0902 1055 328 4 0616 0870 1126 1259 1265 1330 1425 1505 1545 1487 1417 1543 1889 2084 1906 1600 1310 0988 0679 0500 0479 0620 0789 0854 0877 0887 0901 0961 1063 1131 1114 1055 0952 0869 0902 1057 329 5 0687 1009 1334 1534 1579 1683 1830 1939 1974 1893 1793 1872 2124 2218 1986 1656 1350 1014 0695 0513 0485 0615 0773 0831 0851 0861 0874 0931 1034 1101 1081 1021 0922 0841 0873 1028 330 6 0754 1125 1524 1787 1870 2021 2226 2353 2373 2259 2120 2126 2248 2222 1945 1611 1311 0985 0676 0501 0479 0613 0774 0834 0855 0864 0878 0936 1037 1105 1088 1026 0925 0847 0878 1028 331 7 0835 1248 1706 2058 2186 2387 2651 2813 2805 2659 2476 2396 2383 2234 1909 1567 1268 0948 0646 0478 0463 0600 0768 0833 0855 0865 0878 0937 1039 1106 1089 1027 0926 0847 0877 1030 332 8 0886 1374 1905 2332 2512 2773 3108 3301 3270 3090 2863 2699 2558 2303 1935 1579 1277 0952 0648 0482 0465 0600 0765 0830 0853 0863 0878 0936 1038 1106 1088 1027 0925 0847 0874 1027 333 9 0940 1465 2083 2577 2817 3139 3556 3781 3720 3503 3230 2967 2685 2329 1925 1562 1259 0935 0632 0469 0453 0589 0755 0819 0842 0852 0867 0924 1026 1094 1077 1015 0915 0834 0864 1017 334 10 0809 0791 0732 0632 0538 0498 0484 0502 0553 0546 0550 0786 1390 1953 2034 1891 1739 1530 1276 1099 1171 1758 2604 3136 3370 3464 3514 3607 3735 3809 3785 3714 3593 3486 3504 3688 335 11 0960 0963 0933 0855 0764 0739 0732 0757 0805 0783 0772 0993 1554 2052 2099 1942 1784 1572 1316 1140 1208 1785 2625 3153 3385 3478 3530 3620 3749 3822 3800 3727 3605 3496 3520 3698 336 12 1103 1153 1151 1103 1031 1022 1036 1066 1103 1059 1024 1202 1673 2062 2052 1883 1729 1522 1275 1110 1182 1759 2604 3141 3378 3472 3528 3618 3744 3816 3795 3725 3599 3495 3513 3693 337 13 1294 1391 1437 1427 1385 1401 1438 1473 1499 1429 1362 1494 1871 2158 2099 1918 1756 1545 1297 1135 1206 1772 2618 3159 3398 3494 3547 3636 3765 3838 3817 3747 3622 3514 3537 3719 338 14 1508 1637 1739 1787 1767 1812 1881 1930 1939 1843 1741 1822 2103 2279 2164 1962 1790 1571 1321 1159 1226 1779 2611 3142 3377 3471 3525 3612 3740 3812 3788 3718 3597 3491 3511 3690 339 15 1697 1886 2043 2139 2155 2238 2351 2413 2396 2266 2127 2137 2295 2349 2180 1963 1788 1570 1321 1164 1231 1785 2624 3167 3412 3510 3563 3652 3779 3850 3827 3757 3636 3530 3553 3728 340 16 1898 2141 2358 2517 2583 2707 2868 2950 2907 2743 2561 2492 2523 2456 2231 1995 1809 1582 1329 1172 1239 1785 2610 3141 3378 3473 3527 3617 3744 3815 3792 3721 3598 3491 3514 3692 341 17 2101 2407 2682 2902 3019 3190 3398 3497 3423 3221 2995 2843 2737 2552 2279 2033 1844 1616 1365 1214 1277 1807 2621 3148 3386 3482 3538 3627 3751 3825 3800 3730 3608 3500 3521 3697 342 18 2308 2632 2984 3288 3454 3683 3957 4073 3965 3722 3447 3197 2945 2646 2328 2069 1873 1641 1387 1238 1299 1819 2625 3148 3385 3481 3535 3624 3753 3825 3802 3731 3608 3500 3522 3701 343 19 1198 1020 0815 0637 0516 0464 0431 0441 0489 0485 0495 0731 1340 1947 2115 2075 2042 1952 1781 1647 1853 3011 4848 6192 6842 7104 7225 7318 7407 7446 7435 7402 7345 7304 7309 7412 344 20 1412 1267 1069 0901 0779 0731 0700 0710 0751 0729 0721 0942 1509 2053 2185 2134 2098 2004 1832 1701 1905 3054 4885 6222 6868 7128 7247 7337 7427 7463 7456 7423 7367 7321 7329 7430 345 21 1710 1583 1395 1251 1143 1100 1088 1096 1121 1075 1040 1221 1713 2165 2246 2181 2141 2045 1874 1747 1952 3102 4930 6261 6904 7163 7278 7369 7458 7492 7484 7450 7395 7351 7360 7456 346 22 2036 1948 1798 1673 1583 1557 1557 1559 1571 1499 1434 1573 1988 2357 2400 2323 2277 2177 2004 1881 2084 3210 4999 6300 6928 7182 7298 7387 7470 7507 7501 7465 7410 7366 7375 7468 347 23 2405 2324 2204 2098 2032 2029 2042 2049 2037 1933 1834 1920 2235 2492 2479 2386 2336 2233 2065 1948 2147 3261 5050 6358 6991 7249 7367 7455 7538 7571 7562 7530 7479 7437 7444 7540 348 24 2758 2713 2627 2574 2543 2565 2610 2614 2570 2427 2285 2295 2475 2592 2515 2406 2348 2243 2077 1967 2164 3266 5047 6347 6979 7231 7348 7436 7519 7551 7543 7513 7460 7420 7427 7522 349 25 3121 3120 3080 3072 3077 3138 3216 3225 3141 2954 2762 2686 2719 2701 2565 2439 2379 2274 2114 2012 2203 3282 5054 6363 7001 7263 7378 7465 7547 7579 7571 7543 7493 7450 7456 7546 350 26 3430 3461 3455 3487 3531 3629 3735 3747 3630 3407 3175 3025 2937 2805 2620 2482 2417 2311 2150 2054 2246 3316 5079 6386 7028 7286 7402 7491 7574 7607 7599 7569 7521 7479 7486 7571 351 27 3738 3828 3864 3942 4036 4175 4320 4327 4169 3900 3623 3375 3145 2900 2671 2524 2457 2352 2197 2110 2302 3370 5140 6454 7092 7350 7467 7556 7635 7664 7660 7631 7583 7546 7555 7636 352 1 0427 0584 0675 0666 0592 0576 0575 0611 0681 0682 0695 0983 1695 2311 2307 1992 1639 1240 0855 0615 0561 0672 0792 0826 0838 0844 0857 0915 1015 1084 1066 1005 0908 0828 0853 1011 353 2 0493 0696 0845 0872 0813 0815 0833 0883 0954 0947 0945 1212 1866 2404 2353 2025 1667 1266 0877 0636 0583 0694 0819 0859 0870 0877 0892 0951 1052 1121 1103 1043 0943 0864 0892 1047 354 3 0586 0821 1019 1105 1077 1104 1161 1230 1302 1279 1258 1491 2066 2502 2400 2054 1688 1280 0888 0646 0591 0702 0823 0858 0869 0876 0889 0947 1050 1119 1100 1040 0939 0859 0889 1047 355 4 0668 0962 1262 1413 1417 1490 1598 1693 1760 1722 1672 1853 2313 2614 2444 2075 1702 1289 0892 0650 0594 0702 0822 0859 0871 0879 0892 0952 1053 1120 1102 1042 0938 0863 0891 1043 356 5 0725 1104 1473 1696 1741 1856 2015 2140 2202 2147 2071 2199 2549 2727 2496 2103 1716 1293 0892 0650 0591 0691 0805 0841 0852 0860 0872 0929 1031 1098 1080 1020 0920 0842 0869 1021 357 6 0850 1268 1720 2046 2145 2308 2531 2698 2756 2678 2569 2632 2852 2895 2598 2180 1776 1340 0928 0678 0615 0711 0822 0856 0867 0876 0889 0947 1047 1115 1096 1035 0935 0858 0885 1042 358 7 0951 1426 1975 2388 2541 2762 3067 3278 3319 3216 3068 3047 3112 3007 2644 2204 1791 1348 0932 0681 0616 0710 0819 0849 0859 0866 0879 0937 1040 1108 1088 1028 0927 0849 0877 1035 359 8 0997 1534 2170 2673 2878 3168 3554 3799 3816 3680 3487 3363 3261 3011 2591 2143 1734 1300 0892 0650 0591 0687 0798 0831 0844 0853 0865 0923 1025 1093 1072 1013 0912 0833 0862 1017 360 9 1067 1660 2373 2967 3241 3604 4080 4373 4366 4193 3954 3715 3439 3057 2589 2131 1721 1287 0883 0644 0586 0682 0795 0829 0842 0849 0862 0921 1023 1090 1071 1012 0911 0830 0860 1015 361 10 0841 0854 0791 0680 0561 0519 0497 0519 0582 0587 0604 0901 1672 2454 2638 2492 2307 2049 1734 1507 1558 2100 2814 3236 3421 3494 3539 3626 3755 3826 3804 3732 3610 3502 3526 3705 362 11 1035 1041 1007 0920 0813 0776 0767 0794 0858 0851 0855 1134 1852 2549 2687 2524 2331 2068 1755 1530 1578 2108 2817 3243 3428 3501 3549 3635 3761 3831 3807 3735 3615 3511 3533 3707 363 12 1220 1279 1291 1239 1155 1139 1148 1184 1240 1214 1197 1440 2076 2664 2743 2563 2363 2098 1781 1560 1606 2131 2833 3255 3440 3513 3559 3646 3770 3842 3818 3745 3623 3517 3541 3720 364 13 1447 1566 1623 1623 1570 1571 1611 1659 1707 1658 1615 1815 2345 2804 2813 2609 2400 2128 1813 1593 1635 2148 2847 3265 3451 3527 3572 3659 3786 3856 3831 3762 3640 3533 3555 3730 365 14 1679 1851 1986 2041 2017 2056 2130 2195 2230 2160 2084 2227 2637 2944 2871 2641 2418 2141 1820 1603 1642 2140 2821 3232 3413 3486 3531 3617 3739 3811 3786 3715 3592 3490 3509 3688 366 15 1916 2157 2351 2472 2488 2572 2691 2772 2788 2691 2576 2643 2903 3053 2905 2655 2427 2147 1827 1615 1654 2151 2836 3252 3437 3511 3558 3646 3770 3841 3817 3747 3621 3514 3536 3717 367 16 2186 2470 2744 2935 3002 3131 3302 3403 3396 3267 3113 3096 3203 3200 2982 2709 2475 2191 1871 1661 1697 2183 2860 3270 3453 3527 3571 3659 3785 3854 3830 3758 3635 3531 3550 3734 368 17 2440 2812 3154 3433 3552 3741 3975 4101 4068 3904 3709 3596 3536 3380 3096 2803 2560 2269 1948 1738 1769 2239 2919 3338 3526 3604 3651 3735 3859 3927 3902 3834 3711 3605 3626 3802 369 18 2680 3086 3509 3864 4051 4305 4599 4752 4682 4484 4241 4015 3780 3479 3138 2832 2583 2290 1972 1768 1795 2259 2933 3354 3543 3622 3668 3753 3877 3946 3922 3850 3727 3625 3646 3818 370 19 1315 1131 0915 0714 0568 0497 0458 0471 0538 0544 0571 0887 1732 2670 3033 3044 3021 2916 2707 2531 2745 3861 5415 6476 6979 7181 7279 7362 7446 7478 7471 7437 7381 7335 7345 7446 371 20 1574 1433 1220 1035 0889 0826 0788 0801 0861 0856 0865 1160 1932 2753 3041 3029 2997 2891 2687 2520 2729 3837 5409 6489 7000 7203 7302 7385 7466 7499 7490 7456 7401 7358 7363 7455 372 21 1892 1768 1587 1419 1292 1244 1216 1225 1275 1245 1230 1480 2150 2831 3042 3008 2969 2861 2661 2504 2707 3801 5385 6486 7010 7222 7320 7401 7483 7516 7507 7475 7419 7376 7379 7480 373 22 2286 2191 2040 1908 1801 1763 1751 1762 1794 1740 1696 1897 2458 3001 3135 3079 3031 2918 2722 2571 2773 3857 5440 6537 7057 7264 7361 7444 7525 7556 7547 7513 7460 7417 7427 7518 374 23 2734 2692 2577 2476 2394 2383 2391 2405 2418 2338 2263 2411 2861 3274 3346 3270 3215 3100 2903 2759 2956 4005 5542 6612 7121 7328 7426 7504 7584 7613 7604 7571 7523 7486 7492 7572 375 24 3156 3159 3092 3035 2994 3011 3047 3063 3054 2941 2830 2904 3203 3457 3448 3347 3283 3165 2970 2832 3022 4051 5574 6639 7147 7353 7450 7529 7608 7637 7627 7596 7547 7508 7519 7603 376 25 3569 3640 3626 3630 3637 3696 3769 3790 3745 3592 3436 3415 3538 3611 3516 3393 3322 3201 3013 2887 3070 4069 5576 6642 7154 7361 7459 7541 7616 7644 7635 7604 7555 7516 7521 7605 377 26 3937 4040 4084 4140 4191 4286 4395 4422 4346 4160 3965 3858 3828 3750 3588 3445 3366 3243 3056 2936 3115 4104 5610 6675 7187 7393 7488 7568 7644 7673 7666 7633 7585 7547 7553 7635 378 27 4323 4481 4567 4688 4794 4938 5086 5117 4997 4774 4535 4322 4114 3887 3664 3508 3428 3307 3128 3019 3196 4171 5676 6748 7262 7473 7572 7648 7719 7744 7738 7712 7667 7632 7633 7714 379 1 0448 0611 0713 0697 0612 0585 0580 0616 0702 0719 0747 1100 1995 2840 2918 2549 2100 1597 1111 0799 0700 0763 0827 0833 0834 0839 0850 0908 1009 1076 1058 0998 0898 0821 0852 1006 380 2 0533 0759 0905 0927 0861 0850 0868 0923 1015 1026 1046 1390 2237 2993 3014 2626 2167 1655 1163 0845 0744 0809 0877 0884 0886 0891 0904 0962 1065 1134 1115 1055 0952 0874 0905 1057 381 3 0621 0878 1109 1203 1163 1188 1243 1325 1417 1419 1421 1728 2477 3109 3065 2654 2183 1665 1167 0847 0741 0799 0862 0867 0868 0873 0885 0943 1047 1115 1097 1036 0933 0857 0884 1040 382 4 0743 1058 1388 1559 1564 1628 1742 1855 1952 1943 1922 2178 2797 3263 3128 2684 2201 1675 1172 0852 0745 0801 0863 0869 0871 0876 0889 0947 1048 1116 1097 1034 0935 0856 0885 1039 383 5 0827 1234 1658 1934 1984 2109 2288 2446 2544 2520 2470 2665 3137 3421 3191 2715 2215 1677 1168 0848 0738 0787 0845 0850 0852 0856 0868 0927 1028 1096 1077 1016 0918 0839 0867 1020 384 6 0937 1393 1910 2270 2374 2552 2803 3000 3095 3052 2975 3096 3415 3540 3236 2739 2229 1688 1178 0856 0747 0794 0855 0862 0866 0870 0884 0943 1043 1110 1091 1032 0930 0853 0883 1036 385 7 1028 1566 2198 2667 2833 3087 3424 3677 3768 3709 3601 3636 3787 3737 3347 2816 2288 1730 1205 0877 0762 0801 0851 0852 0853 0857 0870 0928 1028 1096 1078 1017 0916 0838 0868 1020 386 8 1143 1741 2478 3060 3301 3627 4064 4375 4456 4375 4230 4163 4121 3890 3419 2858 2314 1744 1212 0880 0762 0797 0849 0851 0854 0861 0872 0931 1033 1099 1080 1019 0918 0840 0871 1025 387 9 1217 1887 2732 3433 3756 4174 4729 5105 5170 5063 4875 4677 4420 4014 3474 2889 2332 1751 1211 0874 0752 0784 0828 0827 0829 0834 0847 0906 1008 1076 1056 0995 0893 0815 0849 1001 388 10 0936 0931 0841 0708 0581 0522 0490 0515 0596 0612 0647 1015 2003 3092 3446 3315 3089 2771 2385 2098 2110 2571 3113 3409 3540 3593 3631 3716 3842 3913 3887 3814 3693 3590 3605 3789 389 11 1143 1169 1122 1022 0897 0850 0832 0863 0947 0957 0981 1339 2275 3262 3551 3394 3152 2826 2436 2148 2152 2587 3108 3393 3518 3573 3611 3694 3817 3887 3863 3790 3667 3562 3584 3763 390 12 1375 1443 1460 1400 1303 1274 1280 1322 1403 1400 1407 1733 2576 3424 3628 3441 3185 2849 2456 2168 2166 2585 3095 3376 3500 3553 3590 3673 3799 3869 3843 3772 3650 3541 3563 3741 391 13 1616 1778 1862 1861 1792 1796 1830 1890 1967 1948 1933 2214 2931 3611 3720 3501 3230 2885 2489 2204 2196 2600 3102 3382 3507 3559 3598 3679 3803 3872 3849 3776 3652 3547 3570 3745 392 14 1900 2126 2295 2359 2326 2363 2438 2521 2592 2558 2517 2742 3320 3815 3820 3565 3279 2926 2528 2246 2232 2615 3103 3376 3499 3549 3587 3670 3791 3859 3834 3765 3640 3538 3559 3733 393 15 2194 2466 2724 2863 2885 2969 3098 3205 3263 3202 3130 3276 3683 3984 3891 3604 3308 2948 2549 2270 2250 2621 3108 3385 3510 3562 3600 3682 3805 3873 3848 3775 3651 3548 3570 3749 394 16 2478 2849 3180 3410 3486 3620 3806 3938 3980 3897 3788 3846 4067 4169 3978 3664 3358 2994 2596 2319 2296 2663 3154 3435 3561 3615 3652 3736 3859 3928 3903 3829 3707 3601 3623 3798 395 17 2783 3223 3661 3981 4131 4328 4589 4755 4771 4659 4511 4457 4469 4368 4087 3746 3430 3063 2666 2394 2364 2712 3188 3462 3588 3639 3678 3761 3884 3950 3926 3853 3730 3625 3644 3825 396 18 3039 3560 4072 4499 4718 4993 5334 5534 5521 5376 5183 5001 4792 4499 4137 3774 3451 3079 2679 2411 2377 2712 3190 3470 3598 3653 3691 3773 3896 3964 3938 3866 3743 3639 3658 3837 397 19 1447 1249 1007 0772 0603 0522 0475 0491 0573 0596 0639 1040 2141 3459 4064 4152 4144 4034 3801 3594 3794 4786 5987 6744 7097 7240 7315 7389 7468 7498 7487 7452 7401 7355 7359 7456 398 20 1789 1610 1378 1163 0998 0916 0868 0886 0968 0980 1011 1399 2434 3623 4146 4208 4190 4078 3850 3654 3846 4814 6019 6786 7144 7288 7364 7439 7513 7542 7532 7500 7444 7402 7410 7503 399 21 2161 2066 1868 1676 1525 1456 1420 1436 1512 1507 1521 1873 2807 3854 4291 4327 4301 4185 3960 3772 3956 4893 6076 6838 7196 7340 7417 7489 7564 7593 7582 7548 7495 7456 7458 7551 400 22 2604 2554 2405 2248 2127 2072 2051 2071 2134 2112 2101 2400 3194 4043 4363 4357 4317 4195 3973 3795 3969 4888 6077 6852 7217 7366 7441 7512 7588 7613 7607 7570 7520 7479 7487 7574 401 23 3086 3093 3000 2885 2794 2767 2766 2789 2841 2797 2757 2995 3634 4279 4480 4439 4384 4259 4042 3876 4042 4934 6121 6900 7268 7418 7495 7565 7640 7666 7653 7620 7573 7531 7538 7626 402 24 3602 3677 3643 3596 3548 3556 3586 3615 3648 3578 3508 3666 4126 4568 4672 4599 4533 4403 4191 4036 4188 5036 6185 6951 7312 7461 7536 7607 7680 7705 7694 7660 7614 7579 7578 7664 403 25 4095 4223 4257 4273 4278 4332 4399 4437 4439 4343 4239 4301 4565 4791 4786 4681 4604 4470 4263 4120 4261 5071 6204 6970 7336 7483 7560 7630 7698 7722 7713 7680 7633 7596 7603 7681 404 26 4539 4748 4849 4939 4993 5095 5204 5253 5227 5100 4963 4924 4985 4999 4890 4754 4666 4527 4324 4189 4321 5110 6237 7003 7370 7520 7595 7663 7733 7757 7744 7713 7665 7629 7637 7716 405 27 4999 5288 5455 5622 5748 5906 6061 6121 6057 5896 5720 5559 5398 5208 5015 4856 4762 4626 4430 4307 4435 5207 6332 7100 7470 7620 7697 7764 7831 7851 7841 7812 7766 7734 7733 7814 406 1 0467 0638 0751 0730 0631 0599 0586 0626 0725 0753 0798 1207 2256 3298 3443 3030 2495 1898 1326 0953 0812 0833 0850 0830 0823 0826 0837 0896 0996 1065 1046 0986 0887 0809 0842 0994 407 2 0573 0793 0961 0979 0898 0884 0895 0955 1061 1088 1126 1529 2525 3460 3538 3102 2557 1954 1376 0997 0854 0872 0892 0873 0866 0869 0881 0940 1042 1111 1092 1030 0930 0853 0881 1039 408 3 0650 0923 1170 1257 1211 1225 1278 1364 1477 1498 1519 1888 2785 3585 3592 3129 2575 1966 1386 1007 0863 0882 0902 0886 0880 0884 0896 0955 1057 1125 1108 1045 0946 0869 0899 1051 409 4 0743 1105 1447 1629 1628 1693 1803 1928 2047 2061 2063 2386 3145 3759 3663 3163 2591 1973 1386 1006 0860 0873 0890 0872 0867 0869 0880 0940 1041 1108 1089 1029 0928 0853 0882 1036 410 5 0863 1316 1777 2076 2130 2256 2447 2625 2754 2754 2733 2990 3577 3968 3749 3207 2611 1978 1382 0999 0847 0853 0867 0848 0843 0846 0858 0916 1017 1084 1065 1004 0904 0828 0860 1010 411 6 1014 1513 2097 2499 2624 2819 3100 3328 3458 3448 3398 3569 3971 4156 3838 3262 2653 2009 1408 1020 0864 0866 0879 0861 0857 0859 0873 0931 1032 1100 1079 1019 0919 0843 0869 1030 412 7 1109 1691 2378 2892 3079 3349 3720 4007 4133 4108 4029 4109 4321 4312 3903 3298 2675 2024 1417 1029 0871 0868 0879 0860 0856 0859 0871 0930 1030 1096 1077 1017 0917 0839 0871 1019 413 8 1220 1900 2720 3361 3630 3992 4478 4837 4963 4931 4824 4798 4801 4586 4077 3429 2777 2103 1473 1070 0901 0888 0890 0868 0863 0867 0879 0938 1038 1106 1088 1026 0926 0847 0877 1034 414 9 1308 2047 2988 3776 4135 4592 5210 5658 5775 5728 5580 5416 5172 4749 4154 3473 2800 2110 1469 1061 0888 0867 0865 0841 0834 0839 0852 0911 1011 1079 1059 1000 0898 0823 0854 1003 415 10 1009 1000 0909 0760 0614 0547 0510 0536 0628 0657 0707 1139 2313 3665 4167 4054 3792 3422 2978 2639 2614 2986 3368 3551 3631 3668 3701 3785 3905 3973 3949 3878 3757 3652 3674 3851 416 11 1245 1257 1222 1099 0962 0902 0881 0915 1012 1035 1076 1501 2614 3840 4259 4112 3835 3458 3013 2678 2643 2992 3361 3540 3620 3655 3686 3768 3890 3958 3935 3864 3742 3636 3660 3834 417 12 1482 1562 1596 1527 1417 1381 1383 1430 1531 1546 1572 1963 2968 4027 4339 4149 3849 3454 3001 2663 2614 2936 3283 3454 3530 3564 3596 3677 3801 3870 3844 3771 3647 3541 3562 3738 418 13 1739 1930 2034 2031 1957 1949 1986 2056 2158 2161 2169 2516 3383 4243 4438 4206 3885 3478 3020 2684 2626 2920 3254 3416 3489 3521 3555 3637 3759 3828 3802 3729 3602 3498 3518 3697 419 14 2103 2332 2527 2610 2573 2608 2689 2783 2881 2876 2862 3153 3865 4512 4585 4310 3971 3557 3097 2764 2698 2976 3305 3471 3547 3579 3611 3694 3814 3880 3856 3782 3661 3557 3576 3755 420 15 2406 2759 3037 3211 3232 3323 3458 3583 3674 3650 3611 3819 4339 4761 4717 4406 4054 3634 3175 2845 2775 3036 3359 3529 3607 3642 3673 3753 3873 3941 3915 3842 3721 3616 3638 3809 421 16 2743 3168 3560 3824 3912 4065 4260 4418 4496 4453 4381 4493 4800 4985 4821 4474 4109 3682 3219 2891 2813 3065 3387 3553 3630 3664 3696 3778 3898 3966 3940 3867 3744 3638 3655 3836 422 17 3073 3597 4107 4486 4638 4864 5144 5347 5413 5351 5251 5255 5340 5293 5019 4632 4246 3805 3336 3008 2916 3139 3433 3587 3659 3691 3723 3804 3924 3989 3964 3890 3767 3663 3679 3858 423 18 3389 3985 4595 5102 5343 5648 6022 6272 6315 6230 6091 5952 5776 5497 5125 4709 4310 3865 3397 3072 2972 3180 3476 3637 3714 3748 3779 3859 3978 4044 4016 3944 3823 3719 3742 3919 424 19 1548 1360 1096 0836 0655 0559 0502 0518 0616 0646 0704 1169 2468 4076 4879 5034 5043 4934 4688 4465 4647 5515 6434 6963 7208 7308 7367 7434 7508 7537 7526 7489 7437 7395 7399 7491 425 20 1950 1760 1523 1278 1090 0999 0944 0961 1061 1088 1138 1603 2856 4367 5102 5234 5235 5123 4882 4669 4837 5663 6537 7044 7277 7372 7428 7495 7565 7592 7582 7548 7497 7457 7462 7547 426 21 2363 2250 2057 1847 1682 1596 1552 1573 1669 1685 1718 2144 3271 4588 5202 5291 5274 5155 4918 4713 4872 5667 6540 7054 7291 7391 7449 7512 7585 7610 7598 7565 7514 7472 7478 7561 427 22 2899 2843 2708 2539 2396 2335 2301 2325 2418 2419 2437 2817 3804 4919 5413 5464 5431 5306 5074 4880 5023 5773 6615 7120 7354 7452 7512 7577 7646 7670 7658 7623 7575 7538 7543 7623 428 23 3406 3460 3370 3253 3148 3110 3101 3136 3217 3206 3200 3520 4333 5202 5548 5550 5501 5370 5146 4970 5097 5808 6646 7160 7402 7507 7563 7627 7695 7718 7705 7671 7621 7586 7593 7670 429 24 3980 4082 4074 4034 3974 3977 4002 4041 4107 4073 4041 4269 4865 5469 5672 5626 5562 5426 5209 5042 5157 5835 6668 7187 7433 7534 7592 7653 7720 7743 7727 7693 7647 7611 7614 7705 430 25 4504 4719 4776 4811 4821 4869 4934 4993 5034 4979 4918 5049 5420 5768 5840 5753 5672 5530 5318 5164 5263 5895 6707 7227 7474 7576 7637 7700 7766 7783 7770 7738 7692 7655 7660 7738 431 26 5045 5319 5470 5593 5661 5759 5875 5947 5964 5886 5799 5823 5962 6056 6000 5874 5775 5627 5417 5275 5360 5956 6745 7252 7495 7596 7655 7716 7779 7800 7788 7758 7709 7674 7674 7751 432 27 5539 5890 6129 6339 6484 6645 6815 6901 6883 6781 6657 6546 6424 6271 6105 5950 5843 5692 5490 5359 5431 5992 6772 7286 7532 7634 7691 7750 7811 7831 7823 7792 7742 7707 7710 7789 433 1 0495 0676 0793 0762 0656 0610 0594 0638 0751 0793 0855 1332 2575 3863 4102 3627 2981 2269 1590 1140 0949 0916 0879 0833 0818 0819 0830 0887 0987 1055 1035 0976 0879 0803 0832 0985 434 2 0601 0837 1017 1045 0959 0932 0945 1011 1139 1182 1240 1715 2900 4058 4214 3709 3049 2327 1642 1188 0992 0954 0917 0871 0857 0857 0868 0925 1027 1094 1074 1016 0918 0841 0867 1023 435 3 0690 1005 1277 1377 1324 1342 1400 1497 1638 1680 1728 2172 3249 4252 4316 3778 3103 2371 1676 1218 1018 0978 0939 0894 0880 0879 0891 0950 1052 1120 1100 1040 0939 0863 0892 1048 436 4 0825 1193 1571 1777 1768 1841 1952 2096 2251 2291 2324 2728 3664 4463 4410 3829 3132 2384 1682 1219 1012 0965 0923 0876 0862 0863 0875 0933 1035 1103 1083 1023 0922 0845 0872 1029 437 5 0943 1419 1935 2266 2320 2457 2662 2866 3036 3077 3091 3430 4177 4718 4519 3884 3160 2397 1684 1217 1008 0952 0906 0860 0846 0846 0859 0916 1016 1083 1064 1002 0905 0829 0858 1010 438 6 1075 1655 2316 2780 2925 3148 3459 3739 3914 3947 3935 4174 4681 4954 4623 3945 3201 2425 1703 1232 1016 0956 0908 0862 0848 0849 0861 0919 1019 1086 1066 1004 0906 0831 0860 1015 439 7 1210 1863 2656 3261 3479 3789 4212 4565 4750 4777 4742 4879 5158 5182 4727 4005 3240 2451 1719 1241 1021 0953 0905 0858 0845 0846 0859 0916 1017 1085 1066 1003 0903 0828 0858 1008 440 8 1311 2052 2951 3672 3966 4361 4893 5315 5503 5521 5457 5489 5550 5355 4805 4053 3275 2478 1744 1264 1041 0971 0921 0874 0862 0864 0876 0934 1035 1103 1081 1021 0922 0842 0874 1029 441 9 1427 2216 3258 4135 4537 5040 5723 6250 6440 6450 6357 6237 6015 5576 4922 4129 3325 2507 1755 1265 1033 0954 0896 0848 0834 0836 0849 0908 1008 1073 1053 0992 0894 0821 0849 1002 442 10 1096 1077 0980 0816 0651 0571 0532 0555 0667 0709 0774 1283 2685 4365 5056 4958 4642 4200 3679 3274 3191 3436 3608 3651 3675 3689 3714 3793 3913 3981 3957 3884 3764 3658 3681 3856 443 11 1324 1372 1328 1198 1044 0982 0950 0988 1110 1150 1212 1716 3050 4576 5153 5002 4655 4193 3659 3251 3151 3357 3507 3542 3562 3576 3600 3680 3802 3870 3844 3770 3645 3543 3560 3738 444 12 1586 1694 1735 1674 1547 1508 1502 1561 1689 1725 1777 2253 3469 4799 5244 5040 4665 4182 3640 3231 3115 3291 3425 3455 3475 3489 3510 3589 3711 3780 3754 3680 3556 3450 3470 3647 445 13 1928 2142 2265 2281 2195 2186 2216 2301 2435 2466 2506 2936 3999 5095 5402 5148 4754 4262 3718 3312 3186 3338 3459 3486 3504 3517 3541 3620 3740 3809 3781 3705 3582 3478 3498 3675 446 14 2323 2604 2840 2939 2899 2934 3022 3136 3275 3303 3326 3706 4596 5444 5607 5306 4891 4392 3848 3447 3310 3442 3556 3583 3601 3616 3640 3717 3836 3903 3876 3800 3676 3573 3591 3769 447 15 2667 3068 3411 3618 3638 3736 3881 4038 4174 4192 4197 4492 5170 5760 5787 5438 5004 4492 3944 3545 3398 3509 3616 3643 3661 3674 3696 3772 3891 3957 3930 3857 3734 3629 3648 3824 448 16 3109 3593 4060 4385 4490 4659 4886 5089 5223 5230 5212 5401 5822 6112 5981 5580 5126 4605 4055 3656 3495 3583 3677 3703 3721 3733 3756 3834 3952 4017 3988 3914 3793 3688 3711 3884 449 17 3427 4038 4619 5076 5254 5498 5814 6064 6193 6194 6152 6226 6392 6412 6148 5707 5232 4703 4147 3752 3577 3636 3712 3730 3748 3761 3785 3861 3979 4041 4012 3940 3818 3713 3734 3910 450 18 3809 4489 5205 5794 6075 6411 6831 7139 7255 7244 7174 7102 6972 6711 6325 5843 5351 4805 4246 3848 3663 3695 3755 3767 3781 3793 3816 3892 4008 4072 4043 3970 3847 3745 3765 3937 451 19 1686 1474 1188 0909 0695 0594 0529 0547 0660 0703 0775 1314 2846 4824 5887 6136 6169 6062 5809 5568 5721 6415 6968 7226 7346 7398 7440 7500 7568 7596 7582 7543 7493 7453 7456 7541 452 20 2086 1908 1652 1387 1177 1075 1007 1028 1150 1190 1259 1801 3276 5118 6081 6292 6308 6197 5948 5719 5857 6506 7036 7289 7405 7455 7496 7555 7623 7648 7633 7597 7549 7509 7510 7591 453 21 2580 2465 2266 2040 1847 1756 1697 1724 1842 1878 1936 2446 3796 5436 6272 6438 6439 6321 6075 5855 5974 6578 7086 7330 7445 7498 7541 7598 7660 7683 7671 7635 7587 7550 7548 7626 454 22 3149 3129 2982 2804 2644 2571 2529 2563 2681 2710 2757 3223 4417 5814 6498 6611 6589 6461 6224 6017 6119 6670 7147 7386 7500 7552 7590 7646 7710 7731 7717 7680 7634 7597 7593 7676 455 23 3797 3846 3778 3663 3538 3495 3472 3519 3637 3658 3693 4103 5115 6239 6754 6809 6766 6634 6403 6214 6293 6782 7228 7456 7567 7617 7659 7714 7774 7793 7777 7741 7696 7662 7662 7742 456 24 4437 4600 4610 4581 4521 4513 4532 4595 4700 4708 4726 5044 5815 6632 6976 6974 6905 6765 6542 6368 6422 6856 7274 7498 7608 7656 7695 7749 7809 7826 7809 7774 7729 7697 7697 7776 457 25 5078 5309 5426 5491 5491 5536 5603 5682 5774 5771 5768 5983 6497 7007 7187 7130 7042 6894 6674 6515 6549 6925 7317 7535 7645 7693 7732 7783 7844 7862 7844 7809 7765 7736 7731 7812 458 26 5705 6032 6244 6405 6481 6585 6694 6794 6870 6858 6836 6938 7181 7383 7404 7300 7191 7040 6831 6687 6703 7025 7387 7598 7705 7756 7793 7843 7903 7918 7899 7868 7825 7793 7791 7867 459 27 6212 6656 6979 7252 7419 7602 7780 7898 7945 7916 7867 7822 7759 7660 7540 7393 7269 7107 6899 6764 6760 7049 7395 7600 7703 7746 7783 7836 7896 7911 7894 7862 7816 7778 7779 7858 460 1 0507 0703 0815 0781 0664 0618 0597 0641 0763 0814 0888 1412 2799 4292 4624 4111 3376 2573 1816 1308 1070 0982 0903 0840 0821 0820 0831 0888 0988 1055 1036 0976 0879 0805 0833 0990 461 2 0615 0864 1047 1072 0979 0951 0957 1027 1167 1221 1295 1823 3152 4512 4751 4205 3456 2643 1876 1361 1117 1024 0940 0876 0857 0855 0867 0924 1025 1094 1075 1014 0915 0838 0868 1021 462 3 0734 1039 1321 1425 1367 1382 1436 1542 1696 1755 1821 2323 3544 4729 4865 4277 3507 2680 1902 1381 1133 1033 0946 0882 0863 0862 0874 0931 1034 1101 1082 1021 0922 0844 0875 1030 463 4 0848 1243 1632 1840 1827 1893 2012 2163 2336 2400 2458 2921 3999 4967 4976 4345 3554 2714 1929 1406 1150 1045 0956 0892 0873 0873 0883 0942 1044 1111 1092 1030 0931 0855 0884 1039 464 5 0967 1449 1987 2327 2381 2516 2723 2938 3135 3201 3249 3656 4547 5244 5091 4393 3566 2703 1905 1375 1114 1000 0910 0846 0827 0826 0838 0896 0995 1063 1042 0981 0884 0812 0843 0993 465 6 1135 1738 2430 2936 3081 3314 3644 3947 4161 4232 4257 4563 5187 5562 5244 4491 3638 2759 1950 1413 1142 1019 0926 0861 0842 0843 0856 0913 1013 1080 1061 0999 0901 0827 0859 1006 466 7 1272 1984 2843 3502 3744 4077 4544 4940 5171 5242 5248 5441 5789 5859 5390 4584 3704 2807 1985 1439 1161 1031 0934 0869 0851 0851 0862 0922 1023 1090 1069 1009 0909 0836 0866 1017 467 8 1383 2158 3135 3936 4257 4683 5268 5753 5995 6067 6054 6135 6237 6055 5467 4620 3721 2814 1985 1437 1155 1021 0923 0858 0842 0843 0855 0914 1014 1080 1059 1001 0900 0824 0857 1011 468 9 1486 2333 3439 4392 4812 5358 6096 6678 6924 6994 6950 6876 6682 6241 5547 4665 3747 2827 1987 1432 1146 1006 0907 0842 0825 0824 0837 0897 0997 1063 1042 0983 0883 0810 0842 0994 469 10 1119 1117 1020 0843 0669 0587 0541 0567 0687 0737 0814 1373 2941 4886 5745 5661 5293 4784 4203 3748 3600 3689 3674 3615 3602 3606 3625 3704 3823 3892 3866 3791 3671 3567 3587 3761 470 11 1354 1406 1372 1233 1071 1001 0965 1009 1141 1193 1270 1833 3342 5137 5876 5736 5338 4810 4217 3759 3592 3649 3617 3554 3539 3540 3558 3635 3758 3826 3800 3724 3600 3497 3516 3692 471 12 1673 1814 1855 1781 1647 1601 1595 1659 1803 1856 1929 2467 3854 5430 6026 5833 5409 4868 4270 3815 3632 3659 3614 3548 3530 3531 3551 3627 3747 3814 3787 3711 3590 3487 3503 3682 472 13 2034 2268 2414 2427 2338 2326 2355 2448 2604 2659 2725 3227 4460 5792 6233 5980 5529 4973 4370 3916 3717 3711 3652 3582 3565 3565 3586 3661 3779 3847 3818 3747 3624 3517 3538 3714 473 14 2467 2779 3021 3126 3077 3110 3188 3317 3486 3545 3606 4068 5128 6186 6459 6148 5673 5107 4503 4050 3836 3798 3726 3654 3634 3634 3652 3728 3848 3913 3886 3810 3688 3585 3608 3780 474 15 2834 3245 3613 3828 3842 3932 4073 4241 4417 4475 4522 4907 5754 6532 6647 6278 5778 5198 4589 4137 3905 3839 3751 3676 3656 3656 3674 3750 3868 3936 3908 3830 3709 3603 3623 3801 475 16 3285 3826 4328 4689 4791 4969 5200 5428 5609 5668 5701 5974 6531 6963 6896 6471 5944 5352 4742 4295 4049 3953 3852 3774 3753 3754 3773 3846 3963 4027 3999 3924 3802 3701 3719 3891 476 17 3730 4374 5028 5536 5732 6001 6335 6624 6807 6864 6882 7023 7267 7348 7110 6630 6084 5484 4871 4427 4163 4039 3924 3842 3822 3822 3841 3915 4030 4093 4064 3991 3865 3765 3786 3962 477 18 4083 4834 5626 6274 6576 6933 7381 7735 7906 7960 7953 7939 7857 7630 7255 6734 6171 5563 4952 4511 4237 4091 3970 3887 3866 3865 3881 3955 4071 4133 4105 4030 3911 3809 3825 3998 478 19 1772 1545 1248 0942 0717 0609 0541 0560 0682 0734 0814 1413 3136 5455 6795 7158 7231 7143 6903 6663 6777 7249 7446 7483 7514 7534 7567 7622 7686 7706 7692 7658 7611 7576 7577 7658 479 20 2205 2026 1753 1481 1251 1139 1069 1089 1222 1276 1359 1962 3630 5800 7023 7342 7393 7300 7065 6837 6932 7349 7519 7548 7577 7598 7627 7679 7741 7765 7751 7715 7671 7633 7635 7713 480 21 2749 2643 2410 2165 1960 1856 1789 1817 1955 2006 2084 2663 4212 6174 7263 7536 7577 7487 7265 7059 7137 7505 7652 7678 7706 7726 7755 7805 7867 7887 7870 7834 7791 7759 7761 7832 481 22 3329 3316 3161 2969 2797 2712 2659 2696 2836 2886 2961 3502 4892 6587 7495 7698 7704 7595 7376 7177 7218 7512 7622 7635 7659 7677 7707 7758 7817 7834 7819 7783 7739 7706 7705 7783 482 23 4057 4133 4056 3944 3806 3751 3719 3769 3917 3967 4035 4524 5711 7094 7803 7930 7907 7789 7580 7401 7415 7628 7699 7704 7725 7745 7774 7823 7883 7900 7880 7841 7798 7769 7764 7839 483 24 4787 4970 5004 4985 4908 4901 4910 4979 5120 5169 5230 5627 6554 7584 8087 8146 8094 7970 7771 7611 7591 7730 7763 7759 7780 7794 7823 7870 7927 7942 7924 7889 7849 7818 7817 7895 484 25 5435 5749 5892 5983 5981 6033 6089 6181 6319 6365 6419 6717 7365 8043 8341 8329 8242 8097 7896 7746 7691 7754 7753 7736 7750 7765 7788 7837 7893 7908 7893 7857 7816 7783 7778 7854 485 26 6123 6513 6790 6980 7068 7179 7290 7412 7537 7583 7625 7807 8157 8476 8586 8516 8405 8251 8058 7926 7842 7838 7803 7781 7793 7804 7831 7877 7932 7948 7930 7896 7852 7821 7820 7890 486 27 6719 7257 7648 7968 8146 8333 8516 8662 8763 8805 8830 8856 8860 8830 8774 8655 8526 8367 8182 8064 7959 7903 7849 7825 7835 7845 7872 7919 7973 7983 7968 7933 7891 7862 7858 7931 487 1 0425 0487 0535 0528 0494 0500 0515 0533 0546 0498 0458 0528 0692 0732 0600 0470 0388 0296 0211 0185 0228 0489 0955 1251 1374 1422 1451 1523 1641 1716 1696 1630 1516 1424 1452 1624 488 2 0474 0556 0617 0633 0602 0617 0645 0669 0672 0607 0546 0597 0731 0743 0600 0470 0386 0294 0210 0184 0230 0492 0961 1258 1381 1429 1458 1529 1648 1726 1707 1638 1523 1429 1458 1634 489 3 0502 0624 0712 0759 0742 0777 0828 0859 0847 0759 0670 0688 0782 0761 0606 0470 0386 0291 0206 0182 0229 0493 0960 1258 1379 1427 1457 1529 1648 1724 1704 1637 1524 1427 1457 1630 490 4 0573 0708 0820 0888 0892 0943 1019 1050 1023 0908 0790 0774 0824 0767 0598 0462 0378 0284 0201 0180 0230 0502 0982 1286 1413 1462 1493 1567 1686 1761 1742 1674 1558 1463 1493 1664 491 5 0627 0777 0933 1038 1068 1140 1245 1288 1240 1095 0945 0889 0886 0790 0606 0464 0377 0282 0197 0177 0226 0485 0939 1226 1345 1392 1421 1493 1607 1683 1663 1596 1483 1391 1418 1589 492 6 0656 0857 1051 1190 1238 1344 1480 1530 1458 1279 1092 0988 0927 0790 0592 0450 0364 0271 0189 0170 0222 0469 0895 1158 1267 1309 1337 1405 1522 1596 1576 1509 1398 1303 1333 1506 493 7 0725 0932 1167 1339 1418 1560 1727 1787 1686 1471 1241 1084 0961 0782 0574 0432 0349 0258 0180 0168 0222 0465 0884 1142 1246 1287 1314 1384 1499 1574 1555 1490 1377 1282 1312 1482 494 8 0762 1018 1286 1500 1612 1784 1995 2068 1933 1678 1408 1195 1007 0788 0567 0424 0341 0250 0175 0164 0219 0463 0886 1148 1256 1298 1325 1395 1508 1584 1564 1498 1388 1297 1322 1491 495 9 0831 1093 1397 1646 1798 2007 2263 2347 2180 1884 1572 1300 1049 0793 0563 0418 0336 0245 0171 0164 0220 0464 0887 1147 1254 1298 1325 1394 1507 1581 1562 1497 1386 1295 1321 1487 496 10 0727 0643 0561 0480 0426 0407 0407 0414 0426 0389 0362 0436 0589 0625 0516 0420 0372 0313 0247 0224 0317 1017 2512 3715 4303 4539 4645 4750 4876 4944 4928 4866 4763 4670 4683 4849 497 11 0776 0729 0649 0584 0536 0520 0531 0536 0538 0483 0437 0490 0617 0631 0513 0417 0369 0309 0243 0222 0315 1014 2506 3708 4298 4538 4642 4748 4874 4943 4925 4863 4757 4664 4680 4845 498 12 0887 0837 0771 0720 0679 0684 0700 0708 0692 0609 0535 0558 0646 0631 0504 0407 0360 0301 0237 0219 0314 1009 2495 3693 4281 4518 4622 4730 4857 4925 4905 4844 4736 4643 4661 4822 499 13 1035 0992 0936 0909 0881 0903 0942 0949 0903 0785 0671 0651 0687 0636 0496 0399 0352 0294 0231 0217 0315 1008 2490 3684 4270 4510 4614 4720 4848 4917 4899 4837 4733 4637 4653 4818 500 14 1155 1131 1098 1084 1071 1111 1171 1177 1104 0951 0797 0734 0722 0633 0483 0384 0340 0282 0222 0212 0311 1007 2494 3692 4284 4526 4630 4735 4861 4930 4913 4851 4747 4654 4668 4832 501 15 1280 1258 1245 1251 1259 1328 1406 1411 1309 1117 0927 0817 0752 0630 0469 0370 0327 0271 0214 0209 0310 1000 2486 3688 4285 4528 4635 4741 4867 4935 4918 4856 4750 4658 4674 4835 502 16 1425 1412 1419 1446 1474 1566 1670 1675 1541 1307 1074 0915 0796 0637 0465 0367 0326 0271 0212 0209 0317 1027 2550 3786 4401 4653 4766 4872 4995 5061 5046 4986 4885 4796 4810 4969 503 17 1583 1570 1579 1635 1685 1805 1940 1938 1767 1488 1210 0996 0818 0623 0445 0349 0311 0259 0205 0207 0318 1034 2578 3835 4465 4724 4838 4945 5071 5138 5123 5066 4962 4870 4886 5045 504 18 1663 1679 1722 1808 1887 2038 2205 2209 1997 1675 1354 1085 0851 0625 0439 0343 0304 0252 0200 0204 0315 1018 2535 3765 4381 4632 4746 4852 4979 5046 5032 4971 4867 4778 4795 4951 505 19 0991 0783 0604 0483 0412 0383 0370 0372 0383 0351 0328 0401 0546 0578 0477 0399 0372 0331 0275 0253 0392 1526 4111 6420 7662 8185 8401 8510 8581 8603 8605 8594 8587 8586 8587 8638 506 20 1144 0915 0731 0612 0544 0522 0515 0511 0509 0453 0409 0458 0576 0586 0477 0396 0369 0331 0272 0252 0395 1543 4140 6452 7693 8215 8428 8539 8609 8630 8631 8623 8616 8616 8615 8664 507 21 1277 1058 0871 0766 0704 0691 0694 0689 0665 0580 0505 0522 0604 0587 0470 0390 0365 0326 0270 0253 0399 1541 4134 6447 7693 8216 8434 8543 8615 8636 8638 8627 8620 8620 8620 8666 508 22 1451 1248 1067 0965 0915 0924 0937 0924 0871 0750 0637 0615 0650 0601 0472 0393 0370 0330 0274 0261 0413 1566 4162 6471 7713 8238 8453 8561 8633 8654 8656 8646 8644 8647 8643 8684 509 23 1663 1449 1260 1171 1136 1160 1190 1173 1085 0920 0762 0691 0670 0582 0444 0365 0344 0306 0254 0247 0398 1540 4133 6450 7700 8229 8448 8555 8624 8647 8653 8645 8639 8644 8642 8684 510 24 1842 1641 1462 1380 1365 1410 1460 1436 1312 1104 0902 0781 0707 0584 0437 0358 0337 0301 0250 0247 0403 1550 4149 6466 7716 8243 8461 8570 8638 8655 8660 8651 8651 8657 8651 8696 511 25 2051 1828 1650 1594 1598 1666 1739 1707 1547 1288 1041 0866 0734 0577 0421 0344 0326 0290 0242 0245 0402 1543 4137 6457 7713 8245 8463 8574 8640 8659 8665 8660 8658 8663 8667 8703 512 26 2207 1994 1828 1779 1808 1897 1988 1953 1759 1459 1171 0948 0766 0577 0413 0336 0319 0284 0238 0245 0404 1547 4146 6466 7722 8256 8476 8585 8652 8670 8676 8673 8674 8682 8680 8716 513 27 2366 2152 1996 1978 2019 2136 2257 2218 1976 1635 1304 1029 0795 0578 0407 0330 0315 0280 0237 0247 0411 1554 4150 6465 7715 8242 8462 8568 8634 8654 8661 8659 8661 8668 8672 8705 514 1 0444 0518 0566 0553 0506 0502 0518 0540 0561 0525 0494 0605 0867 1006 0893 0735 0615 0475 0341 0276 0314 0582 1017 1281 1388 1429 1457 1528 1644 1719 1699 1632 1520 1427 1457 1630 515 2 0496 0588 0660 0669 0632 0642 0669 0696 0711 0657 0607 0697 0920 1017 0886 0726 0607 0471 0337 0276 0316 0585 1016 1276 1381 1423 1449 1521 1638 1714 1694 1626 1513 1420 1448 1621 516 3 0552 0684 0776 0815 0794 0824 0871 0907 0910 0834 0761 0819 0998 1053 0902 0735 0611 0472 0336 0275 0316 0584 1015 1271 1376 1417 1445 1517 1633 1708 1689 1620 1508 1413 1442 1617 517 4 0623 0772 0902 0983 0980 1032 1106 1151 1140 1039 0935 0955 1078 1083 0911 0737 0612 0469 0333 0274 0315 0582 1003 1250 1349 1388 1415 1488 1605 1681 1659 1593 1479 1383 1413 1589 518 5 0675 0867 1047 1160 1188 1268 1375 1431 1401 1266 1128 1101 1152 1095 0899 0721 0594 0453 0321 0266 0308 0564 0972 1213 1311 1350 1376 1446 1561 1633 1612 1548 1435 1341 1370 1541 519 6 0755 0971 1197 1356 1408 1522 1665 1733 1680 1517 1340 1260 1244 1130 0912 0728 0600 0456 0322 0267 0311 0563 0959 1190 1282 1320 1347 1416 1528 1601 1580 1515 1403 1314 1339 1514 520 7 0823 1081 1352 1558 1647 1792 1980 2061 1980 1778 1557 1416 1320 1147 0908 0721 0593 0450 0318 0268 0314 0567 0970 1210 1307 1346 1372 1442 1555 1629 1609 1543 1431 1339 1367 1534 521 8 0892 1167 1503 1762 1879 2070 2308 2403 2292 2049 1783 1576 1397 1164 0905 0715 0586 0442 0312 0265 0314 0561 0953 1183 1277 1313 1338 1408 1522 1597 1576 1509 1398 1307 1334 1502 522 9 0929 1262 1628 1934 2097 2333 2621 2732 2585 2302 1993 1718 1454 1171 0897 0704 0576 0435 0307 0262 0312 0556 0951 1184 1280 1320 1345 1413 1526 1599 1579 1515 1404 1313 1340 1508 523 10 0772 0684 0592 0508 0437 0418 0409 0420 0440 0409 0393 0500 0749 0893 0818 0713 0652 0570 0466 0413 0519 1268 2709 3812 4341 4552 4650 4750 4873 4941 4924 4860 4753 4663 4676 4839 524 11 0880 0814 0738 0665 0592 0583 0580 0591 0600 0554 0515 0604 0830 0948 0860 0752 0688 0602 0494 0439 0548 1297 2733 3829 4356 4568 4662 4764 4887 4954 4936 4873 4765 4674 4687 4852 525 12 1001 0940 0875 0818 0766 0766 0777 0790 0785 0710 0645 0704 0880 0952 0847 0735 0672 0586 0481 0429 0538 1284 2718 3815 4344 4555 4653 4754 4877 4944 4926 4865 4756 4660 4681 4842 526 13 1154 1127 1077 1043 1007 1026 1059 1070 1042 0935 0833 0848 0963 0984 0858 0742 0677 0591 0487 0438 0551 1294 2724 3820 4349 4561 4657 4758 4883 4949 4929 4867 4762 4669 4684 4846 527 14 1333 1318 1288 1276 1261 1303 1354 1369 1314 1170 1027 0993 1042 1008 0860 0740 0675 0588 0485 0440 0554 1293 2716 3808 4338 4550 4647 4746 4869 4935 4917 4858 4752 4659 4680 4838 528 15 1469 1485 1478 1490 1497 1560 1641 1657 1573 1391 1210 1125 1109 1020 0853 0731 0666 0580 0479 0439 0555 1295 2727 3830 4366 4583 4680 4781 4904 4970 4953 4890 4786 4695 4709 4869 529 16 1684 1687 1722 1759 1787 1879 1990 2002 1886 1664 1440 1298 1211 1070 0885 0757 0694 0607 0506 0468 0588 1344 2807 3938 4489 4713 4816 4917 5037 5100 5082 5024 4920 4832 4849 5007 530 17 1839 1881 1921 2002 2063 2192 2331 2347 2190 1921 1648 1439 1269 1070 0863 0735 0671 0587 0489 0456 0579 1335 2801 3931 4484 4707 4810 4913 5034 5099 5081 5022 4918 4828 4846 5003 531 18 1976 2050 2126 2238 2335 2501 2676 2698 2500 2187 1867 1592 1346 1095 0874 0742 0679 0593 0496 0466 0591 1345 2813 3953 4513 4740 4844 4946 5068 5132 5117 5057 4953 4863 4880 5033 532 19 1059 0848 0652 0515 0434 0395 0376 0380 0402 0374 0361 0471 0721 0875 0824 0749 0724 0674 0588 0540 0711 1934 4457 6618 7758 8232 8428 8530 8598 8617 8617 8607 8602 8602 8602 8652 533 20 1244 1032 0830 0696 0613 0582 0567 0568 0577 0529 0494 0586 0812 0942 0877 0799 0774 0722 0634 0584 0765 2008 4537 6684 7807 8274 8468 8566 8634 8653 8656 8645 8637 8637 8635 8682 534 21 1445 1214 1022 0894 0817 0797 0796 0792 0777 0702 0637 0694 0876 0964 0883 0803 0777 0726 0638 0592 0776 2018 4546 6695 7823 8291 8487 8586 8653 8673 8672 8665 8658 8658 8660 8703 535 22 1637 1423 1232 1112 1048 1042 1048 1040 1002 0896 0796 0815 0944 0987 0889 0804 0778 0727 0641 0599 0784 2030 4562 6709 7836 8304 8498 8597 8660 8677 8683 8673 8667 8669 8670 8707 536 23 1889 1668 1488 1388 1339 1351 1369 1356 1290 1142 1001 0969 1030 1017 0898 0810 0785 0734 0651 0612 0799 2038 4564 6714 7841 8311 8505 8605 8668 8686 8689 8682 8679 8679 8680 8718 537 24 2150 1972 1781 1709 1680 1718 1762 1744 1637 1441 1248 1154 1132 1053 0911 0821 0795 0745 0664 0633 0822 2050 4571 6720 7854 8328 8524 8625 8690 8706 8707 8701 8700 8705 8707 8743 538 25 2419 2241 2081 2023 2025 2089 2159 2136 1985 1738 1495 1334 1231 1091 0928 0834 0809 0759 0680 0654 0847 2076 4590 6735 7869 8341 8539 8640 8700 8715 8718 8714 8715 8723 8722 8759 539 26 2632 2439 2290 2254 2282 2364 2458 2430 2248 1958 1673 1459 1288 1100 0921 0826 0801 0753 0675 0655 0848 2072 4586 6733 7867 8341 8535 8633 8696 8712 8719 8714 8715 8725 8724 8754 540 27 2831 2676 2544 2529 2588 2702 2821 2789 2560 2227 1897 1618 1374 1139 0943 0847 0823 0773 0698 0685 0885 2111 4615 6742 7864 8331 8521 8621 8681 8699 8704 8700 8703 8711 8704 8750 541 1 0457 0551 0594 0571 0515 0503 0510 0536 0572 0546 0530 0692 1086 1375 1308 1118 0947 0746 0544 0430 0450 0708 1093 1310 1396 1430 1457 1526 1642 1717 1695 1628 1515 1425 1452 1626 542 2 0527 0647 0719 0717 0675 0674 0696 0725 0759 0720 0686 0831 1189 1429 1335 1138 0963 0759 0554 0440 0459 0715 1093 1305 1391 1426 1450 1521 1637 1713 1691 1625 1510 1418 1444 1617 543 3 0617 0750 0873 0906 0881 0907 0952 0995 1016 0957 0900 1010 1309 1486 1361 1154 0973 0765 0559 0443 0465 0718 1094 1306 1392 1427 1452 1522 1638 1713 1691 1625 1510 1418 1441 1614 544 4 0699 0877 1030 1116 1116 1161 1235 1291 1303 1219 1131 1200 1427 1529 1369 1152 0969 0759 0554 0442 0464 0716 1091 1302 1388 1423 1449 1520 1635 1709 1688 1621 1507 1415 1442 1617 545 5 0776 1011 1225 1356 1376 1463 1574 1643 1638 1528 1405 1425 1569 1590 1394 1166 0978 0766 0559 0447 0470 0717 1083 1290 1372 1406 1431 1501 1615 1689 1668 1600 1489 1398 1425 1596 546 6 0881 1126 1409 1593 1648 1767 1922 2012 1984 1842 1681 1639 1688 1622 1391 1154 0964 0752 0546 0440 0463 0710 1083 1297 1382 1418 1444 1512 1626 1700 1678 1613 1498 1407 1434 1607 547 7 0982 1277 1611 1854 1947 2114 2322 2431 2380 2199 1996 1887 1833 1682 1418 1172 0980 0766 0561 0457 0483 0728 1100 1311 1397 1432 1456 1527 1640 1713 1694 1625 1512 1421 1447 1616 548 8 1064 1408 1795 2098 2234 2441 2703 2830 2749 2529 2283 2097 1939 1708 1412 1165 0972 0759 0557 0456 0483 0726 1099 1312 1400 1436 1461 1532 1646 1718 1698 1632 1519 1427 1452 1620 549 9 1123 1521 1962 2339 2520 2785 3113 3263 3150 2889 2596 2327 2056 1745 1423 1167 0971 0756 0553 0454 0481 0721 1087 1295 1382 1417 1442 1512 1625 1698 1677 1610 1499 1408 1433 1603 550 10 0829 0749 0647 0544 0461 0430 0419 0432 0463 0444 0437 0595 0986 1310 1315 1211 1130 1013 0862 0763 0873 1628 2954 3929 4391 4576 4661 4759 4880 4945 4925 4861 4757 4665 4683 4844 551 11 0970 0901 0815 0723 0652 0625 0619 0632 0658 0621 0596 0739 1101 1386 1368 1256 1173 1054 0898 0800 0911 1666 2990 3960 4418 4601 4687 4783 4904 4969 4949 4886 4781 4690 4704 4870 552 12 1133 1098 1030 0966 0895 0891 0898 0916 0926 0866 0814 0926 1238 1466 1419 1299 1212 1088 0930 0833 0944 1697 3011 3967 4421 4599 4684 4781 4902 4968 4947 4883 4780 4686 4703 4859 553 13 1328 1297 1264 1221 1173 1179 1208 1227 1220 1133 1049 1121 1361 1515 1435 1306 1216 1089 0932 0838 0950 1697 3004 3963 4417 4597 4684 4779 4900 4963 4946 4882 4774 4681 4701 4859 554 14 1532 1546 1542 1533 1507 1536 1591 1614 1585 1460 1338 1352 1506 1571 1451 1313 1220 1094 0939 0851 0965 1710 3022 3984 4442 4625 4711 4806 4926 4989 4969 4907 4802 4711 4726 4884 555 15 1734 1781 1801 1829 1829 1889 1969 1994 1937 1779 1616 1576 1643 1631 1478 1330 1235 1107 0951 0865 0980 1718 3020 3975 4432 4616 4700 4797 4918 4983 4964 4902 4797 4704 4719 4876 556 16 1957 2057 2117 2189 2216 2314 2430 2459 2371 2173 1967 1860 1831 1736 1548 1392 1293 1163 1006 0923 1039 1780 3087 4049 4508 4693 4782 4877 4995 5057 5038 4977 4874 4783 4797 4955 557 17 2223 2307 2401 2506 2575 2705 2857 2894 2770 2524 2270 2089 1954 1773 1553 1393 1296 1169 1019 0941 1060 1806 3140 4131 4610 4804 4896 4993 5110 5173 5155 5093 4993 4904 4916 5074 558 18 2347 2498 2648 2812 2919 3098 3301 3343 3176 2889 2587 2324 2076 1813 1563 1395 1293 1164 1013 0941 1056 1786 3092 4063 4532 4722 4812 4908 5026 5088 5068 5008 4906 4817 4830 4987 559 19 1149 0919 0714 0554 0452 0408 0383 0391 0420 0404 0402 0561 0959 1306 1352 1301 1283 1227 1116 1037 1241 2520 4915 6873 7884 8299 8472 8566 8629 8645 8646 8633 8628 8629 8627 8670 560 20 1379 1154 0948 0788 0689 0646 0627 0629 0651 0615 0592 0738 1114 1431 1462 1407 1387 1330 1217 1140 1348 2625 4995 6928 7925 8336 8507 8599 8661 8678 8678 8668 8662 8665 8665 8700 561 21 1623 1415 1207 1059 0965 0933 0921 0921 0924 0862 0811 0926 1252 1518 1526 1464 1444 1386 1271 1196 1408 2687 5049 6968 7954 8361 8532 8622 8683 8699 8702 8689 8682 8685 8682 8726 562 22 1904 1704 1504 1368 1291 1272 1271 1264 1247 1155 1072 1145 1402 1598 1572 1503 1482 1421 1309 1239 1450 2719 5066 6977 7962 8370 8541 8630 8690 8705 8708 8696 8696 8695 8693 8729 563 23 2201 2032 1836 1718 1660 1653 1666 1658 1617 1489 1369 1395 1576 1694 1633 1555 1531 1473 1362 1298 1509 2767 5101 7001 7986 8392 8562 8652 8711 8726 8729 8717 8716 8718 8715 8753 564 24 2543 2388 2214 2134 2093 2119 2154 2143 2063 1890 1722 1676 1749 1767 1664 1576 1549 1489 1381 1324 1536 2785 5120 7029 8015 8424 8596 8684 8745 8758 8762 8752 8750 8758 8754 8786 565 25 2854 2729 2575 2523 2514 2572 2636 2618 2496 2273 2055 1932 1892 1813 1671 1574 1546 1486 1383 1334 1545 2779 5105 7014 8005 8418 8591 8682 8739 8752 8753 8748 8745 8752 8755 8788 566 26 3171 3036 2914 2887 2917 3004 3094 3071 2914 2650 2382 2192 2052 1889 1710 1606 1575 1513 1412 1368 1579 2812 5137 7043 8030 8440 8612 8700 8756 8768 8772 8762 8764 8774 8770 8804 567 27 3404 3307 3210 3218 3282 3402 3517 3494 3295 2988 2681 2417 2181 1946 1742 1633 1602 1540 1439 1402 1612 2833 5143 7035 8014 8421 8594 8682 8739 8750 8753 8748 8751 8762 8762 8792 568 1 0514 0601 0626 0596 0527 0510 0510 0537 0583 0571 0568 0783 1323 1788 1781 1564 1339 1070 0796 0626 0625 0870 1209 1391 1464 1494 1518 1588 1705 1779 1758 1690 1577 1485 1515 1686 569 2 0570 0697 0767 0774 0715 0707 0728 0762 0807 0784 0765 0962 1458 1852 1805 1573 1339 1064 0787 0618 0616 0850 1172 1341 1410 1440 1461 1531 1647 1721 1701 1633 1520 1428 1453 1628 570 3 0656 0820 0946 0984 0949 0971 1013 1061 1103 1058 1017 1180 1604 1914 1825 1579 1339 1064 0785 0619 0616 0848 1170 1342 1409 1438 1461 1530 1647 1720 1701 1635 1518 1425 1456 1627 571 4 0755 0965 1159 1247 1237 1289 1367 1430 1462 1400 1331 1456 1798 2012 1874 1609 1360 1076 0793 0625 0621 0848 1162 1328 1395 1423 1446 1517 1631 1706 1684 1615 1502 1409 1439 1610 572 5 0848 1134 1380 1531 1553 1639 1756 1848 1867 1777 1675 1745 1985 2091 1900 1623 1370 1085 0803 0637 0634 0855 1165 1329 1396 1424 1448 1517 1630 1702 1682 1616 1502 1411 1442 1609 573 6 0974 1277 1584 1799 1855 1982 2145 2252 2253 2134 1992 1992 2115 2107 1870 1585 1331 1051 0776 0618 0618 0839 1155 1324 1394 1424 1446 1515 1629 1701 1678 1613 1500 1407 1436 1605 574 7 1095 1446 1831 2112 2222 2395 2629 2761 2740 2584 2400 2324 2320 2199 1913 1612 1355 1070 0791 0635 0635 0857 1173 1345 1415 1444 1468 1537 1650 1725 1703 1636 1521 1430 1460 1626 575 8 1171 1559 2007 2359 2510 2739 3025 3184 3133 2940 2711 2547 2413 2184 1856 1553 1300 1023 0756 0607 0611 0830 1146 1320 1391 1421 1444 1514 1626 1700 1678 1611 1498 1405 1435 1607 576 9 1278 1703 2230 2653 2865 3156 3516 3705 3622 3390 3113 2852 2581 2251 1889 1576 1318 1039 0769 0621 0624 0842 1156 1328 1398 1427 1450 1520 1634 1707 1684 1618 1504 1412 1438 1612 577 10 0894 0814 0705 0585 0483 0450 0426 0442 0487 0478 0487 0711 1297 1880 2009 1914 1811 1651 1436 1284 1392 2131 3283 4077 4447 4597 4669 4762 4882 4945 4926 4860 4753 4661 4678 4839 578 11 1066 1006 0907 0803 0709 0675 0664 0679 0722 0698 0688 0894 1423 1918 1997 1889 1785 1625 1414 1267 1376 2117 3284 4098 4480 4632 4706 4798 4918 4981 4960 4897 4788 4701 4716 4875 579 12 1241 1211 1152 1073 0989 0971 0977 0996 1024 0979 0944 1111 1562 1960 1991 1870 1760 1601 1394 1253 1360 2095 3268 4092 4478 4632 4706 4798 4917 4979 4959 4896 4791 4696 4714 4875 580 13 1479 1490 1460 1413 1351 1354 1375 1400 1414 1345 1280 1407 1781 2089 2072 1933 1817 1652 1441 1302 1407 2132 3288 4100 4480 4635 4707 4799 4916 4979 4958 4896 4791 4698 4712 4870 581 14 1731 1775 1781 1782 1737 1765 1813 1846 1841 1739 1638 1711 1985 2176 2102 1948 1825 1660 1451 1317 1423 2141 3294 4104 4484 4636 4711 4800 4917 4979 4959 4895 4790 4701 4714 4874 582 15 1957 2065 2107 2151 2147 2202 2286 2325 2292 2154 2013 2019 2175 2249 2118 1951 1825 1659 1451 1322 1429 2145 3300 4114 4496 4648 4724 4815 4935 4997 4974 4913 4806 4713 4731 4888 583 16 2263 2385 2486 2571 2608 2701 2826 2873 2814 2637 2452 2382 2414 2372 2191 2009 1879 1710 1507 1381 1490 2206 3373 4202 4595 4753 4831 4922 5036 5099 5078 5014 4913 4825 4839 4995 584 17 2501 2679 2833 2982 3056 3199 3370 3428 3332 3116 2885 2730 2630 2469 2238 2042 1909 1737 1532 1411 1515 2215 3363 4175 4560 4716 4791 4882 4998 5059 5040 4977 4872 4780 4797 4959 585 18 2670 2908 3135 3359 3491 3687 3916 3994 3864 3607 3331 3084 2842 2569 2293 2082 1936 1756 1548 1428 1522 2186 3285 4062 4432 4581 4655 4745 4863 4924 4905 4845 4736 4644 4658 4816 586 19 1235 1008 0779 0603 0474 0432 0399 0406 0448 0442 0452 0675 1260 1868 2062 2051 2050 1992 1855 1747 1980 3274 5449 7148 8011 8367 8517 8600 8657 8673 8670 8662 8653 8653 8651 8691 587 20 1474 1275 1046 0870 0752 0701 0670 0676 0714 0687 0678 0881 1413 1937 2080 2056 2048 1988 1853 1751 1984 3273 5460 7175 8043 8402 8555 8637 8694 8707 8705 8693 8694 8694 8695 8728 588 21 1790 1585 1371 1209 1102 1058 1037 1038 1059 1011 0973 1143 1609 2053 2156 2120 2108 2047 1913 1815 2047 3330 5509 7213 8077 8432 8586 8668 8722 8734 8736 8724 8719 8727 8721 8758 589 22 2174 1989 1785 1636 1542 1514 1501 1500 1504 1428 1362 1495 1896 2266 2331 2285 2269 2205 2071 1977 2210 3478 5612 7274 8111 8458 8605 8686 8739 8751 8751 8740 8738 8741 8745 8776 590 23 2518 2358 2173 2053 1968 1957 1955 1956 1936 1832 1735 1818 2126 2391 2403 2340 2321 2255 2124 2035 2266 3520 5644 7297 8134 8477 8624 8703 8752 8763 8765 8756 8755 8762 8756 8789 591 24 2917 2782 2626 2532 2480 2490 2516 2508 2461 2316 2177 2189 2374 2512 2465 2385 2361 2293 2163 2082 2312 3553 5665 7314 8147 8489 8638 8717 8766 8778 8781 8773 8774 8784 8779 8811 592 25 3330 3239 3115 3063 3054 3099 3150 3145 3059 2866 2676 2604 2644 2642 2533 2440 2410 2342 2217 2145 2369 3586 5686 7338 8181 8527 8674 8754 8806 8815 8815 8810 8809 8820 8820 8847 593 26 3728 3656 3571 3549 3580 3662 3744 3738 3613 3376 3140 2982 2885 2759 2598 2489 2456 2387 2264 2201 2422 3616 5702 7350 8191 8537 8687 8766 8816 8824 8824 8820 8820 8832 8829 8855 594 27 3996 3963 3907 3947 4017 4130 4248 4237 4070 3795 3516 3274 3053 2825 2622 2503 2465 2398 2279 2222 2440 3622 5702 7348 8191 8537 8683 8760 8812 8819 8822 8817 8820 8832 8827 8853 595 1 0520 0609 0662 0620 0541 0513 0508 0535 0597 0599 0612 0886 1590 2256 2323 2069 1771 1421 1062 0830 0797 0999 1251 1370 1417 1438 1460 1528 1642 1716 1695 1630 1516 1425 1452 1623 596 2 0603 0740 0832 0827 0758 0743 0756 0796 0860 0851 0852 1112 1768 2343 2353 2080 1774 1417 1055 0823 0789 0978 1214 1322 1365 1384 1405 1473 1587 1660 1639 1572 1461 1368 1395 1569 597 3 0724 0914 1058 1096 1054 1067 1111 1166 1228 1203 1182 1407 1980 2453 2409 2117 1805 1446 1082 0851 0816 1013 1264 1383 1430 1451 1473 1542 1657 1732 1710 1641 1528 1433 1462 1638 598 4 0859 1076 1293 1393 1381 1426 1510 1585 1643 1601 1555 1739 2216 2570 2466 2155 1832 1465 1098 0866 0829 1021 1268 1386 1435 1456 1476 1547 1659 1733 1711 1644 1530 1437 1466 1635 599 5 0967 1265 1551 1724 1751 1837 1965 2072 2122 2057 1980 2107 2465 2679 2502 2165 1831 1459 1088 0858 0819 1002 1243 1356 1403 1425 1445 1514 1628 1701 1679 1613 1498 1407 1435 1606 600 6 1102 1462 1842 2103 2167 2305 2493 2631 2668 2580 2468 2528 2756 2835 2594 2234 1889 1505 1128 0894 0852 1029 1265 1380 1427 1446 1467 1537 1651 1723 1701 1633 1520 1426 1457 1629 601 7 1237 1651 2112 2453 2575 2772 3030 3203 3221 3103 2949 2921 2988 2911 2600 2224 1876 1493 1119 0889 0849 1025 1258 1368 1413 1433 1453 1520 1633 1707 1684 1618 1502 1413 1439 1607 602 8 1322 1811 2339 2763 2938 3195 3525 3729 3723 3566 3366 3237 3139 2914 2548 2165 1820 1444 1080 0861 0826 1005 1248 1367 1417 1439 1460 1529 1642 1716 1694 1626 1513 1421 1446 1620 603 9 1432 1966 2580 3097 3343 3671 4090 4335 4298 4107 3856 3614 3344 2988 2570 2172 1823 1446 1080 0863 0827 1006 1251 1373 1424 1446 1468 1536 1649 1720 1698 1632 1517 1428 1452 1626 604 10 0980 0892 0769 0632 0512 0463 0438 0452 0512 0517 0539 0827 1607 2455 2726 2649 2525 2323 2053 1851 1945 2645 3623 4261 4552 4670 4734 4819 4935 4998 4977 4913 4805 4715 4732 4890 605 11 1181 1125 1028 0896 0783 0739 0720 0740 0798 0791 0798 1075 1809 2569 2785 2688 2555 2349 2078 1876 1967 2655 3624 4257 4550 4666 4728 4812 4929 4990 4968 4905 4798 4708 4720 4879 606 12 1395 1386 1323 1231 1131 1105 1103 1125 1177 1152 1136 1380 2028 2671 2820 2702 2562 2353 2082 1886 1975 2655 3623 4256 4548 4665 4727 4812 4925 4986 4965 4900 4796 4706 4722 4878 607 13 1682 1722 1703 1650 1580 1573 1590 1625 1663 1612 1570 1763 2292 2783 2849 2708 2561 2351 2084 1895 1983 2659 3639 4288 4590 4711 4775 4862 4974 5035 5013 4948 4843 4751 4768 4927 608 14 1971 2057 2082 2086 2037 2060 2103 2148 2174 2097 2020 2159 2569 2912 2902 2734 2578 2364 2097 1913 2000 2662 3634 4278 4579 4697 4761 4847 4961 5021 5001 4937 4830 4738 4754 4906 609 15 2261 2381 2473 2522 2512 2575 2659 2713 2714 2605 2489 2554 2819 3006 2916 2726 2563 2347 2080 1900 1985 2648 3631 4288 4591 4717 4783 4870 4985 5044 5024 4960 4854 4763 4778 4934 610 16 2586 2769 2934 3051 3089 3194 3326 3396 3371 3227 3071 3047 3156 3180 3014 2802 2632 2411 2146 1969 2052 2702 3678 4331 4634 4756 4821 4907 5020 5079 5058 4996 4891 4801 4815 4968 611 17 2871 3119 3345 3536 3627 3781 3966 4054 4001 3822 3626 3510 3458 3331 3095 2860 2677 2451 2185 2012 2088 2709 3651 4289 4588 4708 4772 4859 4971 5031 5007 4943 4839 4748 4766 4919 612 18 3120 3419 3719 3995 4144 4359 4604 4710 4620 4401 4154 3931 3700 3425 3129 2880 2694 2466 2201 2036 2107 2717 3654 4286 4581 4702 4762 4851 4965 5022 5002 4936 4828 4742 4757 4912 613 19 1373 1125 0876 0661 0519 0456 0418 0427 0485 0492 0516 0811 1615 2532 2909 2956 2975 2919 2762 2626 2885 4176 6092 7493 8180 8458 8581 8652 8700 8710 8708 8696 8692 8699 8693 8729 614 20 1642 1424 1179 0972 0836 0770 0732 0740 0794 0784 0793 1070 1810 2616 2926 2953 2964 2906 2754 2628 2881 4156 6087 7508 8209 8492 8618 8686 8736 8745 8742 8731 8729 8735 8734 8767 615 21 2001 1800 1566 1382 1254 1200 1168 1173 1214 1184 1169 1410 2064 2758 3004 3010 3015 2956 2804 2685 2935 4191 6112 7532 8236 8522 8646 8715 8765 8775 8771 8764 8763 8768 8764 8798 616 22 2423 2234 2028 1863 1748 1705 1687 1687 1715 1661 1619 1817 2381 2952 3135 3122 3120 3057 2909 2795 3040 4272 6165 7568 8263 8548 8673 8741 8788 8798 8795 8788 8784 8793 8786 8818 617 23 2907 2771 2589 2456 2356 2329 2323 2327 2335 2254 2183 2331 2786 3224 3333 3298 3288 3223 3077 2971 3212 4415 6266 7636 8313 8589 8710 8776 8823 8832 8830 8820 8818 8828 8820 8844 618 24 3381 3290 3150 3053 2992 2993 3009 3012 2995 2879 2768 2843 3150 3424 3452 3394 3376 3306 3165 3069 3303 4485 6320 7685 8362 8638 8755 8824 8868 8871 8870 8859 8862 8873 8868 8895 619 25 3843 3792 3684 3637 3617 3649 3695 3701 3646 3492 3340 3325 3467 3571 3518 3436 3411 3341 3204 3118 3347 4499 6318 7683 8364 8641 8762 8826 8869 8876 8876 8868 8871 8882 8881 8901 620 26 4300 4290 4232 4235 4262 4342 4421 4424 4335 4140 3943 3833 3801 3736 3602 3498 3464 3390 3255 3177 3402 4543 6357 7721 8403 8681 8804 8871 8911 8914 8914 8908 8911 8923 8921 8947 621 27 4685 4723 4712 4774 4859 4980 5093 5101 4966 4732 4491 4279 4078 3866 3671 3551 3512 3438 3306 3237 3456 4568 6365 7723 8401 8677 8799 8863 8905 8908 8909 8905 8909 8921 8916 8939 622 1 0542 0653 0696 0647 0549 0516 0504 0536 0612 0627 0657 0999 1900 2820 2990 2694 2303 1847 1386 1080 0997 1130 1284 1342 1365 1378 1396 1464 1576 1649 1627 1560 1449 1361 1387 1556 623 2 0661 0816 0905 0897 0818 0792 0804 0849 0931 0940 0959 1293 2142 2959 3063 2743 2342 1878 1414 1105 1019 1149 1298 1354 1376 1390 1408 1474 1588 1661 1639 1572 1460 1369 1398 1567 624 3 0794 0990 1151 1205 1146 1158 1198 1263 1347 1347 1348 1650 2413 3108 3143 2800 2391 1924 1455 1144 1058 1189 1349 1412 1439 1453 1471 1540 1653 1727 1704 1636 1524 1434 1460 1635 625 4 0923 1202 1446 1565 1544 1591 1676 1770 1856 1843 1825 2085 2734 3279 3231 2858 2434 1956 1480 1166 1075 1197 1349 1408 1436 1449 1468 1538 1648 1722 1701 1633 1519 1428 1456 1625 626 5 1082 1430 1784 1994 2015 2112 2261 2395 2480 2449 2402 2601 3099 3449 3295 2887 2449 1963 1484 1174 1078 1189 1332 1387 1411 1424 1442 1511 1622 1695 1671 1604 1493 1400 1430 1603 627 6 1248 1650 2097 2401 2481 2635 2848 3018 3100 3048 2971 3091 3428 3603 3366 2932 2481 1989 1507 1195 1099 1209 1356 1415 1441 1455 1474 1542 1654 1726 1704 1635 1522 1432 1461 1628 628 7 1401 1877 2429 2840 2975 3196 3489 3708 3778 3706 3593 3627 3791 3786 3461 2995 2530 2026 1536 1220 1118 1222 1365 1420 1446 1460 1478 1546 1659 1730 1706 1639 1526 1435 1461 1633 629 8 1537 2118 2756 3269 3475 3772 4152 4421 4480 4387 4235 4165 4136 3943 3532 3041 2566 2056 1563 1247 1145 1245 1386 1441 1466 1481 1499 1568 1680 1752 1729 1661 1545 1454 1483 1653 630 9 1649 2274 3022 3646 3941 4317 4807 5133 5165 5036 4837 4632 4376 4000 3518 3008 2527 2017 1526 1213 1110 1210 1352 1409 1435 1450 1468 1536 1651 1720 1697 1631 1515 1421 1452 1621 631 10 1049 0977 0835 0678 0542 0482 0449 0468 0540 0558 0594 0955 1954 3117 3576 3532 3382 3137 2809 2556 2615 3211 3958 4412 4619 4704 4753 4837 4949 5010 4991 4925 4817 4728 4740 4900 632 11 1273 1238 1130 0990 0855 0804 0775 0800 0876 0883 0909 1260 2203 3250 3629 3556 3397 3147 2820 2572 2626 3207 3950 4405 4612 4698 4748 4830 4945 5004 4982 4916 4811 4721 4736 4888 633 12 1580 1568 1509 1406 1289 1250 1240 1272 1346 1341 1348 1671 2528 3443 3740 3637 3464 3206 2875 2624 2674 3244 3979 4425 4629 4712 4761 4843 4957 5016 4991 4926 4821 4725 4742 4898 634 13 1887 1943 1933 1881 1790 1775 1786 1831 1897 1874 1858 2137 2872 3618 3818 3686 3500 3238 2908 2665 2708 3259 3986 4438 4646 4732 4782 4864 4976 5034 5013 4946 4843 4751 4767 4921 635 14 2263 2373 2434 2434 2379 2390 2438 2494 2554 2512 2473 2700 3297 3853 3940 3768 3567 3295 2965 2726 2759 3291 4002 4446 4648 4733 4781 4861 4975 5031 5009 4943 4837 4749 4760 4921 636 15 2612 2782 2915 2993 2986 3039 3128 3204 3245 3178 3106 3254 3678 4038 4025 3819 3604 3328 2997 2761 2792 3309 4020 4470 4679 4767 4818 4900 5010 5067 5043 4980 4873 4782 4798 4956 637 16 2972 3238 3449 3604 3646 3757 3897 3995 4017 3924 3816 3871 4106 4257 4140 3903 3680 3399 3069 2839 2865 3371 4083 4533 4744 4832 4880 4962 5071 5126 5102 5039 4936 4844 4859 5013 638 17 3342 3700 3995 4239 4345 4514 4715 4836 4836 4713 4564 4513 4543 4481 4265 3997 3759 3473 3143 2917 2937 3420 4111 4554 4761 4844 4895 4977 5086 5143 5120 5056 4951 4864 4877 5029 639 18 3710 4107 4504 4844 5027 5262 5537 5692 5660 5507 5316 5139 4946 4688 4389 4097 3853 3561 3233 3013 3023 3482 4158 4595 4803 4889 4939 5017 5127 5182 5158 5094 4991 4903 4915 5071 640 19 1508 1259 0978 0734 0565 0493 0439 0453 0530 0549 0591 0976 2062 3409 4085 4245 4308 4272 4113 3966 4225 5377 6863 7874 8364 8562 8653 8713 8756 8761 8760 8746 8739 8749 8744 8775 641 20 1844 1635 1369 1128 0957 0877 0823 0837 0915 0927 0960 1342 2384 3628 4230 4363 4415 4376 4222 4084 4335 5462 6928 7927 8408 8604 8697 8754 8794 8797 8795 8785 8784 8793 8787 8815 642 21 2281 2088 1842 1627 1473 1394 1349 1361 1431 1425 1440 1787 2719 3797 4294 4391 4429 4385 4232 4102 4349 5460 6942 7961 8450 8648 8742 8799 8839 8844 8842 8835 8832 8840 8834 8860 643 22 2753 2605 2388 2208 2065 2006 1970 1981 2040 2013 2003 2297 3090 3971 4351 4407 4432 4383 4235 4115 4349 5435 6918 7951 8453 8656 8751 8806 8846 8851 8848 8835 8833 8846 8839 8862 644 23 3308 3219 3046 2901 2788 2751 2730 2740 2785 2737 2702 2940 3592 4281 4554 4578 4590 4539 4400 4294 4512 5536 6974 7994 8493 8698 8793 8850 8886 8888 8886 8878 8877 8890 8882 8903 645 24 3929 3878 3755 3661 3587 3577 3581 3597 3619 3546 3481 3642 4122 4608 4771 4759 4760 4705 4568 4471 4685 5675 7074 8067 8553 8751 8842 8898 8934 8935 8932 8923 8926 8936 8930 8952 646 25 4448 4465 4400 4359 4338 4361 4395 4414 4410 4308 4207 4278 4564 4834 4886 4842 4829 4768 4638 4554 4754 5709 7093 8083 8572 8768 8861 8915 8951 8950 8946 8940 8942 8955 8950 8967 647 26 5009 5096 5078 5117 5144 5218 5293 5316 5280 5141 5002 4962 5024 5054 4983 4902 4877 4809 4681 4606 4802 5745 7130 8126 8617 8818 8906 8962 8995 8991 8992 8984 8991 9003 8997 9016 648 27 5509 5670 5731 5836 5928 6055 6167 6195 6121 5956 5781 5629 5479 5315 5165 5061 5028 4961 4840 4779 4957 5843 7175 8144 8629 8829 8918 8974 9007 9006 9005 8996 9001 9017 9013 9028 649 1 0562 0694 0731 0675 0574 0529 0516 0545 0635 0659 0704 1101 2166 3306 3572 3245 2776 2231 1685 1314 1184 1261 1341 1355 1363 1371 1387 1455 1569 1640 1619 1552 1440 1350 1376 1553 650 2 0682 0861 0962 0942 0860 0833 0837 0886 0985 1006 1043 1438 2452 3478 3666 3312 2831 2280 1728 1355 1223 1294 1372 1386 1393 1402 1418 1486 1600 1672 1649 1584 1470 1380 1409 1580 651 3 0870 1083 1266 1313 1250 1256 1294 1369 1474 1490 1512 1877 2793 3675 3785 3406 2920 2366 1814 1440 1307 1381 1469 1489 1500 1508 1525 1593 1709 1780 1757 1690 1577 1484 1516 1684 652 4 1005 1302 1561 1690 1655 1702 1784 1887 1997 2004 2009 2333 3127 3835 3846 3435 2935 2375 1820 1446 1311 1379 1463 1480 1491 1500 1517 1585 1699 1771 1748 1679 1566 1472 1502 1677 653 5 1170 1542 1926 2152 2182 2280 2430 2581 2696 2693 2674 2939 3568 4051 3933 3470 2944 2366 1800 1424 1281 1336 1411 1428 1437 1445 1461 1530 1642 1715 1692 1625 1509 1420 1447 1619 654 6 1374 1824 2331 2671 2764 2934 3168 3370 3483 3462 3410 3585 4011 4267 4033 3531 2990 2403 1831 1453 1306 1355 1431 1447 1458 1466 1485 1552 1666 1737 1715 1646 1531 1440 1468 1640 655 7 1520 2064 2656 3102 3254 3492 3808 4056 4164 4127 4045 4130 4367 4418 4088 3560 3011 2423 1853 1478 1332 1382 1459 1478 1490 1499 1516 1585 1696 1767 1744 1674 1560 1470 1500 1670 656 8 1696 2327 3056 3627 3861 4181 4603 4918 5024 4973 4861 4838 4859 4690 4250 3680 3105 2494 1907 1520 1364 1401 1468 1480 1491 1499 1516 1584 1698 1770 1747 1677 1563 1469 1498 1673 657 9 1839 2550 3392 4101 4433 4849 5394 5782 5872 5801 5648 5480 5244 4858 4330 3731 3143 2523 1930 1539 1378 1406 1466 1476 1484 1493 1510 1578 1690 1762 1739 1670 1555 1462 1491 1664 658 10 1150 1050 0900 0721 0565 0498 0459 0477 0564 0591 0640 1061 2246 3691 4330 4328 4166 3893 3525 3235 3263 3772 4337 4650 4795 4856 4898 4975 5086 5144 5125 5061 4956 4867 4878 5034 659 11 1412 1345 1236 1072 0929 0860 0829 0852 0945 0966 1010 1428 2562 3892 4447 4413 4238 3957 3591 3306 3325 3811 4360 4669 4811 4870 4911 4991 5098 5157 5136 5071 4966 4879 4891 5040 660 12 1700 1708 1631 1518 1389 1338 1319 1357 1447 1459 1488 1878 2918 4093 4550 4479 4287 3995 3624 3339 3350 3814 4348 4649 4788 4846 4888 4964 5074 5132 5109 5043 4942 4850 4866 5019 661 13 2077 2155 2148 2095 1988 1964 1971 2022 2113 2112 2123 2471 3376 4349 4677 4560 4349 4048 3675 3392 3393 3837 4367 4667 4805 4865 4906 4984 5091 5148 5122 5059 4955 4867 4879 5032 662 14 2478 2634 2715 2719 2652 2663 2708 2777 2866 2852 2842 3137 3887 4631 4823 4658 4419 4105 3729 3450 3437 3841 4339 4628 4764 4820 4862 4941 5052 5106 5084 5020 4915 4829 4841 4995 663 15 2888 3114 3281 3370 3360 3417 3508 3603 3680 3647 3609 3823 4375 4882 4942 4729 4477 4153 3777 3502 3483 3874 4366 4656 4792 4847 4886 4963 5070 5124 5102 5037 4935 4849 4862 5015 664 16 3305 3615 3882 4069 4117 4233 4383 4507 4569 4518 4449 4566 4903 5158 5085 4830 4560 4226 3843 3569 3541 3916 4405 4691 4824 4881 4921 4997 5105 5161 5135 5070 4969 4879 4894 5042 665 17 3762 4164 4528 4813 4931 5109 5325 5478 5527 5453 5351 5357 5462 5469 5277 4988 4706 4370 3991 3726 3692 4041 4511 4790 4924 4979 5019 5095 5201 5254 5231 5168 5064 4977 4989 5137 666 18 4122 4596 5071 5471 5669 5926 6223 6411 6427 6323 6180 6045 5879 5640 5340 5020 4727 4389 4013 3754 3712 4044 4513 4798 4934 4991 5032 5108 5213 5266 5242 5177 5075 4988 4999 5150 667 19 1628 1366 1065 0798 0611 0514 0462 0476 0567 0599 0655 1117 2447 4180 5134 5404 5511 5502 5353 5205 5458 6447 7527 8195 8511 8640 8709 8757 8791 8795 8790 8780 8781 8788 8780 8809 668 20 2047 1800 1521 1255 1065 0967 0910 0924 1020 1045 1095 1556 2831 4434 5293 5528 5622 5607 5466 5328 5567 6522 7582 8243 8559 8686 8755 8800 8834 8835 8831 8817 8818 8830 8822 8847 669 21 2497 2320 2061 1823 1639 1551 1495 1508 1604 1618 1655 2085 3251 4671 5410 5602 5680 5659 5520 5392 5621 6546 7605 8273 8590 8720 8789 8835 8867 8870 8865 8853 8852 8862 8860 8879 670 22 3095 2959 2745 2537 2381 2308 2261 2277 2361 2362 2380 2761 3773 4966 5563 5707 5765 5738 5604 5491 5702 6582 7624 8295 8619 8753 8824 8871 8905 8903 8896 8886 8886 8895 8890 8910 671 23 3682 3614 3442 3282 3154 3101 3067 3086 3162 3145 3141 3464 4302 5234 5663 5749 5784 5748 5618 5517 5714 6569 7630 8329 8666 8799 8866 8912 8942 8942 8938 8929 8934 8948 8940 8961 672 24 4307 4311 4192 4107 4029 4008 4006 4029 4083 4044 4013 4246 4860 5514 5792 5824 5842 5799 5678 5590 5774 6595 7652 8363 8708 8848 8920 8965 8997 8993 8988 8979 8980 8995 8984 9005 673 25 4961 5039 5005 4977 4952 4974 4999 5034 5068 5006 4949 5085 5480 5877 6018 6010 6011 5965 5848 5776 5943 6703 7713 8399 8733 8868 8939 8982 9011 9009 9004 8993 8996 9009 9004 9022 674 26 5566 5709 5746 5794 5830 5904 5969 6010 6017 5931 5844 5873 6031 6166 6167 6115 6100 6046 5933 5875 6031 6766 7767 8453 8789 8923 8991 9031 9062 9056 9053 9045 9050 9067 9059 9075 675 27 6144 6368 6489 6629 6744 6872 6981 7033 7005 6891 6771 6666 6557 6437 6323 6236 6210 6153 6046 5996 6140 6832 7804 8479 8810 8944 9011 9053 9078 9072 9072 9063 9070 9085 9077 9092 676 1 0599 0724 0773 0704 0588 0536 0515 0547 0651 0691 0752 1220 2489 3913 4311 3944 3374 2715 2060 1607 1418 1413 1402 1364 1353 1355 1371 1436 1551 1623 1601 1535 1423 1333 1362 1534 677 2 0733 0910 1025 1004 0904 0871 0865 0919 1037 1075 1136 1607 2830 4126 4433 4029 3441 2772 2109 1652 1457 1445 1429 1389 1377 1379 1394 1462 1575 1649 1626 1558 1446 1355 1383 1555 678 3 0930 1170 1358 1408 1337 1335 1369 1454 1581 1620 1668 2113 3230 4360 4570 4139 3548 2878 2216 1759 1563 1553 1541 1504 1495 1496 1512 1581 1695 1769 1745 1676 1561 1469 1499 1669 679 4 1068 1413 1695 1836 1806 1840 1926 2045 2187 2221 2257 2663 3646 4577 4669 4196 3582 2900 2231 1771 1567 1550 1534 1496 1486 1488 1504 1574 1687 1760 1738 1669 1554 1461 1487 1662 680 5 1259 1673 2084 2333 2357 2451 2606 2776 2929 2962 2981 3335 4152 4840 4786 4256 3613 2914 2235 1769 1560 1532 1511 1473 1463 1465 1481 1548 1661 1734 1712 1643 1528 1436 1467 1640 681 6 1506 2002 2574 2953 3055 3239 3493 3730 3891 3916 3909 4169 4743 5132 4918 4333 3668 2952 2262 1793 1578 1542 1518 1479 1470 1472 1487 1555 1670 1741 1717 1648 1533 1443 1470 1644 682 7 1680 2292 2988 3512 3695 3963 4328 4631 4799 4815 4782 4933 5265 5380 5029 4398 3711 2986 2289 1817 1598 1555 1527 1488 1478 1481 1496 1564 1676 1749 1726 1656 1539 1448 1480 1652 683 8 1857 2533 3362 4014 4274 4629 5105 5476 5643 5652 5592 5633 5723 5592 5121 4450 3749 3012 2309 1833 1608 1557 1526 1485 1475 1478 1494 1562 1677 1748 1724 1652 1537 1444 1476 1647 684 9 2038 2836 3804 4617 4986 5455 6073 6541 6705 6711 6620 6503 6297 5901 5318 4605 3875 3116 2395 1907 1671 1605 1562 1517 1504 1508 1523 1592 1707 1779 1755 1684 1567 1476 1504 1681 685 10 1254 1144 0978 0772 0603 0519 0474 0495 0596 0636 0701 1200 2633 4465 5356 5417 5237 4915 4491 4151 4128 4473 4750 4858 4911 4939 4968 5042 5149 5206 5184 5120 5014 4925 4940 5094 686 11 1520 1484 1347 1168 1002 0924 0878 0910 1021 1058 1121 1623 3004 4695 5478 5492 5290 4958 4534 4197 4160 4481 4746 4855 4907 4934 4963 5035 5142 5198 5174 5107 5005 4918 4931 5082 687 12 1875 1900 1831 1708 1558 1497 1473 1518 1633 1665 1719 2195 3464 4963 5618 5583 5359 5014 4586 4250 4201 4498 4752 4855 4905 4933 4963 5033 5138 5193 5169 5106 5004 4916 4925 5078 688 13 2302 2400 2422 2352 2237 2205 2208 2268 2390 2420 2462 2902 4029 5291 5786 5688 5430 5065 4625 4288 4220 4476 4702 4793 4840 4865 4894 4967 5074 5129 5104 5039 4933 4842 4855 5010 689 14 2739 2939 3068 3086 3015 3020 3066 3155 3282 3304 3331 3718 4663 5644 5957 5785 5490 5102 4654 4315 4229 4442 4643 4724 4766 4790 4817 4888 4994 5049 5023 4957 4851 4761 4773 4929 690 15 3247 3527 3754 3861 3849 3905 4000 4115 4240 4251 4262 4570 5298 6002 6161 5941 5633 5244 4801 4471 4378 4573 4772 4860 4904 4927 4954 5025 5129 5182 5158 5091 4990 4900 4913 5068 691 16 3698 4097 4424 4652 4708 4831 4994 5149 5263 5266 5254 5459 5938 6347 6349 6075 5747 5347 4901 4575 4470 4643 4829 4915 4960 4983 5013 5084 5187 5240 5215 5149 5049 4960 4973 5127 692 17 4172 4675 5124 5465 5605 5798 6039 6233 6342 6333 6296 6380 6586 6681 6522 6199 5850 5443 4995 4674 4554 4694 4869 4948 4994 5018 5045 5117 5221 5272 5245 5179 5076 4987 5003 5155 693 18 4637 5243 5835 6317 6563 6843 7178 7424 7516 7496 7433 7366 7254 7048 6753 6385 6018 5601 5151 4830 4694 4798 4936 4999 5036 5058 5087 5157 5260 5310 5283 5221 5117 5028 5040 5191 694 19 1751 1472 1155 0863 0649 0546 0485 0500 0605 0647 0717 1250 2811 4930 6180 6579 6738 6761 6635 6498 6729 7504 8148 8480 8638 8707 8757 8794 8825 8826 8818 8805 8806 8815 8810 8835 695 20 2164 1929 1626 1335 1123 1016 0949 0968 1080 1119 1185 1721 3226 5206 6352 6709 6852 6872 6751 6624 6840 7578 8204 8532 8688 8755 8802 8839 8871 8867 8860 8850 8849 8858 8854 8871 696 21 2726 2538 2255 1998 1794 1691 1625 1644 1759 1793 1854 2372 3786 5594 6621 6934 7058 7073 6960 6845 7042 7724 8300 8605 8750 8812 8858 8894 8920 8916 8909 8897 8900 8909 8901 8921 697 22 3362 3234 3020 2802 2626 2535 2479 2498 2612 2638 2689 3160 4408 5946 6795 7043 7144 7148 7040 6941 7119 7750 8321 8634 8784 8849 8893 8929 8955 8949 8944 8931 8934 8947 8935 8957 698 23 4075 4045 3876 3709 3560 3493 3445 3475 3587 3608 3646 4069 5139 6387 7045 7225 7298 7294 7193 7110 7266 7840 8384 8693 8843 8907 8951 8985 9010 9003 8996 8986 8989 9003 8991 9009 699 24 4839 4900 4810 4720 4628 4603 4582 4621 4723 4731 4755 5085 5906 6831 7297 7409 7458 7443 7351 7285 7419 7934 8447 8748 8895 8955 8998 9033 9057 9049 9044 9032 9036 9051 9042 9058 700 25 5548 5694 5688 5680 5657 5673 5692 5737 5822 5817 5817 6049 6604 7195 7477 7527 7550 7526 7440 7388 7501 7974 8481 8788 8943 9006 9047 9081 9103 9095 9092 9079 9084 9096 9089 9108 701 26 6228 6474 6567 6645 6683 6755 6812 6877 6943 6925 6909 7027 7307 7574 7678 7670 7674 7644 7563 7528 7626 8048 8532 8836 8988 9050 9090 9123 9144 9134 9129 9118 9124 9140 9131 9143 702 27 6886 7222 7423 7605 7741 7875 7994 8070 8102 8069 8028 7996 7955 7900 7851 7796 7783 7746 7672 7650 7727 8107 8568 8865 9015 9075 9118 9148 9168 9158 9155 9143 9149 9167 9158 9175 703 21 0610 0746 0797 0724 0598 0546 0517 0554 0665 0711 0784 1300 2726 4390 4913 4522 3866 3113 2376 1861 1614 1530 1443 1372 1349 1349 1363 1431 1543 1617 1594 1528 1415 1327 1355 1527 704 22 0770 0956 1068 1046 0939 0900 0892 0949 1080 1131 1204 1730 3111 4637 5062 4634 3964 3204 2459 1939 1686 1594 1503 1429 1407 1406 1420 1487 1602 1675 1654 1586 1471 1379 1410 1581 705 23 0982 1220 1433 1479 1406 1401 1443 1535 1679 1732 1800 2301 3569 4912 5228 4767 4090 3328 2585 2064 1806 1710 1618 1544 1522 1520 1535 1605 1719 1791 1769 1699 1583 1492 1520 1695 706 24 1144 1489 1797 1941 1906 1948 2037 2166 2329 2386 2446 2916 4052 5179 5358 4845 4141 3365 2612 2086 1821 1716 1618 1543 1521 1520 1535 1604 1718 1792 1768 1697 1582 1489 1521 1692 707 25 1346 1777 2211 2479 2499 2599 2767 2950 3133 3195 3248 3669 4627 5478 5485 4903 4165 3370 2607 2079 1807 1690 1590 1514 1493 1491 1505 1572 1685 1756 1732 1663 1550 1458 1488 1661 708 26 1583 2121 2720 3144 3246 3437 3705 3970 4164 4230 4264 4592 5297 5822 5650 5004 4239 3424 2645 2108 1824 1696 1589 1511 1490 1489 1503 1570 1684 1756 1731 1663 1546 1455 1484 1655 709 27 1802 2465 3227 3805 4007 4290 4688 5033 5245 5314 5329 5546 5971 6166 5818 5113 4316 3483 2694 2151 1858 1719 1608 1529 1507 1506 1521 1590 1704 1775 1751 1681 1565 1472 1506 1675 710 28 2013 2760 3663 4402 4695 5088 5617 6053 6278 6346 6339 6430 6561 6445 5946 5187 4367 3519 2719 2170 1872 1724 1609 1530 1509 1509 1522 1591 1704 1776 1751 1681 1567 1473 1504 1677 711 29 2171 3011 4046 4933 5329 5833 6506 7030 7256 7319 7284 7214 7035 6646 6035 5245 4411 3556 2754 2204 1901 1748 1631 1552 1531 1530 1545 1613 1727 1798 1771 1702 1586 1495 1526 1698 712 210 1276 1181 1012 0798 0616 0529 0481 0505 0613 0659 0736 1283 2892 5025 6132 6244 6035 5670 5205 4826 4734 4878 4895 4855 4850 4856 4880 4950 5059 5114 5090 5025 4922 4834 4848 4996 713 211 1601 1567 1433 1244 1064 0978 0933 0965 1090 1138 1215 1776 3339 5333 6331 6401 6179 5812 5353 4983 4880 5006 5013 4970 4966 4972 4995 5064 5168 5222 5198 5134 5035 4946 4958 5109 714 212 1965 1997 1945 1815 1660 1593 1568 1617 1749 1801 1872 2411 3857 5631 6471 6470 6209 5819 5345 4969 4844 4928 4917 4869 4862 4865 4888 4959 5064 5119 5093 5026 4921 4833 4847 4996 715 213 2396 2496 2539 2483 2364 2328 2329 2399 2542 2596 2663 3172 4470 5984 6640 6556 6250 5828 5336 4955 4803 4838 4803 4747 4736 4738 4756 4829 4934 4991 4964 4897 4791 4700 4715 4875 716 214 2895 3117 3256 3293 3209 3214 3255 3355 3510 3565 3627 4096 5221 6434 6889 6732 6396 5961 5470 5096 4924 4921 4867 4805 4793 4796 4818 4887 4992 5048 5022 4955 4847 4757 4772 4922 717 215 3449 3793 4052 4188 4175 4234 4335 4468 4627 4684 4735 5119 5997 6883 7154 6939 6583 6142 5658 5293 5108 5075 5009 4944 4933 4934 4955 5024 5129 5179 5153 5087 4983 4896 4909 5060 718 216 3953 4385 4779 5031 5094 5224 5395 5573 5734 5787 5827 6114 6729 7288 7374 7096 6713 6259 5772 5410 5209 5141 5056 4991 4978 4978 4999 5069 5172 5221 5194 5129 5028 4938 4955 5106 719 217 4516 5090 5626 6024 6181 6388 6651 6883 7046 7098 7123 7277 7563 7738 7625 7284 6879 6419 5936 5582 5365 5265 5170 5101 5086 5089 5109 5178 5279 5330 5301 5235 5134 5044 5059 5208 720 218 4971 5652 6308 6855 7116 7423 7788 8073 8219 8269 8276 8270 8210 8049 7784 7391 6969 6503 6018 5668 5441 5315 5207 5135 5121 5122 5140 5212 5311 5359 5330 5267 5164 5079 5092 5240 721 219 1823 1549 1206 0898 0676 0570 0503 0520 0634 0683 0761 1343 3073 5514 7048 7580 7797 7859 7772 7654 7845 8363 8598 8668 8717 8746 8777 8811 8839 8837 8832 8818 8820 8830 8820 8843 722 220 2275 2028 1716 1409 1183 1067 0995 1013 1137 1188 1267 1860 3548 5851 7268 7752 7949 8005 7921 7819 7993 8459 8667 8732 8779 8803 8834 8866 8891 8885 8883 8870 8872 8881 8871 8894 723 221 2864 2672 2400 2124 1908 1799 1724 1747 1877 1926 2004 2581 4160 6247 7507 7929 8101 8152 8072 7984 8136 8545 8725 8782 8831 8855 8887 8917 8941 8937 8931 8917 8917 8931 8924 8940 724 222 3543 3449 3224 2998 2809 2714 2641 2668 2803 2849 2923 3465 4892 6712 7787 8137 8281 8319 8254 8183 8307 8645 8795 8843 8884 8907 8938 8969 8991 8985 8979 8968 8970 8985 8971 8986 725 223 4349 4335 4182 4006 3851 3771 3718 3751 3890 3939 4010 4508 5747 7244 8098 8369 8480 8510 8454 8406 8497 8758 8867 8906 8943 8966 8993 9021 9040 9030 9024 9015 9018 9031 9018 9036 726 224 5169 5261 5201 5105 5008 4976 4949 4994 5127 5176 5239 5652 6629 7762 8394 8586 8667 8685 8639 8611 8673 8859 8932 8965 9001 9023 9051 9076 9094 9084 9077 9064 9071 9089 9076 9092 727 225 5962 6152 6187 6194 6169 6181 6189 6254 6379 6423 6482 6792 7483 8255 8676 8793 8846 8856 8820 8812 8844 8962 9002 9025 9061 9080 9109 9134 9152 9144 9132 9126 9129 9142 9132 9143 728 226 6736 7038 7172 7284 7333 7397 7453 7533 7649 7693 7744 7944 8333 8725 8939 8986 9013 9014 8984 8994 9001 9052 9063 9079 9111 9130 9155 9179 9198 9186 9178 9170 9175 9192 9180 9195 729 227 7438 7890 8132 8358 8505 8644 8754 8850 8941 8979 9014 9055 9086 9112 9142 9128 9134 9129 9109 9130 9112 9113 9105 9118 9146 9162 9187 9211 9229 9217 9209 9202 9207 9226 9213 9225 730 21 7470 7889 8135 8361 8512 8650 8759 8858 8946 8983 9019 9060 9092 9115 9146 9135 9140 9134 9112 9135 9117 9117 9106 9119 9149 9166 9192 9214 9232 9221 9213 9203 9210 9226 9216 9228 731 22 6707 7233 7627 7951 8141 8332 8517 8667 8772 8812 8841 8867 8869 8840 8789 8664 8533 8370 8182 8062 7955 7896 7840 7812 7821 7830 7855 7902 7956 7971 7956 7922 7880 7852 7849 7925 732 23 5864 6490 7024 7457 7685 7932 8206 8423 8549 8592 8611 8622 8596 8503 8346 8093 7816 7500 7157 6911 6734 6637 6550 6499 6494 6501 6524 6583 6664 6697 6675 6623 6545 6481 6483 6605 733 24 4988 5671 6336 6880 7145 7455 7814 8097 8243 8289 8297 8286 8224 8065 7802 7417 6997 6531 6047 5698 5466 5339 5230 5160 5145 5145 5166 5236 5336 5386 5362 5293 5190 5102 5119 5270 734 25 3991 4762 5568 6240 6556 6932 7397 7765 7934 7986 7977 7947 7845 7607 7220 6687 6113 5491 4865 4416 4135 3982 3859 3775 3751 3749 3766 3842 3958 4021 3993 3917 3795 3694 3714 3888 735 26 3104 3911 4840 5618 5973 6410 6978 7423 7619 7677 7651 7598 7454 7140 6645 5985 5283 4541 3823 3315 3019 2862 2739 2654 2630 2625 2641 2715 2834 2903 2873 2799 2676 2575 2599 2775 736 27 2152 3015 4053 4941 5344 5851 6524 7054 7277 7343 7308 7234 7051 6661 6046 5253 4417 3557 2749 2195 1890 1734 1617 1538 1516 1515 1531 1600 1713 1784 1759 1687 1574 1479 1511 1682 737 28 1450 2288 3394 4361 4801 5357 6119 6722 6970 7039 6990 6892 6669 6214 5509 4618 3695 2771 1934 1385 1104 0968 0870 0807 0791 0792 0803 0860 0957 1022 1001 0942 0848 0778 0808 0953 738 29 0827 1627 2781 3808 4271 4876 5717 6387 6654 6731 6670 6557 6298 5781 4995 4022 3033 2069 1229 0708 0462 0353 0282 0239 0231 0234 0243 0285 0361 0414 0401 0358 0287 0243 0272 0395 739 210 7474 7897 8154 8372 8527 8666 8775 8875 8967 9003 9039 9083 9114 9136 9167 9157 9163 9156 9136 9157 9142 9139 9128 9138 9171 9187 9213 9238 9254 9240 9235 9227 9230 9250 9241 9253 740 211 6228 6683 7000 7282 7448 7632 7810 7933 7981 7950 7903 7859 7798 7701 7585 7437 7314 7154 6946 6809 6801 7076 7420 7626 7734 7778 7818 7869 7926 7943 7928 7897 7855 7825 7825 7897 741 212 4866 5283 5630 5951 6124 6332 6566 6705 6705 6602 6470 6347 6201 6005 5774 5535 5331 5081 4785 4581 4585 5014 5627 6022 6216 6296 6348 6420 6508 6548 6528 6475 6398 6331 6338 6459 742 213 3686 4103 4499 4848 5030 5270 5548 5701 5663 5506 5313 5131 4929 4667 4366 4075 3829 3535 3204 2980 2987 3444 4120 4555 4761 4846 4896 4980 5091 5149 5124 5058 4953 4862 4877 5036 743 214 2525 2932 3338 3687 3875 4128 4435 4585 4509 4297 4050 3818 3573 3273 2939 2641 2396 2112 1809 1617 1643 2083 2751 3183 3381 3463 3509 3596 3717 3787 3762 3693 3574 3470 3490 3664 744 215 1671 2046 2471 2826 3003 3263 3575 3722 3617 3373 3094 2837 2577 2268 1942 1670 1455 1215 0970 0834 0866 1216 1773 2128 2286 2351 2390 2467 2588 2661 2639 2570 2448 2348 2375 2546 745 216 1082 1440 1866 2219 2403 2655 2972 3116 2995 2733 2441 2174 1910 1612 1306 1065 0884 0686 0501 0413 0443 0683 1063 1287 1382 1420 1447 1515 1627 1699 1679 1613 1502 1411 1437 1606 746 217 0653 0995 1389 1723 1890 2132 2433 2557 2416 2140 1838 1568 1312 1037 0775 0590 0466 0334 0224 0191 0229 0384 0605 0716 0754 0768 0780 0832 0926 0990 0971 0917 0824 0751 0777 0921 747 218 0419 0738 1125 1451 1607 1849 2141 2260 2115 1838 1538 1273 1028 0774 0542 0392 0300 0207 0138 0133 0171 0257 0331 0332 0320 0311 0310 0342 0410 0460 0446 0404 0337 0290 0313 0420 748 219 7414 7849 8109 8336 8487 8624 8740 8836 8931 8973 9010 9054 9089 9111 9146 9136 9142 9135 9115 9139 9124 9122 9109 9119 9150 9169 9193 9219 9231 9220 9212 9203 9212 9228 9213 9227 749 220 6898 7240 7439 7621 7760 7896 8015 8088 8131 8098 8062 8031 7992 7941 7894 7844 7828 7794 7722 7699 7774 8143 8590 8880 9030 9093 9132 9164 9183 9173 9170 9161 9166 9180 9167 9183 750 221 6177 6410 6536 6680 6796 6929 7039 7093 7069 6962 6849 6747 6642 6520 6413 6327 6302 6245 6141 6092 6229 6901 7849 8509 8835 8969 9036 9079 9105 9099 9097 9090 9096 9111 9102 9118 751 222 5505 5664 5728 5837 5941 6068 6183 6213 6142 5977 5802 5647 5496 5330 5177 5071 5036 4968 4847 4783 4961 5848 7188 8169 8656 8855 8947 8999 9031 9034 9036 9026 9032 9044 9037 9056 752 223 4668 4707 4700 4768 4850 4969 5086 5092 4963 4730 4492 4280 4080 3870 3680 3562 3523 3450 3321 3255 3466 4552 6339 7709 8402 8688 8815 8882 8924 8928 8929 8926 8931 8941 8939 8959 753 224 3922 3903 3835 3871 3938 4058 4174 4161 3993 3717 3438 3195 2975 2750 2550 2434 2397 2329 2215 2162 2375 3539 5626 7309 8184 8547 8702 8787 8836 8844 8848 8844 8843 8857 8854 8881 754 225 3263 3160 3061 3065 3124 3246 3364 3337 3135 2824 2518 2255 2025 1795 1602 1497 1468 1411 1321 1291 1494 2677 5003 6968 8010 8448 8632 8725 8783 8798 8806 8799 8802 8812 8812 8842 755 226 2661 2484 2345 2332 2388 2501 2619 2584 2358 2028 1710 1442 1211 0992 0812 0728 0706 0663 0599 0591 0770 1915 4398 6598 7789 8296 8505 8608 8674 8695 8702 8700 8699 8711 8706 8746 756 227 2241 2020 1869 1844 1889 2003 2121 2079 1841 1507 1188 0924 0704 0505 0351 0284 0272 0243 0209 0226 0372 1437 3986 6339 7640 8194 8425 8536 8608 8630 8639 8639 8640 8645 8647 8687 757 21 6206 6441 6526 6600 6638 6703 6759 6823 6895 6880 6869 7001 7297 7583 7699 7695 7698 7668 7589 7551 7645 8053 8520 8816 8971 9036 9077 9110 9131 9122 9117 9109 9111 9132 9121 9136 758 22 5649 5977 6197 6352 6421 6524 6638 6738 6815 6801 6785 6897 7168 7404 7443 7343 7237 7082 6870 6724 6727 7025 7375 7585 7693 7742 7783 7832 7893 7914 7896 7863 7820 7789 7793 7867 759 23 4944 5362 5693 5951 6053 6202 6374 6522 6616 6605 6584 6687 6927 7100 7047 6840 6615 6331 5996 5754 5685 5897 6147 6285 6357 6391 6424 6487 6575 6611 6591 6540 6458 6389 6405 6525 760 24 4213 4720 5174 5518 5661 5851 6088 6286 6393 6389 6358 6447 6657 6766 6619 6299 5950 5544 5097 4772 4643 4773 4935 5008 5049 5071 5100 5172 5276 5330 5304 5238 5135 5047 5062 5216 761 25 3405 3998 4586 5046 5223 5474 5791 6044 6172 6172 6131 6204 6374 6402 6143 5701 5224 4688 4131 3733 3556 3605 3682 3700 3716 3728 3750 3827 3944 4008 3980 3909 3787 3682 3705 3880 762 26 2641 3297 3996 4554 4771 5068 5467 5779 5923 5929 5879 5937 6073 6030 5668 5110 4518 3875 3233 2785 2575 2569 2584 2566 2566 2572 2593 2667 2788 2857 2827 2753 2631 2527 2554 2731 763 27 1896 2582 3401 4055 4311 4665 5140 5512 5683 5692 5638 5682 5781 5659 5193 4525 3823 3086 2379 1901 1672 1620 1588 1546 1535 1537 1554 1622 1736 1807 1782 1713 1598 1505 1535 1708 764 28 1253 1964 2874 3601 3893 4296 4838 5265 5452 5470 5405 5430 5487 5294 4743 3986 3203 2405 1674 1200 0981 0912 0862 0817 0805 0806 0818 0875 0973 1037 1018 0959 0861 0791 0825 0968 765 29 0730 1444 2391 3195 3527 3976 4589 5077 5285 5308 5236 5241 5250 4983 4346 3508 2657 1815 1077 0627 0429 0353 0297 0257 0247 0247 0256 0296 0372 0426 0412 0367 0300 0252 0283 0398 766 210 6687 6990 7125 7225 7275 7334 7387 7464 7580 7621 7673 7878 8287 8702 8926 8973 9000 9000 8968 8973 8983 9043 9063 9082 9113 9130 9155 9180 9198 9186 9180 9170 9174 9191 9177 9196 767 211 5623 5950 6154 6307 6383 6481 6590 6688 6766 6753 6732 6846 7117 7353 7391 7291 7184 7029 6815 6667 6676 6994 7359 7575 7684 7732 7766 7821 7881 7900 7884 7850 7806 7775 7778 7857 768 212 4376 4723 4974 5182 5270 5411 5570 5684 5719 5640 5546 5568 5703 5765 5646 5439 5245 4996 4693 4476 4492 4956 5580 5975 6165 6244 6294 6367 6458 6496 6477 6425 6344 6274 6284 6413 769 213 3395 3715 4026 4268 4369 4539 4738 4859 4856 4737 4591 4543 4581 4530 4318 4054 3816 3527 3195 2969 2982 3457 4143 4585 4792 4877 4928 5010 5121 5177 5154 5094 4987 4896 4911 5069 770 214 2353 2686 3026 3291 3407 3595 3826 3950 3911 3742 3545 3432 3374 3225 2951 2668 2432 2150 1844 1648 1676 2129 2804 3234 3433 3515 3562 3648 3768 3836 3813 3745 3622 3522 3539 3713 771 215 1598 1908 2259 2540 2665 2862 3106 3227 3160 2962 2735 2579 2462 2264 1975 1709 1496 1253 1003 0859 0892 1253 1814 2168 2327 2392 2431 2509 2630 2704 2680 2609 2490 2387 2413 2588 772 216 1012 1344 1710 1991 2123 2322 2578 2697 2614 2395 2151 1970 1820 1601 1320 1084 0903 0706 0517 0426 0455 0700 1083 1306 1401 1438 1464 1534 1647 1722 1700 1634 1521 1430 1459 1626 773 217 0629 0945 1301 1576 1707 1909 2153 2261 2158 1926 1668 1468 1294 1067 0814 0626 0496 0359 0240 0201 0237 0396 0627 0745 0788 0804 0818 0870 0965 1030 1013 0957 0860 0791 0813 0960 774 218 0395 0709 1058 1327 1461 1652 1896 1997 1885 1650 1390 1186 1006 0788 0563 0411 0314 0219 0146 0137 0173 0260 0339 0340 0327 0320 0320 0353 0424 0475 0461 0418 0348 0296 0323 0434 775 219 6004 6427 6675 6863 6938 7045 7154 7274 7403 7448 7493 7687 8069 8429 8560 8491 8380 8227 8032 7898 7812 7807 7775 7752 7761 7772 7798 7845 7900 7914 7898 7863 7824 7793 7799 7871 776 220 5621 5966 6170 6327 6402 6502 6612 6711 6791 6777 6758 6874 7144 7376 7412 7311 7203 7046 6832 6683 6692 7003 7357 7564 7667 7715 7754 7807 7863 7883 7867 7834 7794 7763 7761 7841 777 221 5063 5294 5443 5562 5629 5727 5835 5906 5928 5850 5763 5795 5950 6063 6017 5894 5798 5650 5441 5296 5374 5957 6748 7271 7524 7626 7683 7745 7811 7833 7822 7786 7743 7709 7707 7791 778 222 4519 4711 4806 4903 4947 5047 5147 5198 5177 5047 4909 4879 4955 4985 4889 4758 4669 4531 4332 4201 4321 5083 6203 6984 7366 7523 7599 7667 7738 7762 7752 7721 7673 7641 7643 7724 779 223 3882 3969 3988 4050 4089 4186 4285 4312 4233 4047 3852 3752 3730 3664 3512 3377 3301 3183 3005 2892 3061 4017 5535 6647 7195 7417 7520 7600 7678 7708 7698 7670 7622 7592 7594 7676 780 224 3300 3312 3291 3321 3356 3452 3555 3563 3445 3220 2990 2843 2759 2641 2467 2339 2278 2180 2032 1949 2125 3151 4931 6309 7004 7289 7416 7505 7590 7621 7615 7583 7541 7503 7508 7599 781 225 2764 2709 2650 2667 2699 2791 2895 2887 2738 2482 2226 2044 1915 1761 1583 1470 1424 1348 1237 1184 1357 2395 4381 5992 6819 7164 7314 7413 7502 7540 7535 7506 7459 7422 7428 7521 782 226 2273 2162 2066 2059 2093 2186 2288 2266 2093 1816 1543 1341 1182 1005 0832 0737 0705 0650 0575 0555 0715 1745 3891 5707 6655 7052 7217 7326 7421 7463 7459 7432 7386 7350 7352 7449 783 227 1921 1770 1650 1631 1663 1757 1855 1829 1640 1355 1080 0871 0702 0526 0375 0301 0283 0249 0210 0219 0352 1306 3523 5485 6529 6967 7153 7269 7369 7411 7409 7384 7338 7298 7305 7403 784 21 4951 5017 4972 4948 4919 4938 4961 4995 5030 4975 4924 5073 5490 5915 6074 6067 6070 6024 5906 5829 5992 6739 7729 8410 8747 8888 8958 9003 9031 9027 9025 9017 9020 9036 9028 9050 785 22 4497 4661 4716 4755 4745 4793 4851 4908 4952 4896 4844 4987 5386 5769 5865 5790 5709 5566 5354 5202 5289 5894 6690 7215 7473 7578 7640 7703 7769 7792 7779 7745 7701 7670 7672 7756 786 23 3942 4179 4354 4456 4474 4554 4655 4743 4797 4744 4685 4820 5199 5531 5555 5394 5217 4980 4678 4457 4478 4959 5591 5988 6179 6260 6310 6382 6473 6517 6497 6445 6367 6302 6313 6440 787 24 3398 3720 3979 4169 4216 4335 4478 4602 4670 4621 4559 4682 5033 5309 5254 5007 4739 4408 4027 3753 3716 4065 4527 4802 4935 4993 5035 5112 5217 5271 5248 5185 5082 4998 5011 5164 788 25 2736 3142 3523 3798 3888 4035 4239 4404 4485 4441 4373 4486 4807 5015 4868 4520 4147 3714 3248 2918 2827 3054 3359 3524 3604 3638 3671 3751 3870 3937 3911 3838 3719 3616 3635 3809 789 26 2156 2639 3138 3503 3625 3819 4081 4288 4381 4345 4272 4371 4652 4789 4554 4115 3651 3133 2606 2242 2116 2246 2426 2510 2551 2572 2595 2671 2789 2860 2834 2761 2638 2536 2562 2740 790 27 1554 2097 2701 3155 3307 3545 3865 4120 4230 4199 4122 4212 4458 4521 4192 3659 3102 2503 1920 1533 1381 1426 1498 1512 1520 1530 1548 1616 1731 1803 1782 1710 1596 1503 1531 1705 791 28 1069 1641 2312 2824 3005 3280 3646 3937 4062 4034 3953 4033 4255 4263 3865 3260 2637 1988 1387 1004 0849 0845 0854 0836 0831 0834 0846 0901 1000 1064 1045 0986 0890 0816 0846 0993 792 29 0609 1207 1948 2530 2751 3061 3486 3822 3965 3947 3865 3932 4114 4047 3566 2886 2198 1505 0894 0528 0382 0343 0310 0275 0263 0263 0269 0309 0384 0437 0423 0380 0309 0259 0290 0409 793 210 5904 6098 6120 6119 6087 6098 6105 6165 6288 6331 6390 6707 7415 8203 8633 8751 8804 8809 8767 8751 8791 8932 8988 9016 9051 9070 9098 9123 9140 9129 9125 9118 9123 9138 9128 9138 794 211 4991 5217 5317 5373 5370 5409 5467 5542 5635 5634 5635 5863 6411 6970 7181 7135 7051 6907 6690 6528 6558 6929 7316 7536 7645 7691 7730 7782 7843 7863 7848 7813 7772 7740 7741 7817 795 212 3894 4154 4316 4427 4443 4525 4628 4714 4771 4718 4658 4791 5170 5502 5523 5358 5181 4940 4634 4412 4439 4936 5576 5973 6162 6243 6292 6364 6455 6496 6480 6427 6348 6278 6286 6408 796 213 3039 3300 3516 3672 3719 3827 3967 4065 4090 3999 3895 3955 4201 4364 4254 4018 3794 3508 3172 2938 2961 3457 4151 4590 4794 4877 4927 5010 5120 5177 5156 5091 4987 4898 4913 5069 797 214 2114 2381 2644 2831 2890 3022 3189 3292 3281 3147 2996 2978 3093 3107 2903 2642 2411 2132 1823 1621 1650 2115 2798 3230 3425 3506 3554 3638 3760 3831 3808 3736 3616 3511 3538 3714 798 215 1435 1724 1999 2206 2291 2430 2616 2716 2680 2522 2343 2275 2299 2220 1980 1725 1513 1269 1016 0867 0897 1263 1825 2178 2333 2395 2434 2515 2636 2709 2686 2614 2493 2392 2422 2594 799 216 0949 1237 1539 1762 1858 2009 2208 2304 2253 2077 1881 1778 1739 1606 1355 1121 0939 0735 0539 0440 0467 0718 1108 1339 1435 1475 1500 1569 1683 1756 1735 1670 1558 1465 1491 1660 800 217 0575 0880 1189 1415 1515 1664 1862 1955 1883 1689 1476 1343 1253 1085 0848 0659 0526 0382 0257 0212 0245 0408 0642 0761 0804 0819 0833 0888 0983 1046 1031 0973 0879 0806 0833 0978 801 218 0385 0661 0971 1204 1298 1461 1655 1743 1659 1458 1239 1090 0975 0801 0587 0433 0335 0236 0157 0144 0179 0269 0345 0346 0333 0326 0325 0359 0432 0483 0470 0427 0354 0304 0328 0446 802 219 4676 5074 5326 5503 5530 5612 5724 5856 6002 6052 6100 6392 7028 7660 7869 7734 7506 7209 6864 6603 6469 6463 6420 6378 6377 6385 6408 6469 6553 6589 6565 6510 6436 6372 6384 6500 803 220 4382 4710 4929 5068 5102 5181 5291 5405 5510 5513 5511 5728 6241 6725 6833 6677 6468 6193 5856 5606 5561 5816 6085 6226 6297 6334 6366 6431 6516 6551 6530 6477 6404 6337 6345 6463 804 221 3960 4236 4399 4513 4530 4616 4716 4803 4858 4806 4748 4880 5255 5587 5611 5448 5273 5034 4732 4513 4536 5014 5632 6014 6198 6275 6321 6393 6482 6524 6504 6452 6374 6308 6316 6433 805 222 3582 3794 3918 4004 4021 4100 4202 4271 4286 4195 4092 4160 4425 4636 4594 4429 4277 4068 3798 3608 3676 4308 5202 5796 6082 6200 6264 6340 6432 6474 6457 6406 6330 6262 6271 6391 806 223 3090 3213 3282 3334 3354 3436 3529 3576 3542 3400 3248 3237 3374 3450 3338 3176 3055 2884 2656 2503 2625 3423 4643 5503 5916 6084 6164 6251 6350 6397 6380 6331 6251 6187 6192 6317 807 224 2657 2709 2743 2773 2788 2869 2961 2990 2918 2741 2556 2490 2534 2518 2375 2229 2135 2001 1822 1711 1849 2715 4171 5253 5782 5996 6098 6192 6294 6346 6328 6279 6201 6132 6143 6271 808 225 2248 2229 2219 2240 2262 2334 2429 2439 2338 2131 1924 1814 1785 1703 1541 1414 1345 1244 1111 1042 1184 2073 3714 4990 5623 5882 5997 6098 6205 6257 6245 6196 6117 6046 6055 6188 809 226 1856 1817 1770 1771 1792 1866 1958 1956 1829 1603 1378 1235 1148 1021 0856 0749 0704 0635 0547 0516 0654 1539 3326 4779 5515 5817 5948 6056 6167 6222 6209 6161 6081 6014 6028 6160 810 227 1586 1505 1436 1431 1451 1532 1617 1605 1463 1225 0992 0833 0717 0567 0414 0331 0302 0258 0211 0212 0331 1163 3019 4588 5394 5726 5870 5982 6099 6156 6146 6097 6019 5951 5960 6097 811 21 3873 3842 3719 3620 3542 3532 3535 3549 3576 3510 3451 3623 4119 4633 4817 4816 4817 4764 4630 4534 4734 5685 7045 8032 8527 8737 8836 8893 8930 8930 8927 8916 8921 8931 8926 8949 812 22 3576 3616 3563 3512 3461 3466 3491 3522 3552 3484 3420 3586 4062 4531 4662 4603 4540 4412 4210 4059 4195 4997 6131 6919 7305 7465 7546 7619 7690 7716 7706 7674 7627 7595 7602 7680 813 23 3137 3278 3326 3332 3293 3329 3379 3433 3472 3406 3342 3503 3961 4388 4456 4328 4191 3989 3718 3520 3597 4251 5162 5767 6058 6178 6240 6321 6417 6464 6444 6393 6314 6252 6255 6381 814 24 2706 2909 3048 3126 3118 3176 3260 3338 3385 3324 3257 3409 3843 4216 4219 4021 3809 3531 3198 2960 2981 3485 4181 4623 4832 4919 4972 5054 5165 5222 5200 5135 5031 4945 4959 5116 815 25 2222 2479 2725 2872 2881 2972 3093 3200 3259 3200 3132 3278 3690 4015 3948 3673 3380 3024 2632 2355 2325 2677 3161 3448 3582 3639 3678 3760 3881 3948 3923 3849 3729 3628 3648 3824 816 26 1773 2105 2441 2657 2701 2819 2985 3119 3185 3132 3060 3197 3582 3846 3702 3351 2981 2555 2111 1811 1744 1976 2287 2456 2532 2566 2595 2671 2792 2864 2838 2764 2644 2541 2565 2745 817 27 1288 1696 2130 2416 2493 2636 2839 3006 3085 3036 2963 3096 3458 3661 3437 3010 2564 2071 1585 1266 1168 1284 1437 1494 1520 1535 1553 1624 1742 1814 1790 1721 1604 1509 1537 1711 818 28 0897 1351 1844 2203 2301 2484 2725 2923 3015 2973 2897 3019 3352 3496 3206 2712 2204 1664 1157 0840 0731 0775 0832 0837 0839 0844 0856 0914 1012 1079 1059 1000 0901 0828 0855 1008 819 29 0552 1030 1600 2016 2151 2358 2646 2874 2977 2939 2860 2972 3266 3343 2982 2425 1863 1285 0770 0468 0357 0346 0331 0300 0287 0285 0291 0332 0409 0464 0449 0406 0331 0280 0309 0430 820 210 5057 5144 5063 4969 4861 4817 4788 4835 4968 5014 5082 5507 6515 7683 8330 8521 8603 8616 8558 8518 8591 8819 8917 8953 8990 9011 9038 9061 9080 9071 9063 9055 9059 9075 9067 9082 821 211 4331 4470 4478 4438 4366 4363 4373 4433 4539 4550 4568 4897 5703 6581 6966 6983 6921 6783 6559 6384 6438 6862 7274 7497 7605 7654 7694 7746 7806 7827 7814 7779 7737 7706 7705 7781 822 212 3411 3595 3667 3682 3644 3671 3728 3794 3864 3834 3802 4033 4632 5220 5376 5256 5100 4867 4558 4328 4367 4892 5539 5936 6124 6202 6249 6322 6414 6456 6437 6386 6306 6237 6245 6370 823 213 2684 2887 3020 3093 3082 3141 3224 3303 3347 3286 3217 3370 3810 4189 4194 3997 3785 3509 3176 2936 2965 3483 4187 4630 4838 4923 4973 5055 5164 5222 5198 5135 5031 4942 4960 5110 824 214 1911 2103 2284 2397 2418 2494 2609 2689 2701 2598 2487 2554 2819 2987 2858 2618 2394 2121 1810 1602 1636 2119 2809 3238 3432 3511 3558 3644 3768 3841 3816 3744 3623 3518 3542 3718 825 215 1297 1535 1757 1911 1937 2042 2177 2258 2247 2124 1986 1991 2137 2174 1985 1743 1534 1290 1033 0880 0909 1280 1844 2195 2349 2410 2447 2527 2649 2723 2701 2628 2508 2408 2431 2611 826 216 0884 1127 1368 1540 1599 1710 1857 1940 1913 1767 1610 1571 1628 1576 1360 1133 0952 0749 0550 0447 0475 0738 1142 1379 1476 1514 1541 1613 1729 1805 1783 1715 1602 1506 1534 1708 827 217 0559 0824 1081 1266 1329 1454 1607 1684 1633 1472 1296 1214 1192 1076 0855 0669 0536 0392 0265 0216 0249 0418 0662 0785 0829 0846 0861 0916 1015 1083 1064 1007 0908 0831 0860 1010 828 218 0362 0624 0891 1083 1149 1281 1437 1512 1454 1282 1099 0999 0942 0805 0602 0446 0347 0244 0162 0145 0178 0269 0347 0346 0333 0326 0327 0362 0434 0489 0475 0430 0357 0304 0328 0448 829 219 3497 3849 4103 4237 4223 4283 4383 4519 4678 4731 4785 5163 6030 6907 7177 6971 6627 6199 5721 5355 5178 5161 5104 5044 5033 5038 5058 5126 5231 5284 5257 5190 5085 5001 5016 5169 830 220 3317 3612 3837 3953 3951 4011 4106 4227 4352 4368 4377 4683 5405 6104 6269 6054 5747 5362 4918 4586 4491 4689 4878 4955 5000 5021 5049 5123 5227 5280 5255 5187 5086 4999 5011 5166 831 221 3034 3274 3450 3544 3530 3590 3684 3775 3857 3825 3791 4009 4570 5086 5155 4951 4701 4379 4000 3723 3698 4076 4545 4817 4945 5000 5037 5112 5218 5274 5250 5186 5081 4997 5008 5158 832 222 2732 2943 3089 3164 3152 3219 3308 3384 3433 3370 3300 3451 3882 4253 4250 4047 3831 3552 3217 2977 3001 3511 4202 4632 4835 4916 4967 5049 5158 5214 5193 5126 5022 4934 4949 5101 833 223 2393 2530 2628 2683 2672 2729 2818 2874 2877 2774 2662 2732 3013 3217 3134 2946 2780 2558 2284 2099 2178 2831 3790 4427 4724 4843 4907 4993 5108 5167 5146 5084 4976 4888 4904 5058 834 224 2075 2164 2231 2264 2267 2326 2409 2448 2416 2283 2143 2149 2310 2395 2274 2107 1979 1808 1596 1461 1563 2276 3431 4245 4631 4786 4861 4953 5069 5130 5110 5048 4944 4858 4870 5031 835 225 1764 1799 1833 1859 1857 1920 2004 2028 1968 1808 1643 1600 1660 1647 1497 1354 1260 1136 0985 0900 1012 1751 3065 4041 4510 4696 4786 4884 5005 5069 5051 4986 4885 4792 4807 4972 836 226 1485 1479 1487 1496 1502 1566 1648 1657 1571 1389 1208 1123 1106 1023 0862 0743 0680 0597 0497 0456 0570 1312 2754 3870 4413 4631 4733 4834 4955 5020 5004 4943 4839 4750 4770 4927 837 227 1276 1253 1231 1237 1245 1312 1391 1390 1288 1094 0904 0794 0733 0614 0459 0366 0325 0273 0216 0211 0315 1017 2524 3739 4339 4583 4692 4797 4922 4991 4973 4913 4809 4718 4734 4894 838 21 2904 2773 2590 2451 2356 2323 2318 2324 2335 2260 2196 2357 2831 3299 3433 3408 3398 3335 3190 3084 3313 4468 6256 7609 8299 8589 8716 8788 8834 8839 8839 8830 8831 8841 8837 8865 839 22 2666 2607 2489 2387 2301 2289 2292 2308 2326 2249 2183 2341 2802 3245 3346 3282 3231 3121 2933 2796 2970 3957 5462 6558 7102 7328 7430 7512 7594 7628 7616 7584 7540 7504 7510 7600 840 23 2375 2391 2349 2289 2225 2229 2250 2281 2303 2228 2162 2314 2759 3165 3217 3103 3000 2835 2601 2434 2563 3390 4622 5483 5898 6068 6150 6237 6339 6389 6373 6320 6239 6172 6181 6316 841 24 2062 2133 2168 2157 2114 2128 2174 2217 2244 2173 2105 2255 2689 3064 3073 2913 2759 2543 2273 2082 2162 2820 3784 4427 4729 4854 4918 5005 5122 5181 5162 5096 4992 4906 4920 5079 842 25 1688 1843 1954 1999 1965 2001 2071 2131 2166 2097 2028 2176 2597 2934 2893 2679 2466 2196 1886 1674 1706 2194 2889 3324 3522 3601 3650 3735 3861 3932 3908 3834 3717 3614 3633 3813 843 26 1347 1578 1779 1878 1870 1929 2024 2104 2148 2083 2012 2155 2560 2852 2754 2483 2208 1884 1536 1308 1301 1632 2095 2363 2479 2529 2563 2644 2765 2837 2814 2743 2619 2518 2543 2726 844 27 1018 1300 1580 1742 1757 1838 1960 2060 2111 2050 1975 2111 2488 2728 2568 2240 1912 1540 1168 0933 0895 1095 1357 1483 1535 1559 1579 1654 1769 1845 1821 1751 1635 1540 1568 1744 845 28 0712 1064 1413 1626 1670 1775 1923 2043 2104 2043 1966 2093 2445 2635 2420 2043 1667 1258 0869 0635 0578 0681 0800 0838 0851 0859 0872 0930 1031 1100 1082 1020 0922 0843 0871 1026 846 29 0468 0846 1256 1530 1595 1723 1911 2052 2121 2065 1988 2107 2434 2572 2301 1871 1450 1007 0609 0383 0316 0339 0347 0322 0308 0306 0309 0351 0428 0485 0471 0425 0349 0296 0324 0446 847 210 4260 4241 4087 3900 3748 3667 3608 3644 3781 3830 3905 4407 5653 7158 8012 8272 8380 8403 8332 8265 8374 8696 8839 8887 8928 8951 8977 9005 9028 9019 9014 9004 9007 9019 9011 9028 848 211 3645 3695 3608 3482 3355 3308 3280 3324 3440 3461 3499 3917 4963 6148 6713 6787 6748 6619 6386 6193 6271 6761 7206 7434 7546 7594 7633 7686 7751 7773 7759 7724 7679 7646 7647 7728 849 212 2927 3014 3006 2942 2853 2839 2851 2901 2985 2974 2969 3285 4091 4941 5243 5174 5035 4812 4505 4268 4322 4882 5546 5942 6128 6204 6256 6329 6420 6464 6442 6392 6313 6244 6251 6377 850 213 2338 2463 2517 2513 2451 2468 2510 2570 2633 2594 2558 2790 3404 3988 4097 3932 3736 3466 3131 2886 2925 3473 4191 4634 4838 4920 4970 5056 5165 5223 5202 5138 5033 4944 4961 5116 851 214 1672 1819 1937 1996 1964 2003 2077 2138 2171 2100 2026 2167 2574 2898 2846 2629 2412 2141 1829 1618 1654 2147 2844 3274 3469 3547 3595 3681 3805 3876 3850 3779 3659 3557 3576 3755 852 215 1168 1349 1508 1598 1597 1656 1747 1809 1822 1728 1629 1704 1966 2119 1978 1750 1547 1303 1043 0884 0916 1301 1877 2232 2388 2451 2490 2570 2692 2767 2745 2673 2551 2449 2473 2659 853 216 0808 1002 1198 1309 1333 1409 1511 1576 1568 1458 1338 1361 1511 1541 1356 1138 0961 0758 0558 0451 0478 0748 1158 1394 1490 1529 1555 1629 1748 1824 1802 1734 1617 1521 1549 1727 854 217 0518 0742 0972 1103 1143 1233 1352 1412 1385 1254 1114 1084 1134 1074 0875 0690 0557 0411 0278 0225 0257 0430 0677 0798 0840 0857 0872 0930 1029 1098 1080 1020 0921 0842 0871 1020 855 218 0340 0579 0819 0968 1013 1111 1235 1298 1259 1119 0968 0914 0916 0821 0627 0472 0369 0262 0174 0153 0185 0279 0360 0362 0350 0343 0345 0382 0459 0514 0500 0453 0378 0323 0348 0474 856 219 2479 2813 3055 3164 3124 3159 3246 3373 3540 3596 3654 4099 5137 6204 6503 6215 5755 5203 4611 4168 3954 3920 3850 3779 3759 3759 3782 3858 3975 4040 4009 3936 3817 3714 3736 3916 857 220 2350 2650 2877 2977 2943 2980 3063 3180 3318 3345 3370 3745 4637 5515 5712 5426 5020 4527 3987 3585 3446 3568 3673 3698 3715 3731 3755 3831 3948 4014 3989 3914 3794 3691 3711 3887 858 221 2164 2403 2592 2666 2631 2668 2745 2842 2942 2934 2923 3214 3937 4613 4713 4451 4117 3708 3249 2915 2846 3123 3450 3621 3697 3733 3765 3845 3966 4033 4008 3934 3813 3711 3732 3908 859 222 1973 2197 2356 2424 2394 2435 2509 2595 2663 2629 2590 2813 3396 3910 3937 3692 3408 3055 2657 2372 2347 2720 3202 3478 3602 3657 3695 3779 3902 3971 3946 3870 3751 3646 3668 3846 860 223 1745 1920 2038 2091 2062 2104 2177 2240 2272 2201 2127 2264 2672 2988 2933 2713 2497 2223 1908 1694 1730 2225 2923 3358 3552 3631 3680 3766 3891 3961 3937 3864 3745 3641 3663 3836 861 224 1532 1656 1748 1790 1770 1818 1888 1938 1939 1838 1738 1809 2077 2249 2144 1952 1786 1577 1336 1182 1246 1795 2645 3207 3462 3564 3620 3710 3836 3909 3886 3815 3695 3591 3615 3791 862 225 1314 1396 1474 1497 1489 1536 1607 1642 1616 1493 1371 1385 1533 1587 1449 1287 1167 1014 0842 0744 0825 1401 2382 3065 3378 3504 3568 3661 3790 3863 3840 3772 3649 3545 3571 3748 863 226 1123 1182 1224 1244 1234 1287 1355 1379 1329 1189 1048 1017 1071 1035 0878 0744 0663 0561 0449 0397 0490 1079 2164 2948 3311 3456 3526 3623 3755 3830 3809 3738 3617 3513 3532 3715 864 227 0985 1008 1032 1049 1045 1099 1166 1177 1112 0961 0810 0750 0744 0658 0503 0396 0343 0278 0213 0200 0286 0842 1972 2822 3219 3377 3452 3553 3685 3763 3741 3672 3550 3445 3467 3648 865 21 2124 1949 1753 1605 1505 1468 1459 1460 1467 1400 1344 1489 1912 2316 2408 2371 2358 2297 2163 2069 2289 3494 5559 7214 8079 8444 8600 8687 8739 8754 8752 8746 8741 8741 8741 8779 866 22 1974 1864 1701 1576 1485 1457 1454 1460 1470 1401 1346 1488 1904 2286 2353 2288 2246 2154 1995 1881 2064 3122 4896 6256 6944 7229 7356 7449 7532 7571 7563 7528 7478 7440 7444 7543 867 23 1764 1707 1624 1527 1452 1436 1441 1458 1471 1403 1346 1487 1899 2264 2301 2202 2125 1995 1806 1674 1818 2713 4176 5253 5783 6001 6100 6195 6299 6355 6337 6283 6204 6134 6144 6279 868 24 1553 1544 1507 1449 1384 1382 1399 1421 1441 1375 1316 1455 1854 2195 2198 2068 1953 1789 1574 1431 1534 2264 3429 4251 4642 4801 4878 4972 5088 5152 5131 5071 4964 4875 4891 5051 869 25 1298 1362 1408 1390 1336 1352 1384 1419 1441 1377 1317 1454 1843 2153 2119 1948 1789 1582 1340 1183 1243 1789 2643 3210 3470 3575 3632 3722 3848 3921 3898 3825 3707 3603 3623 3802 870 26 1066 1196 1298 1329 1296 1322 1376 1421 1450 1387 1323 1453 1826 2100 2021 1809 1608 1363 1099 0933 0962 1357 1950 2318 2479 2547 2586 2668 2792 2866 2842 2772 2648 2546 2570 2751 871 27 0808 1007 1175 1254 1238 1283 1355 1416 1449 1387 1323 1451 1813 2055 1934 1679 1435 1152 0867 0694 0691 0935 1277 1463 1539 1570 1594 1667 1785 1862 1840 1771 1653 1556 1585 1760 872 28 0574 0842 1072 1191 1201 1255 1347 1422 1458 1399 1331 1457 1804 2012 1850 1555 1273 0960 0661 0489 0466 0604 0777 0848 0873 0884 0899 0957 1058 1126 1106 1047 0945 0870 0895 1051 873 29 0402 0698 0990 1162 1187 1263 1376 1469 1516 1459 1388 1509 1838 2006 1798 1462 1140 0799 0489 0322 0284 0329 0358 0338 0324 0320 0324 0364 0442 0499 0484 0438 0361 0306 0333 0457 874 210 3528 3418 3206 2965 2776 2672 2607 2631 2764 2814 2890 3436 4859 6661 7709 8043 8177 8207 8121 8030 8172 8578 8769 8830 8876 8902 8930 8961 8982 8975 8967 8959 8961 8971 8966 8984 875 211 3059 3010 2851 2672 2511 2434 2396 2424 2542 2569 2619 3084 4294 5745 6479 6614 6603 6485 6249 6043 6147 6696 7175 7411 7526 7579 7621 7676 7739 7764 7747 7714 7667 7631 7631 7712 876 212 2452 2464 2385 2267 2139 2093 2078 2116 2208 2210 2226 2596 3558 4634 5068 5044 4924 4708 4400 4151 4223 4826 5514 5919 6106 6184 6234 6308 6401 6445 6426 6374 6293 6221 6229 6360 877 213 1947 2013 2008 1947 1848 1831 1844 1885 1959 1940 1930 2221 2982 3759 3976 3847 3662 3398 3063 2811 2858 3429 4159 4602 4805 4889 4938 5022 5134 5195 5171 5107 5003 4910 4923 5083 878 214 1442 1537 1600 1591 1531 1537 1574 1622 1668 1622 1582 1781 2317 2792 2816 2621 2416 2147 1835 1619 1656 2160 2864 3297 3492 3572 3618 3705 3828 3902 3876 3805 3684 3581 3602 3781 879 215 1022 1159 1269 1306 1275 1306 1362 1413 1437 1370 1303 1427 1784 2040 1953 1739 1542 1303 1043 0882 0915 1309 1898 2261 2418 2481 2520 2600 2723 2799 2775 2703 2582 2479 2501 2688 880 216 0718 0892 1039 1115 1104 1150 1221 1272 1283 1202 1116 1187 1423 1537 1386 1175 0996 0790 0584 0470 0496 0775 1198 1444 1545 1587 1613 1687 1805 1882 1859 1791 1675 1578 1603 1785 881 217 0472 0678 0857 0952 0963 1022 1108 1162 1149 1047 0942 0959 1077 1073 0893 0709 0573 0424 0287 0230 0260 0435 0683 0805 0849 0865 0881 0938 1039 1109 1090 1031 0930 0850 0882 1034 882 218 0326 0535 0738 0854 0877 0949 1044 1095 1076 0965 0847 0835 0893 0840 0657 0499 0392 0278 0185 0158 0188 0282 0362 0362 0349 0342 0345 0383 0460 0516 0501 0452 0378 0322 0346 0477 883 219 1662 1941 2171 2260 2198 2212 2275 2391 2549 2606 2671 3154 4329 5547 5857 5483 4916 4259 3581 3089 2856 2801 2722 2647 2626 2625 2641 2716 2833 2905 2877 2803 2681 2577 2608 2786 884 220 1597 1848 2074 2157 2089 2118 2180 2282 2423 2458 2496 2916 3941 4968 5183 4829 4331 3748 3136 2695 2525 2591 2639 2630 2632 2639 2656 2732 2850 2921 2897 2821 2699 2596 2619 2800 885 221 1485 1714 1902 1975 1919 1946 2007 2097 2204 2213 2222 2563 3411 4219 4338 4019 3608 3116 2597 2229 2123 2300 2499 2582 2621 2640 2663 2741 2861 2933 2908 2834 2712 2610 2630 2809 886 222 1378 1588 1752 1813 1768 1795 1856 1930 2017 2003 1986 2263 2961 3596 3643 3353 3008 2591 2149 1838 1781 2042 2365 2530 2604 2637 2664 2742 2863 2937 2911 2837 2711 2610 2632 2816 887 223 1233 1387 1529 1573 1533 1560 1619 1681 1733 1689 1644 1837 2350 2771 2733 2478 2216 1896 1548 1316 1316 1672 2152 2422 2539 2588 2621 2703 2825 2901 2875 2802 2676 2572 2598 2779 888 224 1093 1227 1341 1381 1353 1384 1444 1496 1520 1454 1385 1509 1870 2127 2036 1816 1615 1367 1101 0933 0963 1366 1959 2322 2480 2543 2583 2666 2790 2864 2837 2768 2642 2541 2566 2743 889 225 0961 1068 1152 1191 1171 1200 1258 1299 1299 1212 1124 1192 1425 1551 1424 1242 1094 0915 0723 0615 0667 1095 1792 2242 2440 2520 2562 2647 2772 2848 2824 2754 2631 2526 2551 2735 890 226 0822 0911 0983 1010 0996 1036 1095 1122 1101 0995 0890 0907 1028 1043 0890 0744 0644 0525 0402 0346 0412 0854 1627 2148 2379 2469 2517 2604 2731 2808 2786 2713 2589 2486 2512 2690 891 227 0758 0798 0855 0888 0874 0911 0973 0996 0957 0839 0724 0706 0754 0704 0547 0429 0362 0284 0209 0191 0259 0687 1509 2087 2344 2447 2496 2583 2711 2790 2767 2697 2573 2470 2495 2671 892 21 1576 1363 1161 1021 0930 0894 0884 0885 0888 0833 0791 0913 1252 1543 1571 1515 1496 1438 1325 1250 1450 2666 4953 6866 7884 8318 8500 8599 8662 8680 8679 8672 8662 8660 8660 8709 893 22 1451 1294 1129 0999 0911 0886 0879 0881 0889 0830 0785 0904 1234 1505 1511 1438 1402 1327 1199 1116 1291 2375 4367 5964 6782 7121 7267 7372 7462 7504 7499 7465 7413 7369 7375 7480 894 23 1312 1208 1091 0984 0906 0885 0883 0894 0901 0846 0799 0918 1250 1516 1507 1413 1353 1255 1110 1015 1161 2088 3747 5024 5658 5918 6035 6138 6248 6302 6289 6241 6158 6087 6099 6232 895 24 1165 1106 1029 0957 0882 0874 0881 0894 0907 0848 0801 0919 1245 1496 1465 1349 1265 1140 0980 0880 0992 1752 3079 4061 4534 4725 4815 4913 5037 5104 5083 5020 4913 4822 4840 5008 896 25 0979 0987 0973 0931 0872 0877 0891 0913 0928 0870 0820 0936 1257 1489 1432 1291 1175 1025 0848 0740 0819 1404 2391 3081 3399 3527 3590 3685 3813 3888 3866 3794 3674 3574 3595 3775 897 26 0800 0883 0929 0920 0870 0880 0908 0939 0957 0899 0847 0963 1277 1487 1401 1230 1087 0911 0719 0607 0659 1090 1789 2248 2450 2530 2575 2660 2787 2866 2840 2769 2647 2539 2568 2753 898 27 0651 0775 0877 0909 0870 0895 0943 0977 0998 0940 0882 0993 1297 1486 1372 1174 1000 0797 0592 0478 0502 0783 1203 1443 1542 1581 1609 1683 1804 1879 1859 1789 1672 1576 1600 1781 899 28 0486 0672 0823 0892 0866 0902 0957 1006 1029 0969 0910 1019 1317 1484 1341 1115 0916 0692 0479 0365 0371 0539 0759 0860 0896 0912 0925 0984 1087 1156 1137 1076 0975 0895 0922 1079 900 29 0345 0571 0791 0889 0890 0936 1013 1069 1097 1037 0974 1079 1364 1500 1325 1070 0840 0594 0371 0259 0250 0318 0367 0353 0339 0335 0338 0378 0458 0514 0501 0453 0375 0318 0345 0471 901 210 2843 2674 2394 2118 1897 1786 1711 1731 1865 1914 1997 2582 4162 6222 7442 7835 7995 8031 7928 7813 7987 8475 8706 8776 8822 8847 8877 8909 8934 8930 8923 8915 8915 8925 8916 8940 902 211 2502 2387 2181 1958 1772 1678 1624 1647 1760 1797 1856 2363 3717 5392 6267 6451 6460 6346 6105 5884 6007 6607 7112 7358 7472 7521 7559 7618 7684 7709 7692 7659 7612 7576 7576 7665 903 212 2036 1976 1845 1675 1523 1456 1423 1451 1545 1559 1594 2008 3110 4384 4938 4952 4850 4640 4328 4074 4155 4788 5488 5886 6069 6146 6192 6266 6361 6406 6387 6336 6255 6182 6191 6321 904 213 1660 1656 1590 1481 1362 1321 1306 1337 1417 1415 1426 1762 2645 3589 3902 3807 3637 3380 3045 2791 2843 3428 4165 4609 4811 4894 4945 5027 5139 5197 5173 5113 5008 4918 4930 5091 905 214 1227 1280 1280 1224 1144 1126 1135 1171 1224 1199 1183 1427 2063 2664 2758 2585 2389 2125 1813 1595 1638 2156 2872 3310 3506 3586 3631 3718 3842 3913 3888 3819 3701 3595 3616 3795 906 215 0895 1001 1056 1044 0994 0995 1023 1060 1099 1053 1015 1190 1642 2003 1962 1760 1566 1324 1060 0891 0924 1326 1912 2268 2422 2484 2522 2603 2729 2805 2783 2709 2586 2480 2505 2691 907 216 0649 0789 0892 0926 0893 0916 0958 0999 1019 0959 0899 1010 1308 1483 1362 1160 0988 0785 0581 0468 0496 0784 1219 1469 1571 1611 1639 1715 1836 1913 1891 1821 1703 1606 1632 1812 908 217 0461 0625 0770 0831 0825 0859 0921 0963 0967 0887 0807 0860 1030 1073 0907 0727 0591 0441 0300 0239 0269 0451 0708 0834 0878 0896 0912 0972 1077 1146 1127 1066 0965 0883 0913 1072 909 218 0303 0507 0676 0764 0771 0821 0896 0939 0932 0838 0745 0762 0861 0837 0663 0507 0399 0285 0190 0161 0191 0286 0370 0370 0358 0352 0354 0394 0474 0533 0515 0469 0390 0333 0359 0487 910 219 1064 1313 1521 1572 1491 1483 1521 1612 1764 1820 1889 2401 3675 4996 5291 4837 4177 3431 2691 2169 1919 1840 1753 1678 1655 1655 1670 1741 1859 1933 1909 1838 1719 1621 1653 1831 911 220 1032 1274 1473 1523 1450 1444 1489 1572 1706 1749 1797 2252 3376 4501 4705 4282 3700 3039 2375 1910 1717 1722 1715 1677 1668 1671 1687 1757 1876 1950 1925 1856 1736 1640 1668 1850 912 221 0971 1190 1369 1416 1347 1349 1388 1468 1578 1596 1620 1998 2937 3833 3949 3575 3094 2539 1978 1590 1458 1552 1651 1674 1686 1696 1714 1786 1905 1980 1955 1888 1765 1668 1694 1875 913 222 0906 1115 1276 1317 1263 1267 1312 1383 1475 1475 1480 1797 2586 3310 3358 3019 2610 2137 1652 1325 1236 1386 1561 1628 1657 1674 1694 1768 1888 1964 1940 1869 1751 1650 1680 1857 914 223 0807 1001 1142 1181 1128 1144 1184 1243 1309 1284 1264 1504 2107 2610 2582 2292 1979 1612 1232 0987 0952 1179 1465 1602 1658 1683 1706 1781 1902 1978 1955 1882 1764 1665 1692 1871 915 224 0745 0903 1028 1064 1026 1041 1087 1136 1177 1135 1093 1266 1713 2044 1962 1715 1474 1191 0900 0721 0720 0984 1347 1541 1620 1652 1678 1752 1872 1949 1925 1856 1737 1639 1668 1843 916 225 0669 0809 0920 0951 0921 0939 0989 1030 1051 0991 0930 1041 1346 1529 1406 1202 1026 0819 0608 0490 0515 0805 1235 1479 1577 1617 1645 1720 1840 1918 1896 1826 1707 1610 1635 1813 917 226 0590 0718 0809 0842 0823 0846 0895 0926 0930 0853 0775 0833 1015 1072 0924 0759 0637 0498 0360 0296 0341 0643 1127 1418 1536 1583 1612 1687 1809 1886 1864 1797 1679 1578 1607 1784 918 227 0529 0641 0726 0750 0740 0767 0818 0844 0830 0741 0653 0672 0769 0751 0595 0464 0382 0292 0208 0184 0237 0536 1059 1391 1527 1580 1613 1688 1810 1889 1867 1799 1681 1579 1606 1791 919 21 1186 0969 0778 0649 0562 0534 0523 0522 0532 0490 0460 0555 0786 0935 0883 0809 0784 0733 0646 0595 0767 1953 4416 6563 7724 8221 8427 8536 8605 8628 8628 8621 8609 8608 8605 8660 920 22 1083 0919 0764 0647 0568 0540 0532 0535 0544 0502 0470 0563 0793 0936 0878 0795 0761 0702 0608 0555 0709 1766 3909 5703 6639 7034 7200 7312 7410 7455 7446 7416 7366 7320 7327 7437 921 23 0993 0880 0755 0651 0575 0555 0549 0553 0564 0520 0486 0584 0818 0961 0893 0801 0753 0681 0578 0521 0655 1569 3369 4824 5559 5862 5994 6101 6216 6276 6262 6213 6133 6058 6072 6211 922 24 0874 0816 0717 0642 0576 0555 0562 0570 0582 0536 0500 0591 0821 0950 0871 0765 0704 0618 0509 0451 0561 1316 2773 3906 4458 4683 4785 4888 5013 5082 5064 5002 4897 4804 4821 4989 923 25 0755 0740 0703 0649 0591 0582 0589 0602 0616 0569 0529 0623 0855 0981 0888 0766 0687 0585 0468 0407 0493 1087 2184 2987 3363 3513 3585 3683 3812 3889 3868 3797 3677 3575 3597 3784 924 26 0625 0666 0678 0651 0604 0604 0619 0637 0651 0600 0556 0647 0873 0985 0876 0739 0642 0526 0403 0342 0405 0845 1627 2167 2406 2504 2554 2639 2765 2843 2821 2749 2628 2525 2551 2731 925 27 0503 0612 0666 0662 0630 0628 0656 0680 0698 0645 0598 0689 0917 1022 0897 0741 0625 0490 0357 0293 0336 0634 1117 1412 1530 1579 1608 1684 1805 1883 1861 1792 1675 1578 1605 1784 926 28 0399 0535 0639 0662 0634 0651 0683 0716 0733 0679 0628 0717 0943 1035 0893 0721 0588 0439 0302 0240 0268 0447 0699 0821 0864 0881 0896 0955 1057 1128 1109 1050 0947 0868 0896 1053 927 29 0305 0479 0629 0686 0674 0696 0745 0783 0803 0743 0685 0770 0990 1070 0911 0721 0569 0406 0262 0201 0216 0301 0370 0363 0351 0345 0348 0388 0467 0525 0511 0461 0383 0326 0354 0477 928 210 2305 2050 1742 1436 1213 1091 1018 1037 1164 1214 1297 1896 3581 5850 7229 7687 7871 7918 7818 7693 7882 8407 8657 8729 8778 8808 8837 8871 8897 8896 8889 8881 8881 8891 8881 8905 929 211 2012 1840 1583 1323 1119 1021 0964 0980 1095 1134 1202 1734 3204 5088 6111 6353 6386 6283 6044 5823 5954 6572 7083 7328 7447 7502 7541 7597 7664 7690 7674 7641 7595 7557 7561 7646 930 212 1666 1548 1371 1168 1001 0921 0877 0896 0994 1017 1067 1511 2717 4157 4821 4877 4788 4587 4278 4023 4110 4756 5458 5859 6044 6120 6169 6243 6337 6381 6362 6311 6232 6161 6167 6297 931 213 1337 1305 1193 1043 0906 0843 0817 0843 0923 0933 0963 1332 2310 3400 3806 3742 3586 3337 3006 2750 2808 3402 4143 4587 4792 4874 4925 5008 5119 5179 5156 5095 4991 4900 4913 5072 932 214 1018 1042 0998 0908 0804 0767 0754 0782 0842 0834 0841 1120 1839 2551 2703 2550 2362 2102 1791 1572 1614 2134 2850 3286 3481 3559 3608 3696 3819 3892 3867 3796 3678 3572 3593 3778 933 215 0765 0835 0847 0804 0731 0712 0716 0746 0792 0768 0754 0961 1484 1929 1932 1744 1552 1315 1053 0885 0915 1318 1905 2262 2416 2478 2516 2597 2722 2797 2773 2700 2579 2478 2501 2685 934 216 0573 0676 0744 0739 0690 0692 0713 0744 0777 0736 0702 0847 1207 1452 1360 1167 0996 0794 0590 0473 0499 0789 1223 1474 1577 1618 1647 1721 1840 1918 1896 1827 1712 1613 1639 1818 935 217 0409 0546 0649 0679 0654 0670 0703 0736 0751 0695 0642 0730 0953 1041 0898 0724 0590 0442 0303 0241 0269 0450 0709 0836 0881 0897 0913 0973 1079 1149 1130 1068 0965 0884 0915 1071 936 218 0291 0462 0602 0656 0646 0678 0728 0762 0766 0692 0621 0666 0806 0815 0657 0506 0400 0289 0196 0166 0194 0291 0375 0376 0363 0356 0360 0400 0481 0539 0523 0475 0396 0339 0362 0495 937 219 0662 0897 1078 1093 0994 0966 0976 1042 1182 1236 1310 1840 3179 4558 4819 4288 3549 2741 1973 1452 1204 1107 1020 0953 0934 0933 0945 1006 1112 1181 1161 1099 0996 0914 0944 1106 938 220 0612 0874 1046 1068 0977 0954 0966 1034 1161 1205 1263 1744 2940 4124 4299 3807 3151 2429 1737 1272 1069 1031 0989 0942 0926 0927 0939 1002 1107 1177 1156 1095 0988 0909 0937 1104 939 221 0601 0823 0983 1006 0929 0911 0923 0986 1094 1121 1160 1570 2582 3540 3634 3199 2650 2041 1453 1065 0917 0937 0956 0938 0932 0936 0949 1011 1117 1188 1168 1106 1001 0920 0949 1113 940 222 0573 0782 0939 0961 0887 0874 0891 0946 1041 1052 1074 1425 2288 3070 3106 2719 2255 1738 1233 0908 0799 0863 0932 0938 0942 0948 0961 1023 1129 1200 1178 1116 1012 0929 0958 1122 941 223 0532 0716 0850 0870 0809 0804 0822 0874 0945 0937 0937 1210 1881 2440 2409 2086 1732 1332 0940 0697 0641 0764 0904 0951 0967 0978 0991 1054 1160 1230 1209 1148 1042 0960 0987 1152 942 224 0503 0668 0788 0814 0768 0764 0789 0833 0886 0861 0841 1048 1553 1932 1848 1578 1305 0996 0696 0517 0495 0644 0829 0903 0926 0940 0953 1014 1120 1192 1172 1111 1006 0924 0950 1113 943 225 0447 0613 0727 0762 0719 0729 0762 0799 0834 0793 0755 0901 1262 1488 1368 1144 0941 0711 0493 0373 0377 0551 0782 0887 0923 0939 0955 1014 1121 1189 1170 1110 1006 0923 0951 1114 944 226 0418 0554 0654 0681 0653 0666 0701 0731 0749 0694 0640 0732 0961 1057 0914 0739 0605 0454 0312 0247 0276 0470 0741 0876 0922 0940 0957 1017 1123 1194 1176 1114 1008 0924 0956 1115 945 227 0368 0516 0615 0640 0626 0648 0686 0713 0718 0648 0581 0632 0772 0783 0631 0489 0395 0292 0201 0173 0212 0404 0697 0852 0907 0927 0944 1004 1110 1180 1160 1102 0998 0913 0941 1099 946 21 0938 0734 0567 0447 0383 0357 0345 0349 0359 0329 0312 0388 0537 0581 0485 0407 0379 0339 0281 0257 0393 1490 4021 6332 7606 8155 8382 8498 8572 8600 8599 8594 8584 8580 8577 8637 947 22 0867 0706 0562 0448 0382 0366 0349 0352 0364 0335 0316 0393 0545 0589 0492 0411 0379 0334 0275 0250 0374 1356 3564 5504 6535 6972 7156 7275 7375 7423 7416 7386 7333 7288 7296 7406 948 23 0797 0667 0548 0460 0394 0373 0366 0373 0383 0352 0332 0407 0563 0606 0505 0418 0380 0328 0264 0240 0349 1199 3065 4643 5454 5793 5935 6050 6167 6231 6218 6167 6082 6010 6023 6169 949 24 0715 0630 0543 0462 0408 0395 0387 0396 0407 0373 0350 0426 0585 0629 0524 0429 0382 0324 0256 0231 0325 1038 2558 3791 4406 4657 4768 4876 5002 5073 5054 4993 4887 4794 4818 4983 950 25 0609 0586 0538 0479 0428 0412 0414 0428 0439 0403 0377 0453 0614 0658 0543 0439 0383 0314 0242 0216 0293 0854 2011 2898 3318 3489 3568 3667 3801 3880 3858 3791 3668 3563 3587 3768 951 26 0516 0527 0530 0490 0445 0439 0444 0457 0471 0430 0399 0474 0638 0681 0561 0447 0380 0302 0226 0200 0261 0685 1515 2119 2391 2500 2554 2644 2772 2851 2831 2757 2637 2532 2559 2744 952 27 0429 0492 0522 0505 0474 0469 0485 0505 0518 0472 0435 0511 0678 0722 0593 0467 0388 0298 0216 0189 0236 0526 1049 1388 1529 1584 1619 1693 1814 1893 1872 1805 1687 1588 1616 1797 953 28 0351 0453 0516 0524 0490 0497 0520 0544 0555 0507 0465 0538 0708 0748 0613 0477 0388 0290 0202 0176 0211 0393 0675 0826 0880 0900 0918 0976 1081 1152 1134 1072 0968 0889 0917 1079 954 29 0256 0415 0512 0548 0527 0544 0576 0602 0616 0562 0509 0579 0749 0790 0645 0498 0394 0285 0192 0164 0190 0284 0368 0370 0357 0350 0353 0392 0470 0528 0512 0465 0387 0332 0357 0482 955 210 1829 1551 1203 0897 0674 0562 0495 0514 0628 0679 0761 1351 3097 5537 7060 7584 7797 7857 7765 7641 7838 8377 8630 8702 8751 8779 8808 8841 8864 8863 8857 8848 8847 8858 8850 8871 956 211 1601 1402 1121 0846 0644 0544 0485 0504 0611 0652 0723 1257 2797 4844 5995 6292 6346 6255 6020 5798 5933 6555 7063 7307 7423 7476 7516 7572 7640 7666 7651 7616 7569 7532 7535 7621 957 212 1365 1197 0988 0767 0599 0516 0471 0487 0580 0610 0666 1115 2382 3965 4733 4831 4760 4565 4259 4001 4090 4735 5437 5835 6018 6091 6141 6215 6310 6358 6337 6288 6204 6137 6144 6278 958 213 1082 1023 0873 0703 0560 0499 0463 0481 0560 0580 0619 0997 2037 3249 3735 3701 3554 3309 2977 2717 2774 3376 4120 4562 4762 4843 4892 4977 5090 5151 5126 5062 4959 4865 4880 5045 959 214 0851 0849 0767 0651 0540 0493 0470 0489 0553 0559 0578 0875 1652 2459 2671 2538 2357 2102 1793 1571 1616 2148 2869 3306 3498 3577 3625 3713 3838 3910 3885 3816 3694 3590 3610 3794 960 215 0642 0683 0677 0607 0524 0493 0485 0507 0556 0547 0549 0773 1344 1856 1898 1722 1537 1301 1040 0871 0903 1315 1917 2283 2442 2507 2546 2629 2754 2830 2807 2735 2613 2509 2535 2717 961 216 0495 0596 0628 0596 0539 0522 0530 0553 0592 0568 0552 0721 1126 1423 1357 1170 1000 0800 0593 0475 0500 0792 1229 1482 1584 1626 1655 1731 1851 1928 1906 1839 1719 1620 1649 1826 962 217 0380 0494 0560 0570 0530 0532 0549 0574 0598 0557 0524 0631 0890 1014 0885 0718 0587 0440 0303 0242 0268 0453 0718 0850 0898 0916 0932 0993 1098 1168 1150 1088 0985 0902 0932 1090 963 218 0282 0422 0535 0571 0551 0567 0599 0628 0641 0584 0530 0599 0766 0804 0657 0507 0402 0292 0198 0167 0193 0288 0372 0373 0360 0354 0356 0397 0477 0536 0520 0472 0394 0336 0361 0489 964 219 0370 0624 0801 0798 0702 0659 0647 0693 0822 0875 0949 1477 2830 4201 4388 3765 2944 2082 1299 0797 0560 0454 0376 0324 0310 0310 0319 0365 0451 0512 0496 0449 0369 0310 0340 0476 965 220 0364 0609 0778 0787 0694 0657 0647 0697 0817 0858 0922 1404 2621 3813 3933 3363 2636 1863 1160 0715 0516 0440 0379 0331 0317 0316 0325 0371 0456 0517 0501 0454 0372 0316 0345 0477 966 221 0352 0589 0755 0760 0680 0649 0644 0691 0796 0827 0873 1292 2335 3312 3364 2864 2253 1596 0993 0617 0461 0421 0384 0342 0327 0327 0334 0380 0467 0528 0513 0463 0383 0325 0354 0485 967 222 0339 0562 0725 0742 0663 0640 0641 0688 0779 0799 0830 1194 2088 2884 2884 2442 1921 1361 0847 0532 0412 0401 0385 0350 0335 0334 0341 0387 0472 0534 0519 0469 0387 0329 0355 0490 968 223 0327 0540 0684 0697 0633 0617 0626 0665 0740 0742 0754 1045 1747 2322 2264 1902 1501 1066 0663 0425 0351 0375 0386 0358 0344 0341 0348 0393 0479 0541 0526 0477 0393 0333 0361 0496 969 224 0302 0507 0644 0676 0617 0612 0628 0665 0724 0712 0703 0930 1474 1878 1781 1479 1171 0834 0521 0346 0305 0355 0388 0369 0355 0352 0357 0402 0488 0549 0534 0483 0400 0340 0371 0499 970 225 0307 0479 0607 0634 0588 0592 0613 0647 0689 0662 0638 0804 1202 1450 1324 1080 0856 0610 0386 0269 0258 0328 0382 0369 0356 0350 0354 0398 0483 0544 0527 0479 0396 0337 0363 0494 971 226 0295 0450 0571 0599 0568 0575 0605 0634 0661 0617 0577 0688 0955 1074 0930 0739 0586 0421 0272 0206 0219 0309 0384 0381 0368 0363 0367 0410 0495 0555 0539 0490 0407 0347 0375 0503 972 227 0266 0418 0527 0561 0535 0550 0583 0607 0621 0569 0517 0590 0769 0814 0667 0516 0409 0296 0199 0167 0194 0294 0379 0381 0367 0362 0364 0407 0490 0551 0533 0486 0403 0341 0368 0495 973 21 0252 0383 0488 0515 0491 0508 0536 0563 0573 0523 0478 0549 0725 0775 0639 0494 0392 0285 0192 0163 0188 0281 0366 0369 0356 0350 0353 0391 0470 0529 0514 0465 0387 0331 0357 0486 974 22 0382 0512 0607 0631 0600 0619 0650 0678 0696 0642 0594 0684 0911 1014 0881 0712 0581 0436 0300 0240 0265 0443 0700 0830 0878 0896 0911 0971 1074 1144 1126 1066 0965 0883 0914 1072 975 23 0618 0745 0841 0863 0833 0851 0890 0930 0947 0892 0839 0950 1253 1446 1340 1147 0979 0781 0582 0471 0494 0772 1197 1448 1550 1592 1620 1697 1816 1893 1872 1802 1685 1588 1614 1800 976 24 1056 1179 1287 1316 1285 1311 1365 1415 1437 1376 1314 1443 1813 2093 2020 1812 1615 1373 1110 0944 0974 1374 1979 2359 2529 2598 2639 2721 2847 2921 2899 2827 2705 2601 2624 2806 977 25 1734 1895 2012 2054 2022 2064 2137 2197 2232 2163 2093 2240 2661 3000 2959 2744 2529 2257 1943 1728 1763 2261 2971 3415 3616 3700 3748 3835 3960 4031 4007 3938 3816 3712 3735 3919 978 26 2762 2963 3105 3180 3167 3222 3312 3391 3436 3374 3308 3461 3898 4280 4288 4091 3883 3609 3278 3041 3066 3577 4278 4720 4926 5015 5067 5148 5254 5311 5288 5226 5122 5035 5052 5203 979 27 4002 4271 4439 4548 4574 4646 4754 4840 4896 4844 4787 4920 5296 5629 5652 5492 5320 5083 4782 4564 4588 5067 5686 6074 6261 6338 6389 6459 6548 6589 6571 6518 6440 6374 6382 6504 980 28 5694 6019 6242 6398 6471 6563 6678 6770 6849 6837 6821 6934 7200 7433 7469 7373 7272 7118 6911 6765 6775 7083 7434 7639 7747 7791 7829 7879 7936 7955 7942 7910 7866 7834 7832 7909 981 29 7462 7883 8155 8381 8533 8665 8781 8875 8966 9006 9047 9087 9121 9147 9175 9164 9171 9167 9147 9169 9154 9152 9142 9150 9179 9200 9223 9249 9263 9251 9240 9233 9236 9251 9238 9258 982 210 0263 0393 0499 0528 0503 0523 0554 0580 0591 0540 0492 0561 0731 0775 0634 0489 0389 0281 0191 0164 0190 0285 0368 0370 0357 0349 0352 0391 0470 0527 0513 0465 0386 0331 0354 0483 983 211 0326 0460 0555 0583 0554 0576 0603 0633 0648 0595 0546 0627 0824 0889 0746 0588 0471 0345 0233 0190 0217 0355 0529 0597 0615 0620 0631 0683 0778 0845 0827 0772 0677 0606 0636 0782 984 212 0390 0520 0625 0651 0624 0640 0674 0707 0722 0669 0618 0706 0930 1027 0888 0717 0585 0437 0301 0240 0267 0448 0708 0840 0887 0906 0922 0980 1083 1153 1136 1075 0973 0894 0919 1079 985 213 0505 0635 0732 0762 0730 0750 0787 0821 0839 0782 0729 0826 1085 1223 1096 0912 0760 0586 0418 0333 0360 0594 0947 1144 1222 1253 1275 1343 1455 1529 1507 1443 1332 1242 1271 1443 986 214 0669 0797 0891 0922 0884 0908 0953 0992 1011 0955 0898 1012 1321 1517 1406 1206 1031 0828 0619 0502 0528 0820 1260 1515 1619 1661 1687 1763 1883 1959 1938 1869 1751 1653 1680 1859 987 215 0874 1000 1098 1132 1097 1123 1177 1220 1241 1178 1114 1233 1564 1788 1688 1481 1296 1072 0838 0699 0730 1087 1629 1961 2103 2159 2197 2274 2394 2472 2448 2377 2257 2156 2185 2363 988 216 1165 1314 1421 1454 1423 1454 1512 1561 1588 1524 1456 1590 1971 2252 2177 1958 1754 1500 1223 1045 1076 1492 2108 2490 2657 2725 2767 2851 2977 3053 3029 2956 2832 2724 2756 2937 989 217 1518 1649 1766 1809 1782 1818 1882 1940 1968 1898 1825 1961 2361 2671 2611 2394 2184 1920 1621 1421 1454 1922 2598 3015 3203 3279 3326 3412 3539 3611 3587 3515 3393 3288 3310 3494 990 218 1900 2086 2216 2267 2249 2290 2367 2433 2472 2406 2335 2484 2914 3268 3235 3017 2794 2513 2188 1964 1993 2481 3170 3599 3796 3876 3924 4009 4129 4195 4170 4099 3984 3884 3905 4079 991 219 2552 2745 2891 2969 2960 3013 3106 3183 3231 3166 3098 3250 3685 4057 4046 3837 3616 3330 2990 2749 2772 3269 3951 4379 4575 4658 4709 4790 4900 4961 4934 4869 4763 4671 4686 4850 992 220 3183 3392 3545 3629 3631 3694 3791 3874 3922 3862 3796 3942 4360 4727 4738 4553 4354 4087 3761 3528 3555 4062 4744 5173 5375 5460 5510 5588 5688 5740 5718 5660 5567 5488 5494 5644 993 221 3874 4126 4292 4397 4417 4491 4598 4680 4733 4676 4615 4746 5121 5454 5475 5312 5139 4903 4604 4387 4412 4900 5544 5948 6142 6228 6277 6350 6440 6481 6460 6412 6330 6260 6268 6396 994 222 4643 4932 5125 5255 5294 5376 5487 5578 5640 5598 5551 5678 6013 6312 6341 6203 6055 5845 5573 5375 5392 5810 6331 6643 6794 6860 6901 6966 7042 7077 7059 7017 6949 6892 6901 7012 995 223 5573 5913 6138 6295 6366 6461 6574 6671 6746 6732 6712 6822 7090 7324 7358 7254 7147 6987 6772 6621 6630 6939 7299 7511 7617 7668 7703 7757 7816 7836 7822 7787 7741 7706 7706 7787 996 224 6512 6912 7161 7352 7455 7570 7688 7780 7867 7874 7878 7960 8119 8249 8273 8206 8145 8049 7912 7827 7825 8000 8185 8291 8358 8390 8420 8461 8498 8505 8495 8473 8448 8436 8431 8484 997 225 7424 7848 8110 8345 8494 8634 8753 8850 8942 8982 9023 9066 9100 9125 9156 9145 9152 9148 9127 9149 9135 9133 9123 9135 9163 9181 9203 9225 9239 9226 9218 9211 9214 9225 9216 9230 998 226 0249 0402 0507 0533 0508 0523 0554 0580 0591 0539 0491 0563 0744 0795 0654 0507 0402 0290 0196 0166 0192 0286 0373 0375 0363 0357 0359 0399 0480 0538 0522 0475 0394 0339 0361 0491 999 227 7425 7853 8126 8349 8504 8644 8761 8859 8953 8994 9035 9076 9109 9135 9168 9157 9164 9160 9139 9160 9147 9143 9135 9145 9176 9192 9215 9239 9251 9239 9230 9225 9228 9241 9228 9246 1000 21 0261 0386 0485 0505 0486 0503 0533 0557 0565 0515 0469 0536 0707 0757 0623 0483 0384 0279 0190 0163 0188 0282 0370 0375 0363 0357 0357 0398 0477 0534 0519 0472 0394 0335 0361 0490 1001 22 0378 0509 0593 0611 0586 0599 0628 0656 0671 0622 0576 0666 0891 0992 0861 0696 0569 0427 0294 0235 0261 0439 0698 0829 0876 0895 0911 0970 1072 1143 1123 1063 0962 0883 0911 1070 1002 23 0609 0743 0827 0852 0826 0839 0882 0917 0937 0881 0830 0941 1243 1435 1329 1138 0970 0775 0578 0465 0489 0768 1195 1448 1553 1597 1625 1701 1820 1896 1875 1805 1688 1589 1621 1800 1003 24 1051 1181 1275 1298 1270 1291 1345 1391 1418 1357 1297 1431 1808 2091 2022 1815 1618 1377 1116 0951 0978 1376 1977 2351 2518 2585 2625 2709 2833 2909 2884 2812 2689 2588 2614 2794 1004 25 1736 1881 1986 2037 2006 2042 2115 2174 2207 2141 2068 2213 2632 2969 2928 2717 2506 2238 1929 1716 1748 2241 2948 3390 3591 3675 3724 3814 3937 4010 3985 3913 3794 3689 3709 3891 1005 26 2760 2958 3098 3169 3163 3218 3304 3383 3427 3365 3300 3451 3883 4259 4264 4071 3865 3592 3262 3028 3053 3567 4274 4722 4934 5020 5070 5153 5260 5315 5293 5229 5124 5037 5051 5212 1006 27 4005 4242 4418 4520 4542 4617 4721 4807 4861 4810 4752 4886 5259 5592 5614 5455 5284 5050 4752 4534 4561 5044 5668 6057 6244 6322 6372 6443 6531 6572 6549 6500 6423 6360 6364 6492 1007 28 5648 5980 6196 6351 6425 6514 6626 6723 6804 6790 6775 6891 7160 7394 7432 7332 7231 7079 6868 6722 6737 7053 7409 7614 7722 7770 7808 7862 7919 7936 7915 7885 7846 7815 7818 7899 1008 29 7431 7864 8134 8357 8509 8640 8761 8852 8947 8985 9025 9067 9099 9124 9158 9145 9153 9145 9125 9148 9136 9131 9120 9129 9159 9179 9202 9227 9240 9232 9223 9218 9222 9233 9221 9239 1009 210 0253 0385 0486 0513 0493 0506 0535 0561 0574 0522 0476 0545 0716 0764 0626 0483 0383 0277 0190 0162 0188 0281 0363 0366 0352 0346 0347 0386 0463 0519 0505 0458 0381 0324 0350 0477 1010 211 0318 0448 0549 0574 0552 0566 0594 0623 0637 0586 0538 0617 0814 0881 0741 0584 0468 0343 0233 0191 0218 0355 0533 0604 0623 0629 0639 0690 0785 0850 0833 0778 0685 0613 0643 0787 1011 212 0378 0507 0607 0636 0605 0626 0659 0686 0704 0650 0601 0688 0910 1005 0869 0700 0570 0427 0295 0236 0263 0443 0701 0834 0880 0898 0914 0972 1074 1142 1123 1064 0963 0884 0911 1070 1012 213 0488 0613 0723 0749 0721 0742 0782 0812 0830 0774 0720 0816 1072 1208 1082 0899 0748 0578 0413 0330 0356 0583 0930 1124 1201 1231 1253 1319 1429 1503 1482 1418 1307 1220 1246 1416 1013 214 0655 0779 0871 0903 0872 0890 0933 0972 0993 0933 0878 0988 1294 1486 1377 1180 1008 0807 0603 0489 0515 0806 1250 1511 1620 1663 1693 1767 1887 1960 1939 1871 1754 1659 1687 1864 1014 215 0840 0972 1076 1104 1075 1098 1146 1189 1214 1148 1088 1206 1539 1760 1659 1453 1268 1049 0818 0680 0713 1067 1604 1934 2076 2132 2166 2245 2365 2440 2416 2347 2228 2127 2149 2334 1015 216 1163 1299 1405 1439 1409 1439 1496 1547 1574 1508 1442 1574 1957 2246 2173 1957 1754 1501 1227 1051 1079 1488 2095 2473 2639 2707 2748 2833 2959 3034 3011 2940 2816 2710 2736 2920 1016 217 1508 1655 1786 1832 1806 1847 1918 1973 2004 1932 1858 1992 2385 2692 2631 2412 2199 1931 1631 1430 1462 1925 2597 3017 3205 3284 3330 3417 3541 3617 3589 3518 3397 3291 3314 3496 1017 218 1965 2120 2256 2320 2299 2341 2425 2491 2528 2460 2385 2529 2949 3287 3246 3026 2803 2522 2196 1970 1999 2491 3181 3607 3799 3881 3928 4015 4136 4202 4178 4109 3993 3892 3910 4095 1018 219 2563 2736 2884 2966 2953 3014 3104 3182 3226 3162 3090 3236 3667 4033 4022 3815 3597 3312 2978 2740 2764 3264 3951 4381 4582 4666 4715 4798 4908 4970 4946 4878 4774 4683 4695 4861 1019 220 3152 3357 3509 3598 3594 3665 3762 3841 3890 3827 3757 3900 4312 4675 4686 4502 4306 4040 3716 3484 3513 4025 4718 5154 5359 5446 5498 5577 5679 5729 5707 5647 5553 5473 5488 5631 1020 221 3859 4113 4270 4386 4400 4482 4582 4666 4718 4662 4598 4726 5098 5424 5444 5281 5106 4869 4570 4353 4380 4867 5517 5925 6119 6202 6252 6325 6414 6456 6437 6387 6305 6235 6243 6368 1021 222 4638 4933 5119 5252 5301 5382 5496 5588 5653 5614 5571 5697 6035 6333 6362 6222 6073 5866 5592 5396 5412 5833 6355 6672 6828 6893 6937 7001 7079 7110 7090 7049 6981 6929 6928 7037 1022 223 5572 5921 6132 6297 6365 6465 6579 6676 6750 6737 6717 6829 7100 7338 7374 7269 7161 6999 6785 6635 6643 6949 7308 7519 7629 7679 7715 7768 7828 7847 7830 7798 7749 7713 7713 7797 1023 224 6523 6900 7160 7352 7454 7572 7692 7786 7870 7880 7885 7965 8124 8250 8275 8208 8148 8056 7919 7836 7832 8005 8191 8297 8361 8391 8423 8463 8501 8510 8495 8471 8449 8433 8429 8488 1024 225 7447 7866 8131 8356 8514 8641 8760 8854 8948 8987 9028 9069 9101 9126 9159 9148 9152 9147 9127 9149 9133 9132 9124 9134 9164 9184 9210 9234 9247 9234 9223 9218 9222 9234 9222 9243 1025 226 0936 0740 0571 0448 0380 0356 0340 0344 0356 0326 0310 0385 0536 0578 0480 0403 0376 0337 0279 0257 0395 1527 4102 6403 7640 8164 8379 8489 8560 8585 8584 8579 8571 8572 8569 8624 1026 227 0893 1740 2920 3949 4412 5012 5847 6499 6759 6830 6770 6649 6394 5885 5111 4150 3164 2191 1331 0786 0522 0403 0323 0274 0265 0268 0279 0328 0415 0474 0459 0410 0329 0278 0307 0438 1027 21 0253 0368 0468 0493 0471 0486 0517 0539 0548 0500 0456 0525 0698 0753 0621 0481 0382 0277 0188 0161 0186 0278 0362 0364 0352 0344 0347 0385 0461 0516 0502 0455 0379 0324 0348 0474 1028 22 0373 0493 0580 0606 0576 0587 0615 0647 0662 0612 0568 0658 0882 0984 0853 0689 0562 0421 0292 0234 0260 0432 0680 0803 0848 0865 0879 0938 1039 1106 1088 1028 0929 0850 0881 1037 1029 23 0602 0722 0815 0842 0809 0825 0864 0900 0920 0867 0815 0925 1225 1416 1313 1123 0956 0761 0567 0459 0480 0751 1166 1411 1511 1552 1579 1651 1768 1844 1823 1754 1640 1545 1573 1751 1030 24 1033 1154 1256 1277 1251 1277 1327 1372 1397 1336 1277 1405 1772 2045 1972 1765 1570 1335 1077 0918 0943 1330 1922 2294 2459 2526 2565 2647 2769 2844 2819 2749 2627 2528 2555 2732 1031 25 1690 1860 1969 2021 1984 2023 2090 2151 2184 2115 2045 2188 2600 2930 2885 2672 2460 2192 1883 1673 1706 2190 2886 3322 3519 3599 3648 3734 3859 3930 3903 3833 3712 3609 3630 3812 1032 26 2742 2938 3080 3144 3129 3182 3265 3336 3381 3320 3255 3406 3839 4216 4222 4029 3824 3557 3231 3000 3027 3531 4222 4658 4858 4940 4990 5070 5179 5233 5210 5149 5047 4958 4972 5128 1033 27 3980 4217 4383 4480 4498 4569 4666 4745 4798 4745 4687 4817 5185 5506 5523 5363 5195 4962 4666 4451 4479 4962 5589 5974 6158 6235 6281 6353 6440 6480 6460 6408 6330 6265 6271 6397 1034 28 5635 5980 6195 6348 6410 6501 6612 6700 6772 6758 6741 6852 7112 7336 7367 7264 7160 7004 6796 6648 6657 6963 7318 7526 7631 7675 7710 7767 7822 7842 7826 7792 7747 7716 7714 7793 1035 29 7439 7852 8122 8343 8485 8608 8718 8807 8891 8930 8967 9009 9037 9058 9085 9069 9074 9065 9038 9057 9045 9043 9035 9043 9068 9083 9108 9132 9148 9138 9128 9123 9127 9141 9127 9147 1036 210 0246 0380 0481 0506 0481 0499 0527 0553 0563 0514 0468 0538 0710 0760 0624 0483 0383 0277 0189 0163 0189 0280 0360 0361 0349 0342 0344 0380 0456 0511 0497 0451 0375 0320 0344 0468 1037 211 0302 0433 0532 0554 0529 0542 0571 0599 0612 0565 0519 0599 0795 0862 0725 0570 0456 0334 0227 0187 0213 0346 0516 0581 0596 0602 0611 0661 0753 0817 0799 0746 0655 0586 0612 0757 1038 212 0372 0494 0597 0617 0594 0607 0640 0669 0684 0633 0585 0672 0894 0992 0859 0694 0565 0422 0292 0235 0261 0435 0687 0815 0861 0878 0894 0949 1049 1116 1097 1039 0940 0864 0890 1044 1039 213 0483 0607 0698 0725 0693 0710 0751 0782 0800 0745 0694 0790 1045 1181 1057 0879 0731 0563 0404 0323 0348 0571 0909 1100 1174 1204 1225 1289 1398 1469 1449 1386 1278 1192 1217 1382 1040 214 0636 0747 0851 0878 0843 0862 0906 0944 0963 0905 0851 0961 1260 1450 1342 1148 0979 0782 0584 0475 0500 0779 1209 1463 1568 1608 1638 1710 1825 1900 1879 1811 1697 1603 1626 1802 1041 215 0819 0943 1040 1074 1041 1064 1116 1155 1175 1112 1051 1167 1491 1711 1614 1412 1231 1015 0792 0658 0689 1035 1566 1893 2033 2090 2124 2200 2320 2394 2369 2302 2183 2085 2111 2286 1042 216 1149 1278 1384 1417 1389 1415 1471 1523 1546 1481 1416 1548 1921 2201 2126 1913 1711 1463 1192 1022 1051 1455 2062 2440 2606 2674 2715 2796 2920 2994 2970 2901 2779 2676 2701 2883 1043 217 1487 1637 1748 1791 1758 1797 1867 1920 1948 1878 1804 1938 2330 2636 2580 2366 2156 1896 1602 1407 1438 1894 2564 2983 3169 3247 3293 3380 3503 3577 3550 3477 3358 3255 3278 3454 1044 218 1942 2110 2244 2301 2288 2332 2412 2478 2512 2442 2368 2510 2921 3255 3213 2994 2774 2494 2173 1952 1979 2460 3144 3573 3768 3848 3895 3980 4097 4163 4137 4069 3954 3857 3876 4048 1045 219 2501 2700 2843 2924 2903 2958 3046 3122 3164 3102 3032 3183 3616 3988 3979 3774 3556 3274 2940 2705 2728 3223 3908 4335 4532 4615 4662 4744 4857 4919 4891 4826 4720 4628 4647 4811 1046 220 3131 3339 3482 3576 3568 3634 3726 3804 3850 3790 3721 3867 4284 4649 4662 4476 4276 4012 3689 3454 3480 3986 4670 5097 5299 5383 5432 5510 5612 5664 5639 5581 5486 5405 5416 5567 1047 221 3825 4065 4223 4330 4339 4410 4514 4593 4645 4589 4528 4657 5031 5363 5381 5219 5045 4807 4511 4294 4321 4812 5464 5872 6069 6152 6200 6272 6362 6404 6381 6333 6252 6184 6194 6315 1048 222 4629 4926 5115 5240 5281 5360 5469 5554 5618 5579 5533 5656 5992 6289 6317 6178 6032 5821 5551 5355 5372 5791 6317 6640 6793 6856 6901 6966 7042 7073 7055 7012 6947 6894 6900 7005 1049 223 5571 5921 6139 6296 6361 6456 6565 6660 6733 6717 6694 6803 7066 7294 7324 7216 7106 6949 6733 6584 6591 6900 7260 7473 7583 7631 7670 7720 7781 7803 7786 7752 7706 7672 7669 7752 1050 224 6501 6892 7143 7332 7432 7543 7657 7749 7831 7842 7851 7930 8086 8213 8235 8164 8104 8008 7867 7779 7779 7960 8150 8260 8323 8353 8386 8427 8468 8474 8460 8437 8410 8395 8390 8447 1051 225 7456 7889 8140 8367 8513 8635 8749 8838 8923 8962 9001 9042 9072 9093 9119 9106 9111 9102 9078 9100 9088 9088 9082 9093 9121 9138 9161 9189 9203 9194 9183 9178 9181 9191 9178 9197 1052 226 1791 1519 1179 0871 0653 0548 0484 0498 0611 0659 0739 1318 3048 5482 7007 7531 7746 7808 7717 7601 7799 8319 8555 8627 8674 8703 8734 8767 8792 8789 8780 8771 8774 8784 8774 8796 1053 227 0438 0796 1187 1509 1670 1902 2188 2300 2148 1865 1561 1290 1040 0782 0548 0398 0309 0214 0143 0135 0173 0269 0354 0358 0345 0340 0343 0380 0455 0511 0497 0450 0374 0319 0346 0469 1054 21 0237 0367 0460 0486 0463 0474 0504 0527 0537 0490 0449 0519 0694 0749 0620 0481 0381 0278 0191 0164 0188 0278 0358 0360 0347 0340 0341 0377 0452 0507 0492 0446 0372 0319 0340 0467 1055 22 0352 0485 0565 0586 0561 0570 0599 0627 0642 0595 0552 0639 0862 0963 0835 0673 0548 0410 0283 0228 0253 0420 0664 0786 0829 0845 0860 0916 1015 1081 1061 1004 0907 0832 0860 1011 1056 23 0590 0705 0795 0812 0782 0798 0833 0869 0888 0835 0786 0897 1197 1390 1290 1103 0939 0747 0557 0451 0474 0739 1151 1394 1494 1535 1562 1635 1753 1827 1805 1738 1623 1530 1557 1734 1057 24 1007 1141 1231 1258 1227 1250 1300 1342 1368 1308 1250 1377 1740 2016 1947 1744 1551 1317 1065 0907 0934 1316 1901 2270 2433 2499 2538 2620 2741 2815 2790 2721 2600 2497 2525 2704 1058 25 1687 1844 1952 1992 1961 1997 2062 2122 2154 2088 2019 2162 2575 2905 2863 2652 2442 2177 1871 1665 1698 2180 2879 3319 3517 3600 3646 3731 3852 3921 3898 3827 3708 3607 3627 3809 1059 26 2679 2879 3012 3079 3059 3114 3197 3273 3317 3254 3190 3345 3786 4172 4181 3986 3779 3506 3179 2946 2971 3471 4164 4599 4800 4885 4936 5019 5124 5180 5153 5091 4989 4901 4917 5079 1060 27 3941 4199 4359 4463 4480 4552 4653 4738 4791 4738 4681 4811 5179 5506 5526 5366 5196 4961 4666 4451 4479 4961 5590 5981 6169 6248 6297 6369 6457 6496 6473 6422 6346 6282 6293 6423 1061 28 5648 5983 6204 6352 6421 6513 6622 6714 6787 6771 6751 6861 7124 7356 7392 7290 7186 7032 6823 6676 6681 6983 7336 7544 7649 7695 7731 7780 7838 7860 7842 7812 7771 7738 7732 7817 1062 29 7434 7858 8125 8351 8495 8623 8731 8819 8907 8945 8984 9020 9047 9069 9096 9084 9089 9082 9057 9078 9065 9062 9051 9062 9090 9109 9130 9153 9170 9161 9153 9144 9144 9160 9150 9166 1063 210 0233 0357 0459 0485 0462 0479 0507 0533 0542 0494 0451 0519 0691 0743 0612 0472 0373 0270 0186 0160 0186 0274 0351 0350 0337 0328 0330 0364 0437 0491 0476 0430 0358 0304 0333 0450 1064 211 0291 0426 0527 0550 0531 0544 0575 0604 0618 0567 0520 0595 0787 0852 0715 0561 0449 0327 0222 0184 0210 0337 0503 0565 0581 0586 0595 0642 0733 0795 0778 0726 0637 0569 0595 0734 1065 212 0350 0483 0582 0605 0571 0591 0622 0653 0666 0615 0568 0654 0873 0971 0840 0675 0548 0409 0281 0227 0253 0422 0669 0795 0838 0854 0869 0924 1022 1090 1070 1014 0918 0843 0869 1019 1066 213 0457 0587 0680 0704 0673 0695 0729 0760 0780 0724 0674 0769 1022 1157 1035 0859 0714 0548 0392 0315 0341 0558 0891 1076 1148 1176 1197 1261 1368 1439 1419 1356 1249 1165 1191 1356 1067 214 0608 0734 0829 0859 0828 0847 0889 0925 0945 0892 0838 0950 1253 1446 1340 1146 0976 0778 0579 0470 0493 0767 1185 1427 1525 1566 1591 1662 1777 1851 1829 1762 1650 1556 1580 1759 1068 215 0804 0924 1027 1057 1021 1049 1097 1137 1157 1096 1036 1151 1472 1689 1592 1392 1213 1000 0778 0646 0676 1014 1534 1851 1985 2038 2072 2149 2267 2341 2317 2250 2131 2032 2058 2237 1069 216 1112 1252 1349 1381 1346 1378 1431 1480 1507 1443 1379 1511 1888 2173 2103 1892 1691 1447 1178 1010 1037 1433 2024 2389 2548 2613 2652 2735 2859 2935 2910 2837 2717 2614 2638 2820 1070 217 1443 1598 1707 1748 1723 1756 1821 1877 1904 1834 1764 1897 2289 2598 2541 2327 2118 1857 1566 1371 1401 1852 2515 2928 3112 3189 3232 3318 3442 3514 3489 3418 3296 3192 3215 3400 1071 218 1905 2080 2210 2268 2248 2290 2370 2437 2471 2403 2331 2474 2893 3236 3199 2983 2762 2481 2160 1938 1963 2441 3120 3543 3736 3815 3862 3946 4066 4133 4108 4037 3921 3823 3842 4016 1072 219 2468 2656 2800 2871 2856 2912 2999 3070 3114 3048 2979 3129 3562 3935 3930 3727 3513 3234 2902 2668 2693 3188 3875 4304 4501 4581 4630 4715 4828 4886 4863 4796 4691 4598 4614 4780 1073 220 3127 3322 3478 3564 3563 3623 3721 3801 3849 3790 3724 3869 4288 4660 4676 4492 4293 4026 3703 3472 3495 3989 4666 5093 5295 5379 5431 5510 5610 5661 5634 5575 5481 5404 5417 5562 1074 221 3812 4059 4225 4325 4345 4416 4517 4604 4649 4597 4535 4663 5038 5367 5383 5220 5042 4804 4502 4286 4314 4802 5454 5867 6065 6147 6198 6270 6360 6405 6384 6332 6249 6181 6187 6319 1075 222 4613 4907 5090 5222 5261 5344 5453 5544 5605 5568 5524 5649 5985 6285 6314 6172 6022 5811 5537 5341 5356 5771 6292 6609 6761 6827 6871 6935 7013 7047 7029 6984 6916 6863 6864 6974 1076 223 5551 5894 6100 6260 6325 6421 6528 6622 6695 6682 6659 6771 7036 7268 7300 7194 7084 6923 6707 6558 6563 6872 7234 7449 7558 7609 7645 7698 7756 7779 7764 7731 7683 7645 7647 7732 1077 224 6473 6863 7117 7305 7402 7515 7630 7723 7807 7817 7825 7906 8065 8191 8213 8144 8080 7983 7844 7758 7759 7941 8128 8238 8305 8338 8369 8409 8448 8453 8442 8421 8397 8382 8377 8433 1078 225 7435 7847 8127 8346 8494 8624 8736 8826 8917 8956 8995 9040 9069 9090 9117 9105 9111 9103 9080 9101 9089 9091 9084 9092 9121 9136 9160 9184 9199 9189 9180 9171 9174 9184 9177 9193 1079 226 0341 0562 0731 0733 0640 0602 0589 0637 0755 0803 0873 1377 2709 4091 4285 3659 2839 1981 1215 0734 0511 0412 0341 0294 0280 0280 0288 0328 0407 0462 0448 0404 0330 0282 0307 0430 1080 227 2266 2058 1905 1881 1927 2041 2157 2113 1877 1538 1216 0949 0726 0522 0364 0296 0281 0251 0214 0228 0376 1449 3979 6294 7568 8119 8343 8457 8530 8554 8561 8563 8559 8560 8561 8608 ] def %END RX1F } if %ybunta=0 %***************************************************************************** %END spectral reflection data, cmyn6*, 1080 colours, offset A,B,L,G, printer P %END 'QK0X'OUTLIN1Y_PK8601.PS %END_OUTLIN1Y_PK8601********************************************************** %END Include Procedures for output linearization at line 30 %*********************************************************** /BeginEPSFF {% def % Prepare for EPS file Frame (F) /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 /EndEPSFF {% def % End for EPS file Frame (F) 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 %%EndProlog %%BeginPageSetup /#copies 1 def %A4quer 1.0 1.0 scale /pgsave save def %%EndPageSetup %********************************************************** /lanind1f 5 def /lanind2f 5 def /laninddf 01 def /colorm1f 00 def /colorm2f 01 def /colormdf 01 def /deintp1f 00 def /deintp2f 01 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-15,16-29 /xchart3f 01 def /xchart4f 0 def /xchart5f 01 def /xchart6f 01 def /pchart1f 03 def /pchart2f 03 def /pchartdf 01 def %=3 for sRGB, Lr=0 /colsep1f 01 def /colsep2f 01 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 % colorm1f colormdf colorm2f {/colormf exch 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 /xchart3P14 xchart3 14 add def /xchart4 xchart4f def /pchart pchartf def /colsep colsepf def gsave %/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 72 90 translate 0.01 MM dup scale 0 0 moveto 24600 0 rlineto 0 17220 rlineto -24600 0 rlineto closepath stroke 1800 -240 moveto 240 /Times-ISOL1 FS lanindf cvishow (-) show colormf cvishow deintpf cvishow xcolorf cvishow xchartf cvishow pchartf cvishow colsepf cvishow (-F) show pmetamf cvishow grestore gsave xchart xchart3P14 le {%BEG xchart<=xchart3P14 BeginEPSFF 0 MM 0 MM translate %%BeginDocument: %*************************************** %line 199 %BEG INCLUDE TEST FILE at line 200 %!PS-Adobe-3.0 EPSF-3.0 SN080-74.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/SN08/) /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:2015070112000) /ModDate (D:2015070112000) /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-74, 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 ( adapterte (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 (navn) 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-74, 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 (%Omfang) 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 (%Regularitet) 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 5 def /lanind2 5 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 01 def /colsep2 01 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 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 %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 (ORS20a) def xchart 0 eq {/ISRL*ioL 0 def /ISIO*ioL 0 def} if %Offset ORS18 xchart 1 ge {/ISRL*ioL 0 def /ISIO*ioL 0 def} if %Offset ORS18 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\255Reflektiv\255System ) 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 (Fjernsyn\255Lysfarge\255System ) 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\255Reflektiv\255System ) 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 (Fjernsyn\255Lysfarge\255System ) 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 (Naturlig\255Lysfarge\255System ) 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 (Naturlig\255Reflektiv\255System ) 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\255Reflektiv\255System ) 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 (Fjernsyn\255Lysfarge\255System ) 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 (Fjernsyn\255Lysfarge\255System ) 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\255Reflektiv\255System ) 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 (SN080-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.010 MM} {0.010 MM} ifelse dup scale %xt 0 eq {0.010 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 25000 0 rlineto 0 17220 rlineto -25000 0 rlineto closepath fill 0 setgray 0 0 moveto 25000 0 rlineto 0 17220 rlineto -25000 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 og 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 ethvert apparat (d) eller) showjp xtext0 14100 moveto (elementary (e) colour:) showen (Elementarfarbe (e):) showde (elemental (e) color:) showes (ou \351l\351mentaires (e):) showfr (colori elementari (e):) showit (element\346farge (e):) 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 (fargetonetekst for fargene) showjp xtext0 12900 moveto (of this page: ) showen (dieser Seite: ) showde (esta p\341gina: ) showes (leurs de cette p\341ge: ) showfr (questa pagina: ) showit (p\345 denne siden: ) 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 ( gullig) showjp -3600 1300 moveto (yellowish) showen (gelblich) showde (amarillento) showes (jaun\342tre) showfr (giallastro) showit ( gullig) showjp 2300 -1450 moveto ( bluish) showen (bl\344ulich) showde (azulado) showes (blue\342tre) showfr (bluastro) showit ( bl\345lig) showjp -3600 -1450 moveto ( bluish) showen (bl\344ulich) showde (azulado) showes (blue\342tre) showfr (bluastro) showit ( bl\345lig) showjp -2000 3300 moveto (greenish) showen (gr\374nlich) showde ( verdoso) showes (verd\342tre) showfr (verdastro) showit (gr\370nnlig) showjp -2000 -3500 moveto (greenish) showen (gr\374nlich) showde ( verdoso) showes (verd\342tre) showfr (verdastro) showit (gr\370nnlig) showjp 900 3300 moveto ( redish) showen (r\366tlich) showde ( rojizo) showes (rouge\342tre) showfr (rossastro) showit ( r\370dlig) showjp 900 -3500 moveto ( redish) showen (r\366tlich) showde ( rojizo) showes (rouge\342tre) showfr (rossastro) showit ( r\370dlig) showjp -4000 -100 moveto (Green) showen (Gr\374n) showde (Green) showes (Vert) showfr (Verde) showit (Gr\370nn) 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 (R\370d) 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 (gul) 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 (Bl\345) 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 (briljans) showjp TBIG0 ( I*) show 7200 -1100 moveto TBG0 (chroma) showen (Buntheit) showde (chroma) showes (chroma) showfr (croma) showit (kul\370rthet) 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 ethvert apparat (d) eller) showjp xtext0 14100 moveto (elementary (e) colour:) showen (Elementarfarbe (e):) showde (elemental (e) color:) showes (ou \351l\351mentaires (e):) showfr (colori elementari (e):) showit (element\346rfarge (e):) 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 (fargetonetekst for fargene) showjp xtext0 12900 moveto (of this page: ) showen (dieser Seite: ) showde (esta p\341gina: ) showes (leurs de cette p\341ge: ) showfr (questa pagina: ) showit (p\345 denne siden: ) 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 (kontrastreduksjons\255faktor: ) 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 (trekantslyshet) 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 (trekantslyshet) 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 maksimalfarge (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-74, 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 og 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 relativ CIELAB fargetone) 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 (, side ) showjp xchart 1 add cvishow (/) show xchartm 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\255System ) 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 til maksimalfargen M in fargemetrisk 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 eller 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 (Seks fargetonevinkler til 60 graders standardfargene) 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 (seks fargetonevinkler til apparatfargene) 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 (seks fargetonevinkler til element\346rfargene) 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 ( SN080-74, ) 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 %END INCLUDE TEST FILE at line 200 %*************************************** %%EndDocument EndEPSFF grestore gsave } if %xchart<=xchart3P14 %********************************************************** xchart xchart3P14 gt {%BEG xchart>xchart3P14 /n00 xchart3P14 1 add def %separations at pages 3-6 /n01 n00 1 add def %special rgb-LabCh* tables start at pages 7-16 /n02 n00 2 add def %DE*-tables for 972 colours at page 17-30 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 90 translate 0.01 MM dup scale 0 0 0 setrgbcolor 0 0 moveto 24600 0 rlineto 0 17220 rlineto -24600 0 rlineto closepath stroke 240 /Times-ISOL1 FS 0 0 0 setrgbcolor 3600 -180 moveto (DM100-74, ) show lanind 0 eq {(Seite ) show} if lanind 1 ge {(Page ) show} if xchart 1 add cvishow (/) show xchartm 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} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx () 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 /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 } if %END xchart>xchart3P14 %************************************************************* %} for %pmetamf=0,1 showpage grestore %} for %colsepf=0,1 %} for %pchartf=0,0 %} for %xchartf=0,15 %} for %xcolorf=0,1 } for %deintpf=0,1 } for %colormf=0,1 %} for %lanindf=0,0 %%Trailer