Sound device, based on the drawdio project.
This project was developed together with Carolina Pino and Cristóbal Valenzuela.
The device was fabricated in a Laser Cutter (epilog 36xt) and a vynil cutter (roland camm servo).
about design and the supremacy of human mind over machines
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)
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…
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