home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Raytracing / Tools / RIP_DUST.LHA / dust / previews / interferePREVIEW.bat next >
Encoding:
DOS Batch File  |  1995-03-12  |  474 b   |  23 lines
  1. !clear
  2. ;this script creates <frames> pictures of 2 interfering waves
  3. ;the plane should have a resultion of 80x80 points (or more)
  4. calc(frames=90)
  5.  
  6. set(screen,t)
  7. set(screendepth,5)
  8. set(drawmode,color)
  9. avail
  10. load(1,plane)
  11. avail
  12. copy(1,3)
  13. avail
  14. set(windowpri,1)
  15. window(3,0,0,400,color,327,351,1.3333,true,false)
  16. avail
  17. set(checkmouse,f)
  18. for(i,1,frames)
  19.  wave2dframe(1,frames,i,2,t,0.8,4.6,0,0,0.25,0.0)
  20.  wave2dframe(2,frames,i,3,t,0.8,5.4,0,0,0.25,0.0)
  21.  windowsave(1,pic.%)
  22. end
  23.