purple_shoes 0.0.101

data/samples/sample1.rb

@@ -0,0 +1,30 @@
+require 'purple_shoes'
+
+xspeed, yspeed = 10, 6
+xdir, ydir = 1, 1
+
+Shoes.app width: 300, height: 300 do
+  a = nil
+  button('pause'){a.pause}
+  button('stop'){a.stop}
+  img = image File.join(DIR, '../static/purple_shoes-icon.png') do
+    alert "You're soooo quick!"
+  end
+
+  x, y = 150, 150
+  size = [128, 128]
+  pause = 0
+
+  a = animate(24, false) do |n|
+    unless pause == n
+      x += xspeed * xdir
+      y += yspeed * ydir
+
+      xdir *= -1 if x > 300 - size[0] or x < 0
+      ydir *= -1 if y > 300 - size[1] or y < 0
+
+      img.move x.to_i, y.to_i
+    end
+    pause = n
+  end
+end

data/samples/sample10.rb

@@ -0,0 +1,11 @@
+require 'purple_shoes'
+
+Shoes.app width: 300, height: 300 do
+
+  flow do
+    10.times do |i|
+      flow(width: 0.5, height: 30){background forestgreen.push(0.1*(i+1)); para 'green'}
+      flow(width: 0.5, height: 30){background orangered.push(1.0 - 0.1*i); para 'shoes'}
+    end
+  end
+end

data/samples/sample11.rb

@@ -0,0 +1,12 @@
+# Same snippet as http://shoes.heroku.com/manual/Events.html#motion{|left,top|...}
+
+require 'purple_shoes'
+
+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/samples/sample12.rb

@@ -0,0 +1,22 @@
+require 'purple_shoes'
+
+Shoes.app width: 300, height: 300 do
+  background cadetblue
+  r = rect 100, 10, 100, fill: red, strokewidth: 5, curve: 10, stroke: pink do
+    alert 'Yay!'
+  end
+  o = oval 100, 110, 100, 100, fill: green, strokewidth: 10, stroke: white
+  para 'Purple Shoes!!', left: 100, top: 70
+
+  size = COLORS.keys.size
+  j = 0
+  a = animate 1, false do |i|
+    unless j == i
+      r.style fill: send(COLORS.keys[rand size]), stroke: send(COLORS.keys[rand size])
+      o.style fill: send(COLORS.keys[rand size]), stroke: send(COLORS.keys[rand size])
+      j = i
+    end
+  end
+
+  button('pause'){a.pause}
+end

data/samples/sample13.rb

@@ -0,0 +1,15 @@
+require 'purple_shoes'
+
+# The same as sample60.rb on Shoes Tutorial Note
+Shoes.app :width => 300, :height => 300 do
+  i = 45
+  button 'new'do
+    i += 5
+    box = rand(2) == 0 ? rect(i, i, 20) : oval(i, i, 10)
+    box.style :fill => send(COLORS.keys[rand(COLORS.keys.size)])
+    @flag = false
+    box.click{@flag = true; @box = box}
+    box.release{@flag = false}
+  end
+  motion{|left, top| @box.move(left-10, top-10) if @flag}
+end

data/samples/sample14.rb

