Process SMIL directives in XML data: Difference between revisions

m
m (→‎{{header|Perl 6}}: wrong version)
Line 232:
my @incre = ($v.to »-« $v.from) »/» $v.dur; # increment list
with $clone.find("//$k") { # moving attribute = @from + @increment*$t
.attribs{(%Parents{$_.name}).todo} = $v.from »+« @incre »*» $t;
.removeChild($_); # ditch <animate> and friends
}
350

edits