2015年6月2日火曜日

お絵かきロジック(笑)というかマウスのドラッグ(ボタンの状態)

Firefox推奨。手抜きなのでポップアップ許可してね(それすらできない奴はもう知らん) よもや本当にポップアップ許可もわからないとは…しょうがないから埋め込んでやったよ…はあ…

追記:「ポップアップ許可のしかたがわからない」の次は「;;が多い」かよ! わざわざ全部消してやったYO!

open Dom_html
open Graphics_js
let () = (* open_graph "" *)
  Js.Opt.iter
    (CoerceTo.canvas (getElementById "canvas1"))
    Graphics_js.open_canvas
let rec k = function
  | `Up ->
      loop [Button_down] (fun event ->
        k (`Down(event.mouse_x, event.mouse_y)))
  | `Down(x, y) ->
      loop [Button_up] (fun event ->
        moveto x y;
        lineto event.mouse_x event.mouse_y;
        k `Up)
let () = k `Up

クリックカウンター(笑)

open Dom_html
open Graphics_js
let () = (* open_graph "" *)
  Js.Opt.iter
    (CoerceTo.canvas (getElementById "canvas0"))
    Graphics_js.open_canvas
let rec k c =
  clear_graph ();
  moveto 50 50;
  draw_string (string_of_int c);
  loop [Button_down] (fun event -> k (c + 1))
let () = k 0