#!/usr/local/bin/perl # # dat2live3d: # # [1999/08/02] OSHIRO Naoki. # # $Log:$ # $size=250; $n=0; $new_index=1; while (<>) { chop; next if /^ *#/; if (($x,$y,$z)=split(/ +/)) { $p{$n}.=" $x,$y,$z"; $new_index=0; } elsif (/^ *$/) { if ($new_index==0) { $new_index=1; $n++; } } } print "\n"; print "\n"; print " True}]\n"; print "\">\n"; print "\n"; print "\n";