stylet 0.0.1

data/examples/00780_/346/250/231/346/272/226/343/203/251/343/202/244/343/203/226/343/203/251/343/203/252/343/201/256atan2_sin_cos/343/202/222/344/275/277/343/201/206.rb

@@ -0,0 +1,15 @@
+require_relative "helper"
+
+class App < Stylet::Base
+  update do
+    v = mouse.point - srect.center
+    x, y = *v
+    # 中央からカーソル位置への方向を取得
+    rad = Math.atan2(y, x)
+    # その方向にライン
+    x = Math.cos(rad)
+    y = Math.sin(rad)
+    draw_line(srect.center, srect.center + vec2[x, y] * srect.height / 2)
+  end
+  run
+end

data/examples/00790_/350/247/222/345/272/246/343/201/250/343/203/251/343/202/270/343/202/242/343/203/263/343/201/256/347/233/270/344/272/222/345/244/211/346/217/233.rb

@@ -0,0 +1,22 @@
+# 標準ライブラリを使った場合の例
+require_relative "helper"
+
+class App < Stylet::Base
+  update do
+    one = 360                   # 一周を何度にしてもいい
+
+    angle = frame_counter.modulo(one)
+    vputs "角度: #{angle}"
+
+    rad = angle * Math::PI / (one / 2)
+    vputs "角度→ラジアン: #{rad}"
+    x = Math.cos(rad)
+    y = Math.sin(rad)
+    draw_line(srect.center, srect.center + vec2[x, y] * srect.height / 2)
+
+    rad_to_angle = rad * (one / 2) / Math::PI
+    vputs "ラジアン→角度: #{rad_to_angle}"
+  end
+
+  run
+end

data/examples/00800_/347/220/203/343/201/214/347/233/264/347/267/232/347/232/204/343/201/253/345/213/225/343/201/204/343/201/246/343/201/204/343/202/213/343/201/240/343/201/221/343/201/247/345/233/236/350/273/242/343/201/227/343/201/246/343/201/204/343/202/213/343/202/210/343/201/206/343/201/253/350/246/213/343/201/210/343/202/213.rb

@@ -0,0 +1,27 @@
+# 球が直線的に動いているだけで回転しているように見える
+# http://www.gizmodo.jp/2014/07/post_15084.html
+require_relative "helper"
+
+class App < Stylet::Base
+  include Helper::Cursor
+
+  setup do
+    @n = 20                     # 球の数
+    @ball_r = 8                 # 球の半径
+    @diff = 1.0
+  end
+
+  update do
+    @diff += 0.01 * (button.btA.repeat - button.btB.repeat)
+
+    @n.times do |i|
+      r = rsin(0.5 / @n * i + 1.0 / 256 * frame_counter * 1) * srect.h * 0.45
+      pos = vec2.angle_at(0.5 / @n * i * @diff) * r
+      draw_circle(srect.center + pos, :radius => @ball_r, :vertex => 8)
+    end
+
+    draw_circle(srect.center, :radius => srect.h * 0.45 + @ball_r, :vertex => 20)
+  end
+
+  run
+end

data/examples/00810_/343/202/267/343/203/237/343/203/245/343/203/254/343/203/274/343/202/267/343/203/247/343/203/263_/350/273/212.rb

@@ -0,0 +1,75 @@
+# 車
+require_relative "helper"
+
+class App < Stylet::Base
+  include Helper::Cursor
+
+  setup do
+    self.title = "車"
+
+    @pos        = srect.center.clone    # 車体の位置
+    @body_dir   = Stylet::Magic.clock(0) # 車体の進む方向
+    @handle_dir = 0                    # ハンドル角度
+    @accel      = 0                    # 加速度
+    @speed      = 0                    # 速度
+    @old_pos    = @pos.clone           # 前回の位置
+
+    @cursor.display = false
+  end
+
+  update do
+    # リセット(画面外に行ってしまったとき用)
+    if key_down?(SDL::Key::R)
+      @pos = srect.center.clone
+    end
+
+    # ハンドル
+    begin
+      @handle_adir = 0
+      if axis.left.press? || axis.right.press?
+        # ハンドルの強さ。大きいと小回りが効く。
+        @handle_adir = 0.0003
+        if axis.left.press?
+          @handle_adir *= -1
+        end
+      end
+      @handle_dir += @handle_adir
+      # ハンドルの角度の減速度(1.00なら車体が回りっぱなしになる)
+      if @old_pos.truncate == @pos.truncate
+        @handle_dir *= 0.0  # 止まっている場合はハンドルがなかなか効かない(普通の車なら0.0)
+      else
+        @handle_dir *= 0.94 # 動いている状態ではハンドルが効きやすい
+      end
+      handle_gap = 0.1     # ハンドルが曲る最大の角度
+      @handle_dir = Stylet::Chore.clamp(@handle_dir, (-handle_gap..handle_gap))
+      @body_dir += @handle_dir
+      vputs "ハンドル: #{@handle_dir.round(4)}"
+      vputs "車体向き: #{@body_dir.round(4)}"
+    end
+
+    # アクセル
+    begin
+      @accel = 0
+      if button.btA.press?
+        @accel = 0.09             # 前の進むときの加速度
+      end
+      if button.btD.press?
+        @accel = -0.06            # ブレーキの効き具合い
+      end
+      @speed += @accel
+      @speed *= 0.991             # 空気抵抗
+      @speed = Stylet::Chore.clamp(@speed, (-1..4)) # 下るときと進むときの速度のリミット
+      vputs "速度: #{@speed.round(4)}"
+    end
+
+    # 移動
+    begin
+      @old_pos = @pos.clone
+      @pos += vec2.angle_at(@body_dir) * @speed
+    end
+
+    draw_angle_rect(@pos, :angle => @body_dir, :radius => 20, :edge => 0.07)
+  end
+
+  run
+end

