tests/bugs/modalg_5/bug24817

   1 puts "========"
   2 puts "CR24817"
   3 puts "========"
   4 puts ""
   5 #########################################
   6 ## Can not sew two circular faces in non-manifold mode
   7 #########################################
   8
   9 # Create first face
  10 circle c 0 1 0 1
  11 trim c c 0.5*pi 1.5*pi
  12 mkedge e1 c
  13 line l 0 0 0 0 1 0
  14 trim l l 0 2
  15 mkedge e2 l
  16 wire w e1 e2
  17 mkplane plane1 w
  18
  19 # Create second face
  20 circle c 0 1 0 1
  21 trim c c 1.5*pi 2.5*pi
  22 mkedge e1 c
  23 line l 0 0 0 0 1 0
  24 trim l l 0 2
  25 mkedge e2 l
  26 wire w e1 e2
  27 mkplane plane2 w
  28
  29 # Create third face
  30 circle c 0 1 0 1 0 0 1
  31 trim c c 1.5*pi 2.5*pi
  32 mkedge e1 c
  33 line l 0 0 0 0 1 0
  34 trim l l 0 2
  35 mkedge e2 l
  36 wire w e1 e2
  37 mkplane plane3 w
  38
  39 # Sew faces
  40 sewing sr1 plane1 plane2 +n
  41 sewing sr2 plane1 plane2 plane3 +n
  42
  43 #
  44 checknbshapes sr1 -vertex 2 -edge 3 -wire 2 -face 2 -shell 1 -solid 0 -compsolid 0 -compound 0 -shape 10
  45
  46 checkprops sr1 -s 3.14159
  47 clear
  48 smallview
  49 donly sr1
  50 fit
  51 xwd $imagedir/${test_image}_1.png
  52
  53 #
  54 checknbshapes sr2 -vertex 2 -edge 4 -wire 3 -face 3 -shell 1 -solid 0 -compsolid 0 -compound 0 -shape 13
  55
  56 checkprops sr2 -s 4.71239
  57 donly sr2
  58 fit
  59 xwd $imagedir/${test_image}_2.png
  60
  61 checkmaxtol sr1 -ref 1.0000000015308085e-007
  62 checkfreebounds sr1 2
  63
  64 checkmaxtol sr2 -ref 1.0000000015308085e-007
  65 checkfreebounds sr2 0