mieki256's diary

2024/02/24(土) [n年前の日記]

#1 [basic] FreeBASICでOpenGLのglBitmap()を利用してみる

#1 [basic] FreeBASICでOpenGLのglBitmap()を利用してみる

#1 [pc] HDDの中身を移動して整理中

#2 [anime] 「100カメ アニメ 進撃の巨人」を視聴

#3 [anime] 「あさイチ プレミアムトーク 日高のり子 奥深き声の世界!タッチ&トトロ」を視聴

#1 [pc] メインPCの電源LEDが点いてないことに気が付いた

#1 [raspberrypi][love2d] SDL2をRaspberry Pi Zero W向けにビルドし直し

#1 [nitijyou] 飼い犬の体調が悪い

#1 [anime] 「快盗戦隊ルパンレンジャーVS警察戦隊パトレンジャー」最終回を視聴

#2 [anime][neta] ラノベをいきなりアニメ化しないほうが良かったりしないかな

#1 [dxruby] DXOpalのz値指定描画について

#1 [cg_tools][wings3d] Wings 3D で K-3D のチュートリアルを再現してみたり

#2 [cg_tools][blender] blender で K-3D のチュートリアルを再現してみたり

#3 [nitijyou] 電動自転車の後ろのタイヤを交換

#4 [zatta] 変速機についてググったり

#1 [gimp] GIMP 2.8.16 Portableをインストール

#1 [dxruby][cg_tools] エフェクト作成で悩んでいたり

#1 [pc][windows] ネットブック機を久々に起動

#1 [prog] NetBeans 7.3にアップデートした

#2 [web] Google web fonts APIなるものを使ってみたり

#1 [javascript] Skept IDE スタンドアロン版をインストールしてみたけれど

#2 [xyzzy] xyzzyにjavascript-modeをインストール

#3 [windows] Windows7上でpatch.exeが動かない

#4 [nitijyou] CD-Rの中身をHDDにコピーして整理中

#1 [cg_tools] Shade12で結構酷い目に合っている気がする

#2 [cg_tools] EDGE2のユーザ登録が解除されてしまった

#1 [anime] フレッシュプリキュア最終回までとハートキャッチプリキュアの3話までを視聴

#2 [anime] 「APPLESEED EX MACHINA -エクスマキナ-」を視聴

#1 [pc] Canon iP4300、目詰まり改善せず

#1 [eclipse] eclipseのMylarだかMylynだかタスクリストだかは今一つ

#2 [iappli] ひたすらiアプリのソースに仕様を追加

#1 [nitijyou] ktのページ作成中

#2 [anime] 「100カメアニメ進撃の巨人」を視聴

#3 [anime] 「あさイチプレミアムトーク日高のり子奥深き声の世界!タッチ&トトロ」を視聴

◎ ビットマップデータを用意する :

◎ ソース :

◎ ビットマップデータを用意する :

◎ ソース :

◎ 外付けHDDケースについて :

◎ CLS35EU3BFがベタベタする :

◎ 2023/03/23追記。 :

◎ 2022/02/28追記。 :

◎ SDL2関係のメモ。 :

◎ SDL2関係のソースをまとめて入手。 :

◎ ビルドするためのディレクトリを作成。 :

◎ ビルドに必要なパッケージをインストール。 :

◎ SDL2をビルド。 :

◎ SDL_image 2.0をビルド。 :

◎ SMPEG 2.0をビルド。 :

◎ SDL_mixer 2.0をビルド。 :

◎ SDL_net 2.0をビルド。 :

◎ SDL_ttf 2.0をビルド。 :

◎ OpenALをビルド。 :

◎ Theoraをビルド。 :

◎ 共有ライブラリの優先度を変更。 :

◎ love2dをビルドし直し。 :

◎ 動作確認。 :

◎ 2Dゲーム制作ライブラリの雑感。 :

◎ DXRubyで動作確認。 :

◎ DXOpalで動作確認。 :

◎ 少し調べてみた。 :

◎ キャプチャ作業時に使ったソフト。 :

◎ キャプチャ時の余談。 :

◎ 交換作業のアレコレをメモ。 :

◎ 余談。 :

◎ バイナリを入手。 :

◎ メニュー等を日本語化。 :

◎ データフォルダを追加。 :

◎ GAPをインストール。 :

◎ G'MICプラグインをインストール。 :

◎ マウスホイールでキャンバスの拡大縮小ができるように設定。 :

◎ ブラシサイズのリセットにショートカットキーを割り当て。 :

◎ ショートカットキー変更。 :

◎ pspiを設定。 :

◎ Gimp Lens fun をインストール。 :

◎ バッテリー関係で若干焦った。 :

◎ デフラグをかけた。 :

◎ USBメモリにUbuntuインストール用のアレコレをインストール。 :

この記事へのツッコミ

◎ OpenGL Extensions Viewer 3.35をインストールしてチェックしてみた。 :

◎ フレッシュプリキュア最終回。 :

◎ ハートキャッチプリキュアを視聴。 :

◎ 全然関係ないけど歴代プリキュア大集合パート2映画のCMを見て何かもやもやと。 :

◎ _mylynのタスクをExcelに出力する - kwLog :

◎ 画像チェックをちゃんとやるべきだった。 :

