rubysdl-mswin32-1.9 2.1.0

data/sample/joy2.rb

@@ -0,0 +1,81 @@
+#
+# Usage:
+#    ruby joy2.rb [n]
+#      n: if given, use n'th joystick
+#           if not given, show all connected joystick
+# 
+require 'sdl'
+
+White = [255,255,255]
+
+def print_joystick_info
+  for i in 0..SDL::Joystick.num-1
+    print i,":",SDL::Joystick.index_name(0),"\n"
+  end
+end
+
+def display_button_state ( screen, joy )
+  for i in 0..joy.num_buttons-1
+    if joy.button(i) then
+      screen.fill_rect( i*30+30, 50, 10, 10, [0,0,128] )
+    else
+      screen.fill_rect( i*30+30, 50, 10, 10, White )
+    end
+  end
+end
+
+def display_hat_state ( screen, joy )
+  # display the state of only first hat  
+  if joy.num_hats > 0 then
+    x = y = 0
+    x = 1 if  ( joy.hat(0) & SDL::Joystick::HAT_RIGHT ) != 0
+    x = -1 if ( joy.hat(0) & SDL::Joystick::HAT_LEFT ) != 0
+    y = 1 if ( joy.hat(0) & SDL::Joystick::HAT_DOWN ) != 0
+    y = -1 if ( joy.hat(0) & SDL::Joystick::HAT_UP ) != 0
+    screen.fill_rect( 450 + x*40, 200 + y*40, 10, 10, White )
+  end
+end
+
+def display_axis_state ( screen, joy )
+  for i in 0..joy.num_axes-1
+    screen.fill_rect( i*30+130, joy.axis(i)*100/32768+200, 20, 20, White )
+  end
+end
+
+SDL.init( SDL::INIT_VIDEO|SDL::INIT_JOYSTICK )
+screen = SDL::Screen.open(640, 480, 16, SDL::SWSURFACE)
+
+if SDL::Joystick.num == 0 then
+  print "No joystick available\n"
+  exit
+end
+
+if ARGV.size == 0 then
+  print_joystick_info
+  exit
+end
+
+joynum = ARGV[0].to_i
+
+if SDL::Joystick.num < joynum then
+  print "Joystick No.#{joynum} is not available\n"
+  exit
+end
+
+joy=SDL::Joystick.open(joynum)
+
+while true
+
+  while event = SDL::Event.poll
+    case event
+    when SDL::Event::KeyDown, SDL::Event::Quit
+      exit
+    end
+  end
+  SDL::Joystick.update_all
+  screen.fill_rect(0,0,640,480,[0,0,0])
+  display_button_state screen, joy
+  display_hat_state screen, joy
+  display_axis_state screen, joy
+  screen.update_rect(0, 0, 0, 0)
+end

data/sample/kanji.rb

@@ -0,0 +1,36 @@
+#!/usr/local/bin/ruby -Ke
+#
+# This sample needs following two bdf files
+#   8x16.bdf     : alphabets
+#   jiskan16.bdf : chinese characters and kana
+# 
+require 'sdl'
+
+SDL.init( SDL::INIT_VIDEO )
+screen = SDL::Screen.open(640,480,16,SDL::SWSURFACE)
+
+font = SDL::Kanji.open("8x16.bdf",16)
+font.add("jiskan16.bdf")
+font.set_coding_system(SDL::Kanji::EUC)
+
+y = 0
+x = 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
+  x = (x + 1) % 640
+  
+  font.put(screen,"SDL Kanji�Υƥ�����",40,y,128,128,0)
+  font.put_tate(screen,"�Ľ񤭤�Ǥ��ޤ���",x,60,128,128,0)
+               
+  screen.update_rect(0,0,0,0)
+  sleep 0.005
+end

data/sample/load_from_io.rb

@@ -0,0 +1,45 @@
+#
+# Test for rwops
+#
+# This sample needs
+#   track01.ogg: Ogg Vorbis file
+
+require 'sdl'
+require 'stringio'
+require 'zlib'
+
+SDL.init( SDL::INIT_VIDEO|SDL::INIT_AUDIO )
+SDL::Mixer.open(22050)
+
+screen = SDL::setVideoMode(640,480,16,SDL::SWSURFACE)
+SDL::WM::setCaption('from_str.rb','from_str.rb')
+
+str = File.read("icon.bmp")
+img = SDL::Surface.loadBMPFromIO(StringIO.new(str))
+img2 = File.open("icon.bmp", "rb"){|f| SDL::Surface.loadBMPFromIO(f) }
+img3 = Zlib::GzipReader.open("icon.bmp.gz"){|f| SDL::Surface.loadBMPFromIO(f) }
+img4 = File.open("icon.png", "rb"){|f| SDL::Surface.loadFromIO(f) }
+
+#mus = SDL::Mixer::Music.loadFromString(File.read("track01.ogg"))
+mus = SDL::Mixer::Music.load("track01.ogg")
+wav = File.open('sample.wav', "rb"){|f| SDL::Mixer::Wave.loadFromIO(f) }
+
+SDL.blitSurface(img,0,0,32,32,screen,100,100)
+SDL.blitSurface(img2,0,0,32,32,screen,200,100)
+SDL.blitSurface(img3,0,0,32,32,screen,300,100)
+SDL.blitSurface(img4,0,0,32,32,screen,400,100)
+screen.updateRect(0, 0, 0, 0)
+
+SDL::Mixer.playMusic(mus, -1)
+SDL::Mixer.playChannel(0, wav, 0)
+
+while true
+  while event = SDL::Event2.poll
+    case event
+    when SDL::Event2::KeyDown, SDL::Event2::Quit
+      exit
+    end
+  end
+
+  sleep 0.1
+end