@@ -0,0 +1,75 @@
+# This is from http://github.com/shoes/shoes-contrib/blob/master/animation/flowers.rb
+# Edited a little bit for Purple Shoes by ashbb
+#
+###############################################
+#
+# 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. 
+#
+
+require 'purple_shoes'
+
+degree = 0
+color = 0
+size = 0
+
+Shoes.app :width => 537, :height => 500 do
+  background rgb(1.0, 0.5, 1.0, 1.0)
+  # Convert degrees to radians
+  def to_radians(deg)
+    deg * Math::PI / 180
+  end
+  
+  red_circles, blue_circles = [], []
+
+  mx, my = (500/2).to_i, (537/2).to_i
+  animate(36) 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.push(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
+        unless red_circles.size == 10
+          red_circles << oval(center_x, center_y, current_size, current_size)
+        else
+          red_circles[i].style left: center_x, top: center_y, width: current_size, height: current_size, fill: fill
+        end
+      end
+
+      # Draw outer circle
+      fill blue.push(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
+        unless blue_circles.size == 20
+          blue_circles << oval(center_x, center_y, current_size, current_size)
+        else
+          blue_circles[i].style left: center_x, top: center_y, width: current_size, height: current_size, fill: fill
+        end
+      end
+    #end
+  end
+end

data/samples/sample15.rb

@@ -0,0 +1,20 @@
+require 'purple_shoes'
+
+TEXT =<<EOS
+    Lorem ipsum dolor sit amet, consectetur adipisicing elit, \
+sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. 
+    Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris \
+nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in \
+reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. 
+    Excepteur sint occaecat cupidatat non proident, sunt in \
+culpa qui officia deserunt mollit anim id est laborum.
+EOS
+
+NL = "\n\n"
+
+Shoes.app do
+  lines = TEXT.split("\n")
+  para lines[0], NL
+  para lines[1], NL, justify: true
+  para lines[2], NL, leading: 0
+end

data/samples/sample16.rb

@@ -0,0 +1,12 @@
+# Same snippet as http://shoes-tutorial-note.heroku.com/html/00402_No.1_para.html
+
+require 'purple_shoes'
+
+Shoes.app :width => 240, :height => 95 do
+  para 'Testing, test, test. ',
+    strong('Breadsticks. '),
+    em('Breadsticks. '),
+    code('Breadsticks. '),
+    strong(ins('EVEN BETTER.')),
+    sub('fine!')
+end

data/samples/sample17.rb

@@ -0,0 +1,12 @@
+# Add new method bg and fg to sample17
+
+require 'purple_shoes'
+
+Shoes.app :width => 240, :height => 95 do
+  para 'Testing, test, test. ',
+    strong('Breadsticks. '),
+    em('Breadsticks. '),
+    code('Breadsticks. '),
+    bg(fg(strong(ins('EVEN BETTER.')), white), rgb(255, 0, 192)),
+    sub('fine!')
+end

data/samples/sample18.rb

@@ -0,0 +1,24 @@
+require 'purple_shoes'
+
+Shoes.app width: 700, height: 600 do
+  title "Shoes is a ", link("tiny"){alert "Cool!"}, " graphics toolkit. "
+
+  flow width: 0.4 do
+    image File.join(DIR, '../static/purple_shoes-icon.png') do
+      alert "You're soooo quick!"
+    end
+  end
+
+  flow width: 0.6 do
+    tagline "It's simple and straightforward. ", 
+      link("Shoes "){alert "Yay!"}, 
+      "was born to be easy! ", 
+      link("Shoes "){alert "Yay!"}, 
+      "was born to be easy! ", 
+      link("Shoes "){alert "Yay!"}, 
+      "was born to be easy! ", 
+      "Really, it was made for absolute beginners. "
+  end
+
+  subtitle link(strong em("There's ", fg(bg("really ", "really ", yellow), red), "nothing to it. ")){alert "Have fun!"}
+end

data/samples/sample19.rb

@@ -0,0 +1,39 @@
+# almost the same code as sample58 on (Red) Shoes Tutorial Note: 
+# http://shoes-tutorial-note.heroku.com/html/00704_Assignment_4_Pong_in_Shoes.html
+require 'purple_shoes'
+
+Shoes.app width: 400, height: 400 do
+  vx, vy = 3, 4
+
+  nostroke
+  @ball = oval 0, 0, 20, 20, :fill => forestgreen
+  @comp = rect 0, 0, 75, 4, :curve => 3
+  @you = rect 0, 396, 75, 4, :curve => 3
+
+  @anim = animate 32 do
+    nx, ny = @ball.left + vx.to_i, @ball.top + vy.to_i
+
+    if @ball.top + 20 < 0 or @ball.top > 400
+      title 'GAME OVER', left: 70, top: 140
+      para @ball.top < 0 ? "    You win!" : "Computer wins", left: 140, top: 200
+      @anim.stop
+    end
+
+    vx = -vx  if nx + 20 > 400 or nx < 0
+
+    if ny + 20 > 400 and nx + 20 > @you.left and nx < @you.left + 75
+      vy = -vy * 1.2
+      vx = (nx - @you.left - (75 / 2)) * 0.25
+    end
+
+    if ny < 0 and nx + 20 > @comp.left and nx < @comp.left + 75
+      vy = -vy * 1.2
+      vx = (nx - @comp.left - (75 / 2)) * 0.25
+    end
+
+    @ball.move nx, ny
+    @you.left = mouse[1] - (75 / 2)
+    @comp.left += 10  if @comp.left + 75 < @ball.left
+    @comp.left -= 10  if @ball.left + 20 < @comp.left
+  end
+end

data/samples/sample2.rb

@@ -0,0 +1,16 @@
+require 'purple_shoes'
+
+Shoes.app title: 'Purple Shoes New Logo Icon!', width: 310, height: 420 do
+  stack do
+    path = File.join(DIR, '../static/purple_shoes-icon.png')
+    image path
+    flow do
+      image path
+      image path
+    end
+    stack do
+      image path
+      para ' ' * 20, 'Powered by JRuby and SWT!'
+    end
+  end
+end