more mods and additions

Author: monkstone

basics/math/noise_animation.rb

@@ -0,0 +1,58 @@
+#!/usr/bin/env jruby
+require 'picrate'
+
+class NoiseAnimation < Processing::App
+
+  AMOUNT = 2.5
+  SCALE = 0.03
+  RADIUS = 0.45
+  FRAMES = 100
+
+  def field(x, y)
+    count = frame_count - 1
+    value1 = 400.0 * noise(SCALE * x, SCALE * y, RADIUS * cos(TWO_PI * 1.0 * count / FRAMES),
+    RADIUS * sin(TWO_PI * 1.0 * count / FRAMES))
+    value2 = 400.0 * noise(1000 + SCALE * x, SCALE * y, RADIUS * cos(TWO_PI * 1.0 * count / FRAMES),
+    RADIUS * sin(TWO_PI * 1.0 * count / FRAMES))
+    # int value2 = (int) Math.round(value)
+    parameter1 = value1 / FRAMES
+    parameter2 = value2 / FRAMES
+    # if(random(100)<1) println(parameter)
+    Vec2D.new(AMOUNT * parameter1, AMOUNT * parameter2)
+  end
+
+  def settings
+    size(500, 500)
+  end
+
+  def setup
+    sketch_title 'Noise Animation'
+  end
+
+  def draw
+    background(0)
+    grid(width - 300, height - 300, 5, 5) do |i, j|
+      stroke(255, 25)
+      no_fill
+      pos = Vec2D.new(i + 150, j + 150)
+      point(pos.x, pos.y)
+      200.times do
+        res = field(pos.x, pos.y)
+        res *= 0.15
+        pos += res
+        point(pos.x, pos.y)
+      end
+      point(pos.x, pos.y)
+    end
+    # puts frame_count
+    save_frame(data_path('fr###.tiff'))
+
+    return unless frame_count == FRAMES
+
+    # save_frame(data_path('expt6.png'))
+    no_loop
+    puts 'finished'
+  end
+end
+
+NoiseAnimation.new

basics/math/noise_image.rb

@@ -0,0 +1,30 @@
+require 'picrate'
+# OpenSimplex2 has a range -1.0 to 1.0
+class NoiseImage < Processing::App
+  SCALE = 0.02
+
+  def setup
+    sketch_title 'Noise Image'
+    background(0)
+    stroke(255)
+    no_fill
+  end
+
+  def draw
+    background(0)
+    scale = 0.02
+    load_pixels
+    grid(500, 500) do |x, y|
+      col = noise(SCALE * x, SCALE * y) > 0 ? 255 : 0
+      pixels[x + width * y] = color(col, 0, 0)
+    end
+    update_pixels
+    save(data_path('noise_image.png'))
+  end
+
+  def settings
+    size 500, 500
+  end
+end
+
+NoiseImage.new

library/pdf/.gitignore

@@ -0,0 +1 @@
+*.pdf

library/pdf/complex_3D.rb

