0023523: In session DRAW it is impossible to close document having name already once...

[occt.git] / tests / caf / named_shape / F5

# =================== OCAF ======================
# Naming
#
# Testing purpose: Naming selection mechanism 
#
# Test case: F5 (ShapeOrientation is not  used)
# 1.  Create 4 points: $Pnt1 - $Pnt4
# 2.  Create closed line $Lin2
# 3.  Create prism Pr ($Prism)
# 4.  Create 2 prisms $Prism1, $Prism2
# 5.  $FS1 = Fuse ($Prism1, $Prism2); $FS2 = Fuse ($Prism1, $Prism3)
# 6.  Create sphere $Sph
# 7.  Cut sphere $Cut1 = Cut ($Prism, $Sph)
# 8.  Make  selections for all sub-shapes
# 9.  Modify $Pnt1
# 10. Recompute modeling functions
# 11. Recompute selections
# ===============================================

#pload FULL
erase 
Close D 

NewDocument D MDTV-Standard
isos 12

#1 - create 4 Pnts
NewCommand D
AddDriver D PntXYZ PntRLT Line3D Attach;
set Pnt1 [AddPoint D 0 0 0];		## add point1
ComputeFun D $Pnt1:1;			## compute function
GetShape D $Pnt1:1:2 P1;		## check result
whatis P1
# referes to result NS
GetReference D $Pnt1;			## check is reference set 

set Pnt2 [AddPoint D 0 200 0];
ComputeFun D $Pnt2:1;
set Pnt3 [AddPoint D 200 200 0];
ComputeFun D $Pnt3:1;
set Pnt4 [AddPoint D 200 0 0];
ComputeFun D $Pnt4:1;
GetShape D $Pnt2:1:2 P2;
GetShape D $Pnt3:1:2 P3;
GetShape D $Pnt4:1:2 P4;

#2 create closed Lin2
NewCommand D
set Lin2 [ AddLine3D D 1 $Pnt1 $Pnt2 $Pnt3 $Pnt4]
ComputeFun D $Lin2:1;
GetShape D $Lin2:1:2 L1;

#3 Prism 
NewCommand D
AddDriver D Prism
set Prism [AddPrism D $Lin2 300 0]
ComputeFun D $Prism:1
GetShape D $Prism:1:2 Pr
GetReference D $Prism;			## check is reference set 

#4 create two prisms
NewCommand D
explode Pr F
set Bas1 [AttachShape D Pr_1 ${Prism} ${Prism} 1]
set Bas2 [AttachShape D Pr_4 ${Prism} ${Prism} 1]

set Prism2 [AddPrism D $Bas1 300 0]
ComputeFun D $Prism2:1
GetShape D $Prism2:1:2 Pr2


set Prism3 [AddPrism D $Bas2 500 0]
ComputeFun D $Prism3:1
GetShape D $Prism3:1:2 Pr3

#5 => fuse
NewCommand D
AddDriver D Fuse Sph Cut
set FS1 [AddFuse D $Prism $Prism2]
ComputeFun D $FS1
GetShape D $FS1:2 Pr

set FS2 [AddFuse D $Prism $Prism3]
ComputeFun D $FS2
GetShape D $FS2:2 Pr

#6
set Sph [AddSphere D $Pnt3 150]
NewCommand D
ComputeFun D $Sph:1
GetShape D $Sph:1:2 Sp

#7 Cut sphere
NewCommand D
set Cut1 [AddCut D $Prism $Sph]
ComputeFun D $Cut1
GetShape D $Cut1:2 Pr
don Pr

#8 test selection
NewCommand D
set SL  [TestSingleSelection   D $Prism 0]
set SL2 [TestMultipleSelection D $Prism 0]



#9 modify
PntOffset D $Pnt1  50 30 skip

#10 recompute
NewCommand D
ComputeFun D $Pnt1:1
ComputeFun D $Lin2:1
ComputeFun D $Prism:1
ComputeFun D $Bas1:1
ComputeFun D $Bas2:1
ComputeFun D $Prism2:1
ComputeFun D $Prism3:1
ComputeFun D $FS1
ComputeFun D $FS2
ComputeFun D $Sph:1
ComputeFun D $Cut1
erase
GetShape D $Cut1:2 Pr
#GetShape D $Prism:1:2 Pr
#GetShape D $Prism2:1:2 Pr2
#GetShape D $Prism3:1:2 Pr3

#11 recomputation of entities of the TestSelection commands
SolveFlatFrom D $SL
NewCommand D