home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Converter / IMAFX26.lha / imagefx2 / rexx / autofx / EOT_Bubble.ifx.pre < prev    next >
Encoding:
Text File  |  1996-04-23  |  1.4 KB  |  56 lines
  1. /*
  2.  * $VER: EOT_GaussianBlur.ifx.pre 2.6 (24.04.96)
  3.  * Copyright © 1992-1996 Nova Design, Inc.
  4.  *
  5.  * Written by Gregg William Riedel
  6.  *
  7.  * Bubbles
  8.  *
  9.  * Inputs:
  10.  *    Word(Arg(1),1) = Sequence number (?)
  11.  *    Word(Arg(1),2) = Total number of frames (N)
  12.  *
  13.  * Returns:
  14.  *    0 if successful, non-zero on failure
  15.  *
  16.  */
  17.  
  18. OPTIONS RESULTS
  19.  
  20. base  = 'Autofx_Bubble_'
  21.  
  22. count  = GETCLIP(base||'Count')
  23. minr   = GETCLIP(base||'MinR')
  24. maxr   = GETCLIP(base||'MaxR')
  25. rndn   = GETCLIP(base||'Rand')
  26. move   = GETCLIP(base||'Move')
  27. orient = GETCLIP(base||'Orient')
  28.  
  29. IF count = "" THEN count = 10
  30. IF minr = "" THEN minr = 40
  31. IF maxr = "" THEN maxr = 75
  32. IF rndn = "" THEN rndn = 11
  33. IF move = "" THEN move = 5
  34. IF orient = "" THEN orient = 0
  35.  
  36.  
  37. Gadget.1 = 'INTEGER 100 5 50 14 "Count:"' count
  38. Gadget.2 = 'INTEGER 100 20 50 14 "Min Radius:"' minr
  39. Gadget.3 = 'INTEGER 100 35 50 14 "Max Radius:"' maxr
  40. Gadget.4 = 'INTEGER 250 5 50 14 "Rand Seed:"' rndn
  41. Gadget.5 = 'INTEGER 250 20 50 14 "Move Rate:"' move
  42. Gadget.6 = 'CYCLE 100 50 200 14 "Move:"' orient '"Up/Down/Left/Right/In/Out"'
  43. Gadget.7 = 'END'
  44.  
  45. NewComplexRequest '"Bubble Sequence"' Gadget 330 70
  46. IF rc ~= 0 THEN EXIT rc
  47.  
  48. CALL SETCLIP(base||'Count',  result.1)
  49. CALL SETCLIP(base||'MinR',   result.2)
  50. CALL SETCLIP(base||'MaxR',   result.3)
  51. CALL SETCLIP(base||'Rand',   result.4)
  52. CALL SETCLIP(base||'Move',   result.5)
  53. CALL SETCLIP(base||'Orient', result.6)
  54.  
  55. EXIT
  56.