%!PS-Adobe-3.0 EPSF-3.0 http://130.149.60.45/~farbmetrik/RF38/RF38L00XX.PS 20120401 %%BoundingBox: 14 08 828 584 /pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: www.ps.bam.de/RF38/RF38.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2013020112000) /ModDate (D:20130210112000) /DOCINFO pdfmark [ /View [ /Fit ] /DOCVIEW pdfmark /sfgray {setgray} bind def /ypaper 0 def /ybunta 0 def %Early FF definition /sfrgbcolor {setrgbcolor} bind def /sfcmykcolor {setcmykcolor} bind def %line 20****************************************************** %**************************************************** %BEG 'RF38'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 'RF38'OUTLIN11.PS for output 3D-linearization %**************************************************** %**************************************************** %BEG 'RF38'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 'RF38'OUTLIN1X.PS Other procedures for Offset output linearization %**************************************************** %BEG_OUTLIN1Y_PK8621********************************************************** %BEG 'RF38'OUTLIN1Y2_PK8621.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 2 def ybunta 2 eq {%ybunta=2 /FILEDATA_RX1F_IOF (PE4600L_120830.TXT, 1080 colors, Separation cmy0*) def /RX1F [ %PE4600L_120830_01.txt 1 1 0248 0381 0466 0530 0531 0536 0546 0563 0579 0532 0489 0577 0784 0849 0703 0551 0446 0330 0225 0186 0213 0320 0402 0394 0380 0374 0378 0422 0512 0574 0560 0508 0422 0359 0380 0514 2 2 0257 0389 0492 0582 0586 0597 0619 0640 0651 0594 0536 0610 0790 0826 0671 0518 0417 0303 0203 0167 0197 0306 0390 0383 0370 0365 0369 0413 0502 0565 0550 0498 0415 0349 0371 0509 3 3 0275 0413 0551 0663 0693 0717 0755 0780 0779 0706 0629 0678 0825 0832 0664 0510 0408 0295 0195 0161 0191 0300 0385 0380 0366 0361 0365 0409 0499 0562 0547 0497 0411 0346 0371 0502 4 4 0295 0454 0615 0764 0812 0849 0900 0925 0920 0830 0735 0763 0874 0847 0666 0511 0406 0295 0194 0160 0193 0301 0384 0377 0363 0357 0361 0406 0495 0557 0542 0493 0408 0341 0368 0502 5 5 0293 0496 0702 0910 1002 1081 1166 1203 1174 1044 0906 0883 0925 0845 0648 0491 0390 0281 0185 0156 0189 0295 0376 0370 0356 0351 0354 0397 0484 0545 0530 0480 0398 0334 0358 0489 6 6 0342 0555 0808 1068 1206 1315 1442 1488 1429 1265 1087 1009 0981 0853 0641 0482 0383 0273 0180 0153 0188 0296 0378 0373 0358 0354 0357 0400 0485 0547 0532 0483 0399 0335 0363 0493 7 7 0375 0607 0906 1236 1428 1584 1765 1827 1730 1517 1290 1142 1033 0850 0625 0464 0366 0259 0169 0144 0180 0287 0370 0366 0353 0348 0351 0395 0480 0540 0525 0478 0395 0335 0355 0489 8 8 0398 0668 0999 1392 1641 1842 2075 2147 2008 1749 1472 1255 1065 0835 0599 0441 0346 0244 0159 0141 0179 0285 0368 0363 0350 0346 0349 0391 0476 0535 0520 0474 0391 0329 0358 0482 9 9 0403 0708 1090 1537 1840 2090 2377 2466 2281 1974 1648 1359 1096 0829 0585 0428 0334 0235 0153 0136 0176 0282 0366 0363 0351 0346 0350 0393 0477 0537 0522 0475 0394 0331 0357 0484 10 10 0424 0450 0467 0481 0455 0442 0436 0441 0458 0424 0394 0479 0657 0700 0572 0455 0386 0306 0224 0194 0255 0673 1466 2013 2253 2353 2408 2504 2643 2724 2702 2636 2514 2406 2433 2617 11 11 0436 0493 0516 0558 0546 0537 0542 0548 0558 0508 0461 0529 0687 0709 0573 0452 0383 0301 0219 0189 0251 0663 1442 1986 2226 2326 2380 2475 2612 2695 2672 2606 2484 2374 2401 2586 12 12 0494 0548 0595 0660 0670 0674 0686 0694 0688 0616 0548 0593 0713 0705 0559 0437 0370 0289 0209 0184 0247 0661 1449 1999 2244 2344 2399 2493 2631 2713 2692 2624 2502 2397 2420 2601 13 13 0515 0609 0680 0774 0805 0824 0854 0862 0839 0742 0647 0662 0744 0706 0552 0432 0364 0284 0206 0182 0246 0656 1438 1985 2230 2331 2385 2480 2616 2698 2680 2611 2488 2381 2405 2592 14 14 0613 0702 0813 0953 1017 1065 1122 1128 1072 0937 0800 0764 0783 0704 0537 0418 0351 0274 0200 0180 0249 0668 1477 2050 2309 2415 2474 2570 2709 2793 2772 2704 2582 2472 2495 2680 15 15 0684 0809 0942 1141 1248 1327 1411 1418 1330 1150 0967 0880 0838 0715 0534 0412 0346 0268 0194 0177 0249 0669 1481 2057 2318 2429 2488 2585 2723 2806 2785 2719 2595 2485 2512 2701 16 16 0745 0887 1059 1321 1492 1605 1733 1740 1613 1386 1154 1003 0893 0727 0532 0407 0339 0260 0186 0171 0243 0655 1454 2022 2279 2385 2443 2539 2675 2760 2740 2673 2550 2441 2465 2651 17 17 0802 0972 1189 1511 1733 1885 2054 2067 1894 1614 1332 1114 0931 0722 0516 0391 0326 0250 0180 0172 0246 0651 1434 1989 2241 2347 2404 2498 2636 2720 2699 2635 2509 2400 2424 2603 18 18 0878 1047 1295 1672 1951 2150 2364 2380 2156 1826 1494 1208 0959 0714 0501 0378 0315 0241 0174 0170 0246 0649 1435 1997 2253 2359 2417 2512 2648 2732 2713 2645 2525 2421 2440 2625 19 19 0625 0552 0498 0467 0428 0394 0380 0376 0389 0359 0338 0419 0578 0613 0500 0408 0369 0317 0251 0225 0333 1178 2991 4486 5240 5561 5715 5842 5975 6043 6030 5984 5907 5839 5856 6005 20 20 0683 0619 0556 0549 0521 0497 0481 0477 0480 0432 0392 0454 0589 0603 0484 0392 0353 0300 0236 0212 0322 1166 2981 4483 5245 5568 5723 5852 5987 6057 6042 5999 5916 5848 5867 6011 21 21 0757 0705 0671 0687 0677 0660 0657 0646 0631 0557 0490 0525 0626 0611 0483 0392 0353 0301 0238 0217 0330 1177 2994 4506 5273 5603 5760 5889 6023 6092 6080 6035 5957 5888 5905 6051 22 22 0847 0811 0794 0843 0858 0856 0867 0850 0807 0701 0600 0599 0658 0614 0477 0384 0348 0296 0233 0216 0331 1174 2989 4507 5285 5620 5779 5911 6044 6111 6102 6058 5980 5915 5931 6074 23 23 0984 0950 0958 1053 1108 1132 1159 1136 1056 0898 0749 0693 0689 0600 0454 0363 0328 0279 0221 0209 0323 1144 2946 4476 5270 5615 5779 5912 6043 6112 6103 6059 5982 5916 5931 6076 24 24 1096 1105 1111 1261 1355 1405 1455 1425 1305 1103 0906 0797 0733 0609 0452 0360 0325 0275 0219 0210 0327 1150 2947 4475 5273 5621 5786 5918 6051 6120 6111 6070 5992 5927 5942 6084 25 25 1204 1195 1242 1432 1573 1646 1720 1681 1523 1274 1035 0874 0757 0600 0436 0345 0312 0265 0212 0208 0327 1144 2940 4471 5273 5623 5793 5927 6061 6129 6121 6080 6005 5938 5955 6090 26 26 1311 1330 1397 1632 1819 1924 2025 1982 1770 1472 1181 0961 0782 0591 0419 0331 0300 0255 0204 0204 0327 1153 2980 4546 5371 5731 5905 6041 6172 6240 6236 6195 6122 6063 6076 6214 27 27 1409 1435 1527 1825 2065 2209 2349 2291 2028 1673 1332 1048 0807 0585 0405 0318 0289 0246 0196 0201 0327 1172 3035 4623 5457 5820 5994 6127 6257 6323 6315 6279 6207 6151 6164 6298 28 1 0248 0387 0493 0559 0556 0553 0565 0584 0612 0574 0541 0666 0955 1091 0946 0758 0610 0445 0290 0218 0234 0333 0402 0390 0376 0372 0377 0422 0513 0576 0561 0510 0424 0360 0383 0517 29 2 0258 0400 0529 0622 0632 0641 0660 0682 0706 0655 0605 0711 0968 1071 0915 0725 0580 0419 0270 0202 0218 0317 0387 0374 0361 0356 0361 0406 0495 0558 0543 0492 0408 0342 0371 0498 30 3 0279 0442 0599 0725 0757 0778 0815 0845 0862 0796 0730 0813 1033 1097 0923 0729 0581 0418 0268 0200 0217 0316 0387 0376 0362 0358 0362 0408 0499 0560 0545 0495 0409 0344 0373 0505 31 4 0295 0484 0675 0842 0897 0942 0999 1032 1038 0952 0861 0915 1083 1098 0905 0709 0564 0404 0258 0194 0214 0314 0384 0374 0361 0356 0361 0406 0494 0558 0543 0493 0407 0342 0366 0502 32 5 0333 0548 0780 1011 1114 1193 1289 1337 1320 1202 1072 1072 1157 1102 0887 0688 0545 0388 0248 0189 0211 0309 0380 0369 0355 0351 0355 0399 0485 0546 0531 0482 0400 0338 0362 0491 33 6 0375 0613 0905 1203 1363 1485 1628 1693 1648 1491 1316 1254 1255 1134 0893 0689 0544 0387 0244 0186 0209 0307 0377 0366 0352 0348 0352 0396 0483 0544 0529 0479 0397 0334 0355 0489 34 7 0381 0669 1008 1383 1603 1777 1978 2059 1978 1776 1555 1419 1326 1139 0881 0674 0529 0374 0236 0180 0202 0299 0369 0360 0347 0343 0348 0391 0476 0536 0521 0473 0391 0328 0354 0485 35 8 0419 0722 1116 1570 1849 2083 2342 2440 2319 2070 1794 1579 1388 1141 0864 0659 0515 0363 0229 0178 0203 0297 0366 0356 0342 0337 0342 0385 0470 0530 0513 0467 0387 0326 0353 0481 36 9 0465 0781 1212 1738 2080 2362 2690 2808 2641 2342 2016 1719 1439 1140 0851 0642 0503 0353 0221 0174 0201 0297 0367 0359 0347 0343 0347 0390 0473 0533 0517 0471 0390 0328 0355 0483 37 10 0421 0478 0491 0506 0477 0456 0450 0456 0482 0453 0429 0546 0811 0946 0839 0701 0606 0491 0366 0301 0366 0803 1557 2057 2275 2367 2419 2511 2647 2728 2705 2638 2519 2414 2434 2621 38 11 0482 0527 0569 0602 0591 0574 0574 0582 0602 0559 0520 0623 0864 0974 0855 0713 0617 0500 0374 0311 0375 0810 1555 2050 2266 2356 2407 2501 2637 2718 2697 2629 2508 2403 2426 2610 39 12 0545 0594 0661 0736 0740 0745 0756 0766 0772 0708 0645 0723 0922 0991 0855 0708 0611 0493 0368 0308 0373 0806 1552 2046 2265 2354 2406 2498 2634 2713 2691 2624 2506 2400 2425 2605 40 13 0591 0681 0772 0884 0919 0933 0962 0972 0961 0870 0780 0825 0979 1004 0852 0704 0607 0490 0367 0308 0375 0807 1555 2053 2273 2364 2416 2509 2644 2725 2704 2638 2516 2410 2430 2616 41 14 0677 0801 0931 1120 1196 1246 1306 1318 1275 1146 1011 1001 1080 1044 0868 0713 0614 0495 0371 0313 0382 0821 1585 2102 2332 2427 2480 2572 2706 2786 2765 2698 2577 2475 2496 2675 42 15 0750 0904 1082 1322 1453 1533 1627 1643 1570 1400 1223 1157 1162 1068 0870 0710 0608 0488 0364 0310 0379 0805 1549 2050 2274 2365 2418 2510 2642 2723 2703 2636 2515 2409 2432 2613 43 16 0846 1020 1245 1562 1761 1886 2026 2048 1935 1714 1485 1349 1264 1105 0885 0718 0613 0492 0367 0313 0382 0805 1536 2025 2242 2334 2386 2477 2611 2692 2673 2606 2484 2380 2400 2584 44 17 0906 1118 1398 1794 2054 2231 2419 2446 2284 2011 1731 1515 1336 1115 0874 0707 0605 0484 0362 0315 0386 0802 1533 2028 2250 2342 2395 2483 2616 2697 2677 2610 2490 2384 2407 2589 45 18 0950 1208 1514 1981 2305 2531 2773 2808 2596 2273 1939 1646 1379 1105 0851 0684 0584 0466 0349 0306 0378 0785 1499 1980 2196 2287 2340 2429 2561 2642 2623 2555 2435 2333 2356 2537 46 19 0645 0584 0521 0491 0448 0411 0391 0388 0410 0382 0366 0477 0723 0864 0791 0695 0648 0577 0478 0422 0551 1450 3201 4590 5279 5571 5711 5834 5962 6027 6013 5968 5889 5823 5841 5984 47 20 0736 0678 0632 0624 0586 0554 0539 0534 0545 0500 0466 0563 0797 0923 0842 0744 0695 0622 0520 0462 0593 1492 3227 4594 5272 5559 5699 5820 5949 6014 6002 5959 5877 5812 5824 5967 48 21 0827 0782 0754 0776 0760 0737 0723 0719 0711 0645 0585 0658 0856 0946 0851 0749 0699 0625 0522 0466 0600 1502 3243 4622 5311 5606 5752 5876 6007 6072 6060 6014 5936 5869 5884 6028 49 22 0935 0922 0910 0971 0994 0983 0986 0971 0939 0841 0748 0783 0926 0968 0855 0750 0700 0626 0526 0475 0609 1503 3239 4622 5319 5619 5765 5889 6018 6082 6072 6028 5951 5887 5900 6040 50 23 1113 1113 1139 1266 1330 1350 1376 1350 1281 1132 0989 0961 1022 0996 0857 0748 0698 0627 0530 0486 0623 1506 3239 4635 5346 5651 5803 5928 6057 6124 6114 6071 5994 5929 5944 6080 51 24 1251 1280 1342 1531 1654 1701 1746 1716 1607 1411 1219 1134 1121 1039 0879 0765 0715 0640 0543 0499 0638 1522 3248 4637 5345 5650 5799 5927 6056 6122 6110 6068 5993 5929 5940 6083 52 25 1376 1428 1511 1766 1937 2015 2089 2052 1900 1656 1418 1270 1183 1045 0867 0752 0702 0629 0535 0496 0634 1509 3228 4617 5327 5637 5790 5918 6046 6111 6099 6059 5983 5923 5935 6074 53 26 1530 1594 1718 2047 2283 2396 2503 2453 2248 1950 1656 1437 1265 1069 0872 0755 0707 0636 0544 0511 0654 1545 3304 4730 5460 5779 5935 6062 6190 6254 6248 6206 6135 6074 6083 6224 54 27 1669 1742 1894 2292 2599 2758 2899 2841 2577 2224 1877 1583 1327 1081 0869 0752 0706 0637 0548 0521 0667 1564 3345 4794 5538 5860 6017 6143 6268 6330 6325 6288 6216 6159 6168 6304 55 1 0272 0399 0509 0583 0568 0558 0563 0584 0626 0597 0575 0744 1153 1415 1296 1060 0849 0615 0394 0274 0264 0344 0396 0377 0363 0359 0364 0411 0503 0567 0552 0499 0413 0347 0373 0503 56 2 0281 0432 0570 0674 0677 0682 0702 0729 0763 0726 0690 0842 1217 1438 1297 1056 0843 0609 0388 0270 0261 0342 0393 0375 0360 0357 0362 0409 0500 0565 0550 0498 0412 0346 0371 0503 57 3 0289 0481 0652 0801 0830 0856 0895 0930 0961 0909 0853 0983 1308 1474 1306 1056 0841 0605 0385 0267 0260 0341 0395 0378 0363 0360 0365 0412 0503 0566 0551 0501 0415 0348 0373 0510 58 4 0338 0543 0759 0958 1028 1074 1139 1187 1209 1139 1062 1161 1432 1536 1337 1079 0856 0614 0388 0269 0261 0339 0390 0372 0358 0354 0360 0407 0497 0561 0545 0494 0409 0344 0372 0505 59 5 0390 0609 0885 1154 1280 1368 1475 1539 1545 1441 1326 1367 1534 1540 1305 1043 0824 0590 0372 0261 0256 0335 0386 0369 0354 0350 0357 0402 0491 0553 0538 0488 0404 0339 0365 0499 60 6 0398 0670 1012 1364 1546 1685 1847 1933 1911 1769 1608 1581 1641 1555 1289 1022 0806 0575 0362 0254 0252 0332 0383 0366 0353 0348 0354 0399 0486 0549 0532 0483 0399 0337 0363 0492 61 7 0431 0744 1133 1573 1826 2018 2247 2354 2298 2115 1905 1791 1730 1553 1258 0988 0775 0548 0343 0241 0241 0321 0377 0363 0350 0347 0353 0398 0485 0545 0530 0481 0399 0336 0363 0494 62 8 0462 0804 1255 1777 2098 2349 2646 2778 2682 2449 2183 1981 1803 1545 1225 0954 0745 0525 0326 0231 0234 0312 0367 0353 0340 0337 0341 0386 0472 0532 0516 0469 0388 0324 0353 0483 63 9 0492 0864 1364 1986 2386 2711 3095 3255 3109 2826 2503 2202 1907 1572 1228 0952 0741 0520 0321 0227 0231 0311 0367 0354 0341 0338 0343 0388 0474 0535 0518 0472 0389 0328 0356 0487 64 10 0456 0509 0530 0545 0507 0479 0467 0475 0513 0492 0480 0647 1054 1360 1313 1154 1017 0848 0661 0547 0599 1030 1710 2140 2327 2407 2454 2545 2679 2761 2737 2671 2549 2444 2470 2655 65 11 0523 0585 0626 0664 0642 0621 0617 0628 0657 0625 0597 0748 1118 1375 1302 1137 1001 0833 0648 0538 0590 1019 1697 2123 2309 2387 2436 2528 2663 2743 2720 2653 2529 2425 2449 2634 66 12 0579 0669 0736 0819 0818 0814 0826 0838 0858 0806 0756 0882 1202 1402 1303 1130 0993 0825 0641 0534 0587 1013 1686 2110 2297 2376 2424 2516 2651 2733 2710 2642 2519 2415 2438 2625 67 13 0665 0774 0900 1035 1080 1093 1123 1137 1141 1061 0981 1072 1335 1473 1344 1161 1019 0846 0659 0551 0604 1029 1705 2135 2323 2401 2449 2539 2674 2755 2733 2665 2543 2436 2459 2640 68 14 0781 0929 1098 1314 1414 1461 1522 1542 1517 1397 1274 1306 1477 1525 1358 1166 1020 0846 0661 0555 0609 1031 1706 2141 2331 2412 2459 2550 2683 2764 2742 2675 2551 2447 2469 2651 69 15 0879 1044 1270 1571 1732 1816 1925 1950 1895 1737 1570 1538 1616 1581 1378 1176 1026 0848 0661 0558 0610 1024 1691 2121 2309 2390 2436 2527 2660 2739 2717 2649 2528 2421 2447 2628 70 16 0969 1191 1480 1868 2105 2237 2391 2424 2328 2126 1908 1798 1762 1635 1397 1185 1032 0855 0668 0568 0622 1032 1688 2107 2293 2371 2421 2512 2646 2725 2704 2637 2515 2407 2433 2617 71 17 1078 1336 1685 2183 2505 2701 2915 2960 2817 2559 2284 2084 1925 1702 1429 1209 1053 0873 0685 0586 0642 1051 1719 2153 2346 2428 2477 2567 2699 2778 2756 2692 2569 2463 2490 2669 72 18 1141 1448 1852 2445 2855 3111 3391 3451 3253 2942 2610 2311 2029 1725 1425 1200 1043 0863 0679 0584 0639 1040 1695 2122 2312 2394 2444 2535 2667 2744 2723 2656 2537 2432 2458 2639 73 19 0697 0633 0567 0521 0463 0418 0396 0393 0422 0404 0398 0555 0949 1282 1301 1215 1158 1064 0925 0833 0973 1896 3531 4766 5373 5633 5762 5883 6012 6077 6064 6019 5938 5868 5886 6034 74 20 0804 0747 0697 0689 0643 0607 0586 0581 0601 0566 0542 0685 1049 1340 1334 1241 1181 1086 0947 0857 0996 1908 3535 4772 5378 5639 5770 5892 6018 6083 6071 6025 5944 5874 5894 6035 75 21 0942 0906 0883 0918 0911 0878 0864 0853 0859 0799 0749 0869 1197 1448 1422 1323 1259 1161 1017 0925 1066 1981 3599 4829 5431 5689 5818 5937 6062 6127 6114 6071 5988 5920 5938 6076 76 22 1085 1084 1084 1182 1207 1191 1184 1171 1154 1064 0985 1069 1340 1529 1475 1365 1299 1197 1055 0964 1105 2013 3629 4863 5474 5738 5869 5987 6113 6177 6166 6122 6040 5975 5988 6130 77 23 1265 1296 1353 1525 1606 1618 1633 1609 1556 1423 1295 1318 1493 1585 1486 1366 1298 1197 1057 0973 1114 2010 3614 4844 5456 5724 5854 5973 6099 6165 6153 6109 6030 5962 5978 6119 78 24 1463 1538 1637 1905 2062 2106 2149 2118 2021 1835 1655 1606 1675 1670 1530 1400 1328 1225 1086 1006 1149 2043 3644 4875 5490 5759 5892 6015 6140 6204 6193 6149 6072 6006 6020 6158 79 25 1633 1714 1878 2232 2457 2536 2614 2575 2430 2195 1965 1841 1805 1712 1535 1398 1325 1222 1085 1013 1157 2040 3644 4883 5504 5777 5913 6032 6158 6223 6212 6172 6094 6027 6044 6182 80 26 1832 1948 2162 2617 2936 3058 3169 3121 2922 2635 2345 2138 1987 1803 1590 1444 1371 1268 1133 1063 1211 2110 3741 5005 5640 5914 6054 6174 6296 6359 6348 6311 6234 6171 6186 6323 81 27 1991 2144 2385 2946 3351 3524 3675 3616 3359 3014 2668 2370 2104 1839 1598 1447 1374 1271 1138 1074 1224 2123 3755 5017 5651 5926 6065 6188 6309 6371 6363 6324 6249 6188 6201 6336 82 1 0269 0412 0541 0609 0592 0575 0580 0601 0656 0639 0629 0847 1382 1783 1688 1400 1115 0803 0508 0339 0301 0359 0394 0371 0356 0354 0360 0407 0498 0563 0546 0496 0410 0345 0369 0501 83 2 0271 0463 0611 0715 0718 0717 0729 0759 0809 0785 0763 0969 1469 1817 1698 1402 1116 0803 0508 0339 0302 0359 0391 0368 0354 0350 0356 0404 0495 0560 0544 0493 0407 0340 0368 0500 84 3 0324 0529 0727 0888 0933 0952 0998 1042 1087 1047 1004 1179 1614 1882 1722 1415 1123 0806 0509 0339 0303 0360 0392 0368 0353 0351 0357 0405 0495 0561 0544 0494 0409 0341 0368 0504 85 4 0345 0576 0829 1048 1129 1181 1252 1309 1349 1292 1227 1367 1725 1907 1709 1394 1103 0788 0496 0328 0295 0354 0388 0365 0351 0348 0355 0402 0493 0557 0542 0491 0405 0341 0365 0500 86 5 0391 0667 0990 1309 1454 1552 1681 1765 1789 1705 1602 1686 1936 2002 1749 1415 1115 0795 0496 0328 0294 0349 0381 0356 0344 0341 0347 0394 0483 0546 0530 0480 0396 0332 0359 0496 87 6 0436 0753 1147 1566 1781 1943 2134 2248 2254 2139 1997 2010 2145 2102 1800 1449 1138 0808 0504 0331 0295 0349 0379 0356 0342 0339 0346 0393 0483 0545 0530 0480 0397 0334 0361 0495 88 7 0486 0819 1274 1791 2083 2312 2575 2720 2694 2536 2341 2261 2246 2084 1742 1389 1084 0766 0474 0313 0283 0339 0371 0349 0335 0334 0340 0386 0474 0533 0518 0471 0388 0328 0356 0486 89 8 0516 0883 1411 2020 2400 2691 3037 3209 3141 2934 2679 2492 2326 2050 1674 1324 1032 0726 0446 0296 0272 0331 0366 0345 0331 0329 0336 0382 0469 0529 0514 0467 0383 0322 0349 0483 90 9 0541 0946 1547 2274 2749 3130 3577 3793 3682 3427 3116 2815 2503 2128 1715 1351 1051 0737 0452 0299 0273 0330 0365 0344 0331 0330 0337 0381 0469 0529 0515 0466 0383 0325 0351 0480 91 10 0500 0551 0562 0569 0522 0489 0470 0482 0526 0515 0513 0728 1273 1755 1779 1604 1429 1208 0961 0798 0834 1251 1852 2211 2367 2435 2480 2571 2706 2787 2763 2694 2573 2468 2491 2674 92 11 0558 0640 0689 0736 0705 0679 0671 0683 0727 0704 0687 0891 1406 1833 1824 1636 1453 1227 0976 0812 0847 1255 1847 2203 2357 2426 2470 2558 2693 2771 2748 2679 2558 2454 2478 2659 93 12 0644 0740 0834 0932 0935 0929 0935 0952 0985 0943 0903 1078 1531 1881 1831 1630 1445 1216 0965 0805 0840 1244 1835 2190 2344 2411 2455 2544 2677 2757 2734 2664 2543 2437 2463 2641 94 13 0739 0872 1016 1178 1228 1241 1269 1290 1308 1242 1177 1316 1697 1964 1870 1656 1464 1235 0983 0823 0857 1259 1847 2206 2363 2430 2474 2563 2697 2776 2755 2685 2565 2455 2479 2659 95 14 0893 1049 1254 1521 1641 1692 1756 1784 1779 1676 1568 1646 1921 2070 1920 1688 1490 1256 1002 0844 0878 1274 1861 2219 2376 2444 2488 2575 2707 2786 2764 2696 2574 2471 2497 2673 96 15 0976 1202 1483 1846 2038 2127 2239 2279 2243 2102 1950 1957 2112 2143 1942 1697 1496 1260 1008 0854 0891 1286 1876 2239 2398 2467 2512 2599 2731 2810 2788 2720 2599 2494 2521 2699 97 16 1128 1386 1726 2199 2483 2631 2799 2850 2775 2589 2386 2307 2328 2239 1986 1726 1517 1277 1022 0868 0903 1295 1886 2248 2409 2477 2524 2613 2744 2821 2798 2732 2612 2508 2532 2715 98 17 1243 1562 1977 2573 2959 3173 3406 3470 3349 3111 2851 2670 2538 2324 2021 1749 1538 1295 1042 0892 0927 1313 1900 2265 2427 2499 2545 2635 2767 2845 2823 2756 2635 2530 2553 2737 99 18 1364 1697 2183 2896 3377 3666 3971 4053 3873 3580 3258 2959 2670 2346 2007 1730 1520 1282 1033 0888 0925 1309 1896 2261 2424 2497 2546 2637 2768 2846 2825 2756 2637 2532 2559 2740 100 19 0747 0687 0621 0566 0497 0441 0411 0412 0451 0443 0446 0660 1226 1798 1938 1870 1804 1685 1503 1368 1516 2430 3892 4946 5456 5679 5795 5910 6036 6098 6083 6037 5959 5889 5908 6052 101 20 0886 0855 0799 0784 0739 0684 0655 0652 0684 0658 0645 0845 1370 1869 1964 1881 1811 1689 1509 1379 1525 2438 3911 4978 5494 5717 5834 5946 6071 6133 6121 6074 5995 5924 5941 6083 102 21 1033 1027 1003 1063 1055 1011 0989 0979 0996 0948 0906 1078 1543 1965 2019 1924 1848 1724 1543 1416 1559 2461 3932 5002 5524 5747 5864 5977 6097 6161 6148 6102 6019 5952 5963 6107 103 22 1260 1275 1304 1435 1467 1436 1429 1412 1410 1333 1261 1395 1797 2140 2152 2043 1962 1832 1650 1525 1666 2554 3994 5040 5553 5777 5895 6008 6132 6193 6181 6137 6057 5993 6009 6145 104 23 1437 1499 1584 1795 1889 1889 1901 1877 1843 1729 1617 1696 1996 2225 2181 2055 1969 1839 1657 1537 1678 2554 3996 5054 5575 5802 5920 6034 6154 6218 6206 6163 6082 6017 6030 6167 105 24 1697 1802 1966 2310 2515 2555 2600 2566 2485 2316 2149 2141 2300 2387 2276 2132 2039 1905 1722 1604 1745 2614 4041 5088 5603 5828 5946 6060 6180 6239 6229 6184 6107 6041 6057 6195 106 25 1863 2011 2228 2690 2986 3071 3147 3105 2981 2765 2549 2461 2491 2460 2296 2139 2038 1903 1724 1612 1749 2604 4032 5089 5611 5840 5960 6071 6191 6251 6237 6196 6120 6053 6071 6205 107 26 2101 2291 2564 3145 3542 3670 3782 3734 3552 3283 3009 2825 2711 2554 2335 2167 2068 1935 1759 1653 1796 2665 4124 5206 5744 5980 6105 6217 6335 6392 6382 6341 6267 6207 6222 6352 108 27 2297 2512 2873 3596 4121 4311 4474 4416 4172 3846 3513 3221 2954 2678 2415 2233 2130 1993 1818 1717 1858 2716 4163 5236 5770 6004 6127 6240 6359 6416 6404 6363 6288 6227 6239 6372 109 1 0287 0441 0576 0648 0624 0595 0595 0620 0686 0684 0686 0962 1646 2206 2144 1794 1424 1022 0644 0417 0348 0380 0392 0361 0346 0344 0350 0398 0489 0554 0538 0486 0402 0335 0364 0496 110 2 0318 0489 0655 0769 0761 0752 0763 0798 0865 0856 0850 1115 1757 2250 2150 1791 1418 1016 0639 0412 0346 0379 0390 0360 0345 0343 0350 0398 0489 0553 0539 0486 0402 0337 0362 0493 111 3 0349 0560 0780 0957 0993 1014 1059 1109 1175 1153 1128 1362 1929 2321 2169 1795 1419 1015 0636 0411 0344 0378 0390 0360 0345 0344 0351 0398 0490 0555 0539 0488 0403 0338 0366 0498 112 4 0380 0644 0926 1198 1291 1350 1434 1507 1568 1528 1475 1666 2135 2408 2200 1809 1426 1017 0636 0410 0344 0378 0390 0359 0345 0344 0350 0398 0490 0554 0537 0487 0402 0336 0366 0498 113 5 0427 0720 1085 1446 1606 1712 1853 1958 2007 1944 1860 1993 2340 2478 2208 1799 1411 1002 0623 0399 0334 0367 0379 0348 0334 0334 0341 0388 0477 0540 0523 0475 0392 0327 0358 0487 114 6 0476 0834 1277 1770 2016 2197 2418 2561 2594 2502 2376 2428 2631 2631 2296 1860 1454 1030 0639 0408 0339 0368 0376 0346 0332 0332 0339 0387 0477 0538 0522 0475 0390 0327 0355 0494 115 7 0527 0921 1454 2068 2417 2677 2990 3176 3190 3060 2886 2841 2883 2739 2341 1884 1467 1035 0639 0408 0339 0367 0375 0347 0333 0332 0340 0388 0476 0539 0522 0473 0391 0330 0360 0491 116 8 0553 1012 1628 2373 2823 3169 3585 3822 3802 3628 3396 3232 3088 2793 2339 1869 1450 1019 0625 0396 0327 0356 0365 0337 0324 0323 0332 0379 0467 0528 0513 0464 0383 0321 0350 0482 117 9 0591 1067 1759 2608 3162 3596 4120 4405 4340 4116 3820 3522 3191 2770 2280 1812 1402 0981 0600 0380 0318 0348 0360 0333 0320 0320 0329 0375 0463 0525 0509 0460 0381 0319 0349 0480 118 10 0547 0593 0626 0621 0562 0519 0495 0508 0566 0566 0577 0851 1565 2264 2382 2189 1966 1683 1366 1146 1159 1553 2079 2374 2502 2560 2604 2694 2830 2909 2884 2813 2693 2587 2615 2794 119 11 0636 0712 0769 0821 0782 0750 0737 0752 0808 0796 0793 1059 1740 2369 2437 2226 1991 1701 1379 1158 1168 1552 2062 2349 2474 2531 2572 2659 2792 2869 2844 2776 2655 2551 2573 2760 120 12 0707 0848 0953 1067 1071 1054 1057 1079 1127 1098 1072 1310 1923 2459 2474 2243 2000 1702 1378 1157 1165 1531 2022 2297 2417 2471 2510 2598 2730 2811 2787 2717 2597 2488 2513 2691 121 13 0825 1001 1170 1375 1437 1445 1476 1502 1540 1489 1436 1633 2157 2575 2529 2276 2022 1722 1393 1174 1178 1541 2035 2316 2440 2495 2536 2622 2754 2831 2810 2741 2619 2515 2535 2715 122 14 1002 1203 1457 1773 1912 1964 2036 2077 2095 2010 1919 2055 2454 2721 2593 2313 2049 1740 1409 1189 1192 1546 2030 2306 2428 2484 2525 2611 2742 2820 2797 2728 2607 2502 2526 2706 123 15 1121 1385 1721 2158 2391 2498 2623 2676 2663 2544 2406 2460 2707 2821 2623 2325 2057 1746 1416 1200 1204 1559 2046 2323 2446 2502 2543 2630 2760 2837 2814 2744 2626 2521 2549 2725 124 16 1277 1596 2010 2581 2925 3093 3280 3351 3300 3135 2947 2901 2979 2931 2663 2347 2071 1759 1428 1214 1218 1566 2053 2333 2460 2516 2559 2648 2779 2856 2832 2765 2643 2541 2566 2749 125 17 1422 1773 2267 2971 3425 3666 3927 4013 3916 3704 3457 3299 3198 2996 2668 2337 2061 1753 1430 1224 1228 1575 2071 2365 2497 2558 2601 2688 2820 2897 2874 2806 2685 2581 2603 2790 126 18 1509 1940 2514 3372 3966 4296 4646 4758 4608 4338 4029 3737 3441 3090 2703 2358 2076 1763 1440 1235 1238 1580 2077 2373 2508 2567 2611 2699 2829 2907 2883 2815 2696 2592 2618 2798 127 19 0836 0778 0700 0636 0542 0481 0438 0439 0496 0497 0513 0802 1597 2492 2810 2773 2694 2542 2308 2125 2265 3134 4373 5210 5612 5789 5890 6000 6123 6182 6168 6118 6041 5972 5989 6129 128 20 1018 0975 0925 0908 0850 0780 0741 0737 0790 0779 0779 1059 1811 2615 2873 2815 2730 2575 2342 2164 2300 3159 4398 5240 5644 5824 5926 6035 6156 6218 6203 6155 6075 6008 6019 6160 129 21 1185 1192 1184 1255 1236 1181 1148 1143 1176 1140 1117 1361 2018 2686 2864 2782 2689 2533 2305 2135 2271 3127 4385 5244 5662 5846 5952 6062 6184 6244 6230 6182 6104 6037 6051 6189 130 22 1392 1442 1482 1652 1696 1659 1638 1621 1638 1574 1518 1718 2280 2821 2928 2825 2726 2568 2343 2178 2309 3151 4403 5269 5688 5874 5977 6087 6207 6266 6252 6204 6126 6060 6073 6212 131 23 1670 1761 1890 2169 2301 2291 2290 2271 2255 2155 2059 2196 2636 3022 3047 2916 2805 2642 2415 2254 2381 3207 4443 5301 5722 5906 6012 6121 6238 6296 6282 6235 6159 6093 6106 6239 132 24 1903 2071 2273 2700 2944 2980 3011 2978 2922 2776 2631 2683 2963 3179 3118 2962 2844 2679 2453 2295 2423 3244 4483 5345 5763 5947 6050 6157 6273 6329 6314 6268 6194 6132 6147 6274 133 25 2166 2361 2647 3214 3570 3656 3725 3688 3581 3386 3189 3142 3251 3294 3149 2970 2844 2672 2447 2296 2421 3229 4463 5327 5750 5938 6042 6152 6270 6326 6313 6269 6191 6131 6145 6278 134 26 2430 2699 3068 3804 4294 4437 4553 4505 4344 4096 3841 3688 3620 3496 3279 3079 2944 2772 2549 2405 2527 3327 4561 5431 5860 6049 6157 6264 6380 6435 6422 6377 6306 6242 6258 6384 135 27 2614 2944 3403 4312 4958 5173 5348 5293 5070 4765 4449 4166 3903 3617 3333 3114 2974 2794 2571 2430 2548 3328 4537 5389 5808 5993 6096 6202 6318 6374 6362 6316 6240 6179 6189 6320 136 1 0305 0474 0615 0690 0655 0624 0613 0642 0725 0736 0756 1102 1977 2759 2755 2328 1843 1322 0836 0532 0416 0411 0395 0357 0343 0342 0349 0398 0491 0557 0542 0491 0403 0337 0366 0499 137 2 0325 0521 0703 0822 0817 0799 0805 0844 0932 0938 0952 1287 2114 2810 2757 2317 1830 1310 0826 0525 0411 0408 0392 0355 0340 0339 0346 0395 0488 0553 0537 0486 0400 0336 0361 0497 138 3 0359 0606 0847 1036 1076 1102 1140 1199 1288 1286 1283 1592 2334 2912 2794 2333 1837 1312 0825 0523 0409 0405 0389 0352 0337 0337 0344 0393 0485 0550 0534 0483 0398 0332 0359 0496 139 4 0416 0706 1030 1339 1453 1518 1612 1704 1793 1777 1750 2011 2628 3038 2833 2346 1841 1312 0822 0518 0406 0401 0387 0349 0335 0334 0343 0392 0484 0548 0531 0481 0397 0332 0359 0500 140 5 0457 0802 1213 1636 1829 1958 2123 2254 2338 2304 2246 2441 2912 3145 2856 2342 1827 1295 0806 0506 0395 0391 0375 0339 0326 0326 0335 0383 0473 0535 0519 0471 0386 0326 0352 0491 141 6 0492 0907 1402 1953 2242 2441 2689 2862 2936 2874 2779 2894 3202 3275 2911 2374 1847 1307 0812 0507 0393 0386 0370 0333 0320 0321 0329 0377 0468 0530 0513 0464 0382 0319 0349 0484 142 7 0568 1007 1624 2329 2729 3028 3391 3628 3685 3594 3450 3453 3565 3452 3002 2432 1885 1328 0823 0512 0396 0385 0368 0331 0319 0319 0328 0377 0466 0528 0511 0464 0381 0320 0351 0483 143 8 0600 1108 1814 2674 3194 3593 4078 4377 4413 4287 4089 3961 3852 3547 3020 2429 1875 1315 0809 0499 0382 0371 0353 0317 0305 0306 0315 0363 0451 0511 0497 0450 0368 0307 0338 0469 144 9 0629 1186 1974 2971 3620 4137 4759 5133 5130 4960 4699 4419 4080 3610 3028 2422 1863 1303 0796 0489 0374 0365 0348 0313 0303 0304 0313 0361 0448 0508 0492 0446 0366 0307 0335 0467 145 10 0594 0661 0679 0680 0605 0548 0520 0534 0608 0619 0644 0989 1921 2916 3171 2960 2666 2297 1890 1598 1563 1867 2232 2420 2504 2547 2584 2672 2805 2884 2860 2789 2670 2562 2588 2770 146 11 0675 0784 0857 0906 0857 0815 0794 0813 0888 0893 0907 1246 2136 3042 3234 2997 2687 2309 1896 1603 1560 1845 2193 2370 2451 2492 2528 2615 2748 2827 2802 2732 2611 2505 2531 2715 147 12 0790 0946 1075 1211 1221 1195 1198 1222 1294 1282 1276 1588 2398 3181 3299 3034 2709 2321 1903 1609 1560 1832 2170 2341 2419 2457 2491 2577 2709 2788 2764 2692 2571 2466 2489 2668 148 13 0949 1147 1344 1586 1653 1661 1687 1723 1784 1757 1727 2000 2711 3351 3387 3095 2761 2370 1952 1661 1610 1876 2213 2387 2467 2510 2545 2630 2761 2840 2816 2748 2625 2518 2540 2721 149 14 1145 1371 1667 2045 2205 2257 2331 2381 2428 2373 2309 2520 3084 3529 3457 3128 2781 2382 1960 1670 1617 1877 2214 2390 2470 2512 2546 2633 2764 2841 2817 2748 2625 2523 2545 2731 150 15 1267 1590 1978 2499 2771 2883 3018 3089 3110 3022 2918 3041 3425 3671 3501 3144 2787 2383 1962 1674 1620 1873 2204 2379 2459 2500 2536 2623 2752 2829 2805 2735 2617 2513 2538 2721 151 16 1448 1849 2352 3062 3496 3700 3916 4015 4004 3878 3724 3736 3912 3947 3676 3283 2907 2492 2060 1768 1706 1951 2281 2456 2539 2579 2617 2701 2830 2906 2881 2812 2692 2590 2613 2798 152 17 1630 2079 2680 3564 4133 4416 4716 4844 4789 4621 4411 4301 4258 4087 3727 3310 2931 2514 2086 1798 1737 1977 2312 2493 2580 2622 2659 2744 2872 2947 2923 2855 2731 2631 2657 2840 153 18 1760 2254 2966 4013 4716 5098 5498 5655 5546 5325 5050 4780 4490 4118 3682 3251 2870 2456 2032 1749 1690 1933 2274 2457 2545 2589 2628 2716 2846 2924 2901 2830 2708 2603 2631 2812 154 19 0917 0875 0772 0702 0596 0514 0465 0469 0540 0553 0584 0949 1991 3253 3800 3818 3730 3548 3274 3052 3157 3891 4826 5419 5711 5847 5935 6037 6158 6215 6201 6152 6074 6004 6019 6156 155 20 1128 1103 1050 1045 0972 0893 0844 0841 0910 0912 0930 1294 2292 3453 3928 3921 3824 3640 3368 3150 3250 3972 4902 5498 5787 5921 6008 6107 6224 6282 6266 6216 6139 6070 6084 6219 156 21 1338 1366 1385 1476 1467 1397 1352 1344 1401 1384 1380 1714 2629 3654 4043 4002 3892 3701 3428 3214 3306 4009 4934 5530 5820 5954 6038 6139 6253 6308 6293 6246 6170 6103 6119 6251 157 22 1583 1668 1754 1957 2024 1976 1944 1931 1969 1927 1898 2186 2978 3821 4100 4025 3901 3705 3435 3228 3317 4005 4934 5541 5842 5979 6063 6163 6277 6332 6316 6269 6192 6128 6138 6276 158 23 1898 2043 2223 2593 2773 2758 2751 2727 2738 2663 2594 2812 3438 4054 4196 4075 3936 3734 3463 3260 3344 4021 4947 5559 5860 6000 6087 6188 6301 6355 6340 6293 6218 6155 6170 6306 159 24 2193 2415 2699 3232 3541 3572 3593 3563 3534 3424 3313 3446 3892 4294 4323 4166 4013 3806 3534 3337 3418 4079 4994 5595 5894 6033 6121 6219 6332 6384 6369 6321 6247 6188 6204 6338 160 25 2483 2771 3158 3887 4355 4443 4511 4475 4397 4238 4075 4096 4329 4507 4422 4229 4066 3854 3584 3393 3468 4115 5029 5637 5938 6075 6161 6261 6372 6425 6410 6363 6290 6225 6241 6367 161 26 2780 3142 3627 4553 5175 5329 5444 5406 5275 5070 4855 4756 4765 4711 4515 4286 4109 3890 3618 3434 3501 4130 5027 5629 5930 6072 6165 6267 6379 6432 6418 6369 6296 6239 6251 6379 162 27 2999 3436 4036 5198 6015 6265 6455 6409 6211 5951 5676 5424 5182 4909 4621 4366 4178 3953 3684 3503 3564 4168 5057 5655 5954 6092 6178 6277 6387 6437 6423 6377 6301 6237 6249 6375 163 1 0313 0485 0647 0720 0678 0639 0623 0654 0750 0773 0808 1209 2232 3190 3232 2743 2163 1551 0983 0622 0470 0434 0398 0355 0340 0339 0348 0396 0490 0556 0541 0489 0402 0337 0363 0499 164 2 0342 0557 0746 0875 0863 0838 0840 0884 0986 1007 1036 1430 2404 3267 3252 2746 2160 1545 0977 0617 0465 0429 0393 0349 0335 0334 0343 0392 0484 0549 0532 0481 0397 0332 0361 0493 165 3 0377 0645 0905 1120 1159 1177 1218 1287 1394 1410 1422 1791 2674 3397 3301 2768 2171 1549 0976 0613 0461 0426 0389 0345 0331 0330 0339 0389 0480 0545 0529 0478 0394 0329 0360 0490 166 4 0430 0729 1080 1407 1517 1583 1681 1781 1893 1899 1895 2224 2986 3543 3357 2793 2182 1551 0972 0606 0453 0415 0378 0334 0320 0321 0329 0379 0470 0534 0516 0468 0383 0320 0350 0485 167 5 0492 0858 1325 1813 2032 2178 2364 2520 2632 2621 2584 2835 3407 3727 3421 2818 2190 1551 0968 0600 0446 0408 0371 0329 0315 0315 0325 0374 0466 0529 0513 0465 0381 0317 0348 0480 168 6 0543 0982 1553 2191 2523 2760 3052 3264 3367 3334 3258 3409 3780 3893 3489 2855 2215 1565 0975 0603 0447 0407 0369 0326 0314 0314 0325 0375 0466 0528 0512 0463 0378 0319 0350 0485 169 7 0571 1073 1743 2522 2962 3293 3689 3964 4056 3999 3880 3925 4095 4011 3522 2860 2211 1557 0966 0595 0439 0398 0361 0319 0307 0309 0318 0368 0458 0521 0505 0456 0374 0311 0339 0476 170 8 0642 1192 1974 2923 3499 3948 4483 4842 4920 4836 4671 4581 4506 4201 3613 2917 2244 1575 0973 0595 0434 0391 0351 0309 0297 0300 0310 0360 0448 0510 0495 0446 0366 0305 0335 0474 171 9 0670 1283 2178 3301 4042 4615 5326 5780 5834 5720 5493 5232 4888 4377 3708 2979 2287 1602 0985 0600 0435 0387 0347 0305 0294 0298 0309 0359 0447 0508 0493 0445 0365 0305 0335 0472 172 10 0608 0697 0723 0717 0644 0579 0546 0559 0647 0668 0705 1110 2219 3464 3844 3615 3251 2803 2322 1972 1884 2089 2320 2421 2470 2499 2531 2615 2747 2825 2802 2730 2608 2505 2529 2710 173 11 0725 0829 0914 0975 0929 0879 0849 0872 0965 0981 1012 1417 2481 3609 3900 3635 3254 2798 2307 1958 1863 2058 2277 2373 2420 2449 2481 2565 2697 2775 2749 2680 2558 2454 2476 2662 174 12 0866 1020 1177 1335 1344 1321 1316 1346 1437 1441 1452 1827 2806 3793 3997 3699 3303 2836 2342 1990 1892 2072 2281 2371 2418 2446 2477 2561 2691 2768 2746 2675 2553 2448 2470 2654 175 13 1025 1236 1466 1735 1819 1826 1852 1893 1977 1967 1956 2297 3164 3989 4100 3772 3369 2900 2407 2056 1955 2137 2351 2447 2496 2526 2558 2643 2773 2849 2825 2754 2634 2529 2554 2730 176 14 1204 1482 1807 2219 2400 2447 2526 2585 2658 2630 2592 2875 3593 4209 4197 3830 3410 2933 2438 2089 1985 2158 2371 2467 2516 2546 2579 2661 2790 2866 2842 2772 2652 2549 2574 2758 177 15 1411 1784 2243 2864 3193 3325 3479 3570 3623 3564 3483 3660 4144 4485 4329 3912 3470 2979 2474 2120 2008 2167 2368 2461 2508 2538 2571 2659 2786 2862 2835 2766 2646 2543 2573 2756 178 16 1567 2027 2599 3399 3877 4087 4327 4447 4469 4378 4252 4318 4578 4684 4416 3964 3508 3013 2507 2154 2039 2190 2391 2486 2534 2564 2598 2683 2813 2887 2863 2793 2672 2569 2598 2784 179 17 1807 2317 3030 4045 4709 5026 5360 5521 5510 5383 5212 5148 5161 5022 4639 4146 3669 3157 2640 2280 2152 2284 2468 2555 2600 2630 2663 2747 2876 2951 2926 2855 2734 2632 2658 2845 180 18 1970 2550 3370 4607 5462 5898 6351 6564 6503 6334 6107 5866 5586 5203 4720 4197 3709 3191 2671 2313 2182 2306 2489 2575 2623 2654 2686 2771 2900 2974 2950 2880 2760 2657 2685 2868 181 19 0983 0928 0830 0750 0628 0544 0486 0491 0574 0595 0636 1055 2269 3799 4522 4581 4487 4285 3984 3733 3806 4423 5129 5550 5764 5872 5949 6052 6167 6227 6210 6161 6081 6014 6029 6167 182 20 1199 1182 1134 1128 1048 0960 0899 0902 0981 0993 1026 1446 2614 4021 4650 4676 4569 4363 4061 3817 3885 4484 5179 5592 5802 5909 5987 6088 6204 6261 6247 6197 6116 6051 6067 6204 183 21 1457 1488 1514 1623 1610 1531 1479 1471 1543 1542 1554 1948 3029 4289 4822 4813 4689 4476 4174 3933 3992 4564 5247 5662 5871 5977 6055 6152 6263 6317 6304 6255 6179 6118 6129 6261 184 22 1726 1839 1942 2185 2258 2201 2155 2144 2201 2177 2167 2520 3484 4554 4965 4912 4773 4550 4248 4011 4062 4615 5290 5703 5912 6017 6094 6189 6300 6352 6336 6288 6215 6151 6163 6295 185 23 2061 2251 2469 2900 3102 3081 3064 3042 3075 3022 2979 3270 4065 4890 5149 5042 4882 4649 4347 4117 4154 4680 5338 5748 5955 6060 6134 6229 6338 6388 6373 6322 6251 6189 6200 6332 186 24 2433 2685 3022 3655 4016 4046 4061 4033 4026 3939 3856 4051 4630 5192 5304 5147 4967 4725 4419 4193 4222 4725 5371 5777 5985 6088 6163 6256 6366 6417 6401 6352 6276 6217 6232 6360 187 25 2731 3084 3538 4404 4963 5058 5126 5092 5037 4910 4778 4856 5196 5484 5457 5256 5060 4812 4510 4291 4311 4791 5432 5840 6049 6153 6226 6318 6424 6474 6457 6412 6334 6274 6286 6411 188 26 3061 3494 4071 5162 5888 6064 6182 6148 6046 5879 5701 5651 5730 5741 5571 5325 5110 4852 4547 4331 4344 4804 5428 5829 6040 6145 6223 6319 6429 6477 6461 6414 6342 6282 6300 6424 189 27 3315 3828 4534 5896 6874 7141 7339 7299 7125 6907 6671 6451 6231 5972 5687 5410 5183 4923 4620 4412 4419 4864 5486 5892 6101 6205 6279 6372 6479 6527 6510 6464 6391 6329 6343 6472 190 1 0326 0520 0683 0759 0706 0667 0642 0678 0788 0825 0879 1349 2564 3762 3873 3299 2590 1849 1172 0734 0532 0453 0389 0339 0324 0324 0334 0383 0475 0539 0524 0474 0389 0325 0354 0485 191 2 0349 0596 0808 0944 0924 0903 0907 0954 1076 1115 1163 1631 2796 3884 3924 3325 2608 1862 1180 0738 0533 0455 0389 0339 0324 0325 0334 0385 0478 0543 0528 0476 0391 0327 0355 0491 192 3 0410 0677 0965 1193 1232 1246 1292 1368 1498 1533 1573 2016 3086 4023 3976 3349 2619 1868 1181 0738 0533 0454 0390 0339 0325 0326 0336 0386 0479 0545 0528 0479 0393 0329 0360 0493 193 4 0450 0786 1165 1517 1641 1708 1812 1928 2067 2101 2125 2536 3480 4223 4063 3395 2646 1881 1185 0736 0528 0446 0381 0331 0317 0318 0328 0379 0472 0536 0520 0470 0386 0323 0352 0488 194 5 0530 0925 1438 1971 2216 2372 2585 2762 2913 2935 2932 3263 3990 4449 4138 3421 2651 1875 1174 0724 0516 0434 0369 0321 0307 0308 0320 0370 0462 0524 0508 0460 0376 0314 0344 0482 195 6 0596 1052 1689 2408 2789 3059 3389 3646 3794 3802 3762 3980 4459 4644 4203 3446 2659 1876 1171 0718 0508 0427 0362 0312 0300 0303 0314 0364 0456 0518 0502 0455 0371 0310 0342 0477 196 7 0634 1177 1922 2814 3337 3719 4183 4522 4667 4656 4575 4670 4900 4836 4280 3483 2680 1885 1172 0716 0504 0420 0357 0307 0296 0299 0311 0361 0452 0515 0498 0449 0368 0306 0338 0476 197 8 0692 1284 2149 3210 3873 4369 4978 5401 5536 5506 5382 5339 5308 5001 4343 3514 2697 1894 1175 0714 0499 0414 0350 0302 0291 0294 0306 0359 0448 0510 0494 0446 0365 0304 0335 0474 198 9 0749 1392 2377 3638 4461 5114 5912 6450 6570 6513 6331 6097 5751 5198 4443 3579 2741 1922 1189 0720 0500 0411 0345 0297 0287 0290 0302 0354 0445 0507 0491 0442 0360 0301 0333 0470 199 10 0675 0746 0778 0760 0667 0595 0552 0567 0670 0705 0759 1236 2574 4150 4702 4458 4009 3465 2888 2462 2305 2383 2443 2442 2453 2470 2497 2580 2713 2793 2768 2697 2574 2467 2491 2673 200 11 0782 0901 0993 1061 1013 0952 0919 0944 1054 1087 1137 1620 2913 4357 4804 4514 4041 3482 2897 2471 2309 2378 2436 2433 2443 2459 2487 2570 2699 2775 2749 2678 2559 2453 2480 2663 201 12 0928 1120 1286 1464 1476 1439 1431 1469 1577 1602 1635 2093 3283 4553 4887 4555 4067 3502 2914 2488 2321 2382 2433 2431 2441 2457 2484 2567 2696 2775 2750 2681 2557 2450 2474 2657 202 13 1124 1370 1646 1962 2068 2069 2099 2152 2261 2276 2292 2709 3768 4831 5039 4668 4168 3596 3009 2584 2412 2468 2522 2521 2533 2551 2578 2662 2790 2867 2842 2771 2652 2546 2572 2757 203 14 1328 1646 2030 2512 2730 2787 2871 2948 3054 3057 3053 3419 4316 5136 5196 4771 4246 3662 3066 2635 2454 2494 2537 2531 2543 2560 2589 2674 2803 2878 2851 2779 2659 2558 2584 2770 204 15 1542 1957 2484 3189 3570 3711 3873 3988 4073 4055 4015 4278 4931 5448 5344 4864 4318 3722 3120 2690 2502 2531 2570 2567 2576 2594 2623 2707 2835 2909 2882 2813 2693 2588 2620 2801 205 16 1785 2280 2946 3892 4455 4703 4972 5126 5189 5141 5058 5189 5554 5748 5481 4948 4381 3772 3162 2729 2533 2548 2583 2577 2588 2606 2635 2719 2851 2925 2898 2827 2706 2603 2632 2815 206 17 1973 2560 3359 4524 5260 5611 5985 6182 6223 6151 6026 6023 6111 6021 5620 5043 4459 3840 3227 2793 2590 2598 2630 2626 2638 2658 2687 2771 2900 2975 2950 2877 2758 2656 2680 2866 207 18 2164 2834 3778 5195 6181 6668 7181 7439 7437 7328 7148 6949 6690 6296 5770 5154 4549 3921 3299 2861 2650 2641 2660 2648 2659 2675 2705 2791 2917 2992 2966 2893 2775 2673 2701 2886 208 19 1062 1008 0901 0812 0683 0577 0514 0518 0614 0648 0704 1202 2670 4618 5633 5784 5694 5475 5148 4868 4896 5321 5691 5881 5991 6063 6128 6223 6334 6388 6370 6323 6252 6190 6201 6335 209 20 1316 1293 1255 1247 1157 1053 0987 0985 1082 1111 1159 1665 3087 4892 5789 5892 5783 5554 5226 4951 4965 5367 5727 5912 6025 6093 6160 6253 6361 6413 6396 6351 6278 6215 6227 6358 210 21 1591 1649 1685 1809 1794 1702 1637 1631 1723 1740 1775 2257 3582 5205 5975 6029 5897 5659 5330 5060 5063 5437 5784 5966 6078 6147 6213 6305 6411 6463 6445 6397 6327 6267 6282 6410 211 22 1910 2042 2176 2453 2544 2471 2421 2408 2487 2490 2507 2952 4150 5554 6179 6177 6025 5778 5449 5186 5177 5521 5850 6026 6135 6202 6266 6355 6462 6509 6491 6443 6373 6317 6328 6452 212 23 2291 2524 2788 3298 3550 3522 3490 3470 3526 3504 3492 3869 4869 5966 6390 6313 6131 5868 5536 5278 5252 5556 5867 6041 6146 6209 6270 6358 6461 6508 6492 6443 6372 6313 6324 6448 213 24 2677 3006 3432 4203 4657 4690 4705 4677 4698 4648 4598 4868 5610 6376 6607 6460 6246 5967 5629 5373 5327 5591 5879 6044 6148 6212 6271 6358 6461 6508 6492 6444 6369 6308 6321 6443 214 25 3036 3447 3995 5013 5656 5759 5824 5799 5780 5699 5613 5770 6246 6689 6737 6529 6289 5998 5656 5404 5348 5594 5876 6039 6143 6208 6268 6357 6461 6509 6490 6444 6371 6310 6320 6448 215 26 3387 3888 4592 5887 6764 6953 7079 7049 6986 6871 6746 6765 6939 7041 6915 6650 6386 6083 5739 5491 5425 5644 5909 6066 6168 6236 6299 6390 6493 6539 6519 6472 6401 6347 6362 6488 216 27 3688 4297 5143 6745 7907 8213 8420 8393 8258 8101 7924 7752 7571 7344 7071 6758 6479 6170 5827 5583 5508 5703 5964 6124 6225 6289 6351 6437 6538 6584 6565 6517 6447 6390 6398 6522 217 1 0340 0541 0716 0781 0727 0675 0647 0683 0802 0851 0915 1436 2804 4218 4407 3773 2958 2116 1352 0850 0602 0486 0402 0346 0331 0333 0343 0394 0488 0555 0539 0487 0400 0334 0364 0501 218 2 0381 0609 0838 0978 0961 0932 0930 0982 1115 1165 1230 1756 3079 4370 4472 3802 2971 2118 1348 0843 0593 0475 0391 0336 0321 0322 0332 0383 0477 0544 0527 0476 0390 0326 0354 0494 219 3 0414 0699 1003 1249 1292 1305 1352 1437 1582 1635 1693 2198 3423 4544 4542 3834 2988 2128 1351 0844 0592 0474 0390 0335 0321 0322 0333 0384 0476 0542 0527 0476 0391 0328 0358 0498 220 4 0479 0818 1220 1602 1723 1788 1897 2023 2186 2240 2288 2763 3856 4758 4626 3875 3008 2138 1353 0840 0583 0464 0380 0324 0311 0313 0323 0376 0471 0534 0518 0469 0383 0320 0350 0490 221 5 0548 0948 1496 2056 2304 2465 2677 2874 3054 3108 3138 3546 4424 5025 4723 3911 3019 2134 1341 0826 0568 0449 0365 0311 0298 0302 0314 0365 0458 0521 0505 0454 0373 0313 0342 0480 222 6 0605 1098 1771 2535 2934 3218 3566 3851 4038 4085 4084 4378 4986 5273 4821 3957 3043 2143 1342 0821 0562 0440 0356 0303 0291 0294 0307 0358 0450 0513 0496 0446 0366 0305 0337 0475 223 7 0659 1250 2059 3027 3596 4012 4527 4915 5108 5144 5104 5249 5540 5504 4899 3989 3055 2144 1338 0813 0552 0430 0346 0294 0283 0287 0300 0353 0443 0505 0488 0440 0360 0298 0333 0470 224 8 0735 1357 2286 3444 4157 4701 5373 5860 6052 6077 5997 5995 5996 5681 4954 4008 3061 2145 1335 0811 0549 0428 0345 0294 0285 0289 0303 0353 0444 0504 0489 0440 0361 0300 0335 0473 225 9 0758 1460 2505 3864 4756 5459 6335 6949 7126 7128 6990 6785 6447 5864 5035 4057 3093 2163 1342 0808 0541 0417 0333 0281 0272 0275 0290 0342 0434 0498 0481 0432 0349 0287 0323 0463 226 10 0700 0771 0813 0790 0690 0606 0558 0577 0688 0732 0794 1327 2846 4719 5448 5204 4687 4066 3420 2940 2714 2665 2591 2523 2512 2522 2546 2631 2763 2843 2819 2746 2623 2515 2541 2724 227 11 0798 0950 1057 1119 1061 0996 0957 0987 1109 1154 1217 1761 3233 4944 5534 5227 4673 4026 3366 2879 2643 2578 2495 2426 2413 2423 2449 2533 2664 2741 2714 2643 2520 2417 2439 2627 228 12 0983 1177 1370 1566 1580 1537 1527 1566 1692 1733 1786 2307 3677 5207 5679 5329 4761 4109 3447 2962 2721 2646 2561 2492 2480 2490 2514 2597 2728 2805 2780 2709 2586 2480 2505 2684 229 13 1182 1468 1754 2103 2223 2220 2244 2306 2434 2471 2514 3006 4249 5554 5878 5479 4895 4238 3574 3090 2840 2751 2661 2591 2578 2588 2612 2697 2826 2902 2874 2802 2683 2576 2603 2789 230 14 1391 1753 2160 2698 2938 2993 3079 3165 3298 3330 3355 3796 4866 5889 6036 5570 4954 4279 3606 3118 2856 2752 2654 2581 2567 2577 2602 2686 2815 2888 2862 2794 2672 2568 2594 2777 231 15 1624 2076 2634 3387 3783 3924 4089 4216 4338 4356 4356 4704 5528 6234 6206 5679 5039 4352 3674 3182 2913 2792 2689 2616 2602 2612 2638 2721 2851 2926 2898 2828 2705 2605 2631 2815 232 16 1901 2450 3188 4242 4877 5150 5435 5615 5723 5721 5682 5883 6360 6662 6420 5821 5150 4447 3759 3264 2979 2843 2731 2657 2644 2654 2681 2767 2895 2970 2943 2872 2747 2643 2669 2859 233 17 2141 2788 3678 4999 5861 6254 6672 6914 6996 6977 6900 6942 7073 7007 6587 5933 5241 4527 3833 3336 3044 2894 2778 2702 2689 2700 2727 2813 2941 3014 2988 2915 2795 2692 2718 2905 234 18 2316 3042 4069 5655 6740 7276 7834 8140 8188 8142 8020 7868 7637 7251 6694 6000 5295 4572 3876 3378 3079 2923 2802 2726 2713 2724 2751 2838 2963 3036 3008 2939 2818 2717 2745 2929 235 19 1136 1075 0959 0859 0714 0606 0530 0539 0645 0686 0752 1310 2982 5289 6581 6826 6745 6515 6175 5885 5842 6027 6083 6092 6138 6188 6247 6341 6451 6500 6480 6436 6366 6308 6319 6450 236 20 1390 1402 1348 1342 1245 1128 1055 1051 1165 1203 1268 1838 3468 5625 6789 6979 6874 6636 6299 6014 5957 6112 6155 6162 6205 6254 6310 6400 6508 6556 6538 6492 6422 6362 6376 6504 237 21 1699 1747 1796 1931 1919 1812 1744 1736 1846 1880 1934 2487 4020 5974 6976 7099 6961 6702 6355 6067 5990 6107 6127 6125 6166 6211 6264 6353 6461 6511 6490 6441 6368 6306 6318 6454 238 22 2038 2192 2347 2658 2758 2674 2613 2602 2700 2721 2760 3278 4667 6363 7187 7238 7073 6803 6460 6180 6089 6169 6178 6178 6219 6266 6321 6409 6513 6560 6543 6494 6422 6361 6374 6497 239 23 2436 2690 2992 3552 3818 3783 3744 3725 3810 3817 3836 4295 5486 6843 7432 7387 7179 6882 6529 6253 6134 6168 6155 6149 6187 6232 6284 6372 6477 6525 6506 6459 6383 6321 6334 6462 240 24 2815 3199 3652 4506 4993 5022 5031 5007 5059 5040 5034 5387 6304 7289 7652 7524 7277 6961 6600 6323 6184 6178 6148 6133 6164 6203 6250 6335 6439 6485 6468 6417 6341 6277 6291 6420 241 25 3261 3732 4353 5517 6253 6367 6431 6402 6413 6373 6336 6564 7172 7775 7923 7726 7453 7130 6775 6510 6356 6317 6272 6259 6296 6335 6387 6473 6573 6617 6600 6551 6476 6414 6426 6554 242 26 3651 4234 5010 6473 7458 7670 7795 7773 7744 7683 7613 7699 7978 8191 8128 7856 7553 7216 6856 6596 6424 6350 6291 6277 6314 6358 6410 6496 6598 6642 6624 6576 6501 6444 6452 6579 243 27 4003 4677 5637 7445 8744 9062 9280 9259 9170 9077 8963 8849 8718 8536 8291 7967 7643 7297 6938 6681 6495 6393 6323 6306 6344 6387 6440 6527 6628 6671 6650 6606 6536 6478 6492 6618 244 1 0291 0392 0478 0532 0532 0528 0542 0557 0570 0525 0481 0566 0760 0814 0669 0524 0427 0318 0217 0178 0214 0408 0699 0854 0913 0937 0956 1020 1130 1204 1184 1125 1020 0933 0963 1120 245 2 0307 0428 0522 0606 0618 0627 0647 0664 0673 0614 0556 0625 0794 0821 0665 0518 0421 0312 0212 0175 0212 0405 0691 0841 0897 0920 0938 1002 1114 1187 1168 1109 1001 0917 0942 1099 246 3 0333 0470 0597 0707 0742 0765 0805 0826 0821 0743 0662 0703 0835 0830 0664 0514 0417 0308 0209 0173 0212 0406 0693 0843 0898 0920 0939 1003 1113 1187 1169 1106 1002 0917 0940 1104 247 4 0366 0517 0669 0809 0864 0904 0956 0979 0967 0866 0763 0778 0870 0826 0647 0497 0400 0294 0198 0167 0207 0393 0664 0801 0850 0871 0888 0952 1061 1135 1116 1057 0952 0865 0892 1050 248 5 0379 0580 0770 0965 1058 1132 1219 1250 1213 1079 0938 0908 0942 0856 0660 0503 0404 0295 0198 0167 0207 0390 0656 0791 0840 0861 0878 0939 1046 1117 1099 1041 0938 0855 0881 1038 249 6 0426 0636 0866 1125 1262 1374 1500 1537 1470 1296 1111 1023 0986 0852 0643 0486 0389 0283 0188 0161 0203 0383 0648 0781 0830 0850 0869 0930 1036 1106 1089 1031 0928 0847 0871 1028 250 7 0474 0696 0972 1288 1481 1638 1809 1856 1749 1532 1299 1145 1030 0848 0626 0469 0376 0271 0181 0158 0202 0383 0649 0787 0837 0859 0876 0936 1043 1112 1095 1036 0935 0855 0879 1033 251 8 0504 0755 1072 1450 1697 1893 2112 2172 2024 1759 1478 1259 1066 0837 0603 0447 0356 0255 0169 0152 0198 0379 0646 0784 0836 0857 0874 0936 1043 1114 1096 1039 0937 0854 0878 1039 252 9 0541 0816 1168 1615 1913 2157 2434 2509 2315 2001 1672 1382 1118 0848 0603 0445 0353 0252 0168 0153 0201 0380 0650 0791 0844 0865 0883 0944 1050 1121 1104 1046 0944 0860 0886 1041 253 10 0482 0494 0495 0506 0480 0460 0454 0455 0469 0430 0399 0481 0650 0688 0562 0449 0388 0314 0234 0203 0278 0824 1926 2753 3137 3296 3377 3486 3628 3712 3691 3625 3503 3395 3413 3605 254 11 0532 0538 0552 0581 0576 0559 0559 0561 0563 0509 0459 0521 0664 0680 0548 0437 0376 0302 0224 0195 0271 0815 1912 2734 3119 3279 3361 3471 3616 3700 3679 3612 3492 3380 3406 3595 255 12 0585 0617 0644 0700 0712 0712 0727 0725 0712 0633 0557 0593 0701 0689 0547 0432 0372 0298 0220 0194 0272 0813 1906 2727 3111 3272 3353 3461 3605 3689 3669 3603 3480 3373 3395 3585 256 13 0638 0695 0745 0835 0871 0887 0919 0917 0880 0769 0664 0663 0725 0681 0529 0416 0357 0285 0209 0187 0267 0805 1900 2725 3111 3272 3355 3464 3607 3691 3671 3606 3484 3374 3397 3586 257 14 0721 0791 0865 1008 1074 1115 1166 1161 1098 0952 0808 0763 0774 0692 0529 0414 0356 0284 0211 0191 0273 0808 1899 2726 3114 3277 3357 3466 3608 3693 3673 3608 3487 3383 3401 3589 258 15 0808 0894 0986 1172 1282 1349 1429 1421 1322 1133 0946 0850 0803 0681 0508 0395 0340 0270 0200 0184 0269 0814 1932 2782 3186 3354 3439 3550 3693 3776 3757 3691 3572 3467 3487 3673 259 16 0902 1007 1137 1375 1534 1638 1748 1740 1598 1362 1125 0969 0856 0693 0508 0395 0339 0271 0202 0191 0277 0829 1957 2815 3224 3394 3481 3591 3735 3818 3799 3734 3615 3509 3531 3718 260 17 0965 1098 1265 1568 1769 1911 2060 2051 1862 1575 1290 1070 0888 0685 0491 0377 0323 0257 0191 0181 0269 0818 1946 2804 3212 3384 3474 3587 3730 3814 3795 3731 3612 3506 3527 3715 261 18 1029 1172 1369 1722 1988 2169 2356 2346 2111 1771 1438 1154 0907 0670 0468 0356 0305 0240 0178 0175 0265 0803 1905 2745 3145 3315 3403 3514 3658 3743 3724 3659 3542 3436 3458 3643 262 19 0674 0588 0512 0474 0437 0402 0384 0378 0389 0355 0330 0405 0549 0574 0465 0381 0349 0305 0246 0224 0345 1321 3487 5356 6334 6757 6953 7095 7219 7276 7273 7245 7193 7150 7171 7286 263 20 0753 0671 0601 0582 0554 0528 0512 0501 0497 0444 0398 0453 0574 0580 0465 0379 0347 0304 0243 0223 0347 1328 3501 5375 6355 6779 6977 7117 7241 7296 7293 7264 7215 7176 7191 7306 264 21 0858 0776 0707 0713 0704 0685 0677 0665 0641 0561 0490 0519 0609 0591 0468 0383 0352 0308 0250 0231 0359 1344 3519 5389 6371 6796 6993 7132 7255 7311 7308 7280 7229 7189 7204 7315 265 22 0955 0884 0826 0869 0886 0882 0886 0862 0813 0698 0591 0583 0632 0587 0454 0368 0339 0295 0238 0221 0352 1344 3520 5387 6365 6787 6986 7127 7250 7306 7305 7277 7227 7188 7202 7313 266 23 1094 1032 0997 1085 1137 1152 1174 1141 1051 0890 0736 0676 0668 0581 0437 0352 0325 0282 0227 0217 0351 1339 3523 5404 6390 6821 7020 7159 7283 7338 7337 7308 7259 7221 7236 7347 267 24 1220 1173 1164 1304 1400 1445 1491 1446 1310 1097 0892 0775 0705 0580 0425 0341 0315 0274 0221 0215 0354 1344 3528 5405 6391 6819 7019 7159 7281 7338 7337 7309 7263 7228 7240 7351 268 25 1340 1302 1297 1483 1627 1695 1763 1710 1532 1270 1020 0848 0724 0566 0407 0324 0300 0262 0212 0213 0351 1335 3525 5415 6411 6842 7044 7183 7305 7360 7359 7333 7285 7248 7260 7366 269 26 1454 1423 1449 1686 1872 1974 2068 2005 1780 1470 1172 0946 0764 0572 0404 0321 0298 0259 0210 0214 0356 1347 3532 5413 6400 6829 7030 7171 7291 7348 7348 7323 7276 7244 7256 7363 270 27 1544 1529 1580 1867 2106 2239 2361 2287 2009 1649 1305 1020 0781 0563 0388 0307 0285 0249 0203 0211 0355 1351 3561 5467 6469 6903 7108 7247 7363 7417 7418 7397 7356 7321 7337 7439 271 1 0330 0422 0502 0566 0557 0549 0554 0569 0596 0559 0525 0647 0929 1064 0928 0750 0615 0461 0312 0240 0267 0461 0726 0854 0902 0923 0939 1003 1113 1186 1167 1107 1002 0914 0942 1105 272 2 0346 0462 0568 0651 0657 0658 0679 0695 0717 0668 0619 0724 0976 1078 0928 0748 0613 0461 0312 0241 0270 0464 0727 0853 0898 0918 0935 0999 1109 1182 1164 1103 0996 0915 0941 1099 273 3 0359 0507 0637 0763 0795 0815 0854 0876 0888 0819 0748 0827 1037 1101 0935 0749 0611 0455 0305 0235 0264 0454 0716 0841 0886 0906 0924 0988 1097 1171 1151 1091 0986 0901 0930 1089 274 4 0409 0579 0750 0914 0976 1023 1080 1113 1108 1016 0916 0961 1112 1117 0928 0740 0603 0450 0304 0237 0267 0460 0724 0850 0896 0916 0934 0997 1107 1179 1160 1100 0994 0908 0937 1097 275 5 0447 0640 0860 1088 1194 1272 1368 1410 1382 1256 1121 1112 1190 1135 0923 0729 0590 0436 0293 0229 0261 0447 0700 0821 0865 0884 0902 0964 1071 1143 1123 1064 0961 0879 0906 1062 276 6 0485 0721 0987 1282 1447 1565 1704 1757 1702 1535 1354 1282 1279 1163 0929 0730 0590 0435 0290 0228 0261 0447 0702 0826 0871 0892 0908 0970 1078 1149 1130 1072 0969 0885 0911 1068 277 7 0545 0803 1117 1494 1723 1894 2086 2155 2063 1851 1621 1479 1383 1198 0940 0735 0593 0435 0290 0230 0264 0448 0699 0820 0865 0884 0901 0963 1070 1141 1122 1065 0962 0877 0907 1063 278 8 0565 0864 1226 1675 1957 2174 2422 2503 2373 2113 1834 1618 1429 1183 0909 0705 0566 0414 0275 0222 0258 0440 0690 0813 0858 0877 0894 0956 1062 1133 1117 1058 0956 0872 0899 1055 279 9 0628 0925 1348 1871 2218 2495 2810 2910 2731 2425 2092 1793 1511 1209 0916 0706 0566 0412 0273 0222 0260 0440 0691 0814 0859 0880 0897 0958 1064 1134 1118 1059 0956 0874 0900 1053 280 10 0517 0530 0523 0529 0491 0470 0459 0461 0482 0453 0427 0543 0802 0941 0844 0717 0636 0533 0413 0349 0432 1016 2081 2840 3189 3334 3409 3515 3657 3740 3720 3652 3533 3426 3449 3632 281 11 0576 0602 0611 0640 0623 0604 0602 0605 0618 0569 0527 0625 0864 0979 0870 0741 0658 0551 0429 0364 0448 1031 2085 2838 3183 3328 3402 3508 3649 3730 3708 3641 3524 3418 3439 3624 282 12 0629 0669 0710 0767 0769 0760 0772 0777 0774 0706 0641 0714 0913 0991 0867 0733 0650 0543 0421 0360 0445 1020 2061 2801 3141 3283 3357 3463 3606 3687 3667 3600 3477 3370 3394 3578 283 13 0708 0784 0857 0962 0999 1015 1044 1043 1018 0917 0816 0848 0988 1011 0866 0728 0644 0537 0416 0359 0446 1021 2072 2824 3172 3317 3393 3499 3642 3723 3703 3636 3516 3410 3432 3615 284 14 0830 0913 1022 1187 1265 1307 1359 1360 1306 1165 1025 1007 1080 1047 0878 0736 0650 0542 0422 0367 0456 1031 2082 2839 3191 3336 3412 3516 3656 3738 3719 3652 3532 3427 3450 3631 285 15 0916 1031 1167 1397 1526 1596 1676 1675 1586 1406 1222 1148 1147 1058 0871 0727 0642 0536 0418 0366 0456 1031 2080 2834 3186 3333 3410 3516 3658 3740 3720 3655 3535 3429 3449 3639 286 16 1042 1172 1355 1666 1859 1971 2091 2088 1957 1726 1489 1346 1262 1112 0902 0751 0664 0555 0435 0383 0477 1065 2143 2921 3284 3436 3516 3622 3764 3844 3824 3760 3642 3537 3558 3737 287 17 1112 1291 1508 1881 2141 2289 2453 2455 2276 1994 1705 1488 1312 1098 0871 0719 0635 0530 0417 0373 0468 1039 2091 2854 3211 3359 3440 3546 3685 3768 3748 3684 3564 3458 3480 3659 288 18 1199 1386 1657 2113 2438 2643 2859 2863 2631 2294 1950 1654 1388 1119 0873 0719 0633 0528 0414 0373 0467 1026 2055 2798 3147 3294 3374 3480 3622 3702 3684 3619 3500 3393 3418 3603 289 19 0775 0665 0577 0542 0488 0448 0426 0421 0438 0412 0394 0505 0756 0902 0837 0750 0713 0652 0558 0504 0660 1733 3856 5594 6481 6862 7043 7177 7297 7354 7349 7321 7272 7235 7252 7366 290 20 0848 0762 0684 0668 0631 0593 0573 0563 0569 0523 0484 0578 0809 0938 0865 0777 0739 0677 0582 0527 0683 1744 3835 5548 6427 6807 6988 7121 7242 7296 7292 7263 7213 7175 7191 7303 291 21 0934 0869 0803 0823 0808 0780 0766 0750 0737 0665 0601 0671 0866 0963 0876 0785 0748 0685 0589 0535 0695 1770 3883 5611 6493 6870 7050 7180 7299 7353 7348 7319 7272 7231 7242 7356 292 22 1082 1008 0970 1036 1054 1042 1038 1014 0975 0870 0770 0801 0945 0993 0886 0791 0753 0690 0594 0545 0707 1777 3886 5613 6497 6877 7057 7188 7304 7358 7354 7325 7276 7238 7251 7359 293 23 1238 1198 1194 1314 1378 1392 1404 1369 1292 1139 0991 0964 1030 1009 0877 0776 0739 0677 0584 0541 0704 1771 3884 5616 6503 6887 7066 7198 7315 7368 7366 7335 7287 7249 7263 7366 294 24 1419 1396 1426 1621 1740 1782 1821 1773 1647 1440 1239 1144 1126 1043 0888 0785 0747 0686 0594 0556 0722 1792 3902 5626 6512 6895 7076 7208 7327 7379 7376 7350 7303 7269 7280 7384 295 25 1566 1579 1637 1896 2079 2149 2215 2159 1982 1721 1466 1302 1197 1053 0876 0771 0734 0674 0586 0554 0722 1784 3895 5627 6520 6909 7095 7230 7348 7401 7400 7374 7328 7294 7307 7413 296 26 1689 1728 1810 2142 2388 2488 2581 2513 2293 1984 1682 1457 1281 1087 0893 0785 0748 0686 0598 0567 0739 1805 3917 5645 6532 6914 7096 7226 7341 7392 7390 7365 7319 7284 7300 7403 297 27 1851 1883 2000 2393 2704 2841 2966 2885 2608 2245 1891 1594 1338 1095 0887 0780 0744 0684 0603 0578 0752 1821 3949 5701 6603 6992 7177 7309 7422 7471 7473 7447 7406 7375 7389 7488 298 1 0335 0449 0529 0593 0578 0561 0565 0583 0621 0594 0572 0739 1144 1414 1311 1096 0906 0689 0474 0353 0360 0537 0767 0869 0908 0925 0942 1005 1117 1191 1171 1110 1004 0920 0944 1109 299 2 0373 0491 0607 0695 0694 0688 0700 0723 0760 0723 0688 0843 1220 1452 1327 1105 0910 0690 0474 0353 0359 0537 0760 0857 0892 0908 0925 0989 1099 1172 1152 1093 0988 0905 0930 1091 300 3 0399 0564 0714 0852 0886 0907 0942 0973 0999 0943 0884 1007 1326 1496 1342 1112 0913 0691 0473 0354 0361 0538 0765 0865 0901 0918 0934 0997 1107 1181 1160 1100 0996 0913 0938 1099 301 4 0446 0634 0832 1029 1095 1136 1200 1241 1255 1177 1092 1181 1433 1531 1347 1109 0910 0687 0470 0353 0361 0535 0759 0859 0895 0912 0931 0994 1102 1174 1156 1094 0991 0908 0932 1093 302 5 0502 0724 0979 1244 1366 1452 1554 1607 1603 1492 1368 1401 1562 1569 1346 1098 0897 0675 0460 0348 0357 0527 0745 0841 0876 0892 0909 0970 1078 1150 1130 1071 0969 0885 0914 1068 303 6 0545 0803 1106 1450 1630 1757 1903 1973 1938 1791 1625 1591 1654 1581 1330 1078 0878 0659 0449 0339 0352 0523 0748 0850 0887 0906 0922 0986 1093 1163 1145 1086 0983 0900 0926 1084 304 7 0598 0896 1267 1708 1961 2146 2361 2450 2379 2187 1968 1849 1791 1622 1335 1075 0872 0652 0445 0338 0351 0523 0747 0849 0886 0903 0919 0982 1090 1162 1141 1084 0980 0897 0924 1079 305 8 0653 0979 1410 1937 2265 2518 2797 2908 2797 2554 2281 2073 1895 1640 1324 1059 0859 0642 0437 0337 0352 0521 0744 0848 0886 0905 0922 0984 1091 1162 1144 1086 0984 0898 0926 1086 306 9 0704 1045 1533 2152 2556 2872 3228 3364 3206 2918 2593 2293 1998 1667 1327 1056 0853 0634 0430 0332 0347 0512 0732 0834 0873 0890 0907 0969 1075 1144 1128 1070 0968 0882 0912 1068 307 10 0554 0581 0567 0570 0530 0494 0475 0482 0513 0490 0476 0642 1051 1377 1356 1218 1106 0957 0779 0665 0742 1324 2290 2952 3254 3379 3448 3552 3690 3771 3749 3683 3563 3458 3481 3662 308 11 0628 0666 0684 0711 0683 0656 0647 0654 0678 0641 0610 0757 1124 1390 1340 1197 1084 0937 0762 0655 0732 1310 2271 2926 3226 3352 3422 3526 3666 3748 3725 3658 3540 3433 3457 3640 309 12 0704 0780 0824 0903 0906 0895 0900 0905 0917 0857 0801 0922 1245 1464 1389 1236 1118 0965 0786 0678 0755 1329 2280 2932 3229 3355 3424 3527 3666 3747 3725 3659 3539 3435 3455 3635 310 13 0810 0903 0989 1115 1164 1169 1191 1195 1188 1102 1017 1100 1361 1512 1405 1244 1122 0967 0788 0682 0760 1329 2283 2935 3233 3358 3427 3528 3666 3747 3727 3659 3542 3437 3455 3642 311 14 0948 1062 1198 1410 1506 1540 1590 1597 1561 1436 1309 1338 1510 1574 1427 1255 1129 0974 0796 0693 0771 1333 2283 2938 3240 3366 3436 3538 3676 3756 3735 3670 3550 3445 3465 3650 312 15 1074 1224 1413 1697 1856 1932 2017 2023 1954 1788 1616 1580 1657 1636 1453 1273 1148 0991 0815 0716 0797 1364 2320 2980 3284 3413 3483 3587 3725 3804 3785 3718 3599 3494 3519 3696 313 16 1206 1392 1644 2035 2275 2398 2530 2541 2430 2214 1987 1870 1833 1714 1488 1294 1162 0999 0818 0718 0799 1361 2303 2947 3244 3370 3440 3545 3684 3765 3744 3679 3558 3453 3479 3662 314 17 1299 1533 1831 2323 2647 2822 3008 3022 2862 2592 2312 2106 1950 1739 1481 1282 1150 0989 0813 0719 0798 1346 2276 2915 3214 3341 3412 3515 3652 3733 3711 3647 3526 3420 3443 3626 315 18 1434 1668 2023 2610 3021 3257 3497 3520 3303 2979 2642 2342 2065 1771 1487 1283 1150 0990 0816 0728 0809 1352 2282 2927 3226 3355 3426 3529 3668 3746 3725 3661 3544 3437 3460 3641 316 19 0787 0712 0604 0553 0490 0438 0411 0407 0434 0415 0405 0562 0953 1289 1317 1246 1209 1135 1010 0924 1095 2184 4165 5725 6516 6861 7032 7162 7282 7336 7332 7301 7252 7211 7227 7340 317 20 0895 0847 0764 0739 0695 0645 0617 0610 0627 0588 0561 0705 1077 1381 1392 1317 1278 1200 1074 0990 1162 2249 4223 5775 6561 6902 7067 7197 7312 7365 7360 7329 7281 7239 7258 7366 318 21 1093 1014 0973 0998 0982 0945 0920 0903 0904 0841 0785 0907 1246 1515 1507 1426 1384 1303 1172 1085 1263 2356 4308 5830 6600 6933 7095 7222 7337 7388 7385 7354 7306 7269 7283 7394 319 22 1236 1202 1181 1271 1298 1276 1261 1234 1212 1118 1032 1115 1392 1595 1556 1466 1421 1339 1209 1127 1301 2386 4338 5863 6631 6962 7124 7246 7358 7408 7401 7374 7324 7285 7295 7404 320 23 1425 1420 1433 1602 1672 1666 1671 1635 1579 1445 1315 1343 1531 1641 1559 1458 1411 1329 1202 1125 1300 2380 4330 5859 6633 6969 7135 7260 7372 7421 7415 7389 7342 7302 7317 7419 321 24 1657 1685 1752 2021 2178 2214 2243 2193 2084 1892 1704 1650 1716 1716 1588 1476 1425 1342 1217 1147 1324 2399 4352 5886 6661 6995 7160 7285 7394 7443 7440 7413 7367 7333 7345 7446 322 25 1845 1902 2021 2374 2616 2682 2742 2679 2520 2275 2033 1902 1860 1772 1606 1485 1434 1349 1226 1160 1338 2408 4355 5887 6663 7001 7166 7292 7403 7454 7448 7422 7378 7343 7358 7459 323 26 2013 2119 2280 2728 3051 3154 3241 3167 2959 2662 2370 2161 2015 1839 1640 1510 1456 1373 1251 1189 1370 2437 4380 5907 6678 7015 7181 7307 7416 7464 7461 7436 7393 7359 7371 7472 324 27 2228 2342 2533 3090 3498 3645 3768 3677 3403 3049 2701 2402 2140 1882 1655 1524 1473 1391 1276 1222 1407 2490 4472 6036 6832 7180 7350 7476 7584 7627 7628 7607 7570 7542 7556 7647 325 1 0348 0470 0573 0635 0605 0588 0584 0607 0658 0643 0634 0855 1398 1824 1760 1496 1236 0941 0650 0474 0453 0603 0779 0847 0872 0884 0900 0961 1071 1142 1123 1063 0959 0877 0904 1063 326 2 0374 0526 0658 0753 0749 0739 0747 0774 0825 0800 0778 0984 1486 1850 1753 1483 1224 0933 0644 0472 0455 0610 0790 0860 0885 0898 0914 0976 1085 1158 1139 1077 0974 0890 0918 1077 327 3 0437 0610 0785 0936 0958 0978 1013 1048 1093 1053 1010 1191 1636 1931 1800 1518 1252 0953 0662 0489 0470 0620 0799 0868 0893 0906 0921 0984 1093 1165 1145 1085 0983 0898 0926 1084 328 4 0493 0702 0931 1153 1232 1280 1343 1393 1430 1367 1298 1437 1798 1994 1814 1517 1247 0949 0656 0483 0465 0613 0792 0864 0889 0903 0920 0983 1091 1164 1143 1083 0980 0897 0925 1085 329 5 0555 0807 1102 1422 1559 1648 1764 1834 1856 1766 1661 1747 2013 2109 1881 1566 1281 0972 0672 0497 0476 0621 0795 0864 0889 0904 0918 0981 1089 1159 1139 1080 0980 0896 0922 1081 330 6 0594 0890 1255 1668 1866 2009 2178 2273 2265 2138 1989 1997 2136 2115 1842 1521 1242 0940 0649 0481 0464 0609 0784 0853 0878 0892 0906 0969 1076 1146 1127 1069 0965 0884 0910 1070 331 7 0650 0987 1413 1933 2228 2436 2681 2795 2754 2581 2376 2286 2272 2124 1804 1476 1200 0903 0619 0460 0446 0593 0772 0845 0872 0887 0902 0964 1071 1141 1122 1064 0960 0880 0905 1058 332 8 0722 1092 1591 2212 2589 2870 3189 3335 3254 3034 2776 2586 2427 2163 1800 1465 1189 0893 0613 0456 0445 0591 0772 0846 0875 0889 0906 0967 1075 1144 1127 1067 0965 0883 0909 1066 333 9 0772 1171 1724 2442 2913 3265 3671 3847 3715 3443 3126 2824 2516 2154 1762 1425 1154 0865 0593 0445 0437 0582 0766 0844 0872 0888 0904 0964 1070 1140 1121 1064 0961 0880 0908 1065 334 10 0596 0622 0614 0603 0552 0509 0486 0493 0540 0529 0528 0750 1327 1865 1935 1786 1636 1434 1191 1024 1088 1647 2482 3018 3262 3365 3428 3530 3669 3748 3724 3657 3538 3432 3456 3638 335 11 0691 0734 0763 0795 0762 0725 0711 0717 0758 0731 0715 0923 1460 1937 1971 1814 1660 1457 1215 1050 1113 1668 2497 3031 3272 3378 3442 3543 3683 3764 3742 3673 3555 3449 3471 3657 336 12 0796 0867 0926 1017 1019 0999 0998 1004 1031 0984 0942 1116 1581 1963 1948 1778 1623 1422 1185 1029 1093 1643 2479 3019 3263 3369 3431 3531 3668 3749 3727 3659 3538 3432 3453 3634 337 13 0923 1034 1141 1311 1354 1361 1378 1388 1396 1322 1250 1384 1770 2059 1997 1812 1650 1444 1205 1051 1114 1660 2493 3037 3284 3391 3453 3553 3690 3770 3748 3682 3562 3456 3475 3661 338 14 1058 1226 1389 1650 1765 1799 1848 1862 1847 1740 1626 1705 1990 2164 2045 1843 1674 1466 1226 1072 1133 1671 2497 3038 3286 3393 3455 3555 3693 3773 3753 3690 3572 3469 3489 3667 339 15 1229 1417 1653 2011 2205 2281 2372 2387 2339 2189 2032 2037 2201 2256 2082 1864 1690 1478 1237 1086 1149 1689 2520 3063 3312 3420 3483 3583 3721 3798 3776 3709 3591 3485 3508 3693 340 16 1378 1613 1929 2412 2705 2839 2985 3006 2915 2718 2505 2420 2442 2369 2136 1899 1717 1499 1253 1103 1163 1692 2508 3044 3290 3398 3461 3562 3702 3780 3758 3691 3570 3467 3490 3671 341 17 1492 1798 2173 2777 3161 3360 3560 3595 3456 3211 2943 2761 2635 2435 2152 1903 1718 1499 1256 1110 1170 1686 2491 3021 3265 3372 3436 3537 3674 3751 3730 3664 3545 3440 3463 3647 342 18 1610 1962 2412 3137 3634 3901 4174 4216 4022 3717 3389 3092 2807 2491 2166 1910 1722 1502 1263 1119 1180 1688 2488 3015 3259 3367 3431 3533 3669 3746 3724 3658 3540 3435 3459 3645 343 19 0855 0769 0658 0601 0523 0464 0426 0424 0463 0453 0455 0672 1250 1846 2014 1974 1937 1848 1687 1563 1751 2847 4643 5989 6659 6951 7099 7219 7332 7382 7375 7344 7293 7255 7271 7376 344 20 1028 0935 0848 0833 0777 0712 0676 0669 0700 0674 0658 0863 1409 1939 2067 2012 1971 1878 1716 1595 1780 2872 4660 5997 6663 6955 7104 7225 7337 7386 7379 7349 7298 7264 7274 7382 345 21 1206 1148 1101 1142 1122 1072 1044 1026 1039 0986 0944 1116 1596 2043 2126 2058 2012 1918 1756 1642 1827 2908 4695 6036 6706 6996 7144 7262 7375 7422 7416 7385 7337 7302 7311 7416 346 22 1416 1401 1399 1514 1553 1517 1493 1466 1455 1373 1298 1434 1848 2220 2260 2180 2130 2032 1870 1756 1939 3010 4769 6088 6746 7034 7182 7300 7409 7455 7450 7418 7372 7336 7348 7452 347 23 1633 1662 1709 1927 2028 2014 2007 1966 1927 1806 1690 1771 2083 2334 2313 2214 2158 2057 1896 1787 1969 3029 4785 6105 6764 7055 7200 7318 7429 7473 7468 7439 7393 7358 7371 7472 348 24 1900 1962 2069 2415 2619 2641 2657 2605 2515 2342 2175 2172 2348 2465 2381 2265 2204 2100 1942 1838 2020 3076 4829 6147 6805 7092 7238 7355 7460 7506 7497 7471 7427 7394 7407 7504 349 25 2148 2256 2441 2914 3212 3279 3328 3261 3116 2887 2660 2562 2583 2552 2404 2270 2204 2100 1943 1848 2030 3072 4814 6130 6788 7080 7229 7348 7456 7501 7494 7470 7428 7394 7408 7503 350 26 2371 2534 2778 3369 3772 3880 3968 3885 3688 3409 3132 2946 2838 2691 2491 2344 2273 2166 2010 1919 2099 3130 4865 6174 6832 7122 7272 7389 7495 7538 7533 7510 7466 7435 7448 7544 351 27 2568 2761 3074 3810 4352 4510 4638 4543 4278 3940 3603 3309 3048 2784 2541 2385 2312 2206 2055 1971 2155 3187 4928 6246 6906 7195 7340 7456 7557 7600 7594 7571 7533 7503 7513 7607 352 1 0366 0493 0598 0659 0626 0600 0591 0613 0680 0679 0682 0960 1652 2249 2235 1925 1592 1215 0847 0614 0562 0681 0812 0853 0867 0876 0892 0954 1062 1136 1116 1056 0952 0869 0898 1051 353 2 0423 0569 0715 0817 0805 0790 0794 0828 0893 0881 0874 1139 1789 2314 2257 1937 1601 1226 0856 0624 0574 0696 0829 0870 0884 0894 0910 0972 1081 1155 1135 1074 0971 0885 0917 1074 354 3 0470 0669 0858 1024 1057 1069 1102 1143 1206 1181 1156 1393 1973 2403 2298 1963 1620 1241 0870 0637 0586 0705 0833 0874 0889 0900 0915 0978 1087 1159 1139 1079 0976 0893 0921 1081 355 4 0544 0778 1037 1293 1380 1432 1503 1566 1621 1575 1520 1710 2189 2495 2326 1971 1622 1239 0866 0634 0584 0703 0836 0877 0893 0904 0920 0984 1094 1165 1146 1085 0982 0897 0925 1086 356 5 0596 0874 1209 1561 1712 1807 1930 2016 2056 1985 1894 2028 2392 2567 2336 1961 1604 1218 0846 0619 0569 0685 0818 0863 0879 0891 0908 0969 1075 1146 1129 1070 0966 0884 0916 1067 357 6 0673 1005 1432 1909 2147 2301 2494 2610 2634 2537 2407 2467 2694 2738 2442 2041 1667 1266 0881 0646 0591 0701 0827 0867 0882 0893 0909 0971 1078 1149 1131 1071 0969 0889 0915 1071 358 7 0743 1139 1642 2251 2592 2828 3108 3260 3256 3118 2937 2894 2953 2840 2477 2055 1674 1269 0884 0650 0595 0702 0828 0869 0885 0897 0913 0975 1081 1151 1132 1073 0970 0888 0915 1070 359 8 0824 1239 1832 2559 3006 3320 3689 3881 3839 3653 3416 3253 3123 2855 2436 2008 1631 1234 0858 0632 0580 0689 0815 0858 0874 0887 0902 0964 1073 1142 1122 1064 0961 0879 0909 1064 360 9 0856 1318 1983 2838 3395 3801 4278 4517 4426 4188 3888 3591 3272 2871 2408 1974 1599 1204 0834 0615 0565 0673 0803 0847 0866 0878 0893 0954 1060 1129 1111 1052 0950 0869 0896 1054 361 10 0659 0681 0669 0658 0591 0539 0511 0519 0579 0576 0587 0864 1601 2348 2515 2363 2176 1926 1626 1411 1455 1975 2687 3117 3308 3395 3451 3548 3686 3764 3739 3671 3554 3451 3472 3656 362 11 0759 0808 0839 0864 0824 0780 0757 0769 0823 0808 0804 1069 1762 2434 2555 2388 2194 1943 1644 1433 1472 1979 2680 3109 3305 3392 3450 3547 3686 3765 3742 3675 3556 3452 3471 3654 363 12 0888 0960 1036 1141 1139 1114 1108 1117 1158 1125 1099 1334 1959 2538 2607 2423 2223 1967 1666 1456 1496 2002 2705 3137 3332 3418 3472 3570 3707 3784 3761 3694 3573 3466 3489 3670 364 13 1043 1167 1297 1490 1539 1536 1550 1563 1593 1538 1484 1684 2224 2689 2694 2488 2282 2021 1717 1506 1544 2046 2744 3171 3366 3453 3506 3605 3739 3816 3795 3726 3607 3505 3522 3704 365 14 1226 1393 1601 1915 2047 2082 2132 2151 2156 2067 1971 2106 2520 2829 2752 2518 2299 2031 1726 1516 1552 2043 2737 3164 3357 3443 3497 3595 3729 3806 3784 3717 3596 3492 3512 3694 366 15 1373 1615 1902 2334 2568 2649 2747 2776 2748 2621 2483 2536 2799 2948 2792 2538 2311 2040 1735 1530 1566 2055 2753 3183 3379 3467 3521 3618 3753 3827 3804 3738 3619 3517 3539 3723 367 16 1558 1845 2226 2802 3159 3305 3458 3499 3432 3259 3069 3023 3115 3098 2868 2589 2356 2079 1770 1566 1600 2077 2761 3183 3377 3465 3521 3621 3756 3831 3807 3743 3626 3521 3549 3729 368 17 1728 2082 2551 3279 3746 3952 4171 4221 4109 3885 3639 3484 3393 3213 2913 2616 2376 2095 1788 1587 1617 2085 2772 3202 3402 3495 3555 3653 3788 3864 3841 3776 3658 3554 3576 3763 369 18 1890 2294 2844 3727 4335 4631 4932 4994 4823 4543 4235 3947 3659 3325 2966 2652 2406 2122 1813 1614 1644 2108 2788 3218 3415 3506 3566 3664 3799 3872 3850 3784 3667 3565 3590 3774 370 19 0950 0860 0747 0670 0580 0504 0455 0454 0510 0510 0527 0821 1630 2556 2914 2921 2890 2783 2585 2425 2614 3660 5181 6247 6773 7007 7135 7248 7356 7404 7396 7363 7316 7280 7294 7401 371 20 1144 1071 0995 0971 0901 0828 0780 0772 0821 0805 0804 1081 1832 2642 2924 2905 2864 2757 2563 2409 2595 3638 5178 6266 6804 7044 7172 7288 7394 7441 7432 7402 7355 7319 7331 7432 372 21 1331 1293 1259 1313 1289 1227 1184 1169 1198 1156 1129 1366 2024 2706 2915 2874 2827 2717 2527 2382 2565 3599 5156 6268 6818 7059 7191 7301 7405 7454 7446 7413 7369 7333 7345 7446 373 22 1587 1591 1599 1762 1804 1759 1722 1698 1702 1635 1575 1771 2337 2893 3031 2967 2912 2798 2609 2469 2649 3668 5208 6309 6853 7096 7225 7337 7442 7487 7480 7448 7404 7370 7382 7484 374 23 1875 1924 2014 2283 2412 2385 2367 2328 2302 2198 2099 2237 2688 3104 3164 3076 3012 2895 2706 2568 2746 3749 5266 6351 6890 7132 7263 7373 7478 7521 7512 7484 7442 7409 7425 7521 375 24 2140 2265 2430 2843 3076 3093 3096 3046 2977 2826 2681 2736 3033 3281 3254 3139 3066 2943 2754 2622 2799 3793 5303 6381 6918 7160 7290 7401 7506 7548 7541 7514 7473 7443 7455 7556 376 25 2436 2615 2874 3471 3851 3916 3960 3888 3759 3553 3345 3288 3391 3444 3325 3184 3103 2977 2791 2668 2840 3817 5326 6413 6954 7196 7325 7434 7533 7577 7572 7543 7498 7467 7477 7575 377 26 2714 2929 3262 4003 4517 4633 4714 4627 4447 4191 3932 3775 3712 3608 3418 3254 3165 3035 2848 2728 2901 3868 5363 6439 6978 7217 7348 7457 7556 7598 7592 7566 7525 7494 7502 7601 378 27 2951 3219 3640 4573 5242 5424 5542 5438 5187 4871 4552 4270 4015 3750 3498 3323 3232 3104 2924 2814 2986 3947 5456 6546 7085 7326 7455 7562 7658 7697 7690 7665 7624 7599 7605 7697 379 1 0375 0527 0641 0698 0653 0615 0601 0626 0706 0717 0739 1084 1964 2790 2853 2486 2053 1574 1106 0802 0704 0771 0841 0848 0851 0860 0873 0936 1045 1117 1098 1038 0935 0853 0880 1039 380 2 0449 0618 0772 0878 0859 0837 0838 0875 0957 0962 0975 1311 2151 2901 2916 2535 2097 1614 1146 0840 0742 0811 0885 0895 0901 0908 0923 0986 1095 1166 1147 1087 0983 0901 0930 1089 381 3 0513 0715 0933 1113 1139 1145 1174 1224 1308 1303 1300 1611 2375 3017 2970 2568 2121 1632 1158 0849 0747 0813 0884 0892 0897 0906 0921 0984 1094 1167 1147 1086 0984 0900 0931 1090 382 4 0593 0856 1142 1431 1520 1570 1639 1710 1792 1771 1743 2012 2667 3159 3029 2600 2141 1645 1168 0858 0755 0821 0893 0903 0909 0916 0931 0995 1106 1177 1158 1096 0993 0909 0939 1097 383 5 0676 0990 1377 1791 1970 2076 2211 2321 2392 2349 2286 2485 2983 3285 3058 2598 2129 1630 1153 0847 0745 0808 0882 0894 0901 0910 0926 0988 1096 1167 1146 1086 0986 0905 0935 1094 384 6 0755 1124 1598 2146 2422 2598 2812 2956 3013 2942 2838 2953 3287 3416 3109 2622 2140 1633 1152 0844 0739 0797 0869 0881 0888 0897 0913 0974 1082 1155 1134 1075 0972 0891 0917 1073 385 7 0827 1268 1851 2563 2963 3231 3552 3750 3786 3686 3540 3550 3689 3629 3231 2707 2203 1678 1183 0868 0757 0805 0869 0877 0883 0892 0907 0970 1077 1147 1127 1068 0966 0883 0912 1068 386 8 0917 1406 2101 2980 3513 3876 4308 4558 4567 4429 4229 4110 4029 3770 3288 2741 2228 1698 1199 0881 0770 0818 0882 0892 0898 0907 0923 0986 1093 1163 1144 1086 0981 0900 0929 1088 387 9 0980 1514 2290 3314 3978 4455 5023 5337 5310 5130 4866 4592 4267 3822 3273 2709 2191 1659 1163 0849 0737 0782 0842 0850 0855 0864 0881 0943 1050 1118 1099 1041 0939 0858 0891 1046 388 10 0707 0730 0711 0690 0608 0542 0509 0517 0590 0601 0629 0979 1938 3005 3343 3201 2968 2653 2281 2004 2007 2437 2979 3286 3429 3498 3549 3646 3784 3860 3834 3767 3651 3548 3570 3752 389 11 0846 0894 0929 0963 0907 0850 0817 0830 0900 0903 0917 1260 2178 3155 3433 3268 3024 2705 2330 2055 2050 2463 2985 3281 3420 3486 3537 3634 3771 3849 3825 3756 3637 3534 3555 3736 390 12 0980 1084 1182 1301 1299 1258 1243 1258 1322 1308 1302 1617 2453 3304 3504 3310 3053 2724 2346 2070 2059 2460 2976 3271 3408 3474 3523 3617 3753 3829 3806 3738 3619 3514 3535 3714 391 13 1141 1309 1476 1704 1770 1754 1767 1787 1839 1804 1773 2047 2770 3457 3559 3329 3060 2723 2343 2070 2055 2442 2945 3234 3368 3433 3480 3575 3709 3787 3765 3694 3573 3470 3490 3671 392 14 1359 1573 1827 2185 2340 2373 2421 2451 2489 2429 2364 2581 3170 3669 3662 3398 3111 2768 2385 2114 2095 2472 2972 3261 3398 3464 3513 3607 3742 3818 3792 3724 3606 3502 3525 3708 393 15 1573 1846 2201 2717 2993 3079 3182 3220 3228 3132 3026 3152 3560 3858 3750 3454 3157 2807 2423 2154 2132 2499 2996 3284 3419 3484 3534 3630 3764 3838 3813 3745 3627 3525 3549 3730 394 16 1763 2120 2587 3287 3716 3878 4043 4099 4067 3930 3774 3790 3993 4079 3869 3538 3229 2871 2481 2211 2184 2540 3033 3323 3461 3527 3577 3673 3804 3877 3855 3785 3669 3565 3591 3771 395 17 1979 2385 2952 3832 4393 4636 4879 4951 4872 4689 4476 4364 4336 4197 3886 3527 3209 2850 2463 2200 2172 2522 3015 3305 3446 3514 3564 3661 3795 3869 3846 3777 3659 3556 3578 3761 396 18 2153 2635 3297 4359 5081 5417 5742 5835 5697 5462 5186 4920 4645 4304 3914 3540 3220 2863 2480 2220 2192 2543 3043 3341 3483 3553 3605 3702 3837 3910 3888 3821 3701 3602 3625 3811 397 19 1057 0941 0820 0734 0621 0527 0473 0472 0545 0556 0588 0960 2025 3347 3966 4051 4032 3916 3696 3508 3672 4573 5743 6517 6902 7083 7191 7296 7399 7440 7432 7400 7353 7317 7332 7432 398 20 1250 1194 1112 1087 0996 0909 0849 0844 0909 0910 0928 1294 2303 3500 4026 4078 4046 3926 3708 3526 3684 4569 5744 6531 6923 7106 7216 7319 7422 7468 7458 7426 7381 7344 7353 7454 399 21 1530 1494 1469 1557 1535 1451 1396 1378 1431 1411 1406 1743 2668 3726 4168 4188 4146 4024 3807 3633 3785 4651 5809 6586 6972 7154 7262 7366 7465 7506 7497 7465 7420 7386 7397 7495 400 22 1781 1808 1853 2039 2095 2029 1980 1954 1986 1944 1912 2202 3005 3879 4207 4190 4133 4005 3789 3622 3772 4631 5805 6599 6994 7178 7287 7388 7486 7526 7516 7486 7440 7410 7424 7520 401 23 2129 2206 2336 2682 2838 2800 2769 2727 2730 2655 2585 2807 3456 4119 4320 4262 4190 4056 3844 3685 3829 4670 5842 6649 7051 7240 7350 7451 7549 7586 7577 7547 7507 7478 7488 7586 402 24 2465 2625 2862 3385 3685 3687 3680 3622 3582 3463 3351 3483 3950 4397 4480 4382 4296 4153 3939 3784 3918 4733 5882 6670 7068 7253 7363 7468 7567 7607 7596 7567 7525 7496 7506 7607 403 25 2762 3013 3357 4104 4575 4637 4667 4592 4495 4327 4161 4181 4429 4639 4603 4469 4370 4222 4010 3863 3994 4791 5933 6725 7120 7303 7409 7511 7607 7646 7638 7609 7570 7543 7551 7646 404 26 3103 3426 3875 4822 5468 5591 5659 5568 5416 5198 4980 4880 4902 4882 4734 4564 4453 4303 4093 3952 4077 4859 5991 6779 7174 7358 7468 7566 7658 7696 7687 7659 7617 7585 7592 7686 405 27 3393 3784 4349 5527 6379 6578 6697 6590 6361 6089 5813 5563 5333 5090 4850 4657 4540 4389 4185 4055 4175 4942 6074 6868 7271 7457 7568 7666 7755 7792 7783 7758 7718 7692 7700 7786 406 1 0398 0560 0680 0733 0678 0636 0615 0643 0734 0760 0794 1200 2250 3292 3431 3011 2486 1910 1354 0985 0841 0860 0881 0863 0860 0865 0878 0941 1049 1122 1104 1043 0939 0855 0888 1040 407 2 0469 0647 0816 0922 0900 0869 0864 0902 1001 1021 1051 1450 2453 3395 3472 3035 2507 1931 1374 1006 0862 0884 0909 0894 0891 0897 0913 0976 1086 1158 1138 1077 0975 0892 0919 1080 408 3 0541 0769 0989 1187 1213 1210 1241 1297 1399 1411 1425 1799 2718 3538 3543 3082 2543 1960 1403 1032 0887 0906 0931 0917 0916 0922 0936 0999 1107 1181 1160 1100 0997 0915 0945 1103 409 4 0607 0893 1203 1500 1588 1633 1703 1783 1888 1890 1884 2219 3026 3683 3595 3104 2553 1965 1403 1033 0886 0900 0921 0905 0902 0908 0923 0986 1095 1167 1147 1087 0983 0901 0931 1089 410 5 0700 1059 1485 1941 2132 2245 2401 2527 2628 2607 2568 2827 3442 3850 3627 3092 2525 1928 1365 0996 0850 0862 0882 0866 0864 0870 0885 0948 1056 1125 1107 1047 0946 0865 0895 1051 411 6 0786 1204 1750 2374 2696 2895 3144 3317 3406 3364 3285 3448 3870 4064 3738 3162 2575 1964 1391 1018 0865 0872 0889 0874 0872 0879 0893 0956 1062 1133 1113 1054 0951 0871 0899 1057 412 7 0898 1370 2011 2797 3242 3538 3890 4121 4193 4126 4006 4059 4262 4242 3816 3212 2610 1992 1411 1034 0879 0884 0901 0887 0884 0892 0907 0969 1076 1147 1128 1067 0966 0886 0918 1074 413 8 1007 1540 2313 3292 3898 4305 4791 5095 5146 5049 4879 4795 4746 4488 3953 3309 2685 2050 1456 1070 0909 0905 0917 0900 0897 0904 0920 0984 1092 1161 1141 1082 0980 0897 0928 1089 414 9 1075 1669 2551 3705 4458 4990 5634 6018 6042 5912 5686 5429 5102 4625 4005 3331 2692 2047 1448 1060 0895 0887 0892 0872 0870 0877 0894 0957 1063 1131 1111 1053 0951 0874 0906 1061 415 10 0766 0784 0766 0741 0647 0571 0527 0541 0625 0647 0687 1098 2248 3597 4097 3967 3691 3320 2886 2560 2515 2843 3212 3402 3495 3547 3593 3688 3824 3902 3876 3807 3690 3587 3609 3794 416 11 0919 0973 1009 1046 0986 0914 0876 0890 0975 0990 1018 1427 2531 3773 4195 4036 3750 3372 2940 2615 2563 2879 3243 3432 3526 3577 3621 3716 3852 3928 3903 3834 3714 3610 3631 3811 417 12 1060 1174 1283 1409 1409 1363 1343 1362 1443 1445 1457 1838 2850 3931 4242 4035 3723 3328 2884 2556 2495 2787 3129 3307 3394 3442 3485 3580 3715 3792 3768 3698 3577 3471 3494 3676 418 13 1243 1425 1612 1875 1948 1926 1933 1958 2034 2018 2009 2350 3243 4138 4334 4085 3755 3350 2903 2575 2506 2781 3113 3286 3373 3421 3465 3560 3692 3770 3745 3675 3555 3449 3474 3659 419 14 1489 1734 2032 2458 2650 2681 2729 2768 2828 2788 2746 3028 3764 4442 4511 4221 3875 3465 3016 2691 2618 2887 3223 3402 3490 3536 3578 3669 3800 3873 3851 3780 3663 3558 3582 3760 420 15 1702 2019 2438 3038 3361 3458 3562 3612 3645 3578 3500 3689 4223 4658 4598 4267 3907 3490 3039 2715 2640 2900 3231 3408 3495 3544 3587 3680 3811 3884 3858 3789 3673 3572 3593 3777 421 16 1931 2343 2872 3689 4176 4354 4536 4606 4602 4495 4366 4432 4721 4888 4695 4322 3948 3522 3068 2747 2665 2910 3238 3417 3508 3557 3600 3694 3826 3900 3874 3806 3686 3584 3604 3786 422 17 2206 2693 3356 4384 5042 5305 5568 5661 5623 5482 5307 5247 5286 5200 4884 4470 4074 3635 3173 2848 2757 2984 3292 3462 3548 3598 3641 3735 3868 3938 3913 3847 3728 3624 3651 3829 423 18 2376 2947 3728 4991 5873 6254 6628 6753 6654 6466 6230 5993 5732 5389 4966 4524 4117 3675 3212 2888 2792 3011 3323 3495 3584 3632 3678 3771 3901 3972 3946 3879 3762 3663 3686 3868 424 19 1119 1011 0888 0785 0656 0555 0494 0494 0579 0601 0644 1078 2345 3982 4820 4976 4969 4850 4618 4414 4550 5306 6180 6722 7000 7139 7234 7332 7429 7472 7464 7431 7384 7351 7364 7463 425 20 1370 1314 1232 1202 1105 1002 0930 0926 1009 1024 1055 1496 2732 4268 5023 5144 5122 4996 4762 4564 4688 5408 6245 6772 7042 7181 7274 7372 7469 7510 7501 7468 7423 7392 7403 7505 426 21 1641 1643 1623 1711 1686 1592 1526 1509 1581 1580 1595 2006 3140 4498 5132 5211 5172 5040 4808 4615 4733 5438 6274 6801 7072 7209 7300 7396 7489 7527 7513 7485 7444 7413 7425 7521 427 22 1944 2008 2076 2308 2377 2304 2241 2212 2267 2244 2235 2604 3615 4783 5295 5330 5275 5135 4904 4719 4828 5506 6329 6855 7126 7261 7353 7448 7538 7576 7562 7530 7491 7461 7473 7571 428 23 2321 2458 2626 3031 3220 3169 3121 3079 3106 3054 3013 3317 4158 5065 5410 5385 5309 5160 4932 4754 4855 5516 6347 6889 7170 7311 7405 7500 7593 7628 7620 7588 7548 7518 7529 7622 429 24 2706 2921 3214 3837 4186 4188 4166 4107 4091 4001 3916 4120 4732 5354 5539 5459 5364 5207 4979 4810 4902 5544 6370 6911 7194 7335 7430 7527 7619 7654 7644 7614 7574 7545 7559 7649 430 25 3081 3392 3806 4679 5238 5295 5314 5238 5166 5032 4899 4979 5339 5676 5710 5583 5469 5304 5076 4914 4996 5608 6425 6971 7253 7393 7486 7580 7670 7705 7695 7667 7625 7595 7602 7696 431 26 3442 3824 4373 5513 6285 6418 6478 6383 6255 6075 5894 5843 5943 6001 5894 5726 5595 5423 5200 5047 5119 5703 6505 7045 7324 7461 7553 7646 7733 7766 7756 7727 7684 7657 7663 7755 432 27 3737 4219 4892 6262 7235 7449 7574 7467 7268 7038 6801 6585 6379 6156 5922 5717 5574 5398 5174 5028 5095 5669 6467 7009 7293 7438 7534 7629 7719 7753 7742 7715 7677 7649 7659 7748 433 1 0392 0572 0699 0744 0680 0630 0600 0630 0737 0774 0828 1300 2549 3862 4107 3625 2983 2290 1630 1186 0985 0939 0898 0853 0839 0843 0857 0919 1027 1098 1079 1020 0918 0837 0864 1024 434 2 0508 0698 0870 0984 0952 0921 0905 0949 1066 1102 1152 1624 2826 4024 4189 3683 3032 2336 1674 1227 1026 0980 0938 0893 0881 0885 0898 0961 1071 1142 1124 1064 0961 0880 0910 1065 435 3 0577 0825 1073 1281 1311 1302 1327 1393 1515 1548 1583 2035 3154 4209 4285 3744 3080 2374 1704 1255 1050 1003 0964 0920 0908 0912 0926 0989 1099 1170 1151 1092 0988 0905 0932 1095 436 4 0661 0971 1319 1648 1743 1791 1864 1960 2092 2116 2140 2556 3549 4405 4365 3783 3100 2386 1711 1257 1050 0995 0951 0904 0893 0895 0912 0974 1084 1155 1135 1076 0971 0890 0919 1082 437 5 0746 1140 1605 2117 2337 2457 2620 2769 2905 2922 2918 3268 4071 4662 4468 3830 3120 2387 1701 1243 1031 0971 0923 0877 0866 0870 0885 0948 1056 1126 1107 1046 0945 0866 0896 1052 438 6 0877 1328 1945 2658 3033 3263 3547 3764 3896 3893 3849 4081 4617 4909 4565 3878 3151 2409 1718 1256 1040 0977 0931 0885 0874 0878 0894 0957 1065 1134 1116 1054 0953 0870 0903 1059 439 7 0966 1514 2260 3177 3701 4044 4460 4751 4872 4850 4768 4870 5135 5138 4656 3927 3180 2426 1729 1265 1046 0981 0932 0888 0878 0882 0897 0961 1067 1135 1116 1057 0956 0876 0907 1066 440 8 1095 1679 2531 3622 4294 4750 5289 5650 5760 5716 5590 5559 5570 5330 4743 3980 3222 2462 1759 1292 1070 1002 0955 0908 0898 0903 0918 0982 1089 1158 1138 1078 0977 0896 0926 1085 441 9 1171 1822 2802 4109 4965 5563 6288 6757 6842 6774 6593 6366 6042 5529 4831 4030 3250 2474 1759 1287 1059 0982 0928 0882 0871 0876 0892 0955 1062 1130 1111 1052 0950 0872 0903 1063 442 10 0802 0849 0828 0790 0681 0598 0546 0558 0658 0695 0749 1239 2631 4351 5073 4958 4621 4170 3655 3260 3146 3320 3466 3511 3544 3576 3614 3704 3840 3914 3888 3820 3700 3596 3618 3803 443 11 0974 1040 1098 1130 1057 0980 0932 0947 1053 1085 1133 1622 2960 4535 5138 4972 4604 4136 3612 3217 3089 3235 3362 3403 3435 3466 3506 3597 3731 3808 3784 3714 3593 3486 3511 3692 444 12 1128 1269 1405 1560 1548 1491 1468 1491 1596 1617 1653 2118 3359 4751 5221 4997 4599 4111 3577 3177 3038 3165 3281 3316 3345 3374 3410 3500 3633 3708 3682 3612 3492 3384 3406 3591 445 13 1360 1570 1798 2105 2192 2173 2175 2210 2311 2320 2337 2767 3878 5053 5385 5110 4694 4196 3656 3257 3111 3223 3330 3361 3389 3415 3451 3539 3672 3746 3720 3651 3531 3424 3446 3627 446 14 1626 1943 2287 2773 2981 3007 3057 3108 3199 3195 3187 3558 4492 5397 5562 5232 4798 4294 3754 3357 3206 3308 3414 3447 3480 3508 3545 3635 3767 3838 3813 3744 3626 3524 3545 3728 447 15 1916 2283 2768 3455 3824 3920 4032 4102 4174 4145 4106 4383 5087 5706 5715 5335 4881 4367 3826 3430 3272 3359 3460 3494 3525 3555 3594 3684 3815 3886 3859 3793 3673 3571 3599 3780 448 16 2187 2662 3300 4263 4852 5055 5261 5362 5401 5341 5256 5395 5799 6073 5901 5457 4978 4452 3903 3503 3334 3405 3501 3534 3566 3594 3631 3723 3855 3927 3899 3831 3708 3603 3627 3808 449 17 2439 3002 3772 4981 5765 6069 6361 6494 6500 6413 6288 6288 6405 6376 6058 5570 5073 4539 3988 3591 3414 3469 3555 3586 3618 3646 3685 3774 3904 3973 3947 3879 3763 3659 3681 3865 450 18 2687 3349 4271 5749 6758 7186 7610 7783 7740 7617 7441 7251 7014 6669 6213 5687 5170 4622 4064 3662 3475 3511 3584 3610 3638 3667 3707 3799 3928 3997 3971 3903 3786 3686 3710 3893 451 19 1185 1084 0952 0841 0696 0587 0515 0517 0614 0648 0703 1209 2715 4757 5893 6147 6157 6037 5791 5570 5658 6198 6685 6953 7107 7201 7279 7370 7464 7503 7492 7463 7415 7384 7392 7485 452 20 1466 1424 1344 1313 1209 1091 1013 1007 1104 1133 1183 1697 3159 5058 6073 6276 6264 6135 5891 5676 5755 6263 6733 6996 7150 7247 7327 7416 7510 7546 7535 7504 7459 7429 7435 7532 453 21 1794 1797 1794 1893 1862 1750 1674 1657 1745 1761 1798 2288 3652 5360 6235 6387 6355 6216 5974 5766 5833 6313 6774 7036 7190 7287 7370 7461 7552 7590 7578 7547 7504 7476 7479 7582 454 22 2131 2221 2318 2574 2653 2559 2485 2456 2532 2532 2550 3005 4240 5723 6442 6533 6477 6328 6083 5881 5935 6382 6821 7079 7230 7325 7404 7490 7582 7615 7603 7571 7526 7495 7503 7594 455 23 2541 2754 2974 3484 3722 3655 3597 3548 3599 3572 3563 3952 4999 6185 6712 6737 6656 6497 6255 6065 6102 6513 6935 7183 7332 7424 7499 7584 7672 7705 7691 7663 7619 7592 7601 7690 456 24 3014 3300 3666 4409 4829 4817 4782 4721 4731 4674 4632 4920 5718 6575 6907 6860 6751 6580 6338 6154 6176 6550 6954 7204 7356 7450 7528 7613 7700 7731 7720 7691 7649 7622 7626 7714 457 25 3431 3819 4350 5375 6024 6080 6083 6007 5968 5879 5793 5956 6465 6971 7105 6990 6855 6671 6430 6251 6259 6598 6987 7232 7383 7478 7557 7644 7729 7760 7746 7719 7677 7650 7655 7742 458 26 3862 4346 5006 6327 7232 7369 7419 7328 7235 7106 6980 7001 7199 7356 7310 7138 6981 6791 6551 6384 6379 6688 7067 7310 7460 7551 7626 7710 7794 7822 7810 7781 7742 7715 7720 7808 459 27 4185 4772 5597 7252 8453 8700 8814 8705 8535 8363 8186 8022 7863 7677 7477 7259 7085 6889 6651 6490 6476 6760 7121 7359 7504 7594 7667 7750 7832 7859 7846 7819 7780 7751 7760 7848 460 1 0445 0593 0726 0775 0698 0642 0607 0637 0755 0801 0869 1393 2805 4351 4698 4168 3425 2633 1888 1381 1126 1015 0924 0859 0842 0844 0857 0920 1030 1102 1083 1022 0920 0839 0870 1028 461 2 0516 0723 0911 1032 0988 0947 0934 0981 1111 1160 1224 1754 3121 4541 4796 4234 3481 2684 1938 1429 1172 1058 0967 0902 0884 0885 0900 0963 1072 1143 1125 1066 0963 0879 0909 1067 462 3 0588 0856 1124 1346 1369 1363 1387 1459 1595 1644 1698 2206 3474 4732 4887 4289 3521 2719 1967 1455 1194 1077 0983 0918 0901 0904 0918 0981 1091 1163 1144 1084 0980 0897 0925 1085 463 4 0675 0988 1344 1688 1782 1827 1898 2001 2150 2198 2245 2730 3887 4947 4975 4329 3540 2724 1965 1449 1185 1063 0969 0903 0887 0889 0905 0968 1077 1148 1128 1068 0965 0884 0916 1073 464 5 0740 1156 1646 2157 2367 2476 2638 2798 2961 3005 3034 3462 4430 5200 5048 4338 3519 2687 1919 1401 1136 1011 0916 0852 0836 0838 0853 0916 1022 1091 1070 1012 0912 0834 0864 1025 465 6 0914 1405 2063 2817 3201 3435 3728 3969 4137 4171 4167 4472 5142 5549 5215 4444 3600 2756 1978 1454 1181 1050 0953 0888 0872 0876 0891 0954 1061 1130 1111 1051 0950 0872 0902 1061 466 7 1037 1607 2401 3397 3960 4334 4789 5122 5290 5312 5271 5430 5773 5830 5324 4497 3628 2767 1981 1450 1172 1037 0940 0875 0859 0863 0879 0942 1050 1117 1098 1039 0940 0861 0892 1052 467 8 1136 1776 2704 3895 4628 5123 5717 6135 6298 6308 6230 6246 6296 6061 5423 4558 3673 2804 2011 1476 1195 1055 0955 0889 0874 0878 0895 0959 1066 1134 1114 1054 0953 0876 0908 1064 468 9 1228 1916 2964 4375 5306 5947 6733 7265 7407 7397 7268 7082 6776 6250 5499 4596 3697 2816 2017 1479 1192 1051 0950 0885 0870 0874 0890 0954 1060 1129 1109 1049 0946 0869 0904 1059 469 10 0848 0878 0858 0814 0695 0605 0549 0563 0672 0718 0783 1325 2897 4913 5826 5730 5329 4808 4233 3788 3592 3578 3522 3464 3461 3481 3516 3606 3742 3815 3792 3722 3601 3497 3521 3703 470 11 1002 1091 1146 1186 1106 1025 0969 0988 1106 1148 1211 1762 3284 5145 5922 5761 5331 4791 4207 3763 3555 3523 3459 3401 3400 3420 3454 3543 3678 3753 3728 3658 3538 3431 3451 3638 471 12 1205 1366 1503 1671 1655 1593 1560 1590 1710 1748 1803 2331 3748 5405 6038 5822 5367 4811 4220 3773 3555 3504 3431 3371 3368 3386 3421 3511 3646 3719 3694 3624 3503 3400 3423 3605 472 13 1428 1670 1920 2225 2313 2277 2277 2317 2439 2472 2516 3017 4311 5744 6216 5935 5450 4880 4282 3835 3605 3539 3458 3395 3393 3410 3445 3535 3664 3737 3710 3642 3523 3419 3444 3622 473 14 1738 2059 2448 2965 3192 3211 3257 3313 3433 3458 3484 3933 5045 6181 6465 6121 5619 5043 4445 4001 3763 3680 3593 3530 3527 3544 3580 3667 3797 3870 3843 3773 3654 3556 3578 3763 474 15 2003 2431 2952 3720 4125 4224 4336 4418 4521 4531 4533 4888 5754 6564 6665 6259 5731 5145 4545 4100 3852 3752 3656 3590 3584 3604 3637 3727 3855 3924 3896 3827 3711 3612 3636 3813 475 16 2310 2845 3544 4588 5210 5414 5622 5739 5817 5806 5774 5997 6547 6972 6864 6388 5827 5226 4617 4168 3908 3787 3685 3619 3612 3631 3664 3755 3883 3953 3926 3858 3738 3634 3659 3838 476 17 2638 3264 4134 5464 6319 6642 6956 7116 7168 7140 7073 7142 7331 7361 7054 6512 5930 5318 4704 4257 3985 3845 3736 3669 3666 3684 3719 3811 3939 4009 3983 3914 3796 3697 3720 3901 477 18 2863 3586 4610 6248 7393 7853 8298 8501 8502 8444 8325 8191 7996 7674 7219 6636 6039 5420 4805 4357 4078 3925 3810 3741 3736 3754 3789 3877 4005 4074 4046 3978 3860 3763 3788 3973 478 19 1262 1154 1010 0882 0728 0610 0531 0538 0643 0684 0750 1312 3014 5426 6868 7247 7291 7188 6962 6751 6777 7030 7132 7179 7252 7321 7394 7481 7570 7604 7592 7565 7522 7496 7502 7597 479 20 1568 1512 1421 1394 1276 1148 1061 1055 1166 1204 1267 1843 3510 5770 7071 7389 7406 7291 7067 6862 6869 7084 7169 7217 7291 7361 7435 7523 7612 7647 7634 7604 7565 7536 7544 7635 480 21 1915 1923 1921 2022 1989 1863 1775 1756 1859 1891 1946 2505 4078 6143 7301 7566 7567 7450 7236 7043 7040 7227 7301 7349 7424 7498 7571 7657 7745 7775 7767 7738 7701 7676 7683 7770 481 22 2280 2381 2493 2784 2859 2752 2663 2633 2726 2746 2789 3317 4756 6564 7529 7715 7678 7540 7316 7127 7102 7243 7295 7333 7401 7468 7538 7621 7706 7736 7724 7695 7654 7626 7637 7723 482 23 2772 2980 3230 3738 3964 3882 3805 3759 3834 3840 3865 4343 5591 7066 7796 7890 7815 7661 7439 7257 7207 7296 7329 7366 7439 7511 7584 7671 7757 7785 7774 7747 7712 7688 7692 7781 483 24 3228 3564 3984 4821 5294 5269 5221 5153 5188 5165 5159 5528 6492 7584 8084 8095 7991 7823 7604 7436 7365 7413 7425 7457 7524 7587 7655 7736 7817 7847 7833 7807 7766 7739 7745 7832 484 25 3683 4133 4732 5934 6698 6757 6751 6665 6649 6596 6557 6790 7424 8095 8349 8275 8132 7949 7726 7563 7472 7473 7466 7487 7544 7601 7661 7738 7818 7843 7831 7802 7760 7734 7737 7818 485 26 4149 4673 5446 6952 7970 8115 8157 8058 7997 7921 7851 7946 8246 8522 8562 8412 8237 8040 7815 7661 7549 7515 7490 7509 7572 7630 7695 7772 7851 7877 7865 7837 7797 7770 7774 7857 486 27 4474 5146 6083 7965 9328 9590 9700 9588 9455 9343 9231 9130 9026 8901 8753 8547 8353 8149 7925 7775 7653 7587 7551 7565 7620 7675 7735 7812 7886 7911 7898 7871 7831 7810 7811 7893 487 1 0355 0414 0479 0526 0518 0514 0520 0532 0545 0498 0457 0535 0711 0751 0615 0481 0397 0301 0211 0177 0221 0479 0933 1221 1341 1391 1422 1499 1622 1701 1681 1616 1500 1406 1433 1608 488 2 0374 0451 0526 0592 0595 0597 0613 0626 0633 0574 0519 0583 0733 0749 0604 0471 0387 0294 0206 0175 0221 0480 0940 1231 1353 1404 1435 1511 1634 1714 1695 1629 1514 1418 1444 1620 489 3 0394 0492 0596 0690 0713 0727 0755 0772 0763 0686 0609 0646 0765 0756 0599 0466 0383 0289 0201 0173 0219 0479 0945 1243 1367 1419 1452 1529 1652 1733 1713 1646 1532 1433 1458 1629 490 4 0436 0553 0666 0791 0833 0858 0909 0923 0905 0806 0707 0719 0800 0759 0593 0458 0375 0283 0197 0170 0218 0481 0957 1262 1391 1446 1479 1556 1681 1760 1741 1675 1559 1460 1487 1663 491 5 0472 0608 0771 0936 1003 1065 1135 1155 1114 0983 0850 0821 0851 0769 0590 0452 0370 0277 0194 0169 0218 0469 0917 1203 1323 1374 1406 1481 1604 1681 1662 1598 1483 1389 1415 1585 492 6 0518 0682 0883 1106 1226 1318 1423 1453 1380 1209 1030 0947 0906 0778 0585 0445 0363 0272 0190 0169 0220 0463 0884 1147 1258 1304 1334 1408 1528 1605 1586 1522 1409 1314 1342 1515 493 7 0562 0747 0991 1276 1454 1590 1742 1778 1666 1445 1216 1066 0953 0778 0570 0429 0348 0257 0177 0161 0213 0455 0879 1148 1259 1306 1336 1408 1527 1603 1584 1523 1410 1316 1343 1518 494 8 0603 0810 1084 1432 1652 1823 2021 2063 1910 1643 1370 1157 0974 0758 0543 0406 0327 0241 0167 0156 0209 0446 0865 1129 1239 1287 1317 1391 1509 1586 1566 1505 1394 1299 1327 1497 495 9 0630 0859 1176 1582 1857 2080 2330 2381 2181 1867 1544 1264 1013 0762 0536 0399 0321 0236 0164 0155 0211 0447 0864 1131 1242 1289 1320 1393 1512 1590 1571 1509 1395 1301 1328 1496 496 10 0548 0517 0487 0479 0450 0427 0416 0416 0425 0388 0361 0433 0582 0607 0491 0393 0346 0287 0221 0198 0283 0939 2365 3520 4093 4335 4453 4574 4717 4797 4781 4721 4616 4525 4543 4716 497 11 0595 0570 0558 0564 0549 0529 0525 0522 0522 0468 0423 0482 0610 0617 0494 0395 0347 0287 0220 0198 0284 0946 2384 3557 4136 4380 4499 4617 4757 4836 4819 4761 4656 4564 4581 4750 498 12 0671 0634 0632 0661 0660 0647 0654 0650 0636 0560 0492 0527 0625 0609 0480 0383 0336 0278 0215 0197 0285 0941 2365 3524 4098 4340 4457 4579 4720 4799 4782 4722 4615 4524 4539 4716 499 13 0750 0741 0752 0822 0838 0850 0868 0860 0820 0713 0611 0608 0661 0612 0473 0377 0331 0274 0212 0197 0287 0940 2363 3519 4094 4339 4456 4575 4716 4795 4778 4718 4614 4521 4537 4715 500 14 0824 0847 0877 0990 1046 1074 1114 1100 1029 0883 0738 0690 0691 0604 0455 0358 0314 0259 0199 0187 0279 0928 2347 3508 4089 4336 4456 4575 4716 4793 4777 4720 4615 4522 4545 4711 501 15 0903 0938 0998 1145 1237 1291 1350 1333 1228 1042 0860 0764 0714 0596 0441 0345 0303 0250 0194 0187 0281 0928 2341 3494 4069 4316 4436 4558 4701 4781 4763 4707 4601 4509 4528 4702 502 16 1009 1062 1146 1345 1482 1565 1657 1632 1484 1247 1015 0863 0752 0599 0433 0338 0297 0244 0190 0187 0286 0949 2398 3586 4182 4438 4562 4686 4827 4903 4888 4833 4731 4638 4656 4826 503 17 1117 1177 1279 1536 1724 1842 1964 1932 1737 1447 1166 0953 0779 0590 0417 0324 0286 0236 0184 0187 0288 0956 2435 3658 4275 4540 4670 4791 4931 5008 4993 4939 4836 4748 4762 4926 504 18 1193 1255 1390 1690 1930 2085 2242 2209 1964 1624 1297 1022 0791 0574 0397 0306 0270 0223 0175 0182 0283 0936 2387 3584 4190 4452 4579 4704 4845 4920 4908 4854 4751 4660 4681 4844 505 19 0753 0612 0512 0475 0437 0397 0379 0373 0379 0344 0320 0389 0520 0534 0429 0352 0326 0289 0238 0221 0347 1417 3920 6206 7460 8017 8275 8419 8518 8552 8557 8550 8554 8566 8577 8633 506 20 0808 0693 0605 0571 0539 0509 0489 0479 0475 0421 0379 0430 0540 0536 0424 0348 0322 0285 0235 0219 0349 1424 3930 6216 7474 8033 8290 8435 8532 8566 8572 8569 8567 8580 8592 8644 507 21 0906 0784 0699 0693 0674 0653 0644 0625 0600 0523 0454 0479 0560 0536 0419 0343 0318 0282 0232 0219 0352 1428 3940 6231 7489 8048 8301 8445 8541 8574 8579 8577 8579 8591 8604 8655 508 22 1011 0898 0830 0859 0866 0853 0852 0823 0774 0663 0560 0551 0595 0544 0418 0341 0316 0281 0231 0221 0359 1446 3963 6253 7508 8065 8320 8463 8558 8591 8596 8593 8595 8609 8619 8667 509 23 1159 1058 1000 1064 1103 1111 1128 1087 1001 0842 0693 0635 0624 0538 0404 0328 0306 0272 0226 0221 0362 1443 3956 6246 7505 8064 8322 8464 8559 8593 8600 8598 8597 8614 8620 8669 510 24 1292 1197 1154 1270 1353 1385 1419 1365 1235 1025 0829 0717 0651 0532 0389 0315 0295 0262 0218 0219 0361 1443 3963 6269 7535 8094 8348 8489 8580 8612 8621 8619 8622 8638 8641 8693 511 25 1420 1343 1312 1475 1611 1673 1732 1666 1484 1219 0970 0799 0670 0516 0367 0294 0278 0245 0205 0212 0356 1423 3935 6239 7510 8072 8332 8478 8574 8605 8613 8615 8620 8635 8643 8692 512 26 1532 1449 1447 1652 1821 1911 1988 1919 1691 1382 1090 0868 0690 0509 0355 0284 0269 0238 0201 0213 0357 1422 3926 6224 7493 8060 8321 8468 8562 8596 8608 8608 8616 8631 8641 8686 513 27 1637 1569 1581 1831 2052 2167 2275 2192 1914 1558 1220 0942 0715 0509 0349 0279 0265 0235 0199 0214 0363 1430 3935 6230 7493 8056 8314 8456 8549 8584 8595 8598 8602 8621 8628 8672 514 1 0354 0435 0502 0548 0527 0519 0521 0534 0556 0519 0487 0599 0857 0980 0855 0698 0582 0451 0316 0252 0292 0561 0991 1247 1352 1397 1426 1502 1624 1703 1683 1618 1505 1407 1433 1609 515 2 0375 0477 0553 0613 0614 0607 0617 0631 0650 0601 0558 0656 0887 0979 0842 0684 0570 0441 0312 0252 0292 0557 0975 1223 1324 1367 1396 1471 1594 1675 1654 1590 1475 1381 1406 1582 516 3 0410 0533 0637 0735 0748 0759 0786 0805 0811 0744 0678 0753 0952 1013 0862 0697 0580 0447 0314 0252 0293 0564 0998 1259 1367 1411 1443 1519 1640 1720 1700 1635 1519 1422 1451 1622 517 4 0467 0600 0735 0867 0911 0939 0984 1003 0998 0909 0818 0863 1011 1024 0856 0688 0573 0440 0310 0251 0295 0566 0997 1255 1361 1405 1438 1514 1637 1716 1695 1631 1514 1419 1443 1623 518 5 0517 0677 0872 1076 1168 1230 1306 1339 1307 1181 1048 1040 1115 1065 0869 0693 0574 0439 0307 0250 0293 0552 0962 1206 1305 1348 1376 1450 1569 1647 1627 1562 1452 1355 1382 1551 519 6 0568 0768 0992 1258 1396 1494 1612 1649 1592 1428 1252 1189 1189 1079 0864 0685 0565 0430 0300 0245 0290 0543 0944 1181 1279 1321 1349 1422 1542 1618 1599 1535 1422 1328 1354 1523 520 7 0630 0850 1134 1466 1660 1807 1968 2017 1917 1706 1479 1343 1254 1084 0850 0671 0553 0420 0295 0244 0291 0544 0944 1182 1282 1324 1351 1426 1545 1621 1602 1540 1427 1333 1359 1532 521 8 0703 0932 1272 1689 1942 2132 2353 2416 2272 2013 1735 1523 1341 1107 0854 0671 0552 0419 0295 0250 0299 0547 0939 1171 1267 1308 1337 1410 1529 1605 1587 1524 1412 1317 1344 1515 522 9 0720 1012 1374 1861 2183 2435 2712 2787 2599 2288 1960 1668 1399 1116 0848 0664 0545 0412 0290 0249 0300 0544 0939 1175 1275 1317 1345 1419 1537 1613 1596 1531 1419 1326 1352 1520 523 10 0565 0549 0513 0504 0464 0437 0423 0421 0442 0412 0390 0497 0735 0861 0774 0667 0605 0523 0423 0369 0468 1176 2555 3620 4137 4356 4464 4579 4719 4796 4779 4720 4614 4524 4542 4712 524 11 0655 0627 0608 0620 0590 0564 0555 0552 0564 0518 0478 0573 0795 0905 0810 0700 0637 0550 0445 0390 0492 1201 2577 3639 4157 4375 4483 4598 4738 4814 4799 4737 4631 4538 4558 4726 525 12 0708 0715 0713 0746 0734 0721 0720 0716 0712 0645 0585 0654 0838 0911 0801 0688 0625 0541 0438 0386 0489 1197 2567 3624 4138 4357 4464 4582 4722 4798 4780 4720 4614 4523 4541 4711 526 13 0802 0828 0846 0917 0934 0938 0950 0944 0915 0820 0727 0758 0892 0917 0791 0675 0612 0529 0428 0381 0485 1189 2558 3615 4130 4351 4461 4579 4719 4795 4778 4720 4613 4525 4538 4711 527 14 0920 0967 1036 1160 1226 1250 1283 1271 1212 1074 0936 0915 0979 0946 0797 0677 0614 0531 0432 0389 0496 1195 2560 3618 4133 4354 4463 4579 4718 4794 4777 4719 4613 4522 4539 4708 528 15 1044 1092 1192 1376 1483 1535 1596 1579 1486 1303 1124 1049 1045 0960 0793 0672 0609 0527 0429 0389 0497 1199 2572 3637 4159 4384 4495 4610 4750 4826 4809 4750 4648 4557 4576 4740 529 16 1198 1273 1404 1659 1823 1913 2006 1983 1844 1608 1376 1234 1149 1008 0822 0698 0635 0551 0456 0418 0531 1250 2655 3748 4288 4519 4635 4753 4892 4965 4951 4896 4794 4704 4722 4890 530 17 1303 1404 1569 1896 2123 2251 2380 2356 2164 1875 1586 1370 1197 0997 0793 0668 0608 0527 0435 0405 0521 1237 2642 3741 4285 4519 4637 4756 4895 4970 4955 4899 4797 4709 4726 4895 531 18 1413 1531 1728 2123 2414 2583 2758 2728 2484 2140 1803 1514 1260 1013 0797 0671 0610 0530 0440 0413 0530 1244 2654 3758 4306 4543 4662 4781 4919 4990 4978 4925 4822 4734 4753 4917 532 19 0765 0663 0549 0501 0446 0402 0379 0372 0389 0360 0345 0448 0678 0814 0755 0680 0654 0606 0527 0482 0644 1810 4262 6400 7550 8059 8298 8436 8529 8564 8567 8561 8564 8577 8588 8641 533 20 0892 0772 0679 0644 0599 0558 0535 0524 0530 0483 0449 0540 0759 0878 0807 0730 0702 0653 0570 0524 0694 1882 4341 6470 7607 8111 8346 8480 8571 8603 8606 8602 8606 8616 8627 8681 534 21 0999 0892 0809 0803 0780 0749 0730 0712 0699 0626 0565 0627 0805 0886 0802 0722 0694 0646 0566 0523 0693 1873 4329 6458 7602 8109 8347 8483 8575 8605 8609 8607 8610 8623 8630 8683 535 22 1140 1035 0971 1011 1009 0987 0977 0949 0913 0812 0718 0746 0879 0919 0818 0734 0707 0659 0579 0540 0713 1896 4348 6471 7609 8115 8349 8483 8575 8605 8610 8608 8610 8626 8631 8683 536 23 1300 1220 1177 1267 1307 1306 1309 1267 1194 1046 0908 0886 0952 0937 0815 0730 0702 0655 0577 0544 0719 1896 4347 6477 7621 8129 8366 8502 8592 8622 8630 8626 8630 8646 8650 8695 537 24 1485 1435 1423 1585 1691 1713 1740 1686 1559 1355 1159 1068 1052 0974 0832 0742 0716 0669 0594 0566 0743 1916 4371 6508 7653 8161 8394 8528 8617 8647 8652 8652 8656 8672 8676 8723 538 25 1685 1655 1666 1889 2050 2103 2158 2089 1910 1650 1399 1238 1137 0998 0837 0745 0721 0673 0602 0581 0762 1922 4353 6480 7630 8144 8386 8524 8616 8650 8658 8662 8667 8685 8696 8744 539 26 1838 1790 1832 2116 2335 2421 2500 2420 2194 1881 1584 1360 1187 1000 0824 0731 0706 0659 0591 0575 0756 1917 4358 6488 7638 8151 8389 8524 8613 8646 8658 8657 8663 8681 8690 8731 540 27 1965 1939 2014 2368 2660 2778 2884 2792 2512 2145 1797 1506 1259 1027 0838 0744 0719 0674 0608 0598 0782 1939 4377 6503 7646 8153 8387 8520 8608 8639 8649 8653 8658 8681 8683 8729 541 1 0358 0448 0519 0561 0537 0520 0519 0530 0566 0539 0519 0677 1059 1321 1238 1050 0887 0698 0504 0394 0416 0671 1047 1257 1342 1380 1406 1481 1603 1680 1661 1596 1485 1386 1415 1586 542 2 0420 0523 0601 0668 0655 0640 0648 0665 0696 0661 0629 0776 1134 1361 1258 1063 0898 0708 0513 0403 0426 0681 1054 1260 1342 1381 1408 1483 1604 1683 1664 1598 1484 1388 1415 1588 543 3 0459 0582 0699 0805 0818 0824 0843 0866 0888 0835 0782 0905 1214 1388 1260 1060 0893 0702 0509 0401 0425 0678 1052 1262 1348 1386 1414 1489 1609 1687 1667 1603 1488 1395 1419 1593 544 4 0529 0673 0836 0996 1038 1069 1111 1138 1150 1073 0994 1085 1338 1448 1290 1079 0909 0714 0516 0407 0430 0686 1062 1272 1358 1397 1425 1501 1623 1702 1681 1616 1501 1405 1431 1608 545 5 0582 0775 0988 1217 1308 1372 1448 1487 1475 1367 1248 1285 1446 1469 1275 1056 0885 0692 0500 0397 0423 0672 1043 1252 1338 1376 1403 1478 1599 1675 1655 1592 1479 1383 1412 1584 546 6 0671 0880 1162 1471 1630 1735 1861 1910 1870 1721 1556 1523 1586 1519 1290 1063 0889 0694 0502 0401 0428 0678 1053 1265 1353 1392 1421 1496 1614 1692 1673 1607 1495 1401 1427 1601 547 7 0726 0983 1320 1720 1948 2105 2289 2357 2278 2082 1868 1754 1705 1552 1291 1058 0883 0688 0498 0401 0430 0680 1058 1274 1363 1404 1431 1506 1627 1703 1683 1621 1506 1411 1436 1609 548 8 0797 1096 1482 1986 2291 2508 2756 2841 2717 2469 2201 1998 1830 1593 1303 1064 0888 0693 0504 0411 0440 0685 1056 1269 1358 1399 1428 1502 1622 1699 1679 1618 1502 1407 1435 1610 549 9 0856 1175 1624 2198 2570 2848 3163 3264 3094 2799 2474 2181 1900 1590 1280 1041 0868 0677 0495 0408 0439 0680 1049 1261 1351 1390 1420 1493 1613 1690 1671 1608 1495 1400 1427 1600 550 10 0614 0593 0556 0531 0484 0448 0429 0431 0459 0437 0426 0575 0944 1236 1223 1114 1032 0920 0774 0682 0785 1505 2787 3735 4192 4387 4487 4601 4740 4815 4799 4738 4633 4542 4559 4730 551 11 0701 0692 0669 0674 0639 0598 0585 0584 0608 0571 0543 0683 1035 1297 1266 1152 1069 0954 0806 0715 0818 1537 2816 3758 4210 4405 4506 4619 4756 4831 4816 4755 4650 4557 4578 4742 552 12 0818 0818 0826 0863 0847 0824 0816 0812 0823 0766 0717 0834 1144 1359 1306 1185 1099 0983 0834 0744 0848 1559 2814 3741 4185 4378 4475 4589 4727 4802 4783 4723 4618 4528 4543 4714 553 13 0920 0946 0991 1080 1097 1094 1097 1091 1082 0998 0919 1001 1253 1407 1323 1193 1104 0985 0836 0747 0851 1562 2829 3767 4217 4410 4510 4620 4759 4833 4813 4755 4649 4557 4573 4745 554 14 1080 1138 1230 1394 1473 1490 1520 1513 1468 1343 1218 1239 1398 1459 1334 1194 1105 0986 0839 0755 0861 1571 2840 3780 4233 4427 4527 4638 4772 4845 4828 4769 4666 4574 4595 4761 555 15 1220 1317 1447 1695 1829 1877 1936 1926 1846 1678 1509 1471 1543 1526 1369 1222 1129 1009 0862 0782 0888 1589 2847 3781 4235 4429 4531 4642 4776 4847 4831 4773 4671 4583 4599 4765 556 16 1409 1535 1723 2069 2273 2367 2465 2450 2323 2102 1878 1762 1729 1629 1438 1282 1186 1062 0915 0837 0946 1654 2919 3857 4313 4511 4614 4726 4861 4934 4917 4860 4757 4665 4687 4851 557 17 1527 1712 1943 2383 2671 2808 2947 2929 2749 2473 2194 1993 1845 1655 1431 1270 1175 1053 0910 0837 0949 1662 2953 3921 4393 4598 4704 4818 4951 5022 5004 4948 4848 4762 4776 4937 558 18 1631 1844 2132 2658 3030 3223 3416 3398 3162 2832 2498 2206 1942 1673 1423 1258 1160 1040 0899 0832 0942 1638 2901 3848 4311 4511 4617 4729 4863 4936 4920 4865 4762 4673 4692 4857 559 19 0825 0710 0594 0530 0463 0414 0384 0379 0405 0385 0377 0528 0900 1223 1260 1205 1185 1132 1028 0957 1147 2358 4683 6629 7660 8118 8337 8465 8555 8586 8587 8583 8589 8598 8604 8660 560 20 0965 0851 0758 0716 0658 0608 0577 0567 0583 0547 0523 0661 1018 1313 1334 1272 1250 1195 1090 1020 1213 2433 4752 6680 7697 8153 8370 8500 8586 8616 8621 8617 8619 8634 8642 8689 561 21 1138 1036 0957 0964 0932 0887 0859 0840 0843 0779 0731 0846 1170 1424 1423 1357 1334 1278 1171 1101 1298 2519 4820 6728 7731 8180 8394 8521 8607 8636 8637 8634 8637 8653 8659 8704 562 22 1311 1225 1168 1228 1230 1200 1174 1143 1122 1030 0948 1028 1294 1489 1462 1388 1364 1306 1201 1137 1334 2545 4837 6740 7744 8191 8404 8529 8616 8645 8647 8644 8647 8663 8669 8715 563 23 1509 1466 1440 1573 1634 1617 1605 1563 1505 1370 1244 1274 1461 1578 1513 1430 1403 1344 1241 1180 1377 2586 4872 6768 7768 8209 8420 8545 8628 8655 8662 8659 8662 8678 8684 8729 564 24 1753 1721 1755 1971 2104 2113 2126 2069 1960 1773 1591 1545 1622 1638 1530 1439 1410 1350 1250 1197 1395 2590 4875 6785 7795 8242 8457 8583 8666 8694 8700 8700 8704 8720 8726 8773 565 25 1971 1985 2058 2380 2595 2643 2687 2612 2443 2194 1952 1817 1770 1683 1533 1432 1400 1342 1244 1199 1398 2586 4869 6780 7792 8241 8456 8580 8665 8692 8698 8697 8701 8721 8727 8766 566 26 2190 2217 2339 2755 3056 3136 3206 3115 2892 2588 2292 2080 1928 1755 1573 1463 1430 1370 1274 1233 1433 2617 4890 6795 7805 8255 8471 8598 8680 8706 8714 8714 8720 8740 8748 8789 567 27 2342 2405 2574 3085 3457 3585 3683 3578 3298 2944 2600 2309 2055 1810 1603 1489 1456 1396 1303 1268 1468 2639 4900 6794 7798 8245 8459 8585 8668 8695 8705 8706 8713 8732 8743 8783 568 1 0403 0489 0558 0596 0556 0529 0521 0537 0583 0567 0559 0768 1289 1717 1688 1470 1253 1000 0736 0572 0573 0816 1149 1324 1395 1429 1456 1532 1654 1732 1713 1646 1532 1435 1463 1632 569 2 0436 0560 0647 0714 0689 0670 0670 0690 0736 0711 0693 0888 1374 1745 1686 1460 1242 0991 0732 0574 0575 0808 1128 1293 1360 1391 1417 1491 1612 1690 1672 1606 1493 1399 1424 1598 570 3 0499 0646 0780 0894 0898 0904 0919 0947 0986 0943 0903 1078 1513 1819 1722 1482 1258 1001 0736 0577 0577 0816 1144 1315 1385 1418 1445 1520 1641 1719 1699 1634 1520 1423 1449 1624 571 4 0590 0751 0925 1102 1147 1172 1214 1250 1277 1217 1154 1293 1663 1886 1750 1496 1267 1007 0744 0584 0585 0819 1141 1311 1382 1414 1442 1516 1638 1716 1695 1632 1516 1420 1448 1625 572 5 0678 0871 1120 1383 1492 1552 1638 1686 1696 1601 1496 1575 1830 1935 1744 1478 1250 0991 0732 0578 0582 0813 1132 1301 1371 1404 1430 1504 1624 1701 1681 1615 1504 1407 1435 1606 573 6 0728 0975 1281 1633 1799 1905 2038 2102 2081 1950 1803 1810 1944 1935 1699 1429 1203 0952 0702 0558 0565 0793 1108 1273 1341 1374 1400 1474 1594 1670 1650 1587 1473 1378 1407 1578 574 7 0816 1113 1490 1965 2221 2402 2602 2689 2630 2451 2248 2161 2156 2032 1748 1462 1228 0969 0714 0570 0577 0803 1127 1303 1377 1411 1437 1511 1631 1708 1687 1624 1509 1416 1442 1613 575 8 0880 1222 1670 2242 2588 2826 3102 3212 3110 2879 2618 2430 2279 2038 1711 1419 1186 0934 0685 0548 0557 0784 1108 1284 1358 1393 1420 1494 1613 1690 1669 1606 1491 1395 1423 1594 576 9 0950 1321 1846 2510 2949 3257 3611 3747 3594 3311 2993 2695 2400 2061 1705 1409 1177 0925 0681 0548 0559 0783 1105 1279 1352 1387 1415 1489 1608 1684 1664 1601 1487 1395 1423 1598 577 10 0665 0659 0611 0575 0512 0465 0437 0440 0481 0471 0472 0684 1239 1781 1884 1779 1672 1514 1308 1161 1260 1968 3088 3868 4238 4399 4488 4597 4733 4807 4790 4729 4626 4531 4550 4717 578 11 0784 0767 0757 0755 0707 0663 0640 0639 0677 0650 0635 0832 1339 1800 1858 1741 1635 1481 1280 1141 1241 1951 3085 3879 4257 4421 4511 4621 4757 4832 4812 4755 4648 4554 4574 4740 579 12 0875 0907 0931 0981 0960 0927 0913 0914 0936 0891 0853 1021 1469 1851 1866 1737 1628 1471 1273 1137 1237 1940 3077 3877 4259 4424 4513 4622 4756 4828 4811 4750 4646 4553 4574 4738 580 13 1031 1082 1144 1257 1280 1265 1261 1259 1265 1196 1128 1266 1648 1952 1925 1782 1666 1508 1306 1173 1272 1969 3094 3888 4264 4429 4520 4628 4762 4836 4816 4755 4653 4558 4579 4744 581 14 1222 1301 1411 1611 1684 1696 1718 1714 1692 1585 1479 1559 1841 2028 1942 1784 1666 1506 1309 1181 1282 1972 3092 3882 4259 4425 4516 4623 4758 4830 4811 4751 4647 4558 4576 4740 582 15 1388 1521 1697 2003 2158 2207 2264 2259 2199 2046 1890 1894 2056 2124 1985 1812 1687 1524 1325 1201 1301 1989 3107 3899 4277 4444 4535 4644 4779 4849 4831 4774 4669 4578 4597 4764 583 16 1592 1771 2027 2467 2725 2823 2925 2914 2807 2599 2387 2302 2327 2273 2080 1890 1758 1590 1388 1264 1365 2057 3192 3998 4384 4552 4643 4750 4884 4953 4934 4878 4774 4688 4703 4869 584 17 1770 1991 2302 2854 3206 3355 3507 3500 3340 3084 2817 2636 2517 2340 2097 1896 1760 1592 1392 1274 1375 2048 3161 3955 4337 4505 4598 4707 4839 4909 4891 4835 4731 4643 4661 4823 585 18 1870 2134 2537 3205 3671 3890 4103 4103 3884 3571 3246 2953 2683 2392 2107 1895 1753 1582 1384 1271 1364 2009 3090 3861 4231 4396 4485 4595 4727 4797 4780 4721 4618 4527 4545 4717 586 19 0905 0782 0652 0580 0499 0435 0402 0394 0432 0423 0427 0631 1182 1754 1928 1909 1900 1842 1713 1615 1832 3070 5210 6914 7801 8198 8393 8511 8594 8620 8620 8617 8620 8636 8637 8688 587 20 1076 0947 0845 0798 0734 0673 0634 0624 0652 0625 0611 0801 1307 1801 1927 1892 1877 1818 1691 1597 1813 3048 5201 6923 7819 8220 8416 8536 8622 8647 8650 8645 8650 8666 8672 8720 588 21 1238 1154 1079 1090 1051 0996 0958 0942 0952 0902 0862 1028 1484 1909 1994 1947 1930 1868 1741 1650 1868 3098 5240 6948 7837 8235 8435 8555 8637 8661 8666 8663 8666 8684 8690 8734 589 22 1467 1420 1384 1457 1470 1421 1391 1356 1347 1267 1195 1330 1735 2100 2160 2105 2085 2021 1894 1807 2023 3235 5334 7009 7881 8272 8464 8581 8661 8686 8691 8684 8689 8706 8710 8754 590 23 1720 1687 1692 1853 1918 1888 1862 1818 1777 1661 1551 1635 1950 2213 2217 2147 2120 2054 1929 1847 2062 3261 5346 7013 7882 8273 8466 8584 8667 8692 8696 8695 8698 8717 8722 8764 591 24 1992 2012 2081 2374 2528 2525 2523 2461 2370 2202 2039 2043 2229 2359 2300 2212 2181 2113 1989 1914 2129 3323 5403 7064 7928 8313 8504 8621 8700 8723 8728 8728 8735 8755 8755 8800 592 25 2287 2357 2487 2896 3156 3195 3225 3139 2990 2761 2536 2440 2466 2446 2320 2214 2179 2108 1987 1918 2133 3311 5389 7056 7932 8327 8523 8641 8719 8745 8750 8751 8758 8779 8786 8824 593 26 2572 2673 2875 3433 3814 3898 3958 3856 3644 3353 3069 2874 2752 2605 2422 2301 2261 2189 2069 2007 2222 3394 5462 7118 7983 8371 8560 8676 8753 8778 8782 8783 8791 8812 8813 8856 594 27 2747 2898 3166 3853 4352 4485 4575 4455 4182 3840 3505 3217 2963 2711 2491 2361 2319 2247 2129 2072 2284 3439 5489 7135 7992 8377 8563 8676 8753 8776 8782 8781 8787 8808 8814 8852 595 1 0392 0507 0584 0612 0565 0528 0513 0532 0591 0589 0594 0859 1533 2151 2188 1934 1651 1322 0984 0762 0733 0938 1194 1312 1360 1385 1409 1482 1604 1683 1663 1598 1485 1389 1416 1587 596 2 0452 0584 0692 0762 0735 0707 0701 0726 0786 0775 0771 1027 1666 2216 2207 1936 1646 1313 0972 0754 0722 0917 1160 1272 1319 1344 1366 1440 1560 1637 1617 1554 1440 1345 1372 1546 597 3 0545 0704 0860 0979 0989 0982 0998 1030 1084 1058 1034 1268 1849 2315 2262 1978 1685 1350 1010 0790 0760 0963 1219 1341 1390 1416 1441 1514 1635 1712 1693 1628 1513 1419 1447 1621 598 4 0658 0827 1042 1240 1296 1316 1359 1403 1450 1406 1357 1557 2059 2419 2310 2007 1707 1369 1025 0806 0777 0980 1239 1360 1411 1438 1463 1536 1658 1735 1713 1647 1532 1438 1465 1638 599 5 0719 0972 1263 1565 1686 1753 1846 1909 1939 1865 1778 1913 2285 2492 2307 1985 1679 1340 0999 0785 0758 0955 1206 1322 1371 1396 1421 1493 1614 1688 1668 1604 1492 1398 1428 1597 600 6 0817 1121 1501 1932 2142 2268 2423 2510 2518 2409 2279 2339 2576 2652 2403 2056 1735 1383 1032 0814 0780 0969 1216 1333 1384 1409 1433 1507 1625 1701 1681 1617 1503 1409 1437 1605 601 7 0912 1269 1734 2294 2601 2797 3031 3147 3124 2974 2792 2746 2806 2716 2398 2034 1711 1359 1014 0801 0770 0954 1194 1310 1358 1384 1408 1480 1599 1675 1653 1590 1477 1385 1411 1583 602 8 1001 1398 1928 2600 3002 3277 3590 3736 3663 3462 3221 3057 2934 2695 2326 1960 1644 1307 0975 0775 0751 0942 1199 1327 1381 1408 1434 1505 1625 1700 1679 1615 1502 1408 1436 1606 603 9 1088 1534 2145 2954 3479 3841 4254 4438 4319 4064 3761 3466 3158 2784 2367 1986 1666 1324 0989 0789 0763 0952 1207 1333 1387 1416 1441 1515 1633 1707 1687 1624 1513 1420 1448 1617 604 10 0730 0699 0655 0614 0529 0475 0439 0446 0497 0498 0510 0781 1515 2305 2537 2444 2315 2118 1860 1669 1753 2420 3380 4009 4306 4440 4522 4627 4762 4834 4815 4755 4652 4560 4575 4746 605 11 0849 0857 0846 0842 0778 0723 0692 0695 0748 0736 0736 1002 1703 2417 2597 2485 2348 2148 1888 1698 1779 2442 3397 4023 4320 4453 4533 4638 4772 4845 4828 4767 4663 4572 4586 4755 606 12 0995 1040 1067 1129 1107 1064 1040 1044 1084 1054 1032 1270 1906 2525 2650 2518 2374 2172 1911 1724 1806 2466 3428 4063 4362 4496 4573 4676 4806 4876 4854 4797 4692 4600 4620 4782 607 13 1182 1245 1335 1482 1509 1482 1478 1473 1499 1444 1393 1588 2123 2605 2655 2503 2352 2149 1893 1712 1794 2447 3411 4052 4357 4493 4572 4676 4807 4878 4859 4799 4694 4604 4624 4785 608 14 1386 1499 1653 1900 1996 2001 2020 2021 2020 1928 1839 1976 2392 2727 2697 2520 2363 2155 1898 1722 1803 2452 3417 4062 4368 4506 4584 4688 4819 4889 4869 4810 4707 4619 4634 4807 609 15 1603 1777 2005 2385 2579 2630 2685 2683 2642 2507 2367 2422 2691 2870 2764 2567 2402 2193 1937 1765 1846 2492 3460 4110 4420 4557 4639 4743 4874 4943 4923 4865 4762 4672 4690 4853 610 16 1812 2052 2374 2892 3190 3289 3396 3398 3314 3133 2942 2899 2998 3009 2824 2602 2428 2213 1956 1787 1865 2494 3442 4079 4384 4524 4608 4713 4845 4911 4895 4837 4733 4642 4660 4830 611 17 2015 2290 2698 3365 3780 3945 4109 4121 3984 3751 3503 3348 3266 3112 2854 2610 2428 2208 1950 1784 1858 2468 3392 4013 4314 4450 4533 4639 4771 4839 4819 4761 4657 4569 4586 4757 612 18 2165 2509 3005 3822 4372 4607 4844 4854 4654 4361 4049 3764 3490 3184 2870 2615 2430 2209 1956 1798 1871 2475 3407 4037 4339 4477 4559 4665 4796 4864 4847 4791 4688 4597 4618 4783 613 19 0997 0869 0728 0641 0535 0466 0419 0417 0467 0469 0483 0755 1511 2381 2733 2766 2773 2714 2567 2445 2678 3898 5786 7205 7932 8264 8436 8551 8628 8650 8654 8649 8654 8672 8679 8720 614 20 1173 1063 0954 0901 0819 0744 0694 0686 0728 0716 0715 0975 1681 2447 2730 2738 2738 2677 2530 2415 2647 3863 5773 7215 7956 8294 8466 8579 8657 8681 8686 8682 8686 8704 8712 8752 615 21 1390 1312 1246 1263 1228 1157 1107 1088 1116 1079 1056 1289 1932 2609 2837 2830 2824 2761 2616 2506 2737 3940 5839 7275 8007 8340 8511 8618 8694 8716 8718 8715 8719 8737 8745 8779 616 22 1649 1613 1583 1686 1701 1636 1590 1558 1564 1498 1444 1639 2203 2772 2941 2915 2903 2837 2694 2588 2814 3995 5874 7300 8031 8361 8532 8640 8716 8736 8737 8736 8740 8760 8763 8798 617 23 1991 2001 2048 2284 2376 2334 2296 2247 2220 2114 2018 2160 2616 3052 3146 3095 3074 3004 2859 2760 2983 4145 5984 7376 8087 8407 8572 8677 8749 8767 8767 8763 8768 8787 8791 8827 618 24 2325 2371 2502 2865 3057 3044 3028 2960 2886 2736 2593 2650 2950 3214 3220 3141 3111 3037 2896 2801 3021 4163 5989 7381 8100 8427 8595 8704 8776 8797 8800 8798 8806 8825 8833 8867 619 25 2650 2760 2953 3471 3787 3814 3824 3737 3603 3397 3198 3150 3270 3351 3268 3165 3126 3048 2909 2823 3041 4171 5995 7390 8113 8441 8611 8717 8791 8809 8811 8812 8821 8842 8849 8887 620 26 2973 3137 3431 4135 4606 4689 4730 4617 4420 4156 3893 3734 3669 3570 3405 3280 3233 3153 3016 2939 3153 4268 6078 7464 8177 8500 8668 8772 8843 8861 8864 8864 8872 8895 8898 8929 621 27 3221 3431 3813 4671 5276 5415 5494 5368 5103 4782 4465 4188 3941 3692 3467 3326 3273 3192 3058 2984 3195 4291 6084 7458 8169 8494 8661 8766 8839 8855 8859 8860 8870 8894 8898 8932 622 1 0430 0553 0631 0657 0599 0555 0533 0552 0627 0636 0659 0991 1864 2733 2867 2565 2188 1756 1318 1024 0942 1077 1236 1295 1322 1338 1361 1433 1551 1629 1608 1544 1431 1337 1365 1534 623 2 0502 0651 0768 0838 0798 0766 0753 0782 0857 0864 0876 1205 2041 2826 2903 2580 2196 1762 1324 1031 0949 1078 1232 1289 1314 1332 1354 1426 1545 1621 1602 1537 1423 1333 1358 1529 624 3 0586 0774 0950 1085 1083 1075 1082 1118 1198 1191 1189 1498 2269 2947 2960 2618 2228 1790 1348 1055 0973 1110 1274 1339 1368 1387 1409 1483 1602 1680 1661 1595 1481 1385 1414 1588 625 4 0705 0928 1172 1394 1452 1470 1513 1567 1641 1620 1596 1871 2547 3092 3031 2664 2265 1823 1381 1087 1004 1138 1300 1364 1394 1413 1436 1509 1629 1705 1684 1620 1506 1412 1439 1614 626 5 0815 1108 1443 1816 1961 2033 2139 2220 2283 2235 2173 2382 2904 3254 3088 2685 2271 1819 1371 1077 0992 1116 1273 1335 1363 1382 1405 1478 1596 1673 1650 1587 1473 1382 1409 1577 627 6 0935 1273 1709 2214 2449 2586 2760 2874 2918 2841 2739 2861 3213 3383 3130 2705 2282 1829 1383 1093 1010 1135 1296 1364 1395 1415 1437 1509 1627 1702 1679 1616 1504 1411 1440 1611 628 7 1029 1456 2017 2696 3072 3302 3573 3728 3748 3634 3484 3496 3651 3626 3281 2815 2370 1894 1431 1129 1036 1149 1297 1356 1384 1402 1425 1497 1615 1690 1670 1606 1492 1399 1426 1601 629 8 1162 1635 2279 3113 3601 3921 4294 4501 4486 4334 4129 4015 3944 3717 3286 2799 2349 1876 1417 1124 1034 1146 1295 1356 1385 1405 1427 1499 1617 1691 1670 1606 1494 1400 1431 1599 630 9 1237 1761 2505 3493 4121 4544 5040 5297 5233 5031 4762 4484 4170 3759 3263 2765 2317 1847 1394 1104 1017 1131 1287 1354 1384 1406 1430 1503 1620 1693 1672 1609 1497 1407 1438 1610 631 10 0792 0770 0724 0672 0578 0507 0469 0473 0541 0552 0577 0917 1866 2969 3381 3310 3146 2899 2580 2337 2379 2938 3672 4127 4341 4445 4514 4614 4745 4816 4796 4737 4633 4541 4559 4725 632 11 0926 0952 0940 0929 0858 0788 0748 0752 0821 0823 0839 1176 2088 3098 3440 3345 3171 2920 2604 2364 2405 2957 3689 4144 4360 4465 4534 4636 4767 4838 4819 4756 4653 4562 4582 4745 633 12 1106 1163 1201 1271 1240 1185 1152 1157 1218 1203 1202 1518 2360 3252 3522 3401 3217 2961 2642 2405 2441 2984 3712 4168 4387 4491 4560 4660 4791 4859 4840 4779 4673 4582 4603 4769 634 13 1299 1416 1525 1696 1721 1683 1665 1671 1718 1684 1658 1935 2680 3421 3598 3446 3252 2992 2673 2440 2474 3006 3727 4182 4399 4503 4571 4672 4802 4871 4851 4790 4686 4599 4613 4778 635 14 1553 1736 1926 2233 2343 2344 2353 2360 2387 2325 2262 2485 3092 3643 3707 3516 3307 3040 2718 2488 2519 3036 3747 4194 4411 4515 4582 4682 4811 4880 4858 4798 4696 4606 4625 4793 636 15 1828 2048 2350 2816 3047 3094 3146 3155 3149 3047 2942 3075 3505 3854 3814 3590 3370 3095 2772 2545 2574 3084 3796 4247 4465 4569 4639 4738 4867 4934 4912 4855 4752 4663 4683 4847 637 16 2089 2376 2797 3445 3816 3928 4041 4054 4003 3858 3700 3725 3943 4068 3917 3658 3425 3142 2817 2591 2615 3110 3813 4263 4483 4588 4658 4761 4886 4953 4932 4874 4771 4684 4703 4864 638 17 2328 2700 3229 4063 4581 4764 4940 4965 4864 4667 4453 4350 4340 4239 3984 3693 3449 3163 2836 2613 2633 3121 3816 4263 4483 4590 4663 4765 4891 4960 4936 4879 4778 4690 4711 4877 639 18 2568 3007 3648 4694 5386 5660 5913 5946 5779 5531 5255 4999 4737 4430 4093 3781 3529 3241 2918 2699 2716 3191 3879 4323 4542 4648 4720 4822 4951 5016 4995 4939 4838 4755 4773 4939 640 19 1088 0959 0815 0713 0590 0504 0444 0446 0513 0526 0557 0916 1950 3260 3908 4044 4085 4040 3887 3756 3982 5057 6528 7567 8098 8354 8501 8601 8674 8693 8694 8691 8695 8715 8721 8759 641 20 1343 1240 1118 1065 0962 0866 0800 0793 0860 0860 0882 1243 2256 3481 4065 4176 4207 4158 4009 3883 4101 5148 6597 7625 8154 8407 8552 8653 8722 8742 8743 8739 8746 8766 8768 8806 642 21 1606 1535 1464 1497 1444 1351 1290 1269 1321 1308 1309 1644 2567 3634 4107 4179 4198 4143 3993 3873 4091 5134 6593 7638 8174 8430 8574 8673 8744 8761 8762 8760 8768 8785 8791 8830 643 22 1896 1885 1880 2025 2047 1959 1896 1860 1890 1846 1817 2105 2908 3799 4166 4202 4207 4148 4001 3887 4097 5126 6602 7667 8211 8466 8607 8703 8770 8787 8787 8784 8787 8807 8809 8844 644 23 2272 2325 2416 2714 2836 2770 2716 2662 2659 2580 2513 2739 3397 4087 4332 4327 4315 4250 4105 3998 4201 5204 6660 7717 8259 8511 8654 8749 8813 8828 8830 8826 8834 8854 8859 8889 645 24 2683 2815 3005 3495 3756 3731 3690 3612 3565 3443 3329 3467 3944 4417 4545 4500 4476 4404 4258 4160 4356 5330 6748 7780 8310 8559 8699 8792 8855 8871 8872 8870 8879 8897 8901 8932 646 25 3025 3236 3523 4210 4627 4643 4628 4530 4427 4257 4093 4123 4388 4627 4632 4551 4512 4435 4292 4200 4391 5347 6757 7791 8324 8574 8714 8808 8871 8884 8885 8885 8894 8914 8919 8947 647 26 3437 3715 4138 5062 5667 5748 5767 5642 5470 5244 5022 4918 4937 4924 4809 4690 4639 4557 4415 4331 4515 5442 6833 7859 8387 8635 8775 8868 8930 8945 8946 8944 8955 8979 8978 9014 648 27 3764 4090 4605 5730 6511 6654 6718 6573 6329 6048 5774 5530 5310 5084 4879 4733 4673 4586 4448 4370 4549 5456 6835 7857 8389 8643 8785 8877 8944 8956 8958 8959 8969 8995 8993 9025 649 1 0465 0579 0671 0695 0624 0572 0543 0564 0652 0672 0709 1103 2152 3259 3490 3145 2679 2151 1623 1260 1130 1198 1280 1295 1305 1318 1338 1410 1531 1607 1586 1521 1409 1315 1340 1516 650 2 0558 0696 0824 0894 0849 0805 0787 0819 0911 0929 0959 1355 2372 3390 3559 3192 2720 2190 1662 1301 1168 1237 1320 1337 1350 1362 1383 1455 1575 1653 1633 1568 1453 1358 1388 1558 651 3 0666 0858 1050 1205 1207 1190 1195 1238 1333 1344 1358 1734 2673 3556 3647 3260 2785 2256 1731 1371 1239 1313 1403 1426 1440 1454 1476 1549 1671 1748 1727 1662 1546 1452 1479 1652 652 4 0768 1005 1276 1532 1591 1604 1646 1709 1803 1802 1798 2140 2976 3702 3697 3278 2792 2259 1731 1372 1241 1311 1400 1421 1434 1449 1470 1543 1665 1740 1719 1653 1539 1444 1471 1644 653 5 0909 1198 1588 2000 2161 2238 2346 2445 2536 2513 2479 2757 3426 3924 3788 3319 2810 2260 1722 1359 1224 1284 1368 1386 1398 1413 1434 1507 1627 1702 1678 1615 1501 1410 1437 1611 654 6 1040 1430 1928 2514 2798 2957 3152 3291 3361 3315 3238 3415 3869 4129 3876 3372 2850 2293 1752 1389 1251 1309 1394 1415 1430 1445 1466 1541 1660 1734 1713 1648 1534 1442 1466 1645 655 7 1140 1598 2206 2954 3363 3608 3904 4085 4137 4058 3935 3997 4232 4266 3908 3375 2841 2281 1739 1379 1241 1296 1379 1400 1416 1432 1453 1526 1646 1719 1699 1634 1521 1428 1458 1626 656 8 1273 1810 2549 3494 4068 4420 4839 5090 5118 5005 4835 4759 4735 4528 4056 3476 2920 2342 1787 1418 1273 1318 1389 1405 1419 1433 1455 1529 1646 1722 1700 1635 1522 1427 1454 1630 657 9 1414 2003 2866 4013 4749 5225 5792 6109 6097 5944 5711 5456 5143 4704 4144 3539 2972 2386 1825 1451 1301 1339 1405 1418 1429 1445 1468 1542 1662 1736 1713 1649 1538 1446 1474 1654 658 10 0851 0833 0773 0712 0598 0520 0475 0482 0559 0580 0619 1017 2163 3571 4175 4143 3958 3673 3309 3027 3031 3488 4036 4356 4512 4595 4660 4759 4890 4959 4941 4881 4776 4688 4705 4869 659 11 1032 1050 1029 1019 0936 0855 0806 0814 0895 0908 0939 1343 2459 3770 4299 4239 4044 3756 3394 3115 3114 3555 4091 4405 4561 4643 4705 4802 4930 5000 4979 4920 4816 4727 4745 4909 660 12 1209 1277 1330 1409 1371 1311 1264 1274 1348 1350 1365 1748 2781 3942 4364 4261 4046 3747 3378 3099 3091 3516 4043 4353 4507 4589 4649 4745 4874 4942 4921 4861 4755 4667 4684 4848 661 13 1445 1578 1703 1908 1937 1890 1871 1875 1942 1925 1917 2265 3191 4177 4486 4342 4112 3805 3437 3160 3147 3557 4074 4380 4534 4615 4676 4772 4899 4966 4945 4886 4783 4693 4711 4876 662 14 1733 1950 2182 2542 2678 2667 2674 2686 2737 2697 2660 2954 3730 4485 4650 4450 4196 3874 3498 3221 3201 3589 4083 4378 4525 4602 4663 4761 4885 4952 4930 4871 4769 4683 4702 4861 663 15 2013 2301 2657 3209 3484 3531 3582 3598 3619 3547 3470 3672 4242 4749 4775 4531 4256 3927 3545 3269 3243 3620 4112 4406 4553 4632 4695 4791 4916 4981 4960 4902 4797 4710 4728 4894 664 16 2304 2686 3169 3934 4365 4483 4599 4627 4606 4492 4366 4447 4770 5003 4888 4598 4308 3970 3587 3314 3283 3647 4135 4431 4584 4665 4726 4823 4949 5015 4993 4936 4831 4745 4763 4923 665 17 2621 3075 3699 4690 5303 5506 5695 5733 5664 5508 5332 5276 5332 5288 5040 4711 4409 4065 3682 3411 3374 3725 4200 4489 4637 4717 4781 4879 5005 5068 5046 4989 4887 4805 4822 4988 666 18 2860 3392 4136 5369 6194 6500 6774 6823 6686 6477 6238 6010 5765 5460 5110 4752 4444 4096 3718 3454 3416 3762 4249 4549 4702 4784 4846 4944 5068 5129 5107 5051 4951 4868 4891 5054 667 19 1193 1056 0899 0776 0635 0537 0471 0473 0552 0577 0622 1053 2332 4046 4992 5240 5320 5293 5151 5017 5222 6109 7162 7863 8232 8426 8552 8644 8712 8728 8731 8729 8736 8761 8765 8799 668 20 1460 1371 1255 1192 1072 0962 0888 0879 0962 0976 1013 1453 2705 4308 5160 5369 5433 5402 5260 5134 5328 6187 7227 7920 8288 8478 8601 8692 8756 8772 8773 8769 8777 8797 8802 8833 669 21 1776 1710 1656 1699 1639 1531 1453 1432 1504 1507 1529 1948 3114 4548 5277 5441 5489 5451 5309 5190 5382 6231 7271 7970 8336 8525 8643 8731 8793 8809 8809 8804 8812 8833 8834 8869 670 22 2141 2135 2156 2338 2360 2265 2183 2144 2197 2174 2169 2545 3585 4810 5398 5508 5538 5491 5353 5239 5417 6242 7284 7997 8371 8561 8679 8767 8829 8843 8843 8840 8848 8871 8868 8905 671 23 2547 2626 2762 3111 3246 3168 3092 3035 3056 3002 2964 3274 4130 5075 5482 5529 5532 5475 5334 5231 5401 6214 7278 8015 8403 8596 8718 8805 8865 8880 8880 8879 8887 8911 8915 8946 672 24 2952 3130 3386 3982 4310 4274 4214 4130 4101 4004 3918 4122 4744 5402 5645 5636 5619 5554 5416 5319 5483 6272 7334 8074 8460 8655 8775 8860 8919 8930 8929 8926 8935 8960 8960 8990 673 25 3395 3667 4053 4893 5397 5415 5380 5271 5187 5047 4915 5004 5378 5747 5836 5778 5744 5672 5535 5450 5603 6359 7392 8122 8504 8693 8810 8893 8950 8962 8959 8958 8966 8992 8988 9023 674 26 3793 4147 4676 5760 6460 6539 6542 6405 6262 6076 5894 5849 5958 6040 5982 5875 5824 5742 5607 5526 5670 6398 7418 8144 8528 8721 8840 8928 8989 9000 8998 8997 9008 9033 9037 9063 675 27 4167 4603 5253 6603 7538 7701 7747 7589 7368 7128 6890 6680 6489 6290 6106 5964 5899 5812 5676 5603 5743 6452 7456 8175 8558 8751 8872 8957 9015 9027 9028 9026 9037 9063 9065 9095 676 1 0483 0623 0703 0720 0634 0574 0541 0562 0663 0698 0751 1215 2484 3905 4282 3891 3316 2671 2034 1590 1392 1372 1356 1318 1311 1316 1336 1408 1528 1606 1586 1521 1406 1314 1341 1515 677 2 0598 0751 0887 0967 0915 0859 0837 0873 0982 1016 1067 1539 2774 4082 4370 3945 3357 2705 2066 1622 1423 1401 1384 1347 1339 1346 1365 1437 1558 1634 1614 1547 1433 1341 1369 1543 678 3 0724 0928 1148 1317 1326 1302 1302 1355 1471 1503 1543 2002 3163 4328 4527 4078 3484 2830 2189 1743 1542 1523 1508 1474 1468 1477 1496 1571 1692 1768 1746 1681 1566 1470 1499 1676 679 4 0833 1109 1403 1700 1755 1767 1808 1882 2006 2028 2055 2485 3535 4511 4589 4095 3483 2821 2173 1726 1521 1495 1477 1441 1436 1445 1467 1540 1663 1739 1718 1651 1535 1442 1469 1645 680 5 0966 1314 1738 2189 2352 2428 2541 2652 2775 2790 2793 3164 4038 4759 4685 4137 3500 2825 2173 1721 1515 1484 1465 1429 1424 1432 1453 1525 1645 1721 1698 1633 1519 1427 1456 1629 681 6 1130 1579 2161 2825 3143 3319 3534 3707 3826 3820 3786 4046 4655 5048 4800 4194 3534 2845 2181 1727 1513 1476 1455 1419 1415 1425 1445 1519 1640 1715 1693 1627 1512 1420 1449 1628 682 7 1273 1812 2536 3422 3915 4205 4552 4787 4891 4859 4777 4898 5219 5309 4914 4261 3581 2882 2214 1759 1543 1500 1477 1441 1435 1446 1467 1541 1660 1735 1712 1646 1533 1438 1465 1645 683 8 1415 2019 2863 3951 4594 4992 5465 5766 5848 5795 5669 5651 5696 5513 4996 4306 3614 2908 2237 1780 1563 1518 1494 1458 1454 1463 1485 1559 1679 1754 1732 1666 1551 1457 1489 1661 684 9 1565 2235 3229 4551 5389 5937 6586 6986 7045 6965 6788 6571 6266 5795 5156 4420 3697 2968 2277 1805 1574 1514 1475 1434 1430 1440 1462 1538 1659 1733 1709 1645 1531 1438 1468 1647 685 10 0918 0902 0848 0766 0640 0551 0496 0505 0599 0631 0685 1165 2573 4405 5291 5318 5100 4760 4337 4000 3937 4204 4450 4564 4640 4692 4745 4842 4970 5038 5017 4958 4854 4769 4781 4946 686 11 1115 1152 1144 1137 1041 0945 0890 0896 0996 1025 1075 1567 2945 4653 5427 5404 5164 4811 4384 4046 3973 4219 4453 4564 4635 4685 4737 4829 4957 5025 5003 4943 4840 4747 4766 4930 687 12 1344 1432 1500 1600 1554 1475 1425 1434 1533 1553 1590 2062 3350 4885 5534 5461 5202 4841 4409 4074 3997 4232 4462 4574 4646 4697 4747 4842 4966 5032 5009 4949 4845 4758 4774 4935 688 13 1588 1767 1944 2177 2219 2162 2132 2141 2237 2246 2267 2712 3882 5196 5684 5546 5255 4875 4434 4098 4005 4211 4421 4523 4591 4639 4689 4782 4908 4970 4950 4888 4786 4697 4716 4880 689 14 1908 2166 2469 2904 3072 3059 3060 3082 3163 3157 3153 3540 4527 5543 5832 5614 5287 4883 4430 4091 3985 4164 4358 4453 4516 4561 4610 4700 4824 4889 4866 4806 4701 4611 4629 4795 690 15 2263 2603 3042 3700 4028 4071 4125 4151 4207 4175 4139 4434 5193 5911 6037 5768 5427 5023 4571 4236 4126 4298 4490 4588 4654 4702 4753 4846 4969 5030 5005 4948 4848 4762 4782 4948 691 16 2617 3054 3639 4554 5075 5206 5326 5368 5388 5326 5250 5420 5894 6280 6227 5899 5532 5115 4659 4325 4205 4357 4542 4638 4705 4756 4807 4901 5023 5085 5062 5003 4903 4817 4837 5002 692 17 2922 3464 4209 5382 6112 6335 6541 6605 6586 6489 6368 6387 6546 6587 6360 5975 5585 5156 4694 4358 4230 4364 4537 4630 4699 4749 4803 4900 5023 5085 5060 5003 4903 4817 4838 5006 693 18 3220 3873 4786 6282 7280 7627 7940 8022 7942 7806 7631 7452 7243 6953 6580 6152 5746 5308 4843 4509 4369 4478 4630 4713 4775 4823 4877 4971 5091 5152 5129 5071 4971 4893 4914 5076 694 19 1276 1139 0972 0841 0686 0573 0501 0501 0596 0629 0687 1192 2721 4865 6144 6527 6653 6659 6538 6418 6584 7214 7804 8165 8375 8504 8605 8685 8747 8759 8758 8755 8763 8782 8789 8820 695 20 1566 1482 1370 1309 1184 1059 0971 0963 1059 1086 1137 1653 3147 5162 6327 6659 6769 6764 6644 6531 6683 7285 7865 8222 8434 8563 8661 8739 8799 8812 8809 8806 8814 8835 8839 8869 696 21 1913 1892 1839 1896 1842 1712 1621 1597 1691 1710 1753 2262 3688 5542 6579 6861 6948 6935 6817 6711 6852 7410 7951 8289 8491 8616 8715 8796 8850 8861 8861 8855 8864 8887 8887 8917 697 22 2318 2350 2413 2619 2646 2527 2426 2388 2462 2464 2485 2959 4256 5867 6725 6936 6996 6969 6849 6750 6878 7419 7965 8315 8522 8649 8748 8824 8880 8891 8890 8886 8896 8919 8919 8943 698 23 2837 2963 3144 3565 3745 3644 3546 3484 3533 3512 3508 3921 5029 6324 6967 7097 7125 7084 6967 6878 6989 7489 8020 8368 8576 8702 8800 8878 8931 8940 8939 8935 8944 8969 8968 8993 699 24 3331 3568 3893 4589 4953 4892 4814 4726 4731 4678 4640 4951 5804 6753 7190 7245 7244 7193 7075 6991 7091 7553 8065 8409 8617 8746 8846 8923 8976 8985 8982 8982 8989 9014 9014 9042 700 25 3782 4147 4632 5636 6241 6249 6197 6078 6026 5934 5852 6031 6576 7145 7364 7345 7319 7255 7139 7064 7154 7600 8117 8467 8676 8800 8897 8970 9022 9030 9027 9025 9035 9061 9059 9086 701 26 4247 4705 5347 6651 7511 7585 7568 7423 7311 7177 7053 7088 7316 7532 7563 7484 7432 7360 7245 7179 7253 7660 8162 8511 8722 8848 8943 9016 9065 9075 9072 9072 9081 9106 9107 9136 702 27 4647 5210 6025 7659 8810 8973 9013 8838 8646 8464 8290 8132 7988 7839 7702 7569 7499 7417 7304 7245 7312 7703 8194 8541 8751 8878 8975 9050 9102 9108 9108 9105 9115 9145 9143 9170 703 21 0512 0644 0739 0746 0655 0587 0546 0571 0682 0723 0789 1305 2742 4424 4938 4517 3845 3103 2381 1872 1610 1496 1400 1329 1311 1316 1335 1408 1531 1608 1588 1521 1408 1312 1342 1517 704 22 0611 0783 0935 1014 0952 0899 0870 0907 1029 1076 1141 1671 3078 4638 5053 4592 3906 3157 2433 1924 1659 1545 1446 1375 1358 1362 1381 1453 1575 1653 1632 1567 1452 1358 1387 1564 705 23 0738 0986 1208 1403 1400 1366 1373 1427 1562 1609 1668 2187 3516 4912 5216 4720 4024 3272 2546 2035 1765 1647 1546 1475 1457 1462 1483 1557 1680 1757 1734 1667 1552 1457 1487 1663 706 24 0874 1170 1493 1806 1874 1881 1926 2005 2152 2194 2245 2743 3960 5154 5326 4779 4064 3301 2568 2052 1778 1652 1550 1476 1459 1465 1486 1561 1682 1759 1738 1670 1554 1462 1490 1669 707 25 1027 1381 1851 2337 2518 2597 2718 2843 2997 3040 3071 3517 4551 5452 5437 4822 4073 3293 2551 2031 1753 1621 1515 1443 1426 1431 1452 1525 1646 1721 1699 1634 1518 1426 1457 1630 708 26 1181 1669 2280 2998 3337 3522 3756 3945 4101 4132 4136 4475 5233 5782 5573 4891 4117 3322 2571 2048 1764 1625 1518 1446 1430 1437 1457 1532 1650 1725 1701 1637 1523 1432 1463 1641 709 27 1368 1932 2727 3714 4263 4582 4970 5246 5391 5408 5371 5553 5963 6122 5718 4972 4171 3360 2599 2072 1782 1637 1528 1455 1440 1446 1466 1541 1661 1734 1712 1645 1534 1440 1472 1645 710 28 1505 2166 3099 4314 5043 5492 6032 6394 6532 6534 6460 6483 6560 6381 5816 5019 4194 3371 2601 2069 1774 1626 1514 1442 1426 1433 1453 1528 1648 1723 1699 1633 1519 1427 1456 1631 711 29 1639 2373 3441 4890 5823 6417 7126 7584 7692 7674 7546 7369 7085 6607 5927 5098 4264 3436 2663 2128 1830 1675 1563 1489 1474 1481 1502 1577 1699 1772 1749 1682 1568 1475 1507 1683 712 210 0964 0947 0884 0799 0667 0568 0506 0517 0621 0661 0727 1261 2860 5032 6161 6235 5980 5588 5118 4744 4590 4616 4588 4557 4577 4611 4658 4752 4881 4951 4930 4871 4766 4675 4692 4857 713 211 1191 1211 1215 1201 1095 0991 0925 0936 1046 1088 1151 1704 3283 5332 6347 6377 6108 5710 5243 4876 4716 4731 4697 4665 4684 4717 4765 4857 4984 5050 5029 4969 4867 4776 4793 4959 714 212 1430 1507 1599 1710 1666 1576 1522 1533 1648 1684 1740 2280 3766 5608 6454 6407 6094 5669 5186 4809 4634 4625 4579 4542 4560 4593 4638 4729 4854 4921 4898 4836 4731 4640 4659 4827 715 213 1668 1848 2055 2319 2363 2302 2265 2284 2398 2427 2474 2993 4356 5947 6602 6472 6114 5661 5163 4780 4590 4552 4493 4451 4463 4494 4537 4627 4752 4818 4796 4732 4630 4537 4557 4722 716 214 2024 2314 2649 3139 3328 3313 3311 3339 3447 3465 3495 3961 5140 6412 6855 6645 6262 5802 5304 4928 4727 4670 4602 4560 4571 4600 4643 4733 4855 4919 4896 4834 4728 4642 4660 4822 717 215 2417 2803 3301 4042 4421 4469 4524 4558 4646 4651 4654 5030 5957 6883 7122 6848 6443 5978 5480 5109 4897 4817 4742 4696 4709 4740 4783 4873 4997 5058 5032 4972 4870 4788 4804 4972 718 216 2761 3250 3908 4929 5514 5644 5775 5829 5889 5875 5850 6105 6731 7286 7317 6970 6532 6051 5546 5170 4943 4841 4757 4711 4725 4757 4804 4896 5018 5077 5053 4991 4891 4807 4827 4993 719 217 3151 3759 4607 5947 6795 7040 7268 7349 7373 7334 7273 7359 7600 7720 7524 7102 6639 6141 5634 5260 5022 4900 4808 4762 4778 4811 4858 4951 5073 5132 5108 5049 4950 4867 4886 5052 720 218 3449 4169 5180 6836 7959 8343 8683 8794 8759 8690 8581 8458 8293 8033 7672 7204 6723 6219 5708 5331 5084 4949 4851 4803 4816 4849 4896 4988 5110 5169 5145 5086 4986 4906 4927 5094 721 219 1346 1201 1024 0883 0718 0600 0519 0519 0624 0664 0730 1287 3001 5510 7114 7643 7824 7867 7790 7700 7803 8110 8263 8363 8472 8564 8653 8729 8785 8796 8793 8789 8797 8820 8825 8851 722 220 1647 1557 1434 1375 1240 1106 1012 1003 1111 1147 1212 1784 3472 5845 7314 7783 7941 7973 7896 7814 7899 8171 8306 8405 8515 8610 8696 8769 8825 8837 8833 8829 8838 8864 8863 8891 723 221 1990 1969 1933 1999 1933 1798 1695 1675 1780 1814 1875 2447 4062 6238 7543 7941 8070 8089 8013 7939 8009 8245 8366 8461 8567 8659 8745 8819 8875 8883 8880 8876 8884 8907 8908 8937 724 222 2438 2504 2579 2832 2872 2744 2634 2590 2678 2695 2738 3277 4761 6684 7796 8118 8215 8222 8147 8082 8132 8327 8429 8517 8621 8709 8790 8862 8916 8922 8918 8914 8922 8949 8946 8972 725 223 3015 3154 3375 3865 4076 3957 3850 3782 3850 3854 3878 4368 5664 7240 8097 8314 8371 8360 8286 8231 8258 8400 8479 8565 8672 8766 8850 8922 8974 8983 8980 8973 8985 9009 9007 9035 726 224 3515 3812 4197 4992 5407 5336 5240 5145 5174 5151 5151 5543 6565 7755 8370 8500 8521 8496 8425 8381 8386 8482 8545 8625 8730 8820 8902 8973 9023 9030 9028 9025 9034 9060 9058 9086 727 225 4057 4455 5008 6138 6829 6825 6759 6635 6611 6566 6537 6804 7506 8280 8647 8689 8675 8637 8565 8531 8523 8576 8619 8696 8797 8883 8965 9034 9083 9087 9084 9081 9092 9119 9118 9142 728 226 4531 5065 5821 7335 8332 8411 8369 8209 8123 8044 7976 8087 8431 8779 8914 8879 8838 8787 8719 8694 8667 8682 8708 8778 8872 8954 9033 9098 9144 9145 9145 9142 9153 9179 9176 9196 729 227 5006 5654 6588 8454 9765 9944 9963 9774 9616 9499 9394 9300 9219 9138 9072 8971 8903 8842 8773 8754 8713 8698 8714 8787 8886 8973 9052 9121 9166 9173 9169 9168 9180 9209 9203 9230 730 21 5034 5703 6644 8468 9726 9906 9918 9737 9588 9475 9373 9283 9203 9123 9057 8956 8889 8827 8758 8739 8695 8680 8697 8771 8872 8960 9042 9111 9160 9165 9163 9159 9172 9199 9198 9221 731 22 4555 5227 6212 8013 9241 9491 9604 9503 9386 9282 9180 9080 8974 8846 8693 8477 8273 8055 7818 7659 7527 7459 7420 7440 7503 7566 7633 7717 7799 7829 7818 7789 7751 7727 7732 7827 732 23 4015 4725 5728 7469 8654 8973 9195 9199 9123 9038 8931 8818 8683 8490 8234 7892 7548 7182 6803 6527 6329 6222 6150 6132 6169 6216 6275 6364 6469 6512 6496 6451 6378 6318 6337 6470 733 24 3457 4181 5209 6881 7999 8384 8723 8828 8795 8725 8617 8491 8324 8067 7711 7244 6769 6268 5759 5386 5139 5002 4904 4857 4870 4902 4950 5042 5162 5219 5198 5139 5037 4957 4980 5146 734 25 2826 3563 4615 6198 7243 7698 8170 8399 8418 8366 8252 8111 7907 7569 7095 6492 5873 5232 4597 4136 3845 3687 3569 3500 3497 3517 3558 3652 3781 3851 3824 3758 3642 3547 3577 3766 735 26 2223 2961 4025 5542 6547 7069 7661 8004 8065 8035 7915 7754 7512 7103 6525 5805 5071 4326 3613 3102 2802 2641 2520 2445 2433 2445 2473 2559 2686 2762 2735 2664 2546 2445 2478 2663 736 27 1657 2371 3449 4898 5838 6433 7149 7607 7715 7698 7571 7392 7106 6625 5942 5111 4273 3440 2662 2123 1822 1667 1553 1480 1465 1472 1493 1570 1689 1761 1740 1675 1558 1471 1502 1671 737 28 1176 1866 2936 4315 5202 5849 6658 7211 7360 7353 7221 7021 6700 6159 5397 4487 3585 2706 1913 1384 1106 0968 0872 0811 0797 0802 0818 0880 0982 1049 1030 0971 0874 0800 0832 0985 738 29 0698 1345 2400 3703 4528 5220 6122 6774 6966 6975 6837 6622 6265 5664 4824 3843 2886 1978 1191 0695 0456 0348 0276 0235 0227 0230 0241 0285 0363 0417 0404 0361 0289 0242 0270 0392 739 210 5069 5695 6619 8456 9739 9920 9937 9757 9605 9493 9393 9304 9227 9149 9083 8982 8917 8855 8786 8768 8724 8709 8725 8797 8898 8984 9066 9132 9181 9184 9180 9179 9192 9219 9217 9241 740 211 4265 4865 5710 7289 8372 8601 8716 8617 8459 8294 8121 7959 7800 7611 7406 7181 7003 6797 6549 6379 6361 6645 7010 7257 7410 7509 7590 7678 7766 7798 7786 7760 7721 7696 7699 7797 741 212 3330 3844 4573 5838 6694 6949 7150 7126 6961 6744 6504 6278 6050 5781 5484 5197 4961 4690 4376 4158 4167 4624 5263 5682 5900 6014 6092 6191 6304 6356 6338 6293 6214 6152 6162 6298 742 213 2574 3023 3663 4712 5412 5686 5948 5981 5814 5565 5288 5027 4761 4449 4107 3791 3536 3244 2914 2691 2707 3182 3871 4319 4537 4642 4714 4816 4943 5009 4990 4933 4825 4741 4754 4921 743 214 1806 2187 2734 3553 4092 4371 4669 4738 4566 4284 3973 3684 3395 3064 2712 2410 2175 1906 1614 1432 1464 1911 2579 3006 3205 3296 3355 3452 3589 3667 3645 3580 3458 3353 3376 3561 744 215 1227 1580 2053 2706 3129 3403 3710 3797 3621 3330 3009 2715 2429 2109 1782 1517 1320 1100 0872 0748 0785 1132 1674 2017 2172 2242 2287 2375 2505 2585 2565 2500 2382 2281 2311 2489 745 216 0819 1158 1585 2146 2508 2777 3090 3185 3009 2712 2388 2096 1817 1514 1212 0982 0816 0635 0461 0379 0413 0656 1037 1258 1351 1391 1421 1496 1616 1694 1674 1612 1498 1402 1431 1599 746 217 0518 0814 1190 1642 1931 2185 2471 2558 2376 2077 1759 1476 1217 0948 0699 0528 0419 0303 0203 0176 0216 0373 0599 0711 0750 0768 0783 0840 0941 1009 0991 0937 0840 0762 0790 0936 747 218 0375 0622 0985 1399 1665 1904 2184 2271 2096 1799 1488 1216 0969 0721 0500 0362 0280 0197 0134 0129 0169 0262 0336 0332 0316 0310 0310 0344 0417 0471 0457 0415 0342 0290 0314 0429 748 219 5003 5647 6583 8444 9746 9929 9943 9759 9603 9489 9387 9298 9218 9140 9073 8973 8906 8846 8776 8757 8715 8702 8719 8790 8890 8976 9055 9122 9171 9174 9169 9170 9181 9208 9208 9231 749 220 4659 5227 6039 7683 8826 9002 9034 8859 8671 8490 8315 8159 8017 7872 7737 7605 7536 7454 7340 7282 7348 7729 8217 8564 8776 8901 8996 9069 9121 9128 9126 9125 9136 9162 9160 9185 750 221 4197 4626 5285 6638 7578 7739 7790 7631 7410 7171 6934 6723 6529 6333 6150 6009 5943 5857 5725 5654 5798 6505 7495 8204 8583 8775 8896 8981 9039 9050 9050 9050 9062 9087 9087 9116 751 222 3760 4113 4642 5777 6551 6697 6767 6620 6376 6097 5822 5575 5352 5125 4918 4772 4710 4623 4484 4406 4580 5477 6843 7861 8395 8650 8795 8891 8956 8971 8973 8973 8982 9007 9011 9045 752 223 3196 3428 3809 4665 5266 5403 5484 5352 5088 4764 4446 4167 3918 3668 3441 3300 3248 3165 3029 2956 3169 4263 6057 7451 8179 8512 8686 8793 8863 8882 8890 8890 8900 8922 8925 8957 753 224 2718 2858 3113 3756 4206 4336 4428 4312 4041 3696 3360 3069 2813 2562 2339 2211 2169 2098 1982 1926 2140 3296 5368 7055 7949 8355 8558 8676 8756 8781 8787 8792 8800 8821 8830 8868 754 225 2278 2344 2494 2962 3305 3429 3531 3431 3150 2795 2453 2162 1913 1674 1473 1367 1335 1280 1193 1167 1366 2509 4777 6727 7782 8254 8481 8613 8698 8729 8738 8743 8750 8772 8777 8822 755 226 1879 1857 1926 2247 2509 2626 2734 2643 2365 2008 1670 1386 1149 0929 0751 0665 0643 0601 0543 0539 0708 1807 4211 6378 7572 8109 8359 8499 8590 8625 8633 8640 8644 8664 8671 8714 756 227 1565 1503 1508 1734 1926 2039 2141 2062 1793 1446 1124 0860 0645 0455 0312 0250 0238 0214 0187 0209 0344 1334 3777 6093 7403 7994 8268 8421 8521 8557 8571 8574 8580 8599 8607 8655 757 21 4238 4688 5319 6590 7415 7488 7471 7330 7226 7097 6980 7026 7273 7513 7559 7485 7436 7364 7250 7185 7254 7654 8155 8508 8723 8850 8947 9024 9077 9084 9084 9083 9093 9118 9117 9144 758 22 3873 4368 5036 6253 7028 7147 7190 7113 7036 6920 6804 6847 7077 7262 7226 7052 6889 6689 6439 6260 6248 6550 6925 7175 7335 7436 7518 7610 7701 7735 7725 7697 7655 7628 7640 7732 759 23 3404 3927 4638 5855 6621 6794 6921 6906 6857 6750 6634 6667 6865 6987 6864 6588 6311 5994 5633 5371 5294 5500 5765 5928 6036 6108 6174 6267 6376 6426 6407 6360 6287 6226 6244 6374 760 24 2916 3479 4238 5419 6159 6373 6579 6635 6616 6522 6407 6433 6608 6668 6454 6074 5689 5260 4798 4459 4326 4455 4624 4711 4777 4825 4879 4971 5095 5158 5135 5077 4977 4892 4913 5076 761 25 2405 2986 3771 4911 5615 5904 6196 6338 6354 6276 6160 6173 6310 6293 5974 5479 4977 4434 3876 3475 3295 3348 3428 3457 3487 3519 3561 3653 3782 3854 3828 3762 3645 3549 3575 3760 762 26 1914 2522 3338 4443 5102 5438 5815 6033 6086 6022 5906 5913 6018 5931 5517 4922 4317 3684 3057 2613 2405 2398 2416 2403 2412 2432 2462 2548 2678 2754 2728 2661 2539 2439 2467 2655 763 27 1428 2029 2886 3976 4632 5026 5498 5802 5886 5837 5714 5703 5762 5591 5076 4379 3678 2962 2279 1811 1587 1536 1507 1469 1464 1474 1496 1572 1694 1769 1746 1680 1564 1471 1501 1677 764 28 1032 1609 2465 3517 4134 4572 5113 5480 5595 5556 5434 5413 5441 5213 4627 3861 3100 2343 1648 1191 0976 0909 0861 0816 0806 0810 0826 0886 0989 1057 1039 0980 0884 0806 0834 0990 765 29 0642 1201 2065 3103 3713 4204 4828 5273 5417 5391 5267 5224 5199 4890 4218 3379 2558 1764 1064 0628 0432 0355 0297 0256 0246 0249 0258 0300 0379 0436 0421 0379 0306 0256 0285 0404 766 210 4549 5052 5791 7218 8152 8220 8184 8032 7965 7890 7833 7962 8338 8718 8869 8837 8796 8746 8674 8646 8619 8642 8672 8745 8848 8933 9016 9086 9132 9138 9136 9134 9147 9175 9177 9201 767 211 3851 4334 5011 6266 7068 7185 7227 7144 7060 6941 6825 6865 7098 7290 7258 7089 6927 6730 6485 6308 6300 6607 6982 7228 7381 7476 7556 7645 7732 7764 7754 7724 7686 7660 7669 7756 768 212 3047 3454 4045 5066 5701 5862 5983 5954 5861 5697 5521 5477 5570 5589 5415 5160 4938 4671 4355 4131 4144 4614 5254 5669 5885 5994 6074 6172 6286 6340 6320 6275 6197 6134 6144 6283 769 213 2371 2750 3281 4129 4640 4825 4999 5019 4921 4727 4514 4413 4410 4316 4062 3771 3524 3235 2905 2679 2698 3186 3881 4330 4549 4655 4725 4825 4953 5022 5001 4943 4841 4754 4771 4936 770 214 1663 2015 2475 3151 3559 3758 3974 4025 3914 3690 3445 3290 3201 3020 2722 2434 2201 1933 1638 1450 1484 1938 2607 3028 3223 3312 3370 3467 3602 3681 3659 3593 3473 3370 3392 3573 771 215 1158 1463 1874 2408 2739 2942 3175 3245 3125 2888 2627 2445 2310 2092 1798 1537 1339 1114 0880 0747 0784 1140 1685 2026 2177 2245 2291 2378 2509 2589 2569 2503 2384 2279 2306 2486 772 216 0780 1063 1440 1916 2195 2406 2647 2725 2602 2356 2092 1895 1733 1502 1221 0993 0826 0643 0465 0379 0412 0658 1036 1255 1346 1387 1416 1492 1614 1692 1670 1609 1494 1400 1426 1599 773 217 0510 0776 1114 1509 1743 1942 2171 2249 2116 1867 1600 1394 1217 0992 0747 0570 0455 0332 0222 0187 0226 0386 0612 0722 0762 0780 0794 0852 0953 1022 1005 0949 0853 0775 0798 0945 774 218 0355 0594 0911 1273 1488 1679 1903 1978 1844 1598 1334 1129 0954 0742 0526 0383 0298 0210 0140 0131 0170 0264 0340 0336 0321 0315 0316 0350 0424 0477 0464 0420 0349 0296 0318 0432 775 219 4123 4673 5442 6844 7728 7847 7882 7794 7755 7694 7639 7764 8112 8431 8489 8336 8157 7948 7709 7540 7420 7379 7353 7374 7440 7507 7578 7663 7746 7774 7762 7736 7700 7675 7683 7778 776 220 3834 4335 5017 6272 7069 7186 7232 7143 7061 6942 6822 6866 7098 7285 7250 7078 6916 6721 6473 6296 6288 6593 6963 7205 7356 7453 7533 7622 7710 7744 7733 7704 7664 7636 7642 7737 777 221 3455 3857 4407 5446 6113 6220 6273 6195 6075 5903 5730 5693 5808 5877 5773 5602 5468 5297 5067 4908 4981 5568 6372 6915 7205 7354 7455 7551 7642 7679 7668 7643 7601 7573 7585 7681 778 222 3118 3446 3894 4766 5325 5427 5487 5406 5260 5051 4837 4748 4785 4771 4627 4457 4345 4191 3980 3839 3961 4730 5858 6653 7060 7255 7370 7473 7570 7608 7602 7574 7531 7502 7508 7604 779 223 2666 2889 3213 3871 4289 4388 4461 4385 4211 3956 3702 3552 3494 3389 3201 3041 2952 2827 2645 2530 2698 3656 5174 6294 6864 7125 7266 7383 7491 7535 7529 7505 7462 7429 7440 7540 780 224 2284 2437 2671 3184 3512 3611 3687 3616 3423 3148 2876 2697 2591 2450 2257 2117 2051 1950 1804 1721 1896 2901 4645 6001 6698 7013 7174 7296 7408 7456 7451 7426 7384 7349 7362 7464 781 225 1916 1990 2143 2526 2789 2880 2968 2898 2694 2405 2122 1922 1782 1614 1428 1310 1262 1188 1081 1034 1200 2206 4130 5707 6529 6892 7074 7206 7324 7375 7372 7349 7304 7267 7280 7386 782 226 1603 1613 1691 1961 2164 2251 2340 2277 2067 1771 1485 1277 1114 0936 0762 0667 0636 0584 0514 0499 0653 1629 3684 5447 6381 6795 6994 7134 7255 7312 7311 7288 7242 7205 7218 7328 783 227 1343 1315 1343 1538 1693 1781 1870 1808 1597 1306 1030 0822 0658 0489 0342 0274 0256 0225 0192 0206 0329 1215 3318 5213 6238 6695 6908 7054 7180 7239 7242 7214 7170 7131 7146 7253 784 21 3406 3654 4029 4796 5247 5256 5218 5122 5051 4920 4800 4907 5312 5717 5829 5777 5742 5669 5532 5441 5589 6328 7342 8070 8469 8670 8796 8884 8945 8958 8958 8959 8971 8992 8998 9025 785 22 3108 3398 3810 4596 5049 5086 5096 5031 4974 4848 4726 4828 5212 5574 5623 5498 5382 5218 4987 4823 4897 5493 6308 6869 7167 7322 7422 7519 7610 7649 7640 7613 7571 7544 7551 7644 786 23 2725 3076 3537 4326 4770 4851 4907 4884 4843 4724 4603 4702 5068 5379 5357 5153 4952 4698 4387 4161 4178 4654 5295 5708 5926 6038 6118 6216 6329 6380 6366 6320 6244 6182 6199 6334 787 24 2352 2721 3221 3988 4414 4524 4636 4659 4642 4537 4419 4514 4861 5116 5016 4730 4439 4096 3709 3428 3390 3743 4213 4497 4644 4723 4787 4886 5013 5078 5057 4998 4897 4811 4830 4999 788 25 1931 2349 2889 3650 4066 4220 4395 4473 4482 4388 4272 4361 4678 4866 4677 4296 3911 3475 3011 2680 2588 2817 3117 3279 3366 3416 3463 3560 3693 3768 3744 3678 3560 3460 3484 3670 789 26 1561 1998 2591 3355 3773 3972 4207 4337 4369 4283 4166 4245 4524 4641 4369 3907 3439 2931 2414 2057 1934 2067 2248 2331 2376 2406 2440 2527 2657 2734 2712 2643 2521 2419 2447 2634 790 27 1164 1634 2269 3014 3420 3661 3957 4141 4197 4125 4008 4080 4329 4376 4018 3474 2929 2355 1798 1423 1275 1324 1396 1410 1423 1438 1460 1537 1660 1737 1715 1648 1532 1439 1465 1644 791 28 0853 1332 1982 2732 3134 3411 3755 3983 4058 3993 3875 3939 4159 4150 3727 3125 2527 1916 1345 0975 0826 0829 0843 0827 0824 0831 0845 0907 1011 1080 1062 1006 0905 0825 0855 1010 792 29 0546 1014 1686 2436 2837 3155 3552 3834 3932 3879 3763 3817 4004 3926 3430 2762 2110 1463 0886 0532 0387 0351 0316 0277 0265 0265 0273 0316 0396 0451 0439 0395 0320 0268 0294 0415 793 210 4020 4421 4966 6035 6675 6660 6587 6466 6452 6410 6387 6664 7393 8205 8596 8644 8634 8594 8520 8482 8475 8543 8594 8674 8777 8864 8948 9020 9071 9075 9074 9071 9082 9110 9108 9135 794 211 3415 3800 4318 5262 5818 5859 5858 5786 5758 5679 5603 5790 6339 6891 7051 6944 6807 6620 6372 6190 6194 6531 6921 7167 7319 7414 7493 7581 7669 7702 7689 7662 7622 7593 7600 7695 795 212 2717 3059 3509 4274 4707 4781 4843 4819 4781 4664 4545 4640 5009 5316 5286 5078 4875 4617 4302 4075 4097 4587 5234 5646 5861 5973 6052 6150 6263 6316 6298 6252 6174 6109 6122 6258 796 213 2138 2455 2870 3515 3879 3985 4089 4100 4053 3912 3758 3790 4021 4155 4007 3746 3510 3225 2894 2663 2686 3186 3885 4332 4550 4654 4725 4826 4956 5023 5002 4945 4839 4754 4769 4932 797 214 1499 1791 2149 2672 2952 3083 3223 3266 3204 3035 2849 2815 2913 2903 2679 2410 2184 1919 1624 1430 1464 1925 2596 3015 3208 3298 3357 3454 3592 3670 3647 3580 3459 3356 3381 3559 798 215 1053 1332 1671 2109 2347 2482 2645 2703 2635 2452 2251 2174 2191 2097 1843 1590 1388 1156 0914 0772 0804 1164 1706 2042 2192 2260 2303 2392 2525 2604 2583 2517 2396 2293 2315 2500 799 216 0732 0984 1302 1689 1895 2045 2221 2282 2204 2010 1799 1693 1651 1508 1256 1031 0863 0676 0493 0399 0430 0681 1062 1280 1371 1413 1441 1517 1639 1717 1698 1634 1521 1423 1450 1625 800 217 0477 0716 1030 1357 1545 1691 1868 1932 1842 1639 1421 1289 1200 1029 0795 0613 0491 0359 0240 0197 0235 0401 0632 0745 0785 0803 0818 0876 0978 1047 1030 0974 0876 0797 0824 0975 801 218 0333 0562 0854 1163 1330 1480 1655 1716 1623 1418 1200 1059 0955 0781 0568 0419 0328 0233 0154 0139 0176 0271 0345 0338 0323 0315 0318 0354 0428 0483 0470 0427 0352 0300 0320 0439 802 219 3261 3711 4334 5374 5973 6054 6108 6097 6130 6109 6088 6351 7008 7648 7807 7598 7308 6967 6591 6308 6138 6082 6030 6015 6053 6101 6158 6249 6356 6401 6381 6335 6265 6205 6223 6361 803 220 3012 3464 4013 4936 5458 5535 5591 5575 5575 5506 5431 5616 6138 6615 6669 6449 6193 5884 5524 5253 5188 5423 5694 5855 5963 6035 6102 6198 6309 6362 6344 6298 6220 6157 6172 6305 804 221 2732 3090 3552 4340 4791 4869 4927 4902 4863 4747 4627 4724 5088 5392 5364 5157 4954 4697 4383 4157 4175 4653 5283 5684 5894 6004 6084 6182 6296 6347 6330 6287 6209 6148 6162 6297 805 222 2454 2770 3149 3830 4220 4298 4364 4331 4264 4111 3957 3987 4237 4418 4333 4134 3965 3746 3471 3275 3343 3976 4878 5484 5788 5934 6024 6128 6243 6300 6284 6237 6160 6096 6107 6245 806 223 2139 2351 2644 3161 3465 3535 3605 3573 3473 3284 3090 3051 3169 3214 3070 2889 2761 2590 2364 2214 2335 3129 4349 5206 5630 5824 5932 6045 6167 6227 6217 6170 6091 6023 6038 6181 807 224 1866 2006 2216 2632 2874 2940 3010 2976 2854 2641 2426 2342 2376 2342 2177 2021 1926 1794 1618 1511 1650 2501 3934 5000 5531 5765 5889 6007 6133 6195 6185 6141 6060 5994 6009 6148 808 225 1563 1661 1803 2103 2287 2357 2428 2393 2256 2030 1805 1688 1652 1558 1385 1253 1185 1088 0962 0897 1035 1888 3465 4697 5321 5598 5741 5865 6000 6068 6059 6015 5936 5868 5884 6028 809 226 1330 1380 1457 1693 1842 1912 1989 1950 1799 1560 1326 1181 1093 0957 0786 0678 0632 0566 0482 0453 0585 1429 3141 4539 5251 5561 5713 5841 5974 6042 6035 5991 5909 5839 5856 5999 810 227 1136 1139 1184 1352 1471 1538 1615 1573 1419 1179 0949 0797 0686 0540 0389 0310 0280 0240 0197 0201 0312 1083 2836 4342 5126 5469 5633 5770 5908 5980 5972 5930 5849 5778 5795 5942 811 21 2689 2807 2994 3441 3664 3634 3592 3523 3483 3373 3272 3427 3928 4429 4577 4539 4516 4442 4297 4195 4386 5329 6713 7740 8283 8545 8694 8794 8860 8877 8881 8877 8887 8908 8909 8946 812 22 2442 2618 2852 3320 3557 3548 3534 3484 3449 3339 3234 3379 3860 4317 4413 4318 4233 4093 3880 3725 3850 4643 5784 6594 7010 7209 7328 7433 7532 7573 7564 7537 7493 7465 7473 7574 813 23 2186 2403 2688 3170 3416 3429 3445 3421 3402 3295 3193 3337 3798 4212 4247 4089 3933 3723 3446 3245 3319 3961 4868 5478 5785 5933 6026 6131 6247 6303 6288 6243 6168 6103 6117 6260 814 24 1886 2132 2448 2918 3142 3184 3234 3242 3242 3145 3046 3187 3627 3983 3946 3718 3495 3215 2881 2643 2665 3168 3863 4305 4522 4630 4703 4808 4940 5007 4988 4929 4827 4739 4761 4933 815 25 1559 1850 2211 2682 2908 2980 3068 3112 3126 3038 2940 3081 3499 3803 3696 3400 3105 2756 2371 2101 2076 2435 2919 3202 3339 3409 3462 3559 3697 3772 3748 3681 3566 3464 3489 3679 816 26 1276 1592 1999 2495 2731 2839 2967 3046 3075 2992 2894 3028 3421 3668 3493 3127 2763 2352 1924 1632 1570 1802 2110 2271 2346 2388 2423 2511 2642 2722 2700 2628 2506 2402 2432 2617 817 27 0940 1331 1767 2283 2523 2661 2830 2948 2994 2919 2820 2951 3319 3505 3257 2823 2392 1925 1463 1155 1063 1185 1340 1399 1427 1448 1474 1549 1673 1751 1731 1665 1547 1451 1480 1658 818 28 0735 1103 1586 2112 2358 2521 2729 2876 2935 2868 2770 2895 3239 3370 3061 2574 2095 1590 1112 0808 0704 0758 0821 0827 0832 0839 0854 0916 1023 1094 1075 1017 0915 0836 0862 1015 819 29 0484 0868 1385 1916 2167 2355 2602 2779 2856 2799 2702 2820 3133 3196 2821 2282 1758 1226 0747 0459 0355 0348 0332 0298 0286 0285 0291 0334 0414 0472 0459 0414 0337 0282 0311 0430 820 210 3503 3776 4147 4897 5293 5219 5123 5031 5067 5048 5055 5459 6504 7718 8342 8475 8496 8467 8385 8333 8350 8473 8542 8628 8734 8824 8909 8983 9035 9044 9043 9040 9049 9076 9077 9107 821 211 2985 3259 3624 4283 4624 4594 4555 4501 4524 4477 4444 4762 5603 6505 6857 6815 6704 6526 6276 6085 6104 6477 6880 7126 7276 7371 7450 7541 7630 7666 7653 7624 7581 7555 7561 7656 822 212 2392 2631 2963 3514 3789 3799 3811 3791 3800 3721 3648 3863 4477 5064 5182 5022 4836 4589 4275 4043 4071 4579 5229 5638 5848 5958 6036 6135 6248 6301 6284 6239 6159 6096 6108 6247 823 213 1880 2135 2446 2910 3133 3175 3223 3234 3231 3134 3032 3175 3620 3983 3948 3721 3497 3219 2889 2650 2679 3190 3886 4326 4541 4646 4718 4821 4951 5020 5000 4941 4837 4749 4770 4935 824 214 1368 1585 1876 2259 2440 2513 2599 2624 2603 2478 2344 2406 2672 2821 2666 2416 2197 1932 1633 1435 1470 1946 2629 3050 3245 3333 3390 3489 3629 3708 3685 3618 3499 3394 3416 3601 825 215 0965 1185 1458 1789 1950 2037 2142 2182 2148 2010 1859 1866 2013 2035 1830 1589 1392 1163 0920 0775 0808 1177 1733 2075 2228 2296 2340 2429 2562 2641 2620 2553 2432 2330 2356 2538 826 216 0669 0888 1161 1453 1599 1701 1819 1869 1826 1676 1515 1484 1550 1491 1266 1045 0876 0687 0498 0399 0429 0689 1078 1299 1391 1432 1463 1540 1664 1745 1724 1661 1545 1448 1475 1651 827 217 0447 0675 0924 1189 1319 1424 1551 1597 1544 1382 1208 1141 1137 1022 0804 0626 0504 0372 0249 0203 0239 0410 0647 0760 0800 0817 0834 0894 1000 1069 1052 0996 0896 0814 0842 0993 828 218 0330 0527 0769 1016 1141 1252 1378 1428 1367 1203 1028 0948 0915 0785 0583 0434 0341 0243 0161 0142 0178 0275 0352 0345 0331 0324 0324 0362 0440 0495 0481 0436 0362 0306 0330 0447 829 219 2438 2832 3329 4055 4410 4451 4500 4535 4626 4634 4644 5026 5950 6870 7105 6833 6432 5967 5467 5090 4878 4806 4733 4689 4705 4738 4786 4878 5001 5064 5037 4979 4880 4796 4816 4987 830 220 2318 2673 3114 3791 4131 4180 4233 4259 4317 4285 4249 4544 5301 6022 6150 5879 5534 5127 4670 4329 4215 4377 4554 4642 4706 4753 4806 4898 5022 5086 5064 5004 4901 4813 4832 4993 831 221 2104 2396 2777 3348 3631 3675 3730 3740 3763 3692 3617 3825 4405 4921 4951 4705 4433 4097 3712 3430 3400 3765 4233 4509 4650 4728 4787 4885 5010 5076 5054 4995 4892 4807 4826 4991 832 222 1897 2160 2493 2986 3228 3275 3330 3335 3329 3229 3124 3264 3706 4066 4026 3798 3569 3286 2953 2714 2736 3240 3928 4362 4574 4677 4747 4849 4979 5046 5028 4969 4865 4774 4789 4955 833 223 1677 1881 2132 2529 2721 2773 2829 2827 2789 2654 2515 2575 2849 3028 2918 2712 2543 2325 2059 1879 1956 2598 3549 4186 4490 4629 4711 4818 4951 5022 5005 4945 4840 4751 4767 4931 834 224 1471 1610 1799 2119 2287 2333 2391 2384 2323 2169 2009 2013 2176 2242 2102 1923 1793 1624 1418 1287 1386 2077 3198 3988 4368 4535 4629 4738 4873 4947 4930 4872 4767 4677 4697 4859 835 225 1237 1360 1488 1748 1869 1925 1983 1971 1890 1720 1546 1505 1574 1553 1392 1244 1152 1030 0882 0801 0911 1623 2891 3832 4288 4486 4590 4704 4842 4916 4901 4846 4740 4650 4668 4838 836 226 1069 1124 1222 1414 1520 1568 1629 1611 1515 1331 1149 1073 1066 0977 0810 0688 0625 0543 0446 0405 0515 1219 2587 3649 4169 4390 4503 4621 4760 4838 4823 4768 4661 4570 4588 4756 837 227 0921 0965 1029 1172 1261 1312 1373 1352 1247 1054 0868 0769 0713 0593 0438 0344 0303 0252 0197 0192 0289 0944 2364 3513 4085 4330 4451 4572 4717 4799 4785 4729 4623 4526 4547 4723 838 21 2048 2036 2087 2299 2378 2325 2288 2246 2225 2126 2039 2191 2663 3108 3208 3157 3133 3062 2914 2810 3029 4158 5949 7332 8058 8397 8572 8684 8759 8781 8783 8781 8788 8807 8814 8851 839 22 1858 1922 1991 2210 2287 2250 2224 2191 2178 2083 1996 2149 2614 3037 3103 3014 2949 2832 2642 2506 2675 3643 5135 6230 6791 7052 7194 7312 7424 7472 7463 7437 7392 7363 7372 7478 840 23 1677 1765 1891 2140 2232 2214 2210 2190 2180 2086 1996 2142 2585 2966 2982 2850 2738 2573 2344 2180 2304 3114 4335 5195 5620 5814 5925 6038 6161 6222 6207 6161 6082 6016 6034 6173 841 24 1454 1584 1751 2014 2100 2101 2118 2117 2119 2031 1944 2091 2525 2871 2846 2669 2508 2296 2031 1845 1923 2571 3520 4155 4460 4600 4684 4794 4927 4999 4980 4921 4818 4731 4753 4920 842 25 1214 1381 1593 1852 1953 1971 2008 2028 2042 1961 1876 2023 2440 2741 2661 2433 2223 1964 1667 1465 1500 1980 2664 3088 3284 3377 3437 3537 3675 3752 3731 3662 3548 3445 3469 3655 843 26 0987 1214 1469 1758 1867 1904 1967 2009 2032 1954 1869 2015 2423 2689 2560 2280 2017 1709 1378 1160 1157 1490 1946 2206 2321 2377 2417 2508 2641 2722 2700 2631 2508 2404 2431 2614 844 27 0767 1028 1324 1625 1740 1804 1890 1950 1985 1913 1829 1972 2359 2576 2393 2065 1757 1411 1060 0835 0803 1005 1262 1383 1434 1461 1489 1566 1692 1772 1751 1684 1567 1470 1497 1679 845 28 0579 0869 1200 1526 1659 1741 1854 1935 1979 1909 1822 1961 2326 2502 2272 1903 1554 1176 0814 0592 0543 0656 0779 0818 0831 0842 0857 0920 1027 1098 1081 1021 0919 0836 0864 1026 846 29 0406 0713 1084 1438 1577 1688 1827 1934 1989 1923 1837 1970 2312 2438 2158 1745 1359 0955 0586 0374 0315 0344 0353 0324 0309 0307 0313 0354 0437 0495 0481 0436 0358 0300 0329 0454 847 210 2978 3133 3330 3777 3950 3834 3729 3667 3744 3754 3788 4293 5602 7188 8047 8260 8313 8299 8212 8144 8186 8366 8465 8558 8666 8757 8846 8920 8973 8980 8979 8977 8986 9012 9015 9039 848 211 2542 2708 2915 3313 3472 3386 3317 3279 3342 3329 3330 3748 4840 6076 6623 6650 6563 6396 6144 5944 5979 6392 6810 7063 7218 7316 7399 7493 7587 7624 7613 7584 7540 7511 7519 7620 849 212 2034 2210 2421 2780 2916 2877 2849 2838 2878 2836 2801 3112 3942 4799 5067 4957 4788 4547 4231 3990 4028 4558 5217 5626 5833 5942 6019 6119 6233 6289 6273 6226 6146 6082 6096 6233 850 213 1630 1818 2022 2333 2443 2437 2448 2450 2483 2422 2363 2595 3222 3793 3865 3672 3461 3187 2854 2610 2643 3174 3882 4320 4535 4642 4712 4815 4945 5015 4995 4936 4832 4744 4767 4933 851 214 1204 1393 1586 1868 1961 1988 2026 2047 2055 1971 1879 2023 2438 2741 2660 2433 2220 1959 1661 1457 1494 1982 2673 3098 3293 3382 3441 3540 3680 3759 3739 3670 3550 3446 3467 3650 852 215 0865 1052 1258 1500 1592 1634 1697 1724 1725 1623 1516 1597 1867 2000 1843 1614 1420 1190 0944 0791 0823 1201 1760 2101 2250 2319 2364 2453 2588 2669 2647 2578 2456 2350 2374 2558 853 216 0612 0812 1025 1251 1336 1395 1472 1510 1497 1386 1265 1299 1458 1475 1280 1066 0898 0707 0515 0412 0440 0704 1090 1305 1394 1435 1465 1544 1670 1750 1731 1665 1547 1449 1478 1656 854 217 0429 0613 0831 1030 1121 1191 1275 1314 1285 1162 1028 1019 1087 1025 0824 0645 0522 0387 0261 0209 0244 0420 0660 0773 0812 0830 0846 0907 1013 1085 1067 1010 0909 0827 0853 1008 855 218 0300 0495 0707 0901 0988 1064 1152 1189 1157 1028 0889 0861 0888 0801 0610 0458 0363 0260 0176 0152 0187 0286 0364 0357 0342 0336 0338 0377 0456 0513 0499 0454 0376 0318 0343 0464 856 219 1779 2104 2498 3003 3206 3223 3261 3323 3446 3474 3505 3965 5077 6197 6471 6123 5614 5036 4433 3981 3737 3647 3557 3494 3491 3511 3547 3638 3771 3846 3817 3746 3632 3530 3556 3747 857 220 1670 1974 2334 2797 2961 2985 3024 3076 3172 3173 3170 3555 4508 5421 5586 5253 4812 4302 3756 3352 3192 3281 3375 3404 3435 3467 3509 3602 3737 3813 3790 3719 3596 3492 3513 3705 858 221 1530 1790 2095 2496 2648 2666 2708 2747 2814 2781 2747 3046 3803 4486 4552 4256 3903 3486 3028 2696 2618 2875 3191 3356 3441 3492 3537 3633 3768 3845 3820 3753 3633 3531 3554 3740 859 222 1418 1644 1907 2254 2389 2410 2451 2484 2524 2466 2407 2633 3233 3739 3732 3461 3170 2821 2430 2152 2127 2492 2971 3243 3374 3440 3490 3589 3727 3806 3783 3714 3593 3487 3510 3695 860 223 1257 1426 1644 1930 2033 2058 2101 2119 2129 2045 1953 2095 2510 2809 2725 2494 2276 2011 1706 1498 1532 2017 2700 3119 3312 3401 3461 3563 3704 3785 3763 3696 3573 3467 3488 3674 861 224 1105 1252 1426 1663 1758 1784 1832 1845 1832 1723 1611 1691 1968 2125 1999 1800 1636 1433 1199 1048 1110 1648 2473 3014 3261 3371 3436 3540 3681 3764 3744 3674 3555 3447 3467 3662 862 225 0949 1065 1213 1406 1487 1514 1568 1570 1536 1411 1283 1308 1468 1513 1361 1193 1074 0926 0756 0659 0736 1292 2230 2878 3176 3304 3376 3483 3626 3708 3689 3623 3500 3395 3414 3605 863 226 0836 0914 1022 1173 1240 1277 1321 1323 1270 1131 0991 0973 1037 0994 0830 0694 0614 0515 0405 0355 0443 1005 2037 2778 3123 3269 3349 3456 3602 3687 3668 3602 3481 3373 3390 3583 864 227 0721 0791 0869 0991 1047 1084 1129 1126 1063 0920 0777 0731 0737 0650 0492 0385 0333 0269 0203 0189 0270 0792 1858 2663 3041 3201 3285 3396 3542 3628 3611 3544 3423 3312 3335 3524 865 21 1508 1455 1416 1482 1478 1426 1393 1363 1358 1283 1219 1363 1778 2152 2212 2157 2134 2069 1938 1846 2058 3235 5278 6938 7825 8229 8433 8558 8641 8669 8675 8671 8674 8692 8701 8739 866 22 1397 1377 1372 1460 1458 1409 1383 1362 1362 1288 1226 1370 1783 2143 2181 2099 2048 1952 1795 1684 1856 2874 4593 5923 6609 6922 7085 7211 7326 7377 7373 7343 7294 7260 7276 7378 867 23 1270 1279 1311 1407 1416 1382 1367 1355 1361 1286 1221 1364 1768 2101 2105 1992 1909 1781 1598 1471 1609 2480 3908 4958 5483 5719 5843 5964 6093 6159 6146 6097 6019 5949 5969 6113 868 24 1097 1157 1222 1339 1354 1336 1329 1326 1335 1267 1202 1345 1738 2043 2014 1870 1752 1591 1385 1247 1348 2052 3181 3977 4360 4529 4627 4738 4877 4952 4933 4873 4770 4680 4704 4874 869 25 0920 1039 1136 1271 1291 1282 1294 1303 1319 1253 1189 1332 1715 1990 1923 1744 1590 1394 1166 1017 1079 1608 2428 2968 3220 3330 3400 3503 3644 3726 3705 3636 3518 3417 3441 3627 870 26 0771 0916 1058 1224 1249 1258 1284 1304 1326 1261 1194 1336 1711 1956 1852 1636 1446 1217 0967 0809 0839 1225 1796 2146 2302 2371 2416 2508 2644 2726 2705 2635 2513 2408 2436 2618 871 27 0614 0789 0975 1154 1195 1218 1256 1289 1320 1257 1192 1333 1696 1907 1764 1513 1289 1032 0768 0607 0610 0856 1186 1355 1424 1458 1487 1566 1693 1772 1752 1685 1568 1470 1500 1675 872 28 0471 0679 0905 1099 1152 1187 1241 1287 1321 1264 1196 1338 1700 1890 1714 1431 1174 0889 0612 0450 0435 0581 0755 0820 0845 0858 0874 0935 1044 1115 1099 1039 0936 0852 0880 1035 873 29 0349 0582 0849 1081 1149 1200 1272 1333 1374 1316 1245 1383 1728 1883 1669 1351 1063 0755 0470 0311 0282 0337 0365 0341 0327 0323 0328 0371 0454 0514 0499 0453 0372 0315 0338 0465 874 210 2480 2530 2595 2816 2836 2705 2599 2560 2658 2680 2731 3283 4767 6661 7733 8029 8115 8109 8019 7936 8001 8238 8363 8462 8574 8670 8761 8839 8896 8908 8907 8901 8913 8937 8941 8962 875 211 2125 2198 2275 2484 2497 2392 2315 2293 2379 2386 2413 2887 4150 5656 6380 6472 6413 6258 6007 5800 5853 6305 6745 7002 7160 7262 7347 7441 7536 7574 7561 7527 7490 7463 7476 7572 876 212 1724 1819 1909 2095 2113 2048 2000 1991 2059 2042 2038 2409 3395 4481 4887 4827 4680 4448 4135 3891 3938 4493 5166 5580 5790 5901 5979 6080 6197 6253 6237 6185 6110 6045 6057 6194 877 213 1396 1510 1626 1804 1828 1789 1769 1774 1824 1793 1769 2063 2836 3602 3785 3629 3432 3165 2834 2587 2624 3164 3874 4311 4522 4624 4695 4797 4928 4998 4978 4917 4813 4723 4746 4906 878 214 1024 1160 1299 1464 1495 1480 1488 1504 1536 1486 1434 1638 2175 2618 2610 2403 2199 1939 1640 1433 1467 1957 2644 3063 3254 3343 3401 3502 3642 3722 3701 3633 3514 3407 3425 3613 879 215 0777 0908 1056 1216 1249 1256 1287 1309 1329 1262 1194 1330 1693 1929 1820 1606 1417 1192 0948 0794 0827 1211 1781 2126 2278 2346 2391 2482 2616 2698 2676 2605 2487 2379 2405 2590 880 216 0558 0720 0885 1038 1082 1111 1156 1184 1193 1113 1029 1117 1364 1466 1305 1095 0926 0733 0536 0427 0453 0724 1125 1349 1441 1484 1513 1592 1717 1797 1776 1711 1595 1494 1523 1698 881 217 0383 0551 0716 0870 0915 0953 1007 1036 1034 0941 0843 0883 1020 1015 0832 0658 0533 0397 0269 0213 0245 0424 0664 0776 0814 0831 0848 0910 1016 1089 1072 1012 0912 0829 0857 1011 882 218 0257 0448 0619 0773 0824 0867 0926 0958 0947 0849 0744 0759 0847 0801 0621 0470 0372 0268 0177 0149 0182 0283 0361 0354 0339 0334 0336 0375 0458 0515 0501 0454 0377 0317 0343 0465 883 219 1213 1488 1797 2135 2215 2204 2225 2292 2426 2467 2512 3016 4258 5531 5821 5400 4798 4129 3457 2967 2711 2611 2516 2446 2434 2445 2473 2557 2689 2766 2741 2670 2548 2446 2473 2660 884 220 1149 1407 1694 2008 2078 2073 2097 2157 2273 2292 2312 2751 3833 4890 5076 4682 4157 3567 2960 2520 2334 2369 2403 2394 2403 2421 2449 2534 2666 2747 2723 2651 2528 2424 2451 2635 885 221 1065 1293 1542 1815 1874 1876 1900 1947 2039 2034 2028 2382 3262 4075 4164 3820 3402 2919 2415 2055 1945 2109 2305 2391 2436 2467 2500 2588 2721 2799 2774 2703 2583 2479 2504 2689 886 222 1006 1211 1439 1680 1739 1740 1766 1807 1874 1848 1820 2105 2826 3451 3469 3162 2817 2414 1987 1687 1628 1882 2201 2364 2440 2479 2516 2605 2738 2818 2795 2724 2602 2496 2520 2704 887 223 0906 1063 1253 1453 1502 1503 1534 1562 1602 1551 1495 1698 2222 2627 2566 2309 2053 1749 1418 1196 1195 1549 2026 2294 2414 2469 2509 2599 2733 2815 2792 2723 2599 2491 2515 2700 888 224 0789 0942 1102 1276 1318 1327 1356 1376 1395 1326 1254 1391 1763 2003 1893 1673 1479 1247 0994 0833 0865 1255 1827 2172 2324 2391 2437 2527 2663 2746 2725 2657 2533 2427 2452 2637 889 225 0709 0833 0957 1104 1145 1157 1190 1207 1204 1120 1030 1112 1355 1464 1325 1141 1001 0832 0649 0544 0597 1013 1683 2111 2301 2381 2430 2525 2660 2744 2722 2652 2531 2422 2446 2630 890 226 0628 0727 0837 0951 0987 1002 1040 1047 1031 0933 0832 0867 1004 1011 0851 0703 0607 0492 0370 0313 0380 0805 1536 2023 2239 2329 2383 2477 2615 2700 2681 2612 2487 2378 2406 2591 891 227 0558 0639 0726 0823 0848 0875 0908 0913 0885 0780 0674 0676 0741 0689 0532 0415 0350 0275 0201 0182 0247 0649 1415 1950 2189 2289 2345 2441 2581 2666 2646 2578 2456 2346 2372 2558 892 21 1151 1055 0978 0971 0927 0882 0850 0837 0839 0783 0737 0861 1189 1451 1453 1384 1360 1301 1192 1118 1310 2490 4724 6619 7645 8114 8344 8479 8572 8607 8610 8607 8613 8625 8639 8680 893 22 1080 0999 0952 0955 0922 0879 0856 0841 0847 0790 0741 0865 1190 1441 1428 1345 1303 1227 1102 1020 1186 2228 4145 5690 6496 6855 7035 7168 7288 7342 7337 7304 7257 7223 7238 7345 894 23 0968 0947 0925 0947 0921 0885 0867 0858 0866 0808 0758 0881 1206 1442 1407 1304 1240 1142 1000 0908 1045 1934 3524 4752 5368 5640 5778 5903 6036 6104 6092 6042 5964 5894 5914 6062 895 24 0850 0852 0864 0901 0881 0851 0840 0842 0852 0796 0748 0870 1187 1403 1346 1223 1136 1018 0865 0768 0875 1598 2863 3798 4254 4454 4560 4678 4821 4899 4881 4821 4717 4626 4647 4820 896 25 0735 0771 0827 0881 0868 0848 0849 0854 0870 0816 0765 0889 1206 1406 1324 1174 1062 0918 0747 0644 0719 1277 2211 2856 3155 3286 3359 3467 3609 3692 3671 3603 3485 3380 3404 3591 897 26 0611 0706 0784 0864 0866 0851 0862 0875 0893 0838 0786 0912 1226 1411 1305 1131 0994 0827 0642 0535 0585 1001 1663 2088 2276 2358 2409 2502 2641 2724 2703 2634 2510 2405 2431 2615 898 27 0507 0631 0745 0851 0857 0859 0878 0901 0922 0868 0813 0937 1246 1413 1279 1080 0917 0728 0535 0425 0451 0728 1131 1356 1447 1489 1519 1599 1727 1808 1787 1721 1604 1506 1531 1710 899 28 0390 0559 0709 0833 0852 0863 0892 0923 0949 0893 0835 0957 1257 1400 1243 1023 0840 0635 0436 0328 0338 0511 0728 0822 0855 0870 0887 0951 1059 1132 1115 1056 0951 0868 0893 1053 900 29 0300 0483 0677 0826 0853 0877 0918 0957 0986 0931 0869 0991 1287 1410 1228 0985 0779 0556 0350 0245 0242 0319 0366 0347 0332 0328 0331 0374 0458 0518 0503 0457 0375 0314 0340 0467 901 210 2058 2043 2000 2063 1995 1853 1748 1729 1836 1869 1930 2506 4109 6235 7480 7846 7960 7965 7869 7771 7859 8152 8301 8406 8521 8617 8707 8787 8844 8854 8854 8847 8859 8885 8890 8912 902 211 1764 1799 1793 1872 1815 1703 1622 1606 1702 1721 1761 2261 3637 5349 6224 6372 6338 6193 5946 5733 5798 6282 6736 6994 7149 7244 7328 7418 7513 7551 7539 7505 7463 7433 7442 7533 903 212 1470 1507 1536 1612 1564 1481 1424 1421 1497 1500 1518 1927 3026 4292 4815 4797 4666 4442 4129 3879 3931 4499 5172 5581 5787 5892 5969 6071 6186 6242 6227 6177 6101 6034 6049 6184 904 213 1167 1262 1306 1389 1350 1289 1254 1259 1324 1314 1313 1647 2525 3443 3714 3588 3402 3139 2808 2557 2596 3149 3862 4299 4509 4611 4681 4785 4917 4987 4969 4906 4803 4715 4734 4901 905 214 0902 0988 1069 1162 1142 1111 1099 1110 1160 1130 1105 1351 1979 2543 2599 2408 2210 1952 1649 1437 1474 1971 2659 3075 3265 3352 3408 3507 3647 3727 3707 3638 3518 3410 3432 3617 906 215 0676 0790 0894 0989 0977 0965 0970 0987 1023 0981 0942 1124 1575 1908 1844 1637 1450 1220 0969 0808 0838 1229 1796 2136 2284 2352 2397 2488 2624 2707 2686 2615 2493 2386 2414 2598 907 216 0505 0646 0770 0883 0889 0897 0919 0939 0965 0908 0849 0973 1281 1444 1308 1105 0937 0744 0545 0432 0460 0746 1164 1399 1495 1537 1568 1649 1777 1859 1837 1770 1652 1551 1578 1759 908 217 0375 0509 0638 0752 0768 0785 0817 0842 0849 0783 0710 0784 0974 1012 0844 0671 0547 0409 0277 0218 0250 0434 0679 0791 0830 0847 0865 0929 1040 1114 1096 1035 0931 0846 0875 1034 909 218 0288 0429 0587 0714 0745 0777 0825 0850 0847 0766 0679 0720 0845 0831 0659 0505 0403 0293 0197 0164 0196 0300 0382 0376 0361 0356 0360 0402 0486 0546 0531 0484 0402 0341 0366 0490 910 219 0814 1054 1300 1508 1513 1488 1497 1555 1693 1740 1796 2319 3634 4984 5256 4762 4079 3336 2616 2104 1837 1727 1629 1557 1541 1546 1567 1646 1772 1851 1829 1760 1643 1544 1575 1754 911 220 0773 1016 1242 1434 1433 1405 1413 1469 1591 1622 1661 2128 3294 4436 4612 4156 3564 2910 2263 1809 1605 1588 1572 1535 1529 1539 1561 1640 1766 1846 1825 1753 1636 1535 1568 1746 912 221 0741 0944 1155 1331 1338 1320 1328 1375 1476 1486 1499 1888 2848 3739 3823 3429 2950 2411 1870 1495 1360 1441 1533 1553 1567 1582 1607 1684 1812 1890 1869 1801 1681 1581 1610 1791 913 222 0696 0885 1081 1253 1261 1247 1261 1301 1387 1380 1375 1700 2503 3204 3219 2868 2468 2013 1551 1236 1148 1297 1472 1539 1570 1591 1617 1696 1822 1902 1880 1812 1692 1590 1620 1799 914 223 0623 0796 0975 1111 1124 1115 1130 1165 1225 1196 1168 1413 2017 2489 2429 2137 1835 1488 1129 0893 0862 1089 1374 1506 1563 1592 1619 1700 1829 1911 1888 1821 1699 1596 1624 1807 915 224 0577 0720 0869 1000 1005 1006 1022 1050 1088 1047 1002 1184 1635 1943 1839 1593 1364 1099 0823 0652 0653 0917 1272 1454 1529 1565 1594 1673 1801 1884 1864 1795 1674 1573 1599 1781 916 225 0521 0649 0776 0894 0910 0915 0939 0958 0980 0921 0859 0979 1286 1447 1309 1107 0943 0750 0551 0440 0468 0753 1168 1397 1490 1533 1563 1644 1772 1854 1834 1766 1647 1547 1573 1752 917 226 0481 0592 0699 0801 0814 0825 0850 0866 0872 0799 0726 0799 0992 1041 0881 0716 0601 0468 0333 0269 0315 0619 1092 1369 1482 1532 1564 1646 1776 1858 1838 1769 1650 1548 1574 1752 918 227 0422 0537 0623 0709 0724 0733 0764 0775 0766 0689 0607 0647 0761 0743 0585 0454 0378 0288 0204 0177 0229 0519 1021 1330 1458 1512 1548 1630 1760 1844 1823 1757 1636 1534 1562 1740 919 21 0899 0775 0672 0635 0580 0537 0512 0507 0514 0473 0442 0538 0763 0887 0817 0738 0709 0659 0573 0525 0690 1836 4228 6341 7504 8032 8281 8426 8525 8563 8571 8562 8566 8580 8588 8640 920 22 0813 0734 0657 0631 0581 0538 0518 0511 0521 0479 0448 0545 0773 0895 0820 0733 0695 0636 0544 0491 0638 1660 3724 5459 6373 6776 6973 7115 7237 7296 7293 7261 7215 7176 7192 7304 921 23 0746 0706 0658 0644 0602 0566 0548 0542 0555 0511 0476 0575 0806 0922 0835 0736 0686 0614 0512 0455 0583 1458 3182 4575 5285 5594 5746 5878 6015 6084 6074 6023 5945 5874 5898 6038 922 24 0658 0648 0624 0625 0585 0560 0549 0546 0562 0517 0482 0582 0810 0919 0821 0710 0648 0562 0456 0398 0503 1226 2606 3669 4190 4415 4530 4652 4797 4877 4860 4797 4697 4603 4626 4802 923 25 0581 0599 0613 0635 0609 0588 0579 0584 0600 0555 0515 0616 0846 0951 0841 0714 0634 0533 0416 0355 0437 0998 2031 2780 3131 3280 3361 3470 3613 3696 3678 3609 3490 3385 3410 3598 924 26 0495 0562 0597 0641 0621 0604 0601 0610 0626 0580 0538 0637 0868 0963 0840 0699 0606 0492 0369 0308 0369 0793 1529 2025 2245 2340 2394 2489 2628 2713 2692 2624 2499 2392 2419 2607 925 27 0416 0512 0586 0654 0642 0636 0643 0655 0676 0626 0580 0679 0910 0997 0859 0700 0590 0460 0330 0267 0310 0602 1062 1336 1447 1495 1529 1608 1735 1817 1798 1730 1613 1513 1542 1716 926 28 0331 0459 0561 0644 0640 0642 0658 0673 0696 0645 0596 0696 0928 1006 0854 0683 0560 0419 0285 0224 0253 0439 0688 0804 0845 0864 0881 0945 1055 1129 1111 1051 0947 0862 0891 1048 927 29 0263 0419 0551 0650 0663 0668 0693 0717 0739 0684 0629 0726 0957 1029 0864 0680 0542 0391 0252 0191 0209 0304 0371 0358 0343 0338 0341 0384 0468 0528 0513 0466 0384 0323 0347 0479 928 210 1690 1601 1489 1425 1285 1145 1053 1044 1157 1198 1266 1852 3541 5858 7259 7689 7826 7842 7745 7641 7742 8063 8229 8338 8456 8557 8651 8731 8788 8803 8803 8797 8811 8833 8841 8866 929 211 1489 1440 1356 1324 1204 1083 1006 0999 1102 1131 1184 1705 3173 5071 6081 6283 6272 6138 5892 5675 5749 6251 6715 6976 7131 7226 7307 7399 7494 7534 7522 7491 7449 7418 7431 7517 930 212 1228 1217 1168 1150 1049 0955 0890 0893 0980 0997 1031 1464 2650 4063 4686 4705 4588 4372 4060 3809 3868 4451 5130 5538 5747 5856 5933 6036 6152 6212 6195 6146 6068 6002 6018 6153 931 213 1015 1026 1019 1017 0938 0866 0821 0825 0900 0904 0922 1282 2237 3274 3621 3523 3348 3093 2765 2515 2559 3127 3854 4296 4509 4612 4686 4789 4920 4994 4974 4911 4809 4719 4739 4907 932 214 0793 0832 0866 0893 0835 0788 0760 0769 0828 0816 0814 1089 1795 2462 2574 2402 2210 1956 1655 1440 1480 1988 2687 3112 3306 3393 3451 3550 3689 3769 3748 3679 3558 3453 3474 3659 933 215 0600 0671 0736 0776 0737 0707 0693 0707 0752 0731 0713 0920 1429 1832 1805 1610 1426 1200 0949 0786 0818 1213 1781 2116 2263 2329 2375 2467 2604 2688 2666 2595 2473 2367 2395 2582 934 216 0462 0567 0660 0730 0722 0705 0712 0730 0761 0724 0686 0838 1200 1420 1309 1111 0944 0750 0548 0432 0460 0749 1174 1411 1509 1553 1584 1664 1793 1874 1855 1786 1668 1567 1595 1775 935 217 0342 0467 0578 0662 0658 0663 0679 0698 0718 0666 0612 0707 0933 1006 0851 0680 0557 0417 0283 0221 0250 0440 0696 0815 0857 0876 0894 0959 1070 1144 1127 1066 0961 0875 0902 1063 936 218 0264 0404 0534 0636 0651 0667 0698 0722 0727 0659 0590 0650 0805 0816 0654 0501 0400 0290 0191 0158 0187 0291 0374 0370 0355 0350 0354 0396 0482 0543 0527 0479 0397 0334 0362 0488 937 219 0535 0762 0975 1108 1066 1022 1007 1054 1190 1242 1307 1852 3221 4606 4828 4259 3506 2710 1963 1451 1189 1072 0978 0910 0893 0896 0911 0976 1089 1162 1144 1082 0975 0891 0921 1086 938 220 0527 0744 0938 1065 1022 0987 0975 1018 1143 1182 1231 1719 2932 4109 4248 3728 3073 2371 1703 1252 1044 0993 0948 0900 0888 0893 0907 0972 1086 1158 1140 1079 0972 0890 0917 1084 939 221 0495 0701 0886 1001 0970 0934 0928 0969 1076 1098 1129 1546 2570 3510 3569 3117 2577 1991 1423 1044 0893 0908 0927 0908 0904 0910 0926 0993 1106 1183 1162 1101 0993 0907 0936 1100 940 222 0469 0662 0838 0946 0918 0892 0887 0923 1016 1022 1035 1389 2246 2988 2986 2593 2147 1656 1178 0864 0759 0825 0895 0901 0905 0914 0931 0997 1110 1185 1165 1104 0996 0910 0937 1103 941 223 0448 0620 0766 0863 0846 0823 0825 0854 0924 0912 0903 1178 1836 2354 2289 1968 1634 1260 0886 0650 0599 0730 0872 0915 0932 0944 0961 1028 1144 1220 1202 1139 1029 0941 0970 1134 942 224 0408 0564 0697 0795 0774 0763 0766 0793 0844 0819 0794 1005 1503 1851 1742 1475 1220 0932 0646 0475 0457 0616 0799 0866 0891 0905 0922 0989 1103 1179 1159 1097 0990 0902 0930 1097 943 225 0363 0517 0648 0736 0729 0725 0735 0761 0795 0755 0713 0861 1214 1408 1270 1053 0867 0658 0453 0339 0349 0528 0752 0848 0881 0898 0916 0982 1094 1170 1151 1090 0984 0898 0923 1085 944 226 0346 0471 0590 0669 0669 0671 0685 0703 0725 0674 0620 0721 0958 1039 0885 0709 0582 0438 0297 0232 0262 0460 0726 0848 0891 0911 0929 0995 1109 1183 1166 1104 0997 0910 0936 1096 945 227 0346 0453 0558 0638 0641 0650 0672 0685 0695 0629 0565 0628 0781 0791 0632 0489 0398 0296 0203 0170 0209 0409 0698 0843 0893 0916 0934 0999 1113 1188 1170 1109 1003 0915 0939 1103 946 21 0727 0621 0520 0475 0422 0389 0370 0365 0374 0341 0320 0394 0537 0561 0454 0374 0345 0306 0248 0225 0354 1417 3874 6142 7411 7982 8248 8399 8499 8538 8545 8536 8540 8548 8560 8617 947 22 0672 0592 0506 0472 0423 0388 0370 0364 0377 0346 0325 0402 0550 0579 0469 0386 0353 0308 0248 0223 0341 1284 3396 5254 6252 6695 6905 7052 7180 7241 7239 7206 7157 7116 7135 7248 948 23 0642 0572 0513 0494 0448 0417 0403 0398 0409 0373 0350 0428 0580 0608 0494 0403 0362 0309 0243 0216 0321 1141 2932 4445 5225 5562 5722 5858 5995 6066 6056 6008 5928 5852 5874 6019 949 24 0560 0543 0505 0492 0459 0429 0418 0416 0429 0396 0370 0449 0608 0638 0520 0420 0372 0311 0241 0214 0303 0983 2423 3587 4165 4414 4537 4663 4807 4886 4871 4811 4707 4614 4636 4809 950 25 0486 0497 0498 0501 0469 0450 0440 0443 0457 0420 0390 0470 0633 0662 0536 0427 0369 0299 0224 0196 0268 0794 1866 2682 3068 3232 3317 3429 3576 3662 3642 3574 3454 3347 3375 3563 951 26 0420 0470 0489 0512 0491 0476 0472 0479 0492 0452 0418 0498 0665 0696 0564 0445 0376 0296 0214 0185 0244 0648 1427 1978 2227 2331 2389 2485 2624 2710 2690 2620 2499 2390 2420 2605 952 27 0377 0428 0480 0522 0505 0495 0498 0508 0523 0480 0441 0521 0694 0727 0588 0459 0381 0290 0205 0174 0221 0505 1003 1317 1448 1503 1538 1619 1749 1830 1810 1742 1625 1526 1552 1730 953 28 0287 0408 0485 0546 0542 0537 0546 0557 0574 0528 0480 0562 0742 0773 0624 0483 0393 0293 0198 0165 0201 0390 0666 0806 0856 0879 0897 0961 1071 1146 1129 1067 0962 0879 0905 1064 954 29 0252 0364 0470 0546 0545 0554 0573 0591 0605 0551 0499 0574 0751 0783 0631 0483 0387 0281 0188 0155 0184 0287 0366 0359 0345 0338 0341 0383 0467 0527 0513 0465 0383 0322 0346 0476 955 210 1362 1231 1062 0925 0757 0635 0552 0555 0662 0706 0775 1348 3075 5553 7107 7608 7779 7812 7724 7618 7734 8086 8263 8364 8470 8560 8643 8717 8774 8785 8786 8779 8792 8812 8816 8836 956 211 1227 1136 0991 0875 0719 0612 0539 0539 0640 0676 0735 1255 2775 4821 5952 6203 6208 6084 5840 5620 5698 6210 6672 6927 7078 7174 7256 7350 7445 7485 7476 7442 7399 7367 7376 7471 957 212 1019 0967 0878 0791 0666 0573 0518 0520 0606 0629 0674 1112 2351 3898 4624 4683 4582 4373 4064 3810 3875 4474 5165 5576 5782 5888 5964 6063 6178 6236 6219 6169 6093 6028 6043 6175 958 213 0851 0832 0792 0734 0626 0553 0503 0511 0587 0601 0630 1000 2009 3164 3595 3525 3361 3108 2781 2526 2572 3143 3873 4315 4529 4630 4699 4803 4935 5008 4986 4925 4821 4730 4753 4914 959 214 0677 0708 0701 0679 0600 0542 0508 0517 0579 0578 0589 0876 1620 2364 2525 2372 2187 1940 1639 1424 1465 1981 2687 3111 3305 3392 3450 3552 3691 3775 3753 3682 3562 3456 3478 3664 960 215 0515 0582 0609 0618 0562 0524 0502 0515 0565 0554 0550 0773 1323 1788 1794 1610 1430 1206 0955 0790 0822 1226 1811 2159 2311 2379 2423 2517 2655 2737 2717 2645 2524 2417 2443 2631 961 216 0424 0517 0582 0620 0587 0563 0557 0570 0611 0584 0563 0732 1129 1392 1301 1110 0945 0751 0549 0432 0459 0754 1189 1430 1529 1574 1607 1687 1818 1900 1879 1810 1689 1587 1616 1795 962 217 0324 0432 0519 0571 0558 0546 0553 0568 0596 0554 0519 0633 0889 0992 0849 0681 0557 0417 0282 0219 0248 0436 0693 0813 0856 0877 0895 0960 1072 1146 1127 1067 0961 0876 0905 1065 963 218 0254 0378 0490 0573 0577 0585 0607 0626 0638 0584 0526 0602 0781 0811 0655 0503 0403 0292 0193 0157 0187 0292 0375 0369 0355 0349 0352 0396 0483 0545 0529 0479 0394 0332 0359 0487 964 219 0348 0561 0746 0827 0766 0708 0678 0716 0847 0896 0965 1507 2883 4234 4361 3700 2878 2042 1290 0803 0562 0451 0371 0319 0305 0306 0316 0363 0453 0515 0501 0453 0370 0312 0339 0471 965 220 0328 0545 0722 0807 0753 0700 0676 0714 0833 0874 0932 1423 2658 3826 3892 3295 2571 1824 1149 0714 0513 0434 0372 0323 0310 0310 0319 0365 0455 0517 0503 0454 0372 0312 0341 0472 966 221 0329 0523 0697 0778 0731 0689 0670 0704 0810 0835 0874 1299 2344 3282 3288 2776 2177 1552 0975 0611 0457 0419 0380 0337 0322 0322 0331 0379 0468 0532 0517 0469 0385 0320 0350 0483 967 222 0309 0507 0668 0749 0704 0672 0656 0693 0783 0797 0822 1185 2067 2811 2768 2325 1831 1308 0822 0521 0407 0402 0384 0346 0332 0331 0338 0386 0477 0540 0525 0476 0392 0329 0360 0486 968 223 0322 0483 0631 0714 0681 0651 0645 0675 0749 0748 0750 1040 1731 2262 2170 1808 1432 1026 0645 0415 0345 0377 0388 0357 0343 0341 0349 0397 0489 0554 0537 0488 0401 0337 0365 0498 969 224 0291 0444 0584 0672 0638 0626 0623 0649 0707 0691 0676 0901 1424 1779 1656 1363 1082 0777 0490 0324 0290 0351 0386 0363 0349 0347 0353 0400 0490 0554 0537 0488 0403 0337 0366 0499 970 225 0278 0436 0565 0655 0639 0635 0640 0667 0708 0676 0644 0811 1198 1417 1272 1034 0824 0594 0379 0264 0256 0338 0393 0377 0363 0360 0365 0412 0502 0567 0551 0501 0414 0349 0373 0504 971 226 0247 0402 0520 0603 0605 0601 0617 0639 0664 0619 0574 0690 0956 1062 0904 0717 0573 0413 0266 0199 0215 0316 0389 0380 0366 0362 0367 0412 0502 0564 0550 0499 0414 0349 0374 0506 972 227 0258 0375 0486 0565 0564 0567 0584 0601 0618 0564 0511 0591 0777 0812 0656 0505 0404 0295 0196 0160 0190 0300 0387 0381 0368 0363 0368 0413 0503 0565 0550 0501 0415 0349 0374 0508 973 21 0247 0348 0452 0520 0519 0528 0543 0559 0572 0522 0474 0553 0741 0793 0648 0501 0402 0292 0194 0157 0184 0287 0367 0360 0345 0339 0343 0385 0471 0531 0516 0467 0386 0326 0349 0481 974 22 0327 0444 0536 0604 0602 0600 0611 0627 0650 0602 0558 0659 0895 0986 0841 0674 0552 0414 0281 0220 0249 0433 0683 0799 0841 0861 0877 0942 1052 1126 1108 1047 0943 0860 0886 1050 975 23 0474 0603 0715 0818 0822 0821 0840 0861 0885 0830 0779 0904 1216 1392 1270 1075 0916 0728 0536 0427 0452 0732 1150 1389 1488 1532 1565 1645 1772 1854 1833 1764 1647 1546 1577 1756 976 24 0783 0907 1056 1205 1241 1246 1273 1295 1315 1250 1186 1326 1704 1960 1865 1651 1464 1237 0986 0827 0859 1254 1841 2199 2360 2432 2480 2573 2709 2792 2772 2703 2581 2477 2502 2690 977 25 1252 1423 1629 1921 2021 2049 2092 2113 2123 2038 1950 2097 2516 2825 2748 2519 2304 2040 1736 1526 1563 2055 2753 3186 3385 3475 3535 3636 3774 3852 3829 3763 3645 3543 3566 3749 978 26 1928 2179 2498 3007 3268 3318 3373 3378 3373 3272 3168 3307 3750 4113 4082 3857 3631 3348 3015 2775 2797 3297 3991 4432 4648 4750 4819 4921 5048 5114 5093 5033 4933 4847 4866 5032 979 27 2786 3138 3603 4420 4890 4976 5035 5013 4975 4857 4739 4837 5200 5503 5475 5268 5065 4805 4493 4266 4280 4745 5361 5757 5966 6073 6153 6252 6363 6414 6397 6350 6278 6215 6236 6365 980 28 3857 4357 5035 6322 7145 7273 7321 7237 7153 7033 6915 6952 7168 7344 7304 7134 6977 6780 6538 6368 6358 6652 7012 7248 7399 7493 7573 7661 7748 7781 7767 7739 7703 7678 7691 7774 981 29 5010 5648 6564 8433 9738 9925 9946 9764 9615 9497 9391 9302 9225 9147 9078 8976 8908 8845 8777 8759 8718 8702 8717 8786 8888 8970 9053 9125 9175 9182 9179 9177 9193 9218 9223 9238 982 210 0231 0359 0462 0526 0529 0533 0549 0567 0581 0531 0482 0562 0750 0794 0645 0497 0396 0288 0192 0157 0186 0291 0372 0365 0350 0343 0348 0389 0474 0534 0519 0471 0389 0327 0352 0479 983 211 0286 0407 0516 0587 0590 0590 0605 0624 0644 0592 0543 0633 0843 0901 0746 0584 0470 0344 0228 0180 0209 0355 0529 0590 0605 0613 0623 0679 0779 0849 0832 0776 0681 0604 0633 0777 984 212 0319 0442 0555 0631 0629 0635 0650 0669 0689 0638 0589 0689 0923 1007 0857 0686 0559 0419 0283 0222 0251 0439 0696 0819 0862 0882 0899 0962 1072 1144 1125 1067 0963 0878 0907 1063 985 213 0404 0528 0625 0709 0705 0709 0723 0742 0765 0713 0662 0774 1040 1161 1020 0839 0699 0539 0379 0297 0327 0562 0903 1085 1157 1189 1215 1285 1405 1482 1464 1399 1287 1194 1223 1394 986 214 0504 0630 0748 0850 0856 0852 0875 0894 0920 0867 0812 0942 1261 1439 1310 1110 0946 0754 0555 0443 0472 0761 1184 1422 1520 1564 1596 1674 1802 1883 1863 1795 1677 1577 1602 1783 987 215 0645 0772 0900 1032 1055 1057 1083 1103 1126 1065 1004 1139 1486 1695 1575 1365 1188 0977 0752 0617 0650 1004 1527 1836 1970 2029 2067 2153 2285 2368 2346 2277 2156 2054 2081 2261 988 216 0860 1011 1176 1364 1418 1434 1468 1490 1511 1442 1369 1513 1904 2172 2071 1847 1643 1399 1130 0955 0985 1393 1987 2345 2505 2576 2625 2720 2855 2937 2915 2845 2723 2617 2639 2830 989 217 1075 1238 1426 1674 1753 1777 1813 1837 1852 1772 1690 1833 2239 2533 2449 2222 2013 1757 1468 1274 1306 1764 2419 2821 3004 3087 3142 3241 3380 3459 3436 3365 3245 3140 3166 3352 990 218 1311 1515 1738 2058 2189 2219 2262 2283 2294 2209 2120 2274 2715 3049 2981 2746 2521 2245 1926 1706 1733 2216 2895 3314 3508 3598 3660 3761 3899 3974 3952 3882 3768 3668 3694 3872 991 219 1773 2007 2317 2787 3019 3072 3128 3145 3140 3043 2941 3082 3523 3875 3827 3591 3356 3068 2728 2488 2506 2999 3681 4107 4312 4410 4476 4577 4708 4776 4753 4693 4584 4494 4516 4685 992 220 2218 2474 2839 3437 3758 3818 3879 3876 3860 3754 3642 3768 4190 4538 4509 4290 4072 3797 3469 3230 3253 3757 4440 4872 5088 5195 5270 5372 5495 5555 5535 5479 5389 5314 5332 5487 993 221 2676 3012 3461 4237 4687 4763 4818 4796 4757 4638 4515 4613 4979 5286 5255 5049 4848 4592 4279 4052 4076 4568 5226 5647 5863 5972 6049 6149 6260 6312 6295 6247 6172 6107 6122 6252 994 222 3221 3631 4190 5205 5814 5904 5966 5916 5854 5733 5607 5680 5988 6245 6212 6018 5827 5591 5301 5091 5097 5504 6027 6360 6542 6644 6719 6811 6912 6956 6941 6899 6840 6790 6801 6914 995 223 3853 4321 4991 6245 7042 7160 7207 7129 7046 6924 6807 6846 7067 7244 7200 7025 6861 6660 6412 6235 6225 6531 6909 7153 7309 7403 7481 7569 7657 7693 7683 7650 7607 7579 7589 7674 996 224 4399 4962 5782 7344 8373 8518 8546 8416 8301 8180 8064 8048 8138 8194 8130 7982 7857 7712 7532 7412 7389 7568 7777 7930 8051 8135 8214 8295 8365 8385 8376 8360 8342 8340 8344 8401 997 225 4998 5630 6567 8443 9752 9937 9953 9771 9615 9500 9392 9301 9222 9145 9077 8977 8913 8852 8786 8769 8730 8718 8733 8801 8899 8979 9059 9128 9173 9176 9174 9169 9183 9206 9209 9225 998 226 0239 0365 0472 0542 0547 0552 0573 0592 0603 0552 0496 0575 0764 0809 0659 0509 0407 0296 0195 0159 0188 0293 0372 0366 0352 0346 0349 0393 0478 0539 0523 0475 0392 0331 0354 0482 999 227 4990 5612 6542 8423 9758 9956 9981 9796 9638 9521 9414 9324 9240 9162 9091 8991 8924 8861 8793 8775 8734 8721 8735 8806 8906 8990 9071 9140 9185 9188 9185 9179 9196 9221 9226 9235 1000 21 0222 0348 0438 0501 0494 0495 0510 0526 0541 0495 0451 0532 0721 0772 0630 0488 0391 0285 0192 0158 0185 0288 0370 0364 0350 0344 0347 0390 0475 0537 0520 0472 0390 0328 0354 0484 1001 22 0315 0425 0525 0592 0588 0586 0599 0616 0635 0590 0546 0647 0882 0972 0830 0665 0544 0407 0277 0217 0246 0430 0682 0803 0846 0865 0883 0945 1055 1129 1112 1051 0947 0862 0891 1052 1002 23 0464 0587 0690 0779 0779 0777 0793 0813 0836 0785 0737 0863 1173 1344 1222 1033 0879 0697 0512 0408 0435 0714 1128 1363 1460 1504 1536 1616 1744 1826 1805 1737 1620 1518 1546 1730 1003 24 0780 0904 1046 1208 1254 1259 1287 1308 1329 1264 1198 1341 1725 1987 1893 1680 1487 1258 1004 0843 0874 1272 1865 2230 2393 2466 2513 2604 2740 2822 2800 2730 2605 2503 2527 2717 1004 25 1242 1409 1619 1913 2029 2047 2093 2112 2123 2038 1950 2097 2519 2832 2755 2525 2309 2041 1736 1526 1558 2046 2739 3167 3365 3454 3513 3615 3752 3830 3807 3738 3620 3519 3544 3725 1005 26 1906 2161 2479 2981 3237 3286 3340 3348 3341 3243 3140 3281 3723 4086 4054 3829 3604 3322 2989 2750 2772 3275 3970 4410 4626 4731 4801 4904 5030 5098 5077 5017 4916 4829 4851 5013 1006 27 2766 3129 3590 4417 4892 4980 5037 5014 4972 4855 4731 4823 5178 5477 5448 5241 5037 4781 4468 4243 4257 4724 5341 5737 5945 6052 6130 6230 6340 6393 6376 6329 6258 6197 6213 6344 1007 28 3847 4340 5021 6316 7154 7289 7334 7248 7163 7041 6921 6958 7176 7356 7321 7151 6996 6803 6560 6389 6378 6675 7040 7279 7425 7516 7593 7681 7766 7795 7783 7754 7719 7695 7705 7788 1008 29 5004 5652 6569 8448 9760 9949 9971 9786 9631 9513 9406 9313 9235 9157 9088 8988 8922 8861 8794 8774 8732 8716 8731 8800 8900 8983 9064 9134 9180 9184 9182 9178 9191 9219 9225 9240 1009 210 0225 0351 0444 0509 0509 0510 0528 0544 0558 0511 0464 0543 0728 0773 0626 0483 0386 0281 0189 0157 0187 0289 0369 0361 0347 0341 0344 0385 0468 0529 0513 0465 0384 0325 0346 0476 1010 211 0282 0406 0500 0573 0570 0571 0590 0606 0623 0576 0526 0616 0823 0881 0729 0571 0461 0339 0225 0180 0210 0354 0528 0588 0603 0612 0622 0677 0777 0847 0830 0775 0679 0605 0628 0780 1011 212 0335 0438 0542 0618 0615 0616 0634 0650 0669 0620 0572 0670 0902 0986 0839 0671 0547 0410 0278 0219 0249 0432 0687 0809 0852 0871 0889 0950 1057 1130 1111 1053 0951 0869 0896 1051 1012 213 0386 0512 0609 0699 0699 0701 0717 0735 0755 0704 0653 0761 1023 1144 1006 0827 0689 0531 0374 0294 0324 0554 0890 1070 1142 1172 1197 1269 1386 1463 1444 1382 1270 1176 1204 1374 1013 214 0498 0621 0735 0835 0846 0846 0865 0887 0908 0852 0799 0924 1237 1413 1288 1092 0929 0740 0546 0436 0465 0755 1190 1439 1543 1588 1620 1700 1827 1908 1889 1820 1704 1602 1628 1808 1014 215 0631 0762 0888 1018 1033 1038 1060 1081 1103 1044 0983 1119 1465 1674 1557 1349 1173 0965 0742 0607 0640 0987 1504 1813 1946 2005 2044 2130 2260 2342 2320 2253 2130 2029 2054 2237 1015 216 0838 1014 1168 1358 1416 1426 1460 1482 1503 1433 1361 1506 1904 2179 2083 1857 1653 1404 1134 0959 0984 1384 1970 2324 2483 2553 2600 2693 2830 2912 2890 2820 2697 2591 2616 2802 1016 217 1089 1263 1452 1706 1794 1816 1856 1880 1893 1812 1728 1872 2277 2568 2480 2248 2036 1775 1481 1284 1313 1764 2415 2814 2996 3078 3134 3233 3373 3452 3429 3359 3241 3133 3161 3348 1017 218 1372 1573 1811 2147 2289 2321 2368 2388 2398 2310 2216 2361 2787 3105 3032 2796 2570 2292 1973 1754 1781 2264 2942 3359 3553 3644 3707 3808 3944 4020 3998 3931 3815 3714 3738 3920 1018 219 1777 2014 2308 2763 2982 3034 3089 3105 3101 3002 2897 3035 3469 3813 3764 3530 3302 3017 2686 2450 2474 2972 3662 4094 4304 4405 4472 4576 4707 4777 4755 4692 4587 4496 4516 4685 1019 220 2160 2457 2816 3420 3735 3791 3855 3855 3837 3730 3617 3740 4152 4494 4461 4240 4021 3747 3419 3182 3207 3719 4410 4850 5069 5179 5254 5356 5479 5540 5520 5465 5374 5300 5320 5473 1020 221 2677 3006 3451 4237 4688 4767 4829 4808 4767 4648 4527 4622 4988 5291 5255 5047 4841 4583 4269 4041 4062 4550 5203 5621 5837 5948 6026 6124 6237 6292 6273 6225 6149 6085 6100 6237 1021 222 3228 3627 4191 5195 5803 5912 5966 5919 5861 5738 5615 5686 5999 6258 6229 6034 5843 5604 5313 5101 5105 5513 6041 6378 6566 6670 6749 6842 6944 6990 6977 6935 6873 6824 6832 6947 1022 223 3816 4309 4968 6241 7040 7162 7212 7129 7048 6927 6807 6847 7077 7259 7220 7044 6881 6678 6429 6254 6242 6545 6918 7161 7313 7409 7487 7575 7662 7697 7688 7656 7613 7580 7592 7676 1023 224 4422 4981 5786 7343 8372 8525 8559 8431 8318 8196 8080 8065 8155 8209 8144 7998 7874 7726 7546 7426 7402 7577 7788 7938 8059 8145 8222 8304 8373 8393 8385 8367 8353 8347 8353 8412 1024 225 4978 5609 6540 8439 9772 9972 9991 9803 9643 9521 9414 9320 9238 9159 9088 8989 8924 8864 8797 8779 8738 8724 8739 8807 8902 8985 9063 9132 9177 9182 9179 9172 9188 9214 9212 9229 1025 226 0738 0612 0513 0468 0417 0382 0360 0356 0368 0336 0315 0389 0526 0544 0438 0360 0332 0294 0242 0222 0351 1428 3915 6173 7414 7974 8232 8383 8484 8524 8533 8526 8529 8541 8552 8604 1026 227 0763 1433 2489 3833 4696 5394 6281 6910 7088 7092 6951 6741 6393 5804 4973 3994 3033 2111 1300 0776 0518 0398 0317 0269 0260 0264 0276 0327 0416 0478 0463 0415 0333 0276 0305 0443 1027 21 0236 0341 0437 0506 0497 0503 0516 0533 0546 0498 0455 0536 0729 0785 0644 0499 0399 0290 0194 0158 0185 0286 0364 0357 0342 0336 0338 0381 0463 0522 0508 0460 0379 0321 0346 0472 1028 22 0303 0428 0504 0573 0566 0562 0573 0590 0609 0568 0526 0628 0863 0955 0816 0653 0534 0400 0272 0214 0243 0420 0664 0781 0823 0841 0857 0919 1028 1099 1082 1021 0921 0837 0865 1025 1029 23 0479 0583 0693 0793 0797 0797 0811 0832 0853 0803 0754 0881 1197 1379 1261 1070 0911 0725 0533 0425 0451 0728 1145 1384 1483 1526 1557 1636 1761 1841 1821 1753 1636 1539 1568 1743 1030 24 0732 0882 1016 1165 1204 1211 1228 1250 1270 1208 1144 1285 1664 1921 1829 1620 1433 1209 0963 0807 0837 1228 1809 2164 2321 2390 2435 2527 2661 2741 2719 2648 2527 2423 2450 2633 1031 25 1230 1393 1595 1880 1990 2013 2049 2070 2080 1997 1910 2054 2468 2774 2699 2472 2260 1998 1697 1492 1525 2011 2703 3130 3324 3413 3470 3569 3706 3784 3762 3694 3577 3474 3498 3681 1032 26 1919 2157 2471 2985 3238 3286 3344 3346 3339 3241 3140 3279 3721 4089 4065 3842 3618 3340 3010 2774 2796 3297 3992 4430 4641 4742 4808 4907 5030 5094 5072 5011 4916 4831 4849 5011 1033 27 2750 3109 3566 4375 4837 4912 4972 4945 4905 4791 4670 4766 5123 5424 5397 5193 4991 4736 4426 4201 4216 4680 5296 5690 5895 5999 6076 6174 6283 6335 6316 6269 6196 6137 6154 6281 1034 28 3851 4333 4995 6276 7093 7217 7258 7172 7093 6975 6859 6900 7116 7293 7255 7084 6927 6732 6489 6318 6308 6603 6961 7193 7336 7426 7502 7588 7671 7700 7690 7661 7625 7598 7611 7698 1035 29 4965 5595 6518 8419 9761 9950 9961 9770 9609 9491 9383 9295 9217 9143 9079 8984 8924 8867 8803 8788 8748 8738 8750 8807 8887 8955 9024 9085 9126 9126 9125 9120 9130 9153 9154 9172 1036 210 0251 0346 0448 0507 0512 0510 0528 0541 0557 0509 0463 0544 0734 0783 0638 0493 0395 0288 0193 0159 0187 0288 0364 0356 0340 0334 0336 0377 0459 0517 0504 0457 0375 0315 0342 0469 1037 211 0280 0393 0497 0565 0566 0563 0580 0600 0618 0569 0522 0614 0823 0884 0733 0573 0461 0338 0224 0179 0207 0350 0520 0580 0596 0602 0613 0666 0766 0833 0818 0763 0668 0593 0617 0765 1038 212 0303 0441 0536 0609 0612 0609 0624 0642 0662 0613 0568 0667 0900 0986 0840 0673 0549 0411 0281 0222 0251 0434 0690 0816 0861 0880 0896 0957 1063 1134 1117 1059 0955 0874 0900 1058 1039 213 0395 0505 0607 0688 0692 0691 0706 0725 0746 0697 0649 0759 1025 1148 1010 0832 0692 0533 0377 0297 0326 0554 0890 1070 1140 1171 1196 1265 1382 1459 1439 1376 1265 1174 1202 1369 1040 214 0499 0603 0714 0811 0808 0806 0822 0839 0863 0813 0765 0893 1211 1390 1269 1075 0915 0728 0538 0430 0458 0738 1156 1393 1491 1533 1563 1643 1767 1847 1828 1761 1644 1545 1573 1749 1041 215 0637 0756 0877 1002 1020 1026 1046 1066 1088 1030 0968 1100 1439 1641 1524 1318 1145 0938 0720 0589 0622 0968 1485 1795 1928 1984 2024 2107 2237 2316 2296 2225 2107 2006 2031 2213 1042 216 0847 0991 1152 1336 1391 1402 1434 1457 1477 1409 1340 1484 1880 2154 2059 1835 1633 1387 1118 0947 0973 1369 1949 2301 2455 2523 2569 2662 2795 2876 2854 2785 2664 2557 2582 2770 1043 217 1066 1232 1423 1663 1742 1765 1802 1827 1838 1761 1677 1819 2224 2514 2428 2202 1991 1733 1445 1251 1280 1728 2374 2766 2944 3026 3080 3178 3316 3397 3372 3300 3182 3076 3104 3294 1044 218 1372 1566 1811 2148 2285 2318 2370 2392 2398 2311 2219 2364 2788 3108 3035 2798 2574 2296 1978 1758 1784 2263 2937 3353 3546 3633 3692 3790 3925 3999 3975 3909 3795 3694 3716 3903 1045 219 1755 1993 2283 2754 2976 3026 3080 3094 3088 2994 2893 3034 3473 3830 3788 3558 3329 3046 2714 2479 2500 2995 3682 4109 4314 4409 4473 4572 4701 4769 4748 4685 4581 4490 4511 4678 1046 220 2172 2448 2806 3407 3728 3787 3841 3843 3825 3719 3607 3732 4151 4499 4471 4253 4036 3761 3435 3198 3223 3732 4424 4857 5071 5174 5246 5348 5467 5526 5505 5450 5363 5288 5309 5457 1047 221 2615 2959 3401 4180 4621 4692 4755 4729 4691 4574 4453 4551 4918 5225 5192 4986 4783 4526 4213 3988 4011 4506 5164 5581 5796 5902 5981 6080 6192 6244 6223 6174 6098 6039 6054 6188 1048 222 3195 3604 4153 5165 5783 5884 5939 5891 5831 5712 5587 5661 5974 6239 6210 6017 5827 5589 5300 5088 5093 5504 6029 6362 6545 6644 6720 6812 6911 6956 6941 6900 6837 6788 6799 6912 1049 223 3804 4277 4944 6232 7059 7180 7225 7139 7052 6928 6809 6848 7074 7260 7223 7052 6890 6692 6445 6270 6261 6567 6941 7181 7325 7411 7485 7569 7654 7689 7676 7644 7599 7567 7577 7661 1050 224 4423 4958 5758 7317 8365 8517 8549 8420 8304 8185 8069 8052 8141 8195 8132 7981 7858 7711 7532 7411 7388 7567 7777 7929 8046 8125 8199 8279 8349 8368 8359 8338 8318 8313 8319 8380 1051 225 4938 5574 6503 8414 9760 9952 9964 9777 9617 9498 9393 9300 9220 9143 9078 8980 8919 8861 8796 8781 8740 8728 8741 8805 8894 8967 9040 9104 9148 9150 9146 9140 9151 9175 9176 9192 1052 226 1340 1199 1015 0881 0718 0591 0515 0519 0622 0662 0729 1290 3008 5499 7070 7581 7758 7796 7711 7611 7728 8070 8238 8337 8441 8528 8612 8687 8741 8753 8753 8745 8757 8780 8783 8809 1053 227 0398 0689 1066 1508 1793 2037 2330 2413 2232 1927 1607 1323 1064 0800 0562 0409 0321 0226 0150 0139 0181 0282 0363 0359 0345 0340 0342 0382 0464 0521 0506 0462 0382 0324 0348 0473 1054 21 0237 0329 0431 0493 0489 0491 0508 0524 0538 0489 0446 0527 0719 0777 0637 0493 0394 0286 0191 0158 0184 0284 0362 0354 0339 0333 0336 0376 0458 0515 0501 0452 0375 0316 0343 0463 1055 22 0313 0419 0503 0575 0572 0567 0578 0594 0615 0570 0528 0626 0856 0947 0808 0646 0529 0396 0271 0214 0243 0418 0658 0771 0809 0827 0843 0903 1009 1080 1064 1003 0903 0822 0846 1004 1056 23 0470 0577 0676 0768 0767 0772 0784 0804 0826 0778 0729 0855 1168 1347 1230 1040 0884 0700 0513 0408 0434 0705 1112 1346 1441 1483 1513 1591 1715 1795 1775 1709 1593 1495 1522 1701 1057 24 0743 0871 1010 1159 1200 1198 1224 1246 1265 1201 1139 1279 1658 1916 1825 1619 1434 1212 0966 0812 0843 1229 1807 2161 2318 2388 2432 2523 2656 2738 2715 2646 2523 2420 2446 2631 1058 25 1206 1378 1579 1864 1968 1991 2030 2050 2057 1973 1885 2028 2442 2755 2686 2465 2256 1998 1701 1500 1534 2021 2719 3153 3351 3440 3498 3596 3732 3810 3787 3719 3602 3500 3525 3707 1059 26 1875 2110 2420 2925 3180 3230 3280 3290 3283 3185 3083 3224 3668 4040 4014 3794 3572 3293 2965 2728 2751 3252 3948 4385 4594 4693 4759 4857 4982 5045 5025 4964 4865 4780 4803 4962 1060 27 2727 3060 3514 4329 4807 4884 4948 4925 4886 4769 4649 4745 5104 5410 5386 5182 4977 4723 4410 4183 4204 4671 5290 5683 5886 5992 6068 6166 6275 6326 6304 6255 6187 6129 6151 6283 1061 28 3814 4281 4960 6247 7077 7199 7245 7158 7078 6958 6842 6885 7107 7289 7253 7087 6927 6734 6489 6316 6311 6614 6976 7205 7347 7436 7514 7601 7685 7715 7700 7673 7641 7623 7637 7727 1062 29 4959 5590 6506 8386 9711 9894 9909 9723 9568 9454 9346 9257 9178 9104 9034 8935 8871 8808 8741 8723 8683 8671 8684 8750 8846 8928 9003 9072 9117 9121 9120 9117 9133 9160 9157 9180 1063 210 0233 0349 0443 0505 0502 0504 0522 0535 0553 0502 0458 0538 0728 0780 0639 0495 0397 0291 0196 0163 0190 0289 0364 0356 0340 0333 0335 0375 0455 0512 0498 0451 0373 0315 0340 0462 1064 211 0293 0386 0491 0560 0558 0565 0580 0598 0613 0565 0519 0606 0814 0876 0727 0568 0457 0334 0222 0178 0205 0343 0508 0566 0581 0587 0598 0650 0747 0814 0797 0743 0649 0577 0599 0746 1065 212 0309 0434 0524 0604 0601 0601 0617 0634 0653 0604 0558 0656 0887 0972 0827 0660 0538 0402 0273 0214 0243 0422 0669 0789 0831 0849 0865 0926 1032 1104 1085 1028 0928 0845 0868 1025 1066 213 0392 0500 0611 0690 0691 0692 0711 0729 0749 0697 0648 0757 1018 1137 0999 0821 0684 0525 0370 0291 0319 0549 0890 1073 1144 1175 1198 1268 1385 1461 1441 1378 1269 1179 1200 1371 1067 214 0504 0606 0716 0819 0827 0826 0843 0862 0886 0838 0785 0914 1234 1417 1292 1095 0930 0739 0545 0434 0460 0741 1157 1392 1488 1529 1560 1636 1761 1840 1818 1751 1637 1537 1564 1743 1068 215 0598 0745 0876 1011 1033 1041 1063 1082 1106 1045 0983 1114 1451 1652 1530 1323 1147 0938 0719 0587 0618 0958 1469 1772 1901 1957 1994 2075 2203 2284 2260 2191 2073 1974 1999 2180 1069 216 0821 0969 1123 1305 1354 1368 1398 1420 1437 1369 1300 1443 1833 2106 2014 1794 1593 1351 1088 0919 0944 1336 1917 2267 2423 2492 2539 2630 2765 2845 2822 2752 2630 2525 2550 2733 1070 217 1047 1215 1398 1645 1735 1758 1798 1818 1830 1751 1667 1808 2214 2512 2433 2208 1996 1739 1451 1258 1285 1731 2384 2786 2969 3051 3105 3201 3339 3418 3393 3325 3203 3100 3124 3314 1071 218 1350 1546 1783 2127 2272 2302 2354 2376 2382 2293 2199 2344 2769 3094 3025 2790 2565 2287 1971 1750 1776 2257 2934 3352 3546 3635 3695 3792 3929 4003 3980 3913 3798 3696 3718 3901 1072 219 1724 1971 2255 2710 2925 2974 3027 3041 3037 2940 2839 2981 3422 3777 3733 3505 3277 2996 2665 2430 2455 2952 3642 4071 4276 4374 4439 4540 4670 4740 4716 4652 4547 4456 4480 4644 1073 220 2169 2433 2800 3391 3706 3766 3820 3822 3804 3699 3590 3719 4138 4490 4459 4239 4019 3745 3415 3178 3200 3703 4387 4817 5030 5135 5208 5308 5429 5489 5470 5414 5323 5247 5264 5420 1074 221 2626 2960 3397 4179 4620 4698 4759 4737 4699 4584 4461 4558 4923 5228 5195 4985 4778 4518 4204 3977 3996 4485 5140 5557 5772 5881 5959 6060 6174 6225 6208 6157 6081 6015 6035 6169 1075 222 3185 3579 4122 5140 5761 5864 5920 5869 5807 5686 5562 5636 5953 6224 6199 6008 5820 5583 5293 5083 5090 5499 6028 6362 6543 6642 6715 6808 6909 6951 6938 6893 6831 6782 6793 6902 1076 223 3781 4252 4924 6218 7064 7184 7231 7144 7059 6934 6813 6851 7075 7257 7221 7048 6888 6687 6441 6267 6255 6560 6934 7174 7320 7407 7480 7565 7651 7684 7672 7638 7597 7564 7575 7659 1077 224 4395 4937 5727 7294 8343 8493 8530 8397 8284 8165 8051 8034 8124 8178 8113 7965 7841 7697 7516 7395 7375 7557 7765 7911 8030 8112 8188 8266 8336 8353 8344 8329 8309 8305 8314 8377 1078 225 4977 5597 6526 8430 9778 9967 9982 9791 9631 9514 9405 9314 9235 9158 9093 8996 8932 8876 8809 8792 8752 8740 8755 8818 8908 8983 9054 9118 9165 9166 9163 9158 9170 9196 9198 9213 1079 226 0332 0533 0710 0789 0732 0676 0648 0687 0808 0856 0919 1442 2805 4174 4316 3657 2835 2001 1256 0778 0544 0435 0359 0309 0296 0298 0306 0352 0436 0497 0482 0434 0356 0299 0326 0454 1080 227 1622 1558 1576 1819 2026 2147 2255 2172 1894 1539 1203 0929 0702 0498 0342 0273 0259 0230 0196 0210 0354 1398 3874 6160 7429 7996 8256 8403 8498 8533 8546 8547 8553 8569 8580 8624 ] def %END RX1F } if %ybunta=2 %***************************************************************************** %END spectral reflection data, cmyn6*, 1080 colours, offset A,B,L,G, printer P %END 'RF38'OUTLIN1Y2_PK8621.PS %END_OUTLIN1Y_PK8621********************************************************** /BeginEPSF {% def % Prepare for EPS file /b4_Inc_state save def % Save state for cleanup /dict_count countdictstack def /op_count count 1 sub def % Count objects on op stack userdict begin % Make userdict current dict /showpage {} def 0 setgray 0 setlinecap 1 setlinewidth 0 setlinejoin 10 setmiterlimit [] 0 setdash newpath /languagelevel where % If level not equal to 1 then {pop languagelevel where % If level not equal to 1 then 1 ne {false setstrokeadjust false setoverprint } if } if } bind def /EndEPSF {% def % End for EPS file count op_count sub {pop} repeat countdictstack dict_count sub {end} repeat % Clean up dict stack b4_Inc_state restore } bind def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /A4querF {598 0 translate 90 rotate} def /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def %ANFA CMYKDEF %CMYKDEA0 (A0=Standard-Drucker-CMYKDEF) 15.3.97 /tzac [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzam [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzay [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzan [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tza0 [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000] def /tza1 [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000] def %ENDE CMYKD /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfiLAB* %x y width heigth LAB* { setcolor rec fill} bind def /colrecstLAB* %x y width heigth LAB* { setcolor rec stroke} bind def /colrecficmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec fill} bind def /colrecstcmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec stroke} bind def /colrecfiw* %x y width heigth w* { setgray rec fill} bind def /colrecstw* %x y width heigth w* { setgray rec stroke} bind def /colrecfiolv* %x y width heigth olv* { setrgbcolor rec fill} bind def /colrecstolv* %x y width heigth olv* { setrgbcolor rec stroke} bind def /tzocmy0* {0.0 1.0 1.0 0.0} bind def %Reproduction colours /tzlcmy0* {1.0 0.0 1.0 0.0} bind def %cmyn* setcmykcolor /tzvcmy0* {1.0 1.0 0.0 0.0} bind def /tzccmy0* {1.0 0.0 0.0 0.0} bind def /tzmcmy0* {0.0 1.0 0.0 0.0} bind def /tzycmy0* {0.0 0.0 1.0 0.0} bind def /tzoolv* {1.0 0.0 0.0} bind def %Reproduction colours /tzlolv* {0.0 1.0 0.0} bind def %olv* setrgbcolor /tzvolv* {0.0 0.0 1.0} bind def /tzcolv* {0.0 1.0 1.0} bind def /tzmolv* {1.0 0.0 1.0} bind def /tzyolv* {1.0 1.0 0.0} bind def /tzoLAB* [53.34 72.46 50.66] def %Reproduction colours /tzlLAB* [84.93 -79.83 74.80] def %LAB* setcolor /tzvLAB* [32.20 24.88 -37.89] def /tzcLAB* [88.10 -44.88 -13.36] def /tzmLAB* [59.66 90.32 -19.65] def /tzyLAB* [93.76 -20.24 85.93] def /tzncmy0* {1.00 1.00 1.00 0.00} bind def %grey series /tzdcmy0* {0.75 0.75 0.75 0.00} bind def %cmy0* setcmykcolor /tzzcmy0* {0.50 0.50 0.50 0.00} bind def /tzhcmy0* {0.25 0.25 0.25 0.00} bind def /tzwcmy0* {0.00 0.00 0.00 0.00} bind def /tzn000n* {0.00 0.00 0.00 1.00} bind def %grey series 000n* /tzd000n* {0.00 0.00 0.00 0.75} bind def %000n* setcmykcolor /tzz000n* {0.00 0.00 0.00 0.50} bind def /tzh000n* {0.00 0.00 0.00 0.25} bind def /tzw000n* {0.00 0.00 0.00 0.00} bind def /tznw* {0.00} bind def %grey series /tzdw* {0.25} bind def %w* setgray /tzzw* {0.50} bind def /tzhw* {0.75} bind def /tzww* {1.00} bind def /tznolv* {0.00 0.00 0.00} bind def %grey series /tzdolv* {0.25 0.25 0.25} bind def %olv* setrgbcolor /tzzolv* {0.50 0.50 0.50} bind def /tzholv* {0.75 0.75 0.75} bind def /tzwolv* {1.00 1.00 1.00} bind def /tznLAB* [18.01 0.00 0.00] def %grey series /tzdLAB* [37.36 0.00 0.00] def %LAB* setcolor /tzzLAB* [56.71 0.00 0.00] def /tzhLAB* [76.06 0.00 0.00] def /tzwLAB* [95.41 0.00 0.00] def /tfn {0 setgray} bind def /tfw {1 setgray} bind def %%EndProlog %*********************************************************** %%BeginPageSetup /#copies 1 def %A4querF 1.0 1.0 scale /pgsave save def %%EndPageSetup /SS$ [(G) (E) (S) (F) (I) (J) (M)] def /SC$ [(N) (F) (S) (D) (T) (E) (C)] def /SX$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def /SY$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def % 0 1 2 3 4 5 % 6 7 8 /EX$ [(A.TXT /.PS) (B.BMP /.PS) (G.GIF /.PS) (H.HTM /.PS) (I.HTM /.PS) (J.JPE /.PS) (P.PDF /.PS) (T.TIF /.PS)] def /EY$ [(A.DAT) (B.DAT) (G.DAT) (H.DAT) (I.DAT) (J.DAT) (P.DAT) (T.DAT)] def %******************************************************************* /lanind1f 03 def /lanind2f 03 def /laninddf 01 def /colorm1f 01 def /colorm2f 01 def /colormdf 01 def /deintp1f 01 def /deintp2f 01 def /deintpdf 01 def /xcolor1f 03 def /xcolor2f 03 def /xcolordf 01 def /xchart1f 00 def /xchart2f 32 def /xchartdf 01 def %0-1,2-5,6-16,17-32 /xchart3f 01 def /xchart4f 15 def /xchart5f 02 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 % xchart1f xchartdf xchart2f {/xchartf exch def %/pchartf pchart1f def % /pchartf pchart1f def %pchart1f pchartdf pchart2f {/pchartf exch def %/colsepf colsep1f def % /colsepf colsep1f def %colsep1f colsepdf colsep2f {/colsepf exch def /lanind lanindf def /colorm colormf def /deintp deintpf def /xcolor xcolorf def /xchart xchartf def /xchartm xchart2f xchart1f sub 1 add def /xchart3 xchart3f def /xchart3PXX xchart3 15 add def /xchart4 xchart4f def /pchart pchartf def /colsep colsepf def %/pmetamf pmetam1f def % /pmetamf pmetam1f def %pmetam1f pmetamdf pmetam2f {/pmetamf exch def /pmetam pmetamf def %************************************************************* xchart xchart3 lt {%xchart=xchart3 for CM %BEG special for ColorInterpolation /xchartj pchart def %sRGB, Lr=0%, pchart=3 /hei -1 def /heM -1 def /ausz 8 def /xchartt (F) def %necessary PROC_LAB_IOF %PROC_RX0F_IOF PROC_COLSEP_IOF colorm 1 eq {PROC_COLINT_IOF} if %PROC_COLINT_IOF %PROC_SPEC_IOF %Colordata_sRGB_F %new %setcolortrans_F %new proc_LAB729a_to_LAB*LabCh64M proc_LAB*LabCh64M_to_tab362_dy %END special for ColorInterpolation %********************************************************* } ifelse %xchart>=xchart3 for CM xchart xchart3PXX le {72 90 translate} {72 56 translate} ifelse 0.01 MM dup scale %0 0 moveto 24600 0 rlineto 0 17220 rlineto % -24600 0 rlineto closepath stroke 200 -180 moveto 180 /Times-ISOL1 FS lanindf cvishow (-) show colormf cvishow deintpf cvishow xcolorf cvishow xchartf cvishow pchartf cvishow colsepf cvishow (-F) show pmetamf cvishow grestore gsave /GSS$ SS$ lanind get def /GSC$ SC$ colorm get def /GSX$ SX$ xcolor xcolor 16 idiv 16 mul sub get def /GSY$ SY$ xchart xchart 16 idiv 16 mul sub get def /GEX$ EX$ 0 get def /GEY$ EY$ 0 get def %01 %02 %03 %04 %05 %06 %07 %08 %09 %10 %11 %12 %13 %14 xchart xchart3PXX le {%xchart<=xchart3PXX %gsave BeginEPSF 28 MM 197 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto 1 1 scale -77 -91 translate %%BeginDocument: Bild 10 %line 329 %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto 1 1 scale -77 -91 translate %%BeginDocument: Bild 11 %line 339 %!PS-Adobe-3.0 EPSF-3.0 RF380-1, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (RF380-1,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 12 %line 349 %!PS-Adobe-3.0 EPSF-3.0 RF380-2, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (RF380-2,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 13 %line 359 %!PS-Adobe-3.0 EPSF-3.0 RF380-3, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (RF380-3,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 14 %line 369 %!PS-Adobe-3.0 EPSF-3.0 RF380-4, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (RF380-4,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 15 %line 379 %!PS-Adobe-3.0 EPSF-3.0 RF380-5, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (RF380-5,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 16 %line 389 %!PS-Adobe-3.0 EPSF-3.0 RF380-6, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (RF380-6,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF /xc1 16 def /yc1 12 def /xt 1 def xchart 1 eq {/xt 1 def} if 28 MM 3 MM sub xt 0 eq {16 MM sub} if 20 MM xt 0 eq {12 MM sub} if translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 17 %line 399 %!PS-Adobe-3.0 EPSF-3.0 RF380-7N.EPS %%BoundingBox: 70 82 786 582 %START PDFDE011.EPS /pdfmark07 where {pop} {userdict /pdfmark07 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/RF38/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.richter@mac.com) /CreationDate (D:2012030112000) /ModDate (D:2012030112000) /DOCINFO pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 %END PDFDE011 %line 20 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /A4quer {598 0 translate 90 rotate} def % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /TK0 {250 /Times-ISOL1 FS} bind def /TM0 {300 /Times-ISOL1 FS} bind def /TG0 {350 /Times-ISOL1 FS} bind def /TIK0 {250 /TimesI-ISOL1 FS} bind def /TIM0 {300 /TimesI-ISOL1 FS} bind def /TIG0 {350 /TimesI-ISOL1 FS} bind def /TBK0 {250 /TimesB-ISOL1 FS} bind def /TBM0 {300 /TimesB-ISOL1 FS} bind def /TBG0 {350 /TimesB-ISOL1 FS} bind def /TBIK0 {250 /TimesBI-ISOL1 FS} bind def /TBIM0 {300 /TimesBI-ISOL1 FS} bind def /TBIG0 {350 /TimesBI-ISOL1 FS} bind def /CKK0 {200 /Courier-ISOL1 FS} bind def /CK0 {250 /Courier-ISOL1 FS} bind def /CM0 {300 /Courier-ISOL1 FS} bind def /CG0 {350 /Courier-ISOL1 FS} bind def /CBKK0 {200 /CourierB-ISOL1 FS} bind def /CBK0 {250 /CourierB-ISOL1 FS} bind def /CBM0 {300 /CourierB-ISOL1 FS} bind def /CBG0 {350 /CourierB-ISOL1 FS} bind def /TV1 {160 /Times-ISOL1 FS} bind def /TS1 {200 /Times-ISOL1 FS} bind def /TK1 {250 /Times-ISOL1 FS} bind def /TM1 {300 /Times-ISOL1 FS} bind def /TG1 {350 /Times-ISOL1 FS} bind def /TIV1 {160 /TimesI-ISOL1 FS} bind def /TIS1 {200 /TimesI-ISOL1 FS} bind def /TIK1 {250 /TimesI-ISOL1 FS} bind def /TIM1 {300 /TimesI-ISOL1 FS} bind def /TIG1 {350 /TimesI-ISOL1 FS} bind def /TBV1 {160 /TimesB-ISOL1 FS} bind def /TBS1 {200 /TimesB-ISOL1 FS} bind def /TBK1 {250 /TimesB-ISOL1 FS} bind def /TBM1 {300 /TimesB-ISOL1 FS} bind def /TBG1 {350 /TimesB-ISOL1 FS} bind def /TBIV1 {080 /TimesBI-ISOL1 FS} bind def /TBIS1 {100 /TimesBI-ISOL1 FS} bind def /TBIK1 {250 /TimesBI-ISOL1 FS} bind def /TBIM1 {300 /TimesBI-ISOL1 FS} bind def /TBIG1 {350 /TimesBI-ISOL1 FS} bind def /CBKK {200 /CourierB-ISOL1 FS} bind def /CBK {250 /CourierB-ISOL1 FS} bind def /CBM {300 /CourierB-ISOL1 FS} bind def /CBG {350 /CourierB-ISOL1 FS} bind def /CBKKK {160 /CourierB-ISOL1 FS} bind def /TV {080 /Times-ISOL1 FS} bind def /TS {100 /Times-ISOL1 FS} bind def /TK {125 /Times-ISOL1 FS} bind def /TM {140 /Times-ISOL1 FS} bind def /TG {175 /Times-ISOL1 FS} bind def /TIV {080 /TimesI-ISOL1 FS} bind def /TIS {100 /TimesI-ISOL1 FS} bind def /TIK {125 /TimesI-ISOL1 FS} bind def /TIM {140 /TimesI-ISOL1 FS} bind def /TIG {175 /TimesI-ISOL1 FS} bind def /TBV {080 /TimesB-ISOL1 FS} bind def /TBS {100 /TimesB-ISOL1 FS} bind def /TBK {125 /TimesB-ISOL1 FS} bind def /TBM {140 /TimesB-ISOL1 FS} bind def /TBG {175 /TimesB-ISOL1 FS} bind def /TBIV {080 /TimesBI-ISOL1 FS} bind def /TBIS {100 /TimesBI-ISOL1 FS} bind def /TBIK {125 /TimesBI-ISOL1 FS} bind def /TBIM {140 /TimesBI-ISOL1 FS} bind def /TBIG {175 /TimesBI-ISOL1 FS} bind def /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def %************************************************************ /RGB54CR_L 162 array def %54x3=162 /RGB54CR_L [%54 colours of colour rendering (CR) test chart 1.000 0.000 0.000 %01 R00Yd %RGB54CR 1.000 0.250 0.000 %02 R25Yd 1.000 0.500 0.000 %03 R50Yd 1.000 0.750 0.000 %04 R75Yd 1.000 1.000 0.000 %05 Y00Gd 0.750 1.000 0.000 %06 Y25Gd 0.500 1.000 0.000 %07 Y50Gd 0.250 1.000 0.000 %08 Y75Gd 0.000 1.000 0.000 %09 G00Bd = 10 0.000 1.000 0.000 %10 G00Bd 0.000 1.000 0.500 %11 G25Bd 0.000 1.000 1.000 %12 G50Bd 0.000 0.500 1.000 %13 G75Bd 0.000 0.000 1.000 %14 B00Rd 0.500 0.000 1.000 %15 B25Rd 1.000 0.000 1.000 %16 B50Rd 1.000 0.000 0.500 %17 B75Rd 1.000 0.000 0.000 %18 R00Yd = 01 1.000 0.500 0.500 %19 R00Yd %lcolors 1.000 0.750 0.500 %20 R50Yd 1.000 1.000 0.500 %21 Y00Gd 0.750 1.000 0.500 %22 Y50Gd 0.500 1.000 0.500 %23 G00Bd 0.500 1.000 1.000 %24 G50Bd 0.500 0.500 1.000 %25 B00Rd 1.000 0.500 1.000 %26 B50Rd 1.000 0.500 0.500 %27 R00Yd = 19 0.750 0.250 0.250 %28 R00Yd %zcolors 0.750 0.500 0.250 %29 R50Yd 0.750 0.750 0.250 %30 Y00Gd 0.500 0.750 0.250 %31 Y50Gd 0.250 0.750 0.250 %32 G00Bd 0.250 0.750 0.750 %33 G50Bd 0.250 0.250 0.750 %34 B00Rd 0.750 0.250 0.750 %35 B50Rd 0.750 0.250 0.250 %36 R00Yd = 28 0.500 0.000 0.000 %37 R00Yd %dcolors 0.500 0.250 0.000 %38 R50Yd 0.500 0.500 0.000 %38 Y00Gd 0.250 0.500 0.000 %40 Y50Gd 0.000 0.500 0.000 %41 G00Bd 0.000 0.500 0.500 %42 G50Bd 0.000 0.000 0.500 %43 B00Rd 0.500 0.000 0.500 %44 B50Rd 0.500 0.000 0.000 %45 R00Yd = 37 0.000 0.000 0.000 %46 N00Wd %ncolors 0.125 0.125 0.125 %47 N13Wd 0.250 0.250 0.250 %48 N25Md 0.375 0.375 0.375 %49 N38Wd 0.500 0.500 0.500 %50 N50Wd 0.625 0.625 0.625 %51 N63Wd 0.750 0.750 0.750 %52 N75Wd 0.875 0.875 0.875 %53 N88Wd 1.000 1.000 1.000 %54 W00Nd = W ] def %54 colours of colour rendering test chart /RGB54CRt_L 54 array def /RGB54CRt_L [%high chromatic series: %relative hue h*, brillance i*, and chroma c*, range 0 ... 100 (R00Y_100_100) (R25Y_100_100) (R50Y_100_100) (R75Y_100_100) (Y00G_100_100) (Y25G_100_100) (Y50G_100_100) (Y75G_100_100) (G00B_100_100) (G00B_100_100) (G25B_100_100) (G50B_100_100) (G75B_100_100) (B00R_100_100) (B25R_100_100) (B50R_100_100) (B75R_100_100) (R00Y_100_100) %whitetish series (R00Y_100_050) (R50Y_100_050) (Y00G_100_050) (Y50G_100_050) (G00B_100_050) (G50B_100_050) (B00R_100_050) (B50R_100_050) (R00Y_100_050) %grayish series (R00Y_075_050) (R50Y_075_050) (Y00G_075_050) (Y50G_075_050) (G00B_075_050) (G50B_075_050) (B00R_075_050) (B50R_075_050) (R00Y_075_050) %blackish series (R00Y_050_050) (R50Y_050_050) (Y00G_050_050) (Y50G_050_050) (G00B_050_050) (G50B_050_050) (B00R_050_050) (B50R_050_050) (R00Y_050_050) %gray series (NW_000) (NW_013) (NW_025) (NW_038) (NW_050) (NW_063) (NW_075) (NW_088) (NW_100) ] def /RGB54CM_L 162 array def %54x3=162 /RGB54CM_L [%54 colours of colour rendering metamers (CM) test chart 0.750 0.250 0.250 %01 R00Yd %RGB54CM, zcolors 0.750 0.500 0.250 %02 R50Yd 0.750 0.750 0.250 %03 Y00Gd 0.500 0.750 0.250 %04 Y50Gd 0.250 0.750 0.250 %05 G00Bd 0.250 0.750 0.750 %06 G50Bd 0.250 0.250 0.750 %07 B00Rd 0.750 0.250 0.750 %08 B50Rd 0.750 0.250 0.250 %09 R00Yd = 28 0.750 0.250 0.250 %10 R00Yd %RGB54CM, zcolors 0.750 0.500 0.250 %11 R50Yd 0.750 0.750 0.250 %12 Y00Gd 0.500 0.750 0.250 %13 Y50Gd 0.250 0.750 0.250 %14 G00Bd 0.250 0.750 0.750 %15 G50Bd 0.250 0.250 0.750 %16 B00Rd 0.750 0.250 0.750 %17 B50Rd 0.750 0.250 0.250 %18 R00Yd = 28 0.750 0.250 0.250 %19 R00Yd %RGB54CM, zcolors 0.750 0.500 0.250 %20 R50Yd 0.750 0.750 0.250 %21 Y00Gd 0.500 0.750 0.250 %22 Y50Gd 0.250 0.750 0.250 %23 G00Bd 0.250 0.750 0.750 %24 G50Bd 0.250 0.250 0.750 %25 B00Rd 0.750 0.250 0.750 %26 B50Rd 0.750 0.250 0.250 %27 R00Yd = 28 0.000 0.000 0.000 %28 N00Wd %ncolors 0.125 0.125 0.125 %29 N13Wd 0.250 0.250 0.250 %30 N25Md 0.375 0.375 0.375 %31 N38Wd 0.500 0.500 0.500 %32 N50Wd 0.625 0.625 0.625 %33 N63Wd 0.750 0.750 0.750 %34 N75Wd 0.875 0.875 0.875 %35 N88Wd 1.000 1.000 1.000 %36 W00Nd = W 0.000 0.000 0.000 %37 N00Wd %ncolors 0.125 0.125 0.125 %38 N13Wd 0.250 0.250 0.250 %39 N25Md 0.375 0.375 0.375 %40 N38Wd 0.500 0.500 0.500 %41 N50Wd 0.625 0.625 0.625 %42 N63Wd 0.750 0.750 0.750 %43 N75Wd 0.875 0.875 0.875 %44 N88Wd 1.000 1.000 1.000 %45 W00Nd = W 0.000 0.000 0.000 %46 N00Wd %ncolors 0.125 0.125 0.125 %47 N13Wd 0.250 0.250 0.250 %48 N25Md 0.375 0.375 0.375 %49 N38Wd 0.500 0.500 0.500 %50 N50Wd 0.625 0.625 0.625 %51 N63Wd 0.750 0.750 0.750 %52 N75Wd 0.875 0.875 0.875 %53 N88Wd 1.000 1.000 1.000 %54 W00Nd = W ] def %54 colours of colour rendering test chart /RGB54CMt_L 54 array def /RGB54CMt_L [%3 times chromatic grayish series, 3 times gray series %relative hue h*, brillance i*, and chroma c*, range 0 ... 100 %grayish series (R00Y_075_050) (R50Y_075_050) (Y00G_075_050) (Y50G_075_050) (G00B_075_050) (G50B_075_050) (B00R_075_050) (B50R_075_050) (R00Y_075_050) %grayish series (R00Y_075_050) (R50Y_075_050) (Y00G_075_050) (Y50G_075_050) (G00B_075_050) (G50B_075_050) (B00R_075_050) (B50R_075_050) (R00Y_075_050) %grayish series (R00Y_075_050) (R50Y_075_050) (Y00G_075_050) (Y50G_075_050) (G00B_075_050) (G50B_075_050) (B00R_075_050) (B50R_075_050) (R00Y_075_050) %gray series (NW_000) (NW_013) (NW_025) (NW_038) (NW_050) (NW_063) (NW_075) (NW_088) (NW_100) %gray series (NW_000) (NW_013) (NW_025) (NW_038) (NW_050) (NW_063) (NW_075) (NW_088) (NW_100) %gray series (NW_000) (NW_013) (NW_025) (NW_038) (NW_050) (NW_063) (NW_075) (NW_088) (NW_100) ] def %****************************************************** /F49col00 147 array def %48+1x3 /F49col00 [%Hue circle no. 0 to 47+1; hue circle de 1.000 0.000 0.000 %00 r00ye r00yd %standard e or d interpretation 1.000 0.125 0.000 %01 r12ye r12yd 1.000 0.250 0.000 %02 r25ye r25yd 1.000 0.375 0.000 %03 r37ye r37yd 1.000 0.500 0.000 %04 r50ye r50yd 1.000 0.625 0.000 %05 r62ye r62yd 1.000 0.750 0.000 %06 r75ye r75yd 1.000 0.875 0.000 %07 r87ye r87yd 1.000 1.000 0.000 %08 y00ge y00gd 0.875 1.000 0.000 %09 y12ge y12gd 0.750 1.000 0.000 %10 y25ge y25gd 0.625 1.000 0.000 %11 y37ge y37gd 0.500 1.000 0.000 %12 y50ge y50gd 0.375 1.000 0.000 %13 y62ge y62gd 0.250 1.000 0.000 %14 y75ge y75gd 0.125 1.000 0.000 %15 y87ge y87gd 0.000 1.000 0.000 %16 g00be g00cd 0.000 1.000 0.125 %17 g06be g12cd 0.000 1.000 0.250 %18 g12be g25cd 0.000 1.000 0.375 %19 g18be g37cd 0.000 1.000 0.500 %20 g25be g50cd 0.000 1.000 0.625 %21 g31be g62cd 0.000 1.000 0.750 %22 g37be g75cd 0.000 1.000 0.875 %23 g43be g87cd 0.000 1.000 1.000 %24 g50be c00bd 0.000 0.875 1.000 %25 g56be c12bd 0.000 0.750 1.000 %26 g62be c25bd 0.000 0.625 1.000 %27 g68be c37bd 0.000 0.500 1.000 %28 g75be c50bd 0.000 0.375 1.000 %29 g81be c62bd 0.000 0.250 1.000 %30 g87be c75bd 0.000 0.125 1.000 %31 g93be c87bd 0.000 0.000 1.000 %32 b00re b00md 0.125 0.000 1.000 %33 b06re b12md 0.250 0.000 1.000 %34 b12re b25md 0.375 0.000 1.000 %35 b18re b37md 0.500 0.000 1.000 %36 b24re b50md 0.625 0.000 1.000 %37 b31re b67md 0.750 0.000 1.000 %38 b37re b75md 0.875 0.000 1.000 %39 b43re b87md 1.000 0.000 1.000 %40 b50re m00rd 1.000 0.000 0.875 %41 b56re m12rd 1.000 0.000 0.750 %42 b62re m25rd 1.000 0.000 0.625 %43 b68re m37rd 1.000 0.000 0.500 %44 b75re m50rd 1.000 0.000 0.375 %45 b81re m62rd 1.000 0.000 0.250 %46 b87re m75rd 1.000 0.000 0.125 %47 b93re m87rd 1.000 0.000 0.000 %48 r00ye r00yd no. 0 ] def /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show ( ) show} def /cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show ( ) show} def /cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show ( ) show} def /tfn {0.00 0.00 0.00 setrgbcolor} bind def /tfd {0.25 0.25 0.25 setrgbcolor} bind def /tfz {0.50 0.50 0.50 setrgbcolor} bind def /tfh {0.75 0.75 0.75 setrgbcolor} bind def /tfw {1.00 1.00 1.00 setrgbcolor} bind def /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /rem %x0, y0 width heigth {/heigth exch def /width exch def /y0 exch def /x0 exch def x0 width 0.5 mul add y0 heigth 0.5 mul add moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /outrecfi { %x y width heigth c m y k rec fill} bind def /outrecst { %x y width heigth c m y k rec stroke} bind def %******************************************************************* /proc_rgb_dyF_LAB*'dyF {%BEG proc_rgb_dyF_LAB*'dyF /R01000 r_dyF 1000 mul def /G01000 g_dyF 1000 mul def /B01000 b_dyF 1000 mul def R01000 0.04045 le %equations of IEC 61966-2-1:2003 {/RsRGB R01000 12.92 div def} {/RsRGB R01000 0.001 mul 0.055 add 1.055 div 2.4 exp def} ifelse G01000 0.04045 le {/GsRGB G01000 12.92 div def} {/GsRGB G01000 0.001 mul 0.055 add 1.055 div 2.4 exp def} ifelse B01000 0.04045 le {/BsRGB B01000 12.92 div def} {/BsRGB B01000 0.001 mul 0.055 add 1.055 div 2.4 exp def} ifelse /X*'dyF 0.4124 RsRGB mul 0.3576 GsRGB mul add 0.1805 BsRGB mul add 88.59 mul def /Y*'dyF 0.2126 RsRGB mul 0.7152 GsRGB mul add 0.0722 BsRGB mul add 88.59 mul def /Z*'dyF 0.0193 RsRGB mul 0.1192 GsRGB mul add 0.9505 BsRGB mul add 88.59 mul def % achromatic (D65) colours /XLWD65100 95.04 def /YLWD65100 100.00 def /ZLWD65100 108.88 def /XQ X*'dyF XLWD65100 div def /YQ Y*'dyF YLWD65100 div def /ZQ Z*'dyF ZLWD65100 div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if /L*'dyF YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse def /a*'dyF XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul def /b*'dyF YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul def /C*'dyF a*'dyF dup mul b*'dyF dup mul add 0.0001 add sqrt def /h*'dyF b*'dyF a*'dyF 0.0001 add atan def } bind def %END proc_rgb_dyF_LAB*'dyF %******************************************************** /proc_rgb'*dyF_LAB'*dyF {%BEG proc_rgb'*dyF_LAB'*dyF /R01000 r'*dyF 1000 mul def /G01000 g'*dyF 1000 mul def /B01000 b'*dyF 1000 mul def R01000 0.04045 le %equations of IEC 61966-2-1:2003 {/RsRGB R01000 12.92 div def} {/RsRGB R01000 0.001 mul 0.055 add 1.055 div 2.4 exp def} ifelse G01000 0.04045 le {/GsRGB G01000 12.92 div def} {/GsRGB G01000 0.001 mul 0.055 add 1.055 div 2.4 exp def} ifelse B01000 0.04045 le {/BsRGB B01000 12.92 div def} {/BsRGB B01000 0.001 mul 0.055 add 1.055 div 2.4 exp def} ifelse /X'*dyF 0.4124 RsRGB mul 0.3576 GsRGB mul add 0.1805 BsRGB mul add 88.59 mul def /Y'*dyF 0.2126 RsRGB mul 0.7152 GsRGB mul add 0.0722 BsRGB mul add 88.59 mul def /Z'*dyF 0.0193 RsRGB mul 0.1192 GsRGB mul add 0.9505 BsRGB mul add 88.59 mul def % achromatic (D65) colours /XLWD65100 95.04 def /YLWD65100 100.00 def /ZLWD65100 108.88 def /XQ X'*dyF XLWD65100 div def /YQ Y'*dyF YLWD65100 div def /ZQ Z'*dyF ZLWD65100 div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if /L'*dyF YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse def /a'*dyF XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul def /b'*dyF YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul def /C'*dyF a'*dyF dup mul b'*dyF dup mul add 0.0001 add sqrt def /h'*dyF b'*dyF a'*dyF 0.0001 add atan def } bind def %END proc_rgb'*dyF_LAB'*dyF %************************************************************* /proc_LAB*ioL {%BEG Procedure proc_LAB*ioL %requires ISRL*ioL=0,1,3 /RJGBLAB* 12 array def /RJGBLAB*[ 39.92 58.74 27.99 % R CIE No.09 elementary colours in LAB, D65 81.26 -2.89 71.56 % J CIE No.10 52.23 -42.42 13.60 % G CIE No.11 30.57 1.41 -46.47 % B CIE No.12 ] def /LAB* 132 array def %12x3=36 including N,W + 16x3=48 elementary system + 16x3=48 device system /LAB*a 132 array def /LAB*Hx 13 array def %0_to_6 8_to_12 for device and elemetary colours /LAB*00 24 array def /LAB*01 24 array def /LAB*02 24 array def /LAB*03 24 array def /LAB*04 24 array def /LAB*05 24 array def /LAB*06 24 array def /LAB*07 24 array def /LAB*TE %used in file and frame [(ORS18) (TLS00) (FRS06) (TSL18) (NLS00) (NLS18) (SRS18) (TLS70) (TLS00) (TLS06) (TLS11) (TLS18) (TLS27) (TLS38) (TLS52) (TLS70) (OLS00) (OLS06) (OLS11) (OLS18) (OLS27) (OLS38) (OLS52) (OLS70)] def %FRS09_92.DAT: measured data are not dapated here; 55 lines, 141:195 ISRL*ioL 0 eq { %ISRL*ioL=0 /LAB*00 [%D=Device OYLCVMO+NW %for Offset Reflective System (ORS18) 47.94 65.31 52.07 %O 0 90.37 -11.16 96.17 %Y 1 50.90 -62.97 36.71 %L 2 58.62 -30.63 -42.75 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 25.72 31.45 -44.36 %V 4 48.13 75.20 -6.80 %M 5 18.01 0.50 -0.47 %N 7 95.41 -0.99 4.76 %W 8 %ZE45N_CM_OF_080602_1080.TXT, 1080 colours, 20080602, Matching OFF $ (FRS09_92) %100 x LAB* %#1000 x (r g b c m y 0) %nr. pos $ %0035.06 0060.53 0039.66 %#1000 0000 0000 0000 1000 1000 0000 %0648 S19 %O1 0 $ %0083.77 -004.50 0103.15 %#1000 1000 0000 0000 0000 1000 0000 %0720 a19 %Y1 1 $ %0044.13 -062.11 0043.56 %#0000 1000 0000 1000 0000 1000 0000 %0072 I01 %L1 2 $ %0052.66 -028.56 -036.99 %#0000 1000 1000 1000 0000 0000 0000 %0080 I09 %C1 3 $ %0014.15 0050.78 -062.60 %#0000 0000 1000 1000 1000 0000 0000 %0008 A09 %V1 4 $ %0037.37 0079.18 -037.93 %#1000 0000 1000 0000 1000 0000 0000 %0656 S27 %M1 5 $ %0008.58 0000.46 -003.35 %#0000 0000 0000 1000 1000 1000 0000 %0000 A01 %N1 6 $ %0092.02 0000.69 -006.48 %#1000 1000 1000 0000 0000 0000 0000 %0728 a27 %W1 7 $ %$ %0035.87 0060.76 0039.80 %#1000 0000 0000 0000 1000 1000 0000 %0801 j01 %O2 0 $ %0083.76 -004.64 0102.56 %#1000 1000 0000 0000 0000 1000 0000 %0882 j10 %Y2 1 $ %0043.65 -062.07 0043.08 %#0000 1000 0000 1000 0000 1000 0000 %0963 j19 %L2 2 $ %0052.82 -028.73 -036.80 %#0000 1000 1000 1000 0000 0000 0000 %0737 b09 %C2 3 $ %0013.33 0052.23 -063.40 %#0000 0000 1000 1000 1000 0000 0000 %0818 b18 %V2 4 $ %0037.56 0079.25 -037.75 %#1000 0000 1000 0000 1000 0000 0000 %0899 b27 %M2 5 $ %0008.16 0000.62 -003.84 %#0000 0000 0000 1000 1000 1000 0000 %0809 j09 %N2 6 $ %0092.07 0000.62 -006.26 %#1000 1000 1000 0000 0000 0000 0000 %0729 b01 %W2 7 $ %$ %ZE45N_CM_OF_080602_1080.TXT, 1080 colours, 20080602, Matching OFF $ (FRS09_92a) %100 x LAB*a %#1000 x (r g b c m y 0) %nr. pos $ %0035.06 0059.99 0044.01 %#1000 0000 0000 0000 1000 1000 0000 %0648 S19 %O1 0 $ %0083.77 -005.16 0109.32 %#1000 1000 0000 0000 0000 1000 0000 %0720 a19 %Y1 1 $ %0044.13 -062.67 0048.25 %#0000 1000 0000 1000 0000 1000 0000 %0072 I01 %L1 2 $ %0052.66 -029.15 -031.98 %#0000 1000 1000 1000 0000 0000 0000 %0080 I09 %C1 3 $ %0014.15 0050.30 -059.03 %#0000 0000 1000 1000 1000 0000 0000 %0008 A09 %V1 4 $ %0037.37 0078.64 -033.49 %#1000 0000 1000 0000 1000 0000 0000 %0656 S27 %M1 5 $ %0008.58 0000.00 0000.00 %#0000 0000 0000 1000 1000 1000 0000 %0000 A01 %N1 6 $ %0092.02 0000.00 0000.00 %#1000 1000 1000 0000 0000 0000 0000 %0728 a27 %W1 7 $ %$ %0035.87 0060.13 0044.44 %#1000 0000 0000 0000 1000 1000 0000 %0801 j01 %O2 0 $ %0083.76 -005.27 0108.59 %#1000 1000 0000 0000 0000 1000 0000 %0882 j10 %Y2 1 $ %0043.65 -062.69 0047.95 %#0000 1000 0000 1000 0000 1000 0000 %0963 j19 %L2 2 $ %0052.82 -029.35 -031.67 %#0000 1000 1000 1000 0000 0000 0000 %0737 b09 %C2 3 $ %0013.33 0051.60 -059.41 %#0000 0000 1000 1000 1000 0000 0000 %0818 b18 %V2 4 $ %0037.56 0078.62 -033.06 %#1000 0000 1000 0000 1000 0000 0000 %0899 b27 %M2 5 $ %0008.16 0000.00 0000.00 %#0000 0000 0000 1000 1000 1000 0000 %0809 j09 %N2 6 $ %0092.07 0000.00 0000.00 %#1000 1000 1000 0000 0000 0000 0000 %0729 b01 %W2 7 $ %$ ] def %OYLCVMO+NW /LAB*01 [%D=Device OYLCVMO+NW %for Television Luminous System (TLS00) 50.50 76.92 64.55 %O 0 92.66 -20.70 90.75 %Y 1 83.63 -82.76 79.90 %L 2 86.88 -46.17 -13.56 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 30.39 76.06 -103.6 %V 4 corected 57.30 94.35 -58.42 %M 5 corected 00.01 0.00 0.00 %N 7 corected 95.41 0.00 0.00 %W 8 ] def %OYLCVMO+NW /LAB*02 [%D=Device OYLCVMO+NW %for Device Reflective System (FRS06. FUJI) 32.57 61.14 43.72 %8-0-0 O-W 0 olv* setrgbcolor 64 82.73 -3.51 109.24 %8-8-0 Y-W 1 olv* setrgbcolor 32 39.43 -62.87 42.80 %0-8-0 L-W 2 olv* setrgbcolor 80 47.86 -27.73 -37.62 %0-8-8 C-W 3 olv* setrgbcolor 0 actual printer 10.16 53.56 -62.92 %0-0-8 V-W 4 olv* setrgbcolor 96 34.50 79.53 -36.77 %8-0-8 M-W 5 olv* setrgbcolor 16 06.25 -1.63 -1.73 %0-0-0 N-W 6 olv* setrgbcolor 48 91.97 -0.18 -5.11 %8-8-8 A-W 7 olv* setrgbcolor ] def %OYLCVMO+NW /LAB*03 [%D=Device OYLCVMO+NW %for Television Luminous System (TLS18) 52.76 71.63 49.88 %O 0 92.74 -20.03 84.97 %Y 1 84.00 -78.99 73.94 %L 2 87.14 -44.42 -13.12 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 35.47 64.92 -95.07 %V 4 %see TABle X of ISO/IEC TR 24705:2005-10 59.01 89.33 -55.68 %M 5 %see Annex A, www.ps.bam.de/RLABE.PDF 18.01 0.00 0.00 %N 6 Yr=2.52 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW /LAB*04 [%Natural symmetric Luminous System OYLCVMO+NW (NLS00) 31.81 82.62 47.70 %O 0 95.40/2 = 47.70 63.61 00.00 95.40 %Y 1 C*ab = 95.40 31.81 -82.62 47.70 %L 2 0.866 C*ab = 0.866 * 95.40 = 82.62 63.61 -82.62 -47.70 %C 3 delta L*=25.8 31.81 00.00 -95.40 %V 4 43.81=00.01+31.80 63.61 82.62 -47.70 %M 5 69.61=00.01+2*31.80 00.01 0.00 0.00 %N 6 95.40/3 = 31.80 95.41 0.00 0.00 %W 7 95.40*(2/3) = 63.60 ] def %CVMOYLC+NW /LAB*05 [%Natural symmetric Luminous System OYLCVMO+NW (NLS18) 43.81 67.03 38.70 %O 0 77.40/2 = 38.70 69.61 00.00 77.40 %Y 1 C*ab = 77.40 43.81 -67.03 38.70 %L 2 0.866 C*ab = 67.03 69.61 -67.03 -38.70 %C 3 delta L*=25.8 43.81 00.00 -77.40 %V 4 43.81=18.01+25.80 69.61 67.03 -38.70 %M 5 69.61=18.01+2*25.80 18.01 0.00 0.00 %N 6 18.01+77.40/3 = 18.01+25.80=43.81 95.41 0.00 0.00 %W 7 18.01+77.40*(2/3) = 18.01+51.60=69.61 ] def %CVMOYLC+NW /LAB*06 [%Symmetric Reflective System OYLCVMO+NW (SRS18) 56.71 67.03 38.70 %O 0 18.01 + 77.40*0.5 = 18.01 + 38.70 = 56.71 56.71 00.00 77.40 %Y 1 C*ab = 77.40 56.71 -67.03 38.70 %L 2 0.866 C*ab = 67.03 56.71 -67.03 -38.70 %C 3 delta L*=25.8 56.71 00.00 -77.40 %V 4 43.81=18.01+25.80 56.71 67.03 -38.70 %M 5 69.61=18.01+2*25.80 18.01 0.00 0.00 %N 6 95.41 0.00 0.00 %W 7 95.41=18.01+3*25.80 ] def %CVMOYLC+NW /LAB*07 [%D=Device OYLCVMO+NW %for Television Luminous System (TLS70) 76.43 26.27 10.57 %O 0 93.93 -10.77 34.63 %Y 1 89.32 -35.81 27.64 %L 2 90.93 -21.96 -7.08 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 72.10 15.76 -35.64 %V 4 78.50 37.52 -25.24 %M 5 69.70 0.00 0.00 %N 6 Yr=40.32 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW } if %ISRL*ioL=0 ISRL*ioL 1 eq { %ISRL*ioL=1 /LAB*00 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS00) 50.50 76.91 64.55 %O 0 92.66 -20.68 90.75 %Y 1 83.62 -82.74 79.90 %L 2 86.88 -46.15 -13.54 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 30.39 76.06 -103.6 %V 4 %see TABle X of ISO/IEC TR 24705:2005-10 57.31 94.35 -58.40 %M 5 %see Annex A, www.ps.bam.de/RLABE.PDF 00.01 0.00 0.00 %N 6 Yr=0.00 95.41 0.00 0.00 %W 7 ] def %CVMOYLC+NW /LAB*01 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS06) 51.08 75.54 59.69 %O 0 92.68 -20.51 89.24 %Y 1 83.72 -81.79 78.32 %L 2 86.94 -45.72 -13.43 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 31.77 72.91 -101.3 %V 4 57.74 93.06 -57.71 %M 5 05.69 0.00 0.00 %N 6 Yr=0.63 95.41 0.00 0.00 %W 7 ] def %CVMOYLC+NW /LAB*02 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS11) 51.65 74.20 55.83 %O 0 92.70 -20.35 87.77 %Y 1 83.81 -80.85 76.81 %L 2 87.01 -45.28 -13.33 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 33.06 70.03 -99.09 %V 4 58.17 91.80 -57.03 %M 5 10.99 0.00 0.00 %N 6 Yr=1.26 95.41 0.00 0.00 %W 7 ] def %CVMOYLC+NW /LAB*03 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS18) 52.76 71.63 49.88 %O 0 92.74 -20.03 84.97 %Y 1 84.00 -78.99 73.94 %L 2 87.14 -44.42 -13.12 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 35.47 64.92 -95.07 %V 4 %see TABle X of ISO/IEC TR 24705:2005-10 59.01 89.33 -55.68 %M 5 %see Annex A, www.ps.bam.de/RLABE.PDF 18.01 0.00 0.00 %N 6 Yr=2.52 95.41 0.00 0.00 %W 7 ] def %CVMOYLC+NW /LAB*04 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS27) 54.88 66.84 41.69 %O 0 92.82 -19.39 79.81 %Y 1 84.37 -75.39 68.76 %L 2 87.40 -42.72 -12.70 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 39.70 56.66 -88.02 %V 4 60.64 84.61 -53.08 %M 5 26.85 0.00 0.00 %N 6 Yr=5.04 95.41 0.00 0.00 %W 7 ] def %CVMOYLC+NW /LAB*05 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS38) 58.77 58.45 31.73 %O 0 92.98 -18.11 70.81 %Y 1 85.11 -68.58 60.02 %L 2 87.92 -39.42 -11.87 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 46.64 44.93 -76.56 %V 4 63.71 75.92 -48.22 %M 5 37.99 0.00 0.00 %N 6 Yr=10.08 95.41 0.00 0.00 %W 7 ] def %CVMOYLC+NW /LAB*06 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS52) 65.53 45.06 20.98 %O 0 93.30 -15.61 56.27 %Y 1 86.55 -56.31 46.52 %L 2 88.94 -33.19 -10.24 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 57.17 30.66 -59.40 %V 4 69.22 60.95 -39.57 %M 5 52.02 0.00 0.00 %N 6 Yr=20.16 95.41 0.00 0.00 %W 7 ] def %CVMOYLC+NW /LAB*07 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS70) 76.43 26.27 10.57 %O 0 93.93 -10.77 34.63 %Y 1 89.32 -35.81 27.64 %L 2 90.93 -21.96 -7.08 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 72.10 15.76 -35.64 %V 4 78.50 37.52 -25.24 %M 5 69.70 0.00 0.00 %N 6 Yr=40.32 95.41 0.00 0.00 %W 7 ] def %CVMOYLC+NW } if %ISRL*ioL=1 ISRL*ioL 2 eq { %ISRL*ioL=2 /LAB*00 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS00) 45.14 71.37 75.54 %O 0 90.22 -10.60 99.51 %Y 1 48.45 -73.19 42.21 %L 2 56.88 -33.11 -47.41 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 16.48 45.84 -56.22 %V 4 %see TABle X of ISO/IEC TR 24705:2005-10 45.36 81.85 -9.29 %M 5 %see Annex A, www.ps.bam.de/RLABE.PDF 00.01 0.00 0.00 %N 6 Yr=0.00 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW /LAB*01 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS06) 45.87 69.79 66.99 %O 0 90.25 -10.51 97.42 %Y 1 49.08 -70.28 40.08 %L 2 57.33 -32.38 -46.80 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 19.26 40.73 -52.47 %V 4 46.07 80.12 -9.04 %M 5 05.69 0.00 0.00 %N 6 Yr=0.63 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW /LAB*02 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS11) 46.57 68.27 59.62 %O 0 90.29 -10.43 95.45 %Y 1 49.70 -67.60 38.19 %L 2 57.76 -31.68 -46.19 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 21.67 36.81 -49.37 %V 4 46.77 78.45 -8.80 %M 5 10.99 0.00 0.00 %N 6 Yr=1.26 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW /LAB*03 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS18) 47.94 65.39 50.52 %O 0 90.37 -10.26 91.75 %Y 1 50.90 -62.83 34.96 %L 2 58.62 -30.34 -45.01 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 25.72 31.10 -44.40 %V 4 %see TABle X of ISO/IEC TR 24705:2005-10 48.13 75.28 -8.36 %M 5 %see Annex A, www.ps.bam.de/RLABE.PDF 18.01 0.00 0.00 %N 6 Yr=2.52 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW /LAB*04 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS27) 50.51 60.17 40.13 %O 0 90.52 -9.92 85.20 %Y 1 53.18 -55.04 30.00 %L 2 60.28 -27.91 -42.75 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 32.06 24.02 -37.32 %V 4 50.68 69.50 -7.57 %M 5 26.85 0.00 0.00 %N 6 Yr=5.04 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW /LAB*05 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS38) 55.13 51.42 29.16 %O 0 90.83 -9.25 74.37 %Y 1 57.35 -43.84 23.35 %L 2 63.39 -23.83 -38.56 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 41.26 16.67 -28.49 %V 4 55.27 59.74 -6.32 %M 5 37.99 0.00 0.00 %N 6 Yr=10.08 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW /LAB*06 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS52) 62.90 38.38 18.55 %O 0 91.44 -7.95 57.91 %Y 1 64.49 -30.06 15.67 %L 2 68.98 -17.74 -31.24 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 53.87 10.09 -18.84 %V 4 63.00 44.96 -4.56 %M 5 52.02 0.00 0.00 %N 6 Yr=20.16 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW /LAB*07 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS70) 75.01 21.53 9.07 %O 0 92.64 -5.45 34.85 %Y 1 75.86 -15.50 7.96 %L 2 78.37 -9.90 -19.51 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 70.54 4.74 -9.47 %V 4 75.07 25.47 -2.46 %M 5 69.70 0.00 0.00 %N 6 Yr=40.32 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW } if %ISRL*ioL=2 0 1 11 {/sISO exch def %sISO=0,11 /i30 sISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def sISO 7 le { %sISO=0,7 ISIO*ioL 0 eq { %ORS18/TLS00/OLS00 LAB* i30 LAB*00 i30 get put LAB* i31 LAB*00 i31 get put LAB* i32 LAB*00 i32 get put } if ISIO*ioL 1 eq { %TLS00/TLS06/OLS06 LAB* i30 LAB*01 i30 get put LAB* i31 LAB*01 i31 get put LAB* i32 LAB*01 i32 get put } if ISIO*ioL 2 eq { %FRS06/TLS11/OLS11 LAB* i30 LAB*02 i30 get put LAB* i31 LAB*02 i31 get put LAB* i32 LAB*02 i32 get put } if ISIO*ioL 3 eq { %TLS18/TLS18/OLS18 LAB* i30 LAB*03 i30 get put LAB* i31 LAB*03 i31 get put LAB* i32 LAB*03 i32 get put } if ISIO*ioL 4 eq { %NLS00/TSL28/OLS28 LAB* i30 LAB*04 i30 get put LAB* i31 LAB*04 i31 get put LAB* i32 LAB*04 i32 get put } if ISIO*ioL 5 eq { %NRS18/TLS38/OLS38 LAB* i30 LAB*05 i30 get put LAB* i31 LAB*05 i31 get put LAB* i32 LAB*05 i32 get put } if ISIO*ioL 6 eq { %SRS18/TLS50/OLS50 LAB* i30 LAB*06 i30 get put LAB* i31 LAB*06 i31 get put LAB* i32 LAB*06 i32 get put } if ISIO*ioL 7 eq { %TLS70/TLS70/OLS70 LAB* i30 LAB*07 i30 get put LAB* i31 LAB*07 i31 get put LAB* i32 LAB*07 i32 get put } if } %sISO=0,7 {%sISO=8,11 %Definition 8 to 11 (24 to 35=33+2) /jISO sISO 8 sub def /j30 jISO 3 mul def /j31 j30 1 add def /j32 j30 2 add def LAB* i30 RJGBLAB* j30 get put LAB* i31 RJGBLAB* j31 get put LAB* i32 RJGBLAB* j32 get put LAB*a i30 LAB* i30 get put LAB*a i31 LAB* i31 get put LAB*a i32 LAB* i32 get put } ifelse } for %sISO=0,11 % possible change of LAB*a according to reduced gamut %LAB* = 20 for Black N %LAB* = 95 for White W %cfakt = (95 - 20)/(95.41 - 18.01) = 0.969 %LAB*L*Nn = 20 for Black N instead of LAB*L*N = 18,01 %LAB*L*Wn = 95 for White W instead of LAB*L*W = 95,41 %LAB*L*Zn = 20+(95-20)/2=57,5 for Grey Z instead of %LAB*L*Z = 18,01+(95,41-18,01)/2=56,71 %L*neu = L*alt + (1 - cfakt %For achromatic %deltaLmean = 57,5 (1-c*neu); 56,71 (1-c*alt) %deltaLmimu = 20,0 (1-c*neu); 18,01 (1-c*alt) %deltaLplus = 95,0 (1-c*neu); 95,41 (1-c*alt) %For chromatic M %deltaLmean = L*Ma,neu; L*Ma,alt = known %C*Ma,alt known, C*Ma,neu known /L*Nio LAB* 18 get def /A*Nio LAB* 19 get def /B*Nio LAB* 20 get def /L*Wio LAB* 21 get def /A*Wio LAB* 22 get def /B*Wio LAB* 23 get def /L*Wioref L*Wio def /L*Nioref L*Nio def /cfakt 1 def %/cfakt L*Wioref L*Nioref sub L*Wio L*Nio sub div def cfakt 1 ne {%cfakt#1 %change of lightness for Maximum colour /l*CIEN L*Nioref L*Nio sub L*Wio L*Nio sub div def /l*CIEW L*Wioref L*Nio sub L*Wio L*Nio sub div def %LAB* 18 L*Nioref put %defined change of lightness and chroma a*,b* for N LAB* 19 A*Nio A*Wio A*Nio sub l*CIEN mul add put LAB* 20 B*Nio B*Wio B*Nio sub l*CIEN mul add put %LAB* 21 L*Wioref put %defined change of lightness and chroma a*,b* for W LAB* 22 A*Nio A*Wio A*Nio sub l*CIEW mul add put LAB* 23 B*Nio B*Wio B*Nio sub l*CIEW mul add put %change of chroma by factor cfakt 0 1 07 {/iISO exch def /i30 iISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def /l*CIEL LAB* i30 get L*Nio sub L*Wio L*Nio sub div def LAB* i30 L*Nioref L*Wioref L*Nioref sub l*CIEL mul add put LAB* i31 LAB* i31 get cfakt mul put LAB* i32 LAB* i32 get cfakt mul put } for } if %cfakt#1 /L*Nior LAB* 18 get def %r=reference for reverse transform /A*Nior LAB* 19 get def /B*Nior LAB* 20 get def /L*Wior LAB* 21 get def /A*Wior LAB* 22 get def /B*Wior LAB* 23 get def 0 1 7 {/iISO exch def %iISO=0,7 /i30 iISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def /l*CIE LAB* i30 get L*Nior sub L*Wior L*Nior sub div def /a*sr A*Wior A*Nior sub l*CIE mul def /b*sr B*Wior B*Nior sub l*CIE mul def LAB*a i30 LAB* i30 get put LAB*a i31 LAB* i31 get A*Nior sub a*sr sub put LAB*a i32 LAB* i32 get B*Nior sub b*sr sub put } for /L*Nio LAB*a 18 get def %=18.01 /A*Nio LAB*a 19 get def %=0 /B*Nio LAB*a 20 get def %=0 /L*Wio LAB*a 21 get def %=95.41 /A*Wio LAB*a 22 get def %=0 /B*Wio LAB*a 23 get def %=0 /A*Dio A*Wio A*Nio sub def %=0 /B*Dio B*Wio B*Nio sub def %=0 /cLAB*s0 3 array def %C cyan blue /vLAB*s0 3 array def %V violet blue /mLAB*s0 3 array def %M magenta red /oLAB*s0 3 array def %O orange red /yLAB*s0 3 array def %Y yellow /lLAB*s0 3 array def %L leaf green /nLAB*s0 3 array def %N black /wLAB*s0 3 array def %W white /rLAB*s0 3 array def %R elementary red /jLAB*s0 3 array def %J elementary yellow /gLAB*s0 3 array def %G elementary green /bLAB*s0 3 array def %B elementary blue %Determine Matrix data input or output data oLAB*s0 0 LAB*a 0 get L*Nio sub put oLAB*s0 1 LAB*a 1 get put oLAB*s0 2 LAB*a 2 get put yLAB*s0 0 LAB*a 3 get L*Nio sub put yLAB*s0 1 LAB*a 4 get put yLAB*s0 2 LAB*a 5 get put lLAB*s0 0 LAB*a 6 get L*Nio sub put lLAB*s0 1 LAB*a 7 get put lLAB*s0 2 LAB*a 8 get put cLAB*s0 0 LAB*a 9 get L*Nio sub put cLAB*s0 1 LAB*a 10 get put cLAB*s0 2 LAB*a 11 get put vLAB*s0 0 LAB*a 12 get L*Nio sub put vLAB*s0 1 LAB*a 13 get put vLAB*s0 2 LAB*a 14 get put mLAB*s0 0 LAB*a 15 get L*Nio sub put mLAB*s0 1 LAB*a 16 get put mLAB*s0 2 LAB*a 17 get put nLAB*s0 0 LAB*a 18 get L*Nio sub put nLAB*s0 1 LAB*a 19 get put nLAB*s0 2 LAB*a 20 get put wLAB*s0 0 LAB*a 21 get L*Nio sub put wLAB*s0 1 LAB*a 22 get put wLAB*s0 2 LAB*a 23 get put rLAB*s0 0 LAB*a 24 get L*Nio sub put rLAB*s0 1 LAB*a 25 get put rLAB*s0 2 LAB*a 26 get put jLAB*s0 0 LAB*a 27 get L*Nio sub put jLAB*s0 1 LAB*a 28 get put jLAB*s0 2 LAB*a 29 get put gLAB*s0 0 LAB*a 30 get L*Nio sub put gLAB*s0 1 LAB*a 31 get put gLAB*s0 2 LAB*a 32 get put bLAB*s0 0 LAB*a 33 get L*Nio sub put bLAB*s0 1 LAB*a 34 get put bLAB*s0 2 LAB*a 35 get put % Determine the input or output angle in the A* B* plane % of each of the colours defined above /C*Ang cLAB*s0 2 get cLAB*s0 1 get 0.0001 add atan def /V*Ang vLAB*s0 2 get vLAB*s0 1 get 0.0001 add atan def /M*Ang mLAB*s0 2 get mLAB*s0 1 get 0.0001 add atan def /O*Ang oLAB*s0 2 get oLAB*s0 1 get 0.0001 add atan def /Y*Ang yLAB*s0 2 get yLAB*s0 1 get 0.0001 add atan def /L*Ang lLAB*s0 2 get mLAB*s0 1 get 0.0001 add atan def /N*Ang 0 def /W*Ang 0 def /R*Ang rLAB*s0 2 get rLAB*s0 1 get 0.0001 add atan def /J*Ang jLAB*s0 2 get jLAB*s0 1 get 0.0001 add atan def /G*Ang gLAB*s0 2 get gLAB*s0 1 get 0.0001 add atan def /B*Ang bLAB*s0 2 get bLAB*s0 1 get 0.0001 add atan def %6+1 hue angles for 6 device colour (index 0 to 06) %4+1 hue angles for 4 elementary colours (index 8 to 12) %no. 6 and 7 originaly achromatic 0 1 11 {/iHx exch def /i1x iHx 3 mul 1 add def /i2x i1x 1 add def LAB*Hx iHx LAB*a i2x get LAB*a i1x get 0.000001 add atan put } for LAB*Hx 06 LAB*Hx 00 get 360 add put LAB*Hx 12 LAB*Hx 08 get 360 add put %6 Hue angles of elementary and intermediate colours e=RJGCgbBMbr /LAB*He 7 array def LAB*He 0 LAB*Hx 08 get put %R LAB*He 1 LAB*Hx 09 get put %J LAB*He 2 LAB*Hx 10 get put %G LAB*He 3 LAB*Hx 10 get LAB*Hx 11 get add 0.5 mul put %Cgb LAB*He 4 LAB*Hx 11 get put %B LAB*He 5 LAB*Hx 11 get LAB*Hx 08 get 360 add add 0.5 mul put %Mbr LAB*He 6 LAB*Hx 08 get 360 add put %R(+360) %6 Hue angles of device and intermediate colours d=OYLCVMO /LAB*Hd 7 array def LAB*Hd 0 LAB*Hx 00 get put %O LAB*Hd 1 LAB*Hx 01 get put %Y LAB*Hd 2 LAB*Hx 02 get put %L LAB*Hd 3 LAB*Hx 03 get put %C LAB*Hd 4 LAB*Hx 04 get put %V LAB*Hd 5 LAB*Hx 05 get put %M LAB*Hd 6 LAB*Hx 00 get 360 add put %O(+360) /COLhNam16 16 array def /COLhNam16 [(R00Y) (R25Y) (R50Y) (R75Y) (Y00G) (Y25G) (Y50G) (Y75G) (G00B) (G25B) (G50B) (G75B) (B00R) (B25R) (B50R) (B75R) ] def } bind def %END Procedure proc_LAB*ioL %*********************************************************** %%EndProlog gsave /lanind 1 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind ge {show} {pop} ifelse} bind def /nshow {iyt /Times-ISOL1 FS show} def /nishow {-30 -50 rmoveto iyt 50 sub /Times-ISOL1 FS show 30 50 rmoveto} def /nishow0 {-00 -50 rmoveto iyt 20 sub /Times-ISOL1 FS show 00 50 rmoveto} def /nishowx {-00 -50 rmoveto iyt 50 sub /Times-ISOL1 FS show 00 50 rmoveto} def /kshow {iyt /TimesI-ISOL1 FS show} def /bshow {iyt /TimesB-ISOL1 FS show} def /jshow {iyt /TimesBI-ISOL1 FS show} def /ishow {-30 -50 rmoveto iyt 50 sub /TimesB-ISOL1 FS show 30 50 rmoveto} def /ishow0 {-00 -50 rmoveto iyt 50 sub /TimesB-ISOL1 FS show 00 50 rmoveto} def /eshow { 00 070 rmoveto iyt 50 sub /TimesB-ISOL1 FS show 00 -070 rmoveto} def /neshow { 00 070 rmoveto iyt 50 sub /Times-ISOL1 FS show 00 -070 rmoveto} def /F25col00 75 array def %24+1x3 0 1 24 {/i exch def %i=0,24 /j i 2 mul def /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def /j30 j 3 mul def /j31 j30 1 add def /j32 j30 2 add def F25col00 i30 F49col00 j30 get put F25col00 i30 1 add F49col00 j31 get put F25col00 i30 2 add F49col00 j32 get put } for %i=0,24 /F17col00 51 array def %16+1x3 0 1 7 {/i exch def %i=0,7 /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def F17col00 i30 F25col00 i30 get put F17col00 i31 F25col00 i31 get put F17col00 i32 F25col00 i32 get put } for %i=0,7 8 2 24 {/i exch def %i=8,24 /j 8 i 8 sub 2 idiv add def /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def /j30 j 3 mul def /j31 j30 1 add def /j32 j30 2 add def F17col00 j30 F25col00 i30 get put F17col00 j31 F25col00 i31 get put F17col00 j32 F25col00 i32 get put } for %i=8,24 /RGB54CC17_L 17 array def /RGB54CC17_L [%high chromatic series: %relative hue h*, brillance i*, and chroma c*, range 0 ... 100 (R00Y_100_100) 1.00 0.00 0.00 %00 (R25Y_100_100) 1.00 0.25 0.00 %01 (R50Y_100_100) 1.00 0.50 0.00 %02 (R75Y_100_100) 1.00 0.75 0.00 %03 (Y00G_100_100) 1.00 1.00 0.00 %04 (Y25G_100_100) 0.75 1.00 0.00 %05 (Y50G_100_100) 0.50 1.00 0.00 %06 (Y75G_100_100) 0.25 1.00 0.00 %07 (G00B_100_100) 0.00 1.00 0.00 %08 (G25B_100_100) 0.00 1.00 0.50 %09 (G50B_100_100) 0.00 1.00 1.00 %10 (G75B_100_100) 0.00 0.50 1.00 %11 (B00R_100_100) 0.00 0.00 1.00 %12 (B25R_100_100) 0.50 0.00 1.00 %13 (B50R_100_100) 1.00 0.00 1.00 %14 (B75R_100_100) 1.00 0.00 0.50 %15 (R00Y_100_100) 1.00 0.00 0.00 %16 repeat for circle ] def /LAB*ee 12 array def %2x3=12 Lab* for D65 /LAB*ee [39.92 58.74 27.99 %0 00_04 R CIE No.09 elementary in LAB 81.26 -2.89 71.56 %1 05_09 J CIE No.10 52.23 -42.42 13.60 %2 10_14 G CIE No.11 30.57 1.41 -46.47 %3 20_24 B CIE No.12 ] def /rgb_12 12 array def %RYGCBMd, NWd,e, RYGBe /rgb_12 [1.0 0.0 0.0 1.0 1.0 0.0 0.0 1.0 0.0 %RYGd 0.0 1.0 1.0 0.0 0.0 1.0 1.0 0.0 1.0 %CBMd 0.0 0.0 0.0 1.0 1.0 1.0 %NWd,e 1.0 0.0 0.0 1.0 1.0 0.0 0.0 1.0 0.0 0.0 0.0 1.0 %RYGBe ] def %************************************************************ /proc_CIELAB_D {%BEG proc_CIELAB_D 25 setlinewidth 1.0 setgray 0 0 moveto 2800 0 rlineto 0 2800 rlineto -2800 0 rlineto closepath fill 0.0 setgray 0 0 moveto 2800 0 rlineto 0 2800 rlineto -2800 0 rlineto closepath stroke 1200 1300 translate -1000 0 moveto 1000 0 lineto stroke 0 -1000 moveto 0 1000 lineto stroke 1100 0 moveto (a*) kshow (a) ishow 0 1100 moveto (b*) kshow (a) ishow /rx 774 def %standard hexagon gamut 0.0 setgray rx 030 cos mul rx 030 sin mul moveto 0 rx lineto rx 150 cos mul rx 150 sin mul lineto rx 210 cos mul rx 210 sin mul lineto 0 rx neg lineto rx 330 cos mul rx 330 sin mul lineto closepath stroke /r*x 1 def /g*x 0 def /b*x 0 def r*x g*x b*x setrgbcolor rx 030 cos mul rx 030 sin mul 100 0 360 arc fill /r*x 1 def /g*x 1 def /b*x 0 def r*x g*x b*x setrgbcolor 0 rx 100 0 360 arc fill /r*x 0 def /g*x 1 def /b*x 0 def r*x g*x b*x setrgbcolor rx 150 cos mul rx 150 sin mul 100 0 360 arc fill /r*x 0 def /g*x 1 def /b*x 1 def r*x g*x b*x setrgbcolor rx 210 cos mul rx 210 sin mul 100 0 360 arc fill /r*x 0 def /g*x 0 def /b*x 1 def r*x g*x b*x setrgbcolor 0 rx neg 100 0 360 arc fill /r*x 1 def /g*x 0 def /b*x 1 def r*x g*x b*x setrgbcolor rx 330 cos mul rx 330 sin mul 100 0 360 arc fill %plot hexagon in device (d) space 45 setlinewidth 0 setgray 0 1 5 {/i exch def %i=0,5 /A*Ma LAB*a i 3 mul 1 add get def /B*Ma LAB*a i 3 mul 2 add get def i 0 eq {A*Ma 10 mul B*Ma 10 mul moveto} {A*Ma 10 mul B*Ma 10 mul lineto} ifelse i 5 eq {closepath stroke} if } for %i=0,5 xchart 1 ge {%xchart>=1, always only for device space %plot hexagon in actual device (d) space 45 setlinewidth /deintpd deintp def %attention change of deintp to device d! /deintp 0 def %draws allways device space gamut! 0 1 5 {/i exch def %i=0,5 /r*x r*dd08M i get def /g*x g*dd08M i get def /b*x b*dd08M i get def r*x g*x b*x setrgbcolor %default for calculation of LAB* /LAB*axF LAB*adyF def /LAB*bxF LAB*bdyF def /A*Ma LAB*axF def /B*Ma LAB*bxF def 1 0 0 setrgbcolor i 0 eq {A*Ma 10 mul B*Ma 10 mul moveto} {A*Ma 10 mul B*Ma 10 mul lineto} ifelse i 5 eq {closepath stroke} if } for %i=0,5 /deintp deintpd def %change back to deintp! } if %xchart>=1 %plot line of actual hue 50 setlinewidth xcharts 0 eq {/r*x 1 def /g*x 0 def /b*x 0 def} if xcharts 1 eq {/r*x 1 def /g*x 1 def /b*x 0 def} if xcharts 2 eq {/r*x 0 def /g*x 1 def /b*x 0 def} if xcharts 3 eq {/r*x 0 def /g*x 1 def /b*x 1 def} if xcharts 4 eq {/r*x 0 def /g*x 0 def /b*x 1 def} if xcharts 5 eq {/r*x 1 def /g*x 0 def /b*x 1 def} if xcharts 5 le {%xcharts<=5 r*x g*x b*x setrgbcolor 0 0 moveto /A*Ma LAB*a xcharts 3 mul 1 add get def /B*Ma LAB*a xcharts 3 mul 2 add get def A*Ma 10 mul B*Ma 10 mul lineto stroke } if %xcharts<=5 xcharts 6 ge {%xcharts>=6 xchart 0 eq {%xchart=0,>0 xcharts 9 eq {/i1 0 def /i2 5 def i1 1 i2 {/i exch def %i=i1,i2 /L*Ma0 LAB*a i 3 mul 0 add get def %produces ORS18 /A*Ma0 LAB*a i 3 mul 1 add get def /B*Ma0 LAB*a i 3 mul 2 add get def rgb_12 i 3 mul 0 add get rgb_12 i 3 mul 1 add get rgb_12 i 3 mul 2 add get setrgbcolor 0 0 moveto A*Ma0 10 mul B*Ma0 10 mul lineto stroke A*Ma0 10 mul B*Ma0 10 mul moveto -100 -100 rlineto 200 200 rlineto stroke A*Ma0 10 mul B*Ma0 10 mul moveto -100 100 rlineto 200 -200 rlineto stroke } for %i=i1,i2 } if %one or 6 lines xcharts 10 ge xcharts 25 le and {%xcharts>=10,<=25 %16 measured data, see PE54L0NP.pdf, page 11/24 %PE540-7N, Page 11/24 HIC*Fd rgb*Fd LabCh*Fd /LAB*a48 432 array def %48x9=432 /LAB*a48 [%HIC rgb LabCh nr (R00Y_100_100d) 1.000 0.000 0.000 48.4 66.1 40.2 77.4 31.3 %00 (R13Y_100_100d) 1.000 0.116 0.000 52.5 57.3 45.5 73.2 38.4 %01 (R25Y_100_100d) 1.000 0.233 0.000 56.8 48.0 50.5 69.8 46.4 %02 (R38Y_100_100d) 1.000 0.366 0.000 62.5 36.5 57.1 67.8 57.3 %03 (R50Y_100_100d) 1.000 0.500 0.000 68.6 25.0 63.9 68.7 68.6 %04 (R63Y_100_100d) 1.000 0.633 0.000 74.9 14.1 71.1 72.5 78.7 %05 (R75Y_100_100d) 1.000 0.766 0.000 80.6 4.8 77.2 77.4 86.4 %06 (R88Y_100_100d) 1.000 0.883 0.000 85.4 -2.5 82.3 82.3 91.7 %07 (Y00G_100_100d) 1.000 1.000 0.000 90.2 -9.6 88.2 88.7 96.2 %08 (Y13G_100_100d) 0.883 1.000 0.000 86.7 -14.2 83.5 84.7 99.6 %09 (Y25G_100_100d) 0.766 1.000 0.000 83.2 -18.4 79.9 82.0 102.9 %10 (Y38G_100_100d) 0.633 1.000 0.000 77.9 -25.1 69.5 74.0 109.8 %11 (Y50G_100_100d) 0.500 1.000 0.000 73.3 -31.7 62.7 70.3 116.8 %12 (Y63G_100_100d) 0.366 1.000 0.000 68.2 -39.5 55.9 68.5 125.2 %13 (Y75G_100_100d) 0.233 1.000 0.000 62.0 -49.7 43.2 65.9 138.9 %14 (Y88G_100_100d) 0.116 1.000 0.000 59.1 -57.1 38.5 68.9 145.9 %15 (G00C_100_100d) 0.000 1.000 0.000 55.8 -65.2 33.8 73.5 152.5 %16 (G13C_100_100d) 0.000 1.000 0.116 56.6 -62.9 24.0 67.3 159.0 %17 (G25C_100_100d) 0.000 1.000 0.233 57.4 -59.7 13.9 61.3 166.8 %18 (G38C_100_100d) 0.000 1.000 0.366 58.5 -54.9 1.5 55.0 178.4 %19 (G50C_100_100d) 0.000 1.000 0.500 59.3 -50.3 -9.0 51.1 190.2 %20 (G63C_100_100d) 0.000 1.000 0.633 60.1 -45.6 -18.7 49.3 202.3 %21 (G75C_100_100d) 0.000 1.000 0.766 61.1 -40.3 -27.8 49.0 214.6 %22 (G88C_100_100d) 0.000 1.000 0.883 62.0 -35.8 -34.7 49.9 224.0 %23 (C00B_100_100d) 0.000 1.000 1.000 63.0 -30.5 -42.0 51.9 234.0 %24 (C13B_100_100d) 0.000 0.883 1.000 59.4 -25.3 -42.7 49.7 239.2 %25 (C25B_100_100d) 0.000 0.766 1.000 55.8 -20.3 -43.2 47.7 244.7 %26 (C38B_100_100d) 0.000 0.633 1.000 50.8 -13.3 -43.9 45.9 253.0 %27 (C50B_100_100d) 0.000 0.500 1.000 45.7 -5.7 -44.6 45.0 262.6 %28 (C63B_100_100d) 0.000 0.366 1.000 40.4 2.6 -45.2 45.2 273.3 %29 (C75B_100_100d) 0.000 0.233 1.000 36.0 10.1 -46.1 47.2 282.3 %30 (C88B_100_100d) 0.000 0.116 1.000 32.1 17.3 -46.7 49.8 290.3 %31 (B00M_100_100d) 0.000 0.000 1.000 27.5 25.9 -47.3 54.0 298.7 %32 (B13M_100_100d) 0.116 0.000 1.000 29.5 33.4 -43.1 54.6 307.7 %33 (B25M_100_100d) 0.233 0.000 1.000 31.0 39.9 -38.5 55.5 315.9 %34 (B38M_100_100d) 0.366 0.000 1.000 35.1 44.5 -34.7 56.5 322.0 %35 (B50M_100_100d) 0.500 0.000 1.000 38.3 52.6 -28.5 59.9 331.5 %36 (B63M_100_100d) 0.633 0.000 1.000 41.2 59.3 -22.0 63.3 339.6 %37 (B75M_100_100d) 0.766 0.000 1.000 45.2 63.8 -18.2 66.4 344.0 %38 (B88M_100_100d) 0.883 0.000 1.000 47.5 68.6 -13.8 69.9 348.5 %39 (M00R_100_100d) 1.000 0.000 1.000 49.5 73.5 -9.0 74.1 352.9 %40 (M13R_100_100d) 1.000 0.000 0.883 49.4 72.4 -4.0 72.5 356.7 %41 (M25R_100_100d) 1.000 0.000 0.766 49.3 71.4 0.4 71.4 0.3 %42 (M38R_100_100d) 1.000 0.000 0.633 49.3 69.8 6.6 70.1 5.4 %43 (M50R_100_100d) 1.000 0.000 0.500 48.9 69.3 12.9 70.5 10.5 %44 (M63R_100_100d) 1.000 0.000 0.366 48.9 68.1 19.6 70.9 16.1 %45 (M75R_100_100d) 1.000 0.000 0.233 48.8 67.1 27.9 72.7 22.6 %46 (M88R_100_100d) 1.000 0.000 0.116 48.6 66.5 34.1 74.8 27.1 %47 ] def /indFa16 16 array def /indFa16 [%0 1 2 3 4 5 6 7 %0=R and xchart4=1, 4=Y and xchart4=5 00 02 04 06 08 10 12 14 %8 9 10 11 12 13 14 15 %8=G and xchart4=9, 12=B and xchart4=13 16 20 24 28 32 36 40 44] def /ix xchart4 1 sub def %i=0,15 /indx indFa16 ix get def /i90 indx 9 mul 4 add def /i91 i90 1 add def /i92 i90 2 add def /A*Ma0 LAB*a48 i91 get def /B*Ma0 LAB*a48 i92 get def /i90r indx 9 mul 1 add def /i91r i90r 1 add def /i92r i90r 2 add def /r_*Ma LAB*a48 i90r get def /g_*Ma LAB*a48 i91r get def /b_*Ma LAB*a48 i92r get def r_*Ma g_*Ma b_*Ma setrgbcolor 0 0 moveto A*Ma0 10 mul B*Ma0 10 mul lineto stroke A*Ma0 10 mul B*Ma0 10 mul moveto -100 -100 rlineto 200 200 rlineto stroke A*Ma0 10 mul B*Ma0 10 mul moveto -100 100 rlineto 200 -200 rlineto stroke } if %xcharts>=10,<=25 }%xchart=0 {%xchart>0 xcharts 9 eq {/i1 0 def /i2 15 def} %one or 16 lines {/i1 xcharts 10 sub def /i2 i1 def} ifelse i1 1 i2 {/i exch def %i=i1,i2 /r*x r*dd18M i get def /g*x g*dd18M i get def /b*x b*dd18M i get def r*x g*x b*x setrgbcolor %default to create data %setrgbcolor calculates data for output in "FF_LM_de_setrgbcolor_F" %colorm=0 calculates: rgb_dyF, rgb*dyF, LAB*dyF, ,cmyk*dyF and more %colorm=1 calculates: rgb_dyF, rgb*dyF, LAB*dyF', rgb'*dyF, cmyk*dyF and more /LAB*LxF LAB*LdyF def /LAB*axF LAB*adyF def /LAB*bxF LAB*bdyF def /A*Ma0 LAB*axF def /B*Ma0 LAB*bxF def r*x g*x b*x setrgbcolor 0 0 moveto A*Ma0 10 mul B*Ma0 10 mul lineto stroke A*Ma0 10 mul B*Ma0 10 mul moveto -100 -100 rlineto 200 200 rlineto stroke A*Ma0 10 mul B*Ma0 10 mul moveto -100 100 rlineto 200 -200 rlineto stroke } for %i=i1,i2 } ifelse %xchart=0,>0 } if %xcharts>=6 -1200 -1300 translate } bind def %END proc_CIELAB_D %************************************************************ /proc_CIELAB_T16 {%BEG proc_CIELAB_T16 /yhoe 6300 def ibild 0 eq {/xmi0 0 def /ymi0 -50 def} {/xmi0 700 def /ymi0 -1400 def} ifelse 15 setlinewidth 1.0 setgray 0 ymi0 moveto 5300 xmi0 add 0 rlineto 0 4800 ymi0 sub rlineto -5300 xmi0 sub 0 rlineto closepath fill 0.0 setgray 0 ymi0 moveto 5300 xmi0 add 0 rlineto 0 4800 ymi0 sub rlineto -5300 xmi0 sub 0 rlineto closepath stroke /nshow {300 /Times-ISOL1 FS show} bind def /kshow {300 /TimesI-ISOL1 FS show} bind def /bshow {300 /TimesB-ISOL1 FS show} bind def /jshow {300 /TimesBI-ISOL1 FS show} bind def /sshow {300 /Symbol FS show} bind def /ishow {220 /Times-ISOL1 FS -00 -50 rmoveto show 00 50 rmoveto} bind def /eshow {220 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto} bind def /yd 340 def %y-Zeilenabstand %Spalten /S1 20 def /S2 450 def /S3 1550 def /S4 2650 def /S5 3750 def /S6 4800 def /yu1 4650 def /yu2 3800 def 0 4100 moveto ibild 0 eq {5300}{6000} ifelse 0 rlineto stroke %Titeltext S1t 4550 moveto xchart 0 eq {ibild 1 eq {(ORS20a) bshow}{TSYSIOa bshow} ifelse} {Devicea bshow} ifelse (;) bshow xcharti 12 lt ibild 0 ne or {TBM0 ( adapted (a) CIELAB data) showen ( adaptierte CIELAB\255Daten) showde ( datos adaptados CIELAB (a)) showes ( donn\351es CIELAB (a) adapt\351es) showfr ( dati atti CIELAB (a)) showit ( adapted (a) CIELAB data) showjp } if ibild 0 eq {%BEG ibild=0 S11 4250 moveto TM0 (Name) showde (name) showen (name) showes (nom) showfr (name) showit (name) showjp () kshow S21 200 sub 4250 moveto (L*=L*) kshow xcharti 12 lt ibild 0 ne or {(a) ishow} if S31 4250 moveto (a*) kshow xcharti 12 lt ibild 0 ne or {(a) ishow} if S41 4250 moveto (b*) kshow xcharti 12 lt ibild 0 ne or {(a) ishow} if S51 100 sub 4250 moveto (C*) kshow (ab) ishow xcharti 12 lt ibild 0 ne or {(,a) ishow} if S61 100 sub 4250 moveto (h*) kshow (ab) ishow xcharti 12 lt ibild 0 ne or {(,a) ishow} if 0 1 11 {/i exch def %i=0,11 /ya yu2 yd i mul sub def S11 ya moveto ColNames i get nshow Fxx ishow (,) ishow i 8 ge {(CIE) ishow} {(M) ishow xcharti 12 lt {(a) ishow} if} ifelse ( ) nshow xcharti 12 lt {%xcharti<=12,>12 i 7 le {%i<=7 xchart 0 eq {%xchart=0,1 /L*Fax LAB*a i 3 mul get def /A*Fax LAB*a i 3 mul 1 add get def /B*Fax LAB*a i 3 mul 2 add get def /C*Fax A*Fax dup mul B*Fax dup mul add sqrt def /H*Fax B*Fax A*Fax 0.0001 add atan def }%xchart=0 {%xchart=1 /r*x r*dd08M i get def /g*x g*dd08M i get def /b*x b*dd08M i get def r*x g*x b*x setrgbcolor %default to create data %setrgbcolor calculates data for output in "FF_LM_de_setrgbcolor_F" %colorm=0 calculates: rgb_dyF, rgb*dyF, LAB*dyF, ,cmyk*dyF and more %colorm=1 calculates: rgb_dyF, rgb*dyF, LAB*dyF', rgb'*dyF, cmyk*dyF and more /LAB*LxF LAB*LdyF def /LAB*axF LAB*adyF def /LAB*bxF LAB*bdyF def /L*Fax LAB*LxF def /A*Fax LAB*axF def /B*Fax LAB*bxF def } ifelse %xchart=0,1 } if %i<=7 i 8 ge {%i>=8 TYGB /L*Fax LAB*ee i 8 sub 3 mul get def /A*Fax LAB*ee i 8 sub 3 mul 1 add get def /B*Fax LAB*ee i 8 sub 3 mul 2 add get def } if %i>=8 /C*Fax A*Fax dup mul B*Fax dup mul add sqrt def /H*Fax B*Fax A*Fax 0.0001 add atan def 0 setgray S21 ya moveto L*Fax cvsshow1 S31 ya moveto A*Fax cvsshow1 S41 ya moveto B*Fax cvsshow1 S51 ya moveto C*Fax cvsshow1 S61 ya moveto H*Fax cvishow }%xcharti<=12 {%xcharti>12 xchart 0 eq {%xchart=0,1 /L*Fax LAB*a i 3 mul get def /A*Fax LAB*a i 3 mul 1 add get def /B*Fax LAB*a i 3 mul 2 add get def /C*Fax A*Fax dup mul B*Fax dup mul add sqrt def /H*Fax B*Fax A*Fax 0.0001 add atan def }%xchart=0 {%xchart=1 /L*Fax LAB*Ldd08M i get def /A*Fax LAB*add08M i get def /B*Fax LAB*bdd08M i get def } ifelse %xchart=0,1 /C*Fax A*Fax dup mul B*Fax dup mul add sqrt def /H*Fax B*Fax A*Fax 0.0001 add atan def 0 setgray S21 ya moveto L*Fax cvsshow1 S31 ya moveto A*Fax cvsshow1 S41 ya moveto B*Fax cvsshow1 S51 ya moveto C*Fax cvsshow1 S61 ya moveto H*Fax cvishow /L*Fx LAB* i 3 mul get def /A*Fx LAB* i 3 mul 1 add get def /B*Fx LAB* i 3 mul 2 add get def /C*Fx A*Fx dup mul B*Fx dup mul add sqrt def /H*Fx B*Fx A*Fx 0.0001 add atan def S2 350 add ya moveto L*Fx cvsshow2 S3 100 add ya moveto A*Fx cvsshow2 S4 100 add ya moveto B*Fx cvsshow2 S5 ya moveto C*Fx cvsshow2 S6 ya moveto H*Fx cvishow } ifelse %xcharti=12,#12 } for %i=0,11 }%END ibild=0 {%BEG ibild=1 S1t 4250 moveto (H*) kshow Fxx ishow () nshow S2t 200 sub 4250 moveto (L*=L*) kshow xcharti 12 lt ibild 0 ne or {(a) ishow} if S3t 4250 moveto (a*) kshow xcharti 12 lt ibild 0 ne or {(a) ishow} if S4t 4250 moveto (b*) kshow xcharti 12 lt ibild 0 ne or {(a) ishow} if S5t 150 sub 4250 moveto (C*) kshow (ab) ishow xcharti 12 lt ibild 0 ne or {(,a) ishow} if S6t 150 sub 4250 moveto (h*) kshow (ab) ishow xcharti 12 lt ibild 0 ne or {(,a) ishow} if %16 measured data, see PE54L0NP.pdf, page 11/24 %PE540-7N, Page 11/24 HIC*Fd rgb*Fd LabCh*Fd /LAB*a48 432 array def %48x9=432 /LAB*a48 [%HIC rgb LabCh nr (R00Y_100_100d) 1.000 0.000 0.000 48.4 66.1 40.2 77.4 31.3 %00 (R13Y_100_100d) 1.000 0.116 0.000 52.5 57.3 45.5 73.2 38.4 %01 (R25Y_100_100d) 1.000 0.233 0.000 56.8 48.0 50.5 69.8 46.4 %02 (R38Y_100_100d) 1.000 0.366 0.000 62.5 36.5 57.1 67.8 57.3 %03 (R50Y_100_100d) 1.000 0.500 0.000 68.6 25.0 63.9 68.7 68.6 %04 (R63Y_100_100d) 1.000 0.633 0.000 74.9 14.1 71.1 72.5 78.7 %05 (R75Y_100_100d) 1.000 0.766 0.000 80.6 4.8 77.2 77.4 86.4 %06 (R88Y_100_100d) 1.000 0.883 0.000 85.4 -2.5 82.3 82.3 91.7 %07 (Y00G_100_100d) 1.000 1.000 0.000 90.2 -9.6 88.2 88.7 96.2 %08 (Y13G_100_100d) 0.883 1.000 0.000 86.7 -14.2 83.5 84.7 99.6 %09 (Y25G_100_100d) 0.766 1.000 0.000 83.2 -18.4 79.9 82.0 102.9 %10 (Y38G_100_100d) 0.633 1.000 0.000 77.9 -25.1 69.5 74.0 109.8 %11 (Y50G_100_100d) 0.500 1.000 0.000 73.3 -31.7 62.7 70.3 116.8 %12 (Y63G_100_100d) 0.366 1.000 0.000 68.2 -39.5 55.9 68.5 125.2 %13 (Y75G_100_100d) 0.233 1.000 0.000 62.0 -49.7 43.2 65.9 138.9 %14 (Y88G_100_100d) 0.116 1.000 0.000 59.1 -57.1 38.5 68.9 145.9 %15 (G00C_100_100d) 0.000 1.000 0.000 55.8 -65.2 33.8 73.5 152.5 %16 (G13C_100_100d) 0.000 1.000 0.116 56.6 -62.9 24.0 67.3 159.0 %17 (G25C_100_100d) 0.000 1.000 0.233 57.4 -59.7 13.9 61.3 166.8 %18 (G38C_100_100d) 0.000 1.000 0.366 58.5 -54.9 1.5 55.0 178.4 %19 (G50C_100_100d) 0.000 1.000 0.500 59.3 -50.3 -9.0 51.1 190.2 %20 (G63C_100_100d) 0.000 1.000 0.633 60.1 -45.6 -18.7 49.3 202.3 %21 (G75C_100_100d) 0.000 1.000 0.766 61.1 -40.3 -27.8 49.0 214.6 %22 (G88C_100_100d) 0.000 1.000 0.883 62.0 -35.8 -34.7 49.9 224.0 %23 (C00B_100_100d) 0.000 1.000 1.000 63.0 -30.5 -42.0 51.9 234.0 %24 (C13B_100_100d) 0.000 0.883 1.000 59.4 -25.3 -42.7 49.7 239.2 %25 (C25B_100_100d) 0.000 0.766 1.000 55.8 -20.3 -43.2 47.7 244.7 %26 (C38B_100_100d) 0.000 0.633 1.000 50.8 -13.3 -43.9 45.9 253.0 %27 (C50B_100_100d) 0.000 0.500 1.000 45.7 -5.7 -44.6 45.0 262.6 %28 (C63B_100_100d) 0.000 0.366 1.000 40.4 2.6 -45.2 45.2 273.3 %29 (C75B_100_100d) 0.000 0.233 1.000 36.0 10.1 -46.1 47.2 282.3 %30 (C88B_100_100d) 0.000 0.116 1.000 32.1 17.3 -46.7 49.8 290.3 %31 (B00M_100_100d) 0.000 0.000 1.000 27.5 25.9 -47.3 54.0 298.7 %32 (B13M_100_100d) 0.116 0.000 1.000 29.5 33.4 -43.1 54.6 307.7 %33 (B25M_100_100d) 0.233 0.000 1.000 31.0 39.9 -38.5 55.5 315.9 %34 (B38M_100_100d) 0.366 0.000 1.000 35.1 44.5 -34.7 56.5 322.0 %35 (B50M_100_100d) 0.500 0.000 1.000 38.3 52.6 -28.5 59.9 331.5 %36 (B63M_100_100d) 0.633 0.000 1.000 41.2 59.3 -22.0 63.3 339.6 %37 (B75M_100_100d) 0.766 0.000 1.000 45.2 63.8 -18.2 66.4 344.0 %38 (B88M_100_100d) 0.883 0.000 1.000 47.5 68.6 -13.8 69.9 348.5 %39 (M00R_100_100d) 1.000 0.000 1.000 49.5 73.5 -9.0 74.1 352.9 %40 (M13R_100_100d) 1.000 0.000 0.883 49.4 72.4 -4.0 72.5 356.7 %41 (M25R_100_100d) 1.000 0.000 0.766 49.3 71.4 0.4 71.4 0.3 %42 (M38R_100_100d) 1.000 0.000 0.633 49.3 69.8 6.6 70.1 5.4 %43 (M50R_100_100d) 1.000 0.000 0.500 48.9 69.3 12.9 70.5 10.5 %44 (M63R_100_100d) 1.000 0.000 0.366 48.9 68.1 19.6 70.9 16.1 %45 (M75R_100_100d) 1.000 0.000 0.233 48.8 67.1 27.9 72.7 22.6 %46 (M88R_100_100d) 1.000 0.000 0.116 48.6 66.5 34.1 74.8 27.1 %47 ] def /indFa16 16 array def /indFa16 [00 02 04 06 08 10 12 14 16 20 24 28 32 36 40 44] def 0 1 15 {/i exch def %i=0,15 /ya yu2 yd i mul sub def xchart 0 eq {%xchart=0,>0 /indx indFa16 i get def /i90 indx 9 mul 4 add def /i91 i90 1 add def /i92 i90 2 add def /L*Ma LAB*a48 i90 get def /A*Ma LAB*a48 i91 get def /B*Ma LAB*a48 i92 get def /C*Ma A*Ma dup mul B*Ma dup mul add 0.0001 add sqrt def /H*Ma B*Ma A*Ma 0.0001 add atan def }%xchart=0 {%xchart>0 /r*x r*dd18M i get def /g*x g*dd18M i get def /b*x b*dd18M i get def r*x g*x b*x setrgbcolor %default to create data %setrgbcolor calculates data for output in "FF_LM_de_setrgbcolor_F" %colorm=0 calculates: rgb_dyF, rgb*dyF, LAB*dyF, ,cmyk*dyF and more %colorm=1 calculates: rgb_dyF, rgb*dyF, LAB*dyF', rgb'*dyF, cmyk*dyF and more /r*xF r*dyF def /g*xF g*dyF def /b*xF b*dyF def /LAB*LxF LAB*LdyF def /LAB*axF LAB*adyF def /LAB*bxF LAB*bdyF def /LAB*CxF LAB*adyF dup mul LAB*bdyF dup mul add 0.0001 add sqrt def /LAB*hxF LAB*bdyF LAB*adyF 0.0001 add atan def /L*Ma LAB*LxF def /A*Ma LAB*axF def /B*Ma LAB*bxF def /C*Ma LAB*CxF def /H*Ma LAB*hxF def } ifelse %xchart=0,>0 0 setgray S1t ya moveto () nshow S1t ya moveto RGB54CC17_L i 4 mul get show Fxx ishow () nshow S2t 60 add ya moveto L*Ma cvsshow1 S3t ya moveto A*Ma cvsshow1 S4t ya moveto B*Ma cvsshow1 S5t ya moveto C*Ma cvsshow1 S6t ya moveto H*Ma cvishow } for %i=0,15 } ifelse %END ibild=1 } bind def %END proc_CIELAB_T16 %****************************************************************** /proc_CIELAB_G {%BEG CIELAB_G /u* 0 def /H*MGam 6 array def /C*MGam 6 array def 0 1 5 {/i exch def %i=0,5 /A*Ma LAB*a i 3 mul 1 add get def /B*Ma LAB*a i 3 mul 2 add get def /C*MGama A*Ma dup mul B*Ma dup mul add sqrt def H*MGam i B*Ma A*Ma 0.0001 add atan put C*MGam i C*MGama put /u* u* C*MGama L*Wio L*Nio sub mul add def } for %i=0,5 /u*r u* 77.4 77.4 mul 6 mul div 100 mul def 1 1 1 setrgbcolor /xmtext 2200 def /xms 0 def xmtext xms sub 11500 moveto TBG0 (%Gamut) showen (%Umfang) showde (%Gama) showes (%Gamme) showfr (%Gamma) showit (%Gamut) showjp xmtext xms sub 11100 moveto TBG0 (u*) show TBM0 -20 -50 rmoveto (rel) show 0 50 rmoveto TBG0 ( = ) show u*r cvishow 0 1 4 {/i exch def %i=0,4 /H*dif H*MGam i 1 add get H*MGam i get sub def i 0 eq {/H*MGamin H*dif def /H*MGamax H*dif def} if H*dif H*MGamin lt {/H*MGamin H*dif def} if H*dif H*MGamax gt {/H*MGamax H*dif def} if } for %i=0,4 /g*Hr H*MGamin H*MGamax div 100 mul def xmtext xms sub 10700 moveto TBG0 (%Regularity) showen (%Regularit\344t) showde (%Regularidad) showes (%R\351gularit\351) showfr (%Regularit\340) showit (%Regularity) showjp xmtext 10300 moveto TBG0 (g*) show TBM0 -20 -50 rmoveto (H,rel) show 0 50 rmoveto TBG0 ( = ) show g*Hr cvishow 0 1 4 {/i exch def %i=0,4 /C*akt C*MGam i get def i 0 eq {/C*MGamin C*akt def /C*MGamax C*akt def} if C*akt C*MGamin lt {/C*MGamin C*akt def} if C*akt C*MGamax gt {/C*MGamax C*akt def} if } for %i=0,4 /g*Cr C*MGamin C*MGamax div 100 mul def xmtext 09900 moveto TBG0 (g*) show TBM0 -20 -50 rmoveto (C,rel) show 0 50 rmoveto TBG0 ( = ) show g*Cr cvishow } bind def %CIELAB_G %****************************************************************** /ilf 8 array def /ilf [0.00 0.25 0.50 1.00 2.00 4.00 8.00 16.00] def /Lrefl 11 array def /Lrefl [(0%) (0%) (0%) (0%) (0,6%) (1,2%) (2,5%) (5%) (10%) (20%) (40%)] def /cvishowb {cvi 6 string cvs show ( ) show} def /cvsshow1b {10 mul cvi 0.1 mul 7 string cvs show ( ) show} def /cvsshow2b {100 mul cvi 0.01 mul 7 string cvs show ( ) show} def /cvsshow3b {1000 mul cvi 0.001 mul 7 string cvs show ( ) show} def /cvsshow1r {0.05 add 10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2r {0.005 add 100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3r {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show} def /cvsshow1br {0.05 add 10 mul cvi 0.1 mul 7 string cvs show ( ) show} def /cvsshow2br {0.005 add 100 mul cvi 0.01 mul 7 string cvs show ( ) show} def /cvsshow3br {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show ( ) show} def /cvi100 {100 mul cvi /xi exch def xi 0 lt {/vorz -1 def} {/vorz 1 def} ifelse /xia xi abs def vorz -1 eq {(\255) show} {(0) show} ifelse xia 0 ge xia 9 le {(0000) show} if xia 10 ge xia 99 le and {(000) show} if xia 100 ge xia 999 le and {(00) show} if xia 1000 ge xia 9999 le and {(0) show} if xia cvishow } bind def %************************************************ %******BEG RGB_48_16_6.PS default rgb data for 48/16/6 steps for device colours /r*dd64M 64 array def /r*dd64M [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %R 1.000 0.875 0.750 0.625 0.500 0.375 0.250 0.125 %J 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %G 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %C 0.000 0.125 0.250 0.375 0.500 0.625 0.750 0.875 %B 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %M 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %R 1.000 0.875 0.750 0.625 0.500 0.375 0.250 0.125 %J ] def /g*dd64M 64 array def /g*dd64M [0.000 0.125 0.250 0.375 0.500 0.625 0.750 0.875 %R 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %J 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %G 1.000 0.875 0.750 0.625 0.500 0.375 0.250 0.125 %C 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %B 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %M 0.000 0.125 0.250 0.375 0.500 0.625 0.750 0.875 %R 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %J ] def /b*dd64M 64 array def /b*dd64M [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %R 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %J 0.000 0.125 0.250 0.375 0.500 0.625 0.750 0.875 %G 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %C 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %B 1.000 0.875 0.750 0.625 0.500 0.375 0.250 0.125 %M 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %R 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %J ] def %calculate all data of 16+1=17 step elementary colour circle /ind64M 17 array def /ind64M %R00Y R25Y R50Y R75Y Y00G Y25G Y50G Y75G [0 2 4 6 8 10 12 14 %G00B G25B G50B G75G B00R B25R B50R B75R R00Y 16 20 24 28 32 36 40 44 0 ] def %actual 16 step device circle + N + W /r*dd18M 18 array def /g*dd18M 18 array def /b*dd18M 18 array def 0 1 15 {/i exch def %i=0,15 /indi ind64M i get def r*dd18M i r*dd64M indi get put %16 device colours g*dd18M i g*dd64M indi get put b*dd18M i b*dd64M indi get put } for %i=0,15 r*dd18M 16 0 put %N g*dd18M 16 0 put b*dd18M 16 0 put r*dd18M 17 1 put %W g*dd18M 17 1 put b*dd18M 17 1 put %actual 6 step device circle + N + W /r*dd08M 08 array def /g*dd08M 08 array def /b*dd08M 08 array def 0 1 5 {/i exch def %i=0,5 r*dd08M i r*dd64M i 8 mul get put %6 device colours g*dd08M i g*dd64M i 8 mul get put b*dd08M i b*dd64M i 8 mul get put } for %i=0,5 r*dd08M 6 0 put %N g*dd08M 6 0 put b*dd08M 6 0 put r*dd08M 7 1 put %W g*dd08M 7 1 put b*dd08M 7 1 put %******END RGB_48_16_6.PS default rgb data for 48/16/6 steps for device colours /lanind1 01 def /lanind2 01 def /lanindd 01 def /colorm1 00 def /colorm2 00 def /colormd 01 def /deintp1 00 def /deintp2 00 def /deintpd 01 def /xcolor1 00 def /xcolor2 00 def /xcolord 01 def /xchart1 00 def /xchart2 00 def /xchartd 01 def /pchart1 00 def /pchart2 00 def /pchartd 01 def /colsep1 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 15 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 Reflective System ) def } if ISIO*ioL 1 eq {/TSYSIOa (TLS00a) def /TSYSIOen (Television Luminous System ) def /TSYSIOde (Fernseh\255Lichtfarben\255System ) def /TSYSIOes (Television Luminous System ) def /TSYSIOfr (Syst\350me T\351l\351vision Lumicie ) def /TSYSIOit (Television Luminous System ) def /TSYSIOjp (Television Luminous System ) def } if ISIO*ioL 2 eq {/TSYSIOa (FRS06a) def /TSYSIOen (Printer Reflective System ) def /TSYSIOde (Drucker\255Reflektiv\255System ) def /TSYSIOes (Printer Reflective System ) def /TSYSIOfr (Syst\350me Printer Reflective ) def /TSYSIOit (Printer Reflective System ) def /TSYSIOjp (Printer Reflective System ) def } if ISIO*ioL 3 eq {/TSYSIOa (TLS18a) def /TSYSIOen (Television Luminous System ) def /TSYSIOde (Fernseh\255Lichtfarben\255System ) def /TSYSIOes (Television Luminous System ) def /TSYSIOfr (Syst\350me T\351l\351vision Lumicie ) def /TSYSIOit (Television Luminous System ) def /TSYSIOjp (Television Luminous System ) def } if ISIO*ioL 4 eq {/TSYSIOa (NLS00a) def /TSYSIOen (Natural Luminous System ) def /TSYSIOde (Nat\374rliches\255Lichtfarben\255System ) def /TSYSIOes (Natural Luminous System ) def /TSYSIOfr (Syst\350me Natural Lumicie ) def /TSYSIOit (Natural Luminous System ) def /TSYSIOjp (Natural Luminous System ) def } if ISIO*ioL 5 eq {/TSYSIOa (NRS18a) def /TSYSIOen (Natural Reflective System ) def /TSYSIOde (Nat\374rliches\255Reflektiv\255System ) def /TSYSIOes (Natural Reflective System ) def /TSYSIOfr (Syst\350me Natural Reflective ) def /TSYSIOit (Natural Reflective System ) def /TSYSIOjp (Natural Reflective System ) def } if ISIO*ioL 6 eq {/TSYSIOa (SRS18a) def /TSYSIOen (Standard Reflective System ) def /TSYSIOde (Standard\255Reflektiv\255System ) def /TSYSIOes (Standard Reflective System ) def /TSYSIOfr (Syst\350me Standard Reflective) def /TSYSIOit (Standard Reflective System ) def /TSYSIOjp (Standard Reflective System ) def } if ISIO*ioL 7 eq {/TSYSIOa (TLS70a) def /TSYSIOen (Television Luminous System ) def /TSYSIOde (Fernseh\255Lichtfarben\255System ) def /TSYSIOes (Television Luminous System ) def /TSYSIOfr (Syst\350me T\351l\351vision Lumicie ) def /TSYSIOit (Television Luminous System ) def /TSYSIOjp (Television Luminous System ) def } if } if %ISRL*ioL=0 ISRL*ioL 1 eq {%ISRL*ioL=1 ISIO*ioL 0 eq {/TSYSIOa (TLS00a) def} if ISIO*ioL 1 eq {/TSYSIOa (TLS06a) def} if ISIO*ioL 2 eq {/TSYSIOa (TLS11a) def} if ISIO*ioL 3 eq {/TSYSIOa (TLS18a) def} if ISIO*ioL 4 eq {/TSYSIOa (TLS27a) def} if ISIO*ioL 5 eq {/TSYSIOa (TLS38a) def} if ISIO*ioL 6 eq {/TSYSIOa (TLS52a) def} if ISIO*ioL 7 eq {/TSYSIOa (TLS70a) def} if /TSYSIOen (Television Luminous System ) def /TSYSIOde (Fernseh\255Lichtfarben\255System ) def /TSYSIOes (Television Luminous System ) def /TSYSIOfr (Syst\350me T\351l\351vision Lumicie ) def /TSYSIOit (Television Luminous System ) def /TSYSIOjp (Television Luminous System ) def } if %ISRL*ioL=1 ISRL*ioL 2 eq {%ISRL*ioL=2 ISIO*ioL 0 eq {/TSYSIOa (OLS00a) def} if ISIO*ioL 1 eq {/TSYSIOa (OLS06a) def} if ISIO*ioL 2 eq {/TSYSIOa (OLS11a) def} if ISIO*ioL 3 eq {/TSYSIOa (OLS18a) def} if ISIO*ioL 4 eq {/TSYSIOa (OLS27a) def} if ISIO*ioL 5 eq {/TSYSIOa (OLS38a) def} if ISIO*ioL 6 eq {/TSYSIOa (OLS52a) def} if ISIO*ioL 7 eq {/TSYSIOa (OLS70a) def} if /TSYSIOen (Offset Reflective System ) def /TSYSIOde (Offset\255Reflektiv\255System ) def /TSYSIOes (Offset Reflective System ) def /TSYSIOfr (Syst\350me Offset Reflective ) def /TSYSIOit (Offset Reflective System ) def /TSYSIOjp (Offset Reflective System ) def } if %ISRL*ioL=2 proc_LAB*ioL xchart 0 eq {/ausz 8 def /xchartt (A) def} if %LOOP not possible xchart 1 eq {/ausz 8 def /xchartt (F) def} if %in case of image xchart 2 eq {/ausz 1 def /xchartt (C) def} if xchart 3 eq {/ausz 2 def /xchartt (M) def} if xchart 4 eq {/ausz 3 def /xchartt (Y) def} if xchart 5 eq {/ausz 7 def /xchartt (N) def} if xchart 6 ge {/ausz 8 def /xchartt (F) def} if 7 /Times-ISOL1 FS 130 83 moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolor cvishow xchart cvishow pchart cvishow colsep cvishow (-L) show pmetam cvishow 180 83 moveto (RF380-7) show xchart 0 eq {(N) show} {deintp colorm 2 mul add cvishow} ifelse 72 90 translate /xt 1 def xchart 1 eq {/xt 1 def} if xt 0 eq {0.0115 MM} {0.010 MM} ifelse dup scale /xchart3P4 xchart3 4 add def /xchart3P15 xchart3 15 add def pmetam 0 eq {%pmetam=0 40 setlinewidth xchart xchart3P4 le {0.5 setgray} {1 setgray} ifelse 0 0 moveto 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 and Output: ) showjp TSYSIOen showen TSYSIOde showde TSYSIOes showes TSYSIOfr showfr TSYSIOit showit TSYSIOjp showjp TSYSIOa show TBG0 xtext0 14500 moveto (Data for any device (d) or) showen (Daten f\374r jede Ger\344te\255 (d) oder) showde (Datos del dispositivo (d) o) showes (Donn\351es de couleurs p\351riph\351riques (d)) showfr (Dati del dispositivo (d) o) showit (Data for any device (d) or) showjp xtext0 14100 moveto (elementary (e) colour:) showen (Elementarfarbe (e):) showde (elemental (e) color:) showes (ou \351l\351mentaires (e):) showfr (colori elementari (e):) showit (elementary (e) colour:) showjp xtext1 13700 moveto TBIG0 (HIC*) show TBM0 -20 -50 rmoveto Fxx show 0 50 rmoveto TBG0 xtext0 13300 moveto TBG0 (hue text for the colours) showen (Bunttontext f\374r die Farben) showde (c\363digo de tono para les colores) showes (code de teinte pour les cou\255) showfr (codice di tonalit\340 per i colori) showit (hue text for the colours) showjp xtext0 12900 moveto (of this page: ) showen (dieser Seite: ) showde (esta p\341gina: ) showes (leurs de cette p\341ge: ) showfr (questa pagina: ) showit (of this page: ) showjp xtext1 12500 moveto TBIG0 (H*) show -20 -50 rmoveto TBM0 Fxx show 0 50 rmoveto TBG0 ( = ) show TBG0 COLhNam16 00 get show 0 -50 rmoveto TBM0 Fxx show 0 50 rmoveto(, ) show TBG0 COLhNam16 01 get show 0 -50 rmoveto TBM0 Fxx show 0 50 rmoveto(, ..., ) show TBG0 COLhNam16 15 get show 0 -50 rmoveto TBM0 Fxx show 0 50 rmoveto TBG0 %cfakt 1 ne {%cfakt#1 %xtext0 12100 moveto TBG0 %(contrast reduction factor: ) showen (Kontrastreduzierungsfaktor: ) showde %xtext1 11600 moveto %TBIG0 (c) show TBM0 0 -130 rmoveto (R) show 0 130 rmoveto %TBG0 ( = ) show %cfakt cvsshow2 %} if %cfakt#1 } if %ibild=0 %END CIELAB_09 Top Text Hue Circle %*********************************************************** %BEG CIELAB_09 Hue Circle -1200 -1500 translate %transfer for colour circle /xym 4 def 25 setlinewidth /xd2 xd 0.8 mul def ibild 0 eq {0.5 0.5 0.5 setrgbcolor} {1.0 1.0 1.0 setrgbcolor} ifelse 0 0 moveto 2800 xym mul 0 rlineto 0 2800 xym mul rlineto -2800 xym mul 0 rlineto closepath fill 0.0 setgray 0 0 moveto 2800 xym mul 0 rlineto 0 2800 xym mul rlineto -2800 xym mul 0 rlineto closepath stroke 1400 xym mul 1400 xym mul translate %cero at center -600 xym mul 0 moveto 600 xym mul 0 lineto stroke 0 -750 xym mul moveto 0 750 xym mul lineto stroke /rx 774 xym mul 1.56 mul def %standard hexagon gamut 0 0 0 setrgbcolor 0 0 rx 0 360 arc stroke /xs3 1400 def /xd3 xs3 2 div def CBKK 0 1 15 {/j exch def %j=0,15 /xpos rx AngsTabt j 4 mul get cos mul def /ypos rx AngsTabt j 4 mul get sin mul def /xa xpos xd3 sub def /ya ypos xd3 sub def /r_x AngsTabt j 4 mul 1 add get def /g_x AngsTabt j 4 mul 2 add get def /b_x AngsTabt j 4 mul 3 add get def /tLAB 1 def r_x g_x b_x setrgbcolor xa ya xs3 xs3 rec fill 1 r_x sub 1 g_x sub 1 b_x sub 0 setcmykcolor xa ya xs3 0.5 mul dup rem fill } for %j=0,15 TBG0 0 0 0 setrgbcolor 2100 1300 moveto (yellowish) showen (gelblich) showde (amarillento) showes (jaun\342tre) showfr (giallastro) showit (yellowish) showjp -3600 1300 moveto (yellowish) showen (gelblich) showde (amarillento) showes (jaun\342tre) showfr (giallastro) showit (yellowish) showjp 2300 -1450 moveto ( bluish) showen (bl\344ulich) showde (azulado) showes (blue\342tre) showfr (bluastro) showit ( bluish) showjp -3600 -1450 moveto ( bluish) showen (bl\344ulich) showde (azulado) showes (blue\342tre) showfr (bluastro) showit ( bluish) showjp -2000 3300 moveto (greenish) showen (gr\374nlich) showde ( verdoso) showes (verd\342tre) showfr (verdastro) showit (greenish) showjp -2000 -3500 moveto (greenish) showen (gr\374nlich) showde ( verdoso) showes (verd\342tre) showfr (verdastro) showit (greenish) showjp 900 3300 moveto ( redish) showen (r\366tlich) showde ( rojizo) showes (rouge\342tre) showfr (rossastro) showit ( redish) showjp 900 -3500 moveto ( redish) showen (r\366tlich) showde ( rojizo) showes (rouge\342tre) showfr (rossastro) showit ( redish) showjp -4000 -100 moveto (Green) showen (Gr\374n) showde (Green) showes (Vert) showfr (Verde) showit (Green) showjp TBIG0 ( G) show TBM0 0 -30 rmoveto Fxx show 0 30 rmoveto TBG0 2600 -100 moveto (Red) showen (Rot) showde (Rojo) showes (Rouge) showfr (Rosso) showit (Red) showjp TBIG0 ( R) show TBM0 0 -30 rmoveto Fxx show 0 30 rmoveto TBG0 -500 3700 moveto (Yellow) showen (Gelb) showde (Amarillo) showes (Jaune) showfr (Giallo) showit (Yellow) showjp TBIG0 ( Y) show TBM0 0 -30 rmoveto Fxx show 0 30 rmoveto TBG0 -400 -3900 moveto (Blue) showen (Blau) showde (Azul) showes (Bleu) showfr (Blu) showit (Blue) showjp TBIG0 ( B) show TBM0 0 -30 rmoveto Fxx show 0 30 rmoveto TBG0 -1400 xym mul -1400 xym mul translate 1200 1500 translate %END CIELAB_09 Hue Circle %**************************************************************************** %CIELAB_09-T16 /xdev 11000 def /xele -09250 def /xtop 600 def ibild 0 eq {5600 xdev add }{4700 xele add} ifelse 9600 xtop add translate proc_CIELAB_T16 ibild 0 eq {-5600 xdev sub}{-4700 xele sub} ifelse -9600 xtop sub translate %END CIELAB_09 Table %**************************************************************************** %BEG CIELAB_09 Diagram ibild 0 eq { %ibild=0 2600 xdev add 11600 xtop add translate proc_CIELAB_D -2600 xdev sub -11600 xtop sub translate } if %ibild=0 %END CIELAB_09 Diagram %**************************************************************************** %BEG CIELAB_09 Gamut ibild 1 eq { %ibild=1 proc_CIELAB_G } if %ibild=1 %END CIELAB_09 Diagram ibild 0 eq { 1900 neg 1700 neg translate} if ibild 1 eq {13800 neg 1700 neg translate} if } if %xcharts=9 %END CIELAB_09 xchart=09 %***************************************************************************** xcharts 10 ge xcharts 25 le and {%xcharts=10,25 %BEG CIELAB_10,25 xcharts=10,25 %BEG CIELAB_10 Top Text Hue Triangles ibild 0 eq { 1900 1700 translate} if ibild 1 eq {13800 1700 translate} if 1.0 setgray 25 setlinewidth -200 000 moveto 10500 0 rlineto stroke 000 -200 moveto 0 11800 rlineto stroke ibild 0 eq {2500 -200 moveto 0 400 rlineto stroke 5000 -200 moveto 0 400 rlineto stroke 7500 -200 moveto 0 400 rlineto stroke} {2000 -200 moveto 0 400 rlineto stroke 4000 -200 moveto 0 400 rlineto stroke 6000 -200 moveto 0 400 rlineto stroke 8000 -200 moveto 0 400 rlineto stroke }ifelse 10000 -200 moveto 0 400 rlineto stroke -200 5000 moveto 400 0 rlineto stroke -200 10000 moveto 400 0 rlineto stroke 000 000 moveto 10000 5000 rlineto -10000 5000 rlineto stroke 09700 -450 sub 000 150 add moveto 450 -150 rlineto -450 -150 rlineto closepath fill 000 150 sub 11000 -450 sub moveto 150 450 rlineto 150 -450 rlineto closepath fill TM0 %C*, C* ibild 0 eq { %ibild=0,1 /iy0 -600 def 0 200 sub iy0 moveto (000) show 2500 200 sub iy0 moveto (025) show 5000 200 sub iy0 moveto (050) show 7500 200 sub iy0 moveto (075) show 10000 200 sub iy0 moveto (100) show } { /iy0 -600 def 0 200 sub iy0 moveto (000) show 2000 200 sub iy0 moveto (020) show 4000 200 sub iy0 moveto (040) show 6000 200 sub iy0 moveto (060) show 8000 200 sub iy0 moveto (080) show 10000 200 sub iy0 moveto (100) show } ifelse %ibild=0,1 TM0 %T*, L* ibild 0 eq { %ibild=0,1 /ix0 -1750 def /iy0 200 def ix0 0 iy0 sub moveto (000) show ix0 2500 iy0 sub moveto (025) show ix0 5000 iy0 sub moveto (050) show ix0 7500 iy0 sub moveto (075) show ix0 10000 iy0 sub moveto (100) show } { /ix0 -0900 def /iy0 200 def ix0 0 iy0 sub moveto (000) show ix0 2500 iy0 sub moveto (025) show % ix0 5000 iy0 sub moveto (050) show ix0 7500 iy0 sub moveto (075) show ix0 10000 iy0 sub moveto (100) show } ifelse %ibild=0,1 TM0 i%* ibild 0 eq {%ibild=0,1 /iy0 1550 def 10000 400 sub 5000 iy0 sub moveto TIM0 (I*) show TM0 ( = 100) show 7500 400 sub 3750 iy0 sub moveto TIM0 (I*) show TM0 ( = 075) show 5000 400 sub 2500 iy0 sub moveto TIM0 (I*) show TM0 ( = 050) show 2500 400 sub 1250 iy0 sub moveto TIM0 (I*) show TM0 ( = 025) show 000 400 sub 00 iy0 sub moveto TIM0 (I*) show TM0 ( = 000) show }%ibild=0 {%ibild=1 /iy0 700 def 10000 500 sub 4700 iy0 sub moveto TIM0 (I*) show TM0 (=100) show 8000 200 sub 4000 iy0 sub moveto TIM0 (I*) show TM0 (=080) show 6000 200 sub 3000 iy0 sub moveto TIM0 (I*) show TM0 (=060) show 4000 200 sub 2000 iy0 sub moveto TIM0 (I*) show TM0 (=040) show 2000 200 sub 1000 iy0 sub moveto TIM0 (I*) show TM0 (=020) show 000 200 sub -300 iy0 sub moveto TIM0 (I*) show TM0 (=000) show } ifelse %ibild=0,1 ibild 0 eq {/iy0 2400 def} {/iy0 1400 def} ifelse 09000 0500 sub 4300 iy0 sub moveto 1000 500 rlineto stroke 10000 0500 sub 4800 iy0 sub moveto -450 -50 rlineto 150 -300 rlineto closepath fill 10000 2600 sub 3800 iy0 sub moveto TBG0 (brilliance) showen (Brillantheit) showde (brillo) showes (brillance) showfr (brillantezza) showit (brilliance) showjp TBIG0 ( I*) show 7200 -1100 moveto TBG0 (chroma) showen (Buntheit) showde (chroma) showes (chroma) showfr (croma) showit (chroma) showjp TBIG0 ( C*) show TBG0 /xtext0 -1700 def /xtext1 -1200 def ibild 0 eq { %ibild=0 TBG0 xtext0 14500 moveto (Data for any device (d) or) showen (Daten f\374r jede Ger\344te\255 (d) oder) showde (Datos del dispositivo (d) o) showes (Donn\351es de couleurs p\351riph\351riques (d)) showfr (Dati del dispositivo (d) o) showit (Data for any device (d) or) showjp xtext0 14100 moveto (elementary (e) colour:) showen (Elementarfarbe (e):) showde (elemental (e) color:) showes (ou \351l\351mentaires (e):) showfr (colori elementari (e):) showit (elementary (e) colour:) showjp xtext1 13700 moveto TBIG0 (HIC*) show TBM0 -20 -50 rmoveto Fxx show 0 50 rmoveto TBG0 xtext0 13300 moveto TBG0 (hue text for the colours) showen (Bunttontext f\374r die Farben) showde (c\363digo de tono para les colores) showes (code de teinte pour les cou\255) showfr (codice di tonalit\340 per i colori) showit (hue text for the colours) showjp xtext0 12900 moveto (of this page: ) showen (dieser Seite: ) showde (esta p\341gina: ) showes (leurs de cette p\341ge: ) showfr (questa pagina: ) showit (of this page: ) showjp xtext1 12500 moveto TBIG0 (H*) show -20 -50 rmoveto TBM0 Fxx show 0 50 rmoveto TBG0 ( = ) show TBG0 COLhNam16 xchart4 1 sub get show 0 -50 rmoveto TBM0 Fxx show 0 50 rmoveto %Equal data text for top right page in black 0 setgray 20000 14900 moveto TBIG0 (H*) show TBM0 -20 -50 rmoveto Fxx show 0 50 rmoveto TBG0 ( = ) show TBG0 COLhNam16 xchart4 1 sub get show 0 -50 rmoveto TBM0 Fxx show 0 50 rmoveto 1 setgray cfakt 1 ne {%cfakt#1 xtext0 12900 moveto TBG0 (factor of contrast reduction: ) showen (Faktor der Kontrast\255Reduzierung: ) showde (factor de reducci\363n del contraste: ) showes (facteur de contraste r\351duction: ) showfr (fattore di riduzione di contrasto: ) showit (factor of contrast reduction: ) showjp xtext1 12500 moveto TBIG0 (c) show TBM0 0 -130 rmoveto (R) show 0 130 rmoveto TBG0 ( = ) show cfakt cvsshow2 } if %cfakt#1 xtext1 12000 moveto TBG0 (triangle lightness) showen (Dreiecks\255Helligkeit) showde (tri\340ngulo claridad) showes (triangle de luminosit\351) showfr (triangulo chiarezza) showit (triangle lightness) showjp TBIG0 ( T*) show /ixt 12500 def /iyt 000 def TBG0 -1200 ixt add 12000 iyt add moveto TBG0 (triangle lightness) showen (Dreiecks\255Helligkeit) showde (tri\340ngulo claridad) showes (triangle de luminosit\351) showfr (triangulo chiarezza) showit (triangle lightness) showjp TBIG0 ( T*) show TBG0 -1200 ixt add 14500 iyt add moveto (Data for maximum colour (Ma): ) showen (Daten f\374r Maximalfarbe (Ma): ) showde (Los datos de color m\341ximo (Ma): ) showes (Les donn\351es de couleur maximale (Ma): ) showfr (Il dati per il massimo colore (Ma): ) showit (Data for maximum colour (Ma): ) showjp TBIG0 -1200 ixt add 14000 iyt add moveto (LabCh*) show TBM0 -20 -50 rmoveto Fxx show (,Ma) show 0 50 rmoveto TBG0 (: ) show /i xcharts 10 sub def i 8 le {/i1 i def}{/i1 i 1 add def} ifelse %dup at no. 10 /i30 i1 3 mul def /i31 i30 1 add def /i32 i30 2 add def xchart 0 eq {%xchart=0,>0 %16 measured data, see PE54L0NP.pdf, page 11/24 %PE540-7N, Page 11/24 HIC*Fd rgb*Fd LabCh*Fd /LAB*a48 432 array def %48x9=432 /LAB*a48 [%HIC rgb LabCh nr (R00Y_100_100d) 1.000 0.000 0.000 48.4 66.1 40.2 77.4 31.3 %00 (R13Y_100_100d) 1.000 0.116 0.000 52.5 57.3 45.5 73.2 38.4 %01 (R25Y_100_100d) 1.000 0.233 0.000 56.8 48.0 50.5 69.8 46.4 %02 (R38Y_100_100d) 1.000 0.366 0.000 62.5 36.5 57.1 67.8 57.3 %03 (R50Y_100_100d) 1.000 0.500 0.000 68.6 25.0 63.9 68.7 68.6 %04 (R63Y_100_100d) 1.000 0.633 0.000 74.9 14.1 71.1 72.5 78.7 %05 (R75Y_100_100d) 1.000 0.766 0.000 80.6 4.8 77.2 77.4 86.4 %06 (R88Y_100_100d) 1.000 0.883 0.000 85.4 -2.5 82.3 82.3 91.7 %07 (Y00G_100_100d) 1.000 1.000 0.000 90.2 -9.6 88.2 88.7 96.2 %08 (Y13G_100_100d) 0.883 1.000 0.000 86.7 -14.2 83.5 84.7 99.6 %09 (Y25G_100_100d) 0.766 1.000 0.000 83.2 -18.4 79.9 82.0 102.9 %10 (Y38G_100_100d) 0.633 1.000 0.000 77.9 -25.1 69.5 74.0 109.8 %11 (Y50G_100_100d) 0.500 1.000 0.000 73.3 -31.7 62.7 70.3 116.8 %12 (Y63G_100_100d) 0.366 1.000 0.000 68.2 -39.5 55.9 68.5 125.2 %13 (Y75G_100_100d) 0.233 1.000 0.000 62.0 -49.7 43.2 65.9 138.9 %14 (Y88G_100_100d) 0.116 1.000 0.000 59.1 -57.1 38.5 68.9 145.9 %15 (G00C_100_100d) 0.000 1.000 0.000 55.8 -65.2 33.8 73.5 152.5 %16 (G13C_100_100d) 0.000 1.000 0.116 56.6 -62.9 24.0 67.3 159.0 %17 (G25C_100_100d) 0.000 1.000 0.233 57.4 -59.7 13.9 61.3 166.8 %18 (G38C_100_100d) 0.000 1.000 0.366 58.5 -54.9 1.5 55.0 178.4 %19 (G50C_100_100d) 0.000 1.000 0.500 59.3 -50.3 -9.0 51.1 190.2 %20 (G63C_100_100d) 0.000 1.000 0.633 60.1 -45.6 -18.7 49.3 202.3 %21 (G75C_100_100d) 0.000 1.000 0.766 61.1 -40.3 -27.8 49.0 214.6 %22 (G88C_100_100d) 0.000 1.000 0.883 62.0 -35.8 -34.7 49.9 224.0 %23 (C00B_100_100d) 0.000 1.000 1.000 63.0 -30.5 -42.0 51.9 234.0 %24 (C13B_100_100d) 0.000 0.883 1.000 59.4 -25.3 -42.7 49.7 239.2 %25 (C25B_100_100d) 0.000 0.766 1.000 55.8 -20.3 -43.2 47.7 244.7 %26 (C38B_100_100d) 0.000 0.633 1.000 50.8 -13.3 -43.9 45.9 253.0 %27 (C50B_100_100d) 0.000 0.500 1.000 45.7 -5.7 -44.6 45.0 262.6 %28 (C63B_100_100d) 0.000 0.366 1.000 40.4 2.6 -45.2 45.2 273.3 %29 (C75B_100_100d) 0.000 0.233 1.000 36.0 10.1 -46.1 47.2 282.3 %30 (C88B_100_100d) 0.000 0.116 1.000 32.1 17.3 -46.7 49.8 290.3 %31 (B00M_100_100d) 0.000 0.000 1.000 27.5 25.9 -47.3 54.0 298.7 %32 (B13M_100_100d) 0.116 0.000 1.000 29.5 33.4 -43.1 54.6 307.7 %33 (B25M_100_100d) 0.233 0.000 1.000 31.0 39.9 -38.5 55.5 315.9 %34 (B38M_100_100d) 0.366 0.000 1.000 35.1 44.5 -34.7 56.5 322.0 %35 (B50M_100_100d) 0.500 0.000 1.000 38.3 52.6 -28.5 59.9 331.5 %36 (B63M_100_100d) 0.633 0.000 1.000 41.2 59.3 -22.0 63.3 339.6 %37 (B75M_100_100d) 0.766 0.000 1.000 45.2 63.8 -18.2 66.4 344.0 %38 (B88M_100_100d) 0.883 0.000 1.000 47.5 68.6 -13.8 69.9 348.5 %39 (M00R_100_100d) 1.000 0.000 1.000 49.5 73.5 -9.0 74.1 352.9 %40 (M13R_100_100d) 1.000 0.000 0.883 49.4 72.4 -4.0 72.5 356.7 %41 (M25R_100_100d) 1.000 0.000 0.766 49.3 71.4 0.4 71.4 0.3 %42 (M38R_100_100d) 1.000 0.000 0.633 49.3 69.8 6.6 70.1 5.4 %43 (M50R_100_100d) 1.000 0.000 0.500 48.9 69.3 12.9 70.5 10.5 %44 (M63R_100_100d) 1.000 0.000 0.366 48.9 68.1 19.6 70.9 16.1 %45 (M75R_100_100d) 1.000 0.000 0.233 48.8 67.1 27.9 72.7 22.6 %46 (M88R_100_100d) 1.000 0.000 0.116 48.6 66.5 34.1 74.8 27.1 %47 ] def /indFa16 16 array def /indFa16 [00 02 04 06 08 10 12 14 16 20 24 28 32 36 40 44] def /indx indFa16 i get def /i90 indx 9 mul 4 add def /i91 i90 1 add def /i92 i90 2 add def /L*Ma LAB*a48 i90 get def /A*Ma LAB*a48 i91 get def /B*Ma LAB*a48 i92 get def /C*Ma A*Ma dup mul B*Ma dup mul add 0.0001 add sqrt def /H*Ma B*Ma A*Ma 0.0001 add atan def /i90 indx 9 mul 1 add def /i91 i90 1 add def /i92 i90 2 add def /r*xF LAB*a48 i90 get def /g*xF LAB*a48 i91 get def /b*xF LAB*a48 i92 get def }%xchart=0 {%xchart>0 /r*x r*dd18M i get def /g*x g*dd18M i get def /b*x b*dd18M i get def r*x g*x b*x setrgbcolor %default to create data %setrgbcolor calculates data for output in "FF_LM_de_setrgbcolor_F" %colorm=0 calculates: rgb_dyF, rgb*dyF, LAB*dyF, ,cmyk*dyF and more %colorm=1 calculates: rgb_dyF, rgb*dyF, LAB*dyF', rgb'*dyF, cmyk*dyF and more /r_xF r_dyF def /g_xF g_dyF def /b_xF b_dyF def /i_xF i_dyF def /c_xF c_dyF def /t_xF t_dyF def /r*xF r*dyF def /g*xF g*dyF def /b*xF b*dyF def /LAB*LxF LAB*LdyF def /LAB*axF LAB*adyF def /LAB*bxF LAB*bdyF def /LAB*CxF LAB*adyF dup mul LAB*bdyF dup mul add 0.0001 add sqrt def /LAB*hxF LAB*bdyF LAB*adyF 0.0001 add atan def colorm 0 eq {%colorm=0 %proc_rgb_dyF_LAB*'dyF uses rgb_dyF by default %calculates output data according to IEC 61966-2-1 proc_rgb_dyF_LAB*'dyF /LAB*'LxF L*'dyF def /LAB*'axF a*'dyF def /LAB*'bxF b*'dyF def /LAB*'CxF C*'dyF def /LAB*'hxF h*'dyF def } if %colorm=0 colorm 1 eq {%colorm=1 /r'*xF r'*dyF def /g'*xF g'*dyF def /b'*xF b'*dyF def %calculates output data according to IEC 61966-2-1 proc_rgb'*dyF_LAB'*dyF /LAB'*LxF L'*dyF def /LAB'*axF a'*dyF def /LAB'*bxF b'*dyF def /LAB'*CxF C'*dyF def /LAB'*hxF h'*dyF def } if %colorm=1 %colorm 0 eq {%colorm=0 % /L*Ma LAB*'LxF def % /A*Ma LAB*'axF def % /B*Ma LAB*'bxF def % /C*Ma LAB*'CxF def % /H*Ma LAB*'hxF def % }%colorm=0 % {%colorm=1 % /L*Ma LAB'*LxF def % /A*Ma LAB'*axF def % /B*Ma LAB'*bxF def % /C*Ma LAB'*CxF def % /H*Ma LAB'*hxF def % } ifelse %colorm=0,1 /L*Ma LAB*LxF def /A*Ma LAB*axF def /B*Ma LAB*bxF def /C*Ma LAB*CxF def /H*Ma LAB*hxF def } ifelse %xchart=0,>0 1 setgray L*Ma cvishow ( ) show A*Ma cvishow ( ) show B*Ma cvishow ( ) show C*Ma cvishow ( ) show H*Ma cvishow ( ) show %calculation of i*xF, c*xF, and t*xF /maxd r*xF def g*xF maxd gt {/maxd g*xF def} if b*xF maxd gt {/maxd b*xF def} if /mind r*xF def g*xF mind lt {/mind g*xF def} if b*xF mind lt {/mind b*xF def} if /i*xF maxd def /c*xF maxd mind sub def /t*xF i*xF c*xF 0.5 mul sub def TBIG0 -1200 ixt add 13500 iyt add moveto (HIC*) show TBM0 -20 -50 rmoveto Fxx show (,Ma) show 0 50 rmoveto TBG0 (: ) show TBG0 COLhNam16 i get show (_) show /I*xF i*xF 100 mul cvi def I*xF 09 le {(00) show} if %filling cero I*xF 09 gt I*xF 99 le and {(0) show} if %range 0..100 I*xF 6 string cvs show (_) show /C*xF c*xF 100 mul cvi def C*xF 09 le {(00) show} if %filling cero C*xF 09 gt C*xF 99 le and {(0) show} if %range 0..100 C*xF 6 string cvs show TBM0 00 -50 rmoveto Fxx show 0 50 rmoveto TBIG0 -1200 ixt add 13000 iyt add moveto (rgbic*) show TBM0 -20 -50 rmoveto Fxx show (,Ma) show 0 50 rmoveto TBG0 (: ) show -1200 ixt add 12500 iyt add moveto r*xF cvsshow2 ( ) show g*xF cvsshow2 ( ) show b*xF cvsshow2 ( ) show i*xF cvsshow2 ( ) show c*xF cvsshow2 ( ) show } if %ibild=0 ibild 0 eq { %ibild=0 xtext0 15000 moveto (Input and Output: ) showen (Ein\255 und Ausgabe: ) showde (Entrada i salida: ) showes (Entr\351e et sortie: ) showfr (Immetere y uscita: ) showit (Input and Output: ) showjp TSYSIOen showen TSYSIOde showde TSYSIOes showes TSYSIOfr showfr TSYSIOit showit TSYSIOjp showjp TSYSIOa show /i xcharts 10 sub def TBG0 ( for relative CIELAB hue) showen ( f\374r relativen CIELAB\255Buntton) showde ( for relative CIELAB hue) showes ( pour la teinte CIELAB relative) showfr ( for relative CIELAB hue) showit ( for relative CIELAB hue) showjp TBIG0 ( h) show TBM0 0 -50 rmoveto (ab,a,rel) show 0 50 rmoveto TBG0 ( = ) show TBIG0 ( h) show TBM0 -20 -50 rmoveto (ab) show 0 50 rmoveto TBG0 (/360 = ) show H*Ma cvishow (/360 = ) show H*Ma 360 div cvsshow2 } if %ibild=0 %END CIELAB_10 Top Text Hue Triangles %*********************************************************************** %BEG CIELAB_10 Hue Triangle left 5 steps 0.0 setgray CBM0 ibild 0 eq { %ibild=0 /Tabfakt 0.82 def /anz 5 def /xs 10000 anz 3 add div def /ys xs def /x9 xs 1.8 mul def /xd xs 2 mul def /yd xs def 1 1 1 setrgbcolor %n* 1 1 3 {/j exch def /x1 xmin def /y1 ymax yd j 2 mul mul sub def /x2 xmin xd 4 j sub mul add def /y2 ymin yd 4 j sub mul add def x1 y1 moveto x2 y2 lineto stroke } for %c* 1 1 3 {/j exch def /x1 xmin xd j mul add def /y1 ymax yd j mul sub def /x2 xmin xd j mul add def /y2 ymin yd j mul add def x1 y1 moveto x2 y2 lineto stroke } for xcharts 6 ge {/i xcharts 10 sub def /r*xsi r*dd18M i get def /g*xsi g*dd18M i get def /b*xsi b*dd18M i get def } if /id 1 4 div def 0 1 04 {/j exch def %j=0,4 /im 4 j sub def 0 1 im {/i exch def %i=0,4 im 0 eq %im=0 {/r*x 0 def /g*x 0 def /b*x 0 def} %im=0 {/ia 1 id j mul sub def /argb ia def /brgb ia i id mul sub def xcharts 0 eq {/r*x argb def /g*x brgb def /b*x brgb def} if xcharts 1 eq {/r*x argb def /g*x argb def /b*x brgb def} if xcharts 2 eq {/r*x brgb def /g*x argb def /b*x brgb def} if xcharts 3 eq {/r*x brgb def /g*x argb def /b*x argb def} if xcharts 4 eq {/r*x brgb def /g*x brgb def /b*x argb def} if xcharts 5 eq {/r*x argb def /g*x brgb def /b*x argb def} if xcharts 6 ge {%xcharts>=6 /ib 1 im div def %im#0 /ic 1 ib i mul sub def /ie 1 ic sub def /r*x 1 ia mul ic mul r*xsi ia mul ie mul add def /g*x 1 ia mul ic mul g*xsi ia mul ie mul add def /b*x 1 ia mul ic mul b*xsi ia mul ie mul add def } if %xcharts>=6 } ifelse %im=0 r*x g*x b*x setrgbcolor %only to calculate olv'*3, cmyn'*4 /xa xmin xd i mul add 0.5 xd mul sub def /iad j 2 mul def /ya ymax yd i iad add mul sub 1.0 yd mul sub def r*x g*x b*x setrgbcolor xa ya xd xd rec fill xcharti 5 le {1 r*x sub 1 g*x sub 1 b*x sub 0 setcmykcolor xa ya xd 0.5 mul dup rem fill} if xcharti 0 eq {%xcharti=0 [100 300] 0 setdash r*x 0 eq g*x 0 eq and b*x 0 eq and {1 setgray} {0 setgray} ifelse xa ya xd 0.5 mul dup rem stroke [ ] 0 setdash } if %xcharti=0 } for %i=0,4 } for %j=0,4 /i 2 def %mean grey stroke of 5 steps /xa xmin 0.5 xd mul sub def /ya ymax yd i mul 2 mul sub 1.0 yd mul sub def 1 1 1 setrgbcolor xa ya xd xd rec stroke } if %ibild=0 %END CIELAB_10 Hue Triangle left 5 steps %******************************************************************* %BEG CIELAB_10 Hue Triangle right 16 steps ibild 1 eq { %ibild=1 CBK0 /Tabfakt 1 def /anz 16 def /xs 10000 anz 14 add div def /ys xs def /x9 xs 1.8 mul def /xd xs 2 mul def /yd xs def 1 1 1 setrgbcolor %n* 1 1 14 {/j exch def %j=1,14 /x1 xmin def /y1 ymax yd j 2 mul mul sub def /x2 xmin xd 15 j sub mul add def /y2 ymin yd 15 j sub mul add def x1 y1 moveto x2 y2 lineto stroke } for %j=1,14 %c* 1 1 14 {/j exch def %j=1,14 /x1 xmin xd j mul add def /y1 ymax yd j mul sub def /x2 xmin xd j mul add def /y2 ymin yd j mul add def x1 y1 moveto x2 y2 lineto stroke } for %j=1,14 xcharts 6 ge {/i xcharts 10 sub def /r*xsi r*dd18M i get def /g*xsi g*dd18M i get def /b*xsi b*dd18M i get def } if /id 1 15 div def 0 1 15 {/j exch def %j=0,14 /im 15 j sub def 0 1 im {/i exch def %i=0,15 im 0 eq %im=0 {/r*x 0 def /g*x 0 def /b*x 0 def} %im=0 {/ia 1 id j mul sub def /argb ia def /brgb ia i id mul sub def xcharts 0 eq {/r*x argb def /g*x brgb def /b*x brgb def} if xcharts 1 eq {/r*x argb def /g*x argb def /b*x brgb def} if xcharts 2 eq {/r*x brgb def /g*x argb def /b*x brgb def} if xcharts 3 eq {/r*x brgb def /g*x argb def /b*x argb def} if xcharts 4 eq {/r*x brgb def /g*x brgb def /b*x argb def} if xcharts 5 eq {/r*x argb def /g*x brgb def /b*x argb def} if xcharts 6 ge {%xcharts>=6 /ib 1 im div def %im#0 /ic 1 ib i mul sub def /ie 1 ic sub def /r*x 1 ia mul ic mul r*xsi ia mul ie mul add def /g*x 1 ia mul ic mul g*xsi ia mul ie mul add def /b*x 1 ia mul ic mul b*xsi ia mul ie mul add def } if %xcharts>=6 } ifelse %im=0 r*x g*x b*x setrgbcolor %only to calculate olv'*3, cmyn'*4 /xa xmin xd i mul add 0.5 xd mul sub def /iad j 2 mul def /ya ymax yd i iad add mul sub 1.0 yd mul sub def r*x g*x b*x setrgbcolor xa ya xd xd rec fill xcharti 5 le {1 r*x sub 1 g*x sub 1 b*x sub 0 setcmykcolor xa ya xd 0.5 mul dup rem fill} if xcharti 0 eq {%xcharti=0 [100 300] 0 setdash r*x 0 eq g*x 0 eq and b*x 0 eq and {1 setgray} {0 setgray} ifelse xa ya xd 0.5 mul dup rem stroke [ ] 0 setdash } if %xcharti=0 } for %i=0,15 } for %j=0,15 xcharti 5 le {%xchart=0,5 %mean grey stroke of steps 7 and 8 7 1 8 {/i exch def %i=7,8 /xa xmin xd 0.5 mul sub def /ya ymax yd i mul 2 mul sub xd 0.5 mul sub def 1 1 1 setrgbcolor xa ya xd xd rec stroke } for %i=7,8 } if %xchart=0,5 } if %ibild=1 %END CIELAB_10 Hue Triangle right %******************************************************************* %BEG CIELAB_10 Table ibild 0 eq {5600}{4500} ifelse 9600 translate proc_CIELAB_T16 ibild 0 eq {-5600}{-4500} ifelse -9600 translate %END CIELAB_10 Table %******************************************************************** %BEG CIELAB_10 Diagram ibild 0 eq { %ibild=0 2700 11600 translate proc_CIELAB_D -2700 -11600 translate } if %ibild=0 %END CIELAB_10 Diagram %***************************************************************** %BEG CIELAB_10 Gamut ibild 1 eq { %ibild=1 proc_CIELAB_G } if %ibild=1 %END CIELAB_10 Gamut %***************************************************************** ibild 1 eq {-13800 -1700 translate} if ibild 0 eq { -1900 -1700 translate} if } if %xcharts=10,25 %END CIELAB_10,25 xchart=10,25 %***************************************************************************** } for %ibild=0,1 %***************************************************************************** xcharts 26 eq {%BEG CIELAB_26 xcharts=26 % Data for 1080 colour test chart /nr1 27 array def /tx1 52 array def /nr1 [(01) (02) (03) (04) (05) (06) (07) (08) (09) (10) (11) (12) (13) (14) (15) (16) (17) (18) (19) (20) (21) (22) (23) (24) (25) (26) (27)] def /tx1 [(A) (B) (C) (D) (E) (F) (G) (H) (I) (J) (K) (L) (M) (N) (O) (P) (Q) (R) (S) (T) (U) (V) (W) (X) (Y) (Z) (a) (b) (c) (d) (e) (f) (g) (h) (i) (j) (k) (l) (m) (n) (o) (p) (q) (r) (s) (t) (u) (v) (w) (x) (y) (z)] def /fakt 1 def /iyt 32 fakt mul def %text size /iyd 35 fakt mul def %line difference 180 /Times-ISOL1 FS 0 0 0 setrgbcolor 9000 -180 moveto (Test chart G with 40x27=1080 colours) showea (Pr\374fvorlage G mit 40x27=1080 Farben) showde (; digital equidistant 9 or 16 step colour scales;) showea (; digital gleichabst\344ndige 9 oder 16stufige Farbreihen;) showde ( Farbdaten in Spalte (A-n):) showde ( Colour data in column (A-n):) showea 180 /TimesB-ISOL1 FS xchart 0 eq {( rgb + cmy0 (A_j + k26_n27)) show (, 000n (k), w (l), nnn0 (m), www (n)) show} if xchart 1 eq {( rgb (A_n)) show} if /xs 900 3 div 2 mul def /ys xs def /d2 xs 2 div def /d8 xs 8 div def (, 3D = ) show colorm cvishow %(, colsep = ) show colsep cvishow %colorm 1 eq {(, cmyn4*) show} if %/xchartg where {pop /faktg xchartg 1 ge {1.10} {1.00} ifelse def} % {/faktg 1.10 def} ifelse %0.01 MM faktg mul dup scale /xmin 650 3 div 2.2 mul def /ymax 15800 def xchart 0 eq {/xd 800 3 div 2 mul def /yd 800 3 div 2 mul def} {/xd 900 3 div 2 mul def /yd 900 3 div 2 mul def} ifelse /xsd xs xd sub 0.5 mul def /ysd xs xd sub 0.5 mul def /xd2 xd 0.50 mul def /xd4 xd 0.25 mul def 20 setlinewidth 500 3 div 2 mul /Times-ISOL1 FS 0 0 0 setrgbcolor 1 1 27 {/i exch def %i=1,27 /x xs 0.15 mul def /y 27.6 ys mul ys i mul sub def x y moveto nr1 i 1 sub get show } for %i=1,27 1 1 40 {/i exch def %i=1,36 /x xs i mul 000 add def /y 27.5 ys mul def x y moveto tx1 i 1 sub get show } for %i=1,36 /RGB*R0 1080 array def /RGB*G0 1080 array def /RGB*B0 1080 array def /IMODE 0 def %input rgb for output LAB* %row no.1 and 2: 9xrgb /imax 08 def /jmax 08 def /kmax 08 def /TKK2 {200 3 div 2 mul /Times-ISOL1 FS} bind def TKK2 0 1 kmax {/k exch def %beg k=0,08 /k0 k 3 idiv def /k1 k k0 3 mul sub def /xadd k1 xs 9 mul mul def /yadd k0 xs 9 mul mul def 0 1 jmax {/j exch def %beg j=0,jmax 0 1 imax {/i exch def %beg i=0,imax /n1079 i j 9 mul add k 81 mul add def /xa xmin j xs mul add xadd add xsd add def /ya ymax i ys mul sub yadd sub ysd add def /r k kmax div def /g j jmax div def /b i imax div def RGB*R0 n1079 r put RGB*G0 n1079 g put RGB*B0 n1079 b put r g b setrgbcolor xa ya xd dup rec fill 1 r sub 1 g sub 1 b sub 0 setcmykcolor xa xd4 add ya xd4 add xd2 dup rec fill } for %end i=0,jmax } for %end j=0,jmax } for %end k=0,kmax %3x rgbcmy /id 1 8 div def /rijn 81 array def %for intermediate storage /gijn 81 array def /bijn 81 array def /lmax 2 def /n1079 728 def 0 1 lmax {/l exch def %beg k=0,kmax /xadd 3 xs 9 mul mul def /yadd l ys 9 mul mul def %for intermediate storage of l=0,lmax 0 1 01 {/jchart exch def %jchart=0,1 /xchartj l jchart 3 mul add def 0 1 08 {/j exch def %j=0,7 /im 8 j sub def jchart 1 im {/i exch def %i=0,8 /ia 1 id j mul sub def /argb ia def /brgb ia i id mul sub def xchartj 0 eq {/r argb def /g brgb def /b brgb def} if xchartj 1 eq {/r argb def /g argb def /b brgb def} if xchartj 2 eq {/r brgb def /g argb def /b brgb def} if xchartj 3 eq {/r brgb def /g argb def /b argb def} if xchartj 4 eq {/r brgb def /g brgb def /b argb def} if xchartj 5 eq {/r argb def /g brgb def /b argb def} if jchart 0 eq {/in i j add def /jn j def} {/in j def /jn i j add def} ifelse rijn in 9 mul jn add r put gijn in 9 mul jn add g put bijn in 9 mul jn add b put } for %i=0,7 } for %j=0,8 } for %jchart=0,1 %for output of l=0,lmax 0 1 08 {/j exch def %j=0,8 0 1 08 {/i exch def %i=0,8 /n1079 n1079 1 add def /r rijn i j 9 mul add get def /g gijn i j 9 mul add get def /b bijn i j 9 mul add get def /xa xmin xs j mul add xadd add xsd add def /ya ymax xs i mul sub yadd sub ysd add def r g b setrgbcolor xa ya xd dup rec fill 1 r sub 1 g sub 1 b sub 0 setcmykcolor xa xd4 add ya xd4 add xd2 dup rec fill } for %i=0,7 } for %j=0,8 } for %end l=0,lmax %6wrgbcmy /n1079 971 def /lmax 03 def %4 rows with geys /kmax 1 def %9 or 16 steps 0 1 kmax {/k exch def % k 0 eq {/jmax 08 def} {/jmax 15 def} ifelse 0 1 lmax {/l exch def %beg l=0,lmax /xadd 36 l add xs mul def /yadd k 9 xs mul mul def /j1 l 36 add def /j1$ tx1 j1 get def 0 1 jmax {/j exch def %j=0,08 /n1079 n1079 1 add def /i1 j k 9 mul add 1 add def %9 steps, 16 steps /argb j jmax div def /xa xmin xadd add xsd add def /ya ymax xs j mul sub yadd sub ysd add def /r argb def /g argb def /b argb def r g b setrgbcolor xa ya xd dup rec fill 1 r sub 1 g sub 1 b sub 0 setcmykcolor xa xd4 add ya xd4 add xd2 dup rec fill } for %j=0,jmax } for %l=0,lmax } for %k=0,kmax %basic colours 1072 - 1080 /basrgb 24 array def /basrgb [0 0 0 1 1 1 1 0 0 0 1 1 1 1 0 0 0 1 0 1 0 1 0 1 ] def /n1079 1071 def 0 1 07 {/i exch def %i=0,7 /n1079 n1079 1 add def /i3 i 3 mul def /xadd 36 xs mul def /yadd 25 xs mul def i 0 eq {/l 0 def /j 0 def /j1$ (k) def /i1 26 def} if i 1 eq {/l 0 def /j 1 def /j1$ (k) def /i1 27 def} if i 2 eq {/l 1 def /j 0 def /j1$ (l) def /i1 26 def} if i 3 eq {/l 1 def /j 1 def /j1$ (l) def /i1 27 def} if i 4 eq {/l 2 def /j 0 def /j1$ (m) def /i1 26 def} if i 5 eq {/l 2 def /j 1 def /j1$ (m) def /i1 27 def} if i 6 eq {/l 3 def /j 0 def /j1$ (n) def /i1 26 def} if i 7 eq {/l 3 def /j 1 def /j1$ (n) def /i1 27 def} if /xa xmin xs l mul add xadd add xsd add def /ya ymax xs j mul sub yadd sub ysd add def /r basrgb i3 get def /g basrgb i3 1 add get def /b basrgb i3 2 add get def r g b setrgbcolor xa ya xd dup rec fill 1 r sub 1 g sub 1 b sub 0 setcmykcolor xa xd4 add ya xd4 add xd2 dup rec fill } for %i=0,7 %*************************************************************************** %} for %pmetam=0,1 } if %END CIELAB_26 xcharts=26 } if %END LOOP0: xchart<=xchart3P4 two pages+4 separations %***************************************************************************** %used for tables in the rest /xchart3P5 xchart3 5 add def /xchart3P6 xchart3 6 add def /xchart3P7 xchart3 7 add def xchart xchart3P5 ge {%BEG LOOPtables: xchart>=xchart3P5 /xcharti pchart def xcharti 0 eq {/Xprint 0 def /FileData (LAB*rc) def} if xcharti 1 eq {/Xprint 1 def /FileData (LAB*ra) def} if xcharti 2 eq {/Xprint 1 def /FileData (LAB*na) def} if xcharti 3 eq {/Xprint 1 def /FileData (LAB*la0) def} if xcharti 4 eq {/Xprint 1 def /FileData (LAB*la1) def} if xcharti 5 eq {/Xprint 1 def /FileData (LAB*la2) def} if xcharti 6 eq {/Xprint 1 def /FileData (LAB*la3) def} if xcharti 7 eq {/Xprint 1 def /FileData (LAB*la4) def} if xcharti 8 eq {/Xprint 1 def /FileData (LAB*la5) def} if xcharti 9 eq {/Xprint 1 def /FileData (LAB*la6) def} if xcharti 10 eq {/Xprint 1 def /FileData (LAB*la7) def} if TK1 0 setgray 5500 -200 moveto FileData show xcharti 3 ge {(, YN=) show Lrefl xcharti get show} if (, XYZnw=) show Xj 000 get cvsshow1r (, ) show Yj 000 get cvsshow1r (, ) show Zj 000 get cvsshow1r (, ) show Xj 728 get cvsshow1r (, ) show Yj 728 get cvsshow1r (, ) show Zj 728 get cvsshow1r (, LAB*nw=) show LAB*Lja 000 get cvsshow1r (, ) show LAB*aja 000 get cvsshow1r (, ) show LAB*bja 000 get cvsshow1r (, ) show LAB*Lja 728 get cvsshow1r (, ) show LAB*aja 728 get cvsshow1r (, ) show LAB*bja 728 get cvsshow1r TK1 18500 -200 moveto (Output: ) showen (Ausgabe: ) showde (salida: ) showes (sortie: ) showfr (uscita: ) showit (output: ) showjp FileDaten showen FileDatde showde FileDaten showes FileDaten showfr FileDaten showit FileDaten showjp (, Seite ) showde (, page ) showen (, p\341gina ) showes (, page ) showfr (, pagina ) showit (, page ) showjp xchart 1 add cvishow (/) show 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\255Sytem ) showde (Data of Maximum color M in colorimetric system ) showes (Couleur maximale dans le syst\350me colorimetrique : ) showfr (Data of Maximum color M in colorimetric system ) showit (Data of Maximum color M in colorimetric system ) showjp FileDaten showen FileDatde showde FileDaten showes FileDaten showfr FileDaten showit FileDaten showjp ( for input or output; ) showen ( f\374r Ein\255 oder Ausgabe; ) showde ( for input or output; ) showes ( pour l'entr\351e et sortie; ) showfr ( for input or output; ) showit ( for input or output; ) showjp (Six hue angles of the 60 degree standard colours) showen (Sechs Bunttonwinkel der 60\255Grad Standardfarben) showde (Six hue angles of the 60 degree standard colours) showes (Six angles de teinte \340 60 degr\350s couleurs standard ) showfr (Six hue angles of the 60 degree standard colours) showit (Six hue angles of the 60 degree standard colours) showjp TBIK1 ( RYGCBM) show TBS1 0 -50 rmoveto (s) show 0 50 rmoveto TBK1 (:) show TBIK1 ( h) show TBS1 0 -50 rmoveto (ab,ds) show 0 50 rmoveto TBK1 ( = ) show LAB*Hs 0 get cvsshow1r (, ) show LAB*Hs 1 get cvsshow1r (, ) show LAB*Hs 2 get cvsshow1r (, ) show LAB*Hs 3 get cvsshow1r (, ) show LAB*Hs 4 get cvsshow1r (, ) show LAB*Hs 5 get cvsshow1r (; ) show xi 100 add 16400 moveto (Six hue angles of the device colours) showen (Sechs Bunttonwinkel der Ger\344tefarben) showde (Six hue angles of the device colours) showes (Six angles de teinte des couleurs p\351riph\351riques) showfr (Six hue angles of the device colours) showit (Six hue angles of the device colours) showjp TBIK1 ( RYGCBM) show TBS1 0 -50 rmoveto (d) show 0 50 rmoveto TBK1 (:) show TBIK1 ( h) show TBS1 0 -50 rmoveto (ab,d) show 0 50 rmoveto TBK1 ( = ) show LAB*hdd64M 00 get cvsshow1r (, ) show LAB*hdd64M 08 get cvsshow1r (, ) show LAB*hdd64M 16 get cvsshow1r (, ) show LAB*hdd64M 24 get cvsshow1r (, ) show LAB*hdd64M 32 get cvsshow1r (, ) show LAB*hdd64M 40 get cvsshow1r (; ) show (Six hue angles of the elementary colours) showen (Sechs Bunttonwinkel der Elementarfarben) showde (Six hue angles of the elementary colours) showes (Six angles de teinte des couleurs \351l\351mentaires) showfr (Six hue angles of the elementary colours) showit (Six hue angles of the elementary colours) showjp TBIK1 ( RYGCBM) show TBS1 0 -50 rmoveto (e) show 0 50 rmoveto TBK1 (:) show TBIK1 ( h) show TBS1 0 -50 rmoveto (ab,e) show 0 50 rmoveto TBK1 ( = ) show LAB*He 0 get cvsshow1r (, ) show LAB*He 1 get cvsshow1r (, ) show LAB*He 2 get cvsshow1r (, ) show LAB*He 3 get cvsshow1r (, ) show LAB*He 4 get cvsshow1r (, ) show LAB*He 5 get cvsshow1r xchart xchart3P5 le {%BEG LOOP1: xchart<=xchart3P5 /ToutenN0 (Colorimetric data of Natural Colour System NCS) def /ToutdeN0 (Farbmetrische Daten des Nat\374rliches Farbsystems NCS) def /ToutenL0 (Colorimetric data of Natural Luminous System NLS) def /ToutdeL0 (Farbmetrische Daten des Nat\374rliches\255Lichtfarbensystem NLS) def 8 /Times-ISOL1 FS 72 82.5 moveto ( RF380-7N, ) show xchart 8 le {ToutdeN0 showde ToutenN0 showea} {ToutdeL0 showde ToutenL0 showea} ifelse /yhoe 8500 def /xhoe 12300 def % 0 1 2 3 4 5 /Dcol [(O=R) (J=Y) (L=G) (C=C) (V=B) (M=M) ] def /Dcolen [(orange\255red) (Yellow) (leaf\255green) (cyan\255blue) (violet\255blue) (magenta\255red)] def /Dcolde [(Orangerot) (Gelb) (Laubgr\374n) (Cyanblau) (Violettblau) (Magentarot)] def /xshifd [ 2800 -4000 -5400 -5100 2800 2900 ] def /yshifd [ 2500 3700 1800 -1000 -2600 -0850 ] def /Ecol [(R) (Y) (G) (C) (B) (M) ] def /Ecolen [(red) (yellow) (green) (blue\255green) (blue) (blue\255red)] def /Ecolde [(Rot) (Gelb) (Gr\374n) (Blaugr\374n) (Blau) (Blaurot)] def /xshife [ 2800 -3000 -5400 -5100 -3000 2900 ] def /yshife [ 2000 3700 1800 -1000 -2600 -0850 ] def /Scol [(R) (Y) (G) (C) (B) (M) ] def /Scolen [(red) (yellow) (green) (blue\255green) (blue) (blue\255red)] def /Scolde [(Rot) (Gelb) (Gr\374n) (Blaugr\374n) (Blau) (Blaurot)] def /xshifs [ 2800 -3000 -5400 -5100 -3000 2900 ] def /yshifs [ 2000 3700 1800 -1000 -2600 -0850 ] def 2500 8200 moveto 20000 0 rlineto stroke 12500 2000 moveto 0 13000 rlineto stroke 0 1 3 {/ibild exch def %ibild=0,3 ibild 0 eq {xhoe 0.5 mul 600 sub yhoe 1.47 mul 400 sub translate} if ibild 1 eq {xhoe 1.1 mul yhoe 0.0 mul translate} if ibild 2 eq {xhoe 1.1 mul neg yhoe 0.97 mul neg translate} if ibild 3 eq {xhoe 1.1 mul yhoe 0.0 mul translate} if ibild 2 le {%ibild<=2 0 setgray -4000 0 moveto 8000 0 rlineto stroke 0 -3500 moveto 0 7500 rlineto stroke 3800 70 moveto 200 -70 rlineto -200 -70 rlineto closepath fill -70 3800 moveto 70 200 rlineto 70 -200 rlineto closepath fill /fak0 28 def /fakt 25 def 0 1 48 {/i exch def %i=0,48 LAB*add64M i get fakt mul LAB*bdd64M i get fakt mul moveto LAB*add64M i 1 add get fakt mul LAB*bdd64M i 1 add get fakt mul lineto stroke newpath r*dd64M i get g*dd64M i get b*dd64M i get setrgbcolor LAB*add64M i get fakt mul LAB*bdd64M i get fakt mul 100 0 360 arc fill } for %i=0,48 0 setgray 0 8 48 {/i exch def %i=0,8,48 RJGCBMd 0 0 moveto LAB*add64M i get fak0 mul LAB*bdd64M i get fak0 mul rlineto stroke } for %i=0,8,48 } if %ibild<=2 ibild 0 eq {%ibild=0 %device (d) 0 setgray 0300 3900 moveto TBIK1 (device ) showea (Ger\344te\255) showde TBK1 (CIELAB) show TBIK1 ( \050 a*) show TBS1 0 -50 rmoveto (d) show 0 50 rmoveto TBIK1 (, b*) show TBS1 0 -50 rmoveto (d) show 0 50 rmoveto TBIK1 (\051) show TBK1 ( chroma diagram) showea (\255Diagramm) showde TBIK1 3500 0150 moveto (a*) show TBS1 0 -50 rmoveto (d) show 0 50 rmoveto -500 4000 moveto (b*) show TBS1 0 -50 rmoveto (d) show 0 50 rmoveto 0 8 40 {/kn exch def %kn=0,8,40 0 setgray /kn8 kn 8 idiv def xshifd kn8 get yshifd kn8 get moveto TBIK1 Dcol kn8 get show TBS1 0 -50 rmoveto (d) show 0 50 rmoveto TBK1 ( ) show Dcolen kn8 get showea Dcolde kn8 get showde TIK1 xshifd kn8 get yshifd kn8 get 350 sub moveto (LCH*) show TK1 -30 -50 rmoveto (d) show 0 50 rmoveto TK1 ( = ) show LAB*Ldd64M kn get cvsshow1 ( ) show LAB*Cdd64M kn get cvsshow1 ( ) show LAB*hdd64M kn get cvsshow1 TIK1 xshifd kn8 get yshifd kn8 get 700 sub moveto (LAB*) show TK1 -30 -50 rmoveto (d) show 0 50 rmoveto TK1 ( = ) show LAB*Ldd64M kn get cvsshow1 ( ) show LAB*add64M kn get cvsshow1 ( ) show LAB*bdd64M kn get cvsshow1 TIK1 xshifd kn8 get yshifd kn8 get 1050 sub moveto (rgb*) show TK1 -30 -50 rmoveto (d) show 0 50 rmoveto TK1 ( = ) show r*dd64M kn get cvsshow3 ( ) show g*dd64M kn get cvsshow3 ( ) show b*dd64M kn get cvsshow3 0 8 48 {/i exch def %i=0,8,48 RYGCBMd 0 1 8 {/l exch def %l=0,8 newpath /alpha l 0.125 mul def /beta 1 alpha sub def 1.0 beta mul r*dd362Mi i 7.5 mul cvi get alpha mul add 1.0 beta mul g*dd362Mi i 7.5 mul cvi get alpha mul add 1.0 beta mul b*dd362Mi i 7.5 mul cvi get alpha mul add setrgbcolor LAB*add362Mi i 7.5 mul cvi get fakt mul alpha mul LAB*bdd362Mi i 7.5 mul cvi get fakt mul alpha mul 100 0 360 arc fill } for %l=0,8 l 0 eq {%l=0 0 setgray LAB*add362Mi i 7.5 mul cvi get fakt mul alpha mul LAB*bdd362Mi i 7.5 mul cvi get fakt mul alpha mul 100 0 360 arc stroke } if %l=0 } for %i=0,8,48 } for %kn=0,8,40 } if %ibild=0 ibild 1 eq {%ibild=1 %elementary (e) 0 setgray 0300 3900 moveto TBIK1 (elementary ) showea (Elementar\255) showde TBK1 (CIELAB) show TBIK1 ( \050 a*) show TBS1 0 -50 rmoveto (e) show 0 50 rmoveto TBIK1 (, b*) show TBS1 0 -50 rmoveto (e) show 0 50 rmoveto TBIK1 (\051) show TBK1 ( chroma diagram) showea (\255Diagramm) showde TBIK1 3500 0150 moveto (a*) show TBS1 0 -50 rmoveto (e) show 0 50 rmoveto -500 4000 moveto (b*) show TBS1 0 -50 rmoveto (e) show 0 50 rmoveto 0 setgray 0 8 40 {/kn exch def %kn=0,8,40 /kn8 kn 8 idiv def xshife kn8 get yshife kn8 get moveto TBIK1 Ecol kn8 get show TBS1 0 -50 rmoveto (e) show 0 50 rmoveto TBK1 ( ) show Ecolen kn8 get showea Ecolde kn8 get showde /i362e hab*de64M kn get round cvi def i362e 360 ge {/i362e i362e 360 sub def} if TIK1 xshife kn8 get yshife kn8 get 350 sub moveto (LCH*) show TK1 -30 -50 rmoveto (e) show 0 50 rmoveto TK1 ( = ) show LAB*Lde362Mi kn 7.5 mul cvi get cvsshow1 ( ) show LAB*Cde362Mi kn 7.5 mul cvi get cvsshow1 ( ) show LAB*hde362Mi kn 7.5 mul cvi get cvsshow1 TIK1 xshife kn8 get yshife kn8 get 700 sub moveto (LAB*) show TK1 -30 -50 rmoveto (e) show 0 50 rmoveto TK1 ( = ) show LAB*Lde362Mi kn 7.5 mul cvi get cvsshow1 ( ) show LAB*ade362Mi kn 7.5 mul cvi get cvsshow1 ( ) show LAB*bde362Mi kn 7.5 mul cvi get cvsshow1 TIK1 xshife kn8 get yshife kn8 get 1050 sub moveto (rgb*) show TK1 -30 -50 rmoveto (de) show 0 50 rmoveto TK1 ( = ) show r*de362Mi kn 7.5 mul cvi get cvsshow3 ( ) show g*de362Mi kn 7.5 mul cvi get cvsshow3 ( ) show b*de362Mi kn 7.5 mul cvi get cvsshow3 } for %kn=0,8,40 0 8 48 {/i exch def %i=0,8,48 RYGCBMe r*de362Mi i 7.5 mul cvi get g*de362Mi i 7.5 mul cvi get b*de362Mi i 7.5 mul cvi get setrgbcolor 0 0 moveto LAB*ade362Mi i 7.5 mul cvi get fakt mul LAB*bde362Mi i 7.5 mul cvi get fakt mul rlineto stroke 0 1 8 {/l exch def %l=0,8 newpath /alpha l 0.125 mul def /beta 1 alpha sub def 1.0 beta mul r*de362Mi i 7.5 mul cvi get alpha mul add 1.0 beta mul g*de362Mi i 7.5 mul cvi get alpha mul add 1.0 beta mul b*de362Mi i 7.5 mul cvi get alpha mul add setrgbcolor LAB*ade362Mi i 7.5 mul cvi get fakt mul alpha mul LAB*bde362Mi i 7.5 mul cvi get fakt mul alpha mul 100 0 360 arc fill } for %l=0,8 } for %i=0,8,48 } if %ibild=1 ibild 2 eq {%ibild=2 %standard (s) 0 setgray 0300 3900 moveto TBIK1 (standard ) showea (Standard\255) showde TBK1 (CIELAB) show TBIK1 ( \050 a*) show TBS1 0 -50 rmoveto (s) show 0 50 rmoveto TBIK1 (, b*) show TBS1 0 -50 rmoveto (s) show 0 50 rmoveto TBIK1 (\051) show TBK1 ( chroma diagram) showea (\255Diagramm) showde TBIK1 3500 0150 moveto (a*) show TBS1 0 -50 rmoveto (s) show 0 50 rmoveto -500 4000 moveto (b*) show TBS1 0 -50 rmoveto (s) show 0 50 rmoveto 0 setgray 0 8 40 {/kn exch def %kn=0,8,40 /kn8 kn 8 idiv def xshifs kn8 get yshifs kn8 get moveto TBIK1 Scol kn8 get show TBS1 0 -50 rmoveto (s) show 0 50 rmoveto TBK1 ( ) show Scolen kn8 get showea Scolde kn8 get showde TIK1 xshifs kn8 get yshifs kn8 get 350 sub moveto (LCH*) show TK1 -30 -50 rmoveto (s) show 0 50 rmoveto TK1 ( = ) show LAB*Lds362Mi kn 7.5 mul cvi get cvsshow1 ( ) show LAB*Cds362Mi kn 7.5 mul cvi get cvsshow1 ( ) show LAB*hds362Mi kn 7.5 mul cvi get cvsshow1 TIK1 xshifs kn8 get yshifs kn8 get 700 sub moveto (LAB*) show TK1 -30 -50 rmoveto (s) show 0 50 rmoveto TK1 ( = ) show LAB*Lds362Mi kn 7.5 mul cvi get cvsshow1 ( ) show LAB*ads362Mi kn 7.5 mul cvi get cvsshow1 ( ) show LAB*bds362Mi kn 7.5 mul cvi get cvsshow1 TIK1 xshifs kn8 get yshifs kn8 get 1050 sub moveto (rgb*) show TK1 -30 -50 rmoveto (ds) show 0 50 rmoveto TK1 ( = ) show r*ds362Mi kn 7.5 mul cvi get cvsshow3 ( ) show g*ds362Mi kn 7.5 mul cvi get cvsshow3 ( ) show b*ds362Mi kn 7.5 mul cvi get cvsshow3 } for %kn=0,8,40 0 8 40 {/i exch def %i=0,8,48 RYGCBMs r*ds362Mi i 7.5 mul cvi get g*ds362Mi i 7.5 mul cvi get b*ds362Mi i 7.5 mul cvi get setrgbcolor 0 0 moveto LAB*ads362Mi i 7.5 mul cvi get fakt mul LAB*bds362Mi i 7.5 mul cvi get fakt mul rlineto stroke 0 1 8 {/l exch def %l=0,8 newpath /alpha l 0.125 mul def /beta 1 alpha sub def 1.0 beta mul r*ds362Mi i 7.5 mul cvi get alpha mul add 1.0 beta mul g*ds362Mi i 7.5 mul cvi get alpha mul add 1.0 beta mul b*ds362Mi i 7.5 mul cvi get alpha mul add setrgbcolor LAB*ads362Mi i 7.5 mul cvi get fakt mul alpha mul LAB*bds362Mi i 7.5 mul cvi get fakt mul alpha mul 100 0 360 arc fill } for %l=0,8 } for %i=0,8,48 } if %ibild=2 ibild 3 eq {%ibild=3 0 setgray -6500 3900 moveto TBK1 (Notes to the CIELAB chroma diagrams) showea (Anmerkung zu den CIELAB\255Buntheits\255Diagrammen) showde TBIK1 ( \050 a*) show TBS1 -30 -50 rmoveto (d) show 0 50 rmoveto TBIK1 (, b*) show TBS1 -30 -50 rmoveto (d) show 0 50 rmoveto TBIK1 ( \051, ) show TBIK1 ( \050 a*) show TBS1 -30 -50 rmoveto (s) show 0 50 rmoveto TBIK1 (, b*) show TBS1 -30 -50 rmoveto (s) show 0 50 rmoveto TBIK1 ( \051, ) show TBIK1 ( \050 a*) show TBS1 -30 -50 rmoveto (e) show 0 50 rmoveto TBIK1 (, b*) show TBS1 -30 -50 rmoveto (e) show 0 50 rmoveto TBIK1 ( \051) show -6500 3400 moveto TK1 (1. For the) showea (1. F\374r die) showde TIK1 ( rgb*) show TS -30 -50 rmoveto (d) show 0 50 rmoveto TK1 (\255input values the CIELAB data) showea (\255Eingabedaten wurden die CIELAB-Daten) showde TIK1 ( LCH*) show TS -30 -50 rmoveto (d) show 0 50 rmoveto TK1 ( and) showea ( und) showde TIK1 ( LAB*) show TS -30 -50 rmoveto (d) show 0 50 rmoveto TK1 ( have been calculated.) showea ( berechnet.) showde -6500 3000 moveto TK1 (2. For the calculation of the standard hue angle ) showea TIK1 (h) show TS -30 -50 rmoveto (ab,s) show 0 50 rmoveto TK1 ( use for any device values) showea TIK1 ( rgb*) show TS -30 -50 rmoveto (d) show 0 50 rmoveto TK1 ( the equation:) showea -6000 2650 moveto TBIK1 (h) show TBS1 -30 -50 rmoveto (ab,s) show 0 50 rmoveto TBK1 ( = ) show TBIK1 (atan) show TBK1 ( [ ) show TBIK1 (r*) show TBS1 -30 -50 rmoveto (d) show 0 50 rmoveto TBIK1 ( cos(30)) show TBK1 ( + ) show TBIK1 (g*) show TBS1 -30 -50 rmoveto (d) show 0 50 rmoveto TBIK1 ( cos(150)) show TBK1 ( ] / [ ) show TBIK1 (r*) show TBS1 -30 -50 rmoveto (d) show 0 50 rmoveto TBIK1 ( sin(30)) show TBK1 ( + ) show TBIK1 (g*) show TBS1 -30 -50 rmoveto (d) show 0 50 rmoveto TBIK1 ( sin(150)) show TBK1 ( + ) show TBIK1 (b*) show TBS1 -30 -50 rmoveto (d) show 0 50 rmoveto TBIK1 ( sin(270)) show TBK1 ( ] ) show 5000 2650 moveto TK1 ((1)) show -6500 2200 moveto TK1 (3. For the 48 or 360 equally spaced standard hue angles ) showea (3. F\374r die 48 oder 360 gleichabst\344ndig gestuften Standard\255Bunttonwinkel ) showde TIK1 (h) show TS -30 -50 rmoveto (ab,s) show 0 50 rmoveto TK1 ( of the colours of maximum chroma use) showea ( der Farben von maximaler Buntheit benutze) showde -6250 1900 moveto (the seven hue angles of the 60 degree colours) showea (die sieben Bunttonwinkel der 60\Grad\255Farben) showde TIK1 ( s: h) show TS 0 -50 rmoveto (ab,si) show 0 50 rmoveto TK1 ( = ) show LAB*Hs 0 get cvsshow1r (, ) show LAB*Hs 1 get cvsshow1r (, ) show LAB*Hs 2 get cvsshow1r (, ) show LAB*Hs 3 get cvsshow1r (, ) show LAB*Hs 4 get cvsshow1r (, ) show LAB*Hs 5 get cvsshow1r (, ) show LAB*Hs 6 get cvsshow1r ( (i=0,6) ) show -6250 1600 moveto (and the equations for a 48 and 360 step hue circle: ) showea (und die Gleichungen f\374r einen 48\255 und 360\255stufigen Bunttonkreis: ) showde -6000 1250 moveto TBIK1 (h) show TBS1 0 -50 rmoveto (48ab,sij) show 0 50 rmoveto TBK1 ( = ) show TBIK1 (h) show TBS1 0 -50 rmoveto (ab,si) show 0 50 rmoveto ( + ) show TBIK1 (j) show TBK1 ( [) show TBIK1 (h) show TBS1 0 -50 rmoveto (ab,si+1) show 0 50 rmoveto ( - ) show TBIK1 (h) show TBS1 0 -50 rmoveto (ab,si) show 0 50 rmoveto TBK1 ( ] /8 \050 ) show TBIK1 (i) show TBK1 ( = 0, 1, ..., 5; ) show TBIK1 (j) show TBK1 ( = 0, 1, ..., 7\051) show 5000 1250 moveto TK1 ((2)) show -6000 0850 moveto TBIK1 (h) show TBS1 0 -50 rmoveto (360ab,sij) show 0 50 rmoveto TBK1 ( = ) show TBIK1 (h) show TBS1 0 -50 rmoveto (ab,si) show 0 50 rmoveto ( + ) show TBIK1 (j) show TBK1 ( [) show TBIK1 (h) show TBS1 0 -50 rmoveto (ab,si+1) show 0 50 rmoveto ( - ) show TBIK1 (h) show TBS1 0 -50 rmoveto (ab,si) show 0 50 rmoveto TBK1 ( ] /60 \050 ) show TBIK1 (i) show TBK1 ( = 0, 1, ..., 5; ) show TBIK1 (j) show TBK1 ( = 0, 1, ..., 59\051) show 5000 0850 moveto TK1 ((3)) show -6500 0400 moveto TK1 (4. For the 48 or 360 elementary hue angles ) showea (4. F\374r die 48 oder 360 Elementar\255Bunttonwinkel ) showde TIK1 (h) show TS -30 -50 rmoveto (ab,e) show 0 50 rmoveto TK1 ( of the colours of maximum chroma use) showea ( der Farben von maximaler Buntheit benutze) showde -6250 0100 moveto (the seven hue angles of the elementary colours) showea (die sieben Bunttonwinkel der Elementarfarben) showde TIK1 ( e: h) show TS 0 -50 rmoveto (ab,ei) show 0 50 rmoveto TK1 ( = ) show LAB*He 0 get cvsshow1r (, ) show LAB*He 1 get cvsshow1r (, ) show LAB*He 2 get cvsshow1r (, ) show LAB*He 3 get cvsshow1r (, ) show LAB*He 4 get cvsshow1r (, ) show LAB*He 5 get cvsshow1r (, ) show LAB*He 6 get cvsshow1r ( (i=0,6) ) show -6250 -200 moveto (and the equations for a 48 and 360 step elementary hue circle: ) showea (und die Gleichungen f\374r einen 48\255 und 360\255stufigen Elementar\255Bunttonkreis: ) showde -6000 -550 moveto TBIK1 (h) show TBS1 0 -50 rmoveto (48ab,eij) show 0 50 rmoveto TBK1 ( = ) show TBIK1 (h) show TBS1 0 -50 rmoveto (ab,ei) show 0 50 rmoveto ( + ) show TBIK1 (j) show TBK1 ( [) show TBIK1 (h) show TBS1 0 -50 rmoveto (ab,ei+1) show 0 50 rmoveto ( - ) show TBIK1 (h) show TBS1 0 -50 rmoveto (ab,ei) show 0 50 rmoveto TBK1 ( ] /8 \050 ) show TBIK1 (i) show TBK1 ( = 0, 1, ..., 5; ) show TBIK1 (j) show TBK1 ( = 0, 1, ..., 7\051) show 5000 -550 moveto TK1 ((4)) show -6000 -0950 moveto TBIK1 (h) show TBS1 0 -50 rmoveto (360ab,eij) show 0 50 rmoveto TBK1 ( = ) show TBIK1 (h) show TBS1 0 -50 rmoveto (ab,ei) show 0 50 rmoveto ( + ) show TBIK1 (j) show TBK1 ( [) show TBIK1 (h) show TBS1 0 -50 rmoveto (ab,ei+1) show 0 50 rmoveto ( - ) show TBIK1 (h) show TBS1 0 -50 rmoveto (ab,ei) show 0 50 rmoveto TBK1 ( ] /60 \050 ) show TBIK1 (i) show TBK1 ( = 0, 1, ..., 5; ) show TBIK1 (j) show TBK1 ( = 0, 1, ..., 59\051) show 5000 -950 moveto TK1 ((5)) show -6500 -1400 moveto TK1 (5. For any elementary hue angle ) showea (5. F\374r jeden Elementar\255Bunttonwinkel ) showde TIK1 (h) show TS -30 -50 rmoveto (ab,e) show 0 50 rmoveto TK1 ( there is a well defined device hue angle ) showea ( gibt es einem genau definierten Ger\344te\255Bunttonwinkel ) showde TIK1 (h) show TS -30 -50 rmoveto (ab,d) show 0 50 rmoveto -6250 -1700 moveto TK1 (see the following tables, columns 1 to 5 or 1 to 4.) showea (siehe die folgenden Tabellen, Spalten 1 bis 5 oder 1 bis 4.) showde -6500 -2100 moveto TK1 (6. The values ) showea (6. Die Werte ) showde TIK1 (rgb*) show TS -30 -50 rmoveto (de) show 0 50 rmoveto TK1 ( produce the output of the device\255independent elementary hues) showea ( erzeugen die Ausgabe der ger\344teunabh\344ngigen Elemetar\255Buntt\366ne) showde } if %ibild=3 } for %ibild=0,3 }%LOOP1: xchart<=xchart3P5 {%LOOP1: xchart>xchart3P5 /x0x 0000 def /x1x 5700 def /x2x 13300 def /x01 2200 def %rgb /x02 2850 def /x03 3500 def /x04 4150 def %LabCh /x05 4800 def /x06 5450 def /x07 6100 def /x08 6800 def /x09 7700 def /x10 8400 def /x11 9100 def /xd0 0100 def /xs0 0800 def /xe0 1500 def /xd1 23050 def /xs1 23700 def /xe1 24350 def /xax 5400 def /xbx 10500 def /xcx 15600 def /ymax 16100 def TBIK1 xd0 ymax moveto (h) show TBK1 -00 -80 rmoveto (ab,d) show 00 80 rmoveto TBIK1 xs0 ymax moveto (h) show TBK1 -00 -80 rmoveto (ab,s) show 00 80 rmoveto TBIK1 xe0 ymax moveto (h) show TBK1 -00 -80 rmoveto (ab,e) show 00 80 rmoveto TBIK1 xchart xchart3P6 eq xchart xchart3P7 eq or {%BEG LOOP3: xchart=xchart3P6/3 x0x x01 add ymax moveto (rgb*) show TBK1 -00 -80 rmoveto (dd64M) show 00 80 rmoveto TBIK1 x0x x04 add ymax moveto (LAB*) show TBK1 -00 -80 rmoveto (ddx64M (x=LabCh)) show 00 80 rmoveto TBIK1 xchart xchart3P6 eq {%xchart=xchart3P6 xax x01 add ymax moveto (rgb*) show TBK1 -00 -80 rmoveto (ddx361M) show 00 80 rmoveto TBIK1 xax x04 add ymax moveto (LAB*) show TBK1 -00 -80 rmoveto (ddx361M (x=LabCh)) show 00 80 rmoveto TBIK1 xbx x01 add ymax moveto (rgb*) show TBK1 -00 -80 rmoveto (dsx361M) show 00 80 rmoveto TBIK1 xbx x04 add ymax moveto (LAB*) show TBK1 -00 -80 rmoveto (dsx361M (x=LabCh)) show 00 80 rmoveto TBIK1 } if %xchart=xchart3P6 xcx x01 add ymax moveto (rgb*) show TBK1 -00 -80 rmoveto (dex361M) show 00 80 rmoveto TBIK1 xcx x04 add ymax moveto (LAB*) show TBK1 -00 -80 rmoveto (dex361M) show 00 80 rmoveto }%LOOP3: xchart=xchart3P6/3 {%LOOP3: xchart>xchart3P7 x0x x01 add ymax moveto (rgb*) show TBK1 -00 -80 rmoveto (dd361M) show 00 80 rmoveto TBIK1 x0x x04 add ymax moveto (LAB*) show TBK1 -00 -80 rmoveto (ddx361Mi (x=LabCh)) show 00 80 rmoveto TBIK1 x1x x01 add ymax moveto (rgb*) show TBK1 -00 -80 rmoveto (ds361Mi) show 00 80 rmoveto TBIK1 x1x x04 add ymax moveto (LAB*) show TBK1 -00 -80 rmoveto (dsx361Mi (x=LabCh)) show 00 80 rmoveto TBIK1 x1x x09 add ymax moveto (rgb*) show TBK1 -00 -80 rmoveto (dd361Mi) show 00 80 rmoveto TBIK1 x2x x01 add ymax moveto (rgb*) show TBK1 -00 -80 rmoveto (de361Mi) show 00 80 rmoveto TBIK1 x2x x04 add ymax moveto (LAB*) show TBK1 -00 -80 rmoveto (dex361Mi (x=LabCh)) show 00 80 rmoveto TBIK1 x2x x09 add ymax moveto (rgb*) show TBK1 -00 -80 rmoveto (dd361Mi) show 00 80 rmoveto TBIK1 } ifelse %END LOOP3: xchart>xchart3P7 xd1 ymax moveto (rgb*) show TBK1 -100 -100 rmoveto (dd) show 100 100 rmoveto TBIK1 xs1 ymax moveto (rgb*) show TBK1 -100 -100 rmoveto (ds) show 100 100 rmoveto TBIK1 xe1 ymax moveto (rgb*) show TBK1 -100 -100 rmoveto (de) show 100 100 rmoveto TBIK1 /ymax 15700 def /ydel0 310 def /ydel1 345 def /ys 50 def /RJGCBMs 9 array def /RJGCBMs [( ) (R) (Y) (G) (C) (C) (B) (M) (R)] def /RJGCBM 7 array def /RJGCBM [(R) (Y) (G) (C) (B) (M) (R)] def xchart xchart3P6 eq xchart xchart3P7 eq or {%BEG LOOP4: xchart=xchart3P6/3 x0x x01 add 30 sub 0 moveto 0 16200 rlineto stroke xax x01 add 30 sub 0 moveto 0 16200 rlineto stroke xbx x01 add 30 sub 0 moveto 0 16200 rlineto stroke xcx x01 add 30 sub 0 moveto 0 16200 rlineto stroke TK1 0 1 48 {/i exch def %i=0,48 xchart xchart3P6 eq {%xchart=xchart3P6 /i8 i 8 idiv def} {/i8 0 def} ifelse /yi ymax i ydel0 mul sub i8 ydel0 0.4 mul mul sub def xd0 yi moveto hab*dd64M i get cvsshow1 %all floating point xs0 yi moveto hab*ds64M i get cvsshow1 xe0 yi moveto hab*de64M i get cvsshow1 x0x x01 add yi moveto r*dd64M i get cvsshow3 x0x x02 add yi moveto g*dd64M i get cvsshow3 x0x x03 add yi moveto b*dd64M i get cvsshow3 x0x x04 add yi moveto LAB*Ldd64M i get cvsshow1 x0x x05 add yi moveto LAB*add64M i get cvsshow1 x0x x06 add yi moveto LAB*bdd64M i get cvsshow1 x0x x07 add yi moveto LAB*Cdd64M i get cvsshow1 x0x x08 add yi moveto LAB*hdd64M i get cvsshow1 xchart xchart3P6 eq {%xchart=xchart3P6 xax x01 add yi moveto r*dd362Mi i 7.5 mul cvi get cvsshow3r xax x02 add yi moveto g*dd362Mi i 7.5 mul cvi get cvsshow3r xax x03 add yi moveto b*dd362Mi i 7.5 mul cvi get cvsshow3r xax x04 add yi moveto LAB*Ldd362Mi i 7.5 mul cvi get cvsshow1r xax x05 add yi moveto LAB*add362Mi i 7.5 mul cvi get cvsshow1r xax x06 add yi moveto LAB*bdd362Mi i 7.5 mul cvi get cvsshow1r xax x07 add yi moveto LAB*Cdd362Mi i 7.5 mul cvi get cvsshow1r xax x08 add yi moveto hab*dd362Fi i 7.5 mul cvi get cvishow xbx x01 add yi moveto r*ds362Mi i 7.5 mul cvi get cvsshow3r xbx x02 add yi moveto g*ds362Mi i 7.5 mul cvi get cvsshow3r xbx x03 add yi moveto b*ds362Mi i 7.5 mul cvi get cvsshow3r xbx x04 add yi moveto LAB*Lds362Mi i 7.5 mul cvi get cvsshow1r xbx x05 add yi moveto LAB*ads362Mi i 7.5 mul cvi get cvsshow1r xbx x06 add yi moveto LAB*bds362Mi i 7.5 mul cvi get cvsshow1r xbx x07 add yi moveto LAB*Cds362Mi i 7.5 mul cvi get cvsshow1r xbx x08 add yi moveto hab*ds362Mi i 7.5 mul cvi get cvishow } if %xchart=xchart3P6 xcx x01 add yi moveto r*de362Mi i 7.5 mul cvi get cvsshow3r xcx x02 add yi moveto g*de362Mi i 7.5 mul cvi get cvsshow3r xcx x03 add yi moveto b*de362Mi i 7.5 mul cvi get cvsshow3r xcx x04 add yi moveto LAB*Lde362Mi i 7.5 mul cvi get cvsshow1r xcx x05 add yi moveto LAB*ade362Mi i 7.5 mul cvi get cvsshow1r xcx x06 add yi moveto LAB*bde362Mi i 7.5 mul cvi get cvsshow1r xcx x07 add yi moveto LAB*Cde362Mi i 7.5 mul cvi get cvsshow1r xcx x08 add yi moveto hab*de382Fi i 7.5 mul cvi get cvishow xchart xchart3P7 eq {%xchart=xchart3P7 0 1 46 {/kk exch def %kk LAB*hdd64M i get hab*de382Fi kk 7.5 mul cvi get gt LAB*hdd64M i get hab*de382Fi kk 1 add 7.5 mul cvi get le and {/ykkd LAB*hdd64M i get hab*de382Fi kk 7.5 mul cvi get sub hab*de382Fi kk 1 add 7.5 mul cvi get hab*de382Fi kk 7.5 mul cvi get sub 0.0001 add div def /i8 0 def /yi ymax i ydel0 mul sub i8 ydel0 0.4 mul mul sub def /kk8 0 def /ykk ymax kk ykkd add ydel0 mul sub kk8 ydel0 0.4 mul mul sub def xax x01 add yi moveto LAB*hdd64M i get cvsshow1 xbx x08 add 100 sub ykk moveto LAB*hdd64M i get cvsshow1 xax x01 add yi moveto xcx x01 add ykk lineto stroke} if } for %kk } if %xchart=xchart3P7 r*dd362Mi i 7.5 mul cvi get g*dd362Mi i 7.5 mul cvi get b*dd362Mi i 7.5 mul cvi get setrgbcolor xd1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath fill r*ds362Mi i 7.5 mul cvi get g*ds362Mi i 7.5 mul cvi get b*ds362Mi i 7.5 mul cvi get setrgbcolor xs1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath fill i 16 le { r*de362Mi i 7.5 mul cvi get g*de362Mi i 7.5 mul cvi get b*de362Mi i 7.5 mul cvi get setrgbcolor xe1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath fill } if i 16 gt i i 2 idiv 2 mul eq and { r*de362Mi i 7.5 mul cvi get g*de362Mi i 7.5 mul cvi get b*de362Mi i 7.5 mul cvi get setrgbcolor xe1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath fill } if 0 setgray xd1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath stroke xs1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath stroke xe1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath stroke } for %i=0,48 xtesthuea 0 ge {600 /TimesB-ISOL1 FS 8000 2100 moveto 30 rotate 0 setgray (no continues hue change of device near ) showea (keine kontinuiertliche Buntton\344nderung nahe ) showde 600 /TimesBI-ISOL1 FS (h) show 500 /TimesB-ISOL1 FS 0 -100 rmoveto (ab,d) show 0 100 rmoveto 600 /TimesB-ISOL1 FS ( = ) show 0 1 xtesthuea {/in exch def %in=0,xtesthuea LAB*hdd64M xtesthuei in get get cvishow in xtesthuea ne {(, ) show} if } for %in=0,xtesthuea -30 rotate 8000 1100 moveto 30 rotate (or ) showea ( oder ) showde 600 /TimesBI-ISOL1 FS (rgb*) show 500 /TimesBI-ISOL1 FS 0 -100 rmoveto (d) show 0 100 rmoveto 600 /TimesB-ISOL1 FS ( = ) show 0 1 xtesthuea {/in exch def %in=0,xtesthuea r*dd64M xtesthuei in get get cvsshow3r (, ) show g*dd64M xtesthuei in get get cvsshow3r (, ) show b*dd64M xtesthuei in get get cvsshow3r in xtesthuea ne {(; ) show} if } for %in=0,xtesthuea -30 rotate 8000 0100 moveto 30 rotate 600 /TimesB-ISOL1 FS (appropriate correction done) showea (plausible Korrektur erfolgt) showde -30 rotate } if }%LOOP4: xchart=xchart3P6/3 {%LOOP4: xchart>xchart3P7 x0x x01 add 50 sub 0 moveto 0 16200 rlineto stroke x1x x01 add 50 sub 0 moveto 0 16200 rlineto stroke x2x x01 add 50 sub 0 moveto 0 16200 rlineto stroke TK1 00 1 45 {/i exch def %i=0,45 /ik45 xchart xchart3P7 1 add sub 45 mul i add def %range 0...359 /yi ymax i ydel1 mul sub def xd0 yi moveto hab*dd362Fi ik45 get cvishow %all integer xs0 yi moveto hab*ds362Mi ik45 get cvishow xe0 yi moveto hab*de382Fi ik45 get cvishow x0x x01 add yi moveto r*dd362Mi ik45 get cvsshow3 x0x x02 add yi moveto g*dd362Mi ik45 get cvsshow3 x0x x03 add yi moveto b*dd362Mi ik45 get cvsshow3 x0x x04 add yi moveto LAB*Ldd362Mi ik45 get cvsshow1 x0x x05 add yi moveto LAB*add362Mi ik45 get cvsshow1 x0x x06 add yi moveto LAB*bdd362Mi ik45 get cvsshow1 x0x x07 add yi moveto LAB*Cdd362Mi ik45 get cvsshow1 x0x x08 add yi moveto LAB*hdd362Mi ik45 get cvishow %integer x1x x01 add yi moveto r*ds362Mi ik45 get cvsshow3r x1x x02 add yi moveto g*ds362Mi ik45 get cvsshow3r x1x x03 add yi moveto b*ds362Mi ik45 get cvsshow3r x1x x04 add yi moveto LAB*Lds362Mi ik45 get cvsshow1r x1x x05 add yi moveto LAB*ads362Mi ik45 get cvsshow1r x1x x06 add yi moveto LAB*bds362Mi ik45 get cvsshow1r x1x x07 add yi moveto LAB*Cds362Mi ik45 get cvsshow1r x1x x08 add yi moveto LAB*hds362Mi ik45 get cvishow x1x x09 add yi moveto r*dd362Mi ik45 get cvsshow3r x1x x10 add yi moveto g*dd362Mi ik45 get cvsshow3r x1x x11 add yi moveto b*dd362Mi ik45 get cvsshow3r x2x x01 add yi moveto r*de362Mi ik45 get cvsshow3r x2x x02 add yi moveto g*de362Mi ik45 get cvsshow3r x2x x03 add yi moveto b*de362Mi ik45 get cvsshow3r x2x x04 add yi moveto LAB*Lde362Mi ik45 get cvsshow1r x2x x05 add yi moveto LAB*ade362Mi ik45 get cvsshow1r x2x x06 add yi moveto LAB*bde362Mi ik45 get cvsshow1r x2x x07 add yi moveto LAB*Cde362Mi ik45 get cvsshow1r x2x x08 add yi moveto LAB*hde362Mi ik45 get cvishow x2x x09 add yi moveto r*dd362Mi ik45 get cvsshow3r x2x x10 add yi moveto g*dd362Mi ik45 get cvsshow3r x2x x11 add yi moveto b*dd362Mi ik45 get cvsshow3r r*dd362Mi ik45 get g*dd362Mi ik45 get b*dd362Mi ik45 get setrgbcolor xd1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath fill r*ds362Mi ik45 get g*ds362Mi ik45 get b*ds362Mi ik45 get setrgbcolor xs1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath fill r*de362Mi ik45 get g*de362Mi ik45 get b*de362Mi ik45 get setrgbcolor xe1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath fill 0 setgray xd1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath stroke xs1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath stroke xe1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath stroke xchart xchart3P7 1 add eq ik45 000 eq and xchart xchart3P7 2 add eq ik45 060 eq and or xchart xchart3P7 3 add eq ik45 120 eq and or xchart xchart3P7 4 add eq ik45 180 eq and or xchart xchart3P7 5 add eq ik45 180 eq and or xchart xchart3P7 6 add eq ik45 240 eq and or xchart xchart3P7 7 add eq ik45 300 eq and or xchart xchart3P7 8 add eq ik45 360 eq and or {/ik 1 def} {/ik 0 def} ifelse ik 1 eq {x1x x01 add yi ydel1 0.7 mul add moveto x2x x11 add 600 add yi ydel1 0.7 mul add lineto stroke x1x x01 add yi ydel1 0.3 mul sub moveto x2x x11 add 600 add yi ydel1 0.3 mul sub lineto stroke} if ik 1 eq {TBIK1 x1x x08 add 400 add yi moveto RJGCBMs xchart xchart3P7 sub get show TBS1 0 -80 rmoveto (s) show 0 80 rmoveto TK1 TBIK1 x2x x08 add 400 add yi moveto RJGCBMs xchart xchart3P7 sub get show TBS1 0 -80 rmoveto (e) show 0 80 rmoveto TK1} if 0 8 48 {/it exch def %it=0,8,48 LAB*hdd64M it get LAB*hdd362Mi ik45 get ge LAB*hdd64M it get LAB*hdd362Mi ik45 1 add get lt and {x0x x01 add yi ydel1 0.3 mul sub moveto x1x x01 add yi ydel1 0.3 mul sub lineto stroke TBIK1 x1x x01 add 400 sub yi moveto RJGCBM it 8 idiv get show TBS1 0 -80 rmoveto (d) show 0 80 rmoveto TK1} if } for %it=0,8,48 } for i%=0,45 } ifelse %END LOOP4: xchart>xchart3P7 } ifelse %END LOOP2: xchart=xchart3P5,>xchart3P5 } if %END LOOPtables: xchart>=xchart3P5 showpage grestore %} for %xcharti=00,10 %} for %colsep=0,1 %} for %pchart=0,0 %} for %xchart=0,18 %} for %xcolor=3,3 %} for %deintp=0,1 %} for %colorm=0,1 %} for %lanind=0,0 %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 020 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM moveto ( ) show 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 18 %line 409 %!PS-Adobe-3.0 EPSF-3.0 RF380-8, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (RF380-8,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 197 MM translate 10 /Times-ISOL1 FS 1 1 scale -77 -91 translate %%BeginDocument: Bild 12 %line 419 %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 21 %line 429 %!PS-Adobe-3.0 EPSF-3.0 RF381-1, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (RF381-1,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 22 %line 439 %!PS-Adobe-3.0 EPSF-3.0 RF381-2, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (RF381-2,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 23 %line 449 %!PS-Adobe-3.0 EPSF-3.0 RF381-3, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (RF381-3,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 24 %line 459 %!PS-Adobe-3.0 EPSF-3.0 RF381-4, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (RF381-4,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 25 %line 469 %!PS-Adobe-3.0 EPSF-3.0 RF381-5, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (RF381-5,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 26 %line 479 %!PS-Adobe-3.0 EPSF-3.0 RF381-6, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (RF381-6,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 020 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 27 %line 489 %!PS-Adobe-3.0 EPSF-3.0 RF381-7, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (RF381-7,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 020 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM moveto ( ) show 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 28 %line 499 %!PS-Adobe-3.0 EPSF-3.0 RF381-8, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (RF381-8,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 080 MM add 008 MM translate %80 MM Breite von TestStreifen 10 /Times-ISOL1 FS 53 MM 1 MM moveto () show 1 1 scale -77 21 MM sub -91 translate %%BeginDocument: Bild 29 Teststreifen Ueberlaenge %line 509 %%EndDocument EndEPSF grestore gsave } if %xchart<=xchart3PXX BeginEPSF -0.0 MM -0.0 MM translate %xy-Verschiebung Rechteckrahmen nach innen% %%BeginDocument: Bild 30 %Rechteckrahmen %line 519 %!PS-Adobe-3.0 EPSF-3.0 Frame arround with Internet text DG02 20070101 %%BoundingBox: 0 0 598 845 %%EndProlog gsave /lanind 1 def /lantex [(G) (E) (S) (N) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /lanind1 01 def /lanind2 01 def /lanindd 01 def /colorm1 00 def /colorm2 00 def /colormd 01 def /deintp1 00 def /deintp2 00 def /deintpd 01 def /xcolor1 03 def /xcolor2 03 def /xcolord 01 def /xchart1 00 def /xchart2 00 def /xchartd 01 def /pchart1 00 def /pchart2 00 def /pchartd 01 def /colsep1 00 def /colsep2 00 def /colsepd 01 def /pmetam1 00 def /pmetam2 00 def /pmetamd 01 def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} if /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} if /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} if /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} if /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 1 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} if /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} if /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} if /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES 0 def /i*ptrsc 0 def gsave %xchart 0 eq {%beg if xchart=0 0 setgray 1.0 1.0 scale 0.0 MM 0.0 MM translate 0.15 MM setlinewidth /x 20 array def /y 20 array def /d 20 array def /x [000 296 296 000 002 294 294 002 005 291 291 005 %speziell 006 290 290 006 008 288 288 008 ] def /y [000 000 210 210 002 002 208 208 005 005 205 205 %speziell 006 006 204 204 008 008 202 202 ] def /d [060 017 -60 -17 058 015 -58 -15 056 013 -56 -13 054 011 -54 -11 052 009 -52 -09 ] def colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if xchart 1 ge {%xchart>=1 /i0 12 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def 2.5 MM /Times-ISOL1 FS x i0 get MM 40 MM add y i0 get MM 1 MM sub moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolor cvishow xchart cvishow pchart cvishow colsep cvishow (-F) show pmetam cvishow } if %xchart>=1 /xt 1 def xchart 1 eq {/xt 1 def} if xt 0 eq {%xt=0,1 ifelse /i0 12 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def 2.5 MM /Times-ISOL1 FS x i0 get MM 110 MM add y i0 get MM 1 MM sub moveto (http://130.149.60.45/~farbmetrik/RF38/RF38) show colorm cvishow deintp cvishow colorm 0 eq {(N) show} {(F) show} ifelse (P.PDF & ) show (http://130.149.60.45/~farbmetrik/RF38/RF38) show colorm cvishow deintp cvishow colorm 0 eq {(N) show} {(F) show} ifelse (P.TXT & ) show (http://130.149.60.45/~farbmetrik/RF38/RF38.HTM) show } %xt=0 { %xt=1 /xlu 017 MM def /ylu 017 MM def /xro 279 MM def /yro 193 MM def /xlo 017 MM def /ylo 193 MM def /xru 279 MM def /yru 017 MM def xlu 8 MM sub ylu moveto 16 MM 0 rlineto stroke xlu ylu 8 MM sub moveto 0 16 MM rlineto stroke xro 8 MM add yro moveto -16 MM 0 rlineto stroke xro yro 8 MM add moveto 0 -16 MM rlineto stroke xru 8 MM sub yru moveto 16 MM 0 rlineto stroke xru yru 8 MM sub moveto 0 16 MM rlineto stroke xlo 8 MM add ylo moveto -16 MM 0 rlineto stroke xlo ylo 8 MM add moveto 0 -16 MM rlineto stroke 1 2 7 {/i exch def %Zentrierkreise xlu ylu i MM 0 360 arc stroke xro yro i MM 0 360 arc stroke xru yru i MM 0 360 arc stroke xlo ylo i MM 0 360 arc stroke } for %i 12 4 16 {/i exch def /i0 i def %i=0,16 %0 4 16 {/i exch def /i0 i def %i=0,16 /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse 0 setgray x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto x i0 get MM y i0 get MM lineto stroke i 16 eq {6 /Times-ISOL1 FS /x00 67 def /xdif 32 def /y0o 202.3 def /y0u 6.3 def /x0l 6.1 def /x0r 288 def /y00 22 def /ydif 32 def x00 xdif 0 mul add MM y0o MM moveto (V) show x00 xdif 0 mul add MM y0u MM moveto (C) show x00 xdif 1 mul add MM y0o MM moveto (L) show x00 xdif 1 mul add MM y0u MM moveto (M) show x00 xdif 2 mul add MM y0o MM moveto (O) show x00 xdif 2 mul add MM y0u MM moveto (Y) show x00 xdif 3 mul add MM y0o MM moveto (Y) show x00 xdif 3 mul add MM y0u MM moveto (O) show x00 xdif 4 mul add MM y0o MM moveto (M) show x00 xdif 4 mul add MM y0u MM moveto (L) show x00 xdif 5 mul add MM y0o MM moveto (C) show x00 xdif 5 mul add MM y0u MM moveto (V) show x0l MM y00 ydif 0 mul add MM moveto (V) show x0r MM y00 ydif 0 mul add MM moveto (C) show x0l MM y00 ydif 1 mul add MM moveto (L) show x0r MM y00 ydif 1 mul add MM moveto (M) show x0l MM y00 ydif 2 mul add MM moveto (O) show x0r MM y00 ydif 2 mul add MM moveto (Y) show x0l MM y00 ydif 3 mul add MM moveto (Y) show x0r MM y00 ydif 3 mul add MM moveto (O) show x0l MM y00 ydif 4 mul add MM moveto (M) show x0r MM y00 ydif 4 mul add MM moveto (L) show x0l MM y00 ydif 5 mul add MM moveto (C) show x0r MM y00 ydif 5 mul add MM moveto (V) show } if } for %i=0,16 0 1 10 {/j0 exch def /j1 j0 1 add def %j0 j0 0 eq {tzccmy0* setcmykcolor} if j0 1 eq {0 setgray} if j0 2 eq {tzmcmy0* setcmykcolor} if j0 3 eq {0 setgray} if j0 4 eq {tzycmy0* setcmykcolor} if j0 5 eq {0 setgray} if j0 6 eq {tzocmy0* setcmykcolor} if j0 7 eq {0 setgray} if j0 8 eq {tzlcmy0* setcmykcolor} if j0 9 eq {0 setgray} if j0 10 eq {tzvcmy0* setcmykcolor} if 12 4 16 {/i exch def /i0 i def %i=0,16 %0 4 16 {/i exch def /i0 i def %i=0,16 /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse x i0 get d i0 get add 16 j0 mul add MM y i0 get MM moveto x i0 get d i0 get add 16 j1 mul add MM y i0 get MM lineto stroke x i1 get MM y i1 get d i1 get add 16 j0 mul add MM moveto x i1 get MM y i1 get d i1 get add 16 j1 mul add MM lineto stroke x i2 get d i2 get add 16 j0 mul sub MM y i2 get MM moveto x i2 get d i2 get add 16 j1 mul sub MM y i2 get MM lineto stroke x i3 get MM y i3 get d i3 get add 16 j0 mul sub MM moveto x i3 get MM y i3 get d i3 get add 16 j1 mul sub MM lineto stroke } for %i=0,16 } for %j0 0.15 MM setlinewidth /s 7 MM def /s1 8 MM def /s5 36 MM def 16 1 20 {/j exch def /j0 j 16 sub def %j=16,20 /ix0 xlu 8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def 0 1 3 {/ij exch def %ij=0,3 ij 0 eq {/ix0 xlu 8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def} if ij 1 eq {/ix0 xru 43 MM sub j0 7 MM mul add def /iy0 yru 8 MM sub def} if ij 2 eq {/ix0 xlo 8 MM add j0 7 MM mul add def /iy0 ylo 1 MM add def} if ij 3 eq {/ix0 xro 43 MM sub j0 7 MM mul add def /iy0 yro 1 MM add def} if i*ptrsc 0 eq i*ptrsc 2 eq or {%i*ptrsc=0,2 cmy0* setcmykcolor j 16 eq {tzan j get dup dup 0 setcmykcolor ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if tzan j get dup dup 0 setcmykcolor ix0 iy0 s s rec fill } if %i*ptrsc=0,2 i*ptrsc 1 eq i*ptrsc 3 eq or {%i*ptrsc=1,3 www* setrgbcolor j 16 eq {1 tzan j get 1 sub dup dup setrgbcolor %N ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 1 tzan j get sub dup dup setrgbcolor %N ix0 iy0 s s rec fill } if %i*ptrsc=1,3 i*ptrsc 4 eq i*ptrsc 5 eq or {%i*ptrsc=4,5 [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace j 16 eq {tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add setcolor %N ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add setcolor %N ix0 iy0 s s rec fill } if %i*ptrsc=4,5 i*ptrsc 6 eq {%i*ptrsc=6 000n* setcmykcolor j 16 eq {0 0 0 tzan j get setcmykcolor ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 0 0 0 tzan j get setcmykcolor ix0 iy0 s s rec fill } if %i*ptrsc=6 i*ptrsc 7 eq {%i*ptrsc=7 w* setgray j 16 eq {1 tzan j get sub setgray ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 1 tzan j get sub setgray ix0 iy0 s s rec fill } if %i*ptrsc=7 } for %ij=0,3 } for %j=16,20 0 setgray 018 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show 018 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show 276 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show 276 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show 018 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show 018 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show 276 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show 276 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show /COLhNam16 16 array def /COLhNam16 [(R00Y) (R25Y) (R50Y) (R75Y) (Y00G) (Y25G) (Y50G) (Y75G) (G00B) (G25B) (G50B) (G75B) (B00R) (B25R) (B50R) (B75R) ] def 0 setgray 12 /Times-ISOL1 FS 61 MM 13 MM moveto (TUB\255Pr\374fvorlage RF38; ) showde %0RF38X-Y 0000# (TUB\255test chart RF38; ) showen %1RF38X-Y 0000# (gr\341fico TUB\255RF38; ) showes %2RF38X-Y 0000# (graphique TUB\255RF38; ) showfr %3RF38X-Y 0000# (grafico TUB\255RF38; ) showit %4RF38X-Y 0000# (TUB\255test chart RF38; ) showjp %5RF38X-Y 0000# xchart4 0 eq { (16 Buntt\366ne) showde %0RF38X-Y 0100# (16 step hue circle) showen %1RF38X-Y 0100# (c\355rculo de tono, 16 pasos) showes %2RF38X-Y 0100# (cercle de teinte, 16 \351tapes) showfr %3RF38X-Y 0100# (cerchio delle tinte a 16 passi) showit %4RF38X-Y 0100# (16 step hue circle) showjp %5RF38X-Y 0100# } if xchart4 1 ge xchart4 16 le and { (Bunttoncode: ) showde %0RF38X-Y 0200# (hue code: ) showen %1RF38X-Y 0200# (c\363digo de tono: ) showes %2RF38X-Y 0200# (code de teinte: ) showfr %3RF38X-Y 0200# (codice di tinte: ) showit %4RF38X-Y 0200# (hue code: ) showjp %5RF38X-Y 0200# 12 /Times-ISOL1 FS (H*) show 10 /Times-ISOL1 FS 0 -2 rmoveto Fxx show 0 2 rmoveto 12 /Times-ISOL1 FS (=) show COLhNam16 xchart4 1 sub get show 10 /Times-ISOL1 FS 0 -2 rmoveto Fxx show 0 2 rmoveto } if xchart4 17 eq { (1080 Normfarben) showde %0RF38X-Y 0300# (1080 standard colours) showen %1RF38X-Y 0300# (1080 colores est\341ndar) showes %2RF38X-Y 0300# (1080 couleurs standard) showfr %3RF38X-Y 0300# (1080 colori standard) showit %4RF38X-Y 0300# (1080 standard colours) showjp %5RF38X-Y 0300# } if 61 MM 09 MM moveto xchart 5 le {%xchart<=5 12 /Times-ISOL1 FS (Pr\374fvorlage nach DIN 33872) showde %0RF38X-Y 0400# (Test chart according to DIN 33872) showen %1RF38X-Y 0400# (gr\341fico seg\372n a DIN 33872) showes %2RF38X-Y 0400# (graphique conforme \340 DIN 33872) showfr %3RF38X-Y 0400# (grafico conformemente a DIN 33872) showit %4RF38X-Y 0400# (Test chart according to DIN 33872) showjp %5RF38X-Y 0400# }%xchart<=5 {%xchart>5 xchart xchart3PXX le {%xchart<=xchart3PXX % 12 /TimesI-ISOL1 FS % ((a*,b*): ) show 12 /Times-ISOL1 FS (48\255stufige Farbkreise;) showde %0RF38X-Y 0500# (48 step hue circles;) showen %1RF38X-Y 0500# (c\355rculo de tono, 48 pasos;) showes %2RF38X-Y 0500# (cercle chromatique 48 paliers; tableaux) showfr %3RF38X-Y 0500# (cerchio delle tinte a 48 passi;) showit %4RF38X-Y 0500# (48 step hue cicle;) showjp %5RF38X-Y 0500# 12 /TimesI-ISOL1 FS ( rgb-LabCh*) show 12 /Times-ISOL1 FS (Tabellen) showde %0RF38X-Y 0600# (tables) showen %1RF38X-Y 0600# (mesas) showes %2RF38X-Y 0600# () showfr %3RF38X-Y 0600# (tavole) showit %4RF38X-Y 0600# (tables) showjp %5RF38X-Y 0600# }%xchart<=xchart3PXX {%xchart>xchart3PXX (Farben und Farbabst\344nde, ) showde %0RF38X-Y 0400# (colors and differences, ) showen %1RF38X-Y 0400# (colores y differencia en color, ) showes %2RF38X-Y 0400# (couleurs et diff\351rences, ) showfr %3RF38X-Y 0400# (colori e la differenza, ) showit %4RF38X-Y 0400# (colors and differences, ) showjp %5RF38X-Y 0400# 12 /Symbol FS (D) show 12 /TimesI-ISOL1 FS colorm 0 eq {%colorm=0 (E*') show }%colorm=0 {%colorm=1 (E'*) show } ifelse %colorm=1 } ifelse %xchart>xchart3PXX } ifelse %xchart>5 xchart 5 le {%xchart<=5 including separation 12 /Times-ISOL1 FS (, 3D=) show colorm cvishow (, de=) show deintp cvishow 12 /TimesI-ISOL1 FS xchart5f 0 eq {(, sRGB) show} if xchart5f 1 eq {(, cmyk) show} if xchart5f 2 eq {(, cmy0) show} if xchart5f 3 eq {(, cmyk) show} if colorm 1 eq {(*) show} if } if %xchart<=5 12 /Times-ISOL1 FS 165 MM 13 MM moveto (Eingabe: ) showde %0RF38X-Y 0500# (input: ) showen %1RF38X-Y 0500# (entrada: ) showes %2RF38X-Y 0500# (entr\351e : ) showfr %3RF38X-Y 0500# (immettere: ) showit %4RF38X-Y 0500# (input: ) showjp %5RF38X-Y 0500# 12 /TimesI-ISOL1 FS (rgb/cmyk -> ) show xchart xchart3 lt {(rgb/cmyk) show} if xchart xchart3 ge {%xchart>=xchart3 (rgb) show 10 /Times-ISOL1 FS 0 -2 rmoveto Txx show 0 2 rmoveto 12 /Times-ISOL1 FS } if %xchart>=xchart3 12 /Times-ISOL1 FS 165 MM 9 MM moveto (Ausgabe: ) showde %0RF38X-Y 0600# (output: ) showen %1RF38X-Y 0600# (salida: ) showes %2RF38X-Y 0600# (sortie : ) showfr %3RF38X-Y 0600# (uscita: ) showit %4RF38X-Y 0600# (output: ) showjp %5RF38X-Y 0600# %colorm=0,1! 12 /Times-ISOL1 FS xchart 0 eq {%xchart=0,#0 12 /Times-ISOL1 FS (keine \334nderung) showde %0RF38X-Y 0700# (no change) showen %1RF38X-Y 0700# (ning\372n cambio) showes %2RF38X-Y 0700# (aucun changement) showfr %3RF38X-Y 0700# (nessun cambiamento) showit %4RF38X-Y 0700# (no change compared) showjp %5RF38X-Y 0700# }%xchart=0 {%xchart#0 12 /Times-ISOL1 FS colorm 0 eq {%colorm=0 (Transfer nach ) showde %0RF38X-Y 0800# (transfer to ) showen %1RF38X-Y 0800# (transfiera a ) showes %2RF38X-Y 0800# (transf\351rer \340 ) showfr %3RF38X-Y 0800# (trasferire a ) showit %4RF38X-Y 0800# (transfer to ) showjp %5RF38X-Y 0800# }%colorm=0 {%colorm=1 (3D\255Linearisierung ) showde %0RF38X-Y 0900# (3D\255linearization to ) showen %1RF38X-Y 0900# (3D\255linealizaci\363n a ) showes %2RF38X-Y 0900# (lin\351arisation 3D selon ) showfr %3RF38X-Y 0900# (3D\255linearizzazione a ) showit %4RF38X-Y 0900# (3D\255linearization to ) showjp %5RF38X-Y 0900# } ifelse %colorm=1 12 /TimesI-ISOL1 FS xchart5f 0 eq {(rgb) show} if xchart5f 1 eq {(cmyk) show} if xchart5f 2 eq {(cmy0) show} if xchart5f 3 eq {(cmyk) show} if colorm 1 eq {(*) show} if 10 /Times-ISOL1 FS 0 -2 rmoveto Txx show 0 2 rmoveto 12 /Times-ISOL1 FS } ifelse %xchart=0,#0 %0 setgray %end white and unvisible 12 /Times-ISOL1 FS 62 MM 198.5 MM moveto (http://130.149.60.45/~farbmetrik/RF38/RF38L) show (0) show LSC$ show LEX$ show %1 setgray %start white and unvisible (; ) show xchart 0 eq { (Start\255Ausgabe) showde %0RF38X-Y 1000# (start output) showen %1RF38X-Y 1000# (comience salida) showes %2RF38X-Y 1000# (sortie de production) showfr %3RF38X-Y 1000# (cominciare l'uscita) showit %4RF38X-Y 1000# (start output) showjp %5RF38X-Y 1000# } if LSC$ (C) eq { (Start\255Ausgabe) showde %0RF38X-Y 1100# (start output) showen %1RF38X-Y 1100# (comience salida) showes %2RF38X-Y 1100# (sortie de production) showfr %3RF38X-Y 1100# (cominciare l'uscita) showit %4RF38X-Y 1100# (start output) showjp %5RF38X-Y 1100# } if xchart 1 ge {%xchart>=1 colorm 0 eq {%colorm=0,1 (Transfer Ausgabe) showde %0RF38X-Y 1200# (transfer output) showen %1RF38X-Y 1200# (salida de transferencia) showes %2RF38X-Y 1200# (sortie de transfert) showfr %3RF38X-Y 1200# (uscita di trasferimento) showit %4RF38X-Y 1200# (transfer output) showjp %5RF38X-Y 1200# }%colorm=0 {%colorm=1 (3D\255Linearisierung) showde %0RF38X-Y 1300# (3D\255linearization) showen %1RF38X-Y 1300# (3D\255linealizaci\363n) showes %2RF38X-Y 1300# (lin\351arisation 3D) showfr %3RF38X-Y 1300# (3D\255linearizzzazione) showit %4RF38X-Y 1300# (3D\255linearization) showjp %5RF38X-Y 1300# } ifelse %colorm=0,1 } if %xchart>=1 62 MM 194 MM moveto LSC$ (N) eq LSC$ (C) eq or { (N: Keine 3D\255Linearisierung (OL) ) showde %0RF38X-Y 1400# (N: no 3D\255linearization (OL) ) showen %1RF38X-Y 1400# (N: ninguna 3D\255linealizaci\363n (OL) ) showes %2RF38X-Y 1400# (N: aucune linearisation 3D (OL) ) showfr %3RF38X-Y 1400# (N: nessun 3D\255linearizzazione (OL) ) showit %4RF38X-Y 1400# (N: no 3D\255linearization (OL) ) showjp %5RF38X-Y 1400# (in Datei (F) oder PS\255Startup (S)) showde %0RF38X-Y 1500# (in file (F) or PS\255startup (S)) showen %1RF38X-Y 1500# (en archivo (F) o PS\255startup (S)) showes %2RF38X-Y 1500# (dans fichier (F) ou PS\255startup (S)) showfr %3RF38X-Y 1500# (nel file (F) o PS\255startup (S)) showit %4RF38X-Y 1500# (in file (F) or PS\255startup (S)) showjp %5RF38X-Y 1500# } {LSC$ show (: ) show (3D\255Linearisierung) showde %0RF38X-Y 1600# (3D\255linearization) showen %1RF38X-Y 1600# (3D\255linealizaci\363n) showes %2RF38X-Y 1600# (lin\351arisation 3D) showfr %3RF38X-Y 1600# (3D\255linearizzzazione) showit %4RF38X-Y 1600# (3D\255linearization) showjp %5RF38X-Y 1600# ( RF38/RF38L) show LSS$ show LSX$ show (0) show LSC$ show LEY$ show } ifelse LSC$ (F) eq { ( in Datei (F)) showde %0RF38X-Y 1700# ( in file (F)) showen %1RF38X-Y 1700# ( en archivo (F)) showes %2RF38X-Y 1700# ( dans fichier (F)) showfr %3RF38X-Y 1700# ( nel file (F)) showit %4RF38X-Y 1700# ( in file (F)) showjp %5RF38X-Y 1700# } if LSC$ (S) eq { ( im Distiller Startup (S) Directory) showde %0RF38X-Y 1800# ( in Distiller Startup (S) Directory) showen %1RF38X-Y 1800# ( en el Distiller Startup (S) Directory) showes %2RF38X-Y 1800# ( dans le Distiller Startup (S) Directory) showfr %3RF38X-Y 1800# ( nel Distiller Startup (S) Directory) showit %4RF38X-Y 1800# ( in Distiller Startup (S) Directory) showjp %5RF38X-Y 1800# } if LSC$ (D) eq { ( in PS\255Device (D)) showde %0RF38X-Y 1900# ( in PS\255device (D)) showen %1RF38X-Y 1900# ( en el PS\255device (D)) showes %2RF38X-Y 1900# ( dans l'appareil PS (D)) showfr %3RF38X-Y 1900# ( nel PS\255dispositivo (D)) showit %4RF38X-Y 1900# ( in PS\255Device (D)) showjp %5RF38X-Y 1900# } if LSC$ (T) eq { ( im Distiller Startup (S) Directory) showde %0RF38X-Y 2000# ( in Distiller Startup (S) Directory) showen %1RF38X-Y 2000# ( en el Distiller Startup (S) Directory) showes %2RF38X-Y 2000# ( dans le Distiller Startup (S) Directory) showfr %3RF38X-Y 2000# ( nel Distiller Startup (S) Directory) showit %4RF38X-Y 2000# ( in Distiller Startup (S) Directory) showjp %5RF38X-Y 2000# } if LSC$ (E) eq { ( in PS\255Device (D)) showde %0RF38X-Y 2100# ( in PS\255device (D)) showen %1RF38X-Y 2100# ( en el PS\255device (D)) showes %2RF38X-Y 2100# ( dans appareil PS (D)) showfr %3RF38X-Y 2100# ( nel PS\255dispositivo (D)) showit %4RF38X-Y 2100# ( in PS\255Device (D)) showjp %5RF38X-Y 2100# } if %0 setgray %end white and unvisible (, Seite ) showde %0RF38X-Y 2200# (, page ) showen %1RF38X-Y 2200# (, p\341gina ) showes %2RF38X-Y 2200# (, p\341ge ) showfr %3RF38X-Y 2200# (, pagina ) showit %4RF38X-Y 2200# (, page ) showjp %5RF38X-Y 2200# xchart 1 add cvishow (/) show xchartm cvishow 16 MM 185 MM moveto -90 rotate (Siehe \344hnliche Dateien: ) showde %0RF38X-Y 2300# (see similar files: ) showen %1RF38X-Y 2300# (vea archivos semejantes: ) showes %2RF38X-Y 2300# (voir fichiers similaires: ) showfr %3RF38X-Y 2300# (vedere dei file simili: ) showit %4RF38X-Y 2300# (see similar files: ) showjp %5RF38X-Y 2300# (http://130.149.60.45/~farbmetrik/RF38/RF38.HTM) show %(0) show %LSC$ show LEX$ show 90 rotate 12 MM 185 MM moveto -90 rotate (Technische Information: ) showde %0RF38X-Y 2400# (technical information: ) showen %1RF38X-Y 2400# (informaci\363n t\351cnica: ) showes %2RF38X-Y 2400# (informations techniques: ) showfr %3RF38X-Y 2400# (informazioni tecniche: ) showit %4RF38X-Y 2400# (technical information: ) showjp %5RF38X-Y 2400# (http://www.ps.bam.de) show ( oder ) showde %0RF38X-Y 2500# ( or ) showen %1RF38X-Y 2500# ( o ) showes %2RF38X-Y 2500# ( ou ) showfr %3RF38X-Y 2500# ( o ) showit %4RF38X-Y 2500# ( or ) showjp %5RF38X-Y 2500# (http://130.149.60.45/~farbmetrik) show 90 rotate 281 MM 185 MM moveto -90 rotate (TUB\255Registrierung: 20130201\255RF38/RF38L) showde %0RF38X-Y 2600# (TUB registration: 20130201\255RF38/RF38L) showen %1RF38X-Y 2600# (TUB matr\355cula: 20130201\255RF38/RF38L) showes %2RF38X-Y 2600# (TUB enregistrement: 20130201\255RF38/RF38L) showfr %3RF38X-Y 2600# (TUB iscrizione: 20130201\255RF38/RF38L) showit %4RF38X-Y 2600# (TUB registration: 20130201\255RF38/RF38L) showjp %5RF38X-Y 2600# (0) show LSC$ show LEX$ show 90 rotate 281 MM 74 MM moveto -90 rotate (TUB\255Material: Code=rha4ta) showde %0RF38X-Y 2700# (TUB material: code=rha4ta) showen %1RF38X-Y 2700# (TUB material: code=rha4ta) showes %2RF38X-Y 2700# (TUB mat\351riel: code=rha4ta) showfr %3RF38X-Y 2700# (TUB materiale: code=rha4ta) showit %4RF38X-Y 2700# (TUB material: code=rha4ta) showjp %5RF38X-Y 2700# 90 rotate 277 MM 185 MM moveto -90 rotate /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def ( Anwendung f\374r Messung ) showde %0RF38X-Y 2800# ( application for measurement ) showen %1RF38X-Y 2800# ( aplicaci\363n para la medida ) showes %2RF38X-Y 2800# ( application pour la mesure ) showfr %3RF38X-Y 2800# ( la domanda per la misura ) showit %4RF38X-Y 2800# ( application for measurement ) showjp %5RF38X-Y 2800# xchart5f 0 eq {%xchart5f=0 (von Display-Ausgabe) showde %0RF38X-Y 2900# (of display output) showen %1RF38X-Y 2900# (de display output) showes %2RF38X-Y 2900# (de sortie sur \350cran) showfr %3RF38X-Y 2900# (di stampa di display) showit %4RF38X-Y 2900# (of display output) showjp %5RF38X-Y 2900# } if %xchart5f=0 xchart5f 1 eq xchart5f 2 eq or {%xchart5f=1,2 (von Offsetdruck\255Ausgabe) showde %0RF38X-Y 3000# (of offset print output) showen %1RF38X-Y 3000# (salida en la impressi\363n offset) showes %2RF38X-Y 3000# (des sorties sur offset) showfr %3RF38X-Y 3000# (uscita nella stampa di offset) showit %4RF38X-Y 3000# (of offset print output) showjp %5RF38X-Y 3000# } if %xchart5f=1,2 xchart5f 3 eq {%xchart5f=3 (von Laserdrucker\255Ausgabe) showde %0RF38X-Y 3100# (of laser printer output) showen %1RF38X-Y 3100# (salida de impresora l\341ser) showes %2RF38X-Y 3100# (des sorties sur imprimante laser) showfr %3RF38X-Y 3100# (di uscita della stampante laser) showit %4RF38X-Y 3100# (of laser printer output) showjp %5RF38X-Y 3100# } if %xchart5f=3 xchart 1 ge {%xchart>=1 xchart5f 0 eq {%xchart5f=0 (, keine Separation) showde %0RF38X-Y 3200# (, no separation) showen %1RF38X-Y 3200# (, ninguna separaci\363n) showes %2RF38X-Y 3200# (, aucune s\351paration) showfr %3RF38X-Y 3200# (, nessuna separazione) showit %4RF38X-Y 3200# (, no separation) showjp %5RF38X-Y 3200# } if %chart5f=0 xchart5f 1 ge {%xchart5f>=1 (, Separation) showde %0RF38X-Y 3300# (, separation) showen %1RF38X-Y 3300# (, separaci\363n) showes %2RF38X-Y 3300# (, s\351paration) showfr %3RF38X-Y 3300# (, separazione) showit %4RF38X-Y 3300# (, separation) showjp %5RF38X-Y 3300# xchart5f 1 eq xchart5f 3 eq or {( cmyn6) show} if xchart5f 2 eq {( cmy0) show} if colorm 1 eq {(*) show} if colsep 0 eq {( (CMYK))}{( (CMY0))} ifelse show } if %xchart5f>=1 } if %xchart>=1 IMES 1 eq LSC$ (N) ne and { %IMES=1 (, Yr=) show Yre cvsshow1 (, XYZ) show } if %IMES=1 90 rotate /i0 8 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def 0.30 MM setlinewidth 0 setgray x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto x i0 get MM y i0 get MM lineto stroke %/xlu1 013 MM def /ylu1 010 MM def %/xro1 283 MM def /yro1 200 MM def %/xlo1 013 MM def /ylo1 200 MM def %/xru1 283 MM def /yru1 010 MM def %xlu1 4 MM sub ylu1 moveto 8 MM 0 rlineto stroke %xlu1 ylu1 4 MM sub moveto 0 8 MM rlineto stroke %xro1 4 MM add yro1 moveto -8 MM 0 rlineto stroke %xro1 yro1 4 MM add moveto 0 -8 MM rlineto stroke %xru1 4 MM sub yru1 moveto 8 MM 0 rlineto stroke %xru1 yru1 4 MM sub moveto 0 8 MM rlineto stroke %xlo1 4 MM add ylo1 moveto -8 MM 0 rlineto stroke %xlo1 ylo1 4 MM add moveto 0 -8 MM rlineto stroke } ifelse %xt=1 xchart 1 ge {%xchart>=1 /ypapert 5 array def /ypapert [(A) (B) (L) (G) (P)] def 0 0 0 0 setcmykcolor /i0 14 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def x i0 get MM 18 MM sub y i0 get MM 04 MM sub moveto 17 MM 0 rlineto 0 4.5 MM rlineto -17 MM 0 rlineto closepath fill x i0 get MM 17.5 MM sub y i0 get MM 3 MM sub moveto 0 1 1 0 setcmykcolor 4.5 MM /Times-ISOL1 FS (RF38) show 3.5 MM /Times-ISOL1 FS colorm cvishow deintp cvishow % ypapert colsep 0 eq {ypaper}{ybunta} ifelse get show } if %xchart>=1 grestore gsave %********************************************************** xchart xchart3PXX gt {%BEG xchart>xchart3PXX /n00 xchart3PXX 1 add def %special tables start at page 11 /n01 n00 1 add def %1080-rgb-tables start at page 13 /n02 n00 2 add def xchart n00 eq {/n1 0 def /n2 57 def} if xchart n01 eq {/n1 0 def /n2 53 def} if xchart n02 ge {/n1 xchart n02 sub 81 mul def /n2 n1 80 add def n2 1079 ge {/n2 1079 def} if } if 72 56 translate 0.01 MM dup scale 0 0 0 setrgbcolor 0 0 moveto 24600 0 rlineto 0 17220 rlineto -24600 0 rlineto closepath stroke 180 /Times-ISOL1 FS 0 0 0 setrgbcolor 7000 -180 moveto (RF380-7N, ) show lanind 0 eq {(Seite ) show} if lanind 1 eq {(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 /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if /RGB58M1_F 174 array def %58x3=174 /RGB58M1_F [%rgb data of 48+1 step colour circle + 9 step gray series = 58 1.000 0.000 0.000 %00 R00Y %R 1.000 0.125 0.000 %01 R13Y 1.000 0.250 0.000 %02 R25Y 1.000 0.375 0.000 %03 R38Y 1.000 0.500 0.000 %04 R50Y 1.000 0.625 0.000 %05 R63Y 1.000 0.750 0.000 %06 R75Y 1.000 0.875 0.000 %07 R88Y 1.000 1.000 0.000 %08 Y00G %Y 0.875 1.000 0.000 %09 Y13G 0.750 1.000 0.000 %10 Y25G 0.625 1.000 0.000 %11 Y38G 0.500 1.000 0.000 %12 Y50G 0.375 1.000 0.000 %13 Y63G 0.250 1.000 0.000 %14 Y75G 0.125 1.000 0.000 %15 Y88G 0.000 1.000 0.000 %16 G00C %G 0.000 1.000 0.125 %17 G13C 0.000 1.000 0.250 %18 G25C 0.000 1.000 0.375 %19 G38C 0.000 1.000 0.500 %20 G50C 0.000 1.000 0.625 %21 G63C 0.000 1.000 0.750 %22 G75C 0.000 1.000 0.875 %23 G88C 0.000 1.000 1.000 %24 C00B %C 0.000 0.875 1.000 %25 C13B 0.000 0.750 1.000 %26 C25B 0.000 0.625 1.000 %27 C38B 0.000 0.500 1.000 %28 C50B 0.000 0.375 1.000 %29 C63B 0.000 0.250 1.000 %30 C75B 0.000 0.125 1.000 %31 C88B 0.000 0.000 1.000 %32 B00M %B 0.125 0.000 1.000 %33 B13M 0.250 0.000 1.000 %34 B25M 0.375 0.000 1.000 %35 B38M 0.500 0.000 1.000 %36 B50M 0.625 0.000 1.000 %37 B63M 0.750 0.000 1.000 %38 B75M 0.875 0.000 1.000 %39 B88M 1.000 0.000 1.000 %40 M00R %M 1.000 0.000 0.875 %41 M13R 1.000 0.000 0.750 %42 M25R 1.000 0.000 0.625 %43 M38R 1.000 0.000 0.500 %44 M50R 1.000 0.000 0.375 %45 M63R 1.000 0.000 0.250 %46 M75R 1.000 0.000 0.125 %47 M88R 1.000 0.000 0.000 %48 R00Y %R 0.000 0.000 0.000 %49 N00Wd %ncolors 0.125 0.125 0.125 %50 N13Wd 0.250 0.250 0.250 %51 N25Md 0.375 0.375 0.375 %52 N38Wd 0.500 0.500 0.500 %53 N50Wd 0.625 0.625 0.625 %54 N63Wd 0.750 0.750 0.750 %55 N75Wd 0.875 0.875 0.875 %56 N88Wd 1.000 1.000 1.000 %57 W00Nd = W ] def /RGB58M1t_F 58 array def %48+1 step colour circle and 9 step grey steps = 58 /RGB58M1t_F [%high chromatic series: %relative hue h*, brillance i*, and chroma c* %range 0 ... 100 (R00Y_100_100) (R13Y_100_100) (R25Y_100_100) (R38Y_100_100) (R50Y_100_100) (R63Y_100_100) (R75Y_100_100) (R88Y_100_100) (Y00G_100_100) (Y13G_100_100) (Y25G_100_100) (Y38G_100_100) (Y50G_100_100) (Y63G_100_100) (Y75G_100_100) (Y88G_100_100) (G00C_100_100) (G13C_100_100) (G25C_100_100) (G38C_100_100) (G50C_100_100) (G63C_100_100) (G75C_100_100) (G88C_100_100) (C00B_100_100) (C13B_100_100) (C25B_100_100) (C38B_100_100) (C50B_100_100) (C63B_100_100) (C75B_100_100) (C88B_100_100) (B00M_100_100) (B13M_100_100) (B25M_100_100) (B38M_100_100) (B50M_100_100) (B63M_100_100) (B75M_100_100) (B88M_100_100) (M00R_100_100) (M13R_100_100) (M25R_100_100) (M38R_100_100) (M50R_100_100) (M63R_100_100) (M75R_100_100) (M88R_100_100) (R00Y_100_100) %gray series (NW_000) (NW_013) (NW_025) (NW_038) (NW_050) (NW_063) (NW_075) (NW_088) (NW_100) ] def /RGB54CR_F 162 array def %54x3=162 /RGB54CR_F [%54 colours of colour rendering (CR) test chart 1.000 0.000 0.000 %01 R00Yd %RGB54CR 1.000 0.250 0.000 %02 R25Yd 1.000 0.500 0.000 %03 R50Yd 1.000 0.750 0.000 %04 R75Yd 1.000 1.000 0.000 %05 Y00Gd 0.750 1.000 0.000 %06 Y25Gd 0.500 1.000 0.000 %07 Y50Gd 0.250 1.000 0.000 %08 Y75Gd 0.000 1.000 0.000 %09 G00Bd = 10 0.000 1.000 0.000 %10 G00Bd 0.000 1.000 0.500 %11 G25Bd 0.000 1.000 1.000 %12 G50Bd 0.000 0.500 1.000 %13 G75Bd 0.000 0.000 1.000 %14 B00Rd 0.500 0.000 1.000 %15 B25Rd 1.000 0.000 1.000 %16 B50Rd 1.000 0.000 0.500 %17 B75Rd 1.000 0.000 0.000 %18 R00Yd = 01 1.000 0.500 0.500 %19 R00Yd %lcolors 1.000 0.750 0.500 %20 R50Yd 1.000 1.000 0.500 %21 Y00Gd 0.750 1.000 0.500 %22 Y50Gd 0.500 1.000 0.500 %23 G00Bd 0.500 1.000 1.000 %24 G50Bd 0.500 0.500 1.000 %25 B00Rd 1.000 0.500 1.000 %26 B50Rd 1.000 0.500 0.500 %27 R00Yd = 19 0.750 0.250 0.250 %28 R00Yd %zcolors 0.750 0.500 0.250 %29 R50Yd 0.750 0.750 0.250 %30 Y00Gd 0.500 0.750 0.250 %31 Y50Gd 0.250 0.750 0.250 %32 G00Bd 0.250 0.750 0.750 %33 G50Bd 0.250 0.250 0.750 %34 B00Rd 0.750 0.250 0.750 %35 B50Rd 0.750 0.250 0.250 %36 R00Yd = 28 0.500 0.000 0.000 %37 R00Yd %dcolors 0.500 0.250 0.000 %38 R50Yd 0.500 0.500 0.000 %38 Y00Gd 0.250 0.500 0.000 %40 Y50Gd 0.000 0.500 0.000 %41 G00Bd 0.000 0.500 0.500 %42 G50Bd 0.000 0.000 0.500 %43 B00Rd 0.500 0.000 0.500 %44 B50Rd 0.500 0.000 0.000 %45 R00Yd = 37 0.000 0.000 0.000 %46 N00Wd %ncolors 0.125 0.125 0.125 %47 N13Wd 0.250 0.250 0.250 %48 N25Md 0.375 0.375 0.375 %49 N38Wd 0.500 0.500 0.500 %50 N50Wd 0.625 0.625 0.625 %51 N63Wd 0.750 0.750 0.750 %52 N75Wd 0.875 0.875 0.875 %53 N88Wd 1.000 1.000 1.000 %54 W00Nd = W ] def %54 colours of colour rendering test chart /RGB54CRt_F 54 array def /RGB54CRt_F [%high chromatic series: %relative hue h*, brillance i*, and chroma c*, range 0 ... 100 (R00Y_100_100) (R25Y_100_100) (R50Y_100_100) (R75Y_100_100) (Y00G_100_100) (Y25G_100_100) (Y50G_100_100) (Y75G_100_100) (G00B_100_100) (G00B_100_100) (G25B_100_100) (G50B_100_100) (G75B_100_100) (B00M_100_100) (B25R_100_100) (B50R_100_100) (B75R_100_100) (R00Y_100_100) %whitetish series (R00Y_100_050) (R50Y_100_050) (Y00G_100_050) (Y50G_100_050) (G00B_100_050) (G50B_100_050) (B00R_100_050) (B50R_100_050) (R00Y_100_050) %grayish series (R00Y_075_050) (R50Y_075_050) (Y00G_075_050) (Y50G_075_050) (G00B_075_050) (G50B_075_050) (B00R_075_050) (B50R_075_050) (R00Y_075_050) %blackish series (R00Y_050_050) (R50Y_050_050) (Y00G_050_050) (Y50G_050_050) (G00B_050_050) (G50B_050_050) (B00R_050_050) (B50R_050_050) (R00Y_050_050) %gray series (NW_000) (NW_013) (NW_025) (NW_038) (NW_050) (NW_063) (NW_075) (NW_088) (NW_100) ] def /jCRi 54 array def /jCRi %jCRi [ 648 %R00Y_100_100 1.00 0.00 0.00 01 %chromatic 16 step hue 666 %R25Y_100_100 1.00 0.25 0.00 02 684 %R50Y_100_100 1.00 0.50 0.00 03 702 %R75Y_100_100 1.00 0.75 0.00 04 720 %Y00G_100_100 1.00 1.00 0.00 05 558 %Y25G_100_100 0.75 1.00 0.00 06 396 %Y50G_100_100 0.50 1.00 0.00 07 234 %Y75G_100_100 0.25 1.00 0.00 08 072 %G00B_100_100 0.00 1.00 0.00 09=10 072 %G00B_100_100 0.00 1.00 0.00 10 %chromatic 16 step hue 076 %G25B_100_100 0.00 1.00 0.50 11 080 %G50B_100_100 0.00 1.00 1.00 12 044 %G75B_100_100 0.00 0.50 1.00 13 008 %B00R_100_100 0.00 0.00 1.00 14 332 %B25R_100_100 0.50 0.00 1.00 15 656 %B50R_100_100 1.00 0.00 1.00 16 652 %B75R_100_100 1.00 0.00 0.50 17 648 %R00Y_100_100 1.00 0.00 0.00 18=01 688 %R00Y_100_050 1.00 0.50 0.50 19 %whitish 8 step hue 706 %R50Y_100_050 1.00 0.75 0.50 20 724 %Y00G_100_050 1.00 1.00 0.50 21 562 %Y50G_100_050 0.75 1.00 0.50 22 400 %G00B_100_050 0.50 1.00 0.50 23 404 %G50B_100_050 0.50 1.00 1.00 24 368 %B00R_100_050 0.50 0.50 1.00 25 692 %B50R_100_050 1.00 0.50 1.00 26 688 %R00Y_100_050 1.00 0.50 0.50 27=19 506 %R00Y_075_050 0.75 0.25 0.25 28 %greyish 8 step hue 524 %R50Y_075_050 0.75 0.50 0.25 29 542 %Y00G_075_050 0.75 0.75 0.25 30 380 %Y50G_075_050 0.50 0.75 0.25 31 218 %G00B_075_050 0.25 0.75 0.25 32 222 %G50B_075_050 0.25 0.75 0.75 33 186 %B00R_075_050 0.25 0.25 0.75 34 510 %B50R_075_050 0.75 0.25 0.75 35 506 %R00Y_075_050 0.75 0.25 0.25 36=28 324 %R00Y_050_050 0.50 0.00 0.00 37 %blackish 8 step hue 342 %R50Y_050_050 0.50 0.25 0.00 38 360 %Y00G_050_050 0.50 0.50 0.00 39 198 %Y50G_050_050 0.25 0.50 0.00 40 036 %G00B_050_050 0.00 0.50 0.00 41 040 %G50B_050_050 0.00 0.50 0.50 42 004 %B00R_050_050 0.00 0.00 0.50 43 328 %B50R_050_050 0.50 0.00 0.50 44 324 %R00Y_050_050 0.50 0.00 0.00 45=37 000 %NW_000 0.000 0.000 0.000 46 %grey 9 steps 091 %NW_013 0.125 0.125 0.125 47 182 %NW_025 0.250 0.250 0.250 48 273 %NW_038 0.375 0.375 0.375 49 364 %NW_050 0.500 0.500 0.500 50 455 %NW_063 0.625 0.625 0.625 51 546 %NW_075 0.750 0.750 0.750 52 637 %NW_088 0.875 0.875 0.875 53 728 %NW_100 1.000 1.000 1.000 54 ] def %END jCRi /SUMDE*' 0 def /SUMDE'* 0 def n1 1 n2 {/n exch def %n=n1,n2 /n30 n 3 mul def /n31 n30 1 add def /n32 n30 2 add def xchart n00 eq {%48+1=49 step colour circle + 9 gray steps=58 steps /hcolort RGB58M1t_F n get def RGB58M1_F n30 get %real RGB58M1_F n31 get RGB58M1_F n32 get } if %48 step colour circle xchart n01 eq {%45 colour rendering (CR) + 9 grey steps = 54 steps /hcolort RGB54CRt_F n get def RGB54CR_F n30 get %real RGB54CR_F n31 get RGB54CR_F n32 get } if %54 colour rendering colours xchart n02 ge {%1080 standard colours /r_RGBF RGB0_F n30 get 1000 div def /g_RGBF RGB0_F n31 get 1000 div def /b_RGBF RGB0_F n32 get 1000 div def /hsiRGBF r_RGBF 030 sin mul g_RGBF 150 sin mul add b_RGBF 270 sin mul add %y_e r_RGBF 030 cos mul g_RGBF 150 cos mul add %x_e 0.0001 add atan 0.5 add cvi def %range 0..360 hsiRGBF 30 lt {/hsiRGBF hsiRGBF 30 add def} if %range 30..390 hsiRGBF 030 ge hsiRGBF 090 le and {/u_100 hsiRGBF 030 sub 060 div 100 mul def /u1_RGYB (R) def /u2_RGYB (Y) def} if hsiRGBF 090 ge hsiRGBF 150 le and {/u_100 hsiRGBF 090 sub 060 div 100 mul def /u1_RGYB (Y) def /u2_RGYB (G) def} if hsiRGBF 150 ge hsiRGBF 270 le and {/u_100 hsiRGBF 150 sub 120 div 100 mul def /u1_RGYB (G) def /u2_RGYB (B) def} if hsiRGBF 270 ge hsiRGBF 390 le and {/u_100 hsiRGBF 270 sub 120 div 100 mul def /u1_RGYB (B) def /u2_RGYB (R) def} if %calculation of i_RGBF, c_RGBF, and t_RGBF /maxd r_RGBF def g_RGBF maxd gt {/maxd g_RGBF def} if b_RGBF maxd gt {/maxd b_RGBF def} if /mind r_RGBF def g_RGBF mind lt {/mind g_RGBF def} if b_RGBF mind lt {/mind b_RGBF def} if /I_RGBF maxd 100 mul def /C_RGBF maxd mind sub 100 mul def /T_RGBF I_RGBF C_RGBF 0.5 mul sub def r_RGBF g_RGBF b_RGBF %for setrgbcolor } if %1080 standard colours setrgbcolor %default to create data %setrgbcolor calculates data for output in "FF_LM_de_setrgbcolor_F" %colorm=0 calculates: rgb_dyF, rgb*dyF, LAB*dyF, ,cmyk*dyF and more %colorm=1 calculates: rgb_dyF, rgb*dyF, LAB*dyF', rgb'*dyF, cmyk*dyF and more /r_xF r_dyF def /g_xF g_dyF def /b_xF b_dyF def /i_xF i_dyF def /c_xF c_dyF def /t_xF t_dyF def /r*xF r*dyF def /g*xF g*dyF def /b*xF b*dyF def /LAB*LxF LAB*LdyF def /LAB*axF LAB*adyF def /LAB*bxF LAB*bdyF def /LAB*CxF LAB*adyF dup mul LAB*bdyF dup mul add 0.0001 add sqrt def /LAB*hxF LAB*bdyF LAB*adyF 0.0001 add atan def colorm 0 eq {%colorm=0 %prog_rgb_dyF_LAB*'dyF uses rgb_dyF by default %calculates output data according to IEC 61966-2-1 prog_rgb_dyF_LAB*'dyF xchart n00 eq {%xchart=n00 n 49 le {%n<=49 %chromatic hue series /LAB*'LxF LAB*Ldd64M n get def /LAB*'axF LAB*add64M n get def /LAB*'bxF LAB*bdd64M n get def /LAB*'CxF LAB*Cdd64M n get def /LAB*'hxF LAB*hdd64M n get def }%n<=49 %chromatic hue series {%n>49 %grey series /LAB*'LxF LAB*Lja jCRi n 5 sub get get def %Offset /LAB*'axF LAB*aja jCRi n 5 sub get get def /LAB*'bxF LAB*bja jCRi n 5 sub get get def /LAB*'CxF LAB*'axF dup mul LAB*'bxF dup mul add 0.0001 add sqrt def /LAB*'hxF LAB*'bxF LAB*'axF 0.0001 add atan def } ifelse %n>49 %grey series } if%xchart=n00 xchart n01 eq {%xchart=n01 /LAB*'LxF LAB*Lja jCRi n get get def %Offset hue circle /LAB*'axF LAB*aja jCRi n get get def /LAB*'bxF LAB*bja jCRi n get get def /LAB*'CxF LAB*'axF dup mul LAB*'bxF dup mul add 0.0001 add sqrt def /LAB*'hxF LAB*'bxF LAB*'axF 0.0001 add atan def } if %xchart=n01 xchart n02 ge %xchart>=n02 {/LAB*'LxF LAB*Lja n get def %only for Offset /LAB*'axF LAB*aja n get def /LAB*'bxF LAB*bja n get def /LAB*'CxF LAB*'axF dup mul LAB*'bxF dup mul add 0.0001 add sqrt def /LAB*'hxF LAB*'bxF LAB*'axF 0.0001 add atan def } if %xchart>=n02 % /LAB*'LxF L*'dyF def %only for sRGB % /LAB*'axF a*'dyF def % /LAB*'bxF b*'dyF def % /LAB*'CxF C*'dyF def % /LAB*'hxF h*'dyF def /DE*' LAB*'LxF LAB*LxF sub dup mul LAB*'axF LAB*axF sub dup mul add LAB*'bxF LAB*bxF sub dup mul add 0.0001 add sqrt def /SUMDE*' SUMDE*' DE*' add def } if %colorm=0 colorm 1 eq {%colorm=1 % /r'*xF r'*dyF def % /g'*xF g'*dyF def % /b'*xF b'*dyF def %calculates output data according to IEC 61966-2-1 % prog_rgb'*dyF_LAB'*dyF % /LAB'*LxF L'*dyF def % /LAB'*axF a'*dyF def % /LAB'*bxF b'*dyF def % /LAB'*CxF C'*dyF def % /LAB'*hxF h'*dyF def % /DE'* LAB'*LxF LAB*LxF sub dup mul % LAB'*axF LAB*axF sub dup mul add % LAB'*bxF LAB*bxF sub dup mul add % 0.0001 add sqrt def % /SUMDE'* SUMDE'* DE'* add def } if %colorm=1 /hsi_xF hsiF def /c4*xF c4*Fa def /m4*xF m4*Fa def /y4*xF y4*Fa def /n4*xF n4*Fa def /r*xM r*dyM def /g*xM g*dyM def /b*xM b*dyM def /LAB*LxM LAB*LdyM def /LAB*axM LAB*adyM def /LAB*bxM LAB*bdyM def /LAB*CxM LAB*adyM dup mul LAB*bdyM dup mul add 0.0001 add sqrt def /LAB*hxM LAB*bdyM LAB*adyM 0.0001 add atan def /hsi_xM hsiM def 0 setgray xchart n00 eq {/nx n 8 idiv def n 49 ge {/nx nx 1 add def} if n 56 ge {/nx nx 1 sub def} if } if xchart n01 eq {/nx n 9 idiv def} if xchart n02 ge {/nx 0 def} if /iydn iymax n n1 sub nx add iyd mul sub def n n1 eq {%n=n1 00050 imaxy0 moveto (n) jshow xchart n00 eq {(/j) show} if xchart n01 eq {(/j) show} if xchart n02 eq {(=j) show} if 00700 imaxy0 moveto (HIC*) bshow (F) ishow0 Txx ishow0 02300 imaxy0 moveto (rgb) jshow (_F) ishow0 Txx ishow0 04200 imaxy0 moveto (ict) jshow (_F) ishow0 Txx ishow0 06100 imaxy0 moveto (h) jshow (si_F,) ishow0 Txx ishow0 06700 imaxym moveto 0 imaxym neg rlineto stroke 06800 imaxy0 moveto (rgb*) jshow (F) ishow0 Txx ishow0 08700 imaxy0 moveto (LabCh*) jshow (F) ishow0 Txx ishow0 12100 imaxym moveto 0 imaxym neg rlineto stroke colorm 0 eq {%colorm=1 12200 imaxy0 moveto (rgb*') jshow (F) ishow0 Txx ishow0 14100 imaxy0 moveto (LabCh*') jshow (F) ishow0 Txx ishow0 17600 imaxy0 moveto (DE*') jshow (F) ishow0 Txx ishow0 } if %colorm=0 colorm 1 eq {%colorm=1 % 12200 imaxy0 moveto (rgb'*) jshow % (F) ishow0 Txx ishow0 % 14100 imaxy0 moveto (LabCh'*) jshow (F) ishow0 % Txx ishow0 % 17600 imaxy0 moveto (DE'*) jshow (F) ishow0 % Txx ishow0 12200 imaxy0 moveto (cmyn*) jshow (sep,) ishow0 (F) ishow0 Txx ishow0 } if %colorm=1 18300 imaxy0 moveto (h) jshow (siM,) ishow0 Txx ishow0 18900 imaxym moveto 0 imaxym neg rlineto stroke 19000 imaxy0 moveto (rgb*) jshow (M) ishow0 Txx ishow0 20900 imaxy0 moveto (LabCh*) jshow (M) ishow0 Txx ishow0 () nshow } if %n=n1 00050 iydn moveto n cvishow xchart n00 eq {%xchart=n00 n 48 le {%n<=48 (/) show M1jx n get cvishow }%n<=48 {%n>48 (/) show jCRi n 4 sub get cvishow } ifelse } if %xchart=n00 xchart n01 eq {(/) show jCRi n get cvishow} if 00700 iydn moveto xchart n01 le {hcolort show Txx ishow0 () nshow} if xchart n02 ge {%xchart>n02 C_RGBF 0 eq {%ifelse achromatic (NW) show (_) show I_RGBF cvi 9 le {(00) show} if %filling cero I_RGBF cvi 9 gt I_RGBF cvi 99 le and {(0) show } if %range 0..100 I_RGBF cvi 6 string cvs show }%ifelse achromatic {%ifelse chromatic u1_RGYB show %filling cero range 0..99 u_100 cvi 9 le {(0) show} if %filling cero u_100 cvi cvi 6 string cvs show u2_RGYB show (_) show I_RGBF cvi 9 le {(00) show} if %filling cero I_RGBF cvi 9 gt I_RGBF cvi 99 le and {(0) show } if %range 0..100 I_RGBF cvi 6 string cvs show (_) show C_RGBF 9 le {(00) show} if %filling cero C_RGBF cvi 9 gt C_RGBF cvi 99 le and {(0) show } if %range 0..100 C_RGBF cvi 6 string cvs show } ifelse %ifelse chromatic Txx ishow0 () nshow } if %xchart>n02 02300 iydn moveto r_xF cvsshow3 02900 iydn moveto g_xF cvsshow3 03500 iydn moveto b_xF cvsshow3 04200 iydn moveto i_xF cvsshow3 04800 iydn moveto c_xF cvsshow3 05400 iydn moveto t_xF cvsshow3 06100 iydn moveto hsi_xF cvishow 06800 iydn moveto r*xF cvsshow3 07400 iydn moveto g*xF cvsshow3 08000 iydn moveto b*xF cvsshow3 08700 iydn moveto LAB*LxF cvsshow1 09400 iydn moveto LAB*axF cvsshow1 10100 iydn moveto LAB*bxF cvsshow1 10800 iydn moveto LAB*CxF cvsshow1 11500 iydn moveto LAB*hxF cvsshow1 colorm 0 eq {%colorm=0 12200 iydn moveto r_xF cvsshow3 12800 iydn moveto g_xF cvsshow3 13400 iydn moveto b_xF cvsshow3 14100 iydn moveto LAB*'LxF cvsshow1 14800 iydn moveto LAB*'axF cvsshow1 15500 iydn moveto LAB*'bxF cvsshow1 16200 iydn moveto LAB*'CxF cvsshow1 16900 iydn moveto LAB*'hxF cvsshow1 17600 iydn moveto DE*' cvsshow1 } if %colorm=0 colorm 1 eq {%colorm=1 % 12200 iydn moveto r'*xF cvsshow3 % 12800 iydn moveto g'*xF cvsshow3 % 13400 iydn moveto b'*xF cvsshow3 % 14100 iydn moveto LAB'*LxF cvsshow1 % 14800 iydn moveto LAB'*axF cvsshow1 % 15500 iydn moveto LAB'*bxF cvsshow1 % 16200 iydn moveto LAB'*CxF cvsshow1 % 16900 iydn moveto LAB'*hxF cvsshow1 % 17600 iydn moveto DE'* cvsshow1 12200 iydn moveto c4*xF cvsshow3 13100 iydn moveto m4*xF cvsshow3 14000 iydn moveto y4*xF cvsshow3 14900 iydn moveto n4*xF cvsshow3 } if %colorm=1 18300 iydn moveto hsi_xM cvishow 19000 iydn moveto r*xM cvsshow3 19600 iydn moveto g*xM cvsshow3 20200 iydn moveto b*xM cvsshow3 20900 iydn moveto LAB*LxM cvsshow1 21600 iydn moveto LAB*axM cvsshow1 22300 iydn moveto LAB*bxM cvsshow1 23000 iydn moveto LAB*CxM cvsshow1 23700 iydn moveto LAB*hxM cvsshow1 } for %n=n1,n2 n2 57 eq n2 53 eq or n2 80 ge or {%n2=57,53,80,161,...,971,1079 /iydn iymax n 1 add n1 sub nx add iyd mul sub def 12500 iydn moveto lanind 1 eq {(Mean color difference of this page:) bshow} if %lanind 0 eq {(Mitttlere Farbdifferenz dieser Seite: ) bshow} if 16600 iydn moveto (delta ) bshow colorm 0 eq {(E*' =) jshow} if % {(E'* =) jshow} ifelse () bshow colorm 0 eq {%colorm=0 17600 iydn moveto SUMDE*' n2 n1 sub 1 add div cvsshow1 }%colorm=0 {%colorm=1 % 17600 iydn moveto SUMDE'* n2 n1 sub 1 add div cvsshow1 } ifelse %colorm=1 } if %n2=57,53,80,161,...,971,1079 } if %END xchart>xchart3PXX %************************************************************* %%Trailer %%EndDocument EndEPSF grestore gsave showpage grestore %} for %colsepf=0,1 %} for %pchartf=0,0 } for %xchartf=0,18 %} for %xcolorf=3,3 } for %deintpf=0,1 } for %colormf=0,1 %} for %lanindf=0,0 %%Trailer