II International Workshop

Bookmark and Share

II International Worshop

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:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
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

Leave a Reply