mieki256's diary

• 時間を取得する機能。秒単位ではなく、ミリ秒 or マイクロ秒まで取得できないと困る。
• 時間待ちをする機能

◎ 時間の取得と時間待ち :

◎ ループを書いてみた :

Dim As Double start_time, prev_time, now_time, diff_time
Dim As Integer frame_count

frame_count = 0
start_time = Timer
prev_time = start_time

' 1秒間ループする
Do
    now_time = Timer
    diff_time = now_time - prev_time
    prev_time = now_time
    Print "Diff: "; diff_time
    
    sleep 10.0
    frame_count += 1
Loop until (now_time - start_time) > 1.0

Print "frame_count=" & frame_count

Print "Push Any Key"

sleep

> timer.exe
Diff:  1.00000761449337e-007
Diff:  0.01270929999918735
...
Diff:  0.01561659999970289
Diff:  0.01563919999898644
frame_count=62
Push Any Key

◎ 改良版のループを書いてみた :

#include "windows.bi"
#include "win/mmsystem.bi"

' mmsystem(マルチメディア関連ライブラリ)を利用して、
' Windows上のタイマー精度を一時的に 1msec に向上させる。
' 処理が終わったら本来のタイマー精度に戻すこと。

' mmsystemを利用
#include "windows.bi"
#include "win/mmsystem.bi"

Dim As Double start_time, prev_time, now_time, diff_time, one_frame
Dim frame_count As Integer 

' タイマー精度を1msecに向上
timeBeginPeriod(1)

' 1フレームあたりの本来の時間
one_frame = 1.0 / 60.0

frame_count = 0
start_time = Timer
prev_time = start_time

' 1秒間ループさせる
Do
    now_time = Timer
    diff_time = now_time - prev_time
    prev_time = now_time
    Print "Diff: "; diff_time

    If Timer < (now_time + one_frame) Then
        ' 本来のフレーム時間がまだ経過してないので sleep させる
        sleep ((now_time + one_frame) - Timer) * 1000.0
    End If
    frame_count += 1
Loop until (now_time - start_time) >= 1.0

' タイマー精度を本来のスペックに戻す
timeEndPeriod(1)

Print "frame_count=" & frame_count

Print "Push Any Key"

sleep

> timer2.exe
Diff:  1.00000761449337e-007
Diff:  0.01655399999981455
Diff:  0.01653780000015104
...
Diff:  0.01651980000133335
Diff:  0.01651969999875291
Diff:  0.01650789999985136
Diff:  0.01652210000065679
frame_count=62
Push Any Key

◎ ゲームのメインループっぽい処理を書いてみる :

' mmsystemを利用
#include "windows.bi"
#include "win/mmsystem.bi"

' fbgfxモードを使う
#Include "fbgfx.bi"
Using fb

' 画像読み込み用ライブラリ FBImage を使う
#include once "FBImage.bi"

' 円周率を定義
Const PI As Double = 3.1415926535897932

Dim As Double start_time, prev_time, now_time, diff_time, one_frame
Dim As Integer frame_count
Dim As String fps_text = "FPS"
Dim As Integer scrw, scrh, imgw, imgh

' カレントディレクトリを exeファイルのある場所にする
chdir exepath()

' ウインドウサイズと色深度を指定
scrw = 1280
scrh = 720
Screenres scrw, scrh, 32

' 画像読み込み
var img = LoadRGBAFile("image_circle_96x96.png")

' 画像の幅と高さを取得
imageinfo img, imgw, imgh

' タイマー精度を1msecに向上
timeBeginPeriod(1)

' 1フレームあたりの本来の時間
Dim As Double MAX_FPS = 60.0
one_frame = 1.0 / MAX_FPS

start_time = Timer
prev_time = start_time
frame_count = 0

Dim As Boolean running = True
Dim As Double angle = 0.0

