1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
set os "ALL"
if {[array get env os_type] != ""} {
set os $env(os_type)
}
if {[string compare $os "Debian40"] == 0 || [string compare $os "Mandriva2008"] == 0} {
puts "TODO OCC22817 All: TEST INCOMPLETE"
} else {
# CR23404
#puts "TODO OCC22817 All: Faulty shapes in variables faulty_1 to faulty_4"
}
ellipse w1 0 0 0 15 10
mkedge w1 w1 0 pi/2
trotate w1 0 0 0 1 0 0 90
polyline w2 0 0 10 0 0 -10 25 0 -10 15 0 0
wire w w1 w2
mkplane w w
revol s w 0 0 0 0 0 1 270
tscale s 0 0 0 SCALE1
explode s E
blend result s 1*SCALE1 s_1 1*SCALE1 s_4 1*SCALE1 s_9
set square 425726
|
