stylet 0.0.1

data/examples/01160_2D/343/202/242/343/203/225/343/202/243/343/203/263/345/244/211/346/217/233.rb

@@ -0,0 +1,40 @@
+# アフィン変換
+
+require_relative "helper"
+require_relative "mtx33"
+
+class App < Stylet::Base
+  include Helper::CursorWithObjectCollection
+  include Helper::MovablePoint
+
+  setup do
+  end
+
+  update do
+    if true
+      # 絶対座標の場合
+      p0 = srect.center                              # オブジェクトの原点
+      p1 = p0 + vec2[64, 64]                         # 絶対座標になっている場合は、
+      m1 = Stylet::Mtx33.translate(*(-p0))           # まず原点を引いて
+      m2 = Stylet::Mtx33.rotate(frame_counter)       # モデル座標の状態にして回転し
+      m3 = Stylet::Mtx33.translate(*p0)              # 元に戻す
+      m = Stylet::Mtx33.transform(m1, m2, m3)        # 上の3つの行列を加算
+      # m = Stylet::Mtx33.invert(m)
+      v = Stylet::Mtx33.vec2_transform_point(*p1, m) # 絶対座標を反映
+      draw_triangle(v, :radius => 16)
+      draw_dot(p0)
+    end
+
+    if true
+      # モデル座標の場合
+      p0 = srect.center                              # オブジェクトの原点
+      p1 = vec2[128, 128]                            # モデル座標
+      m = Stylet::Mtx33.rotate(frame_counter)        # モデル座標の場合はいきなり回転してよい
+      v = Stylet::Mtx33.vec2_transform_point(*p1, m) # モデル座標を反映
+      draw_triangle(p0 + v, :radius => 16)           # 最後に原点を普通に足す
+      draw_dot(p0)
+    end
+  end
+
+  run
+end

data/examples/01170_stackprof.rb

@@ -0,0 +1,10 @@
+require "./setup"
+require "stackprof"
+
+StackProf.run(mode: :cpu, out: "/tmp/stackprof-cpu-myapp.dump") do
+  Stylet.run do
+    vputs frame_counter
+  end
+end
+
+# stackprof /tmp/stackprof-cpu-myapp.dump

data/examples/01180_sdl_/343/202/242/343/203/253/343/203/225/343/202/241/343/203/226/343/203/254/343/203/263/343/203/207/343/202/243/343/203/263/343/202/260/343/201/247/351/207/215/343/201/255/345/220/210/343/201/233/345/241/227/343/202/212/346/275/260/343/201/227.rb

@@ -0,0 +1,11 @@
+# 重ね合せ塗り潰し アルファブレンディング
+require "./setup"
+
+class App < Stylet::Base
+  update do
+    screen.draw_filled_rect_alpha( 0,  0, 100, 100, [255, 255, 255], 128)
+    screen.draw_filled_rect_alpha(50, 50, 100, 100, [255, 255, 255], 128)
+  end
+
+  run
+end

data/examples/01190_/343/203/221/343/203/274/343/203/206/343/202/243/343/202/257/343/203/253/345/220/214/345/243/253/343/201/247/344/270/255/345/244/256/343/201/253/345/220/221/343/201/213/343/201/206.rb

