home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Converter / IMAFX26.lha / imagefx2 / rexx / autofx / EOT_Fire_Load_Plus.ifx.pre < prev    next >
Encoding:
Text File  |  1996-02-15  |  1.9 KB  |  72 lines
  1. /*
  2.  * EOT_Fire_Load.ifx.pre
  3.  * Written by Gerald Bonnstetter
  4.  *
  5.  * Fire Sequence Effect.
  6.  *
  7.  * Inputs:
  8.  *    Word(Arg(1),1) = Sequence number (?)
  9.  *    Word(Arg(1),2) = Total number of frames (N)
  10.  *
  11.  * Returns:
  12.  *    0 if successful, non-zero on failure
  13.  *
  14.  */
  15.  
  16. OPTIONS RESULTS
  17.  
  18. base  = 'Autofx_Fire_'
  19.  
  20. lpath  = GETCLIP(base||'Path')
  21. lfile  = GETCLIP(base||'File')
  22. seed   = GETCLIP(base||'Seed')
  23. turb   = GETCLIP(base||'Turbulence')
  24. step   = GETCLIP(base||'StepSize')
  25. Xpos   = GETCLIP(base||'Xpos')
  26. Ypos   = GETCLIP(base||'Ypos')
  27. length = GETCLIP(base||'Length')
  28. width  = GETCLIP(base||'Width')
  29.  
  30.  
  31. IF lpath   = "" THEN lpath   = "Storage/Fire"
  32. IF seed    = "" THEN seed    = 9883516
  33. IF turb    = "" THEN turb    =  50
  34. IF step    = "" THEN step    =   1
  35. IF Xpos    = "" THEN Xpos    = 100
  36. IF Ypos    = "" THEN Ypos    = 100
  37. IF length  = "" THEN length  =  80
  38. IF width   = "" THEN Width   =  80
  39.  
  40.  
  41. Gadget.1 = 'STRING  150  10 260 14 "Fire Options File:"' lfile
  42. Gadget.2 = 'FILEREQ 412  10  20 14 "Fire Options File:" 'lpath ' #?' lfile 'AT=1'
  43. Gadget.3 = 'INTEGER 150  26 110 14 "Seed:"' seed
  44. Gadget.4 = 'INTEGER 150  42 110 14 "Turbulence:"' turb
  45. Gadget.5 = 'INTEGER 150  58 110 14 "Step Size:"' step
  46. Gadget.6 = 'INTEGER 150  74 110 14 "X Position:"' Xpos
  47. Gadget.7 = 'INTEGER 150  90 110 14 "Y Position:"' Ypos
  48. Gadget.8 = 'INTEGER 150 106 110 14 "Length:"' length
  49. Gadget.9 = 'INTEGER 150 122 110 14 "Width:"' width
  50. Gadget.10 = 'END'
  51.  
  52. NewComplexRequest '"Fire Sequence"' Gadget 450 148
  53. IF rc ~= 0 THEN EXIT rc
  54.  
  55. CALL SETCLIP(base||'Path'       , result.2.path)
  56. CALL SETCLIP(base||'File'       , result.2.file)
  57. CALL SETCLIP(base||'Seed'       , result.3)
  58. CALL SETCLIP(base||'Turbulence' , result.4)
  59. CALL SETCLIP(base||'StepSize'   , result.5)
  60. CALL SETCLIP(base||'Xpos'       , result.6)
  61. CALL SETCLIP(base||'Ypos'       , result.7)
  62. CALL SETCLIP(base||'Length'     , result.8)
  63. CALL SETCLIP(base||'Width'      , result.9)
  64.  
  65. increment = 0
  66.  
  67. CALL SETCLIP(base||'Increment', increment)
  68.  
  69. undo on
  70.  
  71. EXIT
  72.