purple_shoes 0.0.101

data/samples/sample20.rb

@@ -0,0 +1,26 @@
+# This is a tiny flip book (aka Para-Para Manga in Japanese)
+# original is http://www.paraman.net/play/preview/1258
+# 
+require 'purple_shoes'
+
+Shoes.app title: 'potacho', width: 175, height: 160 do
+  background tan
+  
+  @imgs = []
+  1.upto 59 do |i|
+    @imgs << image(File.join(DIR, "../samples/potato_chopping/1258_s#{"%03d" % i}.gif")).hide.move(10, 10)
+  end
+
+  @imgs.first.show
+  
+  def potacho
+    @imgs[58].hide
+    a = animate 12 do |i|
+      @imgs[i].show
+      @imgs[i-1].hide if i > 0
+      a.stop if i > 57
+    end
+  end
+  
+  button('  start  '){potacho}.move 10, 130
+end

data/samples/sample21.rb

@@ -0,0 +1,7 @@
+require 'purple_shoes'
+
+Shoes.app width: 300, height: 100 do
+  background forestgreen, curve: 30
+  border gold, strokewidth: 5, curve: 30
+  subtitle fg(strong('Shoes Shoes Shoes'), white), align: 'center'
+end

data/samples/sample22.rb

@@ -0,0 +1,13 @@
+require 'purple_shoes'
+
+Shoes.app do
+  background chocolate..black, angle: 130
+  strokewidth 20
+  border deeppink..forestgreen, curve: 30
+  nostroke
+  fill crimson..cyan
+  oval 100, 100, 100, 100, angle: 45
+  nofill
+  strokewidth 50
+  rect 200, 200, 300, 200, stroke: darkblue..ivory, angle: 90
+end

data/samples/sample23.rb

@@ -0,0 +1,10 @@
+require 'purple_shoes'
+
+Shoes.app width: 300, height: 300 do
+  fname = File.join(DIR, '../static/purple_shoes-icon.png')
+  background yellow..orange, angle: 90
+  border fname, strokewidth: 20, curve: 100
+  fill fname
+  nostroke
+  oval 100, 100, 100, 100
+end

data/samples/sample24.rb

@@ -0,0 +1,22 @@
+require 'purple_shoes'
+
+Shoes.app width: 400, height: 400 do
+  #cap [:rect, :curve, :project][rand 3]
+  background yellow
+  rect 0, 0, 100, 100
+  rect 100, 100, 100, 100
+  rect 200, 200, 100, 100
+  rect 0, 200, 100, 100
+  rect 200, 0, 100, 100
+  stroke File.join(DIR, '../static/purple_shoes-icon.png')
+  strokewidth 10
+  line 355, 180, 5, 111, strokewidth: 20
+  stroke red
+  line 0, 0, 100, 0
+  line 0, 100, 0, 0
+  line 300, 200, 200, 200
+  line 100, 200, 200, 100
+  stroke white
+  line 200, 200, 200, 300
+  line 300, 200, 200, 100
+end

data/samples/sample25.rb

@@ -0,0 +1,22 @@
+require 'purple_shoes'
+
+Shoes.app width: 305, height: 460 do
+  background lightskyblue
+
+  flow do
+    background green
+    3.times do
+      button 'button', margin: 5
+      edit_line margin_top: 5
+    end
+  end
+
+  image File.join(DIR, '../static/purple_shoes-icon.png'), margin: 20, margin_left: 80
+  tagline fg(em(strong('A sample for margin style.')), maroon), 
+    margin: [30, 0, 0, 30]
+
+  flow do
+    background gold
+    10.times{button 'button', margin: [10, 5, 0, 5]}
+  end
+end

data/samples/sample27.rb

@@ -0,0 +1,19 @@
+require 'purple_shoes'
+
+Shoes.app do
+  button 'go' do
+    p = para 0, top: 30
+    a = every do |i|
+      j = i*20
+      p.text = i.to_s
+      para i.to_s, left: j*2, top: 30
+      oval 100+j, 100+j, 10, 10
+      a.stop if i > 8
+    end
+
+    timer 10 do
+      p.text = 'hello'
+      para 'purple shoes', top: 200
+    end
+  end
+end

data/samples/sample28.rb

