[occt.git] / tests / bugs / moddata_1 / bug22694

puts "==========="
puts "OCC22694"
puts "==========="
######################################################
# Wrong result obntained after GeomLib::ExtendSurfByLength
######################################################

set BugNumber OCC22694

catch {pload DCAF}
catch {pload XDE}

# Create a new document and set UndoLimit
NewDocument D
UndoLimit D 100

# Open a transaction
NewCommand D

ReadStep D [locate_data_file OCC22694-rationalSurface.stp]

XGetShape sh D 0:1:1:1

explode sh F
mksurface ss sh_1
extendsurf ss 10 2 U
mkface result ss

vdisplay sh_1
vdisplay result

vsetdispmode 1
vfit

set square 76338.8

set nb_v_good 4
set nb_e_good 4
set nb_w_good 1
set nb_f_good 1
set nb_sh_good 0
set nb_sol_good 0
set nb_compsol_good 0
set nb_compound_good 0
set nb_shape_good 10

set 2dviewer 1
Commit	Line	Data
3bea4c16	1	puts "==========="
	2	puts "OCC22694"
	3	puts "==========="
	4	######################################################
	5	# Wrong result obntained after GeomLib::ExtendSurfByLength
	6	######################################################
	7
	8	set BugNumber OCC22694
	9
	10	catch {pload DCAF}
	11	catch {pload XDE}
	12
	13	# Create a new document and set UndoLimit
	14	NewDocument D
	15	UndoLimit D 100
	16
	17	# Open a transaction
	18	NewCommand D
	19
	20	ReadStep D [locate_data_file OCC22694-rationalSurface.stp]
	21
	22	XGetShape sh D 0:1:1:1
	23
	24	explode sh F
	25	mksurface ss sh_1
	26	extendsurf ss 10 2 U
	27	mkface result ss
	28
	29	vdisplay sh_1
	30	vdisplay result
	31
	32	vsetdispmode 1
	33	vfit
	34
	35	set square 76338.8
	36
	37	set nb_v_good 4
	38	set nb_e_good 4
	39	set nb_w_good 1
	40	set nb_f_good 1
	41	set nb_sh_good 0
	42	set nb_sol_good 0
	43	set nb_compsol_good 0
	44	set nb_compound_good 0
	45	set nb_shape_good 10
	46
	47	set 2dviewer 1
	48