scarpe 0.1.0 → 0.2.1

data/examples/legacy/not_checked/shoes-contrib/elements/common-styles.rb

@@ -0,0 +1,13 @@
+Shoes.app do
+  stack do
+    # background, text and a button: both are elements!
+    @back = background blue
+    @text = banner "This quick brown fox"
+    @press = button "Jumps over the lazy dog"
+
+    # And so, both can be styled.
+    @text.style :size => 24, :stroke => red, :margin => 10
+    @press.style :width => 400
+    @back.style :height => 10
+  end
+end

data/examples/legacy/not_checked/shoes-contrib/elements/displace-animation.rb

@@ -0,0 +1,13 @@
+Shoes.app do
+  flow :margin => 12 do
+    # Set up three buttons
+    button "One"
+    @two = button "Two"
+    button "Three"
+
+    # Bounce the second butotn
+    animate do |i|
+      @two.displace(0, (Math.sin(i) * 6).to_i)
+    end
+  end
+end

data/examples/legacy/not_checked/shoes-contrib/elements/edit_box-character-count.rb

@@ -0,0 +1,7 @@
+Shoes.app do
+  edit_box do |e|
+    @counter.text = e.text.size
+  end
+  @counter = strong("0")
+  para @counter, " characters"
+end

data/examples/legacy/not_checked/shoes-contrib/elements/edit_line-character-count.rb

@@ -0,0 +1,7 @@
+Shoes.app do
+  edit_line do |e|
+    @counter.text = e.text.size
+  end
+  @counter = strong("0")
+  para @counter, " characters"
+end

data/examples/legacy/not_checked/shoes-contrib/elements/image-icon.rb

@@ -0,0 +1,3 @@
+Shoes.app do
+  image "http://shoesrb.com/images/shoes-icon.png"
+end

data/examples/legacy/not_checked/shoes-contrib/elements/list_box-select-class.rb

@@ -0,0 +1,13 @@
+Shoes.app do
+  para "Choose your class:"
+  list_box :items => ["Wizard", "Warrior", "Rogue"],
+    :width => 120, :choose => "Rogue" do |list|
+      if list.text == "Wizard"
+        @player.text = "I put on my robe and wizard hat."
+      else
+        @player.text = list.text
+      end 
+  end
+
+  @player = para "No class selected."
+end

data/examples/legacy/not_checked/shoes-contrib/elements/list_box.rb

@@ -0,0 +1,6 @@
+Shoes.app do
+  stack :margin => 10 do
+    para "Pick a card:"
+    list_box :items => ["Jack", "Ace", "Joker"]
+  end
+end

data/examples/legacy/not_checked/shoes-contrib/elements/move-flow-animate.rb

@@ -0,0 +1,13 @@
+Shoes.app do
+  flow :margin => 12 do
+    # Set up three buttons
+    button "One"
+    @two = button "Two"
+    button "Three"
+
+    # Bounce the second button
+    animate do |i|
+      @two.move(40, 40 + (Math.sin(i) * 6).to_i)
+    end
+  end
+end

data/examples/legacy/not_checked/shoes-contrib/elements/phat-button.rb

@@ -0,0 +1,7 @@
+Shoes.app do
+  # A button which takes up the whole page
+  @b = button "WAT DO", :width => 1.0, :height => 1.0
+
+  # When clicked, show the styles
+  @b.click { alert(@b.style.inspect) }
+end

data/examples/legacy/not_checked/shoes-contrib/elements/popup.rb

@@ -0,0 +1,7 @@
+Shoes.app :title => "The Owner" do
+  button "Pop up?" do
+    window do
+      para "Okay, popped up from #{owner}"
+    end
+  end
+end

data/examples/legacy/not_checked/shoes-contrib/elements/progress-bar.rb

@@ -0,0 +1,10 @@
+Shoes.app do
+  stack :margin => 0.1 do
+    title "Progress example"
+    @p = progress :width => 1.0
+
+    animate do |i|
+      @p.fraction = (i % 100) / 100.0
+    end
+  end
+end

data/examples/legacy/not_checked/shoes-contrib/elements/radio-dreamcast-favs.rb

@@ -0,0 +1,17 @@
+Shoes.app do
+  stack do
+    para "Among these dreamcast games, which do you prefer?"
+    flow do
+      radio :dreamcast
+      para "Shenmue"
+    end
+    flow do
+      radio :dreamcast
+      para "Phantasy Star Online"
+    end
+    flow do
+      radio :dreamcast
+      para "Marvel Vs. Capcom II"
+    end
+  end
+end

