stylet 0.0.1

data/examples/00690_/343/203/222/343/203/253/343/203/231/343/203/253/343/203/210/346/233/262/347/267/232.rb

@@ -0,0 +1,77 @@
+#
+# 再帰曲線 ヒルベルト曲線(アルゴリズム)
+# http://www.softist.com/programming/hilbert/hilbert.htm
+#
+# ヒルベルト曲線 - Wikipedia
+# http://ja.wikipedia.org/wiki/%E3%83%92%E3%83%AB%E3%83%99%E3%83%AB%E3%83%88%E6%9B%B2%E7%B7%9A#
+# Hilbert curve は、フラクタル図形の一つで
+# 空間を覆い尽くす空間充填曲線の一つ。ドイツの数学者ダフィット・ヒルベルトが1891年に考案した
+#
+require_relative "helper"
+
+class App < Stylet::Base
+  include Helper::CursorWithObjectCollection
+  include Helper::MovablePoint
+
+  setup do
+    self.title = "ヒルベルト曲線"
+    @num = 4
+    @delta = 24
+  end
+
+  update do
+    @num += button.btA.repeat - button.btB.repeat
+    @delta += (button.btC.repeat - button.btD.repeat)
+    @current = vec2[srect.max_x - @delta, srect.min_y + @delta]
+    @before_point = @current.clone
+    ldr(@num)
+
+    vputs "num: #{@num}"
+    vputs "delta: #{@delta}"
+  end
+
+  def line_to(x, y)
+    dir = vec2[x * @delta, y * @delta]
+    @current += dir
+    draw_line(@before_point, @current)
+    @before_point = @current.clone
+  end
+
+  def ldr(n)
+    if n > 0
+      dlu(n - 1); line_to(-1, 0) # ←
+      ldr(n - 1); line_to(0, 1)  # ↓
+      ldr(n - 1); line_to(1, 0)  # →
+      urd(n - 1)
+    end
+  end
+
+  def urd(n)
+    if n > 0
+      rul(n - 1); line_to(0, -1) # ↑
+      urd(n - 1); line_to(1, 0)  # →
+      urd(n - 1); line_to(0, 1)  # ↓
+      ldr(n - 1)
+    end
+  end
+
+  def rul(n)
+    if n > 0
+      urd(n - 1); line_to(1, 0)  # →
+      rul(n - 1); line_to(0, -1) # ↑
+      rul(n - 1); line_to(-1, 0) # ←
+      dlu(n - 1)
+    end
+  end
+
+  def dlu(n)
+    if n > 0
+      ldr(n - 1); line_to(0, 1)  # ↓
+      dlu(n - 1); line_to(-1, 0) # ←
+      dlu(n - 1); line_to(0, -1) # ↑
+      rul(n - 1)
+    end
+  end
+
+  run
+end

data/examples/00700_/343/202/263/343/203/203/343/203/233/346/233/262/347/267/232.rb

