Anonymous user
Bitmap/Bézier curves/Cubic: Difference between revisions
→{{header|OCaml}}
m ({{omit from|GUISS}}) |
|||
Line 319:
let line = draw_line ~img ~color in
let by_pair li f =
ignore (List.fold_left (fun prev x -> f prev x; x) (List.hd li) (List.tl li))
in
by_pair pts (fun p0 p1 -> line ~p0 ~p1);
|