home *** CD-ROM | disk | FTP | other *** search
- !clear
- ;this script creates <frames> pictures of a spherical 3D-wave
- ;the cube should have a resolution of 10x10x10 points (or more)
- ;DustV1.83+ required
-
- calc(frames=60)
-
- set(screen,t)
- set(screendepth,5)
- set(drawmode,color)
- set(windowpri,1)
- avail
- load(1,cube)
- color(1,255,0,0)
- avail
- copy(1,3)
- avail
- window(3,0,0,300,color,21,306,0.8,true,false)
- avail
- set(checkmouse,f)
- for(i,1,frames)
- wave3dframe(1,frames,i,3,s)
- windowsave(1,pic.%)
- end
-