mieki256's diary

fbc imgputt_test.bas
fbc imgputt_test2.bas

imgputt_test.exe 32
imgputt_test2.exe 32

imgputt_test.exe 8
imgputt_test2.exe 8

imgputt_test.exe 16
imgputt_test2.exe 16

fbc imgputt_test2.bas -gen gcc -O 3

• -gen gcc ... gcc を使って exe を生成
• -O 3 ... 最適化レベル 3 を指定。

• DB's TOOLBOX のメニューを開く。
• >PALETTE
• >PRESETS
• Custom Palettes (p)
• 2. PICO-8、の右側にチェックを入れて、OKボタンをクリック。

argb = struct.unpack_from('=L', src, i * 4)[0]

gem install opengl
gem install glu
gem install glut

• OpenGL Utility Library の略で「GLU」。
• OpenGL Utility Toolkit の略で「GLUT」。

# gosu + opengl のテスト
# とりあえず、opengl + glut のテストだけをしてみる。

require "opengl"
require "glut"
require "glu"

# 表示処理
display = proc {
  GL.Clear(GL::COLOR_BUFFER_BIT)  # カラーバッファをクリア
  GL.Color3f(0.0 , 1.0 , 0.0)  # 色を指定
  GLUT.WireTeapot(0.5)  # ティーポットを表示
  GLUT.SwapBuffers()  # 画面を入れ替え(ダブルバッファ)
}

# ウインドウが変形したり最初に生成された際に呼ばれる処理
reshape = proc { |w, h|
  GL.Viewport(0, 0, w, h)  # ビューポートを設定

  GL.MatrixMode(GL::GL_PROJECTION)  # 演算ターゲットを射影行列に
  GL.LoadIdentity()  # 変換行列を単位行列に
  GLU.Perspective(30.0, w.to_f/h, 1.0, 100.0)  # 透視投影を指定

  GL.MatrixMode(GL::GL_MODELVIEW)  # 演算ターゲットをモデルビュー行列に
  GL.LoadIdentity()  # 変換行列を単位行列に

  GLU.LookAt(3.0, 2.0, 1.0, # カメラ位置
             0.0, 0.0, 0.0, # 注視点の位置
             0.0, 1.0, 0.0 # どっちが上かを指定
             );
}

# 一定時間ごとに呼ばれる処理
timer = proc {
  GL.Rotate(2.0, 0.0, 1.0, 0.0)  # Y軸を回転 (ang, x, y, z)
  GLUT.PostRedisplay()  # 再描画を要求
  GLUT.TimerFunc(16, timer, 0)  # 16ms毎に呼び直す
}

GLUT.Init()  # GLUTの初期化
GLUT.InitWindowSize(512, 512)  # ウインドウサイズを指定
GLUT.CreateWindow("OpenGL:Teapot") # ウインドウを生成

GLUT.DisplayFunc(display) # ディスプレイコールバックの登録
GLUT.ReshapeFunc(reshape)  # リシェイプコールバックの登録
GLUT.TimerFunc(10, timer, 0)  # 一定時間ごとに呼ばれる処理を登録

GL.ClearColor(0.2,0.2,0.2,0.0)  # 画面クリア時の色を指定

GLUT.MainLoop()  # メインループ

gem install gosu

# gosu + opengl の動作確認
# gosu-examplesの opengl_integration.rb を弄って、
# OpenGL 絡みの部分だけを列挙
# 横スクロールで地形の上を進むイメージで描画

require 'gosu'
require 'gl'

WIDTH, HEIGHT = 640, 480