@@ -0,0 +1,79 @@
+require_relative "helper"
+
+class Particle
+  include Stylet::Delegators
+  delegate :objects, :button, :cursor, :to => "Stylet.context"
+
+  GRAVITY = 2.0
+
+  attr_reader :p0, :p1, :diameter, :mass
+
+  def initialize(point, mass)
+    @p0 = point.clone
+    @p1 = point.clone
+
+    @speed = vec2[0, 0]
+    @accel = vec2[0, 0]
+
+    @mass = mass                            # 質量
+    @diameter = Math.sqrt(mass) * 20 # 直径
+  end
+
+  def update
+    @accel = vec2[0, 0]
+    @min_dist = 1000
+
+    objects.each do |e|
+      if e == self
+        next
+      end
+      dist = Math.hypot(*(@p0 - e.p0))
+      dir = -angle_of(@p0, e.p0)
+      if dist < @min_dist
+        @min_dist = dist
+      end
+      force = (GRAVITY * mass * e.mass) / dist
+      if dist > diameter
+        @accel.x += force / mass * Math.cos(dir)
+        @accel.y += force / mass * Math.sin(dir)
+      end
+    end
+
+    # 計算
+    @speed += @accel
+    @p1 = @p0 + @speed
+
+    # 描画
+    charge_col  = 1000.0 / @min_dist / 50.0
+    tot_col_1   = 100 + charge_col * 6
+    tot_col_2   = 150 + charge_col * charge_col
+    tot_col_3   = diameter + 8 + charge_col
+
+    draw_circle(p1, :radius => diameter / 2)
+
+    @p0 = p1.clone
+  end
+
+  def angle_of(p1, p2)
+    v = p1 - p2
+    Math::PI - Math.atan2(v.y, v.x)
+  end
+end
+
+class App < Stylet::Base
+  include Helper::CursorWithObjectCollection
+
+  setup do
+    3.times do
+      objects << Particle.new(srect.center + vec2.rand(-100..+100), rand(0.1..8))
+    end
+  end
+
+  update do
+    if button.btA.trigger?
+      objects << Particle.new(mouse.point, rand(0.1..8))
+    end
+  end
+
+  run
+end

data/examples/01200_lib_OpenGL.rb

@@ -0,0 +1,55 @@
+require_relative "helper"
+require "opengl"
+
+Stylet.config.screen_flags |= SDL::OPENGL
+
+class App < Stylet::Base
+  include Helper::CursorWithObjectCollection
+
+  setup do
+    SDL::GL.set_attr(SDL::GL_RED_SIZE, 5)
+    SDL::GL.set_attr(SDL::GL_GREEN_SIZE, 5)
+    SDL::GL.set_attr(SDL::GL_BLUE_SIZE, 5)
+    SDL::GL.set_attr(SDL::GL_DEPTH_SIZE, 16)
+    SDL::GL.set_attr(SDL::GL_DOUBLEBUFFER, 1)
+
+    GL::Viewport(0, 0, 640, 480)
+    GL::MatrixMode(GL::PROJECTION)
+    GL::LoadIdentity()
+
+    GL::MatrixMode(GL::MODELVIEW)
+    GL::LoadIdentity()
+
+    GL::Enable(GL::DEPTH_TEST)
+    GL::DepthFunc(GL::LESS)
+    GL::ShadeModel(GL::SMOOTH)
+  end
+
+  update do
+    GL.ClearColor(0.0, 0.0, 0.2, 0.0) # 背景色の設定(最後の1.0はなんだろう？)
+    GL.Clear(GL::COLOR_BUFFER_BIT | GL::DEPTH_BUFFER_BIT)
+
+    GL::Begin(GL::QUADS) # 4つの点があることを宣言
+
+    GL::Color([1.0, 0.0, 0.0])      # 右上
+    GL::Vertex([0.75, 0.75, -0.75]) # 右上の点の位置(1.0にすると画面最大になる)
+    GL::Color([0.0, 1.0, 0.0])      # 右下
+    GL::Vertex([0.75, -0.75, -0.75])
+    GL::Color([0.0, 0.0, 1.0])      # 左下
+    GL::Vertex([-0.75, -0.75, -0.75])
+    GL::Color([0.0, 1.0, 1.0])      # 左上
+    GL::Vertex([-0.75, 0.75, -0.75])
+
+    GL::End()           # 点の設定を終了
+
+    GL::MatrixMode(GL::MODELVIEW)
+    GL::Rotate(0.5, 0.5, 0.5, 0.5) # ここを有効にするとなんか知らんが回転する
+
+    SDL::GL.swap_buffers
+  end
+
+  def background_clear
+  end
+
+  run
+end

data/examples/bezier.rb

