stylet 0.0.1

data/examples/00280_lib_/347/211/271/345/256/232/343/201/256/343/202/250/343/203/252/343/202/242/343/201/240/343/201/221/345/276/220/343/200/205/343/201/253/346/266/210/343/201/231.rb

@@ -0,0 +1,26 @@
+# 特定のエリアだけ徐々に消す
+require_relative "helper"
+
+class App < Stylet::Base
+  include Helper::Cursor
+
+  setup do
+    @area_rc = vec2[srect.w / 2, srect.h / 2] # 表示エリアの横縦幅
+    @image = SDL::Surface.load("assets/bg960x480_green_ruins.png").display_format
+  end
+
+  update do
+    draw_triangle(srect.center, :radius => 128, :angle => 1.0 / 256 * frame_counter)
+  end
+
+  def background_clear
+    area_xy = *(cursor.point - (@area_rc / 2))                               # 表示エリアの左上を求める
+    surface = screen.copy_rect(*area_xy, *@area_rc)                          # 表示部分を切り取る
+    surface.draw_filled_rect_alpha(0, 0, surface.w, surface.h, [0, 0, 0], 8) # 切り取った部分を9割消す
+    screen.put(@image, 0, 0)                                                 # 背景消去(画像で背景全体描画)
+    screen.put(surface, *area_xy)                                            # 切り取って加工した部分を戻す(上書きする)
+    surface.destroy                                                          # 作業用のサーフェスを消す(消さなくても動いた)
+  end
+
+  run
+end

data/examples/00290_lib_/350/203/214/346/231/257/350/211/262/345/244/211/346/233/264.rb

@@ -0,0 +1,5 @@
+require "./setup"
+
+Stylet::Palette[:background] = [107, 140, 255]
+Stylet::Palette[:font]       = [0, 0, 0]
+Stylet.run

data/examples/00300_lib_/343/202/255/343/203/243/343/203/251/343/202/257/343/202/277/347/224/273/345/203/217/343/202/222/350/241/250/347/244/272/343/201/231/343/202/213/344/276/213.rb

@@ -0,0 +1,17 @@
+require_relative "helper"
+
+class App < Stylet::Base
+  include Helper::Cursor
+
+  setup do
+    s = SDL::Surface.load("assets/mario.png")
+    s.set_color_key(SDL::SRCCOLORKEY, 0)
+    @image = s.display_format
+  end
+
+  update do
+    screen.put(@image, *cursor.point)
+  end
+
+  run
+end

data/examples/00310_lib_/343/202/255/343/203/243/343/203/251/343/202/257/343/202/277/347/224/273/345/203/217/343/201/256/343/202/242/343/203/213/343/203/241/343/203/274/343/202/267/343/203/247/343/203/263.rb

@@ -0,0 +1,18 @@
+# 画像を切り替えるだけのアニメーション
+require_relative "helper"
+
+class App < Stylet::Base
+  include Helper::Cursor
+
+  setup do
+    s = SDL::Surface.load("assets/coin_anim_x4.png") # 16x16 x 横4
+    s.set_color_key(SDL::SRCCOLORKEY, 0)
+    @image = s.display_format
+  end
+
+  update do
+    SDL::Surface.blit(@image, (frame_counter / 8).modulo(4) * 16, 0, 16, 16, screen, *srect.center)
+  end
+
+  run
+end

data/examples/00320_lib_/343/202/255/343/203/243/343/203/251/343/202/257/343/202/277/346/213/241/345/244/247/347/270/256/345/260/217/345/233/236/350/273/242.rb

@@ -0,0 +1,21 @@
+require_relative "helper"
+
+class App < Stylet::Base
+  include Helper::Cursor
+
+  setup do
+    s = SDL::Surface.load("assets/mario.png")
+    s.set_color_key(SDL::SRCCOLORKEY, 0)
+    @image = s.display_format
+  end
+
+  update do
+    SDL::Surface.transform_blit(@image, screen,
+      Stylet::Magic.rsin(1.0 / 256 * frame_counter) * 180,
+      Stylet::Magic.rsin(1.0 / 256 * frame_counter * 7 / 5) * 24,
+      Stylet::Magic.rsin(1.0 / 256 * frame_counter * 8 / 5) * 24,
+      @image.w / 2, @image.h / 2, *cursor.point, 0)
+  end
+
+  run
+end

