home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Raytracing / Raytracer / LW5VT09.LHA / Toaster / Arexx_examples / funbowl.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1996-06-10  |  476 b   |  26 lines

  1. /* Brent's Funhouse */
  2. /* By Brent Malnack */
  3. /* note: a lot of hard coding of file names etc. */
  4. /* OK for testing ... not good for general use */
  5. waitforport dmm_rx
  6. our_address = address()
  7. address value dmm_rx
  8. say address()
  9. say "reading scene"
  10. 'READ_SCENE scenes/Funbowl'
  11. SET_OBJ 1 KEY
  12. x = 1
  13. y = 0
  14. do i = 1 to 10
  15.    SET_OBJ x DYNO
  16.    SET_OBJ x ELAST y
  17.    x = x + 1
  18.    say x
  19.    say y
  20.    y = y + .1
  21. end
  22. 'DYNO'
  23. say "writing scene file"
  24. 'WRITE_SCENE scenes/funbowl.dyn'
  25. address
  26.