home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1995 November / PCWK1195.iso / inne / dos / fraktale / fracxtr6.exe / BAT / ANIMATE.BAT < prev    next >
DOS Batch File  |  1992-04-05  |  1KB  |  70 lines
  1. @echo on
  2. gosub parse
  3. gosub init
  4.  
  5. rem ------- main -------
  6.  
  7. :main
  8.  
  9. set maxlines=0
  10. for %sub in (*.nam) do  (
  11.    iff %@lines[%sub] GT %maxlines% then
  12.       set maxlines=%@lines[%sub]
  13.    endiff
  14. )
  15.  
  16. alias parn `%@word[%1,%1&]`
  17. alias subn `%@line[%@lower[parn %1].nam,1]`
  18.  
  19. set lin=0
  20. :loop
  21.    set name1=%@line[
  22.  
  23.    \pac\bc\cpp -P- -D%name1%=%sub1% -D%name2%=%sub2% -D%name3%=%sub3% -D%name4%=%sub4% -D%name5%=%sub5% %1 > animate.par
  24.    fractint %fractopts% batch=yes
  25.    set lin=%@eval[1+%lin%]
  26.    if %lin% GT %maxlines%  goto endloop
  27. goto loop
  28. :endloop
  29.  
  30. :endmain
  31. unalias parn
  32. unalias subn
  33. gosub done
  34. goto end
  35.  
  36. rem ------- init -------
  37.  
  38. :init
  39. :endinit
  40. return
  41.  
  42. rem ------- parse ------
  43.  
  44. :parse
  45. for %nn in (1 2 3 4 5 6 7 8 9) do  (
  46.    set par=%@word[%nn,%1&]
  47.    iff !%par%==!  then
  48.       set params=%nn
  49.       goto endparse
  50.    else
  51.       set colon=%@index[%par%,:]
  52.       set name=%@substr[%par%,0,%colon%]
  53.       echo %@substr[%par%,%@eval[1+%colon%]] > %name%.nam
  54.       unset colon
  55.       unset name
  56.    endiff
  57. )
  58. unset par
  59. :endparse
  60. return
  61.  
  62. rem ------- done -------
  63.  
  64. del *.nam
  65. return
  66.  
  67. rem ------- end --------
  68.  
  69. :end
  70.