6 ################################################################
7 ## We should get the edges forming a closed intersection line but we see breaks.
8 ################################################################
15 set xc [dval (2*$dx+2*$sx)*$n/2]
26 set pol "polyline w $x $y $z"
27 for {set i 1} {$i <= $n} {incr i} {
29 set pol "$pol $x $y $z"
32 set pol "$pol $x $y $z"
34 set pol "$pol $x $y $z"
37 set pol "$pol $x $y $z"
41 circle c $xc $yc $zc $nxc $nyc $nzc $r
44 set lcyl [dval -$zc*2]
49 bsection result crg cyl
51 set nb_info [nbshapes result]
52 regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full nb_vertices
53 regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full nb_edges
55 if { $nb_vertices != $nb_edges } {
56 puts "Section is opened: Faulty shape"
58 puts "Section is closed: OK"