scarpe 0.1.0 → 0.2.0

data/examples/legacy/not_checked/good/path-animation.rb

@@ -0,0 +1,46 @@
+Shoes.app(title: "Drag the dot to make a path. Redrag to extend.") do
+   @path = [[self.width / 2, self.height / 2, RADIUS = 20]]
+   
+   @controller = nil
+   click do |btn, left, top|
+      px, py, pr = @path.last
+      if left.between?(px - pr, px + pr) and top.between?(py - pr, py + pr)
+         @controller = true
+      end
+   end
+   release do |btn, left, top|
+      @controller = nil
+   end
+
+   motion do |left, top|
+      @path << [left, top, RADIUS] unless @controller.nil?
+   end
+   
+   button("reset") do
+      @index = 0
+      @path = [@path.first]
+      @controller = nil
+   end
+   
+   @stack = stack :top => 0, :left => 0
+
+   @index = 0
+   animate(24) do
+      @stack.clear do
+         fill red(0.05)
+         stroke red(0.05)
+         ovals = @path.collect { |x, y, r| oval x, y, r, :center => true }
+         ovals.first.style :fill => fuchsia, :stroke => fuchsia
+         ovals.last.style :fill => blue, :stroke => blue
+         
+         if @controller.nil? and @path.size > 1
+            fill green
+            stroke green
+            rotate -5
+            x, y, r = @path[@index]
+            rect x, y, r * 4, r * 4, r / 2, :center => true
+            @index = (@index < @path.size - 1) ? @index + 1 : 0
+         end
+      end
+   end
+end

data/examples/legacy/not_checked/good/plots.rb

