Skip to content

New example tailored for JS backend #152

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 2 commits into from
Jun 14, 2024
Merged

New example tailored for JS backend #152

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
e5bf259
New *fancy* example
Keryan-dev Jun 11, 2024
1609e96
backward compatibility
Keryan-dev Jun 13, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
1 change: 1 addition & 0 deletions examples/configure.ml
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -62,6 +62,7 @@ let () =
add_executable "spritesheet" [ "spritesheet.png" ];
add_executable "draw" [ "colors.png" ];
add_executable "window_with_textbox" [];
add_executable "suncities" [];

add_executable "demo1" [];
add_executable "demo2" [];
Expand Down
8 changes: 8 additions & 0 deletions examples/dune.inc
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -175,6 +175,14 @@
(libraries ocaml-canvas react))


(executable
(name suncities)
(public_name ocaml-canvas-suncities)
(modes byte_complete native js)
(modules suncities)
(libraries ocaml-canvas react))


(executable
(name demo1)
(public_name ocaml-canvas-demo1)
Expand Down
24 changes: 13 additions & 11 deletions examples/make_index/make_index.ml
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,16 +1,18 @@

let gen_sample_index file =
let tl = open_in "sample_template.html" in
let out = open_out (file ^ ".html") in
try
while true do
let l = input_line tl in
let l' = Str.global_replace (Str.regexp_string "%%FILE%%") file l in
Printf.fprintf out "%s\n" l'
done;
with End_of_file ->
close_in tl;
close_out out
let filename = file ^ ".html" in
if Sys.file_exists filename then () else
let tl = open_in "sample_template.html" in
let out = open_out filename in
try
while true do
let l = input_line tl in
let l' = Str.global_replace (Str.regexp_string "%%FILE%%") file l in
Printf.fprintf out "%s\n" l'
done;
with End_of_file ->
close_in tl;
close_out out

let gen_global_index file files =
let tl = open_in "global_template.html" in
Expand Down
26 changes: 26 additions & 0 deletions examples/suncities.html
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,26 @@
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="utf-8">
<meta name="viewport" content="width=device-width,initial-scale=1.0">
<title>Sun Empire</title>
<style>
canvas {image-rendering:auto;}
</style>
</head>
<body>
<noscript>Sorry, you need to enable JavaScript to see this page.</noscript>
<script type="text/javascript" defer="defer" src="suncities.bc.js"></script>
<div style="float:left">
<h1>Cities under the Sun</h1>
</div>
<div style="float:left">
<ul>
<li><b>Space</b> to change city</li>
<li><b>Left-click</b> drag to move viewpoint</li>
<li><b>Right-click</b> drag to change daytime</li>
</ul>
</div>
<div id="can"></div>
</body>
</html>
Loading