lacci 0.2.1

data/examples/legacy/not_checked/shoes-contrib/good/good-arc.rb

@@ -0,0 +1,37 @@
+#
+# a translation from a processing example
+# http://vormplus.be/weging/an-introduction-to-processing/
+#
+Shoes.app :width => 420, :height => 420, :resizable => false do
+  stage, wide, sw, basesize, step = 0, 3.0, 1.0, 600, 60
+  stroke gray(127)
+  nofill
+
+  animate 40 do |i|
+    stage = (1...8).rand if i % 40 == 0
+    rotation = -(HALF_PI / wide)
+    clear do
+      background gray(240)
+      10.times do |i|
+        strokewidth sw * i
+        size = (basesize / 3) + ((step / 3) * i)
+        shape do
+          arc self.width / 2, self.height / 2,
+              size, size,
+              rotation * i, rotation * i + TWO_PI - HALF_PI
+        end
+      end
+    end
+
+    case stage
+    when 1; wide -= 0.1
+    when 2; wide += 0.1
+    when 3; basesize -= 1
+    when 4; basesize += 2
+    when 5; sw += 0.1
+    when 6; sw -= 0.01
+    when 7; step += 2
+    else    step -= 1
+    end
+  end
+end

data/examples/legacy/not_checked/shoes-contrib/good/good-clock.rb

@@ -0,0 +1,51 @@
+#
+# Shoes Clock by Thomas Bell
+# posted to the Shoes mailing list on 04 Dec 2007
+#
+Shoes.app :height => 260, :width => 250 do
+  @radius, @centerx, @centery = 90, 126, 140
+  animate(8) do
+    @time = Time.now
+    clear do
+      draw_background
+      stack do
+        background black
+        para @time.strftime("%a"),
+          span(@time.strftime(" %b %d, %Y "), :stroke => "#ccc"), 
+          strong(@time.strftime("%I:%M"), :stroke => white), 
+          @time.strftime(".%S"), :align => "center", :stroke => "#666",
+            :margin => 4
+      end
+      clock_hand @time.sec + (@time.usec * 0.000001),2,30,red
+      clock_hand @time.min + (@time.sec / 60.0),5
+      clock_hand @time.hour + (@time.min / 60.0),8,6
+    end
+  end
+  def draw_background
+    background rgb(230, 240, 200)
+
+    fill white
+    stroke black
+    strokewidth 4
+    oval @centerx - 102, @centery - 102, 204, 204
+
+    fill black
+    nostroke
+    oval @centerx - 5, @centery - 5, 10, 10
+
+    stroke black
+    strokewidth 1
+    line(@centerx, @centery - 102, @centerx, @centery - 95)
+    line(@centerx - 102, @centery, @centerx - 95, @centery)
+    line(@centerx + 95, @centery, @centerx + 102, @centery)
+    line(@centerx, @centery + 95, @centerx, @centery + 102)
+  end
+  def clock_hand(time, sw, unit=30, color=black)
+    radius_local = unit == 30 ? @radius : @radius - 15
+    _x = radius_local * Math.sin( time * Math::PI / unit )
+    _y = radius_local * Math.cos( time * Math::PI / unit )
+    stroke color
+    strokewidth sw
+    line(@centerx, @centery, @centerx + _x, @centery - _y)
+  end
+end

data/examples/legacy/not_checked/shoes-contrib/good/good-follow.rb

@@ -0,0 +1,26 @@
+trails = [[0, 0]] * 60
+Shoes.app :width => 200, :height => 200, :resizable => false do
+  nostroke
+  fill rgb(0x3, 0x1, 0x3, 0.6)
+
+  # animation at 100 frames per second
+  animate(60) do
+    trails.shift
+    trails << self.mouse[1, 2]
+
+    clear do
+      # change the background based on where the pointer is
+      background rgb(
+        20 + (70 * (trails.last[0].to_f / self.width)).to_i, 
+        20 + (70 * (trails.last[1].to_f / self.height)).to_i,
+        51)
+
+      # draw circles progressively bigger
+      trails.each_with_index do |(x, y), i|
+        i += 1
+        oval :left => x, :top => y, :radius => (i*0.5), :center => true
+      end
+    end
+  end
+
+end

data/examples/legacy/not_checked/shoes-contrib/good/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/shoes-contrib/good/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/kernel/ask.rb

@@ -0,0 +1,4 @@
+Shoes.app do
+  name = ask("Well hello there, what might your name be?")
+  alert(name)
+end

data/examples/legacy/not_checked/shoes-contrib/kernel/ask_color.rb

@@ -0,0 +1,4 @@
+Shoes.app do
+  backcolor = ask_color("Pick a background")
+  background backcolor
+end

data/examples/legacy/not_checked/shoes-contrib/kernel/ask_open_file.rb

@@ -0,0 +1,4 @@
+Shoes.app do
+  filename = ask_open_file
+  para File.read(filename)
+end

data/examples/legacy/not_checked/shoes-contrib/kernel/ask_save_file.rb

