tests/bugs/modalg/bug60533

   1 #INTERFACE IGES
   2 puts "=========="
   3 puts "BUC60533"
   4 puts "=========="
   5
   6 restore [locate_data_file buc60533a.brep] part
   7 puts [checkshape part]
   8 #puts "Tolerance part"
   9 #computetolerance part
  10
  11 restore [locate_data_file buc60533b.brep] trTool
  12 puts [checkshape trTool]
  13 #puts "Tolerance trTool"
  14 #computetolerance trTool
  15
  16 # create halfspace
  17 vertex v  10000 15000 -15000
  18 halfspace hs trTool 10000 15000 -15000
  19 #puts "Tolerance hs"
  20 #computetolerance hs
  21
  22 #*************************************************
  23 if [catch {bcut result part hs} catch_result] {
  24     puts "Faulty BUC60533: function CUT works wrongly"
  25 } else {
  26     puts " BUC60533 OK: function CUT works properly"
  27 }
  28 #*************************************************
  29
  30 #set che [checkshape res r]
  31 #set err [lindex $che [expr [llength $che] - 1]]
  32 #if { $err != "OK"} {
  33 #  puts "Faulty : mistakes are found in checked shape by checkshape command"
  34 #} else {
  35 #  puts "Checking by checkshape - OK"
  36
  37 #explode res e
  38 #mkcurve cu1 res_1
  39 #mkcurve cu2 res_2
  40 #mkcurve cu3 res_3
  41 #mkcurve cu4 res_4
  42 #mkcurve cu5 res_5
  43
  44 #checkshape res
  45
  46 #set tolerance [ maxtolerance res ]
  47 #set MaxFaceTolerance [ lindex $tolerance 14 ]
  48 #set MaxEdgeTolerance [ lindex $tolerance 20 ]
  49 #set MaxVertexTolerance [ lindex $tolerance 26 ]
  50 #if { $MaxFaceTolerance > 1 || $MaxEdgeTolerance > 1 || $MaxVertexTolerance > 1 } {
  51 #puts "Faulty :Tolerance of shape is more then 1.0"
  52 #} else {
  53 #puts "Tolerance of shape is less then 1.0"
  54 #}
  55 #}
  56
  57 # Objectif : Couper part par trTool
  58 #
  59 # part est construite a partir d'un semi de point et de telle facon que u=x et v=y.
  60 # On obtient une Geom_BSplineSurface. On cree alors la topologie a partir de cette
  61 # surface via BRepAPI::MakeFace(surface)
  62 # Dans notre code, a aucun moment, nous
  63 # n'initialisons la tolerance.
  64 #
  65 # Le cut n'est pas effectue car une exception est levee :
  66 #  An exception was caught Standard_ConstructionError:
  67 #  ** Exception ** Standard_ConstructionError:
  68
  69 set square 1.63191e+07
  70 set 2dviewer 0