data/examples/00330_joystick.rb

@@ -0,0 +1,5 @@
+# ジョイスティックのチェック
+require "./setup"
+Stylet.run do
+  vputs joys.count
+end

data/examples/00340_joystick_PS3/343/202/242/343/203/212/343/203/255/343/202/260/343/203/254/343/203/220/343/203/274/343/201/256/345/213/225/343/201/215/343/201/214/345/206/205/351/203/250/343/201/247/343/201/257/345/233/233/350/247/222.rb

@@ -0,0 +1,30 @@
+# PS3のコントローラーはアナログレバーは見た目は円だけど内部では四角なことの確認
+require "./setup"
+
+ANALOG_LEVER_MAX = 32767
+ANALOG_LEVER_MAGNITUDE_MAX = Math.sqrt(ANALOG_LEVER_MAX**2 + ANALOG_LEVER_MAX**2)
+
+Stylet.run do
+  joys.each do |joy|
+    joy.available_analog_levers.each do |key, state|
+      v = vec2[*state]
+      vputs [joy.name, key, v.magnitude]
+
+      # 取得した値をそのまま使うと斜めのベクトルが強くなりすぎる
+      # たんなる方向を示したいときはこれで問題ない
+      m = v.magnitude
+      rate = m.to_f / ANALOG_LEVER_MAGNITUDE_MAX
+      draw_vector(v.normalize * (rate * (srect.height / 2)), :origin => srect.center, :label => m.round)
+
+      # 斜めのベクトルが強くなりすぎないように制限を加えた例
+      m = v.magnitude
+      if m >= ANALOG_LEVER_MAX
+        m = ANALOG_LEVER_MAX
+      end
+      rate = m.to_f / ANALOG_LEVER_MAX
+      draw_vector(v.normalize * (rate * (srect.height / 2)), :origin => srect.center, :label => m.round)
+    end
+  end
+
+  draw_circle(srect.center, :vertex => 64, :radius => srect.height / 2)
+end

data/examples/00350_joystick_PS3/343/202/242/343/203/212/343/203/255/343/202/260/343/203/254/343/203/220/343/203/274/343/201/256/350/252/277/346/225/264/346/270/210/343/201/277/343/203/231/343/202/257/343/203/210/343/203/253.rb

@@ -0,0 +1,12 @@
+# PS3のコントローラーはアナログレバーは見た目は円だけど内部では四角
+require "./setup"
+
+Stylet.run do
+  joys.each do |joy|
+    joy.adjusted_analog_levers.each do |key, vector|
+      vputs [key, vector]
+      draw_vector(vector * (srect.height / 2), :origin => srect.center, :label => vector.round(2))
+    end
+  end
+  draw_circle(srect.center, :vertex => 64, :radius => srect.height / 2)
+end

data/examples/00360_lib_mouse.rb

@@ -0,0 +1,5 @@
+require "./setup"
+Stylet.run(:title => "マウス確認") do
+  vputs mouse
+  draw_vector(mouse.vector, :origin => srect.center, :label => mouse.vector.magnitude)
+end

data/examples/00370_lib_input.rb

@@ -0,0 +1,29 @@
+# キーボードの入力チェック
+require "./setup"
+
+class Player
+  include Stylet::Input::Base
+  include Stylet::Input::StandardKeybordBind
+
+  def update
+    raise if defined? super
+    key_bit_update_all
+    key_counter_update_all
+    Stylet.context.vputs(to_s)
+    Stylet.context.vputs(axis_angle_index.to_s)
+    Stylet.context.vputs(axis_angle.to_s)
+  end
+end
+
+class App < Stylet::Base
+  setup do
+    self.title = "キーボードの入力チェック"
+    @player = Player.new
+  end
+
+  update do
+    @player.update
+  end
+
+  run
+end

