[occt.git] / tests / bugs / moddata_3 / bug25706_3

puts "================"
puts "OCC25706"
puts "================"
puts ""
#######################################################################
# Exception in conversion B-spline to rational
#######################################################################

bsplinesurf s \
  2 2  0 3  1 3 \
  2 2  0 3  1 3 \
  0.0 0.0 0.0 1  0.5 0.0 0.0 1  1.0 0.0 0.0 1 \
  0.0 0.5 0.0 1  0.5 0.5 1.0 1  1.0 0.5 0.0 1 \
  0.0 1.0 0.0 1  0.5 1.0 0.0 1  1.0 1.0 0.0 1
mkface f1 s

dump s

setweight s 2 2 0.5

set info [dump s]
if { [regexp {rational} ${info}] } {
    puts "OK : B-spline is rational"
} else {
    puts "Error : B-spline is non-rational"
}

mkface result s

checkview -display result -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
52ba6031	1	puts "================"
	2	puts "OCC25706"
	3	puts "================"
	4	puts ""
	5	#######################################################################
	6	# Exception in conversion B-spline to rational
	7	#######################################################################
	8
	9	bsplinesurf s \
	10	2 2 0 3 1 3 \
	11	2 2 0 3 1 3 \
	12	0.0 0.0 0.0 1 0.5 0.0 0.0 1 1.0 0.0 0.0 1 \
	13	0.0 0.5 0.0 1 0.5 0.5 1.0 1 1.0 0.5 0.0 1 \
	14	0.0 1.0 0.0 1 0.5 1.0 0.0 1 1.0 1.0 0.0 1
	15	mkface f1 s
	16
	17	dump s
	18
	19	setweight s 2 2 0.5
	20
	21	set info [dump s]
	22	if { [regexp {rational} ${info}] } {
	23	puts "OK : B-spline is rational"
	24	} else {
	25	puts "Error : B-spline is non-rational"
	26	}
	27
	28	mkface result s
	29
5747059b	30	checkview -display result -2d -path ${imagedir}/${test_image}.png