Process SMIL directives in XML data: Difference between revisions

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