Microsoft Small Basic

Program Listing: BKG847

List Program

GraphicsWindow.Width=600
GraphicsWindow.Height=600
GraphicsWindow.BrushColor="red"

aantal=7
straal1=0
straal2=70
w2=math.SquareRoot(2)
For i=1 To aantal
x=200+straal1*Math.sin(math.GetRadians(i*360/aantal))
y=200+straal1*Math.cos(math.GetRadians(i*360/aantal))
x1=x+straal2*Math.sin(math.GetRadians(i*360/aantal))
y1=y+straal2*Math.cos(math.GetRadians(i*360/aantal))


' GraphicsWindow.DrawEllipse(x1,y1,x2,y2)
GraphicsWindow.FillEllipse(x1,y1,straal2*2,straal2*2)


endfor