fn SubArray array1 array2 =
(
delIndex = for f in array2 where (ind = findItem array1 f) != 0 collect ind
sort delIndex
for i = delIndex .count to 1 by -1 do deleteItem array1 delIndex[i]
return array1
)
fn comparePoint p1 p2 epsilon = (distance p1 p2) <= epsilon
fn compareOverlapUVElements obj channel element1 element2 epsilon =
(
local theVertsEl1 = meshop.getMapVertsUsingMapFace obj channel element1
local theVertsEl2 = meshop.getMapVertsUsingMapFace obj channel element2
for v1 in theVertsEl1 do
(
p1 = meshop.getMapVert obj channel v1
local fFind = true
for v2 in theVertsEl2 where fFind do
(
p2 = meshop.getMapVert obj channel v2
fFind = not comparePoint p1 p2 epsilon
)
if fFind do return false
)
return true
)
fn findOverlap elemets_overlap index =
(
for i = 1 to elemets_overlap.count where findItem elemets_overlap[i] index != 0 do return i
return 0
)
fn skipOverlap elemets_overlap index =
(
i = findOverlap elemets_overlap index
if i > 1 do return false return true
)
fn appendOverlap elemets_overlap elemets_array index new_index =
(
i = findOverlap elemets_overlap index
if i == 0 then append elemets_overlap #(index, new_index)
else append elemets_overlap[i] new_index
)
fn offsetElement obj channel elemet1 offset =
(
local theVertsEl1 = (meshop.getMapVertsUsingMapFace obj channel elemet1 )
for v in theVertsEl1 do
(
p = meshop.getMapVert obj channel v
p += offset
meshop.setMapVert obj channel v p
)
)
fn offsetOverlap obj channel elemets_overlap elemets_array offset vstep =
(
for elemets in elemets_overlap do
(
if vstep == 0 then vstep = elemets.count
for i = 1 to elemets.count do
(
ind = elemets[i]
cnt = i - 1
cntU = mod cnt vstep
cntV = floor (cnt / vstep)
offsetUVW = offset * [ cntU, cntV, cnt]
offsetElement obj channel elemets_array[ind] offsetUVW
)
)
)
fn shiftOverlapUVElements mesh channel:1 offset:[1,1,0] vstep:10 epsilon:0.001 =
(
local obj = copy mesh
convertToMesh obj
free_faces = #{1 .. obj.numfaces} as array
elemets_array = #()
elemets_overlap = #()
while free_faces.count > 0 do
(
face_array = #(free_faces[free_faces.count])
cnt = 0
while cnt < face_array.count do
(
cnt += 1
theVerts = meshop.getMapVertsUsingMapFace obj channel #(face_array[cnt])
theFaces = meshop.getMapFacesUsingMapVert obj channel theVerts
for f in theFaces do appendIfUnique face_array f
)--end while cnt
append elemets_array face_array
fFind = true
for i = 1 to elemets_array.count - 1 while fFind do --where skipOverlap elemets_overlap i do
(
if compareOverlapUVElements obj channel elemets_array[i] face_array epsilon then
(
appendOverlap elemets_overlap elemets_array i (elemets_array.count)
fFind = false
)
)
SubArray free_faces face_array
)--end while numfaces
offsetOverlap obj channel elemets_overlap elemets_array offset vstep
obj
)
--Example usage:
obj = shiftOverlapUVElements $ channel:1 offset:[1,1,0] vstep:10 epsilon:0.001
select obj
--modPanel.addModToSelection (Unwrap_UVW ()) ui:on
if($selection.count==1)then
(
obj=$selection[1];
if(obj.modifiers.count>0)then
(
uvw=modPanel.getCurrentObject();
if(classof uvw==Unwrap_UVW)then
(
if(uvw.getTVSubObjectMode()==3)then
(
sf_bit_array=uvw.getSelectedFaces(); sf_array=sf_bit_array as array;
cluster_count=0;
while (sf_array.count>0)do
(
cluster_count=cluster_count+1;
uvw.selectFaces #{sf_array[1]}; uvw.selectElement();
offset_vector=[cluster_count-1,0,0];
if(cluster_count>1)then uvw.moveSelected offset_vector;
sf_bit_array=sf_bit_array-uvw.getSelectedFaces(); sf_array=sf_bit_array as array;
if(cluster_count==200)then exit;
)--loop
)--SubObjectMode=Face
)--Unwrap_UVW
)--have modifiers
)--select one object