home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 618a.lha / Mandelmania_v3.0 / rexx / Mandel5.rexx < prev    next >
OS/2 REXX Batch file  |  1992-02-20  |  2KB  |  110 lines
  1. /*--------------------------------------------------------------------------*/
  2. /*                   Mandelmania - ARexx - Script - File                    */
  3. /*--------------------------------------------------------------------------*/
  4.  
  5. address 'rexx_mandelmania'
  6.  
  7. signal on ERROR 
  8. signal on BREAK_C 
  9.  
  10. pic      = 0
  11.  
  12. animname = 'dh3:Mandel5'
  13.  
  14. 'openanim' animname'.anim' 
  15.  
  16. /*--------------------------------------------------------------------------*/
  17.  
  18. left1   = '0.3868266626941915'
  19. right1  = '0.3878563917977469'
  20. bottom1 = '-0.1041502494070862'
  21. top1    = '-0.1032547774590259'
  22. xc1     = '0'
  23. yc1     = '0'
  24. iter1   = 500
  25. type    = 0
  26.  
  27. /*--------------------------------------------------------------------------*/
  28.  
  29. left2   = '0.383912174871964'
  30. right2  = '0.3858090971740866'
  31. bottom2 = '-0.1034267802958623'
  32. top2    = '-0.1017702817021124'
  33. xc2     = '0'
  34. yc2     = '0'
  35. iter2   = 500
  36.  
  37. steps   = 100
  38.  
  39. do i=pic to pic+steps-1 
  40.     say 'interpolate' i-pic steps
  41.     'interpolate' i-pic steps-1 left1 right1 bottom1 top1 xc1 yc1 iter1 left2 right2 bottom2 top2 xc2 yc2 iter2 type 
  42.     'saveanim' 
  43.     if i <= 1 then do 
  44.         'savefractal' animname'.'i 
  45.         end 
  46.     end 
  47.  
  48. left1   = left2;
  49. right1  = right2;
  50. bottom1 = bottom2;
  51. top1    = top2;
  52. xc1     = xc2;
  53. yc1     = yc2;
  54. iter1   = iter2;
  55.  
  56. pic = pic+steps
  57.  
  58. /*--------------------------------------------------------------------------*/
  59.  
  60. left2   = '0.3851190716744107'
  61. right2  = '0.3851288710539883'
  62. bottom2 = '-0.1025229577416642'
  63. top2    = '-0.10251459073337'
  64. xc2     = '0'
  65. yc2     = '0'
  66. iter2   = 500
  67.  
  68. steps   = 100
  69.  
  70. do i=pic to pic+steps-1 
  71.     say 'interpolate' i-pic steps
  72.     'interpolate' i-pic steps-1 left1 right1 bottom1 top1 xc1 yc1 iter1 left2 right2 bottom2 top2 xc2 yc2 iter2 type 
  73.     'saveanim' 
  74.     if i <= 1 then do 
  75.         'savefractal' animname'.'i 
  76.         end 
  77.     end 
  78.  
  79. left1   = left2;
  80. right1  = right2;
  81. bottom1 = bottom2;
  82. top1    = top2;
  83. xc1     = xc2;
  84. yc1     = yc2;
  85. iter1   = iter2;
  86.  
  87. pic = pic+steps
  88.  
  89. /*--------------------------------------------------------------------------*/
  90.  
  91. /* Tail.rexx */
  92.  
  93. ERROR:
  94. BREAK_C:
  95. if RC then do
  96.     say ' 'SIGL '*-*' SOURCELINE(SIGL)
  97.     say 'Error' RC
  98.     end
  99.  
  100. 'openfractal' animname'.0'    /* For looped animations */
  101. 'saveanim'
  102. 'openfractal' animname'.1'
  103. 'saveanim'
  104.  
  105. 'closeanim'
  106.  
  107. address command 'delete' animname'.0 QUIET'
  108. address command 'delete' animname'.1 QUIET'
  109. exit 0
  110.