@@ -0,0 +1,202 @@
+
+require_relative "helper"
+
+class App < Stylet::Base
+  include Helper::CursorWithObjectCollection
+  include Helper::MovablePoint
+
+  setup do
+    @line_count = 50        # 軌跡確認用弧線の構成ライン数初期値(確認用)
+    @points_count = 0
+
+    points_switch
+  end
+
+  update do
+    if key_down?(SDL::Key::A)
+      points_switch
+    end
+
+    if false
+      # 構成ライン数の減算
+      @line_count += button.btC.repeat
+      @line_count -= button.btD.repeat
+      @line_count = [2, @line_count].max
+      vputs "@line_count = #{@line_count}"
+    end
+
+    # 曲線表示
+    if @dragging_current || button.btA.press? || true
+      curve_points.each_cons(2) {|points| draw_line(*points) }
+    end
+
+    # ベジェのポイントを動かして表示
+    update_movable_points(@points)
+    @points.each_with_index {|e, i|vputs("b#{i} #{e}", :vector => e)}
+
+    unless @points.empty?
+      # 物体をいったりきたりさせる
+      if false
+        # ○の表示
+        pos = 0.5 + (Stylet::Magic.rsin(frame_counter / 256.0) * 0.5)
+        pt = point_of_t(pos)
+        draw_circle(pt, :radius => 64, :vertex => 32)
+        vputs(pos)
+      else
+        # △の表示で進んでいる方向を頂点にする
+        t0 = 0.5 + (Stylet::Magic.rsin(1.0 / 256 * frame_counter) * 0.5)       # 現在の位置(0.0〜1.0)
+        t1 = 0.5 + (Stylet::Magic.rsin(1.0 / 256 * frame_counter.next) * 0.5)  # 未来の位置(0.0〜1.0)
+        p0 = point_of_t(t0)                                              # 現在の座標
+        p1 = point_of_t(t1)                                              # 未来の座標
+        draw_triangle(p0, :angle => p0.angle_to(p1), :radius => 64) # 三角の頂点を未来への向きに設定して三角描画
+      end
+    end
+  end
+
+  def points_switch
+    @dragging_current = nil
+    @points = collection[@points_count.modulo(collection.size)].tap { @points_count += 1}
+  end
+
+  private
+
+  def curve_points
+    @line_count.next.times.collect {|i| point_of_t(1.0 * i / @line_count) }
+  end
+
+  def point_of_t(t)
+    bezier_curve(*@points, t)
+  end
+
+  def bezier_curve(*args)
+    raise NotImplementedError, "#{__method__} is not implemented"
+  end
+end
+
+# 直線との交点
+class App
+  module LineCollision
+    extend ActiveSupport::Concern
+
+    included do
+      setup do
+        @lpoints_count = 0
+        lpoints_switch
+      end
+
+      update do
+        if key_down?(SDL::Key::S)
+          lpoints_switch
+        end
+
+        # 直線のポイント位置のドラッグ
+        update_movable_points(@line_ab)
+
+        # ライン両端の番号とライン表示
+        @line_ab.each_with_index {|e, i|vputs("p#{i} #{e}", :vector => e)}
+        draw_line(*@line_ab)
+
+        # 2点から直線 ax+bx+c=0 の a b c を求める
+        p0 = @line_ab[0]
+        p1 = @line_ab[1]
+        a = p0.y - p1.y
+        b = -(p0.x - p1.x)
+        c = p0.x * p1.y - p1.x * p0.y
+
+        t = intersection2(*@points, a, b, c)
+        t.each do |t|
+          xy = point_of_t(t)
+          draw_circle(xy, :radius => 3)
+          vputs(t, :vector => xy)
+        end
+      end
+    end
+
+    def lpoints_switch
+      @line_ab = []
+      if @lpoints_count.modulo(2).zero?
+        @line_ab << srect.center + vec2[-srect.w / 8, +srect.h / 3]
+        @line_ab << srect.center + vec2[-srect.w / 8, -srect.h / 3]
+      else
+        @line_ab << srect.center + vec2[-srect.w / 8, 0]
+        @line_ab << srect.center + vec2[+srect.w / 8, 0]
+      end
+      @dragging_current = nil
+      @lpoints_count += 1
+    end
+
+    # NUTSU » [as]ベジェ曲線と直線の交点
+    # http://nutsu.com/blog/2007/101701_as_bezjesegment3.html
+    def intersection1(p0, p1, p2, a, b, c)
+      t = []
+
+      m = b * p2.y + b * p0.y + a * p2.x + a * p0.x - 2 * b * p1.y - 2 * a * p1.x
+      n = -2 * b * p0.y - 2 * a * p0.x + 2 * b * p1.y + 2 * a * p1.x
+      l = b * p0.y + a * p0.x + c
+
+      d = (n**2) - 4 * m * l
+
+      vputs "a: #{a}"
+      vputs "b: #{b}"
+      vputs "c: #{c}"
+
+      vputs "l: #{l}"
+      vputs "m: #{m}"
+      vputs "n: #{n}"
+      vputs "d: #{d}"
+
+      if d > 0
+        d = Math.sqrt(d)
+        t << 0.5 * (-n + d) / m
+        t << 0.5 * (-n - d) / m
+      elsif d.zero?
+        t << 0.5 * -n / m
+      end
+
+      vputs "t: #{t}"
+
+      t = t.find_all {|d|(0..1).include?(d)} # (0..1の範囲外は曲線の延長線上の交点になる)
+      t
+    end
+
+    # 二次ベジェ曲線と直線の交点
+    # http://geom.web.fc2.com/geometry/bezier/qb-line-intersection.html
+    def intersection2(p0, p1, p2, a, b, c)
+      t = []
+
+      l = a * (p2.x - 2 * p1.x + p0.x) + b * (p2.y - 2 * p1.y + p0.y)
+      m = 2 * (a * (p1.x - p0.x) + b * (p1.y - p0.y))
+      n = a * p0.x + b * p0.y + c
+
+      # 交点があるにもかかわらず t = [Nan, -Infinity] になってしまう場合がある
+      # このとき l が 0 になっているので、次のようにごまかせば交点が生まれたけど、計算が間違っている気がする
+      # if l.zero?
+      #   l = 0.000000001
+      # end
+
+      d = (m**2) - 4 * l * n
+
+      vputs "a: #{a}"
+      vputs "b: #{b}"
+      vputs "c: #{c}"
+
+      vputs "l: #{l}"
+      vputs "m: #{m}"
+      vputs "n: #{n}"
+      vputs "d: #{d}"
+
+      if d > 0
+        s = Math.sqrt(d)
+        t << (-m + s) / (2 * l)
+        t << (-m - s) / (2 * l)
+      elsif d.zero?
+        t << -m / (2 * l)
+      end
+
+      vputs "t: #{t}"
+
+      t = t.find_all {|d|(0..1).include?(d)} # (0..1の範囲外は曲線の延長線上の交点になる)
+      t
+    end
+  end
+end

