tests/bugs/modalg_5/bug25292_12

   1 puts "TODO OCC225404 Debian60-64 Windows: Error: Curve Number is bad!"
   2
   3 puts "================"
   4 puts "OCC25292"
   5 puts "================"
   6 puts ""
   7 #######################################################################
   8 # Face/Face intersection algorithm gives different results for different order of the arguments
   9 #######################################################################
  10
  11 # bopcurves command
  12
  13 restore [locate_data_file bug25292_Input_0.brep] b1
  14 restore [locate_data_file bug25292_Input_1.brep] b2
  15
  16 explode b1 f
  17 copy b1_2 f1
  18 explode b2 f
  19 copy b2_2 f2
  20
  21 #############################
  22 set log [bopcurves f2 f1 -2d]
  23 #############################
  24
  25 regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv
  26 set MaxTol 1.e-7
  27 if {${Toler} > ${MaxTol}} {
  28   puts "Error: Tolerance is too big!"
  29 }
  30 set GoodNbCurv 7
  31 if {${NbCurv} != ${GoodNbCurv}} {
  32   puts "Error: Curve Number is bad!"
  33 }
  34
  35 #-------------
  36
  37 # 1
  38 puts ""
  39 puts "First curve"
  40
  41 mksurface s1 f1
  42 mksurface s2 f2
  43
  44 dlog reset
  45 dlog on
  46 xdistcs c_1 s1 0 1 10
  47 set Log1 [dlog get]
  48
  49 set List1 [split ${Log1} {TD= \t\n}]
  50 set Tolerance 1.0e-7
  51 set D_good 0.
  52 checkList ${List1} ${Tolerance} ${D_good}
  53
  54 # 2
  55 puts ""
  56 puts "Second curve"
  57
  58 dlog reset
  59 dlog on
  60 xdistcs c_2 s1 0 1 10
  61 set Log2 [dlog get]
  62
  63 set List2 [split ${Log2} {TD= \t\n}]
  64 set Tolerance 1.0e-7
  65 set D_good 0.
  66 checkList ${List2} ${Tolerance} ${D_good}
  67
  68 # 3
  69 puts ""
  70 puts "Third curve"
  71
  72 dlog reset
  73 dlog on
  74 xdistcs c_3 s1 0 1 10
  75 set Log3 [dlog get]
  76
  77 set List3 [split ${Log3} {TD= \t\n}]
  78 set Tolerance 1.0e-7
  79 set D_good 0.
  80 checkList ${List3} ${Tolerance} ${D_good}
  81
  82 # 4
  83 puts ""
  84 puts "Fourth curve"
  85
  86 dlog reset
  87 dlog on
  88 xdistcs c_4 s1 0 1 10
  89 set Log4 [dlog get]
  90
  91 set List4 [split ${Log4} {TD= \t\n}]
  92 set Tolerance 1.0e-7
  93 set D_good 0.
  94 checkList ${List4} ${Tolerance} ${D_good}
  95
  96 # 5
  97 if { [info exist c_5] } {
  98 puts ""
  99 puts "Fifth curve"
 100
 101 dlog reset
 102 dlog on
 103 xdistcs c_5 s1 0 1 10
 104 set Log5 [dlog get]
 105
 106 set List5 [split ${Log5} {TD= \t\n}]
 107 set Tolerance 1.0e-7
 108 set D_good 0.
 109 checkList ${List5} ${Tolerance} ${D_good}
 110 }
 111
 112 # 6
 113 if { [info exist c_6] } {
 114 puts ""
 115 puts "Sixth curve"
 116
 117 dlog reset
 118 dlog on
 119 xdistcs c_6 s1 0 1 10
 120 set Log6 [dlog get]
 121
 122 set List6 [split ${Log6} {TD= \t\n}]
 123 set Tolerance 1.0e-7
 124 set D_good 0.
 125 checkList ${List6} ${Tolerance} ${D_good}
 126 }
 127
 128 # 7
 129 if { [info exist c_7] } {
 130 puts ""
 131 puts "Seventh curve"
 132
 133 dlog reset
 134 dlog on
 135 xdistcs c_7 s1 0 1 10
 136 set Log7 [dlog get]
 137
 138 set List7 [split ${Log7} {TD= \t\n}]
 139 set Tolerance 1.0e-7
 140 set D_good 0.
 141 checkList ${List7} ${Tolerance} ${D_good}
 142 }
 143
 144
 145 v2d
 146 2dfit
 147 set only_screen_axo 1