data/examples/legacy/not_checked/shoes-contrib/elements/timer.rb

@@ -0,0 +1,6 @@
+Shoes.app do
+  timer(5) do
+    alert("Your five seconds are up.")
+  end
+end
+

data/examples/legacy/not_checked/shoes-contrib/elements/width-introspec.rb

@@ -0,0 +1,8 @@
+Shoes.app do
+  stack :width => 120 do
+    @b = button "Click me", :width => "100%" do
+      alert "button.width = #{@b.width}\n" +
+        "button.style[:width] = #{@b.style[:width]}"
+    end
+  end
+end

data/examples/legacy/not_checked/shoes-contrib/events/background-hover.rb

@@ -0,0 +1,11 @@
+Shoes.app do
+  s = stack :width => 200, :height => 200 do
+    background red
+    hover do
+      s.clear { background indigo }
+    end
+    leave do
+      s.clear { background red }
+    end
+  end
+end

data/examples/legacy/not_checked/shoes-contrib/events/motion-detect.rb

@@ -0,0 +1,9 @@
+Shoes.app :width => 200, :height => 200 do
+  background black
+  fill white
+  @circ = oval 0, 0, 100, 100
+
+  motion do |top, left|
+    @circ.move top - 50, left -50
+  end
+end

data/examples/legacy/not_checked/shoes-contrib/events/pressed-key.rb

@@ -0,0 +1,6 @@
+Shoes.app do
+  @info = para "NO KEY is PRESSED."
+  keypress do |k|
+    @info.replace "#{k.inspect} was PRESSED."
+  end
+end

data/examples/legacy/not_checked/shoes-contrib/expert/expert-funnies.rb

@@ -0,0 +1,51 @@
+require 'hpricot'
+
+class Comic
+  attr_reader :rss, :title
+
+  def initialize(body)
+    @rss = Hpricot.XML(body)
+    @title = @rss.at("//channel/title").inner_text
+  end
+
+  def items
+    @rss.search("//channel/item")
+  end
+
+  def latest_image
+    @rss.search("//channel/item").first.inner_html.scan(/src="([^"]+\.\w+)"/).first
+  end
+end
+
+Shoes.app :width => 800, :height => 600 do
+  background "#555"
+
+  @title = "Web Funnies"
+  @feeds = [
+    "http://xkcd.com/rss.xml",
+    "http://feedproxy.google.com/DilbertDailyStrip?format=xml",
+    "http://www.smbc-comics.com/rss.php",
+    "http://www.daybydaycartoon.com/index.xml",
+    "http://www.questionablecontent.net/QCRSS.xml",
+    "http://indexed.blogspot.com/feeds/posts/default?alt=rss"
+    ]
+
+  stack :margin => 10 do
+    title strong(@title), :align => "center", :stroke => "#DFA", :margin => 0
+    para "(loaded from RSS feeds)", :align => "center", :stroke => "#DFA",
+      :margin => 0
+
+    @feeds.each do |feed|
+      download feed do |dl|
+        stack :width => "100%", :margin => 10, :border => 1 do
+          c = Comic.new dl.response.body
+          stack :margin_right => gutter do
+            background "#333", :curve => 4
+            caption c.title, :stroke => "#CD9", :margin => 4
+          end
+          image c.latest_image.first, :margin => 8
+        end
+      end
+    end
+  end
+end

data/examples/legacy/not_checked/shoes-contrib/expert/expert-irb.rb

