1 ! Copyright (C) 2010 Erik Charlebois.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: locals math.splines math.splines.viewer arrays ;
4 IN: math.splines.testing
9 { { 100 50 } { 0 -200 } }
10 { { 300 300 } { 500 200 } }
11 { { 400 400 } { 300 0 } }
12 } <cubic-hermite-spline> { 50 100 } 4 spline. ;
21 } { 0 100 } { 100 0 } <catmull-rom-spline> { 100 50 } 50 spline. ;
28 } { 0 100 } { 0 -100 } x y z <kochanek-bartels-curve> { 50 50 } 1000 spline. ;
37 } <bezier-curve> 1array { 100 100 } 100 spline. ;