跳到主要內容

耐心烏龜 Patience

有一次去看診的時候，因為等了好久等到有點快失去耐性，看完診花了不少時間。在回家的路上有感而發，想說不知道有沒有什麼可以訓練或培養耐性的方法。如果沒有的話，或者我自己可以作個APP來達到這個目的，最後就作了這個APP。

<玩玩> <Android>


一開始想到的不是烏龜，而是主畫面是一個泡泡。這個泡泡會愈來愈大，但很容易就破掉。比如不小心點了畫面、程式進入背景、有來電或收到訊息通知等等，都會讓泡泡破掉。程式的目的就是想辨法讓泡泡持續變大，也就是你愈有耐心的保護它，就愈成功。可能可以顯示一個存活時間，用來表示耐心度。

後來一邊考慮程式內容時，一邊把泡泡改成了烏龜。同時考慮到，如果這隻烏龜很容易就死掉，要用這種方式來訓練耐心似乎很難，甚至會有反效果。考慮到一次性的遊戲方式，以存活度來評價耐心度有難度，改變為養成性質的作法。現在不會死掉了，存活時間是累計制的。這樣子應該會比較容易讓人持續的去作這作事，長期下來應該就能提高點耐心吧。

改成養成性質的作法後，其它的設計就能對應調整。首先除了存活度(存活時間)之外，再加上一個等級。這個等級的定義，只是簡單的每次烏龜從左走到右就升級一次。等級每升一級，烏龜就長大1個pixel。同時等級也對應烏龜移動速度，LV10表示每10秒烏龜走1個pixel。以上是核心功能，其它還設計了幾個裝飾畫面的功能。如上方背景日夜變化、月相變化及顯示12星座等。

以下作重點說明。

背景連續山脈圖

背景的山是先建好一個div元素，以CSS設定背景水平重複。
  // CSS.
  #mountains {
    background-repeat:repeat-x;
    background-position:bottom;
    text-align:
    right;font-size:48px;
  }

  // HTML.
  <div style="mountains">
  </div>
重複的圖片則以一記憶體canvas畫了一個山型emoji後產生。
var mountains = document.getElementById('mountains');
var url = getCharImgUrl(32, '⛰️');
mountains.style.backgroundImage = 'url("' + url + '")';

function drawCharCenter(ctx, size, s, x, y) {
  ctx.font = size + 'px Arial';
  ctx.textBaseline = 'middle';
  ctx.textAlign = 'center';
  ctx.fillText(s, x, y);
}

function getCharImgUrl(size, s) {
  var canvas = document.createElement('canvas');
  canvas.width = canvas.height = size;
  var ctx = canvas.getContext('2d');
  drawCharCenter(ctx, size, s, size/2, size/2);
  return canvas.toDataURL();
}

背景日夜變化

日夜變化是根據目前的時間來判斷是白天或黑夜，只是簡單的檢查目前小時來決定。
function isNight() {
  var now = new Date();
  var hour = now.getHours();
  return 6 > hour || 18 <= hour;
}

function getDayNightColor() {
  if (isNight()) {
    return 'black';
  } else {
    return 'skyblue';
  }
}

月相變化

月相是根據取得目前年月日計算得到，公式是上網google得到。
var now = new Date();
var phase = moonPhase(now.getFullYear(), now.getMonth() + 1, now.getDate());

function moonPhase(year, month, day) {
  var lp = 2551443; 
  var now = new Date(year, month - 1, day, 20, 35,0);
  var new_moon = new Date(1970, 0, 7, 20, 35, 0);
  var phase = ((now.getTime() - new_moon.getTime())/1000) % lp;
  return Math.floor(phase / (24 * 3600)) + 1;
}
月相圖則是根據計算得到的月相參數，再利用emoji內建的幾個月相圖作顯示。
function moonPhaseEmoji(day) {
  if (1 <= day && 30 >= day) {
    var emoji = ['🌑', '🌒', '🌒', '🌒', '🌒', '🌓', '🌓', '🌓', '🌓', '🌔', '🌔', '🌔', '🌔', '🌕', '🌕', '🌕', '🌖', '🌖', '🌖', '🌖', '🌗', '🌗', '🌗', '🌗', '🌘', '🌘', '🌘', '🌘', '🌘', '🌑'];
    return emoji[day - 1];
  } else {
    return ' ';
  }
}

12星座

12星座是根據目前月日，作簡單判斷得到。
var now = new Date();
var zodiac = getZodiacSign(now.getMonth() + 1, now.getDate());

function getZodiacSign(month, day) {
  var astro_sign = "";
  if (1 == month) {
    if (day < 20)
      astro_sign = "Capricorn♑";
    else
      astro_sign = "aquarius♒";
  } else if (2 == month) {
    if (day < 19)
      astro_sign = "Aquarius♒";
    else
      astro_sign = "pisces♓";
  } else if (3 == month) {
    if (day < 21)
      astro_sign = "Pisces♓";
    else
      astro_sign = "aries♈";
  } else if (4 == month) {
    if (day < 20)
      astro_sign = "Aries♈";
    else
      astro_sign = "taurus♉";
  } else if (5 == month) {
    if (day < 21)
      astro_sign = "Taurus♉";
    else
      astro_sign = "gemini♊";
  } else if (6 == month) {
    if (day < 21)
      astro_sign = "Gemini♊";
    else
      astro_sign = "cancer♋";
  } else if (7 == month) {
    if (day < 23)
      astro_sign = "Cancer♋";
    else
      astro_sign = "leo♌";
  } else if(8 == month) {
    if (day < 23)
      astro_sign = "Leo♌";
    else
      astro_sign = "virgo♍";
  } else if (9 == month) {
    if (day < 23)
      astro_sign = "Virgo♍";
    else
      astro_sign = "libra♎";
  } else if (10 == month) {
    if (day < 23)
      astro_sign = "Libra♎";
    else
      astro_sign = "scorpio♏";
  } else if (11 == month) {
    if (day < 22)
      astro_sign = "scorpio♏";
    else
      astro_sign = "sagittarius♐";
  } else if (12 == month) {
    if (day < 22)
      astro_sign = "Sagittarius♐";
    else
      astro_sign ="capricorn♑";
  }
  return astro_sign;
}

