rubysdl-mswin32-1.9 2.1.0

data/sample/aadraw.rb

@@ -0,0 +1,24 @@
+require 'sdl'
+
+SDL.init( SDL::INIT_VIDEO )
+screen = SDL::Screen.open(640,480,16,SDL::SWSURFACE)
+SDL::WM::set_caption $0, $0
+
+Red=screen.format.map_rgb(255,0,0)
+screen.draw_line(20,20,300,200,Red, true)
+screen.draw_circle(100,100,50,[87,87,87], false, true)
+screen.draw_circle(300,300,30,Red, true, true)
+screen.draw_ellipse(320,240,100,200,[200,255,0], false, true)
+
+screen.flip
+
+while true
+  while event = SDL::Event.poll
+    case event
+    when SDL::Event::KeyDown, SDL::Event::Quit
+      exit
+    end
+  end
+
+  sleep 0.2
+end

data/sample/alpha.rb

@@ -0,0 +1,26 @@
+require 'sdl'
+
+SDL.init( SDL::INIT_VIDEO )
+screen = SDL::Screen.open(640,480,16,SDL::SWSURFACE)
+
+image = SDL::Surface.load_bmp("icon.bmp")
+image.set_color_key( SDL::SRCCOLORKEY ,0)
+image = image.display_format
+
+
+i=0;
+black = screen.format.map_rgb(0,0,0)
+while true
+  while event = SDL::Event.poll
+    case event
+    when SDL::Event::Quit, SDL::Event::KeyDown
+      exit
+    end
+  end
+  screen.fillRect(0,0,640,480,black)
+
+  image.set_alpha(SDL::SRCALPHA,i%256)
+  screen.put(image,310,195)
+    i+=1
+  screen.flip
+end

data/sample/alphadraw.rb

@@ -0,0 +1,25 @@
+require 'sdl'
+
+SDL.init( SDL::INIT_VIDEO )
+screen = SDL::Screen.open(640,480,16,SDL::SWSURFACE)
+SDL::WM::set_caption $0, $0
+
+Red=screen.format.map_rgb(255,0,0)
+screen.draw_circle(320,240,220,[140,180,0], true, true)
+screen.draw_line(20,20,300,200,Red,true, rand(64)+128)
+screen.draw_circle(100,100,50,[87,87,87],false,true,rand(64)+128)
+screen.draw_circle(300,170,50,[87,80,0],true, false, rand(64)+128)
+screen.draw_ellipse(320,240,100,200,[200,255,0],false, false, rand(64)+128)
+
+screen.flip
+
+while true
+  while event = SDL::Event.poll
+    case event
+    when SDL::Event::KeyDown, SDL::Event::Quit
+      exit
+    end
+  end
+
+  sleep 0.2
+end

data/sample/bfont.rb

@@ -0,0 +1,24 @@
+require 'sdl'
+
+SDL.init( SDL::INIT_VIDEO )
+screen = SDL::Screen.open(640,480,16,SDL::SWSURFACE)
+
+font = SDL::BMFont.open("font.bmp",SDL::BMFont::TRANSPARENT)
+
+y = 0
+
+while true
+  while event = SDL::Event.poll
+    case event
+    when SDL::Event::KeyDown, SDL::Event::Quit
+      exit
+    end
+  end
+  screen.fill_rect(0,0,640,480,0)
+
+  y = (y + 1) % 480
+  font.textout(screen,"BitMapFont Testing..",40,y)
+  
+  screen.updateRect(0,0,0,0)
+  sleep 0.005
+end

data/sample/caption.rb

@@ -0,0 +1,21 @@
+# -*- coding: euc-jp -*-
+require 'sdl'
+SDL.init(SDL::INIT_VIDEO)
+screen = SDL::Screen.open(640, 480, 16, SDL::SWSURFACE)
+SDL::WM::set_caption('����ץ����Υƥ���','����ץ����')
+
+s,* = SDL::WM.caption
+STDOUT.puts s.encode('external')
+p s.encoding
+loop do
+  while event = SDL::Event.poll
+    case event
+    when SDL::Event::KeyDown, SDL::Event::Quit
+      exit
+    end
+  end
+  screen.fill_rect(0, 0, 640, 480, 0)
+  screen.update_rect(0, 0, 0, 0)
+
+  SDL.delay(10)
+end

