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
|
puts "TODO OCC26604 ALL: Error: GeomFill_Pipe doesn't fit given bounds"
puts "========"
puts "OCC26604"
puts "========"
puts ""
#######################################################
# GeomFill_Pipe doesn't fit given bounds
#######################################################
pload QAcommands
restore [locate_data_file bug26604_spine.brep] spine
restore [locate_data_file bug26604_bound1.brep] bound1
restore [locate_data_file bug26604_bound2.brep] bound2
mkcurve s spine
mkcurve b1 bound1
mkcurve b2 bound2
OCC9 result s b1 b2 10
smallview
top
clear
display bound1
display bound2
display result
fit
checkview -screenshot -2d -path ${imagedir}/${test_image}-2d.png
mkface face result
vinit
vtop
vclear
vdisplay bound1
vdisplay bound2
vdisplay face
vfit
checkview -screenshot -3d -path ${imagedir}/${test_image}-3d.png
set x 155
set y 185
if { [checkcolor $x $y 0 1 0] == 1 } {
puts "Error: GeomFill_Pipe doesn't fit given bounds"
}
|
