home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Raytracing / Raytracer / LW5VT09.LHA / Toaster / Arexx_examples / elast_test.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1996-06-10  |  556 b   |  25 lines
  1. /* program to test dmm elasticity */
  2. /* Chuck Wardin */
  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. /* trace !ALL */
  11. 'READ_SCENE scenes/key_slab_tilt'
  12. 'SET_OBJ 1 DYNO'
  13. do i = 0 to 20
  14.   elast = i * 0.05;
  15.   say "generating scene" i " .... wait"
  16.   'SET_OBJ 0 ELAST' elast
  17.   'SET_OBJ 1 ELAST' elast
  18.   'DYNO'
  19.   say "writing scene file"
  20.   'WRITE_SCENE scenes/key_slab_tilt.rex'elast
  21. end
  22. trace off
  23. address
  24.  
  25.