mieki256's diary

• 一応、Microsoft Defender でウイルスチェックする。エクスプローラ上で bwbasic.exe を右クリック → Microsoft Defender でスキャンする。
• 右クリック → プロパティ → セキュリティ → 「許可する」にチェックを入れてOK。

• 行番号無しで入力すれば、その場で命令を実行。
• 行番号付きで入力すれば、ソースコード入力。
• load "hoge.bas" でプログラムのロード(読み込み)。
• save "hoge.bas" でプログラムをセーブ(保存)。
• list でプログラムの確認。
• run で実行。
• quit で終了。

sudo apt install bwbasic

• basic.exe を実行すれば BASIC の基本文法の動作確認ができる模様。
• グラフィック描画関連を使いたい場合は、chipmunkbasic.exe を実行しないといけない。

wget http://www.nicholson.com/rhn/files/cbas367b5-linux-x86_64.zip
unzip cbas367b5-linux-x86_64.zip

• README
• basic
• basic.man.txt
• man/

• graphics 0
• graphics moveto VAL, VAL
• graphics lineto VAL, VAL
• graphics text STRINGVAL
• graphics color REDVAL, GREENVAL, BLUEVAL

100 graphics 0
110 graphics cls
120 w = 360
130 for i = 0 to w step 5
140   v = 100 * i / w
150   graphics moveto 0, i
160   graphics color 0, v, (100 - v)
170   graphics lineto i, w
180   fn sleep(0.04) : ' Does not work on Windows
190 next i
990 end

sudo apt install gcc libc6-dev ncurses-dev libx11-dev libxext-dev libxpm-dev libxrandr-dev libxrender-dev

tar zxvf FreeBASIC-1.07.3-ubuntu-20.04-x86_64.tar.gz
cd FreeBASIC-1.07.3-ubuntu-20.04-x86_64
sudo ./install.sh -i

$ which fbc
/usr/local/bin/fbc

print "Hello World"
print
print "Hit Any Key to exit"
sleep

fbc hello.bas

編集 → 設定 → フォルダー → プラグイン

フィルター → 下塗り → Tiny Pixleart
(Filter -> Render -> Tiny Pixelart)

• Width と Height が、ドット絵モドキ1つ分の横幅と縦幅。
• Row と Column が、横と縦にいくつ並べるか。
• Randomize を ON(「する」) にすると、実行するたびにランダムな画像が作られる。(ランダムシード(乱数の種)がランダムになる)
• Randomize を OFF(「しない」) にすると、その下の Random seed の数値に従って、実行するたびに同じ画像が作られる。
• X mirror、Y mirror は、横方向、縦方向をミラーリングするか否か。
• Create で Image を選ぶと、画像を新規作成して、そこにドット絵モドキを作る。
• Create で Layer を選ぶと、現在開いてる画像にレイヤーを新規作成して、そこにドット絵モドキを作る。
• Layer name は、新規作成されるレイヤーのレイヤー名。
• Set grid w x h は、ドット絵モドキのサイズをグリッド間隔にも設定するか否か。設定しておけば、表示 → グリッドの表示、表示 → グリッドにスナップ、で、一つ一つが選択しやすくなる。

1. 診察1回目。麻酔を打って、神経を取る。
2. 診察2回目。神経を取った後を綺麗にする。
3. 診察3回目。歯を小さくなるまで削って、型を取る。歯茎も削るので、場合によっては麻酔も打つ。仮歯をつける。
4. 診察4回目。型を元にして作った本歯を差してくっつける。
5. 診察5回目。くっつけた本歯に何か異常がないかチェック。

• 仮歯は本歯と違って汎用的な形なので、歯並びが悪い場合は、つけるとむちゃくちゃ痛い。かといって、仮歯をつけてないと削った歯がむき出しになるので、本歯をつけるまで危険に晒される。痛み止めを飲んで我慢するしかないそうで。
• 本歯をくっつけると周囲に接着剤がはみ出るので、接着剤を削り取らないといけない。周囲の歯についた接着剤をガリガリと削り取るので、周囲の歯が傷だらけになることも。

    public void resume() {
        if (l_main != null) {
            l_main.mcResume();
        }
    }

    public void resume() {

        // 実処理クラスが復帰して、リジューム用処理が呼び出せるようになるまで繰り返す
        while (l_main == null) {
            Thread.yield();
        }
        l_main.resumeJobEnable = true; // とにかくフラグだけでも先に設定
        l_main.mcResume(); // レジューム時の実処理
    }

    public void mcResume() {
        resumeJobEnable = true;

        // キー入力ワークをクリアしたり、待ち時間カウンタを設定したり。
        initResumeWaitWork();

        if (!pauseEnable && soundUseEnable) {
            // サウンド再生を再開する必要があるなら再開する(キューに要求を入れるだけ)
            replaySound();
        }

        initResumeWaitWork();

        // キー入力がなくなるまで待つ
        do {
            try {
                Thread.sleep(SLEEP_VALUE);
            } catch (InterruptedException e) {
            }
            setKeyWork(getKeypadState());
        } while (repbtn != 0 || trgBtn != 0);

        resumeJobEnable = false;
    }

    public void processEvent(int a_type, int a_param) {

        if (processEventJobEnable) return;
        processEventJobEnable = true;

        if (a_type == Display.RESUME_VM_EVENT) {
            // リジューム時はワークをクリア
            initResumeWaitWork();
        }

        if (a_type == Display.KEY_PRESSED_EVENT) {
            // キーが押された
            if (keyNoCheckEnableCount <= 0) keyBtnInterrupt |= (0x01 << a_param);
        }

        processEventJobEnable = false;
    }

