diff options
-rw-r--r-- | OpenSCAD/Carpentry.hs | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/OpenSCAD/Carpentry.hs b/OpenSCAD/Carpentry.hs index 060754d..b6d1e73 100644 --- a/OpenSCAD/Carpentry.hs +++ b/OpenSCAD/Carpentry.hs | |||
@@ -103,6 +103,15 @@ assemble c = (cutlist, model) | |||
103 | -- boardAt p = | 103 | -- boardAt p = |
104 | component name dim orient pos = (name, dim, orient, pos) | 104 | component name dim orient pos = (name, dim, orient, pos) |
105 | 105 | ||
106 | --data CName = String | ||
107 | |||
108 | --data Component name dim pos = ( | ||
109 | |||
110 | -- data Component = Component { | ||
111 | -- name :: String, | ||
112 | -- , dim :: V3 Double | ||
113 | -- , orient :: | ||
114 | |||
106 | -- ass :: | 115 | -- ass :: |
107 | -- ass v = show v | 116 | -- ass v = show v |
108 | 117 | ||