Post by bplus on Dec 10, 2023 11:39:41 GMT -5
An example of a UDT for a Circle and moving it on the x axis.
_Title "MyCircles as Circle" ' bplus 2023-12-10
Type Circle
As Long x, y, r, dx
As _Unsigned Long colr
End Type
Dim myCircles(1 To 10) As Circle
For i = 1 To 10
myCircles(i).x = 400: myCircles(i).y = 300
myCircles(i).r = 30 * i: myCircles(i).dx = 1
myCircles(i).colr = _RGB32(i * 25)
Next
Screen _NewImage(800, 600, 32)
While _KeyDown(27) = 0
For i = 1 To 10
Circle (myCircles(i).x, myCircles(i).y), myCircles(i).r, myCircles(i).colr
myCircles(i).x = myCircles(i).x + (11 - i) * myCircles(i).dx
If myCircles(i).x > _Width Or myCircles(i).x < 0 Then myCircles(i).dx = -myCircles(i).dx
Next
_Display
_Limit 30
Wend