This is the next step in Weaire phelam studies. a cellular automata for this space filling structure. its buggy as hell. but im working my ass off. it was done in rhinoscript of course!!!.

this is the code for the cellular automatta posted before (rhitomata), but now for it´s aplication in maya (python).

so , here´s the code.

you can visit http://digifab.wordpress.com for the MEL code.

#celullar automata

import maya.cmds as mc
import random

#Ejercicio final clase MELsCRIPT Arturo Lyon – Traduccion a Python por Diego Pinochet

divx= int(raw_input(“celulas en x:”))
divy= int(raw_input(“celulas en y: “))

#w = (raw_input(“inserte un decimal entre 0.01 y 0.99: “))

arrsph=[]

numlist= divx

arrsph=[]
rnd=[]
for i in range(numlist):
arrsph.append ([0]*divx)
rnd.append ([0]*divx)
#print arrsph

for x in range (divx):
for y in range (divy):
arrsph[x][y]= mc.polyCube (h=0.9,w=0.9)
mc.move (x,y,1)

for x in range (divx):
for y in range (divy):
rnd[x][y]= (random.uniform (0,1))
if rnd[x][y] < 0.5:
mc.select (arrsph[x][y])
mc.setAttr (‘.visibility’,0)

for x in range (1,(divx-1)):
for y in range (1,(divy-1)):

count =0

mc.select (arrsph[x-1][y-1])
s= mc.getAttr (‘.visibility’)
if s==0:
count =count+1

mc.select (arrsph[x-1][y])
s= mc.getAttr (‘.visibility’)
if s==0:
count=count+1

mc.select (arrsph[x-1][y+1])
s= mc.getAttr (‘.visibility’)
if s==0:
count=count+1

mc.select (arrsph[x][y-1])
s= mc.getAttr (‘.visibility’)
if s==0:
count=count+1

mc.select (arrsph[x][y+1])
s= mc.getAttr (‘.visibility’)
if s==0:
count=count+1

mc.select (arrsph[x+1][y-1])
s= mc.getAttr (‘.visibility’)
if s==0:
count=count+1

mc.select (arrsph[x+1][y])
s= mc.getAttr (‘.visibility’)
if s==0:
count=count+1

mc.select (arrsph[x+1][y+1])
s= mc.getAttr (‘.visibility’)
if s==0:
count=count+1

#print “ou yeah madafaca”

if count<4:
mc.select (arrsph[x][y])
mc.setAttr (‘.visibility’,1)

if count>4:
mc.select (arrsph[x][y])
mc.setAttr (‘.visibility’,0)

#end of code
————————————————————————-

So simple ….yet so emergent!!! (haha). i just love python.

This is really WIP, this are my early test of space filling structures. this is the famous weaire phelam.it´s based in two figures, a dodecahedron (12 sides) and a tetrakaidecahedron (14 sides). some images of the early test. the purpouse… don´t have a tiny clue….

the final work will be posted soon…. as soon as i finish and debug the code. (and of course there will be a  show me the code!!post)

Based on arturo Lyon´s code. this is an example of simple celullar automata in rhinoscript.i´ll uoload the python code for maya later (and of course MEL).

so … here´s the code!!!

