mieki256's diary

◎ インストール :

fbs3d.bi
fbsound_dynamic.bi
fbsound_oop.bi

fbsound-32.dll
fbsound-64.dll
fbsound-ds-32.dll
fbsound-ds-64.dll
fbsound-mm-32.dll
fbsound-mm-64.dll

#include "fbsound_dynamic.bi"

◎ 動作確認 :

' wave play sample with FBSound

#include "fbsound_dynamic.bi"

chdir(exepath())

' FBSound initialize
If fbs_Init() = True Then
    Print "fbs_Init() success."
Else
    Print "Error : fbs_Init() failure"
    Print FBS_Get_PlugError()
    Beep
    sleep
    end 1
End If

dim as integer hWave1, hWave2, hWave3

#ifdef 0

' load wav file
Print "load wav file"
fbs_Load_WAVFile("1.wav", @hWave1)
fbs_Load_WAVFile("2.wav", @hWave2)
fbs_Load_WAVFile("3.wav", @hWave3)

#Else

' load ogg file
Print "load ogg file"
fbs_Load_OGGFile("1.ogg", @hWave1)
fbs_Load_OGGFile("2.ogg", @hWave2)
fbs_Load_OGGFile("3.ogg", @hWave3)

#endif

Print "Play : 1 - 3 key"
Print "Exit : ESC key"

Dim As Boolean running = True
Dim As String k

While running
    Dim As String k = inkey$
    Select Case k
    Case "1": fbs_Play_Wave(hWave1)
    Case "2": fbs_Play_Wave(hWave2)
    Case "3": fbs_Play_Wave(hWave3)
    Case Chr(27): running = False
    End Select
    
    sleep 100
Wend

Print "Exit."

◎ modも鳴らせる :

◎ インストール :

#include "FBWindowsSoundWav.bas"

Dim fb_Wav As FbWAV Ptr

LoadWav("1.wav", fb_Wav)
PlayWav(fb_Wav)

Do
    Var key = Inkey
    Select Case key
    Case "s" : StopWav(fb_Wav)
    Case "p" : PlayWav(fb_Wav)
    Case "q" : Exit Do
    Case " "
        PauseWAV(fb_Wav)
        Sleep(100)
    End Select

    Var sp = StatusPlay(fb_Wav)
    Sleep(100)

    Cls
    Select Case sp
    Case 1 : Print "Play"
    Case 0 : Print "Stop"
    Case 2 : Print "Pause"
    End Select

    Print "Length=" & GetLengthSeconds(fb_Wav) & " seconds"
    Print "s)top / p)lay / q)uit / SPACE : Pause"
Loop

FreeWav(fb_Wav)

◎ インストール :

◎ 動作確認 :

◎ インストール :

bass24.zip
bassmod20.zip

◎ 動作確認 :

> fbc mod.bas
mod.bas(15) error 58: Type mismatch, at parameter 2 of BASSMOD_MUSICLOAD() in 'If (BASSMOD_MusicLoad(FALSE, sound_file, 0, 0, BASS_MUSIC_LOOP) = False) Then'

declare function BASSMOD_MusicLoad(byval mem as BOOL, byval file as any ptr, byval offset as DWORD, byval length as DWORD, byval flags as DWORD) as BOOL

' ↓

declare function BASSMOD_MusicLoad(byval mem as BOOL, byval file as const zstring ptr, byval offset as DWORD, byval length as DWORD, byval flags as DWORD) as BOOL

◎ PortAudioをMinGWでビルド :

./configure
make

libportaudio.dll.a
libportaudio.la
libportaudio-2.dll

◎ FreeBASICで使用 :

◎ 別版バイナリを試用 :

.
|-- lib
|   |-- lin32                   (Linux 32bit)
|   |   `-- libportaudio-2.so
|   |-- lin64                   (Linux 64bit)
|   |   `-- libportaudio-2.so
|   |-- win32                   (Windows 32bit)
|   |   `-- libportaudio-2.dll
|   `-- win64                   (Windows 64bit)
|       `-- libportaudio-2.dll
|-- enumerate.bas               (sample)
|-- pa_dynamic.bi               (FreeBASIC Header file)
`-- streamcallback.bas          (sample)