data/examples/cursor.rb

@@ -0,0 +1,50 @@
+module Helper
+  module Cursor
+    extend ActiveSupport::Concern
+
+    include Stylet::Input::Base
+    include Stylet::Input::ExtensionButton
+    include Stylet::Input::StandardKeybordBind
+    include Stylet::Input::JoystickBindMethod
+    include Stylet::Input::MouseButtonBind
+
+    included do
+      attr_reader :cursor
+
+      setup do
+        @cursor = CursorSet.new
+        @cursor.point = @mouse.point.clone
+      end
+
+      update do
+        joys.each {|joy| bit_update_by_joy(joy) }
+        key_bit_update_all
+        key_counter_update_all
+
+        if mouse.moved?
+          @cursor.point.replace(@mouse.point.clone)
+        end
+
+        if angle = axis_angle
+          @cursor.point.replace(@cursor.point + vec2.angle_at(angle) * @cursor.speed)
+        end
+
+        if @cursor.display
+          draw_circle(@cursor.point, :radius => @cursor.radius, :vertex => @cursor.vertex, :angle => 1.0 / 64 * frame_counter)
+        end
+      end
+    end
+
+    class CursorSet
+      attr_accessor :point, :speed, :vertex, :radius, :display
+
+      def initialize
+        @point   = Stylet::Vector.zero
+        @speed   = 5
+        @vertex  = 3
+        @radius  = 8
+        @display = true
+      end
+    end
+  end
+end