Microsoft Small Basic

Program Listing: VXQ678

List Program

' Random circle Art, by Y led, July 2, 2016
' SB July Challende of the month
'program no:


y=1

rainbow()
GraphicsWindow.Height=768
GraphicsWindow.Width=1366
GraphicsWindow.backgroundcolor=bgcolours[Math.GetRandomNumber(4)]
GraphicsWindow.top=0
GraphicsWindow.left=0
GraphicsWindow.PenWidth=20


Turtle.PenDown()
Turtle.Speed=10
Turtle.MoveTo(10,400)


While y <> 6

FOR x = -100 To 100 Step 0.5

GraphicsWindow.PenColor=colours[Math.GetRandomNumber(27)]
Turtle.Move(x+y)
Turtle.Angle=Math.power(x,2)

ENDFOR
y=y+1

GraphicsWindow.backgroundcolor=bgcolours[Math.GetRandomNumber(4)]

EndWhile




Sub rainbow

colours[1]=GraphicsWindow.GetColorFromRGB (255,13,13)
colours[2]=GraphicsWindow.GetColorFromRGB (255,91,13)
colours[3]=GraphicsWindow.GetColorFromRGB (254,70,14)
colours[4]=GraphicsWindow.GetColorFromRGB (255,201,13)
colours[5]=GraphicsWindow.GetColorFromRGB (255,249,13)
colours[6]=GraphicsWindow.GetColorFromRGB (200,254,14)
colours[7]=GraphicsWindow.GetColorFromRGB (140,253,15)
colours[8]=GraphicsWindow.GetColorFromRGB (44,254,14)
colours[9]=GraphicsWindow.GetColorFromRGB (14,254,98)
colours[10]=GraphicsWindow.GetColorFromRGB (14,254,164)
colours[11]=GraphicsWindow.GetColorFromRGB (16,252,228)
colours[12]=GraphicsWindow.GetColorFromRGB (14,200,254)
colours[13]=GraphicsWindow.GetColorFromRGB (14,128,253)
colours[14]=GraphicsWindow.GetColorFromRGB (14,100,254)
colours[15]=GraphicsWindow.GetColorFromRGB (14,44,254)
colours[16]=GraphicsWindow.GetColorFromRGB (63,15,253)
colours[17]=GraphicsWindow.GetColorFromRGB (128,15,253)
colours[18]=GraphicsWindow.GetColorFromRGB (170,13,254)
colours[19]=GraphicsWindow.GetColorFromRGB (237,13,254)
colours[20]=GraphicsWindow.GetColorFromRGB (255,13,252)
colours[21]=GraphicsWindow.GetColorFromRGB (254,14,219)
colours[22]=GraphicsWindow.GetColorFromRGB (254,14,104)
colours[23]=GraphicsWindow.GetColorFromRGB (254,14,50)
colours[24]=GraphicsWindow.GetColorFromRGB (254,255,255)
colours[26]=GraphicsWindow.GetColorFromRGB (254,155,255)
colours[27]=GraphicsWindow.GetColorFromRGB (254,255,155)


bgcolours[1]=GraphicsWindow.GetColorFromRGB (0,0,75)
bgcolours[2]=GraphicsWindow.GetColorFromRGB (0,0,25)
bgcolours[3]=GraphicsWindow.GetColorFromRGB (0,0,100)
bgcolours[4]=GraphicsWindow.GetColorFromRGB (0,0,50)


Endsub