tests/bugs/modalg/buc60533

   1 puts "=========="
   2 puts "BUC60533"
   3 puts "=========="
   4
   5 restore [locate_data_file buc60533a.brep] part
   6 checkshape part
   7 #puts "Tolerance part"
   8 #computetolerance part
   9
  10 restore [locate_data_file buc60533b.brep] trTool
  11 checkshape trTool
  12 #puts "Tolerance trTool"
  13 #computetolerance trTool
  14
  15 # create halfspace
  16 vertex v  10000 15000 -15000
  17 halfspace hs trTool 10000 15000 -15000
  18 #puts "Tolerance hs"
  19 #computetolerance hs
  20
  21 #*************************************************
  22 if [catch {bcut result part hs} catch_result] {
  23     puts "Faulty BUC60533: function CUT works wrongly"
  24 } else {
  25     puts " BUC60533 OK: function CUT works properly"
  26 }
  27 #*************************************************
  28
  29 #set che [checkshape res r]
  30 #set err [lindex $che [expr [llength $che] - 1]]
  31 #if { $err != "OK"} {
  32 #  puts "Faulty : mistakes are found in checked shape by checkshape command"
  33 #} else {
  34 #  puts "Checking by checkshape - OK"
  35
  36 #explode res e
  37 #mkcurve cu1 res_1
  38 #mkcurve cu2 res_2
  39 #mkcurve cu3 res_3
  40 #mkcurve cu4 res_4
  41 #mkcurve cu5 res_5
  42
  43 #checkshape res
  44
  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"
  51 #} else {
  52 #puts "Tolerance of shape is less then 1.0"
  53 #}
  54 #}
  55
  56 # Objectif : Couper part par trTool
  57 #
  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.
  63 #
  64 # Le cut n'est pas effectue car une exception est levee :
  65 #  An exception was caught Standard_ConstructionError:
  66 #  ** Exception ** Standard_ConstructionError:
  67
  68 set square 1.63191e+07
  69 set 2dviewer 0