static void
do_movie (int version)
{
SWFMovie movie;
char *real_name;
guint i;
movie = newSWFMovieWithVersion (version);
movie = newSWFMovie();
SWFMovie_setRate (movie, 1);
SWFMovie_setDimension (movie, 200, 150);
modify_placement (movie, i);
SWFMovie_nextFrame (movie);
SWFMovie_add (movie, (SWFBlock) newSWFAction (""
#if 0
"loadMovie (\"FSCommand:quit\", \"\");"
#else
"stop ();"
#endif
));
SWFMovie_nextFrame (movie);
real_name = g_strdup_printf ("duplicate-depth-%d.swf", version);
SWFMovie_save (movie, real_name);
g_free (real_name);
}
static void
do_movie (int version)
{
char name[100];
SWFMovie movie;
SWFTextField text;
SWFDisplayItem display;
movie = newSWFMovieWithVersion (version);
movie = newSWFMovie();
SWFMovie_setRate (movie, 1);
SWFMovie_setDimension (movie, 200, 150);
text = newSWFTextField ();
SWFTextField_setVariableName (text, "/:foo");
display = SWFMovie_add (movie, (SWFBlock) text);
SWFMovie_nextFrame (movie);
SWFMovie_add (movie, (SWFBlock) newSWFAction (
"loadMovie (\"FSCommand:quit\", \"\");"
));
SWFMovie_nextFrame (movie);
sprintf (name, "crash-0.5.3-text-field-root-variable-%d.swf", version);
SWFMovie_save (movie, name);
}
int main()
{
int i;
SWFMovie m = newSWFMovieWithVersion(8);
SWFShape shape1 = newSWFShape();
SWFShape shape2 = newSWFShape();
SWFShape_setLine2(shape1, 1, 25, 0, 0, 128, SWF_LINESTYLE_FLAG_HINTING, 0);
SWFShape_movePenTo(shape1, 5, 5);
SWFShape_drawLineTo(shape1, 50, 30);
SWFShape_setLine2(shape2, 1, 25, 100, 100, 255, SWF_LINESTYLE_FLAG_HINTING, 0);
SWFShape_movePenTo(shape2, 5, 5);
SWFShape_drawLineTo(shape2, 50, 130);
SWFDisplayItem item = SWFMovie_add(m, shape1);
SWFMovie_nextFrame(m);
SWFMovie_replace(m, item, shape2);
SWFMovie_nextFrame(m);
SWFMovie_save(m,"test01.swf");
return 0;
}
int
main(int argc, char** argv)
{
SWFMovie mo;
SWFMovieClip mc, dejagnuclip;
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);
dejagnuclip = get_dejagnu_clip((SWFBlock)get_default_font(srcdir), 10, 0, 0, 800, 600);
SWFMovie_add(mo, (SWFBlock)dejagnuclip);
SWFMovie_nextFrame(mo); /* 1st frame */
mc = newSWFMovieClip();
add_clip_actions(mc, "_root.x = 1;"
"_root.check_equals(_root.x, 1);");
SWFMovieClip_nextFrame(mc);
add_actions(mo, " gotoAndPlay(4); ");
SWFMovie_nextFrame(mo); /* 2nd frame */
SWFMovie_nextFrame(mo); /* 3rd frame */
/* add mc to _root and name it as "mc" */
SWFDisplayItem it;
it = SWFMovie_add(mo, (SWFBlock)mc);
SWFDisplayItem_setDepth(it, 3);
SWFDisplayItem_setName(it, "mc");
add_actions(mo, " _root.x = 2; "
" _root.check_equals(_root.x, 2); ");
SWFMovie_nextFrame(mo); /* 4th frame */
SWFDisplayItem_remove(it);
check_equals(mo, "_root.x", "1");
check_equals(mo, "typeof(mc)", "'undefined'");
add_actions(mo, " _root.totals(); stop(); ");
SWFMovie_nextFrame(mo); /* 5th frame */
//Output movie
puts("Saving " OUTPUT_FILENAME );
SWFMovie_save(mo, OUTPUT_FILENAME);
return 0;
}
int
main(int argc, char** argv)
{
SWFMovie mo;
SWFMovieClip dejagnuclip;
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, 1.0);
dejagnuclip = get_dejagnu_clip((SWFBlock)get_default_font(srcdir), 10, 0, 0, 800, 600);
SWFMovie_add(mo, (SWFBlock)dejagnuclip);
SWFMovie_nextFrame(mo); // frame1
// get current time in frame2
add_actions(mo, "x1 = getTimer();");
SWFMovie_nextFrame(mo); // frame2
// just delay some time here
add_actions(mo, " for(i=0; i<1000; i++) {} ");
// get current time in frame3
add_actions(mo, "x2 = getTimer();");
SWFMovie_nextFrame(mo); // frame3
// check that the timer is working
check(mo, "x1 > 0");
check(mo, "x2 > x1" );
// this is dependent on frame rate(current setting is 1 second per frame)
// check(mo, "x2 > 1000");
check(mo, "x2 < 6000");
// check that "getTimer" return a intergral number
check(mo, "x2 == Math.ceil(x2)");
check(mo, "x2 == Math.floor(x2)");
SWFMovie_nextFrame(mo); // frame4
add_actions(mo, "_root.totals(); stop();");
SWFMovie_nextFrame(mo); // frame5
//Output movie
puts("Saving " OUTPUT_FILENAME );
SWFMovie_save(mo, OUTPUT_FILENAME);
return 0;
}
static void
do_movie (int version)
{
char name[100];
SWFMovie movie;
SWFTextField text;
SWFDisplayItem display;
movie = newSWFMovieWithVersion (version);
movie = newSWFMovie();
SWFMovie_setRate (movie, 1);
SWFMovie_setDimension (movie, 200, 150);
text = newSWFTextField ();
display = SWFMovie_add (movie, (SWFBlock) text);
SWFMovie_add (movie, (SWFBlock) newSWFAction (""
"trace ('Test whether native properties of TextField are initialized if the movie contains an EditText tag');"
"_global.TextField.prototype.hasOwnProperty = ASnative (101, 5);"
"trace (_global.TextField.prototype.hasOwnProperty ('text'));"
"_global.TextField.prototype = new Object ();"
"loadMovie (\"FSCommand:quit\", \"\");"
""));
SWFMovie_nextFrame (movie);
sprintf (name, "text-field-init-native-%d.swf", version);
SWFMovie_save (movie, name);
}
/*
* device_Close is called when the device is killed (dev.off).
* This function is responsible for destroying any
* device-specific resources that were created in
* device_Open and for FREEing the device-specific
* parameters structure.
*
*/
static void SWF_Close( pDevDesc deviceInfo){
/* Shortcut pointers to variables of interest. */
swfDevDesc *swfInfo = (swfDevDesc *) deviceInfo->deviceSpecific;
//If there is an open deug log, close it
if( swfInfo->debug == TRUE ){
fprintf(swfInfo->logFile,
"SWF_Close: ending movie with %d frames\n",swfInfo->nFrames);
fprintf(swfInfo->logFile,
"SWF_Close: end swf output\n");
fclose(swfInfo->logFile);
}
// Set the desired compression level for the output
//(9 = maximum compression)
Ming_setSWFCompression(9);
//For some reason the last frame does't get drawn unless this happens
// but then an extra blank frame gets entered?
if( swfInfo->nFrames > 1 )
SWFMovie_nextFrame( swfInfo->m );
// Save the swf movie file to disk
SWFMovie_save(swfInfo->m, swfInfo->outFileName);
//Clear the movie reference
destroySWFMovie(swfInfo->m);
Ming_cleanup();
/* Destroy the swfInfo structure. */
free(swfInfo);
}
int main()
{
SWFMovie m = newSWFMovie();
SWFText text = newSWFText();
SWFTextField textfield = newSWFTextField();
SWFDisplayItem it;
SWFFont font = newSWFFont_fromFile(MEDIADIR "/font01.fdb");
if(font == NULL)
{
perror(MEDIADIR "/font01.fdb");
exit(EXIT_FAILURE);
}
SWFText_setFont(text, font);
SWFText_setColor(text, 0, 0, 0xff, 0xff);
SWFText_setHeight(text, 20);
SWFText_moveTo(text, 100, 100);
SWFText_addString(text, "1234567890", NULL);
SWFTextField_setFont(textfield, font);
SWFTextField_addString(textfield, "1234567890");
SWFTextField_setColor(textfield, 0xff, 0, 0, 0xff);
SWFTextField_setHeight(textfield, 20);
SWFMovie_add(m, text);
it = SWFMovie_add(m, textfield);
SWFDisplayItem_moveTo(it, 100, 120);
SWFMovie_nextFrame(m);
SWFMovie_save(m, "test04.swf");
return 0;
}
int output_swf_writer(FILE* file, at_string name,
int llx, int lly, int urx, int ury,
at_output_opts_type * opts,
spline_list_array_type shape,
at_msg_func msg_func,
at_address msg_data,
at_address user_data)
{
int width = urx - llx;
int height = ury - lly;
SWFMovie m;
#ifdef _WINDOWS
if(file == stdout)
{
fprintf(stderr, "This driver couldn't write to stdout!\n");
return -1;
}
#endif
Ming_init();
Ming_setCubicThreshold(20000);
m = newSWFMovie();
out_splines(m, shape, height);
SWFMovie_setDimension(m, SWFSCALE*(float)width, SWFSCALE*(float)height);
SWFMovie_setRate(m, FPS);
SWFMovie_nextFrame(m);
SWFMovie_output(m, fileOutputMethod, file);
return 0;
}
int main(int argc, char *argv[])
{
SWFMovie movie;
SWFShape shape1;
SWFGradient grad_1;
SWFFill fill1;
SWFDisplayItem timeline;
SWFShape shape2;
SWFGradient grad_2;
SWFFill fill2;
Ming_init(argc, argv);
Ming_useSWFVersion(5);
movie= newSWFMovie();
SWFMovie_setDimension(movie, 320, 240);
shape1= newSWFShape();
/* first gradient- black to white */
grad_1= newSWFGradient();
SWFGradient_addEntry(grad_1, 0, 0x00, 0x00, 0x00, 0xFF);
SWFGradient_addEntry(grad_1, 1, 0xFF, 0xFF, 0xFF, 0xFF);
fill1= SWFShape_addGradientFill(shape1, grad_1, SWFFILL_LINEAR_GRADIENT);
SWFFill_scaleTo(fill1, 0.170, 0.170);
SWFFill_moveTo(fill1, 160.00, 120.00);
SWFShape_setRightFill(shape1, fill1);
SWFShape_drawLineTo(shape1, 320.00, 0.00);
SWFShape_drawLineTo(shape1, 320.00, 240.00);
SWFShape_drawLineTo(shape1, 0.00, 240.00);
SWFShape_drawLineTo(shape1, 0.00, 0.00);
timeline= SWFMovie_add(movie, (SWFBlock) shape1);
/* SWFDisplayItem_moveTo(timeline, 0.00, 0.00);*/
shape2= newSWFShape();
/* second gradient- radial gradient from white to red to transparent */
grad_2= newSWFGradient();
SWFGradient_addEntry(grad_2, 0, 0xFF, 0x00, 0x00, 0xFF);
SWFGradient_addEntry(grad_2, 1, 0xFF, 0x00, 0x00, 0x00);
fill2= SWFShape_addGradientFill(shape2, grad_2, SWFFILL_RADIAL_GRADIENT);
SWFFill_scaleTo(fill2, 0.120, 0.120);
SWFFill_moveTo(fill2, 160.00, 120.00);
SWFShape_setRightFill(shape2, fill2);
SWFShape_drawLineTo(shape2, 320.00, 0.00);
SWFShape_drawLineTo(shape2, 320.00, 240.00);
SWFShape_drawLineTo(shape2, 0.00, 240.00);
SWFShape_drawLineTo(shape2, 0.00, 0.00);
timeline= SWFMovie_add(movie, (SWFBlock) shape2);
SWFMovie_nextFrame(movie);
SWFMovie_save(movie, "gradient.swf");
return 0;
}
static void
add_n_bytes_frame (SWFMovie movie, guint n_bytes)
{
char *action;
g_return_if_fail (n_bytes >= 34);
action = g_strdup_printf ("asm { push \"%*s\" pop };", n_bytes - 33, "x");
SWFMovie_add (movie, (SWFBlock) newSWFAction (action));
SWFMovie_nextFrame (movie);
g_free (action);
}
void
runNoMultipleSoundsTest(SWFMovie mo, SWFSound so, int* frame)
{
const char* frameDesc[5];
int i;
SWFMovie_nextFrame(mo);
add_actions(mo,
"note('\nNon-multiple Sound Test\n"
"The notes should start exactly at the beginning "
"of a frame (to coincide with the appearance of the description "
"text)');");
/* This is what is supposed to happen in each frame */
frameDesc[0] = "Two notes (C, E)";
frameDesc[1] = "One note (G)";
frameDesc[2] = "Two notes (C, E) ";
frameDesc[3] = "One note (G)";
frameDesc[4] = "Nothing";
for (i = 0; i < 4; i++)
{
printFrameInfo(mo, i, frameDesc[i]);
SWFSoundInstance so_in = SWFMovie_startSound(mo, so);
SWFSoundInstance_setNoMultiple(so_in);
SWFMovie_nextFrame(mo); (*frame)++;
}
//SWFMovie_nextFrame(mo);
printFrameInfo(mo, i, frameDesc[i]);
SWFMovie_stopSound(mo, so);
}
static SWFMovie
compile(const char* filename, const char* ppfile, int version)
{
SWFAction ac;
SWFMovie mo = newSWFMovieWithVersion(version);
makeswf_set_swfversion(version);
ac = makeswf_compile_source(filename, ppfile, 0);
SWFMovie_add(mo, (SWFBlock)ac);
SWFMovie_nextFrame(mo);
return mo;
}
void swfClose(pDevDesc dd)
{
#ifdef SWF_DEBUG
Rprintf("close called\n");
#endif
pswfDesc swfInfo = (pswfDesc) dd->deviceSpecific;
if(swfInfo->currentFrame)
{
SWFMovieClip_nextFrame(swfInfo->currentFrame);
SWFMovie_add(swfInfo->m, (SWFBlock) swfInfo->currentFrame);
SWFMovie_nextFrame(swfInfo->m);
}
SWFMovie_save(swfInfo->m, swfInfo->filename);
destroySWFFillStyleArray(swfInfo->array);
free(swfInfo);
}
/*
* device_NewPage is called whenever a new plot requires
* a new page.
* A new page might mean just clearing the
* device (e.g., X11) or moving to a new page
* (e.g., postscript)
*
*/
static void SWF_NewPage( const pGEcontext plotParams, pDevDesc deviceInfo ){
/* Shortcut pointers to variables of interest. */
swfDevDesc *swfInfo = (swfDevDesc *) deviceInfo->deviceSpecific;
if( swfInfo->debug == TRUE ){
fprintf(swfInfo->logFile,
"SWF_Newpage: Starting new frame\n");
fflush(swfInfo->logFile);
}
if(!(swfInfo->nFrames == 0)){
/*
* Add a new frame to the current movie.
* This function adds a new frame to the current movie.
* All items added, removed
* manipulated effect this frame and probably following frames.
*/
SWFMovie_nextFrame( swfInfo->m );
/*Wipe the slate clean:
* nextFrame draws all the ojects and then advances the frame
* so remove all the objects in the display list and start over.
*
* This addresses a difference in the drawing model of Ming and
* R. Ming wants to set up objects, save them and move them around
* later which makes sense in flash. It assumes you want to keep
* those objects in the next frame. R wants to draw a shape and
* forget about it. Hence the voodoo with the linked list and
* storing the display items in the current frame.
*/
while (swfInfo->displayListHead) {
swfInfo->displayListTail = swfInfo->displayListHead->next;
SWFDisplayItem_remove(swfInfo->displayListHead->d);
free(swfInfo->displayListHead);
swfInfo->displayListHead = swfInfo->displayListTail;
}
}
swfInfo->nFrames++;
/*if(swfInfo->haveControls == TRUE){
SWF_addPlayerControls(&swfInfo->ControlsX,&swfInfo->ControlsY);
}*/
}
int main(int argc, char** argv)
{
SWFMovie movie;
SWFMovieClip dejagnuclip;
SWFAction ac[FRAME_COUNT];
int i;
const char *srcdir=".";
if ( argc>1 ) srcdir=argv[1];
else
{
fprintf(stderr, "Usage: %s <mediadir>\n", argv[0]);
return 1;
}
Ming_init();
movie = newSWFMovie();
SWFMovie_setDimension(movie, 800, 600);
dejagnuclip = get_dejagnu_clip((SWFBlock)get_default_font(srcdir), 10, 0, 0, 800, 600);
SWFMovie_add(movie, (SWFBlock)dejagnuclip);
// Add frame ActionScipts to frames
ac[0] = action_in_frame1();
ac[1] = action_in_frame2();
ac[2] = action_in_frame3();
ac[3] = action_in_frame4();
for(i=0; i<FRAME_COUNT; i++)
{
SWFMovie_add(movie, (SWFBlock)ac[i]);
SWFMovie_nextFrame(movie);
}
// save files
puts("Saving " OUTPUT_FILENAME );
SWFMovie_save(movie, OUTPUT_FILENAME);
return 0;
}
int main()
{
SWFMovie m = newSWFMovie();
SWFTextField text = newSWFTextField();
SWFFont font = newSWFFont_fromFile(MEDIADIR "/test.ttf");
if(font == NULL)
{
perror(MEDIADIR "/test.tff");
exit(EXIT_FAILURE);
}
SWFTextField_setFont(text, font);
SWFTextField_setColor(text, 0, 0, 0, 0xff);
SWFTextField_setHeight(text, 20);
SWFMovie_add(m, text);
SWFMovie_nextFrame(m);
SWFMovie_save(m, "test02.swf");
return 0;
}
/* 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;
}
static void
modify_placement (SWFMovie movie, guint mod)
{
SWFDisplayItem item;
SWFBlock clip, clip2;
clip = (SWFBlock) newSWFMovieClip ();
add_rectangle ((SWFMovieClip) clip, 255, 0, 0);
SWFMovieClip_nextFrame ((SWFMovieClip) clip);
clip2 = (SWFBlock) newSWFMovieClip ();
add_rectangle ((SWFMovieClip) clip2, 0, 0, 255);
SWFMovieClip_nextFrame ((SWFMovieClip) clip2);
item = SWFMovie_add (movie, clip);
SWFDisplayItem_setDepth (item, 1);
SWFDisplayItem_setName (item, "a");
SWFMovie_nextFrame (movie);
item = SWFMovie_add (movie, clip2);
SWFDisplayItem_setDepth (item, 1);
SWFDisplayItem_moveTo (item, 20, 20);
SWFDisplayItem_setName (item, "b");
}
int main()
{
SWFMovie m = newSWFMovie();
SWFTextField text = newSWFTextField();
SWFFont font = newSWFFont_fromFile(MEDIADIR "/test.ttf");
if(font == NULL)
{
perror(MEDIADIR "/test.tff");
exit(EXIT_FAILURE);
}
SWFTextField_setFont(text, font);
SWFTextField_setColor(text, 0, 0, 0, 0xff);
SWFTextField_setHeight(text, 20);
SWFTextField_setFlags(text, SWFTEXTFIELD_NOEDIT);
SWFTextField_addString(text, "The quick brown fox jumps over the lazy dog. 1234567890");
SWFMovie_add(m, text);
SWFMovie_nextFrame(m);
SWFMovie_save(m, "test01.swf");
return 0;
}
int main()
{
SWFMovie m;
SWFMovieClip mc;
SWFSoundStream stream;
FILE* file;
file = fopen(MEDIADIR "/sound1.mp3", "rb");
if(!file)
{
perror(MEDIADIR "/sound1.mp3");
return EXIT_FAILURE;
}
m = newSWFMovieWithVersion(7);
SWFMovie_setRate(m, 1);
stream = newSWFSoundStream(file);
if(stream == NULL)
{
fprintf(stderr, "SoundStream failed\n");
return EXIT_FAILURE;
}
mc = newSWFMovieClip();
SWFMovieClip_setSoundStream(mc, stream, 1);
SWFMovieClip_nextFrame(mc);
SWFMovieClip_nextFrame(mc);
SWFMovie_add(m, mc);
SWFMovie_nextFrame(m);
SWFMovie_save(m, "test01.swf");
fclose(file);
return EXIT_SUCCESS;
}
void
runTrimmedSoundsTest(SWFMovie mo, SWFSound so, int* frame)
{
SWFSoundInstance so_in;
SWFMovie_nextFrame(mo);
add_actions(mo,
"note('\nTrimmed Sound Test.\n"
"The notes should start exactly at the beginning of a frame "
"(to coincide with the appearance of the description text');");
// outPoint
so_in = SWFMovie_startSound(mo, so);
SWFSoundInstance_setLoopOutPoint(so_in, 44100*2);
printFrameInfo(mo, 0, "Two notes (C, E)");
SWFMovie_nextFrame(mo); (*frame)++;
// inPoint
so_in = SWFMovie_startSound(mo, so);
SWFSoundInstance_setLoopInPoint(so_in, 44100);
// We ask not to start this if previous is still going,
// so if outPoint didn't work it's easly to detect
SWFSoundInstance_setNoMultiple(so_in);
printFrameInfo(mo, 1, "Two notes (E, G)");
SWFMovie_nextFrame(mo); (*frame)++;
// inPoint + outPoint + loop
so_in = SWFMovie_startSound(mo, so);
SWFSoundInstance_setLoopInPoint(so_in, 44100);
SWFSoundInstance_setLoopOutPoint(so_in, 44100*2);
SWFSoundInstance_setLoopCount(so_in, 2);
printFrameInfo(mo, 2, "One note (E)");
SWFMovie_nextFrame(mo); (*frame)++;
printFrameInfo(mo, 3, "One note (E)");
SWFMovie_nextFrame(mo); (*frame)++;
printFrameInfo(mo, 4, "Nothing");
SWFMovie_nextFrame(mo); (*frame)++;
}
int
main(int argc, char** argv)
{
SWFMovie mo;
SWFMovieClip dejagnuclip;
SWFDisplayItem it, it1, it2, it3;
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);
// low frame rate is needed for visual checking
SWFMovie_setRate (mo, 1.0);
dejagnuclip = get_dejagnu_clip((SWFBlock)get_default_font(srcdir), 10, 0, 0, 800, 600);
SWFMovie_add(mo, (SWFBlock)dejagnuclip);
add_actions(mo,
"test1=0; test2=0; test3=0; test4=0; test5='0'; test6=0; "
"keyPressed=false; keyReleased=false;"
"haslooped1=false; haslooped2=false;");
SWFMovie_nextFrame(mo); // _root frame1
// test1:
// (1)onKeyDown, onKeyPress and onKeyUp are not global functions
// (2)test that global Key object can be overridden
// (3)after overriden, previously registered handlers could still respond to new key events
add_actions(mo,
"_root.var1 = 0; _root.var2 = 0;"
"l = new Object();"
"l.onKeyDown = function () { _root.note('l.onKeyDown'); _root.var1+=1; _root.Play(); }; "
"l.onKeyUp = function () { _root.note('l.onKeyUp'); _root.var2+=1;}; "
" Key.addListener(l);"
"check_equals(typeof(Key), 'object');"
"check_equals(typeof(onKeyUp), 'undefined');"
"check_equals(typeof(onKeyDown), 'undefined');"
"check_equals(typeof(onKeyPress), 'undefined');"
"stop();"
"_root.note('1. Press a single key to continue the test');"
);
SWFMovie_nextFrame(mo); // _root frame2
SWFMovie_nextFrame(mo); // _root frame3
add_actions(mo,
"stop();"
"check_equals(var1, 1); "
"check_equals(var2, 1); "
"Key = 3;"
"check_equals(typeof(Key), 'number');"
"_root.note('2. Press a single key to continue the test');"
);
SWFMovie_nextFrame(mo); // _root frame4
SWFMovie_nextFrame(mo); // _root frame5
add_actions(mo,
"stop();"
"check_equals(var1, 2); "
"check_equals(var2, 2);"
"delete Key; "
"check_equals(typeof(Key), 'object');"
"Key.removeListener(l);"
"_root.note('3. Press a single key to continue the test');"
"obj1=new Object(); "
" obj1.onKeyDown=function() {"
" _root.note('obj1.onKeyDown');"
" _root.play();"
"}; "
" Key.addListener(obj1); "
);
SWFMovie_nextFrame(mo); // _root frame6
add_actions(mo,
"check_equals(var1, 2);"
"check_equals(var2, 2);"
"Key.removeListener(obj1);"
"delete l; delete obj1; "
);
SWFMovie_nextFrame(mo); // _root frame7
// test2:
// test removing of static clip key listeners
SWFMovie_nextFrame(mo); // _root frame8
it = add_static_mc(mo, "listenerClip1", 20);
SWFDisplayItem_addAction(it,
newSWFAction(" _root.note('listenerClip2.onClipKeyDown'); "
" _root.test2++; "
"if(!_root.haslooped1){"
" _root.haslooped1=true;"
" _root.gotoAndPlay(_root._currentframe-1);"
"} else {"
" _root.gotoAndPlay(_root._currentframe+1);"
"}"
),
SWFACTION_KEYDOWN);
add_actions(mo,
"stop();"
"_root.note('4. Press a single key to continue the test');"
);
SWFMovie_nextFrame(mo); // _root frame9
check_equals(mo, "_root.test2", "2");
SWFDisplayItem_remove(it);
SWFMovie_nextFrame(mo); // _root frame10
// test3:
// test removing of dynamic sprite key listeners
SWFMovie_nextFrame(mo); // _root frame11
add_actions(mo,
"stop();"
"_root.note('5. Press a single key to continue the test');"
"_root.createEmptyMovieClip('dynamic_mc', -10);"
"dynamic_mc.onKeyDown = function() "
"{"
" _root.note('dynamic_mc.onKeyDown triggered');"
" _root.check_equals(this, _root.dynamic_mc);"
" _root.test3++;"
" if(!_root.haslooped2){"
" _root.haslooped2=true;"
" _root.gotoAndPlay(_root._currentframe-1);"
" _root.check_equals(_root._currentframe, 11);"
" } else {"
" _root.gotoAndPlay(_root._currentframe+1);"
" _root.check_equals(_root._currentframe, 13);"
" }"
"};"
"Key.addListener(dynamic_mc);"
);
SWFMovie_nextFrame(mo); // _root frame12
check_equals(mo, "_root.test3", "2");
add_actions(mo, "dynamic_mc.swapDepths(10); dynamic_mc.removeMovieClip();");
SWFMovie_nextFrame(mo); // _root frame13
// test4:
// GC test
add_actions(mo,
"_root.note('6. Press a single key to continue the test');"
" obj2 = new Object(); "
" obj2.x = 100; "
" obj2.onKeyDown = function () { "
" _root.note('obj2.onKeyDown triggered');"
" _root.test4++; "
" _root.objRef = this; "
" _root.play();"
" };"
" Key.addListener(obj2); "
// After deleting obj2, we still have a key listener kept alive!
" delete obj2; "
" stop();"
);
check_equals(mo, "_root.test4", "0");
SWFMovie_nextFrame(mo); // _root frame14
check_equals(mo, "objRef.x", "100");
check_equals(mo, "_root.test4", "1");
add_actions(mo,
"stop();"
"_root.note('7. Press a single key to continue the test');"
"Key.removeListener(objRef); "
// check that objRef is still alive
"check_equals(typeof(objRef), 'object');"
// delete the objRef, no object and no key listener now.
"delete objRef;"
"obj3=new Object(); "
"obj3.onKeyDown=function() {"
" _root.note('obj3.onKeyDown');"
" _root.gotoAndPlay(_currentframe+1);"
"}; "
"Key.addListener(obj3); "
);
SWFMovie_nextFrame(mo); // _root frame15
check_equals(mo, "_root.test4", "1");
add_actions(mo,
"Key.removeListener(obj3);"
"delete obj3; "
);
SWFMovie_nextFrame(mo); // _root frame16
// test5:
// test key listeners invoking order.
// expected behaviour:
// (1)for DisplayObject key listeners, first added last called
// (2)for general object listeners, first added first called
// (3)for DisplayObject listeners, user defined onKeyDown/Up won't be called
// if not registered to the global Key object.
it1 = add_static_mc(mo, "ls1", 30);
SWFDisplayItem_addAction(it1,
compileSWFActionCode(
"_root.note('ls1.onClipKeyDown');"
"_root.test5 += '+ls1';"
),
SWFACTION_KEYDOWN);
SWFMovie_nextFrame(mo); // _root frame17
it2 = add_static_mc(mo, "ls2", 31);
SWFDisplayItem_addAction(it2,
compileSWFActionCode(
"_root.note('ls2.onClipKeyDown');"
"_root.test5 += '+ls2';"
),
SWFACTION_KEYDOWN);
SWFMovie_nextFrame(mo); // _root frame18
it3 = add_static_mc(mo, "ls3", 29);
SWFDisplayItem_addAction(it3,
compileSWFActionCode(
"_root.note('ls3.onClipKeyDown');"
"_root.test5 += '+ls3';"
),
SWFACTION_KEYDOWN);
SWFMovie_nextFrame(mo); // _root frame19
add_actions(mo,
"obj1=new Object();"
"obj1.onKeyDown = function () { "
" _root.note('obj1.onKeyDown');"
" _root.test5 += '+obj1'; "
" _root.gotoAndPlay(_root._currentframe+1);"
"}; "
"Key.addListener(obj1);"
"ls1.onKeyDown = function () {"
" _root.note('ls1.onKeyDown');"
" _root.test5 += '+ls1';"
"}; "
"Key.addListener(ls1);"
"obj2=new Object();"
"obj2.onKeyDown = function () {"
" _root.note('obj2.onKeyDown');"
" _root.test5 += '+obj2';"
"}; "
"Key.addListener(obj2);"
"ls2.onKeyDown = function () {"
" _root.note('ls2.onKeyDown');"
" _root.test5 += '+ls2';"
"}; "
"Key.addListener(ls2);"
"obj3=new Object();"
"obj3.onKeyDown = function () {"
" _root.note('obj3.onKeyDown');"
" _root.test5 += '+obj3';"
"}; "
"Key.addListener(obj3);"
"ls3.onKeyDown = function () {"
" _root.note('ls3.onKeyDown');"
" _root.test5 += '+ls3';"
"}; "
"stop(); "
"_root.note('8. Press a single key to continue the test');"
);
SWFMovie_nextFrame(mo); // _root frame20
SWFMovie_nextFrame(mo); // _root frame21
add_actions(mo,
"stop(); "
"_root.note('9. Press a single key to continue the test');"
);
SWFDisplayItem_remove(it1);
SWFDisplayItem_remove(it2);
SWFDisplayItem_remove(it3);
SWFMovie_nextFrame(mo); // _root frame22
check_equals(mo, "test5", "'0+ls3+ls2+ls1+obj1+ls1+obj2+ls2+obj3+obj1+obj2+obj3'");
add_actions(mo,
"o = new Object();"
"_root.t = '';"
"o.onKeyDown = function() { t = _root.ff.text; play(); };"
"Key.addListener(o);"
"_root.createTextField('ff', 987, 300, 20, 200, 40);"
"_root.ff.type = 'input';"
"_root.ff.text = 'Input here';"
"_root.ff.border = true;"
"_root.note('10. Click on the TextField and type \"i\"');"
"stop();"
);
SWFMovie_nextFrame(mo); // _root frame23
// The listener is called before text is updated!
check_equals(mo, "_root.t", "'Input here'");
check_equals(mo, "_root.ff.text", "'Input herei'");
add_actions(mo, "totals(); stop();");
SWFMovie_nextFrame(mo); // _root frame24
//Output movie
puts("Saving " OUTPUT_FILENAME );
SWFMovie_save(mo, OUTPUT_FILENAME);
return 0;
}
int main(int argc, char* argv[])
{
SWFMovie mo;
SWFMovieClip mc1, mc2, mc3, mc4, dejagnuclip;
SWFDisplayItem it;
SWFAction ac;
SWFInitAction initac;
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);
add_actions(mo,
"if (!_global.hasOwnProperty('arr')) { _global.arr = []; };"
"_global.ch = function(a, b) {"
" trace(a);"
" if (typeof(b)=='undefined' || (typeof(b)=='boolean' && b)) {"
" _global.arr.push(a);"
" };"
"};"
"this.onEnterFrame = function() { "
" _global.ch('onEnterFrame', false);"
"};"
);
SWFMovie_nextFrame(mo);
// MovieClip 1
mc1 = newSWFMovieClip(); // 1 frames
// SWF_EXPORTASSETS
SWFMovie_addExport(mo, (SWFBlock)mc1, "Segments_Name");
SWFMovie_writeExports(mo);
// MovieClip mc3 has two frames. In each frame a different MovieClip
// is placed with the name Segments.
mc3 = newSWFMovieClip(); // 2 frames
// MovieClip 2
mc2 = newSWFMovieClip(); // 1 frames
// Add mc2
it = SWFMovieClip_add(mc3, (SWFBlock)mc2);
SWFDisplayItem_setDepth(it, 1);
SWFDisplayItem_setName(it, "Segments");
// Frame 2
SWFMovieClip_nextFrame(mc3);
// Remove mc2
SWFDisplayItem_remove(it);
// Add mc1
it = SWFMovieClip_add(mc3, (SWFBlock)mc1);
SWFDisplayItem_setDepth(it, 1);
SWFDisplayItem_setName(it, "Segments");
SWFMovieClip_nextFrame(mc3);
// End mc3
// This is frame 1 of the main timeline
// Put our sprite mc3 on stage.
it = SWFMovie_add(mo, (SWFBlock)mc3);
SWFDisplayItem_setDepth(it, 1);
SWFDisplayItem_setName(it, "mc");
// mc4 is just for executing init actions.
mc4 = newSWFMovieClip();
SWFMovie_addExport(mo, (SWFBlock)mc4, "__Packages.Bug");
SWFMovie_writeExports(mo);
dejagnuclip = get_dejagnu_clip((SWFBlock)get_default_font(srcdir), 10,
0, 0, 800, 600);
SWFMovie_add(mo, (SWFBlock)dejagnuclip);
ac = newSWFAction(
"_global.loops = 0;"
"_global.c = 0;"
"if( !_global.Bug ) {"
" _global.Bug = function () {"
" this.onUnload = function() { "
" _global.ch('dynamic unload: ' + this.c);"
" }; "
" this.onLoad = function() { "
" _global.ch('dynamic load: ' + this.c);"
" }; "
" this.c = _global.c;"
" _global.ch('ctor: ' + _global.c);"
" _global.c++;"
" };"
"};"
);
initac = newSWFInitAction_withId(ac, 4);
SWFMovie_add(mo, (SWFBlock)initac);
ac = newSWFAction("Object.registerClass('Segments_Name',Bug);");
initac = newSWFInitAction_withId(ac, 1);
SWFMovie_add(mo, (SWFBlock)initac);
add_actions(mo, "_global.ch('Frame ' + "
"_level0._currentframe + ' actions: ' "
"+ _level0.mc.Segments.c);");
// Frame 2 of the main timeline
SWFMovie_nextFrame(mo);
add_actions(mo, "_global.ch('Frame ' + "
"_level0._currentframe + ' actions: ' "
"+ _level0.mc.Segments.c);");
add_actions(mo,
" if (_global.loops < 5) {"
" _global.loops++;"
" gotoAndPlay(2);"
" }"
" else {"
" delete this.onEnterFrame;"
" gotoAndPlay(4);"
" };"
);
SWFMovie_nextFrame(mo);
check_equals(mo, "_global.arr.length", "20");
check_equals(mo, "_global.arr[0]", "'Frame 2 actions: undefined'");
check_equals(mo, "_global.arr[1]", "'ctor: 0'");
xcheck_equals(mo, "_global.arr[2]", "'Frame 3 actions: 0'");
xcheck_equals(mo, "_global.arr[3]", "'dynamic load: 0'");
check_equals(mo, "_global.arr[4]", "'Frame 2 actions: 0'");
check_equals(mo, "_global.arr[5]", "'Frame 3 actions: 0'");
check_equals(mo, "_global.arr[6]", "'Frame 2 actions: 0'");
check_equals(mo, "_global.arr[7]", "'ctor: 1'");
check_equals(mo, "_global.arr[8]", "'dynamic unload: 0'");
xcheck_equals(mo, "_global.arr[9]", "'Frame 3 actions: 0'");
check_equals(mo, "_global.arr[11]", "'Frame 2 actions: 0'");
check_equals(mo, "_global.arr[12]", "'Frame 3 actions: 1'");
check_equals(mo, "_global.arr[13]", "'Frame 2 actions: 1'");
check_equals(mo, "_global.arr[14]", "'ctor: 2'");
check_equals(mo, "_global.arr[15]", "'dynamic unload: 1'");
xcheck_equals(mo, "_global.arr[16]", "'Frame 3 actions: 1'");
xcheck_equals(mo, "_global.arr[17]", "'dynamic load: 2'");
check_equals(mo, "_global.arr[18]", "'Frame 2 actions: 1'");
check_equals(mo, "_global.arr[19]", "'Frame 3 actions: 2'");
xcheck_equals(mo, "_global.arr.toString()",
"'Frame 2 actions: undefined,ctor: 0,Frame 3 actions: 0,dynamic load: 0,Frame 2 actions: 0,Frame 3 actions: 0,Frame 2 actions: 0,ctor: 1,dynamic unload: 0,Frame 3 actions: 0,dynamic load: 1,Frame 2 actions: 0,Frame 3 actions: 1,Frame 2 actions: 1,ctor: 2,dynamic unload: 1,Frame 3 actions: 1,dynamic load: 2,Frame 2 actions: 1,Frame 3 actions: 2'");
SWFMovie_nextFrame(mo);
add_actions(mo, "totals(21); stop();");
SWFMovie_nextFrame(mo);
// SWF_END
SWFMovie_save(mo, OUTPUT_FILENAME);
return 0;
}
int
main(int argc, char** argv)
{
SWFMovie mo;
SWFMovieClip mc;
SWFSoundStream ss;
FILE* sound_f;
const char* sound_filename;
SWFDisplayItem it;
struct stat statbuf;
if ( argc>1 ) {
sound_filename=argv[1];
} else {
sound_filename="sound1.mp3";
}
sound_f = fopen(sound_filename, "r");
if ( ! sound_f ) {
perror(sound_filename);
return EXIT_FAILURE;
}
printf("Using sound file %s\n", sound_filename);
if ( -1 == fstat(fileno(sound_f), &statbuf) )
{
perror("fstat");
return EXIT_FAILURE;
}
if ( S_ISDIR(statbuf.st_mode) )
{
fprintf(stderr, "%s is a directory, we need a file\n", sound_filename);
return EXIT_FAILURE;
}
Ming_init();
Ming_useSWFVersion (OUTPUT_VERSION);
mo = newSWFMovie();
SWFMovie_setDimension(mo, 100, 100);
SWFMovie_setRate(mo, 1);
ss = newSWFSoundStream(sound_f);
mc = newSWFMovieClip();
SWFMovieClip_setSoundStream(mc, ss, 1);
SWFMovieClip_nextFrame(mc);
it = SWFMovie_add(mo, mc);
SWFMovie_nextFrame(mo);
SWFMovie_nextFrame(mo);
SWFMovie_nextFrame(mo);
SWFMovie_nextFrame(mo);
SWFMovie_nextFrame(mo);
SWFMovie_nextFrame(mo);
SWFMovie_nextFrame(mo);
SWFMovie_nextFrame(mo);
//Output movie
puts("Saving " OUTPUT_FILENAME );
SWFMovie_save(mo, OUTPUT_FILENAME);
return EXIT_SUCCESS;
}
int
main(int argc, char** argv)
{
SWFMovie mo;
SWFMovieClip mc1, mc2, dejagnuclip;
SWFDisplayItem it;
SWFShape sh1,sh2;
SWFAction ac1, ac2;
int i;
const char *srcdir=".";
if ( argc>1 )
srcdir=argv[1];
else
{
//fprintf(stderr, "Usage: %s <mediadir>\n", argv[0]);
//return 1;
}
Ming_init();
mo = newSWFMovie();
SWFMovie_setDimension(mo, 800, 600);
SWFMovie_setRate (mo, 1.0);
dejagnuclip = get_dejagnu_clip((SWFBlock)get_default_font(srcdir), 10, 0, 0, 800, 600);
SWFMovie_add(mo, (SWFBlock)dejagnuclip);
SWFMovie_nextFrame(mo);
sh1 = make_fill_square (0, 220, 60, 60, 255, 0, 0, 255, 0, 0);
sh2 = make_fill_square (30, 250, 60, 60, 255, 0, 0, 0, 0, 0);
it = SWFMovie_add(mo, (SWFBlock)sh1);
SWFDisplayItem_setName(it, "sh1");
SWFDisplayItem_setDepth(it, 3); //place the sh1 DisplayObject at depth 3
it = SWFMovie_add(mo, (SWFBlock)sh2);
SWFDisplayItem_setName(it, "sh2");
SWFDisplayItem_setDepth(it, 3); //place the sh2 DisplayObject at depth 3 again!
add_actions(mo, "note('Placed red shape sh1 and black shape sh2 at the same depth 3. Should both be visible, red on top.');");
xcheck_equals(mo, "sh1", "sh2");
check_equals(mo, "typeof(sh1)", "'movieclip'");
xcheck_equals(mo, "typeof(sh2)", "'movieclip'");
SWFMovie_nextFrame(mo);
mc1 = newSWFMovieClip();
it = SWFMovieClip_add(mc1, (SWFBlock)sh1);
SWFDisplayItem_setName(it, "sh1");
SWFDisplayItem_moveTo(it, 100, 0);
SWFMovieClip_nextFrame(mc1);
mc2 = newSWFMovieClip();
it = SWFMovieClip_add(mc2, (SWFBlock)sh2);
SWFDisplayItem_setName(it, "sh1");
SWFDisplayItem_moveTo(it, 100, 0);
SWFMovieClip_nextFrame(mc2);
it = SWFMovie_add(mo, (SWFBlock)mc2);
SWFDisplayItem_setName(it, "mc2");
SWFDisplayItem_setDepth(it, 4); //place the mc2 sprite at depth 3 again!
it = SWFMovie_add(mo, (SWFBlock)mc1);
SWFDisplayItem_setName(it, "mc1");
SWFDisplayItem_setDepth(it, 4); //place the mc1 sprite at depth 3
add_actions(mo, "note('Placed red sprite mc1 and black sprite mc2 at the same depth 4. Should both be visible, black on top.');");
xcheck_equals(mo, "typeof(mc1)", "'movieclip'");
check_equals(mo, "typeof(mc2)", "'movieclip'");
check(mo, "mc1._name != mc2._name");
check_equals(mo, "mc1.getDepth()", "mc2.getDepth()");
// TODO: use SWFMovie_replace and see if it would replace
// only one or both DisplayObjects at target depth
// (not that we can trust Ming stability here..)
add_actions(mo, "_root.totals(7); stop();");
SWFMovie_nextFrame(mo);
//Output movie
puts("Saving " OUTPUT_FILENAME );
SWFMovie_save(mo, OUTPUT_FILENAME);
return 0;
}
int
main(int argc, char** argv)
{
SWFMovie mo;
SWFMovieClip mc1, mc2, dejagnuclip;
SWFDisplayItem it1, it2;
SWFShape sh1,sh2;
const char *srcdir=".";
if ( argc>1 )
srcdir=argv[1];
else
{
//fprintf(stderr, "Usage: %s <mediadir>\n", argv[0]);
//return 1;
}
Ming_init();
Ming_useSWFVersion (OUTPUT_VERSION);
mo = newSWFMovie();
SWFMovie_setDimension(mo, 800, 600);
SWFMovie_setRate(mo, 6);
// Frame 1: Place dejagnu clip
dejagnuclip = get_dejagnu_clip((SWFBlock)get_default_font(srcdir), 10, 0, 0, 800, 600);
SWFMovie_add(mo, (SWFBlock)dejagnuclip);
add_actions(mo, "mc1Constructed=0; mc2Constructed=0; mc3Constructed=0; mc4Constructed=0;");
SWFMovie_nextFrame(mo);
//
// Frame 2:
// Place red static movieClip1 DisplayObject at depth 3 (-16381)
// Place black static movieClip1 DisplayObject at depth 4 (-16380)
//
sh1 = make_fill_square (300, 300, 60, 60, 255, 0, 0, 255, 0, 0);
mc1 = newSWFMovieClip();
SWFMovieClip_add(mc1, (SWFBlock)sh1);
SWFMovieClip_nextFrame(mc1);
it1 = SWFMovie_add(mo, (SWFBlock)mc1); //add movieClip1 to the _root
SWFDisplayItem_setDepth(it1, 3);
SWFDisplayItem_setName(it1, "movieClip1"); //name movieClip1
SWFDisplayItem_addAction(it1, newSWFAction(
"_root.note(this+' constructed');"
"_root.mc1Constructed++;"
), SWFACTION_CONSTRUCT);
sh2 = make_fill_square (330, 270, 120, 120, 0, 0, 0, 0, 0, 0);
mc2 = newSWFMovieClip();
SWFMovieClip_add(mc2, (SWFBlock)sh2);
SWFMovieClip_nextFrame(mc2);
it2 = SWFMovie_add(mo, (SWFBlock)mc2); //add movieClip2 to the _root
SWFDisplayItem_setDepth(it2, 4);
SWFDisplayItem_setName(it2, "movieClip2"); //name movieClip2
SWFDisplayItem_addAction(it2, newSWFAction(
"_root.note(this+' constructed');"
"_root.mc2Constructed++;"),
SWFACTION_CONSTRUCT);
SWFMovie_nextFrame(mo);
// Frame3: nothing new
SWFMovie_nextFrame(mo);
// Frame4: remove "movieClip1" and "movieClip2"
SWFDisplayItem_remove(it1);
SWFDisplayItem_remove(it2);
SWFMovie_nextFrame(mo);
//
// Frame5:
// Place red static movieClip3 DisplayObject at depth 3 (-16381) with ratio set to 2.0
// Place black static movieClip4 DisplayObject at depth4 (-16380) with ratio set to 0.0
//
it1 = SWFMovie_add(mo, (SWFBlock)mc1); //add movieClip3 to the _root
SWFDisplayItem_setDepth(it1, 3);
SWFDisplayItem_setName(it1, "movieClip3"); //name movieClip3
SWFDisplayItem_setRatio(it1, 2.0); // It's important to set this, don't why yet.
SWFDisplayItem_addAction(it1, newSWFAction(
"_root.note(this+' constructed');"
"_root.mc3Constructed++;"
), SWFACTION_CONSTRUCT);
it2 = SWFMovie_add(mo, (SWFBlock)mc2); //add movieClip4 to the _root
SWFDisplayItem_setDepth(it2, 4);
SWFDisplayItem_setName(it2, "movieClip4"); //name movieClip4
SWFDisplayItem_setRatio(it2, 0.0); // It's important to set this, don't why yet.
SWFDisplayItem_addAction(it2, newSWFAction(
"_root.note(this+' constructed');"
"_root.mc4Constructed++;"
), SWFACTION_CONSTRUCT);
SWFMovie_nextFrame(mo);
//
// Frame4: check, gotoAndStop(3), check..
//
check_equals(mo, "typeof(movieClip1)", "'undefined'");
check_equals(mo, "typeof(movieClip2)", "'undefined'");
check_equals(mo, "typeof(movieClip3)", "'movieclip'");
check_equals(mo, "typeof(movieClip4)", "'movieclip'");
check_equals(mo, "_root.mc1Constructed", "1");
check_equals(mo, "_root.mc2Constructed", "1");
check_equals(mo, "_root.mc3Constructed", "1");
check_equals(mo, "_root.mc4Constructed", "1");
SWFMovie_add(mo, (SWFBlock)newSWFAction( "gotoAndStop(3);"));
check_equals(mo, "typeof(movieClip1)", "'movieclip'");
check_equals(mo, "typeof(movieClip2)", "'undefined'");
// the difference of movieClip3 and movieClip4 was caused by the ratio value
check_equals(mo, "typeof(movieClip3)", "'undefined'");
check_equals(mo, "typeof(movieClip4)", "'movieclip'");
check_equals(mo, "_root.mc1Constructed", "2");
check_equals(mo, "_root.mc2Constructed", "1");
check_equals(mo, "_root.mc3Constructed", "1");
check_equals(mo, "_root.mc4Constructed", "1");
SWFMovie_add(mo, (SWFBlock)newSWFAction( "totals(); stop();" ));
SWFMovie_nextFrame(mo);
//Output movie
puts("Saving " OUTPUT_FILENAME );
SWFMovie_save(mo, OUTPUT_FILENAME);
return 0;
}
int
main(int argc, char** argv)
{
SWFMovie mo;
SWFMovieClip mc1, mc2, dejagnuclip;
SWFDisplayItem it1, it2;
SWFShape sh_red;
/* For the button duplication test */
#if MING_VERSION_CODE >= 00040400
SWFButton but;
SWFButtonRecord br;
#endif
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);
dejagnuclip = get_dejagnu_clip((SWFBlock)get_default_font(srcdir), 10, 0, 0, 800, 600);
SWFMovie_add(mo, (SWFBlock)dejagnuclip);
add_actions(mo, "x1=0; x2=0; x3=0;");
SWFMovie_nextFrame(mo); /* 1st frame */
mc1 = newSWFMovieClip();
sh_red = make_fill_square (100, 300, 60, 60, 255, 0, 0, 255, 0, 0);
SWFMovieClip_add(mc1, (SWFBlock)sh_red);
add_clip_actions(mc1, "stop();");
SWFMovieClip_nextFrame(mc1);
mc2 = newSWFMovieClip();
sh_red = make_fill_square (100, 200, 60, 60, 255, 0, 0, 255, 0, 0);
SWFMovieClip_add(mc2, (SWFBlock)sh_red);
add_clip_actions(mc2, "stop();");
SWFMovieClip_nextFrame(mc2);
it1 = SWFMovie_add(mo, (SWFBlock)mc1);
SWFDisplayItem_setDepth(it1, 10);
SWFDisplayItem_setName(it1, "mc1");
it2 = SWFMovie_add(mo, (SWFBlock)mc2);
SWFDisplayItem_setDepth(it2, 20);
SWFDisplayItem_setName(it2, "mc2");
SWFDisplayItem_addAction(it2,
compileSWFActionCode(" _root.note('onClipLoad triggered'); "
" _root.x1 = _root.x1 + 1; "),
SWFACTION_ONLOAD);
SWFDisplayItem_addAction(it2,
compileSWFActionCode(" _root.note('onClipEnterFrame triggered'); "
" _root.x2 = _root.x2 + 1; "),
SWFACTION_ENTERFRAME);
SWFDisplayItem_addAction(it2,
compileSWFActionCode(" _root.note('onClipUnload triggered'); "
" _root.x3 = _root.x3 + 1; "),
SWFACTION_UNLOAD);
add_actions(mo, " mc1.onLoad = function () {}; "
" mc1.prop1 = 10; "
" duplicateMovieClip('mc1', 'dup1', 1); "
" mc2.onLoad = function () {}; "
" duplicateMovieClip('mc2', 'dup2', 2); " );
SWFMovie_nextFrame(mo); /* 2nd frame */
check_equals(mo, "mc1.prop1", "10");
check_equals(mo, "typeof(mc1.onLoad)", "'function'");
check_equals(mo, "mc1.getDepth()", "-16374");
/* user defined property will not be duplicated */
check_equals(mo, "dup1.prop1", "undefined");
/* user defined event handler will not be duplicated */
check_equals(mo, "typeof(dup1.onLoad)", "'undefined'");
check_equals(mo, "dup1.getDepth()", "1");
/* check user defined onLoad */
check_equals(mo, "typeof(mc2.onLoad)", "'function'");
/* onClipEvent does not define a function */
check_equals(mo, "typeof(mc2.onEnterFrame)", "'undefined'");
/* user defined event handler will not be duplicated */
check_equals(mo, "typeof(dup2.onLoad)", "'undefined'");
check_equals(mo, "_root.x1", "2");
check_equals(mo, "_root.x2", "2");
SWFMovie_nextFrame(mo); /* 3rd frame */
SWFDisplayItem_remove(it1);
SWFDisplayItem_remove(it2);
add_actions(mo, " dup2.removeMovieClip(); ");
SWFMovie_nextFrame(mo); /* 4th frame */
#if MING_VERSION_CODE >= 00040400
/* Create a button, add it to mc1 */
but = newSWFButton();
br = SWFButton_addCharacter(but, (SWFCharacter)sh_red, SWFBUTTON_UP);
SWFButtonRecord_setDepth(br, 10);
it1 = SWFMovie_add(mo, (SWFBlock)but);
SWFDisplayItem_setName(it1, "button");
/* Sanity check */
check_equals(mo, "typeof(button)", "'object'");
add_actions(mo,
"trace(button);"
"dupl = MovieClip.prototype.duplicateMovieClip;"
"button.dupl = dupl;"
"o = { x: 4 };"
"d = button.dupl('buttdup', 201, o);"
);
xcheck_equals(mo, "typeof(d)", "'object'");
xcheck_equals(mo, "'' + _root.buttdup", "'_level0.buttdup'");
check_equals(mo, "_root.buttdup", "d");
/* initobj not used */
check_equals(mo, "_root.buttdup.x", "undefined");
#endif
add_actions(mo,
"t = new Object();"
"t.dupl = dupl;"
"o2 = { x: 44 };"
"d2 = t.dupl('objdup', 202, o2);"
"trace(_root.objdup);"
);
/* Does not work on plain objects */
check_equals(mo, "typeof(d2)", "'undefined'");
check_equals(mo, "typeof(_root.objdup)", "'undefined'");
SWFMovie_nextFrame(mo); /* 5th frame */
check_equals(mo, "_root.x1", "2");
check_equals(mo, "_root.x2", "3");
check_equals(mo, "_root.x3", "2");
add_actions(mo, " _root.totals(); stop(); ");
SWFMovie_nextFrame(mo); /* 5th frame */
//Output movie
puts("Saving " OUTPUT_FILENAME );
SWFMovie_save(mo, OUTPUT_FILENAME);
return 0;
}
int
main(int argc, char** argv)
{
SWFMovie mo;
const char *srcdir=".";
SWFMovieClip dejagnuclip;
/*********************************************
*
* Initialization
*
*********************************************/
if ( argc>1 ) srcdir=argv[1];
else
{
fprintf(stderr, "Usage: %s\n", argv[0]);
return 1;
}
puts("Setting things up");
Ming_init();
Ming_useSWFVersion (OUTPUT_VERSION);
Ming_setScale(20.0); /* let's talk pixels */
mo = newSWFMovie();
SWFMovie_setRate(mo, 12);
//SWFMovie_setDimension(mo, 6400, 4000);
SWFMovie_setDimension(mo, 640, 400);
/*********************************************
*
* Body
*
*********************************************/
dejagnuclip = get_dejagnu_clip((SWFBlock)get_default_font(srcdir), 10, 0, 80, 800, 600);
SWFMovie_add(mo, (SWFBlock)dejagnuclip);
addRedSquareExport(mo);
/* it seems we need a SHOWFRAME for this to be effective */
/* (maybe it's related to loop-back handling ?) */
SWFMovie_nextFrame(mo);
/* A load of tests for depth */
add_actions(mo, "attachMovie('redsquare', 'depthtest', -16, initObj);"
"d = depthtest.getDepth();");
check_equals(mo, "d", "-16");
add_actions(mo, "attachMovie('redsquare', 'depthtest', -16384, initObj);"
"d = depthtest.getDepth();");
check_equals(mo, "d", "-16384");
/* Less than -16384 fails */
add_actions(mo, "attachMovie('redsquare', 'depthtest2', -20000, initObj);"
"d = depthtest2.getDepth();");
check_equals(mo, "d", "undefined");
/* It really does */
add_actions(mo, "attachMovie('redsquare', 'depthtest2', -16385, initObj);"
"d = depthtest2.getDepth();");
check_equals(mo, "d", "undefined");
/* Up to 2130690044 works */
add_actions(mo, "attachMovie('redsquare', 'depthtest2', 1147483648, initObj);"
"d = depthtest2.getDepth();");
check_equals(mo, "d", "1147483648");
/* Up to 2130690044 works */
add_actions(mo, "attachMovie('redsquare', 'depthtest3', 2130690044, initObj);"
"d = depthtest3.getDepth();");
check_equals(mo, "d", "2130690044");
/* 2130690045 doesn't work */
add_actions(mo, "attachMovie('redsquare', 'depthtest4', 2130690045, initObj);"
"d = depthtest4.getDepth();");
check_equals(mo, "d", "undefined");
/* duplicateMovieClip */
/* Same limits... */
add_actions(mo, "createEmptyMovieClip('original', 10);");
add_actions(mo, "duplicateMovieClip('original', 'dup1', -1);"
"d = dup1.getDepth();");
check_equals(mo, "d", "-1");
add_actions(mo, "original.duplicateMovieClip('odup1', -1);"
"d = odup1.getDepth();");
check_equals(mo, "d", "-1");
add_actions(mo, "duplicateMovieClip('original', 'dup2', -16384);"
"d = dup2.getDepth();");
check_equals(mo, "d", "-16384");
add_actions(mo, "original.duplicateMovieClip('odup2', -16384);"
"d = odup2.getDepth();");
check_equals(mo, "d", "-16384");
add_actions(mo, "duplicateMovieClip('original', 'dup3', -16385);"
"d = dup3.getDepth();");
check_equals(mo, "d", "undefined");
add_actions(mo, "original.duplicateMovieClip('odup3', -16385);"
"d = odup3.getDepth();");
check_equals(mo, "d", "undefined");
add_actions(mo, "duplicateMovieClip('original', 'dup4', 2130690044);"
"d = dup4.getDepth();");
check_equals(mo, "d", "2130690044");
add_actions(mo, "original.duplicateMovieClip('odup4', 2130690044);"
"d = odup4.getDepth();");
check_equals(mo, "d", "2130690044");
add_actions(mo, "duplicateMovieClip('original', 'dup5', 2130690045);"
"d = dup5.getDepth();");
check_equals(mo, "d", "undefined");
add_actions(mo, "original.duplicateMovieClip('odup5', 2130690045);"
"d = odup5.getDepth();");
check_equals(mo, "d", "undefined");
add_actions(mo, "totals(); stop();");
SWFMovie_nextFrame(mo); /* showFrame */
/*****************************************************
*
* Output movie
*
*****************************************************/
puts("Saving " OUTPUT_FILENAME );
SWFMovie_save(mo, OUTPUT_FILENAME);
return 0;
}
int
main(int argc, char** argv)
{
SWFMovie mo;
SWFMovieClip mc1, mc2, mc3, mc4, mc5, dejagnuclip;
SWFDisplayItem it1, it2, it3, it4, it5;
SWFShape sh_red;
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);
dejagnuclip = get_dejagnu_clip((SWFBlock)get_default_font(srcdir), 10, 0, 0, 800, 600);
SWFMovie_add(mo, (SWFBlock)dejagnuclip);
add_actions(mo, " x2 += 'as_start+'; "
" _root.OnLoad = function () { _root.note('_root onLoad called'); x2 += 'load_called+'; }; "
" x2 += 'as_end+'; "
" _root.onEnterFrame = function () { x3 += 'enterFrame_called+'; }; ");
SWFMovie_nextFrame(mo); /* 1st frame */
mc1 = newSWFMovieClip();
sh_red = make_fill_square (0, 300, 60, 60, 255, 0, 0, 255, 0, 0);
SWFMovieClip_add(mc1, (SWFBlock)sh_red);
add_clip_actions(mc1, " _root.note('actions in 1st frame of mc1'); "
// Defining onLoad in first frame of a sprite doesn't work, but works for root
" this.onLoad = function() { _root.note('mc1 onLoad called'); _root.x1 += 'YY'; };"
" _root.x1 += '2+'; ");
SWFMovieClip_nextFrame(mc1); /* mc1, 1st frame */
add_clip_actions(mc1, " _root.note('actions in 2nd frame of mc1'); "
" _root.x1 += '12+'; "
" stop(); ");
SWFMovieClip_nextFrame(mc1); /* mc1, 2nd frame */
mc2 = newSWFMovieClip();
sh_red = make_fill_square (80, 300, 60, 60, 255, 0, 0, 255, 0, 0);
SWFMovieClip_add(mc2, (SWFBlock)sh_red);
add_clip_actions(mc2, " _root.note('actions in 1st frame of mc2'); "
// Defining onLoad in first frame of a sprite doesn't work, but works for root
" this.onLoad = function() { _root.note('mc2 onLoad called'); _root.x1 += 'XX'; };"
" _root.x1 += '4+'; ");
SWFMovieClip_nextFrame(mc2); /* mc2, 1st frame */
add_clip_actions(mc2, " _root.note('actions in 2nd frame of mc2'); "
" _root.x1 += '10+'; "
" stop(); ");
SWFMovieClip_nextFrame(mc2); /* mc2, 2nd frame */
mc3 = newSWFMovieClip();
sh_red = make_fill_square (160, 300, 60, 60, 255, 0, 0, 255, 0, 0);
SWFMovieClip_add(mc3, (SWFBlock)sh_red);
add_clip_actions(mc3, " _root.note('actions in 1st frame of mc3'); "
// Defining onLoad in first frame of a sprite doesn't work, but works for root
" this.onLoad = function() { _root.note('mc3 onLoad called'); _root.x1 += 'ZZ'; };"
" _root.x1 += '6+';");
SWFMovieClip_nextFrame(mc3); /* mc3, 1st frame */
add_clip_actions(mc3, " _root.note('actions in 2nd frame of mc3'); "
" _root.x1 += '8+'; "
" stop(); ");
SWFMovieClip_nextFrame(mc3); /* mc3, 2nd frame */
/* add mc1 to _root and name it as "mc1" */
it1 = SWFMovie_add(mo, (SWFBlock)mc1);
SWFDisplayItem_setDepth(it1, 10);
SWFDisplayItem_setName(it1, "mc1");
/* Define Construct ClipEvent */
SWFDisplayItem_addAction(it1,
compileSWFActionCode(" _root.note('mc1 Construct called');"
" _root.x0 += '01+'; "),
SWFACTION_CONSTRUCT);
/* Define Load ClipEvent */
SWFDisplayItem_addAction(it1,
compileSWFActionCode(" _root.note('mc1 Load called');"
" _root.x1 += '1+'; "),
SWFACTION_ONLOAD);
/* Define Unload ClipEvent */
SWFDisplayItem_addAction(it1,
compileSWFActionCode(" _root.note('mc1 Unload called'); "
" _root.x1 += '13+'; "),
SWFACTION_UNLOAD);
/* Define EnterFrame ClipEvent */
SWFDisplayItem_addAction(it1,
compileSWFActionCode(" _root.note('mc1 EnterFrame called'); "
" _root.x1 += '11+'; "),
SWFACTION_ENTERFRAME);
/* add mc2 to _root and name it as "mc2" */
it2 = SWFMovie_add(mo, (SWFBlock)mc2);
SWFDisplayItem_setDepth(it2, 12);
SWFDisplayItem_setName(it2, "mc2");
/* Define Construct ClipEvent */
SWFDisplayItem_addAction(it2,
compileSWFActionCode(" _root.note('mc2 Construct called');"
" _root.x0 += '02+'; "),
SWFACTION_CONSTRUCT);
/* Define Load ClipEvent */
SWFDisplayItem_addAction(it2,
compileSWFActionCode(" _root.note('mc2 Load called'); "
" _root.x1 += '3+'; "),
SWFACTION_ONLOAD);
/* Define Unload ClipEvent */
SWFDisplayItem_addAction(it2,
compileSWFActionCode(" _root.note('mc2 Unload called'); "
" _root.x1 += '14+'; "),
SWFACTION_UNLOAD);
/* Define EnterFrame ClipEvent */
SWFDisplayItem_addAction(it2,
compileSWFActionCode(" _root.note('mc2 EnterFrame called'); "
" _root.x1 += '9+'; "),
SWFACTION_ENTERFRAME);
/* add mc3 to _root and name it as "mc3" */
it3 = SWFMovie_add(mo, (SWFBlock)mc3);
SWFDisplayItem_setDepth(it3, 11);
SWFDisplayItem_setName(it3, "mc3");
/* Define Construct ClipEvent */
SWFDisplayItem_addAction(it3,
compileSWFActionCode(" _root.note('mc3 Construct called');"
" _root.x0 += '03+'; "),
SWFACTION_CONSTRUCT);
/* Define Load ClipEvent */
SWFDisplayItem_addAction(it3,
compileSWFActionCode(" _root.note('mc3 Load called'); "
" _root.x1 += '5+'; "),
SWFACTION_ONLOAD);
/* Define Unload ClipEvent */
SWFDisplayItem_addAction(it3,
compileSWFActionCode(" _root.note('mc3 Unload called'); "
" _root.x1 += '15+';" ),
SWFACTION_UNLOAD);
/* Define EnterFrame ClipEvent */
SWFDisplayItem_addAction(it3,
compileSWFActionCode(" _root.note('mc3 EnterFrame called'); "
" _root.x1 += '7+'; "),
SWFACTION_ENTERFRAME);
add_actions(mo, " _root.x3 += '_root_frm2_as+'; ");
SWFMovie_nextFrame(mo); /* 2nd frame */
add_actions(mo, " _root.x3 += '_root_frm3_as+'; ");
check_equals(mo, "_root.x3", "'enterFrame_called+_root_frm2_as+enterFrame_called+_root_frm3_as+'");
SWFMovie_nextFrame(mo); /* 3rd frame */
/* It's no use to change the order below.
After compile, Ming will re-organize them as
remove mc1; remove mc2; remove mc3;*/
SWFDisplayItem_remove(it3);
SWFDisplayItem_remove(it1);
SWFDisplayItem_remove(it2);
SWFMovie_nextFrame(mo); /* 4th frame */
check_equals(mo, "_root.x0", "'01+02+03+'");
check_equals(mo, "_root.x1", "'1+2+3+4+5+6+7+8+9+10+11+12+13+14+15+'");
check_equals(mo, "_root.x2", "'as_start+as_end+load_called+'");
add_actions(mo, " _root.totals(); stop(); ");
SWFMovie_nextFrame(mo); /* 5th frame */
//Output movie
puts("Saving " OUTPUT_FILENAME );
SWFMovie_save(mo, OUTPUT_FILENAME);
return 0;
}
