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

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