start sphere in ocaml cause i am big brean genius

tinker/sphere.ml

@@ -0,0 +1,53 @@
+let stacks = 10;;
+let slices = 12;;
+let radius = 0.175;;
+
+let gen_sphere_vertecies st sl r =
+  let rec gen_slice j sp cp sv =
+    if j = -1 then sv
+    else
+      let theta = 2. *. 3.1415926 *. float_of_int j /. float_of_int (sl) in
+      let sinTheta = sin theta in
+      let cosTheta = cos theta in
+      gen_slice (j - 1) sp cp ((r *. cosTheta *. sp, r *. cp, r *. sinTheta *. sp) :: sv)
+  in
+
+  let rec gen_stack i sv =
+    if i = -1 then sv
+    else
+      let phi = 3.1415926 *. float_of_int i /. float_of_int (st - 1) in
+      let sinPhi = sin phi in
+      let cosPhi = cos phi in
+      gen_stack (i - 1) (gen_slice (sl - 1) sinPhi cosPhi sv)
+  in
+
+  gen_stack (st - 1) [];;
+
+let reverse_tr l =
+  let rec reverse_tr' acc l =
+    match l with
+    | [] -> acc
+    | x :: xs -> reverse_tr' (x :: acc) xs
+  in
+  reverse_tr' [] l;;
+
+let write_string_list_to_file filename (lines : string list) : unit =
+  Out_channel.with_open_text filename (fun oc ->
+    List.iter (Printf.fprintf oc "%s\n") lines
+  );;
+
+let convert_to_string l =
+  let rec convert r n =
+    match r with
+    | [] -> reverse_tr n
+    | (x, y, z) :: xs ->
+      let s = Printf.sprintf "(%f, %f, %f)" x y z in
+      convert xs (s :: n)
+  in
+  convert l [];;
+
+let () =
+  let vertecies = gen_sphere_vertecies 10 12 0.175 in
+  let file_path = "output.txt" in
+  write_string_list_to_file file_path (convert_to_string vertecies);
+  Printf.printf "Successfully wrote list to %s\n" file_path