Split UseItem module

2021-03-16 11:54:41 +01:00
parent 97fd7f5576
commit ca5ff88522
19 changed files with 609 additions and 96 deletions
@@ -0,0 +1,27 @@
+module Geometry.Bezier
+    where
+import Geometry.Data
+import Geometry.Vector
+
+type BQuad = (Point2,Point2,Point2)
+
+splitBezierquad :: BQuad -> Float -> (BQuad,BQuad)
+splitBezierquad (a,b,c) z
+    = ( ( a
+        , (z *.* b) -.- ((z-1) *.* a)
+        , (z**2 *.* c) +.+ ((z-1)**2 *.* a) -.- (2*z*(z-1) *.* b)
+        )
+      , ( (z**2 *.* c) +.+ ((z-1)**2 *.* a) -.- (2*z*(z-1) *.* b)
+        , (z *.* c) -.- ((z-1) *.* b)
+        , c
+        )
+      )
+
+bQuadToLine :: BQuad -> Int -> [Point2]
+bQuadToLine (a,_,c) 0 = [a,c]
+bQuadToLine x i = let (l,r) = splitBezierquad x 0.5
+                  in  bQuadToLine l (i-1) ++ bQuadToLine r (i-1)
+
+bQuadToF :: (Point2,Point2,Point2) -> Float -> Point2
+bQuadToF (c,b,a) t = t     *.* (t *.* a +.+ (1-t) *.* b) +.+
+                     (1-t) *.* (t *.* b +.+ (1-t) *.* c)