var ns : Namespace = new Namespace( "cmodule.MyModule" );
	var ba : ByteArray = (ns::gstate).ds;

var ns:Namespace = new Namespace("cmodule.CGraphicFilter");
baMem = (ns::gstate).ds;
baMem.endian = Endian.BIG_ENDIAN;
lib = (new CLibInit()).init();

protected function enterFrame( e : Event ) : void
{
baMem.position = position;
var ba : ByteArray = new ByteArray();
baMem.readBytes( ba, 0, size );
bd.setPixels( rect, ba );
}

#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#include <string.h>
#include "AS3.h"
 
AS3_Val initVideoData( void* self, AS3_Val args );
AS3_Val update( void* self, AS3_Val args );
 
int v;
unsigned char* rawImageData;
 
AS3_Val init( void* self, AS3_Val args )
{
	// malloc (width * height * 4 channels) size
	rawImageData = malloc( 800 * 600 * 4 );
	// fill with black
	memset( rawImageData, 0, sizeof( rawImageData ) );
	// return pointer position
	return AS3_Ptr( rawImageData );
}
 
AS3_Val update( void* self, AS3_Val args )
{
	int x, y, pos;
	v++;
	v%=16;
 
	for( x = 0; x < 800; x++ )
	{
		for( y = 0; y < 600; y++ )
		{
			pos = (x+y*800)*4;
			// stub code on red channel. I use BGRA order to simulate big endianness
			rawImageData[ pos +2 ] = 128 + 128 * sin( x / v );
		}
	}
 
	return 0;
}
 
int main()
{
	AS3_Val initMethod = AS3_Function( NULL, init );
	AS3_Val updateMethod = AS3_Function( NULL, update );
 
	AS3_Val result = AS3_Object("init: AS3ValType,update: AS3ValType",initMethod,updateMethod);
 
	AS3_Release( initMethod );
	AS3_Release( updateMethod );
 
	AS3_LibInit( result );
 
	return 0;
}

package  
{
	import cmodule.DoubleBuffering.CLibInit;
 
	import flash.display.Bitmap;
	import flash.display.BitmapData;
	import flash.display.Sprite;
	import flash.display.StageAlign;
	import flash.display.StageQuality;
	import flash.display.StageScaleMode;
	import flash.events.Event;
	import flash.geom.Rectangle;
	import flash.utils.ByteArray;	
 
 
 
 
 
 
	[SWF( width="800", height="600", frameRate="25" , backgroundColor="0x000000")]	
	public class AlchemyDoubleBuffering 
		extends Sprite 
	{
		protected const w 			: int = 800;
		protected const h 			: int = 600;
		protected const lib 		: Object = (new CLibInit()).init();
		protected const ba 			: ByteArray = new ByteArray();
 
		protected var rect 			: Rectangle;
		protected var bd 			: BitmapData;
 
		protected var baAlchemyRAM 	: ByteArray;
		protected var videoPointer 	: uint;
 
		public function AlchemyDoubleBuffering()
		{
			stage.scaleMode = StageScaleMode.NO_SCALE;
			stage.align = StageAlign.TOP_LEFT;
			stage.quality = StageQuality.LOW;
 
			rect = new Rectangle( 0, 0, w, h );
			bd = new BitmapData( w, h, false, 0 );
			addChild( new Bitmap( bd ) );
 
			// get Alchemy RAM
			var ns : Namespace = new Namespace( "cmodule.DoubleBuffering" );
			baAlchemyRAM = (ns::gstate).ds;
 
			// call C code to init RAM and store video position
			videoPointer = lib.init();
 
			addEventListener( Event.ENTER_FRAME, enterFrame );
		}
 
 
		protected function enterFrame( e : Event ) : void
		{
			// call C code to update RAM data
			lib.update();
 
			// update screen with RAM data from stored position
			baAlchemyRAM.position = videoPointer;
			bd.setPixels( rect, baAlchemyRAM );
		}
	}
}