purple_shoes 0.0.101

data/samples/sample42.rb

@@ -0,0 +1,15 @@
+require 'purple_shoes'
+
+Shoes.app height: 200 do
+  stack margin_left: 10 do
+    title 'Progress Example'
+    @p = para '0%'
+  end
+
+  pg = progress left: 10, top: 100, width: width - 20
+  animate do |i|
+    j = i % 100 + 1
+    pg.fraction = j / 100.0
+    @p.text = "%2d%" % (pg.fraction * 100)
+  end
+end

data/samples/sample43.rb

@@ -0,0 +1,26 @@
+require 'purple_shoes'
+
+Shoes.app do
+  stack margin_left: 10 do
+    title "Downloading Astronomy Picture of the Day",  size: 16
+    status = para "One moment..."
+    msg = para '0%'
+    dl = download "http://antwrp.gsfc.nasa.gov/apod/image/1009/venusmoon_pascual_big.jpg",
+      save: "venusmoon_pascual_big.jpg"
+
+    pg = progress left: 10, top: 100, width: width - 20
+    a = animate do
+      if dl.started?
+        pg.fraction = dl.progress.to_f / dl.content_length
+        msg.text = "%2d%" % (pg.fraction * 100)
+      end
+      if dl.finished?
+        status.text = "Okay, is downloaded."
+        status.style stroke: orangered
+        image("venusmoon_pascual_big.jpg", width: 580, height: 380).move 10, 100
+        pg.hide
+        a.stop
+      end
+    end
+  end
+end

data/samples/sample44.rb

@@ -0,0 +1,57 @@
+#
+# Shoes Clock by Thomas Bell
+# posted to the Shoes mailing list on 04 Dec 2007
+# Original code for Red Shoes is: https://github.com/shoes/shoes/blob/master/samples/good-clock.rb
+# The following is a snippet modified for Purple Shoes, using rotate instead of clear.
+#
+require 'purple_shoes'
+
+Shoes.app height: 260, width: 250 do
+  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(sw, color=black)
+    stroke color
+    strokewidth sw
+    line @centerx, @centery, @centerx + @radius, @centery
+  end
+  
+  @radius, @centerx, @centery = 90, 126, 140
+  draw_background
+  stack do
+    background black
+    @msg = para(fg(' '*3, tr_color("#666")), fg(' '*14, tr_color("#ccc")), 
+      strong(fg(' '*5, white)), fg(' '*3, tr_color("#666")), margin: 4, align: 'center')
+  end
+
+  ch1 = clock_hand 2, red
+  ch2 = clock_hand 5
+  ch3 = clock_hand 8
+
+  animate 8 do |i|
+    t = Time.new
+    h, m, s, u = t.hour, t.min, t.sec, t.usec
+    @msg.text = t.strftime("%a") + t.strftime(" %b %d, %Y ") +
+      t.strftime("%I:%M") + t.strftime(".%S")
+    ch1.rotate = [(t.sec + t.usec * 0.000001) * 6 - 90, @centerx, @centery]
+    ch2.rotate = [(t.min + t.sec / 60.0) * 6 - 90, @centerx, @centery]
+    ch3.rotate = [(t.hour + t.min / 60.0) * 30 - 90, @centerx, @centery]
+  end
+end

data/samples/sample45.rb

@@ -0,0 +1,12 @@
+require 'purple_shoes'
+
+Shoes.app height: 200 do
+  title 'Hello Green Shoes'
+  font 'Coolvetica'
+  title 'Hello Green Shoes'
+  title 'Hello Green Shoes', font: 'Lucida console'
+  font nil
+  para 'sans (default)', left: 400, top: 25
+  para 'Coolvetica', left: 400, top: 70
+  para 'Lucida Console', left: 470, top: 120
+end

data/samples/sample46.rb

@@ -0,0 +1,35 @@
+require 'purple_shoes'
+
+Shoes.app height: 250, width: 198 do
+  def do_calc
+    @number = @previous.send(@op, @number)  if @op
+    @op = nil
+  end
+  @previous, @number, @op = 0, 0, nil
+  background rgb(235, 235, 210)
+  flow margin: 5 do
+    flow height: 240, width: 190, margin: [2, 5, 0, 0] do
+      background tr_color("#996")[0, 3]..tr_color("#333")[0, 3], curve: 5
+      number_field = para strong(@number, ' '*20), stroke: white, margin: 8
+      flow width: 218 do
+        %w(7 8 9 / 4 5 6 * 1 2 3 - 0 Clr = +).each do |btn|
+          button btn, width: 46, height: 46 do
+            case btn
+            when /[0-9]/
+              @number = @number.to_i * 10 + btn.to_i
+            when 'Clr'
+              @previous, @number, @op = 0, 0, nil
+            when '='
+              do_calc
+            else
+              do_calc
+              @previous, @number = @number, nil
+              @op = btn
+            end      
+            number_field.text = @number.to_s
+          end
+        end
+      end
+    end
+  end
+end

data/samples/sample47.rb

