Na edição nº27 da revista RS232 encontramos uma listagem de código de Fernando Preces para o QuickBASIC, a qual fez parte de uma sequência de artigos sobre gráficos em 3D.
Este programa apresenta uma animação simples da rotação de um objeto em 3D (wireframe) em torno do seu eixo vertical. Cada frame de animação objeto é pré-desenhado e armazenado em memória. A animação, relativamente fluída, é conseguida com a troca das páginas 0 e 1 no modo gráfico 9. Quando um passo da animação é exibido numa das páginas, na outra é guardado o passo seguinte.
A listagem dispõe de dados para duas figuras, sendo só apresentada uma deles. Basta trocar as labels "dados" e "dados1" para mudarmos a silhueta apresentada. Também há código comentado para a inserção manual das silhuetas pelo utilizador.
Segue a listagem:
'F.A.Preces - Fev 90
'Gráficos em 3D
CONST pi = 3.1416 'Valor aproximado de PI
w = 5500: ap% = 1: vp% = 0
'Espaço para as 6 figuras do movimento rotativo
DIM cubo1(w), cubo2(w), cubo3(w)
DIM cubo4(w), cubo5(w), cubo6(w)
'Reserva de espaço para os valores dos 3 eixos
DIM x(17, 8), y(17, 8), z(17, 8)
'Porçao da figura a rodar
seno = SIN(pi / 4): coseno = COS(pi / 4)
aa = 320: bb = 50 'Coordenadas de arranque
'Coordenada do Ecran em EGA
SCREEN 9: WINDOW (0, 0)-(640, 350): COLOR 6, 1: CLS
RESTORE dados
READ x: x(15, 1) = x: READ y: y(1, 1) = y: z(1, 1) = 0
'leitura dos dados da Silhueta
FOR c = 2 TO 16
READ x: 'ou por GOSUB limpa: INPUT "Comprimento "; x
x(c, 1) = x
READ y: 'ou por GOSUB limpa: INPUT "Altura "; y
y(c, 1) = y
z(c, 1) = 0
x1 = x(c - 1, 1) + aa: y1 = y(c - 1, 1) + bb
x2 = aa + x(c, 1): y2 = bb + y(c, 1)
LINE (x1, y1)-(x2, y2) 'Desenha a silhueta
NEXT c
'Prepara a figura em 3D
FOR q = 1 TO 6
FOR B = 2 TO 8
FOR a = 1 TO c - 1
x(a, B) = x(a, B - 1) * coseno - z(a, B - 1) * seno
z(a, B) = z(a, B - 1) * coseno + x(a, B - 1) * seno
y(a, B) = y(a, B - 1)
NEXT a
NEXT B
CLS
'Desenha as seis imagens para a rotaç?o
FOR B = 1 TO 7
FOR a = 1 TO c - 1
x1 = aa + x(a, B): y1 = bb + (y(a, B) - .5 * z(a, B))
x2 = x1 + x(a, B + 1) - x(a, B)
y2 = y1 + (y(a, B + 1) - .5 * z(a, B + 1)) - (y(a, B) - .5 * z(a, B))
LINE (x1, y1)-(x2, y2), 6
x1 = x2: y1 = y2
x2 = x1 + x(a + 1, B + 1) - x(a, B + 1)
y = y1 + y(a + 1, B + 1) - .5 * z(a + 1, B + 1)
y2 = y - (y(a, B + 1) - .5 * z(a, B + 1))
LINE (x1, y1)-(x2, y2), 5
NEXT a
NEXT B
FOR a = 1 TO c - 1
x1 = aa + x(a, 8): y1 = bb + (y(a, 8) - .5 * z(a, 8))
x2 = x1 + x(a, 1) - x(a, 8)
y2 = y1 + (y(a, 1) - .5 * z(a, 1)) - (y(a, 8) - .5 * z(a, 8))
LINE (x1, y1)-(x2, y2), 6
x1 = x2: y1 = y2
x2 = x1 + x(a + 1, 1) - x(a, 1)
y2 = y1 + (y(a + 1, 1) - .5 * z(a + 1, 1)) - (y(a, 1) - .5 * z(a, 1))
LINE (x1, y1)-(x2, y2), 5
NEXT a
'Memoriza as 6 imagens
IF q = 1 THEN GET (220, 42)-(440, 235), cubo1
IF q = 2 THEN GET (220, 42)-(440, 235), cubo2
IF q = 3 THEN GET (220, 42)-(440, 235), cubo3
IF q = 4 THEN GET (220, 42)-(440, 235), cubo4
IF q = 5 THEN GET (220, 42)-(440, 235), cubo5
IF q = 6 THEN GET (220, 42)-(440, 235), cubo6
'Prepara o desfazamento entre imagens
FOR a = 1 TO c - 1
xn = x(a, 1) * COS(pi / 24) - z(a, 1) * SIN(pi / 24)
zn = z(a, 1) * COS(pi / 24) + x(a, 1) * SIN(pi / 24)
x(a, 1) = xn: z(a, 1) = zn
NEXT a
NEXT q: CLS
'As 6 imagens s?o memorizadas no Buffer de Imagens gradualmente,
'em 2 páginas sucessivas de ecran (apresenta uma e grava outra)
ciclo:
FOR q% = 1 TO 6
SCREEN 9, , ap%, vp%
CLS 1
IF q% = 1 THEN PUT (220, 42), cubo1
IF q% = 2 THEN PUT (220, 42), cubo2
IF q% = 3 THEN PUT (220, 42), cubo3
IF q% = 4 THEN PUT (220, 42), cubo4
IF q% = 5 THEN PUT (220, 42), cubo5
IF q% = 6 THEN PUT (220, 42), cubo6
SWAP ap%, vp% 'Troca de página
NEXT q%
IF INKEY$ <> "" THEN END
GOTO ciclo
END
limpa:
LOCATE 1, 1: PRINT STRING$(79, " "): LOCATE 1, 1
RETURN
dados1: 'Silhueta de reserva
DATA 40, 40, 40, 40, 80, 40, 85, 45, 85, 100, 80, 100, 60, 100, 80, 100, 80, 125
DATA 40, 125, 40, 125, 55, 125, 55, 125, 40, 125, 40, 40, 0, 40
dados: 'Silhueta apresentada
DATA 0, 0, 25, 5, 35, 20, 80, 30, 80, 80, 30, 120, 30, 150, 45, 160, 20, 160
DATA 20, 110, 70, 70, 70, 35, 0, 20, 0, 20, 0, 20, 0, 20
