(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]))