60 lines
1.3 KiB
Clojure
60 lines
1.3 KiB
Clojure
(ns dactyl-cave.core-test
|
|
;(:require [clojure.test :refer :all]
|
|
; [dactyl-cave.core :refer :all]))
|
|
|
|
(:refer-clojure :exclude [use import])
|
|
(:require [clojure.core.matrix :refer [array matrix mmul]]
|
|
[scad-clj.scad :refer :all]
|
|
[scad-clj.model :refer :all]
|
|
[unicode-math.core :refer :all]))
|
|
|
|
|
|
|
|
(spit "things/right-plate-polygon.scad"
|
|
(write-scad
|
|
(->> (polygon [[-83 0] [-81.7 11.88] [-80.76 21.6] [-74.64 41] [-71.67 45.4] [-73.5 47.3] [-70.74 52.21] [-57.39 62.9]
|
|
[-58 62.5]
|
|
[-25.4 62.9]
|
|
[-24.4 66.14]
|
|
[-7.46 66.14]
|
|
[-3.26 62.7]
|
|
[12.67 62.68]
|
|
[16.9 50.5]
|
|
[53.7 51.4]
|
|
[58.6 47.5]
|
|
[57.3 19.7]
|
|
[53.88 17.9]
|
|
[54.4 14.34]
|
|
[55.9 13.45]
|
|
[55.47 -2.28]
|
|
[55.76 -26]
|
|
[57.56 -43.81]
|
|
[57.78 -48.85]
|
|
[52.3 -53.9]
|
|
[19 -54.5]
|
|
[15.7 -64.9]
|
|
[-16.4 -65.46]
|
|
[-17.3 -67.24]
|
|
[-31.8 -76.1]
|
|
[-40.7 -86.2]
|
|
[-40.5 -92.76]
|
|
[-45.44 -99]
|
|
[-53.22 -103.1]
|
|
[-58.9 -103.1]
|
|
[-72 -91.6]
|
|
[-78.5 -88.6]
|
|
[-90.5 -78.8]
|
|
[-90.5 -73.18]
|
|
[-80.97 -58.64]
|
|
[-81.4 -57.42]
|
|
[-74.47 -47.6]
|
|
[-72.2 -44.5]
|
|
])
|
|
(extrude-linear {:height 2.6 :twist 0 :convexity 0})
|
|
)
|
|
))
|
|
|
|
;(->> (polygon [[6 6] [6 -6] [-6 -6] [-6 6]])
|
|
; (extrude-linear {:height 0.1 :twist 0 :convexity 0})
|
|
; (translate [0 0 12]))
|