forked from: マテリアル内のBitmapDataをスクロールする

/**
 * Copyright takahashitakashi ( http://wonderfl.net/user/takahashitakashi )
 * MIT License ( http://www.opensource.org/licenses/mit-license.php )
 * Downloaded from: http://wonderfl.net/c/1rx1
 */

// forked from kihon's マテリアル内のBitmapDataをスクロールする
package
{
	import flash.display.BitmapData;
	import flash.events.Event;
	import flash.geom.Point;
	import flash.geom.Rectangle;
	import flash.system.Security;
	import org.papervision3d.materials.BitmapFileMaterial;
	import org.papervision3d.objects.primitives.Cylinder;
	import org.papervision3d.view.*;
 
	[SWF(backgroundColor=0x0)]
	public class Main extends BasicView
	{	
		public function Main()
		{
			Security.loadPolicyFile("http://farm1.static.flickr.com/crossdomain.xml");
			var material:BitmapFileMaterial = new BitmapFileMaterial("http://farm1.static.flickr.com/56/127849602_aef19d6095.jpg");
			material.precise = true;
			material.smooth = true;
			
			var cylinder:Cylinder = new Cylinder(material);
			cylinder.rotationY = -45;
			scene.addChild(cylinder);
			
			camera.y = 100;
			camera.z = -200;
			camera.lookAt(cylinder);
			
			startRendering();
			
			addEventListener
			(
				Event.ENTER_FRAME,
				function():void
				{
					var bd:BitmapData = material.bitmap;
					trace(bd.height);
					var copy:BitmapData = bd.clone();
					var tx = 2;
					bd.scroll(tx, 0);
					bd.copyPixels(copy, new Rectangle(bd.width - tx, 0, tx, bd.height), new Point());
				}
			);
		}
	}
}