@@ -0,0 +1,100 @@
+# good-plots.rb
+Shoes.app width: 620, height: 480 do
+  stack do 
+    flow do
+      # button "quit" do Shoes.quit end
+      button "Line" do
+        @plot_area.clear do 
+          @values1 = [24, 22, 10, 13, 20, 8, 22]
+          @x_axis1 = ['a','b','c','d','e','f', 'g']
+          @values2 = [200, 150, 75, 125, 75, 225, 125]
+          @x_axis2 = ['a','b','c','d','e','f', 'g']
+          @grf = plot 600, 400, title: "Line Graph", caption: "Not that hard to do",
+              font: "Helvetica", auto_grid: true, default: "skip", background: honeydew
+          @grf.add values: @values1, labels: @x_axis1, name: "foobar", 
+              min: 6, max: 26 , desc: "foobar Yy", color: dodgerblue,
+              points: true
+          @grf.add values: @values2, labels: @x_axis2,
+              name: "Tab", min: @values2.min, max: @values2.max, desc: "BarTab", color: coral,
+              points: true, strokewidth: 2
+         @plot_area.refresh_slot
+        end
+      end
+      button "Column" do
+        @plot_area.clear do
+          @values1 = [24, 22, 10, 13, 20, 8, 22]
+          @x_axis1 = ['a','b','c','d','e','f', 'g']
+          @values2 = [200, 150, 75, 125, 75, 225, 125]
+          @x_axis2 = ['a','b','c','d','e','f', 'g']
+          @grf = plot 600, 400, title: "Column Graph", caption: 
+              "Amazing!!" , font: "Mono", auto_grid: false, 
+              default: "skip", background: cornsilk, chart: "column", boundary_box: false
+          @grf.add values: @values1, labels: @x_axis1,
+              name: "Bar", min: 0, max:  30, desc: "foobar Yy", color: rgb(220, 20, 60, 172),
+              points: true, strokewidth: 12
+          cs2 = chart_series values: @values2, labels: @x_axis2,
+              name: "Tab", min: 50, max: 230, desc: "BarTab", color: green,
+              points: true, strokewidth: 6
+         @grf.add cs2
+       end
+      end
+      button "Scatter" do
+        @plot_area.clear do
+          @values1 = [14,13,15,27,17,18,33,25,21] # x values - Wind speed
+          @values2 = [11,17,23,39,22,31,47,48,41] # y values - Cloud cover
+          @grf = plot 600, 400, title: "Weather Conditions", caption: 
+              "Scatter along, Children" , font: "Helvetica", auto_grid: true,
+              default: "skip", background: honeydew, chart: "scatter"
+          cs1 = @grf.add  values: @values1, 
+              name: "Wind", min: 12.5, max: 35 , color: dodgerblue,
+              points: "dot", strokewidth: 1, desc: "Wind speed (km/hr)"
+          #cs1.points = "box"
+          cs1.strokewidth = 5
+          cs2 = chart_series values: @values2, name: "Clouds",
+              min: 10, max: 50 , color: black,
+              points: "box", strokewidth: 1, desc: "Cloud Cover (percentage)"
+          @grf.add cs2
+        end
+      end
+      button "Pie" do
+        @plot_area.clear do
+          @values1 = [15, 5, 4, 4, 3, 3, 1, 1] # downloads
+          @obs1 = ["gtk3-32.exe", "gtk3-x86_64.install", "osx-10.9.tgz", "/",
+              "3.2.25.exe", "robots.txt", "gtk3-i686,install,", "gtk3-armhf.install"]
+          @grf = plot 600, 400, title: "Shoes Https downloads", caption: 
+              "popularity " , font: "Helvetica", auto_grid: true,
+              default: "skip", background: white, chart: "pie", pie_percent: false,
+              colors: [yellow, olive]
+          cs = chart_series values: @values1, labels: @obs1,
+              name: "download", min: @values1.min, max: @values1.max
+          @grf.add cs
+        end
+      end
+      button "Radar" do
+        @plot_area.clear do
+          @obs1 = ["internet", "television", "radio", "newspaper", "magazine"]
+          @values1 = [80,        160,          145,     75,          80] 
+          @values2 = [180,        90,           95,     90,          90]
+          @columns = [ ["Internet", 0, 200, "%3.0f k"], 
+               ["Television", 0, 250," %3.0f k" ],
+               {label: "Radio", min: 0, max: 200, format: "%3.0f k"},
+               ["Newspaper", 0, 200, "%3.0f k"],
+               ["Magazine", 0, 200, "%3.0f k"]
+             ]
+          @grf = plot 600, 400, title: "Advertising", caption: 
+            "Budget Spend" , font: "Helvetica", auto_grid: true,
+            default: "skip", background: cornsilk, chart: "radar", column_settings: @columns
+          @grf.add values: @values1, labels: @xobs,
+            name: "Year 1", min: 0, max: 200, color: dodgerblue,
+            points: "dot", strokewidth: 3
+          cs = app.chart_series values: @values2, labels: @xobs,
+            name: "Year 2", min: 0, max: 200, color: coral,
+            points: "dot", strokewidth: 3
+          @grf.add cs
+        end
+      end
+    end
+    @plot_area = stack do
+    end
+  end
+end

data/examples/legacy/not_checked/good/reminder.rb

