параметрів, що залежать від числа вигинів.
2. function IMUL (A, B: Int16): LongInt - функція множення; А, В - числа
3. function LoadLandscape (const FileName: TFileName): Boolean - функція завантаження збереженого ландшафту.
4. function SaveLandscape (const FileName: TFileName): Boolean - функція збереження ландшафту.
. procedure SwapTriples (var A, B: TTriple) - процедура заміни вершин, A, B - вершини.
. procedure FractureTriangle (const A, B, C: TVertex; Plys: word) - процедура рисующая трикутники, якщо число вигинів gt; 1, де A, B, C - вершини трикутника, Plys - вигин.
. function Unscale (ScaledCoordinate: LongInt): TCoordinate - функція масштабування.
. function IDIV (Numerator: LongInt; Denominator: Int16): Int16 - функція поділу; Numerator - чисельник; Denominator - знаменник.
. function Rand (Envelope: integer): integer - функція нормального розподілу в інтервалі 2Envelope, Envelope - половина боку відрізка.
. function Vertices (N: word): word - функція підрахунку числа вершин, де N - довжина сторони.
11. procedure FractureLine (var vM: TVertex; const vA, vB: TVertex; Envelope: integer) - процедура для розрахунку висот середніх відрізків, де vM - перетворена вершина, vA, vB -вершиною, Envelope - половина боку відрізка.
Модуль GLOBAL.PAS містить функції:
1. function Triple (X, Y, Z: TCoordinate): TTriple - функція отримання координат, де X, Y, Z - координати.
2. function Vertex (AB, BC, CA: GridCoordinate): TVertex - функція отримання відрізків, де AB, BC, CA - відрізки.
Модуль OPTIONS.PAS зберігає форми налаштувань ландшафту.
Опис алгоритмів
У цьому пункті наведені алгоритми, що грають головну роль в генерації ландшафту. Насамперед це процедури: procedure FractureLine (малюнок 7.) і procedure FractureTriangle (Малюнок 8.)
Малюнок 7. - Алгоритм процедури FractureLine.
Малюнок 8. - Алгоритм процедури FractureTriangle.
При генерації нового ландшафту викликаються процедури GenerateLandscape (Малюнок 9.) і ShowLandscape (Малюнок 10.). Які і генерують ландшафт.
Малюнок 9. - Алгоритм процедури GenerateLandscape.
Малюнок 10. - Алгоритм процедури ShowLandscape.
. 5 Використовувані технічні засоби
Персональний комп'ютер на базі Intel, зі встановленою ОС Windows XP.
Для збереження результатів роботи програми і їх подальшого використання розроблений спеціальний файл розширення * .fl містить відомості про ландшафті. При збережень результатів у даний файл містяться відомості про вершини трикутників, дані про колір і режимі генерації. При відкритті цього файлу в програмі, всі збережені дані зчитуються і відображається вихідний ландшафт.
2.6 Виклик і завантаження
Програма запускається через файл FracLandscapes.exe.
3. ОПИС ЗАСТОСУВАННЯ ПРОГРАМНОЇ ОДИНИЦІ
Програма FracLandscapes може застосовуватися для побудови найпростіших зображень берегових ліній і гір на основі фракталів.
4. ОПИС контрольного прикладу
Програма FracLandscapes.exe має унікальну піктограму (рисунок 11).
Малюнок 11. - Піктограма програми FracLandscapes.exe
Після запуску програми на екрані з'явитися головне вікно програми зі сгенерованими ландшафтом (за замовчуванням встановлено 7 вигинів і режим каркасний). (Малюнок 12).
Малюнок 12. - Головне вікно програми.
Головне меню містить наступні пункти:
· Файл;
· Правка;
· Опції;
· Довідка;
Пункт меню Файл містить підпункти:
· Новий
· Відкрити ...
· Зберегти як ...
· Друк
· Налагодження друку ...
· Вихід
Пункт Правка містить підпункт Копіювання.
Пункт Опції містить підпункт Опції дисплея, при натисканні на який викликається вікно Фрактальні параметри ландшафту (малюнок 13).
Пункт Довідка викликає інформацію по викори...