home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Converter / IMAFX26.lha / imagefx2 / rexx / autofx / EOT_LensFlare.ifx.pre < prev    next >
Encoding:
Text File  |  1994-10-25  |  1.2 KB  |  50 lines
  1. /*
  2.  * LensFlare.ifx.pre
  3.  * Written by Thomas Krehbiel
  4.  *
  5.  * Lens Flare Effect Over Time.
  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_LensFlare_'
  19.  
  20. x1    = GETCLIP(base||'x1')
  21. y1    = GETCLIP(base||'y1')
  22. x2    = GETCLIP(base||'x2')
  23. y2    = GETCLIP(base||'y2')
  24. style = GETCLIP(base||'style')
  25.  
  26. IF x1 = "" THEN x1 = 10
  27. IF y1 = "" THEN y1 = 10
  28. IF x2 = "" THEN x2 = 100
  29. IF y2 = "" THEN y2 = 100
  30. IF style = "" THEN style = 'Standard'
  31.  
  32. Gadget.1 = 'INTEGER 200  5 50  14 "Starting Position X:"' x1
  33. Gadget.2 = 'INTEGER 280  5 50  14 "Y:"' y1
  34. Gadget.3 = 'INTEGER 200 20 50  14 "Ending Position X:"' x2
  35. Gadget.4 = 'INTEGER 280 20 50  14 "Y:"' y2
  36. Gadget.5 = 'STRING  200 38 100 14 "Lens Flare Style:"' style
  37. Gadget.6 = 'FILEREQ 302 38 20  14 "Lens Flare Style:" Storage/LensFlare #?' style 'AT=5'
  38. Gadget.7 = 'END'
  39.  
  40. NewComplexRequest '"Lens Flare"' Gadget 430 60
  41. IF rc ~= 0 THEN EXIT rc
  42.  
  43. CALL SETCLIP(base||'x1',    result.1)
  44. CALL SETCLIP(base||'y1',    result.2)
  45. CALL SETCLIP(base||'x2',    result.3)
  46. CALL SETCLIP(base||'y2',    result.4)
  47. CALL SETCLIP(base||'style', result.6.file)
  48.  
  49. EXIT
  50.