@@ -0,0 +1,64 @@
+# The Game Snake. Refer to Gallery No.7: http://shoes-tutorial-note.heroku.com/html/01120_Fancy_Gallery_6-10.html
+require 'purple_shoes'
+
+Shoes.app :title => 'Snake Game v0.1' do
+  background black
+
+  def game_start
+    @score = para fg('Score:       ', white)
+    @pos = {:up => [0, -10], :down => [0, 10], :left => [-10, 0], :right => [10, 0]}
+    @rx, @ry = proc{20 + 10*rand(56)}, proc{40 + 10*rand(44)}
+
+    @foods = []
+    stroke lime
+    50.times{@foods << rect(@rx[], @ry[], 10, 10)}
+
+    @bricks = []
+    stroke deepskyblue; fill blue
+    50.times{@bricks << rect(@rx[], @ry[], 10, 10)}
+    20.step(570, 10){|n| @bricks << rect(n, 40, 10, 10) << rect(n, 470, 10, 10)}
+    40.step(470, 10){|n| @bricks << rect(10, n, 10, 10) << rect(570, n, 10, 10)}
+
+    @snake = []
+    stroke white; nofill
+    @snake << rect(300, 100, 10, 10)
+    @snake[0].style stroke: red
+
+    dir = :left
+    @run  = animate 5, false do
+      check_food
+      go dir
+      @score.text = "Score: #{@snake.length * 10}"
+      brick? @snake[0]
+    end
+    keypress{|k| k = k[6..-1].to_s.downcase.to_sym; dir = k if @pos.keys.include? k}
+  end
+
+  def go k
+    x, y = @pos[k]
+    @snake.unshift @snake.pop
+    n = @snake.length > 1 ? 1 : 0
+    @snake[0].move @snake[n].left + x, @snake[n].top + y
+    @snake[0].style stroke: red
+    @snake[1].style stroke: white if n > 0
+  end
+
+  def check_food
+    (@snake << rect(0, 0, 10, 10)) if eat? @snake[0]
+  end
+
+  def eat? s
+    @foods.each_with_index do |f, i|
+      (f.move @rx[], @ry[]; return true) if f.left == s.left and f.top == s.top
+    end
+    return false
+  end
+
+  def brick? s
+    @bricks.each do |b|
+      (@run.stop; alert 'Game Over. ') if b.left == s.left and b.top == s.top      
+    end
+  end
+
+  game_start
+end

data/samples/sample29.rb

@@ -0,0 +1,12 @@
+require 'purple_shoes'
+
+Shoes.app do
+  lb = list_box items: COLORS.keys.map(&:to_s), choose: 'red' do |s|
+    @o.style fill: eval(s.text)
+    @p.text = s.text
+  end.move(300, 0)
+  @p = para
+  nostroke
+  @o = oval 100, 100, 100, 100
+  button('print'){para lb.text; flush}.move(500, 0)
+end

data/samples/sample3.rb

@@ -0,0 +1,10 @@
+require 'purple_shoes'
+
+Shoes.app width: 300, height: 400 do
+  fill rgb(0, 0.6, 0.9, 0.1)
+  stroke rgb(0, 0.6, 0.9, 0.3)
+  strokewidth 1
+  100.times do
+    oval left: (-30..self.width).rand, top: (-30..self.height).rand, radius: (25..50).rand
+  end
+end

data/samples/sample30.rb

@@ -0,0 +1,30 @@
+# Almost same code as sample22.rb : http://shoes-tutorial-note.heroku.com/html/00508_The_Widget_class.html
+
+require 'purple_shoes'
+#require 'green_shoes'
+class Answer < Shoes::Widget
+  attr_reader :mark
+  def initialize word
+    flow do
+      para word, width: 70
+      @mark = image(File.join(DIR, '../samples/loogink.png'), width: 20, height: 20).hide
+    end
+  end
+end
+
+Shoes.app width: 200, height: 80 do
+  stack width: 0.5 do
+    background palegreen
+    para '1. apple'
+    ans = answer '2. tomato'
+    para '3. orange'
+    button('Ans.'){ans.mark.toggle}
+  end
+  stack width: 0.5 do
+    background lightsteelblue
+    para '1. cat'
+    para '2. dog'
+    ans = answer '3. bird'
+    button('Ans.'){ans.mark.toggle}
+  end
+end

data/samples/sample31.rb

@@ -0,0 +1,24 @@
+require 'purple_shoes'
+
+Shoes.app do
+  strokewidth 3
+  eles = []
+  eles << oval(0, 0, 300, angle: 90)
+  eles << rect(50, 50, 350, 350, curve: 10)
+  eles << star(300, 300, 30, 200, 180)
+  eles << shape(left: 200, top: 150, width: 300, height: 300, rotate: [45, 300, 300]){
+    move_to 200, 200
+    line_to 200, 100
+    quad_to 100, 100, 20, 200
+    line_to 20, 100
+  }
+  eles << line(100, 100, 480, 480)
+
+  button 'change colors' do
+    eles.each do |ele|
+      colors = []
+      4.times{colors << send(COLORS.keys[rand(COLORS.keys.size)])}
+      ele.style fill: colors[0]..colors[1], stroke: colors[2]..colors[3]
+    end
+  end
+end

data/samples/sample34.rb

@@ -0,0 +1,29 @@
+# Refer to NKS (Nobody Knows Shoes) page 21.
+
+require 'purple_shoes'
+
+Shoes.app width: 280, height: 350 do
+  flow width: 1.0, margin: 10 do
+    flow do
+      background gold, curve: 10
+      stack width: 1.0 do
+        banner "A POEM"
+      end
+      stack width: 80 do
+        para "Goes like:"
+      end
+      stack width: 180 do
+        para "the sun.\n",
+          "a lemon.\n",
+          "the goalie.\n",
+          "a fireplace.\n\n",
+          "i want to write\n",
+          "a poem for the\n",
+          "kids who haven't\n",
+          "even heard one yet.\n\n",
+          "and the goalie guards\n",
+          "the fireplace."
+      end
+    end
+  end
+end

