Commit | Line | Data |
---|---|---|
352ffd73 | 1 | puts "========" |
2 | puts "OCC766" | |
3 | puts "========" | |
4 | puts "" | |
5 | ############################### | |
6 | ## Can not project the 3-D point on the ellipse | |
7 | ############################### | |
8 | ||
9 | restore [locate_data_file OCC766.draw] c | |
10 | ||
11 | set result [proj c 30 3.944304526105059e-31 20.0] | |
12 | ||
13 | set length [llength $result] | |
14 | ||
15 | if {$length > 0} { | |
16 | puts "OCC770 OK" | |
17 | } else { | |
18 | puts "Faulty OCC770" | |
19 | } | |
20 | ||
21 | set 2dviewer 1 |