Do you _MAPTRIANGLE?

[Petr]

You can do different effects with it...

Code: (Select All)

i& = _ScreenImage

_Delay .5
Screen _NewImage(_DesktopWidth, _DesktopHeight, 32)

stp = _Pi(2) / 30
ir = 4
vr = 7



While i$ <> Chr$(27)
    i$ = InKey$
    _PutImage , i&
    mx = _DesktopWidth / 2
    my = _DesktopHeight / 2
    For c = 0 To _Pi(2) Step stp
        sx = mx + Cos(c) * ir
        sy = my + Sin(c) * ir
        sx2 = mx + Cos(c + stp) * ir
        sy2 = my + Sin(c + stp) * ir

        dx = mx + Cos(c) * vr
        dy = my + Sin(c) * vr
        dx2 = mx + Cos(c + stp) * vr
        dy2 = my + Sin(c + stp) * vr

        _MapTriangle (mx, my)-(sx, sy)-(sx2, sy2), i& To(mx, my)-(dx, dy)-(dx2, dy2), 0, _Smooth
    Next c
    ir = ir + 3
    vr = vr + 2
    _FreeImage i&
    i& = _CopyImage(0, 32)
    _Display
    _Limit 20
Wend