Loading animated 3D data/OCaml: Difference between revisions

Content added Content deleted
m (newline)
No edit summary
Line 141: Line 141:


let parse_shape_contents c =
let parse_shape_contents c =
let geom = parse_geom(List.hd(List.filter filter_geom c))
let geom = parse_geom(List.find filter_geom c)
and appearance = List.fold_left appearance_fold [] c in
and appearance = List.fold_left appearance_fold [] c in
let shape = (geom, appearance) in
let shape = (geom, appearance) in
Retrieved from "https://rosettacode.org/wiki/Loading_animated_3D_data/OCaml"