Add another screw insert

pull/1/head
Tom Short 7 years ago
parent a8184af440
commit db1cad5635

@ -656,8 +656,8 @@
)))
(defn screw-insert-all-shapes [bottom-radius top-radius height]
(union ; (screw-insert 0 0 bottom-radius top-radius height)
(screw-insert 0 1 bottom-radius top-radius height)
(union (screw-insert 0 0 bottom-radius top-radius height)
(screw-insert 0 lastrow bottom-radius top-radius height)
(screw-insert 3 lastrow bottom-radius top-radius height)
(screw-insert 3 0 bottom-radius top-radius height)
(screw-insert lastcol 1 bottom-radius top-radius height)

Loading…
Cancel
Save