◎ _スーパーの袋に赤ん坊の遺体愛知・一色町の公園造成地 :

◎ _セイコーデジタルストップウオッチスタンダード :

◎ _「イマハ　ヨル　デスカ(Y/N)?」 :

OpenGLにはglBitmap()という、二値画像相当を描画する機能がある。

_ビットマップ

これを FreeBASIC から利用できるのかどうか試してみた。環境は Windows10 x64 22H2 + FreeBASIC 1.10.1 32bit。

まず、以下の画像を、FreeBASIC から利用できる形に ―― 例えば配列変数の形に変換しなけれないけない。

_image_32x32.png
_image_lena.png

変換するための Pythonスクリプトを書いてみた。

_png2bitsbas.py

動作には Pillow が必要。
Python 3.10.10 + Pillow 10.2.0 で動作確認した。
License: CC0 / Public Domain

使い方は以下。標準出力に結果を出力するので、「>」を使ってファイルに保存する。

python png2bitsbas.py -i image.png

python png2bitsbas.py -i image.png > image.bi

変換すると以下のような出力結果が得られる。

_image_32x32.bi
_image_lena.bi

これを FreeBASIC のソース(.bas) で include すれば、バイナリデータに対して配列変数の形でアクセスできるようになる。

注意点。現状の FreeBASIC 1.10.1 は巨大な配列を作るとコンパイルに失敗する。今回は 1bit = 1dot のデータなのでそこまで大きくならなかったけど、もし大き目なバイナリデータを含めたい場合は、DATA文を利用するとか、バイナリデータをオブジェクトファイルに変換してリンクする、といった手段を使うことになる。

FreeBASIC で glBitmap() を利用するソースは以下。

_glbitmap_test01.bas

#include once "fbgfx.bi"
Using FB
#include once "GL/gl.bi"
#include once "GL/glu.bi"

' include glbitmap binary data
#include "image_32x32.bi"
#include "image_lena.bi"

ChDir ExePath()

Const SCRW = 480
Const SCRH = 270
ScreenRes SCRW, SCRH, 32, ,GFX_OPENGL

' get window size
Dim shared As Integer scr_w, scr_h, sdepth
ScreenInfo scr_w, scr_h, sdepth

' OpenGL Config
glViewport 0, 0, scr_w, scr_h
glMatrixMode(GL_PROJECTION)
glLoadIdentity()

glOrtho(0, scr_w, scr_h, 0, 5.0, -5.0)
' gluPerspective 45.0, w/h, 0.1, 100.0

glMatrixMode(GL_MODELVIEW)
glLoadIdentity()

glClearColor(0, 0, 0, 1)
glShadeModel(GL_SMOOTH)

glDisable(GL_DEPTH_TEST)
' glDepthFunc(GL_LEQUAL)
glHint(GL_PERSPECTIVE_CORRECTION_HINT, GL_NICEST)

Dim As Boolean running = True

' main loop
While running
    
    ' ESC or Q key to exit
    Dim As String k = inkey$
    If k = Chr$(27) Or k = "q" Or k = Chr$(255) + "k" Then
        running = False
    End If

    ' draw start

    ' clear screen
    glClear(GL_COLOR_BUFFER_BIT)
    
    glPixelStorei(GL_UNPACK_ALIGNMENT, 1)

    Dim As GLsizei w, h
    Dim As GLfloat xorig, yorig, xmove, ymove

    ' draw arrow bitmap
    w = IMAGE_32X32_PNG_WIDTH
    h = IMAGE_32X32_PNG_HEIGHT
    xorig = 0.0
    yorig = 0.0
    xmove = 0.0
    ymove = 0.0
    glColor4f(1, 1, 1, 1)  ' set color
    glRasterPos2f(32, 32 + h)  ' set position
    glBitmap(w, h, xorig, yorig, xmove, ymove, @image_32x32_png(0))

    ' draw lena bitmap
    w = IMAGE_LENA_PNG_WIDTH
    h = IMAGE_LENA_PNG_HEIGHT
    xorig = 0.0
    yorig = 0.0
    xmove = 0.0
    ymove = 0.0
    glColor4f(1, 1, 1, 1)  ' set color
    glRasterPos2f(100, 32 + h)  ' set position
    glBitmap(w, h, xorig, yorig, xmove, ymove, @image_lena_png(0))

    flip  ' double buffer flip
    sleep 10
Wend

fbc glbitmap_test01.bas でコンパイル。実行結果は以下。

ということで、FreeBASIC から OpenGL の glBitmap() を利用することができると分かった。

機種	送信	受信
MOVA 503/504	5kB	10kB
MOVA 505/506	10kB	20kB
FOMA 2001/2002/2101	80kB	100kB
FOMA 2051/2102/2701/900/901/700	80kB	150kB

種別	型	説明
論理値	boolean	真偽値。true または false。
文字	char	2バイトUNICODE文字。'\u0000'～'\uffff'。
整数	byte	1バイト符号付整数。-128～127。
整数	short	2バイト符号付整数。-32768～32767。
整数	int	4バイト符号付整数。-2147483648～2147483647。
整数	long	8バイト符号付整数。約-922京～約922京。
浮動小数	float	4バイト浮動小数点数。
浮動少数	double	8バイト浮動小数点数。

Prev - 2024/07 - Next