Process SMIL directives in XML data: Difference between revisions
Content added Content deleted
m (→{{header|Perl 6}}: wrong version) |
m (→{{header|Perl 6}}: huh) |
||
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{ |
.attribs{%Parents{$_.name}.todo} = $v.from »+« @incre »*» $t; |
||
.removeChild($_); # ditch <animate> and friends |
.removeChild($_); # ditch <animate> and friends |
||
} |
} |