Jiggly splash screens

Pyyhtiä Christer christer at mindcrea.com
Sat Oct 26 20:35:54 CEST 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