Tcl Source Code

Artifact e77f565b3552842852f6e521f6f068ecef8b97e7:

set cam(sv,1,east)  {{3 5} {4 8}}
set cam(sv,1,order) {2 3 5}
set cam(sv,1,west)  {2 10}
set cam(sv,2,order) 4
set cam(sv,2,west)  {4 5}
set cam(sv,dirs)    {east west}
proc avSubsCalc {cnum t0 {dir ""} } {
    global cam
    foreach c $cam(sv,$cnum,order) {
        foreach d $cam(sv,dirs) {
        puts "$c,$d"
            if {[catch {set dlist $cam(sv,$cnum,$d} ]} continue
        }
    }
}
avSubsCalc 1 0