あー、刻みは100になってますけど、
bremen_rg中のprintindex関数の、161−162行目の
＞ if($sco > 2000){ $scostr= "./bar/20.gif";}
＞ else{ $scostr= sprintf("./bar/%02d.gif",$sco/100);}
の2000、と100の数字をいじったら
それぞれ2倍かなぁ、、携帯のほうは189行目の
＞ my(@thr) = (150,500,1000,1500,2000);
で、、