Posted to tcl by mjanssen at Tue Jun 09 11:31:37 GMT 2020view pretty

set size 0.1
set svg {
 <svg><polygon fill="yellow" stroke="none"
    points="350 75, 379 161, 469 161, 397 215,
            423 301, 350 250, 277 301, 303 215,
            231 161, 321 161"
    transform="scale(@@)" /></svg> }
set id [ html [string map [list @@ $size ] $svg ]]
while {1} {
  after 10
  set size [expr {$size+0.005}]
    updatehtml $id [string map [list @@ $size ] $svg ]
    if {$size > 0.5} return
}