diff --git a/src/shape/convex_polygon.rs b/src/shape/convex_polygon.rs
index 8a5825ac..06ba7157 100644
--- a/src/shape/convex_polygon.rs
+++ b/src/shape/convex_polygon.rs
@@ -30,6 +30,7 @@ impl ConvexPolygon {
     /// describe a counter-clockwise convex polyline.
     ///
     /// Convexity of the input polyline is not checked.
+    /// Removes some points if they are collinear with the previous one.
     /// Returns `None` if all points form an almost flat line.
     pub fn from_convex_polyline(mut points: Vec<Point<Real>>) -> Option<Self> {
         if points.is_empty() {
@@ -73,6 +74,29 @@ impl ConvexPolygon {
         }
     }
 
+    /// Creates a new 2D convex polygon from a set of points assumed to
+    /// describe a counter-clockwise convex polyline.
+    ///
+    /// Convexity of the input polyline is not checked.
+    /// Does not remove any points.
+    pub fn from_points(points: Vec<Point<Real>>) -> Option<Self> {
+        if points.is_empty() {
+            return None;
+        }
+        let mut normals = Vec::with_capacity(points.len());
+        // First, compute all normals.
+        for i1 in 0..points.len() {
+            let i2 = (i1 + 1) % points.len();
+            normals.push(utils::ccw_face_normal([&points[i1], &points[i2]])?);
+        }
+
+        if points.len() > 2 {
+            Some(ConvexPolygon { points, normals })
+        } else {
+            None
+        }
+    }
+
     /// The vertices of this convex polygon.
     #[inline]
     pub fn points(&self) -> &[Point<Real>] {