@@ -0,0 +1,174 @@
+require 'yaml'
+
+Shoes.app :title => "A Gentle Reminder", 
+  :width => 370, :height => 560, :resizable => false do
+
+  background white
+  background tan, :height => 40
+  
+  caption "A Gentle Reminder", :margin => 8, :stroke => white
+  
+  stack :margin => 10, :margin_top => 50 do    
+    para "You need to", :stroke => red, :fill => yellow
+    
+    stack :margin_left => 5, :margin_right => 10, :width => 1.0, :height => 200, :scroll => true do
+      background white
+      border white, :strokewidth => 3
+      @gui_todo = para
+    end
+
+    flow :margin_top => 10 do
+      para "Remember to"
+      @add = edit_line(:margin_left => 10, :width => 180)
+      button("Add", :margin_left => 5)  { add_todo(@add.text); @add.text = '' }
+    end
+  end
+  
+  stack :margin_top => 10 do
+    background darkgray
+    para strong('Completed'), :stroke => white
+  end
+
+  @gui_completed = stack :width => 1.0, :height => 207, :margin_right => 20
+
+
+  def data_path
+    if RUBY_PLATFORM =~ /win32/
+      if ENV['USERPROFILE']
+        if File.exist?(File.join(File.expand_path(ENV['USERPROFILE']), "Application Data"))
+          user_data_directory = File.join File.expand_path(ENV['USERPROFILE']), "Application Data", "GentleReminder"
+        else
+          user_data_directory = File.join File.expand_path(ENV['USERPROFILE']), "GentleReminder"
+        end
+      else
+        user_data_directory = File.join File.expand_path(Dir.getwd), "data"
+      end
+    else
+      user_data_directory = File.expand_path(File.join("~", ".gentlereminder"))
+    end
+    
+    unless File.exist?(user_data_directory)
+      Dir.mkdir(user_data_directory)
+    end
+    
+    return File.join(user_data_directory, "data.yaml")
+  end
+  
+
+  def refresh_todo
+    @gui_todo.replace *(
+      @todo.map { |item|
+        [ item, '  ' ] + [ link('Done') { complete_todo item } ] + [ '  ' ] + 
+            [ link('Forget it') { forget_todo item } ] + [ "\n" ]
+      }.flatten
+    )
+  end
+
+
+  def refresh
+    refresh_todo
+    
+    @gui_completed.clear
+    
+    @gui_completed.append do
+      background white
+      
+      @completed.keys.sort.reverse.each { |day|
+        stack do
+          background lightgrey
+          para strong(Time.at(day).strftime('%B %d, %Y')), :stroke => white
+        end
+
+        stack do
+          inscription *(
+            @completed[day].map { |item|
+              [ item ] + [ '  ' ] + [ link('Not Done') { undo_todo day, item } ] + 
+                  (@completed[day].index(item) == @completed[day].length - 1 ? [ '' ] : [ "\n" ])
+            }.flatten
+          )
+        end    
+        
+      }
+    end
+  end
+
+
+  def complete_todo(item)
+    day = Time.today.to_i
+    
+    if @completed.keys.include? day
+      @completed[day] << item
+    else
+      @completed[day] = [ item ]
+    end
+    
+    @todo.delete(item)
+    
+    save
+    
+    refresh
+  end
+
+
+  def undo_todo(day, item)
+    @completed[day].delete item
+    
+    @completed.delete(day) if @completed[day].empty?
+    
+    @todo << item unless @todo.include? item
+
+    save
+    
+    refresh
+  end
+
+
+  def add_todo(item)
+    item = item.strip
+    
+    return if item == ''
+    
+    if @todo.include? item
+      alert('You have already added that to the list!')
+      return
+    end
+    
+    @todo << item
+    
+    save
+    
+    refresh_todo
+  end
+  
+  
+  def forget_todo(item)
+    @todo.delete item
+    
+    save
+    
+    refresh_todo
+  end
+
+  
+  def load
+    if File.exist?(data_path)
+      @todo, @completed = YAML::load(File.open(data_path, 'r'))
+    else
+      @todo = []
+      @completed = {}
+    end
+    
+    refresh
+  end
+  
+  
+  def save
+    File.open(data_path, 'w') { |f|
+      f.write [ @todo, @completed ].to_yaml
+    }
+  end
+
+
+  load
+
+end

data/examples/legacy/not_checked/good/svgview.rb

