5 restore [locate_data_file buc60533a.brep] part
10 restore [locate_data_file buc60533b.brep] trTool
11 puts [checkshape trTool]
12 #puts "Tolerance trTool"
13 #computetolerance trTool
16 vertex v 10000 15000 -15000
17 halfspace hs trTool 10000 15000 -15000
21 #*************************************************
22 if [catch {bcut result part hs} catch_result] {
23 puts "Faulty BUC60533: function CUT works wrongly"
25 puts " BUC60533 OK: function CUT works properly"
27 #*************************************************
29 #set che [checkshape res r]
30 #set err [lindex $che [expr [llength $che] - 1]]
32 # puts "Faulty : mistakes are found in checked shape by checkshape command"
34 # puts "Checking by checkshape - OK"
45 #set tolerance [ maxtolerance res ]
46 #set MaxFaceTolerance [ lindex $tolerance 14 ]
47 #set MaxEdgeTolerance [ lindex $tolerance 20 ]
48 #set MaxVertexTolerance [ lindex $tolerance 26 ]
49 #if { $MaxFaceTolerance > 1 || $MaxEdgeTolerance > 1 || $MaxVertexTolerance > 1 } {
50 #puts "Faulty :Tolerance of shape is more then 1.0"
52 #puts "Tolerance of shape is less then 1.0"
56 # Objectif : Couper part par trTool
58 # part est construite a partir d'un semi de point et de telle facon que u=x et v=y.
59 # On obtient une Geom_BSplineSurface. On cree alors la topologie a partir de cette
60 # surface via BRepAPI::MakeFace(surface)
61 # Dans notre code, a aucun moment, nous
62 # n'initialisons la tolerance.
64 # Le cut n'est pas effectue car une exception est levee :
65 # An exception was caught Standard_ConstructionError:
66 # ** Exception ** Standard_ConstructionError:
68 set square 1.63191e+07