Speed of 'sliding a field'

[David Kwinter]

I've been frustrated by slowness lately whenever I've tried to make a 
Rev script do anything dynamic. Am I doing something wrong? I doubt my 
G4 lacks enough power to do some of the things I want to do. Here, for 
example is a chunk of script which slides a field into position. If you 
try it out let me know if you don't mind the choppyness. Is there a 
solution?

on mouseup
   put 135 into startX
   put 82 into startY
   put 20 into startH
   put 134 into startW

   put 403 into endX
   put 227 into endY
   put 310 into endH
   put 246 into endW

   put endX-startX into netX
   put endY-startY into netY
   put endH-startH into netH
   put endW-startW into netW

   put 0 into x
   repeat 25 times
     add 4 to x

     put ((x/100)*netX)+startX into nowX
     put ((x/100)*netY)+startY into nowY
     put ((x/100)*netH)+startH into nowH
     put ((x/100)*netW)+startW into nowW

     set the width of field "list1" to the round of nowW
     set the height of field "list1" to the round of nowH
     put the round of nowX into nowX
     put the round of nowY into nowY

     set the loc of field "list1" to nowX,nowY

  end repeat
end mouseup


Any comments or suggestions would be appreciated, thanks.

David Kwinter