Do you _MAPTRIANGLE?

[Petr]

How about a round magnifying glass effect?

Code: (Select All)

i& = _ScreenImage

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

stp = _Pi(2) / 30

While i$ <> Chr$(27)
    While _MouseInput: Wend
    mx = _MouseX
    my = _MouseY
    i$ = InKey$
    _PutImage , i&
    For c = 0 To _Pi(2) Step stp
        sx = mx + Cos(c) * 30
        sy = my + Sin(c) * 30
        sx2 = mx + Cos(c + stp) * 30
        sy2 = my + Sin(c + stp) * 30

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

        _MapTriangle (mx, my)-(sx, sy)-(sx2, sy2), i& To(mx, my)-(dx, dy)-(dx2, dy2), 0, _Smooth
    Next c
    _Display
Wend