/* We do the following when open a new page (frame):
1. Add all pending shape objects to the current frame
2. Add current frame to the movie
3. Advance movie by 1 frame
4. Since in Flash, when you advance the movie to the next frame,
all items in the previous frame will be preserved.
To keep in accordance with R's plotting model, we need to
remove the content of previous frame
5. Create a new empty canvas (frame)
6. Reset the clip layer
*/
void swfNewPage(const pGEcontext gc, pDevDesc dd)
{
#ifdef SWF_DEBUG
Rprintf("newPage called\n");
#endif
pswfDesc swfInfo = (pswfDesc) dd->deviceSpecific;
SWFDisplayItem display = NULL;
/* Add current frame to the movie */
if(swfInfo->currentFrame)
{
SWFMovieClip_nextFrame(swfInfo->currentFrame);
display = SWFMovie_add(swfInfo->m, (SWFBlock) swfInfo->currentFrame);
SWFMovie_nextFrame(swfInfo->m);
}
/* To move to the next frame, we need to first clear the previous one */
if(display) SWFMovie_remove(swfInfo->m, display);
/* Create a new canvas(frame) for next plot() */
swfInfo->currentFrame = newSWFMovieClip();
SWFMovieClip_setNumberOfFrames(swfInfo->currentFrame, 1);
/* Renew the clip layer */
swfInfo->currentClip = NULL;
}
int
main(int argc, char ** argv)
{
SWFMovie mo;
SWFDisplayItem it1, it2, it3;
SWFShape sh1, sh2, sh3;
int framenum;
argc=argc; argv=argv; /* unused... */
/*********************************************
*
* Initialization
*
*********************************************/
puts("Setting things up");
Ming_init();
Ming_useSWFVersion (OUTPUT_VERSION);
Ming_setScale(20.0);
mo = newSWFMovie();
/*****************************************************
*
* Add the square named
*
*****************************************************/
SWFMovie_setDimension(mo, 100, 100);
#define FRAMESGAP 5
sh1 = make_square(10, 10, 20, 20, 255, 0, 0);
it1 = SWFMovie_add(mo, (SWFBlock)sh1);
SWFDisplayItem_setDepth(it1, 1);
SWFDisplayItem_setName(it1, "Name1");
for (framenum=0; framenum<FRAMESGAP; framenum++) {
SWFMovie_nextFrame(mo);
}
sh2 = make_square(35, 10, 20, 20, 0, 255, 0);
it2 = SWFMovie_add(mo, (SWFBlock)sh2);
SWFDisplayItem_setDepth(it2, 2);
SWFDisplayItem_setName(it2, "Name2");
for (framenum=0; framenum<FRAMESGAP; framenum++) {
SWFMovie_nextFrame(mo);
}
sh3 = make_square(10, 35, 45, 20, 0, 0, 255);
it3 = SWFMovie_add(mo, (SWFBlock)sh3);
SWFDisplayItem_setDepth(it3, 3);
SWFDisplayItem_setName(it3, "Name3");
for (framenum=0; framenum<FRAMESGAP; framenum++) {
SWFMovie_nextFrame(mo);
}
SWFMovie_remove(mo, it1);
for (framenum=0; framenum<FRAMESGAP; framenum++) {
SWFMovie_nextFrame(mo);
}
SWFMovie_remove(mo, it2);
for (framenum=0; framenum<FRAMESGAP; framenum++) {
SWFMovie_nextFrame(mo);
}
SWFMovie_remove(mo, it3);
puts("Saving " OUTPUT_FILENAME );
SWFMovie_nextFrame(mo); /* showFrame */
SWFMovie_save(mo, OUTPUT_FILENAME);
return 0;
}
int
main(int argc, char** argv)
{
SWFMovie mo;
SWFMovieClip mc3, mc2, dejagnuclip;
SWFAction ac, ac1, initac;
SWFDisplayItem it;
SWFShape sha;
const char *srcdir=".";
if (argc > 1) srcdir = argv[1];
else {
fprintf(stderr, "Usage: %s <mediadir>\n", argv[0]);
return 1;
}
Ming_init();
mo = newSWFMovieWithVersion(OUTPUT_VERSION);
SWFMovie_setDimension(mo, 800, 600);
SWFMovie_setRate (mo, 12.0);
sha = newSWFShape();
// Character ID 2. Has 1 showframe. Is exported first.
mc2 = newSWFMovieClip();
SWFMovieClip_add(mc2, (SWFBlock)sha);
SWFMovieClip_nextFrame(mc2);
// Export it.
SWFMovie_addExport(mo, (SWFBlock)mc2, "C2");
SWFMovie_writeExports(mo);
// Main timeline actions for frame 1
add_actions(mo, "var c = 0; var i = 0; trace('frame 1'); gotoAndStop(3);");
initac = newSWFAction("trace('onInitialize'); _root.i++;");
// ID 3 is defined here. It has no showframe. It is exported immediately.
mc3 = newSWFMovieClip();
SWFMovie_addExport(mo, (SWFBlock)mc3, "ctor");
SWFMovie_writeExports(mo);
dejagnuclip = get_dejagnu_clip((SWFBlock)get_default_font(srcdir), 10,
0, 0, 800, 600);
SWFMovie_add(mo, (SWFBlock)dejagnuclip);
// Init actions for ID 3. This only exists to create the constructor
// for mc2 in its initactions.
ac = newSWFAction(
" _global.ctor = function () {"
" super();"
" trace('Object ID 2 is constructed');"
" c += 1;"
" };"
);
SWFInitAction ia = newSWFInitAction_withId(ac, 3);
SWFMovie_add(mo, (SWFBlock)ia);
// Init actions for ID 2 (registered class)
ac1 = newSWFAction("Object.registerClass('C2', ctor); "
"trace('Registered class');");
ia = newSWFInitAction_withId(ac1, 2);
SWFMovie_add(mo, (SWFBlock)ia);
// Frame 2
SWFMovie_nextFrame(mo);
add_actions(mo, "trace('Frame 2');");
// Place object ID 2.
it = SWFMovie_add(mo, (SWFBlock)mc2);
SWFDisplayItem_setName(it, "mc2");
SWFDisplayItem_addAction(it, initac, SWFACTION_INIT);
// Frame 3
SWFMovie_nextFrame(mo);
// Remove object ID 2
SWFMovie_remove(mo, it);
add_actions(mo, "trace('frame 3');");
// The class should not be constructed if the object is removed after
// being placed. It should be constructed if it's not removed. MovieClips
// with an onUnload handler are always constructed.
check_equals(mo, "c", "0");
check_equals(mo, "i", "0");
check(mo, "_root.mc2 == undefined");
add_actions(mo, "gotoAndPlay(5);");
// Frame 4
SWFMovie_nextFrame(mo);
add_actions(mo, "trace('Frame 4');");
// Place object ID 2 again
it = SWFMovie_add(mo, (SWFBlock)mc2);
SWFDisplayItem_setName(it, "mc2a");
SWFDisplayItem_addAction(it, initac, SWFACTION_INIT);
// Frame 5
SWFMovie_nextFrame(mo);
// This time the MovieClip was not removed before we get here,
// so it should be present and the constructor should be
// called.
add_actions(mo, "trace('frame 5');");
check_equals(mo, "c", "1");
check_equals(mo, "i", "1");
check(mo, "typeof(_root.mc2a) == 'movieclip'");
add_actions(mo, "stop();");
SWFMovie_nextFrame(mo);
puts("Saving " OUTPUT_FILENAME );
SWFMovie_save(mo, OUTPUT_FILENAME);
return 0;
}
EXPORT BOOL WINAPI m_remove(SWFDisplayItem item, int p2, int p3, int p4)
{
lstrcpy(funcname, "m_remove");
SWFMovie_remove(mhsp_movie, item);
return 0;
}