data/examples/00380_lib_vputs_align.rb

@@ -0,0 +1,8 @@
+# フォント関連
+require "./setup"
+
+Stylet.run do
+  vputs "left",   :vector => srect.center + [0, system_font.line_skip * 0], :align => :left
+  vputs "center", :vector => srect.center + [0, system_font.line_skip * 1], :align => :center
+  vputs "right",  :vector => srect.center + [0, system_font.line_skip * 2], :align => :right
+end

data/examples/00390_/343/203/225/343/202/251/343/203/263/343/203/210/344/270/200/350/246/247.rb

@@ -0,0 +1,15 @@
+require "./setup"
+
+Stylet::FontList.send(:memory_record_reset, Stylet.config.font_list + [
+    {:key => :font_small,  :path => "LiberationMono-Bold.ttf", :bold => true,  :font_size => 12},
+    {:key => :font_midium, :path => "LiberationMono-Bold.ttf", :bold => true,  :font_size => 16},
+    {:key => :font_large,  :path => "LiberationMono-Bold.ttf", :bold => true,  :font_size => 24},
+    {:key => :coda,        :path => "Coda-Regular.ttf",        :bold => false, :font_size => 14},
+  ])
+
+Stylet.run do
+  Stylet::FontList.each {|e| vputs [e.key, "Aa12KIA_漢;:"].join(" "), :font => e }
+
+  vputs "bold true", :bold => true
+  vputs "bold false", :bold => false
+end

data/examples/00400_lib_draw_circle.rb

@@ -0,0 +1,8 @@
+#
+# 円の描画
+#
+require "./setup"
+
+Stylet.run(:title => "円の描画") do
+  draw_circle(srect.center, :vertex => 256)
+end

data/examples/00410_SDL/343/201/256draw_rect/343/201/2571/343/203/224/343/202/257/343/202/273/343/203/253/344/275/231/345/210/206/343/201/253/346/217/217/347/224/273/343/201/225/343/202/214/343/202/213/343/201/256/343/201/247/346/263/250/346/204/217.rb

@@ -0,0 +1,7 @@
+require "./setup"
+
+Stylet.run do
+  color = [255] * 3
+  screen.fill_rect(*(srect.center + [0, 8 * 2]), 1, 1, color) # 1x1 で 1 ピクセル
+  screen.draw_rect(*(srect.center + [0, 8 * 1]), 0, 0, color) # draw_rect は 幅 0x0 なのに 1 ピクセル描画されてしまう
+end

data/examples/00420_circle_on_circle.rb

@@ -0,0 +1,10 @@
+#
+# 円上を動く円
+#
+require "./setup"
+include Stylet
+
+run(:title => "円上を動く円") do
+  pos = Vector.angle_at(1.0 / 256 * frame_counter * 2) * srect.h * 0.3
+  draw_circle(srect.center + pos, :vertex => 8, :radius => 64, :angle => pos.angle * 2)
+end

data/examples/00430_rotate.rb

@@ -0,0 +1,16 @@
+#
+# Vector#rotate の確認
+#
+require "./setup"
+
+pos1 = Stylet::Vector.new(100, 0)
+pos2 = Stylet::Vector.new(100, 0)
+Stylet.run(:title => "Vector#rotate系の二つのメソッドの確認") do
+  pos1 = pos1.rotate(1.0 / 256)
+  pos2 = pos2.rotate2(1.0 / 256)
+  vputs(pos1 == pos2)
+  vputs "1: #{pos1}"
+  vputs "2: #{pos2}"
+  draw_triangle(srect.center + pos1, :radius => 64, :angle => pos1.angle)
+  draw_triangle(srect.center + pos2, :radius => 64, :angle => pos2.angle)
+end

data/examples/00440_draw_triangle.rb

