Adding test cases from chl grid
[occt.git] / tests / bugs / iges / bug663
CommitLineData
61c421bf 1puts "========================"
2puts "OCC663"
3puts "========================"
4#### Wrong translation of faces on SurfaceOfRevolution
5puts ""
6
7igesbrep [locate_data_file D44-11325-6.igs] a 2860
8
9set x 62.5015115293408
10set y -56.0926450759605
11set z -44.3
12vertex v $x $y $z
13
14distmini d a_1 v
15
16set MinDistList [dump d_val]
17set MinDist [lindex $MinDistList end]
18
19if {$MinDist > 1e-7} {
20 puts "Faulty OCC663"
21} else {
22 puts "OCC663 OK"
23}