Last change
on this file since 37 was
37,
checked in by (none), 14 years ago
|
Added original make3d
|
-
Property svn:executable set to
*
|
File size:
906 bytes
|
Line | |
---|
1 | #! /usr/bin/tclsh |
---|
2 | |
---|
3 | # |
---|
4 | # plycull.tcl -- David Koller (dk@cs.stanford.edu), 8/16/98 |
---|
5 | # |
---|
6 | # This program is a wrapper for the "plycullmaxx" program which |
---|
7 | # culls a .ply file to an axis-aligned bounding box. This program |
---|
8 | # takes 3 arguments: a .ply file, which is used to define the |
---|
9 | # bounding box, and an input and output .ply filenames: |
---|
10 | # |
---|
11 | # plycull file.bbox.ply infile.ply outfile.ply |
---|
12 | # |
---|
13 | # This program was written with the intent of working with data |
---|
14 | # files output from a "vripsplit" process. |
---|
15 | # |
---|
16 | |
---|
17 | if {$argc != 4} { |
---|
18 | puts "USAGE: plycull file.bbox.ply infile.ply outfile.ply epsilon" |
---|
19 | } else { |
---|
20 | |
---|
21 | set cmd "exec plybbox [lindex $argv 0]" |
---|
22 | catch {eval $cmd} msg |
---|
23 | scan $msg "%f %f %f %f %f %f" xmin ymin zmin xmax ymax zmax |
---|
24 | set epsilon [lindex $argv 3] |
---|
25 | set cmd "exec plycullmaxx $xmin $ymin $zmin $xmax $ymax $zmax $epsilon < [lindex $argv 1] > [lindex $argv 2]" |
---|
26 | catch {eval $cmd} |
---|
27 | } |
---|
28 | |
---|
Note: See
TracBrowser
for help on using the repository browser.