summaryrefslogtreecommitdiff
path: root/GenSCAD.hs
diff options
context:
space:
mode:
Diffstat (limited to 'GenSCAD.hs')
-rw-r--r--GenSCAD.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/GenSCAD.hs b/GenSCAD.hs
index e5e99ab..548792f 100644
--- a/GenSCAD.hs
+++ b/GenSCAD.hs
@@ -18,11 +18,13 @@ import System.IO.Temp
18import System.Process 18import System.Process
19 19
20 20
21v3tolist :: V3 a -> [a]
21v3tolist (V3 a b c) = [a,b,c] 22v3tolist (V3 a b c) = [a,b,c]
22 23
23_V32l :: R3 c1 => c1 c -> [c] 24_V32l :: R3 c1 => c1 c -> [c]
24_V32l = view (_xyz . to v3tolist) 25_V32l = view (_xyz . to v3tolist)
25 26
27_V32s :: Show a => [a] -> [Char]
26_V32s c = intercalate "," (map show c) 28_V32s c = intercalate "," (map show c)
27 29
28-- placecube: OpenSCAD translate cube described by d to place designated by p 30-- placecube: OpenSCAD translate cube described by d to place designated by p