程序3:有重力加速度的球

這個程序?qū)?yīng)于 NOC_2_1_forces.pde

我們繪制了一個有重力加速度的球。越下落速度越快沼琉,但接觸地面時會反彈,由于重力作用拟赊,越上升速度越慢刺桃。

程序運行界面

點擊按鈕 West Wind 對球施加從左吹來的風力作用粹淋。

可以從 https://github.com/jollywing/nature_of_code_examples_html5/blob/master/chp2_forces/wind_gravity_forces.html 下載該程序吸祟,用瀏覽器打開即可運行。

程序代碼如下:

<!doctype html>
<html>
  <head>
    <title>Wind and Gravity force</title>
    <meta charset="utf-8" />
    <meta name="author" content="JollyWing(jiqingwu@gmail.com)"/>
    <meta name="create" content="2015-01-06 Tue"/>
    <style type="text/css">
     #screen {border:1px solid #000; margin-left:auto; margin-right:auto;}
     p.Scr {text-align:center;}
    </style>
    <script>
     // get context
     var scr;
     var ctx;
     var timeOut;

     var position = new Object();
     position.x = 5;
     position.y = 5;

     var velocity = new Object();
     velocity.x = 0;
     velocity.y = 0;

     var gravityAccel = new Object();
     gravityAccel.x = 0;
     gravityAccel.y = 1;

     var windAccel = new Object();
     windAccel.x = 1;
     windAccel.y = 0;

     var ball = {
       pos: position,
       radius: 5,
       vel: velocity,

       erase: function(){
         var top, left;
         //caculate the topleft
         left = this.pos.x - this.radius - 1;
         top = this.pos.y - this.radius - 1;
         // clear rect
         ctx.clearRect(left, top, this.radius*2 + 2, this.radius*2 + 2);
       },

       draw: function(){
         // set context property
         ctx.strokeStyle="red";
         ctx.fillStyle="yellow";
         // draw
         ctx.beginPath();
         ctx.arc(this.pos.x, this.pos.y, this.radius, 0, 2*Math.PI);
         ctx.stroke();
         ctx.fill();
       },

       checkEdge: function(){
         if(this.pos.x < 0){
           this.pos.x = this.radius;
           this.vel.x *= -1;
         }
         if(this.pos.x > scr.width){
           this.pos.x = scr.width - this.radius;
           this.vel.x *= -1;
         }
         if(this.pos.y < 0){
           this.pos.y = this.radius;
           this.vel.y *= -1;
         }
         if(this.pos.y > scr.height){
           this.pos.y = scr.height - this.radius;
           this.vel.y *= -1;
         }
       },

       addForce: function(accel){
         this.vel.x += accel.x;
         this.vel.y += accel.y;
       },

       move: function(){
         this.pos.x += this.vel.x;
         this.pos.y += this.vel.y;
       },
     };

     function initScr(){
       scr = document.getElementById('screen');
       ctx = scr.getContext('2d');
       ball.draw();
     }

     function updateScr()
     {
       // erase ball
       ball.erase();
       // add gravity force
       ball.addForce(gravityAccel);
       // update ball position
       ball.move();
       // check edges
       ball.checkEdge();
       // draw ball
       ball.draw();

       timeOut = setTimeout('updateScr()', 100);
     }

     function startWalk()
     {
       updateScr();
     }

     function stopWalk()
     {
       clearTimeout(timeOut);
     }

     function westWind()
     {
       // add wind force to velocity
       ball.addForce(windAccel);
     }
    </script>
  </head>
  <body onload="initScr()">
    <p class="Scr">
      <canvas id="screen" width="640" height="640"></canvas>
      <br/>
      <input type="button" value='Start' onclick='startWalk()'/>
      <input type="button" value='Stop' onclick='stopWalk()' />
      <input type="button" value="West Wind" onclick='westWind()'/>
    </p>
  </body>
