projects / occt.git / blame
| 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 | ||
| 355c1551 | 13 | set ll [llength $result] |
| 352ffd73 | 14 | |
| 355c1551 | 15 | if {$ll > 0} { |
| 352ffd73 | 16 | puts "OCC770 OK" |
| 17 | } else { | |
| 18 | puts "Faulty OCC770" | |
| 19 | } | |
| 20 | ||
| 21 | set 2dviewer 1 |