@@ -0,0 +1,158 @@
+require 'picrate'
+
+class Complex3D < Processing::App#
+  #  Geometry
+  #  by Marius Watz.
+  #
+  load_library :pdf
+  include_package 'processing.pdf'
+  attr_reader :num, :pt, :style, :dosave
+
+  def setup
+    sketch_title 'Complex 3 D'
+    background(255)
+    @dosave = false
+    @num = 150
+    @pt = []
+    @style = []
+    # Set up arc shapes
+    index = 0
+    (0...num).each do |i|
+      pt << rand(TAU) # Random X axis rotation
+      pt << rand(TAU) # Random Y axis rotation
+      pt << rand(60..80) # Short to quarter-circle arcs
+      pt[pt.length - 1] = rand(8..27) * 10 if rand(100) > 90
+      pt << rand(2..50) * 5 # Radius. Space them out nicely
+      pt << rand(4..32) # Width of band
+      pt[pt.length - 1] = rand(40..60) if (rand(100) > 90) # Width of band
+      pt << rand(0.005..0.0334)# Speed of rotation
+      # get colors
+      prob = rand(100)
+      case prob
+      when (0..30)
+        style[i * 2] = color_blended(rand, 255,0,100, 255,0,0, 210)
+      when (30..70)
+        style[i * 2] = color_blended(rand, 0,153,255, 170,225,255, 210)
+      when (70..90)
+        style[i * 2] = color_blended(rand, 200,255,0, 150,255,0, 210)
+      else
+        style[i * 2] = color(255,255,255, 220)
+      end
+      case prob
+      when (0..50)
+        style[i * 2] = color_blended(rand, 200,255,0, 50,120,0, 210)
+      when (50..90)
+        style[i * 2] = color_blended(rand, 255,100,0, 255,255,0, 210)
+      else
+        style[i * 2] = color(255, 255, 255, 220)
+        style[i * 2 + 1] = rand(100) % 3
+      end
+    end
+  end
+
+  def draw
+    if dosave
+      # set up PGraphicsPDF for use with beginRaw
+      pdf = begin_raw(PDF, data_path('pdf_complex_out.pdf'))
+      # set default Illustrator stroke styles and paint background rect.
+      pdf.stroke_join(MITER)
+      pdf.stroke_cap(SQUARE)
+      pdf.fill(0)
+      pdf.no_stroke
+      pdf.rect(0, 0, width, height)
+    end
+    background(0)
+    index = 0
+    translate(width / 2, height / 2, 0)
+    rotate_x(PI / 6)
+    rotate_y(PI / 6)
+    (0 ... num).each do |i|
+      push_matrix
+      rotate_x(pt[index])
+      rotate_y(pt[index + 1])
+      index += 2
+      case (style[i * 2 + 1])
+      when 0
+        stroke(style[i * 2])
+        no_fill
+        stroke_weight(1)
+        arc_line(0, 0, pt[index], pt[index + 1], pt[index + 2])
+        index += 3
+      when 1
+        fill(style[i * 2])
+        no_stroke
+        arc_line_bars(0, 0, pt[index], pt[index + 1],pt[index + 2])
+        index += 3
+      else
+        fill(style[i * 2])
+        no_stroke
+        arc(0, 0, pt[index], pt[index + 1], pt[index + 2])
+        index += 3
+      end
+      # increase rotation
+      pt[index - 5] += pt[index] / 10
+      pt[index - 4] += pt[index] / 20
+      index += 1
+      pop_matrix
+    end
+    if dosave
+      end_raw
+      @dosave=false
+    end
+  end
+
+  # Get blend of two colors
+  def color_blended(fract, r, g, b, r2, g2, b2, a)
+    r2 = (r2 - r)
+    g2 = (g2 - g)
+    b2 = (b2 - b)
+    color(r + r2 * fract, g + g2 * fract, b + b2 * fract, a)
+  end
+
+  # Draw arc line
+  def arc_line(x, y, deg, rad, w)
+    a = (deg < 360)? deg : 0
+    numlines = w / 2
+    (0...numlines).each do
+      begin_shape
+      (0...a).each do |i|
+        vertex(DegLut.cos(i) * rad + x, DegLut.sin(i) * rad + y)
+      end
+      end_shape
+      rad += 2
+    end
+  end
+
+  # Draw arc line with bars
+  def arc_line_bars(x, y, deg, rad, w)
+    a=(deg < 360)? deg / 16 : 0
+    begin_shape(QUADS)
+    (0...a).step(4) do |i|
+      vertex(DegLut.cos(i) * rad + x,DegLut.sin(i) * (rad) + y)
+      vertex(DegLut.cos(i) * (rad + w) + x,DegLut.sin(i) * (rad + w) + y)
+      vertex(DegLut.cos((i + 2)) * (rad + w) + x, DegLut.sin((i + 2)) * (rad + w) + y)
+      vertex(DegLut.cos((i + 2)) * rad + x, DegLut.sin((i + 2)) * rad + y)
+    end
+    end_shape
+  end
+
+  # Draw solid arc
+  def arc(x, y, deg, rad, w)
+    a = (deg < 360)? deg : 0
+    begin_shape(QUAD_STRIP)
+    (0...a).each do |i|
+      vertex(DegLut.cos(i) * rad + x, DegLut.sin(i) * rad + y)
+      vertex(DegLut.cos(i) * (rad + w) + x, DegLut.sin(i) * (rad + w) + y)
+    end
+    end_shape
+  end
+
+  def mouse_pressed
+    @dosave = true
+  end
+
+  def settings
+    size(1024, 768, P3D)
+  end
+end
+Complex3D.new

library/pdf/large_page.rb

@@ -0,0 +1,30 @@
+require 'picrate'
+
+class LargePage < Processing::App
+  #
+  # Large Page.
+  #
+  # Saves one frame as a PDF with a size larger
+  # than the screen. When PDF is used as the renderer
+  # (the third parameter of size) the display window
+  # does not open. The file is saved to the sketch folder.
+  load_libraries 'pdf'
+  include_package 'processing.pdf'
+
+  def setup
+    sketch_title 'Large Page'
+  end
+
+  def draw
+    background(255)
+    stroke(0, 20)
+    strokeWeight(20.0)
+    line(200, 0, width / 2, height)
+    exit  # Quit the program
+  end
+
+  def settings
+    size(2000, 2000, PDF, data_path('Line.pdf'))
+  end
+end
+LargePage.new

library/pdf/many_frames.rb

@@ -0,0 +1,38 @@
+require 'picrate'
+
+class ManyFrames < Processing::App
+  #
+  # Saves one PDF document of many frames drawn to the screen.
+  # Starts the file when the mouse is pressed and end the file
+  # when the mouse is released.
+  load_library 'pdf'
+  include_package 'processing.pdf'
+
+  def setup
+    sketch_title 'Many Frames'
+    frame_rate(24)
+    background(255)
+  end
+
+  def draw
+    stroke(0, 20)
+    stroke_weight(20.0)
+    line(mouse_x, 0, width-mouse_y, height)
+  end
+
+  def mouse_pressed
+    begin_record(PDF, data_path('Lines.pdf'))
+    background(255)
+  end
+
+  def mouse_released
+    end_record
+    background(255)
+  end
+
+  def settings
+    size(600, 600)
+  end
+end
+
+ManyFrames.new

library/pdf/many_pages.rb

@@ -0,0 +1,37 @@
+require 'picrate'
+
+class ManyPages < Processing::App
+  #
+  # Saves a new page into a PDF file each loop through draw().
+  # Pressing the mouse finishes writing the file and exits the program.
+  #
+  load_library 'pdf'
+  include_package 'processing.pdf'
+
+  attr_reader :pdf
+
+  def setup
+    sketch_title 'Many Pages'
+    frame_rate(4)
+    @pdf = begin_record(PDF, data_path('Lines.pdf'))
+    begin_record(pdf)
+  end
+
+  def draw
+    background(255)
+    stroke(0, 20)
+    stroke_weight(20.0)
+    line(mouse_x, 0, width - mouse_y, height)
+    pdf.nextPage
+  end
+
+  def mouse_pressed
+    end_record
+    exit
+  end
+
+  def settings
+    size(600, 600)
+  end
+end
+ManyPages.new