mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-06-05 11:24:17 +03:00
352ffd7358
Test case tests/bugs/modalg/dxf906 was renamed to bug889 Adding test cases to tests/bugs/moddata Modified expressions puts [checkshape result]. Added command vzfit in end file in folder bugs. Unlocked command coordload in QABugs_3.cxx Modified test case bugs vis buc60738 Added test cases to modalg and moddata Added test cases to caf and fclasses Added test cases to group heal
63 lines
1.6 KiB
Plaintext
Executable File
63 lines
1.6 KiB
Plaintext
Executable File
|
|
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
|