re-organise code

Author: monkstone

external_library/java/pgs/README.md

@@ -0,0 +1,5 @@
+# Processing Geometry Suite
+---
+Processing Geometry Suite is a software project that provides easy access to 2D geometric algorithms in the form of a Processing library. Written by Michael Carleton aka Micycle.
+
+See [repository](https://github.com/micycle1/PGS/tree/master).

external_library/java/pgs/contour_map.rb

@@ -1,56 +1,61 @@
-#!/usr/bin/env jruby --dev
+#!/usr/bin/env jruby
+
 require 'picrate'
-require_relative './vector_list'
+
 class ContourMap < Processing::App
-  load_library :pgs
-  java_import 'micycle.pgs.PGS_Contour'
+load_libraries :pgs, :vector_list
+java_import 'micycle.pgs.PGS_Contour'
 
-  attr_reader :heights, :max, :min
-  MAX = -1
-  MIN = 9999
+attr_reader :polygon, :heights, :max, :min
+MAX = -1
+MIN = 9999
 
-  def setup
-    sketch_title 'Contour Map'
-    @max = MAX
-    @min = MIN
-  end
+def setup
+  sketch_title 'Contour Map'
+  @max = MAX
+  @min = MIN
+end
 
-  def draw
-    background(0, 0, 40)
-    populate_height_map
-    isolines = PGS_Contour.isolines(heights.array_list, 0.08, min, max)
-    isolines.to_hash.each do |isoline, value|
-      isoline.set_stroke(
-        color(
-          map1d(value, min..max, 50..255),
-          map1d(isoline.get_vertex(0).x, 0..width, 50..255),
-          map1d(isoline.get_vertex(0).y, 0..height, 50..255)
-        )
+def draw
+  background(0, 0, 40)
+  populate_height_map
+  isolines = PGS_Contour.isolines(heights.array_list, 0.08, min, max)
+  isolines.to_hash.each do |isoline, value|
+    isoline.set_stroke(
+      color(
+        map1d(value, min..max, 50..255),
+        map1d(isoline.get_vertex(0).x, 0..width, 50..255),
+        map1d(isoline.get_vertex(0).y, 0..height, 50..255)
       )
-      shape(isoline)
-    end
+    )
+    shape(isoline)
   end
+end
 
-  def populate_height_map
-    @heights = VectorList.new
-
-    res = 16
-    anim_speed = 0.005
-
-    grid(width + res, height + res, res, res) do |x, y|
-      z = norm(noise(x*0.01 + frame_count*anim_speed, y*0.01 + frame_count*anim_speed), -1.0, 1.0)
-      h = Vec3D.new(x, y, 0)
-      z += h.dist(Vec3D.new(mouse_x, mouse_y, 0))*0.005
-      h.z = z
-      heights << h
-      @max = [max, z].max
-      @min = [min, z].min
-    end
-  end
+def populate_height_map
+  @heights = VectorList.new
 
-  def settings
-    size(800, 800)
+  res = 16
+  anim_speed = 0.005
+
+  grid(width + res, height + res, res, res) do |x, y|
+    z = norm(SmoothNoise.noise(x*0.01 + frame_count*anim_speed, y*0.01 + frame_count*anim_speed), -1.0, 1.0)
+    h = Vec3D.new(x, y, 0)
+    z += h.dist(Vec3D.new(mouse_x, mouse_y, 0))*0.005
+    h.z = z
+    heights << h
+    @max = [max, z].max
+    @min = [min, z].min
+  end
+  if frame_count > 20
+    save_frame(data_path('sk0####.tif')) if (5..100).include? frame_count
   end
+  stop if frame_count > 120
+end
+
+def settings
+  size(800, 800, P2D)
+end
 end
 
 ContourMap.new

external_library/java/pgs/vector_list.rb renamed to external_library/java/pgs/library/vector_list/vector_list.rb

@@ -0,0 +1,88 @@
+load_library :pgs
+%w[
+  PGS_Contour PGS_Conversion PGS_Morphology PGS_Transformation PGS_ShapeBoolean
+].each do |klass|
+  java_import "micycle.pgs.#{klass}"
+end
+
+class Letter
+  include Processing::Proxy
+
+  attr_reader :hue, :l, :xn, :yn, :pos, :letter, :serif
+
+  def initialize(c)
+    @pos = Vec2D.new(rand(width), rand(height))
+    list = Java::ProcessingCore::PFont.list.to_a
+    @serif = list.select { |fon| fon =~ /Serif/i }
+    random_font = list.sample
+    font = createFont(random_font, 96, true)
+    @l = font.get_shape(c.to_java(:char))
+    @hue = rand
+    @xn = rand(4096)
+    @yn = rand(4096)
+  end
+
+  def update
+    @xn += 0.005
+    @yn += 0.005
+    pos.x = map1d(noise(xn), -1.0..1.0, 0..width)
+    pos.y = map1d(noise(yn), -1.0..1.0, 0..height)
+    @letter = PGS_Transformation.translate_to(l, 0, 0)
+    @letter = PGS_Transformation.shear(letter,
+      map1d(@pos.x, 0..width, -TWO_PI..TWO_PI),
+      map1d(@pos.y, 0..height, -TWO_PI..TWO_PI)
+    )
+    @letter = PGS_Transformation.translate_to(letter, pos.x, pos.y)
+    @letter = PGS_Morphology.simplify(letter, 1) # as some fonts have very dense vertices
+    letter.setStroke(color(hue, 1, 1))
+  end
+
+  def randomise
+    @hue = rand
+    list = Java::ProcessingCore::PFont.list.to_a
+    random_font = serif.sample
+    font = createFont(random_font, 128, true)
+    @l = font.getShape(rand(0..9).to_s.to_java(:char))
+  end
+end
+
+
+attr_reader :l1, :l2
+
+def setup
+  sketch_title 'Mink Shear'
+  color_mode(HSB, 1.0)
+  @l1 = Letter.new('M')
+  @l2 = Letter.new('L')
+end
+
+def draw
+  fill(color(0.1, 0.2))
+  rect(0, 0, width, height)
+  begin
+    l1.update
+    l2.update
+    mink = PGS_Morphology.mink_sum(l1.letter, l2.letter)
+    mink = PGS_Transformation.translate_to(mink, (l1.pos.x + l2.pos.x) / 2, (l1.pos.y + l2.pos.y) / 2)
+    shape(mink)
+    shape(l1.letter)
+    shape(l2.letter)
+    shape(PGS_Contour.medialAxis(mink, 0.3, 0, 0.1))
+    intersect = PGS_ShapeBoolean.intersect(l1.letter, mink)
+    PGS_Conversion.setAllFillColor(intersect, color(0, 0.5))
+    shape(intersect)
+    intersect = PGS_ShapeBoolean.intersect(l2.letter, mink)
+    PGS_Conversion.setAllFillColor(intersect, color(0, 0.5))
+    shape(intersect)
+  rescue Java::JavaLang::Exception => e
+    # puts e.to_s
+  end
+  if (frame_count % 120).zero?
+    l1.randomise
+    l2.randomise
+  end
+end
+
+def settings
+  size(800, 800)
+end