Microsoft Small Basic

Program Listing: FDM232-0

List Program

top: 'Original code by Math Man - Randomizing update by codingCat aka Matthew L. Parets for the 50 line challange
Amount = Math.GetRandomNumber(13) + 3
GraphicsWindow.KeyDown = pressed
done = "false"
GraphicsWindow.Clear()
GraphicsWindow.BackgroundColor = "Black"
GraphicsWindow.Top = -27
GraphicsWindow.Left = -5
GraphicsWindow.Width = Desktop.Width - 5
GraphicsWindow.Height = Desktop.Height - 50
total = 0
For i = 1 To Amount
angle[i] = Math.GetRandomNumber(90)
Dist[i] = Math.GetRandomNumber(Math.Round((GraphicsWindow.Height / 2) / Amount)-15) + 15
total = total + Dist[i]
Rate[i] = Math.GetRandomNumber(20) - 10
EndFor
Dist[Amount] = Dist[Amount] + ((GraphicsWindow.Height / 2) - total)
X[0] = GraphicsWindow.Width/2
Y[0] = GraphicsWindow.Height/2
For i = 1 To Amount
X[i] = X[i-1]+Dist[i]*Math.Cos(Math.GetRadians(Angle[i]))
Y[i] = Y[i-1]+Dist[i]*Math.Sin(Math.GetRadians(Angle[i]))
EndFor
X[Amount+1] = X[Amount]
Y[Amount+1] = Y[Amount]
While 1=1
For i = 1 To Amount
Shapes.Remove(Line[i])
Angle[i] = Angle[i]+Rate[i]
X[i] = X[i-1]+Dist[i]*Math.Cos(Math.GetRadians(Angle[i]))
Y[i] = Y[i-1]+Dist[i]*Math.Sin(Math.GetRadians(Angle[i]))
GraphicsWindow.PenColor = "Green"
Line[i] = Shapes.AddLine(X[i-1],Y[i-1],X[i],Y[i])
EndFor
GraphicsWindow.PenColor = GraphicsWindow.GetRandomColor()
GraphicsWindow.DrawLine(X[Amount],Y[Amount],X[Amount+1],Y[Amount+1])
X[Amount+1] = X[Amount]
Y[Amount+1] = Y[Amount]
GraphicsWindow.DrawEllipse(X[Amount]-2.5,Y[Amount]-2.5,5,5)
Program.Delay(20)
If done = "true" Or Math.Remainder(Math.Round(Clock.ElapsedMilliseconds / 100),150) = 0 Then
Goto top
EndIf
EndWhile
Sub pressed
If GraphicsWindow.LastKey = "Space" Then
done = "true"
EndIf
EndSub