data/sample/cdrom.rb

@@ -0,0 +1,24 @@
+require 'sdl'
+
+SDL.init( SDL::INIT_CDROM )
+
+num_drive = SDL::CD.num_drive
+if num_drive == 0
+  print "No cdrom drive is detected\n"
+  exit
+else
+  print "#{num_drive} cdrom drives are detected\n"
+end
+
+print SDL::CD.index_name(0),"\n"
+cd=SDL::CD.open(0)
+cd.status
+print cd.num_tracks," ",cd.status, "\n"
+
+begin
+  cd.play_tracks 1,0,1,0
+  sleep 100
+ensure
+  cd.stop
+end
+

data/sample/collision.rb

@@ -0,0 +1,97 @@
+require 'sdl'
+
+SDL.init( SDL::INIT_VIDEO )
+screen = SDL::Screen.open(640,480,16,SDL::SWSURFACE)
+SDL::WM::set_caption('collision.rb','collision.rb icon')
+$image = SDL::Surface.load_bmp("icon.bmp")
+$image.set_color_key( SDL::SRCCOLORKEY ,0)
+$image = $image.display_format
+$cMap = $image.make_collision_map
+
+class Sprite
+
+  attr_reader :x, :y
+
+  def initialize(screen)
+    @screen = screen
+    @x=rand(screen.w)
+    @y=rand(screen.h)
+    @dx=rand(11)-5
+    @dy=rand(11)-5
+  end
+  
+  def move
+    @x, @dx = move_coord(@x, @dx, xMax)
+    @y, @dy = move_coord(@y, @dy, yMax)
+  end
+
+  def bounce
+    @dx *= -1
+    @dy *= -1
+    move
+  end
+
+  def draw
+    SDL::Surface.blit($image,0,0,$image.w,$image.h,@screen,@x,@y)
+  end
+  
+  def collide_with?(sprite)
+    $cMap.collision_check(@x, @y, $cMap, sprite.x, sprite.y) != nil
+  end
+
+  private
+
+  def move_coord(coord, delta, max)
+    coord += delta
+    if coord >= max then
+      delta *= -1
+      coord = max - 1
+    end
+    if coord < 0 then
+      delta *= -1
+      coord = 0
+    end
+    [coord, delta]
+  end
+  
+  def xMax
+    @screen.w - $image.w
+  end
+
+  def yMax
+    @screen.h - $image.h
+  end
+  
+end
+
+def detect_collisions(sprites)
+  collisions = []
+  for i in (0 ... sprites.size - 1) do
+    for j in (i + 1 ... sprites.size) do
+      if sprites[i].collide_with?(sprites[j])
+        collisions << sprites[i]
+        collisions << sprites[j]
+      end
+    end
+  end
+  collisions.uniq
+end
+
+sprites = (1..8).collect {Sprite.new(screen)}
+
+background = screen.format.map_rgb(64, 64, 64)
+while true
+  while event = SDL::Event.poll
+    case event
+    when SDL::Event::KeyDown, SDL::Event::Quit
+      exit
+    end
+  end
+
+  screen.fill_rect(0,0,640,480,background)
+  sprites.each {|i| i.move}
+  detect_collisions(sprites).each {|i| i.bounce}
+  sprites.each {|i| i.draw}
+  screen.update_rect(0,0,0,0)
+end
+

data/sample/cursor.rb