data/examples/00820_/343/202/267/343/203/237/343/203/245/343/203/254/343/203/274/343/202/267/343/203/247/343/203/263_/346/210/246/350/273/212.rb

@@ -0,0 +1,90 @@
+# 戦車
+require_relative "helper"
+
+class App < Stylet::Base
+  include Helper::CursorWithObjectCollection
+
+  setup do
+    self.title = "戦車"
+
+    @pos        = srect.center.clone    # 車体の位置
+    @body_dir   = Stylet::Magic.clock(0) # 車体の進む方向
+    @handle_dir = 0                    # ハンドル角度
+    @accel      = 0                    # 加速度
+    @speed      = 0                    # 速度
+    @old_pos    = @pos.clone           # 前回の位置
+
+    @cannon_dir = @body_dir
+
+    @cursor.display = false
+  end
+
+  update do
+    # リセット(画面外に行ってしまったとき用)
+    if key_down?(SDL::Key::R)
+      @pos = srect.center.clone
+    end
+
+    # ハンドル
+    begin
+      @handle_adir = 0
+      if axis.left.press? || axis.right.press?
+        # ハンドルの強さ。大きいと小回りが効く。
+        @handle_adir = 0.0005
+        if axis.left.press?
+          @handle_adir *= -1
+        end
+      end
+      @handle_dir += @handle_adir
+      # ハンドルの角度の減速度(1.00なら車体が回りっぱなしになる)
+      if @old_pos.truncate == @pos.truncate
+        # @handle_dir *= 0.9  # 止まっている場合はハンドルがなかなか効かない(普通の車なら0.0)
+      else
+        # @handle_adir *= 1.1
+        # @handle_dir *= 1.0  # 動いている状態ではハンドルが効きやすい
+      end
+      @handle_dir *= 0.95  # ハンドルを元に戻す
+      handle_gap = 0.1     # ハンドルが曲る最大の角度
+      @handle_dir = Stylet::Chore.clamp(@handle_dir, (-handle_gap..handle_gap))
+      @body_dir += @handle_dir
+      vputs "ハンドル: #{@handle_dir.round(4)}"
+      vputs "車体向き: #{@body_dir.round(4)}"
+    end
+
+    # アクセル
+    begin
+      @accel = 0
+      if button.btA.press?
+        @accel = 0.06             # 前の進むときの加速度
+      end
+      if button.btD.press?
+        @accel = -0.06            # ブレーキの効き具合い
+      end
+      @speed += @accel
+      @speed *= 0.98              # 空気抵抗
+      @speed = Stylet::Chore.clamp(@speed, (-2..2)) # 下るときと進むときの速度のリミット
+      vputs "速度: #{@speed.round(4)}"
+    end
+
+    # 移動
+    begin
+      @old_pos = @pos.clone
+      @pos += vec2.angle_at(@body_dir) * @speed
+    end
+
+    # 砲台
+    begin
+      if joy = joys.first
+        @cannon_vector = joy.adjusted_analog_levers[:left]
+        if @cannon_vector.magnitude > 0.5
+          @cannon_dir = @cannon_vector.angle
+        end
+      end
+    end
+
+    draw_angle_rect(@pos, :angle => @cannon_dir, :radius => 30, :edge => 0.02)
+    draw_angle_rect(@pos, :angle => @body_dir, :radius => 25, :edge => 0.09)
+  end
+
+  run
+end

