II INTERNATIONAL WORKSHOP

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


Option Explicit
'ejercicio 1, declaracion de variables

Call main()
Sub main()

Dim 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

No hay comentarios: