mieki256's diary

• 矩形の境界線だけ描いてあればいい。中は塗り潰しをしなくても構わない。
• 境界線は、蟻の行進(Marching ants)か、XOR表示が望ましい。
• 境界線の上にマウスカーソルを合わせてドラッグすると、境界線の位置を変更できたりするとありがたい。

• 境界線の上にマウスカーソルが乗ったらマウスカーソルが変化する。
• 境界線の左上、右下、で「＼」のマウスカーソルになる。
• 境界線の右上、左下、で「／」のマウスカーソルになる。
• 境界線の上、下、で「｜」のマウスカーソルになる。
• 境界線の左、右、で「―」のマウスカーソルになる。
• マウスカーソルが変わっている時にドラッグすると下にある境界線の位置を変更できる。通常のマウスカーソルの時は新規に選択範囲を指定する。

systemctl -l status systemd-timesyncd

sudo aptitude purge ntp
sudo aptitude purge ntpdate

> uru 23
---> now using ruby 2.3.3-p222 tagged as `23`

> ruby --version
ruby 2.3.3p222 (2016-11-21 revision 56859) [i386-mingw32]

C:\Users\ユーザ名\AppData\Local\Microsoft\Windows Live Mail\
C:\Users\ユーザ名\AppData\Local\Microsoft\Windows Live\Contacts\Default\

• 昨日だったか今日だったか忘れたけど、Windows Update で Windows10 に今月分のパッチが当たったこと。
• しばらく前から NVIDIA GeForce driver をちょくちょく更新してるけど、最近のドライバは結構バグがあって、例えば Adobe Premiere Element 13 が起動中にクラッシュするバグが仕込まれてたり。
• 環境変数PATHを短くするためにシンボリックリンクを多用して環境変数PATHを短くしたこと。

• 環境変数PATHは、元に戻しても症状が変わらなかったので、それじゃなさそう。
• GeForce Driverのせいなら、LibreOffice の表示設定で「ハードウェアアクセラレーション」「OpenGL」あたりを無効にすれば症状が変わりそうだが、変化しなかった。

> ruby -v

ruby 2.2.6p396 (2016-11-15 revision 56800) [i386-mingw32]

• Win+Rキーを押して「cmd」と打ち込んでEnterキー。
• スタートボタンを右クリックして「コマンドプロンプト」を選択。(Windows8.1/10の場合)
• Cortanaに「cmd」と打ち込むと「コマンドプロンプト」が一覧に出てくるのでソレをクリック。(Windows10の場合)

> gem list

*** LOCAL GEMS ***

addressable (2.5.0)
aozora (0.2.0)
ast (2.3.0)
astrolabe (1.3.1)
(以下略)

gem install gosu

> gem install gosu

Fetching: gosu-0.10.8-x86-mingw32.gem (100%)
Successfully installed gosu-0.10.8-x86-mingw32
Parsing documentation for gosu-0.10.8-x86-mingw32
Installing ri documentation for gosu-0.10.8-x86-mingw32
Done installing documentation for gosu after 1 seconds
1 gem installed

require 'gosu'

class MyWindow < Gosu::Window
  
  # コンストラクタ
  def initialize
    super 640, 480, false
    self.caption = 'Hello World!'
  end
  
  # 更新処理
  def update
  end
  
  # 描画処理
  def draw
  end
end

window = MyWindow.new
window.show

ruby helloworld.rb

require 'gosu'

class MyWindow < Gosu::Window
  
  # コンストラクタ
  def initialize
    super 640, 480, false
    self.caption = 'Hello World!'
    @font = Gosu::Font.new(32)  # フォントを用意
    @bg_img = Gosu::Image.new("tmp_bg.png", :tileable => true)    # BG画像
    @spr_img = Gosu::Image.new("tmp_ufo.png", :tileable => true)  # スプライト画像
  end
  
  # 更新処理
  def update
  end
  
  # 描画処理
  def draw
    @bg_img.draw(0, 0, 100)                 # BG描画
    @spr_img.draw(320, 240, 200)            # スプライト描画
    @font.draw("Hello World", 10, 10, 300)  # テキスト描画
  end
end

window = MyWindow.new
window.show

ruby helloworld2.rb

class MyWindow < Gosu::Window

  (中略)

end

window = MyWindow.new
window.show

window = MyWindow.new  # MyWindowクラスを生成してる
window.show            # 「ウインドウを表示しろ」と命令してる