@@ -0,0 +1,79 @@
+#
+# 再帰プログラムによるフラクタル図形の描画：CodeZine
+# http://codezine.jp/article/detail/73
+
+require_relative "helper"
+
+class Koch < Stylet::Base
+  include Helper::CursorWithObjectCollection
+  include Helper::MovablePoint
+
+  setup do
+    @power = 3
+    @vertex_n = 15
+  end
+
+  update do
+    @power += button.btA.repeat - button.btB.repeat
+    @vertex_n += button.btC.repeat - button.btD.repeat
+
+    @vertex_n.times.each {|i|
+      get_pos = proc {|i|
+        a = (1.0 * frame_counter / (60 * 60)) + (1.0 / @vertex_n * i)
+        vec2.angle_at(a * 7, a * 8) * srect.h * 0.4
+      }
+      # draw_vector get_pos[i], :origin => srect.center
+      koch_draw(srect.center + get_pos[i], srect.center + get_pos[i.next], @power)
+    }
+    vputs "power: #{@power}"
+    vputs "vertex_n: #{@vertex_n}"
+  end
+
+  def koch_draw(a, b, n)
+    c = vec2[
+      (2 * a.x + b.x) / 3,
+      (2 * a.y + b.y) / 3,
+    ]
+    d = vec2[
+      (a.x + 2 * b.x) / 3,
+      (a.y + 2 * b.y) / 3,
+    ]
+    xx = b.x - a.x
+    yy = -(b.y - a.y)
+
+    if xx.zero?
+      return
+    end
+
+    distance = Math.sqrt(xx * xx + yy * yy) / Math.sqrt(3)
+
+    if xx >= 0
+      # 右上がり
+      angle = Math.atan(yy / xx) + Math::PI / 6
+      e = vec2[
+        a.x + distance * Math.cos(angle),
+        a.y - distance * Math.sin(angle),
+      ]
+    else
+      angle = Math.atan(yy / xx) - Math::PI / 6
+      e = vec2[
+        b.x + distance * Math.cos(angle),
+        b.y - distance * Math.sin(angle),
+      ]
+    end
+
+    if n <= 0
+      draw_line(a, c)
+      draw_line(c, e)
+      draw_line(e, d)
+      draw_line(d, b)
+    else
+      koch_draw(a, c, n - 1)
+      koch_draw(c, e, n - 1)
+      koch_draw(e, d, n - 1)
+      koch_draw(d, b, n - 1)
+    end
+  end
+
+  run
+end

data/examples/00710_/343/202/267/343/202/260/343/203/242/343/202/244/343/203/211/346/233/262/347/267/232.rb

@@ -0,0 +1,40 @@
+# シグモイド関数 - Wikipedia
+# http://ja.wikipedia.org/wiki/%E3%82%B7%E3%82%B0%E3%83%A2%E3%82%A4%E3%83%89%E9%96%A2%E6%95%B0
+require_relative "helper"
+
+class App < Stylet::Base
+  include Helper::CursorWithObjectCollection
+  include Helper::MovablePoint
+
+  setup do
+    @points = []
+    @points << srect.center + vec2[-srect.w * 0.4, srect.h * 0.4]
+    @points << srect.center + vec2[srect.w * 0.4, -srect.h * 0.4]
+    @gain = 8                   # 0で水平、8ぐらいでS時、マイナスなら反転
+  end
+
+  update do
+    update_movable_points(@points)
+    @points.each_with_index {|e, i|vputs("p#{i}", :vector => e)}
+
+    p0, p1 = *@points
+    if p0.x > p1.x              # 動かしていて左から順に p1 p0 になってしまったときは p0 p1 となるように入れ替える
+      p1, p0 = *@points
+    end
+    n = p1.x - p0.x
+    n.to_i.times.each do |x|
+      y = -sigmoid(@gain, 2.0 / n * x - 1.0) * (p0.y - p1.y)
+      draw_dot(p0 + [x, y])
+    end
+
+    @gain += 0.1 * (button.btB.repeat - button.btC.repeat)
+
+    vputs "gain: #{@gain.round(1)}"
+  end
+
+  def sigmoid(gain, x)
+    1.0 / (1.0 + Math.exp(-gain * x))
+  end
+
+  run
+end

data/examples/00720_/343/202/267/343/203/200/346/244/215/347/211/251.rb

