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 <[EMAIL PROTECTED]>

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
[EMAIL PROTECTED]
http://lists.runrev.com/mailman/listinfo/use-revolution


_______________________________________________ use-revolution mailing list [EMAIL PROTECTED] http://lists.runrev.com/mailman/listinfo/use-revolution

Reply via email to