Added own camera object and its vectorial dependency.

3rdparty/vectorial/tools/spechelper.m

@@ -0,0 +1,45 @@
+#!/usr/bin/env octave
+
+1;
+
+function spec_formatter (val,type)
+
+    if( isscalar(val) == 1 ) 
+        printf("        should_be_close_to(x, %15.15ff, epsilon );", val);
+        return;
+    endif
+
+    if( size(val) == [1,2] ) 
+        if( strcmp(type,"simd2f") == 1 )
+        printf("        should_be_equal_%s(x, simd2f_create(%15.15ff, %15.15ff), epsilon );",type, val(1), val(2));
+        else
+        printf("        should_be_equal_%s(x, simd4f_create(%15.15ff, %15.15ff, 0.0f, 0.0f), epsilon );",type, val(1), val(2));
+        endif
+        return;
+    endif
+
+    if( size(val) == [1,3] ) 
+        printf("        should_be_equal_%s(x, simd4f_create(%15.15ff, %15.15ff, %15.15ff, 0.0f), epsilon );",type, val(1), val(2), val(3));
+        return;
+    endif
+
+    if( size(val) == [1,4] ) 
+        printf("        should_be_equal_%s(x, simd4f_create(%15.15ff, %15.15ff, %15.15ff, %15.15ff), epsilon );",type, val(1), val(2), val(3), val(4));
+        return;
+    endif
+
+    if( size(val) == [4,1] ) 
+        printf("        should_be_equal_%s(x, simd4f_create(%15.15ff, %15.15ff, %15.15ff, %15.15ff), epsilon );",type, val(1), val(2), val(3), val(4));
+        return;
+    endif
+
+    if( size(val) == [4,4] ) 
+        printf("        should_be_equal_%s(x, simd4x4f_create(simd4f_create(%15.15ff, %15.15ff, %15.15ff, %15.15ff), simd4f_create(%15.15ff, %15.15ff, %15.15ff, %15.15ff), simd4f_create(%15.15ff, %15.15ff, %15.15ff, %15.15ff), simd4f_create(%15.15ff, %15.15ff, %15.15ff, %15.15ff)), epsilon );",type, 
+        val(1), val(2), val(3), val(4), val(5), val(6), val(7), val(8), val(9), val(10), val(11), val(12), val(13), val(14), val(15), val(16)
+        );
+        return;
+    endif
+
+
+endfunction
+

3rdparty/vectorial/tools/update_spec.rb

@@ -0,0 +1,24 @@
+#!/usr/bin/env ruby
+
+SPECHELPER = File.join(File.dirname(__FILE__), "spechelper.m")
+def octave_eval(str, type)
+  puts "evalling (#{type}): #{str}"
+  ret = `octave --quiet --eval 'source("#{SPECHELPER}"); spec_formatter(#{str}, "#{type}")'`
+  puts "    = #{ret.strip}"
+  ret
+end
+
+
+ARGV.each do |fn|
+  str = File.read(fn)
+  str.gsub!(%r{(// octave (\w+):)(.*?)\n(.*?\n)}) do |match|
+    e = octave_eval($3, $2)
+
+    [$1, $3, "\n", e, "\n"].join
+  end
+  File.open(fn, "w") do |f|
+    f.write str
+  end
+
+end
+