tests/bugs/modalg_4/bug77_2

   1 puts "TODO OCC77 ALL: Error : The area of result shape is"
   2
   3 puts "====="
   4 puts "OCC77"
   5 puts "====="
   6 puts ""
   7 ####################################
   8 # BUC60866. The BRepFill_Pipe fails.
   9 ####################################
  10
  11 restore [locate_data_file buc60866a.rle] Section
  12 restore [locate_data_file buc60866b.rle] PathBad
  13
  14 reverse PathBad
  15
  16 set area 1.12049e+07
  17
  18 set nbshapes_expected "
  19 Number of shapes in shape
  20  VERTEX    : 15
  21  EDGE      : 22
  22  WIRE      : 8
  23  FACE      : 8
  24  SHELL     : 2
  25  SOLID     : 0
  26  COMPSOLID : 0
  27  COMPOUND  : 1
  28  SHAPE     : 56
  29 "
  30
  31 smallview
  32 display Section
  33 display PathBad
  34 fit
  35
  36
  37 #
  38 # Mode = 0 - CorrectedFrenet
  39 #
  40 pipe result_0 PathBad Section
  41
  42 checkshape result_0
  43
  44 checkprops result_0 -s ${area}
  45
  46 checknbshapes result_0 -ref ${nbshapes_expected} -t -m "Pipe"
  47
  48 set info [bopcheck result_0]
  49 if { [regexp "This shape seems to be OK" ${info}] != 1 } {
  50     puts "Error : The BRepFill_Pipe fails, 0"
  51 }
  52
  53 donly result_0
  54 checkview -screenshot -2d -path ${imagedir}/${test_image}_0.png
  55
  56
  57 #
  58 # Mode = 1 - Frenet
  59 #
  60 set Mode 1
  61 pipe result_1 PathBad Section ${Mode}
  62
  63 checkshape result_1
  64
  65 checkprops result_1 -s ${area}
  66
  67 checknbshapes result_1 -ref ${nbshapes_expected} -t -m "Pipe"
  68
  69 set info [bopcheck result_1]
  70 if { [regexp "This shape seems to be OK" ${info}] != 1 } {
  71     puts "Error : The BRepFill_Pipe fails, 1"
  72 }
  73
  74 donly result_1
  75 checkview -screenshot -2d -path ${imagedir}/${test_image}_1.png
  76
  77
  78 #####
  79 ##### Approx - force C1-approximation if result is C0
  80 #####
  81 set Approx 1
  82 set Mode 1
  83 pipe result_1_a PathBad Section ${Mode} ${Approx}
  84
  85 checkshape result_1_a
  86
  87 checkprops result_1_a -s ${area}
  88
  89 checknbshapes result_1_a -ref ${nbshapes_expected} -t -m "Pipe"
  90
  91 set info [bopcheck result_1_a]
  92 if { [regexp "This shape seems to be OK" ${info}] != 1 } {
  93     puts "Error : The BRepFill_Pipe fails, 1a"
  94 }
  95
  96 donly result_1_a
  97 checkview -screenshot -2d -path ${imagedir}/${test_image}_1_a.png
  98
  99
 100 #
 101 # Mode = 2 - DiscreteTrihedron
 102 #
 103 set Mode 2
 104 pipe result_2 PathBad Section ${Mode}
 105
 106 checkshape result_2
 107
 108 checkprops result_2 -s ${area}
 109
 110 checknbshapes result_2 -ref ${nbshapes_expected} -t -m "Pipe"
 111
 112 set info [bopcheck result_2]
 113 if { [regexp "This shape seems to be OK" ${info}] != 1 } {
 114     puts "Error : The BRepFill_Pipe fails, 2"
 115 }
 116
 117 donly result_2
 118 checkview -screenshot -2d -path ${imagedir}/${test_image}_2.png
 119
 120
 121 #####
 122 ##### Approx - force C1-approximation if result is C0
 123 #####
 124 set Approx 1
 125 set Mode 2
 126 pipe result_2_a PathBad Section ${Mode} ${Approx}
 127
 128 checkshape result_2_a
 129
 130 checkprops result_2_a -s ${area}
 131
 132 checknbshapes result_2_a -ref ${nbshapes_expected} -t -m "Pipe"
 133
 134 set info [bopcheck result_2_a]
 135 if { [regexp "This shape seems to be OK" ${info}] != 1 } {
 136     puts "Error : The BRepFill_Pipe fails, 2a"
 137 }
 138
 139 donly result_2_a
 140 checkview -screenshot -2d -path ${imagedir}/${test_image}_2_a.png