tests/caf/driver/B5

   1 #1 - create 4 Pnts
   2 NewCommand D
   3 AddDriver D PntXYZ PntRLT Line3D Attach;
   4 set Pnt1 [AddPoint D 0 0 0];            ## add point1
   5 ComputeFun D $Pnt1:1;                   ## compute function
   6 GetShape D $Pnt1:1:2 P1;                ## check result
   7 whatis P1
   8 # referes to result NS
   9 GetReference D $Pnt1;                   ## check is reference set
  10
  11 set Pnt2 [AddPoint D 0 200 0];
  12 ComputeFun D $Pnt2:1;
  13 set Pnt3 [AddPoint D 200 200 0];
  14 ComputeFun D $Pnt3:1;
  15 set Pnt4 [AddPoint D 200 0 0];
  16 ComputeFun D $Pnt4:1;
  17 GetShape D $Pnt2:1:2 P2;
  18 GetShape D $Pnt3:1:2 P3;
  19 GetShape D $Pnt4:1:2 P4;
  20
  21 #2 create open Lin1
  22 #NewCommand D
  23 #set Lin1 [ AddLine3D D 0 $Pnt1 $Pnt2 $Pnt3 $Pnt4]
  24 #ComputeFun D $Lin1:1;
  25 #GetShape D $Lin1:1:2 L1;
  26
  27 #3 create closed Lin3
  28 NewCommand D
  29 set Lin2 [ AddLine3D D 1 $Pnt1 $Pnt2 $Pnt3 $Pnt4]
  30 ComputeFun D $Lin2:1;
  31 GetShape D $Lin2:1:2 L1;
  32
  33 #4 Prism  (after step #1)
  34 NewCommand D
  35 AddDriver D Prism
  36 set Prism [AddPrism D $Lin2 300 0]
  37 ComputeFun D $Prism:1
  38 GetShape D $Prism:1:2 Pr
  39 GetReference D $Prism;                  ## check is reference set
  40
  41 #5 create two prisms
  42 NewCommand D
  43 explode Pr F
  44 set Bas1 [AttachShape D Pr_1 ${Prism} ${Prism} 1]
  45 set Bas2 [AttachShape D Pr_4 ${Prism} ${Prism} 1]
  46
  47 set Prism2 [AddPrism D $Bas1 300 0]
  48 ComputeFun D $Prism2:1
  49 GetShape D $Prism2:1:2 Pr2
  50
  51
  52 set Prism3 [AddPrism D $Bas2 500 0]
  53 ComputeFun D $Prism3:1
  54 GetShape D $Prism3:1:2 Pr3
  55
  56 #6 => fuse
  57 NewCommand D
  58 AddDriver D Fuse Sph Cut
  59 set FS1 [AddFuse D $Prism $Prism2]
  60 ComputeFun D $FS1
  61 GetShape D $FS1:2 Pr
  62
  63 set FS2 [AddFuse D $Prism $Prism3]
  64 ComputeFun D $FS2
  65 GetShape D $FS2:2 Pr
  66
  67 set Sph [AddSphere D $Pnt3 150]
  68 NewCommand D
  69 ComputeFun D $Sph:1
  70 GetShape D $Sph:1:2 Sp
  71
  72 #7 Cut sphere
  73 NewCommand D
  74 set Cut1 [AddCut D $Prism $Sph]
  75 ComputeFun D $Cut1
  76 GetShape D $Cut1:2 Pr
  77 don Pr
  78
  79 #8 test selection
  80 NewCommand D
  81 set SL  [TestSingleSelection   D $Prism 0]
  82 set SL2 [TestMultipleSelection D $Prism 0]
  83
  84
  85
  86 #9 modify
  87 PntOffset D $Pnt1  50 30 skip
  88
  89 #10 recompute
  90 NewCommand D
  91 ComputeFun D $Pnt1:1
  92 ComputeFun D $Lin2:1
  93 ComputeFun D $Prism:1
  94 ComputeFun D $Bas1:1
  95 ComputeFun D $Bas2:1
  96 ComputeFun D $Prism2:1
  97 ComputeFun D $Prism3:1
  98 ComputeFun D $FS1
  99 ComputeFun D $FS2
 100 ComputeFun D $Sph:1
 101 ComputeFun D $Cut1
 102 erase
 103 GetShape D $Cut1:2 Pr
 104 #GetShape D $Prism:1:2 Pr
 105 #GetShape D $Prism2:1:2 Pr2
 106 #GetShape D $Prism3:1:2 Pr3
 107
 108 #recomputation of entities of the TestSelection commands
 109 SolveFlatFrom D $SL
 110 NewCommand D
 111