tea 0.6.1

data/doc/example/point.rb

@@ -0,0 +1,26 @@
+# Test that Tea can plot points on bitmaps, e.g. the screen.
+# Expected result is 4 points drawn as a rectangle in a 400x300 window for 2
+# seconds.
+
+require 'tea'
+
+puts <<TEST
+4 coloured points should appear in a rectangle formation, in a 400x300 window
+for 2 seconds.  Point formation:
+
+    red --- green
+    |           |
+    blue -- white
+TEST
+
+Tea.init
+Tea::Screen.set_mode 400, 300
+
+Tea::Screen[100,  75] = Tea::Color::RED
+Tea::Screen[300,  75] = Tea::Color::GREEN
+Tea::Screen[100, 225] = Tea::Color::BLUE
+Tea::Screen[300, 225] = Tea::Color::WHITE
+
+Tea::Screen.update
+
+sleep 2

data/doc/example/rect.rb

@@ -0,0 +1,15 @@
+# Test that filled rectangles can be drawn.
+# Expected results are a 400x300 window, with a filled yellow rectangle in it.
+
+require 'tea'
+
+puts <<TEST
+A 400x300 window should appear with a yellow rectangle for 2 seconds.
+TEST
+
+Tea.init
+Tea::Screen.set_mode 400, 300
+Tea::Screen.rect 50, 50, 300, 200, Tea::Color::YELLOW
+Tea::Screen.update
+
+sleep 2

data/doc/example/rect_alpha.rb

@@ -0,0 +1,75 @@
+# Test that alpha for rectangles works.
+# Expected results are:
+#
+# * center:                   red   rectangle (background)
+# * top-left:     translucent green rectangle
+# * bottom-left:  translucent white rectangle
+# * bottom-right: solid       blue  rectangle
+
+require 'tea'
+
+puts <<TEST
+You should see:
+
+ * center:                   red   rectangle (background)
+ * top-left:     translucent green rectangle
+ * bottom-left:  translucent white rectangle
+ * bottom-right: solid       blue  rectangle
+
+A smaller box with these same rectangles should appear in the top-right.  It
+can be moved with the arrow keys.
+
+Press ESC key to exit.
+TEST
+
+Tea.init
+Tea::Screen.set_mode 400, 300
+
+TL_GREEN = Tea::Color.mix(  0, 255,   0, 128)
+TL_BLUE  = Tea::Color.mix(  0,   0, 255, 128)
+TL_WHITE = Tea::Color.mix(255, 255, 255, 128)
+
+x, y = 205, 15
+up, down, left, right = false, false, false, false
+wait_for_event = true
+
+b = Tea::Bitmap.new(180, 130, Tea::Color::CLEAR)
+b.rect 45, 32, 90, 65, Tea::Color::RED
+b.rect  0,  0, 90, 65, TL_GREEN, :mix => :blend
+b.rect 90, 65, 90, 65, TL_BLUE, :mix => :replace
+b.rect  0, 65, 90, 65, TL_WHITE
+
+begin
+  Tea::Screen.clear
+
+  Tea::Screen.rect 100,  75, 200, 150, Tea::Color::RED
+  Tea::Screen.rect   0,   0, 200, 150, TL_GREEN, :mix => :blend
+  Tea::Screen.rect 200, 150, 200, 150, TL_BLUE, :mix => :replace
+  Tea::Screen.rect   0, 150, 200, 150, TL_WHITE
+
+  Tea::Screen.blit b, x, y
+
+  Tea::Screen.update
+  e = Tea::Event.get(wait_for_event)
+  case e
+  when Tea::Kbd::Down
+    case e.key
+    when Tea::Kbd::UP then up = true
+    when Tea::Kbd::DOWN then down = true
+    when Tea::Kbd::LEFT then left = true
+    when Tea::Kbd::RIGHT then right = true
+    end
+  when Tea::Kbd::Up
+    case e.key
+    when Tea::Kbd::UP then up = false
+    when Tea::Kbd::DOWN then down = false
+    when Tea::Kbd::LEFT then left = false
+    when Tea::Kbd::RIGHT then right = false
+    end
+  end
+  wait_for_event = !(up || down || left || right)
+  x -= 1 if left
+  x += 1 if right
+  y -= 1 if up
+  y += 1 if down
+end until e.class == Tea::App::Exit || (e.class == Tea::Kbd::Down && e.key == Tea::Kbd::ESCAPE)

data/doc/example/screen_set_mode.rb

@@ -0,0 +1,18 @@
+# Test if the screen can initialise.
+# Expected results:
+#
+#  * output of "screen size is 320x240"
+#  * a blank 320x240 display window for 2 seconds.
+
+require 'tea'
+
+puts <<TEST
+You should see a 320x240 window for 2 seconds, and the text "screen size is 320x240"
+TEST
+
+Tea.init
+Tea::Screen.set_mode 320, 240
+
+puts "screen size is #{Tea::Screen.w}x#{Tea::Screen.h}"
+
+sleep 2

data/doc/example/screen_update.rb

