swrup/pellest
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

remove commented code

Browse source
This commit is contained in:
Swrup 2022-12-07 23:16:36 +01:00
parent de904f86cc
commit 484203c927
1 changed files with 0 additions and 41 deletions
Download patch file Download diff file Expand all files Collapse all files

41
src/island_client.ml
View file

@ -120,44 +120,3 @@ let () =
on_window_load init_bg (); on_window_load init_bg ();
on_window_load bind_keys (); on_window_load bind_keys ();
on_window_load G.request_animation_frame game_loop on_window_load G.request_animation_frame game_loop
(*
let draw_background () =
for x = 0 to tiles_per_w - 1 do
for y = 0 to tiles_per_h - 1 do
let (_ : Jv.t) =
Jv.call context "drawImage"
[| grass
; Jv.of_int (orig_x + (x * tile_size))
; Jv.of_int (orig_y + (y * tile_size))
|]
in
()
done
done
let () =
let (_ : Jv.t) =
Jv.call window "addEventListener"
[| Jv.of_string "load"; Jv.repr draw_background |]
in
()
let draw_papy () =
let (_ : Jv.t) =
Jv.call context "drawImage"
[| papy_bottom
; Jv.of_int ((width / 2) - (tile_size / 2))
; Jv.of_int ((height / 2) - (tile_size / 2))
|]
in
()
let () =
let (_ : Jv.t) =
Jv.call window "addEventListener"
[| Jv.of_string "load"; Jv.repr draw_papy |]
in
()
*)