tests/perf/modalg/bug26447

   1 puts "============"
   2 puts "OCC26447"
   3 puts "============"
   4 puts ""
   5 ##############################################################
   6 # Performance degradation intersecting cylindrical surfaces
   7 #############################################################
   8
   9 cylinder c1 0 0 0 1 0 0 0 -1 0 100
  10 cylinder c2 0 0 0 0 1 0 1 0 0 100
  11 mkface f1 c1
  12 mkface f2 c2
  13
  14 dchrono cr restart
  15
  16 for {set i 1} {$i <= 1000} {incr i} {
  17   bopcurves f1 f2
  18 }
  19
  20 dchrono cr stop counter bopcurves