stylet 0.0.1

data/examples/00870_/350/247/222/345/272/246/350/243/234/346/255/243_/345/212/240/351/200/237/343/203/237/343/202/265/343/202/244/343/203/253.rb

@@ -0,0 +1,60 @@
+# カーソルの位置に補正していくミサイル
+
+require_relative "helper"
+
+class Bullet
+  include Stylet::Delegators
+
+  def initialize(pos:, target:)
+    @pos = pos
+    @target = target
+    @dir = rand
+
+    @speed = 3                  # 初速度
+    @accel = 0.1                # 増減する加速度
+    @angle_window = 1.0 / 4     # 360 / 8 = 45 度未満ならターゲットの方向を向いていると考える
+    @adir = 0.06                # 相手の方向に補正していく速度(1.0:最速)
+  end
+
+  def update
+    d = Stylet::Magic.angle_diff(from: @dir, to: @pos.angle_to(@target))
+    @dir += d * @adir
+
+    if d.abs < @angle_window   # angle_window 度未満なら
+      @speed += @accel         # 相手の方向に向いているとして速度を上げる
+    else
+      @speed -= @accel         # そうでないなら速度を下げる
+    end
+    @speed = Stylet::Chore.clamp(@speed, 1.0..8.0) # 速度が下がりすぎたり上がりすぎたりするのを防ぐ
+
+    speed_vec = vec2.angle_at(@dir) * @speed
+    @pos += speed_vec
+    draw_triangle(@pos, :radius => 10, :angle => @dir)
+    draw_vector(speed_vec * 4, :origin => @pos) # スピードベクトルの可視化
+
+    if (@target - @pos).length < 16
+      Stylet.context.objects.delete(self)
+    end
+  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).zero?
+      @objects << Bullet.new(:pos => @points[0], :target => cursor.point)
+    end
+  end
+
+  run
+end

data/examples/00880_/345/210/235/351/200/237/343/201/214/351/200/237/343/201/204/343/203/237/343/202/265/343/202/244/343/203/253.rb

@@ -0,0 +1,51 @@
+# カーソルの位置に補正していくミサイル
+
+require_relative "helper"
+
+class Bullet
+  include Stylet::Delegators
+
+  def initialize(pos:, target:)
+    @pos = pos
+    @target = target
+    @dir = rand
+
+    @speed = 0                  # 初速度
+  end
+
+  def update
+    @dir = @pos.angle_to(@target)
+    len = (@target - @pos).length
+    speed = len * 0.04
+    speed = Stylet::Chore.clamp(speed, 3.0..12.0)
+    speed_vec = vec2.angle_at(@dir) * speed
+    @pos += speed_vec
+    draw_triangle(@pos, :radius => 10, :angle => @pos.angle_to(@target))
+    draw_vector(speed_vec * 2, :origin => @pos) # スピードベクトルの可視化
+
+    if (@target - @pos).length < 16
+      Stylet.context.objects.delete(self)
+    end
+  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(10).zero?
+      @objects << Bullet.new(:pos => @points[0], :target => cursor.point)
+    end
+  end
+
+  run
+end

data/examples/00890_/346/255/243/350/246/217/344/271/261/346/225/260/343/201/250/346/250/231/346/272/226/345/201/217/345/267/256/343/201/256/345/217/257/350/246/226/345/214/226.rb

