tests/bugs/modalg_7/bug23187

   1 puts "============"
   2 puts "OCC23187"
   3 puts "============"
   4 puts ""
   5 ######################################################
   6 # Cut with a compound
   7 ######################################################
   8
   9 # Création cylindre tronqué ouvert avec 4 zones
  10
  11 # Démarche
  12 # - Création de quatre faces planes connexes (profil représentant les
  13 #   3 couches et l'interieur
  14 # - Génération des portions de cylindres connexes par révolution
  15 #   des faces précédentes
  16 # - Creation du plan et troncature (cut) de l'objet précedent
  17
  18 # => temps moyen : 62source  ms
  19
  20 vertex v0 0 0 0
  21 vertex v1 1 0 0
  22 vertex v2 2 0 0
  23 vertex v3 3 0 0
  24 vertex v4 4 0 0
  25 vertex v5 5 0 0
  26
  27 vertex v01 0 0 5
  28 vertex v11 1 0 5
  29 vertex v21 2 0 5
  30 vertex v31 3 0 5
  31 vertex v41 4 0 5
  32
  33 edge e1 v0 v1
  34 edge ee2 v1 v11
  35 edge e3 v11 v01
  36 edge e4 v01 v0
  37
  38 wire w1 e1 ee2 e3 e4
  39 mkplane f1 w1
  40
  41 orientation ee2 R
  42
  43 edge e1 v1 v2
  44 edge eee2 v2 v21
  45 edge e3 v21 v11
  46
  47 wire w1 e1 eee2 e3 ee2
  48 mkplane f2 w1
  49
  50 orientation eee2 R
  51
  52 edge e1 v2 v3
  53 edge eeee2 v3 v31
  54 edge e3 v31 v21
  55
  56 wire w1 e1 eeee2 e3 eee2
  57 mkplane f3 w1
  58
  59 orientation eeee2 R
  60 edge e1 v3 v4
  61 edge eeeee2 v4 v41
  62 edge e3 v41 v31
  63
  64 wire w1 e1 eeeee2 e3 eeee2
  65 mkplane f4 w1
  66 shape sp Sh
  67 add f1 sp
  68 add f2 sp
  69 add f3 sp
  70 add f4 sp
  71
  72 revol r sp 0 0 0 0 0 1 270
  73
  74 plane p
  75 mkface fp p -6 6 -6 6
  76
  77 trotate fp 0 0 0 0 1 0 20
  78 ttranslate fp 0 0 3
  79
  80 shape s Sh
  81 add fp s
  82
  83 shape so So
  84 add s so
  85
  86 explode r
  87 compound r_1 r_2 r_3 r_4 cr
  88 bcut result cr so
  89
  90 checkshape result
  91 set area_result 231.511
  92 checkprops result -s ${area_result}
  93 checkview -display result -2d -path ${imagedir}/${test_image}_1.png
  94
  95 compound r_2 r_1 r_4 r_3 cr
  96 bcut result2 cr so
  97 checkshape result2
  98 checkprops result2 -s ${area_result}
  99 checkview -display result2 -2d -path ${imagedir}/${test_image}_2.png