@@ -0,0 +1,7 @@
+#
+# 回転する三角形
+#
+require "./setup"
+Stylet.run(:title => "回転する三角形の描画") do
+  draw_triangle(srect.center, :radius => 128, :angle => 1.0 / 256 * frame_counter)
+end

data/examples/00450_parabora_triangle.rb

@@ -0,0 +1,37 @@
+#
+# マウスの位置からZボタンで放物線を描く三角を表示
+#
+require_relative "helper"
+
+class Ball
+  include Stylet::Delegators
+
+  def initialize(p0, speed, friction)
+    @p0 = p0
+    @speed = speed
+    @friction = friction
+    @radius = 16
+  end
+
+  def update
+    @speed += @friction
+    @p0 += @speed
+    draw_triangle(@p0, :radius => @radius, :angle => 1.0 / 64 * frame_counter)
+  end
+
+  def screen_out?
+    @speed.y > 0 && @p0.y > (srect.max_y + @radius)
+  end
+end
+
+class App < Stylet::Base
+  include Helper::CursorWithObjectCollection
+
+  update do
+    if button.btA.counter.modulo(4) == 1
+      @objects << Ball.new(cursor.point.clone, vec2[0, -12], vec2[0, 0.2])
+    end
+  end
+
+  run
+end

data/examples/00460_ice_hockey.rb

@@ -0,0 +1,88 @@
+#
+# マウスで円をアイスホッケーの球のように動かすアルゴリズム
+#
+require_relative "helper"
+
+#
+# 円の中心
+#    p0 (見えない)
+#      \
+#       \ radius
+#        \
+#         座標 pos (見える)
+#          方向 dir
+#
+class IceHockey < Stylet::Base
+  include Helper::CursorWithObjectCollection
+
+  setup do
+    cursor.display = false
+
+    @p0 = srect.center.clone # 物体の中心点
+    @pos = @p0.clone        # 物体の位置
+    @speed = 0              # 速度
+    @radius = 0             # 中心からの移動量
+    @dir = 0                # 中心からの移動角度
+    @lock = false
+
+    @body_radius = 64       # 物体の大きさ
+    @speed_max = 16         # 速度最大
+    @friction = 0.3         # 摩擦
+  end
+
+  update do
+    # ボタンをクリックした瞬間に、
+    if button.btA.trigger?
+      # 自分の円のなかにカーソルがあればロックする
+      if @pos.distance_to(mouse.point) < @body_radius
+        @lock = true
+      end
+    end
+
+    # ロックしているときに、ボタンが押されっぱなしなら
+    if @lock && button.btA.press?
+      @p0 = mouse.point.clone      # 円の座標をマウスと同じにする
+      @power = mouse.vector.magnitude # マウスの直前からの移動距離を速度と考える
+      @speed = 0                        # 速度を0とする
+      @radius = 0                       # 半径を0とする
+    end
+
+    # ボタンが離された瞬間
+    if button.btA.free_trigger?
+      # ロックを解除する
+      @lock = false
+      # 速度が設定されていれば
+      if @power
+        @speed = @power             # 速度を円に反映し、
+        @dir   = mouse.vector.angle # 円の方向にマウスが移動した方向を合わせる
+        @power = nil                # 球が動いているときにボタンを連打すると @dir が再設定されてしまうので nil にしておく
+      end
+    end
+
+    # 摩擦によって速度が落ちる
+    @speed -= @friction
+
+    # 速度調整
+    @speed = Stylet::Chore.clamp(@speed, (0..@speed_max))
+
+    # 速度反映
+    @radius += @speed
+
+    # 進んだ位置を計算
+    _p = @p0 + vec2.angle_at(@dir) * @radius
+
+    # 画面内なら更新
+    if Stylet::CollisionSupport.rect_in?(srect, _p)
+      @pos = _p
+    end
+
+    draw_circle(@pos, :radius => @body_radius, :vertex => 32)
+    draw_line(@p0, @pos)
+    vputs @power
+    vputs @pos.distance_to(mouse.point)
+    vputs @speed
+    vputs @radius
+  end
+
+  run
+end

