;#-------------------------------------------------------------------- ;# pgifnum.pl: 数値画像表示ライブラリ Ver1.00 ;# ;# 注意事項 ;# ;# 利用できるパラメータ ;# &gifnum('STRINGTH','SIZE','TEXT_COLOR','BK_COLOR'); ;# STRINGTH: 画像化したい数値・記号 ;# 画像化できる数値は 0,1,2,3,4,5,6,7,8,9,.(ドット),:(コロン),-(ハイフン),/(スラッシュ),a,p ;# 但し、a は am , p は pm に置きかえられる ;# SIZE: 数値の大きさ SR,MR,MB,LR,LB のどれかを指定 ;# SR(Terminal Font 6point Regular相当、画像高さ9px) ;# MR(Terminal Font 10point Regular相当、画像高さ11px) ;# MB(Terminal Font 10point Bold相当、画像高さ11px) ;# LR(Terminal Font 14point Regular相当、画像高さ15px) ;# LB(Terminal Font 14point Bold相当、画像高さ15px) ;# TEXT_COLOR: 数値色 RRGGBB形式で指定 ;# RR（赤成分 00-ff） ;# GG（緑成分 00-ff) ;# BB（青成分 00-ff） ;# BK_COLOR: 背景色 RRGGBB形式で指定 ;# RR（赤成分 00-ff） ;# GG（緑成分 00-ff) ;# BB（青成分 00-ff） ;# ;# 基本的な使い方 ;# require "pgifnum.pl"; ;# binmode(STDOUT); # MS-DOS や Windows の場合に必要です。 ;# print "Content-type: image/gif\n\n"; ;# print &gifnum("200.02.01","LR","000000","ffffff"); ;#-------------------------------------------------------------------- ;# 更新履歴 ;# 2000.04.01 ver1.00 作成 ;#-------------------------------------------------------------------- sub gifnum{ local($GDT_CHAR,$SIZE,$NUM_COLOR,$BK_COLOR)=@_; local($GDT_LSD,$GDT_GCE,$GDT_TBI,$GDT_SUM,$GDT_BUF,$GDT_i,$GDT_j); local($GDT_LSW,$GDT_LSH,$GDT_ILP,$GDT_ITP); local(@GDT_CHAR,@GDT_BUF1,@GDT_BUF2,%GDT_DATA); unless($SIZE){$SIZE='sr';} unless($NUM_COLOR){$NUM_COLOR='000000';} unless($BK_COLOR){$BK_COLOR='ffffff';$TCF=0;} else{$TCF=1;} $NUM_COLOR=~m/(..)(..)(..)/;$NUM_R=hex("0x$1");$NUM_G=hex("0x$2");$NUM_B=hex("0x$3"); $BK_COLOR=~m/(..)(..)(..)/;$BK_R=hex("0x$1");$BK_G=hex("0x$2");$BK_B=hex("0x$3"); $GDT_DATA{'sr_MAX_WIDTH'}=11; $GDT_DATA{'sr_MAX_HEIGHT'}=9; $GDT_DATA{'sr_LOGCAL_SCREEN_DESCRIPTOR'}="128,0,0,$NUM_R,$NUM_G,$NUM_B,$BK_R,$BK_G,$BK_B"; $GDT_DATA{'sr_0'}='33,249,4,1,0,0,1,0,44,0,0,0,0,6,0,9,0,0,2, 12,140,111,0,183,209,159,162,147,48,53,100,10,0'; $GDT_DATA{'sr_1'}='33,249,4,1,0,0,1,0,44,0,0,0,0,5,0,9,0,0,2, 11,140,31,112,160,139,109,96,90,12,153,2,0'; $GDT_DATA{'sr_2'}='33,249,4,1,0,0,1,0,44,0,0,0,0,6,0,9,0,0,2,12, 140,111,0,183,209,140,158,139,200,41,121,10,0'; $GDT_DATA{'sr_3'}='33,249,4,1,0,0,1,0,44,0,0,0,0,6,0,9,0,0,2, 12,140,111,0,183,209,204,30,116,41,34,84,0,0'; $GDT_DATA{'sr_4'}='33,249,4,1,0,0,1,0,44,0,0,0,0,6,0,9,0,0,2, 12,140,127,128,160,217,161,94,116,108,33,84,0,0'; $GDT_DATA{'sr_5'}='33,249,4,1,0,0,1,0,44,0,0,0,0,6,0,9,0,0,2, 12,140,31,160,96,140,126,22,106,211,201,105,10,0'; $GDT_DATA{'sr_6'}='33,249,4,1,0,0,1,0,44,0,0,0,0,6,0,9,0,0,2, 12,140,111,0,183,209,205,20,75,212,69,132,10,0'; $GDT_DATA{'sr_7'}='33,249,4,1,0,0,1,0,44,0,0,0,0,6,0,9,0,0,2, 12,140,31,160,96,156,248,142,107,112,82,120,10,0'; $GDT_DATA{'sr_8'}='33,249,4,1,0,0,1,0,44,0,0,0,0,6,0,9,0,0,2, 13,140,111,0,183,209,207,154,75,116,38,137,66,1,0'; $GDT_DATA{'sr_9'}='33,249,4,1,0,0,1,0,44,0,0,0,0,6,0,9,0,0,2,13, 140,111,0,183,209,207,20,114,169,166,54,67,1,0'; $GDT_DATA{'sr_a'}='33,249,4,1,0,0,1,0,44,0,0,0,0,11,0,9,0,0,2, 20,140,143,7,96,28,14,223,138,79,174,134,233,100,58,227,90,81,73,82,0,0'; $GDT_DATA{'sr_p'}='33,249,4,1,0,0,1,0,44,0,0,0,0,11,0,9,0,0,2, 19,140,143,6,171,29,208,22,123,81,170,9,169,118,57,115,247,37,98,1,0'; $GDT_DATA{'sr_c'}='33,249,4,1,0,0,1,0,44,0,0,0,0,3,0,9,0,0,2, 6,140,31,128,107,202,5,0'; $GDT_DATA{'sr_d'}='33,249,4,1,0,0,1,0,44,0,0,0,0,3,0,9,0,0,2, 5,140,143,169,1,88,0'; $GDT_DATA{'sr_h'}='33,249,4,1,0,0,1,0,44,0,0,0,0,6,0,9,0,0,2, 8,140,143,169,8,13,11,99,40,0'; $GDT_DATA{'sr_s'}='33,249,4,1,0,0,1,0,44,0,0,0,0,6,0,9,0,0,2, 10,140,143,128,161,215,158,214,99,107,21,0'; $GDT_DATA{'mr_MAX_WIDTH'}=13; $GDT_DATA{'mr_MAX_HEIGHT'}=11; $GDT_DATA{'mr_LOGCAL_SCREEN_DESCRIPTOR'}="128,0,0,$NUM_R,$NUM_G,$NUM_B,$BK_R,$BK_G,$BK_B"; $GDT_DATA{'mr_0'}="33,249,4,1,0,0,1,0,44,0,0,0,0,6,0,11,0,0,2, 14,140,111,0,183,209,159,162,147,112,218,234,26,50,5,0"; $GDT_DATA{'mr_1'}='33,249,4,1,0,0,1,0,44,0,0,0,0,6,0,11,0,0,2, 13,140,127,128,160,139,209,210,139,134,194,249,78,1,0'; $GDT_DATA{'mr_2'}='33,249,4,1,0,0,1,0,44,0,0,0,0,6,0,11,0,0,2, 14,140,111,0,183,209,143,28,106,41,82,57,213,61,5,0'; $GDT_DATA{'mr_3'}='33,249,4,1,0,0,1,0,44,0,0,0,0,6,0,11,0,0,2, 14,140,111,0,183,209,143,28,107,8,202,75,85,60,5,0'; $GDT_DATA{'mr_4'}='33,249,4,1,0,0,1,0,44,0,0,0,0,6,0,11,0,0,2, 15,140,143,144,122,192,161,94,52,172,58,151,16,212,166,0,0'; $GDT_DATA{'mr_5'}='33,249,4,1,0,0,1,0,44,0,0,0,0,6,0,11,0,0,2, 15,140,31,160,96,140,126,86,108,40,81,139,161,170,167,0,0'; $GDT_DATA{'mr_6'}='33,249,4,1,0,0,1,0,44,0,0,0,0,6,0,11,0,0,2, 15,140,111,0,183,209,159,144,83,44,58,11,83,147,161,0,0'; $GDT_DATA{'mr_7'}='33,249,4,1,0,0,1,0,44,0,0,0,0,6,0,11,0,0,2, 13,140,31,160,128,217,124,96,124,72,26,235,218,41,0'; $GDT_DATA{'mr_8'}='33,249,4,1,0,0,1,0,44,0,0,0,0,6,0,11,0,0,2, 15,140,111,0,183,209,159,98,106,78,194,138,29,69,161,0,0'; $GDT_DATA{'mr_9'}='33,249,4,1,0,0,1,0,44,0,0,0,0,6,0,11,0,0,2, 14,140,111,0,183,209,159,98,82,200,73,104,103,61,5,0'; $GDT_DATA{'mr_a'}='33,249,4,1,0,0,1,0,44,0,0,0,0,13,0,11,0,0,2, 28,140,143,25,112,108,254,154,140,14,48,43,235,133,247,237,72,45,226,98,97,93,149,137,104,216,41,110,1,0'; $GDT_DATA{'mr_p'}='33,249,4,1,0,0,1,0,44,0,0,0,0,13,0,11,0,0,2, 29,140,143,8,11,214,14,225,11,111,182,69,235,185,220,49,159,69,27,69,150,227,37,74,229,164,178,73,82,0,0'; $GDT_DATA{'mr_c'}='33,249,4,1,0,0,1,0,44,0,0,0,0,4,0,11,0,0,2, 10,140,127,0,166,232,222,66,124,161,0,0'; $GDT_DATA{'mr_d'}='33,249,4,1,0,0,1,0,44,0,0,0,0,4,0,11,0,0,2, 8,140,143,169,155,0,230,82,1,0'; $GDT_DATA{'mr_h'}='33,249,4,1,0,0,1,0,44,0,0,0,0,6,0,11,0,0,2, 9,140,143,169,123,224,192,162,68,5,0'; $GDT_DATA{'mr_s'}='33,249,4,1,0,0,1,0,44,0,0,0,0,7,0,11,0,0,2, 13,140,13,119,169,220,26,220,130,17,74,100,233,45,0'; $GDT_DATA{'mb_MAX_WIDTH'}=15; $GDT_DATA{'mb_MAX_HEIGHT'}=11; $GDT_DATA{'mb_LOGCAL_SCREEN_DESCRIPTOR'}="128,0,0,$NUM_R,$NUM_G,$NUM_B,$BK_R,$BK_G,$BK_B"; $GDT_DATA{'mb_0'}='33,249,4,1,0,0,1,0,44,0,0,0,0,7,0,11,0,0,2, 16,140,127,160,9,177,222,222,146,177,193,123,41,134,22,157,2,0'; $GDT_DATA{'mb_1'}='33,249,4,1,0,0,1,0,44,0,0,0,0,7,0,11,0,0,2, 14,140,143,0,169,24,205,28,60,211,212,183,162,59,5,0'; $GDT_DATA{'mb_2'}='33,249,4,1,0,0,1,0,44,0,0,0,0,7,0,11,0,0,2, 15,140,127,160,9,177,222,30,67,18,34,59,169,170,168,0,0'; $GDT_DATA{'mb_3'}='33,249,4,1,0,0,1,0,44,0,0,0,0,7,0,11,0,0,2, 17,140,127,160,9,177,222,30,99,13,65,179,94,174,144,219,80,0,0'; $GDT_DATA{'mb_4'}='33,249,4,1,0,0,1,0,44,0,0,0,0,7,0,11,0,0,2, 17,140,143,1,128,203,231,96,52,238,45,101,235,163,155,167,83,0,0'; $GDT_DATA{'mb_5'}='33,249,4,1,0,0,1,0,44,0,0,0,0,7,0,11,0,0,2, 17,140,111,160,154,128,193,208,114,13,210,19,89,118,209,222,23,20,0'; $GDT_DATA{'mb_6'}='33,249,4,1,0,0,1,0,44,0,0,0,0,7,0,11,0,0,2, 17,140,127,160,9,177,222,222,99,115,201,216,160,54,42,163,83,0,0'; $GDT_DATA{'mb_7'}='33,249,4,1,0,0,1,0,44,0,0,0,0,7,0,11,0,0,2, 15,140,111,160,138,193,248,18,104,81,194,121,41,110,167,0,0'; $GDT_DATA{'mb_8'}='33,249,4,1,0,0,1,0,44,0,0,0,0,7,0,11,0,0,2, 17,140,127,160,9,177,222,222,122,176,153,105,241,141,182,162,95,0,0'; $GDT_DATA{'mb_9'}='33,249,4,1,0,0,1,0,44,0,0,0,0,7,0,11,0,0,2, 17,140,127,160,9,177,222,222,122,144,26,25,27,220,215,162,80,0,0'; $GDT_DATA{'mb_a'}='33,249,4,1,0,0,1,0,44,0,0,0,0,15,0,11,0,0,2, 30,140,143,121,0,219,193,80,52,115,66,246,48,118,85,191,219,105,84,214,120,164,104,142,106,122,173,158,2,31,5,0'; $GDT_DATA{'mb_p'}='33,249,4,1,0,0,1,0,44,0,0,0,0,15,0,11,0,0,2, 30,140,143,25,192,108,190,192,147,177,90,232,90,155,92,99,61,129,214,225,81,16,233,113,72,169,162,162,2,7,5,0'; $GDT_DATA{'mb_c'}='33,249,4,1,0,0,1,0,44,0,0,0,0,5,0,11,0,0,2, 11,140,143,1,107,11,9,161,107,44,158,2,0'; $GDT_DATA{'mb_d'}='33,249,4,1,0,0,1,0,44,0,0,0,0,5,0,11,0,0,2, 9,140,143,169,203,9,111,30,80,5,0'; $GDT_DATA{'mb_h'}='33,249,4,1,0,0,1,0,44,0,0,0,0,7,0,11,0,0,2, 11,140,143,169,27,224,110,30,100,180,178,2,0'; $GDT_DATA{'mb_s'}='33,249,4,1,0,0,1,0,44,0,0,0,0,8,0,11,0,0,2, 17,140,13,112,151,27,237,32,83,145,46,137,236,172,238,233,80,0,0'; $GDT_DATA{'lr_MAX_WIDTH'}=17; $GDT_DATA{'lr_MAX_HEIGHT'}=15; $GDT_DATA{'lr_LOGCAL_SCREEN_DESCRIPTOR'}="128,0,0,$NUM_R,$NUM_G,$NUM_B,$BK_R,$BK_G,$BK_B"; $GDT_DATA{'lr_0'}='33,249,4,1,0,0,1,0,44,0,0,0,0,8,0,15,0,0,2, 22,140,143,1,144,172,231,140,139,175,202,11,49,166,19,245,108,89,31,68,37,70,1,0'; $GDT_DATA{'lr_1'}='33,249,4,1,0,0,1,0,44,0,0,0,0,8,0,15,0,0,2, 18,140,143,6,9,157,250,194,122,147,197,138,240,209,144,222,31,29,5,0'; $GDT_DATA{'lr_2'}='33,249,4,1,0,0,1,0,44,0,0,0,0,8,0,15,0,0,2, 20,140,143,1,144,172,231,140,139,47,85,68,161,205,23,239,191,45,162,117,20,0'; $GDT_DATA{'lr_3'}='33,249,4,1,0,0,1,0,44,0,0,0,0,8,0,15,0,0,2, 21,140,143,1,144,172,231,140,139,47,85,68,85,134,86,122,126,93,83,179,37,5,0'; $GDT_DATA{'lr_4'}='33,249,4,1,0,0,1,0,44,0,0,0,0,8,0,15,0,0,2, 21,140,143,7,105,155,224,16,124,33,182,42,175,210,152,195,111,113,25,19,38,5,0'; $GDT_DATA{'lr_5'}='33,249,4,1,0,0,1,0,44,0,0,0,0,8,0,15,0,0,2, 22,140,127,160,107,128,249,90,12,78,33,75,161,126,46,118,46,109,221,215,144,83,1,0'; $GDT_DATA{'lr_6'}='33,249,4,1,0,0,1,0,44,0,0,0,0,8,0,15,0,0,2, 23,140,143,1,144,172,231,140,139,175,54,69,151,132,104,246,205,89,150,215,81,137,81,0,0'; $GDT_DATA{'lr_7'}='33,249,4,1,0,0,1,0,44,0,0,0,0,8,0,15,0,0,2, 18,140,127,160,139,217,6,94,148,47,76,116,113,205,112,123,90,33,5,0'; $GDT_DATA{'lr_8'}='33,249,4,1,0,0,1,0,44,0,0,0,0,8,0,15,0,0,2, 23,140,143,1,144,172,231,140,139,175,74,120,209,106,217,86,58,105,152,167,80,137,81,0,0'; $GDT_DATA{'lr_9'}='33,249,4,1,0,0,1,0,44,0,0,0,0,8,0,15,0,0,2, 23,140,143,1,144,172,231,140,139,175,202,11,179,162,203,162,249,97,34,248,81,137,81,0,0'; $GDT_DATA{'lr_a'}='33,249,4,1,0,0,1,0,44,0,0,0,0,17,0,15,0,0,2, 43,140,143,169,128,220,233,76,148,47,2,59,25,62,183,242,205,5,160,104,133,226,169,153,39,202,82,110,154,74,87,199,198,83,235,228,208,170,175,97,127,83,8,11,0'; $GDT_DATA{'lr_p'}='33,249,4,1,0,0,1,0,44,0,0,0,0,17,0,15,0,0,2, 45,140,143,121,192,188,9,76,124,97,82,43,171,117,21,234,53,97,29,247,117,215,22,54,219,104,138,89,4,103,74,28,155,30,45,123,109,142,132,178,187,179,41,134,134,2,0'; $GDT_DATA{'lr_c'}='33,249,4,1,0,0,1,0,44,0,0,0,0,4,0,15,0,0,2, 11,140,143,7,96,155,15,145,11,51,158,2,0'; $GDT_DATA{'lr_d'}='33,249,4,1,0,0,1,0,44,0,0,0,0,4,0,15,0,0,2, 9,140,143,169,203,141,0,12,76,5,0'; $GDT_DATA{'lr_h'}='33,249,4,1,0,0,1,0,44,0,0,0,0,7,0,15,0,0,2, 11,140,143,169,203,157,0,161,155,180,162,2,0'; $GDT_DATA{'lr_s'}='33,249,4,1,0,0,1,0,44,0,0,0,0,10,0,15,0,0,2, 17,140,143,121,160,219,193,94,84,147,202,139,109,78,149,191,95,0,0'; $GDT_DATA{'lb_MAX_WIDTH'}=19; $GDT_DATA{'lb_MAX_HEIGHT'}=15; $GDT_DATA{'lb_LOGCAL_SCREEN_DESCRIPTOR'}="128,0,0,$NUM_R,$NUM_G,$NUM_B,$BK_R,$BK_G,$BK_B"; $GDT_DATA{'lb_0'}='33,249,4,1,0,0,1,0,44,0,0,0,0,9,0,15,0,0,2, 24,140,143,6,155,204,10,206,123,97,70,136,51,181,242,110,127,85,96,71,82,80,152,32,5,0'; $GDT_DATA{'lb_1'}='33,249,4,1,0,0,1,0,44,0,0,0,0,9,0,15,0,0,2, 21,140,143,7,144,187,105,30,148,141,77,91,97,160,136,43,220,129,159,230,105,5,0'; $GDT_DATA{'lb_2'}='33,249,4,1,0,0,1,0,44,0,0,0,0,9,0,15,0,0,2, 24,140,143,6,155,204,10,206,123,129,34,11,83,110,145,235,218,93,161,52,146,203,249,29,5,0'; $GDT_DATA{'lb_3'}='33,249,4,1,0,0,1,0,44,0,0,0,0,9,0,15,0,0,2, 24,140,143,6,155,204,10,206,123,129,34,11,27,150,49,229,218,129,159,152,97,75,232,29,5,0'; $GDT_DATA{'lb_4'}='33,249,4,1,0,0,1,0,44,0,0,0,0,9,0,15,0,0,2, 25,140,143,8,144,182,189,88,138,147,42,235,216,59,111,135,237,69,34,36,85,205,87,158,65,1,0'; $GDT_DATA{'lb_5'}='33,249,4,1,0,0,1,0,44,0,0,0,0,9,0,15,0,0,2, 24,140,143,160,11,166,120,30,12,18,178,22,95,221,216,246,244,101,78,199,81,225,50,77,5,0'; $GDT_DATA{'lb_6'}='33,249,4,1,0,0,1,0,44,0,0,0,0,9,0,15,0,0,2, 26,140,143,6,155,204,10,206,123,97,198,84,23,205,145,250,251,65,18,120,101,163,137,104,24,86,0,0'; $GDT_DATA{'lb_7'}='33,249,4,1,0,0,1,0,44,0,0,0,0,9,0,15,0,0,2, 23,140,143,160,11,120,234,12,116,147,182,88,223,181,49,100,185,37,161,214,125,93,80,0,0'; $GDT_DATA{'lb_8'}='33,249,4,1,0,0,1,0,44,0,0,0,0,9,0,15,0,0,2, 25,140,143,6,155,204,10,206,123,97,70,40,35,133,55,215,78,89,222,55,146,219,215,37,72,1,0'; $GDT_DATA{'lb_9'}='33,249,4,1,0,0,1,0,44,0,0,0,0,9,0,15,0,0,2, 25,140,143,6,155,204,10,206,123,97,70,136,115,141,235,194,158,100,148,37,121,142,247,133,97,1,0'; $GDT_DATA{'lb_a'}='33,249,4,1,0,0,1,0,44,0,0,0,0,19,0,15,0,0,2, 49,140,143,169,6,128,253,92,156,7,214,38,3,102,150,247,173,117,225,103,129,94,6,154,165,132,181,40,11,187,47,119,182,151,61,186,244,21,246,235,4,9,194,128,14,225,226,152,40,0,0'; $GDT_DATA{'lb_p'}='33,249,4,1,0,0,1,0,44,0,0,0,0,19,0,15,0,0,2, 49,140,143,153,192,125,140,96,144,19,24,90,175,125,214,213,141,65,222,184,105,159,6,150,18,153,54,170,75,42,31,108,42,112,108,223,169,44,118,123,158,89,149,34,190,140,236,136,40,0,0'; $GDT_DATA{'lb_c'}='33,249,4,1,0,0,1,0,44,0,0,0,0,5,0,15,0,0,2, 12,140,143,25,192,198,160,162,84,207,181,169,10,0'; $GDT_DATA{'lb_d'}='33,249,4,1,0,0,1,0,44,0,0,0,0,5,0,15,0,0,2, 10,140,143,169,203,237,10,162,137,64,21,0'; $GDT_DATA{'lb_h'}='33,249,4,1,0,0,1,0,44,0,0,0,0,8,0,15,0,0,2, 13,140,143,169,203,237,6,162,132,50,190,139,113,1,0'; $GDT_DATA{'lb_s'}='33,249,4,1,0,0,1,0,44,0,0,0,0,10,0,15,0,64,2, 21,140,143,7,144,189,202,154,124,137,66,137,177,69,251,186,88,129,156,232,37,5,0'; $KEY=$SIZE.'_LOGCAL_SCREEN_DESCRIPTOR'; @GDT_BUF1=split(/,/,$GDT_DATA{"$KEY"}); foreach $GDT_i (@GDT_BUF1){$GDT_LSD.=pack("C",$GDT_i);} $KEY=$SIZE.'_MAX_HEIGHT'; $GDT_LSH=$GDT_DATA{"$KEY"}; $GDT_LSW=0; $GDT_ILP=0; $GDT_ITP=0; @GDT_CHAR=split(//,$GDT_CHAR); foreach $GDT_i (@GDT_CHAR){ if($GDT_i eq ':'){$GDT_i='c';} if($GDT_i eq '.'){$GDT_i='d';} if($GDT_i eq '-'){$GDT_i='h';} if($GDT_i eq '/'){$GDT_i='s';} $GDT_BUF=''; @GDT_BUF2=split(/,/,$GDT_DATA{$SIZE.'_'.$GDT_i}); if($TCF){$GDT_BUF2[3]=0;} $GDT_LSW+=$GDT_BUF2[14]*100+$GDT_BUF2[13]; $GDT_ILP=$GDT_LSW-($GDT_BUF2[14]*100+$GDT_BUF2[13]); $GDT_ITP=$GDT_DATA{$SIZE.'_MAX_HEIGHT'}-($GDT_BUF2[16]*100+$GDT_BUF2[15]); foreach $GDT_j (@GDT_BUF2){$GDT_BUF.=pack("C",$GDT_j);} $GDT_GCE =substr($GDT_BUF,0,8); $GDT_TBI =pack("C",0x2c); $GDT_TBI.=pack("CC",$GDT_ILP & 0x00ff,($GDT_ILP & 0xff00)>>8); $GDT_TBI.=pack("CC",$GDT_ITP & 0x00ff,($GDT_ITP & 0xff00)>>8); $GDT_TBI.=substr($GDT_BUF,13,length($GDT_BUF)-1); $GDT_SUM.=$GDT_GCE . $GDT_TBI; } $GDT_LSW=pack("CC",$GDT_LSW & 0x00ff,($GDT_LSW & 0xff00)>>8); $GDT_LSH=pack("CC",$GDT_LSH & 0x00ff,($GDT_LSH & 0xff00)>>8); $gdt='GIF89a' . $GDT_LSW . $GDT_LSH . $GDT_LSD . $GDT_SUM . pack("C",0x3b); return $gdt; } 1;