add some library examples

Author: monkstone

library/control_panel/button.rb

@@ -0,0 +1,32 @@
+#!/usr/bin/env jruby -w
+require 'picrate'
+class SimpleButton < Processing::App
+  load_library :control_panel
+
+  attr_reader :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
+    end
+    color_mode RGB, 1
+    @back = [0, 0, 1.0]
+  end
+
+  def color_background
+    @back = [rand, rand, rand]
+  end
+
+  def draw
+    background *back
+  end
+
+  def settings
+    size 300, 300
+  end
+end
+
+SimpleButton.new

library/control_panel/checkbox.rb

@@ -0,0 +1,33 @@
+#!/usr/bin/env jruby -w
+require 'picrate'
+class Checkbox < Processing::App
+  load_library :control_panel
+  WARN = 'warning!'.freeze
+  attr_reader :shouting
+
+  def setup
+    sketch_title 'Simple Checkbox'
+    control_panel do |c|
+      c.look_feel 'Nimbus'
+      c.title 'Checkbox'
+      c.checkbox :shouting
+    end
+    text_font(create_font('mono', 48))
+    fill(200, 0, 0)
+  end
+
+  def warning
+    shouting ? WARN.upcase : WARN
+  end
+
+  def draw
+    background 0
+    text(warning, 20, 100)
+  end
+
+  def settings
+    size 300, 300
+  end
+end
+
+Checkbox.new

library/control_panel/menu.rb

@@ -0,0 +1,26 @@
+#!/usr/bin/env jruby -w
+require 'picrate'
+class SimpleMenu < Processing::App
+  load_library :control_panel
+
+  attr_reader :toggle_loop
+  def setup
+    sketch_title 'Simple Menu'
+    control_panel do |c|
+      c.title 'Menu'
+      c.menu :choice, %i[one two three]
+      c.checkbox(:toggle_loop) { toggle_loop ? loop : no_loop}
+    end
+  end
+
+  def draw
+    puts @choice
+    no_loop
+  end
+
+  def settings
+    size 300, 300
+  end
+end
+
+SimpleMenu.new

library/control_panel/slider.rb

@@ -0,0 +1,25 @@
+#!/usr/bin/env jruby -w
+require 'picrate'
+class SimpleSlider < Processing::App
+  load_library :control_panel
+
+  attr_reader :bluish
+  def setup
+    sketch_title 'Simple Slider'
+    control_panel do |c|
+      c.title 'Slider'
+      c.slider :bluish, 0.2..1.0, 0.5
+    end
+    color_mode(RGB, 1.0)
+  end
+
+  def draw
+    background(0, 0, bluish)
+  end
+
+  def settings
+    size 300, 300
+  end
+end
+
+SimpleSlider.new

library/file_chooser/README.md

@@ -0,0 +1,122 @@
+### Obtaining and Using contextfreeart ###
+
+For debian users it should be as simple as `sudo apt-get install cfdg` installs commandline version.
+
+For others check [contextfreeart website][download], if you get the command line version you could easily automate running the cfdg program, once the files have been created.
+
+### Black and White Demo
+
+```ruby
+#!/usr/bin/env jruby -v -W2
+# frozen_string_literal: true
+require 'picrate'
+# Creates files that you can use with context free art (Gray Scale)
+class GrayScale < Processing::App
+  load_library :file_chooser
+  attr_reader :img, :data, :skip, :invert
+
+  def settings
+    size 500, 500
+  end
+
+  def setup
+    sketch_title 'Pixellator for CheChe'
+    color_mode(HSB, 360, 1.0, 1.0)
+    fill 0, 0, 200
+    text('Click Window to Load Image', 10, 100)
+    @skip = 5 # controls apparent resolution
+    @data = []
+    @invert = true
+  end
+
+  def draw
+    unless img.nil?
+      img.filter(INVERT) if invert
+      @invert = false
+      image(img, 0, 0)
+    end
+  end
+
+  def write_data(name, data)
+    df = "  %s [x %d y %d s %0.2f hue 0 sat 0.7 brightness 0]\n"
+    open(data_path('data.cfdg'), 'w') do |pw|
+      pw.puts format("shape %s{\n", name)
+      data.each do |row|
+        pw.puts format(df, *row)
+      end
+      pw.puts "}\n"
+    end
+  end
+
+  def write_start(start, data)
+    open(data_path(format('%s.cfdg', start)), 'w') do |pw|
+      pw.puts 'CF::Background = [b 1]'
+      pw.puts format("startshape %s\n", start)
+      pw.puts "shape dot{CIRCLE[]}\n"
+      pw.puts "import data.cfdg\n"
+    end
+    write_data start, data
+  end
+
+  def file_selected(selection)
+    if selection.nil?
+      puts 'Nothing Chosen'
+    else
+      @img = load_image(selection.get_absolute_path)
+      surface.set_size(img.width, img.height)
+    end
+  end
+
+  def mouse_clicked
+    @img = nil
+    # java_signature 'void selectInput(String, String)'
+    select_input('Select Image File', 'file_selected')
+  end
+
+  def key_pressed
+    case key
+    when 'p', 'P'
+      export = Thread.new do
+        pixellate
+      end
+      export.join
+      puts 'done'
+    when 's', 'S'
+      save_frame(data_path('original.png'))
+    else
+      puts format('key %s was pressed', key)
+    end
+  end
+
+  def pixellate
+    load_pixels
+    shp = 'dot'
+    (skip...img.width).step(skip) do |x|
+      (skip...img.height).step(skip) do |y|
+        pix = pixels[x + y * width]
+        sz = brightness(pix) * skip
+        data << [
+          shp, -width / 2 + x, height / 2 - y, sz.round(2)
+        ] if sz > 0.4
+      end
+    end
+    write_start 'cheche', data
+  end
+end
+
+GrayScale.new
+```
+
+If for example the chosen sketch was 590 * 600 pixels you might use the following to generate the pixellated image using the `cli` assuming `haddock.cfdg` is in the local folder. Windows users might need to use different escapes for path, but then they've got a GUI to use if they want.
+
+```bash
+cfdg haddock.cfdg -w 1180 -h 1200 -o phil.png
+```
+
+But there is much more you can do (look up che che for a much more sophisticated cfdg file).
+
+
+NB: You could add a grayscale filter if you start with a coloured image. Here we set hue to 0 ie red colour 20 is yellow etc, read more from contextfreeart tutorial (plus have a go at creating a standalone cfdg sketch it is a lot of fun).
+
+
+[download]:http://www.contextfreeart.org/mediawiki/index.php/Download_page

library/file_chooser/gray.rb

@@ -0,0 +1,98 @@
+#!/usr/bin/env jruby -v -W2
+# frozen_string_literal: true
+require 'picrate'
+# Creates files that you can use with context free art (Gray Scale)
+class GrayScale < Processing::App
+  load_library :file_chooser
+  attr_reader :img, :data, :skip, :invert
+
+  def settings
+    size 500, 500
+  end
+
+  def setup
+    sketch_title 'Pixellator for CheChe'
+    color_mode(HSB, 360, 1.0, 1.0)
+    fill 0, 0, 200
+    text('Click Window to Load Image', 10, 100)
+    @skip = 5 # controls apparent resolution
+    @data = []
+    @invert = true
+  end
+
+  def draw
+    unless img.nil?
+      img.filter(INVERT) if invert
+      @invert = false
+      image(img, 0, 0)
+    end
+  end
+
+  def write_data(name, data)
+    df = "  %s [x %d y %d s %0.2f hue 0 sat 0.7 brightness 0]\n"
+    open(data_path('data.cfdg'), 'w') do |pw|
+      pw.puts format("shape %s{\n", name)
+      data.each do |row|
+        pw.puts format(df, *row)
+      end
+      pw.puts "}\n"
+    end
+  end
+
+  def write_start(start, data)
+    open(data_path(format('%s.cfdg', start)), 'w') do |pw|
+      pw.puts 'CF::Background = [b 1]'
+      pw.puts format("startshape %s\n", start)
+      pw.puts "shape dot{CIRCLE[]}\n"
+      pw.puts "import data.cfdg\n"
+    end
+    write_data start, data
+  end
+
+  def file_selected(selection)
+    if selection.nil?
+      puts 'Nothing Chosen'
+    else
+      @img = load_image(selection.get_absolute_path)
+      surface.set_size(img.width, img.height)
+    end
+  end
+
+  def mouse_clicked
+    @img = nil
+    # java_signature 'void selectInput(String, String)'
+    select_input('Select Image File', 'file_selected')
+  end
+
+  def key_pressed
+    case key
+    when 'p', 'P'
+      export = Thread.new do
+        pixellate
+      end
+      export.join
+      puts 'done'
+    when 's', 'S'
+      save_frame(data_path('original.png'))
+    else
+      puts format('key %s was pressed', key)
+    end
+  end
+
+  def pixellate
+    load_pixels
+    shp = 'dot'
+    (skip...img.width).step(skip) do |x|
+      (skip...img.height).step(skip) do |y|
+        pix = pixels[x + y * width]
+        sz = brightness(pix) * skip
+        data << [
+          shp, -width / 2 + x, height / 2 - y, sz.round(2)
+        ] if sz > 0.4
+      end
+    end
+    write_start 'cheche', data
+  end
+end
+
+GrayScale.new