1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-08-04 13:13:25 +03:00
apn 355c155147 Adding testing cases from chl group
Modified END file of all group bugs. Command nbshape moved to END file. Add begin with variable subgroup
Small correction in END file
Replaced test case bug726_3 from moddata to modalg
2012-12-28 18:50:48 +04:00

22 lines
371 B
Plaintext
Executable File

puts "========"
puts "OCC766"
puts "========"
puts ""
###############################
## Can not project the 3-D point on the ellipse
###############################
restore [locate_data_file OCC766.draw] c
set result [proj c 30 3.944304526105059e-31 20.0]
set ll [llength $result]
if {$ll > 0} {
puts "OCC770 OK"
} else {
puts "Faulty OCC770"
}
set 2dviewer 1