data/samples/sample35.rb

@@ -0,0 +1,33 @@
+# original code is http://shoes-tutorial-note.heroku.com/html/00409_No.9_Shoes.url.html
+
+require 'purple_shoes'
+
+class PhotoFrame < Shoes
+  url '/', :index
+  url '/loogink', :loogink
+  url '/cy', :cy
+
+  def index
+    eval(['loogink', 'cy'][rand 2])
+  end
+
+  def loogink
+    background tomato
+    image File.join(DIR, '../samples/loogink.png'), margin: [70, 10, 0, 0]
+    para fg(strong('She is Loogink.'), white),
+      '->', link(strong('Cy')){visit '/cy'},
+      margin: 10
+    p location
+  end
+
+  def cy
+    background paleturquoise
+    image File.join(DIR, '../samples/cy.png'), margin: [70, 10, 0, 0]
+    para fg(strong('He is Cy.'), gray), '  ->', 
+      link(strong('loogink')){visit '/loogink'},
+      margin: 10
+    p location
+  end
+end
+
+Shoes.app width: 200, height: 120, title: 'Photo Frame'

data/samples/sample36.rb

@@ -0,0 +1,48 @@
+# original code is Red Shoes class-book.rb by _why
+require 'purple_shoes'
+require 'yaml'
+
+class Book < Shoes
+  url '/', :index
+  url '/incidents/(\d+)', :incident
+
+  def index
+    incident 0
+  end
+
+  INCIDENTS = YAML.load_file File.join(DIR, '../samples/class-book.yaml')
+
+  def table_of_contents
+    toc = []
+    INCIDENTS.each_with_index do |(title, story), i|
+      toc.push "(#{i + 1}) ",
+        link(title){visit "/incidents/#{i}"},
+        " / "
+    end
+    toc[0...-1] << "\n"*5
+  end
+
+  def incident num
+    self.scroll_top = 0
+    num = num.to_i
+    stack  margin_left: 200 do
+      banner "Incident", margin: [0, 10, 0, 30]
+      para strong("No. #{num + 1}: #{INCIDENTS[num][0]}"), margin_bottom: 5
+    end
+
+    flow do
+      flow width: 180, margin_left: 10 do
+        #pinning para( *table_of_contents, size: 8 )
+        para  *table_of_contents, size: 8
+      end
+
+      stack width: -180, margin: [20, 0, 10, 0] do
+        INCIDENTS[num][1].split(/\n\n+/).each do |p|
+          para p
+        end
+      end
+    end
+  end
+end
+
+Shoes.app width: 640, height: 700, title: "Incidents, a Book"

data/samples/sample37.rb

@@ -0,0 +1,10 @@
+require 'purple_shoes'
+
+Shoes.app width: 330, height: 300 do
+  nofill
+  rect 100, 20, 130, 251, stroke: red, fill: yellow
+  18.times do |i|
+    rotate 10*i, 165, 145
+    rect 100, 20, 130, 251
+  end
+end

data/samples/sample38.rb

@@ -0,0 +1,14 @@
+require 'purple_shoes'
+
+Shoes.app width: 250, height: 250 do
+  nofill
+  r = rect 50, 50, 50, 20, stroke: green
+  o = oval 150, 100, 50, 20, stroke: red
+  s = star 50, 150, 5, 30, 10, stroke: blue
+  
+  animate do |i|
+    r.rotate = [10*i, 75, 60]
+    o.rotate = [10*i, 175, 110]
+    s.rotate = [10*i, 50, 150]
+  end
+end

data/samples/sample4.rb

@@ -0,0 +1,9 @@
+require 'purple_shoes'
+
+Shoes.app width: 400, height: 300 do
+  el = edit_line text: 'hello'do |s|
+    @msg.text = s.text
+  end
+  button('move at random'){@msg.move rand(200), 50 + rand(200)}
+  @msg = para el.text
+end

data/samples/sample40.rb

@@ -0,0 +1,19 @@
+# For Christmas
+require 'purple_shoes'
+
+Shoes.app width: 330, height: 300 do
+  nostroke
+  background black
+  data, stars = [], []
+  5.times{data << [30+rand(10), 20+rand(200), 20+rand(200)]}
+  5.times{|j| stars << star(data[j][1], data[j][2], 5, data[j][0], data[j][0]/2.0, fill: gold..white, angle: 45)}
+  msg = para fg(strong('Merry Christmas'), white), size: 48
+  msg.hide
+
+  a = animate do |i|
+    rotate i*5
+    stars.each_with_index{|s, j| s.rotate = [i*5, data[j][1], data[j][2]]}
+    msg.show if i > 30
+    a.stop if i > 50
+  end
+end