rubysdl 1.3.0

data/rubysdl_wm.c

@@ -0,0 +1,71 @@
+/*
+  Ruby/SDL   Ruby extension library for SDL
+
+  Copyright (C) 2001-2007 Ohbayashi Ippei
+  
+  This library is free software; you can redistribute it and/or
+  modify it under the terms of the GNU Lesser General Public
+  License as published by the Free Software Foundation; either
+  version 2.1 of the License, or (at your option) any later version.
+
+  This library is distributed in the hope that it will be useful,
+  but WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+  Lesser General Public License for more details.
+
+  You should have received a copy of the GNU Lesser General Public
+  License along with this library; if not, write to the Free Software
+  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+  */
+#include "rubysdl.h"
+
+static VALUE sdl_wm_getCaption(VALUE mod)
+{
+  char *title,*icon;
+  SDL_WM_GetCaption( &title,&icon );
+  return rb_ary_new3( 2,rb_str_new2(title),rb_str_new2(icon) );
+}
+static VALUE sdl_wm_setCaption(VALUE mod,VALUE title,VALUE icon)
+{
+  SDL_WM_SetCaption( GETCSTR(title),GETCSTR(icon) );
+  return Qnil;
+}
+static VALUE sdl_wm_setIcon(VALUE mod,VALUE icon)
+{
+  SDL_Surface *surface;
+  if( ! rb_obj_is_kind_of(icon,cSurface) )
+    rb_raise(rb_eArgError,"type mismatch (expected Surface)");
+  Data_Get_Struct(icon,SDL_Surface,surface);
+  SDL_WM_SetIcon(surface,NULL);
+  return Qnil;
+}
+static VALUE sdl_wm_iconifyWindow(VALUE mod)
+{
+  if( ! SDL_WM_IconifyWindow() )
+    rb_raise( eSDLError,"iconify failed: %s",SDL_GetError() );
+  return Qnil;
+}
+
+static void defineConstForWM()
+{
+  rb_define_const(mWM,"GRAB_QUERY",INT2NUM(SDL_GRAB_QUERY));
+  rb_define_const(mWM,"GRAB_OFF",INT2NUM(SDL_GRAB_OFF));
+  rb_define_const(mWM,"GRAB_ON",INT2NUM(SDL_GRAB_ON));
+}
+
+static VALUE sdl_wm_grabInput(VALUE mod, VALUE flag)
+{
+   return INT2FIX(SDL_WM_GrabInput(flag));
+}
+
+void init_wm()
+{
+  mWM=rb_define_module_under(mSDL,"WM");
+  rb_define_module_function(mWM,"caption",sdl_wm_getCaption,0);
+  rb_define_module_function(mWM,"setCaption",sdl_wm_setCaption,2);
+  rb_define_module_function(mWM,"icon=",sdl_wm_setIcon,1);
+  rb_define_module_function(mWM,"iconify",sdl_wm_iconifyWindow,0);
+  rb_define_module_function(mWM,"grabInput",sdl_wm_grabInput,1);
+
+  defineConstForWM();
+}

data/sample/aadraw.rb

@@ -0,0 +1,24 @@
+require 'sdl'
+
+SDL.init( SDL::INIT_VIDEO )
+screen = SDL::setVideoMode(640,480,16,SDL::SWSURFACE)
+SDL::WM::setCaption $0, $0
+
+Red=screen.format.mapRGB(255,0,0)
+screen.drawAALine(20,20,300,200,Red)
+screen.drawAACircle(100,100,50,[87,87,87])
+screen.drawAAFilledCircle(300,300,30,Red)
+screen.drawAAEllipse(320,240,100,200,[200,255,0])
+
+screen.flip
+
+while true
+  while event = SDL::Event2.poll
+    case event
+    when SDL::Event2::KeyDown, SDL::Event2::Quit
+      exit
+    end
+  end
+
+  sleep 0.2
+end

data/sample/alpha.rb

