mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-10 18:51:21 +03:00
76 lines
1.5 KiB
Plaintext
Executable File
76 lines
1.5 KiB
Plaintext
Executable File
puts "========"
|
|
puts "CR24817"
|
|
puts "========"
|
|
puts ""
|
|
#########################################
|
|
## Can not sew two circular faces in non-manifold mode
|
|
#########################################
|
|
|
|
# Create first face
|
|
circle c 0 1 0 1
|
|
trim c c 0.5*pi 1.5*pi
|
|
mkedge e1 c
|
|
line l 0 0 0 0 1 0
|
|
trim l l 0 2
|
|
mkedge e2 l
|
|
wire w e1 e2
|
|
mkplane plane1 w
|
|
|
|
# Create second face
|
|
circle c 0 1 0 1
|
|
trim c c 1.5*pi 2.5*pi
|
|
mkedge e1 c
|
|
line l 0 0 0 0 1 0
|
|
trim l l 0 2
|
|
mkedge e2 l
|
|
wire w e1 e2
|
|
mkplane plane2 w
|
|
|
|
# Create third face
|
|
circle c 0 1 0 1 0 0 1
|
|
trim c c 1.5*pi 2.5*pi
|
|
mkedge e1 c
|
|
line l 0 0 0 0 1 0
|
|
trim l l 0 2
|
|
mkedge e2 l
|
|
wire w e1 e2
|
|
mkplane plane3 w
|
|
|
|
# Sew faces
|
|
sewing sr1 plane1 plane2 +n
|
|
sewing sr2 plane1 plane2 plane3 +n
|
|
|
|
#
|
|
checknbshapes sr1 -vertex 2 -edge 3 -wire 2 -face 2 -shell 1 -solid 0 -compsolid 0 -compound 0 -shape 10
|
|
|
|
regexp {Mass +: +([-0-9.+eE]+)} [sprops sr1] full square1
|
|
set square1_good 3.14159
|
|
if { ${square1} != ${square1_good} } {
|
|
puts "Error 2: Square is not valid"
|
|
}
|
|
|
|
clear
|
|
smallview
|
|
donly sr1
|
|
fit
|
|
xwd $imagedir/${test_image}_1.png
|
|
|
|
#
|
|
checknbshapes sr2 -vertex 2 -edge 4 -wire 3 -face 3 -shell 1 -solid 0 -compsolid 0 -compound 0 -shape 13
|
|
|
|
regexp {Mass +: +([-0-9.+eE]+)} [sprops sr2] full square2
|
|
set square2_good 4.71239
|
|
if { ${square2} != ${square2_good} } {
|
|
puts "Error 4: Square is not valid"
|
|
}
|
|
|
|
donly sr2
|
|
fit
|
|
xwd $imagedir/${test_image}_2.png
|
|
|
|
checkmaxtol sr1 -ref 1.0000000015308085e-007
|
|
checkfreebounds sr1 2
|
|
|
|
checkmaxtol sr2 -ref 1.0000000015308085e-007
|
|
checkfreebounds sr2 0
|