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
|
puts "TODO OCC24156 MacOS: Tcl Exception: tolerance ang"
puts "TODO OCC24156 MacOS: TEST INCOMPLETE"
puts "========================"
puts "OCC625"
puts "========================"
puts ""
###############################################################################
## Created filler looks strange (see attached picture) inspite of checkshapes told about correct source and result shapes.
###############################################################################
pload QAcommands
restore [locate_data_file OCC625.brep] a
checkshape a
tclean a
explode a e
blend res1 a 10 a_22 10 a_14
blend result res1 10 a_17 10 a_4
checkshape result
vinit
vdisplay result
vfit
vsetdispmode result 1
set x_coord 116
set y_coord 252
checkcolor $x_coord $y_coord 0.82 0.58 0.09
set square 19977
set 3dviewer 1
|
