[occt.git] / tests / bugs / modalg_5 / bug24328

puts "================"
puts "OCC24328"
puts "================"
puts ""
#######################################################################
# Revolution of a wire generates two interfered faces
#######################################################################

vertex v1 23.500000 11.123000 0
vertex v2 22.000000 11.140900 0
vertex v3 20.500000 11.180700 0
edge e1 v1 v2
edge e2 v2 v3
wire w e1 e2
revol r w 0 0 0 1 0 0 360

set info [bopcheck r]

if { [regexp "This shape seems to be OK" ${info}] != 1 } {
    puts "Error : Revolution works wrong"
} else {
    puts "OK: Revolution works properly"
}
Commit	Line	Data
b92a64cc	1	puts "================"
	2	puts "OCC24328"
	3	puts "================"
	4	puts ""
	5	#######################################################################
	6	# Revolution of a wire generates two interfered faces
	7	#######################################################################
	8
	9	vertex v1 23.500000 11.123000 0
	10	vertex v2 22.000000 11.140900 0
	11	vertex v3 20.500000 11.180700 0
	12	edge e1 v1 v2
	13	edge e2 v2 v3
	14	wire w e1 e2
	15	revol r w 0 0 0 1 0 0 360
	16
	17	set info [bopcheck r]
	18
	19	if { [regexp "This shape seems to be OK" ${info}] != 1 } {
	20	puts "Error : Revolution works wrong"
	21	} else {
	22	puts "OK: Revolution works properly"
	23	}