propane 0.5.0-java → 0.6.0-java

data/examples/regular/colors_two.rb

@@ -0,0 +1,61 @@
+# encoding: utf-8
+# frozen_string_literal: true
+# Creating Colors (Homage to Albers).
+#
+require 'propane'
+
+# Creating variables for colors that may be referred to
+# in the program by their name, rather than a number.
+class CreatingColors < Propane::App
+  attr_reader :redder, :yellower, :orangish
+  def setup
+    size 640, 360
+    # palette = web_to_color_array(['#CC6600', '#CC9900', '#993300'].to_java(:string))
+    palette = web_to_color_array(['#CC6600', '#CC9900', '#993300'])
+    # @redder = color 204, 102, 0
+    # @yellower = color 204, 153, 0
+    # @orangish = color 153, 51, 0
+    # These statements are equivalent to the statements above.
+    # Programmers may use the format they prefer.
+
+    # hex color as a String (NB quotes are required)
+    @redder = palette[0]
+    @yellower = palette[1]
+    @orangish = palette[2]
+
+    # @redder = color '#CC6600'
+    # @yellower = color '#CC9900'
+    # @orangish = color '#993300'
+
+    # or alternatively as a hexadecimal
+
+    # @redder = color 0xFFCC6600
+    # @yellower = color 0xFFCC9900
+    # @orangish = color 0xFF993300
+  end
+
+  def draw
+    no_stroke
+    background 51, 0, 0
+    push_matrix
+    translate 80, 80
+    fill orangish
+    rect 0, 0, 200, 200
+    fill yellower
+    rect 40, 60, 120, 120
+    fill redder
+    rect 60, 90, 80, 80
+    pop_matrix
+    push_matrix
+    translate 360, 80
+    fill redder
+    rect 0, 0, 200, 200
+    fill orangish
+    rect 40, 60, 120, 120
+    fill yellower
+    rect 60, 90, 80, 80
+    pop_matrix
+  end
+end
+
+CreatingColors.new title: 'Homage to Albers'

data/examples/regular/creating_colors.rb

@@ -8,16 +8,22 @@ require 'propane'
 # in the program by their name, rather than a number.
 class CreatingColors < Propane::App
   attr_reader :redder, :yellower, :orangish
