tests/bugs/modalg_4/bug77_1

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