Digital Design Processes
Processos Digitais de Projecto
Escola Superior Artística do Porto, Portugal
24 Setembro a 5 Outubro, 2007

Este es el Tercer Workshop en el cual participo y el segundo Internacional, junto al arquitecto Gonçalo Castro Henriques de Portugal.
Este año el trabajo estará dividido en dos fases: la primera dedicada a la fabricación por tecnología CAD / CAM a cargo de Marta Malé-Alemany y José Pedro Sousa del grupo ReD y nosotros que exploraremos la programación por medio de RVB. Carlos de la Barrera y Gonçalo Castro Henriques del grupo X-Ref.
Para el Workshop Hemos preparado un breve tutorial, con simples ejercicios para poder practicar y entender el lenguaje RhinoScript.

Estos son los ejercicios del Tutorial:

Call main()

Sub main() D

im mensaje
mensaje = “Hello World(s)”
Rhino.messageBox mensaje
End Sub

”””””””””””’
Option Explicit ‘ejercicio 2, condicionales

Call condicional()

Sub condicional()
Dim var1, var2, Result

Dim numberX
numberX = 6

var1 = 9

var2 = 3
Result = (var1+var2)/2
If result = numberX Then
Rhino.print “yes igual”

Else
Rhino.print “no igual”

End If
Rhino.messagebox “siempre sucede” End Sub

”””””””””””
Option Explicit ‘ejercicio 3, looping

Call looping()

Sub looping()
Dim i
For i = 0 To 1000
Rhino.Print “number count= ” & i

Next
End Sub

”””””””””””’
Option Explicit ‘ejercicio 4, ejemplo de arrays

Call arrthings()

Sub arrthings()

Dim example(9), i

example(0) = 22

example(1) = 31

example(2) = 43

example(3) = 36

example(4) = 76

example(5) = 32

example(6) = 12

example(7) = 43

example(8) = 66

For i = 0 To 8
Rhino.print example(i)

Next
Rhino.messagebox _ “la posición 4 en la matriz example es ” & example(4)
End Sub

”””””””””””’

Option Explicit’ejercicio 5, ejemplo de funcion

Call subfunciones()

Sub subafunciones()

ReDim point(2), point2(2)

point(0) = 0

point(1) = 0

point(2) = 0

point2(0) = 5

point2(1) = 5

point2(2) = 0

Rhino.AddPoints Array(point,point2)

Dim linea: linea = mifuncionLinea(point,point2)

End Sub
Function mifuncionLinea(point,point2)

Rhino.Addline point, point2
End Function