求助：帮看一下语句

skycreative

情况描述：
我用的平台是Windows XP sp2
activeperl 5.8.8 biuld 820
用的包是SVG　2.37
对于我要实现的功能是画一堆连续的小旗子和粗箭头
小旗子没有问题。
画箭头却怎么都不行，我自己比对代码觉得差别不大，哪位朋友可以指点一下。
我在线等
+++++++正常执行的代码+++++++++
for my $MutKey (sort keys %muts){
                                        my $t1=62+$muts{$MutKey}*900/10000;
                                        my $tx=$t1+30;
                                        my $t2=85;
                                        my $t3=60;
                                        my $xv=[$t1,$t1,$tx];
                                        my $yv=[$t3,$t2,$t2];   
                                        my $points=$y->get_path(
                                                x=>$xv,y=>$yv,
                                                -type=>'polygon'
                                        );
                                        $y->polygon(
                                                %$points,
                                                id=>qq(tri).$MutKey                                             
                                        );
                                        $y->line(
                                                   id=>qq(line).$MutKey,
                                                    x1=>$t1, y1=>85,
                                                    x2=>$t1, y2=>120
                                        );
}
现在保留正常可执行的代码部分，如果能为CU的朋友提供一点点帮助将是我的荣幸

[ 本帖最后由 skycreative 于 2008-9-19 21:27 编辑 ]

skycreative

已经解决，我设的参数有问题