Perl Graphics Programming by Shawn Wallace

Author:Shawn Wallace
Language: eng
Format: mobi, epub, pdf
Tags: COMPUTERS / Programming Languages / JavaScript
ISBN: 9781449358303
Publisher: O'Reilly Media
Published: 2012-09-26T21:00:00+00:00

# Place a grid of squares on the stage and store the reference to each DisplayItem

foreach my $i (0..$grid-1) {

foreach my $j (0..$grid-1) {

my $item = $m->add($s);

$item->moveTo($i*100, $j*100);

push @displayList, $item;

}

}

# Now create 30 frames; in each frame, move each square

# 1/30th of the way toward the center of the grid, and rotate

# the square 360/30 degrees. Then repeat the same thing in the

# opposite direction, ending up where we started.

my $frames = 30;

my ($cx, $cy) = ($w/2, $h/2);

foreach my $direction (1, −1) { # 1 =in, −1 = out

foreach my $f (1..$frames) {

foreach my $i (0..$grid-1) {

foreach my $j (0..$grid-1) {

$displayList[$i*$grid+$j]->move(

$direction*(int($cx-$i*100)/$frames),

$direction*(int($cy-$j*100)/$frames));

$displayList[$i*$grid+$j]->rotate(360/$frames);

}

}

$m->nextFrame( );

}

}

Download

Copyright Disclaimer:
This site does not store any files on its server. We only index and link to content provided by other sites. Please contact the content providers to delete copyright contents if any and email us, we'll remove relevant links or contents immediately.