標籤：

留言

張貼留言

這個網誌中的熱門文章

單人撲克牌遊戲 - 蒙地卡羅

更多可在網頁玩的 單人撲克牌遊戲 ； 新增一個簡單的單人撲克牌遊戲： 蒙地卡羅 ，簡單介紹一下玩法。 下載 事先排列好5x5張牌。 每次移動一張可以配對的牌，並消除這對牌。在上下、左右及斜向相隣的二張牌，只要擁有同樣數字(不計花色)，即可配對。 消除二張配對的牌後，剩餘的牌以往左往上的方式補滿空隙，接著在發新牌補滿後面的空格。 重覆步驟2~3，直到沒有牌可以配對及發完所有牌為止。 結果有二種。一個是勝利，成功的消除掉所有牌。另一個是Gameover沒有牌可以再作配對。
張貼留言
Read more »

以lex/yacc實作算式計算機

前面我們透過 手工的方式 實作了一個簡易的算式計算機，現在我們要開始使用工具來作同樣的事，比較看看手工和使用工具有什麼不同的差別。首先要介紹的就是lex&yacc。 lex & yacc lex(Lexical Analyzar)及yacc(Yet Another Compiler Compiler)是用來輔助程式設計師製作語法剖析器的程式工具。lex的工作就是幫助我們將輸入的資料文字串流分解成一個個有意義的token，而yacc的工作就是幫我們分析這些token和我們定義的規則作匹配。下圖中所表示的是使用lex及yacc的一般工作流程。 首先看到yacc會讀入一個.y檔案，這裡.y檔案的內容就是我們使用類似(E)BNF語法定義的語法規則，yacc會分析這些語法規則後，幫我們產生可以用來解析這些規則的程式碼，而這個檔案一般名稱預設為y.tab.c，產生的程式碼裡面最重要的一個的函式叫作yyparse。 同yacc類似，lex也會讀入一個.l的檔案，這個檔案裡面定義的是如何從文字流裡解出token的規則，使用的方法是常規表示式(regular expression)。在圖的左側中間我們還可以看到有一個叫作y.tab.h的檔案從yacc產生出來並餵給lex作輸入，這個檔案是yacc根據在讀入的.y檔裡面所定義的token代號所產生出來的一個header，這樣yacc及lex產生出來的程式碼裡面就可以使用共通定義的代碼而不必各寫個的。lex分析過.l檔案後也會產生一個一般預設叫作lex.yy.c的原始碼檔案，裡頭最重要的一個函式叫作yylex。 最後，我們把yacc產生出來的y.tab.c還有lex產生出來的lex.yy.c，以及其它我們自己撰寫的原始碼檔案一起拿來編譯再作連結，最後產生出來的就是一個可以用來解析我們定義的語法的解析器工具。以上是整個lex及yacc的使用流程概觀。 常規表示式 在正式使用lex之前，我們首先來對常規表示法作一個基本的認識。常規表示法是一種用來表示字串樣式(pattern)的中繼語言，就好比前文所介紹的(E)BNF表示式一樣，都是用來描述其它語言的語言，只不過用途不太一樣罷了。 常規表示式使用一些中繼符號(meta-symbol)以及ASCII字元定義字串樣式，以下列出一些常規表示式所使用的符號。 . 表示除了換行字元...
25 則留言
Read more »

(E)BNF表示式

BNF(Backus-Naur Form)是由John Backus所開發，可用來表示與上下文無關文法的語言，也就是一種用來描述語言的中繼語言(meta-language)。一個BNF表示式是由一個非終端符號(non-terminal)和它的產生式所組成，產生式可以是一個終端符號(terminal)和非終端符號組成的序列。(終端符號中的標點符號一般使用單引號括起來，而字串則使用雙引號) 底下為一個簡單的範例： sent := subj verb '.' subj := “Birds” verb := “sing” 在上面的例子裡面，如Birds、sing及句點('.')表示終端符號。而sent及verb表示為非終端符號。這條BNF句子定義了一條文法，表示的意思為，一個sent是由subj及verb再以一個句點為結尾所構成。 BNF表示式有以下幾種主要表示形式： (1) S := A B C (2) S := A | B | C (3) S := {A} 第一條表示說，S是由ABC三個符號所定義， 而ABC是以序列的形式依序出現，也就是說A之後一定跟著一個B，而B之後一定跟著一個C。第二條表示說，由S可推導出A或B或C其中之一。第三條表示說，由S可以推導出一個或多個A。 範例： S := x A A := y | z (1) xy (O) (2) xz (O) (3) xx (X) (4) yz (X) 以上4個範例中，只有(1)(2)是符合上面BNF文法定義的句子，因為x之後只能接y或z所以(3)不符合文法，因為S只能以x開頭為句子所以(4)也文法錯誤。 範例： id := alpha {alpha} alpha := a | b | c | d (1) aabbbcdd (O) (2) cabbbda (O) (3) baccab (O) (4) bdax (X) (5) 5acd (X) 在上面的5個範例裡面，其中(1)(2)(3)項是正確符合上面BNF的文法定義。而(4)因為alpha裡不包含x符號所以語法不正確。而(5)因為alpha裡面不包含5所以也不正確。 範例： S := '-' FN | FN FN := DL | DL '.' DL DL ...
6 則留言
Read more »