update/add control_panel examples

Author: monkstone

contributed/jwishy.rb

@@ -15,8 +15,8 @@ def settings
   def setup
     sketch_title 'Wishy Worm'
     control_panel do |c|
-      c.title = 'Control Panel'
-      c.look_feel 'Nimbus'
+      c.title 'Control Panel'
+      c.look_feel 'Motif'
       c.slider :bluish, 0.0..1.0, 0.5
       c.slider :alpha,  0.0..1.0, 0.5
       c.checkbox :go_big, false

contributed/quadraticvertex.rb

@@ -17,7 +17,7 @@ def setup
     sketch_title 'Quadratic Vertex'
     @hide = false
     control_panel do |c|
-      c.title = 'Controller'
+      c.title 'Controller'
       c.menu(:detail, %w(4 5 6 7 8 9 10), '7')
       c.checkbox :debug
       c.button :save_image

processing_app/library/control_panel/button.rb

@@ -0,0 +1,39 @@
+#!/usr/bin/env jruby -w
+require 'propane'
+class SimpleButton < Propane::App
+  load_library :control_panel
+
+  attr_reader :hide, :panel, :back
+
+  def setup
+    sketch_title 'Simple Button'
+    control_panel do |c|
+      c.look_feel 'Nimbus'
+      c.title 'Control Button'
+      c.button :color_background # see method below
+      c.button(:exit!) { exit } # example of a button with a simple block
+      @panel = c
+    end
+    color_mode RGB, 1
+    @back = [0, 0, 1.0]
+  end
+
+  def color_background
+    @back = [rand, rand, rand]
+  end
+
+  def draw
+    # only make control_panel visible once, or again when hide is false
+    unless hide
+      @hide = true
+      panel.set_visible(hide)
+    end
+    background *back
+  end
+
+  def settings
+    size 300, 300
+  end
+end
+
+SimpleButton.new

processing_app/library/control_panel/checkbox.rb

@@ -0,0 +1,39 @@
+#!/usr/bin/env jruby -w
+require 'propane'
+class Checkbox < Propane::App
+  load_library :control_panel
+
+  attr_reader :hide, :panel, :shouting
+
+  def setup
+    sketch_title 'Simple Checkbox'
+    control_panel do |c|
+      c.look_feel 'Nimbus'
+      c.title 'Checkbox'
+      c.checkbox :shouting
+      @panel = c
+    end
+    text_font(create_font('mono', 48))
+    fill(200, 0, 0)
+  end
+
+  def warning
+    shouting ? 'WARNING!' : 'warning!'
+  end
+
+  def draw
+    background 0
+    # only make control_panel visible once, or again when hide is false
+    unless hide
+      @hide = true
+      panel.set_visible(hide)
+    end
+    text(warning, 20, 100)
+  end
+
+  def settings
+    size 300, 300
+  end
+end
+
+Checkbox.new

processing_app/library/control_panel/menu.rb

@@ -0,0 +1,33 @@
+#!/usr/bin/env jruby -w
+require 'propane'
+class SimpleMenu < Propane::App
+  load_library :control_panel
+
+  attr_reader :hide, :panel, :toggle_loop
+  def setup
+    sketch_title 'Simple Menu'
+    control_panel do |c|
+      c.look_feel 'Motif'
+      c.title 'Menu'
+      c.menu :choice, %i[one two three]
+      c.checkbox(:toggle_loop) { toggle_loop ? loop : no_loop}
+      @panel = c
+    end
+  end
+
+  def draw
+    # only make control_panel visible once, or again when hide is false
+    unless hide
+      @hide = true
+      panel.set_visible(hide)
+    end
+    puts @choice
+    no_loop
+  end
+
+  def settings
+    size 300, 300
+  end
+end
+
+SimpleMenu.new

processing_app/library/control_panel/slider.rb

@@ -0,0 +1,32 @@
+#!/usr/bin/env jruby -w
+require 'propane'
+class SimpleSlider < Propane::App
+  load_library :control_panel
+
+  attr_reader :hide, :panel, :bluish
+  def setup
+    sketch_title 'Simple Slider'
+    control_panel do |c|
+      c.look_feel 'Motif'
+      c.title 'Slider'
+      c.slider :bluish, 0.2..1.0, 0.5
+      @panel = c
+    end
+    color_mode(RGB, 1.0)
+  end
+
+  def draw
+    # only make control_panel visible once, or again when hide is false
+    unless hide
+      @hide = true
+      panel.set_visible(hide)
+    end
+    background(0, 0, bluish)
+  end
+
+  def settings
+    size 300, 300
+  end
+end
+
+SimpleSlider.new

processing_app/library/vecmath/vec2d/penrose.rb

@@ -14,7 +14,7 @@ class Penrose < Propane::App
   def setup
     sketch_title 'Penrose'
     control_panel do |c|
-      c.title = 'Tiler Control'
+      c.title 'Tiler Control'
       c.look_feel 'Nimbus'
       c.checkbox  :seed
       c.checkbox  :acute

processing_app/topics/lsystems/three_d_tree.rb

@@ -24,7 +24,7 @@ def setup
 
   def setup_panel
     control_panel do |c|
-      c.title = 'Control:'
+      c.title 'Control:'
       c.look_feel 'Metal'
       c.slider :zoom, 1..8, 3
       c.slider :rot_y, -PI..PI, 0