data/examples/00470_collision_block_vs_block.rb

@@ -0,0 +1,120 @@
+#
+# ブロックとブロックの当たり判定
+#
+require_relative "helper"
+
+class App < Stylet::Base
+  include Helper::CursorWithObjectCollection
+
+  setup do
+    self.title = "ブロックとブロックの当たり判定"
+
+    # A
+    @pA = srect.center.clone                              # 点
+    @rA = Stylet::Rect4.centered_create(40, 40)                # 大きさ
+    @sA = vec2.angle_at(Stylet::Magic.degree(180 + 90)) # 速度
+
+    # B
+    @pB = srect.center.clone                        # 点
+    @rB = Stylet::Rect4.centered_create(100, 60)         # 大きさ
+    @sB = vec2.angle_at(Stylet::Magic.degree(45)) # 速度
+
+    @speed = 100    # 速度ベクトル 1.0 を画面上では何ドットで表わすか？
+    @max_length = 1 # どれだけめり込んだら当たったとみなすか？
+
+    cursor.vertex = 3
+  end
+
+  update do
+    # 操作
+    begin
+      # AとBで速度ベクトルの反映
+      @pA += @sA.scale(button.btA.repeat_0or1) + @sA.scale(-button.btB.repeat_0or1)
+      @pB += @sB.scale(button.btA.repeat_0or1) + @sB.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
+    end
+
+    # それぞれを実座標に変換
+    @tA = @rA.vector_add(@pA)
+    @tB = @rB.vector_add(@pB)
+
+    # めりこみサイズを4辺について調べる
+    _l = @tA.max_xi - @tB.min_xi # A|B
+    _r = @tB.max_xi - @tA.min_xi # B|A
+    _u = @tA.max_yi - @tB.min_yi # A/B
+    _d = @tB.max_yi - @tA.min_yi # B/A
+
+    # 当たり判定
+    @collision = false
+    if true &&
+        _l >= @max_length && # A|B
+        _r >= @max_length && # B|A
+        _u >= @max_length && # A/B
+        _d >= @max_length && # B/A
+        true
+
+      # __fill_rect2(@tA)
+
+      faces = {_l => :l, _r => :r, _u => :u, _d => :d}
+      vputs faces.sort.inspect
+
+      face = faces.sort.first.last
+      diff = case face
+             when :r then vec2[_r + 1, 0]
+             when :d then vec2[0, _d + 1]
+             when :u then vec2[0, -(_u + 1)]
+             when :l then vec2[-(_l + 1), 0]
+             end
+
+      @collision = true
+      @pA += diff
+
+      # これも一旦ずらして、反射を入れる
+
+      # 両方はねかえる
+      # @pA += diff / 2
+      # @pB -= diff / 2
+
+      # @tA = @tA.vector_add(diff.scale(0.99))
+      # @pB -= diff.scale(0.01)
+
+      # # 実座標から大きさベクトルを引くと中心点になる
+      # @pA = @tA.to_vector - @rA.to_vector
+
+      @tA = @rA.vector_add(@pA)
+      @tB = @rB.vector_add(@pB)
+    end
+
+    # screen.fill_rect(10, 10, 0, 0, [255, 255, 255])
+    # draw_rect(@tA, :fill => @collision)
+
+    draw_rect(@tA, :fill => @collision)
+
+    if button.btC.press? && @collision
+      # ゴーストの表示
+      draw_rect(@rA.vector_add(cursor.point))
+    end
+
+    vputs "A", :vector => @pA
+    vputs "A: #{@tA}"
+    draw_vector(@sA.scale(@speed), :origin => @pA, :label => @sA.magnitude)
+
+    draw_rect(@rB.vector_add(@pB))
+    vputs "B", :vector => @pB
+    vputs "B: #{@rB}"
+    draw_vector(@sB.scale(@speed), :origin => @pB, :label => @sB.magnitude)
+  end
+
+  run
+end