Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Re: -tk Moving circle

by Samy_rio (Vicar)
on Feb 27, 2007 at 09:42 UTC ( #602274=note: print w/ replies, xml ) Need Help??


in reply to -tk Moving circle

Hi tamaguchi, try like this,

use strict; use warnings; use Tk; my $top = MainWindow->new(); my $canvas = $top->Canvas(width=>300, height=>245, background=>'blue') +->pack(); my $origin_x=110; my $origin_y=70; my $PI=3.141592635; my $circle_radius=5; my $path_radius=0; for (my $angle=0; $angle<=180; $path_radius+=7, $circle_radius+=3, $an +gle+=10) { my $path_x=$origin_x+$path_radius*cos($angle*$PI/90); my $path_y=$origin_y-$path_radius*sin($angle*$PI/90); $canvas->createOval($path_x-$circle_radius, $path_y-$circle_radius, $path_x+$circle_radius, $path_y+$circle_radius, -fill=>'yellow'); $canvas->update(); sleep(1); } MainLoop();

I got this code in perlmonks only.

Regards,
Velusamy R.


eval"print uc\"\\c$_\""for split'','j)@,/6%@0%2,`e@3!-9v2)/@|6%,53!-9@2~j';

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://602274]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (5)
As of 2016-06-25 10:20 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My preferred method of making French fries (chips) is in a ...











    Results (323 votes). Check out past polls.