# OpenGLを使って背景描画するためのクラス
class GLBackground
  # Height map size
  POINTS_X = 16
  POINTS_Y = 16

  # Scrolling speed
  SCROLLS_PER_STEP = 20

  # 初期化
  def initialize
    @image = Gosu::Image.new("uv.png", :tileable => true)  # テクスチャ読み込み
    @scrolls = 0
    @height_map = Array.new(POINTS_Y) { Array.new(POINTS_X) { rand } }
  end

  # 更新処理
  def update
    @scrolls += 1
    if @scrolls == SCROLLS_PER_STEP
      @scrolls = 0
      @height_map.shift
      @height_map.push Array.new(POINTS_X) { rand }
    end
  end

  # 描画処理
  def draw(z)
    # Gosu.gl(z値)でOpenGLの描画を行う
    # 描画後、Gosuの描画ができるようにしてくれるらしい
    Gosu.gl(z) { exec_gl }
  end

  private

  include Gl

  # OpenGL関係の処理
  def exec_gl
    glClearColor(0.2, 0.2, 0.2, 1.0)  # 画面クリア色を指定 (r,g,b,a)
    glClearDepth(1.0)  # デプスバッファをクリア
    glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT)  # 画面クリア

    # テクスチャ情報が取得できないなら何もせずに戻る
    info = @image.gl_tex_info
    return unless info

    # 奥行き比較関数の種類を指定。デフォルトではGL_LESSが指定されてるらしい
    # glDepthFunc(GL_GEQUAL)
    glDepthFunc(GL_LESS)

    glEnable(GL_DEPTH_TEST)  # デプスバッファを使う
    # glEnable(GL_BLEND)  # アルファブレンドを有効化

    glMatrixMode(GL_PROJECTION)  # 透視投影の設定
    glLoadIdentity
    # glFrustum(-0.10, 0.10, -0.075, 0.075, 1, 100)
    glFrustum(-0.04, 0.04, -0.075, 0.075, 0.1, 100)

    glMatrixMode(GL_MODELVIEW)  # モデルビュー変換の指定
    glLoadIdentity
    glRotate(35.0, 1.0, 0.0, 0.0) # 回転させる (ang, x, y, z)
    glTranslate(0, -0.35, -0.8)  # 位置をずらす

    glEnable(GL_TEXTURE_2D)  # テクスチャマッピングを有効化
    glBindTexture(GL_TEXTURE_2D, info.tex_name)

    # スクロールオフセット値を得る
    offs_y = 1.0 * @scrolls / SCROLLS_PER_STEP

    dy = 0.2
    dz = 1.5

    0.upto(POINTS_Y - 2) do |y|
      0.upto(POINTS_X - 2) do |x|
        glBegin(GL_TRIANGLE_STRIP)  # 三角ポリゴンを連続で描画

        px0 = -0.5 + (x - 0.0) / (POINTS_X - 1)
        px1 = -0.5 + (x + 1.0) / (POINTS_X - 1)
        py0 = -0.5 + (y - 0.0 - offs_y) / (POINTS_Y - 2)
        py1 = -0.5 + (y + 1.0 - offs_y) / (POINTS_Y - 2)

        z = @height_map[y][x]
        # glColor4d(1, 1, 1, z)  # 透過度を指定してフォグに近い効果を出してる
        glTexCoord2d(info.left, info.top)  # テクスチャ座標を指定
        # 頂点を指定
        glVertex3d(py0, z * dy, px0 * dz)

        z = @height_map[y + 1][x]
        # glColor4d(1, 1, 1, z)
        glTexCoord2d(info.left, info.bottom)
        glVertex3d(py1, z * dy, px0 * dz)

        z = @height_map[y][x + 1]
        # glColor4d(1, 1, 1, z)
        glTexCoord2d(info.right, info.top)
        glVertex3d(py0, z * dy, px1 * dz)

        z = @height_map[y+1][x + 1]
        # glColor4d(1, 1, 1, z)
        glTexCoord2d(info.right, info.bottom)
        glVertex3d(py1, z * dy, px1 * dz)

        glEnd
      end
    end
  end
end