@@ -0,0 +1,7 @@
+Shoes.app do
+  file = ask_open_file
+  button "Save file as" do
+    save_as = ask_save_file
+  end 
+  para File.read(file)
+end

data/examples/legacy/not_checked/shoes-contrib/kernel/confirm.rb

@@ -0,0 +1,3 @@
+if confirm("Draw a circle?")
+  Shoes.app{ oval :top => 0, :left => 0, :radius => 50 }
+end

data/examples/legacy/not_checked/shoes-contrib/kernel/debug.rb

@@ -0,0 +1,4 @@
+Shoes.app do
+  debug("Running Shoes on " + RUBY_PLATFORM)
+  debug("Running Shoes version " + VERSION)
+end

data/examples/legacy/not_checked/shoes-contrib/kernel/exit.rb

@@ -0,0 +1,5 @@
+Shoes.app do
+  button "Ragequit" do
+    exit
+  end
+end

data/examples/legacy/not_checked/shoes-contrib/kernel/font.rb

@@ -0,0 +1,5 @@
+if Shoes::FONTS.include? "Helvetica"
+  alert "Helvetica is available on this system."
+else
+  alert "You do not have the Helvetica font."
+end

data/examples/legacy/not_checked/shoes-contrib/kernel/fonts.rb

@@ -0,0 +1,3 @@
+Shoes.app do
+  alert Shoes::FONTS
+end

data/examples/legacy/not_checked/shoes-contrib/manipulation/append-slot.rb

@@ -0,0 +1,9 @@
+Shoes.app do
+  @slot = stack { para 'Good Morning' }
+  timer 3 do
+    @slot.append do
+      title "Breaking News"
+      tagline "Astronauts arrested for space shuttle DUI."
+    end
+  end
+end

data/examples/legacy/not_checked/shoes-contrib/manipulation/clear-slot.rb

@@ -0,0 +1,6 @@
+Shoes.app do
+  @slot = stack { para "Old text" }
+  button "Update" do
+    @slot.clear { para "brand new text" }
+  end
+end

data/examples/legacy/not_checked/shoes-contrib/manipulation/prepend-slot.rb

@@ -0,0 +1,6 @@
+Shoes.app do
+  @slot = stack { para 'Good Morning' }
+  button "Prepend" do
+    @slot.prepend { para "Your car is ready." }
+  end
+end

data/examples/legacy/not_checked/shoes-contrib/manipulation/roll.rb

@@ -0,0 +1,17 @@
+Shoes.app do
+  @to_roll = flow :height => 100, :margin => 5 do
+    background lightyellow, :curve => 10
+    para link('Roll me up!').click{ roll_up(@to_roll) }, :margin => 35
+  end
+  def roll_up(slot, speed = 30, step = 8)
+    animate speed do
+      if slot.height <= step
+        slot.hide
+        stop
+      else
+        slot.height -= step
+      end
+    end
+  end
+end
+

data/examples/legacy/not_checked/shoes-contrib/position/gutter-margin.rb

@@ -0,0 +1,5 @@
+Shoes.app do
+  stack :margin_right => 20 + gutter do
+    para "Insert fat and ratified declaration of independence here..."
+  end
+end

data/examples/legacy/not_checked/shoes-contrib/position/stack-width.rb

@@ -0,0 +1,3 @@
+Shoes.app do
+  stack(:width => 150) { para "Now that's precision." }
+end

data/examples/legacy/not_checked/shoes-contrib/simple/simple-accordion.rb

@@ -0,0 +1,75 @@
+module Accordion
+  def open_page stack
+    active = app.slot.contents.map { |x| x.contents[1] }.
+      detect { |x| x.height > 0 }
+    return if active == stack
+    a = animate 60 do
+      stack.height += 20
+      active.height = 240 - stack.height if active
+      a.stop if stack.height == 240
+    end
+  end
+  def page title, text
+    @pages ||= []
+    @pages <<
+      stack do
+        page_text = nil
+        stack :width => "100%" do
+          background "#fff".."#eed"
+          hi = background "#ddd".."#ba9", :hidden => true
+          para link(title) {}, :size => 26
+          hover { hi.show }
+          leave { hi.hide }
+          click { open_page page_text }
+        end
+        page_text =
+          stack :width => "100%", :height => (@pages.empty? ? 240 : 0) do
+            stack :margin => 10 do
+              text.split(/\n{2,}/).each do |pg|
+                para pg
+              end
+            end
+          end
+      end
+  end
+end
+
+Shoes.app do
+  extend Accordion
+  style(Link, :stroke => black, :underline => nil, :weight => "strong")
+  style(LinkHover, :stroke => black, :fill => nil, :underline => nil)
+
+  page "0.0", <<-'END'
+There is a thought
+I have just had
+Which I don’t care to pass to
+Anyone at all at this time.
+
+I have even forgotten it now,
+But kept only the pleasures
+Of my property
+And of my controlled mental slippage.
+END
+  page "0.1", <<-'END'
+My eyes have blinked again
+And I have just realized
+This upright world
+I have been in.
+
+My eyelids wipe
+My eyes hundreds of times
+Reseting and renovating
+The scenery.
+END
+  page "0.2", <<-'END'
+Sister, without you,
+The universe would
+Have such a hole through it,
+Where infinity has been shot.
+
+This cannot be, though.
+There will always be room
+For you—all of us are
+Holding the way open.
+END
+end

