forked from: 単振動
forked from 単振動 (diff: 1)
ActionScript3 source code
/**
* Copyright elbib ( http://wonderfl.net/user/elbib )
* MIT License ( http://www.opensource.org/licenses/mit-license.php )
* Downloaded from: http://wonderfl.net/c/cFaI
*/
// forked from 9re's 単振動
package {
import flash.display.Sprite;
import flash.events.Event;
[SWF(frameRate="0")]
public class FlashTest extends Sprite {
public function FlashTest() {
var _y:Number = 100;
var _v:Number = 0;
var K:Number = 0.001;
var _x:int = 0;
graphics.lineStyle(1);
addEventListener(Event.ENTER_FRAME, function(e:Event):void {
var v = _v;
_v -= (_y * K);
_y += _v; // what happens if this line is _y += v; ?
if (_x == 0)
graphics.moveTo(_x, stage.stageHeight / 2 + _y);
else
graphics.lineTo(_x, stage.stageHeight / 2 + _y);
if (++_x > stage.stageWidth) {
graphics.clear(); _x = 0;
graphics.lineStyle(1);
}
});
}
}
}