• 初期化を担当する initialize()。(コンストラクタ)
• 毎フレームの更新処理を担当する update()。
• 毎フレームの描画処理を担当する draw()。

@img = Gosu::Image.new("画像ファイル名", :tileable => true)

• png画像はアルファチャンネルも反映してくれる。
• bmp画像の場合は、マゼンタ色(0xff00ff)を透明色として扱うぜ、と書いてあるように見えた。

@img.draw(x, y, z)

# フォントを用意
@font = Gosu::Font.new(フォントサイズ)

# テキスト描画
@font.draw("描画したい文字列", x, y, z, x拡大率, y拡大率, 色指定)

class MyWindow < Gosu::Window
  def initialize
    @font = Gosu::Font.new(self, "./LiberationMono-Bold.ttf", 22)
  end
end

• フォント名の指定文字列内に「/」があったら、ttf読み込みを要求されてるものとして扱う。
• 「/」が無かったら、OSにインストール済みのフォント名を指定しているものとして扱う。

gem install gosu-examples

Rubyインストールフォルダ\lib\ruby\gems\2.2.0\gems\gosu-examples-1.0.3

gem install chipmunk
gem install opengl

require 'gosu'

# 背景描画用クラス
class Map

  # コンストラクタ
  # @param wdw_w [Integer] ウインドウ横幅
  # @param wdw_h [Integer] ウインドウ縦幅
  def initialize(wdw_w, wdw_h)
    @wdw_w = wdw_w
    @wdw_h = wdw_h

    # 画像の読み込み
    @imgs = []
    ["tmp_bg1.png", "tmp_bg2.png"].each do |fn|
      # Gosu::Image.load_tiles()を使えば画像を分割して読み込める。
      # ここでは 512x512の画像を、1チップ32x32として読み込んでるので
      # 16x16個 = 256個の画像に分割されているはず
      imgs = Gosu::Image.load_tiles(fn, 32, 32, :tileable => true)
      @imgs.push(imgs)
    end

    # タイルマップ用の配列を作成
    @bgarr = []
    c = 0
    16.times do |by|
      @bgarr[by] = []
      16.times do |bx|
        @bgarr[by][bx] = c
        c = (c + 1) % 256
      end
    end
  end

  # 背景描画処理
  # @param bx [Integer] BG座標x
  # @param by [Integer] BG座標y
  # @param n [Integer] BG番号(0 or 1)
  def draw(bx, by, n)
    cw, ch = 32, 32  # セル1つ分のサイズ
    bx = bx.to_i
    by = by.to_i

    imgs = @imgs[n]
    lenx = @bgarr[0].length
    leny = @bgarr.length
    cx = (bx / cw) % lenx
    cy = (by / ch) % leny
    sx = (bx % cw)
    sy = (by % ch)
    wcnt = @wdw_w / cw + 1
    hcnt = @wdw_h / ch + 1
    hcnt.times do |y|
      wcnt.times do |x|
        k = @bgarr[(cy + y) % leny][(cx + x) % lenx]
        imgs[k].draw(x * cw - sx, y * ch - sy, 0)
      end
    end
  end
end

class MyWindow < Gosu::Window

  # コンストラクタ
  def initialize
    super 640, 480, false
    self.caption = "Tilemap BG Test"

    @maps = Map.new(self.width, self.height)  # マップ表示用
    # self.width、self.height はウインドウの横幅、縦幅になってる

    @bgx = [0, 0]
    @bgy = [0, 0]
    @frame = 0
  end

  # 更新処理
  def update
    # BGスクロール位置を更新
    ang = Math::cos(@frame * Math::PI / 180.0)
    @bgx[0] = -64 + (64.0 * ang) + 640
    @bgx[1] = -128 + (128.0 * ang) + 640
    @bgy[0] = (@bgy[0] + 2)
    @bgy[1] = (@bgy[1] + 6)

    @frame += 1
  end

  # 描画処理
  def draw
    2.times do |i|
      @maps.draw(@bgx[i], @bgy[i], i)
    end
  end

  # キーボードチェック
  def button_down(id)
    if id == Gosu::KbEscape
      # ESCキーが押されたらウインドウを閉じて終了する
      close
    end
  end
end

window = MyWindow.new
window.show

# 画像を分割して読み込む
@imgs = Gosu::Image.load_tiles("画像ファイル名", 32, 32, :tileable => true)

  # キーボードチェック
  def button_down(id)
    if id == Gosu::KbEscape
      # ESCキーが押されたらウインドウを閉じて終了する
      close
    end
  end

  def button_down(id)
    close if id == Gosu::KbEscape
  end

