tests/caf/driver/B5

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