class MyWindow < Gosu::Window

  # 初期化
  def initialize
    super WIDTH, HEIGHT
    self.caption = "Ruby + Gosu + OpenGL Test"  # ウインドウタイトルを指定
    @gl_background = GLBackground.new
  end

  # 更新処理
  def update
    @gl_background.update
  end

  # 描画処理
  def draw
    @gl_background.draw(0)
  end
end

MyWindow.new.show

require 'gosu'
require 'gl'

Gosu.gl(z値) { OpenGL描画処理をする関数 }

• 「gosu自体は、OpenGL APIを提供してないから、OpenGLを使えるようにする何かと一緒に使ってね。例えば ruby-opengl と組み合わせて使うとか」
• 「Gosu.gl() の中で gosuの描画機能は使えないよ」
• 「Gosu.gl() は Gosu::Window の draw() の中で呼んでね」

gl do
  ...
  ...
  ...
end

# gosu + opengl の動作確認
# gosu-examplesの opengl_integration.rb を弄って、
# OpenGL 絡みの部分だけを列挙
# 円柱の中を進むイメージで描画

require 'gosu'
require 'gl'

WIDTH, HEIGHT = 640, 480

# OpenGLを使って背景描画するためのクラス
class GLBackground

  # 初期化
  def initialize
    # テクスチャ読み込み
    @image = Gosu::Image.new("mecha.png", :tileable => true)
    @scrolls = 0
    @rot_v = 0
    @rot_v2 = 0
  end

  # 更新処理
  def update
    @scrolls += 1
    @rot_v = (@rot_v + 0.3) % 360.0
    @rot_v2 = (@rot_v2 + 0.5) % 360.0
    if @scrolls == SCROLLS_PER_STEP
      @scrolls = 0
    end
  end

  # 描画処理
  def draw(z)
    # Gosu.gl(z値)でOpenGLの描画を行う
    # 描画後、Gosuの描画ができるようにしてくれるらしい
    Gosu.gl(z) { exec_gl }
  end

  private

  include Gl

  # Scrolling speed
  SCROLLS_PER_STEP = 15

  # OpenGL関係の処理
  def exec_gl
    glClearColor(0.0, 0.0, 0.0, 1.0)  # 画面クリア色を指定 (r,g,b,a)
    glClearDepth(1.0)  # デプスバッファをクリア
    glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT)  # 画面クリア

    # テクスチャ情報が取得できないなら何もせずに戻る
    info = @image.gl_tex_info
    return unless info

    # 奥行き比較関数の種類を指定。デフォルトではGL_LESSが指定されてるらしい
    # glDepthFunc(GL_GEQUAL)
    glDepthFunc(GL_LESS)

    glEnable(GL_DEPTH_TEST)  # デプスバッファを使う
    glEnable(GL_BLEND)  # アルファブレンドを有効化

    glMatrixMode(GL_PROJECTION)  # 透視投影の設定
    glLoadIdentity
    glFrustum(-0.10, 0.10, -0.075, 0.075, 0.1, 100)

    glMatrixMode(GL_MODELVIEW)  # モデルビュー変換の指定
    glLoadIdentity
    glTranslate(0, 0.0, -0.8)  # 位置をずらす

    ry = 25.0 * Math.sin(@rot_v * Math::PI / 180.0)
    glRotate(ry, 0.0, 1.0, 0.0) # 回転
    rz = 20.0 * Math.sin(@rot_v2 * Math::PI / 180.0)
    glRotate(rz, 0.0, 0.0, 1.0) # 回転

    # スクロールオフセット値を得る
    offs_y = 1.0 * @scrolls / SCROLLS_PER_STEP

    glEnable(GL_TEXTURE_2D)  # テクスチャマッピングを有効化
    glBindTexture(GL_TEXTURE_2D, info.tex_name) # テクスチャを割り当て

    # テクスチャの補間を指定
    glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR)
    glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR)

    mx = 15.0
    my = 1.2
    mz = 1.2
    ra = @rot_v * 4.0
    lx = 28
    0.upto(lx) do |bx|
      px0 = (-0.5 + (bx - 0.0 - offs_y) / lx) * mx
      px1 = (-0.5 + (bx + 0.6 - offs_y) / lx) * mx

      aa = 15
      0.step(360, aa) do |ang|
        rad0 = (ang + ra) * Math::PI / 180.0
        pz0 = Math.cos(rad0) * mz
        py0 = Math.sin(rad0) * my

        rad1 = (ang + ra + aa) * Math::PI / 180.0
        pz1 = Math.cos(rad1) * mz
        py1 = Math.sin(rad1) * my

        glBegin(GL_TRIANGLE_STRIP)

        glTexCoord2d(info.left, info.top)
        glVertex3d(px0, py0, pz0)

        glTexCoord2d(info.left, info.bottom)
        glVertex3d(px0, py1, pz1)

        glTexCoord2d(info.right, info.top)
        glVertex3d(px1, py0, pz0)

        glTexCoord2d(info.right, info.bottom)
        glVertex3d(px1, py1, pz1)

        glEnd
      end
    end
  end
