animate.tcl

proc animate args {
  set urls {};
  set delay 0.5;
  for {set x 0} {$x<[llength $args]} {incr x} {
    set item [lindex $args $x];
    if {$item == "-delay"} {
      set delay [lindex $args [expr $x + 1]];
    } elseif {[regexp -nocase {^http} $item]} {
      lappend urls $item;
    }
  };
  set url http://prettybrd.com/ani?d=$delay&[apply ? [inject $urls {} {{list img} {concat $list i $img}}]]#.gif;
cache put animate url $url;
  return [magick noop [i.buttes $url]];
}