Small Basic Art with Turtle

[NonkiTakahashi]

First published on MSDN on Jun 27, 2016

Authored by Nonki Takahashi

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

How do you feel?