4 ############################################################
5 ## Geom_BSplineSurface::SetVPeriodic throws an exception
6 ############################################################
8 restore [locate_data_file OCC1665.draw] a
10 if {[catch {setvperiodic a} message]} {
11 puts "OCC1665 FAULTY : setvperiodic"
13 if {[catch {mkface result a} message]} {
14 puts "OCC1665 FAULTY : mkface"
16 checknbshapes result -edge 3
20 checkprops result -s 12637 -eps 0.1
22 checkview -display result -3d -path ${imagedir}/${test_image}.png