alexandre
/
three-deeee-labyrinth-that-has-become-a-lot-more-complex
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

upscaled maze

This commit is contained in:
Alexandre 2024-07-01 14:34:51 +02:00
parent df045e2dd6
commit 167615c1a8
4 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
a.out
View File

Binary file not shown.

BIN
display.cmi
View File

Binary file not shown.

BIN
display.cmo
View File

Binary file not shown.

6
display.ml
View File

@ -619,7 +619,7 @@ type tile = Free | Wall | Crate | Exit | Craxit | Camera ;;
let width = 15 let width = 15
and height = 15 and height = 15
and depth = 15 ;; and depth = 45 ;;
(* dimensions *) (* dimensions *)
let render_distance = 7 ;; let render_distance = 7 ;;
@ -747,7 +747,7 @@ let chunkify laby sz =
for i = -chunk_dist to chunk_dist do for i = -chunk_dist to chunk_dist do
for j = -chunk_dist to chunk_dist do for j = -chunk_dist to chunk_dist do
for k = -chunk_dist to chunk_dist do for k = -chunk_dist to chunk_dist do
add_to_table w h d (w/chunk_size + i) (h/chunk_size + j) (d/chunk_size + k) add_to_table w h d ((w*sz)/chunk_size + i) ((h*sz)/chunk_size + j) ((d*sz)/chunk_size + k)
done done
done done
done done
@ -865,7 +865,7 @@ let rec move_cam_hash (cubes : coloredCube dynamic) b c =(* Printf.printf "[%b]"
let play_dos laby = let play_dos laby =
try try
cheesify laby; cheesify laby;
let hash = chunkify laby 1 in let hash = chunkify laby 2 in
camera_xyz.z <- -. (1.5) ; camera_xyz.z <- -. (1.5) ;
camera_xyz.x <- -. (float_of_int width) /. 2. ; camera_xyz.x <- -. (float_of_int width) /. 2. ;