' メインループ
While (running)

    ' 前回のフレームから何秒経過しているのかを取得。単位は秒(小数点以下有り)
    now_time = Timer
    If now_time >= prev_time Then
        diff_time = now_time - prev_time
    Else
        diff_time = one_frame
    End If
    prev_time = now_time

    If now_time >= start_time Then
        If (now_time - start_time) >= 1.0 Then
            ' FPSを取得
            fps_text = "FPS: " & frame_count
            start_time += 1.0
            frame_count = 0
        End If
    Else
        start_time = now_time
    End If

    If inkey() <> "" Then
        ' 何かのキーが押されたのでループ終了
        running = False
    End If

    angle += (1.0 * MAX_FPS) * diff_time

    ' 描画開始
    ScreenLock

    ' 画面クリア
    color RGB(255, 255, 255), RGB(30, 60, 120)
    cls

    ' 画像群を描画
    Dim As Integer x, y
    For i As Integer = 0 To 48
        Dim As Double ang = (angle + (i * 5.0)) * PI / 180.0
        x = (scrh * 0.4) * Cos(ang) + (scrw / 2) - (imgw / 2)
        y = (scrh * 0.4) * sin(ang) + (scrh / 2) - (imgh / 2)

        Put (x, y), img, TRANS  ' 画像を描画
    Next i

    ' 文字列を描画
    Draw String (10, 10), fps_text

    ' 描画終了
    ScreenUnlock

    If Timer < (now_time + one_frame) Then
        ' 本来のフレーム時間がまだ経過してないので sleep させる
        sleep ((now_time + one_frame) - Timer) * 1000.0
    End If

    frame_count += 1
Wend

' タイマー精度を本来のスペックに戻す
timeEndPeriod(1)

' 画像を使い終わったので破棄
ImageDestroy img

' 最後まで処理が来たのか確認するためにメッセージボックスを表示してみる
' MB_TOPMOST Or MB_SETFOREGROUND を指定しないと、メインウインドウの後ろに隠れてしまう
' MessageBox(NULL, "Cleanup", "Message", MB_OK Or MB_TOPMOST Or MB_SETFOREGROUND)

◎ ダブルバッファについて :

◎ ウインドウの閉じるボタンを押したらどうなるのか :

◎ 既に使われてるのではないかとググってみたり。 :

◎ コンテでも使えるのだろうか。 :

• キーフレームを打って自動補間させるアニメ制作ができるかどうか。
• 等速運動以外の補間ができるか。
• 拡大縮小や透明度のアニメーションができるか。

◎ AviUtlを使用。 :

◎ NiVE2を使用。 :

◎ DragonBonesを使用。 :

◎ LilliCad :

◎ SakraCad :

◎ PC定規5フリーウェア :

◎ 全体的な感想。 :

◎ 他の2D CADも一応メモ。 :

◎ 気が付いた点をメモ。 :

起動直後はメニュー等が英語表示だけど、日本語表示にもできる。Edit → Preferences を選んで、Language で Japanese を選んで、再起動すればいい。

ただ、日本語表示にすると、一部の項目がちょっとおかしくなるようで。気づいた範囲では、鉛筆ツールやペンツールの補間の強さが、妙な文字列になっていた。

「No」「Simple」「Strong」が、「No」「軽」「使用しない」になってる…。まあ、この補間機能は、ベクターレイヤー上でしか働かないみたいなので、ビットマップレイヤー上で作業する分には関係ないっぽいけど。

キャンバスサイズの変更方法が分からなくて悩んだけど、どうやらカメラレイヤーで設定するらしい。カメラレイヤーのアイコンをダブルクリックすると、キャンバスサイズ(フレームサイズ)の変更ダイアログが開く。

アニメ制作ソフトなら実装されてないと結構困る、オニオンスキン機能(前後のフレームをうっすらと表示してくれる。要はトレスボックスみたいなもの)もちゃんとついていた。表示オプションウインドウのアイコンをクリックして有効無効を切り替えたり、タイムラインウインドウ上の「オニオンスキンモード」と書いてあるところのアイコンを何度かクリックすれば、オニオンスキンで表示されるフレームが切り替わる。

