[occt.git] / tests / bugs / modalg_7 / bug30269

puts "========"
puts "0030269: Modeling Algorithms - unhandled Standard_NullObject within BRepBndLib::Add()"
puts "========"
puts ""

pload MODELING VISUALIZATION

# sample Face with some Curve2ds missing
set aShapeData "
DBRep_DrawableShape

CASCADE Topology V1, (c) Matra-Datavision
Locations 0 
Curve2ds 0
Curves 2
1 8111.3 2939 9014.2 0.23 5.2e-07 0.97 
1 9996.2 2940 8568.4 -0.229 3.64e-07 -0.97 
Polygon3D 0
PolygonOnTriangulations 0
Surfaces 2
1 9056.7 2940 8807.3 1.29e-07 -1 5e-07 -1.26e-29 -5.03e-07 -1 1 1.288e-07 -6.48e-14 
1 10000 1519 8584.45 -0.97 -8.47e-08 0.23 0.23 0 0.97 -8.24e-08 1 1.95e-08 
Triangulations 0

TShapes 10
Ve
1e-07
8111.30 2940 9014.2
0 0

0101101
*
Ve
1e-07
9996.21 2940 8568.4
0 0

0101101
*
Ed
 2.22e-16 0 0 0
0

0101000
+10 0 -9 0 *
Ve
1e-07
8115 2940 9030
0 0

0101101
*
Ed
 1e-07 0 0 0
1  1 0 0 16.5
0

0101000
+10 0 -7 0 *
Ve
1e-07
10000 2940 8584.5
0 0

0101101
*
Ed
 2.22e-16 0 0 0
0

0101000
+7 0 -5 0 *
Ed
 1e-07 0 0 0
1  2 0 -16.5 0
4 C0 1 0 2 0
0

0101000
+5 0 -9 0 *
Wi

0101000
-8 0 +6 0 +4 0 +3 0 *
Fa
0  1e-07 1 0

0101000
-2 0 *

-1 4 
"

set aFile [open "$imagedir/${casename}.brep" wb]
puts $aFile $aShapeData
close $aFile
restore "$imagedir/${casename}.brep" f
file delete "$imagedir/${casename}.brep"

bounding f
bounding f -optimal
bounding f -obb
sprops f
vprops f
Commit	Line	Data
87a64d53	1	puts "========"
	2	puts "0030269: Modeling Algorithms - unhandled Standard_NullObject within BRepBndLib::Add()"
	3	puts "========"
	4	puts ""
	5
	6	pload MODELING VISUALIZATION
	7
	8	# sample Face with some Curve2ds missing
	9	set aShapeData "
	10	DBRep_DrawableShape
	11
	12	CASCADE Topology V1, (c) Matra-Datavision
	13	Locations 0
	14	Curve2ds 0
	15	Curves 2
	16	1 8111.3 2939 9014.2 0.23 5.2e-07 0.97
	17	1 9996.2 2940 8568.4 -0.229 3.64e-07 -0.97
	18	Polygon3D 0
	19	PolygonOnTriangulations 0
	20	Surfaces 2
	21	1 9056.7 2940 8807.3 1.29e-07 -1 5e-07 -1.26e-29 -5.03e-07 -1 1 1.288e-07 -6.48e-14
	22	1 10000 1519 8584.45 -0.97 -8.47e-08 0.23 0.23 0 0.97 -8.24e-08 1 1.95e-08
	23	Triangulations 0
	24
	25	TShapes 10
	26	Ve
	27	1e-07
	28	8111.30 2940 9014.2
	29	0 0
	30
	31	0101101
	32	*
	33	Ve
	34	1e-07
	35	9996.21 2940 8568.4
	36	0 0
	37
	38	0101101
	39	*
	40	Ed
	41	2.22e-16 0 0 0
	42	0
	43
	44	0101000
	45	+10 0 -9 0 *
	46	Ve
	47	1e-07
	48	8115 2940 9030
	49	0 0
	50
	51	0101101
	52	*
	53	Ed
	54	1e-07 0 0 0
	55	1 1 0 0 16.5
	56	0
	57
	58	0101000
	59	+10 0 -7 0 *
	60	Ve
	61	1e-07
	62	10000 2940 8584.5
	63	0 0
	64
65	0101101
66	*
67	Ed
68	2.22e-16 0 0 0
69	0
70
71	0101000
72	+7 0 -5 0 *
73	Ed
74	1e-07 0 0 0
75	1 2 0 -16.5 0
76	4 C0 1 0 2 0
77	0
78
79	0101000
80	+5 0 -9 0 *
81	Wi
82
83	0101000
84	-8 0 +6 0 +4 0 +3 0 *
85	Fa
86	0 1e-07 1 0
87
88	0101000
89	-2 0 *
90
91	-1 4
92	"
93
94	set aFile [open "$imagedir/${casename}.brep" wb]
95	puts $aFile $aShapeData
96	close $aFile
97	restore "$imagedir/${casename}.brep" f
98	file delete "$imagedir/${casename}.brep"
99
100	bounding f
101	bounding f -optimal
102	bounding f -obb
103	sprops f
104	vprops f