data/examples/legacy/not_checked/shoes-contrib/simple/simple-anim-shapes.rb

@@ -0,0 +1,17 @@
+Shoes.app do
+  background rgb(0, 0, 0)
+  fill rgb(255, 255, 255)
+  rects = [
+    rect(0, 0, 50, 50),
+    rect(0, 0, 100, 100),
+    rect(0, 0, 75, 75)
+  ] 
+  animate(24) do |i|
+    rects.each do |r|
+      r.move((0..400).rand, (0..400).rand)
+    end
+  end
+  button "OK", :top => 0.5, :left => 0.5 do
+    quit unless confirm "You ARE sure you're OK??"
+  end
+end

data/examples/legacy/not_checked/shoes-contrib/simple/simple-anim-text.rb

@@ -0,0 +1,13 @@
+Shoes.app do
+  stack :top => 0.5, :left => 0.5 do
+    para "Counting up:"
+    l = para "0"
+    animate(24) do |i|
+      f = ['Arial 14px', 'Serif 34px', 'Monospace 18px', 'Arial 48px'][rand(3)]
+      l.replace "#{i}", :font => f
+    end
+    motion do |x, y|
+      Shoes.p [x, y]
+    end
+  end
+end

data/examples/legacy/not_checked/shoes-contrib/simple/simple-arc.rb

@@ -0,0 +1,23 @@
+#
+# a translation from a processing example
+# http://vormplus.be/weging/an-introduction-to-processing/
+#
+Shoes.app :width => 420, :height => 420, :resizable => false do
+  rotation = -(Shoes::HALF_PI / 3)
+  step = 20 
+
+  background gray(240)
+  stroke gray(127)
+  cap :curve
+  nofill
+
+  10.times do |i|
+    strokewidth i
+    size = 200 + (step * i)
+    shape do
+      arc self.width / 2, self.height / 2,
+          size, size,
+          rotation * i, rotation * i + Shoes::TWO_PI - Shoes::HALF_PI
+    end
+  end
+end

data/examples/legacy/not_checked/shoes-contrib/simple/simple-bounce.rb

@@ -0,0 +1,24 @@
+xspeed, yspeed = 8.4, 6.6
+xdir, ydir = 1, 1
+
+Shoes.app do
+  background "#DFA"
+  border black, :strokewidth => 6
+
+  nostroke
+  @icon = image "#{DIR}/static/shoes-icon.png", :left => 100, :top => 100 do
+    alert "You're soooo quick."
+  end
+
+  x, y = self.width / 2, self.height / 2
+  size = @icon.size
+  animate(30) do
+    x += xspeed * xdir
+    y += yspeed * ydir
+    
+    xdir *= -1 if x > self.width - size[0] or x < 0
+    ydir *= -1 if y > self.height - size[1] or y < 0
+
+    @icon.move x.to_i, y.to_i
+  end
+end

data/examples/legacy/not_checked/shoes-contrib/simple/simple-calc.rb

@@ -0,0 +1,70 @@
+class Calc
+  def initialize
+    @number = 0
+    @previous = nil
+    @op = nil
+  end
+
+  def to_s
+    @number.to_s
+  end
+  
+  (0..9).each do |n|
+    define_method "press_#{n}" do
+      @number = @number.to_i * 10 + n
+    end
+  end
+
+  def press_clear
+    @number = 0
+  end
+
+  {'add' => '+', 'sub' => '-', 'times' => '*', 'div' => '/'}.each do |meth, op|
+    define_method "press_#{meth}" do
+      if @op
+        press_equals
+      end
+      @op = op
+      @previous, @number = @number, nil
+    end
+  end
+
+  def press_equals
+    @number = @previous.send(@op, @number.to_i)
+    @op = nil
+  end
+
+end
+
+number_field = nil
+number = Calc.new
+Shoes.app :height => 250, :width => 200, :resizable => false do
+  background "#EEC".."#996", :curve => 5, :margin => 2
+
+  stack :margin => 2 do
+
+    stack :margin => 8 do
+      number_field = para strong(number)
+    end
+
+    flow :width => 218, :margin => 4 do
+      %w(7 8 9 / 4 5 6 * 1 2 3 - 0 Clr = +).each do |btn|
+        button btn, :width => 46, :height => 46 do
+          method = case btn
+            when /[0-9]/; 'press_'+btn
+            when 'Clr'; 'press_clear'
+            when '='; 'press_equals'
+            when '+'; 'press_add'
+            when '-'; 'press_sub'
+            when '*'; 'press_times'
+            when '/'; 'press_div'
+          end
+          
+          number.send(method)
+          number_field.replace strong(number)
+        end
+      end
+    end
+  end
+
+end