mieki256's diary

• Basix
• KLUE
• wattOS

cd ~/
git clone https://github.com/onitama/OpenHSP
cd OpenHSP
./pisetup.sh

• piユーザでログインしてることが前提。
• ~/ 以下に OpenHSP フォルダを置くことが前提。

• /usr/share/applications/hsed.desktop をエディタで開いて hsed の場所を変更すれば対応できる。
• あるいは、メインメニューから辿って、該当項目を右クリックしてプロパティ(Properties)を表示すれば、コマンド(hsed)が置かれた場所を指定し直すことができる。

• キーボードは、Logicool K400r 以外なら、Ctrl+C や ESCキー入力を受け付けて、HSPの表示画面を終了させることができた。
• マウスは、Lenovo KU-1255 以外は入力を受け付けない。(OpenHSP同梱の block3.hsp を動かせば、パッドがマウスの動きに反応するはずだけど、KU-1255以外は無反応だった。)

if RUBY_ENGINE == "opal"
  # DXOpal
else
  # DXRuby
end

if RUBY_ENGINE == "ruby"
  # DXRuby
else
  # DXOpal
end

RUBY_ENGINE -> String
Ruby処理系実装の種類を表す文字列。

constant Object::RUBY_ENGINE (Ruby 2.5.0) より

java -jar インストールしたフォルダ\ditaa0_9.jar test_ascii.txt

+-------+  fuga   +----------+
| hoge  +-------> | hogehoge |
+-+-----+         +----------+
  |
  | fuga
  v
+-------+
| piyo  |
+-------+

graph-easy test.txt --output=test.dot
インストールフォルダ\bin\dot.exe -Tpng test.dot -o test.png

easy_install pillow
easy_install blockdiag

blockdiag test.diag

blockdiag -f VL-Gothic-Regular.ttf test.diag

• なかなかカラフルな画面。子供さんにはウケがいいかもしれない。
• ポリゴンの表示ウインドウがずいぶん小さいなと感じたり。1920x1200の画面で表示してるせいもあって、ますます小さく感じる。ポリゴンをクリックして選択する時などは、表示ウインドウが広いほうが作業がしやすいので、もうちょっとなんとかならなかったのかなあ、と思えた。
• モデルの作成方法は、平面上の多角形を押し出し(Shadeで言えば掃引？)して、各部分を作っていく感じ。そうして作成した各パーツを繋いで、全体のモデルを作る。感覚的には積木そのものなので、実に分かりやすい。が、ペーパークラフトとしては、無駄な部分が増えてしまうような気もしたり。

数値データはビッグエンディアン(Big-Endian)のバイトオーダで入出力されるようです。Big-EndianはSPARCやMC68000で採用されているバイトオーダですが、ネットワークのバイトオーダもビッグエンディアンであることから分散環境との相性がよいといえます。

しかし問題なのはIntelの8086系のCPUつまりPentiumはリトルエンディアンで あるということです。つまりWindowsで普通に作成されたデータをJavaのデータ入出力機能では入出力できないのです。その他DataOutputに符号無byteと符号無shortをライトする機能がないことには注意が必要です。

データ入出力 より

昔は自前でバイトオーダーを入れ替える必要があったが、今は java.nio.ByteBuffer があるので、これを使う。

_ Java でリトルエンディアンのバイナリを読む ▲ より

byte[] buff;

// buff にバイナリデータを入れる

ByteBuffer bb = ByteBuffer.wrap(buff); // ByteBuffer でラップ
bb.order(ByteOrder.LITTLE_ENDIAN);     // リトルエンディアンに設定
int intData = bb.getInt();             // 4 バイト読み込む
short shortData = bb.getShort();       // 2 バイト読み込む

通常、Windows ではリトル・エンディアン (little endian)、Unix系ではビッグ・エンディアン (big endian) が使われている。ただし、Java の入出力クラスでは、ビッグ・エンディアンが優先されている。

IT　覚え書【JAVA】 プログラミング より

DataInputStream dis = new DataInputStream(new BufferedInputStream(new FileInputStream(fileName)));
ByteBuffer bb = ByteBuffer.allocate(64);

//Little Endian ファイルをそのままのバイトオーダーで読み込み、bb へ代入
bb.putInt(dis.readInt());
bb.putInt(dis.readfloat());

//バイトオーダーを Little Endian に変換して、a と b にそれぞれ代入
bb.order(ByteOrder.LITTLE_ENDIAN);
int a = bb.getInt(0);
float b = bb.getFloat(4);

大きな位から順番に詰めていくのがビッグエンディアンで、小さな位から詰めていくのがリトルエンディアンです。これは使用している MPU によって異なり、X68k の MPU (680x0) はビッグエンディアンとなります。インテル系の MPU は逆にリトルエンディアンです。

エンディアンに左右されたくない場合は、n / N や v / V を使うといいでしょう。

