1# ==================================================================== 2# Copyright (c) 2000-2001 by Soheil Seyfaie. All rights reserved. 3# This program is free software; you can redistribute it and/or modify 4# it under the same terms as Perl itself. 5# ==================================================================== 6 7# $Author$ 8# $Id$ 9 10package SWF::Morph; 11use SWF (); 12 13$SWF::Morph::VERSION = $SWF::VERSION; 14 15sub getShapes{ 16 my $self = shift; 17 return ($self->getShape1(), $self->getShape2()); 18} 19 201; 21 22__END__ 23 24=head1 NAME 25 26SWF::Morph - SWF Morph Class 27 28=head1 SYNOPSIS 29 30 use SWF::Morph; 31 my $morph = new SWF::Morph(); 32 33=head1 DESCRIPTION 34 35SWF::Morph twist from one shape to another. 36 37=head1 METHODS 38 39=over 4 40 41=item new SWF::Morph(); 42 43Returns an SWF::Morph object. 44 45=item ($shape1, $shape2) = $morph->getShapes(); 46 47Returns two SWF::Shape objects. The first one (shape1) is the morph's starting shape while shape2 is its final shape. You may also use "getShape1()" and "getShape2()" methods to get a handle of these shapes. 48 49=item $shape1 = $morph->getShape1(); 50 51Returns the morph's starting shape. 52 53=item $shape2 = $morph->getShape2(); 54 55Returns the morph's final shape. 56 57=back 58 59=head1 AUTHOR 60 61Soheil Seyfaie (soheil@netcom.ca). 62 63=head1 SEE ALSO 64 65SWF, SWF::DisplayItem, SWF::Shape, SWF::Movie, SWF::MovieClip 66 67=cut 68