name: nurbs version: 0.1.1.0 synopsis: NURBS description: Simple NURBS library with support of NURBS, periodic NURBS, knot insertion-removal, NURBS split-joint . > import Control.Lens > import Linear.NURBS > import Linear.V2 > import Test.Hspec > > -- | Simple NURBS of degree 3 > test₁ ∷ NURBS V2 Double > test₁ = nurbs 3 [ > V2 0.0 0.0, > V2 10.0 0.0, > V2 10.0 10.0, > V2 20.0 20.0, > V2 0.0 20.0, > V2 (-20.0) 0.0] > > -- | Another NURBS of degree 3 > test₂ ∷ NURBS V2 Double > test₂ = nurbs 3 [ > V2 (-20.0) 0.0, > V2 (-20.0) (-20.0), > V2 0.0 (-40.0), > V2 20.0 20.0] > > -- | Make test₁ periodic > testₒ ∷ NURBS V2 Double > testₒ = set periodic True test₁ > > main ∷ IO () > main = hspec $ do > describe "evaluate point" $ do > it "should start from first control point" $ > (test₁ `eval` 0.0) ≃ (test₁ ^?! wpoints . _head . wpoint) > it "should end at last control point" $ > (test₁ `eval` 1.0) ≃ (test₁ ^?! wpoints . _last . wpoint) > describe "insert knot" $ do > it "should not change nurbs curve" $ > insertKnots [(1, 0.1), (2, 0.3)] test₁ ≃ test₁ > describe "remove knots" $ do > it "should not change nurbs curve" $ > removeKnots [(1, 0.1), (2, 0.3)] (insertKnots [(1, 0.1), (2, 0.3)] test₁) ≃ test₁ > describe "purge knots" $ do > it "should not change nurbs curve" $ > purgeKnots (insertKnots [(1, 0.1), (2, 0.6)] test₁) ≃ test₁ > describe "split" $ do > it "should work as cut" $ > snd (split 0.4 test₁) ≃ cut (Span 0.4 1.0) test₁ > describe "normalize" $ do > it "should not affect curve" $ > cut (Span 0.2 0.8) test₁ ≃ normalizeKnot (cut (Span 0.2 0.8) test₁) > describe "joint" $ do > it "should joint cutted nurbs" $ > uncurry joint (split 0.3 test₁) ≃ Just test₁ > it "should cut jointed nurbs" $ > (cut (Span 0.0 1.0) <$> (test₁ ⊕ test₂)) ≃ Just test₁ > it "should cut jointed nurbs" $ > (cut (Span 1.0 2.0) <$> (test₁ ⊕ test₂)) ≃ Just test₂ > describe "periodic" $ do > it "can be broken into simple nurbs" $ > breakLoop 0.0 testₒ ≃ testₒ > it "can be broken in any place" $ > uncurry (flip (⊕)) (split 0.5 (breakLoop 0.0 testₒ)) ≃ Just (breakLoop 0.5 testₒ) homepage: https://github.com/mvoidex/nurbs license: BSD3 license-file: LICENSE author: Alexanrd `voidex` Ruchkin maintainer: voidex@live.com category: Math build-type: Simple cabal-version: >=1.10 library exposed-modules: Linear.NURBS Linear.NURBS.Types build-depends: base >= 4.8 && < 5, base-unicode-symbols, lens >= 4.12, linear >= 1.19, mtl >= 2.2 hs-source-dirs: src ghc-options: -threaded -Wall -fno-warn-tabs default-language: Haskell2010 default-extensions: UnicodeSyntax source-repository head type: git location: git://github.com/mvoidex/nurbs test-suite test type: exitcode-stdio-1.0 main-is: Test.hs hs-source-dirs: tests ghc-options: -fno-warn-tabs default-language: Haskell2010 default-extensions: UnicodeSyntax build-depends: base >= 4.8 && < 5, base-unicode-symbols, lens >= 4.12, linear >= 1.19, hspec, nurbs