home *** CD-ROM | disk | FTP | other *** search
/ Ray Tracing Box / RAY_CD.mdf / raytrace / _pov_dat / povq / povq.btm < prev    next >
Text File  |  1993-10-11  |  1KB  |  46 lines
  1. @echo off
  2. rem
  3. rem POVQ.btm
  4. rem
  5. rem A Queueing program for POV-ray.
  6. rem
  7. rem Written by Dragon Cotterill. If you like this program please send e-mail
  8. rem to CIS:100014,3230 or draconis@cix.compulink.co.uk
  9. rem
  10. text
  11. +-----------------------------------------------------------------------+
  12. |  POVQ   -   A Queueing system for POV-ray                             |
  13. |                                                  By Dragon Cotterill  |
  14. +-----------------------------------------------------------------------+
  15. endtext
  16. :start
  17. if %@len[%1]==0 goto listem
  18. set fred=%@substr[%1,0,1]
  19. if %fred==%@char[43] goto leap
  20. if %fred==%@char[45] goto leap
  21. echo ``>>d:\povray\povq.dat
  22. echo Adding %@name[%1].pov to the render list
  23. echos %@name[%1].pov >>d:\povray\povq.dat
  24. echos ` `>>d:\povray\povq.dat
  25. shift
  26. goto start
  27. :leap
  28. echos %1 >>d:\povray\povq.dat
  29. echos ` `>>d:\povray\povq.dat
  30. shift
  31. goto start
  32. :listem
  33. echo.
  34. if not exist d:\povray\povq.dat goto no_files
  35. set total=%@lines[d:\povray\povq.dat]
  36. echo There are %total jobs in the queue:
  37. set count=1
  38. :loop
  39. echo %count  -  %@line[d:\povray\povq.dat,%count]
  40. if %count==%total goto end
  41. set count=%@eval[%count+1]
  42. goto loop
  43. :no_files
  44. echo There are no jobs in the queue at present.
  45. :end
  46.