Jiggly splash screens
Pyyhtiä Christer
christer at mindcrea.com
Sat Oct 26 14:35:54 EDT 2013
This is the best could achieve. See the difference between shrink and expand. Obs. twice set the topLeft, and leave out the delay (was OK with my 2 years old PowerBook); if have time tomorrow will test on SGS 2 and SGS 4.
Thanks for the challenge!
on mouseUp
set the vis of btn "DEMONSTRATE" to false
put 400 into DIMZ
put item 1 of the loc of img "tom" into tX
put item 2 of the loc of img "tom" into ty
repeat until DIMZ=4
put (DIMZ - 2) into DIMZ
-- thx for even numbers
lock screen
set the width of stack "SPLASH" to DIMZ
set the height of stack "SPLASH" to DIMZ
set the topLeft of img "tom" to 0,0
set the width of img "tom" to DIMZ
set the height of img "tom" to DIMZ
set the topLeft of img "tom" to 0,0
unlock screen
end repeat
repeat until DIMZ=400
put (DIMZ + 2) into DIMZ
lock screen
set the width of stack "SPLASH" to DIMZ
set the height of stack "SPLASH" to DIMZ
set the width of img "tom" to DIMZ
set the height of img "tom" to DIMZ
set the left of img "tom" to 0
set the top of img "tom" to 0
wait 2 ticks
unlock screen
end repeat
set the vis of btn "DEMONSTRATE" to true
end mouseUp
rgds
More information about the use-livecode
mailing list