mieki256's diary

◎ 空文字を除外するように修正 :

#ifndef __SPLITSTRINGB2__
#define __SPLITSTRINGB2__

Sub splitStringB2(ByVal src As String, ByVal delim As String, result(Any) As String)
    Do
        Dim As Integer i = InStr(1, src, Chr(delim[0])) ' search delimiter
        If i = 0 Then
            ' not found delimiter. exit loop
            ReDim Preserve result(UBound(result) + 1)
            result(UBound(result)) = src
            Exit Do
        End If

        Dim As String word = Left(src, i - 1)
        If word <> "" Then
            ReDim Preserve result(UBound(result) + 1)
            result(UBound(result)) = word ' save word to array
        End If
        src = Mid(src, i + 1)  ' delete word
    Loop
End Sub

#endif

#include "splitstringb2.bi"

Dim As String text
text = "char id=32   x=250   y=22    width=5     height=5     xoffset=-2    yoffset=21    xadvance=7     page=0  chnl=15"
'text = "info face=""DejaVu Sans"" size=24 bold=1 italic=0 charset=""ANSI"" unicode=0 stretchH=100 smooth=1 aa=4 padding=0,0,0,0 spacing=1,1 outline=2"

Dim words() As String
splitStringB2(text, " ", words())

Print "[" & text & "]"
For i As Integer = 0 To UBound(words)
    Print i & ": [" & words(i) & "]"
Next i
Print "end."

> test_splitstringb2.exe
[char id=32   x=250   y=22    width=5     height=5     xoffset=-2    yoffset=21    xadvance=7     page=0  chnl=15]
0: [char]
1: [id=32]
2: [x=250]
3: [y=22]
4: [width=5]
5: [height=5]
6: [xoffset=-2]
7: [yoffset=21]
8: [xadvance=7]
9: [page=0]
10: [chnl=15]
end.

◎ WStringで同じ処理をしてみる :

Dim As WString * 1024 text, delim
text = "新しい     朝が来た   希望の    朝だ"
delim = " "
Dim result(256) As WString * 256  ' max 256 length x 256

' ----------------------------------------
#macro splitW( s, d, a )
Dim As WString * 1024 src = s
Dim As Integer n = 0
Do
    Dim As Integer i = InStr(1, src, WChr(d[0])) ' search delimiter
    If i = 0 Then
        ' not found delimiter. exit Loop
        If src <> "" Then
            a(n) = src
            n += 1
        End If
        Exit Do
    End If

    Dim As WString * 256 word
    word = Left(src, i - 1)
    If word <> "" Then
        a(n) = word ' save word to Array
        n += 1
    End If
    src = Mid(src, i + 1)  ' delete word
Loop
#endmacro
' ----------------------------------------

splitW(text, delim, result)

Print "[" & text & "]"
For i As Integer = 0 To UBound(result)
    If result(i) = "" Then Exit For
    Print i & ": [" & result(i) & "]"
Next i
Print "end."

> test_splitw.exe
[新しい     朝が来た   希望の    朝だ]
0: [新しい]
1: [朝が来た]
2: [希望の]
3: [朝だ]
end.

◎ ユーザ定義型を使うのも手だろうか :

• Windows10の「設定」 → 検索 → Windows 検索。
• ファイル検索の種類が「クラシック」になっていたので、「ここで検索場所をカスタマイズします」をクリック。
• 「インデックスのオプション」というウインドウが開くので、下のほうの「変更」をクリック。
• 「インデックスが作成された場所」というウインドウが開く。ここで検索する範囲を指定できる。
• 下のほうに検索場所が列挙されているのでクリックして選択。上のほうに、その場所のパスが表示される。
• チェックを入れた場所を検索するので、チェックを外してしまえば、その場所は検索されない状態になる。はず。たぶん。

• 「インデックスのオプション」ウインドウで、下のほうの「詳細設定」をクリック。
• 「詳細オプション」ウインドウが開くので、「トラブルシューティング」の「再構築」ボタンをクリック。

◎ 余談。 :

◎ 余談その2。 :

◎ 図面を分割印刷。 :

◎ PPシートに図面を転写。 :

◎ PPシートを切り出し。 :

◎ PPシートを接着。 :

◎ HDMI接続で音が鳴った。 :