data/sample/movesp.rb

@@ -0,0 +1,94 @@
+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 || SDL::RLEACCEL ,0)
+$image = image.display_format
+
+
+class Sprite
+  def initialize
+    @x=rand(640)
+    @y=rand(480)
+    @dx=rand(11)-5
+    @dy=rand(11)-5
+  end
+  
+  def move
+    @x += @dx
+    if @x >= 640 then
+      @dx *= -1
+      @x = 639
+    end
+    if @x < 0 then
+      @dx *= -1
+      @x = 0
+    end
+    @y += @dy
+    if @y >= 480 then
+      @dy *= -1
+      @y = 479
+    end
+    @y += @dy
+    if @y < 0 then
+      @dy *= -1
+      @y = 0
+    end
+  end
+  
+  def draw(screen)
+    SDL::Surface.blit($image,0,0,32,32,screen,@x,@y)
+  end
+  
+end
+
+sprites = []
+for i in 1..5
+  sprites << Sprite.new
+end
+
+class MovableSp
+  def initialize()
+    @ud=@lr=0;
+  end
+  
+  def move()
+    @ud=@lr=0;
+    @lr=-1 if SDL::Key.press?(SDL::Key::H) or SDL::Key.press?(SDL::Key::LEFT)
+    @lr=1  if SDL::Key.press?(SDL::Key::L) or SDL::Key.press?(SDL::Key::RIGHT)
+    @ud=1  if SDL::Key.press?(SDL::Key::J) or SDL::Key.press?(SDL::Key::DOWN)
+    @ud=-1 if SDL::Key.press?(SDL::Key::K) or SDL::Key.press?(SDL::Key::UP)
+  end
+  
+  def draw(screen)
+    SDL::Surface.blit($image,0,0,32,32,screen,300+@lr*50,200+@ud*50)
+  end
+end
+
+sprites << MovableSp.new
+black = screen.format.map_rgb(0, 0, 0)
+
+while true
+  while event = SDL::Event.poll
+    case event
+    when SDL::Event::Quit
+      exit
+    when SDL::Event::KeyDown
+      exit if event.sym == SDL::Key::ESCAPE
+    end
+  end
+  
+  screen.fill_rect(0,0,640,480,black)
+  SDL::Key.scan
+  
+  sprites.each {|i|
+    i.move
+    i.draw(screen)
+  }
+  screen.update_rect(0,0,0,0)
+end
+
+

data/sample/playmod.rb

@@ -0,0 +1,13 @@
+# This sample needs a mod file `sample.it'.
+#
+require 'sdl'
+SDL::init(SDL::INIT_AUDIO)
+
+SDL::Mixer.open(22050)
+music = SDL::Mixer::Music.load("sample.it")
+
+SDL::Mixer.play_music(music,0)
+
+while SDL::Mixer::play_music?
+  sleep 1
+end

data/sample/plaympeg.rb

@@ -0,0 +1,44 @@
+# This sample needs a MPEG file `sample.mpg'.
+require 'sdl'
+
+SDL.init( SDL::INIT_VIDEO|SDL::INIT_AUDIO )
+SDL::Mixer.open
+
+screen = SDL::Screen.open( 320, 240, 16, SDL::SWSURFACE )
+
+mpeg = SDL::MPEG.load( 'sample.mpg' )
+
+info = mpeg.info
+
+p(info)
+
+mpeg.enable_audio true
+mpeg.enable_video true
+
+mpeg.set_display(screen)
+mpeg.set_display_region( 0, 0, screen.w, screen.h )
+mpeg.play
+
+loop do
+
+  case event = SDL::Event.poll
+  when SDL::Event::Quit
+    mpeg.stop
+    exit
+  when SDL::Event::KeyDown
+    case event.sym
+    when SDL::Key::S
+      mpeg.stop
+    when SDL::Key::P
+      mpeg.play
+    when SDL::Key::R
+      mpeg.rewind
+      mpeg.play
+    when SDL::Key::ESCAPE
+      exit      
+    end
+  end
+      
+  sleep 0.1
+  
+end

data/sample/playwave.rb

