lens effect on an image

[Yves COPPE]

Le 25 nov. 03, à 20:30, Ken Norris a écrit :

> local tSizeChange
>
> on mouseup
>    if optionkey()="Down" then
>      put (-10) into tSizeChange
>      changeSize
>      exit mouseup
>    end if
>    put (+10) into tSizeChange
>    changeSize
> end mouseup
>
> on changeSize
>     put (the height of the target/the width of the target) into tRatio
>     set the width of  the target to (the width of me +tSizeChange)
>     set the height of  the target to (the width of the target * tRatio)
> end changeSize
>


Hello,

thankl you for your answer
BUT

I've tried and it doesn't zoom in WHERE the user clicks ?????
Greetings.

Yves COPPE
yvescoppe at skynet.be