44 lines
990 B
Plaintext
44 lines
990 B
Plaintext
global escala
|
|
global tam
|
|
global zoff
|
|
global cylr
|
|
|
|
escala = 50
|
|
tam = 320
|
|
zoff = 0.5773502691896257645091487805019574556
|
|
cylr = 1.6329931618554520654648560498039275946
|
|
|
|
clg
|
|
graphsize tam, tam
|
|
|
|
dim x(6)
|
|
theta = 0.0
|
|
dtheta = 1.5
|
|
dt = 1.0 / 30
|
|
dim cylphi = {PI/6, 5*PI/6, 3*PI/2, 11*PI/6, PI/2, 7*PI/6}
|
|
|
|
while key = ""
|
|
lasttime = msec
|
|
for i = 0 to 5
|
|
x[i] = tam/2 + escala *cylr * cos(cylphi[i] + theta)
|
|
next i
|
|
clg
|
|
call drawcube(x)
|
|
|
|
while msec < lasttime + dt
|
|
end while
|
|
theta += dtheta*(msec-lasttime)
|
|
pause .4
|
|
call drawcube(x)
|
|
end while
|
|
|
|
subroutine drawcube(x)
|
|
for i = 0 to 2
|
|
color rgb(0,0,0) #black
|
|
line tam/2, tam/2 - escala / zoff, x[i], tam/2 - escala * zoff
|
|
line tam/2, tam/2 + escala / zoff, x[5-i], tam/2 + escala * zoff
|
|
line x[i], tam/2 - escala * zoff, x[(i % 3) + 3], tam/2 + escala * zoff
|
|
line x[i], tam/2 - escala * zoff, x[((i+1)%3) + 3], tam/2 + escala * zoff
|
|
next i
|
|
end subroutine
|