@@ -0,0 +1,20 @@
+require 'purple_shoes'
+
+Shoes.app do
+  flow width: 0.3, height: 0.5 do
+    background lawngreen
+    edit_line width: 0.5, margin: 10, text: 'edit_line'
+  end
+  flow width: 0.4, height: 0.5 do
+    background goldenrod
+    edit_box width: 1.0, height: 1.0, margin: 20, text: "edit_box\n" * 3
+  end
+  flow width: 0.3, height: 0.5 do
+    background salmon
+    button 'Shoes', width: 1.0, height: 1.0, margin: 50
+  end
+  flow width: 1.0, height: 0.5 do
+    background plum
+    list_box items: %w[edit_box edit_line list_box button], width: 0.5 , margin: 20, choose: 'list_box'
+  end
+end

data/samples/sample48.rb

@@ -0,0 +1,33 @@
+# Original code was written by Cecil Coupe
+# He shared that in Shoes ML: http://librelist.com/browser//shoes/2011/2/17/radio-checked-method-broken/#1197b650c7dfdae2bc7c76bd9dad7e0e
+
+require 'purple_shoes'
+
+Shoes.app width: 300, height: 300 do
+  background gold..deeppink, angle: 45
+  @opt = 'none'
+  r1 = radio do
+    @opt = "First"
+  end
+  para "Radio 1", width: 70
+  r2 = radio do
+    @opt = "Second"
+  end
+  para "Radio 2", width: 70
+  r3 = radio do
+    @opt = "Third"   
+  end
+  para "Radio 3", width: 70
+
+  stack do
+    para "Default is #{@opt}"
+    # Set default for Radio Group :grp
+    r3.checked = true
+    button "Do My Bidding" do
+      @p.text += "Aye, Aye. Using #{@opt}\n"
+      flush
+    end
+    para "Choices follow\n"
+    @p = para
+  end
+end

data/samples/sample49.rb

@@ -0,0 +1,33 @@
+require 'purple_shoes'
+
+Shoes.app do
+  popup = proc{alert 'Testing style method...'}
+
+  s1 = stack width: 0.5, height: 1.0 do
+    background cornflowerblue
+    @star = star 120, 120, 10, 100, 50
+    @star.click &popup
+    @msg = para fg('Wait 5 seconds...', yellow), left: 10, top: 450
+  end
+
+  s2 = stack width: 0.5, height: 1.0 do
+    background coral
+    para 'Purple Shoes is one of colorful Shoes. It is written in JRuby with SWT.'
+    @para = para 'Testing, ', link('test', &popup), ', test. ',
+      strong('Breadsticks. '),
+      em('Breadsticks. '),
+      code('Breadsticks. '),
+      bg(fg(strong(ins('EVEN BETTER.')), white), rgb(255, 0, 192)),
+      sub('fine!')
+    para 'Yah! Yah! Yah!'
+  end
+
+  timer 5 do
+    @star.style width: 140, height: 140, left: 90, top: 90, fill: gold..deeppink, outer: 70, inner: 50
+    @para.style align: 'center', size: 24, stroke: green
+    s1.style width: 0.3
+    s2.style width: 0.7
+    @msg.text = 'Looks good to me!'
+    aflush
+  end
+end

data/samples/sample5.rb

@@ -0,0 +1,8 @@
+require 'purple_shoes'
+
+Shoes.app width: 320, height: 32 do
+  5.times do |i|
+    i+=1
+    button("sample#{i}"){load File.join(DIR, "../samples/sample#{i}.rb")}
+  end
+end

data/samples/sample50.rb

@@ -0,0 +1,326 @@
+require 'purple_shoes'
+# The original is Red Shoes built-in sample: expert-othello.rb
+# A little bit edited for Green Shoes.
+
+# 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
+  SPACE = ' ' * 57
+  
+  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 width: width-5, height: 50 do
+      if GAME.current_player==GAME.p1
+        background yellow
+        border black, strokewidth: 10
+        para strong("Player 1 (#{GAME.current_player.color}) turn"), margin: [20, 15, 0, 0]
+      else
+        background white
+        border black, strokewidth: 10
+        undo = GAME.board_history.empty? ? nil : link("Undo last move"){ GAME.undo!; draw_board }
+        para strong("Player 1"), SPACE, undo, margin: [20, 15, 0, 0]
+      end
+    end
+  end
+
+  def draw_player_2(first_turn=false)
+    stack width: width-5, height: 50 do
+      if GAME.current_player==GAME.p2 
+        background yellow
+        border black, strokewidth: 10
+        para strong("Player 2 (#{GAME.current_player.color}) turn"), margin: [20, 15, 0, 0]
+      else
+        background white
+        border black, strokewidth: 10
+        undo = GAME.board_history.empty? ? nil : link("Undo last move"){ GAME.undo!; draw_board }
+        para strong("Player 2"), SPACE, undo, margin: [20, 15, 0, 0]
+      end
+    end
+  end
+
+
+  def draw_board
+    clear do
+      background black
+      draw_player_1
+
+      stack width: width, height: 500 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 + 10
+            top = top - TOP_OFFSET + 50
+            fill rgb(0, 255, 0)
+            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
+end
+
+
+Shoes.app :width => 520, :height => 600 do
+  extend Othello
+  GAME = Othello::Game.new
+
+  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