0,]']±>Sп}WяНu§рp8·d%qy)6o;]ЙA¦цsпчффф”°ВVl†3 x 0) (flood (- x 1) y)) (when (< x 239) (flood (+ x 1) y)) (when (> y 0) (flood x (- y 1))) (when (< y 135) (flood x (+ y 1))))) (flood x y)))) (fn _G.TIC [] (local [w h] [values 40 40]) (local origin {:x (// screen-width 2) :y (// screen-height 2)}) (local point (rotate-point {:x (- origin.x 20) :y (- origin.y 20)} origin (sin r))) (local point2 (rotate-point {:x (+ origin.x 20) :y (+ origin.y 20)} origin (sin r))) (cls) (draw-rect point 40 40 1 r 2) (fill point.x point.y 13) (draw-rect point2 40 40 1 r 5) (fill point2.x point2.y 9) (set r (+ r 0.05)))