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

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