1 puts "========================"
4 puts "========================"
6 ##################################################################
7 ## Can not find a projection the circle on the sphere.
8 ##################################################################
10 restore [locate_data_file OCC360a.draw] c
11 restore [locate_data_file OCC360b.draw] cf
13 set che [project result c cf]
16 if { [regexp {Projection} $che] && [regexp {Failed} $che] } {
17 puts "Faulty OCC360: command PROJECT works wrongly"
19 puts " OCC360 OK : command PROJECT works properly"