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 }