require 'gosu'

# スプライト相当のクラス
class MySpr

  # コンストラクタ
  def initialize(x, y, vx, vy, img, scrw, scrh)
    @fpx = x
    @fpy = y
    @fpvx = vx
    @fpvy = vy
    @scrw = scrw
    @scrh = scrh
    @w = img.width
    @h = img.height
    @whf = @w / 2
    @hhf = @h / 2
    @image = img
    @x = (@fpx - @whf).to_i
    @y = (@fpy - @hhf).to_i
  end

  # 更新処理
  def update
    @fpx += @fpvx
    @fpy += @fpvy
    @x = (@fpx - @whf).to_i
    @y = (@fpy - @hhf).to_i
    @fpvx *= -1 if @x + @w >= @scrw or @x <= 0
    @fpvy *= -1 if @y + @h >= @scrh or @y <= 0
  end

  # 描画処理
  def draw
    @image.draw(@x, @y, 0)
  end
end

class MyWindow < Gosu::Window

  # コンストラクタ
  def initialize
    super 640, 480, false
    self.caption = "Sprite Test"
    scrw = self.width
    scrh = self.height

    # スプライト発生
    pmax = 512
    img = Gosu::Image.new("tmp_ufo.png", :tileable => true)
    x, y = 320, 240
    @sprgroup = []
    pmax.times do |i|
      rad = (i * 360 / pmax) * Math::PI / 180
      dx = 3.0 * Math::cos(rad)
      dy = 3.0 * Math::sin(rad)
      @sprgroup.push(MySpr.new(x, y, dx, dy, img, scrw, scrh))
    end

    @frame = 0
  end

  # 更新処理
  def update
    @sprgroup.each do |spr|
      spr.update
    end

    @frame += 1
  end

  # 描画処理
  def draw
    @sprgroup.each do |spr|
      spr.draw
    end
  end

  # キーボードチェック
  def button_down(id)
    if id == Gosu::KbEscape
      # ESCキーが押されたらウインドウを閉じて終了する
      # Gosu::Window.close() を呼ぶとウインドウが閉じる
      close
    end
  end
end

window = MyWindow.new
window.show

require 'gosu'

# フレームレートを測定するクラス
class FrameRate
  attr_reader :framerate

  def initialize
    @cnt = 0
    @framerate = 0
    @start_time = Time.now
  end

  # 毎フレーム呼ぶ
  def update
    @cnt += 1
    n = Time.now
    nd = n - @start_time
    return if nd < 1.0
    @framerate = @cnt / nd
    @start_time = n
    @cnt = 0
  end
end

# メインウインドウ
class MyWindow < Gosu::Window
  # コンストラクタ
  def initialize
    super 640, 480, false
    self.caption = 'Sprite Test'
    @font = Gosu::Font.new(20)
    @frate = FrameRate.new
  end

  # 更新処理
  # def update
  # end

  # 描画処理
  def draw
    @frate.update
    f = @frate.framerate.to_s
    @font.draw("FPS #{f}", 10, 10, 0)
  end

  # キーボードチェック
  def button_down(id)
    # ESCキーが押されたらウインドウを閉じて終了する
    # Gosu::Window.close() を呼ぶとウインドウが閉じる
    close if id == Gosu::KbEscape
  end
end

window = MyWindow.new
window.show

• CPU : Intel Core i5-2500 (4コア, 3.3GHz)
• GPU : NVIDIA GeForce GTX 750 Ti (RAM 2GB)
• RAM : 8GB (DDR3-1333/PC-10600 SDRAM, 4GB x 2)
• OS : Windows10 x64

• CPU : AMD AthlonII X4 605e (4コア, 2.3GHz, TDP 45W) …当時としては処理能力より省電力性を重視したCPU。
• M/B : ASRock M3A785GMH/128M (MicroATX, Socket AM3, AMD 785G)
• GPU : オンボードビデオ Radeon HD 4200 (RS800, VRAM 624MB) AMD785Gチップセットと統合されてる。
• RAM : 8GB (DDR3-1333/PC3-10600, 4GB x 2)
• OS : Windows7 Home x64

• CPU : AMD Athlon II X2 250 (2コア,3GHz, TDP 65W)
• GPU : オンボードGPU AMD 785G (Radeon HD 4200)
• OS : Ubuntu 16.04 LTS

