mieki256's diary

◎ ソースの入手 :

◎ ビルド :

dos2unix *.c
dos2unix *.h

make -f Makefile.LINUX

GL/glpng.h
libglpng.a

◎ サンプルプログラムをビルド :

Example/ の中にはサンプル Test.c があるので、ビルドして .exe が作れるか試してみた。ビルドには、glut か freeglut が必要。

ただ、Test.c は若干修正が必要らしい。diff の結果を貼っておく。

> diff -u Test.c.orig Test.c
--- Test.c.orig 2023-12-31 01:53:10 +0900
+++ Test.c      2023-12-31 02:17:00 +0900
@@ -6,8 +6,8 @@
  * http://www.wyatt100.freeserve.co.uk/download.htm
  */

-#include <gl/glpng.h>
-#include <gl/glut.h>
+#include <GL/glut.h>
+#include <GL/glpng.h>
 #include <stdlib.h>

 int angle = 0;
@@ -64,10 +64,11 @@

 /***** Main function *****/

-void main() {
+int main(int argc, char** argv) {
        pngInfo info;
        GLuint  texture;

+       glutInit(&argc, argv);
        glutInitDisplayMode(GLUT_DOUBLE | GLUT_RGB);
        glutInitWindowSize(300, 300);
        glutCreateWindow("glpng test");
@@ -107,4 +108,6 @@
        glutReshapeFunc(Reshape);

        glutMainLoop();
+
+       return EXIT_SUCCESS;
 }

行頭に「-」がついているのが元の記述。「+」がついているのが変更後の記述。

• 「gl/」は「GL/」に変更。
• glpng.h, glut.h の順ではなく、glut.h, glpng.h の順で include。
• void main() は int main(int argc, char** argv) に。
• glutInit(&argc, argv); を追加。
• main() の最後で返り値を戻すようにする。

一応、修正後の test.c も置いておく。

_test.c
_stunt.png


Makefile は以下。

_Makefile

Test.exe: Test.c Makefile
    gcc Test.c -o Test.exe -lglpng -DFREEGLUT_STATIC -lfreeglut_static -lglu32 -lopengl32 -lwinmm -lgdi32

.PHONY: clean
clean:
    rm -f *.exe
    rm -f *.o

-lglpng のほうが、glut 関係より先に記述されてないといかんらしい。

make を実行。Test.exe が作られた。

Test.exe を実行すると、png画像の Stunt.png を読み込んで、OpenGL のポリゴンにテクスチャとして貼り付けた状態で表示された。

たしかに、png画像を読み込んで、OpenGL のテクスチャとして利用できた。

libpng を使う事例と比べると、圧倒的に記述が少なくて済む。もっとも、glpng も実際の処理は zlib と libpng を使ってるらしいけど…。

glpng [Ben Wyatt] (Win32, etc.) - all versions; read-only;

requires libpng and zlib; freeware (zlib license) with source.

(This is a utility library to load PNG images and bind them to OpenGL textures.
Reportedly it is also a good general-purpose example of how to use textures in OpenGL.
As of early 2000, it still includes the source code for libpng 1.0.2 and zlib 1.1.3, plus a static Win32 library [glpng.lib].)

PNG-supporting Libraries and Toolkits より

◎ 参考ページ :

◎ Export Layers プラグイン。 :

今時は Python-Fu で実装された高機能なプラグインが存在するので、まずはそちらをおススメ。

_Home | Export Layers
_khalim19/gimp-plugin-export-layers: GIMP plug-in that exports layers as separate images

• レイヤー名をファイル名に、あるいは、連番ファイル名にして保存できる。
• 保存する前に、各レイヤーがどんなファイル名で保存されるのか、一覧表示してくれる。

呼び出し方は、ファイル → Export Layers ...。

実行すると、どの場所に保存するか尋ねてくるダイアログが開くので…。

Settings をクリックして Show More Settings を選べば、オプション指定部分が増えます。

ファイル名の部分をクリックすれば、レイヤー名で保存(Layer name)、連番で保存(image001)、等が選べます。

◎ たむぶん版 Continuous Save。 :

いっちー氏が作成した Script-Fu に機能追加された版。GIMP 2.10.x まで対応済み。レイヤーを連番画像(bmp/png/jpg)として保存することが可能。

_たむぶん版 Continuous Save

何らかの理由で Export Layers を使いたくない・動かない場合は、こちらのスクリプトがおススメ。

導入すると、Script-Fu → Utils → Continuous Save...、で使えるようになります。

◎ mieki256版 Continuous Save。 :

前述のプラグイン/スクリプトで十分目的は果たせるし、自分も最近は Export Layers を使っていますが…。

一応、自分も、いっちー氏 + たむぶん氏が作成した版に多少手を入れたスクリプトを手元に置いていたりするので、念のためにソレも置いておきます。GIMP 2.8、GIMP 2.10 に対応。GIMP 2.6 には未対応。

_continuous-save_m256.scm

導入すると、Script-Fu → Utils → Continuous Save (m256)...、で使えるようになります。

ですが、たむぶんさんの版より機能が少ない(レイヤーサイズを一括変更する機能が無い)ので、コレを使うメリットは無いですね…。

◎ 余談。全レイヤーのサイズを一括変更。 :

• GIMP 2.4 や GIMP 2.6 で動かしてるなら、グループレイヤーが無いことを前提に処理。
• GIMP 2.8 や GIMP 2.10 で動かしているなら、グループレイヤーが有るかもしれないことを前提にして処理。

• Windows10 x64 1909
• GIMP 2.10.14 (2.10.15？) Portable x86 samj版
• GIMP 2.8.22 Portable
• GIMP 2.6.12 公式バイナリ版

◎ GIMP 2.10.14上で動作確認。 :

; GIMPのバージョンは (gimp-version) で取得できる

> (gimp-version)
("2.10.15")

; 配列(リスト？)の中にバージョン文字列が入ってるので、文字列だけを取り出す
; car を使うと、配列の一番最初の要素を取り出せる

> (car (gimp-version))
"2.10.15"

; 文字列を特定文字で区切って配列にする。strbreakup が使える
; (strbreakup 文字列 区切り文字) の形で使う

> (strbreakup (car (gimp-version)) ".")
("2" "10" "15")

; 文字列が入ってる配列の中から1つだけ取り出すには nth を使う
; (nth インデックス番号 配列) の形で使う

> (nth 0 (strbreakup (car (gimp-version)) "."))
"2"
> (nth 1 (strbreakup (car (gimp-version)) "."))
"10"
> (nth 2 (strbreakup (car (gimp-version)) "."))
"15"

; 文字列を数値に変換するには string->number を使う
; (string->number 文字列) の形で使う

> (string->number (nth 1 (strbreakup (car (gimp-version)) ".")))
10

; 2.8 以上か未満かを知りたいので値を比較。#t か #f が返ってくる。

> (<= 8 (string->number (nth 1 (strbreakup (car (gimp-version)) "."))))
#t

◎ GIMP 2.8.22上で動作確認。 :

> (gimp-version)
("2.8.22")

> (car (gimp-version))
"2.8.22"

> (strbreakup (car (gimp-version)) ".")
("2" "8" "22")

> (nth 0 (strbreakup (car (gimp-version)) "."))
"2"

> (nth 1 (strbreakup (car (gimp-version)) "."))
"8"

> (nth 2 (strbreakup (car (gimp-version)) "."))
"22"

> (string->number (nth 1 (strbreakup (car (gimp-version)) ".")))
8

> (<= 8 (string->number (nth 1 (strbreakup (car (gimp-version)) "."))))
#t

◎ GIMP 2.6.12上で動作確認。 :

> (gimp-version)
("2.6.12")

> (car (gimp-version))
"2.6.12"

> (strbreakup (car (gimp-version)) ".")
("2" "6" "12")

> (nth 0 (strbreakup (car (gimp-version)) "."))
"2"

> (nth 1 (strbreakup (car (gimp-version)) "."))
"6"

> (nth 2 (strbreakup (car (gimp-version)) "."))
"12"

> (string->number (nth 1 (strbreakup (car (gimp-version)) ".")))
6

> (<= 8 (string->number (nth 1 (strbreakup (car (gimp-version)) "."))))
#f

◎ そもそもこういう処理は要らないかも。 :

◎ substringを使う方法。 :

> (gimp-version)
("2.10.15")

> (car (gimp-version))
"2.10.15"

> (substring (car (gimp-version)) 0 4)
"2.10"

> (string=? "2.10" (substring (car (gimp-version)) 0 4))
#t
> (string=? "2.8." (substring (car (gimp-version)) 0 4))
#f
> (string=? "2.6." (substring (car (gimp-version)) 0 4))
#f

> (gimp-version)
("2.8.22")

> (string=? "2.10" (substring (car (gimp-version)) 0 4))
#f
> (string=? "2.8." (substring (car (gimp-version)) 0 4))
#t
> (string=? "2.6." (substring (car (gimp-version)) 0 4))
#f

> (gimp-version)
("2.6.12")

> (string=? "2.10" (substring (car (gimp-version)) 0 4))
#f
> (string=? "2.8." (substring (car (gimp-version)) 0 4))
#f
> (string=? "2.6." (substring (car (gimp-version)) 0 4))
#t

◎ 参考ページ。 :

◎ NICドライバを入れ替え。 :

◎ 少女漫画と女性向けアニメは別物。 :

# スプライトの衝突判定動作テスト

require 'dxruby'

font = Font.new(12)

# 画像読み込み
base64_text = ""
DATA.each {|l| base64_text += l.chomp}
bin_data = base64_text.unpack('m')[0]
$imgs = Image.loadFromFileInMemory(bin_data).sliceTiles(8, 1)

# enemyshotimgs = [$imgs[3], $imgs[4], $imgs[5]]

# 度→ラジアン変換
def deg2rad(deg)
  return deg * Math::PI / 180.0
end

# ----------------------------------------
# プレイヤーキャラ
class Player < Sprite
  attr_accessor :bx, :by, :shottimer, :hit_timer, :flush_image

  # 初期化処理
  def initialize(x, y)
    super
    self.bx = x
    self.by = y
    self.image = $imgs[1]
    self.flush_image = $imgs[7]
    self.shottimer = 0
    self.collision = [16, 16, 4] # アタリ範囲を設定
    self.hit_timer = 0

    # self.offset_sync = true # DXRuby開発版でのみ使えるプロパティ
  end

  def update
    w, h = self.image.width, self.image.height

    # マウスカーソル座標を自機座標にする
    self.bx = Input.mousePosX
    self.by = Input.mousePosY

    xmin, ymin = 0, 0
    xmax, ymax = Window.width, Window.height
    self.bx = xmin if self.bx < xmin
    self.by = ymin if self.by < ymin
    self.bx = xmax if self.bx > xmax
    self.by = ymax if self.by > ymax

    if self.shottimer % 10 == 0
      # 自機ショットを発射
      [270, 30, 150].each do |i|
        spr = Shot.new(self.bx, self.by, 16, i + self.bx / 4)
        $shots.push(spr)
      end
    end

    self.shottimer += 1
    self.angle += 8

    if self.hit_timer > 0
      self.hit_timer -= 1
      self.hit_timer = 0 if self.hit_timer <= 0
    else
      self.hit_timer = 0
    end

    # 基準座標＋オフセット値を表示座標とする。
    # DXRuby開発版なら、self.offset_sync = true で済んでしまうのだけど、
    # 開発版は Ruby 1.8 や 1.9 に対応してないので…
    self.x = self.bx - w / 2
    self.y = self.by - h / 2
  end

  # 雑魚敵と当たった時に呼ばれる処理
  def hit(o)
    self.hit_timer = 4
  end

  def draw
    super
    if self.hit_timer > 0
      Window.drawScale(self.x, self.y, self.flush_image, 3, 3)
    end
  end
end

# ----------------------------------------
# プレイヤーの弾
class Shot < Sprite
  attr_accessor :bx, :by, :dx, :dy

  def initialize(x, y, spd, angle)
    self.bx = x
    self.by = y
    self.image = $imgs[0]
    self.dx = spd * Math.cos(deg2rad(angle))
    self.dy = spd * Math.sin(deg2rad(angle))
    self.angle = angle
    self.collision = [0, 13, 31, 18]
    self.collision_enable = true
    self.collision_sync = true
  end

  def update
    w, h = self.image.width, self.image.height
    self.bx += self.dx
    self.by += self.dy

    # 画面外に出たら自分を消滅させる
    xmin = - w / 2
    ymin = - h / 2
    xmax = Window.width + w / 2
    ymax = Window.height + h / 2
    if self.x < xmin or self.x > xmax or self.y < ymin or self.y > ymax
      self.vanish
    end

    self.x = self.bx - w / 2
    self.y = self.by - h / 2
  end

  # 敵に当たった場合に呼ばれるメソッド
  def shot(d)
    self.vanish # 自分を消滅させる
  end
end

# ----------------------------------------
# 雑魚敵
class Enemy < Sprite
  attr_accessor :bx, :by, :dir, :dx, :dy
  attr_accessor :hit_timer, :spd, :org_image, :flush_image

  def initialize(spd)
    self.org_image = $imgs[2]
    self.image = self.org_image
    self.flush_image =  $imgs[3]

    # DXRuby開発版でのみ利用可能。フラッシュ画像を作れる
    # self.flush_image = self.org_image.flush(C_WHITE)

    self.spd = spd
    self.collision = [0, 0, 31, 31]
    self.init
  end

  # 発生時の初期化処理
  def init
    self.bx = rand(Window.width)
    self.by = rand(Window.height)
    self.collision_enable = false
    self.collision_sync = false
    self.hit_timer = 0
    self.alpha = 0
  end

  # 更新処理
  def update
    w, h = self.image.width, self.image.height

    if self.alpha < 255
      # 出現中
      self.collision_enable = false
      self.alpha += 5
      if self.alpha >= 255
        self.alpha = 255

        # プレイヤーを狙った速度を決める
        ply = $players[0]
        self.dir = Math.atan2(ply.by - self.by, ply.bx - self.bx)
        self.dx = spd * Math.cos(self.dir)
        self.dy = spd * Math.sin(self.dir)
      end
    else
      # 移動中

      if self.hit_timer > 0
        # 弾が当たっているなら一定時間フラッシュさせる
        self.hit_timer -= 1
        self.collision_enable = false

        # フラッシュ時間が終わったら再発生
        self.init if self.hit_timer <= 0
      else
        # 弾は当たってない
        self.hit_timer = 0
        self.collision_enable = true

        # 移動
        self.bx += self.dx
        self.by += self.dy

        # 画面外に出たら再発生
        xmin = - w / 2
        ymin = - h / 2
        xmax = Window.width + w / 2
        ymax = Window.height + h / 2
        if self.x < xmin or self.x > xmax or self.y < ymin or self.y > ymax
          self.init
        end
      end
    end

    self.image = (self.hit_timer <= 0)? self.org_image : self.flush_image

    self.x = self.bx - w / 2
    self.y = self.by - h / 2
  end

  # プレイヤーの弾と当たった時に呼ばれるメソッド
  def hit(o)
    self.hit_timer = 4
  end

  # プレイヤーと当たった時に呼ばれるメソッド
  def shot(d)
  end
end

# ----------------------------------------
# メイン

# Input.mouseEnable = false # マウスカーソル非表示

srand(0)
$players = []
$shots = []
$enemys = []
$players.push(Player.new(0, 0))
8.times {|i| $enemys.push(Enemy.new(2))}

in_pause = false

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

  update_enable = false
  if in_pause
    # ポーズ中

    # Nキー押しで1フレーム進める
    update_enable = true if Input.keyPush?(K_N)

    # Pキーを押したらポーズ解除
    in_pause = false if Input.keyPush?(K_P)
  else
    # 通常処理
    in_pause = true if Input.keyPush?(K_P) # Pキーを押したらポーズ
    update_enable = true unless in_pause
  end

  if update_enable
    # プレイヤーの弾と雑魚敵の衝突判定
    Sprite.check($shots, $enemys)

    # 雑魚敵とプレイヤーの衝突判定
    Sprite.check($enemys, $players)

    Sprite.update($players)
    Sprite.update($shots)
    Sprite.update($enemys)

    Sprite.clean($shots)
    Sprite.clean($enemys)
  end

  Sprite.draw($enemys)
  Sprite.draw($players)
  Sprite.draw($shots)

  l = $players.length + $shots.length + $enemys.length
  Window.drawFont(0, 0, "Sprs: " + ('■' * l), font)
  Window.drawFont(0, 16, "PAUSE", font) if in_pause == 0
end

__END__
iVBORw0KGgoAAAANSUhEUgAAAQAAAAAgCAMAAADKd1bWAAAAwFBMVEV/AACg
AADAAADgAAD/HBz/cHD/qKj/xMT/4OAAwAAMdwBN/03/////Ziv/hk3/p3D/
x5OROADaLAAwMDBgYGCUlJSwsLDg4ODExMT///+goKSyAKwAAAAAAAAAAAAA
AAD/////ior/KyubAAD/////u4n/mSuacwDLy8vvdi7EUgCJBgD/Kyv/biv/
dCv/uSsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAACCWjOjAAAAHHRSTlP/////////////////////////////////
//8AF7Li1wAAA0tJREFUeJzlmd2SokAMhbVquNhdB91tcKW4USj1wkLe/+02
P40ESDN2iyNbnuJiTKYczjdJaLoXuYfSdAdK005wJ6UEMinMDwLfpsJKxhY+
X2ASIJAmRsa20q4xg0CW9QwPAt8ksv4J6jLwAoAIuvbB7zZtRQC6gZkAYPcV
iRnYhBcArQXArzE6AIjPBQDZv8anGHSKr4SAM4+3AADYOQDs5gIA/V/jeL0+
gtbrGBA0BN6iBfDfD/aPG/64OQICLAL88HAL5InpKukEBoZf478C+zIECCom
8HAL5H/FyG/UhmYAAOu/558IcBdMMQOaajdmScKfXC0wTgCnc1m6bwBn+OXi
zteg87kX1Pw3BCYEQPY/UIwgAECzTnEhqKxc+dqqm6f5N/APBGgSegGA/say
Towk0AJYfkQoQhACoCgOh8MIgaqC/AiBuob8kAAVgPb7XAIeAND/T1CXgAVA
/rOsT8ADAPrfjxBA//sRAuh/rxBwFIAtga8BpIYvQ/5/gIgAGMzpagFE6IcJ
BAGA+99bAioAm3cCsPkeACqAjeZsQyWgA9iw8PbShC8Q+P8FQgKgNKdrawc/
FUCnBFj3AoAC2KNcJQAFwHlHCUABcL5XAkVRndQOgB44VQoAXC+B2D/c344W
dLjWI/+rFRHAj4auvAVgW6AD4O7HYCErQAfQVoAOoK0ACQDWAGoHYA/AWmDx
m/QHhG9KnzGJCPAdwtCjCwQAViAEQMOQLv6u2wgUAOTfGvVuAYgZoAIQM0AF
IGbAqwFEYQBuTwHwrwG4PQUqJV/X7VOgLj0A9KPeLWAXgbAGuPnPIgSgbYi4
KZSFkGLwUgkp+XMt9AgAks8QbAA0BKABomUD4P4h+DQAvkOwr/sfgx+s0HVA
Oeof8qP+Ia/6D3wMqvpqIcQEoP55MewNoBT+NYOl8K/mhf8JF0I9AmNLYUYQ
LZdhS+GSEZS6P8o39l35xv5zlsJ3vAw1CnsZKm/S/3xYfsKXIX0/QO5/tK/D
YRsiY/aC809+HX6rDRHHrrDcAhSbIQEbIs/RdFtib78p6toWn/25wFTb4q6D
kdmfC0x1MPK/tkA+1dGY2gLdU4FBYCYApjkcVQ9Gev4HgYHd1/hHacfj/wAC
/D82nEMmSwAAAABJRU5ErkJggg==

• 画面には、中華鍋＋御飯、サブ画面で観客、が表示されてる。
• スマホを上手に振ると、御飯が宙を舞い、中華鍋に戻ってくる。
• 成功するたびに、「NICE!」「RICE!」「NICE!」「RICE!」と喋る。
• 成功するたびに、サブ画面内の観客が「ほほぅ…」という表情になる。成功回数が増えると息が荒くなり「ハァハァ」感が強い恍惚とした表情に。
• 一定時間が経つと出来上がり。結果判定。
• 上手にチャーハンが作れたら、観客がスタンディングオベーション。
• 酷い出来ならブーイング。
• あるいは結果で、美少女 or イケメンキャラに褒めてもらったりガッカリされたり？

◎ Androidの加速度センサについて検索してみたり。 :

• CPU: AMD AthlonII X4 605e (4コア, 2.3GHz, TDP 45W)
• M/B: ASRock M3A785GMH/128M (MicroATX, Socket AM3, AMD 785G)
• MEM: SanMax SMD-8G68NVLP-13H-D(PC3-10600, DDR3-1333, 4GB, CL9, ロープロ) x 2
• SSD: Kingston SVP100S2/96G (96GB, SATA, 2.5インチ, 9.5mm？)
• HDD: Hitachi HDP725050GLAT80 (500GB, IDE, 7200rpm)
• チューナーカード: アースソフト PT1 (PCI接続)
• カードリーダー: gemalto PC-USB-TR (USB接続)
• OS: Windows7 Home x64 (ライセンスは、Vistaからのアップグレード)
• 分波器: 地上波+BSが混合された1端子から、地上波x2、BSx2の4つに分配・分波してくれる品。

◎ とりあえずバイナリを相手先に送っておいた。 :

◎ 他に思ったこと :

◎ _開発を支えた小物ツールたち :

◎ リンクと言えばプラネテス原作版も結局はリンクの重要性を語っていたような :