stylet 0.0.1

data/examples/00650_/345/206/206/343/201/250/347/202/271/343/201/256/345/217/215/345/260/204_collision_circle_vs_dot.rb

@@ -0,0 +1,36 @@
+#
+# 円と点の反射
+#
+require_relative "helper"
+
+class App < Stylet::Base
+  include Helper::CursorWithObjectCollection
+
+  setup do
+    cursor.radius = 1
+
+    @radius = 64                # 円の半径
+
+    @pos = vec2[srect.center.x, srect.max_y]         # 物体初期位置
+    @speed = vec2[rand(-2.0..2.0), rand(-15.0..-12)] # 速度ベクトル
+    @gravity = vec2[0, 0.220]                        # 重力
+  end
+
+  update do
+    @speed += @gravity
+    @pos += @speed
+
+    diff = @pos - cursor.point
+    if diff.magnitude > 0
+      if diff.magnitude < @radius
+        @pos = cursor.point + diff.normalize.scale(@radius)
+        @speed = diff.normalize * @speed.magnitude
+      end
+    end
+
+    draw_circle(@pos, :radius => @radius, :vertex => 32)
+    vputs "Z:x++ X:x--"
+  end
+
+  run
+end

data/examples/00660_/345/206/206/343/201/250/345/206/206/343/201/250/347/267/232/345/210/206/343/201/256/345/217/215/345/260/204/343/203/207/343/203/242_collision_demo.rb

@@ -0,0 +1,305 @@
+#
+# デモ - かごの中で球が転がある
+#
+require_relative "helper"
+
+class Ball
+  include Stylet::Delegators
+  delegate :button, :axis, :cursor, :to => "Stylet.context"
+
+  REFLECT_RATIO = 1.0 # 反射係数
+
+  attr_accessor :pos            # 中心点
+  attr_accessor :speed          # 速度
+  attr_reader :radius           # 円の半径
+  attr_reader :mass             # 質量
+
+  def initialize(index)
+    @pos = srect.center.clone                                                           # 中心点
+    @speed = Stylet::Vector.new(rand(-2.0..2), rand(-8.0..-6)) # 速度ベクトル
+    @gravity = Stylet::Vector.new(0, 0.20)                                                  # 重力
+    if index < 4
+      @radius = 8 + ((index + 2)**2)                                                      # 半径
+    else
+      @radius = rand(8..20)                                               # 半径
+    end
+    @mass = @radius**2                                                                    # 質量は面積と比例することにする(PI*r二乗)
+    @vertex = 16                                                                   # 何角形か？
+  end
+
+  #
+  # 線分 pA pB との当たり判定
+  #
+  def collide_circle_vs_line(pA, pB, options = {})
+    # 点Aと点Bに円がめり込んでいたら押す
+    [pA, pB].each do |pX|
+      diff = @pos - pX
+      if diff.magnitude > 0
+        if diff.magnitude < @radius
+          @pos = pX + diff.normalize.scale(@radius)
+          @speed = diff.normalize * @speed.magnitude
+        end
+      end
+    end
+
+    # 法線(正規化済み)
+    normal = pA.normal(pB).normalize
+    # Stylet.context.draw_line(pA, pA + normal.scale(30))
+
+    # t と C の取得
+    begin
+      # 自機から面と垂直な線を出して面と交差するか調べる
+      @vP = vec2.angle_at(normal.reverse.angle).scale(@radius)
+
+      # 自機の原点・速度ベクトル・法線の原点(pAでもpBでもよい)・法線ベクトルを渡すと求まる
+      @t = Stylet::Vector.collision_power_scale(@pos, @vP, pA, normal)
+
+      # 交差点の取得
+      @pC = @pos + @vP.scale(@t)
+
+      # 内積の取得
+      ac = @pC - pA
+      bc = @pC - pB
+      if ac.nonzero? && bc.nonzero?
+        @ip2 = Stylet::Vector.dot_product(ac, bc)
+      else
+        raise
+      end
+    end
+
+    # 線の表裏どちらにいるか。また衝突しているか？ (この時点では無限線)
+
+    f = false
+    if options[:ground]
+      f = @t <= 1.0 # めり込んでいる or 通り過ぎている
+    else
+      f = 0.0 < @t && @t <= 1.0 # めり込んでいる(これだと線を飛び越えてしまう)
+    end
+    if f
+      if @ip2 < 0 # 線の中で
+        # 円を押し戻す
+        @pos = @pC + normal * @radius
+        @speed += @speed.reflect(normal)
+      end
+    end
+
+    # 速度制限(円が線から飛び出さないようにする)
+    speed_limit!
+    # if @speed.magnitude > @radius
+    #   @speed = @speed.normalize.scale(@radius)
+    # end
+  end
+
+  def self.collide_circle_vs_circle(oA, oB)
+    pA = oA.pos
+    pB = oB.pos
+    sA = oA.speed
+    sB = oB.speed
+    amass = oA.mass
+    bmass = oB.mass
+
+    diff = pB - pA
+    rdiff = (oA.radius + oB.radius) - diff.magnitude
+    # Stylet::Base.active_frame.vputs rdiff
+
+    # ここは完全に重なっている。物理的にはこうならないので左右に移動させる
+    if diff.magnitude.zero?
+      arrow = Stylet::Vector.new(*2.times.collect { [1.0, -1.0].sample })
+      pA -= arrow * oA.radius
+      pB += arrow * oB.radius
+      oA.pos = pA
+      oB.pos = pB
+      return true
+    end
+
+    # Stylet.context.vputs "magnitude=#{diff.magnitude}"
+    # Stylet.context.vputs "rdiff=#{rdiff}"
+
+    # if diff.magnitude.zero?
+    #   return
+    # end
+
+    # # AとBをお互い離す
+    # if Stylet.context.reflect_mode == "move"
+    #   if rdiff > 0
+    #     pA -= diff.normalize * rdiff / 2
+    #     pB += diff.normalize * rdiff / 2
+    #   end
+    # end
+
+    # 反射する
+    if rdiff > 0
+
+      # 反射するモードでもいったんお互いを引き離さないと絡まってしまう
+      pA -= diff.normalize * rdiff * 0.5
+      pB += diff.normalize * rdiff * 0.5
+
+      # (am) 円Ａから円Ｂへ移動運動を発生させるベクトル
+      # (ar) 円Ａから円Ｂへ回転運動を発生させるベクトル
+      # (bm) 円Ｂから円Ａへ移動運動を発生させるベクトル
+      # (br) 円Ｂから円Ａへ回転運動を発生させるベクトル
+
+      # 速度ベクトルを重心方向と垂直な方向に分離する
+      _denominator = (diff.x**2 + diff.y**2)
+
+      # A
+      # A→B 回転運動
+      t = -(diff.x * sA.x + diff.y * sA.y) / _denominator
+      ar = sA + diff.scale(t)
+
+      # A→B 移動運動
+      t = -(-diff.y * sA.x + diff.x * sA.y) / _denominator
+      am = Stylet::Vector.new
+      am.x = sA.x - diff.y * t
+      am.y = sA.y + diff.x * t
+
+      # B
+      # B→A 回転運動
+      t = -(diff.x * sB.x + diff.y * sB.y) / _denominator
+      br = sB + diff.scale(t)
+
+      # B→A 移動運動
+      t = -(-diff.y * sB.x + diff.x * sB.y) / _denominator
+      bm = Stylet::Vector.new
+      bm.x = sB.x - diff.y * t
+      bm.y = sB.y + diff.x * t
+
+      # x 方向と y 方向それぞれの衝突後の速度を計算する
+      ad = Stylet::Vector.new
+      bd = Stylet::Vector.new
+      ad.x = (amass * am.x + bmass * bm.x + bm.x * REFLECT_RATIO * bmass - am.x * REFLECT_RATIO * bmass) / (amass + bmass)
+      bd.x = - REFLECT_RATIO * (bm.x - am.x) + ad.x
+      ad.y = (amass * am.y + bmass * bm.y + bm.y * REFLECT_RATIO * bmass - am.y * REFLECT_RATIO * bmass) / (amass + bmass)
+      bd.y = - REFLECT_RATIO * (bm.y - am.y) + ad.y
+
+      # 回転運動を発生させるベクトルを加算して衝突後の速度を計算
+      sA.x = ad.x + ar.x
+      sA.y = ad.y + ar.y
+      sB.x = bd.x + br.x
+      sB.y = bd.y + br.y
+
+      oA.pos = pA
+      oB.pos = pB
+      oA.speed = sA
+      oB.speed = sB
+
+      oA.speed_limit!
+      oB.speed_limit!
+
+      # pA += sA
+      # pB += sB
+      true
+    else
+      false
+    end
+  end
+
+  def speed_limit!(r = 1.0)
+    # 速度制限(円が線から飛び出さないようにする)
+    if @speed.magnitude > (@radius * r)
+      @speed = @speed.normalize.scale(@radius * r)
+    end
+  end
+
+  def speed_limit2!(v)
+    # 速度制限(円が線から飛び出さないようにする)
+    if @speed.magnitude > v
+      @speed = @speed.normalize.scale(v)
+    end
+  end
+
+  def update
+    # 操作
+    begin
+      # AとBで速度ベクトルの反映
+      @pos += @speed.scale(button.btA.repeat_0or1) + @speed.scale(-button.btB.repeat_0or1)
+      # Cボタンおしっぱなし + マウスで自機位置移動
+      if button.btC.press?
+        @pos = cursor.point.clone
+      end
+      # Dボタンおしっぱなし + マウスで自機角度変更
+      if button.btD.press?
+        if cursor.point != @pos
+          @speed = (cursor.point - @pos).normalize * @speed.magnitude.round
+        end
+      end
+    end
+
+    @speed += @gravity
+    # speed_limit2!(10.0)
+
+    @pos += @speed
+
+    # 自機(円)の表示
+    draw_circle(@pos, :radius => @radius, :vertex => @vertex, :angle => @speed.angle)
+  end
+end
+
+class App < Stylet::Base
+  include Helper::CursorWithObjectCollection
+
+  setup do
+    @balls = Array.new(5) {|i|Ball.new(i)}
+    @center = srect.center
+  end
+
+  update do
+    # 線の準備
+    @lines = []
+    n = 5
+    n.times do |i|
+      @lines << @center + vec2.angle_at((1.0 / 128 * frame_counter) + 1.0 / n * i) * srect.h * 0.45
+    end
+
+    # 線の準備
+    @lines2 = []
+    n = 3
+    n.times do |i|
+      @lines2 << @center + vec2.angle_at((1.0 / 512 * frame_counter) + 1.0 / n * i) * srect.h * 0.1
+    end
+
+    # 円と円の当たり判定
+    @balls.each do |ball1|
+      (@balls - [ball1]).each do |ball2|
+        Ball.collide_circle_vs_circle(ball1, ball2)
+      end
+    end
+
+    # 円と線の当たり判定
+    @lines.each_index do |i|
+      a = @lines[i]
+      b = @lines[i.next.modulo(@lines.size)]
+      @balls.each do |ball|
+        ball.collide_circle_vs_line(a, b, :ground => true)
+      end
+    end
+
+    # 円と線の当たり判定(中央の物体)
+    @lines2.each_index do |i|
+      a = @lines2[i]
+      b = @lines2[i.next.modulo(@lines2.size)]
+      @balls.each do |ball|
+        ball.collide_circle_vs_line(b, a)
+      end
+    end
+
+    # 線の描画
+    @lines.each_index do |i|
+      a = @lines[i]
+      b = @lines[i.next.modulo(@lines.size)]
+      draw_line(a, b)
+    end
+
+    # 線の描画
+    @lines2.each_index do |i|
+      a = @lines2[i]
+      b = @lines2[i.next.modulo(@lines2.size)]
+      draw_line(a, b)
+    end
+
+    # 球の描画
+    @balls.each(&:update)
+  end
+
+  run
+end

data/examples/00670_/343/203/251/343/202/244/343/203/225/343/202/262/343/203/274/343/203/240.rb

@@ -0,0 +1,86 @@
+#
+# ライフゲーム
+#
+# Conway's Game of Life http://www.conwaylife.com/
+#
+
+require_relative "helper"
+require_relative "lifegame_patterns"
+
+class App < Stylet::Base
+  include Helper::CursorWithObjectCollection
+
+  setup do
+    @matrixs = Array.new(2) {{}}
+    @generation = 0
+    @cell_list_index = 0
+
+    @size = 12
+    @width  = srect.width / @size
+    @height = srect.height / @size
+
+    reset
+  end
+
+  update do
+    next_generation
+    display
+  end
+
+  def reset
+    @generation = 0
+    @matrixs[0].clear
+    LifegamePatterns[@cell_list_index.modulo(LifegamePatterns.size)].strip.lines.each_with_index do |line, y|
+      line.chars.each_with_index do |char, x|
+        if char.match?(/[oO■]/)
+          @matrixs[0][[x, y]] = true
+        end
+      end
+    end
+  end
+
+  def next_generation
+    if button.btA.repeat == 1 || button.btB.repeat == 1
+      @cell_list_index += (button.btA.repeat_0or1 - button.btB.repeat_0or1)
+      reset
+    end
+    if button.btC.repeat == 1
+      reset
+    end
+
+    @matrix = @matrixs[@generation.modulo(@matrixs.size)]
+    @next_matrix = @matrixs[@generation.next.modulo(@matrixs.size)]
+
+    @height.times do |y|
+      @width.times do |x|
+        vec = vec2[x, y]
+        frame_counter = around_vectors.count do |v|
+          @matrix[(vec + v).to_a.collect(&:to_i)]
+        end
+        @next_matrix[vec.to_a] = @matrix[vec.to_a] ? (frame_counter == 2 || frame_counter == 3) : (frame_counter == 3)
+      end
+    end
+
+    @generation += 1
+  end
+
+  def display
+    if @next_matrix
+      @next_matrix.each do |xy, cell|
+        if cell
+          v = vec2[*xy]
+          v = (v * @size) + srect.to_vector + cursor.point
+          draw_rect(rect4.new(*v, @size, @size), :fill => true, :color => :font)
+        end
+      end
+    end
+  end
+
+  def around_vectors
+    @around_vectors ||= [[-1, -1], [0, -1], [1, -1], [-1,  0], [1,  0], [-1, 1], [0, 1], [1, 1]].collect do |e|
+      vec2[*e]
+    end
+  end
+
+  run
+end

data/examples/00680_2/347/202/271/343/202/222/351/200/232/343/202/213/347/233/264/347/267/232/343/201/256/346/226/271/347/250/213/345/274/217.rb

@@ -0,0 +1,81 @@
+#
+# 2点を通る直線の方程式
+#
+require_relative "helper"
+
+class App < Stylet::Base
+  include Helper::CursorWithObjectCollection
+  include Helper::MovablePoint
+
+  setup do
+    @p0 = srect.center + vec2[-srect.w / 4, rand(srect.h / 4)] # 左の点
+    @p1 = srect.center + vec2[+srect.w / 4, rand(srect.h / 4)] # 右の点
+    self.title = "2点を通る直線の方程式"
+    @x_mode = true
+  end
+
+  update do
+    update_movable_points([@p0, @p1])
+    [@p0, @p1].each_with_index {|e, i|vputs("p#{i} #{e}", :vector => e)}
+
+    if button.btC.trigger?
+      @x_mode = !@x_mode
+    end
+
+    # ２点から直線の式の求め方 - Yahoo!知恵袋 の ju_tateru さんの回答より
+    # http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1255399312
+    # > したがって、(x0,y0),(x1,y1)を通る直線は
+    # > (y0 - y1)x - (x0 - x1)y + x0y1 - x1y0 = 0
+    # > と表せます。
+    #
+    # なので ax + by + c = 0 の部分の a b c は次のようになる
+    a = @p0.y - @p1.y
+    b = -(@p0.x - @p1.x)
+    c = (@p0.x * @p1.y - @p1.x * @p0.y)
+    # あとは ax + by + c = 0 を入れ替えて
+    # x から y を求めるなら y = (-c + -a * x) / b
+    # y から x を求めるなら x = (-c + -b * y) / a
+    # となる
+
+    # ax + by + c = 0 の場合の傾きとy切片は次のようになるらしい
+    # 傾き: -a/b
+    # y切片: -c/b
+
+    katamuki = -a.to_f / b
+    y_seppen = -c.to_f / b
+
+    if @x_mode
+      # X軸を等速で動かしてYを求める場合
+      x_range = ((srect.center.x - srect.w / 4)..(srect.center.x + srect.w / 4))
+      x_range.begin.step(x_range.end, 16) do |x|
+        # y = (((@p1.y - @p0.y).to_f / (@p1.x - @p0.x)) * (x - @p0.x)) + @p0.y # ← こっちでもいい
+        y = (-c + -a * x).to_f / b
+        v = vec2[x, y]
+        draw_triangle(v, :radius => 4, :vertex => 4)
+      end
+    else
+      # Y軸を等速で動かしてXを求める場合
+      y_range = ((srect.center.y - srect.h / 4)..(srect.center.y + srect.h / 4))
+      y_range.begin.step(y_range.end, 16) do |y|
+        # x = (((y - @p0.y) * (@p1.x - @p0.x)).to_f / (@p1.y - @p0.y)) + @p0.x # ← こっちでもいい
+        x = (-c + -b * y).to_f / a
+        v = vec2[x, y]
+        draw_triangle(v, :radius => 4, :vertex => 4)
+      end
+    end
+
+    # (y1-y0)x -(x1-x0)y -{(y1-y0)x0+(x1-x0)y0} = 0
+    # ^^^^^^^  ^^^^^^^^   ^^^^^^^^^^^^^^^^^^^^^
+    # a      x +    b  y + c
+
+    vputs " ax+by+c=0 => #{a}x + #{b}y + #{c} = 0"
+    vputs " 傾き -a/b => #{katamuki}"
+    vputs "y切片 -c/b => #{y_seppen}"
+
+    vputs "p0:#{@p0}"
+    vputs "p1:#{@p1}"
+    vputs "A:left point move B:right point move C:x y toggle"
+  end
+
+  run
+end