Difference between revisions of "Explode Shape"

From Macros Wiki
Jump to: navigation, search
 
Line 42: Line 42:
  
 
:message "next shape"
 
:message "next shape"
|}
+
 
 
{|
 
{|
 
|next i
 
|next i
 
|}
 
|}

Latest revision as of 10:29, 29 July 2010

global num, list(5)
contour [
start -1, -1
line -1, 1
line 1, 1
line 1, -1
line -1, -1
]
select_shape contourref
extrude 0, 2
iref = solidref
select_solid iref
translate_solid 5, 0, 0, 4
iref2 = solidref
shrink_wrap
explode_solid iref2, num, list
for i = 1 to num
deselect_all_solids
select_solid list(i)
redraw
message "next shape"
next i