mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
1f45f21358
1. Modify method IntPatch_ALineToWLine::MakeWLine: add correction of end points of each line on 2 surfaces if an end point is a pole on a surface. 2. Modify method IntPatch_WLine::ComputeVertexParameters: adjust a point on curve to corresponding vertex the following way: set 3D point as the point of the vertex and 2D points as the points of the point on curve.
53 lines
1.2 KiB
Plaintext
53 lines
1.2 KiB
Plaintext
puts "========"
|
|
puts "0029807: Impossible to cut cone from prism"
|
|
puts "========"
|
|
puts ""
|
|
|
|
restore [locate_data_file bug29807-obj.brep] b1
|
|
restore [locate_data_file bug29807-tool.brep] b2
|
|
|
|
trotate b2 +23.85857157145715500000 +12.00000000000000000000 +5.50000000000000000000 7 -7.14142842854285 0 -5
|
|
removeloc b2 b2
|
|
|
|
bclearobjects
|
|
bcleartools
|
|
baddobjects b1
|
|
baddtools b2
|
|
bfillds
|
|
|
|
# CUT operation
|
|
bbop result 2
|
|
|
|
savehistory ResHist
|
|
|
|
checkshape result
|
|
checkprops result -v 9465.07 -s 4012.74
|
|
checknbshapes result -face 9 -wire 9
|
|
|
|
if {[regexp "Faulties" [bopargcheck result]]} {
|
|
puts "Error: bopargcheck has found some faulties in result"
|
|
}
|
|
|
|
explode b2 f
|
|
modified reshm ResHist b2_2
|
|
|
|
checknbshapes reshm -face 2
|
|
|
|
foreach a [explode reshm f] {
|
|
# Every modified face must contain degenerated edge
|
|
|
|
if { ![regexp {degenerated} [dump $a] ] } {
|
|
puts "Error: Degenerated edge is not found"
|
|
}
|
|
}
|
|
|
|
vdisplay result
|
|
vsetdispmode 1
|
|
vviewparams -scale 52.4803 -proj 0.285421 0.0158136 0.958272 -up -0.810772 0.537155 0.232624 -at 29.6172 13.0268 3.82234 -eye 47.7439 14.0311 64.6808
|
|
|
|
if { [regexp {no triangulation} [tricheck result] ] } {
|
|
puts "Error: Result contains not triangulated face"
|
|
}
|
|
|
|
checkview -screenshot -3d -path ${imagedir}/${test_image}.png
|