more examples

Author: monkstone

contributed/bezier_playground.rb

@@ -1,8 +1,9 @@
 #!/usr/bin/env jruby
+# frozen_string_literal: true
 require 'propane'
 
 X1, Y1, X2, Y2 = 50.0, 50.0, 250.0, 250.0
-REDDISH = [250, 100, 100]
+REDDISH = [250, 100, 100].freeze
 RADIUS = 7
 
 # A Bezier playground. Click to shape the curve. Drag to move it.
@@ -11,9 +12,7 @@
 class BezierPlayground < Propane::App
   load_libraries :control_panel, :curve
   include Olap
-  attr_accessor :curves, :c1x, :c1y, :c2x, :c2y
-  attr_reader :panel, :hide
-
+  attr_reader :curves, :c1x, :c1y, :c2x, :c2y, :panel, :hide
 
   def settings
     size 300, 300
@@ -103,7 +102,7 @@ def switch_curve_if_endpoint_clicked
     become = curves.detect { |c| c.contains(mouse_x, mouse_y) }
     return unless become && become != current_curve
     current_curve.set_control_points(*control_points)
-    self.set_control_points(*become.control_points)
+    set_control_points(*become.control_points)
     @current = curves.index(become)
   end
 

contributed/fire.rb

@@ -1,5 +1,6 @@
+#!/usr/bin/env jruby
+# frozen_string_literal: true
 require 'propane'
-
 # After original by Alex Young https://github.com/alexyoung/fire-p5r
 
 # Algorithm:
@@ -76,4 +77,4 @@ def offset(x, y)
   end
 end
 
-Fire.new
+Fire.new

contributed/full_screen.rb

@@ -17,8 +17,8 @@ def draw
         new_x, new_y = x * 100, y * 100
         push_matrix
         translate new_x + 50, new_y + 50
-        rotate_y(((mouse_x.to_f + new_x) / width) * Math::PI)
-        rotate_x(((mouse_y.to_f + new_y) / height) * Math::PI)
+        rotate_y(((mouse_x.to_f + new_x) / width) * PI)
+        rotate_x(((mouse_y.to_f + new_y) / height) * PI)
         box 90
         pop_matrix
       end

contributed/library/palette/palette.rb

@@ -1,3 +1,9 @@
+# frozen_string_literal: true
+# To Avoid the:-
+# warning: ambiguous Java methods found, using color(float,float,float)
+# we explicitly cast the array of color values `to_java(:float)`, as they are
+# passed to the (overloaded) java/processing color method
+
 class Palette
   include Propane::Proxy # needed to access 'color' and 'map1d'
   attr_reader :palette
@@ -11,13 +17,13 @@ def make_palette
       # Create the bands of colour for the palette (256 is the maximum colour))
       case i
       when 0..64 # Range of reds
-        color(*[map1d(i, 0..64, 1..255), 0, 0])
+        color(*[map1d(i, 0..64, 1..255), 0, 0].to_java(:float))
       when 64..128 # Range of orange
-        color(*[255, map1d(i, 64..128, 1..255), 0])
+        color(*[255, map1d(i, 64..128, 1..255), 0].to_java(:float))
       when 128..172 # range of yellow
-        color(*[255, 255, map1d(i, 128..172, 1..255)])
+        color(*[255, 255, map1d(i, 128..172, 1..255)].to_java(:float))
       else
-        color(*[180, 0, 0])
+        color(*[180, 0, 0].to_java(:float))
       end
     end
   end

contributed/tree.rb

@@ -1,4 +1,5 @@
-#!/usr/bin/env jruby -v -W2
+#!/usr/bin/env jruby
+# frozen_string_literal: true
 require 'propane'
 
 class Tree < Propane::App

processing_app/topics/lsystems/Rakefile

@@ -0,0 +1,26 @@
+# Simple demo Rakefile to autorun samples in current directory
+# adjust path to k9 executable, and or opts as required
+
+SAMPLES_DIR = './'
+
+desc 'run demo'
+task default: [:demo]
+
+desc 'demo'
+task :demo do
+  samples_list.shuffle.each{ |sample| run_sample sample }
+end
+
+def samples_list
+  Dir.chdir(SAMPLES_DIR)
+  Dir.glob('*.rb').map { |file| File.join(SAMPLES_DIR, file) }
+end
+
+def run_sample(sample_name)
+  puts format('Running %s...quit to run next sample', sample_name)
+  open("|jruby #{sample_name}", 'r') do |io|
+    while l = io.gets
+      puts(l.chop)
+    end
+  end
+end

processing_app/topics/lsystems/chequer.rb