5 directories, 7 files

PortAudio V19-devel (built May 13 2016 04:39:45)

(0) input  Microsoft Sound Mapper - Input
(1) input  マイク (Realtek(R) Audio)
(2) input  ステレオ ミキサー (Realtek(R) A
(3) output Microsoft Sound Mapper - Output
(4) output スピーカー (Realtek(R) Audio)
(5) output Realtek Digital Output (Realtek

◎ 更に別の版を試用 :

patest_devs.bas
patest_sine.bas
patest_version.bas

◎ 状況が混乱している気がする :

◎ バッテリーの容量をCUIで知りたい。 :

sudo apt install acpi
acpi -h

$ acpi -b
Battery 0: Discharging, 46%, 01:10:07 remaining

$ acpi -i
Battery 0: Discharging, 45%, 01:18:48 remaining
Battery 0: design capacity 4860 mAh, last full capacity 2737 mAh = 56%

$ acpi -V
Battery 0: Discharging, 44%, 01:14:00 remaining
Battery 0: design capacity 4860 mAh, last full capacity 2737 mAh = 56%
Adapter 0: off-line
Thermal 0: ok, 40.0 degrees C
Thermal 0: trip point 0 switches to mode critical at temperature 102.0 degrees C
Cooling 0: Processor 0 of 10
Cooling 1: LCD 6 of 10
Cooling 2: Processor 0 of 10

$ upower -e
/org/freedesktop/UPower/devices/line_power_AC
/org/freedesktop/UPower/devices/battery_BAT0
/org/freedesktop/UPower/devices/DisplayDevice

$ upower -i /org/freedesktop/UPower/devices/battery_BAT0
  native-path:          BAT0
  vendor:               SANYO
  model:                GC86508SAT0
  power supply:         yes
  updated:              2023年01月27日 05時48分32秒 (95 seconds ago)
  has history:          yes
  has statistics:       yes
  battery
    present:             yes
    rechargeable:        yes
    state:               discharging
    warning-level:       none
    energy:              10.0548 Wh
    energy-empty:        0 Wh
    energy-full:         29.5596 Wh
    energy-full-design:  52.488 Wh
    energy-rate:         10.368 W
    voltage:             11.08 V
    time to empty:       58.2 minutes
    percentage:          34%
    capacity:            56.3169%
    technology:          lithium-ion
    icon-name:          'battery-good-symbolic'
  History (charge):
    1674766112  34.000  discharging
  History (rate):
    1674766112  10.368  discharging

◎ GUIのファイラーをインストール :

sudo apt install thunar xfe

◎ LoVE Web Builderを試用。 :

◎ ローカル環境で簡易Webサーバを起動して動作確認。 :

◎ 安定器が怪しい。 :

◎ キーボードのキーを増やす。 :

まずは、キーボードのキーを1つ分描く。

Inkscape は、塗り(フィル)と線(ストローク)にグラデーションを指定することができるので、そのあたりを使えばちょっとリアルっぽい見た目の画像を作れるはず。もちろん、パスで細かく分けて、ベタ塗りしてそれらしくすることもできるけど。

キーを増やすための下準備として、キー1つ分をグループ化する。選択した状態で、オブジェクト → グループ化。

ちなみに、ショートカットキー、Ctrl + G でもグループ化できるし、ツールバー上に「グループ化」「グループ解除」のアイコンもあるので、そちらをクリックしても目的は果たせる。

タイルクローンを使って、キーを大量に複製する。キー1つ分を選択した状態で、編集 → クローン → タイルクローンを作成。

「タイルクローンを作成」ダイアログが開くので、「行、列」に増やしたい数を、「水平シフト」「垂直シフト」に、それぞれをずらす量を指定して、右下の「作成」ボタンをクリック。

もし、結果が今一つなら、右下の「削除」ボタンをクリックすれば、作成したソレを削除してやり直すこともできる。

キーが大量にクローン複製された状態になった。

上から2段目、3段目、4段目を選択して、位置を調整。また、不要なキーを選択・削除して、数を整える。

ちなみに、Ctrlキーを押しながらマウスをドラッグすれば、縦方向もしくは横方向に制限をつけた状態で位置を移動できる。あるいは、キーボードのカーソルキーを叩いて、縦方向や横方向に移動することもできる。

◎ キー刻印を追加する。 :

キー刻印を追加するために、レイヤーを追加する。レイヤーウインドウの左下の「＋」ボタンで、キー刻印を載せるレイヤーを追加。更に、先ほど大量に増やしたキーの下地部分は選択できない状態にしたいので、キーの下地が載っているレイヤーは、鍵アイコンをクリックしてロック状態にする。

テキストツールを使って、キー刻印にしたいテキストを打ち込む。

このままだと、テキストはテキストデータのままなので、パスに変換してやる。パス → オブジェクトをパスへ、を選択。

1文字ずつバラバラにしたいので、グループ解除をしてやる。

1文字ずつバラバラの状態になった。

キーの下地に合わせて配置する。一番左の文字と、一番右の文字の位置を合わせる。

配置したい文字部分を全て選択。

「整列と配置」を使って、位置を整列・配置する。「整列と配置」ウインドウが表示されてなければ、オブジェクト → 整列と配置。もしくは、ツールバー上のアイコンをクリックしても、「整列と配置」ウインドウが表示される。

整列や配置の各ボタンをクリックして、等間隔に配置したり、上下位置を整列したりする。

奇麗に並んでくれた。

他に必要なキー刻印も追加する。以下のような並びになった。

◎ 結果画像。 :

◎ キーの下地を修正したい場合。 :

キー刻印を並べてから、キーの下地の見た目を変えたいときは、タイルクローンのオリジナルを修正してやれば、クローンされた他の部分にも反映される。…先ほど、タイルクローン部分のレイヤーをロックしてたので、ロック状態を外してから作業すること。

タイルクローンの場合、オリジナルの上に、クローンされたソレが重なっているので、そこは注意。おそらく、重なったクローン部分は削除しても構わないような気もする。

選択したソレがクローンなのか、オリジナルなのかは、ステータスバーの表示を見れば確認できる。

一番左に「クローン」と書いてあるし、「Shift + D でオリジナルを探せるよ」と表示されたならクローン、と判断することもできる。

C:\Users\Public\Documents\My DAZ 3D Library\

C:\Users\Public\Documents\My DAZ 3D Library\Runtime\

 A fatal error has occurred and Cygwin/X will now exit.
 Failed to activate core devices.

 Please open /var/log/xwin/XWin.9.log for more information.
 Vendor:  The Cygwin/X  Project
 Release: 1.18.2.0
 Package: version 1.18.2-1 built 2016-03-24

 XWin was started with the following command-line:
 XWin :9 -multiwindow -nomultimonitors -silent-dup-error -listen tcp

C:\Prog\FontForge>start /B XWin.exe :9 -multiwindow -nomultimonitors -silent-dup-error -listen tcp

C:\Prog\FontForge>xwin-close.exe -wait

      0 [main] sh (2824) C:\Prog\FontForge\cygwin\bin\sh.exe: *** fatal error - cygheap base mismatch detected - 0x134F400/0x11DF400.
This problem is probably due to using incompatible versions of the cygwin DLL.
Search for cygwin1.dll using the Windows Start->Find/Search facility  and delete all but the most recent version.
The most recent version *should*  reside in x:\cygwin\bin, where 'x' is the drive on which you have  installed the cygwin distribution.
Rebooting is also suggested if you  are unable to find another cygwin DLL.

      0 [main] sh (8844) C:\Prog\FontForge\cygwin\bin\sh.exe: *** fatal error - cygheap base mismatch detected - 0x134F400/0x13CF400.
This problem is probably due to using incompatible versions of the cygwin DLL.
Search for cygwin1.dll using the Windows Start->Find/Search facility  and delete all but the most recent version.
The most recent version *should*  reside in x:\cygwin\bin, where 'x' is the drive on which you have installed the cygwin distribution.
Rebooting is also suggested if you  are unable to find another cygwin DLL.

C:\Prog\FontForge>fontforge.exe -nosplash

C:\Prog\FontForge>xwin-close.exe -close

C:\Prog\FontForge>exit /B 0

HKEY_CURRENT_USER\SOFTWARE\Cygwin

◎ Xubuntuって意外と重いのだな。 :

◎ どうして32bit版をインストールしてたんだろう。 :

◎ 小屋の中に虫でもいるのだろうか。 :

require 'dxruby'

#
# Shaderを使ってMETALBLACKのタイトル画面っぽい処理をするクラス
#
class MbRaster

  @@hlsl = <<EOS
  float ang;
  float lvl;
  float spd;
  float alpha;
  texture tex0;

  sampler Samp = sampler_state
  {
    Texture =<tex0>;
    MinFilter = LINEAR;
    MagFilter = LINEAR;
    MipFilter = LINEAR;
    AddressU = WRAP;
    AddressV = WRAP;
    // AddressV = BORDER;
  };

  struct PixelIn
  {
    float2 UV : TEXCOORD0;
  };
  struct PixelOut
  {
    float4 Color : COLOR0;
  };

  PixelOut PS1(PixelIn input)
  {
    PixelOut output;
    // input.UV.x = input.UV.x + sin(radians(input.UV.x * 360 * spd + ang)) * lvl * 0.25;
    input.UV.y = input.UV.y + sin(radians(input.UV.y * 360 * spd - ang)) * lvl;
    output.Color = tex2D( Samp, input.UV );
    output.Color.a *= alpha;
    return output;
  }

  technique MbRasScroll
  {
   pass P0
   {
    PixelShader = compile ps_2_0 PS1();
   }
  }
EOS

  attr_accessor :core, :shader, :image, :w, :h, :tilew, :tileh
  attr_accessor :rt, :rt_w, :rt_h, :rt_scaley

  #
  # 初期化処理
  #
  # @param [Image] image 使用する画像
  # @param [int] w 描画横幅。nilならウインドウ横幅
  # @param [int] h 描画縦幅。nilならウインドウ縦幅
  #
  def initialize(image, w=nil, h=nil)
    self.core = Shader::Core.new(@@hlsl,
                                 {:ang=>:float, :lvl=>:float,
                                   :spd=>:float, :alpha=>:float})
    self.shader = Shader.new(self.core, "MbRasScroll")

    @image = image
    @w = (w == nil)? Window.width : w
    @h = (h == nil)? Window.height : h

    # 画面を覆い隠すタイル数を求める
    @tilew = @w.quo(@image.width).ceil
    @tileh = @h.quo(@image.height).ceil

    # RenderTarget の必要サイズを求める
    @rt_w = @image.width * @tilew
    @rt_h = @image.height * @tileh

    # y方向で拡大縮小して描画縦横幅に合わせる
    @rt_scaley = @h.quo(@rt_h)

    # Rendertarget生成
    @rt = RenderTarget.new(@rt_w, @rt_h)
  end

  #
  # 描画処理
  #
  # @param [int] x 描画位置x
  # @param [int] y 描画位置y
  # @param [float] u 横方向スクロール位置
  # @param [float] v 縦方向スクロール位置
  # @param [float] ang sinの開始角度。単位は度
  # @param [float] lvl sinの振幅幅
  # @param [float] spd sinの角度変化量
  # @param [Hash] opts オプション
  # @option opts [int] z 描画奥行情報
  # @option opts [float] alpha 透明度。0.0で透明。1.0で不透明
  # @option opts [Object] blend 合成方法。:add や :alpha が使えるはず
  #
  def draw(x, y, u, v, ang, lvl, spd, opts={})
    alpha = (opts.has_key?(:alpha))? opts[:alpha] : 1.0
    blend = (opts.has_key?(:blend))? opts[:blend] : :alpha
    z = (opts.has_key?(:z))? opts[:z] : 0

    self.shader.ang = ang
    self.shader.lvl = lvl
    self.shader.spd = spd
    self.shader.alpha = alpha

    # Shader が参照する画像を RenderTarget に作成
    @rt.draw_tile(0, 0, [[0]], [@image], u, v, @tilew, @tileh).update

    # Shader を使って描画
    Window.drawEx(x, y, @rt, :shader=>self.shader,
                  :scaley=>@rt_scaley, :z=>z, :blend=>blend)
  end

  #
  # 動作確認用。グリッド画像を生成して返す
  #
  # @param [int] w 画像横幅
  # @param [int] h 画像縦幅
  # @return [Image] 生成した画像
  #
  def self.get_grid_image(w, h)
    image = Image.new(w, h, [0, 255, 0])
    image.box_fill(0, 0, w / 2 - 1, h / 2 - 1, [150,250,150])
    image.box_fill(w / 2, 0, w - 1, h / 2 - 1, [100,250,100])
    image.box_fill(0, h / 2, w / 2 - 1, h - 1, [200,250,200])
    image.box_fill(w / 2, h / 2, w - 1, h - 1, [0,220,0])
    return image
  end
end

# ----------------------------------------
# 以下は使用例

if __FILE__ == $0

  image = Image.load("logo.png")
  bg = MbRaster.new(image)

  x = 0
  y = 0
  u = 0
  v = 0
  ang = 360
  lvldef = 0.35
  lvl = lvldef
  spd = 1.0
  cnt = 0

  font = Font.new(14)

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

    # マウスカーソル座標でパラメータを変えてみる
    ang = Input.mousePosX * 360 / 640.0
    lvl = Input.mousePosY / 240.0  - 1.0
    # spd = Input.mousePosY / 480.0

    bg.draw(x, y, u, v, ang, lvl, spd)
    # u += 1
    # v += 2

    Window.drawFont(4, 4, "ang=#{ang} , lvl=#{lvl} , spd=#{spd}", font)
    Window.drawFont(4, 20, "Please move mouse cursor", font)
    cnt += 1
  end
end

◎ 画像とBGマップについて。 :

◎ DXRuby開発版について。 :

◎ tmxライブラリについて。 :

gem install tmx

◎ 2014/02/02追記。 :

◎ 2017/03/19追記。 :

• 分配器 PLANEX PL-ANT02PESET、2分配器 + F型アンテナケーブル1m x 2のセット。840円。
• HDMIケーブル PLANEX PL-HDMI02-EZ、HDMI 1.4対応、2m。762円。
• 2.5→3.5型変換ブラケット Owltech OWL-BRKT04(B)。527円。

◎ PowerDVD 11の動作が怪しい気がする。 :

◎ 一応注文もしておいた。 :

• 白倉Pの名前が無くてビックリ。武部P作品という認識でいいのかな…。
• OPが好み。特に鎖関係のカットは全カットがカッコいい。手前に破片が飛んでくるあたりはシビレタ。
• コウモリが逆さにぶらさがることからの連想なのか、OPで画面を逆さにしたり、本編中で画面を逆さにして時間の切替提示をするあたりに感心。このへんが田崎演出、なのだろうか。
• OP映像を見た感じ、耽美さを追求するライダーなのかなと期待したら、見た目変質者が魚の骨を集めるという本編の展開で、ギャップに思わず目まいが。＜褒めてます。変人を書かせたら井上脚本はピカイチ。かもしれず。
• 過去の話と現在の話を同時進行するあたりが、なんだか変わってて面白いなと。ただ、脚本を読んで監督が頭を抱えたであろう様子が画面からも伝わってきたような。脚本上では「1986年」「2008年」と書けば済むけど、それを映像でどうやって伝えるか。床に「2008年」と描いちゃうのはどうなんだろう。でも、見ていて面白いけど。
• とうとうライダーベルトが知性を持った！ これはライダーシリーズ初なのでは。と思ったけど自分の中では新鮮味を感じなくて何故なんだろうと。…ついこないだまでリュウケンドーでそういう設定をやってたから、かしら。あるいは、戦隊シリーズで似たような設定が既にあるからか。
• 相変わらず変身シーンでメロディアス(?)なSEが。電王の時の決め台詞と同様、変身時のSEに関しても「決め」となる「音」を用意したほうが、子供さんに受ける・覚えて貰えるということだろうか。子供向けの商品企画ってその手のテクニックが色々ありそうだなと想像。
• さりげなく、リアルに車を飛び越えるライダーのアクションに感心。ジャンプ台を上手に隠して映像を作ってるなと。つーか怖い撮影。万が一事故って足を引っ掛けたらどうなることやら。しかし…地味だ…。ライダーの人間離れした能力を情報として提示するはずのカットだろうけど、CGやワイヤーアクションを活用した映像と比べてしまうと…。いや、見た目が自然なこういうアクションこそ理想のアクション映像なのか。映像の嘘っぽさを排除すべく努力することも更なる高みに登る一つの道であろうし。しかし…地味だ…。
• ビルから出てきた龍にビックリ。なんでビルやねん。ヤバい薬でもキメながら設定作ったんだろうか。＜褒めてます。
• 次回へのヒキがイイ感じ。555その他でも使ってた定番のヒキではあろうけど、やっぱりベテラン脚本家だなと。

◎ プリキュア5の敵についてなんとなく思ったことをメモ。 :

◎ NANA、総集編、白ナナ新婚生活、パパラッチの回。 :

◎ ケロロ軍曹、温泉とカラーボックス、宇宙で昼食、黄蛙若蛙、転校生の回。 :

◎ 2006/01/29追記：今現在のその手の製品の内部写真を見せてもらった :

◎ _おじいちゃんのメモ - avast! 4 Antivirus :

◎ _avast! Antivirus Home Edition の設定方法 :

◎ セットアップでアレなところはファームウェアの更新作業 :

◎ _BHA - B's Recorder GOLD Ver1.82〜3.28→3.29 アップデータ :

◎ 相手先のPC、Duron 650MHz でも DVD は見れた :

• GlobalWIN Technology GW-8025/1800。回転数:1800rpm。風量:21.4CFM。19dB。\580。「ナノメーターセラミックベアリング採用」とある。
• ZAWARD ZGF80BR。回転数:2000rpm / 1000rpm。風量:22.70CFM / 11.35CFM。17.8dBA / 8.9dBA。\980。「ディンプル効果で3dBA低下を実現」とある。

◎ _凹みが効く? ゴルフボールのような羽根を採用したファンが発売予定! :

◎ _カテゴリ5とエンハンスドカテゴリ5はどのような違いがありますか :

◎ _ITmedia PCUPdate：いま求められるのは「通信速度と信頼性」──CAT6eケーブル導入のすすめ (2/2) - ケーブル交換だけで10Mbps前後の差が :

◎ _ツイストペアケーブル - Wikipedia :

ここに小泉が出てこないのは、米国での認知度が低いってことなんだろうな。

◎ ということでActivePerlのスクリプトを作成して対応 :

perl make_gimp_runall.pl

perl make_gimp_runall.pl 指定したいディレクトリ名

(define (my-run-all)
  (png2xcf "h:/temp/01.png" "h:/temp/01.xcf")
  (png2xcf "h:/temp/02.png" "h:/temp/02.xcf")
  (png2xcf "h:/temp/03.png" "h:/temp/03.xcf")
)
(script-fu-register "my-run-all"
                    _"<Toolbox>/Xtns/Script-Fu/Utils/my-run-all..."
                    "Converts all png to xcf"
                    "yourname"
                    "yourname"
                    "2005/01/28 04:43:09"
                    ""
                    )

perl make_gimp_runall.pl "x:\xxxx\xxxx" > run_all.scm

perl make_gimp_runall.pl "x:\xxxx\xxxx" > 〜\.gimp-1.2\scripts\run_all.scm

perl make_gimp_runall.pl --help

usage : perl make_gimp_runall.pl [directory]
        [ie=xxx] [oe=xxx] [sc=xxx] [osc=xxx]
        [gq] [user=xxx] [-h] [--help]

    directory   ディレクトリを指定
    ie=xxx      変換前の拡張子 (default ie=png)
    oe=xxx      変換後の拡張子 (default oe=xcf)
    sc=xxx      各ファイルに用いるスクリプト名 (default png2xcf)
    osc=xxx     出力スクリプトにつける名前 (default my-run-all)
    gq          (gimp-quit 0) を含ませる
    user=xxx    利用者名
    -h , --help このヘルプを表示

◎ 問題が :

◎ それにしても :

◎ 一概にフォーカスが云々という問題では無さそう :