commit 30faaba1f5d12f5d028e239536390dde68076cf4
parent 010e0d9b61cb47a716ec7f2d112ceb917f2f8cab
Author: Kyle Milz <kyle@getaddrinfo.net>
Date: Wed, 5 Nov 2014 23:12:24 -0700
gen_svg: add an animation that slides in the series
Diffstat:
1 file changed, 15 insertions(+), 0 deletions(-)
diff --git a/gen_svg.pl b/gen_svg.pl
@@ -92,6 +92,21 @@ while (my ($part_num, $description) = $parts_sth->fetchrow_array()) {
);
}
+ my $mask = $svg->rectangle(
+ x => 0, y => 0,
+ width => 1000, height => 250,
+ rx => 0, ry => 0,
+ id => "mask",
+ fill => "#FFF",
+ );
+
+ $mask->animate(
+ attributeName => "x",
+ values => "0;1000",
+ dur => "1s",
+ fill => "freeze",
+ );
+
my $num_labels = 5;
for (0..$num_labels) {
my $price = $y_max - $range * $_ / $num_labels;