solid text sketch

Author: monkstone

contributed/pentaflake.rb

@@ -0,0 +1,73 @@
+# frozen_string_literal: true
+
+THETA = Math::PI * 2 / 5
+SCALE_FACTOR = (3 - Math.sqrt(5)) / 2
+MARGIN = 20
+
+attr_reader :pentagons, :renderer
+def settings
+  size(400, 400)
+end
+
+def setup
+  sketch_title 'Pentaflake'
+  radius = width / 2 - 2 * MARGIN
+  center = Vec2D.new(radius - 2 * MARGIN, 3 * MARGIN)
+  pentaflake = Pentaflake.new(center, radius, 5)
+  @pentagons = pentaflake.pentagons
+  @renderer = GfxRender.new(g)
+end
+
+def draw
+  background(255)
+  stroke(0)
+  pentagons.each { |penta| draw_pentagon(penta) }
+  no_loop
+end
+
+def draw_pentagon(pent)
+  points = pent.vertices
+  begin_shape
+  points.each { |pnt| pnt.to_vertex(renderer) }
+  end_shape(CLOSE)
+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
+
+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) * distance
+        y = center.y + Math.sin(idx * THETA) * distance
+        center = Vec2D.new(x, y)
+        create_pentagons(center, radius, depth - 1)
+      end
+    end
+  end
+end
+

external_library/gem/geomerative/solid_text.rb

@@ -0,0 +1,67 @@
+require 'geomerative'
+
+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
+
+# 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