他には…。

• キーフレームはドラッグして位置を変えられる。
• タイムラインウインドウ上のループボタンをクリックして有効に、かつ、「範囲」にチェックを入れれば、指定したフレーム間をループ再生できる。
• 鉛筆ツールはアンチエイリアスがかかってしまう。
• アンチエイリアスがかかった線を塗り分け線にして、バケツツールで色を塗ると、境界がぼそぼそした見た目になる。
• ペンツール、ブラシツールは、アンチエイリアスを無効にできる。
• アンチエイリアスを無効にした線＋バケツツールを使えば奇麗に塗れる。その代わり、ジャギだらけ。

2値化で仕上げられた連番画像にアンチエイリアスをかけられるツールがあればいいのだろうけど…。その手のツールってAfterEffectsのプラグインばかりだし…。

◎ 1.2.0の更新内容。 :

◎ Papagyaoって何だろう。 :

◎ MyPaintブラシの使い方。 :

◎ 2017/01/25追記。 :

◎ 帰りに買い物。 :

1. WDC-300SU2SWH用のドライバと、WLI-UC-GNMセットアップ用ファイルをDL。
2. WLI-UC-GNM関連のソフトとドライバをアンインストール。セットアッププログラムを実行して、ソフトをアンインストール後、ドライバをアンインストール。
3. WLI-UC-GNM を取り外し。
4. WDC-300SU2SWH を接続しない状態で、WDC-300SU2SWH用ドライバをインストール。
5. WDC-300SU2SWH を接続。ドライバがインストール済みなので、認識される。
6. 無線LANルータと接続するように設定。ウチの場合はMACアドレスで接続機器をフィルタリングしてるので、WDC-300SU2SWHのMACアドレスをメモしてルータ側に登録。その後、WDC-300SU2SWH の設定プログラムで、プロファイルを登録。

1. Ubuntu を起動。
2. WLI-UC-GNM をUSB端子に差す。LEDがチカチカと光る。
3. ターミナル上で lsusb を入力。USB接続されてる機器の一覧が表示される。WLI-UC-GNM の名前が出てくれば認識されてる。
4. Xubuntu を使ってるので、デスクトップの上の方の無線LANのアイコンを右クリックして色々設定。

# ゲーム関係の計算用メソッド
#
# ruby gamemath.rb 1 といった指定で、テスト種類を変えられる

require 'dxruby'

