' 3D rotation
' made by Svjatoslav Agejenko
' in 2003.12
' H-Page: svjatoslav.eu
' E-Mail: svjatoslav@svjatoslav.eu
 
DIM SHARED px(1000) ' point  x & y location
DIM SHARED py(1000)
DIM SHARED ox(1000) ' point old  x & y location
DIM SHARED oy(1000)


SCREEN 13

np = 0          'Set points to them place
FOR x = -10 TO 10
FOR y = -10 TO 10
np = np + 1
px(np) = x
py(np) = y
NEXT y
NEXT x

                'Rotate points now
nrk = 0  'start angle
1
nrk = nrk + .01
s1 = SIN(nrk)
c1 = COS(nrk)


FOR a = 1 TO 399
PSET (ox(a), oy(a)), 0

x = px(a)
y = py(a)

x1 = x * s1 + y * c1
y1 = x * c1 - y * s1
x1 = x1 * 7 + 160
y1 = y1 * 7 + 100


ox(a) = x1
oy(a) = y1
PSET (x1, y1), 15

NEXT a

IF INKEY$ = "" THEN GOTO 1
 

SYSTEM