1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
puts "============"
puts "OCC21255"
puts "============"
puts ""
#######################################################################
# Some problems with 3D chamfer construction
#######################################################################
set BugNumber OCC21255
restore [locate_data_file OCC21255-1.brep] ss
explode ss F
explode ss_7 E
vinit
if [catch { chamf result ss ss_7_2 ss_7 5. 5. } ] {
puts "Faulty ${BugNumber} : chamf is wrong"
} else {
set square 45382.5
set nb_v_good 15
set nb_e_good 22
set nb_w_good 9
set nb_f_good 9
set nb_sh_good 1
set nb_sol_good 1
set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 58
set 3dviewer 0
vdisplay result
vsetdispmode 1
vfit
set scale 5.8955238204183011
set proj_X 0.62061613798141479
set proj_Y -0.6891753077507019
set proj_Z -0.37399500608444214
set up_X -0.12894462049007416
set up_Y -0.56017255783081055
set up_Z 0.81827831268310547
set at_X -56.828238528324
set at_Y -19.8089213662065
set at_Z 447.801500039167
vviewparams -scale ${scale} -proj ${proj_X} ${proj_Y} ${proj_Z} -up ${up_X} ${up_Y} ${up_Z} -at ${at_X} ${at_Y} ${at_Z}
}
set only_screen 1
|