• python 2.7 + pygame 1.9.4.post1
• python 3.7.3 + pygame 1.9.4.post1

• OS : Raspberry Pi OS buster
• OpenGL がソフトウェア処理で提供されている状態。(GL Driver : Legacy)
• デスクトップの解像度は 1280 x 720。
• GPUのメモリは 64MB を指定。

◎ Pygame 2.0.1をインストール。 :

pip3 install -U pygame

sudo apt install libsdl2-image-dev libsdl2-ttf-dev

◎ Pygame 2.0.1 のアンインストール手順。 :

pip3 uninstall pygame

◎ スクリプトを動かしてみる。 :

とりあえず、先日HDDから発掘して少し修正したスクリプトを使って、どの程度の速度で動くのか確認してみる。

_PygameをWindows10上でインストール

再度メモするけど、処理内容は以下。

• ウインドウサイズ : 640 x 480
• 64 x 64 ドットのスプライトを160枚描画。
• BGを2枚描画。
• oggを常時再生。

実行は以下。

# Python 2.7 + Pygame 1.9.4.post1 で実行。
python2 pygame_fullscreen.py

# Python 3.7.3 + Pygame 2.0.1 で実行。
python3 pygame_fullscreen.py

以下は、Python 2.7 + Pygame 1.9.4.post1 (SDL 1.2.15。Driver種別は X11) で動かした際の結果。7-8FPSが出てる。

一応、スマホで液晶ディスプレイを撮影したソレも載せとく。




そして、以下は、Python 3.7.3 + Pygame 2.0.1 (SDL 2.0.9。Driver種別は X11) で動かした際の結果。1FPS出たり出なかったり。Pygame 1.9.x より遅いという、個人的には予想外の結果になってしまった。

コレも一応、スマホで液晶ディスプレイを撮影したソレも載せとく。




フルスクリーン表示も試してみたけど…。

• Pygame 1.9.4.post1 では 7-8FPSが11FPS前後になって速度が改善した。
• Pygame 2.0.1 はフルスクリーン表示ができなかった。一瞬ウインドウ枠がちらついた後、元のウインドウ表示に戻ってしまった。

ちなみに、Raspberry Pi OS の /boot/config.txt を弄って、OpenGL を有効化した状態でも試してみたけど、Pygame 1.9.4.post1、Pygame 2.0.1、どちらもかえって数FPSほど遅くなった。もしかすると pygame.OPENGL を指定して動かすと結果は違ってきたのだろうか…。

何にせよ、Pygame を 1.9.x から 2.0.1 にしただけで動作速度が目に見えて改善するのではと期待してしまったけどそういうわけではないっぽいなと…。

動かしているハードウェアによっては効果が期待できないとか、スクリプトの手直しが必要とか、Pygame 2.0.1 の実力を発揮させるには注意点が色々ありそうな気配。

◎ 描画速度が遅くてもゲームは作れますよ。 :

◎ Zero系はホントはもっとできる子。 :

◎ 余談。Zero系で動画キャプチャは難しい。 :

◎ インストール。 :

◎ 起動。 :

◎ 自動実行。 :

flatpak run アプリID

flatpak run com.github.debauchee.barrier

flatpak list

◎ Linux Mint機でも試した。 :

◎ 一部のキー入力がおかしい。 :

◎ 余談。 :

• IISマネージャを起動。
• 左側ペインで「Default Web Site」を選択。右側ペインで「仮想ディレクトリの表示」をクリック。
• 右側ペインで「仮想ディレクトリの追加」をクリック。
• エイリアスに「diary」、物理パスに、hnsが入ってるフォルダを指定。
• 左側ペインで「Default Web Site」を選択しなおして、真ん中ペインで「既定のドキュメント」をダブルクリック。
• 右側ペインで「追加」をクリック。index.cgi を追加。
• そのままだと、既定のドキュメントが無効になってたので、右側ペインで「有効にする」をクリックして有効化。

◎ IISの仮想ディレクトリについて。 :

◎ そういえばどうして04WebServerを使ってたのだったか。 :

using UnityEngine;
// using System.Collections;

// Singletonを簡単に使う
public class SingletonMonoBehaviour<T> : MonoBehaviour where T : MonoBehaviour {
    private static T instance;
    public static T Instance {
        get {
            if (instance == null) {
                System.Type type = typeof(T);
                instance = FindObjectOfType(type) as T;
                if (instance == null) {
                    Debug.LogError(typeof(T) + " is nothing");
                }
            }
            return instance;
        }
    }