@@ -0,0 +1,72 @@
+#
+# 正規乱数と標準偏差の可視化
+# https://www.google.co.jp/search?q=%E6%AD%A3%E8%A6%8F%E5%88%86%E5%B8%83&lr=lang_ja&hl=ja&tbs=lr:lang_1ja&tbm=isch&tbo=u&source=univ&sa=X&ei=enmsUsPLNI_qlAWZooC4Bw&ved=0CDoQsAQ&biw=1280&bih=638
+#
+require_relative "helper"
+
+class App < Stylet::Base
+  include Helper::Cursor
+
+  setup do
+    @sd = 20                    # 標準偏差初期値(68%の値がある)
+  end
+
+  update do
+    @sd += button.btA.repeat_0or1 - button.btB.repeat_0or1
+    list = 100.times.collect { rnorm(mean: 80, sd: @sd) } # このプログラムだと平均(mean)の値は重要じゃない
+
+    # 配列から標準偏差を求める
+    avg = list.inject(&:+).to_f / list.size
+    _sd = Math.sqrt(list.collect { |v| (v - avg)**2 }.reduce(:+).to_f / list.size)
+
+    k = 24                      # 瓶の数(片方)
+    h = 4                       # 瓶の幅
+    r = (-k..k).collect do |i|
+      range = (avg + i * h)...(avg + i.next * h)
+      count = list.count {|v|range.include?(v)}
+      bar(i, count)
+    end
+
+    # 実際の標準偏差の位置確認
+    pos = _sd / h
+    bar(pos, -1, :orange)
+    bar(-pos, -1, :orange)
+
+    vputs "指定の標準偏差: #{@sd}"
+    vputs "実際の標準偏差: #{_sd}"
+
+    # ±標準偏差の中にデータが約68%、2倍な95%、3倍なら0.997含まれるのは本当なのか？
+    vputs ["±1*σ割合(0.6826): ", (list.count {|v|(-(_sd * 1)..(_sd * 1)).include?(v - avg)}.to_f / list.size)].join
+    vputs ["±2*σ割合(0.9544): ", (list.count {|v|(-(_sd * 2)..(_sd * 2)).include?(v - avg)}.to_f / list.size)].join
+    vputs ["±3*σ割合(0.9974): ", (list.count {|v|(-(_sd * 3)..(_sd * 3)).include?(v - avg)}.to_f / list.size)].join
+  end
+
+  def bar(pos, length, color = :white)
+    p0 = srect.center + vec2[pos * 4, srect.h / 4]
+    p1 = p0 + vec2[0, -length * 8]
+    draw_line(p0, p1, :color => color)
+  end
+
+  def rnorm(mean: 0.0, sd: 1.0)
+    # こっちは一様乱数
+    # return rand((mean - sd*2) .. (mean + sd*2))
+
+    # こっちでもだいたい同じになる(ただしrandの呼び出しが2倍)
+    # return mean + sd * Math.sqrt(-2 * Math.log(rand)) * Math.sin(2 * Math::PI * rand)
+
+    if @next_value
+      v = @next_value
+      @next_value = nil
+    else
+      a = Math.sqrt(-2.0 * Math.log(rand))
+      b = 2 * Math::PI * rand
+      z1 = a * Math.cos(b)
+      z2 = a * Math.sin(b)
+      @next_value = z2
+      v = z1
+    end
+    mean + sd * v
+  end
+
+  run
+end

data/examples/00900_/345/220/221/345/277/203/345/212/233/343/201/247/345/233/236/350/273/242/343/200/220/350/247/222/345/272/2460/345/272/246/343/201/213/343/202/211/343/200/221.rb

@@ -0,0 +1,23 @@
+#
+# sin/cosを一切使わずに回転する方法(角度0から)
+#
+require_relative "helper"
+
+class App < Stylet::Base
+  setup do
+    @speed = (2 * Math::PI / (60 * 8))       # 角速度 (一周2πを120分割 = 8秒で一周想定)
+    @r = srect.height / 4                     # 半径
+    @p = vec2[@r, 0]           # 座標 (0度の状態では)
+    @v = vec2[0, @r * @speed]  # 速度 (右端にいるのでy方向のベクトルだけが生きている)
+  end
+
+  update do
+    a = @p * -@speed**2      # 加速度 = 現在の座標 * -角速度^2
+    @v += a                    # 速度 += 加速度
+    @p += @v                   # 座標 += 速度
+    draw_vector(@p)
+    vputs "@v: #{@v}"
+  end
+
+  run
+end

data/examples/00910_/345/220/221/345/277/203/345/212/233/343/201/247/345/233/236/350/273/242/343/200/220/344/273/273/346/204/217/343/201/256/350/247/222/345/272/246/343/201/213/343/202/211/343/200/221.rb

@@ -0,0 +1,33 @@
+#
+# sin/cosを一切使わずに回転【任意の角度から】
+#
+require_relative "helper"
+
+class App < Stylet::Base
+  setup do
+    @speed = (2 * Math::PI / (60 * 8))       # 角速度 (一周2πを120分割 = 8秒で一周想定)
+
+    @r = 100                                 # 半径
+    @p = vec2.angle_at(Stylet::Magic.r45) * @r # 座標(45度=右下)
+
+    # 速度の求め方
+    # vx = -rω * sin(ωt)
+    # vy = rω * cos(ωt)
+    t = Math.atan2(@p.y, @p.x) / @speed     # tフレーム目
+    @v = vec2[
+      -@r * @speed * Math.sin(@speed * t),
+      +@r * @speed * Math.cos(@speed * t),
+    ]
+    # ※ 0, 90, 180, 270 度から始まるなら sin cos は不要になる
+  end
+
+  update do
+    a = @p * -@speed**2      # 加速度 = 現在の座標 * -角速度^2
+    @v += a                    # 速度 += 加速度
+    @p += @v                   # 座標 += 速度
+    draw_vector(@p)
+    vputs "@v: #{@v}"
+  end
+
+  run
+end

