mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
355c155147
Modified END file of all group bugs. Command nbshape moved to END file. Add begin with variable subgroup Small correction in END file Replaced test case bug726_3 from moddata to modalg
62 lines
1.6 KiB
Plaintext
Executable File
62 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
|