0026607: Wrong value of area.

[occt.git] / tests / bugs / modalg_1 / buc60899_2

puts "============"
puts "BUC60899"
puts "============"
puts ""
#####################################################
## Execution of the script prism_sec.tcl gives  exception "NumericError". 
#####################################################

set n 2
set dx 4
set sx 1
set sz 10
set xc [dval (2*$dx+2*$sx)*$n/2]
set zc -30
set r  [dval $xc*0.9]

set x 0
set y -50
set z 0
set pol "polyline w $x $y $z"
for {set i 1} {$i <= $n} {incr i} {
    set x [dval $x+$dx]
    set pol "$pol $x $y $z"
    set x [dval $x+$sx]
    set z [dval $z+$sz]
    set pol "$pol $x $y $z"
    set x [dval $x+$dx]
    set pol "$pol $x $y $z"
    set x [dval $x+$sx]
    set z [dval $z-$sz]
    set pol "$pol $x $y $z"
}

eval $pol
polyline c $xc-$r -$r*2 $zc $xc+$r -$r*2 $zc $xc+$r $r*2 $zc $xc-$r $r*2 $zc $xc-$r -$r*2 $zc

prism cyl c 0 0 -$zc*2 inf
prism crg w 0 -$y*2 0 inf
bsection result crg cyl

#checksection res
#checkshape res

set nb_info [nbshapes result]
regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full edgeness

    #set fullness [ nbshapes res ]
    #puts "$fullness"
    #set qq [ lindex $fullness 0 ]
    #set edgeness [ lindex $fullness 10 ]
    # puts "$edgeness"
    
if { $edgeness == 1  } {                                         
    puts "Shape is empty, it is Faulty result"                                                                               
} else {                                                                                                                        
    puts "Shape is not empty, OK"                                                                                                   
}

set length 162.299
set 2dviewer 0