Small Basic Art with Turtle


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 = 598
gh = 428
xo = gw / 2
yo = gh / 2
GraphicsWindow.Width = gw
GraphicsWindow.Height = gh
GraphicsWindow.PenWidth = 1
GraphicsWindow.PenColor = "LightGray"
Turtle.Speed = 10
Turtle.X = xo
Turtle.Y = yo
distance = 20
For 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)
  EndIf
EndFor

Screen shot of a program Turtle Random Drawing

How do you feel?

Comments (3)

  1. Tryhest says:

    update: chz459-0
    turtle is great to draw, but too slow, even et speed 10. thus is better to use quicker way, as i use "t_move" in this sample.
    LD xtension is neccessary, as usual))

  2. YLed says:

    Fantastic, excellent idea !!

  3. Tryhest says:

    lace flower: GMG063

Skip to main content