Hi Mark,
first thanks to Jim Hurley for his solution to turn the image around an
arbitrary point. As always I would never have figured it out.
This code is a slight adaption of Jim's code so you can put it into the
script of an image and click on the image and the image will turn around the
clickLoc.
You can also send the image the command turnAroundPoint and a parameter with
the coordinates of a point
turnAroundPoint pNewXY
----------------------------------
on mouseUp
put the clickLoc into tClick
turnAroundPoint tClick
end mouseUp
on turnAroundPoint pClick
put pClick into tClick
set the angle of me to 0
put the loc of me into myLoc
put the rect of me into tImgRect
--Set the coor of the rotation Pt
put item 1 of tClick into x0
put item 2 of tClick into y0
--Get the loc of the image
put item 1 of myLoc into xC
put item 2 of myLoc into yC
--Get the distance between the roation pt and the image center
put sqrt ( (xC - x0 )^2 + (yC - y0)^2 ) into L
--Get the angle of the line from the rotation center to the image center
put atan2(yC-y0, xC-x0) *180/pi into phi0
put 0 into tAngle
repeat with i = 0 to 360 step 5 -- adjust stepsize to control speed
lock screen
set the angle of me to i
put phi0 - i into phi
set the loc of me to (x0 + L * cos(phi*pi/180)), (y0 + L *
sin(phi*pi/180))
unlock screen
wait 5 millisec with messages --or whatever
end repeat
set the angle of me to 0
set the rect of me to tImgRect
end turnAroundPoint
------------------------------------------------
Kind regards
Bernd
--
View this message in context:
http://runtime-revolution.278305.n4.nabble.com/Rotate-around-Center-of-Mass-tp4273701p4280217.html
Sent from the Revolution - User mailing list archive at Nabble.com.
_______________________________________________
use-livecode mailing list
use-livecode@lists.runrev.com
Please visit this url to subscribe, unsubscribe and manage your subscription
preferences:
http://lists.runrev.com/mailman/listinfo/use-livecode