data/examples/00920_/343/203/236/343/203/252/343/202/252/343/203/226/343/203/251/343/202/266/343/203/274/343/202/272/351/242/250/343/201/253/347/224/273/351/235/242/344/270/241/347/253/257/343/201/214/347/271/213/343/201/243/343/201/246/343/201/204/343/202/213/344/276/213.rb

@@ -0,0 +1,29 @@
+# 左右が繋がっている例
+require_relative "helper"
+
+Stylet::Palette[:background] = [107, 140, 255]
+Stylet::Palette[:font]       = [0, 0, 0]
+
+class App < Stylet::Base
+  include Helper::CursorWithObjectCollection
+
+  setup do
+    @cursor.display = false
+
+    s = SDL::Surface.load("assets/mario.png")
+    s.set_color_key(SDL::SRCCOLORKEY, 0)
+    @image = s.display_format
+    @pos = vec2[srect.min_x, srect.center.y]
+  end
+
+  update do
+    @pos.x += -axis.left.counter + axis.right.counter
+    @pos.x = @pos.x.modulo(srect.w)
+    v = @pos + vec2[-@image.w / 2, -@image.h / 2]
+    screen.put(@image, *v)
+    screen.put(@image, *(v - vec2[srect.w, 0]))
+    screen.put(@image, *(v + vec2[srect.w, 0]))
+  end
+
+  run
+end

data/examples/00930_/345/212/271/346/236/234/351/237/263.rb

@@ -0,0 +1,17 @@
+require_relative "helper"
+
+class App < Stylet::Base
+  include Helper::Cursor
+
+  setup do
+    Stylet::SE.load("assets/nc26792_coin.ogg")
+  end
+
+  update do
+    if button.btA.trigger? || frame_counter == 0
+      Stylet::SE[:nc26792_coin].play
+    end
+  end
+
+  run
+end

data/examples/00940_/343/203/236/343/203/203/343/203/227/343/203/201/343/203/203/343/203/227/343/201/256/343/203/236/343/203/203/343/203/227/351/205/215/347/275/256.rb

@@ -0,0 +1,71 @@
+require_relative "helper"
+
+Stylet::Palette[:background] = [107, 140, 255]
+Stylet::Palette[:font]       = [0, 0, 0]
+
+class App < Stylet::Base
+  include Helper::Cursor
+
+  setup do
+    @cursor.display = false
+
+    @map_tip = SDL::Surface.load("../assets/images/dlmap/castle2.png")
+    @map_tip.set_color_key(SDL::SRCCOLORKEY, 0)
+    @map_tip = @map_tip.display_format
+    @tip = vec2[16, 16]
+
+    @object_info = {
+      "草"    => {:src => [7,  0]},
+      "・"    => {:src => [8,  0]},
+      "赤"    => {:src => [28, 1], :base => "草"},
+      "青"    => {:src => [28, 2], :base => "草"},
+      :player => {:src => [19, 9]},
+    }
+
+    @field = [
+      "草草草草草草草草草草草草草草草",
+      "草・・・・・・・・・・・・・草",
+      "草・赤・青・赤・青・赤・青・草",
+      "草・・・・・・・・・・・・・草",
+      "草・赤・青・赤・青・赤・青・草",
+      "草・・・・・・・・・・・・・草",
+      "草・赤・青・赤・青・赤・青・草",
+      "草・・・・・・・・・・・・・草",
+      "草・赤・青・赤・青・赤・青・草",
+      "草・・・・・・・・・・・・・草",
+      "草草草草草草草草草草草草草草草",
+    ]
+
+    @map_rect = vec2[@field.first.chars.size, @field.size]
+
+    @player = vec2[1, 1]
+  end
+
+  update do
+    @player.x += -Stylet.context.axis.left.repeat_0or1 + Stylet.context.axis.right.repeat_0or1
+    @player.y += -Stylet.context.axis.up.repeat_0or1 + Stylet.context.axis.down.repeat_0or1
+    @player.x = Stylet::Chore.clamp(@player.x, (0...@map_rect.x))
+    @player.y = Stylet::Chore.clamp(@player.y, (0...@map_rect.y))
+
+    @field.each_with_index do |row, y|
+      row.chars.each_with_index do |key, x|
+        draw_tip(key, x, y)
+      end
+    end
+
+    draw_tip(:player, *@player)
+
+    vputs "pos: #{@pos}"
+  end
+
+  def draw_tip(key, x, y)
+    info = @object_info[key]
+    src = vec2[*info[:src]]
+    if info[:base]
+      draw_tip(info[:base], x, y)
+    end
+    SDL.blit_surface(@map_tip, @tip.x * src.x, @tip.y * src.y, @tip.x, @tip.y, screen, x * @tip.x, y * @tip.y)
+  end
+
+  run
+end

