Adjust screw

This commit is contained in:
Leo Lou 2018-06-11 18:09:00 +09:00
parent f7c2098d1f
commit ab2e1beb96

View file

@ -616,10 +616,10 @@
(translate (map + offset [(first position) (second position) (/ height 2)])))))
(defn screw-insert-all-shapes [bottom-radius top-radius height]
(union (screw-insert 0 0 bottom-radius top-radius height [9 10 0])
(union (screw-insert 0 0 bottom-radius top-radius height [9 9 0])
(screw-insert 0 lastrow bottom-radius top-radius height [0 8 0])
(screw-insert 3 lastrow bottom-radius top-radius height [9 4 0])
(screw-insert 3 0 bottom-radius top-radius height [6 -3 0])
(screw-insert lastcol 0 bottom-radius top-radius height [-3 6 0])
(screw-insert 1 lastrow bottom-radius top-radius height [0 -16 0])))
; Hole Depth Y: 4.4