solid text sketch

Author: monkstone

contributed/pentaflake.rb

@@ -0,0 +1,84 @@
+# frozen_string_literal: true
+
+require 'picrate'
+
+THETA = Math::PI * 2 / 5
+SCALE_FACTOR = (3 - Math.sqrt(5)) / 2
+MARGIN = 40
+class PentagonSketch < Processing::App
+  attr_reader :center, :pentagons, :radius
+  def settings
+    size(800, 800)
+  end
+
+  def setup
+    sketch_title 'Pentagon'
+    radius = width / 2 - 2 * MARGIN
+    center = Vec2D.new(radius - 2 * MARGIN, radius - 6 * MARGIN)
+    pentaflake = Pentaflake.new(center, radius, 4)
+    @pentagons = pentaflake.pentagons
+  end
+
+  def draw
+    background(255)
+    stroke(0)
+    pentagons.each do |penta|
+      draw_pentagon(penta)
+    end
+    no_loop
+  end
+
+  def draw_pentagon(pent)
+    points = pent.vertices
+    begin_shape
+    points.each do |pnt|
+      pnt.to_vertex(renderer)
+    end
+    end_shape(CLOSE)
+  end
+
+  def renderer
+    @renderer ||= GfxRender.new(self.g)
+  end
+end
+
+PentagonSketch.new
+
+class Pentaflake
+  attr_reader :pentagons
+
+  def initialize(center, radius, depth)
+    @pentagons = []
+    create_pentagons(center, radius, depth)
+  end
+
+  def create_pentagons(center, radius, depth)
+    if depth.zero?
+      pentagons << Pentagon.new(center, radius)
+    else
+      radius *= SCALE_FACTOR
+      distance = radius * Math.sin(THETA) * 2
+      (0..4).each do |idx|
+        x = center.x + Math.cos(idx * THETA) * radius * Math.sin(THETA) * 2
+        y = center.y + Math.sin(idx * THETA) * radius * Math.sin(THETA) * 2
+        center = Vec2D.new(x, y)
+        create_pentagons(center, radius, depth - 1)
+      end
+    end
+  end
+end
+
+class Pentagon
+  attr_reader :center, :radius
+
+  def initialize(center, radius)
+    @center = center
+    @radius = radius
+  end
+
+  def vertices
+    (0..4).map do |idx|
+      center + Vec2D.new(radius * Math.sin(THETA * idx), radius * Math.cos(THETA * idx))
+    end
+  end
+end

external_library/gems/geomerative/solid_text.rb

@@ -0,0 +1,76 @@
+# frozen_string_literal: true
+
+require 'picrate'
+require 'geomerative'
+
+# SolidText sketch, rubyists hate explicit get and set methods, using
+# JRuby convention to replace them
+class SolidText < Processing::App
+  attr_reader :em
+
+  def settings
+    size(600, 400, P3D)
+    smooth
+  end
+
+  def setup
+    sketch_title 'Solid Text'
+    RG.init(self)
+    grp = RG.get_text('Depth!', data_path('FreeSans.ttf'), 50, CENTER)
+    RG.polygonizer = RCommand::UNIFORMLENGTH
+    RG.polygonizer_length = 1
+    @em = RExtrudedMesh.new(grp)
+  end
+
+  def draw
+    background(100)
+    lights
+    translate(width / 2, height / 2, 200)
+    rotate_y(millis / 2000.0)
+    fill(255, 100, 0)
+    no_stroke
+    em.draw
+  end
+end
+
+SolidText.new
+
+# Custom extrusion class, including Proxy to access App methods
+class RExtrudedMesh
+  include Processing::Proxy
+  attr_reader :mesh, :points_array, :depth
+
+  def initialize(grp, dpth = 10)
+    @depth = dpth
+    @mesh = grp.to_mesh
+    @points_array = grp.points_in_paths
+  end
+
+  def draw_face(strips, depth)
+    strips.each do |strip|
+      begin_shape(TRIANGLE_STRIP)
+      strip.vertices.each do |point|
+        vertex(point.x, point.y, depth / 2.0)
+      end
+      end_shape(CLOSE)
+    end
+ end
+
+  def draw_sides(points_array, depth)
+    points_array.each do |points|
+      begin_shape(QUAD_STRIP)
+      points.each do |point|
+        vertex(point.x, point.y, depth / 2.0)
+        vertex(point.x, point.y, -depth / 2.0)
+      end
+      end_shape(CLOSE)
+    end
+  end
+
+  def draw
+    strips = mesh.strips
+    draw_face(strips, depth)
+    draw_face(strips, depth * -1)
+    draw_sides(points_array, depth)
+  end
+end