iteLn ('7 -9 наблизити об'єкт - віддалити об'єкт);
WriteLn ('esc для виходу з програми);
ReadLn; {очікування натискання клавіші enter}
Fig; {введення процедури малювання фігури}
CX: = 5; CY: = 5; CZ: = 5; {вказівку координат виведення на екран}
For I: = 1 To N Do Sr3d (A [I], C, A [I]);. X: = 200; LY: = 200; LZ: = 200; I: = 1 To N Do Tr3d (A [I], L, A [I]);: = Detect; (grDriver, grMode, 'c: tp bgi '); {ініціалізація графічного режиму} 3D; {висновок на екран фігури}
Key: = '';
While Key <> # 27 Do Begin {якщо натиснута клавіша enter присвоїти значення для клавіші (від 1 до 8)}
Key: = ReadKey; Key = '1 'Then BeginD;. X: =-LX; LY: =-LY; LZ: =-LZ; I: = 1 To N Do Tr3d (A [I], L , A [I]);: = Pi/120; For I: = 1 To N Do Uz3d (A [i], Uz, A [i]);. X: =-LX; LY: =-LY; LZ : =-LZ; I: = 1 To N Do Tr3d (A [I], L, A [I]); {зміщення фігури відносно осі z за годинниковою стрілкою}
Draw3D;; Key = '2 'Then BeginD;. X: =-LX; LY: =-LY; LZ: =-LZ; I: = 1 To N Do Tr3d (A [I], L, A [I]);: = -Pi/120; For I: = 1 To N Do Uz3d (A [i], Uz, A [i]);. X: =-LX; LY: =-LY; LZ: =-LZ; I: = 1 To N Do Tr3d (A [I], L, A [I]); {зміщення фігури відносно осі z проти годинникової стрілки}
Draw3D;; Key = '3 'Then BeginD;. X: =-LX; LY: =-LY; LZ: =-LZ; I: = 1 To N Do Tr3d (A [I], L, A [I]);: = Pi/120; For I: = 1 To N Do Uy3d (A [i], Uy, A [i]);. X: =-LX; LY: =-LY; LZ: = -LZ; I: = 1 To N Do Tr3d (A [I], L, A [I]); {зміщення фігури відносно осі y вправо} D;; Key = '4 'Then BeginD;. X: =-LX ; LY: =-LY; LZ: =-LZ; I: = 1 To N Do Tr3d (A [I], L, A [I]);: = -Pi/120; For I: = 1 To N Do Uy3d (A [i], Uy, A [i]);. X: =-LX; LY: =-LY; LZ: =-LZ; I: = 1 To N Do Tr3d (A [I], L, A [I]); {зміщення фігури відносно осі y вліво} D;; Key = '5 'Then BeginD;. X: =-LX; LY: =-LY; LZ: =-LZ; I: = 1 To N Do Tr3d (A [I], L, A [I]);: = Pi/120; For I: = 1 To N Do Ux3d (A [i], Ux, A [i]);. X: = - LX; LY: =-LY; LZ: =-LZ; I: = 1 To N Do Tr3d (A [I], L, A [I]); {зміщення фігури відносно осі х вгору} D;; Key = ' 6 'Then BeginD;. X: =-LX; LY: =-LY; LZ: =-LZ; I: = 1 To N Do Tr3d (A [I], L, A [I]);: =-Pi /120; For I: = 1 To N Do Ux3d (A [i], Ux, A [i]);. X: =-LX; LY: =-LY; LZ: =-LZ; I: = 1 To N Do Tr3d (A [I], L, A [I]); {зміщення фігури відносно осі х вниз} D;; Key = '7 'Then BeginD;. X: =-LX; LY: =-LY; LZ : =-LZ; I: = 1 To N Do Tr3d (A [I], L, A [I]);. X: = 1.1; CY: = 1.1; CZ: = 1.1; I: = 1 To N Do Sr3d (A [I], C, A [I]);. X: =-LX; LY: =-LY; LZ: =-LZ; I: = 1 To N Do Tr3d (A [I], L, A [I]); {масштабування фігури - наблизити} D;; Key = '9 'Then BeginD;. X: =-LX; LY: =-LY; LZ: =-LZ; I: = 1 To N Do Tr3d (A [I], L, A [I]);. X: = 0.9; CY: = 0.9; CZ: = 0.9; I: = 1 To N Do Sr3d (A [I], C, A [I] );. X: =-LX; LY: =-LY; LZ: =-LZ; I: = 1 To N Do Tr3d (A [I], L, A [I]); {масштабування фігури - видалити} D ;;; D;; {закрити графічний режим...
