[occt.git] / tests / bugs / caf / bug21707

puts "=========="
puts "OCC21707"
puts "=========="
puts ""
##############################################################
# Selection of Vertex returns Compound of vertexes
##############################################################

NewDocument D MDTV-Standard
isos 12
NewCommand D
AddDriver D PntXYZ PntRLT Line3D Attach
set Pnt1 [AddPoint D 0 0 0]
ComputeFun D $Pnt1:1
GetShape D $Pnt1:1:2 P1

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

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

NewCommand D
AddDriver D Prism Box PTxyz
set Prism [AddPrism D $Lin2 300 0]
ComputeFun D $Prism:1
GetShape D $Prism:1:2 Pr

NewCommand D
set B1 [AddBox D 400 140 600]
ComputeFun D $B1:1
GetShape D $B1:1:2 Box

NewCommand D
set FTr1 [PTranslateDXYZ D $B1 -100 -20 -100]
ComputeFun D $FTr1
GetShape D $B1:2:2 Box

NewCommand D
AddDriver D Comm Cut Fuse
set Com1 [AddCommon D $Prism $B1]
ComputeFun D $Com1
GetShape D $Com1:2 Pr

NewCommand D
explode Pr E
AddDriver D Attach Cyl
set Sel1 [AttachShape D Pr_6 ${Prism} ${Prism} 0]
set Cyl [AddCyl D 70 515 ${Sel1}]
ComputeFun D $Cyl:1
GetShape D $Cyl:1:2 CylS

NewCommand D
set FTr1 [PTranslateDXYZ D $Cyl -100 200 170]
ComputeFun D $FTr1
GetShape D $Cyl:2:2 CylS

set Cut1 [AddCut D $Prism $Cyl]
ComputeFun D $Cut1
GetShape D $Cut1:2 Pr
don Pr
explode Pr V
don Pr
set Sel8 [AttachShape D Pr_8 ${Prism} ${Prism} 0]
set Sel11 [AttachShape D Pr_10 ${Prism} ${Prism} 0]

GetShape D $Cut1:2 result

set nb_v_good 10
set 2dviewer 0
Commit	Line	Data
b92d758f	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