[occt.git] / tests / thrusection / specific / N1

puts "============"
puts "OCC7166"
puts "============"
puts ""
#######################################################################
# Improvement of API of ThruSection
#######################################################################

set BugNumber OCC7166

set z1 40
set z2 20
set z3 0
set z4 100

# spine
polyline s1 0 0 ${z4} 0 0 -${z4}

# begining vertex
vertex v4 40 0 ${z4}
# ending vertex
vertex v5 40 0 -${z4}

# profile
# top triangle
vertex v1 0 0 ${z1}
vertex v2 5 5 ${z1}
vertex v3 0 10 ${z1}

edge e1 v1 v2
edge e2 v2 v3
edge e3 v3 v1

wire w1 e1 e2 e3

# top quadrangle
vertex v11 15 15 ${z2}
vertex v12 -15 15 ${z2}
vertex v13 -15 -15 ${z2}
vertex v14 15 -15 ${z2}

edge e11 v11 v12
edge e12 v12 v13
edge e13 v13 v14
edge e14 v14 v11

wire w11 e11 e12 e13 e14
 
# top octagon
vertex v21 25 25 ${z3}
vertex v22 -25 25 ${z3}
vertex v23 -30 10 ${z3}
vertex v24 -30 -10 ${z3}
vertex v25 -25 -25 ${z3}
vertex v26 25 -25 ${z3}
vertex v27 30 -10 ${z3}
vertex v28 30 10 ${z3}

edge e21 v21 v22
edge e22 v22 v23
edge e23 v23 v24
edge e24 v24 v25
edge e25 v25 v26
edge e26 v26 v27
edge e27 v27 v28
edge e28 v28 v21

wire w21 e21 e22 e23 e24 e25 e26 e27 e28

# bottom quadrangle
vertex v111 15 15 -${z2}
vertex v112 -15 15 -${z2}
vertex v113 -15 -15 -${z2}
vertex v114 15 -15 -${z2}

edge e111 v111 v112
edge e112 v112 v113
edge e113 v113 v114
edge e114 v114 v111

wire w111 e111 e112 e113 e114

# bottom triangle
vertex v101 0 0 -${z1}
vertex v102 5 5 -${z1}
vertex v103 0 10 -${z1}

edge e101 v101 v102
edge e102 v102 v103
edge e103 v103 v101

wire w101 e101 e102 e103

mksweep s1

addsweep v4
addsweep w1
addsweep w11
addsweep w21
addsweep w111
addsweep w101
addsweep v5

catch {buildsweep result}


set square 182717

set nb_v_good 2
set nb_e_good 33
set nb_w_good 11
set nb_f_good 11
set nb_sh_good 1
set nb_sol_good 0
set nb_compsol_good 0
set nb_compound_good 0
set nb_shape_good 58


set index [lsearch [whatis result] Closed]
if {$index == -1} {
  puts "Faulty ${BugNumber} : result is not Closed shape"
  
}

set 3dviewer 0
Commit	Line	Data
3bea4c16	1	puts "============"
	2	puts "OCC7166"
	3	puts "============"
	4	puts ""
	5	#######################################################################
	6	# Improvement of API of ThruSection
	7	#######################################################################
	8
	9	set BugNumber OCC7166
	10
	11	set z1 40
	12	set z2 20
	13	set z3 0
	14	set z4 100
	15
	16	# spine
	17	polyline s1 0 0 ${z4} 0 0 -${z4}
	18
	19	# begining vertex
	20	vertex v4 40 0 ${z4}
	21	# ending vertex
	22	vertex v5 40 0 -${z4}
	23
	24	# profile
	25	# top triangle
	26	vertex v1 0 0 ${z1}
	27	vertex v2 5 5 ${z1}
	28	vertex v3 0 10 ${z1}
	29
	30	edge e1 v1 v2
	31	edge e2 v2 v3
	32	edge e3 v3 v1
	33
	34	wire w1 e1 e2 e3
	35
	36	# top quadrangle
	37	vertex v11 15 15 ${z2}
	38	vertex v12 -15 15 ${z2}
	39	vertex v13 -15 -15 ${z2}
	40	vertex v14 15 -15 ${z2}
	41
	42	edge e11 v11 v12
	43	edge e12 v12 v13
	44	edge e13 v13 v14
	45	edge e14 v14 v11
	46
	47	wire w11 e11 e12 e13 e14
	48
	49	# top octagon
	50	vertex v21 25 25 ${z3}
	51	vertex v22 -25 25 ${z3}
	52	vertex v23 -30 10 ${z3}
	53	vertex v24 -30 -10 ${z3}
	54	vertex v25 -25 -25 ${z3}
	55	vertex v26 25 -25 ${z3}
	56	vertex v27 30 -10 ${z3}
	57	vertex v28 30 10 ${z3}
	58
	59	edge e21 v21 v22
	60	edge e22 v22 v23
	61	edge e23 v23 v24
	62	edge e24 v24 v25
	63	edge e25 v25 v26
	64	edge e26 v26 v27
65	edge e27 v27 v28
66	edge e28 v28 v21
67
68	wire w21 e21 e22 e23 e24 e25 e26 e27 e28
69
70	# bottom quadrangle
71	vertex v111 15 15 -${z2}
72	vertex v112 -15 15 -${z2}
73	vertex v113 -15 -15 -${z2}
74	vertex v114 15 -15 -${z2}
75
76	edge e111 v111 v112
77	edge e112 v112 v113
78	edge e113 v113 v114
79	edge e114 v114 v111
80
81	wire w111 e111 e112 e113 e114
82
83	# bottom triangle
84	vertex v101 0 0 -${z1}
85	vertex v102 5 5 -${z1}
86	vertex v103 0 10 -${z1}
87
88	edge e101 v101 v102
89	edge e102 v102 v103
90	edge e103 v103 v101
91
92	wire w101 e101 e102 e103
93
94	mksweep s1
95
96	addsweep v4
97	addsweep w1
98	addsweep w11
99	addsweep w21
100	addsweep w111
101	addsweep w101
102	addsweep v5
103
104	catch {buildsweep result}
105
106
5b0f2540	107	set square 182717
3bea4c16	108
	109	set nb_v_good 2
	110	set nb_e_good 33
	111	set nb_w_good 11
	112	set nb_f_good 11
	113	set nb_sh_good 1
	114	set nb_sol_good 0
	115	set nb_compsol_good 0
	116	set nb_compound_good 0
	117	set nb_shape_good 58
	118
	119
	120
	121	set index [lsearch [whatis result] Closed]
	122	if {$index == -1} {
	123	puts "Faulty ${BugNumber} : result is not Closed shape"
	124
	125	}
	126
	127	set 3dviewer 0
	128