Structured Canvas Language Reference Guide

create sprite from fan.png as spinner
    where x=100 y=100 center=90,90
end
create routine as Start
    launch spinner
    run routine ThisWay
end
create routine as ThisWay
    insert into spinner where
        alt=(sub create rotation where speed=130
             distance=135 completion=ThatWay end)
end
create routine as ThatWay
    insert into spinner where
        alt=(sub create rotation where speed=-130
             distance=135 completion=ThisWay end)
end