@@ -0,0 +1,22 @@
+require 'sdl'
+
+SDL.init( SDL::INIT_VIDEO )
+screen = SDL::Screen.open(640,480,16,SDL::SWSURFACE)
+screen.fill_rect 0,0,640,480,[32,240,100]
+screen.flip
+SDL::WM::set_caption $0,$0
+
+image=SDL::Surface.load_bmp 'cursor.bmp'
+SDL::Mouse.set_cursor image,image[0,0],image[1,1],image[7,0],543
+
+
+while true
+  
+  while event = SDL::Event2.poll
+    case event
+    when SDL::Event2::KeyDown, SDL::Event2::Quit
+      exit
+    end
+  end
+  sleep 0.01
+end

data/sample/ellipses.rb

@@ -0,0 +1,39 @@
+# SDL random ellipses
+# Author: Wayne Conrad <wconrad@yagni.com>
+
+require 'sdl'
+
+def show(fill)
+  screen = SDL::Screen.open(640, 480, 16, SDL::SWSURFACE)
+  format = screen.format
+  loop do
+    color = format.map_rgb(rand(256),rand(256),rand(256))
+    x = rand(screen.w)
+    y = rand(screen.h)
+    xr = rand(80)
+    yr = rand(80)
+    screen.draw_ellipse(x, y, xr, yr, color, fill)
+    while event = SDL::Event.poll
+      case event
+      when SDL::Event::Quit
+        exit
+      when SDL::Event::KeyDown
+        if event.sym == SDL::Key::ESCAPE
+          exit
+        else
+          return
+        end
+      when SDL::Event::MouseButtonDown
+        return
+      end
+    end
+    screen.updateRect(0, 0, 0, 0)
+    sleep 0.05
+  end
+  screen.destroy
+end
+
+srand
+SDL.init SDL::INIT_VIDEO
+show(false)
+show(true)

data/sample/event2.rb

@@ -0,0 +1,34 @@
+require 'sdl'
+
+SDL.init( SDL::INIT_VIDEO )
+screen = SDL::Screen.open(640,480,16,SDL::SWSURFACE)
+SDL::WM::set_caption $0,$0
+
+loop do
+  while event=SDL::Event.poll 
+    case event
+    when SDL::Event::Active
+      print "Active ", (event.gain)?"gain":"lost","\n"
+    when SDL::Event::KeyDown
+      print "KeyDown sym:#{event.sym} mod:#{event.mod}","\n"
+      if event.sym==SDL::Key::A then
+	e=SDL::Event::KeyDown.new
+	e.sym=3333
+	e.mod=3333
+	e.press=true
+        e.unicode=200
+	SDL::Event.push(e)
+      end
+    when SDL::Event::KeyUp
+      print "KeyUp sym:#{event.sym} mod:#{event.mod}","\n"
+      
+    when SDL::Event::Quit
+      exit
+      
+    end
+  end
+
+  sleep 0.05
+end
+  
+	

data/sample/font.rb

@@ -0,0 +1,26 @@
+require 'sdl'
+
+SDL.init( SDL::INIT_VIDEO )
+
+screen = SDL::Screen.open(640,480,16,SDL::SWSURFACE)
+SDL::WM::set_caption($0,$0)
+
+SDL::TTF.init
+
+font = SDL::TTF.open('sample.ttf',24)
+font.style = SDL::TTF::STYLE_NORMAL
+
+font.draw_solid_utf8(screen,'test SDL_ttf',300,150,255,255,255)
+
+screen.flip
+
+loop do
+  while event = SDL::Event2.poll
+    case event
+    when SDL::Event2::KeyDown, SDL::Event2::Quit
+      font.close
+      exit
+    end
+  end
+  
+end

data/sample/fpstimer.rb

