">. procedure EditCopy (Sender: TObject) - процедура копіювання ландшафту в буфер обміну.
. procedure FormCreate (Sender: TObject) - процедура створення сірого відтінку.
. procedure FormResize (Sender: TObject) - процедура створення форми.
. procedure FormKeyPress (Sender: TObject; var Key: Char) - процедура обробки кнопок клавіатури, де Key - символ клавіатури.
. procedure DisplayOptions1Click (Sender: TObject) - процедура відкриває настройки.
. procedure ModeBtnClick (Sender: TObject) - процедура генерує новий ландшафт, якщо змінилися модифікації.
. procedure PlyBtnClick (Sender: TObject) - процедура генерує новий ландшафт, якщо змінюється кількість вигинів.
14. procedure SealevelPnlResize (Sender: TObject) - процедура рівня моря.
. procedure SeaLevelSldrScroll (Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer) - процедура зміни площині рівня моря, де ScrollCode - координати при зміні площини; ScrollPos-позиція повзунка.
. procedure HelpMenuClick (Sender: TObject) - процедура виклику довідки.
. procedure DrawLandscape (Canvas: TCanvas; Height, Width: integer; Tag: string) - процедура виведення ландшафту на дисплей, де Canvas-поверхня малюнка; Height, Width-висота, ширина;
. procedure SetPlys (NewPlys: integer) - процедура завдання кількості вигинів, де NewPlys- новий вигин.
. procedure SetDrawMode (NewDrawMode: DrawModes) - процедура вибору режиму відображення, де NewDrawMode - режим відображення
. procedure GenerateLandscape - процедура генерації ландшафту.
. procedure ShowLandscape - процедура виклику ландшафту.
. procedure DrewSomeTriangles (N: word) - процедура малювання трикутників, де N - коефіцієнт множення.
Модуль DISPLAY.PAS містить процедури і функції:
1. procedure ScreenColors - процедура задає колір елементам ландшафту.
2. procedure PrinterColors - процедура задає колір елементів ландшафту при друку.
3. function Surface (Outline, Fill: TColor): Surfaces - функція привласнює результату режим кольору, де Outline-тільки кордону; Fill-заливка.
4. function FloatTriple (T: TTriple): TFloatTriple - функція обчислення координат, де Т - перетворить в тип TTriple; TFloatTriple - координати x, y, z.
5. function Project (const Tr: TTriple): TPixel - ця функція проводить лінію між двома точками: поточної і точкою перспективи і визначає, де ця лінія перетинається з площиною екрана, де Tr - перетворить в тип TTriple.
6. procedure DrawTriangle (Canvas: TCanvas; const A, B, C: TVertex; Plys: word; PointDn: boolean) - процедура малювання трикутників, де Canvas форма для малювання; A, B, C - вершини трикутника, Plys - вигин, PointDn- середня точка.
7. procedure DrawPixels (const Canvas: TCanvas; const A, B, C, D: TPixel; const N: word; const Surface: Surfaces) - процедура промальовування каркаса, де Canvas - форма для малювання; A, B, C, D - вершини; N - чило для перевірки умови, Surface - земна поверхня.
8. procedure CalcCrossing (var Low, High, Crossing: TTriple; SetLow: boolean) - процедура визначає відстань від точки перетину до вершини. Де Low, High, Crossing - нижня, верхня, перетин координат; SetLow - для перевірки рівня моря.
9. procedure DrawVerticals (Canvas: TCanvas) - процедура перетворення TTriple в TPixel.
. procedure Step (const Start: TVertex; var Front: Triad; var StepDn: GridCoordinate) - процедура дивиться яка з точок трикутника перебувати в морі, а яка ні, де Start - початок координат; Front -Трійка координат; StepDn - координатна сітка.
. function InnerProduct (A, B: TTriple): LongInt - функція обчислює скалярний добуток вершин, де A, B - вершини.
. function Delta (A, B: TTriple): TTriple - функція обчислення різниці вершин, де A, B - вершини.
. function LandColor (const A, B, C: TTriple): TColor - функція визначення кольору ландшафту, де A, B, C -вершиною трикутника.
. procedure Draw3Vertices (Canvas: TCanvas; const A, B, C: TVertex; Display: boolean) - процедура реалізує рівень моря, Canvas - форма для малювання; A, B, C - вершини трикутника; Display- кількість вершин під водою або над водою.
Модуль DATABASE.PAS містить процедури і функції:
1. procedure ResetDB - процедура розрахунку трійок координат для ...