@@ -0,0 +1,113 @@
+# svg viewer
+require 'nokogiri'
+
+Shoes.app width: 500, height: 610, title: "SVG Viewer" do
+  @widget_sizeW = 450
+  @widget_sizeH = 400
+
+  def load (path)
+    File.open(path) {|f| @xml = f.read}
+    doc = Nokogiri::XML(@xml)
+    groups = doc.css("g[id]") - doc.css("defs g[id]")
+    groups.each_with_object([]) { |elem, arr| arr << elem.attributes["id"].value.strip }
+  end
+
+  def get_details
+    "original svg offsets : x = #{@current_svg.offset_x}, y = #{@current_svg.offset_y} \n" +
+    "original svg size    : width = #{@current_svg.preferred_width}, height = #{@current_svg.preferred_height}"
+  end
+
+  def show_svg(fpath)
+    @lbw.items = load(fpath)
+    @display_panel.clear do
+      @current_svg = svg @xml, width: @widget_sizeW, height: @widget_sizeH, aspect: true
+      if @current_svg.is_a? Array
+        #puts "Converting array"
+        @current_svg = @current_svg[0]
+      end
+    end
+    @details.text = get_details
+    @group.checked = false
+    @subid.text = ""
+    @aspect.checked = true
+    @specified.text = "1.0"
+  end
+
+  stack do
+    flow do
+        tagline "SVG Viewer", margin: [0,0,30,0]
+        @details = inscription
+    end
+
+    @display_panel = flow width: @widget_sizeW+20, height: @widget_sizeH+20, margin: 10 do; end
+
+    flow margin: [5,20,0,10] do
+      button "Load" do
+        if fpath = ask_open_file
+          show_svg(fpath)
+        end
+      end
+
+      button "Paris Cards" do
+        fpath = Shoes::RELEASE_TYPE =~ /TIGHT/ ? "#{DIR}/samples/good/paris.svg" : "#{DIR}/samples/good/paris.svg"
+
+        if File.exist? fpath
+          show_svg(fpath)
+        else
+          alert "Can't find #{fpath} !!"
+        end
+      end
+
+      button "Render", width: 150, margin: [25,0,0,0] do
+        return if @xml.nil? || @xml.empty?
+
+        id = @subid.text
+        id = (@group.checked? && @current_svg.group?(id)) ? id : nil
+
+        asp = @specified.text.to_f == 1.0 ? true : @specified.text.to_f
+        asp = @aspect.checked? ? asp : false
+        @display_panel.clear do
+          @current_svg = svg @xml, width: @widget_sizeW, height: @widget_sizeH, group: id, aspect: asp
+          if @current_svg.is_a? Array
+            @current_svg = @current_svg[0]
+            #puts "Converted in Render"
+          end
+        end
+        @details.text = get_details
+      end
+      
+      button "Save" do
+        savep = ask_save_file
+        if savep
+          ext = File.extname(savep)
+          case ext
+          when  '.png'
+            @current_svg.export filename: savep
+          when '.svg', '.pdf', '.ps'
+            @current_svg.save filename: savep, format: ext
+          else
+            alert "not png, svg, ps or pdf"
+          end
+        end
+      end
+
+      button "Quit", margin: [10,0,0,0] do; Shoes.quit; end
+    end
+
+    flow do
+      @group = check checked: false
+      para "use image group", margin_right: 20
+      @subid = edit_line :width => 120, text: ""
+
+      @lbw = list_box do |lb|
+        @subid.text = '#' + (lb.text.nil? ? "": lb.text)
+      end
+    end
+
+    flow do
+      @aspect = check checked: true
+      para "use image aspect", margin_right: 16
+      @specified = edit_line :width => 100, text: "1.00"
+    end
+  end
+end

data/examples/legacy/not_checked/good/vjot.rb

