graphics 1.0.0b1

data/examples/math.rb

@@ -0,0 +1,42 @@
+#!/usr/bin/ruby -w
+
+require "graphics"
+
+class MathSimulation < Graphics::Simulation
+  def initialize
+    super 640, 640, 16, "Math"
+  end
+
+  def draw n
+    graph_paper
+
+    (0..w).each do |x|
+      y = 2*x*x + 2*x - 12
+      y /= 320.0
+
+      next if y < 0
+      next if y > h
+
+      rect x, y, 3, 3, :red, :filled
+    end
+
+    text "2x^2 +2x -12", 10, h-font.height, :black
+  end
+
+  def graph_paper
+    clear :white
+
+    hline 1, :black
+    vline 0, :black
+
+    (0..w).step(25).each do |x|
+      (0..h).step(25).each do |y|
+        line 0, y, 5, y, :black if x == 0
+        line x, 1, x, 6, :black if y == 0
+        point x, h-y, :black
+      end
+    end
+  end
+end
+
+MathSimulation.new.run

data/examples/radar.rb

@@ -0,0 +1,31 @@
+#!/usr/bin/ruby -w
+
+require "graphics"
+
+class TargetSimulation < Graphics::Simulation
+  def initialize
+    super 640, 640, 16, "Target Practice"
+
+    register_color :darker_green,  0, 16,  0
+    register_color :dark_green,   64, 96, 64
+    register_color :dark_blue,     0,  0, 96
+  end
+
+  def draw n
+    clear :darker_green
+
+    (0..640).step(64).each do |r|
+      hline r, :dark_green
+      vline r, :dark_green
+      circle 320, 320, r, :dark_green unless r > 320
+    end
+
+    x, y, * = mouse
+    line x, 0, x, 640, :white
+    line 0, y, 640, y, :white
+
+    fps n
+  end
+end
+
+TargetSimulation.new.run

data/examples/tank.rb

@@ -0,0 +1,160 @@
+#!/usr/bin/ruby -w
+
+require "graphics"
+
+D2R = Math::PI / 180.0
+
+class Tank < Graphics::Body
+  ACCELERATE   = 0.25
+  DECELERATE   = 0.125
+  ROTATION     = 2
+  TICK_ENERGY  = 5
+  SHOT_ENERGY  = 100
+
+  BULLET_SPEED = 9.0
+  MAX_SPEED    = 4.0
+  MAX_ROTATION = 360
+  MAX_ENERGY   = 100
+
+  attr_accessor :t
+  attr_accessor :e
+
+  def initialize w
+    super
+
+    self.x = w.w / 2
+    self.y = w.h / 2
+    self.e = 0
+
+    self.t = Turret.new self
+  end
+
+  def update
+    self.e += TICK_ENERGY
+
+    t.update x, y
+    move
+    limit
+    clip
+  end
+
+  def limit
+    self.e = MAX_ENERGY if e > MAX_ENERGY
+
+    if m > MAX_SPEED then
+      self.m = MAX_SPEED
+    elsif m < 0 then
+      self.m = 0
+    end
+  end
+
+  def fire
+    if e >= SHOT_ENERGY then
+      self.e -= SHOT_ENERGY
+      t.fire
+    end
+  end
+
+  def draw
+    w.blit w.body_img, x, y, a
+    t.draw
+  end
+
+  def turn_right; turn(-ROTATION); aim_right; end
+  def turn_left;  turn ROTATION;   aim_left;  end
+
+  def aim_right;  self.t.turn(-ROTATION); end
+  def aim_left;   self.t.turn ROTATION;   end
+
+  def accelerate; self.m += ACCELERATE; self.t.m = m; end
+  def decelerate; self.m -= DECELERATE; self.t.m = m; end
+end
+
+class Turret < Graphics::Body
+  def initialize tank
+    self.w = tank.w
+    self.x = tank.x
+    self.y = tank.y
+    self.a = tank.a
+    self.m = tank.m
+  end
+
+  def fire
+    b = Bullet.new w, x, y, a, m
+    b.move_by a, 15
+  end
+
+  def update x, y
+    self.x = x
+    self.y = y
+  end
+
+  def draw
+    w.blit w.turret_img, x, y, a
+  end
+end
+
+class Bullet < Graphics::Body
+  def initialize w, x, y, a, m
+    self.w = w
+    self.x = x
+    self.y = y
+    self.a = a
+    self.m = m + 5
+    w.bullets << self
+  end
+
+  def update
+    move
+    w.bullets.delete self if clip
+  end
+
+  def draw
+    w.rect x, y, 2, 2, :white
+    w.debug "%.2f", m
+  end
+end
+
+class TargetSimulation < Graphics::Simulation
+  attr_accessor :tank, :bullets
+  attr_accessor :body_img
+  attr_accessor :turret_img
+
+  def initialize
+    super 640, 640, 16, "Target Practice"
+
+    SDL::Key.enable_key_repeat 50, 10
+
+    self.tank = Tank.new self
+    self.bullets = []
+
+    self.body_img   = image "resources/images/body.png"
+    self.turret_img = image "resources/images/turret.png"
+  end
+
+  def handle_keys
+    exit            if SDL::Key.press? SDL::Key::ESCAPE
+    tank.turn_right if SDL::Key.press? SDL::Key::RIGHT
+    tank.turn_left  if SDL::Key.press? SDL::Key::LEFT
+    tank.accelerate if SDL::Key.press? SDL::Key::UP
+    tank.decelerate if SDL::Key.press? SDL::Key::DOWN
+    tank.aim_left   if SDL::Key.press? SDL::Key::SEMICOLON
+    tank.aim_right  if SDL::Key.press? SDL::Key::Q
+    tank.fire       if SDL::Key.press? SDL::Key::SPACE
+  end
+
+  def update n
+    tank.update
+
+    bullets.each(&:update)
+  end
+
+  def draw n
+    clear
+    tank.draw
+    bullets.each(&:draw)
+    fps n
+  end
+end
+
+TargetSimulation.new.run