+  
+  WEB = %w(#CC6600 #CC9900 #993300)
 
   def setup
     size 640, 360
-    @redder = color 204, 102, 0
-    @yellower = color 204, 153, 0
-    @orangish = color 153, 51, 0
+    palette = web_to_color_array(WEB)
+    @redder = palette[0]
+    @yellower = palette[1]
+    @orangish = palette[2]
     # These statements are equivalent to the statements above.
     # Programmers may use the format they prefer.
 
     # hex color as a String (NB quotes are required)
+    @redder = palette[0]
+    @yellower = palette[1]
+    @orangish = palette[2]
 
     # @redder = color '#CC6600'
     # @yellower = color '#CC9900'
@@ -28,6 +34,7 @@ class CreatingColors < Propane::App
     # @redder = color 0xFFCC6600
     # @yellower = color 0xFFCC9900
     # @orangish = color 0xFF993300
+    puts int_to_ruby_colors(palette)
   end
 
   def draw

data/examples/regular/elegant_ball.rb

@@ -3,7 +3,7 @@
 # Ben Notorianni aka lazydog
 #
 # elegant_ball.rb
-
+#!/usr/bin/env jruby
 require 'propane'
 
 class ElegantBall < Propane::App

data/examples/regular/fibonacci_sphere.rb

@@ -0,0 +1,90 @@
+require 'propane'
+require 'arcball'
+
+class FibonacciSphere < Propane::App
+  # fibonacci_sphere.rb
+  # After a vanilla processing sketch by Jim Bumgardner
+  # http://www.openprocessing.org/sketch/41142
+  #
+  # Controls:
+  # 1. drag mouse to rotate sphere (uses builtin arcball library)
+  # 2. click mouse to toggle add box to sphere surface
+  # 3. press x, y, or z to constrain arcball rotation to that axis
+  #
+
+  PHI = (sqrt(5) + 1) / 2 - 1   # golden ratio
+  GA = PHI * TAU           # golden angle
+
+  KMAX_POINTS = 100_000
+
+  attr_reader :pts, :rotation_x, :rotation_y, :nbr_points, :radius, :add_points
+
+
+  def setup
+    size(1024, 768, P3D)
+    Processing::ArcBall.init(self, width / 2.0, height / 2.0)
+    @rotation_x = 0
+    @rotation_y = 0
+    @nbr_points = 2000
+    @radius = 0.8 * height / 2
+    @add_points = true
+    @pts = Array.new(KMAX_POINTS)
+    init_sphere(nbr_points)
+    background(0)
+  end
+
+  def draw
+    if add_points
+      @nbr_points += 1
+      @nbr_points = [nbr_points, KMAX_POINTS].min
+      init_sphere(nbr_points)
+    end
+
+    background 0
+    lights
+    ambient(200, 10, 10)
+    ambient_light(150, 150, 150)
+    render_globe
+  end
+
+  ###########################################
+  # For Fibonacci Sphere
+  ##################################
+
+  def render_globe
+    push_matrix
+    (0..[nbr_points, pts.length].min).each do |i|
+      lat = pts[i].lat
+      lon = pts[i].lon
+      push_matrix
+      rotate_y(lon)
+      rotate_z(-lat)
+      fill(200, 10, 10)
+      translate(radius, 0, 0)
+      box(4, 7, 7)
+      pop_matrix
+    end
+    pop_matrix
+  end
+
+  def mouse_clicked
+    @add_points = !add_points
+  end
+
+  SpherePoint = Struct.new(:lat, :lon)
+
+  def init_sphere(num)
+    (0..num).each do |i|
+      lon = GA * i
+      lon /= TAU
+      lon -= lon.floor
+      lon *= TAU
+      lon -= TAU if lon > PI
+      # Convert dome height (which is proportional to surface area) to latitude
+      # lat = asin(-1 + 2 * i / num.to_f)
+      pts[i] = SpherePoint.new(asin(-1 + 2 * i / num.to_f), lon)
+    end
+  end
+end
+
+FibonacciSphere.new title: 'Fibonacci Sphere'

data/examples/regular/grapher.rb

@@ -0,0 +1,39 @@
+require 'propane'
+
+class Grapher < Propane::App
+  # Grapher is based on a context free art design
+  # by ColorMeImpressed (takes a bit of time to run)
+  # http://www.contextfreeart.org/gallery/view.php?id=2844
+  # 
+  CMIN = -2.0 # Important to specify float else get random int from range?
+  CMAX = 2.0
+  FUZZ = 0.04
+  SZ = 5
+  
+  def setup
+    size 600, 600
+    no_stroke
+    color_mode(HSB, 1.0)
+    background(0)
+    frame_rate(4_000)
+  end
+  
+  def draw
+    translate(width / 2, height / 2)
+    dot(rand(-180..180), rand(-180..180), rand(CMIN..CMAX)) unless frame_count > 200_000
+  end
+  
+  def dot(px, py, c)
+    func = DegLut.sin(px) + DegLut.sin(py) + c
+    # change function to change the graph eg.
+    # func = DegLut.cos(px) + DegLut.sin(py) + c
+    if func.abs <= FUZZ
+      fill(((CMIN - c) / (CMIN - CMAX)), 1, 1)
+      ellipse px * width / 360, py * height / 360, SZ, SZ
+    else
+      dot(rand(-180..180), rand(-180..180), rand(CMIN..CMAX))
+    end
+  end  
+end
+
+Grapher.new title: 'Grapher'

data/examples/regular/gravity.rb

@@ -0,0 +1,120 @@
+require 'propane'
+
+class Gravity < Propane::App
+  # After Gravity by Christian Hahn
+  
+  attr_reader :particles, :grabbed
+  
+  def setup
+    size 600, 500
+    @particles  = []
+    @grabbed    = nil
+    background 0
+    smooth 4
+    stroke_weight 4
+    ellipse_mode CENTER
+    color_mode RGB, 255
+  end
+  
+  def draw
+    no_stroke
+    fill 0, 60
+    rect 0, 0, width, height
+    particles.each(&:run)
+  end
+  
+  def mouse_pressed
+    return if mouse_x == 0 || mouse_y == 0
+    return if particle_grab
+    particles << Particle.new(mouse_x, mouse_y, rand(0.1..8))
+  end
+  
+  def mouse_released
+    @grabbed = nil
+  end
+  
+  def particle_grab
+    @grabbed = particles.detect { |p| dist(mouse_x, mouse_y, p.x1, p.y1) < p.diameter/2 }
+  end
+end
+
+class Particle
+  include Math, Propane::Proxy
+  GRAVITY = 1.0
+  attr_reader :x0, :y0, :x1, :y1, :diameter, :mass_amount
+  
+  def initialize(x, y, mass)
+    @x0, @y0, @x1, @y1  = x, y, x, y
+    @x_speed, @y_speed  = 0, 0
+    @x_accel, @y_accel  = 0, 0
+    @mass_amount        = mass
+    @diameter           = sqrt(mass_amount) * 20
+  end
+  
+  def collect_force
+    @x_accel, @y_accel = 0, 0
+    @min_dist = 1000
+    $app.particles.each do |p|
+      next if p == self
+      g_dist  = hypot(x0 - p.x0, y0 - p.y0)
+      g_theta = -angle_of(x0, y0, p.x0, p.y0)
+      @min_dist = g_dist if g_dist < @min_dist
+      force = (GRAVITY * mass_amount * p.mass_amount) / g_dist
+      if g_dist.abs > diameter
+        @x_accel += force / mass_amount * cos(g_theta)
+        @y_accel += force / mass_amount * sin(g_theta)
+      end
+    end
+  end
+  
+  def move
+    @x_speed, @y_speed = 0, 0 if grabbed?
+    @x_speed += @x_accel
+    @y_speed += @y_accel
+    @x1, @y1 = x0 + @x_speed, y0 + @y_speed
+  end
+  
+  def grabbed?
+    $app.grabbed == self
+  end
+  
+  def run
+    collect_force
+    move
+    render
+  end
+  
+  def render
+    no_stroke
+    grabbed? ? render_grabbed : render_free
+  end
+  
+  def render_free
+    charge_col  = 1000.0 / @min_dist / 50.0
+    tot_col_1   = 100 + charge_col * 6
+    tot_col_2   = 150 + charge_col * charge_col
+    tot_col_3   = diameter + 8 + charge_col
+    fill(tot_col_1, tot_col_1, 255, charge_col * 150 + 3)
+    ellipse(x1, y1, tot_col_3, tot_col_3)
+    fill 0, 255
+    stroke tot_col_2, tot_col_2, 255, charge_col * 255 + 3
+    ellipse x1, y1, diameter, diameter
+    @x0, @y0 = x1, y1
+  end
+  
+  def render_grabbed
+    fill 150, 150, 255, 100
+    ellipse mouse_x, mouse_y, diameter + 8, diameter + 8
+    fill 0, 255
+    stroke 150, 150, 255, 255
+    ellipse mouse_x, mouse_y, diameter, diameter
+    @x0, @y0 = mouse_x, mouse_y
+  end
+  
+  def angle_of(x1, y1, x2, y2)
+    Math::PI - atan2(y1 - y2, x1 - x2)
+  end
+end
+
+
+Gravity.new title: 'Gravity'

data/examples/regular/slider_demo.rb

@@ -0,0 +1,60 @@
+# encoding: utf-8
+# frozen_string_literal: true
+require 'propane'
+
+class SliderDemo < Propane::App
+  load_library :slider
+  attr_reader :color1, :color2, :color3, :r, :gs, :b, :back
+
+  def setup
+    size(600, 400)
+    smooth(4)
+    @back = true
+    @r, @gs, @b = 0, 0, 0
+    @color1 = Slider.slider(
+      app: self,
+      vertical: true,
+      x: 100,
+      y: 77,
+      length: 200,
+      range: (-125.0..125.0),
+      name: 'Slider 1',
+      inital_value: 10
+    )
+    @color2 = Slider.slider(
+      app: self,
+      vertical: true,
+      x: 256,
+      y: 77,
+      length: 200,
+      range: (0..255),
+      name: 'Slider 2',
+      initial_value: 180
+    )
+    @color3 = Slider.slider(
+      app: self,
+      vertical: true,
+      x: 410,
+      y: 77,
+      length: 200,
+      range: (0.0..255.0),
+      name: 'Slider 3',
+      initial_value: 134
+    )
+    color1.bar_width(100)
+    color1.widget_colors(color('#930303'), color('#FF0000'))
+    color2.bar_width(100)
+    color2.widget_colors(color('#5BCE4D'), color('#1CFF00'))
+    color3.bar_width(100)
+    color3.widget_colors(color('#4439C9'), color('#9990FF'))
+  end
+
+  def draw
+    background(r + 125, gs, b)
+    @r = color1.read_value
+    @gs = color2.read_value
+    @b = color3.read_value
+  end
+end
+
+SliderDemo.new(title: 'Slider Demo')

data/examples/regular/slider_example.rb

@@ -0,0 +1,53 @@
+# encoding: utf-8
+# frozen_string_literal: true
+require 'propane'
+
+# Simple slider example
+class SliderExample < Propane::App
+  load_library :slider
+  attr_reader :color1, :color2, :color3, :r, :gs, :b, :back
+
+  def setup
+    size(600, 400)
+    smooth(4)
+    @back = true
+    @r, @gs, @b = 0, 0, 0
+    @color1 = Slider.slider(
+      app: self,
+      x: 77,
+      y: 200,
+      length: 200,
+      range: (0..255.0),
+      name: 'Slider 1',
+      initial_value: 50
+    )
+    @color2 = Slider.slider(
+      app: self,
+      x: 77,
+      y: 230,
+      length: 200,
+      range: (0..255),
+      name: 'Slider 2',
+      initial_value: 50
+    )
+    @color3 = Slider.slider(
+      app: self,
+      x: 77,
+      y: 260,
+      length: 200,
+      range: (0.0..255.0),
+      name: 'Slider 3'
+    )
+  end
+
+  def draw
+    background(b, r, gs)
+    fill(r, gs, b)
+    ellipse(300, 200, 300, 300)
+    @r = color1.read_value
+    @gs = color2.read_value
+    @b = color3.read_value
+  end
+end
+
+SliderExample.new(title: 'Slider Example')