my $LumberFile="$Dir/$Subdir/lumber.wrl";
 my $DrillPressTableFile="$Dir/$Subdir/$Subdir.wrl";
 &mystart($LumberFile,LF);
 &buildlumber(\%Fs,LF,$Ppi);
 &mystart($DrillPressTableFile,DP);
 &buildtable(\%Fs,DP,$Ppi);