mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +03:00
a8676008f7
Splitting of subgroups bugs/modalg and bugs/moddata to optimise time of testing Correction of end file in group v3d Small correction of test case
49 lines
802 B
Plaintext
Executable File
49 lines
802 B
Plaintext
Executable File
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
|
|
|