Option Explicit
‘Script written by <Diego Pinochet Puentes (based in Arturo´s Lyon code for MEL (arturolyin.wordpress.com)>
‘Script copyrighted by <escripto.wordpress.com>
‘Script version martes, 06 de octubre de 2009 20:11:35

Call CA()
Sub CA()

Dim i,j
Dim xcell:xcell= rhino.getinteger (“numero de celulas en x”,40)
Dim ycell:ycell= rhino.getinteger (“numero de celulas en y”,40)
Dim dens:dens= rhino.getreal (“densidad de patron, elija decimal entre 0 y 1″,0.5)
rhino.print “generando el automata”
Dim count:count=0
Dim cell():ReDim cell(xcell-1,ycell-1)
Dim random():ReDim random(xcell-1,ycell-1)
rhino.enableredraw (False)

For i=0 To (xcell-1)
For j=0 To (ycell-1)
cell(i,j)= rhino.AddSphere (array(i,j),.45)
random(i,j)= 1*rnd
Next
Next

For i=0 To (xcell-1)
For j=0 To (ycell-1)
If random(i,j) =< dens Then
rhino.HideObject (cell(i,j))
End If
Next
Next

For i=0 To (xcell-1)
For j=0 To (ycell-1)
If random(i,j) =< dens Then
rhino.HideObject (cell(i,j))
End If
Next
Next
‘rhino.enableredraw (True)

For i=1 To xcell -2
For j=1 To ycell -2
count=0
rhino.print “analizando celula” & i & “-” & j & “”
If Rhino.IsObjectHidden(cell(i-1,j-1)) Then
count= count+1
Else
‘rhino.Print(“celula” & i-1 & “-” & j-1 & “prendida”)
End If

If Rhino.IsObjectHidden(cell(i-1,j)) Then
count= count+1
Else
‘    rhino.Print(” celula ” & i-1,j & ” prendida”)
End If

If Rhino.IsObjectHidden(cell(i-1,j+1)) Then
count= count+1
Else
‘    rhino.Print(” celula ” & i-1,j+1 & ” prendida”)
End If

If Rhino.IsObjectHidden(cell(i,j-1)) Then
count= count+1
Else
‘    rhino.Print(” celula ” & i,j-1 & ” prendida”)
End If

If Rhino.IsObjectHidden(cell(i,j+1)) Then
count= count+1
Else
‘    rhino.Print(” celula ” & i,j+1 & ” prendida”)
End If

If Rhino.IsObjectHidden(cell(i+1,j-1)) Then
count= count+1
Else
‘    rhino.Print(” celula ” & i+1,j-1 & ” prendida”)
End If

If Rhino.IsObjectHidden(cell(i+1,j)) Then
count= count+1
Else
‘    rhino.Print(” celula ” & i+1,j & ” prendida”)
End If

If Rhino.IsObjectHidden(cell(i+1,j+1)) Then
count= count+1
Else
‘    rhino.Print(” celula ” & i+1,j+1 & ” prendida”)
End If

If count < 4 Then
rhino.showobject (cell(i,j))

End If
If count > 4 Then
rhino.hideobject (cell(i,j))

End If
Next
Next

rhino.Print (“celulas listas”)
rhino.enableredraw (True)

End Sub

Ou yeah man, acoustic ceiling project and the members of parametrica.org, rockin´ the national tv news!!!!, showing some grasshopper and parametric stuff..

For the PARAMETRICA DOF WORKSHOP, we count with the great collaboration of sabic polymershapes. with the help of SABIC, we can add the material variable into the workshop exercises through CNC fabrication. Many thanks to SABIC !

This is another fabrication tool that i wrote almost two years ago for my thesis. So… let´s show the code!!!!

This tool was developed for the automated process of unrolling planar surfaces for fabrication via laser cut or cnc cut. It allows the user to select the surfaces of the model (or polysrf) and make an array of contours with an ID, in the model and the array (for further assembly help). I wrote it for the ribber tool, and added to the MAB FPS and exatect structure scripts.

It´s a very simple, but powerfull tool ,i hope you use it , and again , do whatever the f#$#cK u want. but remember to name the real author of the script.

Video showing the script running, (in spanish).

stay tuned for more SHOW ME THE CODE!!! in escripto…

Option Explicit
'script name <unroll automatic>
'Script written by <Diego Pinochet Puentes>
'Script copyrighted by <escripto.wordpress.com>
'Script version lunes, 14 de abril de 2007 09:44:02 a.m.
'este codigo esta generado y protegido por creative commons. cualquier alteracion 
'del mismo o adjudicacion de autoria por parte de cualquier persona es un delito intelectual. 
'si lo ocupas debes indicar la version y autor de la herramienta. 

'generated under creative commons license, u must name the author of the code in ur work if u use it or modify it.

Call unroll-escripto()
Sub unroll-escripto()
	Dim arrobjects,arrpanel, arrEdge,i,grilla(),pt,arredge2
	Dim texto1,texto
	Dim textdim:textdim= rhino.getreal("enter the size of the text (it depends of your model scale)",1)
	Dim punto,newarrPoint,newarrpoint2
	Dim n:n= 0
	Dim newDomainU, newDomainV
	Dim newarrParameterU, newarrParameterV
	Dim strpoligon,strpoligonoff,crvamidpt(),crvbmidpt(),aux(),auxmidpt()
	Dim espaciado:espaciado=rhino.getreal ("enter distance of unfolded patterns")
	Dim trgroup2
	Dim letra:letra= rhino.getstring ("enter a prefix for the id")
	
	arrObjects = Rhino.GetObjects("select the surfaces, or polysurfaces to to unroll",8+16)	
	
	For i =0 To (ubound(arrobjects))
		ReDim Preserve grilla(i)
		grilla(i)= array(i*espaciado+50,0,0)
	Next
		'------------------------------------------------------------------		
	If IsNull(arrObjects) Then Exit Sub	
	ReDim arrpanel(UBOUND(arrObjects))
	For i = 0 To UBOUND(arrObjects)		
		Call Rhino.EnableRedraw(True)		
	Call Rhino.UnselectAllObjects	
		Call Rhino.SelectObject(arrObjects(i))		
	
		newarrpoint= Rhino.SurfaceAreaCentroid (arrObjects(i))	
		texto1= rhino.addtext ("<"&letra & i + 1 &""&">"  ,newarrpoint(0),textdim)
		rhino.ObjectColor texto1,RGB(255,0,255)
		
		'------------------------------------------------				
		Rhino.Command "_unrollsrf explode=no enter enter"		
	Call Rhino.UnselectAllObjects		
		arrpanel(i) = Rhino.FirstObject
		Call Rhino.MoveObject(arrpanel(i),array(0,0,0), grilla(i))
			
		newarrPoint2 = Rhino.SurfaceAreaCentroid (arrpanel(i))	
	
		texto= rhino.addtext ("<"&letra & i + 1 &""&">"  ,newarrpoint2(0),textdim)
		rhino.ObjectColor texto,RGB(255,0,255)
		'------------------------------------------------
		arrEdge = Rhino.Duplicatesurfaceborder(arrpanel(i))
		arrEdge2 = Rhino.Duplicateedgecurves(arrpanel(i))
		strpoligon= Rhino.JoinCurves(arrEdge,True)
		rhino.ObjectColor strpoligon,RGB(178,248,58)
		Call Rhino.DeleteObject(arrpanel(i))

		trgroup2= rhino.addgroup 
		rhino.addobjectstogroup array(strpoligon(0),texto),trgroup2
	Next
End	Sub

OK, lets show the code!!!..

Function esfera (attr,k,mval,pa,pb,pc,pd,scale,i)

	Dim face
	Dim center
	Dim dist
	Dim esf
	Dim color
	face= rhino.addsrfpt (array(pa,pb,pc,pd))
	center= rhino.SurfaceAreaCentroid(face)

	ReDim dist (ubound(attr))
	Dim ptatr():ReDim ptatr (ubound(attr))

	For k=0 To ubound(attr)
		ptatr(k)= rhino.pointcoordinates(attr(k))
		dist(k)=rhino.Distance(ptatr(k),center(0))
	Next

	mval= rhino.min (dist)
	rhino.Print mval
	esf= rhino.AddSphere (center(0),(mval/scale))
	rhino.ObjectColor esf,rgb(255,i+(mval*5),133)
	rhino.ObjectColor face,rgb(255,i+(mval*5),133)

End Function

Just remember to name the origin of the code when u use it!!! eSCRIPT-O!!!

so, here´s the code…

Option Explicit
'Script written by <Diego Pinochet Puentes>
'Script copyrighted by <escripto.wordpress.com>
'Script version jueves, 17 de Octubre de 2006 10:32:33

' this is a code that i wrote to share, modify it , useit , and do whatever the fuck you want with it, but remember to name the author of the
'code. 

Call escripto()
Sub escripto()
	'counters for loop
	Dim i,j,k
	'get the surface
	Dim srf:srf= rhino.getobject("select surface",8)
	If isNull(srf) Then Exit Sub

	'get the atractors
	Dim arrpt
	Dim attr:attr= rhino.getobjects ("select the atractors",1)
	Dim arrbox:arrbox = Rhino.PropertyListBox(array("step U","step  V","attractor force"),array(10,10,12.5))
	If isNull(arrbox) Then Exit Sub

	Dim udiv:udiv= CInt(arrbox(0))
	Dim vdiv:vdiv= CInt(arrbox(1))
	Dim scale:scale= CDbl(arrbox(2))

	Dim arrparamu,arrparamv
	Dim arrdomainu, arrdomainv

	ReDim mat(udiv,vdiv)

	'get uv parameters
	arrdomainu= rhino.surfacedomain(srf,0)
	arrdomainV= rhino.SurfaceDomain(srf,1)

	For i=0 To udiv
		For j=0 To vdiv
			arrparamU = arrdomainU(0) + i *(arrdomainU(1) - arrdomainU(0)) /udiv
			arrparamV = arrdomainV(0) + j *(arrdomainV(1) - arrdomainV(0)) / vdiv 

			arrpt= rhino.EvaluateSurface (srf,Array(arrParamU, arrParamV))
			mat(i,j) = arrpt
		Next
	Next

	Dim mval
	Dim pa,pb,pc,pd

	For i=0 To udiv-1
		For j=0 To vdiv-1 

			pa= mat(i,j)
			pb= mat(i,j+1)
			pc= mat(i+1,j+1)
			pd= mat(i+1,j)
			'calll function for attractors
			Dim a:a= esfera (attr,k,mval,pa,pb,pc,pd,scale,i)
		Next
	Next
End Sub

Function esfera (attr,k,mval,pa,pb,pc,pd,scale,i)

	Dim face
	Dim center
	Dim dist
	Dim esf
	Dim color

	face= rhino.addsrfpt (array(pa,pb,pc,pd))
	center= rhino.SurfaceAreaCentroid(face)

	ReDim dist (ubound(attr))
	Dim ptatr():ReDim ptatr (ubound(attr))

	For k=0 To ubound(attr)
		ptatr(k)= rhino.pointcoordinates(attr(k))
		dist(k)=rhino.Distance(ptatr(k),center(0))
	Next

	mval= rhino.min (dist)
	rhino.Print mval
	esf= rhino.AddSphere (center(0),(mval/scale))
	rhino.ObjectColor esf,rgb(255,i+(mval*5),133)
	rhino.ObjectColor face,rgb(255,i+(mval*5),133)

End Function

Yesterday i started to play some hours with mel , but i remembered the recomendations of rodrigo culagovski (www.culagovski.net – www.parametrica.org) about the benefits and advantages of python. So, i stopped with mel and put my hands into python.

im just starting with this , so im not to excited yet with the results (im waiting for better implementation of python in rhino 5), but i was able to do some simple triangle panels on a surface.

some guy told me once “show me the code”, so…

import maya.cmds as mc
srf = mc.ls(sl=True)
umin = mc.getAttr (‘arrObj.minValueU’)
umax = mc.getAttr (‘arrObj.maxValueU’)
vmin = mc.getAttr (‘arrObj.minValueV’)
vmax = mc.getAttr (‘arrObj.maxValueV’)
numlist=12
Div= 12
arrpt=[]
for i in range(numlist):
arrpt.append([0]*Div)
for x in range (numlist):
for y in range (Div):
arrparamU= umin + x *(umax-umin)/Div
arrparamV= vmin + y *(vmax-vmin)/Div
arrpt[x][y]= mc.pointOnSurface (srf[0],u=arrparamU,v=arrparamV,top=True)
for x in range (1,Div,1):
for y in range (1,Div,1):
crv1= mc.curve(d=1,p=[(arrpt[x-1][y-1]),(arrpt[x-1][(y)]),(arrpt[(x)][(y)]),(arrpt[x-1][y-1])])
crv2= mc.curve(d=1,p=[(arrpt[x-1][y-1]),(arrpt[(x)][(y)]),(arrpt[x][y-1]),(arrpt[x-1][y-1])])
mc.planarSrf( crv1,d=1 )
mc.delete (crv1)
mc.planarSrf( crv2,d=1 )
mc.delete (crv2)

after some hours learning some basic stuff  of the sintax of python, i think i´m able to work on some really cool stuff (not this basic boring stuff, hahaha)

Some images from my final project for my master degree thesis. its a parametric bridge with a parametric skin – (hexatect). All the project it´s defined by scripting (rhinoscript) and some specific grasshopper definitions (vb.net) .

I finally presented my thesis (to get the architect title and a master degree (2×1 super combo, hahaha) last month, and i got the maximum calification ( 7.0 out of 7.0!!!). im still celebrating , so when the celebration stops, i will post my thesis in PDF and the most important rhinoscript tools that i wrote for the projects.

stay tuned to eSCRIPT-O