diff options
author | Andrew Cady <d@jerkface.net> | 2019-03-13 01:25:56 -0400 |
---|---|---|
committer | Andrew Cady <d@jerkface.net> | 2019-03-13 01:25:56 -0400 |
commit | 30683d96778e70b3d5db6a1289df4ad75ac0a39a (patch) | |
tree | 903bc6d71c025f602e93d0403d96f7e60075e97c | |
parent | 954666581245536f8baa1da81fe431062ef783f7 (diff) |
type signatures
-rw-r--r-- | GenSCAD.hs | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -18,11 +18,13 @@ import System.IO.Temp | |||
18 | import System.Process | 18 | import System.Process |
19 | 19 | ||
20 | 20 | ||
21 | v3tolist :: V3 a -> [a] | ||
21 | v3tolist (V3 a b c) = [a,b,c] | 22 | v3tolist (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 |