data/examples/00950_/343/203/236/343/203/203/343/203/227/343/203/201/343/203/203/343/203/227/343/201/256/350/241/250/347/244/272/344/276/213.rb

@@ -0,0 +1,28 @@
+require_relative "helper"
+
+class App < Stylet::Base
+  include Helper::Cursor
+
+  setup do
+    @map_tip = SDL::Surface.load("../assets/images/dlmap/castle2.png")
+    @map_tip.set_color_key(SDL::SRCCOLORKEY, 0)
+    @map_tip = @map_tip.display_format
+    @tip = vec2[16, 16]
+
+    @object_info = {
+      "草" => {:src => [7,  0]},
+    }
+  end
+
+  update do
+    draw_tip("草", *srect.center)
+  end
+
+  def draw_tip(key, x, y)
+    info = @object_info[key]
+    src = vec2[*info[:src]]
+    SDL.blit_surface(@map_tip, @tip.x * src.x, @tip.y * src.y, @tip.x, @tip.y, screen, x, y)
+  end
+
+  run
+end

data/examples/00960_/343/203/236/343/203/203/343/203/227/343/203/201/343/203/203/343/203/227/343/201/250/345/215/230/344/270/200/347/224/273/345/203/217/343/201/256/351/201/225/343/201/204/343/202/222/345/220/270/345/217/216/343/201/231/343/202/213/344/276/213.rb

@@ -0,0 +1,47 @@
+require_relative "helper"
+require "stylet/contrib/sprity" # ../lib/stylet/contrib/sprity.rb
+
+Stylet::Palette[:background] = [107, 140, 255]
+Stylet::Palette[:font]       = [0, 0, 0]
+
+if true
+  Stylet::Sprity.surface_destroy_all
+
+  Stylet::Sprity::ImageFile.memory_record_reset [
+    {:key => :castle2, :filename => "../assets/images/dlmap/castle2.png", :mask => true},
+  ]
+
+  Stylet::Sprity::Sprite.memory_record_reset [
+    {:key => :kusa,   :filename => :castle2, :cliping => [16 * 7,  16 * 0, 16, 16]},
+    {:key => :kusa_l, :filename => :castle2, :cliping => [16 * 7,  16 * 0, 16, 16], :transform => {:wh => [32, 32], :mask => true}},
+    {:key => :hana,   :filename => :castle2, :cliping => [16 * 28, 16 * 1, 16, 16], :transform => {:wh => [32, 32], :angle => 45, :mask => true}},
+    {:key => :mario,  :filename => "assets/mario.png", :mask => true},
+    {:key => :mario2, :filename => "assets/mario.png", :transform => {:wh => [64, 64], :angle => 45, :mask => true}},
+    {:key => :mario3, :filename => "assets/mario.png", :transform => {:mix => {:rgb => [0, 0, 255], :alpha => 128}}},
+  ]
+end
+
+class App < Stylet::Base
+  include Helper::Cursor
+
+  update do
+    draw_texture(:mario2, cursor.point)
+
+    if true
+      xy = srect.center / 4
+      Stylet::Sprity::Sprite.each do |info|
+        draw_texture(info.key, xy)
+        xy.y += info.swh.y
+      end
+    end
+  end
+
+  def draw_texture(key, xy)
+    sprite = Stylet::Sprity::Sprite[key]
+    screen.put(sprite.surface, *xy)
+    draw_rect4(*xy, *sprite.swh)
+    vputs "#{key}: #{sprite.swh.to_a}", :vector => xy + [sprite.swh.x, 0]
+  end
+
+  run
+end

data/examples/00970_observer_/343/201/235/343/201/2561_/347/233/264/346/216/245.rb

@@ -0,0 +1,28 @@
+# Stylet::Base 側のループで描画されるのではなくPlayer側のタイミングで描画する
+require_relative "helper"
+
+class Player
+  include Observable
+  def render
+    changed
+    notify_observers(self)
+  end
+end
+
+class Window < Stylet::Base
+  def initialize
+    super
+    run_initializers
+  end
+
+  def scene_update(player)      # Stylet::Base#update はすでにあるため別メソッドにする必要がある
+    next_frame
+    vputs player
+  end
+end
+
+player = Player.new
+player.add_observer(Window.instance, :scene_update)
+loop do
+  player.render
+end