@@ -0,0 +1,44 @@
+# 参照
+# 「プログラムでシダを描画する」を Ruby で描画する - Qiita
+# http://qiita.com/quanon86/items/d96cbea02800f97156e7
+
+require_relative "helper"
+
+class App < Stylet::Base
+  include Helper::CursorWithObjectCollection
+
+  setup do
+    @n = 12
+    @w1x = -> x, y { 0.836 * x + 0.044 * y }
+    @w1y = -> x, y { -0.044 * x + 0.836 * y + 0.169 }
+    @w2x = -> x, y { -0.141 * x + 0.302 * y }
+    @w2y = -> x, y { 0.302 * x + 0.141 * y + 0.127 }
+    @w3x = -> x, y { 0.141 * x - 0.302 * y }
+    @w3y = -> x, y { 0.302 * x + 0.141 * y + 0.169 }
+    @w4x = -> x, y { 0 }
+    @w4y = -> x, y { 0.175337 * y }
+  end
+
+  update do
+    f = -> (k, x, y) do
+      if 0 < k
+        f.(k - 1, @w1x.(x, y), @w1y.(x, y))
+        f.(k - 1, @w2x.(x, y), @w2y.(x, y)) if rand < 0.3
+        f.(k - 1, @w3x.(x, y), @w3y.(x, y)) if rand < 0.3
+        f.(k - 1, @w4x.(x, y), @w4y.(x, y)) if rand < 0.3
+      else
+        xx = (x * 490 + srect.w * 0.5).to_i
+        yy = (srect.h - y * 490).to_i
+        draw_dot(vec2[xx, yy], :color => :green)
+      end
+    end
+
+    -> k, x, y { f.(k, x, y) }.(@n, 0, 0)
+
+    @n += (button.btA.repeat_0or1 - button.btB.repeat_0or1).to_i
+
+    vputs "n: #{@n}"
+  end
+
+  run
+end

data/examples/00730_/343/202/257/343/203/252/343/203/225/343/202/251/343/203/274/343/203/211/343/202/242/343/203/210/343/203/251/343/202/257/343/202/277_/345/237/272/346/234/254.rb

@@ -0,0 +1,29 @@
+require_relative "helper"
+
+class App < Stylet::Base
+  setup do
+    @x = 1
+    @y = 1
+
+    @a = 1.88
+    @b = -1.7
+    @c = -0.43
+    @d = -0.74
+  end
+
+  update do
+    1000.times do
+      xn = Math.sin(@a * @y) - @c * Math.cos(@a * @x)
+      yn = Math.sin(@b * @x) - @d * Math.cos(@b * @y)
+      @x = xn
+      @y = yn
+      p0 = srect.center + [@x * srect.w * 0.2, @y * srect.h * 0.2]
+      draw_dot(p0)
+    end
+  end
+
+  def background_clear
+  end
+
+  run
+end

data/examples/00740_/343/202/257/343/203/252/343/203/225/343/202/251/343/203/274/343/203/211/343/202/242/343/203/210/343/203/251/343/202/257/343/202/277_/346/224/271/350/211/257_/350/211/262/344/273/230/343/201/215.rb

@@ -0,0 +1,68 @@
+require_relative "helper"
+
+class App < Stylet::Base
+  include Helper::Cursor
+
+  setup do
+    SDL::Mouse.hide
+    @cursor.display = false
+
+    @x = 1.0
+    @y = 1.0
+
+    reset
+
+    # @test_var = 0
+    # @menu = Stylet::Menu::Basic.new(name: "[メニュー]", elements: [
+    #     {name: "モード", safe_command: proc {}, :value => proc { @test_var }, :change => proc {|v| @test_var += v }},
+    #   ])
+  end
+
+  update do
+    # @menu.update
+
+    if button.btD.trigger?
+      simple_background_clear
+    end
+
+    @b += (button.btA.repeat - button.btB.repeat) * 0.1
+
+    10000.times do
+      xn = Math.sin(@a * @y) - @c * Math.cos(@a * @x)
+      yn = Math.sin(@b * @x) - @d * Math.cos(@b * @y)
+      @x = xn
+      @y = yn
+      p0 = srect.center + [@x * srect.w * 0.3, @y * srect.h * 0.3]
+
+      case
+      when true
+        r, g, b = screen.get_rgb(screen[*p0])
+        r = Stylet::Chore.max_clamp(r + 4*1, 255)
+        g = Stylet::Chore.max_clamp(g + 4*1, 255)
+        b = Stylet::Chore.max_clamp(b + 4*4, 255)
+        screen[*p0] = screen.format.map_rgb(r, g, b)
+      when false
+        s = 1
+        screen.draw_filled_rect_alpha(p0.x-s, p0.y-s, s*2+1, s*2+1, [0, 255, 255], 16)
+      when false
+        screen.draw_filled_rect_alpha(p0.x, p0.y, 1, 1, [255, 255, 255], 128)
+      end
+    end
+  end
+
+  def background_clear
+  end
+
+  def system_infos
+    []
+  end
+
+  def reset
+    @a = 1.88
+    @b = -1.7
+    @c = -0.43
+    @d = -0.74
+  end
+
+  run
+end

