stylet 0.0.1

data/examples/00480_simple_circle_controll.rb

@@ -0,0 +1,37 @@
+#
+# 円の移動の定石
+#
+require_relative "helper"
+
+class App < Stylet::Base
+  include Helper::CursorWithObjectCollection
+
+  setup do
+    self.title = "円の移動の定石"
+    @pA = srect.center.clone
+    @sA = vec2.angle_at(Stylet::Magic.clock(8))
+    @radius = 50
+    @vertex = 32
+  end
+
+  update do
+    # 操作
+    # AとBで速度ベクトルの反映
+    @pA += @sA.scale(button.btA.repeat_0or1) + @sA.scale(-button.btB.repeat_0or1)
+    # Cボタンおしっぱなし + マウスで自機位置移動
+    if button.btC.press?
+      @pA = cursor.point.clone
+    end
+    # Dボタンおしっぱなし + マウスで自機角度変更
+    if button.btD.press?
+      if cursor.point != @pA
+        @sA = (cursor.point - @pA).normalize * @sA.magnitude
+      end
+    end
+
+    draw_circle(@pA, :vertex => @vertex, :radius => @radius)
+    draw_vector(@sA.scale(@radius), :origin => @pA)
+  end
+
+  run
+end

data/examples/00490_/347/255/211/351/200/237/347/247/273/345/213/225_uniform_velocity_rain.rb

@@ -0,0 +1,51 @@
+#
+# 等速移動
+#
+#   いろんな多角形が落ちてくるだけ
+#
+require_relative "helper"
+
+class Ball
+  include Stylet::Delegators
+  delegate :objects, :to => "Stylet.context"
+
+  def initialize
+    @gravity = vec2[0, 0.05]
+
+    @vertex = 3 + rand(3)
+    @radius = 2 + rand(24)
+    @arrow = rand(2).zero? ? 1 : -1
+
+    @pos = vec2[rand(srect.w), srect.min_y - @radius * 2]
+    @speed = vec2.angle_at(Stylet::Magic.clock(rand(5.5..6.5))).scale(rand(1.0..1.5))
+  end
+
+  def update
+    @pos += @speed
+
+    # 落ちたら死ぬ
+    max = srect.max_y + @radius * 2
+    if @pos.y > max
+      objects.delete(self)
+    end
+
+    draw_circle(@pos, :radius => @radius, :vertex => @vertex, :angle => 1.0 / 256 * (@speed.magnitude + frame_counter) * @arrow)
+  end
+end
+
+class App < Stylet::Base
+  include Helper::CursorWithObjectCollection
+
+  setup do
+    cursor.display = false
+    self.title = "等速落下"
+  end
+
+  update do
+    if frame_counter.modulo(4).zero?
+      @objects << Ball.new
+    end
+  end
+
+  run
+end

data/examples/00500_/345/212/240/351/200/237/346/224/276/347/211/251/347/267/232_parabora_volcano.rb

@@ -0,0 +1,94 @@
+#
+# 放物線デモ(火山)
+#
+# ・Zでスピード反転
+# ・Xでスピード二倍
+# ・Cでマウスの位置にセット
+# ・Vで速度ベクトルの向きをマウスの向きへ
+#
+require_relative "helper"
+
+class Ball
+  include Stylet::Delegators
+
+  delegate :objects, :button, :cursor, :to => "Stylet.context"
+
+  def initialize
+    @vertex = 3 + rand(3)           # 物体は何角形か
+    @radius = 2 + rand(24)          # 物体の大きさ
+    @arrow = rand(2).zero? ? 1 : -1 # どっち向きに回転するか
+    @reflect = 0
+
+    @pos = vec2[srect.center.x, srect.max_y + @radius * 2] # 物体初期位置
+    @speed = vec2[rand(-2.0..2.0), rand(-15.0..-12)]       # 速度ベクトル
+    @gravity = vec2[0, 0.220]                              # 重力
+  end
+
+  def update
+    # 操作
+    begin
+      # Aボタンでスピード反転
+      if button.btA.trigger?
+        @speed = @speed.scale(-1)
+      end
+
+      # Bボタンでスピード2倍
+      if button.btB.trigger?
+        @speed = @speed.scale(2)
+      end
+
+      # Cボタンおしっぱなし + マウスで位置移動
+      if button.btC.press?
+        @pos = Stylet.context.cursor.point.clone
+      end
+
+      # Dボタンおしっぱなし + マウスで角度変更
+      if button.btD.press?
+        if cursor.point != @pos
+          # @speed = (Stylet.context.cursor.point - @pos).normalize * @speed.magnitude
+          @speed = (cursor.point - @pos).normalize * @speed.magnitude
+        end
+      end
+    end
+
+    @speed += @gravity # 加速
+    @pos += @speed     # 進む
+
+    # 画面下で弾ける
+    if @reflect == 0
+      max = (srect.max_y - @radius)
+      if @pos.y > max && @speed.y >= 1
+        @speed.y = -@speed.y
+        @speed = @speed.scale(0.5)
+        if @speed.magnitude < 1.0
+          @reflect += 1
+        end
+      end
+    end
+
+    # 完全に落ちてしまったら死ぬ
+    max = srect.max_y + @radius * 2
+    if @pos.y > max && @speed.y >= 1
+      objects.delete(self)
+    end
+
+    draw_circle(@pos, :radius => @radius, :vertex => @vertex, :angle => 1.0 / 256 * (@speed.magnitude + frame_counter) * @arrow)
+  end
+end
+
+class App < Stylet::Base
+  include Helper::CursorWithObjectCollection
+
+  setup do
+    cursor.display = false
+    self.title = "加速・放物線・バウンド"
+  end
+
+  update do
+    if frame_counter.modulo(4).zero?
+      @objects << Ball.new
+    end
+  end
+
+  run
+end