# 計算用メソッド
class GameMath

  class << self

    #
    # 度からラジアンへの変換
    #
    # @param [float] deg 角度。単位は度
    # @retrun [float] 角度。単位はラジアン
    #
    def deg2rad(deg)
      return (deg * Math::PI / 180.0)
    end

    #
    # ラジアンから度への変換
    #
    # @param [float] rad 角度。単位はラジアン
    # @retrun [float] 角度。単位は度
    #
    def rad2deg(rad)
      return (rad * 180.0 / Math::PI)
    end

    #
    # 基準座標から目標座標への角度を返す
    #
    # @param [int] tgt_x 目標座標x
    # @param [int] tgt_y 目標座標y
    # @param [int] base_x 基準座標x
    # @param [int] base_y 基準座標y
    # @return [float] 目標座標までの角度。単位はラジアン
    #
    def get_dir_rad(tgt_x, tgt_y, base_x, base_y)
      tx = tgt_x - base_x
      ty = tgt_y - base_y
      return Math.atan2(ty, tx)
    end

    #
    # 角度をn方向に制限して返す
    #
    # @param [float] ang 元の角度
    # @param [float] rest 何方向にするか。デフォルトは16
    # @return [float] rest方向に制限した角度
    #
    def get_dir_rest(ang, rest=16)
      d = 360.0 / rest
      dir = ((ang + (d / 2)) % 360.0).div(d)
      return dir * d
    end

    #
    # 角度と速度(距離)からx,y方向の移動量を求める(度を与える版)
    #
    # @param [float] ang 角度。単位は度
    # @param [float] spd 速度(距離)
    # @param [float] bx  原点となる座標x。省略時は0
    # @param [float] by  原点となる座標y。省略時は0
    # @return [Array] 移動量x,y
    #
    def get_vec(ang, spd, bx=0, by=0)
      return GameMath.get_vec_rad(GameMath.deg2rad(ang), spd, bx, by)
    end

    #
    # 角度と速度(距離)からx,y方向の移動量を求める(ラジアンを与える版)
    #
    # @param [float] ang 角度。単位はラジアン
    # @param [float] spd 速度(距離)
    # @param [float] bx  原点となる座標x。省略時は0
    # @param [float] by  原点となる座標y。省略時は0
    # @return [Array] 移動量x,y
    #
    def get_vec_rad(rad, spd, bx=0, by=0)
      x = spd * Math.cos(rad) + bx
      y = spd * Math.sin(rad) + by
      return x, y
    end

    #
    # 外積を返す
    #
    # @param [int] tgt_x 目標ベクトルx
    # @param [int] tgt_y 目標ベクトルy
    # @param [int] base_x 基準ベクトルx
    # @param [int] base_y 基準ベクトルy
    # @return [float] 外積。
    #                 外積 > 0 なら、目標は右にあり、
    #                 外積 < 0 なら、目標は左にある
    #                 外積 = 0 なら、同じ方向
    #
    def get_cross_product(tgt_x, tgt_y, base_x, base_y)
      return base_x * tgt_y - base_y * tgt_x
    end

    #
    # 徐々に目標方向を向く角度を求める
    #
    # @param [float] ang 現在の角度。単位は度
    # @param [float] ang_spd 角度変化量。単位は度
    # @param [float] tgt_x 目標座標x
    # @param [float] tgt_y 目標座標y
    # @param [float] base_x 基準座標x
    # @param [float] base_y 基準座標y
    # @return [float] 新しい角度。単位は度
    #
    def get_chase_angle(ang, ang_spd, tgt_x, tgt_y, base_x, base_y)
      ang %= 360
      tgt_ang = GameMath.rad2deg(GameMath.get_dir_rad(tgt_x, tgt_y, base_x, base_y))
      tgt_ang %= 360
      d = tgt_ang - ang
      d += 360 if d < -180
      d -= 360 if d > 180
      if d > ang_spd
        ang += ang_spd
      elsif d < -ang_spd
        ang -= ang_spd
      else
        ang = tgt_ang
      end
      return ang
    end

    #
    # 指定範囲に収まった角度を返す
    #
    # @param [float] now_ang 現在の角度。単位は度
    # @param [float] base_ang 基準角度。単位は度
    # @param [float] min_d 角度範囲の最小値算出用。基準角度に加算する値
    # @param [float] max_d 角度範囲の最大値算出用。基準角度に加算する値
    # @return [float] 範囲に収まった角度。単位は度
    #
    def get_dir_range(now_ang, base_ang, min_d, max_d)
      base_ang %= 360
      now_ang %= 360

      # 現在角度が、基準角度の正反対の角度を超える角度だったら補正する
      if now_ang > base_ang + 180
        now_ang -= 360
      elsif now_ang <= base_ang - 180
        now_ang += 360
      end

      min_ang = base_ang + min_d
      max_ang = base_ang + max_d
      now_ang = min_ang if now_ang < min_ang
      now_ang = max_ang if now_ang > max_ang
      return now_ang
    end

    #
    # 2点の座標間の距離が指定距離より小さいかを返す
    #
    # @param [int] tx 目標座標x
    # @param [int] ty 目標座標y
    # @param [int] bx 基準座標x
    # @param [int] by 基準座標y
    # @param [int] dist 判定距離
    # @return {Boolean] trueなら、判定距離内に入ってる。falseなら、判定距離外
    #
    def check_dist(tx, ty, bx, by, dist)
      w = tx - bx
      h = ty - by
      return (w * w + h * h <= dist * dist)? true : false
    end

  end
