-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