forked from: [Papervision3D]頂点制御の練習

by macomputer forked from [Papervision3D]頂点制御の練習 (diff: 15)
♥0 | Line 28 | Modified 2010-08-31 19:58:01 | MIT License
play

ActionScript3 source code

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

// forked from Nicolas's [Papervision3D]頂点制御の練習
package {
    import flash.display.Sprite;
    import flash.events.Event;
    import org.papervision3d.core.geom.*;
    import org.papervision3d.core.geom.renderables.*;
    import org.papervision3d.view.*;
    import org.papervision3d.objects.primitives.*;
    import org.papervision3d.materials.*;
    public class FlashTest extends BasicView {
            private var plane:Plane;
            private var time:int = 0;
            private var h1:Number = 0;
            private var h2:Number = 0;
        public function FlashTest() {
            var material:WireframeMaterial = new WireframeMaterial(0xFF0000);
            //平面を作る。引数は(material, width, height, segmentsW, segmentsH)
            plane = new Plane(material, 500, 500, 1, 1);
            //plane.rotationX = 90;
            //sceneに追加
            scene.addChild(plane);
            //カメラ設定
           // camera.y = 800;
            camera.zoom = 80;
            //レンダリング開始
            startRendering();
            //毎フレーム頂点をいじるよ
            addEventListener(Event.ENTER_FRAME, loop);
        }
        
        private function loop(e:Event):void{
                //左の高さh1と右の高さh2を計算
            //h1 = 200 * Math.sin(time * Math.PI / 180);
            //h2 = 200 * Math.sin((time + 180) * Math.PI / 180);//位相が180度ずれている
            var v:Array = plane.geometry.vertices;//3Dオブジェクトの各頂点が含まれる配列
            //segmentがW,Hともに1ならば、[0]と[1]が左側、[2]と[3]が右側の頂点を表す
            v[0].x = h1;
            //v[1].x = -h1;
            //v[2].z = v[3].z = h2;
            
            h1 += 1;
           // h2 -= 1;
        }
    }
}