end

if $0 == __FILE__
  # 動作確認

  # 動作種類を変える
  if ARGV.length >= 1
    test_kind = ARGV[0].to_i
  else
    test_kind = 0
  end

  font = Font.new(16)
  fh = 20

  bx = 320
  by = 240
  ang = 0
  base_ang = 0

  Window.loop do
    break if Input.keyPush?(K_ESCAPE)
    px, py = Input.mousePosX, Input.mousePosY

    case test_kind
    when 0
      # 方向(角度)に制限を加えるテスト
      # n方向に制限する

      n = 12
      rad = GameMath.get_dir_rad(px, py, bx, by) # 本来の角度
      new_deg = GameMath.get_dir_rest(GameMath.rad2deg(rad), n) # 制限した角度

      # 描画
      d = 360 / n
      s = d / 2
      n.times do |i|
        nx, ny = GameMath.get_vec(s + d * i, 80, bx, by)
        Window.drawLine(bx, by, nx, ny, C_RED)
      end

      nx, ny = GameMath.get_vec(GameMath.rad2deg(rad), 200, bx, by)
      Window.drawLine(bx, by, nx, ny, C_CYAN)

      rad = GameMath.deg2rad(new_deg)
      nx, ny = GameMath.get_vec(GameMath.rad2deg(rad), 150, bx, by)
      Window.drawLine(bx, by, nx, ny, C_YELLOW)

      Window.drawFont(0, 0, "#{n}方向にする制限を加える例", font)

    when 1
      # 外積を使って目標を追尾するように角度を変えるテスト
      # プルプル震えてしまう

      ang_spd = 3

      # 目標ベクトル
      tx = px - bx
      ty = py - by

      # 基準ベクトル
      vx = Math.cos(GameMath.deg2rad(ang))
      vy = Math.sin(GameMath.deg2rad(ang))

      # 外積を求める
      cp = GameMath.get_cross_product(tx, ty, vx, vy)

      # 外積の符号を見て、目標が右にあるか左にあるか判別
      ang += ang_spd if cp > 0
      ang -= ang_spd if cp < 0
      ang %= 360

      # 描画
      nx, ny = GameMath.get_vec(ang, 200, bx, by)
      Window.drawLine(bx, by, nx, ny, C_CYAN)

      Window.drawFont(0, 0, "外積の符号で追尾する例", font)

    when 2
      # 目標への角度を求めて、追尾するように角度を変えるテスト

      ang = GameMath.get_chase_angle(ang, 2, px, py, bx, by)

      # 描画
      nx, ny = GameMath.get_vec(ang, 200, bx, by)
      Window.drawLine(bx, by, nx, ny, C_CYAN)

      Window.drawFont(0, 0, "角度を見て追尾する例", font)

    when 3
      # 角度に制限を加える例

      base_ang += Input.x * 2 # 基準角度を左右キーで変更

      rad = GameMath.get_dir_rad(px, py, bx, by) # 本来の角度
      ang = GameMath.rad2deg(rad)

      # 基準角度からプラスマイナス aw の範囲に角度を制限する
      aw = 90
      ang = GameMath.get_dir_range(ang, base_ang, -aw, aw)

      # 描画
      nx, ny = GameMath.get_vec(base_ang, 250, bx, by)
      Window.drawLine(bx, by, nx, ny, C_RED)
      nx, ny = GameMath.get_vec(base_ang - aw, 150, bx, by)
      Window.drawLine(bx, by, nx, ny, C_YELLOW)
      nx, ny = GameMath.get_vec(base_ang + aw, 150, bx, by)
      Window.drawLine(bx, by, nx, ny, C_YELLOW)

      nx, ny = GameMath.get_vec(ang, 200, bx, by)
      Window.drawLine(bx, by, nx, ny, C_CYAN)

      Window.drawFont(0, 0, "角度に制限を加える例 : 左右キーで角度変更", font)
    end
  end
