arbol 0.0.2

data/lib/functions/lookup.rb

@@ -0,0 +1,86 @@
+class Lookup < Base
+  Arbol.add_mapped_class(
+    'lookup', 
+    Lookup,
+%{void lookup(long index[3], long table[][3], long table_size, long out[3]) {
+  out[0] = table[long_mult(index[0], table_size)][0];
+  out[1] = table[long_mult(index[1], table_size)][1];
+  out[2] = table[long_mult(index[2], table_size)][2];
+}}
+  )
+  
+  attr_accessor :op1
+  attr_accessor :op2
+  
+  def param_keys
+    [:index, :table]
+  end
+
+  def arduino_code
+    unless @frame_optimized 
+      [
+        "lookup(#{@index.name}, #{@table}, #{tables[@table].length}, long #{@name});"
+      ]
+    else
+      []
+    end
+  end
+  
+  def cycle_level_arduino_code
+    if @frame_optimized
+      [
+        "lookup(#{@index.name}, #{@table}, #{tables[@table].length}, long #{@name});"
+      ]
+    else
+      []
+    end
+  end
+  
+  def top_level_scope_code
+    [
+      "long #{@name}[3];"
+    ]
+  end
+end
+
+module Arbol
+  class Documentation
+
+  def lookup 
+%{--
+### lookup(table\\_reference, index)
+
+* **table\\_reference** - reference to a predefined table.
+* **index** - index used to look up the value in the table.
+
+Allows you to lookup values in a user defined table. Note that the table must be declared before it is referenced.
+
+```
+my_table = [0, 0.5, 0.6, 0.0, 0.9];
+
+my_lookup = lookup(
+  my_table,
+  phasor(1000)
+);
+```
+}
+  end
+
+  end
+end
+
+def resolve_table_reference(table_ref)
+  if $tables.has_key?(table_ref)
+    table_ref
+  else
+    raise "table #{table_ref} invalid"
+  end
+end
+
+def lookup(table, index)
+  {
+    type: 'lookup',
+    table: resolve_table_reference(table),
+    index: resolve(index)
+  }
+end

data/lib/functions/max.rb

@@ -0,0 +1,70 @@
+class Maximum < Base
+  Arbol.add_mapped_class(
+    'max', 
+    Maximum,
+%{void maximum(long op1[3], long op2[3], long out[3]) {
+  out[0] = max(op1[0], op2[0]);
+  out[1] = max(op1[1], op2[1]);
+  out[2] = max(op1[2], op2[2]);
+}}
+  )
+  
+  attr_accessor :op1
+  attr_accessor :op2
+  
+  def param_keys
+    [:op1, :op2]
+  end
+
+  def arduino_code
+    unless @frame_optimized 
+      [
+        "maximum(#{@op1.name}, #{@op2.name}, #{@name});"
+      ]
+    else
+      []
+    end
+  end
+  
+  def cycle_level_arduino_code
+    if @frame_optimized
+      [
+        "maximum(#{@op1.name}, #{@op2.name}, #{@name});"
+      ]
+    else
+      []
+    end
+  end
+
+  def top_level_scope_code
+    [
+      "long #{@name}[3];"
+    ]
+  end
+end
+
+module Arbol
+  class Documentation
+
+  def max
+%{--
+### max(left, right)
+
+* **operator1**
+* **operator2**
+
+Maximum (greater) of the two operators.
+
+}
+  end
+
+  end
+end
+
+def max(op1, op2)
+  h = ArbolHash.new
+  h[:type] = 'max'
+  h[:op1] = resolve(op1)
+  h[:op2] = resolve(op2)
+  h
+end

data/lib/functions/min.rb

@@ -0,0 +1,70 @@
+class Minimum < Base
+  Arbol.add_mapped_class(
+    'min', 
+    Minimum,
+%{void minimum(long op1[3], long op2[3], long out[3]) {
+  out[0] = min(op1[0], op2[0]);
+  out[1] = min(op1[1], op2[1]);
+  out[2] = min(op1[2], op2[2]);
+}}
+  )
+  
+  attr_accessor :op1
+  attr_accessor :op2
+  
+  def param_keys
+    [:op1, :op2]
+  end
+
+  def arduino_code
+    unless @frame_optimized 
+      [
+        "minimum(#{@op1.name}, #{@op2.name}, #{@name});"
+      ]
+    else
+      []
+    end
+  end
+  
+  def cycle_level_arduino_code
+    if @frame_optimized
+      [
+        "minimum(#{@op1.name}, #{@op2.name}, #{@name});"
+      ]
+    else
+      []
+    end
+  end
+  
+  def top_level_scope_code
+    [
+      "long #{@name}[3];"
+    ]
+  end
+end
+
+module Arbol
+  class Documentation
+
+  def min 
+%{--
+### min(left, right)
+
+* **operator1**
+* **operator2**
+
+Minimum (least) of the two operators.
+
+}
+  end
+
+  end
+end
+
+def min(op1, op2)
+  h = ArbolHash.new
+  h[:type] = 'min'
+  h[:op1] = resolve(op1)
+  h[:op2] = resolve(op2)
+  h
+end

