1 puts "========================"
3 puts "========================"
5 ################################################################
6 ## Exception when projecting a point on planar surface of linear extrusion oriented along Y axis
7 ################################################################
9 restore [locate_data_file OCC430.rle] result
11 if [catch {proj result 49.86391363636364 440.7894090909091 127.05 } catch_result] {
12 puts "Faulty OCC430: Projection was made wrongly."
14 puts "OK OCC348: function PROJECT works properly"