terrain sketch

Author: monkstone

library/vecmath/vec3d/terrain.rb

@@ -0,0 +1,64 @@
+#!/usr/bin/env jruby
+require 'picrate'
+
+# Alternative to using array or string as key
+Key = Struct.new(:x, :y) do
+  def eql?(key)
+    return false unless key.y == y
+    key.x == x
+  end
+end
+
+class Terrain < Processing::App
+  WIDTH = 1400
+  HEIGHT = 1100
+  SCL = 30
+  attr_reader :terrain, :rows, :columns, :mover
+
+  def settings
+    size 800, 800, P3D
+  end
+
+  def setup
+    sketch_title 'Terreno' # sketch_title doesn't work with P3D on PI
+    @columns = WIDTH / SCL
+    @rows = HEIGHT / SCL
+    @terrain = {}
+    @mover = 0
+  end
+
+  def draw
+    background 0
+    @mover -= 0.1
+    yoff = mover
+    (0..rows).each do |y|
+      xoff = 0
+      (0..columns).each do |x|
+        terrain[Key.new(x, y)] = Vec3D.new(x * SCL, y * SCL, map1d(noise(xoff, yoff), 0..1.0, -65..65))
+        xoff += 0.2
+      end
+      yoff += 0.2
+    end
+    no_fill
+    stroke 235, 69, 129
+    translate width / 2, height / 2
+    rotate_x PI / 3
+    translate(-WIDTH / 2, -HEIGHT / 2)
+    (0...rows).each do |y|
+      begin_shape(TRIANGLE_STRIP)
+      (0..columns).each do |x|
+        terrain[Key.new(x, y)].to_vertex(renderer)
+        terrain[Key.new(x, y.succ)].to_vertex(renderer)
+      end
+      end_shape(CLOSE)
+    end
+  end
+
+  private
+
+  def renderer
+    @renderer ||= AppRender.new(self)
+  end
+end
+
+Terrain.new