Update screw

This commit is contained in:
Leo Lou 2018-06-12 12:25:19 +09:00
parent d9f694ab3b
commit 792c9f46f6

View file

@ -617,7 +617,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 [9 9 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 0 lastrow bottom-radius top-radius height [1 8 0])
(screw-insert 3 lastrow bottom-radius top-radius height [9 4 0]) (screw-insert 3 lastrow bottom-radius top-radius height [9 4 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 1 lastrow bottom-radius top-radius height [0 -16 0]))) (screw-insert 1 lastrow bottom-radius top-radius height [0 -16 0])))