/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/Graph3D/pr3.pas
16 строк
328 B
miks1965
Samples 3D
22 авг 2017, 22:53
22 авг 2017, 22:53
88563f5
Код
Авторство
О чём код?
uses Graph3D; begin View3D.Title := '�������� ������ ��� ������ �������'; var t := Teapot(0, 0, 1, Colors.Green); OnKeyDown := k -> begin case k of Key.Left: t.X += 1; Key.Right: t.X -= 1; Key.Down: t.Y += 1; Key.Up: t.Y -= 1; Key.PageUp: t.Z += 1; Key.PageDown: t.Z -= 1; end; end; end.