mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
40 lines
805 B
Plaintext
Executable File
40 lines
805 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
|
|
|
|
checkprops result -s 76338.8
|
|
|
|
checknbshapes result -vertex 4 -edge 4 -wire 1 -face 1 -shell 0 -solid 0 -compsolid 0 -compound 0 -shape 10
|
|
checkview -display result -2d -path ${imagedir}/${test_image}.png
|
|
|