In case Flash no longer exists; a copy of this site is included in the Flashpoint archive's "ultimate" collection.

Dead Code Preservation :: Archived AS3 works from wonderfl.net

forked from: flash on 2010-3-9

This is not my code
Original: http://wonderfl.net/code/81b244d6ac96be37ccb4b0368cefaaef32c112f6
Just learning! ;-)
Get Adobe Flash player
by vasari 09 Mar 2010
/**
 * Copyright vasari ( http://wonderfl.net/user/vasari )
 * MIT License ( http://www.opensource.org/licenses/mit-license.php )
 * Downloaded from: http://wonderfl.net/c/acEa
 */

// forked from brianraymes's flash on 2010-3-9
// This is not my code
// Original: http://wonderfl.net/code/81b244d6ac96be37ccb4b0368cefaaef32c112f6
// Just learning! ;-)

package
{
	import flash.display.*;
	import flash.system.LoaderContext;
	import flash.events.Event;
	import flash.filters.BlurFilter;
	import flash.geom.Point;
	import flash.net.URLRequest;
	import jp.progression.data.*;
	import jp.progression.casts.*;
	import jp.progression.commands.lists.SerialList;
	import jp.progression.commands.net.LoadBitmapData;
	
	[SWF(width="465", height="465", frameRate="60", backgroundColor="0x000000")] 
	public class Main  extends Sprite
	{
		public static var GRAPHIC_URL:String ="http://www.k3lab.com/wonderfl/Amphisbaena/photo1.jpg"
		public function Main ()
		{
			if (stage)
				init();
			else addEventListener(Event.ADDED_TO_STAGE, init);
		}
		
		private function init(e:Event = null):void
		{
			removeEventListener(Event.ADDED_TO_STAGE, init);
			
			var list:SerialList = new SerialList(null, new LoadBitmapData(new URLRequest(GRAPHIC_URL),{context:new LoaderContext(true)}),
				function ():void {
					var castbitmap:CastBitmap = new CastBitmap(getResourceById(GRAPHIC_URL).data);
					var canvas:BitmapData = castbitmap.bitmapData.clone();
					//var blur:BlurFilter = new BlurFilter(30, 30, 1);
					//canvas.applyFilter(canvas, canvas.rect, new Point(0, 0), blur); 
					var bmp:Bitmap = addChild(new Bitmap(canvas)) as Bitmap;
					bmp.scaleX = bmp.scaleY = 1;
					var snake:Snake = addChild(new Snake(castbitmap)) as Snake;
				}
			)
			list.execute();
		}
	}
}

import jp.progression.casts.*;
import org.papervision3d.lights.PointLight3D;
import org.papervision3d.materials.BitmapFileMaterial;
import org.papervision3d.materials.BitmapMaterial;
import org.papervision3d.materials.shadematerials.EnvMapMaterial;
import org.papervision3d.materials.utils.MaterialsList;
import org.papervision3d.objects.parsers.Collada;
import org.papervision3d.view.BasicView;
import flash.events.Event;
import flash.net.URLRequest;

class Snake extends BasicView
{
	public static var COLLADA_URL:String ="http://www.k3lab.com/wonderfl/Amphisbaena/geosphere.DAE"
	private var _castbitmap:CastBitmap;
	public function Snake(bmp:CastBitmap)
	{
		super(465, 465, false, true);
		_castbitmap = bmp;
		init();
	}
	
	private function init():void
	{
		var light:PointLight3D = new PointLight3D(false, false);
		var envMapMaterial:EnvMapMaterial = new EnvMapMaterial(light, _castbitmap.bitmapData, _castbitmap.bitmapData,10);
		scene.addChild(light);
		var materialsList:MaterialsList = new MaterialsList(); 
		materialsList.addMaterial( envMapMaterial, "Mat"); 
		var c:Collada = new Collada(COLLADA_URL, materialsList, 0.2);
		scene.addChild(c);
		addEventListener(Event.ENTER_FRAME, function(e:Event):void
		{
			//light.copyPosition(camera) 
			//c.yaw((200- mouseX )/40);
			c.pitch((200- mouseY )/40);
		})
       startRendering();
	}
}