# HG changeset patch
# User Chris Cannam
# Date 1363699423 0
# Node ID cf88733911fd604114030fad3f922581d65d790e
# Parent  ef650ce77237170fa2a4ecfda6f076bee84687a5
Add fromFloats

diff -r ef650ce77237 -r cf88733911fd block.yeti
--- a/block.yeti	Mon Mar 18 21:24:04 2013 +0000
+++ b/block.yeti	Tue Mar 19 13:23:43 2013 +0000
@@ -13,6 +13,7 @@
 data b = b,
 vector b = vec.copyOf b,
 floats = vec.floats,
+fromFloats ff = vec.fromFloats ff,
 fromList l = vec.vector l,
 list = vec.list,
 length = vec.length,
@@ -29,6 +30,7 @@
 data is block -> ~double[],
 vector is block -> ~double[],
 floats is block -> ~float[],
+fromFloats is ~float[] -> block,
 fromList is list?<number> -> block,
 list is block -> list<number>,
 length is block -> number,
diff -r ef650ce77237 -r cf88733911fd fvector.yeti
--- a/fvector.yeti	Mon Mar 18 21:24:04 2013 +0000
+++ b/fvector.yeti	Tue Mar 19 13:23:43 2013 +0000
@@ -37,6 +37,14 @@
     done;
     f);
 
+fromFloats ff is ~float[] -> ~double[] =
+   (len = length (list ff);
+    a = new double[len];
+    for [0..len-1] do i:
+        a[i] := ff[i];
+    done;
+    a);
+
 equal v1 v2 =
     list' v1 == list' v2;
 
@@ -65,7 +73,7 @@
 vector,
 length = length',
 list = list',
-floats,
+floats, fromFloats,
 equal,
 copyOf, rangeOf, resizedTo,
 concat,