Microsoft Small Basic

Program Listing: DMN087

List Program

gw= GraphicsWindow.Width
gh= GraphicsWindow.Height
GraphicsWindow.Title="Ilusion 0.1"
dist= 40
bw=dist/2
distance= 5
colours="0=WhiteSmoke;1=Black;"
GraphicsWindow.PenWidth=0
For i=0 To gw Step dist
ccount=ccount+1
For j=-dist To gh Step distance
ccount= ccount+1
get()
ell[i][j]= Shapes.AddEllipse(bw,bw)
Shapes.Move(ell[i][j],i,j)
EndFor
For j=gh To -dist Step -distance
ccount=ccount+1
get()
ell[i][j]= Shapes.AddEllipse(bw,bw)
Shapes.Move(ell[i][j],i+(dist/2),j+distance)
EndFor
EndFor
Sub get
GraphicsWindow.BrushColor= colours[Math.Remainder(j,2)]
EndSub