@@ -0,0 +1,112 @@
+require 'irb/ruby-lex'
+require 'stringio'
+
+class MimickIRB < RubyLex
+  attr_accessor :started
+
+  class Continue < StandardError; end
+  class Empty < StandardError; end
+
+  def initialize
+    super
+    set_input(StringIO.new)
+  end
+
+  def run(str)
+    obj = nil
+    @io << str
+    @io.rewind
+    unless l = lex
+      raise Empty if @line == ''
+    else
+      case l.strip
+      when "reset"
+        @line = ""
+      when "time"
+        @line = "puts %{You started \#{IRBalike.started.since} ago.}"
+      else
+        @line << l << "\n"
+        if @ltype or @continue or @indent > 0
+          raise Continue
+        end
+      end
+    end
+    unless @line.empty?
+      obj = eval @line, TOPLEVEL_BINDING, "(irb)", @line_no
+    end
+    @line_no += @line.scan(/\n/).length
+    @line = ''
+    @exp_line_no = @line_no
+
+    @indent = 0
+    @indent_stack = []
+
+    $stdout.rewind
+    output = $stdout.read
+    $stdout.truncate(0)
+    $stdout.rewind
+    [output, obj]
+  rescue Object => e
+    case e when Empty, Continue
+    else @line = ""
+    end
+    raise e
+  ensure
+    set_input(StringIO.new)
+  end
+
+end
+
+CURSOR = ">>"
+IRBalike = MimickIRB.new
+$stdout = StringIO.new
+
+Shoes.app do
+  @str, @cmd = [CURSOR + " "], ""
+  stack :width => 1.0, :height => 1.0 do
+    background "#555"
+    stack :width => 1.0, :height => 50 do
+      para "Interactive Ruby ready.", :fill => white, :stroke => red
+    end
+    @scroll =
+      stack :width => 1.0, :height => -50, :scroll => true do
+        background "#555"
+        @console = para @str, :font => "Monospace 12px", :stroke => "#dfa"
+        @console.cursor = -1
+      end
+  end
+  keypress do |k|
+    case k
+    when "\n"
+      begin
+        out, obj = IRBalike.run(@cmd + ';')
+        @str += ["#@cmd\n",
+          span("#{out}=> #{obj.inspect}\n", :stroke => "#fda"),
+          "#{CURSOR} "]
+        @cmd = ""
+      rescue MimickIRB::Empty
+      rescue MimickIRB::Continue
+        @str += ["#@cmd\n.. "]
+        @cmd = ""
+      rescue Object => e
+        @str += ["#@cmd\n", span("#{e.class}: #{e.message}\n", :stroke => "#fcf"),
+          "#{CURSOR} "]
+        @cmd = ""
+      end
+    when String
+      @cmd += k
+    when :backspace
+      @cmd.slice!(-1)
+    when :tab
+      @cmd += "  "
+    when :alt_q
+      quit
+    when :alt_c
+      self.clipboard = @cmd
+    when :alt_v
+      @cmd += self.clipboard
+    end
+    @console.replace *(@str + [@cmd])
+    @scroll.scroll_top = @scroll.scroll_max
+  end
+end

data/examples/legacy/not_checked/shoes-contrib/expert/expert-othello.rb