@@ -0,0 +1,15 @@
+# This sample needs a wave file `sample.wav', please prepare.
+require 'sdl'
+
+SDL::init(SDL::INIT_AUDIO)
+
+SDL::Mixer.open(22050, SDL::Mixer::DEFAULT_FORMAT, 2, 512)
+wave = SDL::Mixer::Wave.load("sample.wav")
+
+SDL::Mixer.play_channel(0, wave, 0)
+
+while SDL::Mixer.play?(0)
+  sleep 1
+end
+
+

data/sample/randrect.rb

@@ -0,0 +1,40 @@
+# SDL random rect sample
+# original code by adas@geocities.co.jp written by C
+# auther TAMURA Kenichi <sgs02516@nifty.com>
+#
+require 'sdl'
+
+src_w = 640
+src_h = 480
+src_d = 16
+
+dst_w = 0
+dst_h = 0
+
+MAX = 1000
+RECTSIZE = 400
+
+SDL.init SDL::INIT_VIDEO
+screen = SDL::setVideoMode src_w,src_h,src_d, SDL::SWSURFACE|SDL::ANYFORMAT
+
+srand
+
+(1 .. MAX).each do |i|
+  color = screen.mapRGB rand(256),rand(256),rand(256)
+  dst_w = rand(RECTSIZE) + 1
+  dst_h = rand(RECTSIZE) + 1
+  screen.fillRect rand(src_w-dst_w), rand(src_h-dst_h), dst_w, dst_h, color
+  screen.updateRect 0,0,0,0
+
+  while event = SDL::Event2.poll
+    case event
+    when SDL::Event2::Quit
+      exit
+    when SDL::Event2::KeyDown
+      exit if event.sym == SDL::Key::ESCAPE
+    end
+  end
+
+  SDL::Key.scan
+end
+

data/sample/sdl.rb

@@ -0,0 +1,33 @@
+require 'rubysdl'
+
+printf "%d \n" ,  SDL::INIT_TIMER | SDL::INIT_VIDEO 
+
+SDL.init(SDL::INIT_TIMER | SDL::INIT_VIDEO )
+screen = SDL::Screen.setVideoMode(640,480,16,SDL::SWSURFACE)
+exit if screen == nil
+
+sprite = SDL::Surface.loadBMP("icon.bmp")
+sprite.setColorKey( 0x00001000 | 0x00002000 ,0)
+sprite = sprite.displayFormat
+
+
+screen.fillRect(100,100,100,100,678432)
+SDL.blitSurface(sprite,0,0,32,32,screen,0,0)
+screen.updateRect(0,0,640,480)
+event = SDL::Event.new
+
+while true 
+  if  event.pollEvent != 0 then
+    if event.type==SDL::Event::QUIT then
+      break
+    end
+    if event.type==SDL::Event::KEYDOWN then
+      break
+    end
+  end
+end
+
+
+
+
+	

data/sample/sdlskk.rb

@@ -0,0 +1,70 @@
+#
+# SDLSKK from Ruby/SDL
+#
+# This sample needs three files.
+#   jisyo       : SKK's dictionary
+#   rule_table  : SDLSKK's
+#   nihongo.ttf : True Type Font file that has Japanese characters
+#
+# Usage:
+#   ruby sdlskk.rb [-m]
+#   
+#     -m  Use minibuffer
+#
+require 'sdl'
+
+use_minibuffer = (ARGV[0]=='-m')
+  
+SDL.init( SDL::INIT_VIDEO )
+SDL::TTF.init
+SDL::Event.enableUNICODE
+
+font = SDL::TTF.open( 'nihongo.ttf', 14 )
+
+dict = SDL::SKK::Dictionary.new
+dict.load( 'jisyo', false )
+table = SDL::SKK::RomKanaRuleTable.new( 'rule_table' )
+bind = SDL::SKK::Keybind.new
+bind.set_default_key
+
+context = SDL::SKK::Context.new( dict, table, bind, use_minibuffer )
+
+screen = SDL::Screen.open( 640, 480, 16, SDL::SWSURFACE )
+SDL::WM.set_caption( $0, $0 )
+
+BLACK = screen.format.map_rgb( 0, 0, 0 )
+loop do
+
+  while event = SDL::Event.poll do
+    case event
+    when SDL::Event::Quit
+      exit
+    when SDL::Event::KeyDown
+      if event.sym == SDL::Key::ESCAPE then
+	exit
+      end
+      if event.sym == SDL::Key::F1
+	dict.save("test_user_dict")
+      end
+      
+      context.input( event )      
+    end
+  end
+
+  text_surface = context.render_str( font, 255, 0, 255 )
+
+  screen.fill_rect( 0, 0, 640, 480, BLACK )
+  SDL::Surface.blit( text_surface, 0, 0, 0, 0, screen, 0, 0 )
+
+  if use_minibuffer then
+    minibuffer_surface = context.render_minibuffer_str( font, 255, 0, 255 )
+    if minibuffer_surface then
+      SDL::Surface.blit( minibuffer_surface, 0, 0, 0, 0, screen, 0, 40 )
+    end
+  end
+  
+  screen.update_rect( 0, 0, 0, 0 )
+
+  sleep 0.05
+  
+end