home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Converter / IMAFX26.lha / imagefx2 / rexx / autofx / EOT_Lightning.ifx < prev    next >
Encoding:
Text File  |  1994-11-15  |  1.0 KB  |  49 lines
  1. /*
  2.  * EOT_Lightning.ifx
  3.  * Written by Thomas Krehbiel
  4.  *
  5.  * Lightning strike from top left to bottom right.
  6.  *
  7.  * Inputs:
  8.  *    Word(Arg(1),1) = Frame number (1 - N)
  9.  *    Word(Arg(1),2) = Main filename ("-" if not specified)
  10.  *    Word(Arg(1),3) = Swap filename ("-" if not specified)
  11.  *    Word(Arg(1),4) = Sequence number (?)
  12.  *    Word(Arg(1),5) = Total number of frames (N)
  13.  *
  14.  * Returns:
  15.  *    0 if successful, non-zero on failure
  16.  *
  17.  */
  18.  
  19. OPTIONS RESULTS
  20.  
  21. base  = 'Autofx_Lightning_'
  22.  
  23. framenum = Word(Arg(1),1)
  24. mainname = Word(Arg(1),2)
  25. swapname = Word(Arg(1),3)
  26. seqnum   = Word(Arg(1),4)
  27. framemax = Word(Arg(1),5)
  28.  
  29. GetMain
  30. IF rc ~= 0 THEN EXIT rc
  31. PARSE VAR result name width height .
  32.  
  33. x = (width-1) * framenum % framemax
  34. y = (height-1) * framenum % framemax
  35. d = (30 * framenum % framemax) - 15
  36.  
  37. GetMain
  38. PARSE VAR result name wid ht .
  39.  
  40. /*rad = ((wid + ht) % 2) / 100
  41. IF rad < 1.0 THEN rad = 1.0*/
  42.  
  43. outerglow = ((wid + ht) % 2) % 50
  44. IF outerglow < 1 THEN outerglow = 1
  45.  
  46. Hook Lightning 0 0 0 x y 255 OGlowRad outerglow Deviation d Probability 0
  47.  
  48. EXIT
  49.