data/examples/00510_3d.rb

@@ -0,0 +1,53 @@
+#
+# 3D
+#
+require_relative "helper"
+
+class App < Stylet::Base
+  include Helper::CursorWithObjectCollection
+  include Helper::MovablePoint
+
+  setup do
+    @points = []
+
+    @points << vec3[-200, +200, 75]
+    @points << vec3[+200, +200, 75]
+    @points << vec3[+200, -200, 75]
+    @points << vec3[-200, -200, 75]
+
+    @points << vec3[-200, +200, 50]
+    @points << vec3[+200, +200, 50]
+    @points << vec3[+200, -200, 50]
+    @points << vec3[-200, -200, 50]
+
+    @ridges = [
+      [0, 1],
+      [1, 2],
+      [2, 3],
+      [3, 0],
+
+      [4, 5],
+      [5, 6],
+      [6, 7],
+      [7, 4],
+
+      [0, 4],
+      [1, 5],
+      [2, 6],
+      [3, 7],
+    ]
+
+    @depth = 25
+  end
+
+  update do
+    @depth += axis.down.repeat - axis.up.repeat
+    points2 = @points.collect {|p| vec2[p.x.to_f * @depth / p.z, p.y.to_f * @depth / p.z] }
+    points3 = points2.collect {|p| srect.center + vec2[p.x, -p.y] }
+    @ridges.each {|a, b| draw_line(points3[a], points3[b]) }
+    points3.each_with_index {|p0, index| vputs index, :vector => p0 }
+    vputs "depth: #{@depth}"
+  end
+
+  run
+end

data/examples/00520_/343/203/210/343/203/253/343/203/215/343/201/256/343/203/241/343/203/213/343/203/245/343/203/274/351/242/250/343/201/256/345/213/225/343/201/215.rb

@@ -0,0 +1,77 @@
+#
+# PSPやPS3やトルネのインターフェイスでありがちなメニューの動き
+#
+require_relative "helper"
+
+class Ball
+  include Stylet::Delegators
+
+  delegate :axis, :button, :objects, :to => "Stylet.context"
+
+  def initialize(index)
+    @name = index.to_s
+    @index = index
+
+    @vertex = 16
+    @radius = 48
+    @everyone_radius = 80 * 2
+    @arrow = rand(2).zero? ? 1 : -1 # どっち向きに回転するか
+
+    @pos = vec2[rand(srect.w), rand(srect.h)]             # 物体初期位置
+
+    @state = State.new(:state1)
+  end
+
+  def update
+    if axis.up.press? || axis.down.press? || axis.right.press? || axis.left.press? || button.btA.trigger?
+      @index += axis.down.repeat + axis.right.repeat
+      @index -= axis.up.repeat + axis.left.repeat
+      @state.jump_to :state1
+    end
+    if button.btB.trigger?
+      @state.jump_to :state3
+    end
+
+    @state.loop_in do
+      case @state.key
+      when :state1
+        # 自分の位置に戻る
+        @target = srect.center + vec2.angle_at((1.0 / objects.size * @index)) * @everyone_radius
+        @pos += (@target - @pos).scale(0.2)
+
+        if (@target - @pos).magnitude < 1.0
+          @pos = @target
+          @state.jump_to :state2
+        end
+      when :state2
+        # しばらく時間がたったら
+        if @state.start?
+        end
+        if @state.counter >= 30 * 1 || button.btB.trigger?
+          @state.jump_to :state3
+        end
+      when :state3
+        # 勝手に動きだす
+        if @state.start?
+          @speed = vec2[rand(-1.5..1.5), rand(-1.0..1.0)]
+        end
+        @pos += @speed
+      end
+    end
+
+    draw_circle(@pos, :radius => @radius, :vertex => @vertex, :angle => 1.0 / 256 * frame_counter)
+    vputs @name, :vector => @pos
+  end
+end
+
+class App < Stylet::Base
+  include Helper::CursorWithObjectCollection
+
+  setup do
+    self.title = "トルネ風メニュー(PSのシステムにありがちな動き)"
+    cursor.display = false
+    @objects = Array.new(8) {|i| Ball.new(i) }
+  end
+
+  run
+end

data/examples/00530_curve_2/346/254/241/343/203/231/343/202/270/343/202/247/346/233/262/347/267/232/343/201/250/347/233/264/347/267/232/343/201/250/343/201/256/344/272/244/347/202/271.rb

