I think we can create a lot of art with Turtle. Following list is a sample.
GraphicsWindow.Title = "Turtle Randome Drawing"GraphicsWindow.BackgroundColor = "Black"gw = 598gh = 428xo = gw / 2yo = gh / 2GraphicsWindow.Width = gwGraphicsWindow.Height = ghGraphicsWindow.PenWidth = 1GraphicsWindow.PenColor = "LightGray"Turtle.Speed = 10Turtle.X = xoTurtle.Y = yodistance = 20For i = 1 To 10000 angle = Math.GetRandomNumber(360) _angle = Math.GetRadians(angle) x = Turtle.X + distance * Math.Sin(_angle) y = Turtle.Y - distance * Math.Cos(_angle) r = Math.SquareRoot((xo - x) * (xo - x) + (yo - y) * (yo - y)) If r <= (gh / 2 - 20) Then red = Math.GetRandomNumber(128) green = Math.GetRandomNumber(255) blue = 255 GraphicsWindow.PenColor = GraphicsWindow.GetColorFromRGB(red, green, blue) Turtle.Angle = angle Turtle.Move(distance) EndIfEndFor
How do you feel?