home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 618a.lha / Mandelmania_v3.0 / rexx / mandel4.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1992-02-21  |  1.4 KB  |  71 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 = 'dh2:Mandel4'
  13.  
  14. 'openanim' animname'.anim' 
  15.  
  16. /*--------------------------------------------------------------------------*/
  17.  
  18. left1   = '-2.5'
  19. right1  = '1.5'
  20. bottom1 = '-1.75'
  21. top1    = '1.75'
  22. xc1     = '0'
  23. yc1     = '0'
  24. iter1   = 32
  25. type    = 0
  26.  
  27. /*--------------------------------------------------------------------------*/
  28.  
  29. left2   = '0.3865224609375'
  30. right2  = '0.3881240234375'
  31. bottom2 = '-0.10434025'
  32. top2    = '-0.102986625'
  33. xc2     = '0'
  34. yc2     = '0'
  35. iter2   = 125
  36.  
  37. steps   = 30
  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. pic = pic+steps
  49.  
  50. /*--------------------------------------------------------------------------*/
  51.  
  52. /* Tail.rexx */
  53.  
  54. ERROR:
  55. BREAK_C:
  56. if RC then do
  57.     say ' 'SIGL '*-*' SOURCELINE(SIGL)
  58.     say 'Error' RC
  59.     end
  60.  
  61. 'openfractal' animname'.0'    /* For looped animations */
  62. 'saveanim'
  63. 'openfractal' animname'.1'
  64. 'saveanim'
  65.  
  66. 'closeanim'
  67.  
  68. address command 'delete' animname'.0 QUIET'
  69. address command 'delete' animname'.1 QUIET'
  70. exit 0
  71.