• CPU : AMD Sempron 3100+ (シングルコア, 1.8GHz, Socket754)
• M/B : MSI K8MM-V (VIA K8M800チップセット)
• GPU : オンボードGPU (K8M800に統合, UniChrome Pro)
• RAM : 1.5GB (PC3200/DDR400, SDRAM, 1GB + 512MB, シングルチャネル)
• OS : Lubuntu 14.04 LTS (LXDEで構成された比較的軽量な Ubuntu)

sudo apt-get clean
sudo apt-get autoclean
sudo apt-get -f install
sudo dpkg --configure -a
sudo apt-get -f install
sudo apt-get -u dist-upgrade
sudo apt-get -o Debug::pkgProblemResolver=yes dist-upgrade

• カーソルキーで上下左右に移動。
• Zキーで拡大縮小。

require 'gosu'

class MyWindow < Gosu::Window

  # コンストラクタ
  def initialize
    super 640, 480, false
    self.caption = "Input Test"

    @img = Gosu::Image.new("tmp_ufo.png", :tileable => true, :retro => true)
    @x = 320
    @y = 240
    @scale = 1.0
  end

  # 更新処理
  def update
    spd = 6  # 座標の変化量

    # キー入力、またはゲームパッド入力に応じて座標を増減させる

    # 左キーが押された？
    if button_down?(Gosu::KbLeft) or button_down?(Gosu::GpLeft)
      @x -= spd
    end

    # 右キーが押された？
    if button_down?(Gosu::KbRight) or button_down?(Gosu::GpRight)
      @x += spd
    end

    # 上キーが押された？
    if button_down?(Gosu::KbUp) or button_down?(Gosu::GpUp)
      @y -= spd
    end

    # 下キーが押された？
    if button_down?(Gosu::KbDown) or button_down?(Gosu::GpDown)
      @y += spd
    end

    # Zキー or ボタン1 が押された？
    if button_down?(Gosu::KbZ) or button_down?(Gosu::GpButton0)
      @scale += (8.0 - @scale) * 0.1
    else
      @scale += (1.0 - @scale) * 0.3
    end
  end

  # 描画処理
  def draw
    x = @x - (@img.width / 2) * @scale
    y = @y - (@img.height / 2) * @scale
    @img.draw(x, y, 0, @scale, @scale)
  end

  # キーボードチェック
  def button_down(id)
    # ESCキーが押されたらウインドウを閉じて終了する
    # Gosu::Window.close() を呼ぶとウインドウが閉じる
    close if id == Gosu::KbEscape
  end
end

window = MyWindow.new
window.show

• DirectInput … 旧規格。若干お値段が安い。製品種類が豊富。ボタン数・配置は製品毎にバラバラ。
• XInput … 新規格。若干お値段が高い。製品種類がほとんど無い。ボタン数・配置は Xbox 360 コントローラに準拠。

sudo apt-get install joystick jstest-gtk

require 'gosu'

class MyWindow < Gosu::Window

  def initialize
    super 320, 240, false
    self.caption = 'Sound Play Test'

    # wavファイルを読み込む
    @sounds = []
    [
      "tmp_se_01.wav",
      "tmp_se_02.wav",
      "tmp_se_03.wav",
      "tmp_se_01.ogg",
      "tmp_se_02.ogg",
      "tmp_se_03.ogg"
    ].each do |fn|
      @sounds.push(Gosu::Sample.new(fn))
    end
    @cnt = 0
  end

  def update
    if @cnt % 60 == 0
      # 一定フレーム数が過ぎたらサウンドを再生
      n = (@cnt / 60) % @sounds.length
      @sounds[n].play
    end
    @cnt += 1
  end

  def draw
  end

  def button_down(id)
    # ESCキーを押したらウインドウを閉じる
    close if id == Gosu::KbEscape
  end
end

window = MyWindow.new
window.show

@sound = Gosu::Sample.new("サウンドファイル名")

@sound.play

• Aキー : 通常再生
• Bキー : 音量を小さくして再生
• Cキー : 低速再生
• Dキー : 高速再生
• Eキー : ループ再生
• Pキー : ポーズ/ポーズ解除
• Vキー : 音量を0に
• Zキー : 再生停止

require 'gosu'