    protected void Awake() {
        if (instance == null) {
            instance = this as T;
            DontDestroyOnLoad(this.gameObject);
        }
        else {
            // Debug.LogError(typeof(T) + " exist");
            Destroy(this.gameObject);
        }
    }
}

using UnityEngine;
using System.Collections;

// グローバルワーク。Singletonを使う
public class GWk : SingletonMonoBehaviour<GWk> {

    public static int PlayerLife = 100;
    public static int PlayerLifeMax = 100;

    void Start() {

    }

    void Update() {

    }
}

using UnityEngine;
using System.Collections;

public class StartButton : MonoBehaviour {
    public string NextSceneName = "";
    public string ButtonText = "";
    private bool pushEnable = false;
    private bool nextScened = false;
    private float timer = 0;

    public GameObject gwk;
    public GameObject fadeManager;

    void Awake() {
    }

    void Start() {
        pushEnable = false;
        nextScened = false;
        timer = 0.5f;

    }

    void Update() {
        if (nextScened || pushEnable) return;

        timer -= Time.deltaTime;
        if (timer > 0) return;

        if (Input.GetKeyDown(KeyCode.Space)
            || Input.GetButtonDown("Fire1")
            || Input.GetButtonDown("Jump")) {
            // ボタンが押されたらフラグを立てる
            pushEnable = true;
        }
    }

    void OnGUI() {
        if (nextScened) return;

        int w = 200;
        int h = 32;
        int x = (Screen.width - w) / 2;
        int y = (Screen.height - h - 32);
        if (GUI.Button(new Rect(x, y, w, h), ButtonText)) pushEnable = true;

        if (pushEnable) {
            // ボタンが押された

            if (GWk.Instance == null)
                Instantiate(gwk);

            if (Application.loadedLevelName == "about") {
                // aboutシーンなら、ゲーム用ワークを初期化
                GWk.PlayerLife = 100;
                GWk.PlayerLifeMax = 100;
            }

            if (FadeManager.Instance == null)
                Instantiate(fadeManager);

            // シーン移行
            // Application.LoadLevel(NextSceneName);
            FadeManager.Instance.LoadLevel(NextSceneName, 0.3f);

            nextScened = true;
        }
    }
}

◎ 異星人は裸のほうが自然なのか、それとも裸は不自然なのか。 :

◎ フレッシュプリキュア1話から3話分鑑賞 :

◎ ライダーディケイド1話から4話分鑑賞 :

◎ シンケンジャー1話鑑賞 :

◎ 環境構築の動機。 :

◎ ICカードリーダの動作確認。 :

◎ 確定申告のページに飛ぶ。 :

◎ Windows Vista には微妙に対応してないっぽい感じ。＞ e-Tax。 :

◎ _e-Taxスゴイ - NextReality :

◎ 購入候補を調べてみたが。 :

ワープロを使って文書を作りたい。

OpenOffice Writer (オフィス → openOffice.org Word Processor)

表計算ソフトを使いたい。

OpenOffice Calc (オフィス → OpenOffice.org Spreadsheet)

メモを書きたい。

gedit (アクセサリ → GNOMEテキストエディタ)

らくがき・お絵かきをしたい。

TuxPaint (教育・教養 → ふで)

画像を編集したい。

GIMP (グラフィックス → GIMP Image Editor) / Krita (グラフィックス → Krita)

図を描きたい。

Inkscape (グラフィックス → Inkscape vector Illustrator) / Sodipodi (グラフィックス → Sodipodi) / Dia (グラフィックス → Dia ダイアグラム・エディタ)

3DCGを作りたい。3DCGアニメをつくりたい。

Blender (グラフィックス → Blender 3D modeller)

CD-R や DVD+R にファイルを書き込みたい。

K3b (サウンドとビデオ → K3b) / GnomeBaker (サウンドとビデオ → CD/DVD Writer GnomeBaker)

DVD-VIDEO を見たい。

Totem (サウンドとビデオ → 動画プレイヤー) / VLC Media Player (サウンドとビデオ → VLC Media Player) / Xine (サウンドとビデオ → Xine Movie Player) (サウンドとビデオ → gxine) / MPlayer (サウンドとビデオ → MPlayer Movie Player)