n ネットワークバイト順 (ビッグエンディアン) による short 値
N ネットワークバイト順 (ビッグエンディアン) による long 値
v VAXバイト順 (リトルエンディアン) による short 値
V VAXバイト順 (リトルエンディアン) による long 値

pack( "N", 0x41424344 ) => "ABCD"
pack( "V", 0x41424344 ) => "DCBA"

M.Hiroi's Home Page / X68000 Programming / Perl より

#!/usr/bin/perl
#
# imgjoin.pl
#
# 指定フォルダ内のgif画像を連結して1つのファイルにする。
#
# usage : perl imgjoin.pl DIR_NAME OUTPUT_FILENAME
# 
# 出力ファイルの先頭には、ヘッダーが入る。
#
# 2byte     ファイル数
# 4byte     1ファイル目 : ファイル実データまでのオフセット
# 4byte     1ファイル目 : ファイル実データのサイズ
# 4byte     2ファイル目 : ファイル実データまでのオフセット
# 4byte     2ファイル目 : ファイル実データのサイズ
#    ...
#
# OUTPUT_FILENAME は拡張子なしで指定。
# (スクリプト中で、.pak .txt 等を付け足してファイル名を決めてる)
#
# ActivePerl-5.8.7.815-MSWin32-x86-211909 で動作確認。
#
# by mieki256
# 2006/02/20 0.01 とりあえず作成。

use strict;

my $ext ="gif";             # 処理する拡張子
my $outdir = "./bin";       # 出力先のディレクトリ名 (最後の '/' は不要)
my $pakext = ".pak";        # パックしたデータファイルの拡張子
my $lstext = ".txt";        # データ順の定義部分を出力する際の拡張子


if ( $#ARGV != 1 ) {
    die "引数が異常です。 : $!";
}

my $dir = $ARGV[0];         # 指定ディレクトリ名を得る
my $outfname = $ARGV[1];    # 出力ファイル名を得る

if ( -d $dir ) {
    print " ... Found Directory : $dir \n";
} else {
    die "Not Found $dir :";
}

# ----------------------------------------
# ファイルリスト取得
my @list = ();
opendir DH, $dir or die "$dir : $!";
while (my $file = readdir DH) {
    next if $file =~ /^\.{1,2}$/;   # '.' '..' をスキップ
    if ( $file =~ /\.$ext$/i ) {
        push(@list,$file);
    }
}
closedir DH;

if ( $#list < 0 ) {
    die "Not Found .$ext file. : $!";
}

my @sortlist = sort {$a cmp $b} @list;
my @sizelist = ();

# ----------------------------------------
# ファイルサイズ取得
foreach my $f (@sortlist) {
    my $size = -s "$dir/$f";
    print "found $f : size $size\n";
    push(@sizelist, $size);
}
my $binsize = 0;
foreach my $s (@sizelist) {
    $binsize += $s;
}

print " ... ", $#sortlist+1," files. : size = $binsize\n";

# ----------------------------------------
# 結合データ作成

# ヘッダ作成
my $wrdata = pack("n", ($#sizelist + 1) );  # ファイル数
my $offset = 4 + (($#sizelist + 1) * 8);    # 最初のファイルのオフセット
foreach my $size (@sizelist) {
    $wrdata .= pack( "N", $offset);         # オフセット
    $wrdata .= pack( "N", $size );          # ファイルサイズ
    $offset += $size;
}

# ファイルデータ結合
foreach my $f (@sortlist) {
    open(FH, "$dir/$f") || die $!;
    binmode FH;
    my $data;
    {
        local $/ = undef;
        $data = <FH>;
        $wrdata .= $data;
    }
    close(FH);
}

# 結合したデータをファイルに出力
open(OUT,"> $outdir/$outfname$pakext") || die $!;
binmode OUT;
print OUT $wrdata;
close OUT;

print " ... write $outdir/$outfname : length = ", length $wrdata, "\n";


# ついでに、.java 内で使う、定義部分のファイルを出力しておく
# (出力ディレクトリがちと違うので注意。)

open(OUTLST,"> $dir/$outfname$lstext") || die $!;
my $c = 0;
foreach my $f (@sortlist) {
    $f =~ tr/[a-z]/[A-Z]/;
    $f =~ tr/\./_/;
    $f =~ /(.*)_GIF/;
    my $p = $1;
    print OUTLST "\tprivate final int IMG_$p = $c;\t// ", $sizelist[$c],"\n";
    $c++;
}
print OUTLST "\tprivate final int IMG_NUM_MAX = ", $c - 1, ";\n";
close(OUTLST);

exit 0;

# ヘッダ作成
 ...
my $offset = 4 + (($#sizelist + 1) * 8);    # 最初のファイルのオフセット

# ヘッダ作成
 ...
my $offset = 2 + (($#sizelist + 1) * 8);    # 最初のファイルのオフセット