@@ -0,0 +1,77 @@
+#!/usr/bin/env jruby
+require 'propane'
+
+class ChequerSketch < Propane::App
+  ########################################################
+  # Chequer implemented using a grammar library
+  # Lindenmayer System in JRubyArt by Martin Prout
+  ########################################################
+  load_library :grammar
+  attr_reader :chequer
+
+  def setup
+    sketch_title 'Chequer'
+    @chequer = Chequer.new width * 0.9, height / 10
+    chequer.create_grammar 4
+    no_loop
+  end
+
+  def draw
+    background 0
+    chequer.render
+  end
+
+  def settings
+    size 600, 600
+  end
+end
+
+# Chequer class
+class Chequer
+  include Propane::Proxy
+  attr_accessor :axiom, :grammar, :production, :draw_length, :theta, :xpos, :ypos
+  DELTA = Math::PI / 2
+
+  def initialize(xpos, ypos)
+    @xpos = xpos
+    @ypos = ypos
+    @axiom = 'F-F-F-F'        # Axiom
+    @grammar = Grammar.new(axiom, 'F' => 'FF-F-F-F-FF')
+    @draw_length = 500
+    stroke 0, 255, 0
+    stroke_weight 2
+    @theta = 0
+  end
+
+  def render
+    production.each do |element|
+      case element
+      when 'F'
+        x_temp = xpos
+        y_temp = ypos
+        @xpos -= draw_length * cos(theta)
+        @ypos -= draw_length * sin(theta)
+        line(x_temp, y_temp, xpos, ypos)
+      when '+'
+        @theta += DELTA
+      when '-'
+        @theta -= DELTA
+      else
+        puts format("Character '%s' is not in grammar", element)
+      end
+    end
+  end
+
+  ##############################
+  # create grammar from axiom and
+  # rules (adjust scale)
+  ##############################
+
+  def create_grammar(gen)
+    @draw_length /= 3**gen
+    @production = @grammar.generate gen
+  end
+end
+
+
+ChequerSketch.new

processing_app/topics/lsystems/csplant.rb

@@ -0,0 +1,108 @@
+#!/usr/bin/env jruby
+require 'propane'
+require 'arcball'
+
+class CSplantSketch < Propane::App
+  ########################################################
+  # csplant.rb
+  # A 3D Plant implemented using a Context Sensitive
+  # Lindenmayer System in JRubyArt
+  # by Martin Prout (30 January 2013)
+  # Hold down 'y' key and drag mouse to rotate about y axis
+  ########################################################
+
+  load_libraries :cs_grammar
+  attr_reader :csplant
+
+  def setup
+    sketch_title 'Context Sensitive Plant'
+    Processing::ArcBall.constrain(self) # Arcball constrained to y-axis rotation
+    @csplant = CSPlant.new(height)
+    csplant.create_grammar 5
+    no_stroke
+  end
+
+  def draw
+    background 0
+    lights
+    translate(0, height * 0.3)
+    csplant.render
+  end
+
+  def settings
+    size 800, 800, P3D
+  end
+end
+
+############
+# CSPlant
+############
+class CSPlant
+  include Propane::Proxy
+
+  IGNORE = '[]+-^&3'
+  attr_reader :grammar, :axiom, :production, :premis, :rule,
+  :theta, :scale_factor, :len, :phi, :len
+
+  def initialize(len)
+    @axiom = 'F'
+    @grammar = Grammar.new(
+      axiom,
+      { 'F' => 'F[-EF[3&A]]E[+F[3^A]]', 'F<E' => 'F[&F[3+A]][^F[3-A]]' },
+      IGNORE
+    )
+    @production = axiom
+    @len = len
+    @theta = 25.radians
+    @phi = 25.radians
+    no_stroke
+  end
+
+  def render
+    fill(0, 75, 152)
+    light_specular(204, 204, 204)
+    specular(255, 255, 255)
+    shininess(1.0)
+    repeat = 1
+    production.each_char do |ch|
+      case ch
+      when 'F'
+        translate(0, len / -2, 0)
+        box(len / 9, len, len / 9)
+        translate(0, len / -2, 0)
+      when '+'
+        rotateX(-theta * repeat)
+        repeat = 1
+      when '-'
+        rotateX(theta * repeat)
+        repeat = 1
+      when '&'
+        rotateZ(-phi * repeat)
+        repeat = 1
+      when '^'
+        rotateZ(phi * repeat)
+        repeat = 1
+      when '3'
+        repeat = 3
+      when '['
+        push_matrix
+      when ']'
+        pop_matrix
+      when 'E', 'A'
+      else
+        puts("character '#{ch}' not in grammar")
+      end
+    end
+  end
+  ##############################
+  # create grammar from axiom and
+  # rules (adjust scale)
+  ##############################
+
+  def create_grammar(gen)
+    @len *= 0.6**gen
+    @production = grammar.generate gen
+  end
+end
+
+CSplantSketch.new

processing_app/topics/lsystems/cstest.rb

@@ -0,0 +1,36 @@
+#!/usr/bin/env jruby
+require 'propane'
+
+class CSTest < Propane::App
+  ###########################
+  # cstest.rb (use jruby ..
+  # test of cs_grammar library
+  ###########################
+  load_library 'cs_grammar'
+
+  def setup
+    sketch_title 'Context Sensitive Test'
+    background 0
+    fill(200, 200, 0)
+    f = create_font('Arial', 16, true)
+    text_font(f)
+    no_loop
+  end
+
+  def draw
+    (0..7).each do |i|
+      grammar = Grammar.new(
+      'baaaaaa',
+      'b<a' => 'b',   # context sensitive rule replace a when preceded by b
+      'b' => 'a'
+      )
+      text grammar.generate(i), 30, i * 25
+    end
+  end
+
+  def settings
+    size 125, 250, FX2D
+  end  
+end
+
+CSTest.new

processing_app/topics/lsystems/data/java_args.txt

@@ -0,0 +1,3 @@
+-Djruby.ji.objectProxyCache=false -XX:CompileCommand=dontinline,org.jruby.runtime.invokedynamic.InvokeDynamicSupport::invocationFallback 
+ -XX:+OptimizeStringConcat 
+