#!/bin/sh

echo "(write geometry - targetgeom world)";
echo "(new-geometry Boundary ";

machtype=`expr match "$0" ".*/\([^/]*\)/[^/]*$"`
geomroot=`expr match "$0" "\(.*\)/modules/.*"`
PATH=$geomroot/bin/$machtype:$PATH bdy

echo ")";

