home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 1 / Amiga Tools.iso / aga-tools / mandelmania / rexx / dac2.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1994-06-06  |  1.9 KB  |  98 lines
  1. /*--------------------------------------------------------------------------*/
  2. /*                   Mandelmania - ARexx - Script - File                    */
  3. /*--------------------------------------------------------------------------*/
  4.  
  5. /* This script was sent to me by David Andrew Clayton    */
  6. /* Execution time: 0h 57' 53" (68020, 14 MHz, 320x200x5) */
  7. /* ANIM file size: 1'036'798 Bytes                       */
  8.  
  9. address 'rexx_mandelmania'
  10. options results
  11.  
  12. signal on ERROR 
  13. signal on BREAK_C 
  14. signal on BREAK_D
  15.  
  16. 'getanimfilename'
  17. animname = result
  18.  
  19. if result = 'RESULT' then do
  20.     exit 0
  21.     end
  22.  
  23. 'openanim' animname'.anim' 
  24.  
  25. say 'Calculating' animname
  26. say 'Start time'
  27. address command 'date'
  28.  
  29. pic      = 0
  30.  
  31. /*--------------------------------------------------------------------------*/
  32.  
  33. left1   = '-1.186864437877208'
  34. right1  = '-1.18686417944015'
  35. bottom1 = '0.3052804438822836'
  36. top1    = '0.3052806580387606'
  37. xc1     = '0'
  38. yc1     = '0'
  39. iter1   = 50
  40. type    = 0
  41.  
  42. /*--------------------------------------------------------------------------*/
  43.  
  44. left2   = '-2.5'
  45. right2  = '1.5'
  46. bottom2 = '-1.75'
  47. top2    = '1.75'
  48. xc2     = '0'
  49. yc2     = '0'
  50. iter2   = 50
  51.  
  52. steps   = 40
  53.  
  54. do i=pic to pic+steps-1 
  55.     say 'interpolate' i-pic steps
  56.     'interpolate' i-pic steps-1 left1 right1 bottom1 top1 xc1 yc1 iter1 left2 right2 bottom2 top2 xc2 yc2 iter2 type 
  57.     'saveanim' 
  58.     if i <= 1 then do 
  59.         'savefractal' animname'.'i 
  60.         end 
  61.     end 
  62.  
  63. left1   = left2;
  64. right1  = right2;
  65. bottom1 = bottom2;
  66. top1    = top2;
  67. xc1     = xc2;
  68. yc1     = yc2;
  69. iter1   = iter2;
  70.  
  71. pic = pic+steps
  72.  
  73. /*--------------------------------------------------------------------------*/
  74.  
  75. ERROR:
  76. BREAK_C:
  77. BREAK_D:
  78. if (RC ~= 0) then do
  79.     say ' 'SIGL '*-*' SOURCELINE(SIGL)
  80.     say 'Error' RC
  81.     end
  82.  
  83. 'openfractal' animname'.0'    /* For looped animations */
  84. 'saveanim'
  85. 'openfractal' animname'.1'
  86. 'saveanim'
  87.  
  88. 'closeanim'
  89.  
  90. address command 'delete' animname'.0 QUIET'
  91. address command 'delete' animname'.1 QUIET'
  92.  
  93. say 'End time'
  94. address command 'date'
  95.  
  96. exit 0
  97.  
  98.