Губка Менгера(Куб Серпинского)

Ищу скрипт-реализация губки Менгера.
мой скрипт,но нужна более обобщенная реализация

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 )
				
				)

Не рассматриваете вариант создания куба из маленьких кубиков, к примеру 1000х1000х1000 и без всяких булевых операций просто убрать ненужные?
но 1000х1000х1000 многовато получается ), может только если в массивах это все посчитать