pricecharts

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:
M
gen_svg.pl
 | 
15
+++++++++++++++

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;