Ищу скрипт-реализация губки Менгера.
мой скрипт,но нужна более обобщенная реализация
мой скрипт,но нужна более обобщенная реализация
Код:
b=box length:99 width:99 height:99 pos:[0,0,0] wirecolor:[255,255,0]
--global a=99
select b
--while i<=3 do
for i=1 to 3 do
( d=99/(3^i)
for j=1 to 3^(i-1) do
for n=1 to 3^(i-1) do
(b1=box length:d width:d height:99 pos:[(((99/2)*(2*j-1))/((3^(i-1))))-99/2,(((99/2)*(2*n-1))/((3^(i-1))))-99/2,0]
boolObj.createBooleanObject $
boolObj.SetOperandB $ b1 4 1)
for m=1 to 3^(i-1) do for k=1 to 3^(i-1) do
(b2=box length:99 width:d height:d pos:[((99*(2*m-1))/(2*(3^(i-1))))-99/2,0,(99*(3*k-2))/(3^i)]
boolObj.createBooleanObject $
boolObj.SetOperandB $ b2 4 2 )
)
Вложения
-
331,7 КБ Просмотров: 1 619