home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / SYS / Rexx / test.clrx < prev    next >
Text File  |  1994-03-05  |  516b  |  40 lines
  1. /*
  2.  
  3.  This program calculates simple animation with changing cloudiness.
  4.  
  5.  Copyright © 1994 Krzysztof Kobus. All Rights Reserved.
  6.  
  7. */
  8.  
  9. Options Results
  10.  
  11.  
  12. Address CLOUDS.1
  13.  
  14.  
  15. cl_fft 64
  16. cl_control displayandsave
  17. cl_width 200
  18. cl_height 100
  19. cl_velocity 0.2
  20. cl_direction 60
  21. cl_strength 0.3
  22. cl_seed 12
  23. cl_openproject
  24. IF RC ~= 0 THEN
  25.     DO
  26.     SAY 'Error: 'CLOUDS.LASTERROR
  27.     EXIT
  28.     END
  29. DO i=-10 TO 30
  30.     cl_frames 2
  31.     cl_density i
  32.     cl_calculate
  33.   IF RC ~= 0 THEN
  34.         DO
  35.     SAY 'Error: 'CLOUDS.LASTERROR
  36.         EXIT
  37.         END
  38. END
  39. cl_closeproject
  40.