mp2i-vms.fr
Compare commits
No commits in common. "7847ab0e179e6810b4134857c05b4b73755742c0" and "70ca29b311e121ec95265c88ee8cba0ffc4409e6" have entirely different histories.
7847ab0e17
...
70ca29b311
411
main.ml
411
main.ml
|
|
@ -10,14 +10,7 @@ Random.self_init () ;;
|
|||
|
||||
exception ReturnBool of bool ;;
|
||||
exception ReturnInt of int ;;
|
||||
exception ReturnIntArr of int array * int ;;
|
||||
|
||||
let __width__ = 1200
|
||||
and __height__ = 800 ;;
|
||||
|
||||
let __istr__ = " 1200x800" ;;
|
||||
|
||||
let univ_dt = 0.003 ;;
|
||||
exception HasEnded ;;
|
||||
|
||||
type pt_2d = {
|
||||
mutable x : float ;
|
||||
|
|
@ -47,21 +40,7 @@ type sphere = {
|
|||
score : int ;
|
||||
} ;;
|
||||
|
||||
type flipper_side = Left | Right ;;
|
||||
type flipper = {
|
||||
side : flipper_side ;
|
||||
xy : pt_2d ;
|
||||
radius : float ;
|
||||
length : float ;
|
||||
mutable theta : float (* in degrees *) ;
|
||||
mutable dtheta : float ;
|
||||
agmin : float ;
|
||||
agmax : float ;
|
||||
vtxs : polygon
|
||||
} ;;
|
||||
|
||||
type ball = {
|
||||
mutable active : bool ;
|
||||
radius : float ;
|
||||
mass : float ;
|
||||
rgb : int ;
|
||||
|
|
@ -96,21 +75,8 @@ let default_sphere = {
|
|||
score = 0 ;
|
||||
} ;;
|
||||
|
||||
let default_flipper = {
|
||||
side = Left ;
|
||||
xy = {x = 0. ; y = 0.} ;
|
||||
radius = 0. ;
|
||||
length = 0. ;
|
||||
theta = 0. (* in degrees *) ;
|
||||
dtheta = 0. ;
|
||||
agmin = 0. ;
|
||||
agmax = 0. ;
|
||||
vtxs = default_polygon ;
|
||||
} ;;
|
||||
|
||||
let univ_g = 750.0 ;;
|
||||
let pi = 3.14159265358979343 ;;
|
||||
let epsilon = (1. /. 131072.) ;;
|
||||
|
||||
let winBL = {
|
||||
x = 0. ;
|
||||
|
|
@ -129,7 +95,6 @@ let winball = {
|
|||
|
||||
let gforce = {x = 0. ; y = -. univ_g} ;;
|
||||
|
||||
let remaining = ref 8 ;;
|
||||
let score = ref 0 ;;
|
||||
|
||||
(* ------------------------------------------------------------------------------------- *)
|
||||
|
|
@ -142,12 +107,12 @@ let beep_boop = Array.make n_threads false ;;
|
|||
let beep_id = ref 0 ;;
|
||||
|
||||
let playbeep id =
|
||||
while false do
|
||||
while true do
|
||||
if beep_boop.(id) then begin
|
||||
ignore (Unix.system "./sound wah/scored_hit.wav") ;
|
||||
beep_boop.(id) <- false ;
|
||||
ignore (Unix.system "./sound wah/scored_hit.wav") ;
|
||||
end;
|
||||
Unix.sleepf univ_dt ;
|
||||
Unix.sleepf 0.005 ;
|
||||
done;;
|
||||
|
||||
let beep_list = Array.init n_threads (fun k -> Thread.create playbeep k) ;;
|
||||
|
|
@ -155,7 +120,7 @@ let beep_list = Array.init n_threads (fun k -> Thread.create playbeep k) ;;
|
|||
(**)
|
||||
|
||||
let play_music () =
|
||||
while false do
|
||||
while true do
|
||||
ignore (Unix.system "./sound wah/wah_metal.wav") ;
|
||||
ignore (Unix.system "./sound wah/wah_eurobeat.wav") ;
|
||||
ignore (Unix.system "./sound wah/wah_hardcore.wav") ;
|
||||
|
|
@ -356,36 +321,24 @@ let distance_line_segment (m : pt_2d) (spt : pt_2d) (ept : pt_2d) =
|
|||
| k when k < 0. -> vect_dist_2D spt m
|
||||
| k -> vect_dist_2D ept m ;;
|
||||
|
||||
let distance_infinite_segment (m : pt_2d) (spt : pt_2d) (ept : pt_2d) =
|
||||
let theta = (-. ((ept.x -. spt.x) *. (spt.x -. m.x) +. (ept.y -. spt.y) *. (spt.y -. m.y)) /. ((ept.x -. spt.x) *. (ept.x -. spt.x) +. (ept.y -. spt.y) *. (ept.y -. spt.y))) in
|
||||
vect_dist_2D (vect_convexf spt ept theta) m ;;
|
||||
|
||||
let is_collision_p (b : ball) (poly : polygon) (dt : float) =
|
||||
(* returns the 1st point of the closest line that the ball collides with *)
|
||||
if not (is_in_bounding_box_p b poly) then
|
||||
([||], 0)
|
||||
(-1)
|
||||
else begin
|
||||
try
|
||||
let mind = ref b.radius
|
||||
and minidx = Array.make 3 (-1)
|
||||
and minarrid = ref 0 in
|
||||
and minidx = ref (-1) in
|
||||
for i = 0 to Array.length poly.vertexes - 1 do
|
||||
let dst = (distance_line_segment (step_one_ball b dt) poly.vertexes.(i) poly.vertexes.((i+1) mod Array.length poly.vertexes)) in
|
||||
if dst <= !mind -. epsilon then begin
|
||||
if dst <= !mind then begin
|
||||
mind := dst ;
|
||||
minidx.(0) <- i ;
|
||||
minidx.(1) <- (-1) ;
|
||||
minidx.(2) <- (-1) ;
|
||||
minarrid := 1;
|
||||
end
|
||||
else if dst <= !mind then begin
|
||||
minidx.(!minarrid) <- i ;
|
||||
incr minarrid ;
|
||||
minidx := i ;
|
||||
end
|
||||
done;
|
||||
raise (ReturnIntArr (minidx, !minarrid))
|
||||
raise (ReturnInt (!minidx))
|
||||
with
|
||||
| ReturnIntArr (a, b) -> (a, b)
|
||||
| Invalid_argument _ -> failwith "ok then"
|
||||
| ReturnInt b -> b
|
||||
end ;;
|
||||
|
||||
let playbeep () =
|
||||
|
|
@ -398,50 +351,33 @@ let is_collision_s (b : ball) (s : sphere) (dt : float) =
|
|||
else
|
||||
vect_dist_2D (step_one_ball b dt) (s.center) <= (s.radius +. b.radius) ;;
|
||||
|
||||
let update_ball_data (b : ball) (polys : polygon array) (spheres : sphere array) (flips : flipper dynamic) (dt : float) =
|
||||
let update_ball_data (b : ball) (polys : polygon array) (spheres : sphere array) (dt : float) =
|
||||
b.fres.x <- 0. ;
|
||||
b.fres.y <- 0. ;
|
||||
|
||||
for p = 0 to (Array.length polys -1) do
|
||||
let (hitarr, hitlen) = (is_collision_p b polys.(p) dt) in
|
||||
if hitlen > 0 then begin
|
||||
for h = 0 to hitlen -1 do
|
||||
let hit = hitarr.(h) in
|
||||
score := !score + polys.(p).score ;
|
||||
let hit = (is_collision_p b polys.(p) dt) in
|
||||
if hit <> -1 then begin
|
||||
score := !score + polys.(p).score ;
|
||||
|
||||
if h = 0 && polys.(p).score > 0 then
|
||||
playbeep () ;
|
||||
if polys.(p).restitution = 0. then begin
|
||||
b.active <- false ;
|
||||
decr remaining ;
|
||||
end;
|
||||
if polys.(p).score > 0 then
|
||||
playbeep () ;
|
||||
|
||||
(* apply normal reaction force *)
|
||||
let hit2 = (hit +1) mod (Array.length polys.(p).vertexes) in
|
||||
let proj = return_proj_of_point b.xy polys.(p).vertexes.(hit) polys.(p).vertexes.(hit2) in
|
||||
let proj_n = vect_normalize_2D (vect_diff_2D b.xy proj) in
|
||||
let scal = (vect_dot_product_2D (vect_normalize_2D gforce) proj_n) in
|
||||
if scal > 0. then begin
|
||||
let reaction_force_2 = vect_mult_2D proj_n (univ_g *. b.mass *. scal) in
|
||||
b.fres.x <- b.fres.x +. reaction_force_2.x *. polys.(p).restitution /. float_of_int hitlen ;
|
||||
b.fres.y <- b.fres.y +. reaction_force_2.y *. polys.(p).restitution /. float_of_int hitlen ;
|
||||
end;
|
||||
(* apply normal reaction force *)
|
||||
let hit2 = (hit +1) mod (Array.length polys.(p).vertexes) in
|
||||
let proj = return_proj_of_point b.xy polys.(p).vertexes.(hit) polys.(p).vertexes.(hit2) in
|
||||
let proj_n = vect_normalize_2D (vect_diff_2D b.xy proj) in
|
||||
let reaction_force_2 = vect_mult_2D proj_n (univ_g *. b.mass *. (vect_dot_product_2D (vect_normalize_2D gforce) proj_n)) in
|
||||
|
||||
(* change velocity according to angle *)
|
||||
if hitlen = 1 then begin
|
||||
let director = vect_diff_2D polys.(p).vertexes.(hit2) polys.(p).vertexes.(hit) in
|
||||
let symmetric = vect_symmetry b.v {x = 0. ; y = 0.} director in
|
||||
b.fres.x <- b.fres.x +. reaction_force_2.x *. polys.(p).restitution ;
|
||||
b.fres.y <- b.fres.y +. reaction_force_2.y *. polys.(p).restitution ;
|
||||
|
||||
b.v.x <- symmetric.x ;
|
||||
b.v.y <- symmetric.y ;
|
||||
end
|
||||
else begin
|
||||
let newv = vect_mult_2D (vect_normalize_2D (vect_diff_2D b.xy proj)) (vect_norm_2D b.v) in
|
||||
(* change velocity according to angle *)
|
||||
let director = vect_diff_2D polys.(p).vertexes.(hit2) polys.(p).vertexes.(hit) in
|
||||
let symmetric = vect_symmetry b.v {x = 0. ; y = 0.} director in
|
||||
|
||||
b.v.x <- newv.x ;
|
||||
b.v.y <- newv.y ;
|
||||
end
|
||||
done
|
||||
b.v.x <- symmetric.x ;
|
||||
b.v.y <- symmetric.y ;
|
||||
end
|
||||
done ;
|
||||
|
||||
|
|
@ -451,19 +387,13 @@ let update_ball_data (b : ball) (polys : polygon array) (spheres : sphere array)
|
|||
|
||||
if spheres.(s).score > 0 then
|
||||
playbeep () ;
|
||||
if spheres.(s).restitution = 0. then begin
|
||||
b.active <- false ;
|
||||
decr remaining ;
|
||||
end;
|
||||
|
||||
(* apply normal reaction force *)
|
||||
let proj_n = vect_normalize_2D (vect_diff_2D b.xy spheres.(s).center) in
|
||||
let scal = (vect_dot_product_2D (vect_normalize_2D gforce) proj_n) in
|
||||
if scal > 0. then begin
|
||||
let reaction_force_2 = vect_mult_2D proj_n (univ_g *. b.mass *. scal) in
|
||||
b.fres.x <- b.fres.x +. reaction_force_2.x *. spheres.(s).restitution *. 1.1 ;
|
||||
b.fres.y <- b.fres.y +. reaction_force_2.y *. spheres.(s).restitution *. 1.1 ;
|
||||
end;
|
||||
let reaction_force_2 = vect_mult_2D proj_n (univ_g *. b.mass *. (vect_dot_product_2D (vect_normalize_2D gforce) proj_n)) in
|
||||
|
||||
b.fres.x <- b.fres.x +. reaction_force_2.x *. spheres.(s).restitution ;
|
||||
b.fres.y <- b.fres.y +. reaction_force_2.y *. spheres.(s).restitution ;
|
||||
|
||||
(* change velocity according to angle *)
|
||||
let theta = b.radius /. (vect_norm_2D (vect_diff_2D b.xy spheres.(s).center)) in
|
||||
|
|
@ -476,47 +406,6 @@ let update_ball_data (b : ball) (polys : polygon array) (spheres : sphere array)
|
|||
end
|
||||
done ;
|
||||
|
||||
for f = 0 to flips.len -1 do
|
||||
let (hitarr, hitlen) = (is_collision_p b flips.tab.(f).vtxs dt) in
|
||||
if hitlen > 0 then begin
|
||||
for h = 0 to hitlen -1 do
|
||||
let hit = hitarr.(h) in
|
||||
|
||||
(* apply normal reaction force *)
|
||||
let hit2 = (hit +1) mod (Array.length flips.tab.(f).vtxs.vertexes) in
|
||||
let proj = return_proj_of_point b.xy flips.tab.(f).vtxs.vertexes.(hit) flips.tab.(f).vtxs.vertexes.(hit2) in
|
||||
let proj_n = vect_normalize_2D (vect_diff_2D b.xy proj) in
|
||||
let scal = (vect_dot_product_2D (vect_normalize_2D gforce) proj_n) in
|
||||
if scal > 0. then begin
|
||||
let reaction_force_2 = vect_mult_2D proj_n (univ_g *. b.mass *. scal) in
|
||||
b.fres.x <- b.fres.x +. reaction_force_2.x *. flips.tab.(f).vtxs.restitution /. float_of_int hitlen ;
|
||||
b.fres.y <- b.fres.y +. reaction_force_2.y *. flips.tab.(f).vtxs.restitution /. float_of_int hitlen ;
|
||||
end;
|
||||
|
||||
(* change velocity according to angle *)
|
||||
if hitlen = 1 then begin
|
||||
let director = vect_diff_2D flips.tab.(f).vtxs.vertexes.(hit2) flips.tab.(f).vtxs.vertexes.(hit) in
|
||||
let symmetric = vect_symmetry b.v {x = 0. ; y = 0.} director in
|
||||
|
||||
b.v.x <- symmetric.x ;
|
||||
b.v.y <- symmetric.y ;
|
||||
end
|
||||
else begin
|
||||
let newv = vect_mult_2D (vect_normalize_2D (vect_diff_2D b.xy proj)) (vect_norm_2D b.v) in
|
||||
|
||||
b.v.x <- newv.x ;
|
||||
b.v.y <- newv.y ;
|
||||
end;
|
||||
|
||||
(* add relative velocity [disabled for physical reasons] *)
|
||||
if false && ((flips.tab.(f).side = Left && flips.tab.(f).dtheta > 0.) || (flips.tab.(f).side = Right && flips.tab.(f).dtheta < 0.)) then begin
|
||||
b.v.x <- 0.5 *. b.v.x +. flips.tab.(f).dtheta *. 3.14159 /. 180. *. (vect_dist_2D flips.tab.(f).xy b.xy) *. (cos (flips.tab.(f).theta *. 3.14159 /. 180.));
|
||||
b.v.y <- 0.5 *. b.v.y +. flips.tab.(f).dtheta *. 3.14159 /. 180. *. (vect_dist_2D flips.tab.(f).xy b.xy) *. (sin (flips.tab.(f).theta *. 3.14159 /. 180.));
|
||||
end
|
||||
done
|
||||
end
|
||||
done;
|
||||
|
||||
(* P = mg *)
|
||||
b.fres.y <- b.fres.y -. univ_g *. b.mass ;
|
||||
|
||||
|
|
@ -530,67 +419,9 @@ let update_ball_data (b : ball) (polys : polygon array) (spheres : sphere array)
|
|||
b.xy.x <- b.xy.x +. b.v.x *. dt ;
|
||||
b.xy.y <- b.xy.y +. b.v.y *. dt ;;
|
||||
|
||||
let update_balls (bl : ball array) (polys : polygon array) (spheres : sphere array) (flips : flipper dynamic) (dt : float) =
|
||||
let update_balls (bl : ball array) (polys : polygon array) (spheres : sphere array) (dt : float) =
|
||||
for b = 0 to Array.length bl -1 do
|
||||
if bl.(b).active then
|
||||
update_ball_data bl.(b) polys spheres flips dt
|
||||
done ;;
|
||||
|
||||
let update_flippers (flips : flipper dynamic) (dt : float) =
|
||||
for fl = 0 to flips.len -1 do
|
||||
if flips.tab.(fl).dtheta <> 0. then begin
|
||||
let x0 = flips.tab.(fl).xy.x
|
||||
and y0 = flips.tab.(fl).xy.y
|
||||
and rd = flips.tab.(fl).radius
|
||||
and len = flips.tab.(fl).length
|
||||
and theta0 = flips.tab.(fl).theta in
|
||||
match flips.tab.(fl).side with
|
||||
| Left ->
|
||||
let theta_dt = flips.tab.(fl).theta +. flips.tab.(fl).dtheta *. dt in
|
||||
if theta_dt > flips.tab.(fl).agmax then
|
||||
flips.tab.(fl).dtheta <- -.(flips.tab.(fl).dtheta) ;
|
||||
|
||||
if theta_dt < flips.tab.(fl).agmin then
|
||||
flips.tab.(fl).dtheta <- 0. ;
|
||||
|
||||
flips.tab.(fl).theta <- theta_dt ;
|
||||
|
||||
flips.tab.(fl).vtxs.vertexes.(0) <- {
|
||||
x = x0 +. len *. (cos (theta0 *. 3.14159 /. 180.));
|
||||
y = y0 +. len *. (sin (theta0 *. 3.14159 /. 180.))
|
||||
};
|
||||
flips.tab.(fl).vtxs.vertexes.(1) <- {
|
||||
x = x0 +. rd *. (cos ((theta0 +. 90.) *. 3.14159 /. 180.));
|
||||
y = y0 +. rd *. (sin ((theta0 +. 90.) *. 3.14159 /. 180.))
|
||||
};
|
||||
flips.tab.(fl).vtxs.vertexes.(2) <- {
|
||||
x = x0 +. rd *. (cos ((theta0 -. 90.) *. 3.14159 /. 180.));
|
||||
y = y0 +. rd *. (sin ((theta0 -. 90.) *. 3.14159 /. 180.))
|
||||
};
|
||||
|
||||
| Right ->
|
||||
let theta_dt = flips.tab.(fl).theta +. flips.tab.(fl).dtheta *. dt in
|
||||
if theta_dt > flips.tab.(fl).agmax then
|
||||
flips.tab.(fl).dtheta <- 0. ;
|
||||
|
||||
if theta_dt < flips.tab.(fl).agmin then
|
||||
flips.tab.(fl).dtheta <- -.(flips.tab.(fl).dtheta) ;
|
||||
|
||||
flips.tab.(fl).theta <- theta_dt ;
|
||||
|
||||
flips.tab.(fl).vtxs.vertexes.(0) <- {
|
||||
x = x0 +. len *. (cos (theta0 *. 3.14159 /. 180.));
|
||||
y = y0 +. len *. (sin (theta0 *. 3.14159 /. 180.))
|
||||
};
|
||||
flips.tab.(fl).vtxs.vertexes.(1) <- {
|
||||
x = x0 +. rd *. (cos ((theta0 +. 90.) *. 3.14159 /. 180.));
|
||||
y = y0 +. rd *. (sin ((theta0 +. 90.) *. 3.14159 /. 180.))
|
||||
};
|
||||
flips.tab.(fl).vtxs.vertexes.(2) <- {
|
||||
x = x0 +. rd *. (cos ((theta0 -. 90.) *. 3.14159 /. 180.));
|
||||
y = y0 +. rd *. (sin ((theta0 -. 90.) *. 3.14159 /. 180.))
|
||||
};
|
||||
end
|
||||
update_ball_data bl.(b) polys spheres dt
|
||||
done ;;
|
||||
|
||||
(* ------------------------------------------------------------------------------------- *)
|
||||
|
|
@ -686,11 +517,6 @@ let draw_sphere (s : sphere) =
|
|||
set_color (rgb (s.rgb mod 256) ((s.rgb / 256) mod 256) ((s.rgb / (256*256)) mod 256)) ;
|
||||
fill_circle (int_of_float s.center.x) (int_of_float s.center.y) (int_of_float s.radius) ;;
|
||||
|
||||
let draw_flipper (f : flipper) =
|
||||
set_color (rgb 64 64 64) ;
|
||||
fill_circle (int_of_float f.xy.x) (int_of_float f.xy.y) (int_of_float f.radius) ;
|
||||
draw_polygon f.vtxs ;;
|
||||
|
||||
let draw_ball (b : ball) =
|
||||
set_color (rgb (b.rgb mod 256) ((b.rgb / 256) mod 256) ((b.rgb / (256*256)) mod 256)) ;
|
||||
fill_circle (int_of_float b.xy.x) (int_of_float b.xy.y) (int_of_float b.radius) ;
|
||||
|
|
@ -699,8 +525,7 @@ let draw_ball (b : ball) =
|
|||
|
||||
let draw_all_balls (bs : ball array) =
|
||||
for k = 0 to Array.length bs -1 do
|
||||
if bs.(k).active then
|
||||
draw_ball bs.(k)
|
||||
draw_ball bs.(k)
|
||||
done ;;
|
||||
|
||||
(* ------------------------------------------------------------------------------------- *)
|
||||
|
|
@ -713,27 +538,12 @@ let get1char_plus () =
|
|||
else
|
||||
'@' ;;
|
||||
|
||||
let control_flippers (flips : flipper dynamic) =
|
||||
match get1char_plus () with
|
||||
| 'q' ->
|
||||
for fl = 0 to flips.len -1 do
|
||||
if flips.tab.(fl).side = Left && flips.tab.(fl).dtheta = 0. then
|
||||
flips.tab.(fl).dtheta <- 600. ;
|
||||
done
|
||||
| 'd' ->
|
||||
for fl = 0 to flips.len -1 do
|
||||
if flips.tab.(fl).side = Right && flips.tab.(fl).dtheta = 0. then
|
||||
flips.tab.(fl).dtheta <- -. 600. ;
|
||||
done
|
||||
| _ -> () ;;
|
||||
|
||||
let create_ball (r : float) (x0 : int) (y0 : int) (m : float) (red : int) (green : int) (blue : int) =
|
||||
{
|
||||
active = true ;
|
||||
radius = r ;
|
||||
rgb = red + 256 * green + 256 * 256 * blue ;
|
||||
mass = m;
|
||||
xy = {x = float_of_int x0 +. (Random.float 30.0 -. 15.0); y = float_of_int y0 +. (Random.float 30.0 -. 15.0)} ;
|
||||
xy = {x = float_of_int x0 +. (Random.float 10.0 -. 5.0); y = float_of_int y0 +. (Random.float 10.0 -. 5.0)} ;
|
||||
v = {x = 0. ; y = 0.} ;
|
||||
a = {x = 0. ; y = 0.} ;
|
||||
fres = {x = 0. ; y = 0.} ;
|
||||
|
|
@ -765,23 +575,6 @@ let create_sphere (x00 : int) (y00 : int) (rd : float) (rest : float) (pts : int
|
|||
score = pts ;
|
||||
} ;;
|
||||
|
||||
let create_flipper (side : flipper_side) (x0 : int) (y0 : int) (rd : float) (len : float) (theta0 : float) (thmin : float) (thmax : float) =
|
||||
{
|
||||
side = side ;
|
||||
xy = {x = float_of_int x0 ; y = float_of_int y0} ;
|
||||
radius = rd ;
|
||||
length = len ;
|
||||
theta = theta0 (* in degrees *) ;
|
||||
dtheta = 0. ;
|
||||
agmin = thmin ;
|
||||
agmax = thmax ;
|
||||
vtxs = create_polygon [|
|
||||
(x0 + int_of_float (len *. (cos (theta0 *. 3.14159 /. 180.))) , y0 + int_of_float (len *. (sin (theta0 *. 3.14159 /. 180.))));
|
||||
(x0 + int_of_float (rd *. (cos ((theta0 -. 90.) *. 3.14159 /. 180.))), y0 + int_of_float (rd *. (sin ((theta0 -. 90.) *. 3.14159 /. 180.))));
|
||||
(x0 + int_of_float (rd *. (cos ((theta0 +. 90.) *. 3.14159 /. 180.))), y0 + int_of_float (rd *. (sin ((theta0 +. 90.) *. 3.14159 /. 180.))))
|
||||
|] 1. 0 128 128 128
|
||||
} ;;
|
||||
|
||||
let generate_pinballs (count : int) (r : float) (x0 : int) (y0 : int) (m : float) (red : int) (green : int) (blue : int) =
|
||||
Array.init count (fun k -> create_ball r x0 y0 m red green blue) ;;
|
||||
|
||||
|
|
@ -790,7 +583,7 @@ let generate_pinballs (count : int) (r : float) (x0 : int) (y0 : int) (m : float
|
|||
(* WALUIGI_TIME Edition functions *)
|
||||
|
||||
let customize lvl_name =
|
||||
open_graph __istr__ ;
|
||||
open_graph " 1200x800" ;
|
||||
set_window_title "WAH" ;
|
||||
|
||||
let (res : polygon dynamic) = dyn_create default_polygon in
|
||||
|
|
@ -800,7 +593,7 @@ let customize lvl_name =
|
|||
let (cpoly : pt_2d dynamic) = dyn_create {x = 0. ; y = 0.} in
|
||||
|
||||
while not !stopped do
|
||||
Unix.sleepf univ_dt ;
|
||||
Unix.sleepf 0.005 ;
|
||||
|
||||
if !refresh then begin
|
||||
auto_synchronize false ;
|
||||
|
|
@ -848,11 +641,11 @@ let customize lvl_name =
|
|||
(* ------------------------------------------------------------------------------------- *)
|
||||
(* WALUIGI_TIME Main *)
|
||||
|
||||
let simulate (data : polygon dynamic) (dats : sphere dynamic) (flips : flipper dynamic) =
|
||||
open_graph __istr__ ;
|
||||
let simulate (data : polygon dynamic) (dats : sphere dynamic) =
|
||||
open_graph " 1200x800" ;
|
||||
set_window_title "WAH" ;
|
||||
|
||||
let pinballs = generate_pinballs 8 10.0 600 800 0.15 255 255 0 in
|
||||
let pinballs = generate_pinballs 3 20.0 600 700 0.15 255 255 0 in
|
||||
let stime = Unix.gettimeofday () in
|
||||
let ctime = ref (Unix.gettimeofday ()) in
|
||||
|
||||
|
|
@ -861,18 +654,12 @@ let simulate (data : polygon dynamic) (dats : sphere dynamic) (flips : flipper d
|
|||
auto_synchronize false ;
|
||||
clear_graph () ;
|
||||
|
||||
set_line_width 4 ;
|
||||
draw_integer 600 100 !remaining 40 ;
|
||||
|
||||
set_line_width 1 ;
|
||||
for d = 0 to dats.len -1 do
|
||||
draw_sphere dats.tab.(d)
|
||||
done;
|
||||
for d = 0 to data.len -1 do
|
||||
draw_polygon data.tab.(d)
|
||||
done;
|
||||
for d = 0 to flips.len -1 do
|
||||
draw_flipper flips.tab.(d)
|
||||
for d = 0 to dats.len -1 do
|
||||
draw_sphere dats.tab.(d)
|
||||
done;
|
||||
draw_all_balls pinballs ;
|
||||
|
||||
|
|
@ -884,105 +671,39 @@ let simulate (data : polygon dynamic) (dats : sphere dynamic) (flips : flipper d
|
|||
draw_integer 600 770 !score 50 ;
|
||||
|
||||
auto_synchronize true ;
|
||||
|
||||
control_flippers flips ;
|
||||
|
||||
Unix.sleepf univ_dt ;
|
||||
Unix.sleepf 0.005 ;
|
||||
|
||||
let __end = Unix.gettimeofday () in
|
||||
ctime := !ctime +. (__end -. __start) ;
|
||||
update_balls pinballs data.tab dats.tab flips (__end -. __start) ;
|
||||
update_flippers flips (__end -. __start) ;
|
||||
update_balls pinballs data.tab dats.tab (__end -. __start) ;
|
||||
done;
|
||||
|
||||
close_graph () ;;
|
||||
|
||||
(*let polygons = customize () ;;*)
|
||||
let polygons = dyn_create default_polygon ;;
|
||||
dyn_add polygons (create_polygon [|(0, 0); (50, 0); (50, 775); (0, 775)|] 1.0 0 32 32 255) ;;
|
||||
dyn_add polygons (create_polygon [|(1150, 0); (1200, 0); (1200, 775); (1150, 775)|] 1.0 0 32 32 255) ;;
|
||||
dyn_add polygons (create_polygon [|(50, 0); (50, 200); (500, 25); (500, 0)|] 1.0 0 32 32 255) ;;
|
||||
dyn_add polygons (create_polygon [|(1150, 0); (1150, 200); (700, 25); (700, 0)|] 1.0 0 32 32 255) ;;
|
||||
dyn_add polygons (create_polygon [|(500, 0); (700, 0); (700, 25); (500, 25)|] 1.0 (-10) 192 64 64) ;;
|
||||
dyn_add polygons (create_polygon [|(0, 750); (1200, 750); (1200, 800); (0, 800)|] 1.0 25 64 192 64) ;;
|
||||
|
||||
let spheres = dyn_create default_sphere ;;
|
||||
let flippers = dyn_create default_flipper ;;
|
||||
dyn_add spheres (create_sphere 200 400 20. 1. 5 220 32 220) ;;
|
||||
dyn_add spheres (create_sphere 300 200 20. 1. 3 192 0 192) ;;
|
||||
dyn_add spheres (create_sphere 400 450 20. 1. 3 192 0 192) ;;
|
||||
dyn_add spheres (create_sphere 600 350 20. 1. 10 255 64 255) ;;
|
||||
dyn_add spheres (create_sphere 800 450 20. 1. 3 192 0 192) ;;
|
||||
dyn_add spheres (create_sphere 900 200 20. 1. 3 192 0 192) ;;
|
||||
dyn_add spheres (create_sphere 1000 400 20. 1. 5 220 32 220) ;;
|
||||
dyn_add spheres (create_sphere 50 200 15. 1. 20 255 255 32) ;;
|
||||
dyn_add spheres (create_sphere 1150 200 15. 1. 20 255 255 32) ;;
|
||||
|
||||
(* |-------------------------------------------------------------------------------------------------------| *)
|
||||
(* kill platform *)
|
||||
dyn_add polygons (create_polygon [|(700, -20); (500, -20); (500, 1); (700, 1)|] 0. 0 255 32 32) ;;
|
||||
|
||||
(* outer walls *)
|
||||
dyn_add polygons (create_polygon [|(0, 0); (500, 0); (500, 20); (0, 20)|] 1. 0 32 32 32) ;;
|
||||
dyn_add polygons (create_polygon [|(700, 0); (1200, 0); (1200, 20); (700, 20)|] 1. 0 32 32 32) ;;
|
||||
dyn_add polygons (create_polygon [|(0, 800); (500, 800); (500, 780); (0, 780)|] 1. 0 32 32 32) ;;
|
||||
dyn_add polygons (create_polygon [|(700, 800); (1200, 800); (1200, 780); (700, 780)|] 1. 0 32 32 32) ;;
|
||||
dyn_add polygons (create_polygon [|(1180, 0); (1200, 0); (1200, 800); (1180, 800)|] 1. 0 32 32 32) ;;
|
||||
dyn_add polygons (create_polygon [|(0, 0); (20, 0); (20, 800); (0, 800)|] 1. 0 32 32 32) ;;
|
||||
|
||||
(* side ramps *)
|
||||
dyn_add polygons (create_polygon [|(20, 20); (20, 300); (420, 150); (420, 20)|] 1. 0 32 32 32) ;;
|
||||
dyn_add polygons (create_polygon [|(1200, 20); (1200, 300); (780, 150); (780, 20)|] 1. 0 32 32 32) ;;
|
||||
|
||||
(* starting platform *)
|
||||
dyn_add polygons (create_polygon [|(600, 700); (400, 550); (800, 550)|] 1. 0 32 32 32) ;;
|
||||
|
||||
(* |-------------------------------------------------------------------------------------------------------| *)
|
||||
(* corner scoring spots *)
|
||||
dyn_add spheres (create_sphere 20 780 30. 1. 50 128 128 32) ;;
|
||||
dyn_add spheres (create_sphere 1180 780 30. 1. 50 128 128 32) ;;
|
||||
|
||||
(* under the starting platform *)
|
||||
dyn_add spheres (create_sphere 440 550 20. 1. 5 32 128 32) ;;
|
||||
dyn_add spheres (create_sphere 520 550 20. 1. 5 32 192 32) ;;
|
||||
dyn_add spheres (create_sphere 600 550 20. 1. 5 32 255 32) ;;
|
||||
dyn_add spheres (create_sphere 680 550 20. 1. 5 32 192 32) ;;
|
||||
dyn_add spheres (create_sphere 760 550 20. 1. 5 32 128 32) ;;
|
||||
|
||||
dyn_add spheres (create_sphere 480 450 20. 1. 3 32 156 32) ;;
|
||||
dyn_add spheres (create_sphere 560 450 20. 1. 3 32 220 32) ;;
|
||||
dyn_add spheres (create_sphere 640 450 20. 1. 3 32 220 32) ;;
|
||||
dyn_add spheres (create_sphere 720 450 20. 1. 3 32 156 32) ;;
|
||||
|
||||
dyn_add spheres (create_sphere 520 350 20. 1. 1 32 192 32) ;;
|
||||
dyn_add spheres (create_sphere 600 350 20. 1. 1 32 255 32) ;;
|
||||
dyn_add spheres (create_sphere 680 350 20. 1. 1 32 192 32) ;;
|
||||
|
||||
(* left side *)
|
||||
dyn_add spheres (create_sphere 20 480 10. 1. 3 32 32 192) ;;
|
||||
dyn_add spheres (create_sphere 95 555 10. 1. 3 32 32 192) ;;
|
||||
dyn_add spheres (create_sphere 170 630 10. 1. 3 32 32 192) ;;
|
||||
dyn_add spheres (create_sphere 245 705 10. 1. 3 32 32 192) ;;
|
||||
dyn_add spheres (create_sphere 320 780 10. 1. 3 32 32 192) ;;
|
||||
|
||||
dyn_add spheres (create_sphere 20 630 15. 1. 5 32 32 255) ;;
|
||||
dyn_add spheres (create_sphere 95 705 15. 1. 5 32 32 255) ;;
|
||||
dyn_add spheres (create_sphere 170 780 15. 1. 5 32 32 255) ;;
|
||||
|
||||
dyn_add spheres (create_sphere 300 300 15. 1. 5 128 128 128) ;;
|
||||
|
||||
(* right side *)
|
||||
dyn_add spheres (create_sphere 1180 480 10. 1. 3 32 32 192) ;;
|
||||
dyn_add spheres (create_sphere 1105 555 10. 1. 3 32 32 192) ;;
|
||||
dyn_add spheres (create_sphere 1030 630 10. 1. 3 32 32 192) ;;
|
||||
dyn_add spheres (create_sphere 965 705 10. 1. 3 32 32 192) ;;
|
||||
dyn_add spheres (create_sphere 890 780 10. 1. 3 32 32 192) ;;
|
||||
|
||||
dyn_add spheres (create_sphere 1180 630 15. 1. 5 32 32 255) ;;
|
||||
dyn_add spheres (create_sphere 1105 705 15. 1. 5 32 32 255) ;;
|
||||
dyn_add spheres (create_sphere 1030 780 15. 1. 5 32 32 255) ;;
|
||||
|
||||
dyn_add spheres (create_sphere 900 300 15. 1. 5 128 128 128) ;;
|
||||
|
||||
(* on the ramps *)
|
||||
dyn_add spheres (create_sphere 20 300 20. 1. 7 128 128 128) ;;
|
||||
dyn_add spheres (create_sphere 1180 300 20. 1. 7 128 128 128) ;;
|
||||
|
||||
(* |-------------------------------------------------------------------------------------------------------| *)
|
||||
|
||||
dyn_add flippers (create_flipper Left 420 125 20. 160. (-. 20.) (-. 20.) 20.) ;;
|
||||
dyn_add flippers (create_flipper Right 780 125 20. 160. 200. 160. 200.) ;;
|
||||
|
||||
(* |-------------------------------------------------------------------------------------------------------| *)
|
||||
|
||||
simulate polygons spheres flippers ;;
|
||||
simulate polygons spheres ;;
|
||||
(*
|
||||
let create_polygon (arr : (int * int) array) (rest : float) (pts : int) (red : int) (green : int) (blue : int)
|
||||
let create_sphere (x00 : int) (y00 : int) (radius : float) (rest : float) (pts : int) red green blue
|
||||
let create_flipper (x0 : int) (y0 : int) (rd : float) (len : float) (theta0 : float) (thmin : float) (thmax : float)
|
||||
let create_sphere (x00 : int) (y00 : int) (radius : float) (rest : float) (pts : int)
|
||||
*)
|
||||
|
||||
(* ocamlfind ocamlopt -linkpkg -package unix -linkpkg -package graphics -thread -package threads -linkpkg main.ml *)
|
||||
Loading…
Reference in New Issue