class MyWindow < Gosu::Window

  def initialize
    super 320, 240, false
    self.caption = 'Sound Play Test'
    @fnt = Gosu::Font.new(20)

    # wavファイルを読み込む
    @sound = Gosu::Sample.new("tmp_voice.wav")

    @si = nil  # SampleInstance
    @play_msg = ""
    @pause_msg = ""
  end

  def update
    if @si
      if @si.playing?  # 再生中？
        @play_msg = "Playing"
      else
        @play_msg = "Stopped"
      end
      if @si.paused?  # ポーズ中？
        @pause_msg = "Paused"
      else
        @pause_msg = "Not Paused"
      end
    else  # まだ鳴らしてない
      @play_msg = "Not Play Start"
      @pause_msg = "Not Play Start"
    end
  end

  def draw
    @fnt.draw("Push A,B,C,D,E,P,V and Z", 4, 4, 0)

    # 再生状態、ポーズ状態を表示
    @fnt.draw(@play_msg, 4, 30, 0)
    @fnt.draw(@pause_msg, 4, 50, 0)
  end

  def button_down(id)
    close if id == Gosu::KbEscape
  end

  # キーが離された時に呼ばれる
  def button_up(id)
    @si = @sound.play if id == Gosu::KbA  # 通常再生
    @si = @sound.play(0.2, 1, false) if id == Gosu::KbB  # 音量小
    @si = @sound.play(1, 0.5, false) if id == Gosu::KbC  # 再生速度を遅く
    @si = @sound.play(1, 2.0, false) if id == Gosu::KbD  # 再生速度を早く
    @si = @sound.play(1, 1, true) if id == Gosu::KbE  # ループ再生

    if @si
      if id == Gosu::KbZ
        if @si.playing? # 再生中？
          @si.stop  # サウンドを停止
        end
      elsif id == Gosu::KbP
        if @si.paused?  # ポーズ中？
          @si.resume  # ポーズ解除
        elsif @si.playing? # 再生中？
          @si.pause  # ポーズ(一時停止)
        end
      elsif id == Gosu::KbV
        if @si.playing?
          @si.volume = 0 # ボリュームを0に
        end
      end
    end
  end
end

window = MyWindow.new
window.show

@sound.play(音量, 再生速度, ループ再生)

• 音量は、1.0が本来の音量。値を小さくすると音量が小さくなる。
• 再生速度は、1.0が標準速度。値を大きくすると再生速度が速くなり、値を小さくすると再生速度が遅くなる。
• ループ再生は、true / false で指定する。true ならループ再生。

@si = @sound.play
...
@si.stop        # 再生停止
@si.pause       # ポーズ(一時停止)
@si.resume      # ポーズ解除
@si.volume = 0  # 音量変更
@si.playing?    # 再生中か否かを true / false で返す
@si.paused?     # ポーズ中か否かを true / false で返す

@si = @sound.play if button_down?(Gosu::KbA)

require 'gosu'

class MyWindow < Gosu::Window

  def initialize
    super 320, 240, false
    self.caption = 'Song (BGM) Play Test'
    @fnt = Gosu::Font.new(20)

    # BGMのoggファイルを読み込む
    @bgm = Gosu::Song.new("tmp_loop01.ogg")
    @play_msg = ""
    @pause_msg = ""
  end

  def update
    # 再生中？
    if @bgm.playing?
      @play_msg = "Playing"
    else
      @play_msg = "Stopped"
    end

    # ポーズ中？
    if @bgm.paused?
      @pause_msg = "Paused"
    else
      @pause_msg = "Not Paused"
    end
  end

  def draw
    # 再生中/停止中, ポーズ中/非ポーズを表示
    @fnt.draw("Push A:Play, Z:Stop, X:Pause", 4, 4, 0)
    @fnt.draw(@play_msg, 4, 30, 0)
    @fnt.draw(@pause_msg, 4, 50, 0)
  end

  def button_down(id)
    close if id == Gosu::KbEscape
  end

  # キーが離された時に呼ばれる
  def button_up(id)
    @bgm.play(true) if id == Gosu::KbA  # 通常再生(ループ有効)
    @bgm.stop if id == Gosu::KbZ  # 再生停止
    @bgm.pause if id == Gosu::KbX  # ポーズ
  end
end

window = MyWindow.new
window.show

@bgm = Gosu::Song.new("BGMファイル名")

@bgm.play(true)  # 再生開始(ループ有効)
@bgm.stop        # 再生停止
@bgm.pause       # ポーズ

cnt = nil # 参照を切る。作ったProcはここでやっと不要になる

require 'gosu'

