Anonymous user
Catmull–Clark subdivision surface: Difference between revisions
m
→{{header|OCaml}}
Line 425:
let iter_edges f (Face pl) =
let rec next = function
| [] ->
| a :: [] -> f a (List.hd pl)
| a :: b :: c -> f a b; next (b::c) in
Line 447:
add_facet h2 t1 t2
| ([],[]) -> ()
| _ -> failwith "
add_facet e_tl v' !ep) in
(List.iter mod_face faces; !new_faces)
|