PCに保存されてる音楽を聴きたい。

Totem (サウンドとビデオ → 動画プレイヤー) / XMMS Player (サウンドとビデオ → XMMS Music Player)

音楽CDをPCに取り込みたい。

Sound Juicer (サウンドとビデオ → Sound Juicer CD取り込みツール)

音を編集したい。

Audacity (サウンドとビデオ → Audacity)

和英辞書、英和辞書を使いたい。

Gjiten (アクセサリ → Gjiten 日本語辞典)

電卓を使いたい。

Galculator (アクセサリ → Galculator) / KCalc (アクセサリ → KCalc)

英単語で遊びたい。

Childsplay (教育・教養 → Childsplay)

カッコイイ画面で操作したい。

Beryl (システムツール → Beryl Manager)

プログラミングをしたい。

gnome-tenminal (アクセサリ → GNOME端末) / Ruby / Python / Java / Eclipse (プログラミング → Eclipse) / Perl / Emacs (プログラミング → Emacs21 (X11))

ゲームプログラミングをしたい。

Ruby/SDL / PyGame / Java

ホームページ(Webページ・Webサイト)を見たい。(インターネットが利用できる環境なら)

Mozilla Firefox (インターネット → Firefox ウェブ・ブラウザ) / 風博士 (インターネット → 風博士ウェブブラウザ)

電子メールをやり取りしたい。(インターネットが利用できる環境なら)

Mozilla Thunderbird (インターネット → Thunderbird Mail) / Evolution (インターネット → Evolution メール) / Sylpheed (インターネット → Sylpheed)

◎ 謎なのが、TuxPaint が「ふで」になってることです。 :

人

 人
人人

  人
 人人
人人人

    人
   人人
  人人人
 人人人人
人人人人人

• ボタンが軽い。
• ホイール部分が広くて動かしやすい。
• 分解能が高いのか比較的キビキビ動く。
• 大きくない・高さが低目で、重量も軽いので扱いやすい。

◎ 件の記事で、ちょっと気になった部分 :

◎ _「アタリショック」の嘘と誤解 :

嫁さん（元幼稚園教諭）に、なぜプリキュアは受けてナージャはダメなの？と質問した所、やはりストーリー性が有ったとしても、女児にとってはどうでもいい事で、変身願望とかそういったものを全て揃えているプリキュア、つまり、なりきれる系が絶対受けると。そういうムーブメントはセーラームーンの時も有ったようで、また、おジャ魔女はそれ程でも無かったとの事。

プリキュアごっこは出来ても、ナージャごっこは出来ない。

◎ 原作つきとオリジナル :

◎ 視聴者の年齢が上がること・視聴者が入れ替わること :

◎ さておき宣伝効果云々を考えると :

◎ _ごめん、俺が悪かった。 :

◎ つーか今NHKをつけてたら :

◎ _そういや以前、自分も挨拶されたのだけど :

◎ とはいえそもそも挨拶云々の指導内容に問題点があるような気もする :

◎ そもそも挨拶とは何だろうなぁ… :

◎ 懐かしい？ :

◎ 設定は冒険してるように見えた :

◎ 形だけではなく色も意識しないと :

◎ _1/5秒でサブリミナル映像とか言われたらたまんないよなぁ :

あなたは、右見て左見て、石橋を叩いて壊す 『様子うかがいタイプ』です。

あなたは自分が思っているより素晴らしい人です。自分にもっと自信を持って下さい。あれこれと思い悩んで周囲に気を使い過ぎです。あなたのその気の使いようは謙虚さを通り越して卑屈になっているはずです。周囲に過剰に適応しようとするため「摂食障害：拒食症や過食症」「過敏性腸症候群」「不安神経症」など心の病にかかる傾向が高く、注意が必要です。人の目や思惑を気にしすぎるあまり、自分の行動に自信が持てず、全てに消極的になっています。本来の自分の姿を全く見失っています。このままでは思い悩んでつらい気持ちのままで人生は終わってしまいますよ。誰のための人生かもう一度よく考えてみましょう。あなたに今一番必要なのは開き直りです。気の持ち方ひとつで人生はがらりと変わるはずです。