data/examples/00830_/350/247/222/345/272/246/345/267/256.rb

@@ -0,0 +1,36 @@
+require_relative "helper"
+
+class App < Stylet::Base
+  include Helper::Cursor
+
+  setup do
+    @dirs = Array.new(2) {0}
+  end
+
+  update do
+    angle = (cursor.point - srect.center).angle
+    if button.btA.press?
+      @dirs[1] = angle
+    end
+    if button.btB.press?
+      @dirs[0] = angle
+    end
+
+    @dirs.each do |dir|
+      draw_vector(vec2.angle_at(dir) * srect.height / 4, :origin => srect.center, :label => dir.round(2))
+      vputs "dir: #{dir.round(2)}"
+    end
+
+    # 以下はライブラリでメソッド化してある
+    # 0 は 1 に向う
+    sub = @dirs[1].modulo(1.0) - @dirs[0].modulo(1.0)
+    if sub < -1.0 / 2
+      sub = 1.0 + sub
+    elsif sub > 1.0 / 2
+      sub = -1.0 + sub
+    end
+    @dirs[0] += sub * 0.1
+  end
+
+  run
+end

data/examples/00840_/346/224/276/347/211/251/347/267/232/343/201/247/347/213/231/346/222/203_/346/231/202/351/226/223/345/233/272/345/256/232.rb

@@ -0,0 +1,61 @@
+#
+# 放物線 狙撃 時間固定
+#
+# Flashゲーム講座＆ASサンプル集【狙撃の計算方法について】
+# http://hakuhin.jp/as/shot.html#SHOT_02_00
+#
+# ・反対側に行っても打てる
+#
+require_relative "helper"
+
+class Bullet
+  include Stylet::Delegators
+
+  def initialize(pos, target)
+    @pos = pos.clone            # 自分の初期値
+    @target = target            # 相手の初期値
+
+    @frames = 60 * 1.5           # 到達するまでのフレーム数(小さくすると早くなる)
+
+    # どちらかを0にすると直線の軌跡になり指定フレームかけて二点間を移動することになる
+    @g  = 2.0   # 上昇加速度(大きくすると高く上がる)
+    @dt = 0.05  # 微分 (結局 y の差分は g * dt で出している)
+
+    @speed = @target - @pos                # 対象までの差分
+    @speed.y -= @frames**2 * (@g * @dt) / 2 # 上方向の加速度の初期値が求まる
+    @speed /= @frames                       # フレーム数で分割
+
+  end
+
+  def update
+    @speed.y += @g * @dt         # Yの加速度が変化していく
+    @pos += @speed
+    draw_triangle(@pos, :radius => 16, :angle => @speed.angle)
+    draw_vector(@speed * 8, :origin => @pos) # スピードベクトルの可視化
+  end
+
+  def screen_out?
+    @pos.y > srect.max_y
+  end
+end
+
+class App < Stylet::Base
+  include Helper::CursorWithObjectCollection
+  include Helper::MovablePoint
+
+  setup do
+    self.title = "放物線 狙撃【時間固定】"
+    @points = []
+    @points << srect.center + vec2[+srect.w / 4, 0]
+  end
+
+  update do
+    update_movable_points(@points)
+    @points.each_with_index {|e, i|vputs("p#{i}", :vector => e)}
+    if frame_counter.modulo(30) == 1
+      @objects << Bullet.new(@points[0], cursor.point)
+    end
+  end
+
+  run
+end

data/examples/00850_/346/224/276/347/211/251/347/267/232/343/201/247/347/213/231/346/222/203_/350/247/222/345/272/246/345/233/272/345/256/232.rb

