tests/bugs/moddata_3/bug23575

   1 puts "========"
   2 puts "OCC23575"
   3 puts "========"
   4 puts ""
   5 ##################################################################################################
   6 # Bounding box for a planar edge has non-zero dimension in direction orthogonal to an edge plane
   7 ##################################################################################################
   8
   9 bsplinecurve c 3 2 0 4 1 4 0 0 0 1 0 1 0 1 1 1 0 1 1 0 0 1
  10 mkedge e c
  11 set boundResult [bounding e]
  12
  13 checkreal Xmin [lindex $boundResult 0] 0. 0.1 0.
  14 checkreal Ymin [lindex $boundResult 1] 0. 0.1 0.
  15 checkreal Zmin [lindex $boundResult 2] 0. 0.1 0.
  16 checkreal Xmax [lindex $boundResult 3] 1. 0.1 0.
  17 checkreal Ymax [lindex $boundResult 4] 1. 0.1 0.
  18 checkreal Zmax [lindex $boundResult 5] 0. 0.1 0.