Sub Process_Globals
Type point (x As Double, y As Double)
Dim Points As List
End Sub
Sub Activity_Create(FirstTime As Boolean)
Points.Initialize
'creating vector
insere(0, Points, 2.345 , 3.890)
insere(1, Points, 2.432 , 1.456)
insere(2, Points, 3.456 , 5.876)
insere(3, Points, 2.876 , 1.456)
insere(4, Points, 10.789 , 11.456)
insere(3, Points, 35.890 , 41.666)
'returning the new positions
Log(Points.Get(2))
Log(Points.Get(3))
Log(Points.Get(5))
End Sub
Sub insere(index As Int, aPoints As List, x As Float, y As Float)
Dim newPoint As point
newPoint.x = x
newPoint.y = y
aPoints.InsertAt(index , newPoint)
End Sub