gnuplotで座標を確認する
ソース
.lwsファイルを指定するとNullのポイントをgnuplotで表示する
die "引数がないよ" if ($#ARGV < 0);
$a = $b = 0;
$max = -99999999999;
$min = 999999999999;
open FH, ">data";
while(<>){
if (/AddNullObject/) {
$a = 1;
$b = 0;
} elsif ($a) {
if (/Key/) {
@a = split;
print FH "$a[1] ";
$min = $a[1] if ($min > $a[1]);
$max = $a[1] if ($max < $a[1]);
$b = $b + 1;
if ($b == 3) {
print FH "\n";
$a = 0;
}
}
}
}
open FH, ">setting.plt";
print FH "splot [$min:$max][$min:$max][$min:$max] \"data\" w p";
close FH;
system "wgnuplot -persist setting.plt";
結果
