From: the count <eglamkowski@mathematica-mpr.com>
Subject: 128-bit conversion scripts

Hello :)


#!/usr/local/bin/perl -i.bak
#usage:  mobfilt #.mob

$D = 0;

while (<>) {
    chop;

    if (/^\#\d+\s*/) {
        $D = 1;
    }

    if (/^(\w+) (\w+) (-?\d+) (\w)\s*/) {
        if ($D == 1) {
            print $1, " 0 0 0 ", $2, " 0 0 0 ", $3, "\n";
            $D = 0;
        } else {
            print "$_\n";
        }
    } else {
        print "$_\n";
    }
}
----------------------------------------------------
#!/usr/local/bin/perl -i.bak
#usage:  objfilt #.obj

$D = 0;

while (<>) {
    chop;

    if (/^\#\d+\s*/) {
        $D = 1;
    }

    if (/^(\d+) (\w+) (\w+)\s*/) {
        if ($D == 1) {
            print $1, " ", $2, " 0 0 0 ", $3, " 0 0 0\n";
            $D = 0;
        } else {
            print "$_\n";
        }
    } else {
        print "$_\n";
    }
}
----------------------------------------------------
#!/usr/local/bin/perl -i.bak
#usage:  wldfilt #.wld
$D = 0;

while (<>) {
    chop;
    if (/^\#\d+\s*/) {
        $D = 1
    }

    if (/^(\d+) (\w+) (\d+)\s*/) {
        if ($D == 1) {
            print $1, " ", $2, " 0 0 0 ", $3, "\n";
            $D = 0;
        } else {
            print "$_\n";
        }
    } else {
        print "$_\n";
    }
}