class MyWindow < Gosu::Window

  def initialize
    super 320, 240, false
    self.caption = 'Sound Play Test'

    # wavファイルを読み込む
    @sounds = []
    @sis = []
    [
      "tmp_se_01.wav",
      "tmp_se_02.wav",
      "tmp_se_03.wav",
      "tmp_se_01.ogg",
      "tmp_se_02.ogg",
      "tmp_se_03.ogg"
    ].each do |fn|
      @sounds.push(Gosu::Sample.new(fn))
      @sis.push(nil)
    end
    @cnt = 0
    @close_req = 0
    @se_all_stop = false
  end

  def update
    if @se_all_stop  # SE全停止が要求されてる
      stop_all_se
      @se_all_stop = false
    end

    if @close_req > 0  # ウインドウcloseが要求されてる
      @close_req -= 1
      if @close_req == 0  # 一定時間が経過した
        if se_playing?
          # まだ鳴ってる
          @close_req = 30
          puts "SE playing (in update)"
        else
          # 何も鳴ってない
          dispose_se_resource
          GC.start
          close  # ウインドウを閉じる
        end
      end
      return
    end

    tm = 45
    if @cnt % tm == 0
      # 一定フレーム数が過ぎたらサウンドを再生
      n = (@cnt / tm) % @sounds.length
      if @sis[n] == nil or !@sis[n].playing?
        @sis[n] = @sounds[n].play
      else
        # @sis[n].stop
      end
    end
    @cnt += 1
  end

  def draw
  end

  # キーが押された時に呼ばれる
  def button_down(id)
    if id == Gosu::KbEscape  # ESCキーが押された
      # @se_all_stop = true  # SE全停止を要求
      @close_req = 30  # xxフレーム後にウインドウを閉じるように要求
    end
  end

  # 何かのSEが鳴ってたら true を返す
  def se_playing?
    return false unless @sis
    cnt = 0
    @sis.each do |si|
      next unless si
      cnt += 1 if si.playing?
    end
    return true if cnt > 0
    return false
  end

  # SEを全て停止
  def stop_all_se
    return unless @sis
    @sis.length.times do |i|
      next unless @sis[i]
      @sis[i].stop
    end
    puts "SE stop all"
  end

  # サウンド関連リソースを全て破棄、するはずなんだけど…
  def dispose_se_resource
    if @sis
      @sis.length.times { |i| @sis[i] = nil }
      @sfs = nil
    end

    if @sounds
      @sounds.length.times { |i| @sounds[i] = nil }
      @sounds = nil
    end
  end
end

wdw = MyWindow.new
wdw.show

# SEが鳴り終わるまで待つ
while wdw.se_playing?
  puts "SE playing"
  sleep(1)
end
puts "SE not playing"

wdw.dispose_se_resource
wdw = nil
GC.start
exit

$ ruby sound_test3.rb 
SE playing (in update)
SE not playing
AL lib: (WW) FreeDevice: (0x1b503b0) Deleting 2 Buffer(s)

ログファイルの中に (EE) で始まる行が存在しないか確認してください。(EE) はエラーです。また、(WW) は警告です。

Xorg - ArchWiki より

require 'gosu'

class MyWindow < Gosu::Window

  def initialize
    super 320, 240, false
    self.caption = 'Sample (BGM) Play Test'
    @fnt = Gosu::Font.new(20)

    # BGMのoggファイルを読み込む
    @bgm = Gosu::Sample.new("tmp_loop01.ogg")
    @bgm_si = nil
    @play_msg = ""
    @pause_msg = ""
  end

  def update
    # 再生中？
    @play_msg = (@bgm_si and @bgm_si.playing?)? "Playing" : "Stopped"

    # ポーズ中？
    @pause_msg = (@bgm_si and @bgm_si.paused?)? "Paused" : "Not Paused"
  end

  def draw
    # 再生中/停止中, ポーズ中/非ポーズを表示
    @fnt.draw("Push A:Play, Z:Stop, P:Pause", 4, 4, 0)
    @fnt.draw(@play_msg, 4, 30, 0)
    @fnt.draw(@pause_msg, 4, 50, 0)
  end

  # キーが押された時に呼ばれる
  def button_down(id)
    if id == Gosu::KbEscape
      close
    elsif id == Gosu::KbA
      if @bgm_si == nil or !@bgm_si.playing?
        @bgm_si = @bgm.play(1, 1, true)  # 通常再生(ループ有効)
      end
    elsif id == Gosu::KbZ
      if @bgm_si
        @bgm_si.stop  # 再生停止
      end
    elsif id == Gosu::KbP
      if @bgm_si
        if @bgm_si.paused?
          @bgm_si.resume # ポーズ解除
        elsif @bgm_si.playing?
          @bgm_si.pause  # ポーズ
        end
      end
    end
  end

  # キーが離された時に呼ばれる
  def button_up(id)
  end

  def stop_bgm
    return unless @bgm_si
    @bgm_si.stop
  end

  def dispose_bgm
    @bgm_si = nil
    @bgm = nil
  end

  def bgm_playing?
    return false unless @bgm_si
    return @bgm_si.playing?
  end
