Re: Sine of the times: Much better window shaker
Re: Sine of the times: Much better window shaker
- Subject: Re: Sine of the times: Much better window shaker
- From: LE STANG Jean-Baptiste <email@hidden>
- Date: Fri, 21 Mar 2003 22:43:36 +0100
Le vendredi, 21 mars 2003, ` 22:19 Europe/Paris, Emmanuel a icrit :
on DCPSNodWindow(w, nSteps) -- David Crowe, Paul Skinner et al.
set theDamping to 5
set theAmplitude to 50
set thePeriods to 10
tell application "Finder"
activate
set {xPrime, yPrime} to position of w
repeat with i from 1 to nSteps
set position of window 1 to {xPrime, yPrime + theAmplitude * (exp
(-theDamping * i / nSteps)) * (sin (i * thePeriods * pi / (nSteps)))}
end repeat
set position of window 1 to {xPrime, yPrime}
end tell
end DCPSNodWindow
tell application "Finder" to activate
tell application "Finder" to set w to window 1
DCPSNodWindow(w, 20) -- doiiiing!
I really like this one !
JB
_______________________________________________
applescript-users mailing list | email@hidden
Help/Unsubscribe/Archives:
http://www.lists.apple.com/mailman/listinfo/applescript-users
Do not post admin requests to the list. They will be ignored.