home *** CD-ROM | disk | FTP | other *** search
- /*
- * Perspective.ifx.pre
- * Written by Thomas Krehbiel
- *
- * Perspective Rotation.
- *
- * Inputs:
- * Word(Arg(1),1) = Sequence number (?)
- * Word(Arg(1),2) = Total number of frames (N)
- *
- * Returns:
- * 0 if successful, non-zero on failure
- *
- */
-
- OPTIONS RESULTS
-
- base = 'Autofx_Dream_'
-
- orient = GETCLIP(base||'Orient')
- amt = GETCLIP(base||'Amount')
- waves = GETCLIP(base||'Waves')
-
- IF orient = "" THEN orient = 0
- IF amt = "" THEN amt = 50
- IF waves = "" THEN waves = 5
-
- Gadget.1 = 'CYCLE 150 5 150 14 "Orient:"' orient '"Horiz/Vert"'
- Gadget.2 = 'INTEGER 150 20 50 14 "Amount:"' amt
- Gadget.3 = 'INTEGER 150 35 50 14 "Waves:"' waves
- Gadget.4 = 'END'
-
- NewComplexRequest '"Dream Sequence"' Gadget 330 60
- IF rc ~= 0 THEN EXIT rc
-
- CALL SETCLIP(base||'Orient', result.1)
- CALL SETCLIP(base||'Amount', result.2)
- CALL SETCLIP(base||'Waves', result.3)
-
- EXIT
-