1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-10 18:51:21 +03:00

22 lines
528 B
Plaintext
Executable File

puts "========"
puts "OCC1665"
puts "========"
############################################################
## Geom_BSplineSurface::SetVPeriodic throws an exception
############################################################
restore [locate_data_file OCC1665.draw] a
if {[catch {setvperiodic a} message]} {
puts "OCC1665 FAULTY : setvperiodic"
} else {
if {[catch {mkface result a} message]} {
puts "OCC1665 FAULTY : mkface"
} else {
checknbshapes result -edge 3
}
}
set square 12265.3
set 3dviewer 2