stylet 0.0.1

data/examples/setup.rb

@@ -0,0 +1,5 @@
+$LOAD_PATH.unshift "#{__dir__}/../lib"
+require "stylet"
+require "observer"
+require "stylet/contrib/menu"
+require "active_support/core_ext/benchmark"

data/examples/stage_infos.rb

@@ -0,0 +1 @@
+{2 => {:world_wh => [1280, 960], :positions => {"Mario" => [[288, 904]], "Luigi" => [[334, 904]], "SoftBlock" => [[80, 560], [112, 560], [144, 560], [176, 560], [48, 624], [80, 624], [112, 624], [144, 624], [176, 624], [208, 624], [208, 656], [208, 688], [176, 720], [144, 752], [112, 752], [80, 752], [272, 560], [304, 560], [336, 560], [368, 560], [400, 560], [432, 560], [464, 560], [464, 592], [464, 624], [464, 656], [432, 688], [400, 720], [368, 752], [336, 752], [624, 560], [656, 560], [528, 624], [560, 624], [592, 624], [560, 560], [592, 560], [688, 560], [624, 624], [656, 624], [688, 624], [720, 624], [720, 656], [720, 688], [688, 720], [656, 752], [624, 752], [592, 752], [784, 656], [816, 656], [848, 624], [880, 592], [912, 560], [944, 560], [880, 624], [880, 656], [880, 688], [880, 720], [848, 752], [1008, 560], [1040, 560], [1104, 560], [1072, 560], [1136, 560], [1168, 560], [1168, 592], [1168, 624], [1168, 656], [1136, 688], [1104, 720], [1072, 752], [1040, 752], [1232, 560], [1232, 592], [1232, 624], [1232, 656], [1232, 688], [1232, 752], [80, 80], [112, 80], [144, 80], [176, 80], [176, 112], [80, 112], [80, 144], [80, 176], [112, 176], [144, 176], [176, 240], [176, 272], [144, 272], [112, 272], [80, 272], [80, 240], [176, 208], [176, 176], [368, 80], [368, 112], [368, 144], [368, 208], [368, 240], [368, 272], [368, 176], [400, 176], [432, 176], [432, 208], [432, 240], [432, 272], [624, 272], [624, 240], [624, 208], [624, 176], [656, 176], [688, 176], [688, 208], [688, 240], [688, 272], [656, 272], [752, 80], [752, 112], [752, 144], [752, 176], [752, 208], [752, 240], [752, 272], [816, 336], [848, 336], [880, 336], [848, 368], [848, 400], [848, 432], [848, 464], [816, 464], [976, 400], [1008, 400], [1008, 368], [1008, 336], [976, 336], [944, 336], [944, 368], [944, 400], [944, 432], [944, 464], [976, 464], [1008, 464], [1136, 368], [1136, 336], [1104, 336], [1072, 336], [1072, 368], [1072, 400], [1072, 432], [1072, 464], [1104, 464], [1136, 432], [1136, 464], [1232, 464], [1232, 432], [1232, 400], [1232, 368], [1232, 336], [1200, 336], [1264, 336], [848, 112], [848, 144], [848, 176], [848, 80], [880, 80], [912, 80], [944, 80], [976, 80], [1008, 80], [1040, 80], [1072, 80], [1232, 80], [1200, 80], [1168, 80], [1136, 80], [1104, 80], [1264, 80], [1264, 112], [1264, 144], [1264, 176], [1264, 208], [1264, 240], [1264, 272], [1232, 272], [1200, 272], [1168, 272], [1136, 272], [1104, 272], [1072, 272], [1040, 272], [1008, 272], [976, 272], [944, 272], [912, 272], [880, 272], [848, 272], [848, 240], [848, 208], [240, 144], [272, 144], [304, 144], [304, 176], [240, 176], [240, 208], [240, 240], [240, 272], [272, 272], [304, 272], [304, 240], [496, 176], [560, 176], [528, 176], [496, 208], [496, 240], [496, 272], [528, 272], [560, 272], [560, 240], [560, 208], [1104, 496], [1168, 496], [752, 432], [752, 400], [720, 400], [688, 400], [688, 432], [688, 464], [720, 464], [752, 464], [624, 464], [592, 432], [560, 400], [560, 368], [560, 336], [592, 336], [624, 336], [624, 368], [624, 400], [592, 400], [560, 432], [560, 464], [496, 368], [496, 336], [464, 336], [432, 336], [432, 368], [432, 400], [432, 432], [432, 464], [464, 400], [496, 400], [368, 336], [368, 368], [368, 400], [368, 432], [368, 464], [304, 400], [304, 432], [304, 464], [272, 464], [240, 464], [240, 432], [240, 400], [272, 400], [176, 336], [176, 368], [176, 400], [176, 432], [176, 464], [144, 464], [112, 464], [112, 432], [112, 400], [144, 400], [48, 336], [48, 400], [48, 432], [48, 464], [16, 944], [16, 944], [48, 944], [80, 944], [112, 944], [144, 944], [176, 944], [208, 944], [240, 944], [272, 944], [304, 944], [336, 944], [368, 944], [400, 944], [432, 944], [464, 944], [496, 944], [528, 944], [560, 944], [592, 944], [624, 944], [656, 944], [688, 944], [720, 944], [752, 944], [784, 944], [816, 944], [848, 944], [880, 944], [912, 944], [944, 944], [976, 944], [1008, 944], [1040, 944], [1072, 944], [1104, 944], [1136, 944], [1168, 944], [1200, 944], [1232, 944], [1264, 944]], "Coin" => [[80, 528], [112, 528], [144, 528], [176, 528], [592, 720], [624, 720], [656, 720], [688, 688], [1168, 464], [1232, 528], [1136, 656], [1104, 688], [1072, 720], [432, 656], [400, 688], [432, 624], [432, 592], [368, 720], [80, 656], [112, 656], [144, 656], [176, 656], [112, 720], [144, 720], [560, 528], [624, 528], [688, 528], [656, 592], [592, 592], [656, 656], [592, 656], [624, 656], [688, 656], [1136, 592], [1136, 624], [1104, 592], [1072, 592], [1040, 592], [1008, 592], [880, 112], [912, 112], [944, 112], [976, 112], [1008, 112], [1040, 112], [1072, 112], [1104, 112], [1136, 112], [1168, 112], [1200, 112], [1232, 112], [1232, 144], [1200, 144], [1168, 144], [1136, 144], [1104, 144], [1072, 144], [1040, 144], [1008, 144], [976, 144], [944, 144], [912, 144], [880, 176], [880, 208], [880, 240], [912, 240], [944, 240], [976, 240], [1008, 240], [1040, 240], [1072, 240], [1104, 240], [1136, 240], [1168, 240], [1200, 240], [1232, 240], [1232, 208], [1232, 176], [1200, 176], [1200, 208], [1168, 208], [1136, 208], [1104, 208], [1072, 208], [1040, 208], [1008, 208], [976, 208], [944, 208], [912, 208], [912, 176], [944, 176], [976, 176], [1008, 176], [1040, 176], [1072, 176], [1104, 176], [1136, 176], [1168, 176], [400, 144], [432, 144], [624, 144], [656, 144], [688, 144], [656, 208], [656, 240], [112, 112], [144, 112], [144, 144], [112, 144], [880, 144], [848, 48], [1264, 48], [1232, 48], [1200, 48], [1168, 48], [1136, 48], [1104, 48], [1072, 48], [1040, 48], [1008, 48], [976, 48], [944, 48], [912, 48], [880, 48], [752, 48], [560, 144], [528, 144], [496, 144], [368, 48], [304, 112], [272, 112], [240, 112], [176, 48], [144, 48], [112, 48], [80, 48], [144, 208], [112, 208], [112, 240], [144, 240], [144, 336], [112, 336], [112, 368], [144, 368], [240, 368], [240, 336], [272, 336], [272, 368], [304, 368], [304, 336], [464, 368], [592, 368], [720, 432], [976, 368], [1104, 368], [1104, 400], [1104, 432], [1136, 400], [1168, 528], [1136, 528], [1104, 528], [1072, 528], [1040, 528], [1008, 528], [944, 528], [912, 528], [880, 528], [880, 560], [848, 592], [816, 592], [816, 624], [784, 624], [272, 528], [304, 528], [336, 528], [368, 528], [400, 528], [432, 528], [464, 528]], "HardBlock" => [[16, 848], [48, 848], [272, 848], [304, 848], [496, 848], [528, 848], [752, 848], [784, 848], [1040, 848], [1008, 848], [976, 848], [1200, 848], [1264, 848], [1232, 848]]}}, 3 => {:world_wh => [1280, 960], :positions => {"Mario" => [[288, 896]], "Luigi" => [[352, 896]], "WhiteBlock" => [[80, 624], [112, 624], [144, 624], [176, 624], [208, 624], [176, 656], [144, 688], [176, 720], [208, 752], [368, 624], [336, 656], [304, 688], [304, 720], [272, 752], [304, 752], [336, 752], [368, 720], [400, 752], [432, 752], [464, 752], [528, 624], [528, 656], [528, 688], [528, 720], [528, 752], [560, 752], [592, 752], [624, 752], [624, 624], [624, 688], [688, 688], [720, 656], [752, 624], [720, 720], [752, 752]], "SoftBlock" => [[80, 528], [112, 528], [144, 528], [176, 528], [208, 528], [240, 528], [272, 528], [304, 528], [336, 528], [368, 528], [400, 528], [432, 528], [464, 528], [496, 528], [528, 528], [560, 528], [592, 528], [624, 528], [656, 528], [688, 528], [720, 528], [752, 528], [784, 528], [816, 528], [848, 528], [848, 560], [848, 592], [848, 624], [848, 656], [848, 688], [848, 720], [848, 752], [848, 784], [848, 816], [816, 816], [784, 816], [752, 816], [720, 816], [688, 816], [656, 816], [624, 816], [592, 816], [560, 816], [528, 816], [496, 816], [464, 816], [432, 816], [400, 816], [368, 816], [336, 816], [304, 816], [272, 816], [240, 816], [208, 816], [176, 816], [144, 816], [112, 816], [80, 816], [48, 816], [16, 816], [16, 784], [16, 752], [16, 720], [16, 688], [16, 656], [16, 624], [16, 592], [16, 560], [16, 528], [48, 528]], "Coin" => [[16, 496], [48, 496], [80, 496], [112, 496], [144, 496], [176, 496], [208, 496], [240, 496], [272, 496], [304, 496], [336, 496], [368, 496], [400, 496], [432, 496], [464, 496], [496, 496], [528, 496], [560, 496], [592, 496], [624, 496], [656, 496], [688, 496], [720, 496], [752, 496], [784, 496], [816, 496], [848, 496]], "HardBlock" => [[880, 560], [912, 592], [944, 624], [976, 656], [1008, 688], [1040, 720], [1072, 752], [1104, 784], [1136, 816], [1168, 848]]}}}

data/examples/start.sh

@@ -0,0 +1,2 @@
+#!/bin/sh
+bundle exec rsdl 0900_スーパーマリオ的な何か.rb -f -s 640x480

data/examples/test_all.rb

@@ -0,0 +1,5 @@
+require "pathname"
+Pathname.glob("[0-9]*").sort.each do |file|
+  puts "#{"-" * 70} #{file}"
+  system("rsdl #{file} --shutdown=1")
+end

data/examples/testgl.rb

@@ -0,0 +1,228 @@
+require "sdl"
+require "pathname"
+require "opengl"
+
+SDL.init(SDL::INIT_VIDEO)
+SDL::GL.set_attr(SDL::GL_RED_SIZE, 5)
+SDL::GL.set_attr(SDL::GL_GREEN_SIZE, 5)
+SDL::GL.set_attr(SDL::GL_BLUE_SIZE, 5)
+SDL::GL.set_attr(SDL::GL_DEPTH_SIZE, 16)
+SDL::GL.set_attr(SDL::GL_DOUBLEBUFFER, 1)
+SDL::Screen.open(640, 480, 16, SDL::OPENGL)
+
+GL::Viewport(0, 0, 640, 480)
+GL::MatrixMode(GL::PROJECTION)
+GL::LoadIdentity()
+
+GL::MatrixMode(GL::MODELVIEW)
+GL::LoadIdentity()
+
+GL::Enable(GL::DEPTH_TEST)
+GL::DepthFunc(GL::LESS)
+GL::ShadeModel(GL::SMOOTH)
+
+loop do
+  sleep(0.01)
+
+  while event = SDL::Event2.poll
+    case event
+    when SDL::Event2::Quit
+      exit
+    when SDL::Event2::KeyDown
+      if event.sym == SDL::Key::ESCAPE || event.sym == SDL::Key::Q
+        exit
+      end
+    end
+  end
+
+  GL.ClearColor(0.0, 0.0, 0.2, 0.0) # 背景色の設定(最後の1.0はなんだろう？)
+  GL.Clear(GL::COLOR_BUFFER_BIT | GL::DEPTH_BUFFER_BIT)
+
+  GL::Begin(GL::QUADS) # 4つの点があることを宣言
+
+  GL::Color([1.0, 0.0, 0.0]) # 右上
+  GL::Vertex([0.75, 0.75, -0.75]) # 右上の点の位置(1.0にすると画面最大になる)
+  GL::Color([0.0, 1.0, 0.0]) # 右下
+  GL::Vertex([0.75, -0.75, -0.75])
+  GL::Color([0.0, 0.0, 1.0]) # 左下
+  GL::Vertex([-0.75, -0.75, -0.75])
+  GL::Color([0.0, 1.0, 1.0]) # 左上
+  GL::Vertex([-0.75, 0.75, -0.75])
+
+  GL::End()           # 点の設定を終了
+
+  GL::MatrixMode(GL::MODELVIEW)
+  # GL::Rotate(0.5, 0.5, 0.5, 0.5) # ここを有効にするとなんか知らんが回転する
+
+  SDL::GL.swap_buffers
+end
+exit
+
+# # a sample with ruby-opengl and Ruby/SDL
+# require 'sdl'
+# require 'gl'
+#
+# include Gl
+#
+# # initialize SDL and opengl
+# SDL.init SDL::INIT_VIDEO
+# SDL::GL.set_attr SDL::GL_RED_SIZE,5
+# SDL::GL.set_attr SDL::GL_GREEN_SIZE,5
+# SDL::GL.set_attr SDL::GL_BLUE_SIZE,5
+# SDL::GL.set_attr SDL::GL_DEPTH_SIZE,16
+# SDL::GL.set_attr SDL::GL_DOUBLEBUFFER,1
+# SDL::Screen.open 640,400,16,SDL::OPENGL
+#
+# glViewport( 0, 0, 640, 400 );
+# glMatrixMode( GL_PROJECTION );
+# glLoadIdentity( );
+#
+# glMatrixMode( GL_MODELVIEW );
+# glLoadIdentity( );
+#
+# glEnable(GL_DEPTH_TEST);
+#
+# glDepthFunc(GL_LESS);
+#
+# glShadeModel(GL_SMOOTH);
+#
+# shadedCube=true
+#
+# color =
+#   [[ 1.0,  1.0,  0.0],
+#   [ 1.0,  0.0,  0.0],
+#   [ 0.0,  0.0,  0.0],
+#   [ 0.0,  1.0,  0.0],
+#   [ 0.0,  1.0,  1.0],
+#   [ 1.0,  1.0,  1.0],
+#   [ 1.0,  0.0,  1.0],
+#   [ 0.0,  0.0,  1.0]]
+#
+# cube =
+#   [[ 0.5,  0.5, -0.5],
+#   [ 0.5, -0.5, -0.5],
+#   [-0.5, -0.5, -0.5],
+#   [-0.5,  0.5, -0.5],
+#   [-0.5,  0.5,  0.5],
+#   [ 0.5,  0.5,  0.5],
+#   [ 0.5, -0.5,  0.5],
+#   [-0.5, -0.5,  0.5]]
+#
+#
+# loop do
+#
+#   while event = SDL::Event2.poll
+#     case event
+#     when SDL::Event2::Quit, SDL::Event2::KeyDown
+#       exit
+#     end
+#   end
+#
+#   glClearColor(0.0, 0.0, 0.0, 1.0);
+#   glClear(GL_COLOR_BUFFER_BIT|GL_DEPTH_BUFFER_BIT);
+#
+#
+#   glBegin(GL_QUADS)
+#
+#   if shadedCube then
+#     glColor(color[0]);
+#     glVertex(cube[0]);
+#     glColor(color[1]);
+#     glVertex(cube[1]);
+#     glColor(color[2]);
+#     glVertex(cube[2]);
+#     glColor(color[3]);
+#     glVertex(cube[3]);
+#
+#     glColor(color[3]);
+#     glVertex(cube[3]);
+#     glColor(color[4]);
+#     glVertex(cube[4]);
+#     glColor(color[7]);
+#     glVertex(cube[7]);
+#     glColor(color[2]);
+#     glVertex(cube[2]);
+#
+#     glColor(color[0]);
+#     glVertex(cube[0]);
+#     glColor(color[5]);
+#     glVertex(cube[5]);
+#     glColor(color[6]);
+#     glVertex(cube[6]);
+#     glColor(color[1]);
+#     glVertex(cube[1]);
+#
+#     glColor(color[5]);
+#     glVertex(cube[5]);
+#     glColor(color[4]);
+#     glVertex(cube[4]);
+#     glColor(color[7]);
+#     glVertex(cube[7]);
+#     glColor(color[6]);
+#     glVertex(cube[6]);
+#
+#     glColor(color[5]);
+#     glVertex(cube[5]);
+#     glColor(color[0]);
+#     glVertex(cube[0]);
+#     glColor(color[3]);
+#     glVertex(cube[3]);
+#     glColor(color[4]);
+#     glVertex(cube[4]);
+#
+#     glColor(color[6]);
+#     glVertex(cube[6]);
+#     glColor(color[1]);
+#     glVertex(cube[1]);
+#     glColor(color[2]);
+#     glVertex(cube[2]);
+#     glColor(color[7]);
+#     glVertex(cube[7]);
+#
+#   else
+#     glColor(1.0, 0.0, 0.0);
+#     glVertex(cube[0]);
+#     glVertex(cube[1]);
+#     glVertex(cube[2]);
+#     glVertex(cube[3]);
+#
+#     glColor(0.0, 1.0, 0.0);
+#     glVertex(cube[3]);
+#     glVertex(cube[4]);
+#     glVertex(cube[7]);
+#     glVertex(cube[2]);
+#
+#     glColor(0.0, 0.0, 1.0);
+#     glVertex(cube[0]);
+#     glVertex(cube[5]);
+#     glVertex(cube[6]);
+#     glVertex(cube[1]);
+#
+#     glColor(0.0, 1.0, 1.0);
+#     glVertex(cube[5]);
+#     glVertex(cube[4]);
+#     glVertex(cube[7]);
+#     glVertex(cube[6]);
+#
+#     glColor(1.0, 1.0, 0.0);
+#     glVertex(cube[5]);
+#     glVertex(cube[0]);
+#     glVertex(cube[3]);
+#     glVertex(cube[4]);
+#
+#     glColor(1.0, 0.0, 1.0);
+#     glVertex(cube[6]);
+#     glVertex(cube[1]);
+#     glVertex(cube[2]);
+#     glVertex(cube[7]);
+#
+#   end
+#
+#   glEnd()
+#
+#   glMatrixMode(GL_MODELVIEW);
+#   glRotate(5.0, 1.0, 1.0, 1.0);
+#
+#   SDL::GL.swap_buffers
+#
+# end

data/examples/trash/__0060_shooting2.rb

@@ -0,0 +1,37 @@
+$LOAD_PATH << ".." if $0 == __FILE__
+require "shooting"
+
+module BulletTrigger
+  def compute
+    super
+    dir = Magic.angle(@x, @y, @target.x, @target.y)
+    if joy && joy.button(0)
+      if @frame_counter.modulo(60 / 6).zero?
+        @win.bullets << Bullet.new(@win, @x, @y, dir, 3.00)
+      end
+    end
+  end
+end
+
+class GunShipA < GunShip1
+  include BulletTrigger
+end
+
+class GunShipB < GunShip2
+  include BulletTrigger
+end
+
+class Application < WarSpace
+  def initialize
+    super
+    @draw_inst = Stylet::Sdl::Draw.instance
+    ship1 = GunShipA.new(self, @draw_inst.width / 2, @draw_inst.height / 8 * 1)
+    ship2 = GunShipB.new(self, @draw_inst.width / 2, @draw_inst.height / 8 * 7)
+    ship1.target = ship2
+    ship2.target = ship1
+    @ships << ship1
+    @ships << ship2
+  end
+end
+
+Application.new.run

data/examples/trash/__0090_collision_circle1.rb

@@ -0,0 +1,50 @@
+#
+# 円同士の当り判定(従来の方法)
+#
+require_relative "helper"
+
+class Ball
+  def initialize(win, pos)
+    @win = win
+    @pos = pos
+    @radius = 64
+  end
+
+  def update
+    distance = @pos.distance_to(@win.cursor.point)
+    radius2 = @radius + @win.cursor.radius
+    if distance < radius2
+      @win.draw_line(@pos, @win.cursor.point)
+      @win.vputs "COLLISION"
+
+      if @win.button.btA.press?
+        # カーソルの方向から円の位置の方向に一方的に移動させる
+        dir = @win.cursor.point.angle_to(@pos)
+        @pos.x = @win.cursor.point.x + Stylet::Magic.rcos(dir) * radius2
+        @pos.y = @win.cursor.point.y + Stylet::Magic.rsin(dir) * radius2
+      end
+    end
+    @win.draw_polygon(@pos, :radius => @radius, :vertex => 32)
+    if @win.frame_counter.modulo(5) == 0
+      @win.draw_line(@pos, @win.cursor.point)
+    end
+    @win.vputs "radius2=#{radius2}"
+    @win.vputs "distance=#{distance}"
+  end
+
+  def screen_out?
+    false
+  end
+end
+
+class App < Stylet::Base
+  include Helper::CursorWithObjectCollection
+
+  setup do
+    @objects << Ball.new(self, srect.center.clone)
+    @cursor.radius = 64
+    @cursor.vertex = 32
+  end
+
+  run
+end

data/examples/trash/__0125_circle_collision.rb

@@ -0,0 +1,103 @@
+#
+# 円同士の当り判定
+#
+require_relative "helper"
+
+class Ball
+  def initialize(win, cpos)
+    @win = win
+    @cpos = cpos
+    @pos = @cpos.clone
+    @radius = 64
+    @vr = 0
+    @r = 0
+    @dir = 0
+  end
+
+  def update
+    dx = (@pos.x - @win.mouse.point.x).abs
+    dy = (@pos.y - @win.mouse.point.y).abs
+    distance = Math.sqrt((dx**2) + (dy**2))
+    @win.vputs(distance)
+    radius_plus = @radius + @win.radius
+    gap = radius_plus - distance
+    if gap > 0
+      @dir = Stylet::Magic.angle(@win.mouse.point.x, @win.mouse.point.y, @pos.x, @pos.y)
+      @cpos = @pos.clone
+      @r = 0
+      @vr = gap
+    end
+    @vr -= 0.01
+    if @vr < 0
+      @vr = 0
+    end
+    @r += @vr
+    @pos.x = @cpos.x + Stylet::Magic.rcos(@dir) * @r
+    @pos.y = @cpos.y + Stylet::Magic.rsin(@dir) * @r
+    @win.draw_polygon(@pos, :radius => @radius, :vertex => 32)
+  end
+
+  def screen_out?
+    false
+  end
+end
+
+module Helper
+  module HandCursor
+    include Stylet::Input::Base
+    include Stylet::Input::StandardKeybordBind
+    include Stylet::Input::JoystickBindMethod
+    include Stylet::Input::MouseButtonBind
+
+    setup do
+      super if defined? super
+      @cursor.point = @mouse.point.clone
+      @cursor.speed = 5
+      @objects = []
+    end
+
+    def update
+      super if defined? super
+
+      if joy = joys.first
+        bit_update_by_joy(joy)
+      end
+      key_bit_update_all
+      key_counter_update_all
+
+      if mouse.moved?
+        @cursor.point = @mouse.point.clone
+      end
+
+      if dir = axis_angle
+        @cursor.point.x += Stylet::Magic.rcos(dir) * @cursor.speed
+        @cursor.point.y += Stylet::Magic.rsin(dir) * @cursor.speed
+      end
+
+      vputs @mouse.point.to_a
+      vputs mouse.moved?
+
+      vputs @objects.size
+      @objects.each(&:update)
+      @objects.reject!(&:screen_out?)
+      draw_polygon(@cursor.point, :radius => 16, :vertex => 3, :angle => 1.0 / 64 * @frame_counter)
+    end
+  end
+end
+
+class App < Stylet::Base
+  include Helper::CursorWithObjectCollection
+
+  attr_reader :radius
+
+  setup do
+    @objects << Ball.new(self, srect.center)
+    @radius = 64
+  end
+
+  update do
+    draw_polygon(@mouse.point, :radius => @radius, :vertex => 32)
+  end
+
+  run
+end

data/examples/trash/__0130_circle_collision2.rb

@@ -0,0 +1,60 @@
+#
+# 円同士の当り判定
+#
+require_relative "helper"
+
+class Ball
+  def initialize(win, cpos)
+    @win = win
+    @cpos = cpos
+    @radius = 64
+    @r = 0
+    @vr = 4.0
+    @ar = -0.01
+    @dir = 0.0
+  end
+
+  def update
+    @win.objects.each {|object|
+      next if object == self
+
+      dx = (@pos.x - object.pos.x).abs
+      dy = (@pos.y - object.pos.y).abs
+      distance = Math.sqrt((dx**2) + (dy**2))
+      @win.vputs(distance)
+      distance_min = @radius + @win.radius
+      if distance < distance_min
+        dir = Stylet::Magic.angle(object.pos.x, object.pos.y, @pos.x, @pos.y)
+        @pos.x = object.pos.x + Stylet::Magic.rcos(dir) * distance_min
+        @pos.y = object.pos.y + Stylet::Magic.rsin(dir) * distance_min
+      end
+    }
+    @pos.x += Stylet::Magic.rcos(@dir) * @r
+    @pos.y += Stylet::Magic.rsin(@dir) * @r
+    @win.draw_polygon(@pos, :radius => @radius, :vertex => 32)
+  end
+
+  def screen_out?
+    false
+  end
+end
+
+class App < Stylet::Base
+  include Helper::CursorWithObjectCollection
+
+  attr_reader :objects
+
+  setup do
+    4.times do
+      @objects << Ball.new(self, srect.center)
+    end
+  end
+
+  update do
+    if object = @objects.first
+      object.pos = @mouse.point.clone
+    end
+  end
+end
+
+App.run