Adjust screw
This commit is contained in:
parent
f7c2098d1f
commit
ab2e1beb96
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue