stylet 0.0.1

data/examples/00560_curve_/343/202/271/343/203/227/343/203/251/343/202/244/343/203/263/346/233/262/347/267/232.rb

@@ -0,0 +1,113 @@
+#
+# スプラインの描画
+#
+# Flashゲーム講座＆ASサンプル集【曲線について】
+# http://hakuhin.jp/as/curve.html#CURVE_04
+#
+require_relative "helper"
+
+class SprineApp < Stylet::Base
+  include Helper::CursorWithObjectCollection
+  include Helper::MovablePoint
+
+  setup do
+    self.title = "スプライン曲線"
+    @points = 5.times.collect { srect.center + vec2.rand * srect.height * 0.5}
+  end
+
+  update do
+    a = spline_stream(@points, 256) # 点と点の間をN分割する
+    a.each_cons(2) {|a, b| draw_line(a, b) }
+    update_movable_points(@points)
+    @points.each_with_index {|e, i| vputs("#{i}", :vector => e) }
+    ship(a)
+  end
+
+  def ship(a)
+    # 区間をN分割なので角に来るとブレーキがかかる感じになる
+    t0 = 0.5 + (Stylet::Magic.rsin(1.0 / 256 / 4 * (frame_counter + 0)) * 0.5) # 現在の位置(0.0〜1.0)
+    t1 = 0.5 + (Stylet::Magic.rsin(1.0 / 256 / 4 * (frame_counter + 16)) * 0.5) # 現在の位置(0.0〜1.0)
+    p0 = a[((a.size - 1).to_f * t0).to_i]                            # 現在の座標
+    p1 = a[((a.size - 1).to_f * t1).to_i]                            # 現在の座標
+    draw_triangle(p0, :angle => p0.angle_to(p1), :vertex => 3)
+  end
+
+  # a-b-c の場合 a-b b-c 区間をそれぞれ interpolate 分割する
+  def spline_stream(points, interpolate)
+    num = points.length
+    l = []
+    _a = []
+    _b = []
+    _c = []
+
+    (num - 1).times {|i|
+      p0 = points[i]
+      p1 = points[i + 1]
+      l[i] = Math.sqrt((p0.x - p1.x) * (p0.x - p1.x) + (p0.y - p1.y) * (p0.y - p1.y))
+    }
+
+    _a[0] = [0, 1, 0.5]
+    _b[0] = (points[1] - points[0]) * (3.0 / (2 * l[0]))
+
+    _a[num - 1] = [1, 2, 0]
+    _b[num - 1] = (points[num - 1] - points[num - 2]) * (3.0 / l[num - 2])
+
+    (1...(num - 1)).each do |i|
+      a = l[i - 1]
+      b = l[i]
+      _a[i] = [b, 2.0 * (b + a), a]
+      _b[i] = (((points[i + 1] - points[i]) * 3.0 * a * a) + ((points[i] - points[i - 1]) * 3.0 * b * b)) / (b * a)
+    end
+    (1...num).each do |i|
+      d = _a[i - 1][1] / _a[i][0]
+
+      _a[i] = [0, _a[i][1] * d - _a[i - 1][2], _a[i][2] * d]
+      _b[i] = (_b[i] * d) - _b[i - 1]
+
+      _a[i][2] /= _a[i][1]
+      _b[i].x /= _a[i][1]
+      _b[i].y /= _a[i][1]
+      _a[i][1] = 1
+    end
+
+    _c[num - 1] = _b[num - 1]
+    j = num - 1
+    while j > 0
+      # ベクトル同士のかけ算のメソッドを用意してないためこれでいい
+      _c[j - 1] = vec2[
+        _b[j - 1].x - _a[j - 1][2] * _c[j].x,
+        _b[j - 1].y - _a[j - 1][2] * _c[j].y,
+      ]
+      j -= 1
+    end
+
+    out = []
+    frame_counter = 0
+    (num - 1).times do |i|
+      a = l[i]
+      _v00 = points[i].x
+      _v01 = _c[i].x
+      _v02 = (points[i + 1].x - points[i].x) * 3 / (a * a) - (_c[i + 1].x + 2 * _c[i].x) / a
+      _v03 = (points[i + 1].x - points[i].x) * (-2 / (a * a * a)) + (_c[i + 1].x + _c[i].x) * (1 / (a * a))
+      _v10 = points[i].y
+      _v11 = _c[i].y
+      _v12 = (points[i + 1].y - points[i].y) * 3 / (a * a) - (_c[i + 1].y + 2 * _c[i].y) / a
+      _v13 = (points[i + 1].y - points[i].y) * (-2 / (a * a * a)) + (_c[i + 1].y + _c[i].y) * (1 / (a * a))
+
+      t = 0.0
+      interpolate.times {
+        out << vec2[
+          ((_v03 * t + _v02) * t + _v01) * t + _v00,
+          ((_v13 * t + _v12) * t + _v11) * t + _v10,
+        ]
+        t += a / interpolate
+      }
+    end
+
+    out << points.last
+
+    out
+  end
+
+  run
+end

data/examples/00570_/345/206/206/351/201/213/345/213/225_circle_jet_coaster.rb

@@ -0,0 +1,52 @@
+#
+# ギャラガの敵の動き
+#
+require_relative "helper"
+
+class Ball
+  include Stylet::Delegators
+
+  delegate :xc, :yc, :to => "Stylet.context"
+
+  def initialize(index)
+    @index = index
+  end
+
+  def update
+    p0 = pos_new(frame_counter)      # 現在の位置を取得
+    p1 = pos_new(frame_counter.next) # 次のフレームの位置を取得
+    dir = p0.angle_to(p1)          # 現在の位置から見て未来の角度を取得
+    draw_circle(p0, :radius => 20, :vertex => 3, :angle => dir) # 次に進む方向に向けて三角を表示
+  end
+
+  #
+  # countフレーム地点の位置を取得
+  #
+  def pos_new(frame_counter)
+    srect.center + vec2[
+      Stylet::Magic.rcos(1.0 / 512 * (frame_counter * xc + @index * 24)) * srect.w * 0.4,
+      Stylet::Magic.rsin(1.0 / 512 * (frame_counter * yc + @index * 24)) * srect.h * 0.4,
+    ]
+  end
+end
+
+class App < Stylet::Base
+  include Helper::CursorWithObjectCollection
+
+  attr_reader :xc, :yc
+
+  setup do
+    cursor.display = false
+    @objects += Array.new(16) {|i|Ball.new(i)}
+    @xc = 3.5
+    @yc = 4.0
+  end
+
+  update do
+    @xc += 0.5 * (@button.btA.repeat + -@button.btB.repeat)
+    @yc += 0.5 * (@button.btC.repeat + -@button.btD.repeat)
+    vputs [@xc, @yc]
+  end
+
+  run
+end

data/examples/00580_/345/206/206/343/202/222/346/212/274/343/201/231/343/201/262/343/201/243/343/201/261/343/202/213_collision_circle_vs_circle_push_or_pull.rb

@@ -0,0 +1,56 @@
+#
+# 円同士の当り判定(ベクトルを使った方法)
+#
+require_relative "helper"
+
+class App < Stylet::Base
+  include Helper::CursorWithObjectCollection
+
+  setup do
+    self.title = "円の押し引き"
+
+    # カーソルを円として使う
+    cursor.radius = 100
+    cursor.vertex = 32
+
+    @pos = srect.center.clone
+    @radius = 100
+  end
+
+  update do
+    a = cursor.point
+    ar = cursor.radius
+
+    b = @pos
+    br = @radius
+
+    r2 = ar + br
+    if a != b
+      diff = b - a
+      rdiff = r2 - diff.magnitude
+      if button.btA.press?
+        vputs "PUSH"
+        if rdiff > 0
+          # a = b + diff.normalize * r2 # Bを基点に押し出す
+          b += diff.normalize * rdiff    # Aを基点に押し出す
+        end
+      end
+      if button.btB.press?
+        vputs "PULL"
+        if rdiff < 0
+          # a = b + diff.normalize * r2 # Bを基点に戻す
+          b += diff.normalize * rdiff    # Aを基点に戻す
+        end
+      end
+      vputs "DIFF=#{diff.magnitude}"
+      vputs "RDIFF=#{rdiff}"
+    end
+
+    @pos = b
+
+    draw_line(@pos, cursor.point)
+    draw_circle(@pos, :radius => @radius, :vertex => 32)
+  end
+
+  run
+end

data/examples/00590_/350/212/213/350/231/253/343/202/264/343/203/240/347/264/220/343/203/207/343/203/242_collision_demo_circle_worm.rb

@@ -0,0 +1,104 @@
+#
+# 芋虫・多関節・ゴム・紐
+#
+require_relative "helper"
+
+class Joint
+  include Stylet::Delegators
+  attr_accessor :p0
+
+  def initialize(index, p0)
+    @index = index    # 自分の番号
+    @p0 = p0          # 間接の位置
+  end
+
+  def update
+    # 次の位置の間接を取得
+    @target = Stylet.context.objects[@index.next]
+
+    if @target
+      distance = @p0.distance_to(@target.p0)
+      gap = distance - Stylet.context.magnitude
+      if gap > 0
+        # 相手の方から自分の方へ移動する
+        # そのときの移動量を Stylet.context.hard_level で調整する
+        # 1.0 なら相手との間隔をすべて埋めることになるので紐になる
+        # 0.1 ならゆっくりと自分に近付いてくる
+        len = gap * Stylet.context.hard_level
+        dir = @target.p0.angle_to(@p0)
+        @target.p0 += vec2.angle_at(dir) * len
+
+        # 固さ 1.0 のときは次のように p0 の方から相手をひっぱる方法でもよいが前者の方が、ゆっくり移動させるなど応用が効く
+        # dir = @p0.angle_to(@target.p0)
+        # @target.p0 += vec2.angle_at(dir) * Stylet.context.magnitude
+      end
+    end
+
+    # 頭だけカーソルで動かす
+    if @index.zero?
+      @p0 = Stylet.context.cursor.point
+    end
+
+    # 次の間接まで線を引く
+    if @target
+      Stylet.context.draw_line(@p0, @target.p0)
+    end
+
+    # 胴体の表示
+    if Stylet.context.body_display
+      Stylet.context.draw_circle(@p0, :radius => Stylet.context.magnitude / 2, :vertex => 16)
+    end
+  end
+end
+
+class App < Stylet::Base
+  include Helper::CursorWithObjectCollection
+
+  attr_reader :body_display
+  attr_reader :magnitude
+  attr_reader :hard_level
+
+  setup do
+    @objects = Array.new(42) {|i|Joint.new(i, srect.center.clone)}
+    @cursor.display = false     # 三角カーソル非表示
+
+    @body_display = true # 胴体描画モード
+    @magnitude = 32         # 線と線の間
+    @hard_level = 1.0    # 幼虫の間接の伸び(堅い1.0〜柔らか0.1)
+
+    self.title = "芋虫・多関節・ゴム・紐"
+  end
+
+  update do
+    # 操作
+    begin
+      # 間接と間接の距離の調整
+      @magnitude += (@button.btA.repeat - @button.btB.repeat)
+      @magnitude = Stylet::Chore.clamp(@magnitude, (1..80))
+
+      # 固さ調整
+      @hard_level += (@button.btC.repeat - @button.btD.repeat) * 0.1
+      @hard_level = Stylet::Chore.clamp(@hard_level, 0.0..1.0)
+
+      # 円の表示トグル
+      if key_down?(SDL::Key::A)
+        @body_display = !@body_display
+      end
+    end
+
+    # 操作説明
+    vputs "A:body_display"
+    vputs "Z:len++ X:len-- C:hard_level++ V:hard_level--"
+    vputs "magnitude=#{@magnitude}"
+    vputs "hard_level=#{@hard_level}"
+
+    # 固さ1.0なら紐モード表示
+    if @hard_level == 1.0
+      vputs "string mode"
+    else
+      vputs "worm mode"
+    end
+  end
+
+  run
+end

data/examples/00600_/346/214/257/343/202/212/345/255/220_swing.rb

@@ -0,0 +1,145 @@
+#
+# 振り子のアルゴリズム
+#
+# 円の中心
+#    p0 ----- pA (鉄球) ----> dir1 (pAの方向)
+#       \     ↓
+#        \    ↓
+#         \   ↓gravity (重力)
+#          \  ↓
+#           \ ↓
+#             pB (重力を反映した座標) ※仮想鉄球
+#             \
+#              dir2 (pBの方向)
+#
+require_relative "helper"
+
+class App < Stylet::Base
+  include Helper::CursorWithObjectCollection
+
+  setup do
+    self.title = "振り子"
+
+    @p0 = srect.center + vec2[0, -srect.h * 0]   # 円の中心
+    @dir1 = Stylet::Magic.clock(1) # 角度
+    @speed = 0                   # 角速度
+    @friction = 0.0              # 摩擦(0.0:なし 1.0:最大)
+    @radius = srect.hy * 0.5 # 糸の長さ
+    @ball_radius = 32            # 鉄球自体の半径
+    @dir2 = nil                  # 振り子の中心(p0)からの重力反映座標(pB)の角度
+    @gravity = vec2[0, 1]   # 重力加速度(整数で指定すること)
+    @debug_mode = false
+  end
+
+  update do
+    begin
+      if button.btA.press? || button.btB.press?
+        # 重力調整
+        @gravity += @gravity.normalize.scale(button.btA.repeat) + @gravity.normalize.scale(-button.btB.repeat)
+        @gravity.y = Stylet::Chore.clamp(@gravity.y, (1..@radius))
+        @speed = 0
+      end
+
+      # Aボタンが押されているときだけ鉄球の位置をカーソルの方向に向ける
+      if button.btD.press?
+        @dir1 = @p0.angle_to(cursor.point)
+        @speed = 0
+      end
+
+      if button.btC.trigger?
+        @debug_mode = !@debug_mode
+      end
+    end
+
+    # 鉄球の座標(pA)を求める
+    @pA = @p0 + vec2.angle_at(@dir1).scale(@radius)
+
+    # 鉄球の座標から重力を反映した座標(pB)を求める(pBを経由しなくてもpCは求まる)
+    @pB = @pA + @gravity
+
+    # 鉄球の座標から重力を反映した座標(pC)を求める(これはどういう数式？)
+    v = @pA - @p0
+    t = -(v.y * @gravity.y) / (v.x**2 + v.y**2)
+    @pC = @pA + @gravity + v.scale(t)
+
+    # 振り子の中心(p0)から重力反映座標(pC)の角度(@dir2)を求める
+    @dir2 = @p0.angle_to(@pC)
+
+    # 鉄球の角度が     dir1=0.9 (時計の14分の角度)
+    # 仮想鉄球の角度が dir2=0.1 (時計の16分の角度)の場合、
+    # 差分は正になるべきなのだけど
+    # 差分を求めるために 0.1 - 0.9 をすると -0.8 になってしまい
+    # 15分のあたりにいるのに逆向きに進もうとしてしまう。
+    # これは15分の位置が一周の基点になっているためのおこる。
+    # 対策として右半分にいるときかつ @dir2 の方が小さいとき @dir2 は一周したことにする
+    # ただ 1.0 するのではなく @dir1 が進みすぎて一周したということにしたいので @dir1.round を加算してみたが、これはおかしくなる
+    # 1.0 加算するのが正解っぽい
+    if Stylet::Magic.cright?(@dir1)
+      if @dir2 < @dir1
+        @dir2 += 1.0
+      end
+    end
+
+    # 仮想鉄球の角度と現在の角度の差を求める
+    @diff = @dir2 - @dir1
+    # @diff = (@pC - @pA).magnitude
+    # vputs @diff
+
+    # 加速
+    @speed += @diff
+    # 摩擦によって減速
+    @speed *= (1.0 - @friction)
+    # 進む
+    @dir1 += @speed
+
+    # 中心と鉄球の線
+    draw_line(@p0, @pA)
+
+    # 鉄球
+    draw_circle(@pA, :radius => @ball_radius, :vertex => 16)
+
+    # デバッグモード
+    if @debug_mode || button.btD.press?
+      # 仮想鉄球への紐
+      draw_line(@p0, @pA)
+
+      # 実鉄球から仮想鉄球への線
+      # draw_line(@p0, @pB)
+      draw_line(@p0, @pC) # 振り子の中心(p0)から重力反映座標(pC)への線を表示確認
+      draw_line(@pA, @pB)
+      draw_line(@pB, @pC)
+      draw_line(@pA, @pC)
+      vputs "P", :vector => @p0
+      vputs "A", :vector => @pA
+      vputs "B", :vector => @pB
+      vputs "C", :vector => @pC
+
+      # 90度ずらした線を引く
+      rad90_line
+
+      # 軌道の円周
+      draw_circle(@p0, :radius => @radius, :vertex => 32)
+
+      # draw_line(@pB, @pB + (@pA - @pB).scale(2))
+    end
+
+    vputs "dir1: #{@dir1}"
+    vputs "dir2: #{@dir2}"
+    vputs "diff: #{@diff}"
+    vputs "speed: #{@speed}"
+    vputs "gravity: #{@gravity.magnitude}"
+
+    vputs "Z:g++ X:g-- C:debug V:drag"
+  end
+
+  # 90度ずらした線を引く
+  def rad90_line
+    # draw_line(@pB, @pC)
+    # _r = 256
+    # p2 = @pA + vec2.angle_at(@dir1 - Stylet::Magic.r90) * _r
+    # p3 = @pA + vec2.angle_at(@dir1 + Stylet::Magic.r90) * _r
+    # draw_line(p2, p3)
+  end
+
+  run
+end