@@ -0,0 +1,14 @@
+# Test if the screen can be updated without problems.
+# Expected result is a 320x240 graphical window shown for 2 seconds.
+
+require 'tea'
+
+puts <<TEST
+You should see a 320x240 window appear for 2 seconds.
+TEST
+
+Tea.init
+Tea::Screen.set_mode 320, 240
+Tea::Screen.update
+
+sleep 2

data/doc/example/sfont_hello.rb

@@ -0,0 +1,22 @@
+# This tests that SFonts can be loaded, rendered and drawn.
+# Expected result: 'hello' in a small window for 5 seconds.
+
+require 'tea'
+
+puts <<TEST
+You should see 'hello world' in a small window for 5 seconds.
+TEST
+
+Tea.init
+Tea::Screen.set_mode 320, 240
+
+font = Tea::Font.new('sfont.png', Tea::Font::SFONT)
+message = 'hello world'
+
+x = (Tea::Screen.w - font.string_w(message)) / 2
+y = (Tea::Screen.h - font.h) / 2
+font.draw_to Tea::Screen, x, y, message
+
+Tea::Screen.update
+
+sleep 5

data/doc/example/smile_bounce.rb

@@ -0,0 +1,44 @@
+# This is a demo of 5 smiley faces bouncing around a small screen.
+
+require 'tea'
+
+puts <<TEST
+You should see 5 smiley faces bouncing around on a 320x240 screen for 5 seconds.
+TEST
+
+class Smiley
+  def initialize(bitmap, start_x=0, start_y=0)
+    @bitmap = bitmap
+    @x = start_x
+    @y = start_y
+    @dx = rand() * 2 - 1
+    @dy = rand() * 2 - 1
+  end
+
+  def update
+    @x += @dx
+    @y += @dy
+    @dx = -@dx if @x < 0 || @x + @bitmap.w >= Tea::Screen.w
+    @dy = -@dy if @y < 0 || @y + @bitmap.h >= Tea::Screen.h
+  end
+
+  def draw
+    Tea::Screen.blit @bitmap, @x, @y
+  end
+end
+
+Tea.init
+Tea::Screen.set_mode 320, 240
+
+smile_bitmap = Tea::Bitmap.new('smile.png')
+smiles = []
+5.times { smiles << Smiley.new(smile_bitmap, rand(288), rand(208)) }
+
+start = Time.now
+until Time.now >= start + 5
+  smiles.each { |s| s.update }
+  Tea::Screen.clear
+  smiles.each { |s| s.draw }
+  Tea::Screen.update
+  sleep 0.001
+end

data/doc/example/smile_move.rb

@@ -0,0 +1,58 @@
+# Move the Smiley face with the arrow keys.  Press Esc to exit.
+
+require 'tea'
+
+class Smile
+  def initialize
+    @bitmap = Tea::Bitmap.new('smile.png')
+    @x = (Tea::Screen.w - @bitmap.w) / 2
+    @y = (Tea::Screen.h - @bitmap.h) / 2
+    @dx = @dy = 0
+  end
+
+  def n(move) @dy += move ? -1 : 1 end
+  def s(move) @dy += move ? 1 : -1 end
+  def e(move) @dx += move ? 1 : -1 end
+  def w(move) @dx += move ? -1 : 1 end
+  def stopped?; @dx == 0 && @dy == 0; end
+
+  def update
+    @x += @dx
+    @y += @dy
+  end
+
+  def draw
+    Tea::Screen.blit @bitmap, @x, @y
+  end
+end
+
+Tea.init
+Tea::Screen.set_mode 640, 480
+player = Smile.new
+wait_for_event = true
+loop do
+  player.update
+  Tea::Screen.clear
+  player.draw
+  Tea::Screen.update
+
+  if e = Tea::Event.get(wait_for_event)
+    break if e.class == Tea::App::Exit
+
+    case e
+    when Tea::Kbd::Down then move = true
+    when Tea::Kbd::Up   then move = false
+    else next
+    end
+
+    case e.key
+    when Tea::Kbd::UP     then player.n(move)
+    when Tea::Kbd::DOWN   then player.s(move)
+    when Tea::Kbd::RIGHT  then player.e(move)
+    when Tea::Kbd::LEFT   then player.w(move)
+    when Tea::Kbd::ESCAPE then break
+    end
+
+    wait_for_event = player.stopped?
+  end
+end

data/doc/example/smile_move_2.rb