@@ -0,0 +1,56 @@
+NOTES = [['Welcome to the vJot Clone', <<-'END']]
+This sample app is a notetaker, a clone of PJ Hyett's vjot.com.
+
+Creating
+----------
+Click "Add a New Note" and the jot will be loaded into the editor for reading or editing.
+
+Editing
+---------
+Click a jot's title to load it.
+
+Saving
+--------
+There is no save button, the jot is saved as you edit.
+
+END
+
+Shoes.app :title => "vJot", 
+  :width => 420, :height => 560, :resizable => false do
+
+  @note = NOTES.first
+  background "#C7EAFB"
+  stack :width => 400, :margin => 20 do
+    background "#eee", :curve => 12
+    border "#00D0FF", :strokewidth => 3, :curve => 12
+    stack :margin => 20 do
+      caption "vJot"
+      @title = edit_line @note[0], :width => 1.0 do
+        @note[0] = @title.text
+        load_list
+      end
+      stack :width => 1.0, :height => 200, :scroll => true do
+        @list = para
+      end
+      @jot = edit_box @note[1], :width => 1.0, :height => 200, :margin_bottom => 20 do
+        @note[1] = @jot.text
+      end
+    end
+  end
+
+  def load_list
+    @list.replace *(NOTES.map { |note|
+      [link(note.first) { @note = load_note(note); load_list }, "\n"] 
+    }.flatten +
+      [link("+ Add a new Note") { NOTES << (@note = load_note); load_list }])
+  end
+
+  def load_note(note = ['New Note', ''])
+    @note = note
+    @title.text = note[0]
+    @jot.text = note[1]
+    note
+  end
+
+  load_list
+end

data/examples/legacy/not_checked/shoes-contrib/.gitignore

@@ -0,0 +1,2 @@
+*~
+*.swp

data/examples/legacy/not_checked/shoes-contrib/README.md

