Code: Select all
command fadeText theField
put 2000 into effectTime
put 20 into effectSteps
set the blendLevel of field theField to 0
set the ink of field theField to "blendClear"
repeat with i = 1 to effectSteps
put the round of (i * (100 / effectSteps)) into theFade
send "fadeIt theField, theFade" to this card in ((effectTime/effectSteps) * i) milliseconds
end repeat
end fadeText
command fadeIt theField theFade
debugIt (" effect fadeIt acting upon field " & theField & tab & " with blendlevel " & theFade)
set the blendLevel of field theField to theFade
end fadeIt