@@ -0,0 +1,27 @@
+require 'sdl'
+
+SDL.init( SDL::INIT_VIDEO )
+screen = SDL::setVideoMode(640,480,16,SDL::SWSURFACE)
+
+image = SDL::Surface.loadBMP("icon.bmp")
+image.setColorKey( SDL::SRCCOLORKEY ,0)
+image = image.displayFormat
+
+event=SDL::Event.new
+i=0;
+while true 
+  if  event.poll != 0 then
+    if event.type==SDL::Event::QUIT then
+      break
+    end
+    if event.type==SDL::Event::KEYDOWN then
+      exit
+    end
+  end
+  screen.fillRect(0,0,640,480,0)
+
+  image.setAlpha(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::setVideoMode(640,480,16,SDL::SWSURFACE)
+SDL::WM::setCaption $0, $0
+
+Red=screen.format.mapRGB(255,0,0)
+screen.drawAAFilledCircle(320,240,220,[140,180,0])
+screen.drawAALineAlpha(20,20,300,200,Red,rand(64)+128)
+screen.drawAACircleAlpha(100,100,50,[87,87,87],rand(64)+128)
+screen.drawFilledCircleAlpha(300,170,50,[87,80,0],rand(64)+128)
+screen.drawEllipseAlpha(320,240,100,200,[200,255,0],rand(64)+128)
+
+screen.flip
+
+while true
+  while event = SDL::Event2.poll
+    case event
+    when SDL::Event2::KeyDown, SDL::Event2::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::setVideoMode(640,480,16,SDL::SWSURFACE)
+
+font = SDL::BMFont.open("font.bmp",SDL::BMFont::TRANSPARENT)
+
+y = 0
+
+while true
+  while event = SDL::Event2.poll
+    case event
+    when SDL::Event2::KeyDown, SDL::Event2::Quit
+      exit
+    end
+  end
+  screen.fillRect(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/cdrom.rb

@@ -0,0 +1,17 @@
+require 'sdl'
+
+SDL.init( SDL::INIT_CDROM )
+
+print SDL::CD.numDrive,"\n"
+print SDL::CD.indexName(0),"\n"
+cd=SDL::CD.open(0)
+cd.status
+print cd.numTracks," ",cd.status, "\n"
+
+begin
+  cd.playTracks 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::setVideoMode(640,480,16,SDL::SWSURFACE)
+SDL::WM::setCaption('collision.rb','collision.rb icon')
+$image = SDL::Surface.loadBMP("icon.bmp")
+$image.setColorKey( SDL::SRCCOLORKEY ,0)
+$image = $image.displayFormat
+$cMap = $image.makeCollisionMap
+
+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 = moveCoord(@x, @dx, xMax)
+    @y, @dy = moveCoord(@y, @dy, yMax)
+  end
+
+  def bounce
+    @dx *= -1
+    @dy *= -1
+    move
+  end
+
+  def draw
+    SDL.blitSurface($image,0,0,$image.w,$image.h,@screen,@x,@y)
+  end
+  
+  def collidingWith(sprite)
+    $cMap.collisionCheck(@x, @y, $cMap, sprite.x, sprite.y) != nil
+  end
+
+  private
+
+  def moveCoord(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 detectCollisions(sprites)
+  collisions = []
+  for i in (0 ... sprites.size - 1) do
+    for j in (i + 1 ... sprites.size) do
+      if sprites[i].collidingWith(sprites[j])
+        collisions << sprites[i]
+        collisions << sprites[j]
+      end
+    end
+  end
+  collisions.uniq
+end
+
+sprites = (1..8).collect {Sprite.new(screen)}
+
+
+while true
+  while event = SDL::Event2.poll
+    case event
+    when SDL::Event2::KeyDown, SDL::Event2::Quit
+      exit
+    end
+  end
+
+  screen.fillRect(0,0,640,480,screen.mapRGB(64, 64, 64))
+  sprites.each {|i| i.move}
+  detectCollisions(sprites).each {|i| i.bounce}
+  sprites.each {|i| i.draw}
+  screen.updateRect(0,0,0,0)
+end
+

data/sample/cursor.rb

@@ -0,0 +1,22 @@
+require 'sdl'
+
+SDL.init( SDL::INIT_VIDEO )
+screen = SDL::setVideoMode(640,480,16,SDL::SWSURFACE)
+screen.fillRect 0,0,640,480,[32,240,100]
+screen.flip
+SDL::WM::setCaption $0,$0
+
+image=SDL::Surface.loadBMP 'cursor.bmp'
+SDL::Mouse.setCursor 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,35 @@
+# SDL random ellipses
+# Author: Wayne Conrad <wconrad@yagni.com>
+
+require 'sdl'
+
+def show(function)
+  event = SDL::Event.new
+  screen = SDL::setVideoMode(640, 480, 16, SDL::SWSURFACE|SDL::ANYFORMAT)
+  loop do
+    color = screen.mapRGB(rand(256),rand(256),rand(256))
+    x = rand(screen.w)
+    y = rand(screen.h)
+    xr = rand(80)
+    yr = rand(80)
+    eval("screen.#{function}(x, y, xr, yr, color)")
+    if event.poll != 0 then
+      case event.type
+      when SDL::Event::QUIT
+        exit
+      when SDL::Event::MOUSEBUTTONDOWN
+        break
+      when SDL::Event::KEYDOWN
+        exit if event.keySym == SDL::Key::ESCAPE
+        break
+      end
+    end
+    SDL::Key.scan
+    screen.updateRect(0, 0, 0, 0)
+  end
+end
+
+srand
+SDL.init SDL::INIT_VIDEO
+show("drawEllipse")
+show("drawFilledEllipse")

data/sample/event2.rb

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

data/sample/font.rb

@@ -0,0 +1,25 @@
+require 'sdl'
+
+SDL.init( SDL::INIT_VIDEO )
+
+screen = SDL::setVideoMode(640,480,16,SDL::SWSURFACE)
+SDL::WM::setCaption($0,$0)
+
+SDL::TTF.init
+
+font = SDL::TTF.open('sample.ttf',24)
+font.style = SDL::TTF::STYLE_NORMAL
+
+font.drawSolidUTF8(screen,'test SDL_ttf',300,150,255,255,255)
+
+screen.flip
+
+while true
+  while event = SDL::Event2.poll
+    case event
+    when SDL::Event2::KeyDown, SDL::Event2::Quit
+      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.getTicks / 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.getTicks * 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.getTicks
+  300.times do
+    sleep 0.005 if rand(5) == 0
+    timer.wait_frame do
+      log << timer.real_fps
+    end
+  end
+
+  puts log
+end