Anonymous user
Catmull–Clark subdivision surface: Difference between revisions
m
→{{header|OCaml}}
(→{{header|OCaml}}: (another implementation)) |
|||
Line 409:
centroid [mid_edge e; centroid fps]
let mod_vertex faces edges
let v_edges = List.filter (point_in_edge p) edges in
let v_faces = List.filter (point_in_face p) faces in
Line 415:
let is_border = n != (List.length v_edges) in
if is_border then
let
(* description ambiguity: average (border+p) or average(average(border),p) ?? *)
centroid (p :: border_mids)
|