%!PS-Adobe-3.0 EPSF-3.0 http://130.149.60.45/~farbmetrik/SS13/SS13L00XX.PS 20120401 %%BoundingBox: 00 00 842 595 /pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: www.ps.bam.de/SS13/SS13.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 %Early Frame File (f) definition /sfrgbcolor {setrgbcolor} bind def /sfcmykcolor {setcmykcolor} bind def %line 20****************************************************** %**************************************************** %BEG 'SS13'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 'SS13'OUTLIN11.PS for output 3D-linearization %**************************************************** %**************************************************** %BEG 'SS13'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 cmyn6*, D65) def /FileDatde (Offset\255Normdruck; Separation cmyn6*, D65) def /RGB0_F 3240 array def %1080*3 /RGB0_F [%1000 x rgb* nr. pos 1080 colours 0000 0000 0000 %0000 A01 0000 0000 0125 %0001 A02 0000 0000 0250 %0002 A03 0000 0000 0375 %0003 A04 0000 0000 0500 %0004 A05 0000 0000 0625 %0005 A06 0000 0000 0750 %0006 A07 0000 0000 0875 %0007 A08 0000 0000 1000 %0008 A09 0000 0125 0000 %0009 B01 0000 0125 0125 %0010 B02 0000 0125 0250 %0011 B03 0000 0125 0375 %0012 B04 0000 0125 0500 %0013 B05 0000 0125 0625 %0014 B06 0000 0125 0750 %0015 B07 0000 0125 0875 %0016 B08 0000 0125 1000 %0017 B09 0000 0250 0000 %0018 C01 0000 0250 0125 %0019 C02 0000 0250 0250 %0020 C03 0000 0250 0375 %0021 C04 0000 0250 0500 %0022 C05 0000 0250 0625 %0023 C06 0000 0250 0750 %0024 C07 0000 0250 0875 %0025 C08 0000 0250 1000 %0026 C09 0000 0375 0000 %0027 D01 0000 0375 0125 %0028 D02 0000 0375 0250 %0029 D03 0000 0375 0375 %0030 D04 0000 0375 0500 %0031 D05 0000 0375 0625 %0032 D06 0000 0375 0750 %0033 D07 0000 0375 0875 %0034 D08 0000 0375 1000 %0035 D09 0000 0500 0000 %0036 E01 0000 0500 0125 %0037 E02 0000 0500 0250 %0038 E03 0000 0500 0375 %0039 E04 0000 0500 0500 %0040 E05 0000 0500 0625 %0041 E06 0000 0500 0750 %0042 E07 0000 0500 0875 %0043 E08 0000 0500 1000 %0044 E09 0000 0625 0000 %0045 F01 0000 0625 0125 %0046 F02 0000 0625 0250 %0047 F03 0000 0625 0375 %0048 F04 0000 0625 0500 %0049 F05 0000 0625 0625 %0050 F06 0000 0625 0750 %0051 F07 0000 0625 0875 %0052 F08 0000 0625 1000 %0053 F09 0000 0750 0000 %0054 G01 0000 0750 0125 %0055 G02 0000 0750 0250 %0056 G03 0000 0750 0375 %0057 G04 0000 0750 0500 %0058 G05 0000 0750 0625 %0059 G06 0000 0750 0750 %0060 G07 0000 0750 0875 %0061 G08 0000 0750 1000 %0062 G09 0000 0875 0000 %0063 H01 0000 0875 0125 %0064 H02 0000 0875 0250 %0065 H03 0000 0875 0375 %0066 H04 0000 0875 0500 %0067 H05 0000 0875 0625 %0068 H06 0000 0875 0750 %0069 H07 0000 0875 0875 %0070 H08 0000 0875 1000 %0071 H09 0000 1000 0000 %0072 I01 0000 1000 0125 %0073 I02 0000 1000 0250 %0074 I03 0000 1000 0375 %0075 I04 0000 1000 0500 %0076 I05 0000 1000 0625 %0077 I06 0000 1000 0750 %0078 I07 0000 1000 0875 %0079 I08 0000 1000 1000 %0080 I09 0125 0000 0000 %0081 J01 0125 0000 0125 %0082 J02 0125 0000 0250 %0083 J03 0125 0000 0375 %0084 J04 0125 0000 0500 %0085 J05 0125 0000 0625 %0086 J06 0125 0000 0750 %0087 J07 0125 0000 0875 %0088 J08 0125 0000 1000 %0089 J09 0125 0125 0000 %0090 K01 0125 0125 0125 %0091 K02 0125 0125 0250 %0092 K03 0125 0125 0375 %0093 K04 0125 0125 0500 %0094 K05 0125 0125 0625 %0095 K06 0125 0125 0750 %0096 K07 0125 0125 0875 %0097 K08 0125 0125 1000 %0098 K09 0125 0250 0000 %0099 L01 0125 0250 0125 %0100 L02 0125 0250 0250 %0101 L03 0125 0250 0375 %0102 L04 0125 0250 0500 %0103 L05 0125 0250 0625 %0104 L06 0125 0250 0750 %0105 L07 0125 0250 0875 %0106 L08 0125 0250 1000 %0107 L09 0125 0375 0000 %0108 M01 0125 0375 0125 %0109 M02 0125 0375 0250 %0110 M03 0125 0375 0375 %0111 M04 0125 0375 0500 %0112 M05 0125 0375 0625 %0113 M06 0125 0375 0750 %0114 M07 0125 0375 0875 %0115 M08 0125 0375 1000 %0116 M09 0125 0500 0000 %0117 N01 0125 0500 0125 %0118 N02 0125 0500 0250 %0119 N03 0125 0500 0375 %0120 N04 0125 0500 0500 %0121 N05 0125 0500 0625 %0122 N06 0125 0500 0750 %0123 N07 0125 0500 0875 %0124 N08 0125 0500 1000 %0125 N09 0125 0625 0000 %0126 O01 0125 0625 0125 %0127 O02 0125 0625 0250 %0128 O03 0125 0625 0375 %0129 O04 0125 0625 0500 %0130 O05 0125 0625 0625 %0131 O06 0125 0625 0750 %0132 O07 0125 0625 0875 %0133 O08 0125 0625 1000 %0134 O09 0125 0750 0000 %0135 P01 0125 0750 0125 %0136 P02 0125 0750 0250 %0137 P03 0125 0750 0375 %0138 P04 0125 0750 0500 %0139 P05 0125 0750 0625 %0140 P06 0125 0750 0750 %0141 P07 0125 0750 0875 %0142 P08 0125 0750 1000 %0143 P09 0125 0875 0000 %0144 Q01 0125 0875 0125 %0145 Q02 0125 0875 0250 %0146 Q03 0125 0875 0375 %0147 Q04 0125 0875 0500 %0148 Q05 0125 0875 0625 %0149 Q06 0125 0875 0750 %0150 Q07 0125 0875 0875 %0151 Q08 0125 0875 1000 %0152 Q09 0125 1000 0000 %0153 R01 0125 1000 0125 %0154 R02 0125 1000 0250 %0155 R03 0125 1000 0375 %0156 R04 0125 1000 0500 %0157 R05 0125 1000 0625 %0158 R06 0125 1000 0750 %0159 R07 0125 1000 0875 %0160 R08 0125 1000 1000 %0161 R09 0250 0000 0000 %0162 S01 0250 0000 0125 %0163 S02 0250 0000 0250 %0164 S03 0250 0000 0375 %0165 S04 0250 0000 0500 %0166 S05 0250 0000 0625 %0167 S06 0250 0000 0750 %0168 S07 0250 0000 0875 %0169 S08 0250 0000 1000 %0170 S09 0250 0125 0000 %0171 T01 0250 0125 0125 %0172 T02 0250 0125 0250 %0173 T03 0250 0125 0375 %0174 T04 0250 0125 0500 %0175 T05 0250 0125 0625 %0176 T06 0250 0125 0750 %0177 T07 0250 0125 0875 %0178 T08 0250 0125 1000 %0179 T09 0250 0250 0000 %0180 U01 0250 0250 0125 %0181 U02 0250 0250 0250 %0182 U03 0250 0250 0375 %0183 U04 0250 0250 0500 %0184 U05 0250 0250 0625 %0185 U06 0250 0250 0750 %0186 U07 0250 0250 0875 %0187 U08 0250 0250 1000 %0188 U09 0250 0375 0000 %0189 V01 0250 0375 0125 %0190 V02 0250 0375 0250 %0191 V03 0250 0375 0375 %0192 V04 0250 0375 0500 %0193 V05 0250 0375 0625 %0194 V06 0250 0375 0750 %0195 V07 0250 0375 0875 %0196 V08 0250 0375 1000 %0197 V09 0250 0500 0000 %0198 W01 0250 0500 0125 %0199 W02 0250 0500 0250 %0200 W03 0250 0500 0375 %0201 W04 0250 0500 0500 %0202 W05 0250 0500 0625 %0203 W06 0250 0500 0750 %0204 W07 0250 0500 0875 %0205 W08 0250 0500 1000 %0206 W09 0250 0625 0000 %0207 X01 0250 0625 0125 %0208 X02 0250 0625 0250 %0209 X03 0250 0625 0375 %0210 X04 0250 0625 0500 %0211 X05 0250 0625 0625 %0212 X06 0250 0625 0750 %0213 X07 0250 0625 0875 %0214 X08 0250 0625 1000 %0215 X09 0250 0750 0000 %0216 Y01 0250 0750 0125 %0217 Y02 0250 0750 0250 %0218 Y03 0250 0750 0375 %0219 Y04 0250 0750 0500 %0220 Y05 0250 0750 0625 %0221 Y06 0250 0750 0750 %0222 Y07 0250 0750 0875 %0223 Y08 0250 0750 1000 %0224 Y09 0250 0875 0000 %0225 Z01 0250 0875 0125 %0226 Z02 0250 0875 0250 %0227 Z03 0250 0875 0375 %0228 Z04 0250 0875 0500 %0229 Z05 0250 0875 0625 %0230 Z06 0250 0875 0750 %0231 Z07 0250 0875 0875 %0232 Z08 0250 0875 1000 %0233 Z09 0250 1000 0000 %0234 a01 0250 1000 0125 %0235 a02 0250 1000 0250 %0236 a03 0250 1000 0375 %0237 a04 0250 1000 0500 %0238 a05 0250 1000 0625 %0239 a06 0250 1000 0750 %0240 a07 0250 1000 0875 %0241 a08 0250 1000 1000 %0242 a09 0375 0000 0000 %0243 A10 0375 0000 0125 %0244 A11 0375 0000 0250 %0245 A12 0375 0000 0375 %0246 A13 0375 0000 0500 %0247 A14 0375 0000 0625 %0248 A15 0375 0000 0750 %0249 A16 0375 0000 0875 %0250 A17 0375 0000 1000 %0251 A18 0375 0125 0000 %0252 B10 0375 0125 0125 %0253 B11 0375 0125 0250 %0254 B12 0375 0125 0375 %0255 B13 0375 0125 0500 %0256 B14 0375 0125 0625 %0257 B15 0375 0125 0750 %0258 B16 0375 0125 0875 %0259 B17 0375 0125 1000 %0260 B18 0375 0250 0000 %0261 C10 0375 0250 0125 %0262 C11 0375 0250 0250 %0263 C12 0375 0250 0375 %0264 C13 0375 0250 0500 %0265 C14 0375 0250 0625 %0266 C15 0375 0250 0750 %0267 C16 0375 0250 0875 %0268 C17 0375 0250 1000 %0269 C18 0375 0375 0000 %0270 D10 0375 0375 0125 %0271 D11 0375 0375 0250 %0272 D12 0375 0375 0375 %0273 D13 0375 0375 0500 %0274 D14 0375 0375 0625 %0275 D15 0375 0375 0750 %0276 D16 0375 0375 0875 %0277 D17 0375 0375 1000 %0278 D18 0375 0500 0000 %0279 E10 0375 0500 0125 %0280 E11 0375 0500 0250 %0281 E12 0375 0500 0375 %0282 E13 0375 0500 0500 %0283 E14 0375 0500 0625 %0284 E15 0375 0500 0750 %0285 E16 0375 0500 0875 %0286 E17 0375 0500 1000 %0287 E18 0375 0625 0000 %0288 F10 0375 0625 0125 %0289 F11 0375 0625 0250 %0290 F12 0375 0625 0375 %0291 F13 0375 0625 0500 %0292 F14 0375 0625 0625 %0293 F15 0375 0625 0750 %0294 F16 0375 0625 0875 %0295 F17 0375 0625 1000 %0296 F18 0375 0750 0000 %0297 G10 0375 0750 0125 %0298 G11 0375 0750 0250 %0299 G12 0375 0750 0375 %0300 G13 0375 0750 0500 %0301 G14 0375 0750 0625 %0302 G15 0375 0750 0750 %0303 G16 0375 0750 0875 %0304 G17 0375 0750 1000 %0305 G18 0375 0875 0000 %0306 H10 0375 0875 0125 %0307 H11 0375 0875 0250 %0308 H12 0375 0875 0375 %0309 H13 0375 0875 0500 %0310 H14 0375 0875 0625 %0311 H15 0375 0875 0750 %0312 H16 0375 0875 0875 %0313 H17 0375 0875 1000 %0314 H18 0375 1000 0000 %0315 I10 0375 1000 0125 %0316 I11 0375 1000 0250 %0317 I12 0375 1000 0375 %0318 I13 0375 1000 0500 %0319 I14 0375 1000 0625 %0320 I15 0375 1000 0750 %0321 I16 0375 1000 0875 %0322 I17 0375 1000 1000 %0323 I18 0500 0000 0000 %0324 J10 0500 0000 0125 %0325 J11 0500 0000 0250 %0326 J12 0500 0000 0375 %0327 J13 0500 0000 0500 %0328 J14 0500 0000 0625 %0329 J15 0500 0000 0750 %0330 J16 0500 0000 0875 %0331 J17 0500 0000 1000 %0332 J18 0500 0125 0000 %0333 K10 0500 0125 0125 %0334 K11 0500 0125 0250 %0335 K12 0500 0125 0375 %0336 K13 0500 0125 0500 %0337 K14 0500 0125 0625 %0338 K15 0500 0125 0750 %0339 K16 0500 0125 0875 %0340 K17 0500 0125 1000 %0341 K18 0500 0250 0000 %0342 L10 0500 0250 0125 %0343 L11 0500 0250 0250 %0344 L12 0500 0250 0375 %0345 L13 0500 0250 0500 %0346 L14 0500 0250 0625 %0347 L15 0500 0250 0750 %0348 L16 0500 0250 0875 %0349 L17 0500 0250 1000 %0350 L18 0500 0375 0000 %0351 M10 0500 0375 0125 %0352 M11 0500 0375 0250 %0353 M12 0500 0375 0375 %0354 M13 0500 0375 0500 %0355 M14 0500 0375 0625 %0356 M15 0500 0375 0750 %0357 M16 0500 0375 0875 %0358 M17 0500 0375 1000 %0359 M18 0500 0500 0000 %0360 N10 0500 0500 0125 %0361 N11 0500 0500 0250 %0362 N12 0500 0500 0375 %0363 N13 0500 0500 0500 %0364 N14 0500 0500 0625 %0365 N15 0500 0500 0750 %0366 N16 0500 0500 0875 %0367 N17 0500 0500 1000 %0368 N18 0500 0625 0000 %0369 O10 0500 0625 0125 %0370 O11 0500 0625 0250 %0371 O12 0500 0625 0375 %0372 O13 0500 0625 0500 %0373 O14 0500 0625 0625 %0374 O15 0500 0625 0750 %0375 O16 0500 0625 0875 %0376 O17 0500 0625 1000 %0377 O18 0500 0750 0000 %0378 P10 0500 0750 0125 %0379 P11 0500 0750 0250 %0380 P12 0500 0750 0375 %0381 P13 0500 0750 0500 %0382 P14 0500 0750 0625 %0383 P15 0500 0750 0750 %0384 P16 0500 0750 0875 %0385 P17 0500 0750 1000 %0386 P18 0500 0875 0000 %0387 Q10 0500 0875 0125 %0388 Q11 0500 0875 0250 %0389 Q12 0500 0875 0375 %0390 Q13 0500 0875 0500 %0391 Q14 0500 0875 0625 %0392 Q15 0500 0875 0750 %0393 Q16 0500 0875 0875 %0394 Q17 0500 0875 1000 %0395 Q18 0500 1000 0000 %0396 R10 0500 1000 0125 %0397 R11 0500 1000 0250 %0398 R12 0500 1000 0375 %0399 R13 0500 1000 0500 %0400 R14 0500 1000 0625 %0401 R15 0500 1000 0750 %0402 R16 0500 1000 0875 %0403 R17 0500 1000 1000 %0404 R18 0625 0000 0000 %0405 S10 0625 0000 0125 %0406 S11 0625 0000 0250 %0407 S12 0625 0000 0375 %0408 S13 0625 0000 0500 %0409 S14 0625 0000 0625 %0410 S15 0625 0000 0750 %0411 S16 0625 0000 0875 %0412 S17 0625 0000 1000 %0413 S18 0625 0125 0000 %0414 T10 0625 0125 0125 %0415 T11 0625 0125 0250 %0416 T12 0625 0125 0375 %0417 T13 0625 0125 0500 %0418 T14 0625 0125 0625 %0419 T15 0625 0125 0750 %0420 T16 0625 0125 0875 %0421 T17 0625 0125 1000 %0422 T18 0625 0250 0000 %0423 U10 0625 0250 0125 %0424 U11 0625 0250 0250 %0425 U12 0625 0250 0375 %0426 U13 0625 0250 0500 %0427 U14 0625 0250 0625 %0428 U15 0625 0250 0750 %0429 U16 0625 0250 0875 %0430 U17 0625 0250 1000 %0431 U18 0625 0375 0000 %0432 V10 0625 0375 0125 %0433 V11 0625 0375 0250 %0434 V12 0625 0375 0375 %0435 V13 0625 0375 0500 %0436 V14 0625 0375 0625 %0437 V15 0625 0375 0750 %0438 V16 0625 0375 0875 %0439 V17 0625 0375 1000 %0440 V18 0625 0500 0000 %0441 W10 0625 0500 0125 %0442 W11 0625 0500 0250 %0443 W12 0625 0500 0375 %0444 W13 0625 0500 0500 %0445 W14 0625 0500 0625 %0446 W15 0625 0500 0750 %0447 W16 0625 0500 0875 %0448 W17 0625 0500 1000 %0449 W18 0625 0625 0000 %0450 X10 0625 0625 0125 %0451 X11 0625 0625 0250 %0452 X12 0625 0625 0375 %0453 X13 0625 0625 0500 %0454 X14 0625 0625 0625 %0455 X15 0625 0625 0750 %0456 X16 0625 0625 0875 %0457 X17 0625 0625 1000 %0458 X18 0625 0750 0000 %0459 Y10 0625 0750 0125 %0460 Y11 0625 0750 0250 %0461 Y12 0625 0750 0375 %0462 Y13 0625 0750 0500 %0463 Y14 0625 0750 0625 %0464 Y15 0625 0750 0750 %0465 Y16 0625 0750 0875 %0466 Y17 0625 0750 1000 %0467 Y18 0625 0875 0000 %0468 Z10 0625 0875 0125 %0469 Z11 0625 0875 0250 %0470 Z12 0625 0875 0375 %0471 Z13 0625 0875 0500 %0472 Z14 0625 0875 0625 %0473 Z15 0625 0875 0750 %0474 Z16 0625 0875 0875 %0475 Z17 0625 0875 1000 %0476 Z18 0625 1000 0000 %0477 a10 0625 1000 0125 %0478 a11 0625 1000 0250 %0479 a12 0625 1000 0375 %0480 a13 0625 1000 0500 %0481 a14 0625 1000 0625 %0482 a15 0625 1000 0750 %0483 a16 0625 1000 0875 %0484 a17 0625 1000 1000 %0485 a18 0750 0000 0000 %0486 A19 0750 0000 0125 %0487 A20 0750 0000 0250 %0488 A21 0750 0000 0375 %0489 A22 0750 0000 0500 %0490 A23 0750 0000 0625 %0491 A24 0750 0000 0750 %0492 A25 0750 0000 0875 %0493 A26 0750 0000 1000 %0494 A27 0750 0125 0000 %0495 B19 0750 0125 0125 %0496 B20 0750 0125 0250 %0497 B21 0750 0125 0375 %0498 B22 0750 0125 0500 %0499 B23 0750 0125 0625 %0500 B24 0750 0125 0750 %0501 B25 0750 0125 0875 %0502 B26 0750 0125 1000 %0503 B27 0750 0250 0000 %0504 C19 0750 0250 0125 %0505 C20 0750 0250 0250 %0506 C21 0750 0250 0375 %0507 C22 0750 0250 0500 %0508 C23 0750 0250 0625 %0509 C24 0750 0250 0750 %0510 C25 0750 0250 0875 %0511 C26 0750 0250 1000 %0512 C27 0750 0375 0000 %0513 D19 0750 0375 0125 %0514 D20 0750 0375 0250 %0515 D21 0750 0375 0375 %0516 D22 0750 0375 0500 %0517 D23 0750 0375 0625 %0518 D24 0750 0375 0750 %0519 D25 0750 0375 0875 %0520 D26 0750 0375 1000 %0521 D27 0750 0500 0000 %0522 E19 0750 0500 0125 %0523 E20 0750 0500 0250 %0524 E21 0750 0500 0375 %0525 E22 0750 0500 0500 %0526 E23 0750 0500 0625 %0527 E24 0750 0500 0750 %0528 E25 0750 0500 0875 %0529 E26 0750 0500 1000 %0530 E27 0750 0625 0000 %0531 F19 0750 0625 0125 %0532 F20 0750 0625 0250 %0533 F21 0750 0625 0375 %0534 F22 0750 0625 0500 %0535 F23 0750 0625 0625 %0536 F24 0750 0625 0750 %0537 F25 0750 0625 0875 %0538 F26 0750 0625 1000 %0539 F27 0750 0750 0000 %0540 G19 0750 0750 0125 %0541 G20 0750 0750 0250 %0542 G21 0750 0750 0375 %0543 G22 0750 0750 0500 %0544 G23 0750 0750 0625 %0545 G24 0750 0750 0750 %0546 G25 0750 0750 0875 %0547 G26 0750 0750 1000 %0548 G27 0750 0875 0000 %0549 H19 0750 0875 0125 %0550 H20 0750 0875 0250 %0551 H21 0750 0875 0375 %0552 H22 0750 0875 0500 %0553 H23 0750 0875 0625 %0554 H24 0750 0875 0750 %0555 H25 0750 0875 0875 %0556 H26 0750 0875 1000 %0557 H27 0750 1000 0000 %0558 I19 0750 1000 0125 %0559 I20 0750 1000 0250 %0560 I21 0750 1000 0375 %0561 I22 0750 1000 0500 %0562 I23 0750 1000 0625 %0563 I24 0750 1000 0750 %0564 I25 0750 1000 0875 %0565 I26 0750 1000 1000 %0566 I27 0875 0000 0000 %0567 J19 0875 0000 0125 %0568 J20 0875 0000 0250 %0569 J21 0875 0000 0375 %0570 J22 0875 0000 0500 %0571 J23 0875 0000 0625 %0572 J24 0875 0000 0750 %0573 J25 0875 0000 0875 %0574 J26 0875 0000 1000 %0575 J27 0875 0125 0000 %0576 K19 0875 0125 0125 %0577 K20 0875 0125 0250 %0578 K21 0875 0125 0375 %0579 K22 0875 0125 0500 %0580 K23 0875 0125 0625 %0581 K24 0875 0125 0750 %0582 K25 0875 0125 0875 %0583 K26 0875 0125 1000 %0584 K27 0875 0250 0000 %0585 L19 0875 0250 0125 %0586 L20 0875 0250 0250 %0587 L21 0875 0250 0375 %0588 L22 0875 0250 0500 %0589 L23 0875 0250 0625 %0590 L24 0875 0250 0750 %0591 L25 0875 0250 0875 %0592 L26 0875 0250 1000 %0593 L27 0875 0375 0000 %0594 M19 0875 0375 0125 %0595 M20 0875 0375 0250 %0596 M21 0875 0375 0375 %0597 M22 0875 0375 0500 %0598 M23 0875 0375 0625 %0599 M24 0875 0375 0750 %0600 M25 0875 0375 0875 %0601 M26 0875 0375 1000 %0602 M27 0875 0500 0000 %0603 N19 0875 0500 0125 %0604 N20 0875 0500 0250 %0605 N21 0875 0500 0375 %0606 N22 0875 0500 0500 %0607 N23 0875 0500 0625 %0608 N24 0875 0500 0750 %0609 N25 0875 0500 0875 %0610 N26 0875 0500 1000 %0611 N27 0875 0625 0000 %0612 O19 0875 0625 0125 %0613 O20 0875 0625 0250 %0614 O21 0875 0625 0375 %0615 O22 0875 0625 0500 %0616 O23 0875 0625 0625 %0617 O24 0875 0625 0750 %0618 O25 0875 0625 0875 %0619 O26 0875 0625 1000 %0620 O27 0875 0750 0000 %0621 P19 0875 0750 0125 %0622 P20 0875 0750 0250 %0623 P21 0875 0750 0375 %0624 P22 0875 0750 0500 %0625 P23 0875 0750 0625 %0626 P24 0875 0750 0750 %0627 P25 0875 0750 0875 %0628 P26 0875 0750 1000 %0629 P27 0875 0875 0000 %0630 Q19 0875 0875 0125 %0631 Q20 0875 0875 0250 %0632 Q21 0875 0875 0375 %0633 Q22 0875 0875 0500 %0634 Q23 0875 0875 0625 %0635 Q24 0875 0875 0750 %0636 Q25 0875 0875 0875 %0637 Q26 0875 0875 1000 %0638 Q27 0875 1000 0000 %0639 R19 0875 1000 0125 %0640 R20 0875 1000 0250 %0641 R21 0875 1000 0375 %0642 R22 0875 1000 0500 %0643 R23 0875 1000 0625 %0644 R24 0875 1000 0750 %0645 R25 0875 1000 0875 %0646 R26 0875 1000 1000 %0647 R27 1000 0000 0000 %0648 S19 1000 0000 0125 %0649 S20 1000 0000 0250 %0650 S21 1000 0000 0375 %0651 S22 1000 0000 0500 %0652 S23 1000 0000 0625 %0653 S24 1000 0000 0750 %0654 S25 1000 0000 0875 %0655 S26 1000 0000 1000 %0656 S27 1000 0125 0000 %0657 T19 1000 0125 0125 %0658 T20 1000 0125 0250 %0659 T21 1000 0125 0375 %0660 T22 1000 0125 0500 %0661 T23 1000 0125 0625 %0662 T24 1000 0125 0750 %0663 T25 1000 0125 0875 %0664 T26 1000 0125 1000 %0665 T27 1000 0250 0000 %0666 U19 1000 0250 0125 %0667 U20 1000 0250 0250 %0668 U21 1000 0250 0375 %0669 U22 1000 0250 0500 %0670 U23 1000 0250 0625 %0671 U24 1000 0250 0750 %0672 U25 1000 0250 0875 %0673 U26 1000 0250 1000 %0674 U27 1000 0375 0000 %0675 V19 1000 0375 0125 %0676 V20 1000 0375 0250 %0677 V21 1000 0375 0375 %0678 V22 1000 0375 0500 %0679 V23 1000 0375 0625 %0680 V24 1000 0375 0750 %0681 V25 1000 0375 0875 %0682 V26 1000 0375 1000 %0683 V27 1000 0500 0000 %0684 W19 1000 0500 0125 %0685 W20 1000 0500 0250 %0686 W21 1000 0500 0375 %0687 W22 1000 0500 0500 %0688 W23 1000 0500 0625 %0689 W24 1000 0500 0750 %0690 W25 1000 0500 0875 %0691 W26 1000 0500 1000 %0692 W27 1000 0625 0000 %0693 X19 1000 0625 0125 %0694 X20 1000 0625 0250 %0695 X21 1000 0625 0375 %0696 X22 1000 0625 0500 %0697 X23 1000 0625 0625 %0698 X24 1000 0625 0750 %0699 X25 1000 0625 0875 %0700 X26 1000 0625 1000 %0701 X27 1000 0750 0000 %0702 Y19 1000 0750 0125 %0703 Y20 1000 0750 0250 %0704 Y21 1000 0750 0375 %0705 Y22 1000 0750 0500 %0706 Y23 1000 0750 0625 %0707 Y24 1000 0750 0750 %0708 Y25 1000 0750 0875 %0709 Y26 1000 0750 1000 %0710 Y27 1000 0875 0000 %0711 Z19 1000 0875 0125 %0712 Z20 1000 0875 0250 %0713 Z21 1000 0875 0375 %0714 Z22 1000 0875 0500 %0715 Z23 1000 0875 0625 %0716 Z24 1000 0875 0750 %0717 Z25 1000 0875 0875 %0718 Z26 1000 0875 1000 %0719 Z27 1000 1000 0000 %0720 a19 1000 1000 0125 %0721 a20 1000 1000 0250 %0722 a21 1000 1000 0375 %0723 a22 1000 1000 0500 %0724 a23 1000 1000 0625 %0725 a24 1000 1000 0750 %0726 a25 1000 1000 0875 %0727 a26 1000 1000 1000 %0728 a27 1000 1000 1000 %0729 b01 0875 1000 1000 %0730 b02 0750 1000 1000 %0731 b03 0625 1000 1000 %0732 b04 0500 1000 1000 %0733 b05 0375 1000 1000 %0734 b06 0250 1000 1000 %0735 b07 0125 1000 1000 %0736 b08 0000 1000 1000 %0737 b09 1000 0875 0875 %0738 c01 0875 0875 0875 %0739 c02 0750 0875 0875 %0740 c03 0625 0875 0875 %0741 c04 0500 0875 0875 %0742 c05 0375 0875 0875 %0743 c06 0250 0875 0875 %0744 c07 0125 0875 0875 %0745 c08 0000 0875 0875 %0746 c09 1000 0750 0750 %0747 d01 0875 0750 0750 %0748 d02 0750 0750 0750 %0749 d03 0625 0750 0750 %0750 d04 0500 0750 0750 %0751 d05 0375 0750 0750 %0752 d06 0250 0750 0750 %0753 d07 0125 0750 0750 %0754 d08 0000 0750 0750 %0755 d09 1000 0625 0625 %0756 e01 0875 0625 0625 %0757 e02 0750 0625 0625 %0758 e03 0625 0625 0625 %0759 e04 0500 0625 0625 %0760 e05 0375 0625 0625 %0761 e06 0250 0625 0625 %0762 e07 0125 0625 0625 %0763 e08 0000 0625 0625 %0764 e09 1000 0500 0500 %0765 f01 0875 0500 0500 %0766 f02 0750 0500 0500 %0767 f03 0625 0500 0500 %0768 f04 0500 0500 0500 %0769 f05 0375 0500 0500 %0770 f06 0250 0500 0500 %0771 f07 0125 0500 0500 %0772 f08 0000 0500 0500 %0773 f09 1000 0375 0375 %0774 g01 0875 0375 0375 %0775 g02 0750 0375 0375 %0776 g03 0625 0375 0375 %0777 g04 0500 0375 0375 %0778 g05 0375 0375 0375 %0779 g06 0250 0375 0375 %0780 g07 0125 0375 0375 %0781 g08 0000 0375 0375 %0782 g09 1000 0250 0250 %0783 h01 0875 0250 0250 %0784 h02 0750 0250 0250 %0785 h03 0625 0250 0250 %0786 h04 0500 0250 0250 %0787 h05 0375 0250 0250 %0788 h06 0250 0250 0250 %0789 h07 0125 0250 0250 %0790 h08 0000 0250 0250 %0791 h09 1000 0125 0125 %0792 i01 0875 0125 0125 %0793 i02 0750 0125 0125 %0794 i03 0625 0125 0125 %0795 i04 0500 0125 0125 %0796 i05 0375 0125 0125 %0797 i06 0250 0125 0125 %0798 i07 0125 0125 0125 %0799 i08 0000 0125 0125 %0800 i09 1000 0000 0000 %0801 j01 0875 0000 0000 %0802 j02 0750 0000 0000 %0803 j03 0625 0000 0000 %0804 j04 0500 0000 0000 %0805 j05 0375 0000 0000 %0806 j06 0250 0000 0000 %0807 j07 0125 0000 0000 %0808 j08 0000 0000 0000 %0809 j09 1000 1000 1000 %0810 b10 0875 0875 1000 %0811 b11 0750 0750 1000 %0812 b12 0625 0625 1000 %0813 b13 0500 0500 1000 %0814 b14 0375 0375 1000 %0815 b15 0250 0250 1000 %0816 b16 0125 0125 1000 %0817 b17 0000 0000 1000 %0818 b18 1000 1000 0875 %0819 c10 0875 0875 0875 %0820 c11 0750 0750 0875 %0821 c12 0625 0625 0875 %0822 c13 0500 0500 0875 %0823 c14 0375 0375 0875 %0824 c15 0250 0250 0875 %0825 c16 0125 0125 0875 %0826 c17 0000 0000 0875 %0827 c18 1000 1000 0750 %0828 d10 0875 0875 0750 %0829 d11 0750 0750 0750 %0830 d12 0625 0625 0750 %0831 d13 0500 0500 0750 %0832 d14 0375 0375 0750 %0833 d15 0250 0250 0750 %0834 d16 0125 0125 0750 %0835 d17 0000 0000 0750 %0836 d18 1000 1000 0625 %0837 e10 0875 0875 0625 %0838 e11 0750 0750 0625 %0839 e12 0625 0625 0625 %0840 e13 0500 0500 0625 %0841 e14 0375 0375 0625 %0842 e15 0250 0250 0625 %0843 e16 0125 0125 0625 %0844 e17 0000 0000 0625 %0845 e18 1000 1000 0500 %0846 f10 0875 0875 0500 %0847 f11 0750 0750 0500 %0848 f12 0625 0625 0500 %0849 f13 0500 0500 0500 %0850 f14 0375 0375 0500 %0851 f15 0250 0250 0500 %0852 f16 0125 0125 0500 %0853 f17 0000 0000 0500 %0854 f18 1000 1000 0375 %0855 g10 0875 0875 0375 %0856 g11 0750 0750 0375 %0857 g12 0625 0625 0375 %0858 g13 0500 0500 0375 %0859 g14 0375 0375 0375 %0860 g15 0250 0250 0375 %0861 g16 0125 0125 0375 %0862 g17 0000 0000 0375 %0863 g18 1000 1000 0250 %0864 h10 0875 0875 0250 %0865 h11 0750 0750 0250 %0866 h12 0625 0625 0250 %0867 h13 0500 0500 0250 %0868 h14 0375 0375 0250 %0869 h15 0250 0250 0250 %0870 h16 0125 0125 0250 %0871 h17 0000 0000 0250 %0872 h18 1000 1000 0125 %0873 i10 0875 0875 0125 %0874 i11 0750 0750 0125 %0875 i12 0625 0625 0125 %0876 i13 0500 0500 0125 %0877 i14 0375 0375 0125 %0878 i15 0250 0250 0125 %0879 i16 0125 0125 0125 %0880 i17 0000 0000 0125 %0881 i18 1000 1000 0000 %0882 j10 0875 0875 0000 %0883 j11 0750 0750 0000 %0884 j12 0625 0625 0000 %0885 j13 0500 0500 0000 %0886 j14 0375 0375 0000 %0887 j15 0250 0250 0000 %0888 j16 0125 0125 0000 %0889 j17 0000 0000 0000 %0890 j18 1000 1000 1000 %0891 b19 1000 0875 1000 %0892 b20 1000 0750 1000 %0893 b21 1000 0625 1000 %0894 b22 1000 0500 1000 %0895 b23 1000 0375 1000 %0896 b24 1000 0250 1000 %0897 b25 1000 0125 1000 %0898 b26 1000 0000 1000 %0899 b27 0875 1000 0875 %0900 c19 0875 0875 0875 %0901 c20 0875 0750 0875 %0902 c21 0875 0625 0875 %0903 c22 0875 0500 0875 %0904 c23 0875 0375 0875 %0905 c24 0875 0250 0875 %0906 c25 0875 0125 0875 %0907 c26 0875 0000 0875 %0908 c27 0750 1000 0750 %0909 d19 0750 0875 0750 %0910 d20 0750 0750 0750 %0911 d21 0750 0625 0750 %0912 d22 0750 0500 0750 %0913 d23 0750 0375 0750 %0914 d24 0750 0250 0750 %0915 d25 0750 0125 0750 %0916 d26 0750 0000 0750 %0917 d27 0625 1000 0625 %0918 e19 0625 0875 0625 %0919 e20 0625 0750 0625 %0920 e21 0625 0625 0625 %0921 e22 0625 0500 0625 %0922 e23 0625 0375 0625 %0923 e24 0625 0250 0625 %0924 e25 0625 0125 0625 %0925 e26 0625 0000 0625 %0926 e27 0500 1000 0500 %0927 f19 0500 0875 0500 %0928 f20 0500 0750 0500 %0929 f21 0500 0625 0500 %0930 f22 0500 0500 0500 %0931 f23 0500 0375 0500 %0932 f24 0500 0250 0500 %0933 f25 0500 0125 0500 %0934 f26 0500 0000 0500 %0935 f27 0375 1000 0375 %0936 g19 0375 0875 0375 %0937 g20 0375 0750 0375 %0938 g21 0375 0625 0375 %0939 g22 0375 0500 0375 %0940 g23 0375 0375 0375 %0941 g24 0375 0250 0375 %0942 g25 0375 0125 0375 %0943 g26 0375 0000 0375 %0944 g27 0250 1000 0250 %0945 h19 0250 0875 0250 %0946 h20 0250 0750 0250 %0947 h21 0250 0625 0250 %0948 h22 0250 0500 0250 %0949 h23 0250 0375 0250 %0950 h24 0250 0250 0250 %0951 h25 0250 0125 0250 %0952 h26 0250 0000 0250 %0953 h27 0125 1000 0125 %0954 i19 0125 0875 0125 %0955 i20 0125 0750 0125 %0956 i21 0125 0625 0125 %0957 i22 0125 0500 0125 %0958 i23 0125 0375 0125 %0959 i24 0125 0250 0125 %0960 i25 0125 0125 0125 %0961 i26 0125 0000 0125 %0962 i27 0000 1000 0000 %0963 j19 0000 0875 0000 %0964 j20 0000 0750 0000 %0965 j21 0000 0625 0000 %0966 j22 0000 0500 0000 %0967 j23 0000 0375 0000 %0968 j24 0000 0250 0000 %0969 j25 0000 0125 0000 %0970 j26 0000 0000 0000 %0971 j27 0000 0000 0000 %0972 k01 0125 0125 0125 %0973 k02 0250 0250 0250 %0974 k03 0375 0375 0375 %0975 k04 0500 0500 0500 %0976 k05 0625 0625 0625 %0977 k06 0750 0750 0750 %0978 k07 0875 0875 0875 %0979 k08 1000 1000 1000 %0980 k09 0000 0000 0000 %0981 l01 0125 0125 0125 %0982 l02 0250 0250 0250 %0983 l03 0375 0375 0375 %0984 l04 0500 0500 0500 %0985 l05 0625 0625 0625 %0986 l06 0750 0750 0750 %0987 l07 0875 0875 0875 %0988 l08 1000 1000 1000 %0989 l09 0000 0000 0000 %0990 m01 0125 0125 0125 %0991 m02 0250 0250 0250 %0992 m03 0375 0375 0375 %0993 m04 0500 0500 0500 %0994 m05 0625 0625 0625 %0995 m06 0750 0750 0750 %0996 m07 0875 0875 0875 %0997 m08 1000 1000 1000 %0998 m09 0000 0000 0000 %0999 n01 0125 0125 0125 %1000 n02 0250 0250 0250 %1001 n03 0375 0375 0375 %1002 n04 0500 0500 0500 %1003 n05 0625 0625 0625 %1004 n06 0750 0750 0750 %1005 n07 0875 0875 0875 %1006 n08 1000 1000 1000 %1007 n09 0000 0000 0000 %1008 k10 0066 0066 0066 %1009 k11 0133 0133 0133 %1010 k12 0200 0200 0200 %1011 k13 0266 0266 0266 %1012 k14 0333 0333 0333 %1013 k15 0400 0400 0400 %1014 k16 0466 0466 0466 %1015 k17 0533 0533 0533 %1016 k18 0600 0600 0600 %1017 k19 0666 0666 0666 %1018 k20 0734 0734 0734 %1019 k21 0800 0800 0800 %1020 k22 0866 0866 0866 %1021 k23 0933 0933 0933 %1022 k24 1000 1000 1000 %1023 k25 0000 0000 0000 %1024 l10 0066 0066 0066 %1025 l11 0133 0133 0133 %1026 l12 0200 0200 0200 %1027 l13 0266 0266 0266 %1028 l14 0333 0333 0333 %1029 l15 0400 0400 0400 %1030 l16 0466 0466 0466 %1031 l17 0533 0533 0533 %1032 l18 0600 0600 0600 %1033 l19 0666 0666 0666 %1034 l20 0734 0734 0734 %1035 l21 0800 0800 0800 %1036 l22 0866 0866 0866 %1037 l23 0933 0933 0933 %1038 l24 1000 1000 1000 %1039 l25 0000 0000 0000 %1040 m10 0066 0066 0066 %1041 m11 0133 0133 0133 %1042 m12 0200 0200 0200 %1043 m13 0266 0266 0266 %1044 m14 0333 0333 0333 %1045 m15 0400 0400 0400 %1046 m16 0466 0466 0466 %1047 m17 0533 0533 0533 %1048 m18 0600 0600 0600 %1049 m19 0666 0666 0666 %1050 m20 0734 0734 0734 %1051 m21 0800 0800 0800 %1052 m22 0866 0866 0866 %1053 m23 0933 0933 0933 %1054 m24 1000 1000 1000 %1055 m25 0000 0000 0000 %1056 n10 0066 0066 0066 %1057 n11 0133 0133 0133 %1058 n12 0200 0200 0200 %1059 n13 0266 0266 0266 %1060 n14 0333 0333 0333 %1061 n15 0400 0400 0400 %1062 n16 0466 0466 0466 %1063 n17 0533 0533 0533 %1064 n18 0600 0600 0600 %1065 n19 0666 0666 0666 %1066 n20 0734 0734 0734 %1067 n21 0800 0800 0800 %1068 n22 0866 0866 0866 %1069 n23 0933 0933 0933 %1070 n24 1000 1000 1000 %1071 n25 0000 0000 0000 %1072 k26 1000 1000 1000 %1073 k27 1000 0000 0000 %1074 l26 0000 1000 1000 %1075 l27 1000 1000 0000 %1076 m26 0000 0000 1000 %1077 m27 0000 1000 0000 %1078 n26 1000 0000 1000 %1079 n27 0000 1000 0000 %1078 nx6 1000 0000 1000 %1079 nx7 ] def %END RGB0_F %**************************************************** %END 'SS13'OUTLIN1X.PS Other procedures for Offset output linearization %**************************************************** %BEG_OUTLIN1Y_PK8300********************************************************** %BEG 'QK0X'OUTLIN1Y2_PK8300.PS %BEG spectral reflection data, cmyn6*, 1080 colours, offset A,B,L,G, printer P %***************************************************************************** %reflection 380 to 720 nm extrapolated to 770 /RX0F 45360 array def %1080x42=45360 %cmyn6* /ypaper 0 def ypaper 0 eq {%ypaper=0 /FILEDATA_RX0F_IOF (PE4300A_120830.TXT, 1080 colors, Separation cmyn6*) def /RX0F [ %PE4300A_120830_01.txt 1 1 0199 0212 0216 0227 0233 0235 0238 0242 0249 0251 0255 0258 0260 0263 0262 0261 0260 0258 0258 0259 0261 0264 0269 0275 0283 0290 0301 0311 0323 0335 0346 0361 0375 0390 0407 0418 2 2 0293 0331 0365 0385 0401 0412 0435 0439 0436 0423 0406 0390 0373 0353 0329 0307 0288 0267 0248 0246 0265 0313 0357 0371 0375 0376 0378 0388 0400 0411 0416 0417 0416 0418 0431 0460 3 3 0396 0471 0544 0602 0631 0668 0717 0734 0713 0663 0610 0559 0509 0453 0395 0349 0314 0275 0240 0234 0264 0351 0447 0484 0493 0494 0497 0508 0531 0547 0545 0537 0520 0509 0523 0570 4 4 0414 0529 0653 0749 0795 0861 0946 0978 0934 0848 0755 0670 0587 0498 0409 0344 0298 0247 0205 0198 0234 0339 0461 0509 0521 0522 0524 0540 0573 0596 0592 0573 0544 0524 0542 0602 5 5 0434 0574 0746 0882 0950 1049 1170 1215 1149 1029 0895 0774 0658 0534 0415 0332 0276 0217 0168 0164 0202 0312 0443 0497 0510 0511 0512 0533 0573 0601 0594 0571 0533 0503 0524 0601 6 6 0434 0650 0877 1063 1155 1289 1451 1512 1425 1264 1086 0923 0771 0610 0456 0353 0287 0216 0159 0153 0193 0306 0440 0490 0500 0502 0504 0531 0582 0619 0610 0579 0527 0489 0510 0603 7 7 0448 0723 1014 1245 1362 1532 1737 1819 1710 1503 1281 1077 0887 0688 0501 0377 0299 0217 0154 0147 0188 0301 0433 0478 0487 0488 0491 0524 0586 0631 0619 0581 0519 0473 0496 0605 8 8 0467 0792 1148 1436 1581 1792 2048 2148 2014 1760 1484 1236 1003 0762 0540 0396 0309 0218 0147 0139 0180 0288 0405 0433 0432 0432 0436 0473 0547 0600 0587 0541 0467 0414 0440 0565 9 9 0460 0826 1241 1569 1734 1979 2275 2395 2243 1956 1643 1361 1100 0829 0580 0419 0322 0223 0147 0138 0177 0277 0368 0376 0367 0363 0365 0404 0481 0535 0520 0474 0399 0344 0371 0500 10 10 0496 0445 0380 0337 0319 0306 0307 0313 0316 0301 0296 0348 0449 0511 0494 0464 0450 0433 0407 0403 0474 0847 1472 1896 2081 2155 2190 2215 2234 2248 2261 2274 2291 2310 2328 2341 11 11 0655 0619 0560 0525 0511 0512 0520 0515 0506 0467 0438 0453 0503 0520 0488 0458 0446 0428 0405 0404 0479 0847 1468 1894 2081 2155 2191 2217 2237 2250 2263 2275 2292 2310 2324 2342 12 12 0892 0842 0793 0779 0774 0790 0808 0804 0764 0694 0626 0589 0569 0535 0485 0454 0444 0429 0407 0412 0493 0863 1492 1928 2123 2202 2240 2264 2285 2298 2312 2323 2338 2358 2372 2385 13 13 1032 0985 0955 0952 0964 0997 1027 1018 0954 0858 0762 0678 0603 0532 0471 0441 0432 0416 0398 0409 0493 0857 1480 1914 2110 2189 2227 2252 2272 2285 2298 2310 2325 2345 2359 2374 14 14 1099 1084 1069 1087 1116 1173 1229 1223 1130 0991 0851 0731 0623 0518 0430 0383 0366 0339 0309 0314 0405 0830 1594 2135 2380 2479 2527 2568 2608 2632 2639 2637 2627 2622 2637 2688 15 15 1188 1212 1233 1290 1334 1420 1517 1515 1394 1207 1017 0852 0705 0562 0439 0373 0344 0304 0263 0265 0358 0831 1698 2317 2598 2712 2764 2817 2881 2917 2918 2897 2857 2823 2844 2928 16 16 1192 1284 1369 1463 1537 1658 1791 1805 1660 1426 1190 0983 0799 0618 0461 0373 0333 0281 0228 0228 0320 0792 1665 2282 2562 2673 2728 2794 2883 2933 2924 2886 2816 2754 2776 2899 17 17 1229 1375 1520 1661 1758 1917 2096 2127 1949 1664 1372 1119 0893 0671 0477 0370 0319 0255 0195 0194 0283 0763 1651 2269 2546 2656 2712 2795 2909 2977 2964 2906 2801 2713 2739 2907 18 18 1213 1402 1608 1789 1908 2093 2314 2356 2158 1840 1512 1227 0972 0722 0505 0382 0322 0250 0185 0182 0268 0728 1593 2196 2469 2578 2634 2721 2849 2925 2903 2835 2716 2610 2639 2826 19 19 0822 0680 0536 0442 0380 0358 0351 0355 0365 0341 0326 0400 0544 0599 0526 0460 0437 0402 0347 0324 0453 1350 3113 4497 5172 5442 5556 5614 5653 5668 5678 5683 5703 5718 5723 5746 20 20 0987 0826 0687 0588 0532 0523 0514 0515 0512 0465 0426 0474 0589 0617 0535 0468 0445 0409 0354 0332 0466 1366 3133 4521 5205 5479 5593 5653 5692 5708 5715 5722 5737 5755 5759 5782 21 21 1159 1015 0870 0784 0737 0730 0739 0735 0709 0629 0557 0567 0632 0622 0525 0457 0436 0399 0345 0326 0464 1364 3133 4534 5224 5503 5621 5681 5719 5736 5748 5753 5769 5786 5792 5813 22 22 1391 1252 1121 1046 1020 1036 1061 1052 0989 0862 0743 0694 0689 0626 0514 0444 0423 0389 0337 0323 0464 1357 3126 4536 5240 5525 5646 5709 5749 5764 5777 5784 5798 5814 5818 5839 23 23 1591 1467 1331 1278 1272 1309 1357 1336 1238 1064 0897 0790 0715 0608 0485 0418 0399 0367 0318 0311 0451 1318 3062 4477 5190 5485 5609 5673 5715 5729 5744 5748 5763 5780 5788 5808 24 24 1765 1639 1526 1487 1506 1562 1628 1606 1469 1258 1050 0888 0755 0610 0478 0410 0393 0359 0312 0309 0450 1314 3060 4483 5206 5507 5635 5701 5744 5757 5770 5778 5794 5811 5815 5836 25 25 1914 1793 1677 1668 1703 1782 1865 1840 1670 1420 1177 0967 0785 0613 0472 0405 0388 0356 0310 0309 0454 1318 3062 4485 5210 5513 5640 5707 5748 5761 5777 5784 5800 5817 5820 5838 26 26 2069 1969 1867 1881 1936 2045 2166 2136 1928 1623 1318 1063 0840 0629 0457 0375 0353 0311 0258 0258 0409 1363 3330 4940 5762 6105 6252 6348 6426 6462 6465 6451 6425 6402 6411 6490 27 27 2081 2012 1964 2003 2071 2206 2353 2335 2104 1761 1422 1135 0885 0649 0457 0363 0334 0287 0230 0230 0377 1331 3323 4952 5781 6125 6275 6385 6487 6538 6532 6494 6427 6364 6380 6498 28 1 0280 0322 0341 0344 0344 0347 0355 0366 0379 0384 0398 0442 0516 0569 0573 0548 0514 0473 0431 0401 0383 0376 0370 0367 0369 0372 0377 0387 0401 0413 0418 0420 0419 0423 0439 0462 29 2 0373 0451 0500 0532 0550 0564 0584 0603 0611 0615 0616 0616 0613 0603 0584 0555 0517 0478 0434 0405 0387 0378 0373 0370 0373 0377 0382 0392 0407 0418 0423 0425 0423 0425 0441 0468 30 3 0509 0655 0770 0862 0898 0947 1007 1044 1045 1021 0993 0962 0925 0871 0803 0726 0651 0567 0483 0433 0427 0461 0493 0500 0502 0503 0507 0520 0542 0560 0559 0550 0533 0524 0537 0583 31 4 0534 0705 0879 1020 1083 1163 1265 1318 1299 1238 1165 1093 1015 0917 0805 0697 0601 0495 0394 0342 0349 0424 0503 0530 0536 0537 0541 0559 0592 0616 0610 0594 0564 0544 0561 0620 32 5 0515 0723 0945 1121 1197 1316 1453 1520 1480 1379 1264 1150 1036 0900 0753 0627 0525 0414 0312 0267 0286 0380 0482 0518 0524 0527 0530 0552 0594 0625 0618 0593 0552 0522 0543 0617 33 6 0518 0790 1083 1315 1427 1575 1767 1856 1793 1652 1488 1333 1177 0999 0810 0656 0537 0408 0292 0243 0263 0362 0471 0504 0510 0512 0515 0544 0597 0636 0624 0593 0542 0502 0525 0619 34 7 0511 0827 1171 1441 1578 1762 1992 2095 2006 1816 1602 1404 1208 0991 0772 0606 0486 0357 0244 0203 0229 0335 0452 0486 0491 0492 0497 0531 0597 0641 0629 0591 0526 0478 0503 0615 35 8 0533 0898 1321 1652 1811 2044 2331 2456 2339 2098 1829 1579 1337 1072 0811 0621 0488 0346 0225 0184 0212 0316 0419 0437 0436 0435 0440 0481 0559 0614 0600 0553 0478 0420 0445 0574 36 9 0511 0910 1381 1756 1940 2205 2532 2677 2542 2266 1956 1672 1399 1102 0814 0610 0471 0324 0203 0165 0194 0289 0368 0370 0359 0356 0358 0400 0480 0536 0522 0474 0396 0339 0369 0498 37 10 0639 0584 0515 0458 0420 0405 0399 0405 0421 0414 0422 0517 0727 0916 0968 0960 0954 0934 0900 0882 0951 1273 1725 2007 2129 2176 2204 2225 2244 2255 2268 2281 2296 2315 2328 2344 38 11 0852 0811 0750 0709 0679 0668 0668 0674 0678 0654 0639 0695 0830 0939 0951 0931 0922 0902 0868 0854 0926 1258 1734 2034 2167 2221 2248 2271 2288 2300 2314 2325 2342 2363 2375 2390 39 12 1136 1119 1076 1055 1047 1056 1066 1065 1047 0999 0954 0952 0985 1002 0973 0945 0933 0912 0878 0869 0946 1271 1741 2040 2170 2222 2251 2274 2291 2303 2315 2326 2343 2361 2373 2393 40 13 1361 1372 1347 1366 1381 1408 1434 1430 1385 1312 1236 1169 1104 1038 0978 0943 0929 0907 0876 0871 0949 1270 1739 2039 2170 2223 2252 2273 2290 2302 2314 2326 2342 2360 2370 2385 41 14 1398 1443 1454 1498 1534 1589 1656 1657 1586 1466 1343 1231 1127 1018 0917 0850 0816 0767 0705 0685 0771 1180 1814 2229 2413 2485 2523 2561 2601 2623 2629 2627 2614 2606 2621 2673 42 15 1471 1528 1600 1687 1748 1837 1942 1959 1861 1695 1522 1368 1222 1071 0929 0833 0778 0707 0623 0590 0677 1123 1852 2338 2553 2640 2684 2735 2795 2831 2829 2807 2766 2730 2746 2832 43 16 1403 1552 1681 1814 1902 2027 2178 2214 2090 1877 1653 1453 1267 1071 0888 0767 0696 0606 0509 0473 0557 1016 1780 2287 2512 2601 2648 2711 2798 2848 2839 2800 2728 2664 2688 2808 44 17 1455 1642 1845 2030 2138 2308 2510 2557 2402 2134 1850 1599 1364 1121 0897 0749 0664 0558 0447 0406 0494 0984 1813 2360 2603 2700 2753 2833 2946 3012 2995 2938 2836 2745 2771 2936 45 18 1405 1643 1904 2125 2260 2460 2698 2763 2588 2284 1961 1678 1412 1138 0885 0721 0626 0511 0394 0352 0436 0906 1696 2213 2441 2533 2583 2670 2794 2871 2850 2779 2660 2555 2582 2770 46 19 0919 0761 0612 0488 0417 0390 0375 0382 0403 0385 0380 0494 0747 0931 0920 0870 0851 0811 0739 0698 0846 1754 3382 4603 5187 5416 5516 5569 5604 5617 5626 5632 5649 5663 5675 5698 47 20 1131 0970 0821 0716 0648 0619 0612 0614 0624 0584 0556 0646 0864 1011 0985 0931 0911 0870 0796 0755 0907 1818 3432 4639 5217 5446 5545 5598 5633 5645 5656 5661 5678 5693 5702 5718 48 21 1338 1215 1061 0963 0906 0888 0892 0889 0877 0807 0748 0799 0956 1047 0997 0936 0916 0874 0800 0762 0917 1825 3441 4658 5242 5477 5579 5632 5667 5679 5690 5693 5706 5722 5727 5751 49 22 1624 1497 1361 1281 1243 1248 1262 1258 1216 1109 1009 1003 1081 1099 1019 0952 0931 0888 0815 0782 0939 1840 3447 4664 5256 5497 5601 5656 5691 5703 5716 5722 5736 5750 5755 5775 50 23 1904 1803 1690 1637 1620 1655 1691 1679 1600 1445 1295 1216 1191 1128 1016 0943 0922 0879 0810 0782 0940 1825 3429 4661 5267 5514 5621 5678 5713 5727 5738 5742 5758 5775 5778 5797 51 24 2133 2041 1937 1917 1926 1981 2039 2025 1911 1719 1526 1387 1282 1156 1022 0944 0921 0878 0808 0783 0943 1827 3424 4654 5260 5508 5613 5669 5707 5721 5731 5741 5756 5772 5774 5796 52 25 2314 2238 2153 2157 2198 2276 2363 2343 2190 1960 1730 1529 1349 1172 1020 0940 0915 0872 0804 0782 0945 1828 3428 4657 5264 5514 5622 5681 5717 5727 5741 5748 5764 5777 5781 5803 53 26 2440 2400 2352 2378 2436 2550 2672 2653 2464 2177 1885 1632 1407 1185 0994 0889 0855 0794 0707 0677 0849 1839 3687 5126 5842 6138 6267 6353 6428 6460 6465 6448 6425 6403 6413 6483 54 27 2404 2423 2407 2470 2550 2688 2842 2834 2619 2292 1961 1674 1417 1165 0943 0824 0778 0706 0610 0576 0744 1748 3645 5124 5864 6167 6301 6402 6502 6550 6542 6504 6437 6376 6392 6503 55 1 0355 0429 0472 0477 0464 0461 0470 0491 0525 0537 0562 0682 0929 1146 1188 1117 1006 0875 0743 0648 0595 0568 0547 0534 0531 0531 0536 0553 0579 0598 0599 0588 0571 0558 0576 0625 56 2 0540 0645 0765 0833 0844 0872 0914 0952 0987 0996 1008 1072 1188 1264 1239 1145 1026 0891 0755 0659 0602 0575 0553 0539 0537 0539 0544 0561 0587 0606 0606 0597 0578 0566 0584 0632 57 3 0675 0825 1000 1124 1179 1238 1320 1373 1399 1407 1403 1396 1376 1333 1259 1152 1028 0891 0756 0658 0603 0575 0554 0542 0539 0542 0547 0565 0590 0609 0610 0600 0581 0571 0586 0635 58 4 0696 0954 1210 1405 1494 1605 1737 1828 1845 1821 1779 1730 1664 1561 1420 1252 1079 0890 0705 0585 0540 0556 0575 0572 0572 0574 0579 0602 0639 0665 0660 0640 0608 0586 0603 0674 59 5 0677 0965 1282 1540 1657 1801 1985 2099 2097 2034 1943 1849 1736 1582 1388 1186 0994 0787 0588 0470 0445 0496 0548 0557 0558 0560 0565 0591 0638 0669 0662 0636 0592 0561 0583 0666 60 6 0663 0994 1380 1689 1825 2011 2248 2381 2351 2237 2089 1942 1780 1573 1334 1106 0906 0690 0488 0378 0366 0440 0516 0531 0533 0534 0539 0571 0629 0671 0659 0626 0570 0528 0553 0653 61 7 0610 1021 1443 1784 1950 2170 2448 2593 2534 2366 2163 1968 1761 1511 1237 0999 0801 0591 0397 0300 0303 0395 0490 0511 0513 0515 0522 0558 0628 0675 0662 0623 0555 0504 0529 0646 62 8 0629 1061 1572 1980 2174 2444 2778 2949 2866 2647 2385 2137 1882 1581 1263 0997 0785 0562 0360 0263 0268 0361 0448 0459 0456 0457 0464 0509 0593 0650 0636 0588 0506 0448 0472 0613 63 9 0572 1052 1597 2051 2265 2564 2940 3130 3023 2769 2466 2183 1896 1565 1221 0944 0733 0509 0312 0225 0233 0316 0383 0378 0368 0366 0370 0415 0500 0561 0545 0497 0413 0354 0382 0522 64 10 0848 0804 0714 0628 0571 0546 0529 0539 0572 0579 0604 0766 1144 1540 1718 1754 1764 1755 1725 1707 1754 1952 2183 2315 2375 2401 2420 2441 2459 2470 2482 2496 2514 2534 2547 2568 65 11 1153 1124 1064 1002 0968 0943 0938 0944 0970 0964 0973 1087 1348 1600 1699 1708 1709 1693 1661 1645 1695 1908 2166 2316 2382 2411 2433 2452 2469 2481 2493 2507 2525 2547 2556 2577 66 12 1499 1525 1493 1460 1450 1449 1452 1456 1465 1441 1425 1472 1594 1697 1720 1706 1698 1678 1643 1628 1682 1902 2180 2346 2420 2453 2474 2491 2508 2520 2532 2545 2560 2579 2588 2608 67 13 1883 1947 1960 1989 2008 2032 2058 2061 2043 2001 1956 1914 1872 1826 1783 1749 1734 1710 1676 1663 1716 1933 2208 2373 2446 2479 2498 2518 2534 2543 2557 2567 2585 2603 2615 2631 68 14 1861 1963 2047 2116 2166 2231 2304 2325 2281 2192 2095 2004 1913 1809 1703 1617 1557 1478 1380 1326 1386 1723 2183 2462 2584 2635 2664 2700 2739 2762 2765 2758 2741 2731 2747 2805 69 15 1826 1977 2124 2250 2328 2434 2558 2598 2530 2391 2239 2096 1956 1795 1629 1497 1403 1285 1147 1069 1134 1539 2123 2485 2643 2709 2745 2794 2857 2894 2891 2865 2819 2778 2795 2885 70 16 1776 1975 2186 2368 2474 2630 2801 2861 2764 2574 2366 2173 1983 1770 1554 1387 1270 1127 0966 0879 0951 1397 2065 2483 2665 2739 2780 2844 2932 2982 2970 2928 2853 2789 2812 2942 71 17 1784 2065 2337 2569 2703 2897 3126 3206 3078 2832 2565 2318 2078 1813 1546 1347 1208 1042 0861 0766 0840 1329 2085 2562 2773 2859 2907 2989 3101 3170 3151 3090 2985 2894 2919 3084 72 18 1729 2039 2368 2647 2804 3025 3301 3396 3247 2965 2657 2375 2102 1803 1506 1287 1137 0958 0770 0673 0744 1216 1959 2428 2635 2718 2766 2854 2979 3055 3032 2961 2838 2734 2760 2945 73 19 1079 0912 0731 0590 0497 0455 0433 0439 0478 0470 0479 0660 1092 1493 1596 1577 1570 1528 1436 1373 1542 2457 3919 4961 5448 5641 5727 5777 5811 5824 5829 5833 5852 5867 5871 5894 74 20 1329 1178 1007 0879 0788 0755 0736 0744 0768 0739 0724 0870 1233 1552 1615 1582 1572 1527 1434 1376 1546 2461 3928 4977 5470 5666 5752 5800 5834 5848 5854 5859 5872 5890 5895 5917 75 21 1641 1522 1365 1248 1173 1148 1140 1144 1151 1096 1051 1157 1447 1690 1715 1672 1658 1611 1516 1458 1631 2541 3990 5019 5501 5694 5776 5825 5859 5869 5877 5882 5897 5915 5920 5939 76 22 1981 1874 1742 1650 1595 1587 1595 1594 1577 1490 1410 1461 1653 1795 1773 1717 1699 1650 1557 1504 1676 2575 4007 5033 5518 5714 5800 5849 5879 5889 5897 5903 5915 5932 5933 5955 77 23 2324 2239 2142 2078 2066 2087 2118 2113 2059 1933 1807 1777 1841 1857 1779 1708 1684 1633 1541 1493 1669 2564 4001 5035 5528 5727 5815 5863 5895 5907 5916 5925 5936 5954 5960 5980 78 24 2673 2622 2545 2531 2543 2593 2650 2642 2554 2386 2216 2108 2047 1959 1833 1749 1722 1669 1576 1531 1707 2595 4030 5068 5568 5768 5857 5907 5939 5950 5959 5967 5980 5996 6001 6020 79 25 2933 2914 2871 2892 2943 3021 3103 3094 2967 2764 2553 2367 2194 2019 1861 1768 1739 1686 1595 1554 1730 2608 4037 5074 5573 5776 5867 5919 5951 5962 5967 5976 5988 6006 6009 6027 80 26 3040 3050 3041 3097 3176 3298 3422 3421 3254 2988 2712 2470 2247 2015 1805 1678 1626 1542 1418 1356 1540 2549 4245 5495 6099 6347 6456 6538 6607 6635 6637 6620 6593 6569 6585 6655 81 27 2924 2991 3030 3129 3222 3376 3545 3553 3361 3057 2740 2460 2203 1938 1696 1546 1476 1372 1231 1162 1334 2339 4083 5384 6016 6277 6391 6487 6585 6631 6620 6579 6510 6454 6465 6580 82 1 0372 0472 0524 0533 0498 0495 0501 0528 0579 0596 0632 0818 1233 1617 1693 1561 1363 1133 0905 0742 0653 0610 0578 0554 0548 0548 0553 0575 0613 0638 0634 0617 0586 0561 0582 0648 83 2 0508 0663 0804 0873 0873 0897 0941 0991 1044 1065 1090 1234 1529 1766 1765 1606 1396 1157 0921 0755 0663 0618 0583 0559 0554 0555 0560 0584 0622 0649 0644 0626 0593 0570 0590 0660 84 3 0680 0886 1124 1281 1334 1406 1498 1583 1637 1655 1662 1727 1838 1885 1796 1613 1395 1154 0917 0750 0658 0611 0576 0554 0549 0550 0557 0580 0619 0644 0639 0621 0588 0565 0586 0658 85 4 0798 1069 1375 1622 1725 1850 2004 2120 2167 2180 2171 2154 2112 2021 1872 1665 1432 1180 0935 0763 0669 0620 0586 0563 0558 0561 0567 0591 0629 0655 0652 0631 0599 0575 0594 0664 86 5 0755 1122 1524 1842 1975 2148 2368 2518 2559 2538 2487 2423 2329 2176 1956 1691 1415 1120 0836 0652 0575 0567 0563 0549 0545 0546 0551 0579 0628 0659 0652 0626 0582 0551 0574 0656 87 6 0766 1189 1673 2064 2235 2457 2741 2927 2950 2886 2783 2668 2521 2303 2020 1707 1398 1072 0761 0568 0500 0520 0540 0532 0528 0528 0536 0570 0629 0671 0660 0626 0567 0525 0552 0655 88 7 0721 1192 1740 2183 2388 2650 2990 3197 3189 3069 2902 2728 2525 2250 1915 1579 1269 0939 0631 0452 0404 0455 0502 0500 0496 0498 0506 0546 0618 0667 0655 0614 0544 0495 0521 0637 89 8 0717 1227 1836 2330 2565 2870 3265 3497 3455 3279 3047 2815 2558 2230 1850 1493 1179 0847 0543 0375 0339 0402 0456 0451 0445 0446 0456 0502 0587 0647 0632 0584 0501 0438 0465 0605 90 9 0635 1174 1827 2350 2597 2935 3366 3610 3546 3325 3044 2772 2479 2117 1713 1353 1051 0732 0446 0297 0275 0339 0386 0373 0363 0361 0368 0415 0503 0564 0547 0499 0414 0352 0382 0523 91 10 0980 0922 0829 0737 0663 0630 0612 0622 0668 0687 0724 0933 1425 1978 2266 2350 2378 2383 2374 2374 2377 2395 2403 2411 2423 2433 2449 2466 2483 2492 2505 2517 2535 2557 2568 2585 92 11 1387 1375 1308 1246 1188 1163 1146 1158 1202 1217 1249 1420 1797 2197 2395 2449 2465 2463 2452 2453 2452 2462 2467 2473 2483 2494 2507 2523 2542 2552 2564 2577 2593 2614 2628 2641 93 12 1826 1868 1866 1846 1817 1810 1806 1818 1851 1862 1880 1979 2184 2385 2481 2498 2499 2492 2479 2477 2472 2478 2478 2484 2493 2503 2516 2531 2544 2554 2564 2575 2590 2608 2620 2633 94 13 2311 2413 2464 2513 2531 2554 2573 2585 2600 2602 2603 2607 2605 2603 2601 2585 2574 2561 2544 2544 2536 2532 2530 2534 2542 2551 2564 2578 2590 2599 2608 2619 2634 2653 2661 2674 95 14 2282 2447 2571 2677 2735 2803 2874 2909 2903 2859 2804 2754 2695 2620 2531 2441 2363 2266 2150 2072 2084 2265 2493 2623 2679 2706 2727 2758 2796 2819 2819 2813 2795 2785 2798 2850 96 15 2234 2464 2675 2842 2939 3052 3185 3250 3220 3129 3018 2913 2797 2654 2492 2338 2207 2049 1868 1750 1774 2065 2455 2682 2782 2825 2851 2898 2958 2991 2986 2962 2915 2876 2895 2981 97 16 2112 2414 2685 2920 3048 3207 3400 3491 3432 3283 3113 2948 2774 2566 2335 2129 1964 1767 1544 1404 1440 1817 2331 2630 2760 2815 2850 2912 2996 3044 3033 2990 2915 2851 2871 2998 98 17 2165 2503 2851 3141 3301 3509 3765 3878 3794 3591 3357 3136 2909 2640 2350 2103 1908 1678 1426 1270 1312 1746 2376 2756 2923 2993 3036 3113 3224 3290 3270 3208 3105 3017 3041 3204 99 18 2005 2403 2796 3126 3306 3551 3847 3978 3863 3614 3330 3063 2795 2485 2158 1890 1686 1446 1189 1038 1085 1533 2194 2594 2770 2843 2887 2973 3101 3176 3152 3081 2957 2850 2874 3065 100 19 1238 1059 0863 0697 0577 0523 0488 0502 0558 0565 0590 0852 1509 2212 2503 2550 2567 2536 2442 2372 2533 3330 4458 5209 5553 5689 5753 5795 5823 5832 5841 5844 5857 5874 5878 5900 101 20 1510 1376 1193 1046 0939 0887 0863 0875 0916 0904 0909 1127 1671 2222 2422 2437 2442 2404 2309 2242 2408 3223 4393 5178 5538 5681 5743 5787 5816 5827 5833 5836 5851 5870 5878 5902 102 21 1911 1814 1661 1526 1436 1404 1385 1393 1421 1385 1361 1532 1975 2403 2540 2535 2534 2492 2396 2332 2496 3300 4467 5258 5623 5768 5834 5879 5909 5917 5923 5929 5942 5957 5966 5981 103 22 2348 2291 2167 2067 2004 1983 1983 1986 1998 1934 1880 1994 2316 2603 2666 2637 2627 2579 2482 2420 2584 3379 4525 5297 5655 5794 5858 5905 5931 5939 5944 5951 5963 5982 5985 6006 104 23 2772 2727 2640 2585 2549 2561 2583 2585 2566 2476 2385 2422 2599 2739 2730 2678 2662 2611 2512 2454 2618 3403 4542 5316 5677 5821 5889 5930 5956 5966 5972 5978 5992 6005 6013 6028 105 24 3185 3203 3160 3149 3165 3210 3256 3260 3208 3080 2952 2893 2896 2871 2782 2707 2681 2627 2528 2473 2638 3410 4538 5304 5663 5808 5876 5917 5944 5954 5959 5965 5978 5996 5999 6013 106 25 3515 3595 3591 3632 3692 3774 3851 3854 3764 3605 3440 3288 3145 2994 2852 2763 2732 2675 2579 2529 2690 3453 4576 5350 5712 5860 5928 5970 5999 6004 6008 6015 6025 6042 6043 6066 107 26 3567 3669 3726 3816 3908 4032 4165 4182 4056 3834 3601 3388 3187 2971 2764 2625 2557 2454 2301 2213 2382 3296 4711 5704 6176 6368 6459 6530 6595 6621 6615 6600 6572 6551 6556 6628 108 27 3396 3555 3648 3779 3893 4051 4224 4257 4099 3827 3541 3282 3037 2775 2523 2352 2262 2129 1949 1846 2013 2977 4527 5632 6162 6377 6475 6564 6658 6700 6686 6648 6580 6522 6530 6650 109 1 0393 0494 0566 0567 0515 0502 0504 0536 0601 0628 0672 0930 1527 2099 2213 2016 1717 1376 1045 0815 0692 0632 0586 0554 0545 0546 0551 0581 0629 0663 0656 0630 0586 0555 0572 0658 110 2 0503 0677 0828 0896 0877 0890 0931 0985 1060 1087 1125 1348 1833 2253 2286 2059 1750 1403 1067 0835 0709 0648 0602 0571 0563 0563 0570 0599 0648 0683 0675 0649 0604 0571 0593 0679 111 3 0657 0908 1174 1341 1376 1442 1540 1639 1719 1745 1767 1922 2224 2432 2360 2099 1776 1421 1080 0843 0714 0651 0605 0574 0566 0567 0573 0604 0653 0688 0681 0654 0608 0575 0596 0683 112 4 0783 1121 1499 1778 1869 2008 2182 2324 2406 2427 2435 2497 2600 2606 2437 2139 1797 1429 1078 0836 0705 0640 0592 0561 0555 0556 0563 0594 0644 0677 0669 0644 0595 0565 0588 0672 113 5 0860 1247 1708 2078 2228 2424 2666 2852 2925 2945 2933 2900 2830 2686 2455 2140 1793 1423 1071 0829 0700 0636 0590 0561 0555 0555 0563 0593 0643 0675 0667 0641 0594 0565 0586 0669 114 6 0871 1348 1916 2377 2575 2828 3158 3389 3461 3447 3386 3304 3176 2957 2639 2249 1842 1412 1008 0742 0623 0588 0563 0536 0528 0530 0538 0573 0634 0675 0664 0631 0574 0531 0555 0659 115 7 0859 1376 2032 2559 2791 3097 3494 3760 3808 3742 3619 3477 3290 3004 2618 2186 1758 1310 0890 0626 0524 0524 0527 0509 0504 0505 0515 0556 0631 0680 0667 0625 0555 0501 0531 0653 116 8 0813 1430 2173 2796 3074 3440 3918 4235 4262 4146 3958 3754 3504 3143 2684 2198 1736 1254 0807 0537 0444 0459 0469 0447 0439 0441 0452 0500 0587 0647 0631 0582 0498 0437 0464 0607 117 9 0715 1334 2107 2739 3030 3422 3929 4249 4240 4060 3809 3549 3250 2849 2366 1894 1469 1029 0627 0399 0336 0370 0391 0368 0357 0358 0366 0414 0506 0567 0552 0499 0413 0351 0383 0524 118 10 1026 0973 0870 0759 0659 0614 0589 0605 0670 0695 0745 1031 1738 2555 2966 3050 3034 2973 2884 2814 2776 2774 2759 2750 2756 2764 2780 2810 2846 2867 2872 2867 2855 2848 2861 2919 119 11 1362 1384 1323 1241 1165 1129 1114 1135 1198 1222 1266 1515 2103 2746 3053 3097 3061 2987 2888 2814 2769 2758 2740 2728 2733 2740 2757 2784 2820 2841 2843 2838 2827 2818 2830 2885 120 12 1823 1889 1910 1890 1845 1838 1837 1866 1929 1948 1982 2170 2587 3009 3184 3177 3116 3024 2914 2833 2779 2757 2734 2721 2724 2729 2744 2774 2810 2831 2833 2824 2808 2796 2809 2868 121 13 2241 2398 2498 2547 2552 2576 2611 2652 2702 2719 2738 2842 3055 3245 3301 3249 3168 3064 2944 2856 2795 2766 2738 2723 2726 2731 2744 2772 2808 2827 2828 2821 2803 2791 2806 2857 122 14 2668 2912 3094 3238 3295 3371 3441 3496 3530 3537 3539 3536 3524 3490 3438 3352 3255 3142 3018 2930 2865 2830 2800 2783 2784 2789 2802 2828 2866 2885 2885 2877 2857 2844 2858 2915 123 15 2648 2936 3222 3442 3548 3680 3822 3915 3932 3892 3836 3774 3696 3580 3429 3252 3081 2879 2656 2499 2457 2587 2751 2835 2874 2894 2914 2957 3015 3047 3039 3013 2965 2926 2940 3035 124 16 2518 2891 3241 3531 3677 3858 4073 4200 4187 4093 3967 3840 3696 3502 3266 3022 2799 2541 2256 2064 2042 2294 2630 2815 2898 2934 2961 3022 3106 3154 3141 3096 3018 2954 2974 3101 125 17 2531 2966 3396 3763 3941 4176 4463 4621 4578 4424 4232 4041 3832 3562 3248 2947 2686 2382 2050 1831 1825 2172 2641 2905 3021 3072 3111 3187 3298 3362 3342 3283 3176 3085 3109 3274 126 18 2316 2757 3240 3632 3837 4111 4440 4611 4532 4319 4059 3809 3547 3224 2864 2542 2278 1971 1643 1437 1452 1851 2407 2728 2871 2929 2969 3055 3182 3256 3231 3158 3030 2922 2948 3140 127 19 1391 1224 0999 0800 0654 0584 0543 0560 0635 0655 0699 1044 1934 2968 3485 3620 3673 3660 3588 3532 3662 4253 5013 5495 5715 5804 5853 5887 5915 5919 5927 5931 5947 5961 5962 5979 128 20 1778 1634 1436 1252 1119 1059 1021 1034 1102 1112 1142 1456 2246 3132 3553 3653 3692 3673 3596 3541 3670 4264 5029 5513 5734 5824 5873 5908 5931 5937 5943 5950 5962 5977 5980 5999 129 21 2235 2139 1979 1832 1721 1670 1640 1655 1712 1704 1710 1968 2615 3302 3607 3666 3688 3663 3582 3529 3660 4261 5051 5555 5788 5881 5929 5963 5989 5995 6000 6005 6017 6035 6035 6054 130 22 2765 2697 2584 2476 2396 2365 2350 2365 2405 2375 2353 2542 3016 3495 3683 3700 3708 3675 3591 3539 3668 4266 5064 5584 5823 5920 5972 6005 6026 6033 6040 6043 6055 6070 6067 6086 131 23 3284 3275 3221 3170 3121 3127 3138 3152 3168 3117 3069 3173 3472 3757 3843 3828 3820 3782 3697 3650 3774 4356 5138 5647 5879 5977 6029 6060 6083 6087 6090 6096 6107 6125 6123 6142 132 24 3751 3813 3805 3811 3814 3851 3892 3909 3899 3818 3739 3746 3849 3924 3902 3852 3833 3787 3701 3653 3777 4356 5139 5647 5883 5976 6025 6058 6081 6084 6089 6096 6107 6125 6123 6142 133 25 4227 4345 4402 4482 4545 4626 4701 4721 4675 4569 4459 4356 4255 4144 4041 3964 3938 3887 3803 3758 3879 4440 5212 5720 5958 6054 6106 6140 6161 6164 6169 6176 6187 6202 6201 6217 134 26 4300 4487 4606 4750 4858 4988 5124 5166 5091 4924 4747 4581 4416 4228 4041 3898 3816 3694 3521 3413 3546 4302 5381 6103 6443 6581 6649 6711 6772 6795 6789 6769 6740 6718 6719 6790 135 27 3927 4139 4323 4511 4635 4812 5002 5061 4944 4713 4462 4230 4000 3743 3484 3289 3166 2998 2777 2638 2782 3653 4946 5824 6235 6401 6484 6566 6657 6699 6682 6642 6568 6507 6510 6635 136 1 0398 0547 0641 0638 0572 0549 0547 0587 0669 0705 0761 1093 1885 2654 2800 2513 2096 1631 1184 0878 0717 0639 0580 0542 0530 0530 0537 0572 0635 0677 0666 0632 0572 0529 0555 0661 137 2 0481 0700 0877 0938 0900 0910 0947 1009 1102 1138 1186 1490 2177 2797 2862 2548 2120 1650 1198 0890 0727 0647 0589 0549 0539 0538 0546 0582 0643 0687 0677 0643 0583 0540 0565 0671 138 3 0616 0894 1181 1344 1360 1413 1506 1610 1713 1750 1788 2036 2563 2978 2934 2585 2141 1660 1203 0891 0726 0645 0587 0548 0538 0537 0544 0580 0643 0686 0675 0642 0583 0539 0568 0668 139 4 0751 1136 1553 1840 1924 2057 2240 2401 2513 2548 2567 2724 3025 3189 3021 2628 2166 1674 1208 0890 0722 0640 0580 0541 0531 0532 0541 0578 0641 0682 0671 0637 0577 0535 0558 0663 140 5 0865 1305 1830 2241 2393 2593 2863 3083 3196 3230 3230 3288 3378 3332 3063 2639 2165 1668 1198 0881 0715 0633 0574 0536 0528 0529 0537 0573 0635 0675 0664 0630 0573 0533 0555 0659 141 6 0909 1423 2051 2558 2776 3048 3400 3669 3776 3805 3784 3737 3632 3423 3090 2645 2162 1659 1185 0865 0697 0615 0557 0519 0512 0513 0522 0558 0619 0660 0648 0616 0558 0517 0543 0644 142 7 0951 1533 2281 2892 3159 3502 3950 4279 4385 4380 4307 4205 4039 3745 3315 2790 2242 1675 1145 0799 0638 0583 0543 0508 0499 0501 0510 0555 0629 0679 0666 0624 0555 0503 0530 0651 143 8 0894 1565 2406 3107 3420 3825 4362 4738 4821 4761 4616 4445 4207 3832 3319 2737 2160 1564 1013 0665 0521 0496 0476 0443 0434 0437 0449 0498 0587 0648 0632 0582 0498 0437 0467 0610 144 9 0776 1491 2384 3128 3469 3913 4510 4916 4973 4861 4658 4427 4133 3702 3139 2539 1965 1378 0842 0520 0399 0392 0380 0347 0336 0337 0346 0397 0488 0551 0534 0484 0398 0335 0368 0514 145 10 1054 1025 0919 0794 0674 0616 0587 0610 0690 0723 0781 1145 2068 3137 3651 3707 3613 3450 3252 3100 3011 2981 2944 2915 2914 2919 2934 2974 3031 3064 3058 3035 2993 2961 2981 3062 146 11 1355 1386 1343 1259 1165 1122 1103 1135 1222 1253 1308 1640 2450 3338 3730 3730 3605 3420 3202 3036 2938 2896 2854 2823 2818 2824 2840 2882 2939 2974 2967 2941 2897 2862 2880 2970 147 12 1727 1834 1890 1876 1812 1798 1811 1856 1942 1972 2018 2299 2939 3595 3846 3788 3632 3424 3191 3015 2907 2857 2810 2778 2773 2777 2793 2832 2891 2925 2917 2891 2844 2806 2823 2915 148 13 2159 2364 2497 2562 2545 2572 2617 2684 2767 2794 2828 3035 3476 3889 4008 3905 3734 3518 3281 3104 2990 2935 2884 2850 2845 2849 2862 2903 2961 2993 2986 2959 2914 2875 2889 2979 149 14 2571 2851 3090 3251 3296 3374 3468 3558 3633 3655 3673 3781 3993 4153 4140 3991 3799 3573 3329 3149 3031 2969 2915 2879 2873 2878 2891 2934 2991 3021 3011 2983 2935 2898 2912 3005 150 15 2917 3287 3620 3873 3987 4123 4272 4389 4451 4463 4463 4451 4419 4346 4226 4046 3843 3613 3366 3186 3066 3000 2944 2910 2904 2908 2920 2958 3017 3047 3041 3012 2964 2928 2942 3029 151 16 2906 3359 3803 4156 4317 4516 4760 4925 4969 4941 4880 4809 4707 4545 4317 4037 3752 3426 3078 2828 2727 2801 2903 2943 2966 2980 3001 3058 3139 3184 3169 3126 3048 2982 3000 3128 152 17 2836 3343 3879 4309 4515 4780 5101 5302 5317 5220 5082 4933 4751 4497 4172 3819 3485 3104 2696 2413 2338 2549 2830 2971 3037 3068 3099 3173 3285 3347 3326 3263 3155 3064 3088 3259 153 18 2639 3177 3771 4261 4491 4799 5178 5404 5387 5234 5031 4821 4581 4259 3870 3475 3120 2716 2293 2008 1956 2236 2618 2822 2913 2955 2988 3072 3196 3268 3242 3170 3043 2932 2959 3151 154 19 1538 1355 1121 0899 0733 0649 0599 0618 0710 0745 0807 1232 2344 3696 4441 4673 4763 4781 4739 4707 4792 5125 5472 5669 5762 5803 5835 5865 5887 5891 5896 5901 5913 5930 5931 5948 155 20 2006 1854 1647 1450 1294 1218 1167 1187 1277 1304 1358 1754 2755 3933 4561 4750 4824 4833 4785 4755 4838 5174 5531 5734 5832 5874 5906 5935 5955 5957 5961 5966 5980 5997 5999 6014 156 21 2544 2462 2296 2136 2009 1944 1904 1922 2006 2024 2063 2405 3249 4204 4696 4833 4887 4885 4834 4804 4882 5216 5581 5794 5894 5938 5970 6000 6019 6018 6024 6028 6042 6059 6055 6071 157 22 3182 3137 3043 2932 2834 2791 2768 2788 2866 2871 2894 3172 3827 4528 4868 4951 4983 4970 4917 4887 4958 5277 5632 5840 5939 5982 6012 6036 6055 6056 6061 6065 6077 6091 6092 6110 158 23 3724 3770 3738 3688 3648 3638 3638 3661 3716 3708 3705 3885 4311 4742 4932 4961 4973 4949 4888 4858 4930 5260 5643 5873 5983 6028 6062 6088 6106 6107 6109 6113 6126 6143 6140 6159 159 24 4262 4404 4433 4460 4469 4496 4530 4559 4591 4565 4543 4617 4812 4988 5043 5027 5018 4988 4921 4894 4963 5287 5668 5897 6004 6049 6081 6108 6125 6126 6127 6131 6143 6160 6158 6170 160 25 4798 4998 5118 5225 5305 5384 5456 5491 5495 5450 5401 5357 5309 5249 5194 5139 5118 5082 5015 4988 5053 5366 5739 5965 6072 6119 6148 6172 6190 6190 6193 6199 6209 6224 6221 6236 161 26 4731 5008 5199 5387 5505 5648 5791 5857 5825 5714 5587 5468 5344 5193 5030 4885 4788 4653 4468 4346 4429 4990 5743 6221 6443 6533 6587 6643 6702 6721 6715 6692 6658 6630 6637 6710 162 27 4475 4807 5078 5332 5481 5669 5883 5974 5914 5748 5560 5379 5189 4963 4717 4502 4347 4141 3881 3707 3792 4465 5404 6007 6289 6401 6464 6539 6627 6667 6649 6603 6528 6462 6469 6592 163 1 0430 0597 0719 0708 0621 0588 0581 0624 0727 0770 0834 1245 2245 3223 3399 3018 2476 1882 1319 0939 0741 0644 0574 0527 0513 0513 0523 0567 0643 0696 0684 0643 0571 0521 0550 0671 164 2 0479 0717 0918 0977 0918 0915 0941 1008 1122 1165 1225 1617 2519 3357 3453 3047 2493 1890 1323 0937 0736 0640 0569 0521 0508 0509 0517 0561 0637 0688 0675 0634 0563 0510 0537 0656 165 3 0588 0910 1211 1360 1350 1392 1476 1586 1711 1758 1807 2150 2905 3544 3533 3092 2526 1916 1342 0952 0750 0651 0579 0531 0519 0520 0529 0574 0650 0701 0687 0645 0573 0521 0550 0672 166 4 0724 1139 1591 1884 1943 2061 2236 2408 2548 2598 2631 2895 3433 3802 3648 3153 2560 1934 1347 0951 0744 0642 0571 0524 0512 0513 0522 0566 0643 0694 0682 0638 0567 0512 0540 0664 167 5 0819 1325 1908 2339 2480 2683 2964 3207 3356 3403 3417 3574 3864 3973 3693 3156 2549 1914 1324 0929 0724 0624 0553 0508 0497 0498 0508 0553 0627 0678 0665 0622 0552 0501 0528 0649 168 6 0925 1504 2211 2765 2979 3266 3644 3954 4102 4149 4143 4193 4264 4152 3772 3204 2581 1936 1335 0931 0721 0619 0546 0500 0489 0492 0503 0547 0623 0674 0660 0617 0546 0495 0524 0644 169 7 1007 1628 2425 3092 3376 3742 4223 4593 4738 4779 4749 4684 4543 4257 3809 3221 2592 1942 1339 0935 0725 0624 0551 0506 0496 0498 0509 0554 0629 0678 0665 0624 0551 0502 0528 0649 170 8 0973 1716 2661 3450 3804 4256 4856 5304 5450 5454 5362 5231 5013 4624 4055 3365 2655 1929 1260 0825 0622 0548 0491 0447 0437 0438 0452 0504 0593 0654 0639 0589 0504 0443 0474 0614 171 9 0865 1633 2637 3482 3861 4358 5029 5510 5635 5582 5427 5232 4950 4494 3865 3145 2434 1714 1058 0649 0473 0425 0386 0344 0332 0335 0346 0398 0491 0556 0540 0487 0399 0338 0369 0513 172 10 1051 1044 0970 0828 0687 0621 0588 0614 0715 0758 0826 1272 2418 3746 4338 4326 4114 3814 3473 3216 3064 3002 2939 2890 2879 2882 2899 2954 3037 3084 3071 3028 2955 2895 2916 3036 173 11 1300 1387 1362 1284 1172 1124 1107 1148 1254 1298 1363 1782 2812 3943 4403 4330 4085 3756 3396 3123 2962 2888 2819 2769 2758 2761 2778 2833 2915 2963 2948 2907 2831 2765 2784 2911 174 12 1644 1802 1873 1857 1778 1760 1770 1830 1942 1985 2043 2419 3299 4214 4546 4427 4161 3822 3458 3185 3021 2943 2872 2820 2809 2812 2827 2882 2964 3010 2996 2953 2877 2810 2830 2955 175 13 2057 2282 2464 2540 2507 2529 2585 2678 2791 2832 2878 3188 3872 4528 4710 4536 4248 3898 3526 3250 3082 2998 2924 2871 2860 2862 2879 2933 3012 3057 3043 2999 2924 2860 2880 3007 176 14 2423 2750 3024 3197 3230 3305 3418 3539 3653 3690 3721 3942 4403 4801 4844 4624 4318 3960 3581 3303 3129 3040 2962 2910 2899 2900 2915 2969 3049 3093 3080 3034 2957 2893 2914 3036 177 15 2795 3227 3630 3918 4022 4163 4349 4505 4610 4641 4658 4763 4956 5063 4960 4692 4367 4001 3618 3337 3160 3065 2987 2933 2921 2921 2936 2992 3072 3116 3102 3058 2979 2917 2936 3060 178 16 3137 3643 4153 4546 4738 4939 5195 5387 5479 5505 5501 5480 5424 5298 5091 4793 4459 4085 3700 3416 3236 3134 3052 2999 2987 2989 3004 3058 3138 3184 3169 3123 3046 2981 3002 3126 179 17 3187 3803 4434 4954 5195 5481 5839 6099 6180 6160 6092 6004 5869 5639 5308 4896 4470 3997 3504 3147 2985 3022 3082 3090 3102 3115 3138 3208 3316 3376 3355 3291 3186 3091 3113 3280 180 18 2932 3586 4286 4865 5135 5481 5905 6193 6241 6157 6012 5851 5643 5329 4912 4446 3993 3489 2969 2608 2481 2629 2827 2916 2958 2983 3010 3091 3215 3288 3261 3185 3055 2945 2973 3159 181 19 1637 1453 1208 0968 0796 0700 0645 0664 0766 0811 0884 1362 2626 4213 5143 5461 5590 5638 5639 5644 5666 5733 5758 5774 5796 5813 5835 5860 5880 5883 5888 5894 5904 5915 5921 5936 182 20 2130 2000 1786 1568 1407 1319 1265 1283 1389 1431 1501 1951 3098 4496 5302 5572 5677 5718 5714 5720 5737 5792 5810 5824 5845 5860 5885 5907 5926 5928 5931 5937 5950 5967 5967 5984 183 21 2698 2635 2486 2320 2171 2102 2049 2072 2177 2216 2280 2688 3678 4836 5485 5694 5778 5807 5798 5803 5813 5855 5866 5878 5898 5913 5933 5956 5975 5974 5978 5982 5992 6010 6008 6024 184 22 3394 3391 3298 3185 3077 3027 2992 3021 3119 3155 3210 3554 4344 5223 5698 5843 5899 5916 5902 5908 5910 5937 5943 5953 5973 5986 6005 6027 6045 6046 6048 6050 6061 6077 6081 6092 185 23 4016 4117 4104 4063 4013 3991 3988 4020 4108 4137 4180 4428 4977 5559 5867 5951 5982 5987 5972 5979 5976 5992 5994 6003 6021 6032 6052 6074 6092 6089 6092 6096 6106 6122 6123 6133 186 24 4640 4835 4902 4944 4960 4983 5006 5047 5120 5142 5174 5318 5604 5890 6037 6063 6071 6064 6043 6050 6039 6046 6040 6047 6065 6077 6094 6115 6129 6126 6127 6129 6141 6158 6154 6169 187 25 5213 5492 5653 5789 5876 5950 6019 6072 6119 6136 6153 6168 6178 6184 6195 6176 6169 6153 6130 6140 6122 6118 6109 6114 6134 6145 6161 6180 6196 6194 6193 6196 6206 6222 6219 6232 188 26 5323 5714 5997 6224 6368 6513 6665 6761 6792 6755 6705 6653 6589 6496 6386 6255 6144 6001 5818 5696 5703 5976 6299 6478 6567 6608 6644 6688 6741 6760 6752 6728 6697 6672 6671 6747 189 27 4961 5370 5720 6013 6189 6388 6611 6733 6723 6618 6483 6353 6206 6013 5791 5569 5386 5156 4873 4678 4706 5200 5850 6243 6425 6504 6550 6619 6703 6740 6721 6675 6603 6539 6545 6662 190 1 0437 0654 0796 0783 0676 0634 0619 0668 0792 0844 0919 1422 2664 3896 4104 3602 2902 2146 1442 0972 0730 0613 0530 0474 0459 0460 0472 0521 0612 0674 0661 0611 0525 0463 0494 0635 191 2 0495 0786 1014 1070 0995 0978 1004 1078 1216 1272 1344 1829 2983 4064 4180 3641 2924 2156 1441 0964 0717 0599 0514 0458 0443 0445 0456 0508 0599 0662 0647 0594 0510 0445 0476 0620 192 3 0588 0941 1264 1418 1381 1416 1492 1607 1758 1816 1880 2328 3353 4253 4268 3697 2966 2188 1466 0983 0733 0614 0528 0472 0457 0458 0470 0523 0615 0679 0663 0614 0525 0461 0489 0634 193 4 0670 1129 1610 1901 1935 2044 2205 2386 2556 2617 2666 3046 3861 4489 4354 3731 2977 2186 1455 0965 0715 0594 0509 0452 0438 0440 0453 0505 0597 0659 0645 0592 0506 0442 0473 0618 194 5 0781 1342 1983 2424 2549 2751 3038 3302 3487 3552 3584 3865 4422 4744 4453 3774 2994 2188 1447 0954 0702 0581 0497 0442 0430 0432 0443 0495 0585 0647 0633 0583 0499 0436 0466 0608 195 6 0868 1549 2330 2926 3134 3432 3843 4184 4379 4442 4451 4613 4912 4965 4548 3830 3037 2221 1467 0966 0710 0586 0500 0446 0433 0436 0450 0502 0594 0656 0640 0589 0504 0442 0471 0618 196 7 0960 1678 2593 3315 3611 3989 4514 4935 5141 5204 5192 5241 5299 5117 4595 3845 3038 2216 1461 0960 0702 0580 0494 0440 0429 0431 0445 0498 0588 0650 0633 0581 0498 0438 0468 0611 197 8 1029 1820 2840 3693 4075 4556 5207 5707 5911 5966 5927 5840 5646 5261 4658 3883 3064 2234 1471 0963 0702 0578 0492 0438 0426 0430 0444 0498 0591 0652 0637 0586 0499 0436 0469 0615 198 9 0916 1774 2866 3805 4228 4776 5518 6079 6272 6285 6182 6027 5760 5284 4588 3750 2900 2044 1269 0774 0543 0452 0384 0334 0323 0326 0339 0393 0487 0554 0535 0484 0395 0333 0364 0511 199 10 1087 1109 1037 0888 0722 0645 0603 0637 0759 0814 0893 1439 2861 4507 5196 5094 4734 4264 3756 3377 3158 3062 2968 2898 2881 2883 2903 2973 3083 3145 3126 3066 2958 2870 2889 3057 200 11 1327 1444 1458 1363 1223 1163 1137 1191 1324 1379 1456 1983 3297 4748 5306 5149 4765 4279 3760 3374 3149 3046 2949 2879 2862 2865 2885 2954 3063 3128 3106 3042 2938 2844 2869 3039 201 12 1650 1836 1934 1911 1800 1772 1781 1855 2001 2056 2125 2616 3790 5026 5450 5251 4850 4356 3836 3449 3221 3114 3016 2945 2928 2930 2950 3018 3129 3192 3169 3108 2998 2908 2930 3097 202 13 2017 2317 2528 2601 2546 2563 2625 2728 2879 2932 2994 3421 4393 5356 5623 5370 4953 4454 3931 3544 3314 3200 3099 3029 3010 3013 3032 3101 3209 3269 3248 3188 3081 2989 3008 3178 203 14 2358 2762 3093 3283 3293 3370 3492 3639 3793 3847 3894 4237 4983 5657 5760 5449 5008 4495 3964 3574 3338 3220 3117 3046 3027 3028 3049 3118 3223 3284 3262 3199 3092 3003 3026 3190 204 15 2711 3212 3676 3997 4083 4229 4432 4627 4781 4832 4865 5104 5586 5954 5897 5530 5064 4536 3993 3593 3348 3221 3115 3041 3023 3024 3044 3114 3223 3284 3263 3199 3090 3000 3020 3186 205 16 3106 3704 4295 4751 4921 5157 5444 5690 5841 5890 5907 6019 6208 6262 6053 5640 5158 4622 4074 3674 3426 3294 3186 3109 3089 3092 3111 3181 3289 3352 3328 3265 3155 3064 3084 3252 206 17 3381 4078 4788 5361 5625 5934 6313 6611 6744 6788 6782 6752 6666 6470 6155 5710 5218 4681 4132 3731 3482 3345 3236 3162 3143 3144 3163 3234 3340 3400 3376 3311 3203 3110 3134 3297 207 18 3230 3988 4791 5449 5763 6132 6614 6963 7081 7072 6995 6894 6728 6427 5993 5451 4890 4284 3668 3226 3015 3009 3025 3008 3010 3018 3041 3120 3243 3313 3286 3209 3080 2972 2993 3185 208 19 1750 1572 1295 1025 0807 0696 0632 0654 0782 0835 0921 1503 3074 5075 6230 6575 6651 6611 6500 6409 6375 6415 6409 6400 6417 6436 6464 6511 6563 6582 6574 6555 6524 6504 6509 6577 209 20 2242 2130 1900 1657 1457 1354 1288 1319 1448 1501 1584 2146 3602 5402 6418 6706 6761 6714 6598 6506 6466 6498 6487 6476 6493 6512 6539 6584 6634 6654 6647 6628 6599 6577 6579 6647 210 21 2754 2718 2549 2354 2174 2087 2029 2068 2200 2250 2331 2858 4170 5735 6595 6821 6848 6786 6663 6571 6526 6541 6524 6510 6526 6541 6569 6615 6663 6682 6676 6655 6623 6601 6606 6677 211 22 3424 3453 3380 3247 3116 3058 3031 3074 3206 3254 3325 3785 4886 6141 6801 6948 6938 6853 6718 6619 6557 6559 6533 6518 6531 6546 6572 6618 6670 6687 6678 6657 6624 6599 6600 6674 212 23 4064 4210 4217 4172 4090 4061 4066 4126 4253 4298 4360 4738 5601 6533 6996 7072 7035 6939 6798 6701 6631 6614 6586 6570 6583 6595 6620 6664 6713 6731 6723 6699 6668 6649 6644 6713 213 24 4640 4893 5013 5065 5057 5084 5128 5202 5322 5363 5412 5689 6282 6889 7167 7169 7098 6982 6832 6729 6650 6621 6583 6563 6573 6590 6615 6656 6707 6724 6715 6689 6656 6632 6634 6704 214 25 5271 5608 5833 5993 6057 6139 6231 6326 6429 6466 6506 6662 6972 7252 7351 7294 7199 7071 6915 6812 6726 6686 6641 6621 6634 6648 6669 6713 6763 6779 6768 6746 6711 6689 6691 6756 215 26 5799 6224 6564 6838 6995 7143 7294 7415 7494 7527 7547 7564 7566 7541 7495 7386 7274 7135 6974 6868 6777 6726 6678 6655 6662 6673 6697 6741 6791 6804 6793 6769 6737 6710 6712 6782 216 27 5545 6061 6495 6855 7060 7270 7510 7672 7729 7704 7653 7594 7511 7374 7193 6963 6748 6490 6185 5967 5908 6117 6367 6500 6569 6603 6637 6701 6779 6813 6792 6746 6670 6608 6614 6724 217 1 0427 0684 0863 0839 0726 0675 0654 0705 0844 0904 0986 1558 2998 4442 4660 4035 3190 2296 1475 0934 0661 0531 0440 0381 0365 0366 0379 0433 0533 0601 0585 0529 0438 0369 0401 0553 218 2 0484 0806 1067 1123 1028 1008 1026 1104 1260 1323 1405 1972 3336 4626 4748 4088 3227 2321 1489 0941 0663 0532 0439 0380 0364 0365 0377 0433 0535 0603 0587 0531 0437 0369 0401 0555 219 3 0564 0936 1300 1445 1398 1424 1493 1615 1786 1853 1924 2455 3690 4795 4813 4116 3242 2328 1491 0940 0662 0531 0438 0378 0363 0365 0377 0433 0534 0602 0586 0530 0437 0367 0402 0557 220 4 0630 1100 1604 1888 1906 2000 2156 2336 2526 2597 2658 3131 4176 5021 4895 4151 3255 2329 1486 0931 0652 0520 0427 0368 0353 0356 0369 0425 0526 0593 0577 0520 0428 0360 0393 0550 221 5 0699 1286 1941 2377 2473 2653 2921 3185 3398 3474 3518 3910 4720 5259 4970 4170 3250 2312 1461 0908 0630 0499 0409 0353 0340 0342 0353 0409 0506 0574 0556 0502 0412 0345 0379 0531 222 6 0766 1443 2248 2839 3015 3295 3689 4035 4263 4340 4365 4653 5213 5473 5045 4199 3262 2310 1450 0888 0609 0476 0388 0331 0318 0321 0335 0390 0486 0553 0537 0482 0393 0328 0361 0511 223 7 0884 1650 2603 3351 3636 4026 4562 5011 5251 5327 5327 5483 5751 5713 5155 4269 3314 2355 1485 0916 0630 0497 0405 0348 0335 0338 0353 0410 0508 0577 0559 0504 0412 0346 0382 0533 224 8 0923 1761 2844 3731 4102 4581 5247 5778 6028 6106 6083 6122 6148 5877 5212 4290 3321 2350 1474 0901 0616 0482 0390 0334 0322 0325 0340 0396 0494 0563 0544 0491 0400 0336 0371 0519 225 9 0968 1880 3069 4089 4550 5137 5945 6578 6829 6900 6848 6734 6488 5999 5250 4304 3324 2347 1467 0892 0605 0472 0381 0326 0314 0319 0333 0390 0488 0555 0539 0483 0394 0328 0364 0512 226 10 1051 1116 1074 0911 0732 0648 0597 0632 0773 0832 0920 1533 3166 5073 5842 5662 5176 4565 3924 3450 3185 3065 2954 2869 2847 2849 2869 2949 3078 3153 3126 3049 2921 2811 2832 3025 227 11 1267 1404 1440 1343 1188 1122 1093 1151 1302 1364 1449 2052 3587 5291 5908 5656 5131 4493 3831 3346 3072 2943 2830 2745 2722 2721 2742 2821 2949 3024 2997 2921 2792 2679 2703 2895 228 12 1549 1781 1901 1887 1762 1733 1744 1826 1991 2053 2130 2699 4095 5583 6067 5770 5232 4591 3929 3445 3169 3037 2920 2834 2812 2812 2831 2911 3037 3112 3082 3007 2878 2768 2794 2986 229 13 1913 2212 2451 2528 2449 2459 2523 2639 2812 2874 2945 3463 4680 5909 6240 5895 5342 4696 4034 3552 3274 3137 3019 2934 2913 2913 2932 3010 3136 3207 3179 3105 2976 2865 2890 3077 230 14 2189 2603 2957 3144 3117 3185 3309 3466 3653 3717 3778 4236 5255 6203 6365 5958 5381 4718 4051 3564 3280 3137 3017 2932 2908 2908 2929 3007 3132 3204 3175 3098 2969 2863 2889 3078 231 15 2515 3022 3521 3828 3885 4023 4228 4439 4629 4692 4740 5099 5864 6503 6498 6033 5431 4754 4074 3581 3291 3142 3020 2933 2909 2910 2929 3007 3132 3204 3177 3100 2967 2860 2882 3074 232 16 2917 3534 4192 4654 4813 5040 5360 5639 5833 5894 5924 6153 6601 6881 6695 6170 5546 4862 4176 3679 3383 3227 3102 3013 2990 2990 3009 3089 3214 3286 3258 3182 3052 2940 2963 3147 233 17 3233 3964 4749 5349 5596 5910 6328 6669 6859 6921 6933 7035 7193 7168 6835 6265 5625 4936 4246 3747 3447 3287 3159 3071 3047 3045 3066 3145 3271 3341 3313 3235 3103 2991 3015 3208 234 18 3431 4269 5160 5894 6238 6648 7173 7574 7754 7811 7796 7752 7626 7347 6903 6298 5647 4947 4252 3749 3443 3278 3150 3059 3035 3034 3054 3134 3260 3330 3299 3222 3091 2981 3002 3195 235 19 1732 1575 1308 1016 0791 0667 0596 0625 0765 0825 0916 1567 3359 5679 6993 7317 7304 7145 6897 6697 6601 6618 6585 6551 6559 6572 6600 6662 6741 6777 6759 6711 6643 6586 6588 6696 236 20 2187 2095 1882 1626 1400 1283 1216 1250 1399 1462 1554 2197 3895 6012 7175 7436 7397 7222 6970 6766 6662 6663 6624 6585 6593 6603 6630 6693 6773 6807 6786 6739 6670 6611 6618 6729 237 21 2664 2642 2497 2299 2103 2007 1950 1997 2151 2211 2297 2907 4465 6344 7343 7533 7465 7269 7002 6792 6679 6665 6619 6579 6583 6594 6622 6684 6764 6798 6778 6730 6659 6601 6610 6720 238 22 3246 3310 3252 3109 2947 2880 2851 2909 3066 3125 3206 3763 5137 6732 7545 7664 7568 7363 7091 6883 6761 6732 6681 6639 6643 6653 6679 6740 6822 6857 6839 6790 6717 6657 6660 6774 239 23 3845 4027 4069 4022 3916 3882 3895 3975 4136 4194 4268 4762 5911 7164 7745 7769 7627 7390 7100 6880 6742 6696 6633 6590 6590 6599 6625 6687 6766 6802 6783 6734 6660 6596 6599 6715 240 24 4398 4673 4851 4903 4864 4888 4949 5054 5206 5258 5319 5711 6588 7499 7883 7835 7657 7406 7107 6886 6740 6679 6612 6567 6567 6574 6601 6660 6741 6774 6751 6702 6629 6566 6566 6682 241 25 5011 5407 5681 5857 5892 5980 6095 6228 6369 6421 6473 6756 7349 7917 8111 7999 7803 7542 7245 7027 6878 6809 6737 6691 6694 6704 6729 6788 6864 6895 6875 6827 6754 6690 6695 6809 242 26 5574 6057 6451 6739 6865 7020 7201 7365 7500 7550 7586 7749 8045 8276 8289 8113 7887 7615 7309 7091 6933 6847 6772 6724 6724 6731 6755 6812 6890 6920 6897 6850 6775 6714 6716 6826 243 27 6021 6607 7128 7533 7758 7987 8244 8438 8553 8597 8621 8632 8609 8531 8400 8177 7934 7651 7340 7118 6956 6864 6783 6734 6735 6740 6763 6821 6896 6927 6906 6859 6784 6722 6721 6832 244 1 0313 0313 0302 0296 0290 0291 0295 0299 0303 0297 0298 0322 0363 0386 0383 0371 0365 0359 0352 0356 0386 0472 0577 0632 0658 0670 0682 0695 0708 0721 0734 0749 0767 0786 0802 0822 245 2 0419 0435 0432 0436 0439 0454 0460 0460 0454 0439 0424 0410 0396 0382 0368 0358 0354 0350 0345 0355 0387 0471 0571 0626 0651 0663 0675 0688 0700 0714 0725 0741 0757 0777 0793 0808 246 3 0618 0649 0676 0704 0717 0749 0781 0784 0755 0703 0647 0598 0551 0500 0453 0420 0402 0378 0352 0352 0399 0559 0782 0908 0960 0981 0993 1012 1034 1052 1058 1057 1053 1052 1065 1104 247 4 0633 0716 0790 0848 0887 0943 1008 1022 0970 0878 0782 0694 0613 0527 0446 0392 0358 0317 0278 0273 0324 0515 0799 0964 1030 1055 1068 1094 1133 1161 1158 1145 1117 1098 1116 1180 248 5 0658 0762 0877 0981 1032 1119 1219 1246 1174 1042 0906 0781 0666 0546 0435 0363 0320 0269 0224 0220 0274 0473 0775 0950 1017 1041 1056 1088 1138 1172 1167 1142 1099 1066 1083 1167 249 6 0644 0823 1008 1161 1240 1363 1505 1547 1450 1277 1093 0928 0774 0613 0467 0371 0315 0251 0194 0187 0240 0443 0748 0919 0984 1008 1022 1063 1129 1174 1164 1129 1066 1017 1040 1144 250 7 0668 0893 1142 1333 1443 1602 1791 1851 1730 1513 1283 1076 0883 0684 0502 0384 0316 0241 0176 0169 0222 0424 0732 0902 0965 0989 1005 1053 1132 1183 1171 1126 1049 0987 1010 1141 251 8 0688 0992 1295 1545 1681 1877 2112 2193 2043 1775 1491 1236 1001 0758 0539 0401 0323 0236 0164 0156 0210 0421 0744 0920 0986 1012 1030 1087 1185 1247 1231 1178 1083 1007 1033 1182 252 9 0688 1029 1394 1677 1828 2057 2328 2423 2255 1956 1635 1349 1085 0816 0570 0418 0332 0238 0161 0152 0205 0403 0701 0856 0912 0933 0951 1011 1116 1185 1165 1108 1004 0920 0949 1114 253 10 0630 0525 0440 0382 0344 0327 0325 0329 0334 0313 0305 0363 0477 0533 0493 0450 0433 0408 0371 0358 0451 1002 1984 2690 3011 3135 3191 3226 3253 3266 3279 3292 3309 3327 3342 3360 254 11 0778 0703 0618 0565 0534 0527 0531 0531 0521 0476 0440 0464 0537 0558 0506 0461 0446 0422 0386 0376 0473 1027 2015 2727 3052 3180 3237 3273 3299 3313 3327 3340 3358 3376 3385 3406 255 12 0987 0904 0827 0783 0769 0782 0796 0792 0754 0673 0600 0573 0579 0550 0484 0439 0425 0402 0369 0367 0467 1014 2000 2719 3052 3185 3243 3279 3304 3320 3332 3347 3362 3380 3392 3413 256 13 1182 1115 1039 1020 1023 1049 1086 1070 1001 0887 0773 0693 0635 0561 0480 0437 0424 0402 0372 0374 0479 1023 2011 2734 3070 3204 3265 3301 3327 3340 3355 3370 3388 3404 3414 3432 257 14 1316 1243 1184 1181 1202 1248 1298 1282 1183 1037 0892 0766 0656 0549 0460 0417 0406 0385 0357 0366 0472 1010 1991 2713 3050 3186 3250 3285 3311 3327 3340 3354 3370 3391 3401 3422 258 15 1434 1399 1372 1387 1426 1494 1573 1560 1432 1237 1042 0875 0725 0582 0461 0400 0381 0348 0308 0311 0425 1030 2166 3009 3408 3567 3640 3697 3749 3779 3785 3779 3762 3747 3759 3819 259 16 1521 1527 1527 1580 1639 1746 1860 1855 1696 1452 1210 0998 0812 0629 0475 0393 0362 0317 0265 0264 0382 1034 2271 3190 3622 3795 3876 3946 4022 4067 4064 4036 3989 3951 3965 4061 260 17 1554 1614 1668 1763 1854 1991 2151 2156 1968 1672 1374 1117 0890 0667 0479 0378 0337 0280 0221 0219 0333 0991 2264 3204 3645 3822 3906 3996 4106 4169 4156 4105 4017 3938 3961 4109 261 18 1505 1622 1749 1891 1994 2162 2358 2382 2173 1845 1513 1225 0970 0719 0505 0388 0338 0271 0204 0200 0304 0921 2118 2992 3401 3565 3644 3744 3873 3950 3932 3866 3745 3637 3657 3846 262 19 0997 0808 0638 0520 0440 0412 0399 0400 0418 0384 0363 0440 0596 0633 0532 0451 0424 0382 0316 0287 0438 1557 3850 5731 6678 7063 7223 7304 7352 7368 7374 7381 7389 7408 7408 7430 263 20 1146 0948 0784 0667 0600 0574 0568 0569 0567 0510 0460 0511 0632 0642 0531 0449 0421 0381 0315 0288 0444 1567 3863 5742 6687 7072 7232 7310 7360 7376 7385 7388 7399 7413 7415 7442 264 21 1314 1128 0958 0847 0780 0771 0776 0772 0747 0660 0580 0596 0676 0656 0533 0450 0424 0381 0313 0290 0452 1588 3891 5774 6723 7109 7268 7351 7399 7414 7423 7429 7436 7453 7453 7475 265 22 1520 1336 1169 1072 1023 1033 1057 1045 0986 0855 0729 0694 0713 0653 0518 0435 0411 0369 0304 0285 0449 1577 3875 5758 6707 7096 7258 7339 7389 7404 7413 7417 7428 7445 7448 7472 266 23 1743 1559 1406 1325 1307 1336 1379 1361 1261 1078 0900 0802 0748 0638 0492 0411 0390 0350 0291 0280 0443 1554 3848 5743 6708 7105 7271 7354 7405 7421 7429 7435 7445 7459 7460 7486 267 24 1954 1783 1623 1567 1573 1628 1694 1667 1528 1296 1071 0912 0793 0643 0485 0403 0383 0343 0286 0279 0447 1557 3843 5730 6691 7085 7249 7331 7381 7398 7408 7415 7423 7439 7442 7462 268 25 2135 1967 1812 1785 1803 1888 1975 1947 1767 1492 1222 1011 0836 0648 0480 0398 0378 0339 0283 0280 0452 1567 3860 5754 6723 7121 7288 7372 7423 7439 7449 7454 7468 7484 7485 7505 269 26 2269 2105 1970 1953 2004 2111 2221 2185 1969 1654 1346 1084 0857 0640 0466 0384 0366 0327 0272 0273 0446 1560 3851 5739 6701 7099 7266 7349 7397 7414 7428 7432 7445 7464 7461 7487 270 27 2290 2186 2080 2083 2147 2269 2407 2372 2131 1780 1438 1147 0895 0658 0464 0373 0351 0307 0249 0249 0417 1541 3883 5814 6799 7207 7380 7485 7570 7608 7608 7586 7553 7525 7528 7607 271 1 0412 0425 0415 0407 0398 0394 0392 0401 0413 0417 0432 0478 0559 0629 0655 0657 0655 0650 0646 0644 0645 0649 0655 0660 0669 0678 0689 0701 0714 0727 0740 0756 0773 0791 0809 0821 272 2 0582 0609 0626 0632 0636 0642 0646 0652 0659 0663 0664 0668 0670 0670 0668 0663 0659 0655 0650 0650 0650 0654 0657 0663 0671 0680 0690 0703 0715 0727 0741 0756 0772 0789 0803 0820 273 3 0752 0825 0901 0952 0977 1015 1056 1072 1064 1031 0997 0962 0925 0879 0825 0774 0729 0677 0620 0590 0605 0691 0795 0847 0866 0876 0885 0902 0926 0943 0945 0942 0931 0927 0941 0983 274 4 0809 0945 1067 1158 1215 1279 1358 1386 1357 1288 1211 1138 1062 0973 0878 0792 0727 0648 0566 0524 0550 0688 0862 0948 0981 0994 1004 1028 1065 1091 1090 1074 1045 1023 1041 1104 275 5 0795 0961 1145 1280 1357 1453 1574 1622 1570 1462 1340 1226 1112 0980 0845 0734 0651 0554 0458 0415 0449 0617 0837 0948 0989 1005 1015 1045 1097 1130 1122 1098 1052 1018 1036 1118 276 6 0813 1026 1268 1461 1555 1694 1856 1925 1850 1700 1529 1372 1216 1041 0864 0726 0626 0512 0402 0354 0391 0577 0829 0956 1002 1019 1033 1073 1139 1183 1173 1137 1074 1024 1048 1160 277 7 0794 1073 1373 1617 1741 1914 2132 2219 2124 1927 1707 1504 1306 1088 0869 0707 0591 0462 0342 0294 0332 0524 0792 0929 0979 0999 1011 1059 1138 1192 1178 1133 1055 0994 1018 1143 278 8 0835 1150 1529 1837 1993 2206 2477 2586 2460 2208 1930 1676 1431 1162 0900 0710 0582 0440 0310 0261 0303 0513 0809 0961 1018 1041 1058 1114 1211 1275 1257 1204 1110 1031 1057 1206 279 9 0818 1174 1604 1941 2124 2375 2685 2813 2667 2380 2062 1772 1494 1193 0902 0697 0559 0410 0276 0229 0273 0474 0752 0888 0936 0956 0975 1034 1137 1204 1184 1124 1021 0941 0969 1128 280 10 0765 0655 0557 0480 0424 0406 0394 0402 0419 0407 0411 0516 0752 0951 0983 0960 0949 0921 0868 0838 0942 1479 2313 2873 3121 3218 3265 3296 3320 3332 3346 3358 3375 3391 3405 3425 281 11 0967 0876 0787 0722 0671 0657 0656 0660 0664 0631 0610 0680 0853 0986 0989 0955 0943 0915 0863 0837 0942 1481 2324 2895 3151 3250 3298 3331 3354 3368 3379 3389 3407 3426 3438 3455 282 12 1225 1170 1090 1039 1006 1010 1018 1016 0998 0937 0881 0899 0987 1037 1005 0963 0947 0918 0867 0847 0956 1489 2329 2900 3157 3259 3307 3339 3361 3374 3386 3400 3413 3432 3442 3463 283 13 1503 1454 1397 1377 1379 1399 1425 1420 1368 1274 1178 1126 1109 1069 1001 0953 0937 0906 0858 0844 0956 1482 2316 2887 3145 3248 3297 3328 3351 3364 3377 3390 3404 3423 3438 3453 284 14 1731 1702 1665 1669 1699 1743 1790 1780 1700 1571 1441 1326 1220 1113 1017 0964 0947 0917 0870 0859 0974 1502 2346 2929 3195 3300 3351 3383 3407 3420 3431 3443 3459 3478 3490 3505 285 15 1814 1809 1818 1857 1900 1980 2060 2057 1948 1775 1594 1436 1291 1142 1007 0926 0891 0837 0764 0738 0854 1454 2454 3152 3473 3604 3664 3714 3765 3793 3798 3791 3773 3759 3771 3830 286 16 1857 1908 1964 2041 2113 2224 2350 2359 2219 1993 1761 1554 1365 1172 0997 0890 0837 0762 0673 0643 0766 1411 2519 3302 3662 3807 3874 3941 4019 4061 4057 4031 3982 3938 3952 4054 287 17 1797 1923 2039 2176 2278 2432 2609 2641 2469 2190 1902 1648 1412 1171 0949 0811 0740 0643 0536 0495 0610 1260 2401 3203 3570 3719 3792 3877 3984 4047 4032 3981 3888 3809 3829 3977 288 18 1747 1920 2112 2297 2421 2608 2831 2876 2685 2370 2039 1750 1480 1202 0947 0789 0704 0594 0475 0432 0541 1166 2259 3017 3363 3502 3569 3666 3794 3869 3848 3782 3660 3556 3579 3760 289 19 1086 0888 0704 0557 0464 0434 0413 0417 0444 0420 0408 0534 0813 0998 0963 0895 0871 0821 0731 0676 0857 2023 4201 5909 6753 7093 7235 7310 7354 7368 7377 7380 7391 7406 7405 7430 290 20 1282 1104 0910 0779 0694 0661 0650 0650 0660 0612 0575 0674 0916 1065 1014 0942 0917 0866 0774 0722 0908 2080 4252 5953 6794 7133 7277 7351 7395 7411 7420 7419 7427 7447 7446 7470 291 21 1503 1313 1138 1012 0940 0916 0915 0913 0904 0827 0759 0821 1007 1106 1033 0956 0932 0878 0787 0738 0926 2103 4274 5971 6808 7146 7289 7363 7409 7423 7432 7435 7444 7460 7460 7486 292 22 1753 1584 1416 1306 1252 1249 1259 1253 1214 1097 0987 0994 1106 1140 1042 0960 0935 0883 0792 0746 0938 2109 4276 5977 6820 7163 7306 7382 7423 7438 7447 7450 7460 7474 7474 7498 293 23 2041 1874 1722 1638 1605 1630 1664 1650 1570 1406 1245 1186 1203 1157 1029 0942 0916 0864 0777 0740 0932 2092 4259 5967 6816 7159 7308 7383 7428 7442 7450 7454 7466 7482 7483 7504 294 24 2327 2181 2042 1986 1980 2029 2090 2073 1951 1738 1525 1394 1321 1204 1050 0957 0931 0877 0791 0758 0955 2117 4282 5989 6841 7187 7334 7406 7452 7467 7477 7480 7491 7506 7507 7534 295 25 2561 2428 2299 2275 2300 2378 2467 2440 2281 2021 1763 1565 1405 1227 1050 0953 0928 0875 0790 0760 0959 2118 4280 5989 6844 7193 7340 7414 7461 7476 7484 7490 7502 7517 7517 7535 296 26 2729 2618 2508 2502 2557 2665 2774 2747 2547 2249 1950 1695 1464 1239 1046 0947 0921 0867 0784 0758 0959 2118 4275 5980 6831 7178 7326 7398 7446 7461 7471 7475 7487 7505 7506 7529 297 27 2742 2657 2589 2614 2683 2812 2955 2931 2705 2366 2028 1735 1475 1219 0998 0884 0848 0781 0685 0652 0848 2029 4254 6004 6877 7235 7389 7488 7572 7605 7605 7583 7544 7516 7519 7598 298 1 0553 0564 0548 0529 0501 0490 0491 0504 0530 0539 0565 0678 0915 1147 1233 1219 1177 1116 1049 1000 0971 0961 0950 0943 0944 0948 0956 0972 0992 1008 1014 1014 1010 1008 1021 1055 299 2 0660 0737 0771 0794 0790 0798 0812 0830 0858 0865 0881 0955 1097 1216 1239 1195 1131 1053 0969 0908 0869 0852 0838 0829 0827 0831 0838 0854 0876 0892 0895 0891 0883 0876 0894 0934 300 3 0904 1019 1121 1205 1239 1276 1319 1350 1365 1367 1368 1365 1353 1328 1287 1223 1151 1068 0983 0920 0881 0860 0844 0834 0835 0837 0845 0861 0883 0899 0901 0898 0888 0883 0899 0938 301 4 1022 1188 1369 1491 1557 1633 1721 1775 1774 1742 1700 1655 1602 1526 1425 1313 1202 1075 0945 0858 0837 0890 0953 0975 0984 0989 1000 1023 1059 1081 1079 1064 1037 1017 1033 1095 302 5 0997 1226 1463 1652 1741 1854 1994 2068 2053 1981 1891 1800 1701 1571 1416 1259 1120 0962 0802 0705 0699 0806 0933 0987 1009 1018 1028 1057 1107 1137 1130 1107 1062 1030 1051 1130 303 6 0982 1274 1580 1828 1941 2094 2286 2386 2346 2227 2084 1945 1795 1612 1406 1218 1057 0877 0697 0595 0599 0741 0918 0997 1026 1038 1050 1090 1156 1199 1187 1150 1088 1041 1064 1173 304 7 0928 1264 1636 1936 2080 2279 2523 2644 2576 2409 2208 2019 1821 1586 1333 1114 0940 0745 0558 0461 0475 0643 0857 0958 0995 1011 1024 1069 1150 1202 1188 1143 1064 1002 1029 1156 305 8 0950 1330 1769 2129 2310 2553 2862 3007 2915 2693 2435 2190 1943 1655 1352 1107 0915 0706 0508 0412 0433 0617 0860 0973 1015 1033 1049 1106 1200 1264 1246 1192 1097 1022 1051 1198 306 9 0914 1335 1837 2241 2440 2717 3069 3232 3113 2853 2550 2265 1982 1656 1322 1058 0859 0642 0441 0348 0370 0556 0802 0914 0954 0970 0986 1047 1152 1221 1202 1140 1036 0956 0985 1141 307 10 0890 0805 0701 0594 0526 0490 0476 0484 0518 0519 0539 0710 1120 1543 1716 1738 1744 1724 1672 1638 1723 2125 2657 2986 3132 3190 3222 3246 3267 3279 3291 3302 3315 3336 3349 3359 308 11 1156 1093 0997 0910 0851 0826 0815 0820 0841 0830 0829 0959 1268 1565 1665 1666 1663 1638 1585 1551 1642 2061 2628 2983 3139 3201 3236 3260 3281 3291 3301 3310 3328 3346 3359 3375 309 12 1483 1450 1388 1329 1291 1281 1278 1280 1286 1249 1224 1296 1486 1654 1685 1665 1656 1626 1572 1541 1634 2058 2634 2997 3157 3219 3255 3279 3297 3308 3319 3329 3347 3364 3373 3393 310 13 1891 1887 1850 1832 1825 1837 1856 1855 1835 1774 1714 1711 1768 1802 1773 1734 1720 1689 1633 1608 1702 2119 2698 3067 3231 3298 3334 3359 3378 3388 3397 3408 3426 3441 3448 3464 311 14 2152 2198 2201 2226 2249 2290 2331 2328 2281 2191 2098 2015 1935 1848 1769 1715 1697 1661 1607 1584 1680 2094 2673 3043 3209 3275 3309 3335 3355 3364 3374 3384 3402 3418 3428 3445 312 15 2232 2328 2378 2442 2489 2568 2654 2663 2586 2445 2296 2162 2033 1892 1756 1661 1609 1533 1431 1378 1482 2009 2791 3303 3532 3625 3671 3716 3763 3788 3788 3779 3761 3746 3755 3818 313 16 2197 2304 2420 2541 2619 2742 2877 2909 2801 2608 2403 2216 2037 1840 1649 1514 1430 1321 1184 1112 1217 1809 2726 3334 3609 3718 3775 3838 3912 3953 3945 3916 3863 3815 3832 3932 314 17 2135 2333 2534 2721 2840 3012 3214 3271 3137 2890 2624 2382 2149 1893 1642 1462 1346 1198 1030 0940 1041 1652 2625 3271 3563 3681 3744 3825 3929 3989 3974 3921 3827 3746 3766 3916 315 18 2052 2303 2570 2810 2951 3156 3406 3484 3327 3039 2729 2449 2181 1887 1601 1395 1262 1096 0913 0820 0913 1510 2478 3119 3410 3527 3590 3681 3808 3882 3860 3791 3668 3563 3582 3768 316 19 1206 1001 0787 0626 0516 0467 0443 0448 0488 0476 0477 0665 1112 1508 1586 1549 1536 1485 1375 1301 1502 2663 4638 6122 6841 7128 7254 7319 7361 7374 7379 7383 7388 7406 7406 7429 317 20 1442 1268 1057 0905 0798 0760 0738 0744 0770 0735 0711 0867 1258 1590 1634 1587 1572 1519 1408 1336 1540 2701 4675 6158 6878 7168 7291 7358 7399 7410 7416 7421 7430 7444 7447 7469 318 21 1741 1571 1376 1235 1144 1111 1098 1098 1108 1046 0995 1116 1446 1710 1723 1665 1647 1590 1477 1405 1614 2785 4745 6202 6908 7188 7309 7375 7416 7428 7433 7437 7448 7464 7461 7486 319 22 2040 1893 1719 1597 1523 1507 1512 1508 1490 1397 1309 1375 1620 1799 1769 1700 1680 1621 1508 1441 1652 2818 4773 6230 6937 7222 7344 7406 7448 7460 7466 7467 7477 7492 7491 7511 320 23 2394 2262 2107 2015 1972 1980 2005 1996 1947 1809 1677 1673 1804 1869 1789 1708 1683 1624 1514 1451 1662 2817 4768 6228 6939 7225 7347 7414 7453 7464 7472 7475 7483 7500 7496 7520 321 24 2762 2654 2533 2473 2465 2507 2560 2550 2458 2273 2086 1997 1997 1946 1817 1722 1693 1631 1520 1462 1678 2836 4786 6251 6964 7253 7375 7441 7481 7494 7500 7503 7517 7533 7527 7549 322 25 3042 2957 2872 2853 2871 2947 3028 3017 2884 2655 2423 2257 2143 1997 1828 1723 1692 1629 1520 1467 1685 2837 4788 6254 6971 7261 7387 7452 7490 7500 7508 7512 7525 7540 7543 7561 323 26 3313 3259 3182 3209 3269 3378 3484 3468 3297 3028 2756 2514 2294 2069 1870 1759 1726 1662 1553 1504 1722 2870 4816 6279 6993 7283 7410 7475 7515 7524 7533 7537 7547 7564 7564 7582 324 27 3287 3258 3223 3282 3358 3491 3633 3625 3427 3113 2797 2518 2265 2007 1777 1644 1595 1509 1381 1323 1530 2706 4768 6337 7109 7424 7562 7651 7728 7758 7753 7732 7699 7673 7673 7744 325 1 0540 0580 0594 0565 0524 0507 0504 0523 0569 0586 0621 0801 1212 1625 1764 1708 1589 1439 1276 1156 1086 1055 1028 1008 1004 1005 1012 1036 1072 1096 1094 1081 1056 1037 1056 1117 326 2 0717 0806 0878 0898 0879 0885 0907 0939 0986 1002 1028 1173 1482 1762 1827 1739 1600 1433 1260 1132 1058 1021 0991 0971 0966 0968 0974 0998 1034 1058 1056 1042 1015 0995 1011 1073 327 3 0942 1113 1260 1357 1387 1426 1482 1535 1577 1591 1602 1677 1820 1919 1891 1774 1624 1451 1275 1144 1066 1027 0997 0976 0972 0972 0979 1002 1040 1063 1061 1046 1018 0997 1015 1077 328 4 1167 1398 1621 1794 1862 1949 2053 2127 2163 2169 2165 2154 2127 2067 1971 1831 1672 1494 1312 1180 1100 1058 1024 1003 0998 1000 1008 1033 1069 1093 1090 1074 1045 1023 1042 1107 329 5 1161 1445 1764 2009 2118 2248 2413 2523 2545 2519 2470 2413 2336 2214 2045 1842 1634 1403 1170 1013 0949 0970 0999 1000 1002 1007 1015 1045 1095 1127 1118 1092 1049 1015 1035 1118 330 6 1167 1519 1911 2232 2372 2559 2784 2926 2931 2857 2753 2645 2512 2323 2087 1833 1591 1322 1055 0884 0835 0906 0989 1014 1024 1029 1041 1079 1145 1187 1176 1139 1076 1029 1052 1161 331 7 1097 1494 1955 2325 2493 2723 3009 3175 3149 3018 2851 2680 2490 2242 1946 1659 1403 1124 0851 0689 0664 0785 0932 0990 1012 1023 1036 1083 1161 1212 1198 1152 1075 1015 1038 1164 332 8 1089 1572 2118 2559 2772 3055 3408 3609 3557 3372 3141 2909 2661 2348 1991 1662 1380 1073 0778 0610 0592 0738 0917 0988 1016 1028 1043 1101 1198 1262 1243 1187 1090 1014 1045 1195 333 9 1001 1497 2075 2539 2768 3074 3469 3677 3595 3361 3076 2801 2514 2167 1786 1454 1185 0895 0621 0476 0472 0633 0833 0918 0947 0963 0977 1039 1142 1211 1192 1131 1025 0943 0974 1133 334 10 1043 0942 0812 0690 0602 0559 0535 0545 0593 0607 0644 0875 1446 2090 2407 2488 2516 2510 2474 2450 2503 2731 2986 3130 3196 3224 3248 3270 3288 3296 3307 3318 3333 3351 3362 3379 335 11 1405 1334 1239 1138 1063 1026 1006 1015 1059 1064 1087 1281 1746 2239 2468 2519 2535 2523 2483 2458 2513 2747 3015 3172 3243 3274 3297 3318 3334 3343 3354 3363 3379 3395 3404 3422 336 12 1829 1807 1749 1689 1634 1617 1606 1613 1644 1635 1638 1768 2078 2385 2512 2525 2527 2509 2467 2444 2499 2743 3038 3214 3293 3327 3351 3369 3386 3395 3403 3413 3427 3443 3454 3471 337 13 2231 2271 2256 2241 2230 2230 2236 2245 2255 2229 2205 2256 2394 2517 2549 2532 2524 2500 2456 2434 2489 2736 3041 3224 3306 3339 3361 3381 3399 3408 3417 3426 3440 3457 3465 3477 338 14 2664 2757 2798 2839 2867 2905 2939 2948 2933 2885 2836 2792 2745 2692 2643 2601 2582 2554 2508 2488 2542 2783 3088 3272 3357 3391 3414 3433 3451 3456 3464 3472 3489 3507 3509 3528 339 15 2713 2857 2986 3084 3149 3232 3324 3355 3318 3222 3122 3026 2926 2808 2685 2578 2504 2405 2277 2197 2255 2632 3144 3459 3602 3659 3691 3733 3779 3802 3799 3788 3766 3750 3763 3823 340 16 2602 2806 2993 3161 3263 3394 3548 3608 3538 3388 3220 3062 2901 2713 2512 2345 2224 2071 1886 1770 1843 2338 3034 3465 3658 3737 3780 3841 3912 3950 3942 3912 3855 3806 3822 3924 341 17 2552 2826 3098 3342 3481 3669 3892 3982 3883 3675 3442 3224 3005 2747 2478 2259 2098 1898 1668 1527 1598 2147 2957 3467 3697 3791 3841 3921 4024 4083 4065 4012 3919 3836 3856 4004 342 18 2385 2707 3034 3324 3488 3716 3988 4097 3973 3717 3435 3171 2907 2604 2291 2042 1861 1640 1394 1248 1319 1883 2742 3292 3539 3638 3696 3789 3913 3982 3959 3891 3768 3666 3684 3867 343 19 1339 1129 0899 0706 0572 0512 0477 0485 0544 0545 0561 0823 1481 2160 2406 2424 2433 2385 2266 2176 2385 3486 5185 6393 6973 7203 7306 7365 7399 7409 7415 7415 7427 7440 7443 7463 344 20 1647 1453 1238 1052 0927 0876 0842 0850 0896 0877 0874 1106 1696 2282 2476 2476 2478 2428 2308 2223 2431 3527 5223 6434 7011 7242 7343 7402 7437 7446 7450 7452 7462 7478 7473 7494 345 21 1999 1827 1624 1465 1355 1309 1286 1292 1322 1281 1250 1443 1948 2429 2569 2552 2549 2496 2375 2292 2503 3593 5279 6482 7055 7287 7387 7443 7482 7489 7491 7495 7503 7520 7520 7537 346 22 2389 2275 2100 1970 1878 1852 1844 1845 1856 1783 1719 1853 2246 2605 2682 2646 2635 2579 2458 2378 2588 3669 5335 6520 7084 7310 7410 7465 7502 7506 7509 7510 7522 7537 7536 7555 347 23 2818 2700 2570 2472 2408 2408 2419 2421 2403 2298 2196 2261 2522 2736 2740 2682 2664 2605 2483 2408 2618 3692 5354 6542 7111 7341 7440 7496 7534 7541 7545 7547 7557 7576 7573 7590 348 24 3267 3204 3102 3050 3034 3062 3108 3105 3049 2901 2754 2727 2830 2888 2816 2735 2710 2646 2524 2451 2664 3736 5391 6568 7133 7362 7461 7517 7552 7561 7565 7567 7579 7595 7594 7612 349 25 3650 3639 3585 3580 3606 3674 3753 3748 3656 3470 3278 3159 3104 3016 2877 2777 2746 2680 2558 2492 2706 3766 5415 6599 7168 7397 7501 7558 7591 7595 7601 7601 7612 7630 7628 7646 350 26 3963 3968 3949 3993 4066 4173 4279 4278 4146 3920 3688 3479 3286 3080 2892 2779 2743 2675 2554 2492 2704 3758 5403 6585 7155 7383 7486 7541 7576 7584 7589 7592 7605 7621 7613 7635 351 27 3783 3851 3879 3962 4050 4187 4339 4344 4179 3901 3613 3355 3114 2860 2623 2473 2408 2303 2144 2054 2262 3388 5207 6529 7168 7426 7545 7625 7696 7726 7718 7694 7658 7628 7631 7704 352 1 0531 0607 0635 0603 0543 0522 0515 0542 0604 0628 0673 0924 1521 2130 2319 2200 1985 1725 1456 1262 1154 1105 1061 1029 1022 1023 1031 1061 1112 1143 1139 1114 1070 1038 1057 1140 353 2 0702 0825 0919 0943 0909 0910 0930 0972 1041 1066 1103 1323 1815 2277 2380 2231 1999 1727 1449 1249 1137 1083 1039 1007 0998 0999 1006 1038 1087 1118 1112 1088 1044 1012 1031 1117 354 3 0922 1116 1287 1390 1399 1436 1497 1567 1635 1660 1685 1848 2181 2455 2459 2277 2034 1756 1476 1273 1158 1100 1054 1023 1016 1016 1023 1055 1105 1139 1131 1107 1062 1028 1050 1133 355 4 1153 1436 1726 1934 1999 2096 2228 2330 2398 2418 2428 2500 2631 2686 2583 2363 2100 1807 1517 1310 1189 1127 1080 1048 1041 1041 1050 1082 1131 1164 1156 1132 1085 1050 1072 1160 356 5 1286 1627 1994 2288 2408 2562 2748 2886 2946 2959 2951 2930 2879 2772 2600 2357 2086 1791 1500 1293 1174 1111 1063 1033 1026 1027 1035 1066 1116 1147 1139 1114 1069 1035 1057 1141 357 6 1326 1754 2231 2613 2779 2988 3250 3435 3484 3461 3404 3331 3223 3041 2781 2465 2136 1779 1425 1184 1075 1066 1065 1049 1047 1049 1060 1101 1167 1207 1195 1159 1095 1045 1069 1176 358 7 1300 1763 2338 2792 2998 3264 3604 3824 3858 3785 3666 3534 3364 3109 2774 2399 2031 1634 1251 1001 0910 0955 1014 1026 1031 1038 1050 1099 1178 1230 1215 1169 1090 1029 1054 1182 359 8 1265 1819 2472 3012 3260 3585 4003 4266 4273 4145 3956 3760 3523 3192 2779 2354 1957 1532 1122 0868 0794 0882 0988 1020 1033 1042 1056 1113 1211 1275 1256 1200 1103 1028 1059 1207 360 9 1151 1714 2395 2951 3221 3571 4030 4300 4272 4084 3832 3576 3291 2917 2473 2047 1672 1271 0891 0669 0622 0741 0888 0937 0956 0968 0983 1045 1149 1217 1197 1136 1032 0947 0978 1137 361 10 1123 1031 0899 0765 0664 0614 0584 0596 0656 0680 0728 1006 1703 2528 2979 3118 3168 3184 3173 3169 3179 3214 3229 3237 3251 3261 3278 3294 3311 3318 3329 3341 3355 3375 3383 3403 362 11 1542 1494 1391 1282 1195 1147 1120 1133 1191 1213 1256 1500 2083 2744 3094 3199 3235 3241 3229 3227 3230 3257 3265 3273 3285 3296 3312 3329 3344 3352 3360 3370 3386 3404 3408 3426 363 12 2070 2085 2031 1964 1906 1870 1855 1866 1922 1937 1970 2159 2580 3030 3260 3319 3338 3338 3322 3320 3316 3332 3337 3343 3355 3363 3376 3392 3408 3414 3422 3428 3443 3461 3470 3488 364 13 2581 2658 2663 2652 2635 2628 2629 2643 2683 2695 2714 2821 3046 3269 3378 3397 3401 3391 3373 3371 3364 3369 3369 3373 3384 3390 3404 3420 3433 3438 3447 3456 3469 3485 3493 3513 365 14 3149 3292 3368 3434 3466 3494 3524 3543 3564 3566 3569 3573 3573 3570 3568 3551 3539 3523 3503 3502 3489 3485 3480 3482 3492 3501 3511 3525 3538 3543 3550 3556 3569 3586 3590 3604 366 15 3159 3373 3542 3689 3760 3850 3943 3995 3995 3951 3896 3843 3780 3697 3597 3487 3394 3276 3133 3037 3040 3237 3483 3624 3688 3717 3738 3773 3815 3838 3835 3822 3796 3780 3790 3848 367 16 3047 3333 3588 3798 3913 4057 4220 4302 4278 4180 4062 3949 3822 3661 3477 3295 3142 2953 2733 2585 2601 2941 3398 3669 3793 3843 3878 3930 3999 4034 4025 3993 3937 3890 3900 4004 368 17 3006 3376 3730 4033 4190 4400 4644 4770 4724 4569 4384 4207 4012 3769 3491 3232 3016 2756 2461 2263 2286 2721 3319 3675 3833 3897 3941 4016 4115 4170 4152 4098 4003 3921 3938 4085 369 18 2753 3156 3562 3907 4090 4338 4636 4774 4691 4474 4220 3979 3726 3420 3083 2790 2557 2280 1967 1766 1807 2320 3043 3480 3673 3752 3800 3888 4014 4085 4060 3990 3866 3760 3779 3962 370 19 1501 1279 1032 0808 0646 0563 0520 0534 0612 0629 0668 1027 1968 3046 3556 3671 3718 3691 3582 3496 3687 4604 5871 6723 7121 7280 7359 7406 7440 7444 7447 7447 7458 7475 7480 7495 371 20 1878 1675 1444 1232 1082 1009 0968 0980 1050 1051 1070 1397 2232 3152 3562 3641 3672 3638 3526 3440 3633 4565 5865 6740 7148 7312 7392 7440 7471 7477 7480 7483 7492 7507 7507 7525 372 21 2244 2091 1889 1707 1572 1509 1477 1488 1543 1525 1520 1797 2512 3269 3582 3628 3646 3606 3492 3410 3601 4539 5864 6762 7185 7355 7436 7485 7516 7520 7524 7524 7533 7550 7551 7569 373 22 2742 2632 2462 2313 2213 2172 2153 2160 2200 2158 2124 2341 2915 3499 3718 3731 3740 3693 3579 3498 3693 4617 5925 6812 7232 7401 7481 7531 7561 7563 7566 7569 7578 7593 7591 7611 374 23 3296 3238 3106 3008 2935 2922 2925 2938 2953 2884 2821 2966 3382 3778 3894 3875 3871 3820 3704 3629 3819 4721 5998 6864 7270 7434 7512 7559 7589 7591 7596 7596 7605 7623 7619 7634 375 24 3744 3745 3677 3630 3591 3618 3649 3660 3648 3548 3451 3506 3746 3957 3977 3928 3913 3856 3739 3666 3854 4751 6031 6903 7314 7479 7560 7606 7633 7637 7641 7644 7652 7672 7667 7686 376 25 4272 4321 4312 4325 4349 4407 4473 4488 4445 4314 4178 4129 4169 4174 4095 4014 3989 3927 3812 3745 3929 4806 6068 6933 7345 7508 7590 7635 7664 7667 7669 7669 7680 7696 7692 7711 377 26 4662 4769 4820 4895 4979 5086 5192 5208 5124 4957 4781 4624 4468 4302 4144 4040 4006 3938 3818 3756 3938 4817 6077 6941 7353 7515 7594 7637 7665 7669 7673 7674 7686 7702 7696 7713 378 27 4396 4511 4598 4718 4826 4969 5124 5150 5026 4791 4545 4322 4106 3869 3641 3484 3407 3284 3103 2993 3183 4207 5753 6833 7346 7553 7652 7724 7793 7817 7810 7784 7749 7718 7719 7792 379 1 0559 0661 0706 0667 0592 0556 0548 0580 0659 0693 0746 1077 1885 2722 2964 2769 2437 2046 1654 1375 1220 1146 1087 1044 1032 1032 1040 1080 1147 1191 1180 1144 1081 1032 1054 1165 380 2 0719 0865 0986 1005 0962 0952 0972 1022 1111 1145 1196 1502 2207 2887 3039 2813 2467 2069 1669 1383 1223 1146 1085 1041 1028 1027 1037 1078 1145 1189 1179 1142 1079 1031 1057 1161 381 3 0907 1126 1345 1446 1442 1470 1536 1618 1714 1747 1785 2040 2597 3089 3139 2877 2517 2110 1705 1417 1255 1178 1113 1068 1056 1057 1067 1107 1175 1218 1207 1170 1106 1057 1082 1191 382 4 1109 1435 1770 1987 2033 2127 2259 2382 2483 2515 2537 2711 3062 3311 3237 2933 2556 2138 1726 1435 1271 1188 1123 1078 1066 1067 1077 1119 1185 1228 1217 1178 1115 1067 1089 1198 383 5 1280 1689 2129 2464 2579 2741 2954 3131 3227 3255 3263 3333 3456 3468 3279 2937 2545 2121 1705 1412 1246 1162 1097 1053 1043 1045 1053 1093 1158 1201 1189 1153 1089 1043 1066 1176 384 6 1415 1897 2442 2870 3058 3287 3578 3798 3888 3912 3896 3863 3784 3616 3348 2980 2577 2145 1724 1427 1258 1170 1106 1062 1050 1051 1062 1103 1170 1211 1200 1161 1097 1051 1075 1181 385 7 1443 1995 2644 3192 3424 3726 4112 4393 4481 4465 4398 4306 4160 3904 3534 3076 2603 2100 1616 1288 1133 1100 1081 1053 1046 1047 1059 1108 1188 1240 1224 1178 1098 1038 1066 1195 386 8 1429 2057 2819 3446 3732 4093 4573 4902 4965 4895 4754 4594 4376 4034 3574 3053 2540 1997 1478 1140 1006 1029 1065 1063 1063 1070 1083 1142 1240 1303 1286 1226 1131 1054 1083 1234 387 9 1325 1985 2803 3478 3790 4201 4737 5092 5136 5015 4817 4599 4327 3926 3411 2861 2340 1791 1273 0950 0835 0885 0956 0967 0973 0981 0996 1058 1162 1232 1210 1149 1043 0960 0990 1155 388 10 1239 1141 1003 0842 0713 0646 0611 0627 0705 0739 0798 1162 2102 3235 3840 3986 3985 3919 3813 3729 3689 3701 3690 3680 3686 3696 3713 3747 3787 3808 3809 3800 3780 3767 3777 3834 389 11 1630 1594 1487 1361 1250 1194 1159 1181 1262 1293 1346 1682 2511 3471 3967 4070 4052 3980 3870 3787 3742 3744 3729 3717 3723 3732 3749 3780 3820 3842 3839 3830 3810 3796 3808 3862 390 12 2092 2117 2080 2003 1920 1884 1866 1897 1974 2003 2048 2334 3005 3744 4105 4157 4117 4028 3909 3821 3769 3760 3740 3725 3729 3738 3752 3784 3825 3845 3844 3835 3813 3798 3810 3864 391 13 2571 2692 2744 2742 2701 2697 2708 2748 2821 2844 2879 3089 3556 4031 4236 4229 4160 4053 3921 3826 3761 3740 3713 3694 3696 3702 3717 3751 3790 3810 3808 3797 3773 3758 3768 3826 392 14 3041 3261 3405 3483 3507 3540 3592 3645 3708 3727 3746 3863 4099 4313 4376 4314 4223 4104 3964 3863 3789 3755 3724 3704 3707 3711 3726 3759 3798 3818 3814 3800 3777 3759 3772 3828 393 15 3553 3823 4062 4230 4316 4406 4503 4574 4617 4626 4629 4630 4617 4581 4527 4429 4323 4196 4054 3955 3878 3838 3800 3779 3781 3786 3800 3832 3871 3891 3889 3873 3847 3829 3839 3894 394 16 3507 3868 4193 4459 4587 4746 4924 5033 5063 5025 4964 4903 4818 4691 4526 4326 4137 3910 3654 3472 3421 3575 3765 3860 3909 3930 3953 4006 4072 4104 4093 4059 4003 3955 3966 4071 395 17 3352 3785 4212 4562 4740 4965 5231 5387 5386 5283 5146 5008 4848 4623 4348 4060 3799 3490 3149 2912 2880 3187 3602 3837 3947 3994 4027 4098 4197 4251 4230 4175 4082 3999 4018 4161 396 18 3113 3636 4135 4550 4761 5036 5367 5549 5523 5364 5163 4963 4740 4446 4098 3753 3450 3099 2713 2451 2430 2816 3342 3643 3779 3835 3877 3962 4083 4152 4125 4055 3932 3824 3850 4031 397 19 1636 1427 1140 0891 0706 0614 0562 0578 0673 0702 0757 1194 2357 3758 4498 4709 4796 4794 4707 4636 4798 5512 6402 6967 7226 7332 7391 7431 7459 7466 7464 7465 7473 7489 7488 7507 398 20 2048 1872 1625 1392 1214 1133 1080 1096 1185 1207 1249 1659 2727 3979 4622 4798 4867 4858 4771 4702 4859 5563 6453 7021 7285 7392 7452 7490 7519 7520 7521 7520 7533 7551 7549 7565 399 21 2513 2378 2176 1966 1808 1735 1686 1703 1787 1795 1821 2191 3135 4204 4731 4861 4917 4902 4810 4743 4899 5600 6492 7067 7335 7443 7501 7542 7569 7567 7571 7571 7579 7598 7593 7608 400 22 3071 2974 2812 2659 2533 2476 2449 2466 2535 2523 2524 2824 3585 4408 4786 4864 4898 4871 4776 4710 4866 5573 6488 7082 7357 7470 7530 7568 7593 7596 7597 7597 7606 7623 7620 7635 401 23 3605 3586 3478 3372 3288 3265 3257 3278 3326 3288 3260 3476 4032 4598 4826 4852 4865 4826 4725 4661 4817 5537 6486 7104 7394 7508 7568 7609 7635 7636 7635 7638 7648 7665 7656 7677 402 24 4186 4240 4195 4150 4120 4131 4158 4178 4204 4145 4089 4211 4566 4903 5012 4996 4993 4949 4848 4787 4940 5637 6559 7159 7440 7554 7616 7655 7679 7679 7681 7680 7692 7710 7704 7716 403 25 4735 4848 4881 4908 4940 4992 5053 5081 5080 4995 4909 4924 5054 5153 5141 5084 5066 5015 4913 4858 5005 5687 6599 7199 7479 7592 7652 7689 7714 7711 7713 7716 7723 7741 7737 7755 404 26 5233 5421 5522 5634 5727 5834 5936 5970 5929 5815 5696 5587 5478 5353 5237 5151 5121 5065 4963 4909 5052 5720 6629 7229 7512 7626 7686 7723 7747 7747 7746 7746 7756 7769 7769 7780 405 27 5066 5297 5469 5638 5767 5918 6080 6137 6067 5900 5717 5549 5380 5182 4985 4827 4736 4604 4411 4284 4425 5238 6391 7164 7530 7680 7752 7816 7879 7899 7889 7866 7823 7792 7795 7863 406 1 0552 0687 0767 0724 0631 0586 0570 0605 0707 0750 0814 1229 2257 3327 3612 3325 2861 2331 1810 1446 1250 1157 1083 1031 1015 1015 1025 1073 1153 1205 1190 1146 1069 1008 1034 1157 407 2 0711 0892 1038 1061 0992 0976 0991 1053 1160 1203 1261 1648 2572 3488 3690 3377 2908 2375 1852 1485 1285 1189 1113 1058 1043 1042 1053 1103 1185 1237 1222 1176 1096 1037 1061 1188 408 3 0857 1130 1359 1454 1427 1448 1509 1601 1716 1763 1813 2161 2952 3679 3774 3422 2938 2398 1873 1505 1305 1208 1131 1077 1064 1063 1075 1122 1204 1257 1242 1194 1115 1055 1078 1210 409 4 1070 1406 1773 1981 2009 2087 2217 2356 2488 2531 2572 2855 3462 3948 3908 3507 3001 2445 1908 1531 1325 1223 1144 1090 1075 1074 1086 1135 1217 1272 1255 1209 1128 1064 1092 1225 410 5 1260 1712 2214 2570 2683 2849 3083 3285 3419 3462 3482 3656 3996 4187 3998 3548 3017 2449 1904 1524 1315 1211 1132 1080 1065 1065 1075 1125 1205 1258 1242 1194 1116 1057 1083 1212 411 6 1421 1939 2561 3033 3218 3456 3775 4033 4171 4214 4214 4287 4408 4370 4072 3587 3043 2467 1916 1533 1322 1214 1135 1082 1067 1068 1079 1129 1209 1262 1246 1197 1118 1056 1081 1212 412 7 1519 2132 2856 3448 3704 4028 4449 4765 4898 4933 4910 4861 4746 4505 4122 3609 3054 2471 1915 1528 1316 1207 1126 1072 1059 1059 1071 1120 1201 1254 1238 1190 1111 1048 1074 1203 413 8 1566 2282 3153 3872 4197 4604 5149 5549 5683 5681 5601 5486 5296 4949 4442 3816 3172 2499 1861 1431 1227 1166 1124 1083 1073 1076 1090 1149 1247 1310 1290 1231 1134 1057 1088 1241 414 9 1474 2209 3126 3899 4251 4706 5309 5742 5846 5789 5637 5458 5201 4783 4208 3555 2908 2237 1607 1199 1027 1019 1027 1009 1006 1010 1024 1086 1193 1262 1241 1175 1069 0988 1018 1184 415 10 1266 1194 1047 0869 0713 0636 0593 0615 0715 0756 0824 1273 2458 3901 4644 4768 4690 4521 4299 4122 4032 4019 3985 3956 3958 3966 3985 4032 4097 4130 4123 4093 4042 4001 4014 4107 416 11 1612 1607 1516 1375 1236 1175 1139 1168 1272 1312 1375 1801 2875 4134 4753 4825 4723 4536 4303 4122 4023 4000 3963 3931 3928 3934 3954 4002 4065 4099 4089 4057 4006 3965 3976 4072 417 12 2014 2083 2073 1999 1894 1850 1839 1882 1989 2028 2085 2468 3389 4413 4877 4883 4746 4536 4284 4094 3982 3944 3897 3863 3859 3866 3882 3928 3996 4030 4019 3987 3934 3888 3902 3998 418 13 2451 2626 2703 2706 2646 2636 2659 2721 2831 2868 2915 3236 3965 4717 5014 4954 4784 4551 4286 4087 3964 3912 3860 3820 3816 3822 3838 3886 3953 3986 3976 3942 3884 3837 3852 3946 419 14 2915 3170 3350 3447 3442 3483 3548 3632 3733 3766 3800 4031 4528 5005 5153 5042 4854 4614 4347 4147 4020 3959 3903 3863 3859 3862 3877 3923 3988 4022 4012 3977 3918 3871 3886 3985 420 15 3417 3738 4032 4221 4289 4381 4498 4608 4701 4726 4749 4876 5125 5321 5323 5163 4956 4709 4441 4242 4110 4039 3978 3940 3936 3938 3953 3999 4065 4095 4082 4051 3993 3946 3960 4057 421 16 3779 4232 4619 4925 5076 5232 5421 5559 5635 5656 5660 5655 5625 5548 5417 5215 4991 4735 4461 4260 4121 4045 3980 3939 3934 3934 3953 3999 4064 4095 4084 4050 3992 3946 3957 4054 422 17 3807 4353 4892 5316 5532 5781 6084 6291 6362 6334 6273 6201 6090 5901 5634 5300 4965 4581 4167 3868 3743 3835 3956 4003 4031 4048 4072 4138 4234 4286 4265 4210 4113 4035 4048 4193 423 18 3517 4104 4694 5178 5425 5720 6088 6322 6355 6254 6111 5959 5770 5490 5130 4735 4362 3937 3479 3159 3072 3314 3639 3811 3891 3927 3962 4044 4165 4230 4202 4130 4006 3902 3923 4103 424 19 1787 1540 1240 0967 0758 0658 0595 0612 0726 0768 0840 1359 2762 4536 5548 5876 6010 6043 5993 5948 6065 6509 6960 7215 7335 7388 7425 7457 7484 7485 7487 7487 7497 7513 7509 7528 425 20 2252 2056 1800 1540 1347 1242 1178 1197 1310 1349 1415 1917 3235 4860 5774 6064 6183 6210 6159 6119 6227 6644 7062 7300 7416 7469 7505 7540 7563 7563 7562 7560 7570 7585 7585 7599 426 21 2791 2664 2450 2224 2044 1959 1897 1919 2031 2065 2121 2588 3770 5175 5942 6176 6273 6289 6235 6196 6296 6695 7103 7336 7451 7502 7540 7572 7593 7592 7589 7590 7601 7619 7611 7629 427 22 3411 3366 3204 3036 2893 2829 2787 2811 2917 2937 2979 3380 4362 5484 6075 6242 6313 6316 6256 6219 6318 6715 7135 7379 7502 7553 7592 7622 7644 7643 7642 7641 7650 7666 7663 7680 428 23 4089 4117 4032 3924 3833 3790 3773 3805 3899 3910 3935 4256 5019 5843 6253 6354 6396 6389 6326 6291 6383 6767 7180 7422 7541 7591 7627 7655 7677 7673 7672 7669 7677 7693 7693 7702 429 24 4764 4864 4852 4826 4798 4794 4812 4850 4925 4919 4921 5135 5641 6165 6406 6450 6470 6452 6385 6351 6437 6814 7240 7494 7619 7672 7712 7741 7760 7756 7754 7754 7762 7778 7775 7788 430 25 5354 5563 5642 5700 5735 5787 5840 5891 5945 5925 5907 6008 6252 6475 6557 6543 6543 6514 6441 6410 6495 6861 7283 7536 7661 7714 7750 7778 7796 7791 7792 7788 7798 7814 7809 7820 431 26 5928 6211 6380 6530 6647 6757 6860 6914 6939 6900 6856 6819 6775 6717 6664 6608 6592 6554 6481 6452 6528 6884 7301 7554 7680 7732 7768 7796 7814 7810 7806 7805 7815 7834 7825 7835 432 27 5562 5891 6144 6359 6507 6665 6839 6921 6900 6793 6670 6554 6428 6272 6104 5949 5844 5697 5493 5362 5443 6039 6836 7343 7585 7685 7742 7799 7860 7879 7864 7834 7795 7762 7758 7834 433 1 0581 0764 0853 0806 0688 0636 0612 0653 0777 0827 0903 1411 2701 4063 4413 4012 3393 2696 2030 1568 1324 1208 1117 1053 1035 1034 1045 1103 1202 1266 1247 1190 1094 1019 1048 1204 434 2 0734 0962 1138 1152 1061 1040 1051 1120 1252 1307 1380 1872 3070 4273 4526 4093 3461 2759 2084 1616 1367 1247 1154 1088 1069 1070 1082 1141 1240 1306 1285 1228 1131 1056 1083 1238 435 3 0888 1174 1444 1549 1488 1505 1563 1664 1812 1870 1935 2395 3467 4484 4627 4157 3509 2799 2117 1647 1394 1272 1178 1113 1094 1094 1105 1165 1265 1330 1310 1251 1154 1078 1104 1263 436 4 1032 1436 1828 2050 2053 2130 2258 2410 2574 2632 2685 3084 3964 4722 4721 4202 3535 2812 2123 1649 1394 1269 1174 1108 1088 1090 1103 1162 1263 1326 1307 1248 1149 1072 1103 1263 437 5 1228 1728 2280 2649 2730 2891 3124 3345 3522 3583 3619 3929 4561 5008 4836 4254 3560 2823 2121 1641 1382 1254 1159 1093 1076 1077 1089 1148 1247 1309 1291 1233 1136 1061 1090 1243 438 6 1400 1994 2687 3204 3375 3627 3975 4270 4456 4515 4530 4722 5086 5239 4927 4298 3586 2837 2131 1648 1387 1259 1162 1098 1080 1080 1092 1151 1250 1314 1294 1235 1135 1059 1091 1242 439 7 1552 2229 3063 3721 3983 4331 4795 5167 5358 5418 5413 5486 5585 5467 5025 4353 3619 2857 2141 1649 1384 1252 1154 1088 1070 1070 1085 1144 1243 1307 1285 1229 1129 1052 1081 1237 440 8 1664 2428 3373 4164 4519 4960 5547 6000 6191 6244 6210 6140 5975 5637 5100 4395 3645 2870 2143 1644 1374 1238 1139 1073 1056 1057 1070 1131 1231 1295 1275 1216 1117 1039 1073 1227 441 9 1570 2407 3435 4308 4701 5207 5882 6389 6567 6575 6478 6343 6103 5671 5039 4270 3485 2679 1928 1428 1189 1109 1052 0999 0986 0988 1002 1067 1176 1246 1225 1160 1051 0967 1000 1165 442 10 1271 1244 1113 0913 0732 0644 0594 0623 0744 0794 0874 1424 2901 4705 5583 5640 5425 5084 4687 4377 4209 4157 4088 4032 4021 4026 4047 4114 4213 4266 4248 4193 4100 4022 4039 4183 443 11 1587 1619 1558 1417 1255 1182 1145 1186 1316 1368 1444 1977 3346 4947 5680 5670 5417 5051 4634 4316 4139 4074 4000 3941 3929 3933 3952 4018 4116 4168 4151 4093 3999 3917 3935 4083 444 12 1925 2026 2049 1971 1842 1792 1783 1841 1978 2032 2102 2602 3830 5197 5769 5689 5399 5006 4569 4238 4048 3971 3889 3827 3812 3815 3835 3901 4000 4056 4036 3976 3879 3796 3812 3964 445 13 2360 2574 2702 2716 2625 2622 2652 2735 2879 2931 2993 3431 4462 5549 5953 5810 5498 5095 4656 4323 4127 4041 3955 3892 3878 3880 3899 3966 4065 4117 4096 4036 3940 3860 3877 4029 446 14 2852 3170 3402 3513 3495 3543 3624 3738 3886 3935 3986 4344 5139 5915 6142 5939 5606 5198 4761 4435 4236 4143 4054 3991 3979 3982 4000 4065 4161 4212 4191 4132 4037 3956 3970 4116 447 15 3260 3680 4030 4250 4300 4407 4553 4707 4847 4893 4930 5193 5742 6225 6290 6033 5678 5258 4814 4482 4274 4170 4078 4012 3998 4001 4018 4084 4181 4230 4211 4151 4057 3975 3991 4138 448 16 3729 4247 4737 5093 5231 5411 5644 5842 5981 6029 6051 6189 6438 6583 6472 6155 5776 5344 4891 4557 4345 4231 4134 4068 4054 4056 4073 4137 4234 4285 4264 4203 4108 4027 4043 4191 449 17 4120 4757 5356 5843 6078 6344 6663 6906 7028 7066 7066 7054 6995 6848 6606 6250 5860 5423 4971 4638 4419 4299 4199 4133 4119 4120 4137 4201 4299 4346 4326 4266 4169 4087 4101 4255 450 18 3964 4654 5369 5948 6226 6564 6976 7274 7378 7365 7295 7210 7070 6818 6451 5991 5524 4998 4450 4054 3869 3909 3977 3987 4003 4015 4039 4119 4238 4303 4274 4197 4073 3965 3986 4166 451 19 1862 1639 1338 1029 0810 0698 0628 0651 0773 0825 0910 1490 3085 5180 6453 6905 7091 7167 7169 7168 7216 7341 7388 7413 7446 7465 7492 7523 7545 7540 7542 7539 7550 7564 7561 7578 452 20 2365 2202 1925 1647 1435 1326 1251 1276 1402 1455 1536 2099 3592 5492 6626 7020 7182 7246 7245 7247 7287 7397 7437 7462 7490 7510 7536 7562 7583 7580 7579 7575 7585 7600 7593 7607 453 21 2955 2846 2625 2386 2189 2090 2024 2052 2181 2233 2311 2846 4205 5873 6849 7181 7316 7367 7362 7367 7397 7489 7522 7542 7570 7591 7616 7642 7664 7658 7657 7652 7662 7678 7675 7693 454 22 3677 3656 3495 3319 3162 3087 3035 3066 3194 3240 3312 3786 4937 6296 7072 7324 7428 7465 7459 7467 7486 7557 7579 7596 7626 7644 7667 7696 7713 7705 7707 7701 7711 7726 7718 7734 455 23 4426 4493 4411 4307 4201 4159 4129 4166 4293 4337 4402 4801 5718 6751 7323 7499 7574 7598 7586 7595 7607 7654 7667 7682 7710 7727 7749 7773 7793 7782 7782 7777 7787 7801 7790 7808 456 24 5102 5279 5295 5274 5238 5229 5235 5284 5394 5434 5487 5781 6426 7121 7500 7604 7652 7662 7647 7660 7659 7685 7690 7703 7730 7747 7768 7794 7808 7800 7800 7794 7800 7813 7807 7819 457 25 5843 6117 6233 6312 6355 6401 6448 6512 6609 6646 6690 6864 7206 7546 7730 7764 7784 7780 7760 7775 7766 7776 7771 7783 7811 7828 7851 7873 7888 7880 7878 7873 7886 7897 7884 7906 458 26 6441 6814 7038 7222 7347 7461 7564 7642 7716 7746 7773 7803 7827 7844 7865 7851 7851 7840 7821 7835 7818 7814 7804 7814 7839 7856 7877 7899 7914 7902 7901 7896 7905 7917 7916 7926 459 27 6254 6719 7034 7318 7485 7664 7843 7963 8008 7977 7931 7887 7825 7729 7616 7472 7358 7200 6999 6866 6870 7164 7508 7703 7801 7847 7879 7931 7986 7997 7985 7952 7910 7875 7872 7953 460 1 0586 0769 0880 0823 0687 0626 0600 0645 0778 0834 0916 1483 2961 4551 4949 4454 3707 2887 2108 1578 1300 1168 1066 0994 0974 0974 0987 1050 1159 1232 1212 1148 1040 0956 0984 1157 461 2 0711 0970 1158 1166 1058 1025 1032 1100 1251 1312 1391 1951 3343 4766 5060 4534 3780 2953 2171 1636 1355 1221 1117 1045 1025 1025 1039 1103 1212 1285 1264 1199 1091 1005 1038 1208 462 3 0829 1160 1450 1549 1485 1487 1544 1652 1815 1880 1952 2481 3749 4976 5148 4579 3806 2970 2178 1639 1354 1217 1113 1039 1019 1018 1033 1098 1209 1280 1259 1193 1085 0999 1031 1205 463 4 0970 1373 1770 1972 1949 2007 2123 2274 2452 2520 2584 3071 4187 5193 5238 4624 3832 2986 2189 1646 1358 1219 1113 1040 1019 1020 1034 1100 1211 1282 1259 1193 1085 0999 1034 1202 464 5 1132 1648 2187 2530 2583 2719 2927 3148 3347 3417 3467 3883 4781 5489 5365 4686 3867 3004 2197 1650 1360 1219 1113 1043 1022 1022 1036 1101 1211 1282 1259 1194 1086 1001 1032 1202 465 6 1274 1912 2615 3115 3255 3490 3814 4118 4334 4405 4436 4746 5373 5764 5471 4737 3894 3013 2193 1639 1345 1200 1093 1020 1000 1001 1014 1080 1189 1259 1238 1173 1063 0978 1009 1181 466 7 1462 2185 3048 3714 3956 4297 4761 5152 5382 5453 5461 5645 5978 6050 5603 4817 3952 3061 2234 1673 1373 1227 1118 1046 1027 1028 1042 1107 1216 1287 1266 1199 1091 1006 1038 1204 467 8 1580 2372 3360 4159 4484 4912 5493 5964 6200 6274 6262 6328 6412 6230 5666 4843 3961 3059 2225 1661 1360 1211 1102 1030 1012 1011 1025 1091 1201 1272 1249 1184 1074 0989 1021 1193 468 9 1688 2569 3669 4609 5030 5568 6291 6857 7088 7157 7117 7027 6819 6392 5731 4878 3985 3077 2240 1673 1369 1220 1110 1038 1020 1022 1036 1102 1211 1282 1259 1192 1082 0999 1032 1199 469 10 1221 1233 1111 0917 0729 0636 0580 0614 0749 0805 0890 1498 3156 5197 6146 6112 5759 5263 4712 4293 4063 3980 3886 3810 3790 3794 3815 3895 4018 4089 4060 3985 3863 3758 3779 3964 470 11 1513 1567 1522 1385 1210 1133 1093 1139 1286 1345 1431 2031 3600 5443 6237 6133 5742 5220 4651 4222 3984 3890 3792 3713 3694 3698 3716 3797 3919 3986 3959 3883 3761 3653 3676 3858 471 12 1797 1971 2021 1948 1804 1757 1747 1816 1972 2032 2109 2679 4111 5722 6364 6198 5781 5245 4668 4237 3992 3889 3784 3703 3681 3684 3702 3780 3904 3972 3943 3870 3744 3640 3659 3844 472 13 2184 2431 2577 2589 2494 2475 2506 2606 2773 2831 2902 3428 4696 6054 6538 6316 5876 5330 4748 4316 4066 3955 3848 3768 3747 3749 3769 3847 3968 4036 4010 3932 3809 3700 3721 3904 473 14 2617 2960 3231 3333 3287 3321 3407 3538 3712 3776 3840 4310 5376 6438 6738 6453 5988 5429 4842 4407 4149 4028 3916 3834 3811 3811 3830 3908 4031 4096 4068 3993 3868 3762 3782 3964 474 15 3013 3483 3868 4095 4123 4222 4377 4550 4728 4787 4837 5210 6027 6775 6904 6561 6076 5511 4922 4487 4226 4097 3983 3900 3881 3881 3900 3978 4098 4161 4133 4058 3934 3829 3849 4027 475 16 3436 4010 4532 4900 5009 5184 5425 5651 5827 5887 5923 6186 6721 7139 7086 6683 6174 5595 5002 4563 4295 4155 4037 3953 3933 3934 3953 4033 4150 4214 4186 4108 3987 3879 3898 4076 476 17 3858 4525 5185 5683 5890 6149 6487 6771 6947 7007 7024 7162 7393 7475 7254 6795 6266 5681 5083 4645 4372 4225 4104 4018 3997 3996 4016 4094 4211 4274 4244 4167 4047 3940 3957 4140 477 18 4211 4975 5765 6401 6703 7060 7498 7839 8001 8055 8051 8031 7938 7723 7371 6876 6337 5750 5155 4719 4444 4294 4171 4088 4066 4065 4084 4160 4277 4337 4308 4232 4111 4005 4023 4201 478 19 1879 1645 1326 1017 0778 0660 0585 0607 0743 0801 0890 1531 3338 5753 7208 7659 7771 7734 7599 7480 7461 7560 7575 7570 7587 7603 7631 7683 7740 7759 7747 7713 7673 7640 7637 7717 479 20 2338 2174 1906 1616 1382 1260 1187 1214 1357 1418 1508 2148 3876 6106 7415 7806 7891 7840 7698 7580 7549 7631 7636 7626 7645 7661 7689 7739 7799 7816 7802 7769 7731 7701 7703 7776 480 21 2900 2817 2586 2338 2123 2013 1947 1979 2129 2187 2273 2884 4479 6482 7634 7965 8036 7985 7853 7744 7712 7777 7778 7769 7786 7804 7833 7880 7937 7949 7937 7906 7870 7841 7839 7914 481 22 3492 3497 3352 3170 2987 2900 2851 2891 3045 3100 3182 3745 5156 6861 7808 8055 8084 8005 7857 7742 7695 7737 7727 7718 7732 7750 7776 7824 7880 7896 7882 7849 7808 7775 7772 7852 482 23 4168 4284 4221 4106 3977 3919 3892 3949 4104 4159 4235 4741 5941 7322 8059 8223 8220 8129 7978 7867 7807 7826 7805 7792 7808 7825 7850 7898 7952 7966 7951 7915 7877 7845 7844 7923 483 24 4879 5085 5137 5117 5053 5043 5054 5127 5270 5321 5384 5789 6721 7749 8274 8359 8323 8215 8058 7948 7877 7875 7845 7828 7842 7858 7882 7928 7983 7999 7983 7946 7907 7875 7870 7947 484 25 5492 5811 5975 6068 6077 6123 6188 6284 6420 6474 6532 6834 7481 8151 8460 8461 8387 8255 8080 7959 7871 7846 7804 7780 7792 7806 7830 7878 7935 7946 7929 7895 7852 7820 7823 7899 485 26 6117 6546 6830 7031 7117 7229 7345 7467 7594 7644 7687 7868 8211 8526 8641 8577 8480 8334 8160 8044 7950 7910 7860 7835 7848 7862 7889 7934 7986 7998 7983 7949 7910 7878 7879 7956 486 27 6701 7244 7647 7957 8143 8327 8512 8654 8755 8799 8823 8853 8858 8835 8789 8673 8551 8402 8230 8120 8017 7965 7912 7889 7902 7915 7934 7980 8033 8044 8029 7998 7956 7923 7920 7994 487 1 0424 0404 0367 0337 0321 0317 0316 0322 0325 0311 0311 0352 0435 0489 0483 0462 0452 0439 0421 0418 0470 0689 1014 1220 1307 1341 1361 1377 1393 1403 1414 1427 1444 1460 1475 1490 488 2 0628 0593 0565 0546 0541 0545 0554 0555 0542 0510 0483 0483 0501 0503 0477 0456 0448 0436 0420 0424 0480 0697 1019 1226 1314 1350 1369 1386 1401 1411 1424 1436 1452 1469 1483 1498 489 3 0761 0754 0732 0741 0751 0767 0785 0780 0750 0698 0644 0597 0555 0512 0474 0452 0445 0434 0420 0428 0490 0707 1033 1244 1335 1373 1394 1411 1425 1435 1449 1461 1476 1492 1506 1525 490 4 0893 0908 0908 0927 0945 0991 1036 1031 0974 0882 0787 0702 0626 0550 0482 0441 0425 0401 0373 0375 0443 0727 1184 1485 1616 1666 1694 1720 1752 1771 1776 1774 1767 1760 1772 1816 491 5 0874 0928 0990 1051 1095 1164 1238 1251 1170 1038 0901 0780 0669 0558 0458 0397 0366 0325 0286 0286 0356 0653 1147 1470 1608 1662 1690 1726 1773 1805 1804 1785 1750 1726 1740 1815 492 6 0894 1017 1133 1233 1299 1399 1525 1545 1442 1266 1084 0923 0774 0622 0485 0401 0356 0300 0248 0243 0312 0621 1137 1469 1609 1664 1692 1740 1808 1851 1843 1809 1753 1700 1721 1824 493 7 0921 1070 1254 1404 1500 1642 1808 1850 1721 1502 1271 1067 0880 0685 0512 0405 0345 0276 0213 0206 0274 0582 1099 1427 1565 1619 1647 1704 1788 1842 1831 1784 1706 1638 1660 1789 494 8 0896 1147 1397 1610 1742 1920 2142 2202 2046 1775 1490 1234 1001 0762 0547 0415 0342 0260 0186 0178 0245 0548 1054 1365 1493 1543 1573 1642 1748 1815 1799 1738 1639 1553 1578 1735 495 9 0866 1159 1481 1743 1893 2104 2371 2450 2277 1970 1646 1357 1094 0823 0580 0430 0347 0254 0173 0164 0225 0499 0951 1218 1326 1369 1395 1467 1583 1658 1637 1572 1459 1365 1393 1569 496 10 0736 0609 0495 0412 0368 0347 0343 0345 0355 0330 0321 0388 0526 0588 0535 0480 0460 0427 0380 0359 0473 1191 2529 3533 4002 4187 4267 4312 4342 4353 4365 4374 4390 4407 4413 4435 497 11 0879 0757 0646 0571 0527 0519 0517 0515 0511 0463 0427 0464 0559 0587 0523 0467 0446 0416 0370 0354 0468 1182 2520 3530 4007 4195 4275 4320 4352 4364 4374 4383 4398 4415 4420 4443 498 12 1057 0957 0841 0775 0746 0749 0761 0755 0724 0644 0570 0564 0605 0589 0509 0452 0433 0404 0359 0348 0467 1184 2530 3546 4028 4220 4302 4349 4380 4391 4404 4409 4425 4444 4449 4468 499 13 1285 1188 1079 1036 1025 1046 1077 1063 0998 0875 0756 0693 0662 0596 0502 0445 0429 0399 0357 0352 0476 1187 2536 3565 4057 4254 4337 4386 4416 4429 4441 4451 4463 4481 4487 4510 500 14 1456 1367 1274 1242 1252 1294 1341 1324 1226 1066 0908 0791 0698 0591 0484 0426 0412 0385 0345 0344 0470 1175 2509 3529 4018 4214 4300 4349 4380 4390 4403 4411 4427 4446 4453 4471 501 15 1615 1529 1439 1432 1461 1524 1596 1573 1439 1244 1049 0883 0738 0597 0480 0424 0410 0383 0345 0350 0479 1183 2526 3556 4053 4255 4340 4390 4421 4436 4451 4458 4474 4491 4498 4520 502 16 1739 1682 1634 1648 1692 1786 1884 1863 1701 1454 1209 1000 0814 0635 0486 0411 0389 0350 0300 0300 0436 1216 2720 3877 4437 4663 4763 4836 4898 4928 4933 4919 4896 4881 4888 4957 503 17 1859 1824 1809 1860 1930 2055 2190 2183 1982 1678 1375 1115 0887 0665 0480 0387 0354 0304 0244 0241 0378 1218 2868 4143 4759 5012 5125 5219 5315 5366 5360 5325 5262 5208 5222 5332 504 18 1775 1826 1875 1977 2059 2223 2398 2402 2182 1846 1507 1217 0961 0712 0502 0392 0350 0289 0224 0220 0347 1127 2680 3871 4445 4679 4783 4887 5010 5077 5063 5004 4900 4810 4826 4986 505 19 1073 0857 0664 0523 0440 0412 0391 0399 0415 0384 0363 0450 0622 0665 0553 0464 0435 0388 0315 0284 0449 1712 4371 6623 7793 8275 8470 8569 8623 8637 8644 8637 8643 8650 8648 8676 506 20 1203 0997 0807 0674 0593 0571 0556 0558 0560 0504 0456 0517 0656 0673 0551 0461 0432 0386 0311 0281 0450 1725 4391 6645 7812 8295 8487 8583 8641 8651 8655 8650 8654 8666 8666 8691 507 21 1368 1164 0965 0843 0773 0757 0755 0751 0733 0645 0568 0597 0697 0684 0551 0461 0432 0385 0311 0283 0456 1740 4409 6662 7828 8311 8503 8601 8657 8668 8674 8670 8675 8688 8681 8713 508 22 1577 1355 1165 1055 0996 0997 1014 1001 0952 0825 0706 0686 0731 0680 0537 0447 0420 0373 0302 0278 0456 1733 4405 6660 7831 8318 8516 8615 8671 8680 8688 8680 8686 8698 8691 8720 509 23 1765 1560 1381 1278 1243 1266 1296 1280 1193 1021 0855 0782 0764 0669 0512 0423 0398 0353 0286 0268 0445 1709 4376 6642 7823 8316 8515 8613 8669 8681 8689 8685 8688 8705 8698 8724 510 24 1987 1802 1612 1540 1522 1567 1621 1596 1471 1249 1033 0902 0821 0683 0514 0422 0399 0355 0288 0274 0456 1728 4396 6654 7830 8322 8522 8618 8676 8687 8696 8694 8701 8711 8706 8730 511 25 2187 2005 1838 1781 1789 1860 1939 1908 1739 1468 1201 1008 0858 0678 0499 0409 0387 0343 0280 0271 0455 1715 4375 6642 7829 8323 8523 8624 8678 8690 8697 8697 8705 8719 8712 8738 512 26 2379 2168 2011 1972 1997 2096 2193 2160 1954 1641 1334 1092 0889 0677 0489 0398 0378 0335 0271 0266 0452 1716 4377 6642 7828 8322 8523 8622 8678 8691 8699 8699 8708 8723 8720 8748 513 27 2522 2313 2173 2149 2208 2327 2454 2412 2166 1809 1462 1167 0913 0673 0478 0387 0367 0326 0266 0266 0453 1712 4369 6631 7818 8312 8515 8613 8671 8682 8695 8692 8702 8717 8709 8734 514 1 0587 0550 0512 0472 0446 0436 0432 0436 0451 0451 0464 0545 0719 0885 0946 0948 0944 0932 0910 0900 0934 1073 1237 1331 1370 1390 1406 1420 1434 1443 1455 1468 1484 1498 1515 1534 515 2 0766 0760 0729 0706 0695 0689 0690 0695 0698 0684 0677 0714 0799 0869 0881 0868 0861 0847 0827 0819 0859 1017 1217 1334 1385 1408 1424 1438 1453 1461 1474 1487 1503 1518 1531 1544 516 3 1038 1053 1052 1067 1077 1091 1106 1102 1088 1056 1024 0993 0963 0931 0902 0879 0870 0855 0836 0833 0875 1026 1222 1339 1390 1413 1426 1441 1455 1465 1476 1488 1505 1520 1532 1550 517 4 1171 1229 1285 1329 1353 1399 1446 1454 1418 1348 1272 1202 1134 1059 0986 0930 0897 0851 0798 0774 0825 1050 1356 1534 1610 1641 1660 1684 1715 1733 1737 1732 1720 1712 1723 1772 518 5 1124 1224 1330 1429 1481 1561 1647 1671 1615 1505 1386 1274 1167 1048 0931 0843 0783 0710 0630 0594 0650 0909 1275 1486 1572 1604 1625 1658 1708 1738 1736 1714 1677 1645 1666 1739 519 6 1127 1313 1476 1622 1704 1823 1957 2006 1922 1768 1600 1446 1295 1130 0966 0845 0762 0665 0560 0514 0568 0853 1269 1511 1609 1648 1672 1718 1786 1824 1816 1784 1723 1672 1693 1800 520 7 1095 1314 1562 1761 1869 2032 2219 2289 2181 1980 1762 1562 1369 1158 0951 0799 0698 0580 0462 0412 0468 0761 1204 1467 1573 1615 1640 1696 1780 1831 1818 1774 1694 1627 1645 1782 521 8 1080 1359 1690 1955 2098 2306 2551 2645 2510 2253 1973 1717 1473 1208 0951 0770 0650 0513 0382 0333 0390 0690 1144 1407 1515 1556 1583 1651 1757 1823 1807 1747 1643 1557 1585 1742 522 9 1022 1377 1753 2070 2238 2480 2777 2889 2734 2442 2121 1830 1551 1249 0956 0754 0623 0473 0334 0282 0337 0621 1050 1288 1384 1424 1451 1523 1639 1713 1693 1625 1512 1416 1444 1618 523 10 0836 0731 0596 0495 0433 0407 0393 0401 0420 0406 0408 0523 0786 1003 1029 0992 0979 0943 0877 0839 0966 1688 2886 3740 4133 4287 4355 4396 4424 4434 4448 4456 4469 4483 4491 4513 524 11 1035 0933 0812 0721 0662 0644 0639 0642 0648 0610 0587 0669 0879 1039 1037 0995 0979 0944 0880 0844 0973 1694 2895 3753 4148 4306 4373 4413 4442 4453 4464 4473 4486 4505 4508 4531 525 12 1288 1190 1089 0999 0960 0953 0959 0958 0941 0877 0822 0860 0996 1085 1051 1003 0986 0951 0887 0856 0987 1703 2900 3760 4159 4317 4385 4428 4455 4464 4473 4481 4498 4513 4516 4532 526 13 1615 1520 1422 1370 1351 1368 1387 1381 1333 1233 1136 1112 1151 1154 1084 1028 1010 0972 0911 0885 1021 1728 2921 3780 4183 4343 4414 4456 4483 4493 4504 4511 4525 4539 4547 4570 527 14 1853 1792 1712 1693 1696 1735 1777 1762 1683 1543 1403 1312 1255 1177 1077 1013 0994 0955 0895 0875 1012 1716 2907 3770 4176 4340 4410 4453 4478 4488 4501 4510 4523 4543 4549 4566 528 15 2059 2010 1961 1968 1998 2057 2122 2106 1996 1820 1644 1489 1348 1206 1082 1013 0994 0956 0897 0881 1020 1720 2906 3771 4181 4344 4416 4458 4484 4494 4505 4512 4529 4546 4547 4572 529 16 2144 2139 2123 2163 2210 2308 2409 2403 2258 2033 1801 1599 1416 1230 1065 0971 0933 0874 0793 0763 0907 1685 3043 4039 4511 4702 4787 4853 4914 4945 4948 4931 4904 4886 4893 4959 530 17 2208 2245 2277 2357 2433 2575 2723 2727 2545 2260 1965 1708 1475 1237 1026 0902 0848 0767 0665 0625 0774 1631 3157 4280 4815 5030 5127 5214 5309 5355 5350 5313 5249 5189 5205 5323 531 18 2150 2221 2320 2451 2553 2722 2916 2937 2735 2410 2077 1783 1516 1245 1000 0853 0783 0687 0572 0528 0668 1495 2983 4075 4595 4804 4900 5000 5120 5182 5167 5107 5005 4918 4929 5086 532 19 1156 0934 0718 0566 0474 0432 0409 0413 0441 0418 0405 0534 0826 1011 0959 0878 0853 0796 0695 0634 0834 2178 4751 6836 7894 8325 8503 8594 8646 8656 8661 8654 8660 8668 8665 8697 533 20 1346 1128 0929 0778 0683 0643 0628 0627 0645 0597 0558 0667 0931 1087 1024 0940 0913 0855 0751 0691 0898 2255 4820 6886 7931 8356 8532 8618 8671 8682 8686 8677 8683 8697 8692 8718 534 21 1544 1345 1141 0999 0918 0890 0885 0882 0875 0799 0729 0801 1013 1122 1037 0949 0923 0863 0760 0700 0912 2269 4826 6880 7918 8342 8516 8604 8656 8664 8671 8669 8678 8693 8692 8717 535 22 1764 1559 1367 1238 1169 1157 1164 1154 1124 1016 0912 0941 1091 1145 1039 0947 0919 0860 0757 0703 0916 2273 4837 6906 7955 8386 8562 8650 8703 8712 8719 8709 8716 8727 8722 8748 536 23 2026 1828 1645 1533 1481 1490 1513 1502 1437 1282 1133 1103 1172 1156 1022 0925 0898 0839 0738 0689 0903 2250 4813 6886 7941 8375 8552 8642 8695 8703 8709 8703 8709 8722 8715 8745 537 24 2350 2166 1996 1915 1891 1926 1977 1959 1850 1644 1438 1337 1312 1225 1063 0960 0931 0872 0773 0728 0948 2293 4845 6909 7962 8394 8571 8662 8713 8721 8728 8727 8731 8743 8738 8763 538 25 2594 2426 2279 2220 2229 2296 2370 2349 2198 1940 1685 1512 1396 1241 1056 0950 0922 0862 0764 0725 0946 2290 4841 6907 7964 8398 8577 8667 8720 8726 8737 8736 8740 8755 8746 8776 539 26 2788 2647 2504 2476 2502 2596 2696 2667 2480 2182 1883 1656 1469 1262 1058 0948 0919 0861 0763 0728 0950 2288 4834 6902 7957 8394 8575 8666 8719 8726 8732 8732 8741 8755 8749 8768 540 27 3006 2865 2744 2734 2801 2922 3051 3014 2782 2439 2095 1800 1537 1280 1061 0950 0922 0863 0769 0741 0968 2301 4842 6902 7952 8383 8562 8651 8702 8710 8721 8721 8730 8745 8739 8765 541 1 0666 0658 0607 0568 0533 0517 0508 0514 0539 0548 0575 0687 0935 1198 1323 1354 1360 1356 1346 1342 1344 1357 1364 1371 1377 1385 1396 1409 1422 1431 1444 1456 1471 1489 1501 1517 542 2 0958 0979 0954 0932 0916 0903 0898 0903 0924 0930 0947 1024 1184 1342 1414 1427 1426 1421 1411 1406 1405 1414 1417 1421 1429 1436 1447 1459 1470 1480 1491 1502 1517 1533 1547 1560 543 3 1347 1415 1439 1461 1470 1481 1488 1495 1501 1502 1504 1504 1504 1501 1496 1486 1479 1468 1457 1455 1450 1449 1450 1454 1460 1466 1476 1487 1498 1506 1516 1527 1543 1559 1568 1582 544 4 1417 1538 1636 1716 1749 1798 1850 1874 1867 1830 1786 1745 1697 1639 1570 1501 1440 1368 1285 1232 1241 1355 1496 1568 1600 1614 1627 1651 1681 1700 1701 1693 1677 1671 1687 1732 545 5 1380 1563 1739 1870 1935 2024 2130 2178 2150 2075 1985 1898 1805 1691 1563 1445 1345 1226 1096 1017 1034 1213 1438 1554 1602 1621 1635 1668 1719 1747 1744 1722 1685 1653 1670 1747 546 6 1408 1642 1874 2059 2154 2281 2432 2500 2451 2328 2183 2049 1911 1745 1566 1411 1287 1140 0985 0895 0922 1150 1449 1608 1669 1695 1713 1757 1823 1865 1855 1818 1758 1708 1727 1834 547 7 1351 1643 1951 2205 2331 2508 2723 2819 2744 2571 2373 2188 1998 1774 1537 1337 1185 1006 0824 0724 0757 1022 1384 1584 1664 1698 1719 1773 1857 1908 1896 1848 1767 1700 1720 1851 548 8 1281 1659 2049 2377 2540 2771 3057 3184 3081 2851 2590 2342 2095 1809 1510 1272 1090 0885 0680 0572 0608 0894 1300 1519 1608 1644 1668 1737 1844 1910 1892 1830 1727 1641 1664 1825 549 9 1193 1596 2064 2445 2637 2913 3242 3397 3276 3012 2708 2424 2140 1816 1480 1214 1014 0793 0578 0471 0501 0769 1152 1354 1436 1470 1494 1567 1684 1759 1738 1668 1551 1455 1489 1666 550 10 0973 0844 0689 0572 0489 0456 0435 0442 0478 0477 0491 0667 1097 1531 1683 1688 1687 1655 1580 1527 1660 2320 3285 3929 4219 4331 4384 4420 4445 4454 4464 4471 4487 4505 4510 4528 551 11 1230 1105 0982 0877 0801 0770 0757 0762 0785 0766 0760 0902 1255 1592 1690 1677 1673 1637 1563 1515 1644 2300 3272 3924 4218 4335 4389 4425 4449 4458 4469 4476 4491 4507 4511 4530 552 12 1553 1479 1370 1283 1223 1205 1201 1206 1208 1165 1131 1225 1486 1717 1763 1736 1726 1689 1614 1568 1700 2349 3311 3960 4255 4373 4426 4462 4484 4492 4502 4509 4523 4538 4544 4560 553 13 1898 1844 1764 1698 1671 1671 1681 1678 1661 1590 1523 1555 1702 1816 1807 1766 1750 1710 1637 1597 1729 2367 3324 3974 4271 4388 4443 4477 4501 4509 4519 4525 4538 4557 4558 4575 554 14 2264 2267 2214 2196 2200 2227 2259 2254 2205 2099 1987 1934 1937 1913 1839 1775 1755 1712 1638 1602 1738 2379 3341 3997 4297 4416 4470 4505 4531 4538 4546 4554 4566 4586 4591 4602 555 15 2583 2601 2578 2599 2632 2693 2754 2746 2664 2521 2374 2243 2121 1992 1873 1799 1774 1730 1659 1627 1762 2395 3357 4017 4321 4442 4499 4534 4559 4565 4574 4581 4594 4609 4615 4634 556 16 2643 2683 2712 2773 2837 2934 3039 3045 2928 2730 2524 2340 2166 1979 1808 1696 1644 1566 1451 1395 1539 2291 3466 4278 4653 4805 4877 4936 4992 5017 5020 5003 4980 4958 4965 5034 557 17 2638 2752 2848 2971 3067 3212 3372 3396 3248 2991 2723 2480 2252 2009 1777 1625 1542 1426 1276 1196 1343 2167 3504 4438 4871 5046 5129 5211 5302 5346 5339 5299 5229 5174 5184 5300 558 18 2480 2663 2833 3009 3132 3317 3530 3579 3408 3113 2798 2516 2251 1968 1698 1513 1406 1263 1094 1005 1135 1925 3238 4158 4587 4758 4841 4937 5055 5114 5096 5035 4934 4844 4856 5020 559 19 1236 1004 0780 0610 0498 0447 0419 0426 0465 0452 0451 0633 1079 1472 1534 1485 1471 1412 1293 1212 1433 2783 5183 7062 7999 8382 8539 8622 8672 8678 8682 8675 8681 8694 8688 8716 560 20 1469 1271 1053 0879 0762 0719 0696 0696 0727 0692 0668 0834 1250 1598 1635 1578 1560 1499 1376 1294 1523 2890 5278 7131 8048 8421 8574 8654 8700 8707 8712 8703 8709 8722 8713 8742 561 21 1764 1556 1346 1191 1084 1046 1033 1032 1045 0982 0929 1060 1423 1716 1729 1663 1644 1581 1456 1376 1609 2972 5339 7165 8069 8441 8593 8672 8721 8727 8730 8726 8729 8742 8735 8760 562 22 2009 1823 1620 1479 1389 1369 1364 1360 1349 1258 1172 1259 1547 1761 1733 1658 1636 1571 1446 1368 1604 2971 5347 7179 8087 8457 8611 8689 8735 8739 8746 8738 8741 8754 8750 8776 563 23 2324 2163 1982 1861 1789 1788 1803 1794 1755 1624 1498 1526 1718 1840 1773 1688 1663 1598 1475 1405 1637 2981 5337 7165 8078 8453 8609 8688 8736 8743 8748 8743 8747 8759 8750 8777 564 24 2713 2584 2418 2330 2296 2320 2361 2349 2271 2093 1914 1867 1943 1960 1845 1749 1721 1653 1533 1466 1702 3039 5383 7205 8118 8491 8646 8727 8773 8779 8782 8778 8787 8801 8793 8816 565 25 3046 2938 2795 2741 2743 2805 2870 2855 2734 2504 2275 2145 2099 2006 1845 1736 1706 1638 1518 1456 1693 3028 5377 7208 8126 8500 8654 8734 8780 8787 8793 8788 8793 8807 8801 8825 566 26 3316 3247 3127 3110 3138 3231 3329 3307 3147 2874 2598 2396 2242 2061 1864 1747 1714 1644 1525 1468 1706 3036 5382 7214 8134 8509 8665 8744 8791 8798 8803 8801 8808 8824 8817 8837 567 27 3548 3476 3385 3406 3477 3599 3724 3704 3499 3183 2863 2582 2327 2071 1844 1720 1684 1614 1496 1442 1682 3017 5367 7198 8114 8486 8644 8723 8770 8776 8781 8777 8786 8801 8794 8814 568 1 0745 0742 0695 0636 0581 0553 0543 0555 0595 0612 0648 0835 1275 1760 1982 2005 1965 1897 1811 1744 1710 1709 1697 1688 1689 1695 1705 1728 1756 1774 1780 1777 1768 1763 1777 1820 569 2 1017 1061 1065 1042 1005 0988 0991 1010 1052 1066 1095 1247 1585 1928 2066 2053 1994 1911 1813 1739 1696 1684 1669 1658 1658 1661 1671 1693 1722 1740 1743 1738 1726 1718 1731 1775 570 3 1320 1422 1492 1532 1530 1538 1565 1594 1631 1641 1656 1744 1923 2082 2121 2071 1994 1898 1792 1712 1662 1642 1623 1610 1607 1611 1619 1642 1671 1690 1691 1683 1671 1662 1672 1721 571 4 1672 1859 2014 2122 2168 2221 2280 2324 2350 2352 2351 2347 2331 2299 2249 2169 2081 1978 1867 1787 1732 1703 1678 1665 1664 1667 1675 1696 1724 1743 1744 1737 1720 1711 1722 1772 572 5 1690 1914 2152 2323 2404 2504 2623 2691 2702 2666 2616 2563 2496 2398 2274 2129 1988 1823 1647 1526 1490 1563 1650 1687 1703 1711 1722 1755 1801 1829 1823 1803 1764 1735 1750 1828 573 6 1675 1981 2294 2540 2653 2804 2982 3083 3070 2992 2885 2781 2661 2498 2302 2101 1916 1701 1476 1327 1304 1449 1627 1710 1744 1759 1775 1819 1886 1925 1915 1879 1816 1765 1781 1892 574 7 1574 1937 2332 2645 2800 2996 3240 3372 3334 3199 3031 2868 2689 2460 2193 1941 1725 1476 1221 1063 1058 1264 1526 1655 1708 1729 1747 1802 1887 1938 1924 1874 1791 1724 1746 1877 575 8 1512 1945 2428 2820 3009 3269 3590 3761 3699 3511 3277 3053 2813 2514 2178 1874 1620 1335 1048 0879 0877 1116 1431 1589 1653 1681 1704 1771 1877 1944 1922 1862 1755 1669 1695 1858 576 9 1353 1808 2338 2779 2992 3284 3658 3848 3760 3520 3233 2960 2675 2333 1960 1637 1378 1089 0809 0651 0658 0906 1239 1407 1474 1504 1527 1599 1717 1790 1769 1699 1583 1487 1516 1694 577 10 1110 0975 0817 0670 0570 0522 0490 0503 0553 0565 0597 0846 1477 2187 2521 2595 2618 2600 2534 2484 2588 3068 3673 4044 4211 4280 4316 4346 4372 4386 4403 4424 4454 4486 4499 4525 578 11 1442 1331 1189 1067 0971 0927 0907 0913 0958 0956 0970 1186 1723 2302 2555 2598 2612 2588 2518 2469 2580 3087 3740 4149 4330 4402 4441 4471 4492 4498 4508 4514 4527 4544 4549 4569 579 12 1827 1774 1657 1558 1486 1456 1440 1446 1475 1456 1447 1607 2013 2427 2589 2601 2605 2574 2504 2457 2568 3077 3748 4175 4367 4442 4480 4510 4530 4537 4545 4551 4561 4577 4585 4604 580 13 2272 2276 2199 2137 2095 2084 2084 2089 2101 2059 2026 2120 2384 2635 2710 2696 2690 2656 2586 2543 2650 3144 3801 4221 4408 4483 4521 4551 4570 4573 4581 4587 4600 4615 4620 4638 581 14 2763 2807 2777 2770 2758 2780 2805 2810 2799 2730 2662 2671 2764 2834 2818 2774 2758 2717 2647 2607 2714 3200 3858 4280 4471 4548 4585 4612 4631 4637 4644 4649 4661 4676 4682 4693 582 15 3162 3250 3275 3321 3366 3420 3477 3481 3436 3339 3237 3145 3054 2955 2861 2793 2771 2725 2652 2618 2725 3208 3868 4292 4483 4561 4599 4630 4650 4653 4661 4667 4680 4696 4701 4713 583 16 3138 3266 3350 3454 3530 3631 3737 3762 3685 3531 3364 3213 3063 2896 2729 2606 2536 2435 2293 2207 2328 2964 3864 4446 4710 4816 4867 4922 4975 5001 4999 4983 4955 4934 4938 5006 584 17 3108 3311 3484 3657 3768 3929 4106 4160 4051 3840 3607 3393 3183 2944 2701 2519 2403 2246 2046 1923 2043 2771 3849 4561 4885 5017 5083 5158 5247 5291 5282 5238 5166 5105 5120 5238 585 18 2812 3089 3340 3568 3721 3926 4161 4244 4112 3851 3565 3302 3044 2752 2456 2229 2078 1883 1653 1516 1623 2344 3449 4186 4524 4659 4727 4821 4937 4997 4977 4916 4806 4712 4729 4891 586 19 1336 1110 0869 0667 0533 0471 0436 0445 0500 0498 0511 0764 1413 2074 2289 2286 2291 2233 2095 1993 2237 3572 5734 7347 8136 8457 8589 8663 8708 8712 8717 8710 8714 8725 8717 8744 587 20 1599 1398 1164 0971 0839 0781 0754 0761 0803 0779 0769 0993 1567 2117 2265 2240 2233 2172 2033 1932 2181 3537 5734 7366 8160 8479 8614 8688 8733 8736 8738 8731 8739 8751 8747 8772 588 21 1917 1733 1504 1324 1209 1163 1141 1144 1169 1121 1084 1274 1780 2256 2368 2333 2325 2260 2120 2022 2271 3616 5788 7400 8188 8504 8637 8709 8754 8757 8759 8751 8757 8770 8766 8790 589 22 2321 2140 1930 1774 1668 1635 1623 1626 1636 1560 1494 1641 2074 2468 2540 2493 2481 2415 2275 2180 2429 3757 5883 7459 8226 8536 8668 8736 8778 8783 8787 8780 8787 8794 8787 8808 590 23 2675 2527 2345 2218 2135 2119 2124 2125 2109 2002 1898 1985 2308 2575 2582 2513 2495 2425 2285 2193 2442 3765 5890 7463 8233 8541 8671 8743 8784 8788 8792 8785 8791 8805 8798 8822 591 24 3088 2990 2831 2736 2678 2697 2726 2723 2676 2526 2377 2393 2587 2726 2671 2586 2561 2490 2349 2262 2512 3825 5931 7490 8249 8556 8686 8756 8797 8801 8807 8801 8806 8821 8814 8841 592 25 3519 3445 3337 3283 3283 3333 3393 3388 3299 3101 2901 2819 2851 2837 2711 2604 2574 2499 2359 2278 2527 3831 5941 7513 8287 8599 8732 8802 8844 8848 8852 8845 8852 8866 8861 8882 593 26 3910 3870 3785 3786 3823 3912 4004 3998 3871 3633 3385 3217 3108 2965 2783 2663 2627 2549 2410 2334 2584 3879 5974 7538 8307 8617 8749 8818 8858 8860 8864 8861 8870 8887 8879 8900 594 27 4174 4160 4121 4167 4242 4366 4491 4483 4310 4032 3744 3490 3252 3005 2783 2651 2612 2534 2397 2326 2575 3857 5949 7517 8289 8603 8736 8806 8847 8849 8855 8848 8855 8871 8865 8889 595 1 0728 0746 0717 0646 0573 0544 0526 0545 0604 0628 0674 0934 1575 2288 2588 2565 2441 2264 2067 1916 1835 1810 1779 1754 1750 1752 1763 1795 1843 1872 1868 1849 1815 1787 1805 1882 596 2 0962 1033 1053 1036 0984 0970 0974 1003 1066 1089 1130 1359 1889 2437 2636 2570 2420 2224 2013 1855 1764 1728 1692 1665 1659 1662 1671 1702 1751 1779 1775 1755 1717 1686 1704 1783 597 3 1236 1401 1499 1541 1526 1542 1573 1620 1684 1704 1733 1909 2280 2627 2714 2612 2447 2246 2031 1870 1777 1734 1695 1667 1661 1663 1672 1704 1751 1781 1776 1753 1714 1684 1700 1779 598 4 1605 1822 2021 2152 2181 2241 2319 2391 2450 2466 2481 2572 2747 2879 2857 2716 2538 2327 2107 1944 1844 1794 1750 1722 1715 1716 1727 1758 1806 1834 1830 1808 1771 1738 1756 1835 599 5 1906 2204 2494 2719 2812 2925 3063 3159 3208 3219 3213 3203 3170 3097 2981 2807 2613 2393 2168 2003 1897 1840 1796 1767 1761 1762 1772 1804 1852 1878 1875 1851 1812 1778 1800 1873 600 6 1957 2344 2734 3040 3180 3350 3555 3695 3729 3701 3643 3581 3489 3342 3137 2888 2632 2346 2048 1838 1748 1777 1819 1823 1829 1835 1847 1892 1959 1998 1986 1948 1887 1835 1855 1964 601 7 1840 2276 2754 3134 3312 3537 3817 3993 4008 3928 3809 3684 3530 3306 3020 2706 2408 2071 1732 1504 1435 1544 1684 1742 1767 1780 1796 1850 1933 1982 1966 1917 1836 1769 1791 1924 602 8 1749 2262 2847 3313 3538 3830 4194 4416 4405 4267 4075 3881 3654 3349 2973 2594 2249 1866 1483 1237 1184 1353 1568 1667 1707 1726 1747 1813 1920 1986 1965 1902 1796 1708 1734 1896 603 9 1541 2098 2719 3229 3479 3809 4231 4469 4427 4229 3973 3721 3441 3080 2657 2258 1910 1530 1155 0927 0895 1099 1361 1484 1534 1558 1580 1653 1771 1849 1826 1753 1635 1534 1565 1745 604 10 1267 1116 0939 0774 0648 0591 0550 0564 0631 0655 0703 1022 1852 2845 3374 3527 3583 3584 3539 3502 3577 3874 4177 4345 4421 4455 4481 4505 4525 4529 4537 4544 4557 4576 4577 4597 605 11 1645 1549 1398 1250 1136 1083 1050 1061 1124 1141 1178 1466 2186 3016 3440 3555 3597 3591 3543 3508 3580 3878 4196 4380 4465 4501 4528 4553 4570 4574 4582 4588 4601 4617 4624 4642 606 12 2136 2088 1982 1873 1780 1736 1714 1727 1783 1787 1809 2039 2607 3229 3533 3606 3630 3615 3563 3530 3599 3890 4212 4399 4485 4522 4546 4569 4587 4591 4598 4602 4613 4630 4631 4648 607 13 2651 2685 2621 2559 2503 2487 2476 2489 2531 2519 2519 2679 3061 3454 3628 3651 3659 3637 3584 3551 3618 3907 4241 4440 4529 4567 4593 4615 4631 4633 4641 4644 4660 4674 4676 4692 608 14 3232 3305 3313 3306 3297 3312 3328 3344 3368 3337 3314 3380 3559 3724 3775 3757 3750 3720 3664 3636 3698 3986 4331 4539 4636 4676 4702 4725 4741 4744 4749 4753 4764 4778 4778 4798 609 15 3664 3840 3914 3979 4030 4086 4134 4156 4148 4102 4050 4005 3954 3896 3842 3792 3771 3735 3678 3653 3713 3991 4332 4538 4634 4672 4700 4721 4737 4738 4744 4750 4761 4777 4775 4793 610 16 3631 3842 4000 4143 4230 4338 4454 4499 4469 4369 4256 4150 4039 3906 3765 3636 3547 3430 3272 3169 3235 3683 4277 4646 4814 4883 4922 4970 5022 5044 5042 5023 4994 4969 4977 5047 611 17 3627 3926 4184 4402 4537 4714 4905 4990 4931 4775 4593 4423 4246 4030 3794 3587 3432 3234 2992 2830 2903 3481 4277 4773 5003 5095 5147 5219 5306 5346 5334 5287 5218 5159 5169 5287 612 18 3259 3608 3919 4199 4372 4589 4847 4958 4865 4645 4396 4159 3917 3629 3319 3060 2867 2626 2342 2157 2240 2897 3836 4429 4699 4810 4870 4957 5071 5128 5107 5042 4937 4848 4859 5020 613 19 1464 1224 0958 0732 0579 0504 0460 0472 0543 0552 0578 0905 1770 2736 3143 3205 3233 3184 3040 2925 3178 4448 6319 7641 8268 8522 8634 8698 8736 8738 8740 8735 8737 8748 8742 8766 614 20 1803 1571 1309 1100 0941 0875 0831 0842 0905 0898 0907 1210 1995 2836 3165 3201 3219 3165 3021 2911 3164 4431 6312 7649 8287 8543 8653 8716 8756 8758 8761 8753 8755 8770 8766 8788 615 21 2141 1956 1726 1525 1388 1328 1296 1304 1351 1322 1304 1566 2260 2981 3244 3259 3269 3212 3068 2959 3209 4466 6341 7676 8313 8570 8685 8746 8788 8787 8791 8785 8790 8801 8794 8822 616 22 2537 2399 2187 2010 1892 1848 1824 1831 1863 1806 1759 1970 2555 3140 3327 3316 3318 3257 3112 3008 3259 4511 6383 7713 8349 8605 8717 8781 8819 8818 8822 8815 8820 8832 8825 8848 617 23 3072 2952 2780 2641 2542 2519 2518 2520 2535 2445 2365 2518 2978 3415 3521 3484 3478 3410 3265 3165 3414 4642 6469 7767 8388 8639 8748 8811 8847 8845 8850 8843 8847 8858 8852 8876 618 24 3503 3447 3313 3222 3162 3167 3187 3194 3174 3056 2938 3009 3318 3586 3606 3544 3527 3455 3307 3209 3459 4685 6511 7803 8421 8671 8780 8843 8878 8877 8879 8873 8876 8889 8884 8907 619 25 3995 3974 3878 3828 3819 3862 3911 3918 3864 3707 3547 3531 3669 3767 3708 3621 3596 3522 3376 3287 3528 4723 6520 7809 8432 8685 8795 8853 8890 8889 8891 8887 8895 8908 8901 8919 620 26 4429 4469 4421 4430 4467 4548 4636 4642 4554 4356 4152 4035 3998 3922 3776 3663 3629 3550 3405 3319 3565 4763 6564 7853 8473 8725 8835 8896 8933 8932 8935 8928 8934 8946 8943 8967 621 27 4797 4857 4864 4939 5032 5156 5279 5292 5158 4925 4679 4457 4245 4019 3812 3681 3640 3560 3415 3333 3578 4762 6555 7842 8461 8708 8821 8879 8914 8914 8917 8913 8918 8933 8928 8947 622 1 0716 0781 0765 0689 0599 0559 0541 0566 0642 0673 0730 1067 1919 2871 3245 3158 2923 2615 2289 2043 1908 1856 1803 1761 1749 1751 1762 1806 1873 1915 1905 1869 1809 1762 1781 1889 623 2 0947 1052 1108 1082 1012 0989 0997 1036 1118 1151 1201 1512 2258 3045 3315 3187 2933 2615 2279 2028 1888 1828 1771 1729 1715 1718 1730 1773 1841 1882 1872 1834 1775 1723 1744 1852 624 3 1249 1430 1564 1613 1582 1591 1629 1694 1783 1815 1856 2121 2722 3310 3467 3300 3031 2704 2366 2113 1968 1902 1844 1800 1788 1788 1801 1844 1912 1953 1943 1904 1842 1791 1809 1918 625 4 1545 1810 2047 2186 2202 2257 2343 2437 2526 2557 2585 2780 3194 3554 3586 3378 3092 2759 2415 2162 2012 1940 1878 1833 1822 1822 1834 1878 1945 1985 1973 1937 1874 1823 1840 1952 626 5 1835 2216 2574 2827 2913 3036 3192 3328 3416 3440 3451 3541 3710 3797 3691 3434 3127 2781 2429 2173 2019 1939 1874 1829 1817 1819 1831 1873 1939 1978 1966 1929 1868 1816 1837 1943 627 6 2104 2544 3001 3359 3517 3705 3933 4106 4182 4204 4193 4171 4113 3988 3784 3496 3174 2820 2463 2203 2044 1958 1890 1844 1833 1833 1843 1889 1955 1994 1982 1944 1880 1831 1850 1959 628 7 2066 2586 3162 3616 3819 4078 4397 4622 4694 4671 4608 4528 4405 4192 3886 3506 3114 2683 2253 1953 1812 1808 1819 1806 1806 1810 1823 1876 1960 2011 1994 1945 1862 1794 1816 1949 629 8 2034 2624 3301 3856 4106 4432 4848 5131 5180 5104 4965 4816 4616 4311 3906 3448 3002 2516 2035 1713 1593 1672 1784 1822 1842 1855 1873 1939 2045 2107 2087 2022 1917 1830 1854 2015 630 9 1770 2424 3175 3793 4083 4464 4948 5266 5292 5164 4963 4752 4492 4117 3639 3134 2658 2146 1645 1321 1218 1333 1486 1544 1571 1588 1608 1681 1800 1873 1849 1779 1657 1559 1591 1768 631 10 1346 1192 1011 0824 0693 0628 0585 0602 0677 0707 0766 1130 2093 3301 3996 4223 4311 4338 4326 4313 4339 4420 4452 4466 4485 4497 4514 4534 4553 4557 4565 4571 4585 4602 4605 4625 632 11 1777 1687 1532 1374 1249 1183 1145 1160 1238 1267 1322 1662 2525 3562 4145 4330 4398 4417 4403 4394 4412 4477 4504 4517 4531 4543 4559 4580 4596 4599 4607 4613 4625 4642 4646 4663 633 12 2345 2327 2220 2101 2004 1950 1915 1932 2009 2034 2082 2375 3076 3882 4324 4457 4505 4515 4498 4491 4502 4549 4566 4576 4590 4602 4618 4638 4653 4654 4661 4665 4678 4692 4693 4712 634 13 2962 3020 2978 2921 2854 2830 2813 2831 2900 2922 2957 3176 3675 4219 4508 4586 4611 4612 4590 4587 4588 4616 4624 4632 4645 4655 4669 4685 4700 4701 4709 4710 4725 4741 4743 4754 635 14 3597 3736 3770 3783 3768 3777 3782 3812 3866 3882 3906 4035 4306 4582 4722 4747 4753 4743 4721 4721 4717 4725 4723 4729 4741 4749 4764 4783 4796 4796 4800 4803 4814 4830 4830 4844 636 15 4206 4425 4535 4629 4686 4739 4783 4815 4851 4858 4864 4875 4879 4878 4883 4862 4851 4833 4811 4811 4795 4791 4784 4789 4799 4807 4820 4837 4848 4847 4851 4854 4867 4884 4880 4894 637 16 4133 4446 4667 4850 4954 5073 5191 5266 5282 5241 5185 5133 5068 4977 4870 4744 4639 4503 4335 4219 4220 4449 4719 4870 4941 4972 4998 5039 5088 5106 5104 5081 5051 5029 5033 5104 638 17 4069 4450 4771 5037 5188 5370 5576 5687 5674 5567 5437 5311 5168 4980 4761 4544 4360 4132 3861 3673 3691 4114 4672 5004 5156 5219 5262 5330 5413 5453 5438 5394 5324 5266 5281 5396 639 18 3804 4237 4644 4991 5176 5412 5692 5844 5809 5652 5458 5273 5068 4804 4498 4204 3961 3667 3326 3093 3114 3618 4309 4730 4920 5001 5050 5132 5241 5296 5272 5208 5104 5014 5028 5188 640 19 1606 1346 1054 0796 0621 0531 0479 0493 0581 0606 0652 1070 2216 3610 4316 4499 4574 4553 4425 4318 4549 5611 7025 7970 8413 8594 8679 8733 8765 8765 8766 8755 8759 8775 8769 8793 641 20 1992 1769 1495 1250 1068 0978 0924 0941 1027 1039 1073 1479 2562 3835 4459 4611 4673 4645 4518 4414 4642 5689 7085 8019 8459 8636 8720 8774 8804 8804 8806 8795 8802 8811 8804 8829 642 21 2415 2244 1990 1768 1601 1523 1477 1490 1569 1565 1578 1944 2912 4014 4534 4649 4698 4663 4534 4433 4659 5696 7099 8047 8491 8670 8756 8809 8843 8842 8843 8834 8837 8852 8842 8863 643 22 2881 2762 2544 2356 2217 2155 2120 2133 2196 2167 2156 2461 3275 4170 4566 4636 4669 4626 4495 4397 4619 5660 7084 8050 8508 8691 8776 8830 8864 8860 8861 8852 8860 8869 8861 8885 644 23 3448 3357 3192 3047 2932 2894 2878 2891 2937 2886 2845 3087 3743 4426 4694 4719 4736 4684 4552 4458 4677 5701 7120 8086 8543 8727 8811 8863 8893 8890 8891 8882 8886 8902 8891 8913 645 24 4033 4008 3897 3810 3740 3736 3746 3762 3787 3708 3638 3797 4271 4745 4900 4888 4890 4833 4700 4615 4825 5824 7211 8153 8602 8779 8862 8914 8942 8938 8941 8933 8937 8953 8943 8962 646 25 4522 4557 4503 4470 4456 4482 4518 4537 4533 4428 4322 4388 4671 4928 4968 4920 4908 4844 4712 4628 4836 5824 7207 8153 8604 8781 8863 8917 8947 8944 8945 8938 8945 8960 8952 8971 647 26 5092 5198 5211 5250 5293 5371 5452 5478 5439 5301 5154 5111 5165 5183 5105 5016 4988 4918 4786 4707 4917 5895 7267 8208 8655 8832 8915 8965 8996 8991 8993 8983 8991 9004 8996 9014 648 27 5519 5703 5774 5892 6000 6128 6253 6284 6206 6033 5852 5688 5527 5347 5183 5066 5032 4958 4823 4751 4957 5922 7284 8219 8663 8843 8926 8975 9004 8998 8996 8989 8997 9009 9000 9022 649 1 0747 0804 0810 0730 0622 0571 0547 0579 0672 0711 0776 1190 2254 3451 3889 3722 3361 2915 2457 2121 1938 1862 1791 1735 1719 1719 1733 1786 1871 1923 1907 1860 1780 1714 1738 1874 650 2 0937 1057 1140 1115 1030 1002 1004 1055 1154 1197 1257 1653 2624 3663 3997 3786 3405 2947 2478 2136 1950 1867 1793 1738 1722 1723 1734 1788 1873 1925 1909 1860 1779 1712 1736 1869 651 3 1168 1395 1555 1604 1556 1557 1600 1676 1787 1830 1881 2238 3069 3903 4123 3878 3487 3026 2554 2211 2020 1933 1856 1799 1783 1783 1796 1851 1936 1987 1972 1921 1837 1773 1797 1929 652 4 1476 1766 2033 2169 2163 2216 2306 2417 2537 2579 2623 2924 3588 4195 4284 3992 3582 3112 2637 2292 2097 2005 1926 1869 1853 1854 1867 1918 2003 2056 2040 1988 1905 1840 1864 1991 653 5 1740 2143 2535 2803 2869 2990 3160 3318 3442 3485 3510 3714 4136 4454 4388 4039 3607 3121 2638 2291 2091 1990 1908 1851 1834 1834 1848 1900 1985 2034 2019 1967 1883 1820 1839 1974 654 6 1998 2492 3020 3408 3552 3745 4000 4212 4334 4375 4384 4479 4646 4690 4487 4094 3640 3145 2655 2304 2101 1995 1910 1853 1837 1837 1850 1903 1987 2036 2018 1970 1888 1824 1842 1978 655 7 2247 2829 3466 3972 4200 4472 4823 5086 5203 5235 5219 5188 5101 4910 4601 4174 3708 3206 2712 2358 2150 2040 1954 1896 1883 1880 1894 1949 2033 2081 2063 2013 1928 1862 1884 2016 656 8 2241 2922 3706 4348 4640 5005 5473 5816 5934 5927 5852 5757 5591 5293 4852 4305 3740 3134 2541 2131 1930 1893 1875 1844 1837 1841 1858 1924 2030 2093 2071 2008 1901 1811 1836 2003 657 9 2020 2732 3576 4281 4603 5022 5556 5933 6021 5953 5802 5633 5396 5017 4500 3909 3326 2705 2102 1697 1531 1568 1633 1645 1654 1662 1681 1755 1877 1951 1927 1852 1732 1635 1660 1843 658 10 1421 1287 1089 0871 0716 0634 0584 0604 0699 0738 0808 1262 2485 4040 4919 5159 5191 5131 5011 4906 4880 4938 4945 4937 4946 4957 4981 5020 5068 5089 5086 5069 5045 5027 5035 5101 659 11 1804 1742 1577 1400 1251 1175 1131 1154 1252 1290 1356 1784 2900 4271 5024 5214 5224 5152 5023 4919 4884 4925 4922 4912 4920 4933 4952 4994 5041 5060 5059 5040 5017 4998 5001 5067 660 12 2314 2330 2223 2095 1972 1910 1877 1906 2006 2043 2102 2488 3453 4589 5192 5324 5312 5225 5092 4988 4942 4968 4959 4946 4953 4965 4985 5024 5071 5089 5085 5067 5042 5020 5023 5089 661 13 2903 2987 2976 2907 2816 2784 2772 2813 2913 2946 2996 3329 4109 4975 5406 5469 5426 5321 5178 5069 5010 5014 4992 4974 4981 4989 5009 5046 5094 5112 5107 5088 5056 5037 5045 5116 662 14 3468 3627 3707 3728 3694 3705 3728 3782 3872 3903 3942 4185 4727 5292 5547 5542 5466 5342 5189 5077 5005 4988 4957 4937 4941 4947 4966 5002 5051 5070 5063 5042 5012 4991 4995 5061 663 15 4050 4341 4513 4621 4653 4710 4779 4851 4932 4957 4982 5122 5407 5673 5765 5704 5609 5479 5323 5215 5136 5103 5068 5046 5049 5058 5075 5112 5160 5174 5170 5147 5117 5095 5098 5167 664 16 4584 4973 5243 5464 5580 5698 5822 5915 5978 5998 6007 6015 6008 5975 5920 5809 5697 5558 5401 5293 5205 5156 5114 5090 5091 5099 5115 5152 5197 5213 5206 5184 5158 5134 5140 5204 665 17 4626 5110 5504 5839 6012 6206 6429 6576 6626 6595 6537 6477 6391 6254 6065 5835 5614 5347 5045 4829 4765 4942 5158 5270 5327 5355 5384 5443 5523 5559 5541 5497 5430 5372 5384 5495 666 18 4208 4723 5203 5598 5804 6056 6360 6540 6550 6449 6308 6169 5999 5760 5464 5147 4863 4521 4142 3875 3839 4197 4675 4950 5077 5132 5172 5251 5359 5411 5387 5323 5219 5128 5146 5299 667 19 1718 1467 1151 0864 0664 0567 0506 0521 0625 0661 0724 1223 2616 4396 5392 5694 5819 5829 5728 5638 5838 6670 7648 8260 8545 8663 8726 8771 8801 8798 8796 8788 8792 8805 8800 8823 668 20 2154 1944 1652 1370 1173 1066 1004 1023 1130 1159 1215 1706 3034 4671 5559 5822 5932 5935 5836 5751 5943 6754 7716 8320 8601 8715 8775 8818 8847 8843 8843 8833 8841 8853 8848 8865 669 21 2635 2481 2223 1978 1792 1698 1644 1660 1763 1781 1820 2271 3469 4912 5675 5893 5983 5978 5877 5794 5982 6774 7731 8337 8621 8740 8804 8849 8877 8872 8870 8860 8866 8882 8875 8890 670 22 3175 3061 2856 2652 2490 2414 2365 2384 2477 2479 2498 2895 3929 5130 5741 5900 5967 5952 5846 5767 5950 6745 7730 8361 8655 8775 8837 8882 8911 8906 8904 8895 8900 8914 8905 8924 671 23 3807 3761 3608 3450 3325 3272 3241 3265 3343 3326 3321 3651 4492 5413 5845 5937 5981 5951 5841 5765 5942 6735 7736 8382 8687 8809 8872 8917 8944 8935 8938 8929 8934 8947 8942 8960 672 24 4409 4450 4351 4263 4187 4173 4174 4200 4256 4217 4182 4419 5037 5690 5971 6010 6032 5993 5883 5810 5982 6765 7772 8432 8744 8869 8933 8977 9002 8998 8997 8989 8993 9006 8996 9015 673 25 5056 5148 5125 5117 5092 5115 5149 5183 5217 5155 5097 5229 5617 6006 6146 6137 6141 6094 5986 5923 6083 6823 7800 8442 8752 8877 8938 8982 9008 9000 9000 8991 8997 9011 8998 9015 674 26 5595 5785 5834 5898 5939 6016 6086 6130 6139 6055 5968 5993 6146 6271 6271 6216 6202 6147 6037 5977 6136 6872 7847 8496 8805 8931 8994 9036 9060 9052 9052 9045 9049 9061 9052 9072 675 27 6132 6404 6533 6687 6806 6937 7060 7110 7084 6973 6851 6744 6632 6503 6384 6290 6265 6204 6093 6037 6194 6919 7887 8527 8831 8955 9018 9058 9084 9073 9073 9065 9072 9088 9080 9098 676 1 0737 0840 0863 0771 0645 0588 0560 0596 0706 0754 0829 1327 2645 4150 4673 4401 3885 3269 2649 2204 1964 1860 1768 1697 1677 1678 1693 1759 1866 1934 1913 1851 1746 1662 1690 1856 677 2 0899 1085 1181 1150 1046 1008 1009 1064 1187 1239 1310 1797 3032 4374 4788 4477 3943 3318 2689 2240 1995 1886 1791 1719 1699 1698 1713 1780 1887 1956 1936 1871 1766 1680 1706 1872 678 3 1169 1404 1598 1645 1574 1569 1608 1695 1834 1887 1953 2414 3521 4665 4961 4613 4067 3439 2811 2360 2113 2001 1902 1831 1811 1811 1827 1892 2000 2067 2045 1983 1876 1789 1813 1982 679 4 1398 1723 2028 2172 2150 2194 2289 2416 2564 2619 2671 3077 4017 4921 5081 4684 4123 3486 2852 2396 2145 2025 1924 1851 1831 1832 1848 1914 2023 2090 2068 2004 1895 1807 1833 2003 680 5 1654 2109 2551 2828 2871 2991 3167 3353 3515 3571 3615 3942 4649 5240 5217 4755 4162 3505 2863 2404 2148 2021 1921 1848 1828 1827 1842 1909 2016 2080 2060 1994 1888 1803 1831 1994 681 6 1926 2488 3084 3520 3657 3863 4144 4397 4568 4624 4645 4860 5281 5546 5350 4826 4209 3541 2886 2422 2160 2028 1922 1849 1828 1829 1845 1912 2017 2081 2061 1996 1888 1801 1830 1996 682 7 2186 2834 3567 4126 4348 4632 5013 5329 5504 5561 5565 5666 5832 5813 5479 4913 4277 3598 2941 2475 2209 2071 1965 1891 1870 1869 1885 1952 2057 2121 2099 2034 1928 1840 1867 2037 683 8 2380 3128 3981 4682 4999 5386 5892 6282 6447 6498 6477 6432 6303 6023 5576 4973 4322 3633 2966 2492 2220 2079 1968 1894 1875 1875 1891 1958 2065 2131 2108 2043 1933 1845 1871 2039 684 9 2220 3032 3994 4792 5157 5615 6219 6667 6826 6833 6748 6635 6429 6050 5490 4798 4086 3336 2616 2120 1874 1806 1762 1715 1702 1708 1725 1799 1919 1993 1968 1892 1771 1672 1700 1883 685 10 1425 1330 1118 0883 0695 0600 0548 0574 0685 0730 0808 1348 2852 4803 5887 6124 6077 5897 5639 5428 5345 5386 5368 5338 5340 5353 5378 5435 5514 5550 5539 5497 5433 5383 5392 5498 686 11 1857 1778 1621 1426 1255 1167 1119 1150 1270 1319 1394 1920 3327 5084 6026 6200 6120 5925 5659 5445 5352 5374 5347 5318 5319 5329 5351 5412 5489 5522 5510 5468 5407 5354 5359 5472 687 12 2290 2294 2213 2059 1908 1844 1808 1848 1976 2024 2097 2597 3873 5403 6183 6286 6174 5956 5676 5452 5345 5346 5311 5274 5274 5282 5303 5363 5440 5477 5463 5423 5356 5300 5305 5421 688 13 2796 2928 2940 2868 2760 2718 2719 2776 2906 2954 3018 3463 4548 5782 6363 6384 6234 5987 5689 5458 5334 5312 5264 5223 5221 5229 5249 5307 5386 5424 5411 5363 5293 5237 5248 5358 689 14 3349 3596 3709 3737 3682 3694 3733 3815 3949 3995 4048 4419 5268 6171 6545 6484 6289 6021 5711 5475 5336 5290 5232 5189 5185 5191 5211 5270 5350 5387 5370 5324 5256 5195 5205 5319 690 15 3966 4264 4487 4619 4635 4694 4785 4890 5018 5062 5107 5380 5972 6559 6765 6649 6442 6172 5867 5640 5494 5437 5374 5331 5325 5331 5354 5411 5487 5521 5506 5461 5394 5334 5340 5458 691 16 4484 4917 5262 5499 5592 5721 5873 6013 6137 6181 6213 6377 6692 6946 6967 6789 6556 6274 5965 5734 5578 5501 5428 5381 5377 5383 5405 5463 5539 5572 5556 5510 5441 5381 5394 5510 692 17 5015 5556 6025 6403 6596 6804 7042 7218 7325 7359 7372 7378 7349 7264 7123 6892 6638 6345 6029 5801 5637 5547 5466 5419 5413 5420 5441 5502 5577 5607 5592 5547 5478 5424 5430 5550 693 18 4743 5370 5954 6430 6670 6947 7279 7514 7600 7583 7524 7458 7347 7151 6872 6518 6166 5760 5317 4998 4864 4977 5117 5175 5213 5234 5263 5338 5442 5493 5469 5403 5299 5215 5226 5383 694 19 1817 1561 1220 0916 0697 0590 0522 0541 0658 0704 0780 1348 2970 5130 6424 6860 7041 7090 7026 6961 7123 7685 8212 8504 8641 8703 8746 8781 8810 8802 8799 8789 8796 8812 8804 8821 695 20 2310 2079 1768 1472 1251 1139 1071 1091 1212 1255 1330 1895 3448 5453 6626 7011 7174 7215 7150 7087 7239 7778 8286 8571 8707 8769 8811 8847 8873 8865 8863 8854 8858 8868 8859 8883 696 21 2865 2690 2425 2158 1951 1846 1781 1804 1929 1968 2034 2577 4017 5829 6871 7208 7351 7384 7321 7267 7406 7902 8368 8630 8759 8817 8858 8892 8918 8909 8907 8897 8902 8915 8907 8928 697 22 3471 3375 3165 2945 2760 2671 2617 2640 2764 2795 2849 3342 4608 6149 7010 7278 7391 7411 7345 7292 7424 7909 8388 8663 8797 8859 8899 8933 8957 8950 8949 8939 8944 8954 8942 8959 698 23 4199 4200 4058 3897 3755 3685 3647 3678 3796 3817 3856 4284 5346 6574 7234 7422 7505 7512 7441 7395 7512 7969 8437 8708 8842 8902 8940 8974 8996 8986 8983 8972 8981 8993 8983 9000 699 24 4917 4990 4931 4851 4767 4736 4729 4768 4872 4882 4906 5244 6062 6972 7438 7559 7617 7610 7538 7497 7604 8039 8497 8765 8894 8952 8993 9027 9047 9034 9033 9026 9028 9040 9031 9044 700 25 5602 5785 5805 5800 5785 5805 5833 5882 5966 5959 5960 6188 6733 7309 7585 7638 7666 7646 7571 7533 7631 8052 8520 8801 8943 8997 9035 9068 9089 9078 9075 9066 9071 9085 9072 9089 701 26 6259 6525 6626 6712 6768 6839 6907 6970 7040 7024 7008 7125 7394 7649 7747 7739 7745 7715 7638 7608 7700 8109 8569 8850 8989 9047 9086 9116 9132 9122 9121 9110 9115 9127 9118 9132 702 27 6857 7211 7416 7613 7753 7891 8015 8091 8127 8096 8054 8023 7982 7927 7878 7822 7809 7772 7696 7670 7757 8143 8594 8874 9013 9070 9108 9141 9159 9146 9144 9134 9141 9154 9145 9156 703 21 0703 0830 0871 0772 0644 0577 0544 0582 0706 0756 0837 1389 2882 4606 5181 4824 4183 3438 2702 2177 1902 1779 1672 1593 1569 1569 1587 1661 1782 1857 1835 1764 1646 1548 1576 1765 704 22 0894 1087 1196 1157 1033 0990 0981 1041 1180 1239 1317 1874 3304 4874 5343 4947 4292 3540 2797 2271 1990 1863 1756 1675 1652 1652 1668 1741 1864 1939 1915 1844 1723 1625 1654 1842 705 23 1103 1357 1566 1611 1520 1512 1546 1640 1792 1854 1926 2455 3771 5152 5501 5065 4393 3632 2881 2346 2058 1924 1811 1727 1704 1703 1721 1797 1921 1999 1974 1900 1775 1674 1705 1892 706 24 1300 1649 1958 2099 2053 2086 2174 2305 2474 2536 2602 3091 4255 5405 5618 5132 4442 3671 2914 2375 2082 1943 1827 1743 1721 1721 1737 1813 1937 2015 1990 1914 1791 1688 1720 1905 707 25 1486 1942 2391 2646 2660 2758 2919 3103 3288 3354 3411 3845 4817 5685 5720 5165 4443 3651 2884 2344 2048 1903 1789 1706 1682 1682 1699 1774 1895 1970 1945 1871 1748 1650 1684 1865 708 26 1761 2332 2927 3337 3442 3622 3886 4139 4338 4405 4443 4779 5487 6027 5884 5268 4522 3718 2941 2394 2091 1940 1823 1739 1714 1715 1732 1806 1929 2004 1978 1905 1779 1679 1709 1897 709 27 2005 2708 3470 4035 4236 4521 4911 5242 5453 5520 5537 5750 6159 6352 6036 5363 4594 3779 2996 2448 2142 1985 1865 1783 1760 1758 1775 1850 1970 2045 2020 1945 1822 1720 1750 1937 710 28 2193 2977 3889 4599 4891 5272 5782 6194 6413 6481 6480 6568 6700 6599 6132 5404 4613 3783 2990 2433 2121 1961 1839 1756 1733 1732 1751 1826 1948 2022 1996 1921 1795 1694 1725 1911 711 29 2337 3219 4248 5111 5501 5982 6625 7124 7338 7402 7373 7308 7139 6775 6196 5435 4627 3790 2993 2433 2118 1956 1831 1748 1724 1725 1743 1816 1939 2013 1986 1911 1786 1686 1717 1898 712 210 1365 1280 1090 0858 0662 0569 0513 0540 0660 0711 0794 1383 3064 5268 6443 6604 6421 6082 5661 5322 5172 5176 5127 5071 5062 5068 5094 5168 5275 5327 5303 5240 5140 5050 5063 5223 713 211 1728 1693 1560 1358 1175 1084 1033 1070 1205 1258 1341 1933 3546 5575 6612 6719 6516 6169 5747 5413 5257 5249 5194 5135 5128 5134 5157 5231 5334 5387 5363 5300 5197 5109 5121 5279 714 212 2108 2166 2106 1968 1802 1736 1708 1758 1900 1955 2033 2600 4082 5875 6745 6775 6533 6162 5725 5387 5216 5189 5125 5066 5057 5062 5085 5158 5261 5315 5289 5225 5123 5035 5048 5202 715 213 2531 2679 2731 2671 2546 2509 2511 2584 2736 2791 2862 3387 4693 6203 6874 6819 6532 6128 5671 5321 5134 5084 5010 4946 4934 4940 4961 5034 5139 5192 5167 5103 4997 4906 4918 5079 716 214 3042 3289 3434 3458 3384 3385 3427 3529 3689 3744 3810 4285 5408 6613 7084 6950 6633 6213 5750 5397 5199 5129 5047 4980 4967 4970 4992 5067 5171 5221 5199 5134 5026 4935 4950 5106 717 215 3614 3977 4229 4371 4361 4420 4521 4654 4818 4875 4930 5316 6181 7054 7342 7155 6826 6410 5956 5615 5413 5332 5244 5179 5165 5170 5192 5264 5366 5417 5392 5327 5224 5137 5154 5307 718 216 4093 4567 4950 5199 5260 5383 5547 5721 5883 5938 5983 6269 6876 7434 7540 7289 6936 6507 6049 5708 5496 5399 5302 5236 5222 5227 5250 5323 5426 5472 5447 5382 5281 5194 5207 5367 719 217 4608 5199 5735 6119 6279 6484 6741 6960 7121 7177 7209 7369 7657 7839 7746 7425 7044 6599 6129 5783 5556 5439 5332 5263 5248 5251 5274 5345 5449 5498 5472 5404 5304 5215 5230 5392 720 218 5076 5763 6413 6938 7202 7500 7851 8121 8264 8315 8325 8325 8273 8127 7883 7514 7115 6666 6196 5851 5620 5492 5384 5312 5298 5300 5324 5399 5501 5546 5520 5456 5355 5269 5283 5444 721 219 1867 1619 1277 0950 0717 0604 0534 0556 0679 0733 0820 1442 3245 5741 7326 7903 8146 8242 8228 8204 8304 8546 8646 8686 8727 8753 8781 8817 8842 8835 8831 8821 8828 8843 8832 8848 722 220 2398 2160 1839 1531 1299 1180 1103 1125 1259 1315 1403 2028 3763 6084 7528 8045 8261 8346 8332 8312 8397 8615 8703 8739 8778 8803 8834 8864 8888 8881 8875 8867 8872 8887 8879 8901 723 221 2989 2813 2544 2272 2054 1938 1865 1889 2029 2083 2166 2765 4371 6457 7730 8178 8367 8441 8429 8413 8484 8671 8745 8778 8816 8842 8874 8904 8926 8919 8916 8907 8910 8926 8913 8934 724 222 3665 3571 3367 3137 2948 2852 2786 2814 2958 3012 3093 3650 5086 6893 7977 8348 8507 8565 8552 8543 8599 8752 8811 8840 8876 8906 8936 8966 8985 8977 8970 8962 8967 8979 8968 8988 725 223 4458 4477 4339 4173 4025 3951 3901 3939 4083 4132 4208 4707 5927 7393 8246 8526 8646 8688 8672 8673 8711 8825 8868 8892 8928 8952 8979 9012 9032 9020 9018 9006 9012 9026 9015 9031 726 224 5253 5383 5329 5248 5157 5122 5106 5152 5288 5335 5398 5809 6768 7877 8507 8707 8794 8821 8806 8811 8832 8912 8940 8962 8995 9016 9044 9075 9092 9081 9075 9068 9074 9088 9076 9092 727 225 5970 6210 6262 6270 6253 6267 6288 6353 6476 6522 6580 6893 7576 8329 8749 8868 8926 8944 8927 8939 8947 8994 9004 9025 9057 9077 9103 9128 9145 9134 9130 9119 9127 9139 9124 9142 728 226 6708 7040 7206 7311 7365 7439 7507 7588 7699 7747 7800 7994 8369 8749 8958 9002 9033 9035 9016 9033 9028 9048 9049 9064 9097 9117 9141 9169 9183 9169 9165 9154 9163 9176 9162 9179 729 227 7353 7805 8073 8299 8452 8598 8716 8816 8905 8947 8985 9027 9057 9084 9117 9106 9112 9103 9083 9107 9093 9091 9082 9098 9128 9145 9170 9197 9212 9198 9193 9182 9190 9200 9189 9208 730 21 7389 7827 8103 8325 8482 8621 8740 8838 8929 8970 9006 9048 9081 9103 9137 9126 9130 9124 9104 9125 9107 9103 9092 9103 9132 9152 9177 9202 9217 9202 9198 9190 9196 9210 9200 9216 731 22 6687 7227 7626 7954 8143 8335 8520 8666 8772 8814 8843 8872 8878 8852 8805 8687 8566 8408 8226 8108 8003 7944 7890 7866 7875 7886 7909 7955 8007 8023 8010 7976 7934 7903 7902 7981 732 23 5931 6540 7081 7497 7726 7966 8239 8439 8565 8611 8633 8646 8624 8539 8397 8156 7897 7593 7263 7027 6852 6754 6669 6619 6615 6621 6645 6706 6786 6818 6798 6749 6673 6610 6616 6737 733 24 5080 5790 6436 6967 7228 7521 7873 8141 8282 8332 8340 8334 8281 8132 7888 7524 7127 6681 6213 5868 5639 5512 5403 5331 5316 5320 5340 5411 5513 5561 5536 5469 5369 5284 5295 5454 734 25 4123 4904 5709 6345 6654 7012 7460 7804 7969 8023 8021 7996 7904 7680 7321 6813 6263 5661 5053 4608 4327 4172 4046 3961 3939 3941 3961 4041 4157 4218 4190 4115 3996 3895 3913 4099 735 26 3246 4086 5003 5751 6099 6519 7064 7486 7674 7732 7715 7672 7543 7250 6782 6148 5467 4745 4034 3523 3217 3054 2926 2838 2814 2813 2833 2911 3033 3102 3074 2998 2869 2763 2788 2977 736 27 2362 3243 4272 5138 5526 6016 6656 7155 7368 7434 7404 7338 7170 6804 6227 5466 4659 3817 3016 2454 2136 1972 1848 1763 1740 1741 1758 1835 1956 2029 2005 1930 1804 1702 1733 1920 737 28 1658 2527 3644 4583 5005 5546 6273 6847 7082 7148 7104 7015 6809 6380 5711 4853 3955 3042 2198 1629 1326 1176 1068 0997 0980 0980 0995 1060 1169 1239 1217 1153 1044 0962 0993 1159 738 29 0906 1756 2937 3960 4420 5017 5837 6482 6742 6818 6762 6651 6404 5904 5139 4182 3197 2225 1362 0811 0541 0419 0337 0288 0278 0281 0293 0344 0431 0492 0477 0427 0346 0292 0326 0459 739 210 7383 7835 8110 8337 8495 8638 8761 8860 8952 8992 9031 9071 9102 9129 9159 9146 9156 9149 9130 9151 9135 9132 9121 9133 9161 9179 9202 9228 9245 9229 9223 9214 9223 9236 9223 9241 740 211 6240 6715 7042 7323 7493 7673 7857 7979 8026 8001 7955 7912 7853 7760 7645 7501 7383 7226 7024 6885 6885 7166 7499 7693 7795 7840 7877 7934 7989 8005 7989 7958 7917 7883 7884 7965 741 212 4938 5379 5736 6049 6228 6435 6668 6806 6805 6701 6570 6442 6296 6099 5868 5634 5438 5191 4895 4689 4705 5172 5795 6177 6354 6430 6477 6549 6638 6674 6657 6606 6530 6462 6469 6591 742 213 3834 4269 4664 5001 5189 5428 5697 5841 5806 5646 5454 5269 5065 4805 4504 4219 3982 3692 3359 3131 3151 3656 4358 4791 4989 5072 5121 5204 5315 5370 5348 5285 5180 5087 5100 5263 743 214 2674 3079 3487 3834 4016 4262 4565 4707 4623 4405 4148 3907 3655 3347 3011 2715 2483 2205 1895 1700 1742 2240 2953 3391 3586 3666 3713 3801 3926 3994 3973 3900 3780 3674 3697 3874 744 215 1851 2230 2653 2993 3177 3436 3740 3879 3767 3517 3231 2966 2695 2380 2048 1774 1564 1320 1064 0917 0960 1368 1980 2351 2515 2583 2623 2708 2834 2910 2886 2814 2690 2583 2608 2797 745 216 1217 1606 2015 2364 2542 2793 3099 3231 3098 2828 2525 2248 1975 1668 1358 1118 0943 0746 0554 0460 0499 0794 1238 1490 1592 1635 1665 1743 1865 1943 1921 1851 1730 1630 1658 1839 746 217 0755 1129 1525 1844 2006 2247 2540 2654 2504 2217 1905 1623 1359 1077 0808 0623 0501 0369 0250 0211 0255 0451 0734 0879 0932 0952 0971 1033 1139 1211 1191 1130 1025 0942 0971 1134 747 218 0456 0810 1209 1517 1679 1913 2201 2307 2152 1863 1553 1279 1025 0766 0532 0384 0297 0208 0138 0132 0171 0273 0367 0376 0366 0361 0365 0405 0487 0545 0529 0480 0402 0341 0371 0497 748 219 7386 7822 8093 8314 8470 8605 8731 8827 8919 8961 8999 9041 9076 9098 9128 9118 9126 9119 9097 9119 9101 9099 9087 9104 9136 9157 9183 9211 9224 9208 9206 9194 9202 9217 9204 9224 749 220 6868 7238 7446 7630 7773 7913 8040 8117 8157 8128 8089 8059 8020 7967 7921 7864 7853 7815 7741 7717 7798 8175 8615 8893 9032 9090 9127 9159 9178 9166 9164 9156 9161 9176 9164 9179 750 221 6168 6443 6584 6728 6854 6991 7114 7166 7139 7035 6921 6816 6708 6583 6469 6379 6354 6293 6184 6130 6281 6986 7928 8562 8865 8989 9048 9091 9116 9107 9107 9099 9108 9119 9109 9128 751 222 5555 5730 5805 5919 6035 6164 6287 6322 6247 6079 5900 5739 5578 5404 5241 5128 5092 5020 4888 4816 5015 5962 7311 8246 8698 8881 8963 9017 9047 9041 9044 9037 9040 9054 9050 9069 752 223 4749 4811 4812 4886 4981 5100 5230 5234 5103 4865 4618 4399 4191 3968 3763 3633 3594 3514 3374 3296 3530 4694 6502 7829 8477 8739 8857 8921 8959 8958 8961 8957 8966 8980 8972 8994 753 224 4053 4040 3982 4015 4098 4225 4349 4336 4165 3884 3597 3343 3108 2866 2651 2524 2486 2411 2282 2216 2452 3703 5820 7450 8268 8602 8745 8822 8867 8874 8876 8874 8880 8892 8888 8914 754 225 3403 3318 3220 3233 3300 3420 3546 3522 3319 3006 2692 2420 2174 1932 1720 1605 1573 1508 1403 1361 1583 2845 5191 7097 8078 8487 8657 8745 8794 8803 8810 8806 8814 8828 8825 8844 755 226 2820 2650 2519 2512 2569 2686 2810 2776 2547 2211 1879 1594 1349 1111 0914 0815 0791 0741 0664 0645 0844 2088 4618 6762 7890 8364 8559 8656 8714 8729 8735 8734 8740 8753 8750 8776 756 227 2357 2154 2003 1981 2034 2150 2270 2227 1986 1639 1305 1026 0790 0571 0399 0322 0306 0272 0227 0236 0400 1564 4182 6501 7745 8271 8489 8595 8658 8673 8684 8683 8693 8702 8698 8727 757 21 6263 6488 6589 6664 6715 6785 6848 6911 6981 6967 6955 7080 7367 7642 7759 7754 7761 7733 7657 7625 7711 8105 8556 8841 8981 9043 9086 9118 9141 9127 9125 9115 9123 9137 9127 9143 758 22 6472 6866 7086 7275 7400 7508 7607 7690 7760 7789 7818 7847 7869 7886 7909 7891 7893 7879 7859 7871 7853 7849 7837 7848 7871 7886 7908 7932 7948 7943 7943 7933 7944 7963 7956 7973 759 23 5813 6274 6635 6908 7070 7222 7383 7508 7595 7628 7646 7667 7667 7637 7585 7469 7350 7198 7023 6908 6810 6755 6706 6683 6690 6699 6720 6766 6818 6834 6824 6795 6761 6731 6735 6813 760 24 5043 5598 6063 6434 6625 6831 7058 7233 7336 7370 7381 7387 7358 7278 7141 6915 6669 6380 6074 5851 5692 5602 5527 5482 5476 5484 5507 5563 5634 5666 5653 5608 5545 5488 5497 5611 761 25 4099 4727 5341 5831 6065 6333 6660 6908 7030 7070 7071 7059 6996 6846 6600 6239 5842 5400 4944 4609 4392 4271 4173 4108 4093 4095 4114 4179 4272 4320 4300 4243 4153 4074 4094 4238 762 26 3269 3974 4707 5293 5572 5892 6296 6605 6749 6792 6784 6757 6663 6453 6114 5638 5118 4553 3986 3573 3320 3182 3075 3002 2981 2982 3000 3069 3174 3231 3209 3144 3037 2947 2971 3134 763 27 2375 3118 3977 4679 4997 5387 5888 6275 6444 6493 6473 6423 6296 6016 5567 4962 4310 3620 2953 2480 2210 2068 1958 1884 1865 1865 1881 1948 2054 2118 2094 2030 1923 1836 1862 2026 764 28 1642 2411 3357 4151 4504 4947 5539 5996 6183 6239 6204 6136 5970 5625 5084 4378 3631 2856 2131 1638 1370 1237 1140 1076 1059 1060 1074 1133 1233 1294 1275 1217 1121 1044 1074 1228 765 29 0933 1712 2743 3617 4004 4504 5180 5702 5914 5973 5932 5844 5646 5241 4613 3809 2968 2122 1358 0858 0610 0494 0414 0366 0355 0358 0370 0419 0504 0561 0545 0499 0420 0365 0399 0530 766 210 6675 7001 7152 7258 7310 7377 7440 7515 7629 7676 7728 7929 8326 8733 8956 9002 9033 9035 9014 9028 9027 9054 9056 9073 9107 9126 9150 9177 9194 9182 9176 9168 9175 9188 9176 9197 767 211 6486 6862 7093 7270 7404 7511 7609 7686 7758 7790 7815 7845 7869 7887 7911 7895 7894 7881 7860 7872 7856 7853 7843 7853 7877 7893 7914 7941 7957 7949 7947 7941 7953 7969 7961 7976 768 212 5377 5775 6065 6303 6438 6589 6743 6843 6879 6845 6796 6752 6692 6599 6489 6351 6239 6089 5901 5777 5773 6021 6316 6486 6574 6614 6647 6697 6753 6770 6761 6735 6697 6669 6672 6754 769 213 4130 4491 4801 5063 5215 5389 5587 5696 5680 5575 5445 5323 5183 5002 4793 4584 4409 4191 3932 3756 3774 4185 4749 5097 5259 5328 5373 5437 5518 5554 5541 5499 5434 5379 5389 5502 770 214 2968 3340 3692 3999 4154 4359 4602 4726 4680 4525 4340 4161 3968 3725 3451 3194 2980 2724 2435 2243 2265 2686 3273 3624 3783 3851 3893 3969 4070 4123 4108 4051 3959 3878 3897 4052 771 215 2033 2373 2740 3032 3189 3404 3660 3776 3690 3489 3253 3035 2811 2543 2253 2007 1815 1587 1341 1194 1232 1623 2191 2531 2678 2740 2780 2855 2965 3031 3013 2951 2848 2757 2778 2943 772 216 1296 1627 1979 2279 2431 2647 2917 3029 2917 2686 2424 2182 1944 1673 1395 1176 1014 0829 0645 0550 0591 0891 1332 1585 1689 1732 1761 1831 1939 2007 1988 1928 1823 1735 1760 1928 773 217 0782 1089 1431 1709 1853 2066 2320 2419 2290 2040 1769 1523 1291 1040 0800 0631 0516 0391 0279 0241 0282 0478 0763 0913 0971 0992 1012 1067 1163 1226 1209 1155 1060 0985 1011 1163 774 218 0468 0771 1119 1388 1527 1734 1983 2074 1937 1682 1411 1170 0946 0715 0507 0373 0293 0208 0142 0135 0175 0280 0394 0419 0418 0416 0420 0459 0536 0592 0578 0533 0456 0401 0425 0550 775 219 6027 6458 6722 6913 6997 7100 7216 7333 7460 7508 7557 7747 8117 8462 8597 8537 8435 8289 8109 7986 7895 7864 7821 7799 7810 7824 7852 7901 7956 7966 7951 7917 7880 7853 7854 7931 776 220 6490 6866 7084 7267 7393 7505 7607 7681 7754 7783 7812 7844 7868 7886 7908 7892 7891 7878 7855 7872 7853 7852 7844 7855 7877 7893 7914 7942 7957 7949 7948 7943 7954 7973 7964 7982 777 221 5999 6312 6477 6628 6744 6856 6959 7017 7043 7006 6966 6930 6885 6830 6779 6723 6708 6669 6598 6571 6643 6988 7395 7650 7773 7826 7860 7892 7910 7901 7904 7899 7909 7923 7921 7942 778 222 5306 5486 5592 5702 5799 5907 6011 6044 6006 5895 5776 5665 5555 5430 5315 5228 5200 5142 5041 4989 5130 5790 6691 7297 7584 7700 7760 7800 7823 7820 7822 7820 7831 7851 7846 7864 779 223 4688 4791 4835 4907 4993 5104 5205 5221 5139 4972 4794 4637 4484 4317 4165 4062 4028 3962 3846 3784 3963 4827 6097 6990 7421 7595 7675 7725 7757 7760 7764 7763 7771 7787 7784 7806 780 224 3935 3944 3920 3965 4033 4139 4244 4241 4112 3887 3656 3451 3259 3060 2876 2766 2729 2664 2549 2491 2694 3720 5377 6602 7204 7451 7559 7620 7656 7661 7671 7671 7682 7697 7692 7715 781 225 3191 3141 3068 3082 3138 3248 3352 3334 3161 2898 2628 2393 2179 1965 1775 1670 1640 1580 1481 1439 1642 2744 4695 6221 6983 7295 7427 7500 7544 7554 7561 7564 7576 7591 7587 7613 782 226 2615 2472 2371 2364 2414 2516 2624 2596 2399 2105 1817 1571 1353 1143 0968 0879 0857 0810 0740 0723 0906 1991 4133 5898 6806 7181 7340 7421 7473 7487 7500 7503 7515 7533 7529 7556 783 227 2136 1966 1826 1815 1858 1957 2067 2032 1817 1510 1213 0964 0752 0554 0399 0328 0313 0281 0239 0248 0403 1442 3705 5644 6656 7077 7254 7344 7398 7415 7430 7433 7448 7463 7466 7495 784 21 4939 5039 5005 4981 4955 4974 5008 5042 5080 5020 4969 5115 5528 5951 6112 6113 6120 6076 5964 5897 6057 6792 7767 8428 8753 8887 8955 9001 9029 9023 9022 9014 9024 9037 9025 9043 785 22 5356 5566 5625 5670 5696 5746 5793 5840 5893 5877 5859 5969 6237 6497 6600 6593 6593 6563 6489 6456 6536 6900 7322 7587 7715 7772 7811 7841 7860 7855 7861 7857 7868 7886 7879 7898 786 23 5316 5611 5769 5907 5994 6073 6140 6190 6241 6255 6270 6289 6300 6307 6319 6297 6288 6274 6250 6257 6240 6234 6224 6231 6248 6259 6275 6296 6310 6307 6309 6307 6315 6334 6332 6348 787 24 4639 5028 5307 5523 5642 5762 5886 5981 6044 6062 6073 6082 6074 6042 5988 5880 5764 5625 5471 5362 5272 5224 5184 5161 5162 5168 5187 5227 5270 5286 5281 5259 5231 5211 5219 5286 788 25 3909 4368 4760 5074 5227 5395 5585 5731 5807 5832 5835 5831 5801 5718 5586 5378 5148 4884 4605 4402 4260 4181 4116 4075 4067 4071 4088 4136 4200 4231 4220 4183 4126 4081 4095 4195 789 26 3080 3607 4134 4549 4743 4965 5240 5445 5541 5570 5562 5544 5484 5345 5124 4801 4443 4047 3645 3349 3161 3060 2977 2920 2909 2909 2925 2979 3060 3104 3088 3039 2961 2896 2914 3045 790 27 2313 2879 3534 4049 4276 4554 4906 5174 5295 5326 5311 5279 5191 4998 4687 4255 3786 3278 2777 2416 2205 2094 2006 1947 1930 1932 1946 2000 2086 2136 2119 2068 1983 1916 1937 2071 791 28 1522 2148 2898 3501 3768 4100 4536 4866 5001 5039 5015 4965 4845 4595 4195 3663 3091 2489 1918 1523 1306 1195 1115 1062 1048 1048 1059 1109 1192 1242 1228 1180 1099 1038 1065 1196 792 29 0927 1554 2371 3055 3357 3740 4248 4637 4794 4839 4806 4741 4594 4291 3816 3198 2538 1868 1254 0849 0643 0545 0477 0435 0425 0428 0438 0479 0549 0598 0586 0546 0477 0433 0458 0574 793 210 5909 6122 6161 6161 6134 6140 6157 6218 6341 6389 6448 6767 7478 8268 8707 8836 8897 8910 8886 8892 8910 8981 9003 9025 9056 9077 9104 9130 9147 9136 9132 9120 9128 9145 9136 9149 794 211 5790 6042 6149 6213 6242 6283 6328 6388 6485 6522 6564 6754 7132 7519 7726 7771 7795 7790 7766 7773 7771 7799 7804 7820 7844 7858 7882 7908 7925 7915 7916 7912 7922 7940 7931 7949 795 212 5338 5626 5784 5920 6010 6084 6152 6206 6253 6271 6286 6304 6317 6323 6336 6315 6308 6292 6266 6274 6257 6249 6241 6247 6267 6277 6294 6314 6329 6323 6325 6326 6335 6350 6348 6364 796 213 4216 4540 4765 4951 5054 5167 5289 5361 5376 5333 5277 5225 5160 5071 4965 4842 4741 4607 4443 4333 4333 4558 4832 4992 5068 5101 5128 5171 5220 5240 5234 5213 5185 5163 5170 5239 797 214 3099 3393 3651 3858 3969 4109 4272 4351 4328 4226 4105 3990 3862 3701 3518 3338 3188 3004 2790 2645 2664 3000 3451 3722 3842 3893 3927 3983 4052 4088 4079 4044 3988 3940 3953 4058 798 215 2104 2382 2655 2886 3004 3170 3359 3443 3385 3239 3065 2904 2733 2528 2303 2106 1949 1758 1546 1415 1449 1788 2259 2536 2655 2706 2737 2799 2883 2931 2917 2873 2798 2731 2751 2879 799 216 1355 1630 1910 2142 2260 2430 2629 2715 2627 2448 2244 2055 1867 1651 1427 1246 1111 0955 0790 0704 0745 1028 1432 1663 1758 1796 1821 1879 1965 2019 2004 1958 1876 1809 1827 1965 800 217 0776 1046 1324 1549 1669 1838 2045 2125 2022 1823 1605 1407 1218 1011 0808 0658 0553 0437 0329 0288 0327 0517 0795 0945 1002 1025 1041 1089 1169 1223 1208 1163 1084 1024 1049 1174 801 218 0459 0696 0978 1202 1313 1484 1679 1753 1644 1436 1215 1016 0832 0642 0467 0352 0281 0206 0147 0142 0181 0290 0419 0462 0468 0469 0473 0507 0573 0618 0606 0567 0503 0453 0479 0589 802 219 4767 5138 5401 5557 5585 5669 5780 5910 6057 6107 6157 6452 7087 7726 7956 7841 7630 7351 7032 6794 6651 6606 6543 6501 6500 6513 6541 6603 6683 6711 6691 6639 6571 6514 6521 6641 803 220 5191 5538 5763 5916 5969 6048 6142 6243 6350 6390 6430 6606 6955 7285 7407 7346 7244 7099 6924 6804 6716 6688 6649 6626 6635 6647 6670 6716 6770 6787 6778 6749 6717 6691 6697 6771 804 221 5334 5639 5802 5945 6025 6108 6176 6233 6283 6299 6316 6336 6348 6355 6369 6350 6341 6326 6302 6309 6291 6286 6277 6284 6301 6313 6332 6350 6365 6361 6364 6364 6372 6390 6387 6400 805 222 4852 5084 5198 5310 5384 5466 5538 5578 5584 5540 5490 5450 5401 5342 5289 5233 5215 5177 5113 5086 5149 5462 5840 6074 6185 6232 6263 6287 6305 6302 6308 6309 6324 6339 6334 6350 806 223 4226 4357 4410 4485 4550 4628 4705 4725 4682 4575 4463 4363 4262 4152 4050 3975 3946 3897 3812 3769 3890 4450 5232 5760 6005 6106 6157 6193 6214 6215 6222 6221 6235 6251 6254 6269 807 224 3529 3595 3590 3634 3691 3772 3850 3857 3763 3605 3439 3289 3148 2997 2858 2769 2738 2683 2588 2539 2697 3455 4602 5410 5794 5952 6024 6067 6098 6100 6109 6113 6123 6141 6142 6161 808 225 2871 2849 2805 2818 2864 2948 3030 3018 2890 2685 2476 2295 2128 1957 1805 1718 1692 1638 1554 1520 1690 2552 4005 5096 5627 5842 5938 5991 6026 6034 6043 6049 6063 6077 6082 6102 809 226 2288 2209 2125 2116 2160 2243 2329 2305 2150 1918 1689 1492 1316 1145 1001 0925 0904 0865 0804 0793 0948 1818 3467 4774 5426 5695 5809 5870 5909 5918 5931 5938 5955 5970 5972 5998 810 227 1861 1723 1623 1604 1643 1724 1810 1779 1607 1359 1115 0910 0734 0568 0435 0373 0359 0330 0293 0299 0439 1299 3089 4566 5314 5624 5753 5822 5864 5880 5895 5903 5917 5933 5939 5969 811 21 3923 3900 3777 3683 3617 3605 3617 3634 3655 3584 3520 3685 4165 4662 4845 4844 4849 4796 4669 4584 4782 5729 7091 8067 8551 8751 8848 8905 8939 8941 8939 8934 8941 8953 8947 8970 812 22 4117 4167 4116 4063 4031 4035 4057 4080 4105 4049 3997 4125 4501 4880 5021 5015 5016 4973 4871 4808 4954 5637 6560 7190 7496 7621 7685 7729 7756 7754 7758 7756 7768 7785 7782 7802 813 23 4272 4397 4429 4442 4450 4480 4506 4534 4571 4545 4523 4611 4836 5054 5136 5123 5120 5090 5024 4993 5063 5391 5785 6032 6148 6198 6231 6260 6279 6278 6282 6283 6295 6310 6310 6330 814 24 4313 4537 4670 4769 4824 4879 4926 4963 5002 5009 5017 5031 5036 5037 5043 5025 5014 4996 4975 4979 4963 4958 4950 4954 4968 4979 4995 5013 5024 5023 5029 5031 5044 5060 5059 5074 815 25 3639 3969 4206 4387 4481 4575 4673 4752 4801 4811 4816 4818 4805 4769 4711 4606 4494 4361 4211 4107 4028 3981 3940 3921 3924 3927 3942 3975 4017 4035 4033 4015 3992 3975 3979 4048 816 26 2943 3316 3669 3939 4065 4207 4375 4497 4564 4578 4575 4566 4532 4451 4321 4123 3903 3653 3393 3201 3074 3004 2945 2910 2904 2905 2919 2958 3018 3045 3037 3006 2957 2916 2932 3025 817 27 2191 2666 3139 3502 3665 3858 4098 4274 4357 4378 4368 4349 4291 4162 3953 3658 3332 2968 2603 2337 2173 2086 2018 1972 1961 1963 1974 2020 2088 2128 2118 2077 2012 1960 1979 2091 818 28 1478 1981 2561 3024 3229 3472 3784 4023 4126 4153 4133 4099 4014 3834 3545 3151 2718 2255 1810 1496 1321 1230 1162 1114 1104 1106 1115 1159 1228 1271 1258 1219 1153 1102 1126 1236 819 29 0893 1386 2029 2570 2797 3084 3467 3761 3877 3907 3883 3837 3728 3501 3141 2666 2154 1625 1138 0815 0649 0568 0512 0477 0470 0470 0478 0512 0570 0609 0599 0566 0511 0473 0496 0596 820 210 5144 5243 5186 5095 4999 4964 4945 4990 5120 5169 5235 5648 6626 7777 8438 8645 8733 8758 8734 8728 8764 8883 8929 8953 8990 9016 9045 9076 9093 9084 9083 9074 9080 9094 9086 9103 821 211 5061 5207 5205 5180 5138 5132 5133 5180 5290 5329 5382 5681 6353 7101 7514 7631 7682 7690 7663 7661 7677 7747 7770 7787 7817 7836 7861 7886 7903 7898 7899 7895 7904 7920 7910 7928 822 212 4696 4878 4935 4962 4970 4996 5019 5059 5132 5157 5192 5349 5674 6010 6186 6221 6234 6226 6201 6201 6197 6222 6225 6232 6253 6266 6285 6306 6320 6317 6320 6320 6329 6343 6347 6358 823 213 4343 4565 4682 4780 4849 4902 4942 4981 5016 5027 5033 5045 5051 5053 5057 5037 5026 5009 4987 4987 4972 4965 4957 4962 4976 4983 4998 5015 5031 5031 5032 5035 5049 5065 5065 5084 824 214 3237 3486 3667 3806 3886 3974 4073 4124 4127 4082 4023 3968 3904 3817 3719 3610 3516 3396 3253 3158 3162 3359 3604 3746 3811 3841 3861 3900 3945 3965 3962 3947 3923 3900 3912 3976 825 215 2246 2496 2711 2878 2969 3077 3214 3275 3248 3155 3045 2940 2827 2686 2528 2378 2253 2098 1925 1813 1833 2098 2450 2655 2747 2784 2811 2858 2917 2950 2944 2915 2864 2825 2843 2932 826 216 1440 1657 1881 2064 2157 2281 2432 2497 2438 2306 2155 2015 1872 1705 1527 1376 1260 1122 0974 0891 0925 1174 1511 1701 1778 1808 1829 1878 1949 1990 1982 1945 1883 1828 1850 1962 827 217 0818 1013 1247 1434 1523 1656 1818 1882 1805 1647 1474 1316 1164 0993 0825 0696 0603 0497 0396 0356 0392 0573 0827 0962 1013 1032 1045 1087 1154 1198 1188 1152 1089 1036 1059 1171 828 218 0433 0629 0857 1036 1121 1259 1421 1479 1391 1224 1045 0884 0735 0579 0433 0335 0273 0208 0155 0151 0189 0295 0424 0473 0482 0482 0485 0512 0566 0605 0596 0563 0510 0473 0493 0586 829 219 3590 3938 4192 4321 4309 4369 4470 4602 4761 4818 4874 5256 6118 7000 7293 7109 6782 6371 5918 5576 5388 5325 5246 5183 5172 5178 5203 5273 5373 5421 5393 5329 5234 5154 5167 5326 830 220 3973 4286 4510 4639 4647 4712 4803 4914 5042 5087 5134 5409 6009 6608 6815 6697 6490 6218 5908 5675 5538 5495 5437 5393 5393 5401 5424 5481 5555 5589 5573 5530 5467 5412 5421 5540 831 221 4129 4414 4593 4702 4737 4793 4860 4938 5024 5052 5081 5231 5531 5815 5916 5856 5761 5627 5468 5354 5276 5251 5217 5198 5201 5210 5230 5269 5315 5332 5327 5306 5275 5253 5261 5330 832 222 4381 4641 4759 4859 4920 4976 5025 5063 5101 5110 5121 5132 5138 5141 5147 5126 5115 5098 5074 5078 5062 5056 5049 5055 5066 5075 5090 5108 5121 5122 5126 5130 5142 5159 5159 5177 833 223 3855 4009 4083 4154 4210 4269 4324 4342 4335 4288 4236 4190 4140 4082 4030 3979 3959 3924 3867 3843 3901 4184 4543 4767 4873 4917 4944 4968 4984 4987 4994 4994 5008 5027 5026 5042 834 224 3283 3373 3395 3439 3490 3552 3607 3617 3569 3469 3364 3271 3179 3079 2986 2918 2894 2849 2779 2743 2849 3344 4043 4509 4725 4812 4853 4886 4907 4911 4921 4929 4942 4960 4964 4981 835 225 2648 2646 2633 2654 2693 2753 2813 2810 2722 2573 2422 2289 2163 2034 1916 1844 1820 1778 1707 1680 1815 2459 3480 4209 4552 4692 4756 4795 4821 4832 4844 4850 4863 4880 4885 4903 836 226 2032 1996 1933 1937 1966 2032 2100 2082 1965 1784 1601 1444 1304 1166 1046 0982 0963 0928 0875 0863 0997 1696 2952 3904 4366 4553 4634 4681 4712 4724 4738 4743 4758 4776 4783 4803 837 227 1606 1508 1415 1402 1434 1499 1571 1544 1406 1207 1010 0843 0700 0564 0455 0404 0390 0366 0333 0342 0466 1165 2576 3705 4264 4493 4593 4646 4682 4695 4713 4721 4736 4751 4763 4785 838 21 2923 2807 2627 2486 2400 2375 2372 2380 2388 2306 2234 2383 2834 3274 3398 3369 3364 3302 3163 3069 3297 4456 6271 7636 8324 8612 8738 8807 8848 8854 8856 8848 8854 8868 8860 8890 839 22 3195 3124 2998 2900 2827 2811 2817 2823 2840 2774 2714 2858 3281 3707 3848 3837 3838 3788 3670 3593 3776 4662 5958 6880 7328 7516 7601 7656 7691 7695 7701 7700 7709 7726 7719 7744 840 23 3193 3178 3113 3060 3017 3021 3025 3040 3056 3001 2956 3065 3377 3687 3791 3779 3776 3735 3646 3592 3721 4318 5134 5684 5945 6050 6102 6140 6164 6166 6174 6175 6189 6210 6208 6228 841 24 3261 3365 3362 3360 3352 3370 3387 3406 3427 3400 3377 3446 3628 3801 3857 3841 3835 3804 3748 3718 3784 4087 4461 4691 4799 4845 4875 4901 4918 4920 4928 4936 4948 4967 4966 4985 842 25 3327 3494 3581 3640 3684 3724 3750 3774 3799 3803 3807 3814 3815 3814 3815 3796 3784 3768 3748 3748 3735 3730 3724 3728 3740 3748 3760 3776 3790 3794 3805 3808 3825 3842 3846 3862 843 26 2720 2981 3182 3324 3397 3471 3552 3609 3648 3656 3657 3655 3640 3605 3550 3455 3352 3231 3099 3005 2934 2897 2866 2847 2848 2851 2865 2894 2929 2948 2949 2936 2914 2901 2912 2969 844 27 2032 2369 2669 2912 3015 3136 3284 3391 3445 3457 3452 3442 3407 3330 3205 3019 2812 2578 2339 2162 2051 1992 1943 1912 1907 1909 1919 1954 2004 2033 2027 2001 1960 1929 1946 2027 845 28 1393 1765 2168 2491 2622 2788 2995 3152 3220 3236 3227 3204 3150 3034 2842 2575 2276 1954 1636 1410 1281 1214 1163 1130 1121 1122 1131 1165 1216 1251 1242 1213 1164 1127 1147 1237 846 29 0840 1239 1721 2107 2276 2482 2751 2952 3033 3056 3041 3009 2935 2776 2523 2180 1806 1412 1044 0794 0663 0600 0553 0525 0517 0518 0525 0553 0602 0633 0626 0597 0553 0525 0545 0629 847 210 4339 4339 4191 4026 3877 3795 3751 3787 3923 3976 4051 4548 5779 7278 8154 8442 8564 8602 8571 8552 8612 8784 8853 8884 8921 8947 8977 9008 9030 9020 9015 9006 9012 9026 9016 9040 848 211 4293 4357 4267 4158 4051 4005 3975 4008 4130 4173 4237 4631 5566 6655 7269 7457 7534 7555 7526 7513 7548 7663 7706 7729 7761 7778 7803 7832 7850 7846 7846 7842 7854 7872 7864 7879 849 212 4001 4079 4054 4012 3958 3940 3926 3960 4046 4076 4120 4378 4967 5621 5976 6073 6111 6112 6086 6075 6089 6151 6173 6186 6206 6220 6240 6262 6276 6275 6279 6280 6289 6306 6304 6318 850 213 3749 3863 3892 3896 3892 3901 3911 3940 3998 4015 4043 4179 4466 4763 4915 4940 4949 4940 4914 4909 4907 4929 4934 4943 4957 4968 4983 5002 5018 5017 5025 5026 5040 5057 5057 5075 851 214 3346 3520 3605 3672 3716 3752 3784 3803 3829 3834 3837 3843 3845 3843 3843 3824 3812 3796 3776 3774 3761 3758 3754 3758 3767 3777 3788 3803 3816 3818 3825 3832 3846 3862 3867 3883 852 215 2360 2536 2679 2781 2837 2906 2981 3016 3010 2963 2908 2855 2794 2717 2629 2537 2461 2364 2250 2176 2185 2360 2585 2713 2771 2796 2817 2850 2886 2908 2910 2900 2881 2864 2877 2933 853 216 1482 1656 1825 1956 2023 2114 2216 2267 2232 2143 2043 1950 1852 1732 1600 1485 1391 1276 1150 1076 1102 1305 1569 1713 1771 1795 1814 1850 1903 1933 1930 1907 1868 1834 1849 1936 854 217 0861 1007 1192 1324 1399 1501 1620 1667 1609 1492 1361 1240 1121 0988 0851 0745 0666 0575 0484 0444 0481 0656 0885 1004 1046 1063 1073 1107 1160 1195 1189 1161 1112 1073 1094 1185 855 218 0420 0579 0757 0897 0966 1073 1198 1241 1175 1046 0905 0779 0661 0536 0418 0335 0280 0221 0173 0166 0204 0311 0445 0502 0516 0520 0521 0543 0589 0622 0613 0586 0544 0511 0530 0608 856 219 2547 2875 3126 3225 3187 3221 3309 3437 3603 3662 3726 4176 5221 6298 6619 6349 5899 5354 4776 4347 4114 4030 3935 3861 3842 3844 3864 3941 4059 4121 4091 4020 3904 3806 3824 4003 857 220 2804 3093 3341 3450 3432 3481 3568 3684 3827 3877 3929 4286 5091 5896 6136 5930 5593 5177 4724 4385 4197 4129 4051 3990 3979 3982 4002 4069 4165 4213 4192 4135 4043 3965 3980 4137 858 221 3017 3261 3438 3531 3532 3577 3645 3735 3835 3872 3909 4148 4672 5190 5355 5241 5045 4793 4510 4297 4174 4136 4087 4048 4042 4046 4063 4113 4180 4214 4201 4163 4108 4062 4069 4175 859 222 3224 3442 3588 3670 3689 3730 3787 3844 3915 3936 3959 4087 4348 4591 4671 4607 4511 4381 4232 4123 4050 4026 3994 3976 3978 3985 4000 4035 4077 4096 4093 4075 4052 4031 4040 4109 860 223 3413 3581 3663 3730 3777 3812 3846 3872 3898 3901 3905 3914 3916 3915 3915 3896 3885 3868 3846 3846 3833 3830 3825 3828 3839 3847 3859 3875 3889 3892 3901 3906 3918 3936 3939 3957 861 224 2923 3013 3057 3100 3138 3181 3218 3230 3213 3164 3110 3061 3011 2955 2902 2857 2837 2807 2758 2738 2798 3062 3407 3624 3725 3767 3790 3812 3829 3835 3845 3852 3867 3882 3886 3906 862 225 2335 2389 2386 2410 2443 2487 2531 2530 2480 2381 2282 2192 2107 2016 1933 1877 1857 1822 1767 1744 1843 2284 2932 3366 3564 3647 3689 3717 3737 3744 3755 3765 3779 3798 3803 3818 863 226 1771 1739 1696 1701 1724 1774 1822 1810 1726 1594 1459 1342 1236 1128 1036 0983 0967 0937 0891 0884 0998 1531 2427 3074 3378 3498 3555 3591 3616 3627 3642 3653 3668 3683 3695 3716 864 227 1354 1271 1196 1196 1213 1269 1317 1297 1196 1042 0892 0764 0652 0546 0460 0419 0409 0390 0363 0373 0478 1022 2072 2877 3265 3422 3491 3531 3561 3576 3591 3605 3619 3640 3651 3672 865 21 2124 1961 1757 1609 1511 1485 1475 1477 1480 1404 1343 1474 1866 2240 2322 2284 2272 2212 2088 2005 2223 3434 5538 7222 8095 8462 8621 8705 8754 8765 8768 8761 8762 8774 8769 8788 866 22 2254 2118 1953 1824 1735 1715 1710 1714 1716 1644 1585 1712 2092 2458 2549 2521 2511 2458 2343 2267 2465 3501 5189 6469 7108 7371 7490 7555 7594 7602 7608 7607 7617 7628 7630 7648 867 23 2245 2177 2055 1950 1886 1866 1865 1868 1875 1816 1764 1877 2206 2521 2603 2580 2570 2526 2427 2362 2525 3316 4514 5367 5777 5943 6022 6069 6099 6109 6114 6119 6130 6145 6141 6157 868 24 2357 2330 2258 2190 2145 2136 2138 2143 2156 2111 2077 2170 2439 2702 2783 2770 2764 2731 2658 2613 2724 3239 3960 4446 4675 4769 4816 4847 4870 4875 4884 4894 4907 4924 4925 4941 869 25 2380 2429 2407 2388 2372 2372 2384 2395 2405 2377 2354 2411 2566 2714 2757 2744 2736 2711 2664 2639 2700 2973 3324 3544 3647 3691 3718 3741 3759 3765 3773 3782 3796 3812 3818 3833 870 26 2502 2620 2680 2731 2749 2774 2794 2806 2826 2826 2830 2832 2832 2828 2827 2812 2801 2786 2770 2767 2757 2754 2751 2753 2763 2770 2781 2794 2807 2813 2823 2832 2845 2863 2871 2884 871 27 1915 2113 2280 2400 2456 2516 2587 2633 2663 2667 2666 2664 2649 2615 2559 2471 2373 2260 2138 2051 1990 1956 1930 1913 1913 1917 1927 1951 1982 2002 2002 1995 1976 1967 1983 2034 872 28 1302 1556 1812 2018 2098 2199 2323 2411 2453 2462 2457 2445 2413 2345 2231 2069 1883 1677 1467 1315 1224 1176 1138 1113 1108 1108 1119 1145 1186 1211 1205 1187 1153 1130 1152 1218 873 29 0792 1073 1414 1688 1799 1935 2111 2242 2298 2310 2300 2282 2233 2130 1960 1727 1468 1190 0924 0741 0641 0593 0556 0533 0528 0529 0534 0557 0596 0621 0616 0595 0561 0537 0556 0627 874 210 3546 3459 3241 3006 2821 2723 2660 2687 2821 2870 2953 3501 4934 6759 7857 8230 8385 8437 8401 8365 8452 8688 8786 8823 8861 8883 8914 8946 8967 8959 8952 8942 8948 8961 8951 8966 875 211 3542 3508 3346 3164 3011 2934 2883 2913 3032 3078 3148 3611 4771 6189 7008 7274 7382 7413 7379 7352 7411 7580 7650 7679 7710 7729 7756 7784 7803 7801 7801 7797 7806 7820 7813 7824 876 212 3314 3306 3210 3078 2976 2926 2887 2914 3012 3044 3100 3449 4279 5241 5773 5935 5998 6010 5981 5961 5991 6094 6135 6150 6173 6187 6208 6230 6251 6248 6252 6251 6261 6281 6275 6286 877 213 3065 3126 3079 3011 2950 2919 2902 2922 2994 3016 3055 3288 3821 4408 4719 4801 4831 4829 4799 4786 4802 4860 4881 4892 4907 4917 4934 4952 4966 4969 4973 4977 4990 5005 5009 5016 878 214 2796 2868 2871 2860 2837 2831 2831 2847 2896 2908 2931 3053 3316 3588 3722 3748 3756 3746 3724 3717 3716 3735 3741 3748 3758 3765 3781 3797 3813 3816 3823 3830 3844 3859 3868 3881 879 215 2489 2614 2667 2716 2742 2760 2778 2792 2810 2809 2812 2813 2811 2808 2805 2790 2780 2765 2746 2745 2735 2731 2726 2729 2738 2743 2754 2768 2779 2785 2796 2805 2819 2835 2845 2857 880 216 1571 1708 1807 1891 1934 1988 2046 2074 2062 2016 1964 1915 1862 1796 1720 1645 1583 1507 1419 1365 1379 1518 1695 1792 1834 1853 1868 1894 1927 1948 1951 1943 1926 1914 1930 1985 881 217 0922 1055 1183 1277 1330 1395 1472 1506 1471 1393 1305 1226 1145 1051 0953 0872 0810 0735 0656 0618 0648 0790 0967 1052 1083 1095 1103 1130 1171 1197 1193 1178 1141 1117 1138 1207 882 218 0450 0550 0690 0798 0843 0920 1010 1044 0996 0898 0795 0703 0616 0519 0427 0359 0312 0261 0216 0208 0244 0348 0475 0530 0544 0546 0548 0567 0601 0625 0622 0602 0567 0543 0562 0629 883 219 1686 1984 2211 2287 2226 2240 2305 2418 2578 2635 2702 3192 4375 5612 5951 5597 5037 4381 3712 3227 2975 2879 2781 2702 2679 2679 2700 2774 2893 2962 2936 2861 2739 2637 2664 2849 884 220 1894 2166 2389 2471 2420 2441 2508 2616 2760 2810 2871 3286 4265 5270 5553 5280 4835 4304 3750 3341 3124 3041 2955 2886 2866 2868 2888 2958 3064 3123 3103 3039 2933 2845 2871 3030 885 221 2032 2260 2446 2523 2497 2517 2580 2670 2790 2830 2876 3192 3906 4613 4812 4623 4314 3937 3532 3229 3064 3002 2936 2883 2870 2872 2888 2942 3028 3074 3056 3009 2931 2866 2883 3017 886 222 2201 2402 2549 2622 2611 2638 2689 2760 2849 2877 2912 3126 3599 4056 4188 4072 3881 3641 3374 3176 3063 3023 2978 2941 2937 2939 2953 2997 3058 3090 3081 3050 2999 2958 2972 3065 887 223 2342 2524 2631 2689 2689 2712 2751 2797 2851 2866 2886 3000 3240 3463 3533 3479 3391 3276 3143 3043 2982 2961 2938 2920 2919 2923 2937 2968 3005 3026 3025 3013 2991 2977 2990 3043 888 224 2565 2720 2782 2825 2849 2869 2894 2908 2924 2924 2928 2932 2931 2929 2927 2910 2899 2886 2868 2867 2856 2852 2849 2852 2863 2869 2881 2895 2907 2913 2923 2930 2942 2959 2968 2977 889 225 2071 2111 2140 2167 2188 2216 2243 2247 2228 2177 2129 2086 2041 1992 1945 1911 1897 1871 1835 1823 1876 2106 2420 2619 2710 2746 2770 2791 2806 2814 2825 2835 2849 2867 2877 2887 890 226 1531 1543 1522 1533 1548 1585 1617 1611 1560 1474 1389 1312 1241 1167 1102 1063 1049 1026 0991 0985 1069 1430 1992 2375 2550 2621 2655 2681 2700 2710 2722 2733 2748 2765 2777 2791 891 227 1137 1093 1046 1044 1057 1092 1130 1116 1047 0935 0827 0735 0653 0575 0508 0476 0468 0450 0430 0440 0528 0932 1666 2206 2457 2559 2605 2635 2659 2672 2683 2698 2715 2733 2748 2768 892 21 1586 1377 1173 1026 0936 0907 0897 0898 0901 0839 0792 0901 1214 1472 1485 1428 1409 1355 1250 1184 1379 2598 4925 6874 7905 8344 8530 8625 8679 8691 8697 8693 8696 8707 8703 8729 893 22 1578 1404 1218 1089 1008 0980 0978 0975 0976 0914 0866 0972 1275 1534 1558 1509 1493 1441 1341 1279 1465 2550 4520 6100 6905 7240 7386 7461 7509 7521 7532 7530 7540 7552 7554 7582 894 23 1528 1397 1247 1142 1074 1054 1048 1050 1052 0996 0954 1050 1323 1563 1595 1557 1542 1498 1410 1355 1516 2392 3883 5019 5579 5807 5907 5963 6002 6012 6021 6026 6039 6056 6063 6078 895 24 1536 1442 1332 1240 1190 1170 1167 1170 1171 1123 1088 1178 1429 1662 1714 1688 1677 1640 1568 1524 1654 2316 3371 4132 4495 4639 4708 4751 4780 4790 4799 4808 4820 4837 4842 4860 896 25 1538 1502 1408 1352 1308 1297 1296 1298 1302 1266 1239 1317 1525 1715 1758 1740 1730 1699 1641 1608 1708 2167 2826 3266 3467 3549 3591 3619 3640 3652 3663 3675 3688 3707 3715 3733 897 26 1564 1573 1538 1511 1497 1494 1498 1498 1505 1479 1462 1511 1641 1761 1791 1778 1770 1750 1712 1694 1750 1991 2308 2509 2602 2638 2662 2685 2702 2712 2721 2731 2749 2768 2775 2793 898 27 1622 1676 1710 1736 1751 1763 1775 1781 1795 1795 1799 1801 1801 1799 1797 1786 1776 1767 1753 1753 1748 1747 1748 1752 1761 1767 1778 1791 1805 1815 1825 1838 1854 1873 1887 1899 899 28 1067 1214 1353 1442 1481 1528 1585 1624 1645 1651 1649 1648 1636 1605 1554 1478 1391 1292 1190 1114 1066 1041 1023 1011 1011 1015 1022 1040 1067 1085 1088 1080 1069 1062 1077 1121 900 29 0720 0893 1092 1238 1307 1375 1468 1535 1564 1571 1569 1560 1537 1484 1393 1266 1121 0964 0806 0695 0632 0601 0577 0562 0560 0560 0566 0583 0611 0629 0629 0616 0596 0582 0601 0652 901 210 2854 2702 2431 2148 1941 1829 1759 1781 1913 1965 2048 2638 4231 6322 7596 8037 8220 8281 8234 8180 8293 8591 8717 8761 8801 8826 8861 8893 8916 8911 8908 8901 8905 8915 8908 8925 902 211 2828 2692 2459 2226 2045 1947 1882 1905 2027 2073 2150 2667 4017 5725 6730 7064 7200 7241 7199 7156 7238 7469 7566 7602 7635 7657 7686 7718 7740 7735 7736 7735 7742 7754 7752 7764 903 212 2596 2525 2352 2168 2030 1957 1909 1928 2027 2063 2127 2533 3563 4819 5536 5764 5853 5873 5835 5804 5857 6013 6079 6102 6128 6143 6165 6190 6210 6210 6214 6215 6223 6238 6241 6254 904 213 2438 2399 2291 2173 2068 2012 1980 1996 2075 2102 2152 2459 3202 4075 4552 4695 4748 4754 4721 4699 4731 4832 4872 4889 4909 4919 4938 4959 4978 4980 4988 4991 5003 5019 5023 5033 905 214 2180 2193 2124 2052 1986 1954 1932 1947 2005 2022 2059 2268 2742 3265 3533 3606 3629 3626 3601 3588 3601 3649 3666 3677 3690 3701 3714 3733 3749 3755 3762 3773 3785 3800 3810 3824 906 215 1934 1984 1967 1946 1917 1909 1901 1911 1946 1956 1977 2086 2321 2562 2679 2702 2704 2695 2677 2670 2671 2692 2698 2704 2714 2723 2734 2748 2763 2772 2780 2793 2805 2824 2832 2846 907 216 1611 1688 1728 1751 1769 1778 1791 1797 1810 1811 1815 1817 1818 1816 1815 1802 1794 1784 1771 1769 1766 1766 1766 1771 1780 1786 1798 1813 1827 1837 1850 1861 1877 1895 1908 1921 908 217 0863 0946 1025 1084 1112 1154 1201 1222 1209 1171 1130 1089 1045 0993 0933 0876 0828 0771 0709 0675 0692 0792 0912 0973 0998 1008 1019 1038 1066 1085 1089 1083 1069 1062 1075 1123 909 218 0457 0540 0618 0681 0714 0761 0814 0836 0807 0749 0685 0628 0571 0507 0443 0393 0357 0316 0278 0270 0303 0399 0505 0548 0558 0560 0561 0575 0601 0618 0617 0605 0586 0571 0588 0637 910 219 1032 1312 1527 1577 1497 1490 1529 1624 1776 1832 1904 2422 3707 5038 5344 4889 4214 3457 2713 2191 1924 1812 1713 1635 1613 1612 1629 1701 1817 1891 1867 1797 1679 1582 1616 1794 911 220 1149 1389 1577 1628 1561 1557 1602 1690 1830 1883 1946 2403 3511 4642 4916 4555 4003 3371 2738 2285 2052 1957 1870 1801 1782 1781 1797 1862 1967 2033 2014 1950 1845 1761 1785 1949 912 221 1224 1443 1612 1664 1619 1624 1668 1747 1863 1905 1958 2321 3176 4041 4262 4005 3600 3125 2638 2285 2101 2030 1959 1903 1889 1890 1903 1956 2045 2097 2080 2031 1946 1878 1902 2036 913 222 1336 1520 1664 1717 1681 1696 1734 1804 1898 1931 1974 2254 2895 3524 3688 3509 3221 2875 2510 2239 2094 2039 1984 1939 1927 1928 1942 1988 2060 2101 2090 2051 1986 1931 1953 2065 914 223 1421 1581 1698 1740 1722 1736 1768 1823 1893 1918 1949 2145 2569 2974 3082 2969 2789 2567 2325 2146 2047 2009 1970 1938 1932 1934 1946 1983 2035 2065 2058 2035 1994 1959 1976 2061 915 224 1558 1665 1755 1791 1790 1807 1833 1867 1911 1924 1940 2041 2252 2444 2495 2438 2351 2243 2119 2028 1974 1956 1935 1920 1921 1926 1934 1961 1996 2014 2016 2007 1990 1978 1993 2047 916 225 1667 1738 1779 1802 1818 1835 1844 1855 1866 1867 1870 1873 1873 1871 1870 1858 1850 1839 1827 1825 1819 1820 1821 1826 1834 1843 1854 1868 1881 1891 1904 1916 1933 1949 1959 1976 917 226 1217 1241 1244 1251 1261 1284 1302 1301 1282 1241 1199 1163 1127 1087 1051 1026 1016 1000 0977 0974 1027 1218 1482 1647 1722 1755 1776 1794 1809 1820 1835 1848 1865 1885 1895 1912 918 227 0869 0852 0836 0839 0848 0870 0893 0889 0848 0782 0719 0663 0611 0561 0518 0494 0488 0475 0461 0471 0538 0799 1221 1508 1638 1692 1720 1742 1757 1769 1785 1799 1815 1835 1850 1864 919 21 1154 0965 0781 0638 0561 0538 0526 0525 0530 0486 0455 0540 0754 0883 0829 0757 0732 0686 0606 0563 0727 1890 4359 6531 7710 8217 8429 8536 8599 8618 8625 8619 8624 8629 8625 8656 920 22 1130 0936 0772 0651 0583 0553 0549 0550 0554 0508 0477 0562 0770 0904 0863 0799 0777 0733 0658 0620 0775 1822 3962 5771 6717 7113 7283 7369 7423 7439 7449 7450 7460 7475 7475 7504 921 23 1047 0887 0751 0645 0584 0565 0562 0563 0564 0524 0495 0573 0771 0915 0896 0846 0827 0789 0724 0689 0826 1685 3363 4727 5421 5706 5827 5890 5932 5948 5960 5965 5978 5991 5996 6016 922 24 1012 0885 0754 0662 0617 0603 0598 0598 0601 0563 0539 0614 0809 0962 0962 0924 0909 0876 0817 0786 0908 1614 2899 3892 4379 4576 4662 4712 4749 4761 4772 4781 4796 4812 4823 4844 923 25 0949 0841 0754 0685 0643 0628 0627 0630 0631 0597 0575 0642 0813 0951 0961 0930 0916 0888 0838 0812 0916 1458 2372 3038 3352 3478 3537 3575 3602 3615 3627 3640 3655 3672 3683 3704 924 26 0902 0857 0786 0736 0704 0696 0701 0698 0700 0672 0656 0714 0862 0988 1008 0987 0978 0957 0919 0900 0979 1348 1917 2305 2482 2553 2590 2616 2637 2651 2664 2676 2694 2712 2724 2741 925 27 0842 0834 0803 0777 0761 0757 0761 0763 0767 0750 0742 0783 0886 0973 0990 0978 0970 0955 0931 0924 0973 1165 1428 1593 1666 1700 1721 1738 1753 1766 1780 1795 1813 1832 1847 1858 926 28 0714 0751 0762 0775 0784 0787 0794 0803 0810 0812 0817 0820 0822 0822 0822 0816 0812 0808 0801 0803 0803 0806 0811 0817 0827 0837 0848 0862 0876 0890 0905 0919 0940 0957 0976 0994 927 29 0489 0555 0626 0667 0689 0715 0743 0763 0775 0782 0784 0785 0780 0767 0742 0701 0654 0598 0543 0501 0477 0465 0457 0453 0456 0461 0466 0479 0496 0511 0516 0515 0515 0515 0531 0563 928 210 2310 2065 1751 1448 1223 1109 1035 1055 1182 1235 1318 1926 3628 5925 7346 7840 8045 8113 8056 7988 8123 8484 8640 8694 8734 8762 8796 8829 8856 8850 8845 8838 8842 8853 8841 8862 929 211 2193 2011 1735 1473 1269 1168 1106 1123 1239 1286 1367 1907 3386 5325 6484 6879 7035 7085 7034 6978 7083 7367 7491 7534 7571 7597 7628 7658 7682 7681 7682 7680 7685 7698 7695 7712 930 212 2004 1865 1641 1428 1268 1185 1133 1152 1246 1285 1353 1794 2964 4450 5317 5599 5708 5737 5696 5653 5725 5925 6012 6039 6067 6084 6107 6134 6153 6154 6157 6160 6172 6185 6189 6200 931 213 1819 1712 1548 1382 1255 1191 1147 1162 1243 1272 1330 1682 2587 3692 4314 4507 4578 4596 4558 4525 4572 4713 4775 4797 4818 4830 4851 4872 4890 4895 4902 4908 4918 4933 4938 4947 932 214 1611 1554 1441 1323 1230 1181 1153 1166 1227 1249 1295 1560 2207 2959 3363 3481 3523 3526 3498 3478 3504 3586 3621 3635 3651 3660 3679 3699 3716 3723 3731 3739 3752 3770 3779 3797 933 215 1421 1394 1337 1266 1207 1174 1155 1166 1211 1227 1260 1441 1859 2324 2562 2625 2644 2643 2620 2607 2620 2668 2687 2697 2710 2721 2735 2751 2765 2776 2785 2796 2812 2828 2837 2854 934 216 1142 1158 1139 1108 1083 1073 1063 1075 1099 1106 1128 1223 1425 1627 1722 1741 1743 1737 1722 1716 1720 1741 1750 1757 1767 1775 1787 1803 1818 1829 1843 1857 1874 1893 1908 1924 935 217 0744 0768 0784 0790 0804 0808 0812 0819 0828 0831 0834 0839 0841 0840 0840 0836 0830 0825 0819 0821 0820 0823 0828 0835 0844 0854 0867 0882 0895 0910 0923 0941 0956 0977 0993 1010 936 218 0376 0410 0443 0473 0486 0503 0527 0533 0529 0511 0491 0471 0450 0425 0396 0371 0349 0325 0301 0297 0319 0375 0433 0456 0463 0466 0469 0481 0498 0510 0516 0517 0513 0514 0531 0566 937 219 0649 0890 1081 1097 0998 0971 0977 1050 1192 1249 1324 1860 3202 4573 4828 4290 3541 2726 1959 1444 1188 1081 0991 0926 0907 0905 0918 0976 1080 1147 1129 1068 0967 0891 0920 1081 938 220 0671 0902 1070 1100 1022 1003 1018 1089 1218 1271 1339 1815 2986 4168 4398 3949 3309 2604 1928 1468 1238 1142 1059 0998 0982 0981 0994 1049 1144 1205 1187 1132 1039 0969 0998 1148 939 221 0681 0870 1030 1056 0991 0983 1006 1068 1178 1221 1280 1673 2621 3571 3768 3427 2926 2365 1817 1435 1243 1163 1093 1041 1027 1026 1037 1085 1168 1221 1206 1160 1081 1018 1047 1176 940 222 0720 0885 1007 1034 0987 0984 1007 1065 1155 1187 1237 1551 2295 3030 3189 2939 2564 2131 1700 1395 1238 1173 1113 1068 1056 1057 1067 1108 1179 1225 1213 1174 1106 1053 1078 1197 941 223 0731 0873 0979 1009 0976 0976 1001 1048 1118 1144 1184 1420 1960 2484 2605 2436 2178 1874 1563 1340 1223 1177 1134 1099 1090 1091 1100 1133 1188 1225 1217 1187 1138 1101 1119 1212 942 224 0808 0913 0994 1030 1008 1017 1042 1079 1131 1148 1177 1341 1700 2038 2117 2012 1847 1650 1442 1289 1208 1175 1144 1122 1113 1116 1125 1153 1195 1223 1219 1199 1167 1140 1161 1231 943 225 0819 0890 0946 0971 0964 0972 0991 1018 1049 1059 1078 1165 1344 1500 1532 1479 1398 1302 1195 1116 1072 1058 1041 1030 1029 1033 1041 1060 1090 1110 1113 1107 1093 1086 1100 1147 944 226 0735 0759 0774 0786 0797 0801 0809 0815 0823 0825 0830 0832 0835 0836 0835 0829 0823 0819 0814 0814 0814 0818 0823 0830 0840 0849 0862 0876 0890 0903 0917 0934 0952 0969 0989 1007 945 227 0539 0536 0530 0535 0541 0552 0562 0562 0553 0535 0513 0496 0479 0459 0442 0431 0427 0421 0415 0424 0463 0571 0709 0788 0823 0840 0855 0870 0885 0898 0916 0931 0951 0971 0989 1008 946 21 0924 0736 0571 0452 0387 0361 0348 0353 0360 0328 0310 0378 0511 0538 0444 0370 0344 0307 0257 0241 0367 1437 3969 6297 7585 8138 8370 8484 8552 8573 8580 8576 8579 8585 8586 8622 947 22 0869 0698 0545 0438 0374 0353 0345 0347 0355 0324 0305 0370 0494 0521 0433 0364 0340 0306 0259 0243 0363 1330 3555 5532 6588 7035 7221 7316 7375 7394 7403 7405 7413 7423 7430 7461 948 23 0801 0630 0495 0406 0353 0340 0331 0334 0341 0311 0297 0357 0478 0518 0450 0390 0367 0337 0294 0280 0389 1205 2988 4508 5291 5614 5749 5820 5866 5883 5894 5902 5910 5927 5933 5962 949 24 0699 0563 0455 0383 0335 0324 0320 0323 0326 0300 0288 0344 0461 0510 0460 0410 0390 0364 0326 0313 0411 1082 2485 3633 4206 4440 4542 4595 4632 4651 4662 4670 4685 4699 4709 4734 950 25 0620 0498 0412 0355 0319 0311 0309 0312 0315 0293 0284 0337 0446 0503 0468 0428 0411 0388 0357 0347 0432 0960 2002 2814 3204 3361 3429 3470 3501 3516 3530 3542 3556 3576 3587 3608 951 26 0532 0461 0399 0353 0326 0323 0322 0327 0324 0304 0298 0343 0443 0503 0486 0455 0443 0425 0399 0394 0465 0853 1565 2092 2339 2436 2482 2512 2536 2548 2565 2578 2594 2610 2625 2646 952 27 0479 0434 0393 0365 0344 0343 0344 0350 0348 0331 0329 0370 0456 0515 0508 0488 0478 0463 0445 0443 0498 0754 1164 1442 1566 1617 1644 1665 1682 1696 1710 1724 1743 1761 1776 1792 953 28 0347 0352 0322 0320 0318 0316 0319 0322 0325 0318 0319 0345 0394 0425 0422 0411 0404 0397 0389 0393 0425 0529 0661 0736 0769 0786 0800 0814 0829 0843 0858 0875 0892 0913 0931 0944 954 29 0254 0254 0260 0269 0277 0283 0284 0290 0298 0302 0306 0313 0316 0319 0319 0317 0316 0315 0314 0317 0319 0324 0330 0338 0348 0357 0370 0382 0396 0411 0426 0442 0460 0478 0495 0510 955 210 1828 1550 1208 0888 0667 0558 0491 0511 0630 0679 0763 1365 3133 5593 7137 7682 7907 7981 7920 7837 7992 8404 8587 8647 8691 8719 8754 8787 8812 8808 8806 8798 8800 8808 8803 8818 956 211 1746 1487 1189 0906 0701 0597 0537 0556 0665 0712 0792 1341 2902 5008 6289 6729 6907 6961 6905 6839 6961 7285 7428 7473 7510 7534 7565 7597 7623 7625 7623 7618 7626 7642 7638 7649 957 212 1523 1335 1081 0854 0687 0607 0553 0571 0662 0702 0770 1226 2481 4122 5089 5410 5534 5569 5524 5472 5556 5788 5888 5919 5945 5962 5986 6012 6034 6037 6041 6045 6052 6068 6068 6090 958 213 1342 1196 1002 0813 0683 0610 0569 0584 0661 0692 0751 1125 2123 3391 4116 4346 4433 4454 4416 4377 4436 4601 4672 4697 4717 4730 4750 4772 4792 4796 4805 4809 4821 4838 4845 4857 959 214 1176 1072 0923 0778 0674 0623 0591 0607 0666 0690 0741 1036 1793 2716 3224 3379 3433 3443 3414 3386 3423 3534 3582 3599 3616 3627 3644 3666 3683 3691 3702 3710 3724 3741 3749 3763 960 215 0983 0943 0835 0737 0667 0625 0609 0616 0662 0680 0720 0936 1464 2080 2404 2496 2526 2529 2507 2486 2508 2578 2609 2621 2633 2642 2657 2675 2690 2699 2710 2721 2737 2754 2764 2785 961 216 0806 0769 0716 0663 0618 0602 0592 0599 0629 0640 0670 0804 1107 1434 1593 1633 1642 1639 1624 1613 1623 1658 1674 1683 1693 1703 1716 1731 1747 1758 1773 1787 1804 1823 1840 1854 962 217 0498 0485 0472 0456 0448 0447 0442 0451 0465 0468 0484 0538 0637 0727 0763 0766 0763 0758 0751 0750 0753 0764 0771 0779 0788 0798 0810 0825 0839 0853 0869 0884 0902 0922 0937 0958 963 218 0243 0251 0247 0261 0265 0269 0273 0278 0289 0292 0296 0301 0305 0307 0307 0307 0305 0303 0303 0305 0309 0313 0319 0326 0336 0346 0357 0370 0385 0399 0413 0430 0448 0466 0485 0500 964 219 0374 0613 0784 0783 0678 0643 0627 0677 0807 0859 0936 1473 2833 4197 4369 3738 2908 2041 1261 0767 0532 0427 0352 0305 0290 0290 0298 0343 0424 0482 0470 0423 0346 0293 0322 0453 965 220 0399 0595 0757 0759 0670 0633 0625 0673 0794 0843 0916 1403 2612 3804 3966 3432 2715 1953 1257 0808 0591 0493 0421 0374 0360 0360 0368 0411 0490 0547 0532 0488 0414 0362 0389 0517 966 221 0387 0567 0696 0701 0621 0594 0589 0635 0737 0777 0840 1245 2237 3210 3360 2947 2379 1765 1193 0818 0634 0551 0488 0445 0433 0432 0440 0477 0547 0597 0584 0544 0478 0432 0458 0570 967 222 0393 0541 0658 0656 0597 0581 0579 0622 0707 0741 0795 1131 1936 2717 2845 2527 2082 1591 1126 0815 0662 0594 0541 0502 0491 0490 0495 0530 0590 0632 0621 0587 0531 0491 0514 0613 968 223 0386 0493 0582 0586 0543 0529 0535 0568 0637 0664 0707 0968 1580 2167 2269 2044 1718 1354 1003 0763 0644 0592 0549 0518 0509 0509 0514 0541 0590 0623 0616 0590 0543 0512 0529 0620 969 224 0389 0492 0559 0578 0542 0540 0551 0579 0630 0649 0684 0877 1313 1718 1790 1637 1413 1157 0904 0729 0640 0601 0569 0545 0538 0537 0542 0564 0603 0630 0625 0604 0569 0548 0565 0635 970 225 0405 0472 0517 0536 0515 0521 0533 0556 0591 0604 0628 0751 1011 1242 1282 1197 1071 0923 0774 0668 0613 0591 0571 0556 0551 0552 0558 0573 0601 0620 0618 0608 0588 0576 0594 0640 971 226 0355 0386 0415 0422 0421 0421 0430 0447 0460 0467 0481 0534 0627 0698 0706 0675 0631 0579 0524 0485 0464 0457 0450 0446 0449 0452 0457 0470 0487 0500 0505 0508 0507 0507 0523 0553 972 227 0260 0259 0263 0270 0279 0284 0289 0295 0302 0306 0311 0317 0321 0323 0324 0322 0321 0319 0319 0321 0324 0330 0336 0344 0354 0365 0376 0390 0405 0420 0436 0452 0471 0490 0505 0526 973 21 0252 0250 0255 0264 0267 0274 0277 0282 0290 0293 0299 0302 0306 0308 0309 0308 0306 0305 0304 0306 0309 0313 0319 0326 0335 0346 0356 0368 0382 0396 0411 0426 0444 0459 0478 0493 974 22 0700 0708 0727 0737 0747 0753 0758 0764 0772 0775 0777 0780 0784 0784 0782 0777 0773 0768 0763 0764 0764 0767 0771 0777 0787 0795 0806 0820 0833 0846 0861 0875 0894 0912 0929 0941 975 23 1604 1677 1714 1735 1755 1769 1776 1784 1797 1796 1799 1803 1802 1800 1798 1786 1778 1767 1754 1754 1748 1747 1747 1752 1759 1766 1777 1789 1802 1811 1824 1836 1851 1871 1882 1898 976 24 2495 2609 2668 2701 2734 2757 2773 2786 2806 2804 2808 2812 2812 2808 2805 2791 2780 2766 2749 2747 2737 2734 2731 2733 2741 2748 2760 2773 2785 2791 2802 2813 2824 2840 2848 2862 977 25 3419 3577 3659 3728 3773 3807 3838 3863 3888 3892 3898 3905 3906 3905 3905 3886 3875 3858 3838 3839 3826 3821 3818 3821 3832 3838 3850 3866 3880 3884 3889 3899 3913 3931 3940 3946 978 26 4446 4667 4792 4888 4953 5008 5051 5088 5126 5132 5142 5154 5161 5160 5164 5145 5135 5119 5095 5098 5081 5075 5068 5072 5085 5094 5111 5127 5142 5140 5143 5149 5161 5174 5177 5185 979 27 5484 5780 5948 6084 6173 6254 6321 6372 6425 6438 6456 6474 6485 6495 6504 6485 6478 6463 6437 6445 6429 6420 6410 6413 6431 6440 6457 6477 6492 6488 6489 6491 6503 6519 6519 6525 980 28 6591 6978 7197 7377 7506 7617 7712 7787 7862 7888 7920 7952 7975 7993 8012 7999 7999 7990 7965 7980 7961 7957 7947 7956 7980 7995 8017 8042 8057 8048 8049 8045 8054 8067 8060 8073 981 29 7436 7875 8146 8359 8522 8654 8769 8870 8957 8995 9036 9077 9109 9133 9164 9156 9160 9154 9134 9154 9139 9136 9125 9138 9167 9185 9210 9235 9249 9237 9233 9225 9231 9245 9234 9246 982 210 0250 0251 0256 0264 0271 0274 0280 0284 0293 0295 0301 0305 0308 0311 0311 0310 0309 0307 0307 0309 0312 0316 0323 0330 0339 0349 0361 0374 0387 0402 0416 0432 0450 0468 0484 0504 983 211 0396 0400 0403 0406 0418 0417 0428 0431 0439 0442 0447 0452 0454 0456 0457 0453 0452 0449 0447 0448 0451 0455 0460 0468 0477 0488 0499 0512 0526 0541 0557 0571 0591 0608 0628 0642 984 212 0756 0785 0789 0800 0810 0820 0824 0831 0838 0841 0844 0846 0849 0849 0848 0842 0839 0832 0827 0827 0828 0830 0834 0840 0849 0858 0869 0883 0897 0910 0924 0940 0957 0974 0989 1009 985 213 1240 1296 1329 1338 1355 1363 1368 1377 1386 1388 1388 1390 1392 1390 1387 1378 1371 1362 1353 1351 1348 1349 1350 1355 1363 1371 1382 1395 1407 1419 1430 1445 1460 1479 1490 1507 986 214 1703 1778 1814 1848 1854 1872 1882 1891 1904 1904 1905 1909 1908 1906 1903 1891 1882 1872 1858 1857 1852 1850 1850 1854 1862 1870 1883 1895 1908 1918 1930 1941 1957 1974 1986 2003 987 215 2221 2340 2389 2425 2448 2462 2484 2492 2507 2508 2512 2515 2514 2511 2509 2494 2483 2470 2455 2452 2444 2443 2440 2445 2451 2458 2470 2483 2495 2505 2516 2525 2541 2559 2566 2583 988 216 2688 2818 2880 2926 2955 2978 3000 3014 3035 3037 3039 3044 3043 3040 3038 3022 3010 2996 2978 2977 2966 2962 2959 2962 2972 2979 2989 3004 3015 3020 3029 3038 3051 3067 3075 3086 989 217 3155 3308 3388 3442 3484 3508 3538 3556 3580 3585 3588 3595 3595 3591 3590 3573 3563 3547 3528 3527 3514 3509 3507 3510 3520 3526 3540 3556 3567 3572 3579 3587 3599 3615 3619 3635 990 218 3701 3882 3979 4050 4098 4139 4174 4201 4231 4235 4243 4248 4251 4251 4251 4233 4222 4205 4183 4182 4170 4165 4159 4162 4175 4182 4194 4211 4222 4225 4234 4239 4253 4266 4272 4287 991 219 4273 4493 4613 4709 4769 4819 4866 4897 4935 4942 4952 4962 4967 4969 4972 4954 4943 4927 4904 4904 4890 4885 4879 4882 4897 4903 4918 4934 4947 4948 4950 4957 4968 4983 4983 4995 992 220 4799 5062 5189 5298 5378 5441 5494 5536 5580 5591 5605 5617 5626 5628 5637 5616 5610 5592 5568 5574 5558 5554 5544 5548 5563 5573 5590 5608 5619 5617 5620 5623 5636 5650 5649 5658 993 221 5347 5644 5800 5929 6018 6095 6158 6207 6258 6272 6289 6307 6317 6323 6336 6317 6311 6293 6268 6276 6261 6253 6246 6252 6267 6277 6298 6316 6330 6326 6328 6328 6339 6350 6354 6361 994 222 5902 6230 6418 6563 6670 6757 6830 6889 6949 6965 6986 7008 7023 7034 7047 7029 7022 7009 6982 6992 6975 6970 6961 6967 6987 6999 7017 7039 7052 7045 7046 7046 7059 7073 7071 7076 995 223 6531 6905 7121 7298 7426 7531 7629 7704 7773 7803 7835 7863 7886 7903 7924 7912 7909 7898 7877 7892 7875 7870 7862 7871 7896 7911 7933 7958 7973 7963 7961 7956 7963 7983 7981 7982 996 224 6939 7350 7592 7784 7924 8045 8147 8230 8309 8339 8374 8409 8434 8453 8478 8466 8469 8458 8436 8455 8439 8436 8427 8437 8466 8482 8509 8535 8548 8537 8533 8530 8541 8555 8549 8557 997 225 7429 7870 8125 8351 8513 8643 8763 8861 8951 8990 9031 9075 9109 9132 9161 9151 9160 9155 9133 9154 9138 9137 9129 9141 9169 9187 9212 9236 9247 9232 9228 9218 9225 9241 9235 9238 998 226 0244 0263 0256 0265 0273 0278 0284 0286 0295 0298 0303 0307 0311 0312 0314 0313 0311 0310 0309 0311 0314 0318 0325 0333 0342 0351 0364 0376 0390 0405 0418 0437 0453 0471 0490 0505 999 227 7429 7875 8135 8358 8514 8653 8770 8869 8961 8998 9042 9083 9115 9141 9172 9164 9167 9161 9141 9162 9149 9146 9135 9148 9178 9198 9222 9247 9260 9246 9242 9233 9241 9253 9244 9247 1000 21 0256 0252 0251 0255 0262 0269 0270 0276 0282 0286 0290 0295 0297 0300 0300 0299 0298 0296 0295 0296 0299 0303 0308 0316 0325 0334 0344 0356 0369 0382 0395 0410 0428 0444 0460 0476 1001 22 0693 0713 0729 0735 0743 0749 0758 0761 0768 0770 0773 0777 0778 0779 0777 0772 0767 0763 0757 0758 0757 0760 0764 0769 0778 0787 0798 0810 0824 0835 0849 0863 0878 0895 0910 0929 1002 23 1569 1630 1660 1688 1703 1714 1723 1732 1741 1741 1743 1745 1745 1743 1739 1729 1721 1711 1698 1697 1692 1690 1692 1693 1702 1708 1719 1733 1745 1753 1764 1774 1789 1806 1820 1832 1003 24 2523 2631 2686 2731 2753 2777 2797 2810 2827 2828 2829 2834 2833 2830 2827 2813 2802 2787 2771 2768 2758 2754 2751 2754 2763 2769 2781 2794 2807 2814 2821 2830 2844 2859 2867 2880 1004 25 3426 3579 3661 3734 3779 3813 3840 3866 3892 3894 3900 3907 3907 3905 3906 3888 3877 3861 3840 3839 3826 3821 3816 3820 3829 3837 3850 3868 3880 3883 3888 3898 3910 3926 3928 3940 1005 26 4406 4663 4778 4872 4940 4991 5039 5074 5113 5117 5128 5139 5143 5145 5149 5130 5120 5103 5079 5082 5068 5062 5055 5056 5069 5078 5095 5110 5120 5118 5124 5128 5142 5155 5154 5165 1006 27 5431 5740 5900 6030 6126 6193 6262 6316 6367 6381 6398 6417 6428 6436 6447 6430 6423 6407 6382 6389 6372 6365 6356 6360 6379 6390 6407 6427 6440 6435 6436 6434 6445 6459 6460 6465 1007 28 6595 6955 7184 7367 7493 7600 7697 7773 7850 7875 7906 7937 7959 7976 7999 7984 7984 7975 7949 7965 7947 7944 7935 7943 7970 7984 8007 8031 8047 8039 8038 8032 8044 8058 8048 8063 1008 29 7431 7846 8118 8342 8499 8638 8758 8855 8944 8984 9025 9067 9099 9123 9155 9146 9152 9146 9123 9146 9129 9127 9119 9131 9161 9176 9201 9227 9240 9226 9222 9215 9219 9234 9227 9231 1009 210 0236 0249 0257 0259 0265 0269 0276 0278 0285 0290 0294 0299 0301 0304 0303 0303 0301 0300 0298 0300 0303 0307 0314 0320 0330 0340 0350 0363 0376 0390 0405 0420 0437 0455 0473 0491 1010 211 0390 0401 0407 0416 0416 0426 0428 0435 0442 0444 0449 0453 0457 0459 0458 0456 0453 0451 0448 0450 0452 0456 0462 0469 0479 0487 0499 0513 0527 0541 0555 0571 0589 0609 0623 0643 1011 212 0739 0767 0782 0793 0800 0808 0811 0817 0824 0827 0829 0833 0834 0834 0833 0827 0823 0816 0812 0812 0812 0814 0818 0823 0832 0840 0852 0864 0878 0890 0904 0918 0936 0952 0969 0982 1012 213 1220 1279 1298 1314 1323 1332 1340 1349 1358 1358 1361 1363 1363 1362 1359 1350 1341 1333 1324 1323 1319 1320 1322 1326 1335 1342 1353 1367 1377 1389 1400 1412 1429 1449 1462 1479 1013 214 1677 1746 1778 1804 1820 1833 1844 1851 1863 1863 1865 1868 1869 1866 1862 1850 1842 1831 1818 1817 1810 1810 1811 1815 1822 1829 1842 1854 1866 1875 1885 1898 1912 1928 1941 1954 1014 215 2236 2327 2377 2410 2430 2450 2468 2477 2491 2492 2496 2499 2498 2494 2492 2476 2467 2454 2438 2436 2427 2426 2423 2425 2434 2440 2450 2464 2478 2483 2494 2503 2518 2534 2544 2551 1015 216 2661 2782 2854 2894 2926 2949 2971 2985 3004 3003 3006 3011 3010 3008 3005 2987 2976 2961 2945 2942 2931 2929 2926 2928 2937 2941 2952 2968 2980 2987 2993 3003 3017 3033 3042 3053 1016 217 3118 3273 3347 3405 3444 3473 3501 3521 3543 3547 3551 3555 3556 3554 3553 3535 3523 3507 3487 3486 3474 3470 3464 3469 3477 3485 3497 3513 3526 3528 3537 3544 3560 3577 3586 3596 1017 218 3700 3866 3968 4035 4086 4128 4162 4188 4215 4221 4226 4234 4235 4236 4236 4216 4205 4190 4168 4170 4156 4151 4144 4145 4158 4166 4181 4193 4207 4208 4213 4221 4234 4250 4253 4265 1018 219 4269 4479 4587 4686 4749 4803 4843 4879 4915 4923 4933 4943 4951 4951 4956 4936 4924 4907 4885 4887 4872 4867 4861 4865 4878 4888 4903 4918 4930 4931 4934 4938 4948 4964 4963 4974 1019 220 4769 5011 5151 5259 5334 5396 5448 5492 5532 5543 5557 5569 5578 5582 5589 5569 5561 5546 5519 5523 5506 5501 5493 5496 5509 5518 5535 5551 5565 5565 5569 5572 5584 5596 5594 5609 1020 221 5324 5638 5790 5918 6009 6085 6151 6201 6252 6267 6283 6300 6313 6320 6330 6312 6303 6290 6266 6273 6256 6250 6240 6244 6264 6273 6292 6311 6323 6320 6319 6319 6330 6349 6348 6354 1021 222 5850 6175 6355 6509 6612 6700 6776 6838 6898 6919 6943 6964 6978 6992 7006 6989 6984 6973 6947 6957 6942 6936 6929 6934 6953 6967 6989 7009 7022 7017 7016 7016 7026 7041 7036 7046 1022 223 6546 6918 7133 7308 7434 7544 7636 7708 7784 7808 7839 7870 7892 7909 7930 7915 7912 7903 7881 7897 7881 7875 7865 7874 7899 7917 7940 7962 7975 7966 7967 7967 7974 7988 7983 7990 1023 224 6958 7358 7592 7792 7931 8048 8152 8236 8314 8344 8378 8411 8438 8458 8481 8469 8470 8462 8438 8457 8441 8439 8427 8437 8466 8482 8507 8531 8547 8535 8533 8531 8538 8551 8543 8557 1024 225 7418 7851 8125 8336 8498 8635 8754 8851 8942 8982 9025 9067 9100 9125 9152 9145 9150 9145 9123 9146 9132 9131 9122 9134 9164 9185 9212 9237 9250 9237 9233 9225 9229 9245 9231 9231 1025 226 0912 0723 0548 0443 0372 0351 0344 0344 0352 0320 0302 0366 0489 0511 0417 0346 0321 0288 0244 0233 0355 1422 3979 6321 7599 8144 8369 8480 8552 8571 8576 8575 8573 8578 8578 8619 1026 227 0881 1725 2879 3894 4357 4948 5781 6429 6690 6764 6706 6591 6337 5830 5056 4093 3110 2145 1297 0762 0507 0392 0316 0270 0262 0265 0276 0323 0406 0462 0448 0402 0324 0273 0308 0437 1027 21 0225 0241 0241 0245 0249 0253 0259 0263 0268 0272 0276 0280 0283 0284 0284 0282 0282 0280 0279 0281 0283 0287 0292 0298 0307 0315 0325 0338 0348 0361 0375 0389 0406 0419 0437 0453 1028 22 0667 0695 0707 0721 0725 0730 0736 0742 0746 0749 0752 0755 0756 0756 0755 0750 0745 0740 0735 0734 0734 0737 0740 0745 0754 0764 0773 0785 0797 0809 0821 0836 0852 0869 0884 0901 1029 23 1570 1650 1681 1702 1718 1730 1737 1741 1753 1754 1755 1756 1756 1754 1750 1739 1730 1720 1707 1705 1700 1698 1697 1701 1707 1714 1723 1737 1749 1757 1768 1779 1792 1808 1821 1835 1030 24 2480 2602 2666 2707 2726 2747 2766 2778 2793 2792 2797 2799 2798 2793 2790 2772 2761 2746 2729 2727 2717 2715 2713 2714 2721 2727 2739 2752 2762 2768 2776 2786 2800 2812 2820 2836 1031 25 3388 3545 3628 3693 3732 3764 3791 3811 3835 3838 3842 3848 3848 3846 3842 3824 3811 3794 3773 3771 3759 3754 3750 3752 3763 3767 3779 3794 3806 3811 3816 3824 3836 3853 3856 3866 1032 26 4377 4607 4729 4826 4880 4931 4975 5004 5039 5046 5055 5066 5068 5067 5069 5047 5035 5018 4993 4989 4975 4972 4964 4968 4980 4985 4999 5015 5027 5025 5030 5031 5041 5055 5056 5071 1033 27 5397 5713 5868 5999 6082 6152 6213 6262 6309 6321 6340 6358 6369 6372 6380 6357 6348 6329 6304 6310 6291 6286 6279 6280 6297 6306 6324 6342 6357 6353 6357 6354 6362 6375 6376 6380 1034 28 6584 6952 7179 7357 7474 7571 7661 7729 7799 7823 7851 7880 7901 7916 7932 7914 7906 7895 7869 7879 7863 7859 7849 7859 7882 7896 7918 7938 7955 7948 7946 7940 7951 7965 7961 7969 1035 29 7410 7869 8126 8332 8485 8615 8726 8815 8899 8938 8976 9018 9045 9067 9094 9080 9082 9075 9051 9069 9052 9053 9043 9054 9083 9099 9124 9147 9162 9149 9143 9138 9139 9155 9145 9157 1036 210 0227 0236 0245 0246 0247 0256 0263 0265 0271 0274 0280 0283 0285 0287 0288 0286 0285 0283 0282 0283 0286 0291 0296 0303 0312 0320 0330 0341 0355 0366 0379 0396 0412 0428 0445 0461 1037 211 0367 0379 0387 0395 0405 0404 0409 0414 0420 0424 0428 0432 0434 0436 0435 0432 0431 0429 0427 0427 0429 0432 0438 0443 0453 0463 0473 0486 0499 0512 0525 0543 0558 0576 0590 0608 1038 212 0703 0741 0750 0759 0766 0774 0781 0784 0790 0792 0795 0798 0799 0799 0797 0792 0787 0782 0776 0776 0776 0778 0783 0788 0796 0804 0815 0827 0839 0850 0864 0879 0895 0913 0928 0942 1039 213 1213 1255 1278 1290 1304 1308 1317 1320 1329 1330 1330 1333 1333 1330 1328 1318 1310 1302 1292 1292 1288 1288 1290 1295 1302 1309 1318 1330 1342 1352 1362 1376 1389 1406 1424 1438 1040 214 1639 1709 1740 1768 1781 1792 1801 1807 1818 1818 1818 1822 1821 1818 1814 1802 1792 1782 1770 1767 1763 1762 1763 1765 1773 1780 1790 1802 1813 1822 1833 1843 1859 1874 1891 1900 1041 215 2199 2308 2354 2385 2408 2422 2435 2448 2461 2461 2463 2464 2463 2459 2458 2442 2430 2417 2400 2397 2390 2387 2386 2388 2395 2400 2412 2425 2436 2442 2452 2461 2476 2492 2500 2514 1042 216 2680 2795 2858 2905 2933 2956 2973 2989 3006 3005 3008 3011 3011 3006 3002 2985 2974 2959 2940 2937 2927 2926 2920 2923 2933 2938 2949 2962 2976 2981 2988 2998 3010 3025 3031 3042 1043 217 3107 3250 3316 3380 3416 3443 3467 3486 3507 3508 3513 3519 3517 3514 3512 3494 3481 3465 3444 3442 3429 3427 3424 3426 3435 3441 3455 3469 3481 3484 3490 3500 3512 3528 3534 3546 1044 218 3676 3860 3953 4024 4075 4111 4143 4164 4191 4196 4200 4206 4208 4206 4206 4186 4173 4155 4133 4130 4118 4114 4107 4109 4119 4128 4142 4156 4167 4170 4176 4182 4194 4206 4212 4227 1045 219 4213 4442 4554 4643 4700 4748 4787 4819 4853 4860 4869 4877 4881 4882 4884 4863 4849 4832 4807 4808 4794 4791 4784 4787 4798 4807 4821 4837 4850 4849 4853 4859 4868 4879 4882 4893 1046 220 4750 5004 5147 5252 5323 5381 5432 5471 5513 5521 5536 5548 5557 5559 5563 5542 5529 5514 5488 5491 5478 5472 5463 5467 5481 5491 5506 5524 5538 5535 5538 5545 5556 5565 5566 5579 1047 221 5304 5599 5764 5891 5973 6043 6106 6153 6205 6218 6237 6256 6268 6272 6280 6259 6251 6234 6206 6214 6200 6196 6189 6193 6210 6219 6237 6256 6267 6263 6265 6264 6273 6292 6286 6294 1048 222 5816 6153 6341 6492 6588 6671 6746 6806 6864 6884 6907 6930 6944 6955 6968 6950 6943 6929 6903 6912 6897 6893 6885 6892 6911 6920 6941 6962 6977 6973 6972 6970 6979 6994 6990 6996 1049 223 6522 6904 7119 7302 7421 7522 7613 7684 7758 7784 7815 7844 7867 7881 7898 7883 7883 7869 7845 7857 7841 7840 7831 7839 7865 7880 7901 7926 7941 7934 7933 7930 7936 7952 7947 7955 1050 224 6936 7344 7588 7780 7915 8033 8132 8212 8291 8320 8356 8391 8417 8436 8459 8443 8441 8433 8409 8427 8413 8414 8407 8419 8444 8459 8486 8511 8526 8518 8514 8508 8517 8533 8522 8535 1051 225 7408 7854 8119 8330 8487 8612 8726 8818 8910 8947 8990 9031 9062 9083 9112 9098 9104 9097 9074 9095 9083 9084 9076 9089 9117 9137 9167 9190 9205 9193 9192 9184 9188 9202 9190 9199 1052 226 1785 1518 1177 0867 0650 0539 0480 0496 0609 0658 0739 1323 3064 5504 7037 7572 7790 7858 7786 7686 7860 8317 8521 8584 8629 8658 8691 8728 8757 8753 8746 8735 8740 8751 8741 8764 1053 227 0444 0743 1118 1406 1556 1780 2053 2153 1998 1718 1423 1163 0928 0688 0476 0345 0268 0188 0130 0130 0170 0261 0349 0356 0345 0340 0340 0376 0450 0502 0488 0443 0371 0317 0344 0464 1054 21 0226 0232 0234 0236 0240 0245 0251 0253 0260 0264 0267 0270 0273 0274 0275 0274 0272 0270 0269 0271 0272 0277 0282 0289 0295 0305 0314 0324 0335 0348 0361 0374 0390 0406 0419 0435 1055 22 0657 0672 0693 0700 0705 0714 0717 0722 0728 0729 0732 0735 0736 0736 0733 0728 0724 0719 0714 0715 0713 0716 0719 0724 0731 0739 0749 0761 0773 0783 0796 0810 0826 0843 0857 0870 1056 23 1534 1588 1611 1637 1649 1656 1666 1672 1680 1680 1681 1683 1681 1679 1676 1663 1656 1645 1633 1631 1625 1625 1624 1628 1634 1639 1649 1661 1672 1680 1691 1700 1715 1731 1741 1755 1057 24 2462 2560 2618 2663 2679 2700 2715 2726 2741 2740 2743 2746 2744 2739 2736 2719 2707 2692 2675 2674 2663 2660 2658 2660 2666 2671 2683 2696 2708 2714 2722 2730 2745 2758 2767 2780 1058 25 3356 3515 3598 3664 3704 3736 3762 3780 3805 3806 3812 3817 3817 3813 3811 3791 3778 3763 3741 3740 3725 3722 3716 3719 3728 3735 3749 3764 3775 3776 3782 3790 3801 3819 3822 3836 1059 26 4336 4582 4695 4787 4848 4894 4941 4969 5005 5010 5017 5030 5032 5031 5032 5012 5000 4984 4958 4959 4942 4937 4932 4934 4947 4954 4967 4986 4998 4994 4998 5003 5012 5028 5030 5040 1060 27 5357 5646 5817 5946 6029 6101 6165 6215 6263 6275 6294 6312 6323 6326 6335 6315 6306 6291 6264 6268 6251 6245 6237 6242 6259 6268 6285 6303 6318 6316 6315 6318 6327 6340 6340 6349 1061 28 6576 6936 7160 7336 7460 7553 7649 7717 7787 7810 7839 7869 7889 7903 7920 7901 7901 7888 7860 7874 7859 7856 7848 7856 7880 7894 7915 7937 7952 7945 7944 7939 7949 7966 7959 7967 1062 29 7430 7858 8123 8338 8495 8620 8730 8820 8908 8942 8984 9023 9056 9074 9100 9087 9090 9084 9061 9084 9066 9064 9055 9065 9094 9114 9139 9165 9180 9166 9161 9152 9157 9169 9163 9171 1063 210 0245 0232 0238 0243 0247 0250 0253 0258 0264 0267 0272 0274 0276 0279 0280 0277 0276 0274 0274 0274 0277 0282 0286 0293 0301 0308 0319 0330 0341 0354 0366 0380 0396 0412 0429 0443 1064 211 0365 0358 0361 0372 0381 0381 0389 0389 0396 0401 0404 0409 0410 0411 0412 0409 0406 0404 0402 0403 0405 0409 0414 0420 0428 0438 0447 0460 0473 0485 0500 0515 0532 0549 0562 0584 1065 212 0704 0728 0739 0750 0754 0763 0765 0771 0777 0778 0781 0783 0785 0784 0783 0777 0772 0767 0761 0762 0761 0762 0766 0771 0779 0786 0797 0809 0821 0832 0846 0858 0874 0890 0902 0918 1066 213 1172 1234 1254 1271 1280 1289 1295 1298 1308 1307 1308 1311 1311 1309 1305 1296 1288 1279 1270 1269 1264 1265 1266 1271 1278 1284 1293 1304 1316 1326 1337 1352 1367 1380 1390 1410 1067 214 1626 1685 1718 1738 1753 1762 1771 1777 1789 1789 1789 1790 1788 1785 1782 1770 1759 1749 1736 1734 1729 1728 1727 1730 1738 1743 1753 1764 1777 1784 1794 1805 1819 1834 1845 1856 1068 215 2126 2218 2271 2302 2320 2337 2345 2356 2368 2367 2368 2370 2369 2365 2361 2345 2334 2320 2306 2301 2293 2290 2287 2288 2296 2302 2312 2325 2336 2342 2351 2361 2376 2392 2398 2413 1069 216 2597 2719 2771 2818 2842 2863 2881 2893 2910 2911 2913 2915 2914 2910 2906 2889 2878 2863 2844 2840 2832 2830 2828 2830 2837 2842 2854 2866 2877 2882 2892 2899 2909 2926 2935 2947 1070 217 3056 3212 3286 3346 3378 3406 3430 3446 3469 3471 3475 3477 3477 3474 3472 3453 3441 3425 3406 3403 3392 3389 3383 3385 3394 3402 3414 3428 3441 3443 3450 3457 3469 3484 3488 3502 1071 218 3614 3796 3892 3960 4004 4045 4075 4096 4124 4128 4135 4141 4142 4139 4137 4118 4106 4090 4066 4064 4052 4048 4043 4045 4055 4062 4076 4092 4104 4107 4113 4119 4130 4144 4148 4160 1072 219 4178 4392 4516 4602 4656 4708 4746 4776 4813 4818 4829 4837 4842 4842 4843 4823 4811 4794 4769 4770 4756 4753 4747 4750 4762 4768 4780 4798 4812 4811 4816 4818 4827 4842 4840 4852 1073 220 4729 4966 5102 5215 5281 5342 5395 5433 5471 5480 5494 5508 5514 5518 5523 5503 5491 5473 5448 5450 5436 5433 5426 5428 5441 5448 5464 5483 5496 5493 5496 5497 5509 5521 5520 5535 1074 221 5283 5552 5722 5850 5931 6003 6067 6117 6166 6180 6202 6219 6229 6234 6241 6221 6211 6196 6170 6175 6159 6157 6149 6152 6169 6178 6194 6214 6226 6224 6224 6222 6233 6246 6246 6258 1075 222 5824 6163 6352 6494 6593 6675 6750 6809 6866 6886 6908 6932 6945 6954 6968 6949 6942 6929 6901 6909 6895 6892 6883 6892 6910 6923 6943 6965 6980 6973 6973 6971 6980 6990 6986 6997 1076 223 6532 6902 7115 7292 7408 7506 7600 7669 7740 7766 7797 7827 7846 7860 7877 7862 7859 7848 7822 7835 7823 7820 7814 7823 7847 7863 7887 7914 7929 7918 7913 7911 7919 7933 7926 7938 1077 224 6924 7331 7570 7768 7899 8012 8111 8191 8272 8302 8339 8373 8398 8415 8438 8423 8421 8413 8388 8406 8393 8396 8388 8398 8426 8444 8467 8491 8507 8498 8494 8489 8497 8514 8503 8518 1078 225 7429 7860 8118 8338 8494 8621 8733 8825 8916 8956 8997 9039 9071 9093 9120 9110 9113 9106 9083 9104 9091 9095 9088 9100 9129 9147 9178 9202 9217 9205 9198 9191 9197 9208 9197 9209 1079 226 0348 0562 0726 0725 0628 0592 0580 0629 0745 0794 0865 1372 2702 4076 4262 3640 2820 1967 1206 0730 0509 0411 0342 0296 0284 0283 0290 0330 0408 0464 0449 0405 0333 0284 0309 0435 1080 227 2179 1969 1797 1776 1822 1928 2042 1998 1763 1431 1118 0862 0649 0458 0316 0257 0246 0221 0194 0217 0353 1376 3899 6265 7586 8156 8394 8508 8576 8597 8608 8613 8616 8625 8625 8657 ] def %END RX0F } if %ypaper=0 %***************************************************************************** %END spectral reflection data, cmyn6*, 1080 colours, offset A,B,L,G, printer P %END 'QK0X'OUTLIN1Y_PK8300.PS %END_OUTLIN1Y_PK8300********************************************************** /BeginEPSF {% def % Prepare for EPS file /b4_Inc_state save def % Save state for cleanup /dict_count countdictstack def /op_count count 1 sub def % Count objects on op stack userdict begin % Make userdict current dict /showpage {} def 0 setgray 0 setlinecap 1 setlinewidth 0 setlinejoin 10 setmiterlimit [] 0 setdash newpath /languagelevel where % If level not equal to 1 then {pop languagelevel where % If level not equal to 1 then 1 ne {false setstrokeadjust false setoverprint } if } if } bind def /EndEPSF {% def % End for EPS file count op_count sub {pop} repeat countdictstack dict_count sub {end} repeat % Clean up dict stack b4_Inc_state restore } bind def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /A4querF {598 0 translate 90 rotate} def /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def %ANFA CMYKDEF %CMYKDEA0 (A0=Standard-Drucker-CMYKDEF) 15.3.97 /tzac [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzam [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzay [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzan [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tza0 [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000] def /tza1 [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000] def %ENDE CMYKD /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfiLAB* %x y width heigth LAB* { setcolor rec fill} bind def /colrecstLAB* %x y width heigth LAB* { setcolor rec stroke} bind def /colrecficmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec fill} bind def /colrecstcmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec stroke} bind def /colrecfiw* %x y width heigth w* { setgray rec fill} bind def /colrecstw* %x y width heigth w* { setgray rec stroke} bind def /colrecfiolv* %x y width heigth olv* { setrgbcolor rec fill} bind def /colrecstolv* %x y width heigth olv* { setrgbcolor rec stroke} bind def /tzocmy0* {0.0 1.0 1.0 0.0} bind def %Reproduction colours /tzlcmy0* {1.0 0.0 1.0 0.0} bind def %cmyn* setcmykcolor /tzvcmy0* {1.0 1.0 0.0 0.0} bind def /tzccmy0* {1.0 0.0 0.0 0.0} bind def /tzmcmy0* {0.0 1.0 0.0 0.0} bind def /tzycmy0* {0.0 0.0 1.0 0.0} bind def /tzoolv* {1.0 0.0 0.0} bind def %Reproduction colours /tzlolv* {0.0 1.0 0.0} bind def %olv* setrgbcolor /tzvolv* {0.0 0.0 1.0} bind def /tzcolv* {0.0 1.0 1.0} bind def /tzmolv* {1.0 0.0 1.0} bind def /tzyolv* {1.0 1.0 0.0} bind def /tzoLAB* [53.34 72.46 50.66] def %Reproduction colours /tzlLAB* [84.93 -79.83 74.80] def %LAB* setcolor /tzvLAB* [32.20 24.88 -37.89] def /tzcLAB* [88.10 -44.88 -13.36] def /tzmLAB* [59.66 90.32 -19.65] def /tzyLAB* [93.76 -20.24 85.93] def /tzncmy0* {1.00 1.00 1.00 0.00} bind def %grey series /tzdcmy0* {0.75 0.75 0.75 0.00} bind def %cmy0* setcmykcolor /tzzcmy0* {0.50 0.50 0.50 0.00} bind def /tzhcmy0* {0.25 0.25 0.25 0.00} bind def /tzwcmy0* {0.00 0.00 0.00 0.00} bind def /tzn000n* {0.00 0.00 0.00 1.00} bind def %grey series 000n* /tzd000n* {0.00 0.00 0.00 0.75} bind def %000n* setcmykcolor /tzz000n* {0.00 0.00 0.00 0.50} bind def /tzh000n* {0.00 0.00 0.00 0.25} bind def /tzw000n* {0.00 0.00 0.00 0.00} bind def /tznw* {0.00} bind def %grey series /tzdw* {0.25} bind def %w* setgray /tzzw* {0.50} bind def /tzhw* {0.75} bind def /tzww* {1.00} bind def /tznolv* {0.00 0.00 0.00} bind def %grey series /tzdolv* {0.25 0.25 0.25} bind def %olv* setrgbcolor /tzzolv* {0.50 0.50 0.50} bind def /tzholv* {0.75 0.75 0.75} bind def /tzwolv* {1.00 1.00 1.00} bind def /tznLAB* [18.01 0.00 0.00] def %grey series /tzdLAB* [37.36 0.00 0.00] def %LAB* setcolor /tzzLAB* [56.71 0.00 0.00] def /tzhLAB* [76.06 0.00 0.00] def /tzwLAB* [95.41 0.00 0.00] def /tfn {0 setgray} bind def /tfw {1 setgray} bind def %%EndProlog %*********************************************************** %%BeginPageSetup /#copies 1 def %A4querF 1.0 1.0 scale /pgsave save def %%EndPageSetup /SS$ [(G) (E) (S) (F) (I) (J) (M)] def /SC$ [(N) (F) (S) (D) (T) (E) (C)] def /SX$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def /SY$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def % 0 1 2 3 4 5 % 6 7 8 /EX$ [(A.TXT /.PS) (B.BMP /.PS) (G.GIF /.PS) (H.HTM /.PS) (I.HTM /.PS) (J.JPE /.PS) (P.PDF /.PS) (T.TIF /.PS)] def /EY$ [(A.DAT) (B.DAT) (G.DAT) (H.DAT) (I.DAT) (J.DAT) (P.DAT) (T.DAT)] def %******************************************************************* /lanind1f 02 def /lanind2f 02 def /laninddf 01 def /colorm1f 01 def /colorm2f 01 def /colormdf 01 def /deintp1f 01 def /deintp2f 01 def /deintpdf 01 def /xcolor1f 03 def /xcolor2f 03 def /xcolordf 01 def /xchart1f 01 def /xchart2f 01 def /xchartdf 01 def %0-1,2-5,6-16,17-32 /xchart3f 01 def /xchart4f 17 def /xchart5f 01 def /pchart1f 03 def /pchart2f 03 def /pchartdf 01 def %=3 for sRGB, Lr=0 /colsep1f 00 def /colsep2f 00 def /colsepdf 01 def /pmetam1f 00 def /pmetam2f 00 def /pmetamdf 01 def %/lanindf lanind1f def % /lanindf lanind1f def %lanind1f laninddf lanind2f {/lanindf exch def %/colormf colorm1f def % /colormf colorm1f def %colorm1f colormdf colorm2f {/colormf exch def %/deintpf deintp1f def % /deintpf deintp1f def %deintp1f deintpdf deintp2f {/deintpf exch def %/xcolorf xcolor1f def % /xcolorf xcolor1f def %xcolor1f xcolordf xcolor2f {/xcolorf exch def %/xchartf xchart1f def % /xchartf xchart1f def %xchart1f xchartdf xchart2f {/xchartf exch def %/pchartf pchart1f def % /pchartf pchart1f def %pchart1f pchartdf pchart2f {/pchartf exch def %/colsepf colsep1f def % /colsepf colsep1f def %colsep1f colsepdf colsep2f {/colsepf exch def /lanind lanindf def /colorm colormf def /deintp deintpf def /xcolor xcolorf def /xchart xchartf def /xchartm xchart2f xchart1f sub 1 add def /xchart3 xchart3f def /xchart3PXX xchart3 15 add def /xchart4 xchart4f def /pchart pchartf def /colsep colsepf def %/pmetamf pmetam1f def % /pmetamf pmetam1f def %pmetam1f pmetamdf pmetam2f {/pmetamf exch def /pmetam pmetamf def %************************************************************* xchart xchart3 lt {%xchart=xchart3 for CM %BEG special for ColorInterpolation /xchartj pchart def %sRGB, Lr=0%, pchart=3 /hei -1 def /heM -1 def /ausz 8 def /xchartt (F) def %necessary PROC_LAB_IOF %PROC_RX0F_IOF PROC_COLSEP_IOF colorm 1 eq {PROC_COLINT_IOF} if %PROC_COLINT_IOF %PROC_SPEC_IOF %Colordata_sRGB_F %new %setcolortrans_F %new proc_LAB729a_to_LAB*LabCh64M proc_LAB*LabCh64M_to_tab362_dy %END special for ColorInterpolation %********************************************************* } ifelse %xchart>=xchart3 for CM xchart xchart3PXX le {72 90 translate} {72 56 translate} ifelse 0.01 MM dup scale %0 0 moveto 24600 0 rlineto 0 17220 rlineto % -24600 0 rlineto closepath stroke 200 -180 moveto 180 /Times-ISOL1 FS lanindf cvishow (-) show colormf cvishow deintpf cvishow xcolorf cvishow xchartf cvishow pchartf cvishow colsepf cvishow (-F) show pmetamf cvishow grestore gsave /GSS$ SS$ lanind get def /GSC$ SC$ colorm get def /GSX$ SX$ xcolor xcolor 16 idiv 16 mul sub get def /GSY$ SY$ xchart xchart 16 idiv 16 mul sub get def /GEX$ EX$ 6 get def /GEY$ EY$ 6 get def %01 %02 %03 %04 %05 %06 %07 %08 %09 %10 %11 %12 %13 %14 xchart xchart3PXX le {%xchart<=xchart3PXX %gsave BeginEPSF 28 MM 197 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto 1 1 scale -77 -91 translate %%BeginDocument: Bild 10 %line 329 %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto 1 1 scale -77 -91 translate %%BeginDocument: Bild 11 %line 339 %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 12 %line 349 %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 13 %line 359 %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 14 %line 369 %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 15 %line 379 %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 16 %line 389 %%EndDocument EndEPSF grestore gsave BeginEPSF /xc1 16 def /yc1 12 def /xt 1 def xchart 1 eq {/xt 1 def} if 28 MM 3 MM sub xt 0 eq {16 MM sub} if 20 MM xt 0 eq {12 MM sub} if translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 17 %line 399 %!PS-Adobe-3.0 EPSF-3.0 SS130-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/SS13/) /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 ( adapt\351es donn\351es CIELAB (a)) showfr ( dati atti CIELAB (a)) showit ( adapted (a) CIELAB data) showjp } if ibild 0 eq {%BEG ibild=0 S11 4250 moveto (Name) kshow S21 200 sub 4250 moveto (L*=L*) kshow xcharti 12 lt ibild 0 ne or {(a) ishow} if S31 4250 moveto (a*) kshow xcharti 12 lt ibild 0 ne or {(a) ishow} if S41 4250 moveto (b*) kshow xcharti 12 lt ibild 0 ne or {(a) ishow} if S51 100 sub 4250 moveto (C*) kshow (ab) ishow xcharti 12 lt ibild 0 ne or {(,a) ishow} if S61 100 sub 4250 moveto (h*) kshow (ab) ishow xcharti 12 lt ibild 0 ne or {(,a) ishow} if 0 1 11 {/i exch def %i=0,11 /ya yu2 yd i mul sub def S11 ya moveto ColNames i get nshow Fxx ishow (,) ishow i 8 ge {(CIE) ishow} {(M) ishow xcharti 12 lt {(a) ishow} if} ifelse ( ) nshow xcharti 12 lt {%xcharti<=12,>12 i 7 le {%i<=7 xchart 0 eq {%xchart=0,1 /L*Fax LAB*a i 3 mul get def /A*Fax LAB*a i 3 mul 1 add get def /B*Fax LAB*a i 3 mul 2 add get def /C*Fax A*Fax dup mul B*Fax dup mul add sqrt def /H*Fax B*Fax A*Fax 0.0001 add atan def }%xchart=0 {%xchart=1 /r*x r*dd08M i get def /g*x g*dd08M i get def /b*x b*dd08M i get def r*x g*x b*x setrgbcolor %default to create data %setrgbcolor calculates data for output in "FF_LM_de_setrgbcolor_F" %colorm=0 calculates: rgb_dyF, rgb*dyF, LAB*dyF, ,cmyk*dyF and more %colorm=1 calculates: rgb_dyF, rgb*dyF, LAB*dyF', rgb'*dyF, cmyk*dyF and more /LAB*LxF LAB*LdyF def /LAB*axF LAB*adyF def /LAB*bxF LAB*bdyF def /L*Fax LAB*LxF def /A*Fax LAB*axF def /B*Fax LAB*bxF def } ifelse %xchart=0,1 } if %i<=7 i 8 ge {%i>=8 TYGB /L*Fax LAB*ee i 8 sub 3 mul get def /A*Fax LAB*ee i 8 sub 3 mul 1 add get def /B*Fax LAB*ee i 8 sub 3 mul 2 add get def } if %i>=8 /C*Fax A*Fax dup mul B*Fax dup mul add sqrt def /H*Fax B*Fax A*Fax 0.0001 add atan def 0 setgray S21 ya moveto L*Fax cvsshow1 S31 ya moveto A*Fax cvsshow1 S41 ya moveto B*Fax cvsshow1 S51 ya moveto C*Fax cvsshow1 S61 ya moveto H*Fax cvishow }%xcharti<=12 {%xcharti>12 xchart 0 eq {%xchart=0,1 /L*Fax LAB*a i 3 mul get def /A*Fax LAB*a i 3 mul 1 add get def /B*Fax LAB*a i 3 mul 2 add get def /C*Fax A*Fax dup mul B*Fax dup mul add sqrt def /H*Fax B*Fax A*Fax 0.0001 add atan def }%xchart=0 {%xchart=1 /L*Fax LAB*Ldd08M i get def /A*Fax LAB*add08M i get def /B*Fax LAB*bdd08M i get def } ifelse %xchart=0,1 /C*Fax A*Fax dup mul B*Fax dup mul add sqrt def /H*Fax B*Fax A*Fax 0.0001 add atan def 0 setgray S21 ya moveto L*Fax cvsshow1 S31 ya moveto A*Fax cvsshow1 S41 ya moveto B*Fax cvsshow1 S51 ya moveto C*Fax cvsshow1 S61 ya moveto H*Fax cvishow /L*Fx LAB* i 3 mul get def /A*Fx LAB* i 3 mul 1 add get def /B*Fx LAB* i 3 mul 2 add get def /C*Fx A*Fx dup mul B*Fx dup mul add sqrt def /H*Fx B*Fx A*Fx 0.0001 add atan def S2 350 add ya moveto L*Fx cvsshow2 S3 100 add ya moveto A*Fx cvsshow2 S4 100 add ya moveto B*Fx cvsshow2 S5 ya moveto C*Fx cvsshow2 S6 ya moveto H*Fx cvishow } ifelse %xcharti=12,#12 } for %i=0,11 }%END ibild=0 {%BEG ibild=1 S1t 4250 moveto (H*) kshow Fxx ishow () nshow S2t 200 sub 4250 moveto (L*=L*) kshow xcharti 12 lt ibild 0 ne or {(a) ishow} if S3t 4250 moveto (a*) kshow xcharti 12 lt ibild 0 ne or {(a) ishow} if S4t 4250 moveto (b*) kshow xcharti 12 lt ibild 0 ne or {(a) ishow} if S5t 150 sub 4250 moveto (C*) kshow (ab) ishow xcharti 12 lt ibild 0 ne or {(,a) ishow} if S6t 150 sub 4250 moveto (h*) kshow (ab) ishow xcharti 12 lt ibild 0 ne or {(,a) ishow} if %16 measured data, see PE54L0NP.pdf, page 11/24 %PE540-7N, Page 11/24 HIC*Fd rgb*Fd LabCh*Fd /LAB*a48 432 array def %48x9=432 /LAB*a48 [%HIC rgb LabCh nr (R00Y_100_100d) 1.000 0.000 0.000 48.4 66.1 40.2 77.4 31.3 %00 (R13Y_100_100d) 1.000 0.116 0.000 52.5 57.3 45.5 73.2 38.4 %01 (R25Y_100_100d) 1.000 0.233 0.000 56.8 48.0 50.5 69.8 46.4 %02 (R38Y_100_100d) 1.000 0.366 0.000 62.5 36.5 57.1 67.8 57.3 %03 (R50Y_100_100d) 1.000 0.500 0.000 68.6 25.0 63.9 68.7 68.6 %04 (R63Y_100_100d) 1.000 0.633 0.000 74.9 14.1 71.1 72.5 78.7 %05 (R75Y_100_100d) 1.000 0.766 0.000 80.6 4.8 77.2 77.4 86.4 %06 (R88Y_100_100d) 1.000 0.883 0.000 85.4 -2.5 82.3 82.3 91.7 %07 (Y00G_100_100d) 1.000 1.000 0.000 90.2 -9.6 88.2 88.7 96.2 %08 (Y13G_100_100d) 0.883 1.000 0.000 86.7 -14.2 83.5 84.7 99.6 %09 (Y25G_100_100d) 0.766 1.000 0.000 83.2 -18.4 79.9 82.0 102.9 %10 (Y38G_100_100d) 0.633 1.000 0.000 77.9 -25.1 69.5 74.0 109.8 %11 (Y50G_100_100d) 0.500 1.000 0.000 73.3 -31.7 62.7 70.3 116.8 %12 (Y63G_100_100d) 0.366 1.000 0.000 68.2 -39.5 55.9 68.5 125.2 %13 (Y75G_100_100d) 0.233 1.000 0.000 62.0 -49.7 43.2 65.9 138.9 %14 (Y88G_100_100d) 0.116 1.000 0.000 59.1 -57.1 38.5 68.9 145.9 %15 (G00C_100_100d) 0.000 1.000 0.000 55.8 -65.2 33.8 73.5 152.5 %16 (G13C_100_100d) 0.000 1.000 0.116 56.6 -62.9 24.0 67.3 159.0 %17 (G25C_100_100d) 0.000 1.000 0.233 57.4 -59.7 13.9 61.3 166.8 %18 (G38C_100_100d) 0.000 1.000 0.366 58.5 -54.9 1.5 55.0 178.4 %19 (G50C_100_100d) 0.000 1.000 0.500 59.3 -50.3 -9.0 51.1 190.2 %20 (G63C_100_100d) 0.000 1.000 0.633 60.1 -45.6 -18.7 49.3 202.3 %21 (G75C_100_100d) 0.000 1.000 0.766 61.1 -40.3 -27.8 49.0 214.6 %22 (G88C_100_100d) 0.000 1.000 0.883 62.0 -35.8 -34.7 49.9 224.0 %23 (C00B_100_100d) 0.000 1.000 1.000 63.0 -30.5 -42.0 51.9 234.0 %24 (C13B_100_100d) 0.000 0.883 1.000 59.4 -25.3 -42.7 49.7 239.2 %25 (C25B_100_100d) 0.000 0.766 1.000 55.8 -20.3 -43.2 47.7 244.7 %26 (C38B_100_100d) 0.000 0.633 1.000 50.8 -13.3 -43.9 45.9 253.0 %27 (C50B_100_100d) 0.000 0.500 1.000 45.7 -5.7 -44.6 45.0 262.6 %28 (C63B_100_100d) 0.000 0.366 1.000 40.4 2.6 -45.2 45.2 273.3 %29 (C75B_100_100d) 0.000 0.233 1.000 36.0 10.1 -46.1 47.2 282.3 %30 (C88B_100_100d) 0.000 0.116 1.000 32.1 17.3 -46.7 49.8 290.3 %31 (B00M_100_100d) 0.000 0.000 1.000 27.5 25.9 -47.3 54.0 298.7 %32 (B13M_100_100d) 0.116 0.000 1.000 29.5 33.4 -43.1 54.6 307.7 %33 (B25M_100_100d) 0.233 0.000 1.000 31.0 39.9 -38.5 55.5 315.9 %34 (B38M_100_100d) 0.366 0.000 1.000 35.1 44.5 -34.7 56.5 322.0 %35 (B50M_100_100d) 0.500 0.000 1.000 38.3 52.6 -28.5 59.9 331.5 %36 (B63M_100_100d) 0.633 0.000 1.000 41.2 59.3 -22.0 63.3 339.6 %37 (B75M_100_100d) 0.766 0.000 1.000 45.2 63.8 -18.2 66.4 344.0 %38 (B88M_100_100d) 0.883 0.000 1.000 47.5 68.6 -13.8 69.9 348.5 %39 (M00R_100_100d) 1.000 0.000 1.000 49.5 73.5 -9.0 74.1 352.9 %40 (M13R_100_100d) 1.000 0.000 0.883 49.4 72.4 -4.0 72.5 356.7 %41 (M25R_100_100d) 1.000 0.000 0.766 49.3 71.4 0.4 71.4 0.3 %42 (M38R_100_100d) 1.000 0.000 0.633 49.3 69.8 6.6 70.1 5.4 %43 (M50R_100_100d) 1.000 0.000 0.500 48.9 69.3 12.9 70.5 10.5 %44 (M63R_100_100d) 1.000 0.000 0.366 48.9 68.1 19.6 70.9 16.1 %45 (M75R_100_100d) 1.000 0.000 0.233 48.8 67.1 27.9 72.7 22.6 %46 (M88R_100_100d) 1.000 0.000 0.116 48.6 66.5 34.1 74.8 27.1 %47 ] def /indFa16 16 array def /indFa16 [00 02 04 06 08 10 12 14 16 20 24 28 32 36 40 44] def 0 1 15 {/i exch def %i=0,15 /ya yu2 yd i mul sub def xchart 0 eq {%xchart=0,>0 /indx indFa16 i get def /i90 indx 9 mul 4 add def /i91 i90 1 add def /i92 i90 2 add def /L*Ma LAB*a48 i90 get def /A*Ma LAB*a48 i91 get def /B*Ma LAB*a48 i92 get def /C*Ma A*Ma dup mul B*Ma dup mul add 0.0001 add sqrt def /H*Ma B*Ma A*Ma 0.0001 add atan def }%xchart=0 {%xchart>0 /r*x r*dd18M i get def /g*x g*dd18M i get def /b*x b*dd18M i get def r*x g*x b*x setrgbcolor %default to create data %setrgbcolor calculates data for output in "FF_LM_de_setrgbcolor_F" %colorm=0 calculates: rgb_dyF, rgb*dyF, LAB*dyF, ,cmyk*dyF and more %colorm=1 calculates: rgb_dyF, rgb*dyF, LAB*dyF', rgb'*dyF, cmyk*dyF and more /r*xF r*dyF def /g*xF g*dyF def /b*xF b*dyF def /LAB*LxF LAB*LdyF def /LAB*axF LAB*adyF def /LAB*bxF LAB*bdyF def /LAB*CxF LAB*adyF dup mul LAB*bdyF dup mul add 0.0001 add sqrt def /LAB*hxF LAB*bdyF LAB*adyF 0.0001 add atan def /L*Ma LAB*LxF def /A*Ma LAB*axF def /B*Ma LAB*bxF def /C*Ma LAB*CxF def /H*Ma LAB*hxF def } ifelse %xchart=0,>0 0 setgray S1t ya moveto () nshow S1t ya moveto RGB54CC17_L i 4 mul get show Fxx ishow () nshow S2t 60 add ya moveto L*Ma cvsshow1 S3t ya moveto A*Ma cvsshow1 S4t ya moveto B*Ma cvsshow1 S5t ya moveto C*Ma cvsshow1 S6t ya moveto H*Ma cvishow } for %i=0,15 } ifelse %END ibild=1 } bind def %END proc_CIELAB_T16 %****************************************************************** /proc_CIELAB_G {%BEG CIELAB_G /u* 0 def /H*MGam 6 array def /C*MGam 6 array def 0 1 5 {/i exch def %i=0,5 /A*Ma LAB*a i 3 mul 1 add get def /B*Ma LAB*a i 3 mul 2 add get def /C*MGama A*Ma dup mul B*Ma dup mul add sqrt def H*MGam i B*Ma A*Ma 0.0001 add atan put C*MGam i C*MGama put /u* u* C*MGama L*Wio L*Nio sub mul add def } for %i=0,5 /u*r u* 77.4 77.4 mul 6 mul div 100 mul def 1 1 1 setrgbcolor /xmtext 2200 def /xms 0 def xmtext xms sub 11500 moveto TBG0 (%Gamut) showen (%Umfang) showde %Gama) showes (%Gamme) showfr (%Gamma) showit (%Gamut) showjp xmtext xms sub 11100 moveto TBG0 (u*) show TBM0 -20 -50 rmoveto (rel) show 0 50 rmoveto TBG0 ( = ) show u*r cvishow 0 1 4 {/i exch def %i=0,4 /H*dif H*MGam i 1 add get H*MGam i get sub def i 0 eq {/H*MGamin H*dif def /H*MGamax H*dif def} if H*dif H*MGamin lt {/H*MGamin H*dif def} if H*dif H*MGamax gt {/H*MGamax H*dif def} if } for %i=0,4 /g*Hr H*MGamin H*MGamax div 100 mul def xmtext xms sub 10700 moveto TBG0 (%Regularity) showen (%Regularit\344t) showde (%Regularidad) showes (%R\351gularit\351) showfr (%Regularit\340) showit (%Regularity) showjp xmtext 10300 moveto TBG0 (g*) show TBM0 -20 -50 rmoveto (H,rel) show 0 50 rmoveto TBG0 ( = ) show g*Hr cvishow 0 1 4 {/i exch def %i=0,4 /C*akt C*MGam i get def i 0 eq {/C*MGamin C*akt def /C*MGamax C*akt def} if C*akt C*MGamin lt {/C*MGamin C*akt def} if C*akt C*MGamax gt {/C*MGamax C*akt def} if } for %i=0,4 /g*Cr C*MGamin C*MGamax div 100 mul def xmtext 09900 moveto TBG0 (g*) show TBM0 -20 -50 rmoveto (C,rel) show 0 50 rmoveto TBG0 ( = ) show g*Cr cvishow } bind def %CIELAB_G %****************************************************************** /ilf 8 array def /ilf [0.00 0.25 0.50 1.00 2.00 4.00 8.00 16.00] def /Lrefl 11 array def /Lrefl [(0%) (0%) (0%) (0%) (0,6%) (1,2%) (2,5%) (5%) (10%) (20%) (40%)] def /cvishowb {cvi 6 string cvs show ( ) show} def /cvsshow1b {10 mul cvi 0.1 mul 7 string cvs show ( ) show} def /cvsshow2b {100 mul cvi 0.01 mul 7 string cvs show ( ) show} def /cvsshow3b {1000 mul cvi 0.001 mul 7 string cvs show ( ) show} def /cvsshow1r {0.05 add 10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2r {0.005 add 100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3r {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show} def /cvsshow1br {0.05 add 10 mul cvi 0.1 mul 7 string cvs show ( ) show} def /cvsshow2br {0.005 add 100 mul cvi 0.01 mul 7 string cvs show ( ) show} def /cvsshow3br {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show ( ) show} def /cvi100 {100 mul cvi /xi exch def xi 0 lt {/vorz -1 def} {/vorz 1 def} ifelse /xia xi abs def vorz -1 eq {(\255) show} {(0) show} ifelse xia 0 ge xia 9 le {(0000) show} if xia 10 ge xia 99 le and {(000) show} if xia 100 ge xia 999 le and {(00) show} if xia 1000 ge xia 9999 le and {(0) show} if xia cvishow } bind def %************************************************ %******BEG RGB_48_16_6.PS default rgb data for 48/16/6 steps for device colours /r*dd64M 64 array def /r*dd64M [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %R 1.000 0.875 0.750 0.625 0.500 0.375 0.250 0.125 %J 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %G 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %C 0.000 0.125 0.250 0.375 0.500 0.625 0.750 0.875 %B 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %M 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %R 1.000 0.875 0.750 0.625 0.500 0.375 0.250 0.125 %J ] def /g*dd64M 64 array def /g*dd64M [0.000 0.125 0.250 0.375 0.500 0.625 0.750 0.875 %R 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %J 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %G 1.000 0.875 0.750 0.625 0.500 0.375 0.250 0.125 %C 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %B 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %M 0.000 0.125 0.250 0.375 0.500 0.625 0.750 0.875 %R 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %J ] def /b*dd64M 64 array def /b*dd64M [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %R 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %J 0.000 0.125 0.250 0.375 0.500 0.625 0.750 0.875 %G 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %C 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %B 1.000 0.875 0.750 0.625 0.500 0.375 0.250 0.125 %M 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %R 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %J ] def %calculate all data of 16+1=17 step elementary colour circle /ind64M 17 array def /ind64M %R00Y R25Y R50Y R75Y Y00G Y25G Y50G Y75G [0 2 4 6 8 10 12 14 %G00B G25B G50B G75G B00R B25R B50R B75R R00Y 16 20 24 28 32 36 40 44 0 ] def %actual 16 step device circle + N + W /r*dd18M 18 array def /g*dd18M 18 array def /b*dd18M 18 array def 0 1 15 {/i exch def %i=0,15 /indi ind64M i get def r*dd18M i r*dd64M indi get put %16 device colours g*dd18M i g*dd64M indi get put b*dd18M i b*dd64M indi get put } for %i=0,15 r*dd18M 16 0 put %N g*dd18M 16 0 put b*dd18M 16 0 put r*dd18M 17 1 put %W g*dd18M 17 1 put b*dd18M 17 1 put %actual 6 step device circle + N + W /r*dd08M 08 array def /g*dd08M 08 array def /b*dd08M 08 array def 0 1 5 {/i exch def %i=0,5 r*dd08M i r*dd64M i 8 mul get put %6 device colours g*dd08M i g*dd64M i 8 mul get put b*dd08M i b*dd64M i 8 mul get put } for %i=0,5 r*dd08M 6 0 put %N g*dd08M 6 0 put b*dd08M 6 0 put r*dd08M 7 1 put %W g*dd08M 7 1 put b*dd08M 7 1 put %******END RGB_48_16_6.PS default rgb data for 48/16/6 steps for device colours /lanind1 01 def /lanind2 01 def /lanindd 01 def /colorm1 00 def /colorm2 00 def /colormd 01 def /deintp1 00 def /deintp2 00 def /deintpd 01 def /xcolor1 00 def /xcolor2 00 def /xcolord 01 def /xchart1 00 def /xchart2 00 def /xchartd 01 def /pchart1 00 def /pchart2 00 def /pchartd 01 def /colsep1 00 def /colsep2 00 def /colsepd 01 def /pmetam1 00 def /pmetam2 00 def /pmetamd 01 def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def /lanindd laninddg def} if /colormg where {pop /colorm1 colormg def /colorm2 colormg def /colormd colormdg def} if /deintpg where {pop /deintp1 deintpg def /deintp2 deintpg def /deintpd deintpdg def} if /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def /xcolord xcolordg def} if /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def /xchartd xchartdg def} if /pchartg where {pop /pchart1 pchartg def /pchart2 pchartg def /pchartd pchartdg def} if /colsepg where {pop /colsep1 colsepg def /colsep2 colsepg def /colsepd colsepdg def} if /pmetamg where {pop /pmetam1 pmetamg def /pmetam2 pmetamg def /pmetamd pmetamdg def} if /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} if /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} if /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} if /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} if /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 6 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 17 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 75 83 moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolor cvishow xchart cvishow pchart cvishow colsep cvishow (-L) show pmetam cvishow 180 83 moveto (SS130-7) show xchart 0 eq {(N) show} {deintp colorm 2 mul add cvishow} ifelse 72 90 translate /xt 1 def xchart 1 eq {/xt 1 def} if xt 0 eq {0.0115 MM} {0.010 MM} ifelse dup scale /xchart3P4 xchart3 4 add def /xchart3P15 xchart3 15 add def pmetam 0 eq {%pmetam=0 40 setlinewidth xchart xchart3P4 le {0.5 setgray} {1 setgray} ifelse 0 0 moveto 24600 0 rlineto 0 17220 rlineto -24600 0 rlineto closepath fill 0 setgray 0 0 moveto 24600 0 rlineto 0 17220 rlineto -24600 0 rlineto closepath stroke } if %pmetam=0 colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if /xcharts 9 xchart4 add def %************************************************************** xchart xchart3P4 le {%BEG LOOP0: xchart<=xchart3P4 %two pages for xchart=0,1+4 separations /ColNames 17 array def /ColNames [(R) (Y) (G) (C) (B) (M) (N) (W) (R) (Y) (G) (B) ] def /AngsTabt 68 array def /AngsTabt [%31 angles = 360/22,5 + 1 = 16 + 1 000.0 1.00 0.00 0.00 %r00j 022.5 1.00 0.25 0.00 045.0 1.00 0.50 0.00 %r50j 067.5 1.00 0.75 0.00 090.0 1.00 1.00 0.00 %j00g 112.5 0.75 1.00 0.00 135.0 0.50 1.00 0.00 %j50g 157.5 0.25 1.00 0.00 180.0 0.00 1.00 0.00 %g00b 202.5 0.00 1.00 0.50 225.0 0.00 1.00 1.00 %g50b 247.5 0.00 0.50 1.00 270.0 0.00 0.00 1.00 %b00r 292.5 0.50 0.00 1.00 315.0 1.00 0.00 1.00 %b50r 337.5 1.00 0.00 0.50 360.0 1.00 0.00 0.00 %r00j ] def /xs 1000 def /ys xs def /d2 xs 2 div def /d8 xs 8 div def /xs5x xs 5.4 mul def /ys5x ys 5.4 mul def /x xs 0.15 mul def /y ys 12.0 mul def /xd 800 def /yd 800 def /xd5x xs5x 200 sub def /yd5x ys5x 200 sub def /j 0 def /i 0 def /xds 600 def /xmin 0000 def /xmax 10000 def /ymin 0000 def /ymax 10000 def %Spalten /S11 0020 def %code /S21 1300 def %L* /S31 2100 def %a* /S41 2900 def %b* /S51 3800 def %C* /S61 4650 def %h* /S1t 0020 def %code /S2t 2200 def %L* /S3t 3000 def %a* /S4t 3800 def %b* /S5t 4650 def %C* /S6t 5450 def %h* /xcharti pchart def %************************************************************************** 0 1 1 {/ibild exch def %ibild=0,1 xcharts 9 eq {%xcharts=9 %BEG CIELAB_09 xchart=09 ibild 0 eq { 1900 1700 translate} if ibild 1 eq {13800 1700 translate} if %BEG CIELAB_09 Top Text Hue Circles ibild 0 eq {%ibild=0 1 setgray TBG0 /xtext0 -1700 def /xtext1 -1200 def /cfakt 1.0 def xtext0 15000 moveto (Input and Output: ) showen (Ein\255 und Ausgabe: ) showde (Entrada i salida: ) showes (Entre\350 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 (Donnee de couleurs peripherique (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 \350l\350mentaire (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 couleurs) 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 (de cette page: ) 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 (chromie) 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 (Donnee de couleurs peripherique (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 \350l\350mentaire (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 couleurs) 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 (de cette page: ) 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 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 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 (Entre\350 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 ( par la teinte CIELAB relative) showfr ( for relative CIELAB hue) showit ( for relative CIELAB hue) showjp TBIG0 ( h) show TBM0 0 -50 rmoveto (ab,a,rel) show 0 50 rmoveto TBG0 ( = ) show TBIG0 ( h) show TBM0 -20 -50 rmoveto (ab) show 0 50 rmoveto TBG0 (/360 = ) show H*Ma cvishow (/360 = ) show H*Ma 360 div cvsshow2 } if %ibild=0 %END CIELAB_10 Top Text Hue Triangles %*********************************************************************** %BEG CIELAB_10 Hue Triangle left 5 steps 0.0 setgray CBM0 ibild 0 eq { %ibild=0 /Tabfakt 0.82 def /anz 5 def /xs 10000 anz 3 add div def /ys xs def /x9 xs 1.8 mul def /xd xs 2 mul def /yd xs def 1 1 1 setrgbcolor %n* 1 1 3 {/j exch def /x1 xmin def /y1 ymax yd j 2 mul mul sub def /x2 xmin xd 4 j sub mul add def /y2 ymin yd 4 j sub mul add def x1 y1 moveto x2 y2 lineto stroke } for %c* 1 1 3 {/j exch def /x1 xmin xd j mul add def /y1 ymax yd j mul sub def /x2 xmin xd j mul add def /y2 ymin yd j mul add def x1 y1 moveto x2 y2 lineto stroke } for xcharts 6 ge {/i xcharts 10 sub def /r*xsi r*dd18M i get def /g*xsi g*dd18M i get def /b*xsi b*dd18M i get def } if /id 1 4 div def 0 1 04 {/j exch def %j=0,4 /im 4 j sub def 0 1 im {/i exch def %i=0,4 im 0 eq %im=0 {/r*x 0 def /g*x 0 def /b*x 0 def} %im=0 {/ia 1 id j mul sub def /argb ia def /brgb ia i id mul sub def xcharts 0 eq {/r*x argb def /g*x brgb def /b*x brgb def} if xcharts 1 eq {/r*x argb def /g*x argb def /b*x brgb def} if xcharts 2 eq {/r*x brgb def /g*x argb def /b*x brgb def} if xcharts 3 eq {/r*x brgb def /g*x argb def /b*x argb def} if xcharts 4 eq {/r*x brgb def /g*x brgb def /b*x argb def} if xcharts 5 eq {/r*x argb def /g*x brgb def /b*x argb def} if xcharts 6 ge {%xcharts>=6 /ib 1 im div def %im#0 /ic 1 ib i mul sub def /ie 1 ic sub def /r*x 1 ia mul ic mul r*xsi ia mul ie mul add def /g*x 1 ia mul ic mul g*xsi ia mul ie mul add def /b*x 1 ia mul ic mul b*xsi ia mul ie mul add def } if %xcharts>=6 } ifelse %im=0 r*x g*x b*x setrgbcolor %only to calculate olv'*3, cmyn'*4 /xa xmin xd i mul add 0.5 xd mul sub def /iad j 2 mul def /ya ymax yd i iad add mul sub 1.0 yd mul sub def r*x g*x b*x setrgbcolor xa ya xd xd rec fill xcharti 5 le {1 r*x sub 1 g*x sub 1 b*x sub 0 setcmykcolor xa ya xd 0.5 mul dup rem fill} if xcharti 0 eq {%xcharti=0 [100 300] 0 setdash r*x 0 eq g*x 0 eq and b*x 0 eq and {1 setgray} {0 setgray} ifelse xa ya xd 0.5 mul dup rem stroke [ ] 0 setdash } if %xcharti=0 } for %i=0,4 } for %j=0,4 /i 2 def %mean grey stroke of 5 steps /xa xmin 0.5 xd mul sub def /ya ymax yd i mul 2 mul sub 1.0 yd mul sub def 1 1 1 setrgbcolor xa ya xd xd rec stroke } if %ibild=0 %END CIELAB_10 Hue Triangle left 5 steps %******************************************************************* %BEG CIELAB_10 Hue Triangle right 16 steps ibild 1 eq { %ibild=1 CBK0 /Tabfakt 1 def /anz 16 def /xs 10000 anz 14 add div def /ys xs def /x9 xs 1.8 mul def /xd xs 2 mul def /yd xs def 1 1 1 setrgbcolor %n* 1 1 14 {/j exch def %j=1,14 /x1 xmin def /y1 ymax yd j 2 mul mul sub def /x2 xmin xd 15 j sub mul add def /y2 ymin yd 15 j sub mul add def x1 y1 moveto x2 y2 lineto stroke } for %j=1,14 %c* 1 1 14 {/j exch def %j=1,14 /x1 xmin xd j mul add def /y1 ymax yd j mul sub def /x2 xmin xd j mul add def /y2 ymin yd j mul add def x1 y1 moveto x2 y2 lineto stroke } for %j=1,14 xcharts 6 ge {/i xcharts 10 sub def /r*xsi r*dd18M i get def /g*xsi g*dd18M i get def /b*xsi b*dd18M i get def } if /id 1 15 div def 0 1 15 {/j exch def %j=0,14 /im 15 j sub def 0 1 im {/i exch def %i=0,15 im 0 eq %im=0 {/r*x 0 def /g*x 0 def /b*x 0 def} %im=0 {/ia 1 id j mul sub def /argb ia def /brgb ia i id mul sub def xcharts 0 eq {/r*x argb def /g*x brgb def /b*x brgb def} if xcharts 1 eq {/r*x argb def /g*x argb def /b*x brgb def} if xcharts 2 eq {/r*x brgb def /g*x argb def /b*x brgb def} if xcharts 3 eq {/r*x brgb def /g*x argb def /b*x argb def} if xcharts 4 eq {/r*x brgb def /g*x brgb def /b*x argb def} if xcharts 5 eq {/r*x argb def /g*x brgb def /b*x argb def} if xcharts 6 ge {%xcharts>=6 /ib 1 im div def %im#0 /ic 1 ib i mul sub def /ie 1 ic sub def /r*x 1 ia mul ic mul r*xsi ia mul ie mul add def /g*x 1 ia mul ic mul g*xsi ia mul ie mul add def /b*x 1 ia mul ic mul b*xsi ia mul ie mul add def } if %xcharts>=6 } ifelse %im=0 r*x g*x b*x setrgbcolor %only to calculate olv'*3, cmyn'*4 /xa xmin xd i mul add 0.5 xd mul sub def /iad j 2 mul def /ya ymax yd i iad add mul sub 1.0 yd mul sub def r*x g*x b*x setrgbcolor xa ya xd xd rec fill xcharti 5 le {1 r*x sub 1 g*x sub 1 b*x sub 0 setcmykcolor xa ya xd 0.5 mul dup rem fill} if xcharti 0 eq {%xcharti=0 [100 300] 0 setdash r*x 0 eq g*x 0 eq and b*x 0 eq and {1 setgray} {0 setgray} ifelse xa ya xd 0.5 mul dup rem stroke [ ] 0 setdash } if %xcharti=0 } for %i=0,15 } for %j=0,15 xcharti 5 le {%xchart=0,5 %mean grey stroke of steps 7 and 8 7 1 8 {/i exch def %i=7,8 /xa xmin xd 0.5 mul sub def /ya ymax yd i mul 2 mul sub xd 0.5 mul sub def 1 1 1 setrgbcolor xa ya xd xd rec stroke } for %i=7,8 } if %xchart=0,5 } if %ibild=1 %END CIELAB_10 Hue Triangle right %******************************************************************* %BEG CIELAB_10 Table ibild 0 eq {5600}{4500} ifelse 9600 translate proc_CIELAB_T16 ibild 0 eq {-5600}{-4500} ifelse -9600 translate %END CIELAB_10 Table %******************************************************************** %BEG CIELAB_10 Diagram ibild 0 eq { %ibild=0 2700 11600 translate proc_CIELAB_D -2700 -11600 translate } if %ibild=0 %END CIELAB_10 Diagram %***************************************************************** %BEG CIELAB_10 Gamut ibild 1 eq { %ibild=1 proc_CIELAB_G } if %ibild=1 %END CIELAB_10 Gamut %***************************************************************** ibild 1 eq {-13800 -1700 translate} if ibild 0 eq { -1900 -1700 translate} if } if %xcharts=10,25 %END CIELAB_10,25 xchart=10,25 %***************************************************************************** } for %ibild=0,1 %***************************************************************************** xcharts 26 eq {%BEG CIELAB_26 xcharts=26 % Data for 1080 colour test chart /nr1 27 array def /tx1 52 array def /nr1 [(01) (02) (03) (04) (05) (06) (07) (08) (09) (10) (11) (12) (13) (14) (15) (16) (17) (18) (19) (20) (21) (22) (23) (24) (25) (26) (27)] def /tx1 [(A) (B) (C) (D) (E) (F) (G) (H) (I) (J) (K) (L) (M) (N) (O) (P) (Q) (R) (S) (T) (U) (V) (W) (X) (Y) (Z) (a) (b) (c) (d) (e) (f) (g) (h) (i) (j) (k) (l) (m) (n) (o) (p) (q) (r) (s) (t) (u) (v) (w) (x) (y) (z)] def /fakt 1 def /iyt 32 fakt mul def %text size /iyd 35 fakt mul def %line difference 180 /Times-ISOL1 FS 0 0 0 setrgbcolor 9000 -180 moveto (Test chart G with 40x27=1080 colours) showea (Pr\374fvorlage G mit 40x27=1080 Farben) showde (; digital equidistant 9 or 16 step colour scales;) showea (; digital gleichabst\344ndige 9 oder 16stufige Farbreihen;) showde ( Farbdaten in Spalte (A-n):) showde ( Colour data in column (A-n):) showea 180 /TimesB-ISOL1 FS xchart 0 eq {( rgb + cmy0 (A_j + k26_n27)) show (, 000n (k), w (l), nnn0 (m), www (n)) show} if xchart 1 eq {( rgb (A_n)) show} if /xs 900 3 div 2 mul def /ys xs def /d2 xs 2 div def /d8 xs 8 div def (, 3D = ) show colorm cvishow %(, colsep = ) show colsep cvishow %colorm 1 eq {(, cmyn4*) show} if %/xchartg where {pop /faktg xchartg 1 ge {1.10} {1.00} ifelse def} % {/faktg 1.10 def} ifelse %0.01 MM faktg mul dup scale /xmin 650 3 div 2.2 mul def /ymax 15800 def xchart 0 eq {/xd 800 3 div 2 mul def /yd 800 3 div 2 mul def} {/xd 900 3 div 2 mul def /yd 900 3 div 2 mul def} ifelse /xsd xs xd sub 0.5 mul def /ysd xs xd sub 0.5 mul def /xd2 xd 0.50 mul def /xd4 xd 0.25 mul def 20 setlinewidth 500 3 div 2 mul /Times-ISOL1 FS 0 0 0 setrgbcolor 1 1 27 {/i exch def %i=1,27 /x xs 0.15 mul def /y 27.6 ys mul ys i mul sub def x y moveto nr1 i 1 sub get show } for %i=1,27 1 1 40 {/i exch def %i=1,36 /x xs i mul 000 add def /y 27.5 ys mul def x y moveto tx1 i 1 sub get show } for %i=1,36 /RGB*R0 1080 array def /RGB*G0 1080 array def /RGB*B0 1080 array def /IMODE 0 def %input rgb for output LAB* %row no.1 and 2: 9xrgb /imax 08 def /jmax 08 def /kmax 08 def /TKK2 {200 3 div 2 mul /Times-ISOL1 FS} bind def TKK2 0 1 kmax {/k exch def %beg k=0,08 /k0 k 3 idiv def /k1 k k0 3 mul sub def /xadd k1 xs 9 mul mul def /yadd k0 xs 9 mul mul def 0 1 jmax {/j exch def %beg j=0,jmax 0 1 imax {/i exch def %beg i=0,imax /n1079 i j 9 mul add k 81 mul add def /xa xmin j xs mul add xadd add xsd add def /ya ymax i ys mul sub yadd sub ysd add def /r k kmax div def /g j jmax div def /b i imax div def RGB*R0 n1079 r put RGB*G0 n1079 g put RGB*B0 n1079 b put r g b setrgbcolor xa ya xd dup rec fill 1 r sub 1 g sub 1 b sub 0 setcmykcolor xa xd4 add ya xd4 add xd2 dup rec fill } for %end i=0,jmax } for %end j=0,jmax } for %end k=0,kmax %3x rgbcmy /id 1 8 div def /rijn 81 array def %for intermediate storage /gijn 81 array def /bijn 81 array def /lmax 2 def /n1079 728 def 0 1 lmax {/l exch def %beg k=0,kmax /xadd 3 xs 9 mul mul def /yadd l ys 9 mul mul def %for intermediate storage of l=0,lmax 0 1 01 {/jchart exch def %jchart=0,1 /xchartj l jchart 3 mul add def 0 1 08 {/j exch def %j=0,7 /im 8 j sub def jchart 1 im {/i exch def %i=0,8 /ia 1 id j mul sub def /argb ia def /brgb ia i id mul sub def xchartj 0 eq {/r argb def /g brgb def /b brgb def} if xchartj 1 eq {/r argb def /g argb def /b brgb def} if xchartj 2 eq {/r brgb def /g argb def /b brgb def} if xchartj 3 eq {/r brgb def /g argb def /b argb def} if xchartj 4 eq {/r brgb def /g brgb def /b argb def} if xchartj 5 eq {/r argb def /g brgb def /b argb def} if jchart 0 eq {/in i j add def /jn j def} {/in j def /jn i j add def} ifelse rijn in 9 mul jn add r put gijn in 9 mul jn add g put bijn in 9 mul jn add b put } for %i=0,7 } for %j=0,8 } for %jchart=0,1 %for output of l=0,lmax 0 1 08 {/j exch def %j=0,8 0 1 08 {/i exch def %i=0,8 /n1079 n1079 1 add def /r rijn i j 9 mul add get def /g gijn i j 9 mul add get def /b bijn i j 9 mul add get def /xa xmin xs j mul add xadd add xsd add def /ya ymax xs i mul sub yadd sub ysd add def r g b setrgbcolor xa ya xd dup rec fill 1 r sub 1 g sub 1 b sub 0 setcmykcolor xa xd4 add ya xd4 add xd2 dup rec fill } for %i=0,7 } for %j=0,8 } for %end l=0,lmax %6wrgbcmy /n1079 971 def /lmax 03 def %4 rows with geys /kmax 1 def %9 or 16 steps 0 1 kmax {/k exch def % k 0 eq {/jmax 08 def} {/jmax 15 def} ifelse 0 1 lmax {/l exch def %beg l=0,lmax /xadd 36 l add xs mul def /yadd k 9 xs mul mul def /j1 l 36 add def /j1$ tx1 j1 get def 0 1 jmax {/j exch def %j=0,08 /n1079 n1079 1 add def /i1 j k 9 mul add 1 add def %9 steps, 16 steps /argb j jmax div def /xa xmin xadd add xsd add def /ya ymax xs j mul sub yadd sub ysd add def /r argb def /g argb def /b argb def r g b setrgbcolor xa ya xd dup rec fill 1 r sub 1 g sub 1 b sub 0 setcmykcolor xa xd4 add ya xd4 add xd2 dup rec fill } for %j=0,jmax } for %l=0,lmax } for %k=0,kmax %basic colours 1072 - 1080 /basrgb 24 array def /basrgb [0 0 0 1 1 1 1 0 0 0 1 1 1 1 0 0 0 1 0 1 0 1 0 1 ] def /n1079 1071 def 0 1 07 {/i exch def %i=0,7 /n1079 n1079 1 add def /i3 i 3 mul def /xadd 36 xs mul def /yadd 25 xs mul def i 0 eq {/l 0 def /j 0 def /j1$ (k) def /i1 26 def} if i 1 eq {/l 0 def /j 1 def /j1$ (k) def /i1 27 def} if i 2 eq {/l 1 def /j 0 def /j1$ (l) def /i1 26 def} if i 3 eq {/l 1 def /j 1 def /j1$ (l) def /i1 27 def} if i 4 eq {/l 2 def /j 0 def /j1$ (m) def /i1 26 def} if i 5 eq {/l 2 def /j 1 def /j1$ (m) def /i1 27 def} if i 6 eq {/l 3 def /j 0 def /j1$ (n) def /i1 26 def} if i 7 eq {/l 3 def /j 1 def /j1$ (n) def /i1 27 def} if /xa xmin xs l mul add xadd add xsd add def /ya ymax xs j mul sub yadd sub ysd add def /r basrgb i3 get def /g basrgb i3 1 add get def /b basrgb i3 2 add get def r g b setrgbcolor xa ya xd dup rec fill 1 r sub 1 g sub 1 b sub 0 setcmykcolor xa xd4 add ya xd4 add xd2 dup rec fill } for %i=0,7 %*************************************************************************** %} for %pmetam=0,1 } if %END CIELAB_26 xcharts=26 } if %END LOOP0: xchart<=xchart3P4 two pages+4 separations %***************************************************************************** %used for tables in the rest /xchart3P5 xchart3 5 add def /xchart3P6 xchart3 6 add def /xchart3P7 xchart3 7 add def xchart xchart3P5 ge {%BEG LOOPtables: xchart>=xchart3P5 /xcharti pchart def xcharti 0 eq {/Xprint 0 def /FileData (LAB*rc) def} if xcharti 1 eq {/Xprint 1 def /FileData (LAB*ra) def} if xcharti 2 eq {/Xprint 1 def /FileData (LAB*na) def} if xcharti 3 eq {/Xprint 1 def /FileData (LAB*la0) def} if xcharti 4 eq {/Xprint 1 def /FileData (LAB*la1) def} if xcharti 5 eq {/Xprint 1 def /FileData (LAB*la2) def} if xcharti 6 eq {/Xprint 1 def /FileData (LAB*la3) def} if xcharti 7 eq {/Xprint 1 def /FileData (LAB*la4) def} if xcharti 8 eq {/Xprint 1 def /FileData (LAB*la5) def} if xcharti 9 eq {/Xprint 1 def /FileData (LAB*la6) def} if xcharti 10 eq {/Xprint 1 def /FileData (LAB*la7) def} if TK1 0 setgray 5500 -200 moveto FileData show xcharti 3 ge {(, YN=) show Lrefl xcharti get show} if (, XYZnw=) show Xj 000 get cvsshow1r (, ) show Yj 000 get cvsshow1r (, ) show Zj 000 get cvsshow1r (, ) show Xj 728 get cvsshow1r (, ) show Yj 728 get cvsshow1r (, ) show Zj 728 get cvsshow1r (, LAB*nw=) show LAB*Lja 000 get cvsshow1r (, ) show LAB*aja 000 get cvsshow1r (, ) show LAB*bja 000 get cvsshow1r (, ) show LAB*Lja 728 get cvsshow1r (, ) show LAB*aja 728 get cvsshow1r (, ) show LAB*bja 728 get cvsshow1r TK1 18500 -200 moveto (Output: ) showen (Ausgabe: ) showde (salida: ) showes (sortie: ) showfr (uscita: ) showit (output: ) showjp FileDaten showen FileDatde showde FileDaten showes FileDaten showfr FileDaten showit FileDaten showjp (, Seite ) showde (, page ) showen (, p\341gina ) showes (, page ) showfr (, pagina ) showit (, page ) showjp xchart 1 add cvishow (/) show 2 cvishow TBK1 /xi 000 def xi 100 add 16700 moveto (Data of Maximum color M in colorimetric system ) showen (Daten der Maximalfarbe M im Farbmetrik\255Sytem ) showde (Data of Maximum color M in colorimetric system ) showes (Data of Maximum color M in colorimetric system ) 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 ( for input or output; ) 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 hue angles of the 60 degree standard colours) 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 hue angles of the device colours) 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 hue angles of the elementary colours) 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 ( SS130-7N, ) show xchart 8 le {ToutdeN0 showde ToutenN0 showea} {ToutdeL0 showde ToutenL0 showea} ifelse /yhoe 8500 def /xhoe 12300 def % 0 1 2 3 4 5 /Dcol [(O=R) (J=Y) (L=G) (C=C) (V=B) (M=M) ] def /Dcolen [(orange\255red) (Yellow) (leaf\255green) (cyan\255blue) (violet\255blue) (magenta\255red)] def /Dcolde [(Orangerot) (Gelb) (Laubgr\374n) (Cyanblau) (Violettblau) (Magentarot)] def /xshifd [ 2800 -4000 -5400 -5100 2800 2900 ] def /yshifd [ 2500 3700 1800 -1000 -2600 -0850 ] def /Ecol [(R) (Y) (G) (C) (B) (M) ] def /Ecolen [(red) (yellow) (green) (blue\255green) (blue) (blue\255red)] def /Ecolde [(Rot) (Gelb) (Gr\374n) (Blaugr\374n) (Blau) (Blaurot)] def /xshife [ 2800 -3000 -5400 -5100 -3000 2900 ] def /yshife [ 2000 3700 1800 -1000 -2600 -0850 ] def /Scol [(R) (Y) (G) (C) (B) (M) ] def /Scolen [(red) (yellow) (green) (blue\255green) (blue) (blue\255red)] def /Scolde [(Rot) (Gelb) (Gr\374n) (Blaugr\374n) (Blau) (Blaurot)] def /xshifs [ 2800 -3000 -5400 -5100 -3000 2900 ] def /yshifs [ 2000 3700 1800 -1000 -2600 -0850 ] def 2500 8200 moveto 20000 0 rlineto stroke 12500 2000 moveto 0 13000 rlineto stroke 0 1 3 {/ibild exch def %ibild=0,3 ibild 0 eq {xhoe 0.5 mul 600 sub yhoe 1.47 mul 400 sub translate} if ibild 1 eq {xhoe 1.1 mul yhoe 0.0 mul translate} if ibild 2 eq {xhoe 1.1 mul neg yhoe 0.97 mul neg translate} if ibild 3 eq {xhoe 1.1 mul yhoe 0.0 mul translate} if ibild 2 le {%ibild<=2 0 setgray -4000 0 moveto 8000 0 rlineto stroke 0 -3500 moveto 0 7500 rlineto stroke 3800 70 moveto 200 -70 rlineto -200 -70 rlineto closepath fill -70 3800 moveto 70 200 rlineto 70 -200 rlineto closepath fill /fak0 28 def /fakt 25 def 0 1 48 {/i exch def %i=0,48 LAB*add64M i get fakt mul LAB*bdd64M i get fakt mul moveto LAB*add64M i 1 add get fakt mul LAB*bdd64M i 1 add get fakt mul lineto stroke newpath r*dd64M i get g*dd64M i get b*dd64M i get setrgbcolor LAB*add64M i get fakt mul LAB*bdd64M i get fakt mul 100 0 360 arc fill } for %i=0,48 0 setgray 0 8 48 {/i exch def %i=0,8,48 RJGCBMd 0 0 moveto LAB*add64M i get fak0 mul LAB*bdd64M i get fak0 mul rlineto stroke } for %i=0,8,48 } if %ibild<=2 ibild 0 eq {%ibild=0 %device (d) 0 setgray 0300 3900 moveto TBIK1 (device ) showea (Ger\344te\255) showde TBK1 (CIELAB) show TBIK1 ( \050 a*) show TBS1 0 -50 rmoveto (d) show 0 50 rmoveto TBIK1 (, b*) show TBS1 0 -50 rmoveto (d) show 0 50 rmoveto TBIK1 (\051) show TBK1 ( chroma diagram) showea (\255Diagramm) showde TBIK1 3500 0150 moveto (a*) show TBS1 0 -50 rmoveto (d) show 0 50 rmoveto -500 4000 moveto (b*) show TBS1 0 -50 rmoveto (d) show 0 50 rmoveto 0 8 40 {/kn exch def %kn=0,8,40 0 setgray /kn8 kn 8 idiv def xshifd kn8 get yshifd kn8 get moveto TBIK1 Dcol kn8 get show TBS1 0 -50 rmoveto (d) show 0 50 rmoveto TBK1 ( ) show Dcolen kn8 get showea Dcolde kn8 get showde TIK1 xshifd kn8 get yshifd kn8 get 350 sub moveto (LCH*) show TK1 -30 -50 rmoveto (d) show 0 50 rmoveto TK1 ( = ) show LAB*Ldd64M kn get cvsshow1 ( ) show LAB*Cdd64M kn get cvsshow1 ( ) show LAB*hdd64M kn get cvsshow1 TIK1 xshifd kn8 get yshifd kn8 get 700 sub moveto (LAB*) show TK1 -30 -50 rmoveto (d) show 0 50 rmoveto TK1 ( = ) show LAB*Ldd64M kn get cvsshow1 ( ) show LAB*add64M kn get cvsshow1 ( ) show LAB*bdd64M kn get cvsshow1 TIK1 xshifd kn8 get yshifd kn8 get 1050 sub moveto (rgb*) show TK1 -30 -50 rmoveto (d) show 0 50 rmoveto TK1 ( = ) show r*dd64M kn get cvsshow3 ( ) show g*dd64M kn get cvsshow3 ( ) show b*dd64M kn get cvsshow3 0 8 48 {/i exch def %i=0,8,48 RYGCBMd 0 1 8 {/l exch def %l=0,8 newpath /alpha l 0.125 mul def /beta 1 alpha sub def 1.0 beta mul r*dd362Mi i 7.5 mul cvi get alpha mul add 1.0 beta mul g*dd362Mi i 7.5 mul cvi get alpha mul add 1.0 beta mul b*dd362Mi i 7.5 mul cvi get alpha mul add setrgbcolor LAB*add362Mi i 7.5 mul cvi get fakt mul alpha mul LAB*bdd362Mi i 7.5 mul cvi get fakt mul alpha mul 100 0 360 arc fill } for %l=0,8 l 0 eq {%l=0 0 setgray LAB*add362Mi i 7.5 mul cvi get fakt mul alpha mul LAB*bdd362Mi i 7.5 mul cvi get fakt mul alpha mul 100 0 360 arc stroke } if %l=0 } for %i=0,8,48 } for %kn=0,8,40 } if %ibild=0 ibild 1 eq {%ibild=1 %elementary (e) 0 setgray 0300 3900 moveto TBIK1 (elementary ) showea (Elementar\255) showde TBK1 (CIELAB) show TBIK1 ( \050 a*) show TBS1 0 -50 rmoveto (e) show 0 50 rmoveto TBIK1 (, b*) show TBS1 0 -50 rmoveto (e) show 0 50 rmoveto TBIK1 (\051) show TBK1 ( chroma diagram) showea (\255Diagramm) showde TBIK1 3500 0150 moveto (a*) show TBS1 0 -50 rmoveto (e) show 0 50 rmoveto -500 4000 moveto (b*) show TBS1 0 -50 rmoveto (e) show 0 50 rmoveto 0 setgray 0 8 40 {/kn exch def %kn=0,8,40 /kn8 kn 8 idiv def xshife kn8 get yshife kn8 get moveto TBIK1 Ecol kn8 get show TBS1 0 -50 rmoveto (e) show 0 50 rmoveto TBK1 ( ) show Ecolen kn8 get showea Ecolde kn8 get showde /i362e hab*de64M kn get round cvi def i362e 360 ge {/i362e i362e 360 sub def} if TIK1 xshife kn8 get yshife kn8 get 350 sub moveto (LCH*) show TK1 -30 -50 rmoveto (e) show 0 50 rmoveto TK1 ( = ) show LAB*Lde362Mi kn 7.5 mul cvi get cvsshow1 ( ) show LAB*Cde362Mi kn 7.5 mul cvi get cvsshow1 ( ) show LAB*hde362Mi kn 7.5 mul cvi get cvsshow1 TIK1 xshife kn8 get yshife kn8 get 700 sub moveto (LAB*) show TK1 -30 -50 rmoveto (e) show 0 50 rmoveto TK1 ( = ) show LAB*Lde362Mi kn 7.5 mul cvi get cvsshow1 ( ) show LAB*ade362Mi kn 7.5 mul cvi get cvsshow1 ( ) show LAB*bde362Mi kn 7.5 mul cvi get cvsshow1 TIK1 xshife kn8 get yshife kn8 get 1050 sub moveto (rgb*) show TK1 -30 -50 rmoveto (de) show 0 50 rmoveto TK1 ( = ) show r*de362Mi kn 7.5 mul cvi get cvsshow3 ( ) show g*de362Mi kn 7.5 mul cvi get cvsshow3 ( ) show b*de362Mi kn 7.5 mul cvi get cvsshow3 } for %kn=0,8,40 0 8 48 {/i exch def %i=0,8,48 RYGCBMe r*de362Mi i 7.5 mul cvi get g*de362Mi i 7.5 mul cvi get b*de362Mi i 7.5 mul cvi get setrgbcolor 0 0 moveto LAB*ade362Mi i 7.5 mul cvi get fakt mul LAB*bde362Mi i 7.5 mul cvi get fakt mul rlineto stroke 0 1 8 {/l exch def %l=0,8 newpath /alpha l 0.125 mul def /beta 1 alpha sub def 1.0 beta mul r*de362Mi i 7.5 mul cvi get alpha mul add 1.0 beta mul g*de362Mi i 7.5 mul cvi get alpha mul add 1.0 beta mul b*de362Mi i 7.5 mul cvi get alpha mul add setrgbcolor LAB*ade362Mi i 7.5 mul cvi get fakt mul alpha mul LAB*bde362Mi i 7.5 mul cvi get fakt mul alpha mul 100 0 360 arc fill } for %l=0,8 } for %i=0,8,48 } if %ibild=1 ibild 2 eq {%ibild=2 %standard (s) 0 setgray 0300 3900 moveto TBIK1 (standard ) showea (Standard\255) showde TBK1 (CIELAB) show TBIK1 ( \050 a*) show TBS1 0 -50 rmoveto (s) show 0 50 rmoveto TBIK1 (, b*) show TBS1 0 -50 rmoveto (s) show 0 50 rmoveto TBIK1 (\051) show TBK1 ( chroma diagram) showea (\255Diagramm) showde TBIK1 3500 0150 moveto (a*) show TBS1 0 -50 rmoveto (s) show 0 50 rmoveto -500 4000 moveto (b*) show TBS1 0 -50 rmoveto (s) show 0 50 rmoveto 0 setgray 0 8 40 {/kn exch def %kn=0,8,40 /kn8 kn 8 idiv def xshifs kn8 get yshifs kn8 get moveto TBIK1 Scol kn8 get show TBS1 0 -50 rmoveto (s) show 0 50 rmoveto TBK1 ( ) show Scolen kn8 get showea Scolde kn8 get showde TIK1 xshifs kn8 get yshifs kn8 get 350 sub moveto (LCH*) show TK1 -30 -50 rmoveto (s) show 0 50 rmoveto TK1 ( = ) show LAB*Lds362Mi kn 7.5 mul cvi get cvsshow1 ( ) show LAB*Cds362Mi kn 7.5 mul cvi get cvsshow1 ( ) show LAB*hds362Mi kn 7.5 mul cvi get cvsshow1 TIK1 xshifs kn8 get yshifs kn8 get 700 sub moveto (LAB*) show TK1 -30 -50 rmoveto (s) show 0 50 rmoveto TK1 ( = ) show LAB*Lds362Mi kn 7.5 mul cvi get cvsshow1 ( ) show LAB*ads362Mi kn 7.5 mul cvi get cvsshow1 ( ) show LAB*bds362Mi kn 7.5 mul cvi get cvsshow1 TIK1 xshifs kn8 get yshifs kn8 get 1050 sub moveto (rgb*) show TK1 -30 -50 rmoveto (ds) show 0 50 rmoveto TK1 ( = ) show r*ds362Mi kn 7.5 mul cvi get cvsshow3 ( ) show g*ds362Mi kn 7.5 mul cvi get cvsshow3 ( ) show b*ds362Mi kn 7.5 mul cvi get cvsshow3 } for %kn=0,8,40 0 8 40 {/i exch def %i=0,8,48 RYGCBMs r*ds362Mi i 7.5 mul cvi get g*ds362Mi i 7.5 mul cvi get b*ds362Mi i 7.5 mul cvi get setrgbcolor 0 0 moveto LAB*ads362Mi i 7.5 mul cvi get fakt mul LAB*bds362Mi i 7.5 mul cvi get fakt mul rlineto stroke 0 1 8 {/l exch def %l=0,8 newpath /alpha l 0.125 mul def /beta 1 alpha sub def 1.0 beta mul r*ds362Mi i 7.5 mul cvi get alpha mul add 1.0 beta mul g*ds362Mi i 7.5 mul cvi get alpha mul add 1.0 beta mul b*ds362Mi i 7.5 mul cvi get alpha mul add setrgbcolor LAB*ads362Mi i 7.5 mul cvi get fakt mul alpha mul LAB*bds362Mi i 7.5 mul cvi get fakt mul alpha mul 100 0 360 arc fill } for %l=0,8 } for %i=0,8,48 } if %ibild=2 ibild 3 eq {%ibild=3 0 setgray -6500 3900 moveto TBK1 (Notes to the CIELAB chroma diagrams) showea (Anmerkung zu den CIELAB\255Buntheits\255Diagrammen) showde TBIK1 ( \050 a*) show TBS1 -30 -50 rmoveto (d) show 0 50 rmoveto TBIK1 (, b*) show TBS1 -30 -50 rmoveto (d) show 0 50 rmoveto TBIK1 ( \051, ) show TBIK1 ( \050 a*) show TBS1 -30 -50 rmoveto (s) show 0 50 rmoveto TBIK1 (, b*) show TBS1 -30 -50 rmoveto (s) show 0 50 rmoveto TBIK1 ( \051, ) show TBIK1 ( \050 a*) show TBS1 -30 -50 rmoveto (e) show 0 50 rmoveto TBIK1 (, b*) show TBS1 -30 -50 rmoveto (e) show 0 50 rmoveto TBIK1 ( \051) show -6500 3400 moveto TK1 (1. For the) showea (1. F\374r die) showde TIK1 ( rgb*) show TS -30 -50 rmoveto (d) show 0 50 rmoveto TK1 (\255input values the CIELAB data) showea (\255Eingabedaten wurden die CIELAB-Daten) showde TIK1 ( LCH*) show TS -30 -50 rmoveto (d) show 0 50 rmoveto TK1 ( and) showea ( und) showde TIK1 ( LAB*) show TS -30 -50 rmoveto (d) show 0 50 rmoveto TK1 ( have been calculated.) showea ( berechnet.) showde -6500 3000 moveto TK1 (2. For the calculation of the standard hue angle ) showea TIK1 (h) show TS -30 -50 rmoveto (ab,s) show 0 50 rmoveto TK1 ( use for any device values) showea TIK1 ( rgb*) show TS -30 -50 rmoveto (d) show 0 50 rmoveto TK1 ( the equation:) showea -6000 2650 moveto TBIK1 (h) show TBS1 -30 -50 rmoveto (ab,s) show 0 50 rmoveto TBK1 ( = ) show TBIK1 (atan) show TBK1 ( [ ) show TBIK1 (r*) show TBS1 -30 -50 rmoveto (d) show 0 50 rmoveto TBIK1 ( cos(30)) show TBK1 ( + ) show TBIK1 (g*) show TBS1 -30 -50 rmoveto (d) show 0 50 rmoveto TBIK1 ( cos(150)) show TBK1 ( ] / [ ) show TBIK1 (r*) show TBS1 -30 -50 rmoveto (d) show 0 50 rmoveto TBIK1 ( sin(30)) show TBK1 ( + ) show TBIK1 (g*) show TBS1 -30 -50 rmoveto (d) show 0 50 rmoveto TBIK1 ( sin(150)) show TBK1 ( + ) show TBIK1 (b*) show TBS1 -30 -50 rmoveto (d) show 0 50 rmoveto TBIK1 ( sin(270)) show TBK1 ( ] ) show 5000 2650 moveto TK1 ((1)) show -6500 2200 moveto TK1 (3. For the 48 or 360 equally spaced standard hue angles ) showea (3. F\374r die 48 oder 360 gleichabst\344ndig gestuften Standard\255Bunttonwinkel ) showde TIK1 (h) show TS -30 -50 rmoveto (ab,s) show 0 50 rmoveto TK1 ( of the colours of maximum chroma use) showea ( der Farben von maximaler Buntheit benutze) showde -6250 1900 moveto (the seven hue angles of the 60 degree colours) showea (die sieben Bunttonwinkel der 60\Grad\255Farben) showde TIK1 ( s: h) show TS 0 -50 rmoveto (ab,si) show 0 50 rmoveto TK1 ( = ) show LAB*Hs 0 get cvsshow1r (, ) show LAB*Hs 1 get cvsshow1r (, ) show LAB*Hs 2 get cvsshow1r (, ) show LAB*Hs 3 get cvsshow1r (, ) show LAB*Hs 4 get cvsshow1r (, ) show LAB*Hs 5 get cvsshow1r (, ) show LAB*Hs 6 get cvsshow1r ( (i=0,6) ) show -6250 1600 moveto (and the equations for a 48 and 360 step hue circle: ) showea (und die Gleichungen f\374r einen 48\255 und 360\255stufigen Bunttonkreis: ) showde -6000 1250 moveto TBIK1 (h) show TBS1 0 -50 rmoveto (48ab,sij) show 0 50 rmoveto TBK1 ( = ) show TBIK1 (h) show TBS1 0 -50 rmoveto (ab,si) show 0 50 rmoveto ( + ) show TBIK1 (j) show TBK1 ( [) show TBIK1 (h) show TBS1 0 -50 rmoveto (ab,si+1) show 0 50 rmoveto ( - ) show TBIK1 (h) show TBS1 0 -50 rmoveto (ab,si) show 0 50 rmoveto TBK1 ( ] /8 \050 ) show TBIK1 (i) show TBK1 ( = 0, 1, ..., 5; ) show TBIK1 (j) show TBK1 ( = 0, 1, ..., 7\051) show 5000 1250 moveto TK1 ((2)) show -6000 0850 moveto TBIK1 (h) show TBS1 0 -50 rmoveto (360ab,sij) show 0 50 rmoveto TBK1 ( = ) show TBIK1 (h) show TBS1 0 -50 rmoveto (ab,si) show 0 50 rmoveto ( + ) show TBIK1 (j) show TBK1 ( [) show TBIK1 (h) show TBS1 0 -50 rmoveto (ab,si+1) show 0 50 rmoveto ( - ) show TBIK1 (h) show TBS1 0 -50 rmoveto (ab,si) show 0 50 rmoveto TBK1 ( ] /60 \050 ) show TBIK1 (i) show TBK1 ( = 0, 1, ..., 5; ) show TBIK1 (j) show TBK1 ( = 0, 1, ..., 59\051) show 5000 0850 moveto TK1 ((3)) show -6500 0400 moveto TK1 (4. For the 48 or 360 elementary hue angles ) showea (4. F\374r die 48 oder 360 Elementar\255Bunttonwinkel ) showde TIK1 (h) show TS -30 -50 rmoveto (ab,e) show 0 50 rmoveto TK1 ( of the colours of maximum chroma use) showea ( der Farben von maximaler Buntheit benutze) showde -6250 0100 moveto (the seven hue angles of the elementary colours) showea (die sieben Bunttonwinkel der Elementarfarben) showde TIK1 ( e: h) show TS 0 -50 rmoveto (ab,ei) show 0 50 rmoveto TK1 ( = ) show LAB*He 0 get cvsshow1r (, ) show LAB*He 1 get cvsshow1r (, ) show LAB*He 2 get cvsshow1r (, ) show LAB*He 3 get cvsshow1r (, ) show LAB*He 4 get cvsshow1r (, ) show LAB*He 5 get cvsshow1r (, ) show LAB*He 6 get cvsshow1r ( (i=0,6) ) show -6250 -200 moveto (and the equations for a 48 and 360 step elementary hue circle: ) showea (und die Gleichungen f\374r einen 48\255 und 360\255stufigen Elementar\255Bunttonkreis: ) showde -6000 -550 moveto TBIK1 (h) show TBS1 0 -50 rmoveto (48ab,eij) show 0 50 rmoveto TBK1 ( = ) show TBIK1 (h) show TBS1 0 -50 rmoveto (ab,ei) show 0 50 rmoveto ( + ) show TBIK1 (j) show TBK1 ( [) show TBIK1 (h) show TBS1 0 -50 rmoveto (ab,ei+1) show 0 50 rmoveto ( - ) show TBIK1 (h) show TBS1 0 -50 rmoveto (ab,ei) show 0 50 rmoveto TBK1 ( ] /8 \050 ) show TBIK1 (i) show TBK1 ( = 0, 1, ..., 5; ) show TBIK1 (j) show TBK1 ( = 0, 1, ..., 7\051) show 5000 -550 moveto TK1 ((4)) show -6000 -0950 moveto TBIK1 (h) show TBS1 0 -50 rmoveto (360ab,eij) show 0 50 rmoveto TBK1 ( = ) show TBIK1 (h) show TBS1 0 -50 rmoveto (ab,ei) show 0 50 rmoveto ( + ) show TBIK1 (j) show TBK1 ( [) show TBIK1 (h) show TBS1 0 -50 rmoveto (ab,ei+1) show 0 50 rmoveto ( - ) show TBIK1 (h) show TBS1 0 -50 rmoveto (ab,ei) show 0 50 rmoveto TBK1 ( ] /60 \050 ) show TBIK1 (i) show TBK1 ( = 0, 1, ..., 5; ) show TBIK1 (j) show TBK1 ( = 0, 1, ..., 59\051) show 5000 -950 moveto TK1 ((5)) show -6500 -1400 moveto TK1 (5. For any elementary hue angle ) showea (5. F\374r jeden Elementar\255Bunttonwinkel ) showde TIK1 (h) show TS -30 -50 rmoveto (ab,e) show 0 50 rmoveto TK1 ( there is a well defined device hue angle ) showea ( gibt es einem genau definierten Ger\344te\255Bunttonwinkel ) showde TIK1 (h) show TS -30 -50 rmoveto (ab,d) show 0 50 rmoveto -6250 -1700 moveto TK1 (see the following tables, columns 1 to 5 or 1 to 4.) showea (siehe die folgenden Tabellen, Spalten 1 bis 5 oder 1 bis 4.) showde -6500 -2100 moveto TK1 (6. The values ) showea (6. Die Werte ) showde TIK1 (rgb*) show TS -30 -50 rmoveto (de) show 0 50 rmoveto TK1 ( produce the output of the device\255independent elementary hues) showea ( erzeugen die Ausgabe der ger\344teunabh\344ngigen Elemetar\255Buntt\366ne) showde } if %ibild=3 } for %ibild=0,3 }%LOOP1: xchart<=xchart3P5 {%LOOP1: xchart>xchart3P5 /x0x 0000 def /x1x 5700 def /x2x 13300 def /x01 2200 def %rgb /x02 2850 def /x03 3500 def /x04 4150 def %LabCh /x05 4800 def /x06 5450 def /x07 6100 def /x08 6800 def /x09 7700 def /x10 8400 def /x11 9100 def /xd0 0100 def /xs0 0800 def /xe0 1500 def /xd1 23050 def /xs1 23700 def /xe1 24350 def /xax 5400 def /xbx 10500 def /xcx 15600 def /ymax 16100 def TBIK1 xd0 ymax moveto (h) show TBK1 -00 -80 rmoveto (ab,d) show 00 80 rmoveto TBIK1 xs0 ymax moveto (h) show TBK1 -00 -80 rmoveto (ab,s) show 00 80 rmoveto TBIK1 xe0 ymax moveto (h) show TBK1 -00 -80 rmoveto (ab,e) show 00 80 rmoveto TBIK1 xchart xchart3P6 eq xchart xchart3P7 eq or {%BEG LOOP3: xchart=xchart3P6/3 x0x x01 add ymax moveto (rgb*) show TBK1 -00 -80 rmoveto (dd64M) show 00 80 rmoveto TBIK1 x0x x04 add ymax moveto (LAB*) show TBK1 -00 -80 rmoveto (ddx64M (x=LabCh)) show 00 80 rmoveto TBIK1 xchart xchart3P6 eq {%xchart=xchart3P6 xax x01 add ymax moveto (rgb*) show TBK1 -00 -80 rmoveto (ddx361M) show 00 80 rmoveto TBIK1 xax x04 add ymax moveto (LAB*) show TBK1 -00 -80 rmoveto (ddx361M (x=LabCh)) show 00 80 rmoveto TBIK1 xbx x01 add ymax moveto (rgb*) show TBK1 -00 -80 rmoveto (dsx361M) show 00 80 rmoveto TBIK1 xbx x04 add ymax moveto (LAB*) show TBK1 -00 -80 rmoveto (dsx361M (x=LabCh)) show 00 80 rmoveto TBIK1 } if %xchart=xchart3P6 xcx x01 add ymax moveto (rgb*) show TBK1 -00 -80 rmoveto (dex361M) show 00 80 rmoveto TBIK1 xcx x04 add ymax moveto (LAB*) show TBK1 -00 -80 rmoveto (dex361M) show 00 80 rmoveto }%LOOP3: xchart=xchart3P6/3 {%LOOP3: xchart>xchart3P7 x0x x01 add ymax moveto (rgb*) show TBK1 -00 -80 rmoveto (dd361M) show 00 80 rmoveto TBIK1 x0x x04 add ymax moveto (LAB*) show TBK1 -00 -80 rmoveto (ddx361Mi (x=LabCh)) show 00 80 rmoveto TBIK1 x1x x01 add ymax moveto (rgb*) show TBK1 -00 -80 rmoveto (ds361Mi) show 00 80 rmoveto TBIK1 x1x x04 add ymax moveto (LAB*) show TBK1 -00 -80 rmoveto (dsx361Mi (x=LabCh)) show 00 80 rmoveto TBIK1 x1x x09 add ymax moveto (rgb*) show TBK1 -00 -80 rmoveto (dd361Mi) show 00 80 rmoveto TBIK1 x2x x01 add ymax moveto (rgb*) show TBK1 -00 -80 rmoveto (de361Mi) show 00 80 rmoveto TBIK1 x2x x04 add ymax moveto (LAB*) show TBK1 -00 -80 rmoveto (dex361Mi (x=LabCh)) show 00 80 rmoveto TBIK1 x2x x09 add ymax moveto (rgb*) show TBK1 -00 -80 rmoveto (dd361Mi) show 00 80 rmoveto TBIK1 } ifelse %END LOOP3: xchart>xchart3P7 xd1 ymax moveto (rgb*) show TBK1 -100 -100 rmoveto (dd) show 100 100 rmoveto TBIK1 xs1 ymax moveto (rgb*) show TBK1 -100 -100 rmoveto (ds) show 100 100 rmoveto TBIK1 xe1 ymax moveto (rgb*) show TBK1 -100 -100 rmoveto (de) show 100 100 rmoveto TBIK1 /ymax 15700 def /ydel0 310 def /ydel1 345 def /ys 50 def /RJGCBMs 9 array def /RJGCBMs [( ) (R) (Y) (G) (C) (C) (B) (M) (R)] def /RJGCBM 7 array def /RJGCBM [(R) (Y) (G) (C) (B) (M) (R)] def xchart xchart3P6 eq xchart xchart3P7 eq or {%BEG LOOP4: xchart=xchart3P6/3 x0x x01 add 30 sub 0 moveto 0 16200 rlineto stroke xax x01 add 30 sub 0 moveto 0 16200 rlineto stroke xbx x01 add 30 sub 0 moveto 0 16200 rlineto stroke xcx x01 add 30 sub 0 moveto 0 16200 rlineto stroke TK1 0 1 48 {/i exch def %i=0,48 xchart xchart3P6 eq {%xchart=xchart3P6 /i8 i 8 idiv def} {/i8 0 def} ifelse /yi ymax i ydel0 mul sub i8 ydel0 0.4 mul mul sub def xd0 yi moveto hab*dd64M i get cvsshow1 %all floating point xs0 yi moveto hab*ds64M i get cvsshow1 xe0 yi moveto hab*de64M i get cvsshow1 x0x x01 add yi moveto r*dd64M i get cvsshow3 x0x x02 add yi moveto g*dd64M i get cvsshow3 x0x x03 add yi moveto b*dd64M i get cvsshow3 x0x x04 add yi moveto LAB*Ldd64M i get cvsshow1 x0x x05 add yi moveto LAB*add64M i get cvsshow1 x0x x06 add yi moveto LAB*bdd64M i get cvsshow1 x0x x07 add yi moveto LAB*Cdd64M i get cvsshow1 x0x x08 add yi moveto LAB*hdd64M i get cvsshow1 xchart xchart3P6 eq {%xchart=xchart3P6 xax x01 add yi moveto r*dd362Mi i 7.5 mul cvi get cvsshow3r xax x02 add yi moveto g*dd362Mi i 7.5 mul cvi get cvsshow3r xax x03 add yi moveto b*dd362Mi i 7.5 mul cvi get cvsshow3r xax x04 add yi moveto LAB*Ldd362Mi i 7.5 mul cvi get cvsshow1r xax x05 add yi moveto LAB*add362Mi i 7.5 mul cvi get cvsshow1r xax x06 add yi moveto LAB*bdd362Mi i 7.5 mul cvi get cvsshow1r xax x07 add yi moveto LAB*Cdd362Mi i 7.5 mul cvi get cvsshow1r xax x08 add yi moveto hab*dd362Fi i 7.5 mul cvi get cvishow xbx x01 add yi moveto r*ds362Mi i 7.5 mul cvi get cvsshow3r xbx x02 add yi moveto g*ds362Mi i 7.5 mul cvi get cvsshow3r xbx x03 add yi moveto b*ds362Mi i 7.5 mul cvi get cvsshow3r xbx x04 add yi moveto LAB*Lds362Mi i 7.5 mul cvi get cvsshow1r xbx x05 add yi moveto LAB*ads362Mi i 7.5 mul cvi get cvsshow1r xbx x06 add yi moveto LAB*bds362Mi i 7.5 mul cvi get cvsshow1r xbx x07 add yi moveto LAB*Cds362Mi i 7.5 mul cvi get cvsshow1r xbx x08 add yi moveto hab*ds362Mi i 7.5 mul cvi get cvishow } if %xchart=xchart3P6 xcx x01 add yi moveto r*de362Mi i 7.5 mul cvi get cvsshow3r xcx x02 add yi moveto g*de362Mi i 7.5 mul cvi get cvsshow3r xcx x03 add yi moveto b*de362Mi i 7.5 mul cvi get cvsshow3r xcx x04 add yi moveto LAB*Lde362Mi i 7.5 mul cvi get cvsshow1r xcx x05 add yi moveto LAB*ade362Mi i 7.5 mul cvi get cvsshow1r xcx x06 add yi moveto LAB*bde362Mi i 7.5 mul cvi get cvsshow1r xcx x07 add yi moveto LAB*Cde362Mi i 7.5 mul cvi get cvsshow1r xcx x08 add yi moveto hab*de382Fi i 7.5 mul cvi get cvishow xchart xchart3P7 eq {%xchart=xchart3P7 0 1 46 {/kk exch def %kk LAB*hdd64M i get hab*de382Fi kk 7.5 mul cvi get gt LAB*hdd64M i get hab*de382Fi kk 1 add 7.5 mul cvi get le and {/ykkd LAB*hdd64M i get hab*de382Fi kk 7.5 mul cvi get sub hab*de382Fi kk 1 add 7.5 mul cvi get hab*de382Fi kk 7.5 mul cvi get sub 0.0001 add div def /i8 0 def /yi ymax i ydel0 mul sub i8 ydel0 0.4 mul mul sub def /kk8 0 def /ykk ymax kk ykkd add ydel0 mul sub kk8 ydel0 0.4 mul mul sub def xax x01 add yi moveto LAB*hdd64M i get cvsshow1 xbx x08 add 100 sub ykk moveto LAB*hdd64M i get cvsshow1 xax x01 add yi moveto xcx x01 add ykk lineto stroke} if } for %kk } if %xchart=xchart3P7 r*dd362Mi i 7.5 mul cvi get g*dd362Mi i 7.5 mul cvi get b*dd362Mi i 7.5 mul cvi get setrgbcolor xd1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath fill r*ds362Mi i 7.5 mul cvi get g*ds362Mi i 7.5 mul cvi get b*ds362Mi i 7.5 mul cvi get setrgbcolor xs1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath fill i 16 le { r*de362Mi i 7.5 mul cvi get g*de362Mi i 7.5 mul cvi get b*de362Mi i 7.5 mul cvi get setrgbcolor xe1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath fill } if i 16 gt i i 2 idiv 2 mul eq and { r*de362Mi i 7.5 mul cvi get g*de362Mi i 7.5 mul cvi get b*de362Mi i 7.5 mul cvi get setrgbcolor xe1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath fill } if 0 setgray xd1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath stroke xs1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath stroke xe1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath stroke } for %i=0,48 xtesthuea 0 ge {600 /TimesB-ISOL1 FS 8000 2100 moveto 30 rotate 0 setgray (no continues hue change of device near ) showea (keine kontinuiertliche Buntton\344nderung nahe ) showde 600 /TimesBI-ISOL1 FS (h) show 500 /TimesB-ISOL1 FS 0 -100 rmoveto (ab,d) show 0 100 rmoveto 600 /TimesB-ISOL1 FS ( = ) show 0 1 xtesthuea {/in exch def %in=0,xtesthuea LAB*hdd64M xtesthuei in get get cvishow in xtesthuea ne {(, ) show} if } for %in=0,xtesthuea -30 rotate 8000 1100 moveto 30 rotate (or ) showea ( oder ) showde 600 /TimesBI-ISOL1 FS (rgb*) show 500 /TimesBI-ISOL1 FS 0 -100 rmoveto (d) show 0 100 rmoveto 600 /TimesB-ISOL1 FS ( = ) show 0 1 xtesthuea {/in exch def %in=0,xtesthuea r*dd64M xtesthuei in get get cvsshow3r (, ) show g*dd64M xtesthuei in get get cvsshow3r (, ) show b*dd64M xtesthuei in get get cvsshow3r in xtesthuea ne {(; ) show} if } for %in=0,xtesthuea -30 rotate 8000 0100 moveto 30 rotate 600 /TimesB-ISOL1 FS (appropriate correction done) showea (plausible Korrektur erfolgt) showde -30 rotate } if }%LOOP4: xchart=xchart3P6/3 {%LOOP4: xchart>xchart3P7 x0x x01 add 50 sub 0 moveto 0 16200 rlineto stroke x1x x01 add 50 sub 0 moveto 0 16200 rlineto stroke x2x x01 add 50 sub 0 moveto 0 16200 rlineto stroke TK1 00 1 45 {/i exch def %i=0,45 /ik45 xchart xchart3P7 1 add sub 45 mul i add def %range 0...359 /yi ymax i ydel1 mul sub def xd0 yi moveto hab*dd362Fi ik45 get cvishow %all integer xs0 yi moveto hab*ds362Mi ik45 get cvishow xe0 yi moveto hab*de382Fi ik45 get cvishow x0x x01 add yi moveto r*dd362Mi ik45 get cvsshow3 x0x x02 add yi moveto g*dd362Mi ik45 get cvsshow3 x0x x03 add yi moveto b*dd362Mi ik45 get cvsshow3 x0x x04 add yi moveto LAB*Ldd362Mi ik45 get cvsshow1 x0x x05 add yi moveto LAB*add362Mi ik45 get cvsshow1 x0x x06 add yi moveto LAB*bdd362Mi ik45 get cvsshow1 x0x x07 add yi moveto LAB*Cdd362Mi ik45 get cvsshow1 x0x x08 add yi moveto LAB*hdd362Mi ik45 get cvishow %integer x1x x01 add yi moveto r*ds362Mi ik45 get cvsshow3r x1x x02 add yi moveto g*ds362Mi ik45 get cvsshow3r x1x x03 add yi moveto b*ds362Mi ik45 get cvsshow3r x1x x04 add yi moveto LAB*Lds362Mi ik45 get cvsshow1r x1x x05 add yi moveto LAB*ads362Mi ik45 get cvsshow1r x1x x06 add yi moveto LAB*bds362Mi ik45 get cvsshow1r x1x x07 add yi moveto LAB*Cds362Mi ik45 get cvsshow1r x1x x08 add yi moveto LAB*hds362Mi ik45 get cvishow x1x x09 add yi moveto r*dd362Mi ik45 get cvsshow3r x1x x10 add yi moveto g*dd362Mi ik45 get cvsshow3r x1x x11 add yi moveto b*dd362Mi ik45 get cvsshow3r x2x x01 add yi moveto r*de362Mi ik45 get cvsshow3r x2x x02 add yi moveto g*de362Mi ik45 get cvsshow3r x2x x03 add yi moveto b*de362Mi ik45 get cvsshow3r x2x x04 add yi moveto LAB*Lde362Mi ik45 get cvsshow1r x2x x05 add yi moveto LAB*ade362Mi ik45 get cvsshow1r x2x x06 add yi moveto LAB*bde362Mi ik45 get cvsshow1r x2x x07 add yi moveto LAB*Cde362Mi ik45 get cvsshow1r x2x x08 add yi moveto LAB*hde362Mi ik45 get cvishow x2x x09 add yi moveto r*dd362Mi ik45 get cvsshow3r x2x x10 add yi moveto g*dd362Mi ik45 get cvsshow3r x2x x11 add yi moveto b*dd362Mi ik45 get cvsshow3r r*dd362Mi ik45 get g*dd362Mi ik45 get b*dd362Mi ik45 get setrgbcolor xd1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath fill r*ds362Mi ik45 get g*ds362Mi ik45 get b*ds362Mi ik45 get setrgbcolor xs1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath fill r*de362Mi ik45 get g*de362Mi ik45 get b*de362Mi ik45 get setrgbcolor xe1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath fill 0 setgray xd1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath stroke xs1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath stroke xe1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto -600 0 rlineto closepath stroke xchart xchart3P7 1 add eq ik45 000 eq and xchart xchart3P7 2 add eq ik45 060 eq and or xchart xchart3P7 3 add eq ik45 120 eq and or xchart xchart3P7 4 add eq ik45 180 eq and or xchart xchart3P7 5 add eq ik45 180 eq and or xchart xchart3P7 6 add eq ik45 240 eq and or xchart xchart3P7 7 add eq ik45 300 eq and or xchart xchart3P7 8 add eq ik45 360 eq and or {/ik 1 def} {/ik 0 def} ifelse ik 1 eq {x1x x01 add yi ydel1 0.7 mul add moveto x2x x11 add 600 add yi ydel1 0.7 mul add lineto stroke x1x x01 add yi ydel1 0.3 mul sub moveto x2x x11 add 600 add yi ydel1 0.3 mul sub lineto stroke} if ik 1 eq {TBIK1 x1x x08 add 400 add yi moveto RJGCBMs xchart xchart3P7 sub get show TBS1 0 -80 rmoveto (s) show 0 80 rmoveto TK1 TBIK1 x2x x08 add 400 add yi moveto RJGCBMs xchart xchart3P7 sub get show TBS1 0 -80 rmoveto (e) show 0 80 rmoveto TK1} if 0 8 48 {/it exch def %it=0,8,48 LAB*hdd64M it get LAB*hdd362Mi ik45 get ge LAB*hdd64M it get LAB*hdd362Mi ik45 1 add get lt and {x0x x01 add yi ydel1 0.3 mul sub moveto x1x x01 add yi ydel1 0.3 mul sub lineto stroke TBIK1 x1x x01 add 400 sub yi moveto RJGCBM it 8 idiv get show TBS1 0 -80 rmoveto (d) show 0 80 rmoveto TK1} if } for %it=0,8,48 } for i%=0,45 } ifelse %END LOOP4: xchart>xchart3P7 } ifelse %END LOOP2: xchart=xchart3P5,>xchart3P5 } if %END LOOPtables: xchart>=xchart3P5 showpage grestore %} for %xcharti=00,10 %} for %colsep=0,1 %} for %pchart=0,0 %} for %xchart=0,18 %} for %xcolor=3,3 %} for %deintp=0,1 %} for %colorm=0,1 %} for %lanind=0,0 %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 020 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM moveto ( ) show 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 18 %line 409 %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 197 MM translate 10 /Times-ISOL1 FS 1 1 scale -77 -91 translate %%BeginDocument: Bild 12 %line 419 %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 21 %line 429 %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 22 %line 439 %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 23 %line 449 %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 24 %line 459 %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 25 %line 469 %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 26 %line 479 %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 020 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 27 %line 489 %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 020 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM moveto ( ) show 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 28 %line 499 %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 080 MM add 008 MM translate %80 MM Breite von TestStreifen 10 /Times-ISOL1 FS 53 MM 1 MM moveto () show 1 1 scale -77 21 MM sub -91 translate %%BeginDocument: Bild 29 Teststreifen Ueberlaenge %line 509 %%EndDocument EndEPSF grestore gsave } if %xchart<=xchart3PXX BeginEPSF -0.0 MM -0.0 MM translate %xy-Verschiebung Rechteckrahmen nach innen% %%BeginDocument: Bild 30 %Rechteckrahmen %line 519 %!PS-Adobe-3.0 EPSF-3.0 Frame arround with Internet text DG02 20070101 %%BoundingBox: 0 0 598 845 %%EndProlog gsave /lanind 1 def /lantex [(G) (E) (S) (N) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /lanind1 01 def /lanind2 01 def /lanindd 01 def /colorm1 00 def /colorm2 00 def /colormd 01 def /deintp1 00 def /deintp2 00 def /deintpd 01 def /xcolor1 03 def /xcolor2 03 def /xcolord 01 def /xchart1 00 def /xchart2 00 def /xchartd 01 def /pchart1 00 def /pchart2 00 def /pchartd 01 def /colsep1 00 def /colsep2 00 def /colsepd 01 def /pmetam1 00 def /pmetam2 00 def /pmetamd 01 def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} if /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} if /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} if /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} if /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 1 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} if /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} if /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} if /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES 0 def /i*ptrsc 0 def gsave %xchart 0 eq {%beg if xchart=0 0 setgray 1.0 1.0 scale 0.0 MM 0.0 MM translate 0.15 MM setlinewidth /x 20 array def /y 20 array def /d 20 array def /x [000 296 296 000 002 294 294 002 005 291 291 005 %speziell 006 290 290 006 008 288 288 008 ] def /y [000 000 210 210 002 002 208 208 005 005 205 205 %speziell 006 006 204 204 008 008 202 202 ] def /d [060 017 -60 -17 058 015 -58 -15 056 013 -56 -13 054 011 -54 -11 052 009 -52 -09 ] def colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if xchart 1 ge {%xchart>=1 /i0 12 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def 2.5 MM /Times-ISOL1 FS x i0 get MM 40 MM add y i0 get MM 1 MM sub moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolor cvishow xchart cvishow pchart cvishow colsep cvishow (-F) show pmetam cvishow } if %xchart>=1 /xt 1 def xchart 1 eq {/xt 1 def} if xt 0 eq {%xt=0,1 ifelse /i0 12 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def 2.5 MM /Times-ISOL1 FS x i0 get MM 110 MM add y i0 get MM 1 MM sub moveto (http://130.149.60.45/~farbmetrik/SS13/SS13) show colorm cvishow deintp cvishow colorm 0 eq {(N) show} {(F) show} ifelse (P.PDF & ) show (http://130.149.60.45/~farbmetrik/SS13/SS13) show colorm cvishow deintp cvishow colorm 0 eq {(N) show} {(F) show} ifelse (P.TXT & ) show (http://130.149.60.45/~farbmetrik/SS13/SS13.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 SS13; ) showde %0SS13X-Y 0000# (TUB\255test chart SS13; ) showen %1SS13X-Y 0000# (gr\341fico TUB\255SS13; ) showes %2SS13X-Y 0000# (graphique TUB\255SS13; ) showfr %3SS13X-Y 0000# (grafico TUB\255SS13; ) showit %4SS13X-Y 0000# (TUB\255test chart SS13; ) showjp %5SS13X-Y 0000# xchart4 0 eq { (16 Buntt\366ne) showde %0SS13X-Y 0100# (16 step hue circle) showen %1SS13X-Y 0100# (c\355rculo de tono, 16 pasos) showes %2SS13X-Y 0100# (cercle de teinte, 16 \351tapes) showfr %3SS13X-Y 0100# (cerchio delle tinte a 16 passi) showit %4SS13X-Y 0100# (16 step hue circle) showjp %5SS13X-Y 0100# } if xchart4 1 ge xchart4 16 le and { (Bunttoncode: ) showde %0SS13X-Y 0200# (hue code: ) showen %1SS13X-Y 0200# (c\363digo de tono: ) showes %2SS13X-Y 0200# (code de teinte: ) showfr %3SS13X-Y 0200# (codice di tinte: ) showit %4SS13X-Y 0200# (hue code: ) showjp %5SS13X-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, Offset-Normpapier) showde %0SS13X-Y 0300# (1080 colours, offset standard paper) showen %1SS13X-Y 0300# (1080 colores, est\341ndar de papel offset) showes %2SS13X-Y 0300# (1080 couleurs, papier standard offset) showfr %3SS13X-Y 0300# (1080 colori, carta standard offset) showit %4SS13X-Y 0300# (1080 colours, offset standard paper) showjp %5SS13X-Y 0300# } if 61 MM 09 MM moveto xchart 5 le {%xchart<=5 12 /Times-ISOL1 FS (Pr\374fvorlage nach DIN 33872) showde %0SS13X-Y 0400# (Test chart according to DIN 33872) showen %1SS13X-Y 0400# (gr\341fico seg\372n a DIN 33872) showes %2SS13X-Y 0400# (graphique conforme \340 DIN 33872) showfr %3SS13X-Y 0400# (grafico conformemente a DIN 33872) showit %4SS13X-Y 0400# (Test chart according to DIN 33872) showjp %5SS13X-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 %0SS13X-Y 0500# (48 step hue circles) showen %1SS13X-Y 0500# (c\355rculo de tono, 48 pasos) showes %2SS13X-Y 0500# (cercle de teinte, 48 \351tapes) showfr %3SS13X-Y 0500# (cerchio delle tinte a 48 passi) showit %4SS13X-Y 0500# (48 step hue cicle) showjp %5SS13X-Y 0500# 12 /TimesI-ISOL1 FS (; rgb-LabCh*) show 12 /Times-ISOL1 FS (Tabellen) showde %0SS13X-Y 0600# (tables) showen %1SS13X-Y 0600# (mesas) showes %2SS13X-Y 0600# (tables) showfr %3SS13X-Y 0600# (tavole) showit %4SS13X-Y 0600# (tables) showjp %5SS13X-Y 0600# }%xchart<=xchart3PXX {%xchart>xchart3PXX (Farben und Farbabst\344nde, ) showde %0SS13X-Y 0400# (colors and differences, ) showen %1SS13X-Y 0400# (colores y differencia en color, ) showes %2SS13X-Y 0400# (couleurs et diff\351rences, ) showfr %3SS13X-Y 0400# (colori e la differenza, ) showit %4SS13X-Y 0400# (colors and differences, ) showjp %5SS13X-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 1 ge {%xchart>=1 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>=1 12 /Times-ISOL1 FS 165 MM 13 MM moveto (Eingabe: ) showde %0SS13X-Y 0500# (input: ) showen %1SS13X-Y 0500# (entrada: ) showes %2SS13X-Y 0500# (entr\351e: ) showfr %3SS13X-Y 0500# (immettere: ) showit %4SS13X-Y 0500# (input: ) showjp %5SS13X-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 %0SS13X-Y 0600# (output: ) showen %1SS13X-Y 0600# (salida: ) showes %2SS13X-Y 0600# (sortie: ) showfr %3SS13X-Y 0600# (uscita: ) showit %4SS13X-Y 0600# (output: ) showjp %5SS13X-Y 0600# %colorm=0,1! 12 /Times-ISOL1 FS xchart 0 eq {%xchart=0,#0 12 /Times-ISOL1 FS (keine \334nderung) showde %0SS13X-Y 0700# (no change) showen %1SS13X-Y 0700# (ning\372n cambio) showes %2SS13X-Y 0700# (aucun changement) showfr %3SS13X-Y 0700# (nessun cambiamento) showit %4SS13X-Y 0700# (no change compared) showjp %5SS13X-Y 0700# }%xchart=0 {%xchart#0 12 /Times-ISOL1 FS colorm 0 eq {%colorm=0 (Transfer nach ) showde %0SS13X-Y 0800# (transfer to ) showen %1SS13X-Y 0800# (transfiera a ) showes %2SS13X-Y 0800# (transf\351rer \340 ) showfr %3SS13X-Y 0800# (trasferire a ) showit %4SS13X-Y 0800# (transfer to ) showjp %5SS13X-Y 0800# }%colorm=0 {%colorm=1 (3D\255Linearisierung ) showde %0SS13X-Y 0900# (3D\255linearization to ) showen %1SS13X-Y 0900# (3D\255linealizaci\363n a ) showes %2SS13X-Y 0900# (linearisation 3D selon ) showfr %3SS13X-Y 0900# (3D\255linearizzazione a ) showit %4SS13X-Y 0900# (3D\255linearization to ) showjp %5SS13X-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/SS13/SS13L) show (0) show LSC$ show LEX$ show %1 setgray %start white and unvisible (; ) show xchart 0 eq { (Start\255Ausgabe) showde %0SS13X-Y 1000# (start output) showen %1SS13X-Y 1000# (comience salida) showes %2SS13X-Y 1000# (sortie de production) showfr %3SS13X-Y 1000# (cominciare l'uscita) showit %4SS13X-Y 1000# (start output) showjp %5SS13X-Y 1000# } if LSC$ (C) eq { (Start\255Ausgabe) showde %0SS13X-Y 1100# (start output) showen %1SS13X-Y 1100# (comience salida) showes %2SS13X-Y 1100# (sortie de production) showfr %3SS13X-Y 1100# (cominciare l'uscita) showit %4SS13X-Y 1100# (start output) showjp %5SS13X-Y 1100# } if xchart 1 ge {%xchart>=1 colorm 0 eq {%colorm=0,1 (Transfer Ausgabe) showde %0SS13X-Y 1200# (transfer output) showen %1SS13X-Y 1200# (salida de transferencia) showes %2SS13X-Y 1200# (sortie de transfert) showfr %3SS13X-Y 1200# (uscita di trasferimento) showit %4SS13X-Y 1200# (transfer output) showjp %5SS13X-Y 1200# }%colorm=0 {%colorm=1 (3D\255Linearisierung) showde %0SS13X-Y 1300# (3D\255linearization) showen %1SS13X-Y 1300# (3D\255linealizaci\363n) showes %2SS13X-Y 1300# (linearisation 3D) showfr %3SS13X-Y 1300# (3D\255linearizzzazione) showit %4SS13X-Y 1300# (3D\255linearization) showjp %5SS13X-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 %0SS13X-Y 1400# (N: no 3D\255linearization (OL) ) showen %1SS13X-Y 1400# (N: ninguna 3D\255linealizaci\363n (OL) ) showes %2SS13X-Y 1400# (N: aucun linearisation 3D (OL) ) showfr %3SS13X-Y 1400# (N: nessun 3D\255linearizzazione (OL) ) showit %4SS13X-Y 1400# (N: no 3D\255linearization (OL) ) showjp %5SS13X-Y 1400# (in Datei (F) oder PS\255Startup (S)) showde %0SS13X-Y 1500# (in file (F) or PS\255startup (S)) showen %1SS13X-Y 1500# (en archivo (F) o PS\255startup (S)) showes %2SS13X-Y 1500# (dans fichier (F) ou PS\255startup (S)) showfr %3SS13X-Y 1500# (nel file (F) o PS\255startup (S)) showit %4SS13X-Y 1500# (in file (F) or PS\255startup (S)) showjp %5SS13X-Y 1500# } {LSC$ show (: ) show (3D\255Linearisierung) showde %0SS13X-Y 1600# (3D\255linearization) showen %1SS13X-Y 1600# (3D\255linealizaci\363n) showes %2SS13X-Y 1600# (linearisation 3D) showfr %3SS13X-Y 1600# (3D\255linearizzzazione) showit %4SS13X-Y 1600# (3D\255linearization) showjp %5SS13X-Y 1600# ( SS13/SS13L) show LSS$ show LSX$ show (0) show LSC$ show LEY$ show } ifelse LSC$ (F) eq { ( in Datei (F)) showde %0SS13X-Y 1700# ( in file (F)) showen %1SS13X-Y 1700# ( en archivo (F)) showes %2SS13X-Y 1700# ( dans fichier (F)) showfr %3SS13X-Y 1700# ( nel file (F)) showit %4SS13X-Y 1700# ( in file (F)) showjp %5SS13X-Y 1700# } if LSC$ (S) eq { ( im Distiller Startup (S) Directory) showde %0SS13X-Y 1800# ( in Distiller Startup (S) Directory) showen %1SS13X-Y 1800# ( en el Distiller Startup (S) Directory) showes %2SS13X-Y 1800# ( dans le Distiller Startup (S) Directory) showfr %3SS13X-Y 1800# ( nel Distiller Startup (S) Directory) showit %4SS13X-Y 1800# ( in Distiller Startup (S) Directory) showjp %5SS13X-Y 1800# } if LSC$ (D) eq { ( in PS\255Device (D)) showde %0SS13X-Y 1900# ( in PS\255device (D)) showen %1SS13X-Y 1900# ( en el PS\255device (D)) showes %2SS13X-Y 1900# ( dans l'appareil PS (D)) showfr %3SS13X-Y 1900# ( nel PS\255dispositivo (D)) showit %4SS13X-Y 1900# ( in PS\255Device (D)) showjp %5SS13X-Y 1900# } if LSC$ (T) eq { ( im Distiller Startup (S) Directory) showde %0SS13X-Y 2000# ( in Distiller Startup (S) Directory) showen %1SS13X-Y 2000# ( en el Distiller Startup (S) Directory) showes %2SS13X-Y 2000# ( dans le Distiller Startup (S) Directory) showfr %3SS13X-Y 2000# ( nel Distiller Startup (S) Directory) showit %4SS13X-Y 2000# ( in Distiller Startup (S) Directory) showjp %5SS13X-Y 2000# } if LSC$ (E) eq { ( in PS\255Device (D)) showde %0SS13X-Y 2100# ( in PS\255device (D)) showen %1SS13X-Y 2100# ( en el PS\255device (D)) showes %2SS13X-Y 2100# ( dans appareil PS (D)) showfr %3SS13X-Y 2100# ( nel PS\255dispositivo (D)) showit %4SS13X-Y 2100# ( in PS\255Device (D)) showjp %5SS13X-Y 2100# } if %0 setgray %end white and unvisible (, Seite ) showde %0SS13X-Y 2200# (, page ) showen %1SS13X-Y 2200# (, p\341gina ) showes %2SS13X-Y 2200# (, page ) showfr %3SS13X-Y 2200# (, pagina ) showit %4SS13X-Y 2200# (, page ) showjp %5SS13X-Y 2200# xchart 1 add cvishow (/) show 2 cvishow 16 MM 185 MM moveto -90 rotate (Siehe \344hnliche Dateien: ) showde %0SS13X-Y 2300# (see similar files: ) showen %1SS13X-Y 2300# (vea archivos semejantes: ) showes %2SS13X-Y 2300# (voir des fichiers similaires: ) showfr %3SS13X-Y 2300# (vedere dei file simili: ) showit %4SS13X-Y 2300# (see similar files: ) showjp %5SS13X-Y 2300# (http://130.149.60.45/~farbmetrik/SS13/SS13.HTM) show %(0) show %LSC$ show LEX$ show 90 rotate 12 MM 185 MM moveto -90 rotate (Technische Information: ) showde %0SS13X-Y 2400# (technical information: ) showen %1SS13X-Y 2400# (informaci\363n t\351cnica: ) showes %2SS13X-Y 2400# (informations techniques: ) showfr %3SS13X-Y 2400# (informazioni tecniche: ) showit %4SS13X-Y 2400# (technical information: ) showjp %5SS13X-Y 2400# (http://www.ps.bam.de) show ( oder ) showde %0SS13X-Y 2500# ( or ) showen %1SS13X-Y 2500# ( o ) showes %2SS13X-Y 2500# ( ou ) showfr %3SS13X-Y 2500# ( o ) showit %4SS13X-Y 2500# ( or ) showjp %5SS13X-Y 2500# (http://130.149.60.45/~farbmetrik) show 90 rotate 281 MM 185 MM moveto -90 rotate (TUB\255Registrierung: 20130201\255SS13/SS13L) showde %0SS13X-Y 2600# (TUB registration: 20130201\255SS13/SS13L) showen %1SS13X-Y 2600# (TUB matr\355cula: 20130201\255SS13/SS13L) showes %2SS13X-Y 2600# (TUB enregistrement: 20130201\255SS13/SS13L) showfr %3SS13X-Y 2600# (TUB iscrizione: 20130201\255SS13/SS13L) showit %4SS13X-Y 2600# (TUB registration: 20130201\255SS13/SS13L) showjp %5SS13X-Y 2600# (0) show LSC$ show LEX$ show 90 rotate 281 MM 74 MM moveto -90 rotate (TUB\255Material: Code=rha4ta) showde %0SS13X-Y 2700# (TUB material: code=rha4ta) showen %1SS13X-Y 2700# (TUB material: code=rha4ta) showes %2SS13X-Y 2700# (TUB mat\351riel: code=rha4ta) showfr %3SS13X-Y 2700# (TUB materiale: code=rha4ta) showit %4SS13X-Y 2700# (TUB material: code=rha4ta) showjp %5SS13X-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 %0SS13X-Y 2800# ( application for measurement ) showen %1SS13X-Y 2800# ( aplicaci\363n para la medida ) showes %2SS13X-Y 2800# ( application pour la mesure ) showfr %3SS13X-Y 2800# ( la domanda per la misura ) showit %4SS13X-Y 2800# ( application for measurement ) showjp %5SS13X-Y 2800# xchart5f 0 eq {%xchart5f=0 (von Display-Ausgabe) showde %0SS13X-Y 2900# (of display output) showen %1SS13X-Y 2900# (de display output) showes %2SS13X-Y 2900# (de sortie sur \350cran) showfr %3SS13X-Y 2900# (di stampa di display) showit %4SS13X-Y 2900# (of display output) showjp %5SS13X-Y 2900# } if %xchart5f=0 xchart5f 1 eq xchart5f 2 eq or {%xchart5f=1,2 (von Offsetdruck\255Ausgabe) showde %0SS13X-Y 3000# (of offset print output) showen %1SS13X-Y 3000# (salida en la impressi\363n offset) showes %2SS13X-Y 3000# (des sorties sur offset) showfr %3SS13X-Y 3000# (uscita nella stampa di offset) showit %4SS13X-Y 3000# (of offset print output) showjp %5SS13X-Y 3000# } if %xchart5f=1,2 xchart5f 3 eq {%xchart5f=3 (von Laserdrucker\255Ausgabe) showde %0SS13X-Y 3100# (of laser printer output) showen %1SS13X-Y 3100# (salida de impresora l\341ser) showes %2SS13X-Y 3100# (des sorties sur imprimante laser) showfr %3SS13X-Y 3100# (di uscita della stampante laser) showit %4SS13X-Y 3100# (of laser printer output) showjp %5SS13X-Y 3100# } if %xchart5f=3 xchart 1 ge {%xchart>=1 xchart5f 0 eq {%xchart5f=0 (, keine Separation) showde %0SS13X-Y 3200# (, no separation) showen %1SS13X-Y 3200# (, ninguna separaci\363n) showes %2SS13X-Y 3200# (, aucune s\351paration) showfr %3SS13X-Y 3200# (, nessuna separazione) showit %4SS13X-Y 3200# (, no separation) showjp %5SS13X-Y 3200# } if %chart5f=0 xchart5f 1 ge {%xchart5f>=1 (, Separation) showde %0SS13X-Y 3300# (, separation) showen %1SS13X-Y 3300# (, separaci\363n) showes %2SS13X-Y 3300# (, s\351paration) showfr %3SS13X-Y 3300# (, separazione) showit %4SS13X-Y 3300# (, separation) showjp %5SS13X-Y 3300# xchart5f 1 eq xchart5f 3 eq or {(cmyn6) show} if xchart5f 2 eq {(cmy0) show} if colorm 1 eq {(*) show} if colsep 0 eq {( (CMYK))}{( (CMY0))} ifelse show } if %xchart5f>=1 } if %xchart>=1 IMES 1 eq LSC$ (N) ne and { %IMES=1 (, Yr=) show Yre cvsshow1 (, XYZ) show } if %IMES=1 90 rotate /i0 8 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def 0.30 MM setlinewidth 0 setgray x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto x i0 get MM y i0 get MM lineto stroke %/xlu1 013 MM def /ylu1 010 MM def %/xro1 283 MM def /yro1 200 MM def %/xlo1 013 MM def /ylo1 200 MM def %/xru1 283 MM def /yru1 010 MM def %xlu1 4 MM sub ylu1 moveto 8 MM 0 rlineto stroke %xlu1 ylu1 4 MM sub moveto 0 8 MM rlineto stroke %xro1 4 MM add yro1 moveto -8 MM 0 rlineto stroke %xro1 yro1 4 MM add moveto 0 -8 MM rlineto stroke %xru1 4 MM sub yru1 moveto 8 MM 0 rlineto stroke %xru1 yru1 4 MM sub moveto 0 8 MM rlineto stroke %xlo1 4 MM add ylo1 moveto -8 MM 0 rlineto stroke %xlo1 ylo1 4 MM add moveto 0 -8 MM rlineto stroke } ifelse %xt=1 xchart 1 le {%xchart<=1 /ypapert 5 array def /ypapert [(A) (B) (L) (G) (P)] def 0 0 0 0 setcmykcolor /i0 14 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def x i0 get MM 18 MM sub y i0 get MM 04 MM sub moveto 17 MM 0 rlineto 0 4.5 MM rlineto -17 MM 0 rlineto closepath fill x i0 get MM 17.5 MM sub y i0 get MM 3 MM sub moveto 0 1 1 0 setcmykcolor 4.5 MM /Times-ISOL1 FS (SS13) show 3.5 MM /Times-ISOL1 FS xchart 0 eq {(S0) show} {colorm cvishow deintp cvishow} ifelse ypapert colsep 0 eq {ypaper}{ybunta} ifelse get show } if %xchart<=1 grestore gsave %********************************************************** xchart xchart3PXX gt {%BEG xchart>xchart3PXX /n00 xchart3PXX 1 add def %special tables start at page 11 /n01 n00 1 add def %1080-rgb-tables start at page 13 /n02 n00 2 add def xchart n00 eq {/n1 0 def /n2 57 def} if xchart n01 eq {/n1 0 def /n2 53 def} if xchart n02 ge {/n1 xchart n02 sub 81 mul def /n2 n1 80 add def n2 1079 ge {/n2 1079 def} if } if 72 56 translate 0.01 MM dup scale 0 0 0 setrgbcolor 0 0 moveto 24600 0 rlineto 0 17220 rlineto -24600 0 rlineto closepath stroke 180 /Times-ISOL1 FS 0 0 0 setrgbcolor 7000 -180 moveto (SS130-7N, ) show lanind 0 eq {(Seite ) show} if lanind 1 eq {(Page ) show} if xchart 1 add cvishow (/) show 2 cvishow (-F) show %pmetam cvishow %******************************************************** /prog_rgb_dyF_LAB*'dyF {%BEG prog_rgb_dyF_LAB*'dyF %LAB*'dyF allready known by proc_rgb_rgb*'dy_LAB*'dy_rgb'*dy_*ioL } bind def %END prog_rgb_dyF_LAB*'dyF %******************************************************** /prog_rgb'*dyF_LAB'*dyF {%BEG prog_rgb'*dyF_LAB'*dyF %rgb'*dyF allready known by proc_rgb_rgb*'dy_LAB*'dy_rgb'*dy_*ioL %calculation of LAB'*dyF not possible, only by sRGB-equations } bind def %END prog_rgb'*dyF_LAB'*dyF %************************************************************* /fakt 1.0 def /fakt2 0.74 def %0.2 /iyt 250 fakt2 mul def %text size /iyd 277 fakt2 mul def %line difference /ixs0 00 fakt2 mul def /ixs1 -10 fakt2 mul def /ixs2 10 fakt2 mul def /iys1 -25 fakt2 mul def /iys2 25 fakt2 mul def /iys3 35 fakt2 mul def /iys4 -35 fakt2 mul def /iytie iyt 50 fakt2 mul sub def /nshow {iyt /Times-ISOL1 FS show} def /kshow {iyt /TimesI-ISOL1 FS show} def /bshow {iyt /TimesB-ISOL1 FS show} def /jshow {iyt /TimesBI-ISOL1 FS show} def /sshow {iyt /Symbol FS show} def /nishow {ixs1 iys1 rmoveto iytie /Times-ISOL1 FS show ixs2 iys2 rmoveto} def /nishow0 { 00 iys1 rmoveto iytie /Times-ISOL1 FS show 00 iys2 rmoveto} def /neshow {ixs1 iys3 rmoveto iytie /Times-ISOL1 FS show ixs2 iys4 rmoveto} def /neshow0 { 00 iys3 rmoveto iytie /Times-ISOL1 FS show 00 iys4 rmoveto} def /ishow {ixs1 iys1 rmoveto iytie /TimesB-ISOL1 FS show ixs2 iys2 rmoveto} def /ishow0 { 00 iys1 rmoveto iytie /TimesB-ISOL1 FS show 00 iys2 rmoveto} def /eshow { 00 iys3 rmoveto iytie /TimesB-ISOL1 FS show 00 iys4 rmoveto} def 0 0 0 setrgbcolor /imaxym 17220 def /iymax 16700 def /imaxy0 17000 def colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if /RGB58M1_F 174 array def %58x3=174 /RGB58M1_F [%rgb data of 48+1 step colour circle + 9 step gray series = 58 1.000 0.000 0.000 %00 R00Y %R 1.000 0.125 0.000 %01 R13Y 1.000 0.250 0.000 %02 R25Y 1.000 0.375 0.000 %03 R38Y 1.000 0.500 0.000 %04 R50Y 1.000 0.625 0.000 %05 R63Y 1.000 0.750 0.000 %06 R75Y 1.000 0.875 0.000 %07 R88Y 1.000 1.000 0.000 %08 Y00G %Y 0.875 1.000 0.000 %09 Y13G 0.750 1.000 0.000 %10 Y25G 0.625 1.000 0.000 %11 Y38G 0.500 1.000 0.000 %12 Y50G 0.375 1.000 0.000 %13 Y63G 0.250 1.000 0.000 %14 Y75G 0.125 1.000 0.000 %15 Y88G 0.000 1.000 0.000 %16 G00C %G 0.000 1.000 0.125 %17 G13C 0.000 1.000 0.250 %18 G25C 0.000 1.000 0.375 %19 G38C 0.000 1.000 0.500 %20 G50C 0.000 1.000 0.625 %21 G63C 0.000 1.000 0.750 %22 G75C 0.000 1.000 0.875 %23 G88C 0.000 1.000 1.000 %24 C00B %C 0.000 0.875 1.000 %25 C13B 0.000 0.750 1.000 %26 C25B 0.000 0.625 1.000 %27 C38B 0.000 0.500 1.000 %28 C50B 0.000 0.375 1.000 %29 C63B 0.000 0.250 1.000 %30 C75B 0.000 0.125 1.000 %31 C88B 0.000 0.000 1.000 %32 B00M %B 0.125 0.000 1.000 %33 B13M 0.250 0.000 1.000 %34 B25M 0.375 0.000 1.000 %35 B38M 0.500 0.000 1.000 %36 B50M 0.625 0.000 1.000 %37 B63M 0.750 0.000 1.000 %38 B75M 0.875 0.000 1.000 %39 B88M 1.000 0.000 1.000 %40 M00R %M 1.000 0.000 0.875 %41 M13R 1.000 0.000 0.750 %42 M25R 1.000 0.000 0.625 %43 M38R 1.000 0.000 0.500 %44 M50R 1.000 0.000 0.375 %45 M63R 1.000 0.000 0.250 %46 M75R 1.000 0.000 0.125 %47 M88R 1.000 0.000 0.000 %48 R00Y %R 0.000 0.000 0.000 %49 N00Wd %ncolors 0.125 0.125 0.125 %50 N13Wd 0.250 0.250 0.250 %51 N25Md 0.375 0.375 0.375 %52 N38Wd 0.500 0.500 0.500 %53 N50Wd 0.625 0.625 0.625 %54 N63Wd 0.750 0.750 0.750 %55 N75Wd 0.875 0.875 0.875 %56 N88Wd 1.000 1.000 1.000 %57 W00Nd = W ] def /RGB58M1t_F 58 array def %48+1 step colour circle and 9 step grey steps = 58 /RGB58M1t_F [%high chromatic series: %relative hue h*, brillance i*, and chroma c* %range 0 ... 100 (R00Y_100_100) (R13Y_100_100) (R25Y_100_100) (R38Y_100_100) (R50Y_100_100) (R63Y_100_100) (R75Y_100_100) (R88Y_100_100) (Y00G_100_100) (Y13G_100_100) (Y25G_100_100) (Y38G_100_100) (Y50G_100_100) (Y63G_100_100) (Y75G_100_100) (Y88G_100_100) (G00C_100_100) (G13C_100_100) (G25C_100_100) (G38C_100_100) (G50C_100_100) (G63C_100_100) (G75C_100_100) (G88C_100_100) (C00B_100_100) (C13B_100_100) (C25B_100_100) (C38B_100_100) (C50B_100_100) (C63B_100_100) (C75B_100_100) (C88B_100_100) (B00M_100_100) (B13M_100_100) (B25M_100_100) (B38M_100_100) (B50M_100_100) (B63M_100_100) (B75M_100_100) (B88M_100_100) (M00R_100_100) (M13R_100_100) (M25R_100_100) (M38R_100_100) (M50R_100_100) (M63R_100_100) (M75R_100_100) (M88R_100_100) (R00Y_100_100) %gray series (NW_000) (NW_013) (NW_025) (NW_038) (NW_050) (NW_063) (NW_075) (NW_088) (NW_100) ] def /RGB54CR_F 162 array def %54x3=162 /RGB54CR_F [%54 colours of colour rendering (CR) test chart 1.000 0.000 0.000 %01 R00Yd %RGB54CR 1.000 0.250 0.000 %02 R25Yd 1.000 0.500 0.000 %03 R50Yd 1.000 0.750 0.000 %04 R75Yd 1.000 1.000 0.000 %05 Y00Gd 0.750 1.000 0.000 %06 Y25Gd 0.500 1.000 0.000 %07 Y50Gd 0.250 1.000 0.000 %08 Y75Gd 0.000 1.000 0.000 %09 G00Bd = 10 0.000 1.000 0.000 %10 G00Bd 0.000 1.000 0.500 %11 G25Bd 0.000 1.000 1.000 %12 G50Bd 0.000 0.500 1.000 %13 G75Bd 0.000 0.000 1.000 %14 B00Rd 0.500 0.000 1.000 %15 B25Rd 1.000 0.000 1.000 %16 B50Rd 1.000 0.000 0.500 %17 B75Rd 1.000 0.000 0.000 %18 R00Yd = 01 1.000 0.500 0.500 %19 R00Yd %lcolors 1.000 0.750 0.500 %20 R50Yd 1.000 1.000 0.500 %21 Y00Gd 0.750 1.000 0.500 %22 Y50Gd 0.500 1.000 0.500 %23 G00Bd 0.500 1.000 1.000 %24 G50Bd 0.500 0.500 1.000 %25 B00Rd 1.000 0.500 1.000 %26 B50Rd 1.000 0.500 0.500 %27 R00Yd = 19 0.750 0.250 0.250 %28 R00Yd %zcolors 0.750 0.500 0.250 %29 R50Yd 0.750 0.750 0.250 %30 Y00Gd 0.500 0.750 0.250 %31 Y50Gd 0.250 0.750 0.250 %32 G00Bd 0.250 0.750 0.750 %33 G50Bd 0.250 0.250 0.750 %34 B00Rd 0.750 0.250 0.750 %35 B50Rd 0.750 0.250 0.250 %36 R00Yd = 28 0.500 0.000 0.000 %37 R00Yd %dcolors 0.500 0.250 0.000 %38 R50Yd 0.500 0.500 0.000 %38 Y00Gd 0.250 0.500 0.000 %40 Y50Gd 0.000 0.500 0.000 %41 G00Bd 0.000 0.500 0.500 %42 G50Bd 0.000 0.000 0.500 %43 B00Rd 0.500 0.000 0.500 %44 B50Rd 0.500 0.000 0.000 %45 R00Yd = 37 0.000 0.000 0.000 %46 N00Wd %ncolors 0.125 0.125 0.125 %47 N13Wd 0.250 0.250 0.250 %48 N25Md 0.375 0.375 0.375 %49 N38Wd 0.500 0.500 0.500 %50 N50Wd 0.625 0.625 0.625 %51 N63Wd 0.750 0.750 0.750 %52 N75Wd 0.875 0.875 0.875 %53 N88Wd 1.000 1.000 1.000 %54 W00Nd = W ] def %54 colours of colour rendering test chart /RGB54CRt_F 54 array def /RGB54CRt_F [%high chromatic series: %relative hue h*, brillance i*, and chroma c*, range 0 ... 100 (R00Y_100_100) (R25Y_100_100) (R50Y_100_100) (R75Y_100_100) (Y00G_100_100) (Y25G_100_100) (Y50G_100_100) (Y75G_100_100) (G00B_100_100) (G00B_100_100) (G25B_100_100) (G50B_100_100) (G75B_100_100) (B00M_100_100) (B25R_100_100) (B50R_100_100) (B75R_100_100) (R00Y_100_100) %whitetish series (R00Y_100_050) (R50Y_100_050) (Y00G_100_050) (Y50G_100_050) (G00B_100_050) (G50B_100_050) (B00R_100_050) (B50R_100_050) (R00Y_100_050) %grayish series (R00Y_075_050) (R50Y_075_050) (Y00G_075_050) (Y50G_075_050) (G00B_075_050) (G50B_075_050) (B00R_075_050) (B50R_075_050) (R00Y_075_050) %blackish series (R00Y_050_050) (R50Y_050_050) (Y00G_050_050) (Y50G_050_050) (G00B_050_050) (G50B_050_050) (B00R_050_050) (B50R_050_050) (R00Y_050_050) %gray series (NW_000) (NW_013) (NW_025) (NW_038) (NW_050) (NW_063) (NW_075) (NW_088) (NW_100) ] def /jCRi 54 array def /jCRi %jCRi [ 648 %R00Y_100_100 1.00 0.00 0.00 01 %chromatic 16 step hue 666 %R25Y_100_100 1.00 0.25 0.00 02 684 %R50Y_100_100 1.00 0.50 0.00 03 702 %R75Y_100_100 1.00 0.75 0.00 04 720 %Y00G_100_100 1.00 1.00 0.00 05 558 %Y25G_100_100 0.75 1.00 0.00 06 396 %Y50G_100_100 0.50 1.00 0.00 07 234 %Y75G_100_100 0.25 1.00 0.00 08 072 %G00B_100_100 0.00 1.00 0.00 09=10 072 %G00B_100_100 0.00 1.00 0.00 10 %chromatic 16 step hue 076 %G25B_100_100 0.00 1.00 0.50 11 080 %G50B_100_100 0.00 1.00 1.00 12 044 %G75B_100_100 0.00 0.50 1.00 13 008 %B00R_100_100 0.00 0.00 1.00 14 332 %B25R_100_100 0.50 0.00 1.00 15 656 %B50R_100_100 1.00 0.00 1.00 16 652 %B75R_100_100 1.00 0.00 0.50 17 648 %R00Y_100_100 1.00 0.00 0.00 18=01 688 %R00Y_100_050 1.00 0.50 0.50 19 %whitish 8 step hue 706 %R50Y_100_050 1.00 0.75 0.50 20 724 %Y00G_100_050 1.00 1.00 0.50 21 562 %Y50G_100_050 0.75 1.00 0.50 22 400 %G00B_100_050 0.50 1.00 0.50 23 404 %G50B_100_050 0.50 1.00 1.00 24 368 %B00R_100_050 0.50 0.50 1.00 25 692 %B50R_100_050 1.00 0.50 1.00 26 688 %R00Y_100_050 1.00 0.50 0.50 27=19 506 %R00Y_075_050 0.75 0.25 0.25 28 %greyish 8 step hue 524 %R50Y_075_050 0.75 0.50 0.25 29 542 %Y00G_075_050 0.75 0.75 0.25 30 380 %Y50G_075_050 0.50 0.75 0.25 31 218 %G00B_075_050 0.25 0.75 0.25 32 222 %G50B_075_050 0.25 0.75 0.75 33 186 %B00R_075_050 0.25 0.25 0.75 34 510 %B50R_075_050 0.75 0.25 0.75 35 506 %R00Y_075_050 0.75 0.25 0.25 36=28 324 %R00Y_050_050 0.50 0.00 0.00 37 %blackish 8 step hue 342 %R50Y_050_050 0.50 0.25 0.00 38 360 %Y00G_050_050 0.50 0.50 0.00 39 198 %Y50G_050_050 0.25 0.50 0.00 40 036 %G00B_050_050 0.00 0.50 0.00 41 040 %G50B_050_050 0.00 0.50 0.50 42 004 %B00R_050_050 0.00 0.00 0.50 43 328 %B50R_050_050 0.50 0.00 0.50 44 324 %R00Y_050_050 0.50 0.00 0.00 45=37 000 %NW_000 0.000 0.000 0.000 46 %grey 9 steps 091 %NW_013 0.125 0.125 0.125 47 182 %NW_025 0.250 0.250 0.250 48 273 %NW_038 0.375 0.375 0.375 49 364 %NW_050 0.500 0.500 0.500 50 455 %NW_063 0.625 0.625 0.625 51 546 %NW_075 0.750 0.750 0.750 52 637 %NW_088 0.875 0.875 0.875 53 728 %NW_100 1.000 1.000 1.000 54 ] def %END jCRi /SUMDE*' 0 def /SUMDE'* 0 def n1 1 n2 {/n exch def %n=n1,n2 /n30 n 3 mul def /n31 n30 1 add def /n32 n30 2 add def xchart n00 eq {%48+1=49 step colour circle + 9 gray steps=58 steps /hcolort RGB58M1t_F n get def RGB58M1_F n30 get %real RGB58M1_F n31 get RGB58M1_F n32 get } if %48 step colour circle xchart n01 eq {%45 colour rendering (CR) + 9 grey steps = 54 steps /hcolort RGB54CRt_F n get def RGB54CR_F n30 get %real RGB54CR_F n31 get RGB54CR_F n32 get } if %54 colour rendering colours xchart n02 ge {%1080 standard colours /r_RGBF RGB0_F n30 get 1000 div def /g_RGBF RGB0_F n31 get 1000 div def /b_RGBF RGB0_F n32 get 1000 div def /hsiRGBF r_RGBF 030 sin mul g_RGBF 150 sin mul add b_RGBF 270 sin mul add %y_e r_RGBF 030 cos mul g_RGBF 150 cos mul add %x_e 0.0001 add atan 0.5 add cvi def %range 0..360 hsiRGBF 30 lt {/hsiRGBF hsiRGBF 30 add def} if %range 30..390 hsiRGBF 030 ge hsiRGBF 090 le and {/u_100 hsiRGBF 030 sub 060 div 100 mul def /u1_RGYB (R) def /u2_RGYB (Y) def} if hsiRGBF 090 ge hsiRGBF 150 le and {/u_100 hsiRGBF 090 sub 060 div 100 mul def /u1_RGYB (Y) def /u2_RGYB (G) def} if hsiRGBF 150 ge hsiRGBF 270 le and {/u_100 hsiRGBF 150 sub 120 div 100 mul def /u1_RGYB (G) def /u2_RGYB (B) def} if hsiRGBF 270 ge hsiRGBF 390 le and {/u_100 hsiRGBF 270 sub 120 div 100 mul def /u1_RGYB (B) def /u2_RGYB (R) def} if %calculation of i_RGBF, c_RGBF, and t_RGBF /maxd r_RGBF def g_RGBF maxd gt {/maxd g_RGBF def} if b_RGBF maxd gt {/maxd b_RGBF def} if /mind r_RGBF def g_RGBF mind lt {/mind g_RGBF def} if b_RGBF mind lt {/mind b_RGBF def} if /I_RGBF maxd 100 mul def /C_RGBF maxd mind sub 100 mul def /T_RGBF I_RGBF C_RGBF 0.5 mul sub def r_RGBF g_RGBF b_RGBF %for setrgbcolor } if %1080 standard colours setrgbcolor %default to create data %setrgbcolor calculates data for output in "FF_LM_de_setrgbcolor_F" %colorm=0 calculates: rgb_dyF, rgb*dyF, LAB*dyF, ,cmyk*dyF and more %colorm=1 calculates: rgb_dyF, rgb*dyF, LAB*dyF', rgb'*dyF, cmyk*dyF and more /r_xF r_dyF def /g_xF g_dyF def /b_xF b_dyF def /i_xF i_dyF def /c_xF c_dyF def /t_xF t_dyF def /r*xF r*dyF def /g*xF g*dyF def /b*xF b*dyF def /LAB*LxF LAB*LdyF def /LAB*axF LAB*adyF def /LAB*bxF LAB*bdyF def /LAB*CxF LAB*adyF dup mul LAB*bdyF dup mul add 0.0001 add sqrt def /LAB*hxF LAB*bdyF LAB*adyF 0.0001 add atan def colorm 0 eq {%colorm=0 %prog_rgb_dyF_LAB*'dyF uses rgb_dyF by default %calculates output data according to IEC 61966-2-1 prog_rgb_dyF_LAB*'dyF xchart n00 eq {%xchart=n00 n 49 le {%n<=49 %chromatic hue series /LAB*'LxF LAB*Ldd64M n get def /LAB*'axF LAB*add64M n get def /LAB*'bxF LAB*bdd64M n get def /LAB*'CxF LAB*Cdd64M n get def /LAB*'hxF LAB*hdd64M n get def }%n<=49 %chromatic hue series {%n>49 %grey series /LAB*'LxF LAB*Lja jCRi n 5 sub get get def %Offset /LAB*'axF LAB*aja jCRi n 5 sub get get def /LAB*'bxF LAB*bja jCRi n 5 sub get get def /LAB*'CxF LAB*'axF dup mul LAB*'bxF dup mul add 0.0001 add sqrt def /LAB*'hxF LAB*'bxF LAB*'axF 0.0001 add atan def } ifelse %n>49 %grey series } if%xchart=n00 xchart n01 eq {%xchart=n01 /LAB*'LxF LAB*Lja jCRi n get get def %Offset hue circle /LAB*'axF LAB*aja jCRi n get get def /LAB*'bxF LAB*bja jCRi n get get def /LAB*'CxF LAB*'axF dup mul LAB*'bxF dup mul add 0.0001 add sqrt def /LAB*'hxF LAB*'bxF LAB*'axF 0.0001 add atan def } if %xchart=n01 xchart n02 ge %xchart>=n02 {/LAB*'LxF LAB*Lja n get def %only for Offset /LAB*'axF LAB*aja n get def /LAB*'bxF LAB*bja n get def /LAB*'CxF LAB*'axF dup mul LAB*'bxF dup mul add 0.0001 add sqrt def /LAB*'hxF LAB*'bxF LAB*'axF 0.0001 add atan def } if %xchart>=n02 % /LAB*'LxF L*'dyF def %only for sRGB % /LAB*'axF a*'dyF def % /LAB*'bxF b*'dyF def % /LAB*'CxF C*'dyF def % /LAB*'hxF h*'dyF def /DE*' LAB*'LxF LAB*LxF sub dup mul LAB*'axF LAB*axF sub dup mul add LAB*'bxF LAB*bxF sub dup mul add 0.0001 add sqrt def /SUMDE*' SUMDE*' DE*' add def } if %colorm=0 colorm 1 eq {%colorm=1 % /r'*xF r'*dyF def % /g'*xF g'*dyF def % /b'*xF b'*dyF def %calculates output data according to IEC 61966-2-1 % prog_rgb'*dyF_LAB'*dyF % /LAB'*LxF L'*dyF def % /LAB'*axF a'*dyF def % /LAB'*bxF b'*dyF def % /LAB'*CxF C'*dyF def % /LAB'*hxF h'*dyF def % /DE'* LAB'*LxF LAB*LxF sub dup mul % LAB'*axF LAB*axF sub dup mul add % LAB'*bxF LAB*bxF sub dup mul add % 0.0001 add sqrt def % /SUMDE'* SUMDE'* DE'* add def } if %colorm=1 /hsi_xF hsiF def /c4*xF c4*Fa def /m4*xF m4*Fa def /y4*xF y4*Fa def /n4*xF n4*Fa def /r*xM r*dyM def /g*xM g*dyM def /b*xM b*dyM def /LAB*LxM LAB*LdyM def /LAB*axM LAB*adyM def /LAB*bxM LAB*bdyM def /LAB*CxM LAB*adyM dup mul LAB*bdyM dup mul add 0.0001 add sqrt def /LAB*hxM LAB*bdyM LAB*adyM 0.0001 add atan def /hsi_xM hsiM def 0 setgray xchart n00 eq {/nx n 8 idiv def n 49 ge {/nx nx 1 add def} if n 56 ge {/nx nx 1 sub def} if } if xchart n01 eq {/nx n 9 idiv def} if xchart n02 ge {/nx 0 def} if /iydn iymax n n1 sub nx add iyd mul sub def n n1 eq {%n=n1 00050 imaxy0 moveto (n) jshow xchart n00 eq {(/j) show} if xchart n01 eq {(/j) show} if xchart n02 eq {(=j) show} if 00700 imaxy0 moveto (HIC*) bshow (F) ishow0 Txx ishow0 02300 imaxy0 moveto (rgb) jshow (_F) ishow0 Txx ishow0 04200 imaxy0 moveto (ict) jshow (_F) ishow0 Txx ishow0 06100 imaxy0 moveto (h) jshow (si_F,) ishow0 Txx ishow0 06700 imaxym moveto 0 imaxym neg rlineto stroke 06800 imaxy0 moveto (rgb*) jshow (F) ishow0 Txx ishow0 08700 imaxy0 moveto (LabCh*) jshow (F) ishow0 Txx ishow0 12100 imaxym moveto 0 imaxym neg rlineto stroke colorm 0 eq {%colorm=1 12200 imaxy0 moveto (rgb*') jshow (F) ishow0 Txx ishow0 14100 imaxy0 moveto (LabCh*') jshow (F) ishow0 Txx ishow0 17600 imaxy0 moveto (DE*') jshow (F) ishow0 Txx ishow0 } if %colorm=0 colorm 1 eq {%colorm=1 % 12200 imaxy0 moveto (rgb'*) jshow % (F) ishow0 Txx ishow0 % 14100 imaxy0 moveto (LabCh'*) jshow (F) ishow0 % Txx ishow0 % 17600 imaxy0 moveto (DE'*) jshow (F) ishow0 % Txx ishow0 12200 imaxy0 moveto (cmyn*) jshow (sep,) ishow0 (F) ishow0 Txx ishow0 } if %colorm=1 18300 imaxy0 moveto (h) jshow (siM,) ishow0 Txx ishow0 18900 imaxym moveto 0 imaxym neg rlineto stroke 19000 imaxy0 moveto (rgb*) jshow (M) ishow0 Txx ishow0 20900 imaxy0 moveto (LabCh*) jshow (M) ishow0 Txx ishow0 () nshow } if %n=n1 00050 iydn moveto n cvishow xchart n00 eq {%xchart=n00 n 48 le {%n<=48 (/) show M1jx n get cvishow }%n<=48 {%n>48 (/) show jCRi n 4 sub get cvishow } ifelse } if %xchart=n00 xchart n01 eq {(/) show jCRi n get cvishow} if 00700 iydn moveto xchart n01 le {hcolort show Txx ishow0 () nshow} if xchart n02 ge {%xchart>n02 C_RGBF 0 eq {%ifelse achromatic (NW) show (_) show I_RGBF cvi 9 le {(00) show} if %filling cero I_RGBF cvi 9 gt I_RGBF cvi 99 le and {(0) show } if %range 0..100 I_RGBF cvi 6 string cvs show }%ifelse achromatic {%ifelse chromatic u1_RGYB show %filling cero range 0..99 u_100 cvi 9 le {(0) show} if %filling cero u_100 cvi cvi 6 string cvs show u2_RGYB show (_) show I_RGBF cvi 9 le {(00) show} if %filling cero I_RGBF cvi 9 gt I_RGBF cvi 99 le and {(0) show } if %range 0..100 I_RGBF cvi 6 string cvs show (_) show C_RGBF 9 le {(00) show} if %filling cero C_RGBF cvi 9 gt C_RGBF cvi 99 le and {(0) show } if %range 0..100 C_RGBF cvi 6 string cvs show } ifelse %ifelse chromatic Txx ishow0 () nshow } if %xchart>n02 02300 iydn moveto r_xF cvsshow3 02900 iydn moveto g_xF cvsshow3 03500 iydn moveto b_xF cvsshow3 04200 iydn moveto i_xF cvsshow3 04800 iydn moveto c_xF cvsshow3 05400 iydn moveto t_xF cvsshow3 06100 iydn moveto hsi_xF cvishow 06800 iydn moveto r*xF cvsshow3 07400 iydn moveto g*xF cvsshow3 08000 iydn moveto b*xF cvsshow3 08700 iydn moveto LAB*LxF cvsshow1 09400 iydn moveto LAB*axF cvsshow1 10100 iydn moveto LAB*bxF cvsshow1 10800 iydn moveto LAB*CxF cvsshow1 11500 iydn moveto LAB*hxF cvsshow1 colorm 0 eq {%colorm=0 12200 iydn moveto r_xF cvsshow3 12800 iydn moveto g_xF cvsshow3 13400 iydn moveto b_xF cvsshow3 14100 iydn moveto LAB*'LxF cvsshow1 14800 iydn moveto LAB*'axF cvsshow1 15500 iydn moveto LAB*'bxF cvsshow1 16200 iydn moveto LAB*'CxF cvsshow1 16900 iydn moveto LAB*'hxF cvsshow1 17600 iydn moveto DE*' cvsshow1 } if %colorm=0 colorm 1 eq {%colorm=1 % 12200 iydn moveto r'*xF cvsshow3 % 12800 iydn moveto g'*xF cvsshow3 % 13400 iydn moveto b'*xF cvsshow3 % 14100 iydn moveto LAB'*LxF cvsshow1 % 14800 iydn moveto LAB'*axF cvsshow1 % 15500 iydn moveto LAB'*bxF cvsshow1 % 16200 iydn moveto LAB'*CxF cvsshow1 % 16900 iydn moveto LAB'*hxF cvsshow1 % 17600 iydn moveto DE'* cvsshow1 12200 iydn moveto c4*xF cvsshow3 13100 iydn moveto m4*xF cvsshow3 14000 iydn moveto y4*xF cvsshow3 14900 iydn moveto n4*xF cvsshow3 } if %colorm=1 18300 iydn moveto hsi_xM cvishow 19000 iydn moveto r*xM cvsshow3 19600 iydn moveto g*xM cvsshow3 20200 iydn moveto b*xM cvsshow3 20900 iydn moveto LAB*LxM cvsshow1 21600 iydn moveto LAB*axM cvsshow1 22300 iydn moveto LAB*bxM cvsshow1 23000 iydn moveto LAB*CxM cvsshow1 23700 iydn moveto LAB*hxM cvsshow1 } for %n=n1,n2 n2 57 eq n2 53 eq or n2 80 ge or {%n2=57,53,80,161,...,971,1079 /iydn iymax n 1 add n1 sub nx add iyd mul sub def 12500 iydn moveto lanind 1 eq {(Mean color difference of this page:) bshow} if %lanind 0 eq {(Mitttlere Farbdifferenz dieser Seite: ) bshow} if 16600 iydn moveto (delta ) bshow colorm 0 eq {(E*' =) jshow} if % {(E'* =) jshow} ifelse () bshow colorm 0 eq {%colorm=0 17600 iydn moveto SUMDE*' n2 n1 sub 1 add div cvsshow1 }%colorm=0 {%colorm=1 % 17600 iydn moveto SUMDE'* n2 n1 sub 1 add div cvsshow1 } ifelse %colorm=1 } if %n2=57,53,80,161,...,971,1079 } if %END xchart>xchart3PXX %************************************************************* %%Trailer %%EndDocument EndEPSF grestore gsave showpage grestore %} for %colsepf=0,1 %} for %pchartf=0,0 %} for %xchartf=0,18 %} for %xcolorf=3,3 %} for %deintpf=0,1 %} for %colormf=0,1 %} for %lanindf=0,0 %%Trailer