data/lib/functions/minus.rb

@@ -0,0 +1,70 @@
+class Minus < Base
+  Arbol.add_mapped_class(
+    'minus', 
+    Minus,
+%{void minus(long op1[3], long op2[3], long out[3]) {
+  out[0] = op1[0] - op2[0];
+  out[1] = op1[1] - op2[1];
+  out[2] = op1[2] - op2[2];
+}}
+  )
+  
+  attr_accessor :op1
+  attr_accessor :op2
+  
+  def param_keys
+    [:op1, :op2]
+  end
+
+  def arduino_code
+    unless @frame_optimized 
+      [
+        "minus(#{@op1.name}, #{@op2.name}, #{@name});"
+      ]
+    else
+      []
+    end
+  end
+  
+  def cycle_level_arduino_code
+    if @frame_optimized
+      [
+        "minus(#{@op1.name}, #{@op2.name}, #{@name});"
+      ]
+    else
+      []
+    end
+  end
+  
+  def top_level_scope_code
+    [
+      "long #{@name}[3];"
+    ]
+  end
+end
+
+module Arbol
+  class Documentation
+
+  def minus 
+%{--
+### minus(operator1, operator2)
+
+* **operator1**
+* **operator2**
+
+Difference of the two operators. Can also be used with the form `operator1 - operator2`.
+
+}
+  end
+
+  end
+end
+
+def minus(op1, op2)
+  h = ArbolHash.new
+  h[:type] = 'minus'
+  h[:op1] = resolve(op1)
+  h[:op2] = resolve(op2)
+  h
+end

data/lib/functions/modulo.rb

@@ -0,0 +1,70 @@
+class Modulo < Base
+  Arbol.add_mapped_class(
+    'modulo', 
+    Modulo,
+%{void modulo(long op1[3], long op2[3], long out[3]) {
+  out[0] = op1[0] % op2[0];
+  out[1] = op1[1] % op2[1];
+  out[2] = op1[2] % op2[2];
+}}
+  )
+  
+  attr_accessor :op1
+  attr_accessor :op2
+  
+  def param_keys
+    [:op1, :op2]
+  end
+
+  def arduino_code
+    unless @frame_optimized 
+      [
+        "modulo(#{@op1.name}, #{@op2.name}, #{@name});"
+      ]
+    else
+      []
+    end
+  end
+  
+  def cycle_level_arduino_code
+    if @frame_optimized
+      [
+        "modulo(#{@op1.name}, #{@op2.name}, #{@name});"
+      ]
+    else
+      []
+    end
+  end
+  
+  def top_level_scope_code
+    [
+      "long #{@name}[3];"
+    ]
+  end
+end
+
+module Arbol
+  class Documentation
+
+  def mod 
+%{--
+### mod(operator1, operator2)
+
+* **operator1**
+* **operator2**
+
+Modulo of the two operators. Can also be used with the form `operator1 % operator2`.
+
+}
+  end
+
+  end
+end
+
+def mod(op1, op2)
+  h = ArbolHash.new
+  h[:type] = 'modulo'
+  h[:op1] = resolve(op1)
+  h[:op2] = resolve(op2)
+  h
+end

data/lib/functions/noise.rb

@@ -0,0 +1,49 @@
+class Noise < Base
+  Arbol.add_mapped_class(
+    'noise', 
+    Noise,
+%{void noise(long out[3]) {
+  out[0] = random(INTEGER_SCALE);
+  out[1] = random(INTEGER_SCALE);
+  out[2] = random(INTEGER_SCALE);
+}}
+  )
+
+  def initialize(params)
+    super(params)
+    @frame_optimized = false
+  end
+   
+  def arduino_code
+    [
+      "noise(#{@name});"
+    ]
+  end
+
+  def top_level_scope_code
+    [
+      "long #{@name}[3];"
+    ]
+  end
+end
+
+module Arbol
+  class Documentation
+
+  def noise
+%{--
+### noise
+
+Outputs a random value for RGB of each pixel.
+
+}
+  end
+
+  end
+end
+
+def noise
+  h = ArbolHash.new
+  h[:type] = 'noise'
+  h
+end

data/lib/functions/noise_pixel.rb

@@ -0,0 +1,49 @@
+class NoisePixel < Base
+  Arbol.add_mapped_class(
+    'noise_pixel', 
+    NoisePixel,
+%{void noise_pixel(long out[3]) {
+  out[0] = random(INTEGER_SCALE);
+  out[1] = out[0];
+  out[2] = out[1];
+}}
+  )
+  
+  def initialize(params)
+    super(params)
+    @frame_optimized = false
+  end
+  
+  def arduino_code
+    [
+      "noise_pixel(#{@name});"
+    ]
+  end
+
+  def top_level_scope_code
+    [
+      "long #{@name}[3];"
+    ]
+  end
+end
+
+module Arbol
+  class Documentation
+
+  def noise_pixel 
+%{--
+### noise\\_pixel
+
+Outputs a random value for each pixel.
+
+}
+  end
+
+  end
+end
+
+def noise_pixel
+  h = ArbolHash.new
+  h[:type] = 'noise_pixel'
+  h
+end