@@ -0,0 +1,78 @@
+# Move the Smiley with the arrow keys, and press Esc to exit.  Identical to
+# smile_move.rb, but uses Tea::Event::Dispatch in a controlling class to handle
+# events.
+
+require 'tea'
+
+class Smile
+  def initialize
+    @bitmap = Tea::Bitmap.new('smile.png')
+    @x = (Tea::Screen.w - @bitmap.w) / 2
+    @y = (Tea::Screen.h - @bitmap.h) / 2
+    @dx = @dy = 0
+  end
+
+  def n(move) @dy += move ? -1 : 1 end
+  def s(move) @dy += move ? 1 : -1 end
+  def e(move) @dx += move ? 1 : -1 end
+  def w(move) @dx += move ? -1 : 1 end
+  def stopped?; @dx == 0 && @dy == 0; end
+
+  def update
+    @x += @dx
+    @y += @dy
+  end
+
+  def draw
+    Tea::Screen.blit @bitmap, @x, @y
+  end
+end
+
+class SmileControllingState
+  def initialize
+    @player = Smile.new
+    @done = false
+  end
+
+  def done?; @done; end
+  def update; @player.update; end
+  def need_update?; !@player.stopped?; end
+  def draw
+    Tea::Screen.clear
+    @player.draw
+  end
+
+  include Tea::Event::Dispatch
+
+  def kbd_down(e)
+    case e.key
+    when Tea::Kbd::UP     then @player.n true
+    when Tea::Kbd::DOWN   then @player.s true
+    when Tea::Kbd::LEFT   then @player.w true
+    when Tea::Kbd::RIGHT  then @player.e true
+    when Tea::Kbd::ESCAPE then @done = true
+    end
+  end
+
+  def kbd_up(e)
+    case e.key
+    when Tea::Kbd::UP    then @player.n false
+    when Tea::Kbd::DOWN  then @player.s false
+    when Tea::Kbd::LEFT  then @player.w false
+    when Tea::Kbd::RIGHT then @player.e false
+    end
+  end
+end
+
+Tea.init
+Tea::Screen.set_mode 640, 480
+state = SmileControllingState.new
+until state.done?
+  state.update
+  state.draw
+  Tea::Screen.update
+
+  if e = Tea::Event.get(!state.need_update?)
+    state.dispatch_event e
+  end
+end

data/doc/example/sound.rb

@@ -0,0 +1,101 @@
+# A demo that attempts to test all of Tea::Sound's functionality.
+
+require 'tea'
+
+puts <<TEST
+This is a simple sound demo.  Up to 2 sounds can play simultaneously.
+
+Keys:
+
+  [     - Switch to tone 1 (default)
+  ]     - Switch to tone 2
+
+  Right - Play tone
+  Left  - Stop
+  Down  - Pause
+  Up    - Resume (unpause)
+
+  Enter - Print tone's status (stopped/playing/paused)
+
+  p     - Pause all
+  r     - Resume (unpause) all
+  s     - Stop all
+
+  =     - Tone volume +1/8
+  -     - Tone volume -1/8
+  +     - Master volume +1/8
+  _     - Master volume -1/8
+
+  Esc   - Exit demo
+--
+TEST
+
+Tea.init
+Tea::Screen.set_mode 100, 100
+
+tone_sound = Tea::Sound.new('tone.wav')
+tones = [tone_sound, tone_sound.clone]
+
+which_tone = 0
+
+done = false
+until done
+  e = Tea::Event.get(true)
+  case e
+  when Tea::Kbd::Down
+    case e.key
+
+    when Tea::Kbd::OPEN_SQUARE_BRACKET
+      which_tone -= 1 if which_tone > 0
+      puts "Switched to tone ##{which_tone + 1}"
+    when Tea::Kbd::CLOSE_SQUARE_BRACKET
+      which_tone += 1 if which_tone < tones.length - 1
+      puts "Switched to tone ##{which_tone + 1}"
+
+    when Tea::Kbd::RIGHT
+      tones[which_tone].play
+      puts "Playing tone ##{which_tone + 1}"
+    when Tea::Kbd::LEFT
+      tones[which_tone].stop
+      puts "Stopping tone ##{which_tone + 1}"
+    when Tea::Kbd::DOWN
+      tones[which_tone].pause
+      puts "Pausing tone ##{which_tone + 1}"
+    when Tea::Kbd::UP
+      tones[which_tone].resume
+      puts "Resuming tone ##{which_tone + 1}"
+
+    when Tea::Kbd::ENTER
+      puts "Tone ##{which_tone + 1} is #{tones[which_tone].state.to_s}"
+
+    when Tea::Kbd::P
+      Tea::Sound.pause_all
+      puts "Pausing all sounds"
+    when Tea::Kbd::R
+      Tea::Sound.resume_all
+      puts "Resuming all sounds"
+    when Tea::Kbd::S
+      Tea::Sound.stop_all
+      puts "Stopping all sounds"
+
+    when Tea::Kbd::EQUALS
+      tones[which_tone].volume += 16
+      puts "Volume of tone ##{which_tone + 1} raised to #{tones[which_tone].volume} / 128"
+    when Tea::Kbd::MINUS
+      tones[which_tone].volume -= 16
+      puts "Volume of tone ##{which_tone + 1} lowered to #{tones[which_tone].volume} / 128"
+    when Tea::Kbd::PLUS
+      Tea::Sound.volume += 16
+      puts "Master volume raised to #{Tea::Sound.volume} / 128"
+    when Tea::Kbd::UNDERSCORE
+      Tea::Sound.volume -= 16
+      puts "Master volume lowered to #{Tea::Sound.volume} / 128"
+
+    when Tea::Kbd::ESCAPE
+      done = true
+
+    end
+  when Tea::App::Exit
+    done = true
+  end
+end