'created by aabproducoes.peperonity.com
'Antonio Augusto Barbaro
'aabproducoes.cwap.me
'aabproducoes.mywapblog.com (SB)
'facebook.com/antonio.augusto.9444023
'aaugusto444@gmail.com
GraphicsWindow.Title="Ilusion Black and White v0.1"
GraphicsWindow.Top=(Desktop.Height-GraphicsWindow.Height)/2 'center x
GraphicsWindow.Left=(Desktop.Width-GraphicsWindow.Width)/2 'center y
GraphicsWindow.CanResize=0
gw= GraphicsWindow.Width
gh= GraphicsWindow.Height
cx= gw/2
cy= gh/2
bw= 50
nang=200
supang= gw/bw/2+2
GraphicsWindow.PenWidth=0
colour="1=White;2=Black;"
For j=1 To supang Step 2
nang=nang+bw
For i=1 To nang
angle= i*Math.Pi/(nang/2)-Math.Pi/2
If Math.Remainder(i,2)=0 Then
GraphicsWindow.BrushColor=colour[1]
Else
GraphicsWindow.BrushColor=colour[2]
EndIf
px= cx+((bw-3)*j)*Math.Cos(angle)
py= cy+((bw-3)*j)*Math.Sin(angle)
ell[i]= Shapes.AddEllipse(bw,bw)
Shapes.Move(ell[i],px-(bw/2),py-(bw/2))
EndFor
For i=nang To 1 Step -1
angle= i*Math.Pi/(nang/2)-Math.Pi/2
If Math.Remainder(i,2)=0 Then
GraphicsWindow.BrushColor=colour[1]
Else
GraphicsWindow.BrushColor=colour[2]
EndIf
px= cx+((bw-3)*(j+1))*Math.Cos(angle)
py= cy+((bw-3)*(j+1))*Math.Sin(angle)
ell[i]= Shapes.AddEllipse(bw,bw)
Shapes.Move(ell[i],px-(bw/2),py-(bw/2))
EndFor
EndFor
Program Listing: BCH342