home *** CD-ROM | disk | FTP | other *** search
- !clear
- ;this script creates <frames> pictures of a water-wave
- ;the plane should have a resultion of 60x60 points (or more)
- ;DustV1.84+ required
-
- calc(frames=60)
- set(screen,t)
- set(screendepth,5)
- set(drawmode,color)
- avail
- load(1,plane)
- color(1,0,155,255)
- avail
- copy(1,3)
- avail
- set(windowpri,1)
- window(3,0,0,300,color,327,12,1.3333,true,false)
- avail
- set(checkmouse,f)
- for(i,1,frames)
- waterframe(1,frames,i,3,4.0,9.0,0.0,0.0,0.9,8.0,1.0)
- windowsave(1,pic.%)
- end
-