From e5b559316fa11796d7cc6c69dafac3e6b5d8b6a7 Mon Sep 17 00:00:00 2001
From: Matthieu Dubuget <matthieu.dubuget@gmail.com>
Date: Sun, 4 Oct 2020 12:35:02 +0200
Subject: [PATCH] Support pousse mousse

---
 support.scad | 37 +++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)
 create mode 100644 support.scad

diff --git a/support.scad b/support.scad
new file mode 100644
index 0000000..1ce8209
--- /dev/null
+++ b/support.scad
@@ -0,0 +1,37 @@
+$fa = 1;
+$fs = 0.4;
+
+// Hauteur du corps :    h
+// Hauteur du Rebord :   r
+// Diamètre interne :    di
+// Épaisseur du rebord : e
+// Hauteur marche :      c
+// Rayon piont :         p
+// Écart :               d
+
+module cale(h, r, di, e, c, p, d) {
+     union(){
+           difference(){
+               cylinder(h=h+r, r=(di/2)+e, center=false);
+               translate([0, 0, h])
+                    cylinder(h=10, r=di/2, center=false);
+               translate([di/2 - 2 * e - p, 0, -c])
+                    cylinder(h= 4.5 + h/2, r = p + 0.05, center=false );
+          }
+
+          translate([di/2 + e + p + d, 0, 0])
+               cylinder(h= 4.5 + h/2, r = p, center=false );
+
+          translate([di/2, -5/4, 0])
+               cube(size=[d + 2 * e, 5 / 2, 0.5]);
+     }
+}
+
+// Hauteur du corps :    h  = 5
+// Hauteur du Rebord :   r  = 1
+// Diamètre interne :    di = 80
+// Épaisseur du rebord : e  = 0.5
+// Hauteur marche :      c  = 4.5
+// Rayon piont :         p  = 2.5
+// Écart :               d  = 2
+cale(h=5, r=1, di=80, e=0.5, c=4.5, p=2.5, d=2);