![[BACK]](/icons/back.gif){kind=icon}
Return to randomlylabel.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework|
Return to randomlylabel.pm CVS log | Up to [LON-CAPA] / loncom / homework |
| version 1.13, 2004/01/09 23:22:19 | version 1.14, 2004/01/12 19:53:54 |
|---|---|
| Line 131 sub handler { | Line 131 sub handler { |
| my ($x,$y)=($coord=~m/\(([0-9]+),([0-9]+)\)/); | my ($x,$y)=($coord=~m/\(([0-9]+),([0-9]+)\)/); |
| $polygon->addPt($x,$y); | $polygon->addPt($x,$y); |
| } | } |
| $image->setThickness($width); | |
| if ($open) { | if ($open) { |
| $image->polydraw($polygon,$imcolor); | $image->polydraw($polygon,$imcolor); |
| } else { | } else { |