diff options
| author | Joe Crayne <joe@jerkface.net> | 2019-07-28 00:16:13 -0400 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2019-07-28 00:17:11 -0400 |
| commit | 5aba33b6f801910a8f5e1587c13678e237e31782 (patch) | |
| tree | 67e71c9161dc23e1fe120e2e51074cd9f69b96f5 /Bezier.hs | |
| parent | 175e4a0ee82e4db1fade4fbd8b5e55e88c21a826 (diff) | |
Render curve from obj file.
Diffstat (limited to 'Bezier.hs')
| -rw-r--r-- | Bezier.hs | 2 |
1 files changed, 2 insertions, 0 deletions
| @@ -32,6 +32,8 @@ data Curve = Curve | |||
| 32 | , curveSegments :: Maybe Polygonization | 32 | , curveSegments :: Maybe Polygonization |
| 33 | } | 33 | } |
| 34 | 34 | ||
| 35 | -- Although this function accepts an index, 'subdivideCurve' increases the | ||
| 36 | -- index by one after each call, so it is safe to ignore the index passed. | ||
| 35 | type StorePoint m = BufferID -> Int -> Vector Float {- 3d -} -> m () | 37 | type StorePoint m = BufferID -> Int -> Vector Float {- 3d -} -> m () |
| 36 | 38 | ||
| 37 | xz :: Vector Float -> (Float,Float) | 39 | xz :: Vector Float -> (Float,Float) |