KuntalBhusan has asked for the wisdom of the Perl Monks concerning the following question:
Dear Monks,
I want to draw two curved arrows joining two nodes of a graph in the Tk Canvas. The method provided are :
As you can see the two lines $id1 and $id2 gets superimposed one over the other. I want two make them as curved lines. I tried with the createArc method but it has two problems : 1) It does not allow to attach an arrowhead 2) It creates circles only...I just want the two lines to see a bit separated on the either sides as small curved lines. Seeking for the monks help....use Tk; my $mw = new MainWindow(-title => 'Test'); my $canvas = $mw->Canvas(-width => 512, -height => 512)->pack; $id1 = $canvas->createLine(60,60, 400,400,-arrow => "first",-arrowshap +e => [ 20, 20, 20]); $id2 = $canvas->createLine(60,60, 400,400,-arrow => "last",-arrowshape + => [ 20, 20, 20]); MainLoop;
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: How to draw a curved arrow in perl Tk canvas ?
by choroba (Cardinal) on Jul 30, 2012 at 13:43 UTC | |
Re: How to draw a curved arrow in perl Tk canvas ?
by BrowserUk (Patriarch) on Jul 30, 2012 at 13:43 UTC | |
by KuntalBhusan (Acolyte) on Jul 30, 2012 at 14:18 UTC | |
by BrowserUk (Patriarch) on Jul 31, 2012 at 11:13 UTC | |
by KuntalBhusan (Acolyte) on Aug 01, 2012 at 10:46 UTC | |
by BrowserUk (Patriarch) on Aug 01, 2012 at 12:23 UTC | |
| |
Re: How to draw a curved arrow in perl Tk canvas ?
by zentara (Archbishop) on Jul 30, 2012 at 19:39 UTC |
Back to
Seekers of Perl Wisdom