home *** CD-ROM | disk | FTP | other *** search
/ Creative Computers / CreativeComputers.iso / shareware / fractals / mandelmania / rexx / zoom3.rexx < prev   
OS/2 REXX Batch file  |  1994-11-17  |  4KB  |  204 lines
  1. /*--------------------------------------------------------------------------*/
  2. /*                   Mandelmania - ARexx - Script - File                    */
  3. /*--------------------------------------------------------------------------*/
  4.  
  5. address 'rexx_mandelmania'
  6. options results
  7.  
  8. signal on ERROR
  9. signal on BREAK_C
  10. signal on BREAK_D
  11.  
  12. 'getanimfilename'
  13. animname = result
  14.  
  15. if result = 'RESULT' then do
  16.     exit 0
  17.     end
  18.  
  19. 'openanim' animname'.anim'
  20.  
  21. pic      = 0
  22.  
  23. /*--------------------------------------------------------------------------*/
  24.  
  25.  
  26. left1   = '-2.5'
  27. right1  = '1.5'
  28. bottom1 = '-1.75'
  29. top1    = '1.75'
  30. xc1     = '-0.75'
  31. yc1     = '0.08750000000000029'
  32. iter1   = 32
  33. type    = 0
  34.  
  35. 'calculate' left1 right1 bottom1 top1 xc1 yc1 iter1 type
  36. 'saveanim'
  37. if pic <= 1 then do
  38.     'savefractal' animname'.'pic
  39.     end
  40.  
  41. pic = pic+1
  42.  
  43. /*--------------------------------------------------------------------------*/
  44.  
  45.  
  46. left2   = '-0.2875000000000003'
  47. right2  = '-0.03750000000000021'
  48. bottom2 = '0.9275'
  49. top2    = '1.1375'
  50. xc2     = '-0.75'
  51. yc2     = '0.08750000000000029'
  52. iter2   = 32
  53.  
  54. steps   = 10
  55.  
  56. do i=pic to pic+steps-1
  57.     say 'interpolate' i-pic steps
  58.     'interpolate' i-pic+1 steps left1 right1 bottom1 top1 xc1 yc1 iter1 left2 right2 bottom2 top2 xc2 yc2 iter2 type
  59.     'saveanim'
  60.     if i <= 1 then do
  61.         'savefractal' animname'.'i
  62.         end
  63.     end
  64.  
  65. left1   = left2;
  66. right1  = right2;
  67. bottom1 = bottom2;
  68. top1    = top2;
  69. xc1     = xc2;
  70. yc1     = yc2;
  71. iter1   = iter2;
  72. pic = pic+steps
  73.  
  74. /*--------------------------------------------------------------------------*/
  75.  
  76.  
  77. left1   = '-2.5'
  78. right1  = '1.5'
  79. bottom1 = '-1.75'
  80. top1    = '1.75'
  81. xc1     = '-0.75'
  82. yc1     = '0.08750000000000029'
  83. iter1   = 32
  84. type    = 0
  85.  
  86. 'calculate' left1 right1 bottom1 top1 xc1 yc1 iter1 type
  87. 'saveanim'
  88. if pic <= 1 then do
  89.     'savefractal' animname'.'pic
  90.     end
  91.  
  92. pic = pic+1
  93.  
  94. /*--------------------------------------------------------------------------*/
  95.  
  96.  
  97. left2   = '-1.8875'
  98. right2  = '-1.675'
  99. bottom2 = '-0.08750000000000001'
  100. top2    = '0.08750000000000001'
  101. xc2     = '-0.75'
  102. yc2     = '0.08750000000000029'
  103. iter2   = 32
  104.  
  105. steps   = 10
  106.  
  107. do i=pic to pic+steps-1
  108.     say 'interpolate' i-pic steps
  109.     'interpolate' i-pic+1 steps left1 right1 bottom1 top1 xc1 yc1 iter1 left2 right2 bottom2 top2 xc2 yc2 iter2 type
  110.     'saveanim'
  111.     if i <= 1 then do
  112.         'savefractal' animname'.'i
  113.         end
  114.     end
  115.  
  116. left1   = left2;
  117. right1  = right2;
  118. bottom1 = bottom2;
  119. top1    = top2;
  120. xc1     = xc2;
  121. yc1     = yc2;
  122. iter1   = iter2;
  123. pic = pic+steps
  124.  
  125. /*--------------------------------------------------------------------------*/
  126.  
  127.  
  128. left1   = '-2.5'
  129. right1  = '1.5'
  130. bottom1 = '-1.75'
  131. top1    = '1.75'
  132. xc1     = '-0.75'
  133. yc1     = '0.08750000000000029'
  134. iter1   = 32
  135. type    = 0
  136.  
  137. 'calculate' left1 right1 bottom1 top1 xc1 yc1 iter1 type
  138. 'saveanim'
  139. if pic <= 1 then do
  140.     'savefractal' animname'.'pic
  141.     end
  142.  
  143. pic = pic+1
  144.  
  145. /*--------------------------------------------------------------------------*/
  146.  
  147.  
  148. left2   = '0.225'
  149. right2  = '0.4625'
  150. bottom2 = '0.525'
  151. top2    = '0.7350000000000001'
  152. xc2     = '-0.75'
  153. yc2     = '0.08750000000000029'
  154. iter2   = 125
  155.  
  156. steps   = 10
  157.  
  158. do i=pic to pic+steps-1
  159.     say 'interpolate' i-pic steps
  160.     'interpolate' i-pic+1 steps left1 right1 bottom1 top1 xc1 yc1 iter1 left2 right2 bottom2 top2 xc2 yc2 iter2 type
  161.     'saveanim'
  162.     if i <= 1 then do
  163.         'savefractal' animname'.'i
  164.         end
  165.     end
  166.  
  167. left1   = left2;
  168. right1  = right2;
  169. bottom1 = bottom2;
  170. top1    = top2;
  171. xc1     = xc2;
  172. yc1     = yc2;
  173. iter1   = iter2;
  174. pic = pic+steps
  175.  
  176. /*--------------------------------------------------------------------------*/
  177.  
  178.  
  179. BREAK_C:
  180. BREAK_D:
  181.  
  182. 'openfractal' animname'.0'    /* For looped animations */
  183. 'saveanim'
  184. 'openfractal' animname'.1'
  185. 'saveanim'
  186.  
  187. 'closeanim'
  188.  
  189. address command 'delete' animname'.0 QUIET'
  190. address command 'delete' animname'.1 QUIET'
  191. exit 0
  192.  
  193. ERROR:
  194. if (RC ~= 0) then do
  195.     say ' 'SIGL '*-*' SOURCELINE(SIGL)
  196.     say '    Error' RC
  197.     end
  198.  
  199. 'closeanim'
  200. address command 'delete' animname'.0 QUIET'
  201. address command 'delete' animname'.1 QUIET'
  202. exit 10
  203.  
  204.