data/examples/00750_/343/202/257/343/203/252/343/203/225/343/202/251/343/203/274/343/203/211/343/202/242/343/203/210/343/203/251/343/202/257/343/202/277_/343/203/211/343/203/274/343/203/212/343/203/204/345/236/213.rb

@@ -0,0 +1,44 @@
+require_relative "helper"
+
+class App < Stylet::Base
+  include Helper::Cursor
+
+  setup do
+    SDL::Mouse.hide
+    @cursor.display = false
+
+    @x = 1.0
+    @y = 1.0
+
+    @a = 1.40
+    @b = 1.56
+    @c = 1.40
+    @d = -6.56
+  end
+
+  update do
+    10000.times do
+      xn = @d * Math.sin(@a * @x) - Math.sin(@b * @y)
+      yn = @c * Math.cos(@a * @x) + Math.cos(@b * @y)
+
+      @x = xn
+      @y = yn
+      p0 = srect.center + [@x * srect.w * 0.06, @y * srect.h * 0.12]
+
+      r, g, b = screen.get_rgb(screen[*p0])
+      r = Stylet::Chore.max_clamp(r + 4*1, 255)
+      g = Stylet::Chore.max_clamp(g + 4*3, 255)
+      b = Stylet::Chore.max_clamp(b + 4*2, 255)
+      screen[*p0] = screen.format.map_rgb(r, g, b)
+    end
+  end
+
+  def background_clear
+  end
+
+  def system_infos
+    []
+  end
+
+  run
+end

data/examples/00760_/347/201/253/350/212/261.rb

@@ -0,0 +1,42 @@
+#
+require_relative "helper"
+
+class Bullet
+  include Stylet::Delegators
+
+  def initialize(point:, angle:, speed:, accel:)
+    @point = point
+    @angle = angle
+    @speed = speed
+    @accel = accel
+    @radius = 0
+    @p0 = @point
+  end
+
+  def update
+    @speed += @accel
+    @radius += @speed
+    @p1 = @point + vec2.angle_at(@angle) * @radius
+    draw_line(@p0, @p1)
+    @p0 = @p1
+  end
+
+  def screen_out?
+    @speed <= 0
+  end
+end
+
+class App < Stylet::Base
+  include Helper::CursorWithObjectCollection
+
+  update do
+    if @button.btA.trigger?
+      n = 16
+      n.times.each do |i|
+        @objects << Bullet.new(:point => cursor.point.dup, :angle => 1.0 / n * i, :speed => rand(4.0..10.0), :accel => rand(-0.5 / 2..-0.3 / 2))
+      end
+    end
+  end
+
+  run
+end

data/examples/00770_atan/343/201/247atan2/343/202/222/346/233/270/343/201/217.rb

@@ -0,0 +1,26 @@
+# atan で atan2 を書く
+require_relative "helper"
+
+class App < Stylet::Base
+  update do
+    vec = mouse.point - srect.center
+    vputs "vec: #{vec}"
+    x, y = *vec
+
+    v = Math.atan(y.to_f / x)
+    if x < 0
+      if y < 0
+        v -= Math::PI
+      else
+        v += Math::PI
+      end
+    end
+    vputs "atan:  #{v}"
+
+    vputs "atan2: #{Math.atan2(y, x)}"
+
+    draw_vector(vec, :origin => srect.center)
+  end
+
+  run
+end