32 lines
725 B
Plaintext
32 lines
725 B
Plaintext
#include "fbgfx.bi"
|
|
#if __FB_LANG__ = "fb"
|
|
Using FB '' Scan code constants are stored in the FB namespace in lang FB
|
|
#endif
|
|
#define pi 4 * Atn(1)
|
|
#define Deg2Rad pi/180
|
|
|
|
Dim As Integer w = 900, h = w
|
|
Screenres w, h, 8
|
|
Windowtitle "Polyspiral"
|
|
|
|
Dim As Integer incr = 0, angulo, longitud, x1, y1, x2, y2, N
|
|
Do
|
|
incr += 1
|
|
x1 = w / 2
|
|
y1 = h / 2
|
|
Pset (Fix(x1), Fix(y1))
|
|
longitud = 5
|
|
angulo = incr
|
|
For N = 1 To 150
|
|
x2 = x1 + longitud * Cos(angulo * Deg2Rad)
|
|
y2 = y1 + longitud * Sin(angulo * Deg2Rad)
|
|
Line - (Fix(x2), Fix(y2)), N+16
|
|
x1 = x2
|
|
y1 = y2
|
|
longitud += 3
|
|
angulo += incr
|
|
Next N
|
|
Sleep 500
|
|
Cls
|
|
Loop Until Multikey(SC_ESCAPE)
|