data/examples/tank2.rb

@@ -0,0 +1,173 @@
+#!/usr/bin/ruby -w
+
+require "graphics"
+
+D2R = Math::PI / 180.0
+
+class Tank
+  ACCELERATE   = 0.25
+  DECELERATE   = 0.125
+  ROTATION     = 2
+  TICK_ENERGY  = 5
+  SHOT_ENERGY  = 100
+
+  MAX_SPEED    = 4.0
+  MAX_ROTATION = 360
+  MAX_ENERGY   = 100
+
+  attr_accessor :angle, :speed, :x, :y, :sim
+  attr_accessor :turret, :energy
+
+  def initialize x, y
+    self.x      = x
+    self.y      = y
+    self.angle  = 0
+    self.turret = 0
+    self.speed  = 0
+    self.energy = 0
+  end
+
+  def update
+    rad = angle * D2R
+
+    self.x += Math.cos(rad) * speed
+    self.y += Math.sin(rad) * speed
+
+    self.energy += TICK_ENERGY
+
+    limit
+  end
+
+  def limit
+    self.angle  %= MAX_ROTATION
+    self.turret %= MAX_ROTATION
+    self.energy = MAX_ENERGY if energy > MAX_ENERGY
+
+    if speed > MAX_SPEED then
+      self.speed = MAX_SPEED
+    elsif speed < 0 then
+      self.speed = 0
+    end
+  end
+
+  def fire
+    rad = turret * D2R
+    x2 = x + Math.cos(rad) * 20
+    y2 = y + Math.sin(rad) * 20
+
+    if energy >= SHOT_ENERGY then
+      self.energy -= SHOT_ENERGY
+      Bullet.new x2, y2, turret, speed
+    end
+  end
+
+  def turn_right; self.angle -= ROTATION; aim_right; end
+  def turn_left;  self.angle += ROTATION; aim_left;  end
+
+  def aim_right;  self.turret -= ROTATION; end
+  def aim_left;   self.turret += ROTATION; end
+
+  def accelerate; self.speed += ACCELERATE; end
+  def decelerate; self.speed -= DECELERATE; end
+end
+
+class Bullet
+  attr_accessor :x, :y, :a, :v
+
+  def initialize x, y, a, v
+    self.x = x
+    self.y = y
+    self.a = a
+    self.v = v + 5
+  end
+
+  def update
+    rad = a * D2R
+
+    self.x += Math.cos(rad) * v
+    self.y += Math.sin(rad) * v
+  end
+end
+
+class TargetSimulation < Graphics::Simulation
+  attr_accessor :tank, :bullets
+  attr_accessor :body_img
+  attr_accessor :turret_img
+
+  def initialize
+    super 640, 640, 16, "Target Practice"
+
+    SDL::Key.enable_key_repeat 50, 10
+
+    self.tank = Tank.new w/2, h/2
+    self.bullets = []
+
+    screen.set_alpha SDL::SRCALPHA, 128
+
+    self.body_img = sprite 40, 30 do
+      rect 0,  0, 39, 29, :white
+      rect 0,  4, 39, 21, :white
+
+      line 0,  2, 39,  2, :white
+      line 0, 27, 39, 27, :white
+    end
+
+    a, b = 41, 16
+    self.turret_img = sprite a, b do
+      rect a/2-8, b/2-8, 15, 15, :white
+      angle a/2, b/2, 0, 28, :white
+      line a/2+20, b/2-2, a/2+20, b/2+2, :white
+    end
+  end
+
+  def handle_keys
+    exit            if SDL::Key.press? SDL::Key::ESCAPE
+    tank.turn_right if SDL::Key.press? SDL::Key::RIGHT
+    tank.turn_left  if SDL::Key.press? SDL::Key::LEFT
+    tank.accelerate if SDL::Key.press? SDL::Key::UP
+    tank.decelerate if SDL::Key.press? SDL::Key::DOWN
+    tank.aim_left   if SDL::Key.press? SDL::Key::SEMICOLON
+    tank.aim_right  if SDL::Key.press? SDL::Key::Q
+    fire            if SDL::Key.press? SDL::Key::SPACE
+  end
+
+  def fire
+    bullet = tank.fire
+    bullets << bullet if bullet
+  end
+
+  def update n
+    tank.update
+
+    bullets.each(&:update)
+
+    if tank.x < 0 then tank.x = 0 elsif tank.x > w then tank.x = w end
+    if tank.y < 0 then tank.y = 0 elsif tank.y > h then tank.y = h end
+  end
+
+  def draw n
+    clear
+    draw_tank
+    draw_bullets
+    fps n
+  end
+
+  AA = SDL::Surface::TRANSFORM_AA
+
+  def draw_tank
+    x, y, a, t = tank.x, tank.y, tank.angle, tank.turret
+
+    blit body_img, x, y, a, AA
+    blit turret_img, x, y, t, AA
+
+    debug "%3d @ %.2f @ %d", tank.angle, tank.speed, tank.energy
+  end
+
+  def draw_bullets
+    bullets.each do |b|
+      rect b.x, b.y, 2, 2, :white
+    end
+  end
+end
+
+TargetSimulation.new.run

data/examples/targeting.rb

@@ -0,0 +1,46 @@
+#!/usr/bin/ruby -w
+
+require "graphics"
+
+class TargetSimulation < Graphics::Simulation
+  attr_accessor :bombs
+
+  def initialize
+    super 640, 640, 16, "Target Practice"
+
+    self.bombs = []
+    register_color :darker_green,  0, 16,  0
+    register_color :dark_green,   64, 96, 64
+    register_color :dark_blue,     0,  0, 96
+  end
+
+  def handle_event event, n
+    bombs << [n, event.x, h-event.y] if SDL::Event::MouseButtonDown === event
+    super
+  end
+
+  def draw n
+    clear :darker_green
+
+    bombs.each do |(birth, bx, by)|
+      r = n - birth
+      r = [r, 100].min
+      circle bx, by, r, :dark_blue, :fill
+      circle bx, by, r, :red unless r == 100
+    end
+
+    (0..640).step(64).each do |r|
+      hline r, :dark_green
+      vline r, :dark_green
+      circle 320, 320, r, :dark_green unless r > 320
+    end
+
+    x, y, * = mouse
+    line x, 0, x, 640, :white
+    line 0, y, 640, y, :white
+
+    fps n
+  end
+end
+
+TargetSimulation.new.run