Permalink
Browse files

Tweak position of BEGIN block, fix KnotVector experiments so they wor…

…k again after last round of KnotVector changes.
  • Loading branch information...
1 parent f09c4bf commit 5ea25118979576885f1d32d7dd4910671a54e150 SF committed Oct 7, 2009
Showing with 3 additions and 6 deletions.
  1. +3 −6 playing-around.pl
View
@@ -1,6 +1,7 @@
+use v6;
+
BEGIN { @*INC.push: 'lib' }
-use v6;
use Vector;
use Polynomial;
use KnotVector;
@@ -52,11 +53,7 @@
say $p * $p;
my KnotVector $kv = KnotVector.new((0, 0, 0, 0, 1, 2, 2, 3, 3, 3, 3));
-say $kv.N(0, 0.5).perl;
-say $kv.N(1, 0.5).perl;
-say $kv.N(2, 0.5).perl;
-say $kv.N(3, 0.5).perl;
-say $kv.Nnew(3, 1/2).perl;
+say $kv.N(3, 1/2).perl;
my @polys = $kv.N_local($kv.N0_index(1/2), 3, Polynomial.new(0, 1));
@polys.map({ $_.say });
@polys.map({ $_.evaluate(1/2).perl.say });

0 comments on commit 5ea2511

Please sign in to comment.