end

wdw = MyWindow.new
wdw.show

# BGM停止を指示
wdw.stop_bgm

# BGMが停止するまで待つ
while wdw.bgm_playing?
  puts "BGM playing"
  sleep(1)
end
puts "BGM not playing"

wdw.dispose_bgm
wdw = nil
GC.start
exit

ログの名前:         Application
ソース:           Application Error
日付:            2016/12/17 14:39:49
イベント ID:       1000
タスクのカテゴリ:      (100)
レベル:           エラー
キーワード:         クラシック
ユーザー:          N/A
コンピューター:       dorobune
説明:
障害が発生しているアプリケーション名: soffice.bin、バージョン: 5.2.3.3、タイム スタンプ: 0x5813db9e
障害が発生しているモジュール名: MSVCR120.dll、バージョン: 12.0.40649.5、タイム スタンプ: 0x56bc018f
例外コード: 0xc0000409
障害オフセット: 0x000a7746
障害が発生しているプロセス ID: 0x2cfc
障害が発生しているアプリケーションの開始時刻: 0x01d25827f0a84b32
障害が発生しているアプリケーション パス: C:\Program Files (x86)\LibreOffice 5\program\soffice.bin
障害が発生しているモジュール パス: C:\WINDOWS\SYSTEM32\MSVCR120.dll
レポート ID: 579b43e2-1c1d-48bc-8f4d-6390bfa12bf1
障害が発生しているパッケージの完全な名前:
障害が発生しているパッケージに関連するアプリケーション ID:
イベント XML:
<Event xmlns="http://schemas.microsoft.com/win/2004/08/events/event">
  <System>
    <Provider Name="Application Error" />
    <EventID Qualifiers="0">1000</EventID>
    <Level>2</Level>
    <Task>100</Task>
    <Keywords>0x80000000000000</Keywords>
    <TimeCreated SystemTime="2016-12-17T05:39:49.312644000Z" />
    <EventRecordID>15041</EventRecordID>
    <Channel>Application</Channel>
    <Computer>dorobune</Computer>
    <Security />
  </System>
  <EventData>
    <Data>soffice.bin</Data>
    <Data>5.2.3.3</Data>
    <Data>5813db9e</Data>
    <Data>MSVCR120.dll</Data>
    <Data>12.0.40649.5</Data>
    <Data>56bc018f</Data>
    <Data>c0000409</Data>
    <Data>000a7746</Data>
    <Data>2cfc</Data>
    <Data>01d25827f0a84b32</Data>
    <Data>C:\Program Files (x86)\LibreOffice 5\program\soffice.bin</Data>
    <Data>C:\WINDOWS\SYSTEM32\MSVCR120.dll</Data>
    <Data>579b43e2-1c1d-48bc-8f4d-6390bfa12bf1</Data>
    <Data>
    </Data>
    <Data>
    </Data>
  </EventData>
</Event>

• msvcr120.dll のタイムスタンプは 2016/02/10、バージョンは 12.00.40649.5。
• ちなみに、似たようなファイル名の msvcr120d.dll は、2013/10/04、12.00.21005.1。
• msvcr120_clr0400.dll は、2016/07/16、12.00.52512.0。

