tests/thrusection/specific/I2

   1 puts "============"
   2 puts "OCC7166"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 # Improvement of API of ThruSection
   7 #######################################################################
   8
   9 set BugNumber OCC7166
  10
  11 # spine
  12 polyline s1 0 0 20 0 0 -20
  13
  14 # profile
  15 circle c1 0 0 0 5
  16 mkedge ec1 c1
  17 wire s2 ec1
  18
  19 # 1 vertex
  20 vertex v1 0 0 -20
  21
  22 mksweep s1
  23
  24 addsweep v1
  25 addsweep s2
  26
  27 buildsweep result
  28
  29
  30 set square 1294.43
  31
  32 checknbshapes result -vertex 2 -edge 3 -wire 1 -face 1 -shell 1 -solid 0 -compsolid 0 -compound 0 -shape 8
  33
  34
  35 set 3dviewer 0
  36