tests/boolean/bsection/N7

   1 if { [array get env os_type] != "" } {
   2         set os $env(os_type)
   3 }
   4 if { [string compare $os "windows"] == 0 } {
   5         puts "TODO #22911 ALL: An exception was caught"
   6         puts "TODO #22911 ALL: \\*\\* Exception \\*\\*.*"
   7         puts "TODO #22911 ALL: TEST INCOMPLETE"
   8 } else {
   9         puts "TODO #22911 ALL: TEST INCOMPLETE"
  10 }
  11
  12 cpulimit 900
  13
  14 restore [locate_data_file lh3d_ro1.brep] a
  15 isos a 0
  16 compound result
  17 set i 1
  18 repeat 199 {
  19 plane p_$i 0 $i*100 0  0 1 0
  20 mkface f_$i p_$i
  21 bsection s_$i a f_$i
  22 compound result s_$i result
  23 display s_$i
  24 clear f_$i
  25 clear p_$i
  26 set dist [expr $i * 100]
  27 puts "OK Section:$dist"
  28 incr i
  29 }
  30
  31 set length 4.36836e+07