ログの名前:         Application
ソース:           Application Error
日付:            2016/12/17 14:43:10
イベント ID:       1000
タスクのカテゴリ:      (100)
レベル:           エラー
キーワード:         クラシック
ユーザー:          N/A
コンピューター:       dorobune
説明:
障害が発生しているアプリケーション名: soffice.bin、バージョン: 5.2.3.3、タイム スタンプ: 0x5813db9e
障害が発生しているモジュール名: MSVCR120.dll、バージョン: 12.0.40649.5、タイム スタンプ: 0x56bc018f
例外コード: 0xc0000409
障害オフセット: 0x000a7746
障害が発生しているプロセス ID: 0x3110
障害が発生しているアプリケーションの開始時刻: 0x01d2582864ea8ae4
障害が発生しているアプリケーション パス: C:\Program Files (x86)\LibreOffice 5\program\soffice.bin
障害が発生しているモジュール パス: C:\WINDOWS\SYSTEM32\MSVCR120.dll
レポート ID: 66759229-9836-45a8-8483-4eec954ec355
障害が発生しているパッケージの完全な名前:
障害が発生しているパッケージに関連するアプリケーション ID:
イベント XML:
<Event xmlns="http://schemas.microsoft.com/win/2004/08/events/event">
  <System>
    <Provider Name="Application Error" />
    <EventID Qualifiers="0">1000</EventID>
    <Level>2</Level>
    <Task>100</Task>
    <Keywords>0x80000000000000</Keywords>
    <TimeCreated SystemTime="2016-12-17T05:43:10.578963300Z" />
    <EventRecordID>15049</EventRecordID>
    <Channel>Application</Channel>
    <Computer>dorobune</Computer>
    <Security />
  </System>
  <EventData>
    <Data>soffice.bin</Data>
    <Data>5.2.3.3</Data>
    <Data>5813db9e</Data>
    <Data>MSVCR120.dll</Data>
    <Data>12.0.40649.5</Data>
    <Data>56bc018f</Data>
    <Data>c0000409</Data>
    <Data>000a7746</Data>
    <Data>3110</Data>
    <Data>01d2582864ea8ae4</Data>
    <Data>C:\Program Files (x86)\LibreOffice 5\program\soffice.bin</Data>
    <Data>C:\WINDOWS\SYSTEM32\MSVCR120.dll</Data>
    <Data>66759229-9836-45a8-8483-4eec954ec355</Data>
    <Data>
    </Data>
    <Data>
    </Data>
  </EventData>
</Event>

• Visual Studio 等をやたらめったらインストールしてある状態。
• Windows7からアップグレードした状態。
• 英語圏の色んなソフトをインストールしちゃってる。

• MSVCR120.dll。12.0.21005.1。タイムスタンプ 2016/10/29 02:12。
• msvcr120_clr0400.dll。12.0.52512.0。タイムスタンプ 2016/07/16 20:44。

require "dxruby"

img = Image.load("tmp_dot.png")

# 点の座標群を作成
py = 600.0
scale = 200.0
pos = []
10.times do |z|
  10.times do |x|
    pos.push([x * scale, py, z * scale])
    pos.push([x * -scale, py, z * scale])
  end
end

# 画面までの距離
sz = 75

Window.loop do
  break if Input.keyPush?(K_ESCAPE)

  # ウインドウの中心位置を取得
  cw = Window.width / 2
  ch = Window.height / 2

  # 画像横幅、縦幅を取得
  iw = img.width
  ih = img.height

  # マウス座標を点群の移動量にする
  mx = (Input.mousePosX - cw) * 5
  my = (Input.mousePosY - ch) * 5

  # 点の座標を透視投影で求めて描画
  pos.each do |px, py, pz|
    px += mx
    pz += my
    if pz > 0
      sx = sz * px / pz
      sy = sz * py / pz
      x = sx - iw / 2 + cw
      y = sy - ih / 2 + ch
      Window.draw(x, y, img, -pz.to_i)
    end
  end
end

require "dxruby"

img = Image.load("tmp_dot.png")

# 点の座標群を作成
py = 600.0
scale = 200.0
pos = []
10.times do |z|
  10.times do |x|
    pos.push([x * scale, py, z * scale])
    pos.push([x * -scale, py, z * scale])
  end
end

# 画面までの距離
sz = 75

Window.loop do
  break if Input.keyPush?(K_ESCAPE)

  # ウインドウの中心位置を取得
  cw = Window.width / 2
  ch = Window.height / 2

  # 画像横幅、縦幅を取得
  iw = img.width
  ih = img.height

  # マウス座標を点群の移動量にする
  mx = (Input.mousePosX - cw) * 5
  my = (Input.mousePosY - ch) * 5

  # 点の座標を透視投影で求めて描画
  pos.each do |px, py, pz|
    px += mx
    pz += my
    if pz > 0
      ssz = sz / pz
      sx = px * ssz
      sy = py * ssz
      scale = 5.0 * ssz
      x = sx + cw - iw / 2
      y = sy + ch - ih / 2
      Window.drawEx( x, y, img,
                    :scalex => scale, :scaley => scale,
                    :center_x => iw / 2, :center_y => ih / 2,
                    :z => -pz.to_i)
    end
  end
end

Linux raspberrypi 3.16.0-4-686-pae #1 SMP Debian 3.16.36-1+deb9u2 (2016-10-19) i686 GNU/Linux

sudo xrandr --output Virtual1 --mode 1024x768