@@ -0,0 +1,319 @@
+# Othello
+# by tieg
+# 1/13/08
+# with help: DeeJay, Ryan M. from mailing list
+#
+# FIXME bug if it memorizes it but it's not a valid move
+#
+module Othello
+
+  PIECE_WIDTH  = 62
+  PIECE_HEIGHT = 62
+  TOP_OFFSET = 47
+  LEFT_OFFSET = 12
+
+  class Game
+    BOARD_SIZE = [8,8]
+
+    attr_accessor :p1, :p2, :board, :board_history
+        
+    def initialize
+      @board_history = []
+      @p1            = Player.new(:black, pieces_per_player)
+      @p2            = Player.new(:white, pieces_per_player)
+      @board         = new_board
+      lay_initial_pieces
+    end
+
+    def next_turn(check_available_moves=true)
+      @current_player = next_player
+      if check_available_moves && skip_turn?
+        # FIXME Possible infinite loop if neither player has a good move?
+        next_turn
+        raise "Player #{@current_player.piece} (#{@current_player.color}) has no available moves. Player #{next_player.piece}'s (#{next_player.color}) turn."
+      end
+    end
+
+    def current_player
+      @current_player ||= @p1
+    end
+
+    def next_player
+      current_player == @p1 ? @p2 : @p1
+    end
+
+    # Build the array for the board, with zero-based arrays.
+    def new_board
+      Array.new(BOARD_SIZE[0]) do # build each cols L to R
+        Array.new(BOARD_SIZE[1]) do # insert cells in each col
+          0
+        end
+      end
+    end
+    
+    # Lay the initial 4 pieces in the middle
+    def lay_initial_pieces
+      lay_piece([4, 3], false)
+      next_turn(false)
+      lay_piece([3, 3], false)
+      next_turn(false)
+      lay_piece([3, 4], false)
+      next_turn(false)
+      lay_piece([4, 4], false)
+      next_turn(false)
+    end
+    
+    def lay_piece(c=[0,0], check_adjacent_pieces=true)
+      memorize_board
+      piece = current_player.piece
+      opp_piece = current_player.opp_piece
+      raise "Spot already taken." if board_at(c) != 0
+      if check_adjacent_pieces
+        pieces_to_change = []
+        pieces_to_change << check_direction(c, [ 0, 1], piece, opp_piece) # N
+        pieces_to_change << check_direction(c, [ 1, 1], piece, opp_piece) # NE
+        pieces_to_change << check_direction(c, [ 1, 0], piece, opp_piece) # E
+        pieces_to_change << check_direction(c, [ 1,-1], piece, opp_piece) # SE
+        pieces_to_change << check_direction(c, [ 0,-1], piece, opp_piece) # S
+        pieces_to_change << check_direction(c, [-1,-1], piece, opp_piece) # SW
+        pieces_to_change << check_direction(c, [-1, 0], piece, opp_piece) # W
+        pieces_to_change << check_direction(c, [-1, 1], piece, opp_piece) # NW
+        raise "You must move to a spot that will turn your opponent's piece." if pieces_to_change.compact.all? { |a| a.empty? }
+        pieces_to_change.compact.each { |direction| direction.each { |i| @board[i[0]][i[1]] = piece } }
+      end
+      current_player.pieces -= 1
+      @board[c[0]][c[1]] = piece
+      current_winner = calculate_current_winner
+      raise "Game over. Player #{current_winner.piece} wins with #{current_winner.pieces_on_board} pieces!" if @p1.pieces + @p2.pieces == 0
+    end
+    
+    def skip_turn?
+      possibles = []
+      @board.each_with_index { |col,col_index| 
+        col.each_with_index { |cell,row_index| 
+          return false if possible_move?([col_index,row_index])
+        } 
+      }
+      true
+    end
+    
+    def possible_move?(c=[0,0])
+      return nil if board_at(c) != 0
+      possible_moves = []
+      piece = current_player.piece
+      opp_piece = current_player.opp_piece
+      pieces_to_change = []
+      pieces_to_change << check_direction(c, [ 0, 1], piece, opp_piece) # N
+      pieces_to_change << check_direction(c, [ 1, 1], piece, opp_piece) # NE
+      pieces_to_change << check_direction(c, [ 1, 0], piece, opp_piece) # E
+      pieces_to_change << check_direction(c, [ 1,-1], piece, opp_piece) # SE
+      pieces_to_change << check_direction(c, [ 0,-1], piece, opp_piece) # S
+      pieces_to_change << check_direction(c, [-1,-1], piece, opp_piece) # SW
+      pieces_to_change << check_direction(c, [-1, 0], piece, opp_piece) # W
+      pieces_to_change << check_direction(c, [-1, 1], piece, opp_piece) # NW
+      return nil if pieces_to_change.compact.all? { |a| a.empty? }
+      true
+    end
+    
+    def memorize_board
+      dup_board = new_board
+      dup_board = []
+      @board.each do |col|
+        dup_board << col.dup
+      end
+      @board_history << { :player => current_player, :board => dup_board }
+    end
+
+    def undo!
+      last_move = @board_history.pop
+      @board = last_move[:board]
+      @current_player = last_move[:player]
+      @current_player.pieces += 1
+    end
+
+    def calculate_current_winner
+      @p1.pieces_on_board, @p2.pieces_on_board = 0, 0
+      @board.each { |row| 
+        row.each { |cell|
+          if cell == 1
+            @p1.pieces_on_board += 1
+          else 
+            @p2.pieces_on_board += 1
+          end
+        }
+      }
+      @p1.pieces_on_board > @p2.pieces_on_board ? @p1 : @p2
+    end
+
+    def check_direction(c, dir, piece, opp_piece)
+      c_adjacent = next_in_direction(c.dup, dir)
+      c_last = nil
+      pieces_in_between = []
+      # Find the last piece if there is one.
+      while(valid_location?(c_adjacent))
+        if board_at(c_adjacent) == opp_piece
+          pieces_in_between << c_adjacent.dup
+        elsif board_at(c_adjacent) == piece && pieces_in_between.size > 0
+          c_last = c_adjacent
+          break
+        else
+          break
+        end
+        c_adjacent = next_in_direction(c_adjacent, dir)
+      end
+
+      pieces_in_between.empty? || c_last.nil? ? nil : pieces_in_between
+    end
+    
+    # Find the value of the board at the given coordinate.
+    def board_at(c)
+      @board[c[0]][c[1]]
+    end
+
+    # Is this a valid location on board?
+    def valid_location?(c=[1,1])
+      c[0] >= 0 && c[1] >= 0 && c[0] < BOARD_SIZE[0] && c[1] < BOARD_SIZE[1]
+    end
+
+    # Perform the operations to get the next spot in the appropriate direction
+    def next_in_direction(c, dir)
+      c[0] += dir[0]
+      c[1] += dir[1]
+      c
+    end
+
+    private
+    def pieces_per_player
+      total_squares / 2
+    end
+    
+    # The total number of squares
+    def total_squares
+      BOARD_SIZE[0] * BOARD_SIZE[1]
+    end
+
+    class Player
+      attr_accessor :pieces, :color, :pieces_on_board
+
+      def initialize(color=:black,pieces=0)
+        @pieces = pieces
+        @pieces_on_board = 0 # used only in calculating winner
+        @color = color
+      end
+      
+      def piece
+        color == :black ? 1 : 2
+      end
+      
+      def opp_piece
+        color == :black ? 2 : 1
+      end
+    end 
+  end
+
+  def draw_player_1(first_turn=false)
+    stack :margin => 10 do
+      if GAME.current_player==GAME.p1
+        background yellow
+        para span("Player 1 (#{GAME.current_player.color}) turn", :stroke => black, :font => "Trebuchet 20px bold"), :margin => 4
+      else
+        background white
+        para span("Player 1", :stroke => black, :font => "Trebuchet 10px bold"), :margin => 4
+
+        button("Undo last move", :top => 0, :left => -150) { GAME.undo!; draw_board } unless GAME.board_history.empty?
+      end
+    end
+  end
+
+  def draw_player_2(first_turn=false)
+    stack :top => 550, :left => 0, :margin => 10 do
+      if GAME.current_player==GAME.p2 
+        background yellow
+        para span("Player 2's (#{GAME.current_player.color}) turn", :stroke => black, :font => "Trebuchet 20px bold"), :margin => 4
+      else
+        background white
+        para span("Player 2", :stroke => black, :font => "Trebuchet 10px bold"), :margin => 4
+
+        button("Undo last move", :top => 0, :left => -150) { GAME.undo!; draw_board } unless GAME.board_history.empty?
+      end
+    end
+  end
+
+
+  def draw_board
+    clear do
+      background black
+      draw_player_1
+      stack :margin => 10 do
+        fill rgb(0, 190, 0)
+        rect :left => 0, :top => 0, :width => 495, :height => 495
+
+        GAME.board.each_with_index do |col, col_index|
+          col.each_with_index do |cell, row_index|
+            left, top = left_top_corner_of_piece(col_index, row_index)
+            left = left - LEFT_OFFSET
+            top = top - TOP_OFFSET
+            fill rgb(0, 440, 0, 90)
+            strokewidth 1
+            stroke rgb(0, 100, 0)
+            rect :left => left, :top => top, :width => PIECE_WIDTH, :height => PIECE_HEIGHT
+
+            if cell != 0
+              strokewidth 0
+              fill (cell == 1 ? rgb(100,100,100) : rgb(155,155,155))
+              oval(left+3, top+4, PIECE_WIDTH-10, PIECE_HEIGHT-10)
+
+              fill (cell == 1 ? black : white)
+              oval(left+5, top+5, PIECE_WIDTH-10, PIECE_HEIGHT-10)
+            end
+          end
+        end
+      end
+      draw_player_2
+    end
+  end
+
+  def left_top_corner_of_piece(a,b)
+    [(a*PIECE_WIDTH+LEFT_OFFSET), (b*PIECE_HEIGHT+TOP_OFFSET)]
+  end
+
+  def right_bottom_corner_of_piece(a,b)
+    left_top_corner_of_piece(a,b).map { |coord| coord + PIECE_WIDTH }
+  end
+
+  def find_piece(x,y)
+    GAME.board.each_with_index { |row_array, row| 
+      row_array.each_with_index { |col_array, col| 
+        left, top = left_top_corner_of_piece(col, row).map { |i| i - 5}
+        right, bottom = right_bottom_corner_of_piece(col, row).map { |i| i -5 }
+        return [col, row] if x >= left && x <= right && y >= top && y <= bottom
+      } 
+    }
+    return false
+  end
+
+  GAME = Othello::Game.new
+end
+
+
+Shoes.app :width => 520, :height => 600 do
+  extend Othello
+
+  draw_board
+  
+  click { |button, x, y| 
+    if coords = find_piece(x,y)
+      begin
+        GAME.lay_piece(coords)
+        GAME.next_turn
+        draw_board
+      rescue => e
+        draw_board
+        alert(e.message)
+      end
+    else
+      # alert("Not a piece.")
+    end
+  }
+end
+