home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Converter / DC-PGS22.DMS / in.adf / PgsDATA.lha / Data / scripts / Logo-Spin.rx < prev    next >
Encoding:
Text File  |  1996-07-02  |  1.2 KB  |  58 lines
  1. /*
  2.     logo-spin! example of how to build anim files.
  3.  
  4.     $VER: Logo-Spin.rx 1.1 (1.07.96)
  5.  
  6.     ARexx example script for Photogenics 2
  7.  
  8.     Copyright © Almathera 1996. All Rights Reserved
  9.  
  10.     this one basically uses a loop variable ['r'] to keep track of
  11.     the current frame ['r' is also used as the control to adjust the
  12.     inputs to the perspective effect] - when r = 0, it's the first frame,
  13.     when r != 0, it's mid-anim [and so a different mode of the ANIM gio
  14.     is used], and when the loop ends, the anim is finalised. try using
  15.     different effects or paintmodes - a 'dissolve' example is provided
  16.     with the 'Randomise' mode, although it's commented out in this script.
  17.  
  18. */
  19. options results
  20. address PHOTOGENICS.1
  21.  
  22. ASKFILE "'Anim Filename?'" "ram:"
  23. fname = result
  24.  
  25. BUFFER
  26. image = result
  27.  
  28. x = 0
  29. y = 0
  30. z = 0
  31. r = 0
  32.  
  33. do until r = 360
  34.  
  35.     EFFECT image "Perspective" x y z "BLACK"
  36.  
  37. /*    PAINTMODE image "Randomise"
  38.     MODEOPTS image (r+1)
  39.     FILLIMAGE image
  40.     FIX image
  41. */
  42.  
  43.     if r = 0 then do
  44.         SAVE image "ANIM" "" 128 COLOUR SMALLORDER ZEROBLACK fname
  45.         end
  46.     else do
  47.         SAVE image "ANIM" "" CONTINUE SAMEPAL SMALLORDER ZEROBLACK
  48.         end
  49.  
  50.     UNDO image
  51.  
  52.     x = x + 4
  53.     r = r + 4
  54. end
  55.  
  56.     SAVE image "ANIM" "" END SAMEPAL SMALLORDER ZEROBLACK
  57.  
  58.