source: proiecte/pmake3d/make3d_original/Make3dSingleImageStanford_version0.1/third_party/vrippack-0.31/src/vrip/vripnew.tcl @ 37

proc usage args {
    puts ""
    puts "Usage: vripnew <vrip_file> <conf_file> <bound_mesh> <res_in_meters>"
    puts "       \[options\]"
    puts ""
    puts "    Options:"
    puts "        -carve_conservative"
    puts "        -carve_agressive"
    puts "        -carve_only"
    puts "        -show_render"
    puts "        -persp"
    puts "        -linepersp"
    puts "        -slicer"
    puts "        -use_bigger_bbox"
    puts "        -rampscale <scale factor>"
    puts "        -ramplength <length>"
    puts "      Note: options *must* be the last args."
    puts ""
    exit
}

# Print usage if necessary...
if {$argc == 0 || [lindex $argv 0] == "-h"} {
    usage
}


vrip_param -quiet 1

set gridName [lindex $argv 0]
set confFile [lindex $argv 1]
set boundMesh [lindex $argv 2]
set voxelSize [lindex $argv 3]
set doChangeScale 0
set haveRampLength 0

#set voxelSize [expr $voxelSize/1000.0]

# Sanity checks on the arguments to avoid obscure messages later
if {[llength $argv] < 4} {
    puts stderr "Error: Insufficient arguments"
    usage
}
if {![file isfile $confFile]} {
    puts stderr "Error:  Could not open conf file: $confFile"
    usage
}
if {![file isfile $boundMesh]} {
    puts stderr "Error:  Could not open bound file: $boundMesh"
    usage
}
if {$voxelSize <= 0} {
    puts stderr "Error: voxelSize must be greater than zero"
    usage
}


set bmeshCmd bmesh
set warp 0

if {$argc > 4} {
    for {set i 4} {$i < $argc} {incr i} {
        set arg [lindex $argv $i]
        if {$arg == "-carve_conservative"} {
            vrip_param -use_tails 1
        } elseif {$arg == "-carve_agressive"} {
            vrip_param -use_tails 1 -fill_gaps 1
        } elseif {$arg == "-rampscale"} {
           incr i
           set scaleFactor [lindex $argv $i]
           set doChangeScale 1
        } elseif {$arg == "-ramplength"} {
           incr i
           set RampLength [lindex $argv $i]
           set haveRampLength 1
        } elseif {$arg == "-use_bigger_bbox"} {
            set conservativeBbox 1
        } elseif {$arg == "-carve_semi"} {
            vrip_param -use_tails 1
            param -maxedge 0.01
        } elseif {$arg == "-carve_only"} {
            vrip_param -use_tails 1 -tails_only 1
        } elseif {$arg == "-show_render"} {
            show_render
        } elseif {$arg == "-slicer"} {
            slicer
        } elseif {$arg == "-linepersp"} {
            set bmeshCmd bmeshlin
        } elseif {$arg == "-persp"} {
            set bmeshCmd bmeshp
        } elseif {$arg == "-stzoom"} {
            incr i
            set arg [lindex $argv $i]
            set CywarpSTZoom $arg
            set warp 1
        } elseif {$arg == "-yzoom"} {
            incr i
            set arg [lindex $argv $i]
            set CywarpYZoom $arg
            set warp 1
        } elseif {$arg == "-wangle"} {
            incr i
            set arg [lindex $argv $i]
            set CywarpAngle $arg
            set warp 1
        }
    }
}

if {$warp} {
    set bmeshCmd "${bmeshCmd}warp"
}

if {$bmeshCmd != "bmesh"} {
    alias bmesh $bmeshCmd
}

update 

if {[info exists resToScaleMap($voxelSize)]} {
   changeRampScale $resToScaleMap($voxelSize)
}

if {$doChangeScale} {
   changeRampScale $scaleFactor
}

if {$haveRampLength} {
   vrip_param -ramp_width $RampLength
   vrip_param -w1 [expr $RampLength * 1.5]
   vrip_param -w2 [expr $RampLength * 1.25]
   vrip_param -w3 [expr $RampLength * -0.5]
   vrip_param -w4 [expr $RampLength * -0.75]
   vrip_param -w5 [expr $RampLength * -1.0]
   set boundary [expr int(3 * ($RampLength / $voxelSize + 1))]
   vrip_param -max_boundary_steps $boundary
   puts "Using ramps of length $RampLength, with $boundary boundary steps"
}

newFromConf $gridName $confFile $boundMesh $voxelSize

exit