0026742: Update test cases for using checknbshapes procedure instead of global variables
[occt.git] / tests / bugs / modalg_2 / bug21261_43
1 puts "========"
2 puts "OCC21261"
3 puts "========"
4 puts ""
5 ######################################################
6 # Implementation of thickening of shell functionality
7 ######################################################
8
9 set BugNumber OCC21261
10
11 restore [locate_data_file OCC21261-4.brep] s 
12
13 thickshell result s 5 i
14
15 set square 43286.4
16
17 checknbshapes result -vertex 16 -edge 28 -wire 14 -face 14 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 74
18
19
20 vinit
21 vdisplay result
22 vsetdispmode 0
23 vfit
24
25 set scale    5.7979972910353759
26 set proj_X   0.40099617838859558
27 set proj_Y   -0.39083370566368103
28 set proj_Z   0.82852339744567871
29 set up_X     -0.58777821063995361
30 set up_Y     0.58394128084182739
31 set up_Z     0.55993682146072388
32 set at_X     74.9076600209737
33 set at_Y     113.868559295313
34 set at_Z     22.713272605878
35
36 vviewparams -scale ${scale} -proj ${proj_X} ${proj_Y} ${proj_Z} -up ${up_X} ${up_Y} ${up_Z} -at ${at_X} ${at_Y} ${at_Z}
37
38
39 set only_screen 0