@@ -0,0 +1,175 @@
+require 'sdl'
+
+class FPSTimerSample
+  FPS_COUNT = 10
+
+  attr_accessor :fps
+  attr_reader :real_fps, :total_skip
+  attr_reader :count_sleep
+  # +fps+ is the number of frames per second that you want to keep,
+  # +accurary+ is the accurary of sleep/SDL.delay in milisecond
+  def initialize(fps = 60, accurary = 10, skip_limit = 15)
+    @fps = fps
+    @accurary = accurary / 1000.0
+    @skip_limit = skip_limit
+  end
+
+  # reset timer, you should call just before starting loop
+  def reset
+    @old = get_ticks
+    @skip = 0
+    @real_fps = @fps
+    @frame_count = 0
+    @fps_old = @old
+    @count_sleep = 0
+    @total_skip = 0
+  end
+
+  # execute given block and wait
+  def wait_frame
+    now = get_ticks
+    nxt = @old + (1.0/@fps)
+    if nxt > now || @skip > @skip_limit
+      yield
+      @skip = 0
+      wait(nxt)
+      @old = nxt
+    else
+      @skip += 1
+      @total_skip += 1
+      @old = get_ticks
+    end
+
+    calc_real_fps
+  end
+
+  private
+  def wait(nxt)
+    while nxt > get_ticks + @accurary
+      sleep(@accurary - 0.005)
+      @count_sleep += 1
+    end
+
+    while nxt > get_ticks
+      # busy loop, do nothing
+    end
+  end
+
+  def get_ticks
+    SDL.get_ticks / 1000.0
+  end
+
+  def calc_real_fps
+    @frame_count += 1
+    if @frame_count >= FPS_COUNT
+      @frame_count = 0
+      now = get_ticks
+      @real_fps = FPS_COUNT / (now - @fps_old)
+      @fps_old = now
+    end
+  end
+end
+
+class FPSTimerLight
+  N = 12
+  DT = 2
+  FPS_COUNT = 10
+  
+  attr_reader :fps
+  attr_reader :real_fps
+  # +fps+ is the number of frames per second that you want to keep,
+  # +accurary+ is the accurary of sleep/SDL.delay in milisecond
+  def initialize(fps = 60, accurary = 10, skip_limit = 15)
+    @fps = fps
+    @accurary = accurary * N
+    @skip_limit = 15
+    @one_frame = 1000*N / fps
+    @delay = accurary - 2
+  end
+  
+  # reset timer, you should call just before starting loop
+  def reset
+    @old = get_ticks
+    @skip = 0
+    
+    # for calculate real fps
+    @frame_count = 0
+    @fps_old = @old
+    @real_fps = @fps
+  end
+
+  def wait_frame
+    now = get_ticks
+    nxt = @old + @one_frame
+    if nxt > now || @skip > @skip_limit
+      yield
+      @skip = 0
+      wait(nxt)
+      @old = nxt
+    else
+      @skip += 1
+      @total_skip += 1
+      @old = get_ticks
+    end
+
+    calc_real_fps
+  end
+
+  private
+  def get_ticks
+    SDL.get_ticks * N
+  end
+  
+  def wait(nxt)
+    while nxt > get_ticks + @accurary
+      SDL.delay(@delay) 
+    end
+
+    while nxt > get_ticks
+      # busy loop, do nothing
+    end
+  end
+
+  def calc_real_fps
+    @frame_count += 1
+    if @frame_count >= FPS_COUNT
+      @frame_count = 0
+      now = get_ticks
+      @real_fps = (N*1000*FPS_COUNT)/(now - @fps_old)
+      @fps_old = now
+    end
+  end
+end
+  
+if __FILE__ == $0
+  timer = FPSTimerSample.new
+  log = []
+  
+  timer.reset
+  300.times do
+    sleep 0.005 if rand(5) == 0
+    timer.wait_frame do
+      log << timer.real_fps.to_s
+    end
+  end
+  
+  puts log
+  printf "skip:%d\n", timer.total_skip
+  printf "sleep:%d\n", timer.count_sleep
+
+  puts
+  
+  timer = FPSTimerLight.new
+  log = []
+  
+  timer.reset
+  old = SDL.get_ticks
+  300.times do
+    sleep 0.005 if rand(5) == 0
+    timer.wait_frame do
+      log << timer.real_fps
+    end
+  end
+
+  puts log
+end