@@ -0,0 +1,84 @@
+#
+# 放物線 狙撃 角度固定
+#
+# Flashゲーム講座＆ASサンプル集【狙撃の計算方法について】
+# http://hakuhin.jp/as/shot.html#SHOT_02_01
+#
+# ・砲台の角度(45度ぐらいの範囲)の中に対象が入っていないと弾道がおかしくなる
+#
+require_relative "helper"
+
+class Bullet
+  include Stylet::Delegators
+
+  attr_accessor :pos
+
+  def initialize(pos, target, rot)
+    @pos = pos.clone            # 自分の初期値
+    @target = target            # 相手の初期値
+
+    @rot = rot
+
+    # どちらかを0にすると直線の軌跡になり指定フレームかけて二点間を移動することになる
+    @g = 2.0   # 重力加速度
+    @dt = 0.05 # 微分 (結局 y の差分は g * dt で出している)
+
+    @speed = @target - @pos                # 対象までの差分
+
+    t = -(2 * @speed.x * rsin(@rot)) / (rcos(@rot) * @g * @dt) + (2 * @speed.y / (@g * @dt))
+    t = Math.sqrt(t.abs)
+
+    @speed.x /= t
+    @speed.y = @speed.x / rcos(@rot) * rsin(@rot)
+  end
+
+  def update
+    @speed.y += @g * @dt         # Yの加速度が変化していく
+    @pos += @speed
+
+    unless @pos.to_a.any?(&:nan?)
+      draw_triangle(@pos, :radius => 16, :angle => @speed.angle)
+      draw_vector(@speed * 8, :origin => @pos) # スピードベクトルの可視化
+      vputs "speed: #{@speed.round(2)}"
+    end
+  end
+
+  def screen_out?
+    @pos.to_a.any?(&:nan?) || @pos.y > srect.max_y
+  end
+end
+
+class App < Stylet::Base
+  include Helper::CursorWithObjectCollection
+  include Helper::MovablePoint
+
+  setup do
+    self.title = "放物線 狙撃【角度固定】"
+
+    @points = []
+    @points << srect.center + vec2[+srect.w / 4, 0]  # 右の点
+
+    @rot = Stylet::Magic.clock(10, 30)
+  end
+
+  update do
+    update_movable_points(@points)
+    @points.each_with_index {|e, i|vputs("p#{i}", :vector => e)}
+
+    # アナログレバーの方向を向く
+    if (joy = Stylet.context.joys.first) && (al = joy.adjusted_analog_levers[:right]) && al.magnitude >= 0.5
+      if al.magnitude >= 0.5
+        @rot = al.angle
+      end
+    end
+    @rot += (1.0 / 24) * (button.btB.repeat_0or1 - button.btC.repeat_0or1)
+    draw_vector(vec2.angle_at(@rot).scale(32), :origin => @points[0])
+
+    # 球発射
+    if frame_counter.modulo(30) == 1
+      @objects << Bullet.new(@points[0], cursor.point, @rot)
+    end
+  end
+
+  run
+end

data/examples/00860_/346/224/276/347/211/251/347/267/232/343/201/247/347/213/231/346/222/203_/351/200/237/345/272/246/345/233/272/345/256/232.rb

@@ -0,0 +1,66 @@
+#
+# 放物線 狙撃 横方向のスピード固定
+#
+# Flashゲーム講座＆ASサンプル集【狙撃の計算方法について】
+# http://hakuhin.jp/as/shot.html#SHOT_02_02
+#
+# ・反対側に行っても打てる
+#
+require_relative "helper"
+
+class Bullet
+  include Stylet::Delegators
+
+  def initialize(pos, target)
+    @pos = pos.clone            # 自分の初期値
+    @target = target            # 相手の初期値
+
+    # どちらかを0にすると直線の軌跡になり指定フレームかけて二点間を移動することになる
+    @g  = 2.0   # 上昇加速度(大きくすると高く上がる)
+    @dt = 0.05  # 微分 (結局 y の差分は g * dt で出している)
+
+    diff = @target - @pos
+    dx = 5                      # X方向の速度
+    if diff.x < 0               # Flashゲーム講座の説明のコードではこれがなくなっていた
+      dx = -dx
+    end
+    t = diff.x / dx             # t = 到達までのフレーム数
+    dy = (diff.y - t**2 * (@g * @dt) / 2) / t
+    @speed = vec2[dx, dy]
+  end
+
+  def update
+    @speed.y += @g * @dt         # Yの加速度が変化していく
+    @pos += @speed
+    unless @pos.to_a.any?(&:nan?)
+      draw_triangle(@pos, :radius => 16, :angle => @speed.angle)
+      draw_vector(@speed * 8, :origin => @pos) # スピードベクトルの可視化
+      vputs "speed: #{@speed.round(2)}"
+    end
+  end
+
+  def screen_out?
+    @pos.to_a.any?(&:nan?) || @pos.y > srect.max_y
+  end
+end
+
+class App < Stylet::Base
+  include Helper::CursorWithObjectCollection
+  include Helper::MovablePoint
+
+  setup do
+    self.title = "放物線 狙撃【横方向の速度固定】"
+    @points = []
+    @points << srect.center + vec2[+srect.w / 4, 0]
+  end
+
+  update do
+    update_movable_points(@points)
+    @points.each_with_index {|e, i|vputs("p#{i}", :vector => e)}
+    if frame_counter.modulo(30) == 1
+      @objects << Bullet.new(@points[0], cursor.point)
+    end
+  end
+
+  run
+end