Графика, вращение куба вокруг оси Опции

[natka]

Вряд ли кто - нибудь будет писать, но может раньше делали?
Нужна программа, которая изображает вращающийся в пространстве вокруг фиксированной оси каркас куба.
Буду очень благодарна, если кто - нибудь поможет.

[natka]

Мне тут скинули ссылку. Большое спасибо, но в программе есть следующие строки

Код

uses graph;
const r=50;
pll:byte=0;
pg: byte=0;
var i,j,k,l:integer;
a1,a2,a3:extended;
c:char;
a:array [1..8,1..3] of integer;
pl: array [1..4,1..6] of integer;
ddd:longint;
function kp:boolean; assembler;
asm
MOV  AH,1
INT     16H
MOV     AL,0
JE  @@2
@@1:   MOV      AL,1
@@2:
end;

Компляция останавливается с сообщением, что переменная АН неизвестна (и это самое начало).
Что можно сделать?