--- a/hedgewars/uLandTemplates.pas Thu Oct 05 16:33:18 2006 +0000
+++ b/hedgewars/uLandTemplates.pas Thu Oct 05 17:02:09 2006 +0000
@@ -1,650 +1,650 @@
-(*
- * Hedgewars, a worms-like game
- * Copyright (c) 2005, 2006 Andrey Korotaev <unC0Rr@gmail.com>
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; version 2 of the License
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
- *)
-
-unit uLandTemplates;
-interface
-uses SDLh;
-{$INCLUDE options.inc}
-
-type PPointArray = ^TPointArray;
- TPointArray = array[0..64] of TPoint;
- TEdgeTemplate = record
- BasePoints: PPointArray;
- BasePointsCount: Longword;
- BezPassCnt: Longword;
- PassMin, PassDelta: Longword;
- WaveAmplMin, WaveAmplDelta: Double;
- WaveFreqMin, WaveFreqDelta: Double;
- FillPoints: PPointArray;
- FillPointsCount: Longword;
- canMirror, canFlip: boolean;
- end;
-
-const Template0Points: array[0..4] of TPoint =
- (
- (x: 500; y: 1500),
- (x: 350; y: 400),
- (x: 1023; y: 820),
- (x: 1700; y: 400),
- (x: 1550; y: 1500)
- );
- Template0FPoints: array[0..0] of TPoint =
- (
- (x: 1023; y: 0)
- );
-
-const Template1Points: array[0..12] of TPoint =
- (
- (x: 300; y: 1500),
- (x: 300; y: 1000),
- (x: 250; y: 750),
- (x: 550; y: 480),
- (x: 650; y: 780),
- (x: 810; y: 780),
- (x: 800; y: 500),
- (x: 1200; y: 500),
- (x: 1300; y: 800),
- (x: 1500; y: 500),
- (x: 1800; y: 750),
- (x: 1750; y: 1000),
- (x: 1750; y: 1500)
- );
- Template1FPoints: array[0..0] of TPoint =
- (
- (x: 1023; y: 0)
- );
-
-const Template2Points: array[0..28] of TPoint =
- (
- (x: 350; y: 1500),
- (x: 350; y: 1000),
- (x: 190; y: 850),
- (x: 500; y: 750),
- (x: 520; y: 450),
- (x: 190; y: 600),
- (x: 210; y: 260),
- (x: 800; y: 310),
- (x: 1350; y: 220),
- (x: 1250; y: 360),
- (x: 1550; y: 520),
- (x: 1100; y: 400),
- (x: 900; y: 470),
- (x: 650; y: 400),
- (x: 900; y: 750),
- (x: 600; y: 750),
- (x: 600; y: 850),
- (x: 1100; y: 900),
- (x: 1200; y: 1000),
- (x: 1200; y: 1300),
- (x: 1400; y: 1300),
- (x: 1400; y: 1000),
- (x: 1280; y: 850),
- (x: 1150; y: 630),
- (x: 1600; y: 850),
- (x: 1800; y: 600),
- (x: 1900; y: 600),
- (x: 1700; y: 1010),
- (x: 1700; y: 1500)
- );
- Template2FPoints: array[0..0] of TPoint =
- (
- (x: 1023; y: 0)
- );
-
-const Template3Points: array[0..23] of TPoint =
- (
- (x: 200; y: 1500),
- (x: 200; y: 1000),
- (x: 390; y: 650),
- (x: 210; y: 260),
- (x: 1000; y: 420),
- (x: 1100; y: 200),
- (x: 1250; y: 420),
- (x: 1250; y: 620),
- (x: 900; y: 610),
- (x: 650; y: 450),
- (x: 550; y: 500),
- (x: 650; y: 700),
- (x: 1200; y: 800),
- (x: 1200; y: 1000),
- (x: 1200; y: 1200),
- (x: 1400; y: 1200),
- (x: 1400; y: 1000),
- (x: 1280; y: 750),
- (x: 1500; y: 600),
- (x: 1400; y: 200),
- (x: 1800; y: 200),
- (x: 1700; y: 600),
- (x: 1900; y: 1010),
- (x: 1800; y: 1500)
- );
- Template3FPoints: array[0..0] of TPoint =
- (
- (x: 1023; y: 0)
- );
-
-const Template4Points: array[0..38] of TPoint =
- (
- (x: 200; y: 1500),
- (x: 200; y: 1000),
- (x: 210; y: 800),
- (x: 480; y: 830),
- (x: 460; y: 700),
- (x: 150; y: 610),
- (x: 150; y: 310),
- (x: 220; y: 200),
- (x: 340; y: 195),
- (x: 410; y: 415),
- (x: 420; y: 495),
- (x: 535; y: 615),
- (x: 705; y: 600),
- (x: 760; y: 425),
- (x: 815; y: 230),
- (x: 970; y: 200),
- (x: 1050; y: 360),
- (x: 850; y: 590),
- (x: 1070; y: 790),
- (x: 1000; y: 1000),
- (x: 1000; y: 1500),
- (x: 1250; y: 1500),
- (x: 1250; y: 1000),
- (x: 1260; y: 830),
- (x: 1290; y: 700),
- (x: 1270; y: 450),
- (x: 1180; y: 280),
- (x: 1210; y: 160),
- (x: 1370; y: 160),
- (x: 1505; y: 205),
- (x: 1630; y: 315),
- (x: 1660; y: 450),
- (x: 1580; y: 620),
- (x: 1670; y: 725),
- (x: 1800; y: 730),
- (x: 1860; y: 680),
- (x: 1925; y: 810),
- (x: 1800; y: 1000),
- (x: 1800; y: 1500)
- );
- Template4FPoints: array[0..0] of TPoint =
- (
- (x: 1023; y: 0)
- );
-
-const Template5Points: array[0..10] of TPoint =
- (
- (x: 225; y: 1500),
- (x: 254; y: 226),
- (x: 729; y: 238),
- (x: 658; y: 441),
- (x: 661; y: 651),
- (x: 1023; y: 759),
- (x: 1374; y: 648),
- (x: 1473; y: 285),
- (x: 1803; y: 207),
- (x: 1839; y: 801),
- (x: 1674; y: 1500)
- );
- Template5FPoints: array[0..0] of TPoint =
- (
- (x: 1023; y: 0)
- );
-
-const Template6Points: array[0..20] of TPoint =
- (
- (x: 318; y: 1500),
- (x: 270; y: 1023),
- (x: 252; y: 921),
- (x: 480; y: 888),
- (x: 492; y: 753),
- (x: 654; y: 756),
- (x: 687; y: 630),
- (x: 906; y: 627),
- (x: 987; y: 813),
- (x: 1125; y: 825),
- (x: 1134; y: 645),
- (x: 1236; y: 558),
- (x: 1260; y: 438),
- (x: 1467; y: 462),
- (x: 1536; y: 348),
- (x: 1680; y: 402),
- (x: 1713; y: 594),
- (x: 1593; y: 693),
- (x: 1707; y: 774),
- (x: 1728; y: 894),
- (x: 1788; y: 1500)
- );
- Template6FPoints: array[0..0] of TPoint =
- (
- (x: 1023; y: 0)
- );
-
-const Template7Points: array[0..43] of TPoint =
- (
- (x: 180; y: 1500),
- (x: 411; y: 1020),
- (x: 402; y: 912),
- (x: 141; y: 897),
- (x: 156; y: 729),
- (x: 417; y: 813),
- (x: 432; y: 585),
- (x: 147; y: 570),
- (x: 138; y: 435),
- (x: 444; y: 417),
- (x: 447; y: 207),
- (x: 573; y: 261),
- (x: 663; y: 201),
- (x: 711; y: 375),
- (x: 897; y: 411),
- (x: 936; y: 498),
- (x: 663; y: 558),
- (x: 669; y: 762),
- (x: 957; y: 723),
- (x: 984; y: 864),
- (x: 729; y: 879),
- (x: 879; y: 1020),
- (x: 981; y: 1449),
- (x: 1242; y: 1449),
- (x: 1476; y: 1020),
- (x: 1470; y: 900),
- (x: 1284; y: 897),
- (x: 1218; y: 774),
- (x: 1464; y: 765),
- (x: 1464; y: 672),
- (x: 1119; y: 630),
- (x: 1116; y: 537),
- (x: 1485; y: 501),
- (x: 1167; y: 246),
- (x: 1263; y: 180),
- (x: 1572; y: 312),
- (x: 1767; y: 162),
- (x: 1827; y: 306),
- (x: 1647; y: 465),
- (x: 1875; y: 621),
- (x: 1683; y: 747),
- (x: 1665; y: 831),
- (x: 1818; y: 951),
- (x: 1893; y: 1500)
- );
- Template7FPoints: array[0..0] of TPoint =
- (
- (x: 1023; y: 0)
- );
-
-const Template8Points: array[0..23] of TPoint =
- (
- (x: 222; y: 1500),
- (x: 354; y: 1023),
- (x: 249; y: 783),
- (x: 240; y: 421),
- (x: 411; y: 401),
- (x: 432; y: 777),
- (x: 573; y: 777),
- (x: 567; y: 300),
- (x: 696; y: 250),
- (x: 744; y: 683),
- (x: 897; y: 698),
- (x: 885; y: 450),
- (x: 1032; y: 479),
- (x: 1065; y: 698),
- (x: 1200; y: 690),
- (x: 1200; y: 218),
- (x: 1326; y: 252),
- (x: 1359; y: 786),
- (x: 1470; y: 810),
- (x: 1485; y: 379),
- (x: 1608; y: 342),
- (x: 1641; y: 819),
- (x: 1719; y: 864),
- (x: 1746; y: 1500)
- );
- Template8FPoints: array[0..0] of TPoint =
- (
- (x: 1023; y: 0)
- );
-
-const Template9Points: array[0..23] of TPoint =
- (
- (x: 384; y: 1500),
- (x: 210; y: 1023),
- (x: 213; y: 891),
- (x: 501; y: 861),
- (x: 228; y: 657),
- (x: 558; y: 676),
- (x: 561; y: 513),
- (x: 246; y: 354),
- (x: 609; y: 393),
- (x: 876; y: 309),
- (x: 759; y: 576),
- (x: 759; y: 762),
- (x: 1113; y: 750),
- (x: 1128; y: 873),
- (x: 1488; y: 870),
- (x: 1473; y: 678),
- (x: 1182; y: 501),
- (x: 1515; y: 507),
- (x: 1776; y: 393),
- (x: 1668; y: 630),
- (x: 1833; y: 714),
- (x: 1674; y: 837),
- (x: 1800; y: 1020),
- (x: 1632; y: 1500)
- );
- Template9FPoints: array[0..0] of TPoint =
- (
- (x: 1023; y: 0)
- );
-
-const Template10Points: array[0..13] of TPoint =
- (
- (x: 336; y: 1500),
- (x: 303; y: 1026),
- (x: 225; y: 921),
- (x: 216; y: 741),
- (x: 774; y: 810),
- (x: 687; y: 336),
- (x: 975; y: 192),
- (x: 1350; y: 324),
- (x: 1230; y: 681),
- (x: 1257; y: 855),
- (x: 1623; y: 846),
- (x: 1821; y: 657),
- (x: 1911; y: 897),
- (x: 1704; y: 1500)
- );
- Template10FPoints: array[0..0] of TPoint =
- (
- (x: 1023; y: 0)
- );
-
-const Template11Points: array[0..9] of TPoint =
- (
- (x: 270; y: 1500),
- (x: 180; y: 795),
- (x: 453; y: 753),
- (x: 537; y: 900),
- (x: 822; y: 729),
- (x: 1128; y: 882),
- (x: 1269; y: 657),
- (x: 1560; y: 915),
- (x: 1812; y: 867),
- (x: 1854; y: 1500)
- );
- Template11FPoints: array[0..0] of TPoint =
- (
- (x: 1023; y: 0)
- );
-
-const Template12Points: array[0..38] of TPoint =
- (
- (x: 201; y: 1500),
- (x: 207; y: 920),
- (x: 360; y: 901),
- (x: 345; y: 822),
- (x: 183; y: 810),
- (x: 183; y: 632),
- (x: 327; y: 628),
- (x: 165; y: 402),
- (x: 462; y: 443),
- (x: 555; y: 272),
- (x: 525; y: 556),
- (x: 618; y: 647),
- (x: 483; y: 712),
- (x: 468; y: 860),
- (x: 810; y: 884),
- (x: 879; y: 796),
- (x: 756; y: 764),
- (x: 771; y: 620),
- (x: 960; y: 625),
- (x: 969; y: 517),
- (x: 771; y: 503),
- (x: 768; y: 395),
- (x: 1092; y: 412),
- (x: 1125; y: 616),
- (x: 1029; y: 767),
- (x: 1404; y: 858),
- (x: 1440; y: 714),
- (x: 1293; y: 688),
- (x: 1344; y: 320),
- (x: 1548; y: 342),
- (x: 1494; y: 563),
- (x: 1614; y: 570),
- (x: 1710; y: 383),
- (x: 1860; y: 448),
- (x: 1683; y: 664),
- (x: 1773; y: 726),
- (x: 1578; y: 836),
- (x: 1746; y: 918),
- (x: 1662; y: 1500)
- );
- Template12FPoints: array[0..0] of TPoint =
- (
- (x: 1023; y: 0)
- );
-
-const Template13Points: array[0..13] of TPoint =
- (
- (x: 645; y: 1500),
- (x: 198; y: 732),
- (x: 402; y: 648),
- (x: 609; y: 763),
- (x: 750; y: 590),
- (x: 303; y: 376),
- (x: 1023; y: 441),
- (x: 1023; y: 316),
- (x: 1719; y: 329),
- (x: 1695; y: 457),
- (x: 1038; y: 576),
- (x: 1017; y: 756),
- (x: 1803; y: 728),
- (x: 1503; y: 1500)
- );
- Template13FPoints: array[0..0] of TPoint =
- (
- (x: 1023; y: 0)
- );
-
-const Template14Points: array[0..22] of TPoint =
- (
- (x: 177; y: 1500),
- (x: 262; y: 1026),
- (x: 259; y: 303),
- (x: 765; y: 162),
- (x: 789; y: 357),
- (x: 517; y: 420),
- (x: 658; y: 690),
- (x: 448; y: 762),
- (x: 663; y: 1029),
- (x: 765; y: 1440),
- (x: 1446; y: 1431),
- (x: 1439; y: 1026),
- (x: 1416; y: 825),
- (x: 1253; y: 840),
- (x: 1253; y: 600),
- (x: 1551; y: 573),
- (x: 1506; y: 390),
- (x: 1065; y: 366),
- (x: 1077; y: 171),
- (x: 1656; y: 156),
- (x: 1821; y: 396),
- (x: 1716; y: 768),
- (x: 1926; y: 1500)
- );
- Template14FPoints: array[0..0] of TPoint =
- (
- (x: 1023; y: 0)
- );
-
-const EdgeTemplates: array[0..14] of TEdgeTemplate =
- (
- (BasePoints: @Template0Points;
- BasePointsCount: Succ(High(Template0Points));
- BezPassCnt: 4;
- PassMin: 10; PassDelta: 5;
- WaveAmplMin: 17; WaveAmplDelta: 20;
- WaveFreqMin: 0.010; WaveFreqDelta: 0.002;
- FillPoints: @Template0FPoints;
- FillPointsCount: Succ(High(Template0FPoints));
- canMirror: false; canFlip: false;
- ),
- (BasePoints: @Template1Points;
- BasePointsCount: Succ(High(Template1Points));
- BezPassCnt: 3;
- PassMin: 10; PassDelta: 2;
- WaveAmplMin: 25; WaveAmplDelta: 15;
- WaveFreqMin: 0.008; WaveFreqDelta: 0.002;
- FillPoints: @Template1FPoints;
- FillPointsCount: Succ(High(Template1FPoints));
- canMirror: false; canFlip: false;
- ),
- (BasePoints: @Template2Points;
- BasePointsCount: Succ(High(Template2Points));
- BezPassCnt: 3;
- PassMin: 14; PassDelta: 3;
- WaveAmplMin: 10; WaveAmplDelta: 10;
- WaveFreqMin: 0.010; WaveFreqDelta: 0.002;
- FillPoints: @Template2FPoints;
- FillPointsCount: Succ(High(Template2FPoints));
- canMirror: true; canFlip: false;
- ),
- (BasePoints: @Template3Points;
- BasePointsCount: Succ(High(Template3Points));
- BezPassCnt: 4;
- PassMin: 15; PassDelta: 2;
- WaveAmplMin: 8; WaveAmplDelta: 12;
- WaveFreqMin: 0.015; WaveFreqDelta: 0.0015;
- FillPoints: @Template3FPoints;
- FillPointsCount: Succ(High(Template3FPoints));
- canMirror: true; canFlip: false;
- ),
- (BasePoints: @Template4Points;
- BasePointsCount: Succ(High(Template4Points));
- BezPassCnt: 3;
- PassMin: 19; PassDelta: 5;
- WaveAmplMin: 12; WaveAmplDelta: 14;
- WaveFreqMin: 0.008; WaveFreqDelta: 0.001;
- FillPoints: @Template4FPoints;
- FillPointsCount: Succ(High(Template4FPoints));
- canMirror: true; canFlip: false;
- ),
- (BasePoints: @Template5Points;
- BasePointsCount: Succ(High(Template5Points));
- BezPassCnt: 4;
- PassMin: 15; PassDelta: 1;
- WaveAmplMin: 15; WaveAmplDelta: 14;
- WaveFreqMin: 0.008; WaveFreqDelta: 0.002;
- FillPoints: @Template5FPoints;
- FillPointsCount: Succ(High(Template5FPoints));
- canMirror: true; canFlip: false;
- ),
- (BasePoints: @Template6Points;
- BasePointsCount: Succ(High(Template6Points));
- BezPassCnt: 3;
- PassMin: 15; PassDelta: 1;
- WaveAmplMin: 15; WaveAmplDelta: 10;
- WaveFreqMin: 0.010; WaveFreqDelta: 0.0015;
- FillPoints: @Template6FPoints;
- FillPointsCount: Succ(High(Template6FPoints));
- canMirror: true; canFlip: false;
- ),
- (BasePoints: @Template7Points;
- BasePointsCount: Succ(High(Template7Points));
- BezPassCnt: 3;
- PassMin: 12; PassDelta: 4;
- WaveAmplMin: 5; WaveAmplDelta: 15;
- WaveFreqMin: 0.015; WaveFreqDelta: 0.002;
- FillPoints: @Template7FPoints;
- FillPointsCount: Succ(High(Template7FPoints));
- canMirror: true; canFlip: false;
- ),
- (BasePoints: @Template8Points;
- BasePointsCount: Succ(High(Template8Points));
- BezPassCnt: 4;
- PassMin: 9; PassDelta: 3;
- WaveAmplMin: 18; WaveAmplDelta: 18;
- WaveFreqMin: 0.010; WaveFreqDelta: 0.002;
- FillPoints: @Template8FPoints;
- FillPointsCount: Succ(High(Template8FPoints));
- canMirror: true; canFlip: false;
- ),
- (BasePoints: @Template9Points;
- BasePointsCount: Succ(High(Template9Points));
- BezPassCnt: 4;
- PassMin: 17; PassDelta: 3;
- WaveAmplMin: 10; WaveAmplDelta: 10;
- WaveFreqMin: 0.010; WaveFreqDelta: 0.002;
- FillPoints: @Template9FPoints;
- FillPointsCount: Succ(High(Template9FPoints));
- canMirror: true; canFlip: false;
- ),
- (BasePoints: @Template10Points;
- BasePointsCount: Succ(High(Template10Points));
- BezPassCnt: 4;
- PassMin: 15; PassDelta: 2;
- WaveAmplMin: 15; WaveAmplDelta: 10;
- WaveFreqMin: 0.008; WaveFreqDelta: 0.002;
- FillPoints: @Template10FPoints;
- FillPointsCount: Succ(High(Template10FPoints));
- canMirror: false; canFlip: false;
- ),
- (BasePoints: @Template11Points;
- BasePointsCount: Succ(High(Template11Points));
- BezPassCnt: 4;
- PassMin: 15; PassDelta: 1;
- WaveAmplMin: 10; WaveAmplDelta: 10;
- WaveFreqMin: 0.008; WaveFreqDelta: 0.002;
- FillPoints: @Template11FPoints;
- FillPointsCount: Succ(High(Template11FPoints));
- canMirror: true; canFlip: false;
- ),
- (BasePoints: @Template12Points;
- BasePointsCount: Succ(High(Template12Points));
- BezPassCnt: 3;
- PassMin: 10; PassDelta: 1;
- WaveAmplMin: 15; WaveAmplDelta: 15;
- WaveFreqMin: 0.005; WaveFreqDelta: 0.003;
- FillPoints: @Template12FPoints;
- FillPointsCount: Succ(High(Template12FPoints));
- canMirror: true; canFlip: false;
- ),
- (BasePoints: @Template13Points;
- BasePointsCount: Succ(High(Template13Points));
- BezPassCnt: 5;
- PassMin: 15; PassDelta: 3;
- WaveAmplMin: 18; WaveAmplDelta: 15;
- WaveFreqMin: 0.0028; WaveFreqDelta: 0.002;
- FillPoints: @Template13FPoints;
- FillPointsCount: Succ(High(Template13FPoints));
- canMirror: true; canFlip: false;
- ),
- (BasePoints: @Template14Points;
- BasePointsCount: Succ(High(Template14Points));
- BezPassCnt: 4;
- PassMin: 14; PassDelta: 3;
- WaveAmplMin: 20; WaveAmplDelta: 15;
- WaveFreqMin: 0.003; WaveFreqDelta: 0.002;
- FillPoints: @Template14FPoints;
- FillPointsCount: Succ(High(Template14FPoints));
- canMirror: true; canFlip: false;
- )
- );
-
-
-
-implementation
-
-end.
+(*
+ * Hedgewars, a worms-like game
+ * Copyright (c) 2005, 2006 Andrey Korotaev <unC0Rr@gmail.com>
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; version 2 of the License
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
+ *)
+
+unit uLandTemplates;
+interface
+uses SDLh;
+{$INCLUDE options.inc}
+
+type PPointArray = ^TPointArray;
+ TPointArray = array[0..64] of TPoint;
+ TEdgeTemplate = record
+ BasePoints: PPointArray;
+ BasePointsCount: Longword;
+ BezPassCnt: Longword;
+ PassMin, PassDelta: Longword;
+ WaveAmplMin, WaveAmplDelta: Double;
+ WaveFreqMin, WaveFreqDelta: Double;
+ FillPoints: PPointArray;
+ FillPointsCount: Longword;
+ canMirror, canFlip: boolean;
+ end;
+
+const Template0Points: array[0..4] of TPoint =
+ (
+ (x: 500; y: 1500),
+ (x: 350; y: 400),
+ (x: 1023; y: 820),
+ (x: 1700; y: 400),
+ (x: 1550; y: 1500)
+ );
+ Template0FPoints: array[0..0] of TPoint =
+ (
+ (x: 1023; y: 0)
+ );
+
+const Template1Points: array[0..12] of TPoint =
+ (
+ (x: 300; y: 1500),
+ (x: 300; y: 1000),
+ (x: 250; y: 750),
+ (x: 550; y: 480),
+ (x: 650; y: 780),
+ (x: 810; y: 780),
+ (x: 800; y: 500),
+ (x: 1200; y: 500),
+ (x: 1300; y: 800),
+ (x: 1500; y: 500),
+ (x: 1800; y: 750),
+ (x: 1750; y: 1000),
+ (x: 1750; y: 1500)
+ );
+ Template1FPoints: array[0..0] of TPoint =
+ (
+ (x: 1023; y: 0)
+ );
+
+const Template2Points: array[0..28] of TPoint =
+ (
+ (x: 350; y: 1500),
+ (x: 350; y: 1000),
+ (x: 190; y: 850),
+ (x: 500; y: 750),
+ (x: 520; y: 450),
+ (x: 190; y: 600),
+ (x: 210; y: 260),
+ (x: 800; y: 310),
+ (x: 1350; y: 220),
+ (x: 1250; y: 360),
+ (x: 1550; y: 520),
+ (x: 1100; y: 400),
+ (x: 900; y: 470),
+ (x: 650; y: 400),
+ (x: 900; y: 750),
+ (x: 600; y: 750),
+ (x: 600; y: 850),
+ (x: 1100; y: 900),
+ (x: 1200; y: 1000),
+ (x: 1200; y: 1300),
+ (x: 1400; y: 1300),
+ (x: 1400; y: 1000),
+ (x: 1280; y: 850),
+ (x: 1150; y: 630),
+ (x: 1600; y: 850),
+ (x: 1800; y: 600),
+ (x: 1900; y: 600),
+ (x: 1700; y: 1010),
+ (x: 1700; y: 1500)
+ );
+ Template2FPoints: array[0..0] of TPoint =
+ (
+ (x: 1023; y: 0)
+ );
+
+const Template3Points: array[0..23] of TPoint =
+ (
+ (x: 200; y: 1500),
+ (x: 200; y: 1000),
+ (x: 390; y: 650),
+ (x: 210; y: 260),
+ (x: 1000; y: 420),
+ (x: 1100; y: 200),
+ (x: 1250; y: 420),
+ (x: 1250; y: 620),
+ (x: 900; y: 610),
+ (x: 650; y: 450),
+ (x: 550; y: 500),
+ (x: 650; y: 700),
+ (x: 1200; y: 800),
+ (x: 1200; y: 1000),
+ (x: 1200; y: 1200),
+ (x: 1400; y: 1200),
+ (x: 1400; y: 1000),
+ (x: 1280; y: 750),
+ (x: 1500; y: 600),
+ (x: 1400; y: 200),
+ (x: 1800; y: 200),
+ (x: 1700; y: 600),
+ (x: 1900; y: 1010),
+ (x: 1800; y: 1500)
+ );
+ Template3FPoints: array[0..0] of TPoint =
+ (
+ (x: 1023; y: 0)
+ );
+
+const Template4Points: array[0..38] of TPoint =
+ (
+ (x: 200; y: 1500),
+ (x: 200; y: 1000),
+ (x: 210; y: 800),
+ (x: 480; y: 830),
+ (x: 460; y: 700),
+ (x: 150; y: 610),
+ (x: 150; y: 310),
+ (x: 220; y: 200),
+ (x: 340; y: 195),
+ (x: 410; y: 415),
+ (x: 420; y: 495),
+ (x: 535; y: 615),
+ (x: 705; y: 600),
+ (x: 760; y: 425),
+ (x: 815; y: 230),
+ (x: 970; y: 200),
+ (x: 1050; y: 360),
+ (x: 850; y: 590),
+ (x: 1070; y: 790),
+ (x: 1000; y: 1000),
+ (x: 1000; y: 1500),
+ (x: 1250; y: 1500),
+ (x: 1250; y: 1000),
+ (x: 1260; y: 830),
+ (x: 1290; y: 700),
+ (x: 1270; y: 450),
+ (x: 1180; y: 280),
+ (x: 1210; y: 160),
+ (x: 1370; y: 160),
+ (x: 1505; y: 205),
+ (x: 1630; y: 315),
+ (x: 1660; y: 450),
+ (x: 1580; y: 620),
+ (x: 1670; y: 725),
+ (x: 1800; y: 730),
+ (x: 1860; y: 680),
+ (x: 1925; y: 810),
+ (x: 1800; y: 1000),
+ (x: 1800; y: 1500)
+ );
+ Template4FPoints: array[0..0] of TPoint =
+ (
+ (x: 1023; y: 0)
+ );
+
+const Template5Points: array[0..10] of TPoint =
+ (
+ (x: 225; y: 1500),
+ (x: 254; y: 226),
+ (x: 729; y: 238),
+ (x: 658; y: 441),
+ (x: 661; y: 651),
+ (x: 1023; y: 759),
+ (x: 1374; y: 648),
+ (x: 1473; y: 285),
+ (x: 1803; y: 207),
+ (x: 1839; y: 801),
+ (x: 1674; y: 1500)
+ );
+ Template5FPoints: array[0..0] of TPoint =
+ (
+ (x: 1023; y: 0)
+ );
+
+const Template6Points: array[0..20] of TPoint =
+ (
+ (x: 318; y: 1500),
+ (x: 270; y: 1023),
+ (x: 252; y: 921),
+ (x: 480; y: 888),
+ (x: 492; y: 753),
+ (x: 654; y: 756),
+ (x: 687; y: 630),
+ (x: 906; y: 627),
+ (x: 987; y: 813),
+ (x: 1125; y: 825),
+ (x: 1134; y: 645),
+ (x: 1236; y: 558),
+ (x: 1260; y: 438),
+ (x: 1467; y: 462),
+ (x: 1536; y: 348),
+ (x: 1680; y: 402),
+ (x: 1713; y: 594),
+ (x: 1593; y: 693),
+ (x: 1707; y: 774),
+ (x: 1728; y: 894),
+ (x: 1788; y: 1500)
+ );
+ Template6FPoints: array[0..0] of TPoint =
+ (
+ (x: 1023; y: 0)
+ );
+
+const Template7Points: array[0..43] of TPoint =
+ (
+ (x: 180; y: 1500),
+ (x: 411; y: 1020),
+ (x: 402; y: 912),
+ (x: 141; y: 897),
+ (x: 156; y: 729),
+ (x: 417; y: 813),
+ (x: 432; y: 585),
+ (x: 147; y: 570),
+ (x: 138; y: 435),
+ (x: 444; y: 417),
+ (x: 447; y: 207),
+ (x: 573; y: 261),
+ (x: 663; y: 201),
+ (x: 711; y: 375),
+ (x: 897; y: 411),
+ (x: 936; y: 498),
+ (x: 663; y: 558),
+ (x: 669; y: 762),
+ (x: 957; y: 723),
+ (x: 984; y: 864),
+ (x: 729; y: 879),
+ (x: 879; y: 1020),
+ (x: 981; y: 1449),
+ (x: 1242; y: 1449),
+ (x: 1476; y: 1020),
+ (x: 1470; y: 900),
+ (x: 1284; y: 897),
+ (x: 1218; y: 774),
+ (x: 1464; y: 765),
+ (x: 1464; y: 672),
+ (x: 1119; y: 630),
+ (x: 1116; y: 537),
+ (x: 1485; y: 501),
+ (x: 1167; y: 246),
+ (x: 1263; y: 180),
+ (x: 1572; y: 312),
+ (x: 1767; y: 162),
+ (x: 1827; y: 306),
+ (x: 1647; y: 465),
+ (x: 1875; y: 621),
+ (x: 1683; y: 747),
+ (x: 1665; y: 831),
+ (x: 1818; y: 951),
+ (x: 1893; y: 1500)
+ );
+ Template7FPoints: array[0..0] of TPoint =
+ (
+ (x: 1023; y: 0)
+ );
+
+const Template8Points: array[0..23] of TPoint =
+ (
+ (x: 222; y: 1500),
+ (x: 354; y: 1023),
+ (x: 249; y: 783),
+ (x: 240; y: 421),
+ (x: 411; y: 401),
+ (x: 432; y: 777),
+ (x: 573; y: 777),
+ (x: 567; y: 300),
+ (x: 696; y: 250),
+ (x: 744; y: 683),
+ (x: 897; y: 698),
+ (x: 885; y: 450),
+ (x: 1032; y: 479),
+ (x: 1065; y: 698),
+ (x: 1200; y: 690),
+ (x: 1200; y: 218),
+ (x: 1326; y: 252),
+ (x: 1359; y: 786),
+ (x: 1470; y: 810),
+ (x: 1485; y: 379),
+ (x: 1608; y: 342),
+ (x: 1641; y: 819),
+ (x: 1719; y: 864),
+ (x: 1746; y: 1500)
+ );
+ Template8FPoints: array[0..0] of TPoint =
+ (
+ (x: 1023; y: 0)
+ );
+
+const Template9Points: array[0..23] of TPoint =
+ (
+ (x: 384; y: 1500),
+ (x: 210; y: 1023),
+ (x: 213; y: 891),
+ (x: 501; y: 861),
+ (x: 228; y: 657),
+ (x: 558; y: 676),
+ (x: 561; y: 513),
+ (x: 246; y: 354),
+ (x: 609; y: 393),
+ (x: 876; y: 309),
+ (x: 759; y: 576),
+ (x: 759; y: 762),
+ (x: 1113; y: 750),
+ (x: 1128; y: 873),
+ (x: 1488; y: 870),
+ (x: 1473; y: 678),
+ (x: 1182; y: 501),
+ (x: 1515; y: 507),
+ (x: 1776; y: 393),
+ (x: 1668; y: 630),
+ (x: 1833; y: 714),
+ (x: 1674; y: 837),
+ (x: 1800; y: 1020),
+ (x: 1632; y: 1500)
+ );
+ Template9FPoints: array[0..0] of TPoint =
+ (
+ (x: 1023; y: 0)
+ );
+
+const Template10Points: array[0..13] of TPoint =
+ (
+ (x: 336; y: 1500),
+ (x: 303; y: 1026),
+ (x: 225; y: 921),
+ (x: 216; y: 741),
+ (x: 774; y: 810),
+ (x: 687; y: 336),
+ (x: 975; y: 192),
+ (x: 1350; y: 324),
+ (x: 1230; y: 681),
+ (x: 1257; y: 855),
+ (x: 1623; y: 846),
+ (x: 1821; y: 657),
+ (x: 1911; y: 897),
+ (x: 1704; y: 1500)
+ );
+ Template10FPoints: array[0..0] of TPoint =
+ (
+ (x: 1023; y: 0)
+ );
+
+const Template11Points: array[0..9] of TPoint =
+ (
+ (x: 270; y: 1500),
+ (x: 180; y: 795),
+ (x: 453; y: 753),
+ (x: 537; y: 900),
+ (x: 822; y: 729),
+ (x: 1128; y: 882),
+ (x: 1269; y: 657),
+ (x: 1560; y: 915),
+ (x: 1812; y: 867),
+ (x: 1854; y: 1500)
+ );
+ Template11FPoints: array[0..0] of TPoint =
+ (
+ (x: 1023; y: 0)
+ );
+
+const Template12Points: array[0..38] of TPoint =
+ (
+ (x: 201; y: 1500),
+ (x: 207; y: 920),
+ (x: 360; y: 901),
+ (x: 345; y: 822),
+ (x: 183; y: 810),
+ (x: 183; y: 632),
+ (x: 327; y: 628),
+ (x: 165; y: 402),
+ (x: 462; y: 443),
+ (x: 555; y: 272),
+ (x: 525; y: 556),
+ (x: 618; y: 647),
+ (x: 483; y: 712),
+ (x: 468; y: 860),
+ (x: 810; y: 884),
+ (x: 879; y: 796),
+ (x: 756; y: 764),
+ (x: 771; y: 620),
+ (x: 960; y: 625),
+ (x: 969; y: 517),
+ (x: 771; y: 503),
+ (x: 768; y: 395),
+ (x: 1092; y: 412),
+ (x: 1125; y: 616),
+ (x: 1029; y: 767),
+ (x: 1404; y: 858),
+ (x: 1440; y: 714),
+ (x: 1293; y: 688),
+ (x: 1344; y: 320),
+ (x: 1548; y: 342),
+ (x: 1494; y: 563),
+ (x: 1614; y: 570),
+ (x: 1710; y: 383),
+ (x: 1860; y: 448),
+ (x: 1683; y: 664),
+ (x: 1773; y: 726),
+ (x: 1578; y: 836),
+ (x: 1746; y: 918),
+ (x: 1662; y: 1500)
+ );
+ Template12FPoints: array[0..0] of TPoint =
+ (
+ (x: 1023; y: 0)
+ );
+
+const Template13Points: array[0..13] of TPoint =
+ (
+ (x: 645; y: 1500),
+ (x: 198; y: 732),
+ (x: 402; y: 648),
+ (x: 609; y: 763),
+ (x: 750; y: 590),
+ (x: 303; y: 376),
+ (x: 1023; y: 441),
+ (x: 1023; y: 316),
+ (x: 1719; y: 329),
+ (x: 1695; y: 457),
+ (x: 1038; y: 576),
+ (x: 1017; y: 756),
+ (x: 1803; y: 728),
+ (x: 1503; y: 1500)
+ );
+ Template13FPoints: array[0..0] of TPoint =
+ (
+ (x: 1023; y: 0)
+ );
+
+const Template14Points: array[0..22] of TPoint =
+ (
+ (x: 177; y: 1500),
+ (x: 262; y: 1026),
+ (x: 259; y: 303),
+ (x: 765; y: 162),
+ (x: 789; y: 357),
+ (x: 517; y: 420),
+ (x: 658; y: 690),
+ (x: 448; y: 762),
+ (x: 663; y: 1029),
+ (x: 765; y: 1440),
+ (x: 1446; y: 1431),
+ (x: 1439; y: 1026),
+ (x: 1416; y: 825),
+ (x: 1253; y: 840),
+ (x: 1253; y: 600),
+ (x: 1551; y: 573),
+ (x: 1506; y: 390),
+ (x: 1065; y: 366),
+ (x: 1077; y: 171),
+ (x: 1656; y: 156),
+ (x: 1821; y: 396),
+ (x: 1716; y: 768),
+ (x: 1926; y: 1500)
+ );
+ Template14FPoints: array[0..0] of TPoint =
+ (
+ (x: 1023; y: 0)
+ );
+
+const EdgeTemplates: array[0..14] of TEdgeTemplate =
+ (
+ (BasePoints: @Template0Points;
+ BasePointsCount: Succ(High(Template0Points));
+ BezPassCnt: 4;
+ PassMin: 10; PassDelta: 5;
+ WaveAmplMin: 17; WaveAmplDelta: 20;
+ WaveFreqMin: 0.010; WaveFreqDelta: 0.002;
+ FillPoints: @Template0FPoints;
+ FillPointsCount: Succ(High(Template0FPoints));
+ canMirror: false; canFlip: false;
+ ),
+ (BasePoints: @Template1Points;
+ BasePointsCount: Succ(High(Template1Points));
+ BezPassCnt: 3;
+ PassMin: 10; PassDelta: 2;
+ WaveAmplMin: 25; WaveAmplDelta: 15;
+ WaveFreqMin: 0.008; WaveFreqDelta: 0.002;
+ FillPoints: @Template1FPoints;
+ FillPointsCount: Succ(High(Template1FPoints));
+ canMirror: false; canFlip: false;
+ ),
+ (BasePoints: @Template2Points;
+ BasePointsCount: Succ(High(Template2Points));
+ BezPassCnt: 3;
+ PassMin: 14; PassDelta: 3;
+ WaveAmplMin: 10; WaveAmplDelta: 10;
+ WaveFreqMin: 0.010; WaveFreqDelta: 0.002;
+ FillPoints: @Template2FPoints;
+ FillPointsCount: Succ(High(Template2FPoints));
+ canMirror: true; canFlip: false;
+ ),
+ (BasePoints: @Template3Points;
+ BasePointsCount: Succ(High(Template3Points));
+ BezPassCnt: 4;
+ PassMin: 15; PassDelta: 2;
+ WaveAmplMin: 8; WaveAmplDelta: 12;
+ WaveFreqMin: 0.015; WaveFreqDelta: 0.0015;
+ FillPoints: @Template3FPoints;
+ FillPointsCount: Succ(High(Template3FPoints));
+ canMirror: true; canFlip: false;
+ ),
+ (BasePoints: @Template4Points;
+ BasePointsCount: Succ(High(Template4Points));
+ BezPassCnt: 3;
+ PassMin: 19; PassDelta: 5;
+ WaveAmplMin: 12; WaveAmplDelta: 14;
+ WaveFreqMin: 0.008; WaveFreqDelta: 0.001;
+ FillPoints: @Template4FPoints;
+ FillPointsCount: Succ(High(Template4FPoints));
+ canMirror: true; canFlip: false;
+ ),
+ (BasePoints: @Template5Points;
+ BasePointsCount: Succ(High(Template5Points));
+ BezPassCnt: 4;
+ PassMin: 15; PassDelta: 1;
+ WaveAmplMin: 15; WaveAmplDelta: 14;
+ WaveFreqMin: 0.008; WaveFreqDelta: 0.002;
+ FillPoints: @Template5FPoints;
+ FillPointsCount: Succ(High(Template5FPoints));
+ canMirror: true; canFlip: false;
+ ),
+ (BasePoints: @Template6Points;
+ BasePointsCount: Succ(High(Template6Points));
+ BezPassCnt: 3;
+ PassMin: 15; PassDelta: 1;
+ WaveAmplMin: 15; WaveAmplDelta: 10;
+ WaveFreqMin: 0.010; WaveFreqDelta: 0.0015;
+ FillPoints: @Template6FPoints;
+ FillPointsCount: Succ(High(Template6FPoints));
+ canMirror: true; canFlip: false;
+ ),
+ (BasePoints: @Template7Points;
+ BasePointsCount: Succ(High(Template7Points));
+ BezPassCnt: 3;
+ PassMin: 12; PassDelta: 4;
+ WaveAmplMin: 5; WaveAmplDelta: 15;
+ WaveFreqMin: 0.015; WaveFreqDelta: 0.002;
+ FillPoints: @Template7FPoints;
+ FillPointsCount: Succ(High(Template7FPoints));
+ canMirror: true; canFlip: false;
+ ),
+ (BasePoints: @Template8Points;
+ BasePointsCount: Succ(High(Template8Points));
+ BezPassCnt: 4;
+ PassMin: 9; PassDelta: 3;
+ WaveAmplMin: 18; WaveAmplDelta: 18;
+ WaveFreqMin: 0.010; WaveFreqDelta: 0.002;
+ FillPoints: @Template8FPoints;
+ FillPointsCount: Succ(High(Template8FPoints));
+ canMirror: true; canFlip: false;
+ ),
+ (BasePoints: @Template9Points;
+ BasePointsCount: Succ(High(Template9Points));
+ BezPassCnt: 4;
+ PassMin: 17; PassDelta: 3;
+ WaveAmplMin: 10; WaveAmplDelta: 10;
+ WaveFreqMin: 0.010; WaveFreqDelta: 0.002;
+ FillPoints: @Template9FPoints;
+ FillPointsCount: Succ(High(Template9FPoints));
+ canMirror: true; canFlip: false;
+ ),
+ (BasePoints: @Template10Points;
+ BasePointsCount: Succ(High(Template10Points));
+ BezPassCnt: 4;
+ PassMin: 15; PassDelta: 2;
+ WaveAmplMin: 15; WaveAmplDelta: 10;
+ WaveFreqMin: 0.008; WaveFreqDelta: 0.002;
+ FillPoints: @Template10FPoints;
+ FillPointsCount: Succ(High(Template10FPoints));
+ canMirror: false; canFlip: false;
+ ),
+ (BasePoints: @Template11Points;
+ BasePointsCount: Succ(High(Template11Points));
+ BezPassCnt: 4;
+ PassMin: 15; PassDelta: 1;
+ WaveAmplMin: 10; WaveAmplDelta: 10;
+ WaveFreqMin: 0.008; WaveFreqDelta: 0.002;
+ FillPoints: @Template11FPoints;
+ FillPointsCount: Succ(High(Template11FPoints));
+ canMirror: true; canFlip: false;
+ ),
+ (BasePoints: @Template12Points;
+ BasePointsCount: Succ(High(Template12Points));
+ BezPassCnt: 3;
+ PassMin: 10; PassDelta: 1;
+ WaveAmplMin: 15; WaveAmplDelta: 15;
+ WaveFreqMin: 0.005; WaveFreqDelta: 0.003;
+ FillPoints: @Template12FPoints;
+ FillPointsCount: Succ(High(Template12FPoints));
+ canMirror: true; canFlip: false;
+ ),
+ (BasePoints: @Template13Points;
+ BasePointsCount: Succ(High(Template13Points));
+ BezPassCnt: 5;
+ PassMin: 15; PassDelta: 3;
+ WaveAmplMin: 18; WaveAmplDelta: 15;
+ WaveFreqMin: 0.0028; WaveFreqDelta: 0.002;
+ FillPoints: @Template13FPoints;
+ FillPointsCount: Succ(High(Template13FPoints));
+ canMirror: true; canFlip: false;
+ ),
+ (BasePoints: @Template14Points;
+ BasePointsCount: Succ(High(Template14Points));
+ BezPassCnt: 4;
+ PassMin: 14; PassDelta: 3;
+ WaveAmplMin: 20; WaveAmplDelta: 15;
+ WaveFreqMin: 0.003; WaveFreqDelta: 0.002;
+ FillPoints: @Template14FPoints;
+ FillPointsCount: Succ(High(Template14FPoints));
+ canMirror: true; canFlip: false;
+ )
+ );
+
+
+
+implementation
+
+end.