@@ -0,0 +1,34 @@
+         /)                                  ,  /)
+     _  (/   ___ _  _     _  _____  _/_ __     (/_
+    /_)_/ )_(_)_(/_/_)_  (__(_) / (_(__/ (__(_/_) 
+                                               
+# Welcome to Shoes-Contrib
+
+You've found the shoes-contrib project.
+
+## What is shoes-contrib?
+
+Shoes-contrib is a collection of examples for [Shoes](http://shoesrb.com/),
+the best little GUI toolkit for Ruby. We've packaged up a bunch of great
+little scripts to show off different parts of Shoes, so if you're looking
+to tinker around, need to find an example of some part of the api, or just
+want to see what Shoes can do, you're in the right place!
+
+## How can I try the examples out?
+
+If you'd like to give a specific example a shot, you can just copy any of
+the examples into a file, and open them with Shoes. Easy peasy!
+
+If you'd like to try out a bunch of examples, you can open the [browser.rb](http://github.com/shoes/shoes-contrib/blob/master/browser.rb)
+file with Shoes, and it'll give you a little app that opens any of the other
+examples, perfect for playing with a few of them!
+
+## How can I contribute?
+
+If you've got any fun examples with Shoes, please fork the repo, add them, and
+send us a pull request! Bonus points for smaller examples, ones with comments,
+and screenshots of your example in action.
+
+## I have a question!
+
+If something's not clear, just send an email to the shoes mailing list, shoes@librelist.com, and we'll straighten things out. Or, hop on #shoes on Freenode, if you're into that whole IRC thing.

data/examples/legacy/not_checked/shoes-contrib/animation/animate-ovals.rb

@@ -0,0 +1,21 @@
+Shoes.app(:width => 300,
+  :height => 400) do
+  
+  fill rgb(0, 0.6, 0.9, 0.1)
+  stroke rgb(0, 0.6, 0.9)
+  strokewidth 0.25
+ 
+  @shoes = [] 
+  10.times {
+    @shoes.push(oval :left => (-5..self.width).rand,
+      :top => (-5..self.height).rand,
+      :radius => (25..50).rand)
+  }
+
+  animate do |i|
+    @shoes.each do |s| 
+      s.top += (-20..20).rand
+      s.left += (-20..20).rand
+    end 
+  end
+end

data/examples/legacy/not_checked/shoes-contrib/animation/flowers.rb

@@ -0,0 +1,59 @@
+#
+# This is from juixe "Running with Shoes - 2D Examples" 
+# http://juixe.com/techknow/index.php/2007/10/19/running-with-shoes-2d-examples/ 
+#
+# This is an animation of two concentric sets of circles moving in different
+# directions. As the circles move they change size and color. 
+#
+
+degree = 0
+color = 0
+size = 0
+
+Shoes.app :width => 537, :height => 500 do
+  mx, my = (500/2).to_i, (537/2).to_i
+  animate(24) do
+    clear do
+      # Manage color
+      nostroke
+      background rgb(1.0, 0.5, 1.0, 1.0)
+
+      # Update some variables
+      degree += 1
+      size += 1
+      degree = 0 if(degree >= 360)
+      size = 0 if(size >= 100)
+      color = 0.0 if(color >= 1.0)
+      color += 0.05 if(degree % 10 == 0)
+
+      # Draw inner circle
+      fill red(color)
+      10.times do |i|
+        current_size = 100 + size
+        d = to_radians(i * 60 + degree)
+        rx = Math::cos(d) * 100
+        ry = Math::sin(d) * 100
+        center_x = -current_size/2 + rx + mx
+        center_y = -current_size/2 + ry + my
+        oval center_x, center_y, current_size, current_size
+      end
+
+      # Draw outer circle
+      fill blue(color)
+      20.times do |i|
+        current_size = 50 + size
+        d = to_radians(i * 30 - degree)
+        rx = Math::cos(d) * 150
+        ry = Math::sin(d) * 150
+        center_x = -current_size/2 + rx + mx
+        center_y = -current_size/2 + ry + my
+        oval center_x, center_y, current_size, current_size
+      end
+    end
+  end
+end
+
+# Convert degrees to radians
+def to_radians(deg)
+  deg * Math::PI / 180
+end

data/examples/legacy/not_checked/shoes-contrib/animation/happy-trails.rb

@@ -0,0 +1,31 @@
+#
+# Example from Getting Started with Shoes on OS X blog post found here:
+# http://lethain.com/entry/2007/oct/15/getting-started-shoes-os-x/
+#
+trails = [[0,0]] * 60
+shape = 0
+Shoes.app do
+  keypress do |k|
+    case k
+      when " "
+        shape += 1
+    end
+  end
+  nostroke
+  fill rgb(0x30, 0xFF, 0xFF, 0.6)
+  animate(24) do 
+    trails.shift
+    trails << self.mouse[1,2]
+    clear do
+      trails.each_with_index do |(x, y), i|
+        i += 1
+        case shape%2
+        when 0
+          rect :left => x, :top => y, :width => i, :height => i
+        else
+          oval :left => x, :top => y, :radius => i, :center => true
+        end
+      end
+    end
+  end
+end

data/examples/legacy/not_checked/shoes-contrib/animation/mice-satellites.rb

@@ -0,0 +1,27 @@
+#
+# From infoq: "Ruby Shoes for lightweight GUIs, graphics and animation"
+# http://www.infoq.com/news/2007/09/ruby-shoes
+#
+Shoes.app do
+ radius = 20.0
+ vert = width - 30.0
+ hor = width - 30.0
+ o = oval(hor, vert, 10.0)
+ animate(10) do  |anim|
+  nofill
+  clear do
+   oval(hor - radius, vert-radius, radius*2.0)
+   satellites = vert /10
+   satellites.to_i.times {|x|
+    h = hor + Math::sin(((6.28/satellites) * x )) * 40.0
+    v = vert - Math::cos(((6.28/satellites) * x ))* 40.0
+    fill rgb(1.0/satellites, 1.0/satellites, 0.8)     
+    oval(h, v, 5.0)    
+   }
+   skew vert/10*Math::cos(anim)
+  end
+ end
+ motion do |x,y|
+  hor, vert = x, y  
+ end
+end

data/examples/legacy/not_checked/shoes-contrib/animation/oval-motion.rb

@@ -0,0 +1,12 @@
+Shoes.app do
+  @o = oval :top => 0, :left => 0, :radius => 40
+  
+  stack :margin => 40 do
+    title "Dancing With a Circle"
+    subtitle "How graceful and round."
+  end
+
+  motion do |x,y|
+    @o.move width - x, height - y
+  end
+end