[occt.git] / tests / bugs / modalg_6 / bug27383_4

puts "========"
puts "0027383: Modeling - improve handling of regularity on edges"
puts "========"
puts ""
#################################################################
# Check regularity setting on edges between patches of B-Spline surface obtained by conversion of cylinder
#################################################################

pload MODELING
pcylinder p 2 10
explode p f
nurbsconvert q p_1
DT_ClosedSplit r q
encoderegularity r

explode r F
explode r_1 E
if { ! [regexp "G2" [getedgeregularity r_1_2 r_1 r_2]] } {
  puts "Error: Invalid regularity of the edge, expected G2"
}
if { ! [regexp "G2" [getedgeregularity r_1_4 r_1 r_2]] } {
  puts "Error: Invalid regularity of the edge, expected G2"
}

# make image in HLR mode as illustration
pload VISUALIZATION
vdisplay r
vfit
vhlr on
vdump ${imagedir}/${test_image}.png
Commit	Line	Data
712879c8	1	puts "========"
	2	puts "0027383: Modeling - improve handling of regularity on edges"
	3	puts "========"
	4	puts ""
	5	#################################################################
	6	# Check regularity setting on edges between patches of B-Spline surface obtained by conversion of cylinder
	7	#################################################################
	8
	9	pload MODELING
	10	pcylinder p 2 10
	11	explode p f
	12	nurbsconvert q p_1
	13	DT_ClosedSplit r q
	14	encoderegularity r
	15
	16	explode r F
	17	explode r_1 E
	18	if { ! [regexp "G2" [getedgeregularity r_1_2 r_1 r_2]] } {
	19	puts "Error: Invalid regularity of the edge, expected G2"
	20	}
	21	if { ! [regexp "G2" [getedgeregularity r_1_4 r_1 r_2]] } {
	22	puts "Error: Invalid regularity of the edge, expected G2"
	23	}
	24
	25	# make image in HLR mode as illustration
	26	pload VISUALIZATION
	27	vdisplay r
	28	vfit
	29	vhlr on
	30	vdump ${imagedir}/${test_image}.png