@@ -0,0 +1,43 @@
+require_relative "bezier"
+
+class App
+  include LineCollision
+
+  def collection
+    [
+      [
+        srect.center + vec2[-srect.w / 4, srect.h / 4],
+        srect.center + vec2[0, -srect.h / 4],
+        srect.center + vec2[srect.w / 4, srect.h / 4],
+      ], [
+        srect.center + vec2[-100, +100],
+        srect.center + vec2.zero,
+        srect.center + vec2[+100, -100],
+      ],
+    ]
+  end
+
+  # 二次ベジェ曲線
+  #
+  #   p0: 開始座標
+  #   p1: 制御座標
+  #   p2: 終了座標
+  #
+  #              p1
+  #   p0 ------------------- p2
+  #
+  #   用途
+  #   ・少し曲げたい
+  #   ・終了座標を必ず通る必要がある
+  #   ・計算量をなるべく少なくしたい
+  #   ・クロスしなくてよい
+  #
+  def bezier_curve(p0, p1, p2, t)
+    o = vec2.zero
+    o += p0.scale((1 - t) * (1 - t))
+    o += p1.scale(2 * t * (1 - t))
+    o += p2.scale(t * t)
+  end
+
+  run
+end

data/examples/00540_curve_3/346/254/241/343/203/231/343/202/270/343/202/247/346/233/262/347/267/232.rb

@@ -0,0 +1,40 @@
+require_relative "bezier"
+
+class App
+  def collection
+    [
+      [
+        vec2[srect.min_x + srect.w / 8, srect.hy],               # 開始
+        vec2[srect.min_x + srect.w / 4, srect.hy - srect.h / 4], # 制御(右)
+        vec2[srect.max_x - srect.w / 4, srect.hy - srect.h / 4], # 制御(左)
+        vec2[srect.max_x - srect.w / 8, srect.hy],               # 終了
+      ]
+    ]
+  end
+
+  # 三次ベジェ曲線
+  #
+  #   p0: 開始
+  #   p1: 制御
+  #   p2: 制御
+  #   p3: 終了
+  #
+  #        p1           p2
+  #   p0 ------------------- p3
+  #
+  #   用途
+  #   ・激しく曲げたい
+  #   ・終了座標を必ず通る必要がある
+  #   ・計算量をまーまー少なくしたい
+  #   ・クロスさせたい
+  #
+  def bezier_curve(p0, p1, p2, p3, d)
+    o = vec2.zero
+    o += p0.scale((1 - d) * (1 - d) * (1 - d))
+    o += p1.scale(3 * d * (1 - d) * (1 - d))
+    o += p2.scale(3 * d * d * (1 - d))
+    o += p3.scale(d * d * d)
+  end
+
+  run
+end

data/examples/00550_curve_N/346/254/241/343/203/231/343/202/270/343/202/247/346/233/262/347/267/232.rb

@@ -0,0 +1,92 @@
+require_relative "bezier"
+
+class App
+  def collection
+    list = []
+
+    # 横に配置
+    n = 2
+    a = []
+    a += Array.new(n + 1) {|i|
+      x = (srect.width * 0.1) + ((srect.width * 0.8) / n * i)
+      y = srect.hy
+      vec2[x, y]
+    }
+    list << a
+
+    # 円状に配置
+    n = 5
+    r = srect.hy * 0.9
+    a = []
+    a += Array.new(n) {|i| srect.center + vec2.angle_at(1.0 / n * i).scale(r) }
+
+    list << a
+
+    list
+  end
+
+  update do
+    unless @points.empty?
+      if button.btB.trigger?
+        # 最後に制御点の追加
+        @points = [
+          @points.first(@points.size - 1),
+          @points.last + vec2[-30, 0],
+          @points.last,
+        ].flatten
+      end
+      if button.btC.trigger?
+        # 最後の制御点を削除
+        if @points.size >= 3
+          @points[-2] = nil
+          @points.compact!
+        end
+      end
+      vputs "#{@points.size} (B+ C-)"
+    end
+  end
+
+  # N次ベジェ曲線
+  #
+  #         p1  p2  p3  p4
+  #   p0 ------------------- p5
+  #
+  #   用途
+  #   ・めちゃくちゃ激しく曲げたい
+  #   ・終了座標を必ず通る必要がある
+  #   ・どんだけ計算量がかかってもよい
+  #   ・クロスしまくりたい
+  #
+  def bezier_curve(*points, d)
+    o = vec2.zero
+
+    points.size.times {|i|
+      p = points[i]
+      v = 1.0
+      a = points.size - 1
+      b = i
+      c = a - b
+      loop do
+        if a > 1
+          v *= a
+          a -= 1
+        else
+          break
+        end
+        if b > 1
+          v /= b
+          b -= 1
+        end
+        if c > 1
+          v /= c
+          c -= 1
+        end
+      end
+      v *= (d**i) * ((1 - d)**((points.size - 1) - i))
+      o += p.scale(v)
+    }
+    o
+  end
+
+  run
+end