Move screw

This commit is contained in:
Leo Lou 2018-06-13 23:51:50 +09:00
parent c386971a78
commit 8bbaa58798

View file

@ -648,7 +648,7 @@
(defn screw-insert-all-shapes [bottom-radius top-radius height] (defn screw-insert-all-shapes [bottom-radius top-radius height]
(union (screw-insert 0 0 bottom-radius top-radius height [11 10 0]) (union (screw-insert 0 0 bottom-radius top-radius height [11 10 0])
(screw-insert 0 lastrow bottom-radius top-radius height [1 8 0]) (screw-insert 0 lastrow bottom-radius top-radius height [0 0 0])
; (screw-insert lastcol lastrow bottom-radius top-radius height [-5 13 0]) ; (screw-insert lastcol lastrow bottom-radius top-radius height [-5 13 0])
; (screw-insert lastcol 0 bottom-radius top-radius height [-3 6 0]) ; (screw-insert lastcol 0 bottom-radius top-radius height [-3 6 0])
(screw-insert lastcol lastrow bottom-radius top-radius height [0 12 0]) (screw-insert lastcol lastrow bottom-radius top-radius height [0 12 0])