Re^6: How to draw a curved arrow in perl Tk canvas ?

in reply to Re^5: How to draw a curved arrow in perl Tk canvas ?
in thread How to draw a curved arrow in perl Tk canvas ?

Not actually...I wanted using the createLine....but indeed it was simple..I figured it out just after posting :)


my ($x1,$y1);
my $r = 50; # radius
my @new_coords = ($x1,$x2,$x1-$r,$x2+$r,$x1,$x2+(2*$r),$x1+$r,$x2+$r,$
+x1,$x2+8); 
$id = $can->createLine(@new_coords);
[download]

Thanks for the help anyways...

Comment on Re^6: How to draw a curved arrow in perl Tk canvas ? Download Code

In Section Seekers of Perl Wisdom