diff --git a/src/experimental/geom_tetrahedron.scad b/src/experimental/geom_tetrahedron.scad
new file mode 100644
index 00000000..3e010475
--- /dev/null
+++ b/src/experimental/geom_tetrahedron.scad
@@ -0,0 +1,14 @@
+use <experimental/_impl/_geom_platonic_polyhedra.scad>;
+
+function geom_tetrahedron(radius, detail = 0, quick_mode = true) =
+    let(
+        t = (1 + sqrt(5)) / 2 ,
+        tetrahedron_points = [
+			[1, 1, 1], 	[-1, -1, 1], [-1, 1, -1], [1, -1, -1]
+		],
+        tetrahedron_faces = [
+			[0, 1, 2], [2, 3, 0], [0, 3, 1], [1, 3, 2]
+		]
+    )
+    _geom_platonic_polyhedra(tetrahedron_points, tetrahedron_faces, radius, detail, quick_mode);
+    
\ No newline at end of file
diff --git a/src/experimental/tetrahedron.scad b/src/experimental/tetrahedron.scad
new file mode 100644
index 00000000..e0096b60
--- /dev/null
+++ b/src/experimental/tetrahedron.scad
@@ -0,0 +1,6 @@
+use <experimental/geom_tetrahedron.scad>;
+
+module tetrahedron(radius, detail = 0, quick_mode = true) {
+	points_faces = geom_tetrahedron(radius, detail, quick_mode);
+    polyhedron(points_faces[0], points_faces[1]);
+} 
\ No newline at end of file