 | Optical Illusion |  |
 Trimis: 19/08/2007 12:56 |
 |
|
| Ad_Infinitum |
| Administrator |
 |
 |
| Data inscrierii: 23/Iun/2007 |
| Mesaje: 212 |
|
|
|
|
|
 |
|
O extra iluzie optica 
| Citat: |
mx = screen width()/2
my = screen height()/2
r = 200
cs = 10
act = 1
Frames = 100
do
t = timer()
cls rgb(128,128,128)
dec act
if act < 1 then act = cs
rem Negru center-cross
ink 0,0
box mx-2,my-10,mx+3,my+11
box mx-10,my-2,mx+11,my+3
rem White cross inside
ink rgb(255,255,255),0
line mx,my-8,mx,my+8
line mx-8,my,mx+8,my
rem Pink boxes
ink rgb(191,0,191),0
for c = 1 to cs
if c <> act
Angle = 360*(c/(1.0*cs))
xp = mx+(1.0*r)*sin(Angle)
yp = my+(1.0*r)*cos(Angle)
box xp-10,yp-10,xp+10,yp+10
endif
next c
repeat
until timer()-t=>Frames
loop
|
|
|
|
|
|
|
|
Fa-ti si tu propriul forum GRATUIT, pe www.myforum.ro
|
|
