990a9dd6d0ce1768bbc8721bd3796358e69ceeec
[occt.git] / tests / bugs / moddata_3 / bug24959_1
1 puts "========"
2 puts "OCC24959"
3 puts "========"
4 puts ""
5 ####################################################
6 ## GCPnts_TangentialDeflection does not implement functionality by its meaning in case of BSpline with local splash
7 ####################################################
8
9 bsplinesurf s 2 4 0.0 3 0.34 1 0.67 1 1.0 3 1 2 0.0 2 1.0 2 10 0 0 1 6 0 0 1 4 0 0 1 2 0 0 1 0 0 0 1 10 5 0 1 6 5 0 1 4 5 0 1 1.5 9 0 1 0 5 0 1
10 mkface result s
11 incmesh result 1
12 set tri_info [trinfo result]
13 regexp {deflection ([0-9.+e-]+)} $tri_info full defl
14
15 # check deflections
16 if { $defl > 1 } {
17   puts "Error: too big deflection on original face (${defl} > 1)"
18 } else {
19   puts "Deflection is OK (${defl})"
20 }
21
22 vdisplay result
23 vsetdispmode 1
24 vtop
25 vfit
26 checkview -screenshot -3d -path ${imagedir}/${test_image}.png