tests/bugs/caf/bug21707

   1 puts "=========="
   2 puts "OCC21707"
   3 puts "=========="
   4 puts ""
   5 ##############################################################
   6 # Selection of Vertex returns Compound of vertexes
   7 ##############################################################
   8
   9 NewDocument D MDTV-Standard
  10 isos 12
  11 NewCommand D
  12 AddDriver D PntXYZ PntRLT Line3D Attach
  13 set Pnt1 [AddPoint D 0 0 0]
  14 ComputeFun D $Pnt1:1
  15 GetShape D $Pnt1:1:2 P1
  16
  17 set Pnt2 [AddPoint D 0 200 0]
  18 ComputeFun D $Pnt2:1
  19 set Pnt3 [AddPoint D 200 200 0]
  20 ComputeFun D $Pnt3:1
  21 set Pnt4 [AddPoint D 200 0 0]
  22 ComputeFun D $Pnt4:1
  23 GetShape D $Pnt2:1:2 P2
  24 GetShape D $Pnt3:1:2 P3
  25 GetShape D $Pnt4:1:2 P4
  26
  27 NewCommand D
  28 set Lin2 [ AddLine3D D 1 $Pnt1 $Pnt2 $Pnt3 $Pnt4]
  29 ComputeFun D $Lin2:1
  30 GetShape D $Lin2:1:2 L1
  31
  32 NewCommand D
  33 AddDriver D Prism Box PTxyz
  34 set Prism [AddPrism D $Lin2 300 0]
  35 ComputeFun D $Prism:1
  36 GetShape D $Prism:1:2 Pr
  37
  38 NewCommand D
  39 set B1 [AddBox D 400 140 600]
  40 ComputeFun D $B1:1
  41 GetShape D $B1:1:2 Box
  42
  43 NewCommand D
  44 set FTr1 [PTranslateDXYZ D $B1 -100 -20 -100]
  45 ComputeFun D $FTr1
  46 GetShape D $B1:2:2 Box
  47
  48 NewCommand D
  49 AddDriver D Comm Cut Fuse
  50 set Com1 [AddCommon D $Prism $B1]
  51 ComputeFun D $Com1
  52 GetShape D $Com1:2 Pr
  53
  54 NewCommand D
  55 explode Pr E
  56 AddDriver D Attach Cyl
  57 set Sel1 [AttachShape D Pr_6 ${Prism} ${Prism} 0]
  58 set Cyl [AddCyl D 70 515 ${Sel1}]
  59 ComputeFun D $Cyl:1
  60 GetShape D $Cyl:1:2 CylS
  61
  62 NewCommand D
  63 set FTr1 [PTranslateDXYZ D $Cyl -100 200 170]
  64 ComputeFun D $FTr1
  65 GetShape D $Cyl:2:2 CylS
  66
  67 set Cut1 [AddCut D $Prism $Cyl]
  68 ComputeFun D $Cut1
  69 GetShape D $Cut1:2 Pr
  70 don Pr
  71 explode Pr V
  72 don Pr
  73 set Sel8 [AttachShape D Pr_8 ${Prism} ${Prism} 0]
  74 set Sel11 [AttachShape D Pr_10 ${Prism} ${Prism} 0]
  75
  76 GetShape D $Cut1:2 result
  77
  78 set nb_v_good 10
  79 set 2dviewer 0
  80