movie.sml

print("START");

numeric w;
numeric h;
w = 128;
h = 128;

class Color color;
color.red = 100;
color.green = 50;
color.blue = 50;

#Create Frame
print("Create Frame");
class Frame frameB;
frameB = FrameCreate(2*w,2*h);
class Frame frameS;
frameS = FrameCreate(w,h);

#Create GC From Frame
print("Create GC From Frame");
class GC gc;
gc = FrameCreateGC(frameS);
ActivateGC(gc);
SetColor(color);

print("The small frame is", FrameGetHeight(frameS),"x", FrameGetWidth(frameS));
print("The big frame is", FrameGetHeight(frameB),"x", FrameGetWidth(frameB));

# Create Movie
print("Create Movie");
class Movie movie;
movie = MovieInit();

# Set Movie Parameters
print("Set Movie Parameters");
MovieSetFormat(movie,"AVI");
MovieSetFrameRate(movie,"MOVIE_FRAMERATE_24");
MovieSetFrameWidth(movie,2*w);
MovieSetFrameHeight(movie,2*h);

# Make Output File
string ext$;
ext$ = MovieGetFileExt(movie);
string filename$;
filename$ = GetOutputFileName("","Make filename for movie",ext$);
printf("Filename = %s\n",filename$);

numeric numFrames;
numFrames = 5 * 24;

MovieStart(movie,filename$);

# Create the movie duplicating the small frame in the big one 
numeric i;
for i = 1 to (numFrames / 2) {
	SetStatusMessage(sprintf("Processing frame %d of %d",2*i,numFrames));
	FillCircle(w / 2, h / 2, i);
	FrameCopy(frameS,frameB,0,0,w,h,0,0);
	FrameCopy(frameS,frameB,0,0,w,h,w,0);
	FrameCopy(frameS,frameB,0,0,w,h,0,h);
	FrameCopy(frameS,frameB,0,0,w,h,w,h);
	MovieAddFrame(movie,frameB);
	}
MovieStop(movie);
DestroyGC(gc);
MovieExit(movie);
FrameDestroy(frameB);
FrameDestroy(frameS);

print("END");