add plates

test/dactyl_cave/core_test.clj

@@ -12,5 +12,48 @@
 
 (spit "things/right-plate-polygon.scad"
       (write-scad
-(polygon [[-83 0] [-81.7 11.88] [-80.76 21.6] [-74.64 41] [-71.67 45.4] [-73.5 47.3] [-70.74 52.21] [-57.39 62.9]])
+(->> (polygon [[-83 0] [-81.7 11.88] [-80.76 21.6] [-74.64 41] [-71.67 45.4] [-73.5 47.3] [-70.74 52.21] [-57.39 62.9]
+[-58 62.5]
+[-25.4 62.9]
+[-24.4 66.14]
+[-7.46 66.14]
+[-3.26 62.7]
+[12.67 62.68]
+[16.9 50.5]
+[53.7 51.4]
+[58.6 47.5]
+[57.3 19.7]
+[53.88 17.9]
+[54.4 14.34]
+[55.9 13.45]
+[55.47 -2.28]
+[55.76 -26]
+[57.56 -43.81]
+[57.78 -48.85]
+[52.3 -53.9]
+[19 -54.5]
+[15.7 -64.9]
+[-16.4 -65.46]
+[-17.3 -67.24]
+[-31.8 -76.1]
+[-40.7 -86.2]
+[-40.5 -92.76]
+[-45.44 -99]
+[-53.22 -103.1]
+[-58.9 -103.1]
+[-72 -91.6]
+[-78.5 -88.6]
+[-90.5 -78.8]
+[-90.5 -73.18]
+[-80.97 -58.64]
+[-81.4 -57.42]
+[-74.47 -47.6]
+[-72.2 -44.5]
+])
+(extrude-linear {:height 2.6 :twist 0 :convexity 0})
+)
       ))
+
+;(->> (polygon [[6 6] [6 -6] [-6 -6] [-6 6]])
+;                                        (extrude-linear {:height 0.1 :twist 0 :convexity 0})
+;                                        (translate [0 0 12]))