samples for Visor

Author: monkstone

samples/25_squares.rb

@@ -0,0 +1,22 @@
+# ===== Default : Default
+GEM_HOME = '/home/tux/.gem/ruby/2.6.0'
+require 'vecmath'
+PALETTE = %w[#a11220 #884444].freeze
+@colors = ColorUtil.webArray(PALETTE.to_java(:string))
+rect_mode(CORNER)
+no_stroke
+frame_rate(1) # set the frame rate to 1 draw call per second
+
+
+def draw
+  background(180) # clear the screen to grey
+  grid_size = 5 # rand(3..12)   # select a rand number of squares each frame
+  gap = 5 # rand(5..50) # select a rand gap between each square
+  # calculate the size of each square for the given number of squares and gap between them
+  cellsize = (width - (grid_size + 1) * gap) / grid_size
+  position = -> (count) { gap * (count + 1) + cellsize * count + rand(-5..5) }
+  MathTool::grid(grid_size, grid_size) do |x, y|
+    rand(0..5) > 4 ? fill(color(@colors[0]), 180.0) : fill(color(@colors[1]), 180.0)
+    rect(position.call(x), position.call(y), cellsize, cellsize)
+  end
+end

samples/arc_tesselation.rb

@@ -0,0 +1,62 @@
+# ===== Default : Default
+GEM_HOME = '/home/tux/.gem/ruby/2.6.0'
+require 'vecmath'
+
+PALETTE = %w[#0F4155 #158CA7 #D63826 #F5C03E #152A3B #7EC873 #4B3331].freeze
+
+
+  # create a java primitive array of signed int
+  #  @cols = web_array(PALETTE)
+  @group = ColorUtil.web_array(PALETTE.to_java(:string))
+  stroke_weight 1.5
+  stroke_cap SQUARE
+  stroke(0, 200)
+  @coloured = true
+
+
+def draw
+  arc_pattern
+end
+
+def sep_index(idx, length)
+  (idx - (length - 1) * 0.5).abs.floor
+end
+
+def sep_color(idx, number)
+  @group[sep_index(idx - 1, number + 1)]
+end
+
+def arc_pattern
+  circ_number = rand(4..10)
+  block_size = rand(30..70)
+  back_color = @coloured ? @group.last : 255
+  fill(back_color)
+  rect(0, 0, width, height)
+  half_block = block_size / 2
+  two_block = 2 * block_size
+  MathTool::grid(width + two_block, height + two_block, block_size, block_size) do |x, y|
+    push_matrix
+    translate x, y
+    rotate HALF_PI * rand(0..4)
+    circ_number.downto(0) do |i|
+      diam = two_block * i / (circ_number + 1)
+      ccolor = i < 2 || !coloured ? back_color : sep_color(i, circ_number)
+      fill ccolor
+      arc(-half_block, -half_block, diam, diam, 0, HALF_PI)
+      arc(half_block, half_block, diam, diam, PI, PI + HALF_PI)
+    end
+    pop_matrix
+  end
+end
+
+# def mouse_pressed
+#  @group.shuffle if @coloured
+#  loop
+# end
+
+# def key_typed
+#  case key
+#  when 'c', 'C'
+#    @coloured = !@coloured
+#  end
+# end

samples/arcball_cube.rb

@@ -0,0 +1,27 @@
+GEM_HOME = '/home/tux/.gem/ruby/2.6.0'
+require 'arcball'
+
+visor_class :Arc do
+  def initialize
+    ArcBall.init(sketch)
+  end
+end
+
+Arc.new
+
+def draw
+  background 255
+
+  lights
+
+  # translate width / 2, height / 2, 0
+
+  # rotate_x frameCount * 0.01
+  # rotate_y frameCount * 0.0125
+  # rotate_z frameCount * 0.015
+
+  stroke 0
+  fill 255, 0, 0
+
+  box 100
+end

samples/classes_and_layers_vec2d.rb

@@ -0,0 +1,91 @@
+# ===== Default : Default
+GEM_HOME = '/home/tux/.gem/ruby/2.6.0'
+require 'vecmath'
+
+rectMode CENTER
+
+visor_class :Box do
+  SIZE = 80
+
+  def initialize
+    @pos = Vec2D.new(rand(width), rand(height))
+    @vel = Vec2D.random * 2
+  end
+
+  def update
+    @pos += @vel
+
+    @pos.x = width + SIZE if @pos.x < -SIZE
+    @pos.y = height + SIZE if @pos.y < -SIZE
+    @pos.x = -SIZE if @pos.x > width + SIZE
+    @pos.y = -SIZE if @pos.y > height + SIZE
+  end
+
+  def draw
+    with_translate @pos.x, @pos.y do
+      noStroke
+      fill 255, 150, 0
+      rect 0, 0, SIZE, SIZE
+    end
+  end
+end
+
+@boxes = []
+40.times do
+  @boxes << Box.new
+end
+
+def draw
+  background 0
+
+  @boxes.each do |box|
+    box.update
+    box.draw
+  end
+end
+# ===== circles : circles
+visor_class :Circle do
+  RADIUS = 50
+
+  def initialize
+    @pos = Vec2D.new(rand(width), rand(height))
+  end
+
+  def update(a)
+    @pos.y += speed * a
+    @pos.y = -RADIUS if @pos.y > height + RADIUS
+  end
+
+  def draw(a)
+    with_translate @pos.x, @pos.y do
+      scale a
+      noStroke
+      fill 255
+      ellipse 0, 0, RADIUS, RADIUS
+    end
+  end
+end
+
+@circles = []
+150.times do
+  @circles << Circle.new
+end
+
+@speed ||= 10
+set_range :@speed, 0, 30
+
+def draw
+  rectMode CORNER
+  noStroke
+  fill 0, 50
+  rect 0, 0, width, height
+
+  @circles.each_with_index do |circle, i|
+    a = i / @circles.size.to_f
+
+    circle.update a + 0.1
+    circle.draw a + 0.1
+  end
+end
+
+set_blend_mode MULTIPLY

samples/mycelium.rb

@@ -0,0 +1,137 @@
+# ===== Default : Default
+GEM_HOME = '/home/tux/.gem/ruby/2.6.0'
+require 'vecmath'
+require 'forwardable'
+
+# Here we use the JRubyArt Vec2D class, and AppRender class (for vec.to_vertex)
+# Further we use the power of ruby (metaprogramming) to make Branch enumerable
+# and use Forwardable to define which enumerable methods we want to use.
+visor_class :Branch do
+  include Enumerable
+  extend Forwardable
+  def_delegators(:@children, :<<, :each, :length)
+  # variance angle for growth direction per time step
+  THETA = Math::PI / 6
+  # max segments per branch
+  MAX_LEN = 100
+  # max recursion limit
+  MAX_GEN = 3
+  # branch chance per time step
+  BRANCH_CHANCE = 0.05
+  # branch angle variance
+  BRANCH_THETA = Math::PI / 3
+  attr_reader :position, :dir, :path, :children, :xbound, :speed, :ybound, :app
+
+  def initialize(pos, dir, speed)
+    @renderer ||= AppRender.new(graphics)
+    @position = pos
+    @dir = dir
+    @speed = speed
+    @path = []
+    @children = []
+    @xbound = Boundary.new(0, width)
+    @ybound = Boundary.new(0, height)
+    path << pos
+  end
+
+  def run
+    grow
+    display
+  end
+
+  private
+
+  # NB: use of both rotate! (changes original) rotate (returns a copy) of Vec2D
+  def grow
+    check_bounds(position + (dir * speed)) if path.length < MAX_LEN
+    @position += (dir * speed)
+    dir.rotate!(rand(-0.5..0.5) * THETA)
+    path << position
+    if (length < MAX_GEN) && (rand < BRANCH_CHANCE)
+      branch_dir = dir.rotate(rand(-0.5..0.5) * BRANCH_THETA)
+      self << Branch.new(position.copy, branch_dir, speed * 0.99)
+    end
+    each(&:grow)
+  end
+
+  def display
+    begin_shape
+    stroke(255)
+    no_fill
+    path.each { |vec| vec.to_vertex(@renderer) }
+    end_shape
+    each(&:display)
+  end
+
+  def check_bounds(pos)
+    dir.x *= -1 if xbound.exclude? pos.x
+    dir.y *= -1 if ybound.exclude? pos.y
+  end
+end
+
+# we are looking for excluded values
+Boundary = Struct.new(:lower, :upper) do
+  def exclude?(val)
+    !(lower...upper).cover? val
+  end
+end
+
+@root = Branch.new(
+    Vec2D.new(0, height / 2),
+    Vec2D.new(1, 0),
+    10.0
+)
+
+def draw
+  background(0)
+  root.run
+end
+# ===== circles : circles
+GEM_HOME = '/home/tux/.gem/ruby/2.6.0'
+require 'vecmath'
+
+visor_class :Circle do
+  RADIUS = 50
+
+  def initialize
+    @pos = Vec2D.new(rand(width), rand(height))
+  end
+
+  def update(a)
+    @pos.y += speed * a
+    @pos.y = -RADIUS if @pos.y > height + RADIUS
+  end
+
+  def draw(a)
+    with_translate @pos.x, @pos.y do
+      scale a
+      noStroke
+      fill 255
+      ellipse 0, 0, RADIUS, RADIUS
+    end
+  end
+end
+
+@circles = []
+150.times do
+  @circles << Circle.new
+end
+
+@speed ||= 10
+set_range :@speed, 0, 30
+
+def draw
+  rectMode CORNER
+  noStroke
+  fill 0, 50
+  rect 0, 0, width, height
+
+  @circles.each_with_index do |circle, i|
+    a = i / @circles.size.to_f
+
+    circle.update a + 0.1
+    circle.draw a + 0.1
+  end
+end
+
+set_blend_mode MULTIPLY