end

class MyWindow < Gosu::Window

  # 初期化
  def initialize
    super WIDTH, HEIGHT
    self.caption = "Ruby + Gosu + OpenGL Test"  # ウインドウタイトルを指定
    @gl_background = GLBackground.new
    @bg_img = Gosu::Image.new("bg.png", :tileable => true)
  end

  # 更新処理
  def update
    @gl_background.update
  end

  # 描画処理
  def draw
    @gl_background.draw(2)
    @bg_img.draw(0, 0, 0)
  end
end

MyWindow.new.show

convert src.png -matte -bordercolor none -border 1 dst.png

• -matte は、アルファチャンネル情報に関係してるらしいけど、ちょっとよく分からず。+matte 、-alpha off 、-alpha on 等、色々あるようで。
• -bordercolor none で、枠の色を指定してる。フツーは、gray とか black とかを指定するけど、noneを指定してるので…たぶん透明色を指定してるのかなと。
• -border 1 で、1ドット幅の枠を指定してる。-border 10x0 なら、左右に10ドット枠をつけるけど上下にはつけない。-border 0x10 なら、上下に10ドット枠をつけるけど左右にはつけない、という指定になる。

すでに話題が旬を過ぎた今になってこんなことを言うのもどうかと思うのだが、どうもウェブログというやつには馴染めない。何やら、あっけらかんとした亜米利加人が屈託のない笑顔を浮かべて、ヤアなどと手を振りながら日本家屋の中に土足で上がり込んできたかのような居心地の悪さを覚えるのだ。

読冊日記 2003年 5月下旬 より

ウェブログはコミュニケーションを重視する。盛んに他人の記事を引用するし、たいがいコメントエリアがついている。明快で活発なコミュニケーション。実にわかりやすい。

読冊日記 2003年 5月下旬 より

しかし、日本型のウェブ日記の世界には、かつてからもっと別種のコミュニケーションがあったのではないか。

読冊日記 2003年 5月下旬 より

日々誰に向けているのでもないテキストを淡々と書き、そしてどこかにそれを読んでくれる読み手がいる、ということに心を癒され、直接感想メールが来たりすると、かすかな苛立ちを感じずにはいられないような、そんな「コミュニケーション」。
それは、アメリカ人からすればコミュニケーションの名にすら値しないようなものなのかもしれないのだけど、「それはどこか宇宙の果ての知らない星からの長距離電話」（谷山浩子「銀河通信」）であり、「誰でもない他者」からの「あなたがここにいること」への承認のメッセージなのだ。

読冊日記 2003年 5月下旬 より

キットカットはトカットか。シャム双生児はム双生児か。ウェブ日記はブ日記か。ああ決めた。今日から私はブ日記だ。ブログに対抗して、昔ながらのウェブ日記のことをブ日記と呼んでやる。この野暮ったさが実にウェブ日記らしくていいではないか。

読冊日記 2003年 5月下旬 より