</html>
最后編輯于
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
  • 序言:七十年代末桃移,一起剝皮案震驚了整個濱河市屋匕,隨后出現(xiàn)的幾起案子,更是在濱河造成了極大的恐慌借杰,老刑警劉巖过吻,帶你破解...
    沈念sama閱讀 218,755評論 6 507
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件,死亡現(xiàn)場離奇詭異蔗衡,居然都是意外死亡纤虽,警方通過查閱死者的電腦和手機,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 93,305評論 3 395
  • 文/潘曉璐 我一進店門绞惦,熙熙樓的掌柜王于貴愁眉苦臉地迎上來逼纸,“玉大人,你說我怎么就攤上這事济蝉〗芄簦” “怎么了?”我有些...
    開封第一講書人閱讀 165,138評論 0 355
  • 文/不壞的土叔 我叫張陵王滤,是天一觀的道長贺嫂。 經(jīng)常有香客問我,道長雁乡,這世上最難降的妖魔是什么第喳? 我笑而不...
    開封第一講書人閱讀 58,791評論 1 295
  • 正文 為了忘掉前任,我火速辦了婚禮踱稍,結(jié)果婚禮上墩弯,老公的妹妹穿的比我還像新娘。我一直安慰自己寞射,他們只是感情好渔工,可當我...
    茶點故事閱讀 67,794評論 6 392
  • 文/花漫 我一把揭開白布。 她就那樣靜靜地躺著桥温,像睡著了一般引矩。 火紅的嫁衣襯著肌膚如雪。 梳的紋絲不亂的頭發(fā)上,一...
    開封第一講書人閱讀 51,631評論 1 305
  • 那天旺韭,我揣著相機與錄音氛谜,去河邊找鬼。 笑死区端,一個胖子當著我的面吹牛值漫,可吹牛的內(nèi)容都是我干的。 我是一名探鬼主播织盼,決...
    沈念sama閱讀 40,362評論 3 418
  • 文/蒼蘭香墨 我猛地睜開眼杨何,長吁一口氣:“原來是場噩夢啊……” “哼!你這毒婦竟也來了沥邻?” 一聲冷哼從身側(cè)響起危虱,我...
    開封第一講書人閱讀 39,264評論 0 276
  • 序言:老撾萬榮一對情侶失蹤,失蹤者是張志新(化名)和其女友劉穎唐全,沒想到半個月后埃跷,有當?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體,經(jīng)...
    沈念sama閱讀 45,724評論 1 315
  • 正文 獨居荒郊野嶺守林人離奇死亡邮利,尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點故事閱讀 37,900評論 3 336
  • 正文 我和宋清朗相戀三年弥雹,在試婚紗的時候發(fā)現(xiàn)自己被綠了。 大學時的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片延届。...
    茶點故事閱讀 40,040評論 1 350
  • 序言:一個原本活蹦亂跳的男人離奇死亡剪勿,死狀恐怖,靈堂內(nèi)的尸體忽然破棺而出祷愉,到底是詐尸還是另有隱情窗宦,我是刑警寧澤,帶...
    沈念sama閱讀 35,742評論 5 346
  • 正文 年R本政府宣布二鳄,位于F島的核電站赴涵,受9級特大地震影響,放射性物質(zhì)發(fā)生泄漏订讼。R本人自食惡果不足惜髓窜,卻給世界環(huán)境...
    茶點故事閱讀 41,364評論 3 330
  • 文/蒙蒙 一、第九天 我趴在偏房一處隱蔽的房頂上張望欺殿。 院中可真熱鬧寄纵,春花似錦、人聲如沸脖苏。這莊子的主人今日做“春日...
    開封第一講書人閱讀 31,944評論 0 22
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽棍潘。三九已至恃鞋,卻和暖如春崖媚,著一層夾襖步出監(jiān)牢的瞬間,已是汗流浹背恤浪。 一陣腳步聲響...
    開封第一講書人閱讀 33,060評論 1 270
  • 我被黑心中介騙來泰國打工畅哑, 沒想到剛下飛機就差點兒被人妖公主榨干…… 1. 我叫王不留,地道東北人水由。 一個月前我還...
    沈念sama閱讀 48,247評論 3 371
  • 正文 我出身青樓荠呐,卻偏偏與公主長得像,于是被迫代替她去往敵國和親砂客。 傳聞我的和親對象是個殘疾皇子泥张,可洞房花燭夜當晚...
    茶點故事閱讀 44,979評論 2 355

推薦閱讀更多精彩內(nèi)容