1. サスペンドからレジュームする。
2. メイン処理が再開される。キーを読んで、キー入力ワークに値を入れる。選択キーが押されてるらしいので、次の画面へ移行開始。
3. resume() が呼ばれて、こちらの意図したレジューム処理が始まる。キー入力ワークがクリアされ、キーが離されるまで待つ。
4. キーが離されたのでメイン処理に戻る。のだけど、メイン処理はもう次の画面に移行してますがな。

アメリカ式では月を先に、イギリス式では日付を先に表記します。月の名前は数字ではなく、月の名前で書くので注意。

No.402 ビジネス文章の書き方・その2　〜英文レター編 より

Z80には乗算命令はないから、乗算するにはプログラムを作成する必要がある。a ＊ b (b>0)の最も簡単な手法は、aをb回加えることである。

機械語プログラミング より

例外はノガン科やミフウズラ科だ。このミフウズラ科は一夫一妻惟の多いツル目の中でも異質で、多夫一妻惟である。雌は雄より大きく、かつ羽色がきれいである。

ミフウズラはちょっと変わった鳥です。普通、鳥の仲間は大体オスのほうがメスより綺麗で派手なのですが、この種では反対。メスのほうが派手です。しかも、一妻多夫で、繁殖期にはメスはヴーヴーヴーとうなるような声を上げてオスを誘い、産卵すると卵はオスにお任せして、他のオスを求めて去っていってしまうのだそうです。

［一妻多夫制 polyandry］
1匹の雌が複数の雄と同時的につがい関係をもつ。この場合，子の世話はほとんど雄のしごととなる。

一妻多夫制は動物全般を通じてひじょうに少なく，よく研究されている鳥の場合でも，ミフウズラ類，レンカク類，ヒレアシシギ類，タマシギ，一部のシギ類などに知られているのみであるが，その多くは連続的一妻多夫制である。

これらの鳥に一妻多夫制が進化した原因はなんだろうか。ミフウズラを除き，これらの種はすべてツンドラや湿地に生息する鳥である。たとえばツンドラでは繁殖期間がひじょうに短く，しかもその間に多量のヒナがいっせいに発生する。そうした場合に，もし子育てのすべてを雄にまかせられるとすると，一妻多夫制は繁殖力を最大限に高めるにはひじょうに有効な方法であろう。なぜなら，卵を産めるのは雌だけだからである。

同時的に一妻多夫が起こる確実な例はニュージーランドの谷間にすむクイナ科の水鳥シロボシオグロバンである。この鳥では兄弟一妻婚が知られ，巣立ちした雄の兄弟が分散していって雌を見つけるとトリオのつがいになり，いっしょになわばりを守ったり，巣作りをしたりする。雄間には順位があり，優位雄が3分の2，劣位雄が3分の1の割合で雌と交尾する。

［乱婚制 promiscuity］
特定の雄・雌間につがい関係が存在せず，雄は複数の雌と，また雌も雄よりは少ないが複数の雄と交尾を行う。

ただし，多くの場合は，ニホンザル，チンパンジー，ピグミーチンパンジーなどのように一定の組織された群れで生活している動物について使われる言葉であり，単独性の哺乳類などは不特定の雄・雌が交尾していても乱婚制とはいわない。

単独性の動物とは雄・雌間につがい関係が生じるのは交尾の時点のみで，それ以外は両性とも単独で生活しているものをいう。無脊椎動物，魚類，両生類，爬虫類のほとんど，そして哺乳類のかなりの部分がこのタイプであろうと考えられる。交尾が1匹の雄と1匹の雌の間でしか行われないものも多い。

鳥ではレック lek とよばれるおもしろい社会行動をともなう乱婚制もある。これはエリマキシギやソウゲンライチョウなどに見られるもので，毎年，繁殖期になるとこれらの雄はアレナ arena と呼ばれる集団踊場へやって来て，儀式的な誇示行動を行う。それによって順位がきまり，高順位のものがそこへやって来る雌のほとんどと交尾をし，雌はそののち単独で営巣し，ヒナを育てる。

以上のように，動物は自己の有する生理的制約、および、どんな所にすんで何をどのように食っているかという生態的条件によって、子孫を最大に残せるような配偶型を採用している。

M電卓はsec → hh:mm:ss 変換ができます。たとえば、時間+/-時間タブで10000秒と入れれば(もちろん他はすべて0にする)、ちゃんと下に「0日 2:46:40」と変換されます。