LISCOVIUS / SWF-0.4.0-beta6_1 / examples / animation.cgi 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118

              
#!/usr/bin/perl -w
use strict;
#use lib("/home/peter/ming3/lib/perl5/site_perl");
use SWF qw(:ALL);
$|=1;
SWF::setScale(1);
# where are the fontfiles?
my $dir = '../common/';
my $font= '_sans.fdb';
my $string = "ming!";
my $loc = {};
my $i1 = { r      => 0xff, 
           g      => 0x33, 
           b      => 0x33, 
           a      => 0xff, 
           rot    => 900, 
           x      => 1200, 
           y      => 800,
           scale  => 0.03, 
           string => $string,
          };
my $i2 = { r      => 0x00, 
           g      => 0x33,
           b      => 0xff, 
           a      => 0x7f, 
           rot    => -560, 
           x      => 1200, 
           y      => 800,
           scale  => 0.04, 
           string => $string,
          };
my $i3 = { r      => 0xff, 
           g      => 0xff,
           b      => 0xff, 
           a      => 0x9f, 
           rot    => 180, 
           x      => 1200, 
           y      => 800,
           scale  => 0.001, 
           string => $string,
          };
my  $f = new SWF::Font($dir.$font);
my $m = new SWF::Movie();
$m->setRate(24.0);
$m->setDimension(2400, 1600);
$m->setBackground(0xff, 0xff, 0x0);
sub text{
    my $j = shift;
    my $t = new SWF::Text();
    $t->setFont($f);
    $t->setColor($j->{r}, $j->{g}, $j->{b}, $j->{a});
    $t->setHeight(960);
    $t->moveTo(-($t->getWidth($string))/2, 220); 
    $t->addString($string);
    my $i = $m->add($t);
    $j->{x} = $j->{x};
    $j->{y} = $j->{y};
    $j->{rot} = $j->{rot};
    $j->{s} = $j->{scale};
    $i->rotateTo($j->{rot});
    $i->scale($j->{scale}, $j->{scale});
    $j->{item} = $i;
    return $j;
}
sub step{
    my $j = shift;
    my $oldrot = $j->{rot};
    $j->{rot} = 19*($j->{rot})/20;
    $j->{x} = (19*$j->{x} + 1200)/20;
    $j->{y} = (19*$j->{y} + 800)/20;
    $j->{s} = (19*$j->{s} + 1.0)/20;
    my $i = $j->{item};
    $i->rotateTo($j->{rot});
    $i->scaleTo($j->{s}, $j->{s});
    $i->moveTo($j->{x}, $j->{y});
    return $j;
}
$i1 = text($i1);
$i2 = text($i2);
$i3 = text($i3);
for(my $i=1; $i<=100; ++$i){
    $i1 = step($i1);
    $i2 = step($i2);
    $i3 = step($i3);
    $m->nextFrame();
}
# decide if its called from commandline or as cgiscript
if (exists $ENV{"REQUEST_URI"}){
        print "Content-type: application/x-shockwave-flash\n\n";
        $m->output();
}
else {
        $m->save("$0.swf");
        print "Generated file written to $0.swf\n";
}