SWF5-Spiral 5 24 540 bytes 794 bytes 2003-10-31 00:00:00 2003-10-31 12:09:54 Oldes (oliva.david@seznam.cz) Test spiral generation

(swf5-spiral.rswf)

background 20.20.20
;include %includes/txt_info.rswf

es: EmptySprite
shp_circle: shape [
    fill color 255.255.255
    ;edge [color 0.0.0 width 3]
    circle 6
]

spr_circle: Sprite shp_circle
exportAssets [spr_circle "circ"]

place es [
    at 160x160
    actions [
        load [
            r: 30 i: 0
        ]
        enterFrame [
            a: i * (math.PI / 7.5)
            o: make object! [
                _x: r * math.sin(a)
                _y: r * math.cos(a)
            ]
            ;_root.info: rejoin [(math.sin(a)) " " o._x " " o._y]
            attachMovie("circ" ("c" add i) i o)
            i++
            r: r + 1.2
            if i > 100 [
                r: 30 i: 0
            ]
        ]
    ]
]
stop
showFrame
end