Magnifier (script!)

[Sannyasin Sivakatirswami]

does this work for you?  (zooms in 10 pixel increments)

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)
     set the loc of the target to the mouseloc
   end changeSize


On Sunday, July 20, 2003, at 01:19  PM, Ken Norris wrote:

> Yves,
>
>> Date: Sun, 20 Jul 2003 10:56:20 +0200
>> Subject: Re: Magnifier (script!)
>> From: Yves COPPE <yvescoppe at skynet.be>
>
>> the rect of img 1 is "30,20,330,220"
>>
>> i'd like that when  the user click on the image, the image is zoomed 
>> in
>> and when the user option-click the image zooms out
>> AND when the user zooms in, the zoom happens on the img where the user
>> has clicked.
>> Is it possible ?
> ----------
> Shoot the image (importSnapshot) in a rectangle under the mouse, and 
> then
> expand (width and height) the image as desired. Lock and unlock the 
> screen
> as needed.
>
> Or, you could make it a QTVR movie, put it into a player window, and 
> use the
> "zoom" command.
>
> HTH,
> Ken N.
>
> _______________________________________________
> use-revolution mailing list
> use-revolution at lists.runrev.com
> http://lists.runrev.com/mailman/listinfo/use-revolution
>