end

◎ DXRubyの便利なところ。 :

if $0 == __FILE__

  # このスクリプトを単体で動かした時だけ、この部分を通る

end

gem install cairo

gem install cairo --platform x86-mswin32

set border 0
unset xtics
unset ytics
unset key

set lmargin 0
set rmargin 0
set tmargin 0
set bmargin 0

set parametric
set size square
plot cos(t),sin(t),0.9*cos(t),0.9*sin(t),0.8*cos(t),0.8*sin(t)

gem install cairo --platform x86-mingw32

C:\Users\hoge>gem list

*** LOCAL GEMS ***

bluefeather (0.40)
cairo (1.10.2 x86-mingw32)
columnize (0.3.4)
linecache (0.43 mswin32)
pkg-config (1.1.2)
rbx-require-relative (0.0.5)
ruby-debug (0.10.3)
ruby-debug-base (0.10.3 mswin32)
ruby-debug-ide (0.4.6)

require 'rubygems'

gem install gtk2 --platform x86-mingw32

ruby.exe - エントリポイントが見つかりません

プロシージャエントリポイント deflateSetHeader がダイナミックリンクライブラリ zlib1.dll から見つかりませんでした。

• 期待していた東芝のブルーレイ対応製品はバグだらけという評判。録画に失敗するわ、市販ブルーレイは再生できないわ、東芝機で記録したブルーレイは他メーカ製品で再生できないわ、フリーズして結局はHDDを全フォーマット、てな話をチラホラ見かける。恐ろしくて買えない。
• DLNA/DTCP-IP対応サーバになれるHDDレコーダは、東芝製品とPanasonic製品ぐらいしかないらしい。SONYに期待したが、SONY製はサーバになれないらしい。
• つまり、東芝製品がダメとなると、Panasonic製HDDレコーダを選ぶしかない。
• だが、REGZAから、Panasonic製HDDレコーダに、直接ムーブすることはできない。
• REGZAから、IO-DATA RECBOX に一旦ムーブして、そこから更にPanasonic製HDDレコーダにムーブすれば行けるらしい。

• 東芝製ブルーレイ対応HDDレコーダを買う → REGZAから直接ムーブはできるが、バグに泣かされる可能性大。録画失敗や、フリーズ解決のためのHDD全フォーマットは痛い。
• 東芝製DVD対応HDDレコーダを買う → REGZAから直接ムーブはできるが、これから先、DVDしか記録できない・再生できないというのも…。
• Panasonic製HDDレコーダとIO-DATA RECBOXを買う → 東芝製品を使うよりは安定動作しそう。だが、出費は増えるし、ムーブ時の手間も増える。

◎ ユーザ自身が好きなように各種調整できるマウスを開発してくれないものか。 :

◎ ELECOM製ゲームパッド購入。 :

◎ _この掲示板にコードを書く際に、タブや空白が反映されないため読みにくくて困っています。 :

◎ _Webで使えるスペース(空白文字)いろいろ - ［ホームページ作成］All About :

◎ 8cmケースファンを買ってこないと。 :

◎ _大谷育江 - 2006年1月、体調不良のため全レギュラー番組を一時降板することになった。 :

◎ GAP 2.0.2が動かない :

◎ ATI DVD Playerの場合 :

◎ Cine Playerの場合 :

◎ 原因が判らない :

◎ ついでにWindows Media Player 9の場合 :

◎ Mドライブにインストールされてしまった :

◎ やっぱりNTLDRが入ってしまった :

◎ Program filesの場所はどうやって変更するねん :

◎ My Documnetsの場所は変更した :