hedgewars/uLandTemplates.pas
author unc0rr
Mon, 29 Sep 2008 22:14:23 +0000
changeset 1301 c6fe8a4bfd34
parent 1066 1f1b3686a2b0
child 1753 2ccba26f1aa4
permissions -rw-r--r--
Fix a bug screwing team selection up in network game (REMOVETEAM message doesn't have teamID, and after removing the team QMap still contains old info, when add and remove team with the same name, total hedgehogs number will be decreased by first team hh number)
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
184
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
     1
(*
1066
1f1b3686a2b0 Update copyright headers a bit
unc0rr
parents: 883
diff changeset
     2
 * Hedgewars, a free turn based strategy game
883
07a568ba44e0 Update copyright info in source files headers
unc0rr
parents: 715
diff changeset
     3
 * Copyright (c) 2005-2008 Andrey Korotaev <unC0Rr@gmail.com>
184
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
     4
 *
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
     5
 * This program is free software; you can redistribute it and/or modify
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
     6
 * it under the terms of the GNU General Public License as published by
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
     7
 * the Free Software Foundation; version 2 of the License
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
     8
 *
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
     9
 * This program is distributed in the hope that it will be useful,
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    10
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    11
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    12
 * GNU General Public License for more details.
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    13
 *
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    14
 * You should have received a copy of the GNU General Public License
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    15
 * along with this program; if not, write to the Free Software
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    16
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    17
 *)
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    18
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    19
unit uLandTemplates;
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    20
interface
534
92fb2b0d5117 - Fix some bugs
unc0rr
parents: 527
diff changeset
    21
uses SDLh;
184
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    22
{$INCLUDE options.inc}
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    23
365
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
    24
const NTPX = Low(TSDL_Rect.x); 
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
    25
184
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    26
type PPointArray = ^TPointArray;
358
236bbd12d4d9 - New Land Generator
unc0rr
parents: 351
diff changeset
    27
     TPointArray = array[0..64] of TSDL_Rect;
184
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    28
     TEdgeTemplate = record
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    29
                     BasePoints: PPointArray;
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    30
                     BasePointsCount: Longword;
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    31
                     FillPoints: PPointArray;
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    32
                     FillPointsCount: Longword;
429
7f69c7ac2e97 One more land template + some templates tuning
unc0rr
parents: 405
diff changeset
    33
                     BezierizeCount: Longword;
364
52cb4d6f84b7 - Better land generator
unc0rr
parents: 360
diff changeset
    34
                     RandPassesCount: Longword;
184
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    35
                     canMirror, canFlip: boolean;
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    36
                     end;
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    37
365
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
    38
const Template0Points: array[0..18] of TSDL_Rect =
184
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    39
      (
359
59fbfc65fbda - New land templates
unc0rr
parents: 358
diff changeset
    40
       (x:  410; y: 1024; w:    1; h:    1),
59fbfc65fbda - New land templates
unc0rr
parents: 358
diff changeset
    41
       (x:  160; y:  760; w:  130; h:  170),
59fbfc65fbda - New land templates
unc0rr
parents: 358
diff changeset
    42
       (x:  342; y:  706; w:  316; h:  150),
59fbfc65fbda - New land templates
unc0rr
parents: 358
diff changeset
    43
       (x:  238; y:  386; w:  270; h:  180),
59fbfc65fbda - New land templates
unc0rr
parents: 358
diff changeset
    44
       (x:  246; y:  176; w:  242; h:  156),
403
282b00e559bd Better templates, giving more different lands
unc0rr
parents: 393
diff changeset
    45
       (x:  552; y:  128; w:  610; h:  300),
282b00e559bd Better templates, giving more different lands
unc0rr
parents: 393
diff changeset
    46
       (x:  750; y:  468; w:  352; h:  324),
359
59fbfc65fbda - New land templates
unc0rr
parents: 358
diff changeset
    47
       (x:  650; y: 1024; w:  500; h:    1),
59fbfc65fbda - New land templates
unc0rr
parents: 358
diff changeset
    48
       (x: 1250; y: 1100; w:    1; h:    1),
59fbfc65fbda - New land templates
unc0rr
parents: 358
diff changeset
    49
       (x: 1490; y: 1024; w:    1; h:    1),
59fbfc65fbda - New land templates
unc0rr
parents: 358
diff changeset
    50
       (x: 1452; y:  904; w:   74; h:   12),
59fbfc65fbda - New land templates
unc0rr
parents: 358
diff changeset
    51
       (x: 1248; y:  575; w:   68; h:  425),
59fbfc65fbda - New land templates
unc0rr
parents: 358
diff changeset
    52
       (x: 1426; y:  592; w:  140; h:  142),
59fbfc65fbda - New land templates
unc0rr
parents: 358
diff changeset
    53
       (x: 1310; y:  192; w:  150; h:  350),
403
282b00e559bd Better templates, giving more different lands
unc0rr
parents: 393
diff changeset
    54
       (x: 1588; y:  194; w:  148; h:  242),
359
59fbfc65fbda - New land templates
unc0rr
parents: 358
diff changeset
    55
       (x: 1618; y:  472; w:  276; h:  314),
59fbfc65fbda - New land templates
unc0rr
parents: 358
diff changeset
    56
       (x: 1710; y:  850; w:  130; h:   86),
365
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
    57
       (x: 1734; y: 1024; w:    1; h:    1),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
    58
       (x: NTPX; y:    0; w:    1; h:    1)
184
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    59
      );
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    60
      Template0FPoints: array[0..0] of TPoint =
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    61
      (
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    62
       (x: 1023; y:    0)
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    63
      );
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    64
365
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
    65
const Template1Points: array[0..15] of TSDL_Rect =
360
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    66
      (
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    67
       (x:  400; y: 1024; w:   25; h:    1),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    68
       (x:  284; y:  892; w:  254; h:   58),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    69
       (x:  492; y:  634; w:  100; h:  200),
403
282b00e559bd Better templates, giving more different lands
unc0rr
parents: 393
diff changeset
    70
       (x:  254; y:  246; w:  276; h:  380),
360
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    71
       (x:  620; y:  254; w:  125; h:  270),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    72
       (x:  680; y:  550; w:   96; h:  390),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    73
       (x:  826; y:  614; w:  110; h:  350),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    74
       (x:  800; y:  186; w:  150; h:  380),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    75
       (x: 1000; y:  186; w:  170; h:  375),
403
282b00e559bd Better templates, giving more different lands
unc0rr
parents: 393
diff changeset
    76
       (x: 1012; y:  590; w:  188; h:  298),
360
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    77
       (x: 1240; y:  668; w:  136; h:  172),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    78
       (x: 1270; y:  194; w:  120; h:  392),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    79
       (x: 1514; y:  194; w:  364; h:  362),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    80
       (x: 1450; y:  652; w:  315; h:  232),
365
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
    81
       (x: 1460; y: 1024; w:   25; h:    1),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
    82
       (x: NTPX; y:    0; w:    1; h:    1)
360
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    83
      );
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    84
      Template1FPoints: array[0..0] of TPoint =
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    85
      (
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    86
       (x: 1023; y:    0)
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    87
      );
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    88
365
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
    89
const Template2Points: array[0..21] of TSDL_Rect =
360
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    90
      (
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    91
       (x:  354; y: 1024; w:    1; h:    1),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    92
       (x:  232; y:  926; w:  226; h:   60),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    93
       (x:  120; y:  846; w:  298; h:   62),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    94
       (x:  280; y:  704; w:  210; h:  102),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    95
       (x:  208; y:  422; w:  192; h:  248),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    96
       (x:  292; y:  160; w:  206; h:  240),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    97
       (x:  526; y:  172; w:   92; h:  334),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    98
       (x:  462; y:  528; w:  226; h:  126),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    99
       (x:  556; y:  678; w:  268; h:  156),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   100
       (x:  722; y:  164; w:  138; h:  500),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   101
       (x:  890; y:  156; w:   94; h:  352),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   102
       (x:  898; y:  562; w:  170; h:  264),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   103
       (x: 1092; y:  384; w:   84; h:  446),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   104
       (x: 1206; y:  200; w:  158; h:  278),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   105
       (x: 1300; y:  490; w:  104; h:  336),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   106
       (x: 1416; y:  546; w:   90; h:  398),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   107
       (x: 1546; y:  192; w:  134; h:  532),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   108
       (x: 1702; y:  246; w:  156; h:  258),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   109
       (x: 1700; y:  548; w:  132; h:  340),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   110
       (x: 1534; y:  898; w:  252; h:   82),
365
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   111
       (x: 1604; y: 1024; w:    1; h:    1),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   112
       (x: NTPX; y:    0; w:    1; h:    1)
360
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   113
      );
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   114
      Template2FPoints: array[0..0] of TPoint =
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   115
      (
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   116
       (x: 1023; y:    0)
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   117
      );
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   118
365
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   119
const Template3Points: array[0..16] of TSDL_Rect =
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   120
      (
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   121
       (x:  348; y: 1024; w:    1; h:    1),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   122
       (x:  236; y:  852; w:  208; h:   72),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   123
       (x:  498; y:  710; w:  308; h:   60),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   124
       (x:  728; y:  852; w:  434; h:   40),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   125
       (x: 1174; y:  712; w:  332; h:   40),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   126
       (x: 1402; y:  838; w:  226; h:   36),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   127
       (x: 1530; y: 1024; w:    1; h:    1),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   128
       (x: NTPX; y:    0; w:    1; h:    1),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   129
       (x: 1660; y:  498; w:  111; h:  111),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   130
       (x: 1270; y:  476; w:   34; h:  102),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   131
       (x:  682; y:  414; w:  284; h:  132),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   132
       (x:  230; y:  328; w:  126; h:  168),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   133
       (x:  410; y:  174; w:  114; h:  100),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   134
       (x:  790; y:  172; w:  352; h:  120),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   135
       (x: 1274; y:  128; w:   60; h:  240),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   136
       (x: 1434; y:  222; w:  254; h:  116),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   137
       (x: NTPX; y:    0; w:    1; h:    1)
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   138
      );
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   139
      Template3FPoints: array[0..0] of TPoint =
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   140
      (
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   141
       (x: 1023; y:    0)
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   142
      );
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   143
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   144
const Template4Points: array[0..22] of TSDL_Rect =
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   145
      (
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   146
       (x:  418; y: 1024; w:    1; h:    1),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   147
       (x:  248; y:  900; w:  186; h:   62),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   148
       (x:  272; y:  692; w:  254; h:  138),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   149
       (x:  610; y:  768; w:   90; h:  166),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   150
       (x:  820; y:  616; w:  224; h:  258),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   151
       (x: 1242; y:  758; w:   96; h:  146),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   152
       (x: 1550; y:  698; w:  224; h:  134),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   153
       (x: 1530; y:  902; w:  210; h:   54),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   154
       (x: 1532; y: 1024; w:    1; h:    1),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   155
       (x: NTPX; y:    0; w:    1; h:    1),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   156
       (x:  202; y:  418; w:  110; h:   92),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   157
       (x:  252; y:  312; w:  160; h:   32),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   158
       (x:  150; y:  168; w:  134; h:   78),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   159
       (x:  702; y:  160; w:  132; h:   84),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   160
       (x:  702; y:  308; w:  230; h:   36),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   161
       (x:  720; y:  408; w:  166; h:   96),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   162
       (x: NTPX; y:    0; w:    1; h:    1),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   163
       (x: 1702; y:  434; w:  202; h:   42),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   164
       (x: 1252; y:  388; w:  134; h:   98),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   165
       (x: 1214; y:  152; w:  116; h:  154),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   166
       (x: 1428; y:  252; w:  150; h:   70),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   167
       (x: 1750; y:  152; w:   86; h:  220),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   168
       (x: NTPX; y:    0; w:    1; h:    1)
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   169
      );
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   170
      Template4FPoints: array[0..0] of TPoint =
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   171
      (
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   172
       (x: 1023; y:    0)
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   173
      );
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   174
386
21eeb5ac0486 - Better gears placing
unc0rr
parents: 365
diff changeset
   175
const Template5Points: array[0..15] of TSDL_Rect =
21eeb5ac0486 - Better gears placing
unc0rr
parents: 365
diff changeset
   176
      (
21eeb5ac0486 - Better gears placing
unc0rr
parents: 365
diff changeset
   177
       (x:  274; y: 1024; w:    1; h:    1),
21eeb5ac0486 - Better gears placing
unc0rr
parents: 365
diff changeset
   178
       (x:  190; y:  918; w:  168; h:   26),
403
282b00e559bd Better templates, giving more different lands
unc0rr
parents: 393
diff changeset
   179
       (x:  382; y:  576; w:  122; h:  314),
386
21eeb5ac0486 - Better gears placing
unc0rr
parents: 365
diff changeset
   180
       (x:  568; y:  744; w:   56; h:  180),
21eeb5ac0486 - Better gears placing
unc0rr
parents: 365
diff changeset
   181
       (x:  678; y:  856; w:   64; h:   56),
21eeb5ac0486 - Better gears placing
unc0rr
parents: 365
diff changeset
   182
       (x:  740; y:  650; w:  106; h:  220),
21eeb5ac0486 - Better gears placing
unc0rr
parents: 365
diff changeset
   183
       (x:  644; y:  496; w:  162; h:  140),
403
282b00e559bd Better templates, giving more different lands
unc0rr
parents: 393
diff changeset
   184
       (x:  496; y:  210; w:  886; h:  174),
386
21eeb5ac0486 - Better gears placing
unc0rr
parents: 365
diff changeset
   185
       (x:  934; y:  448; w:  296; h:  108),
21eeb5ac0486 - Better gears placing
unc0rr
parents: 365
diff changeset
   186
       (x:  950; y:  752; w:  152; h:  146),
21eeb5ac0486 - Better gears placing
unc0rr
parents: 365
diff changeset
   187
       (x: 1172; y:  774; w:   60; h:  152),
21eeb5ac0486 - Better gears placing
unc0rr
parents: 365
diff changeset
   188
       (x: 1284; y:  722; w:  150; h:  138),
403
282b00e559bd Better templates, giving more different lands
unc0rr
parents: 393
diff changeset
   189
       (x: 1494; y:  364; w:   56; h:  582),
282b00e559bd Better templates, giving more different lands
unc0rr
parents: 393
diff changeset
   190
       (x: 1620; y:  774; w:   94; h:  232),
386
21eeb5ac0486 - Better gears placing
unc0rr
parents: 365
diff changeset
   191
       (x: 1612; y: 1024; w:    1; h:    1),
21eeb5ac0486 - Better gears placing
unc0rr
parents: 365
diff changeset
   192
       (x: NTPX; y:    0; w:    1; h:    1)
21eeb5ac0486 - Better gears placing
unc0rr
parents: 365
diff changeset
   193
       );
21eeb5ac0486 - Better gears placing
unc0rr
parents: 365
diff changeset
   194
      Template5FPoints: array[0..0] of TPoint =
21eeb5ac0486 - Better gears placing
unc0rr
parents: 365
diff changeset
   195
      (
21eeb5ac0486 - Better gears placing
unc0rr
parents: 365
diff changeset
   196
       (x: 1023; y:    0)
21eeb5ac0486 - Better gears placing
unc0rr
parents: 365
diff changeset
   197
      );
21eeb5ac0486 - Better gears placing
unc0rr
parents: 365
diff changeset
   198
405
339d7735d829 One more land template
unc0rr
parents: 403
diff changeset
   199
const Template6Points: array[0..13] of TSDL_Rect =
339d7735d829 One more land template
unc0rr
parents: 403
diff changeset
   200
      (
339d7735d829 One more land template
unc0rr
parents: 403
diff changeset
   201
       (x:  368; y: 1022; w:    2; h:    2),
339d7735d829 One more land template
unc0rr
parents: 403
diff changeset
   202
       (x:  266; y:  840; w:  302; h:  110),
339d7735d829 One more land template
unc0rr
parents: 403
diff changeset
   203
       (x:  294; y:  512; w:  104; h:  290),
339d7735d829 One more land template
unc0rr
parents: 403
diff changeset
   204
       (x:  570; y:  580; w:  364; h:  122),
339d7735d829 One more land template
unc0rr
parents: 403
diff changeset
   205
       (x:  568; y:  440; w:  368; h:  100),
339d7735d829 One more land template
unc0rr
parents: 403
diff changeset
   206
       (x:  232; y:  260; w:  482; h:  130),
339d7735d829 One more land template
unc0rr
parents: 403
diff changeset
   207
       (x:  778; y:  242; w:   62; h:   64),
339d7735d829 One more land template
unc0rr
parents: 403
diff changeset
   208
       (x:  990; y:  154; w:   58; h:  246),
339d7735d829 One more land template
unc0rr
parents: 403
diff changeset
   209
       (x: 1200; y:  276; w:  590; h:   98),
339d7735d829 One more land template
unc0rr
parents: 403
diff changeset
   210
       (x: 1088; y:  442; w:  214; h:  188),
339d7735d829 One more land template
unc0rr
parents: 403
diff changeset
   211
       (x: 1050; y:  686; w:  406; h:   92),
339d7735d829 One more land template
unc0rr
parents: 403
diff changeset
   212
       (x: 1584; y:  502; w:  190; h:  412),
339d7735d829 One more land template
unc0rr
parents: 403
diff changeset
   213
       (x: 1646; y: 1020; w:    2; h:    2),
339d7735d829 One more land template
unc0rr
parents: 403
diff changeset
   214
       (x: NTPX; y:    0; w:    1; h:    1)
339d7735d829 One more land template
unc0rr
parents: 403
diff changeset
   215
       );
339d7735d829 One more land template
unc0rr
parents: 403
diff changeset
   216
      Template6FPoints: array[0..0] of TPoint =
339d7735d829 One more land template
unc0rr
parents: 403
diff changeset
   217
      (
339d7735d829 One more land template
unc0rr
parents: 403
diff changeset
   218
       (x: 1023; y:    0)
339d7735d829 One more land template
unc0rr
parents: 403
diff changeset
   219
      );
339d7735d829 One more land template
unc0rr
parents: 403
diff changeset
   220
429
7f69c7ac2e97 One more land template + some templates tuning
unc0rr
parents: 405
diff changeset
   221
const Template7Points: array[0..5] of TSDL_Rect =
7f69c7ac2e97 One more land template + some templates tuning
unc0rr
parents: 405
diff changeset
   222
      (
7f69c7ac2e97 One more land template + some templates tuning
unc0rr
parents: 405
diff changeset
   223
       (x:  162; y: 1024; w:  400; h:    1),
7f69c7ac2e97 One more land template + some templates tuning
unc0rr
parents: 405
diff changeset
   224
       (x:  226; y:  234; w:  142; h:  360),
7f69c7ac2e97 One more land template + some templates tuning
unc0rr
parents: 405
diff changeset
   225
       (x:  936; y:  740; w:  400; h:  200),
7f69c7ac2e97 One more land template + some templates tuning
unc0rr
parents: 405
diff changeset
   226
       (x: 1576; y:  176; w:  186; h:  550),
7f69c7ac2e97 One more land template + some templates tuning
unc0rr
parents: 405
diff changeset
   227
       (x: 1430; y: 1024; w:  454; h:    1),
7f69c7ac2e97 One more land template + some templates tuning
unc0rr
parents: 405
diff changeset
   228
       (x: NTPX; y:    0; w:    1; h:    1)
7f69c7ac2e97 One more land template + some templates tuning
unc0rr
parents: 405
diff changeset
   229
      );
7f69c7ac2e97 One more land template + some templates tuning
unc0rr
parents: 405
diff changeset
   230
      Template7FPoints: array[0..0] of TPoint =
7f69c7ac2e97 One more land template + some templates tuning
unc0rr
parents: 405
diff changeset
   231
      (
7f69c7ac2e97 One more land template + some templates tuning
unc0rr
parents: 405
diff changeset
   232
       (x: 1023; y:    0)
7f69c7ac2e97 One more land template + some templates tuning
unc0rr
parents: 405
diff changeset
   233
      );
7f69c7ac2e97 One more land template + some templates tuning
unc0rr
parents: 405
diff changeset
   234
431
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   235
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   236
const Template8Points: array[0..19] of TSDL_Rect =
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   237
      (
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   238
       (x:  364; y: 1024; w:   20; h:    1),
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   239
       (x:  290; y:  860; w:   64; h:   62),
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   240
       (x:  486; y:  750; w:   52; h:  146),
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   241
       (x:  256; y:  590; w:  116; h:  144),
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   242
       (x:  470; y:  468; w:  138; h:  168),
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   243
       (x:  242; y:  242; w:  158; h:  162),
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   244
       (x:  508; y:  310; w:  198; h:   72),
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   245
       (x:  770; y:  228; w:  118; h:  134),
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   246
       (x:  636; y:  718; w:  142; h:  132),
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   247
       (x:  968; y:  700; w:  172; h:   58),
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   248
       (x:  970; y:  804; w:  172; h:   62),
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   249
       (x: 1232; y:  704; w:   82; h:  226),
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   250
       (x: 1356; y:  594; w:   64; h:  152),
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   251
       (x: 1214; y:  334; w:  106; h:  152),
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   252
       (x: 1410; y:  260; w:  380; h:   82),
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   253
       (x: 1528; y:  422; w:   30; h:  118),
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   254
       (x: 1540; y:  588; w:  212; h:   50),
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   255
       (x: 1464; y:  746; w:  128; h:  146),
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   256
       (x: 1630; y: 1024; w:   20; h:    1),
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   257
       (x: NTPX; y:    0; w:    1; h:    1)
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   258
      );
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   259
      Template8FPoints: array[0..0] of TPoint =
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   260
      (
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   261
       (x: 1023; y:    0)
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   262
      );
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   263
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   264
const Template9Points: array[0..31] of TSDL_Rect =
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   265
      (
524
c3b3d9ff7bb2 One more land template
unc0rr
parents: 431
diff changeset
   266
       (x:  340; y: 1024; w:    1; h:    1),
431
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   267
       (x:  276; y:  902; w:   44; h:   54),
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   268
       (x:  434; y:  836; w:   58; h:   90),
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   269
       (x:  266; y:  734; w:   80; h:   80),
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   270
       (x:  246; y:  604; w:   96; h:  108),
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   271
       (x:  426; y:  646; w:  110; h:  112),
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   272
       (x:  234; y:  292; w:  118; h:  164),
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   273
       (x:  428; y:  396; w:  130; h:  110),
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   274
       (x:  516; y:  198; w:  344; h:   78),
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   275
       (x:  688; y:  426; w:   50; h:   40),
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   276
       (x:  626; y:  560; w:   32; h:  148),
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   277
       (x:  698; y:  650; w:  160; h:   34),
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   278
       (x:  674; y:  788; w:   36; h:  136),
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   279
       (x: 1014; y:  848; w:   48; h:   48),
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   280
       (x: 1086; y:  728; w:   64; h:   88),
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   281
       (x:  958; y:  660; w:   70; h:   74),
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   282
       (x: 1116; y:  596; w:   68; h:   70),
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   283
       (x: 1118; y:  484; w:   68; h:   82),
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   284
       (x:  958; y:  324; w:   44; h:  140),
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   285
       (x: 1272; y:  306; w:   52; h:   66),
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   286
       (x: 1254; y:  502; w:   58; h:   66),
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   287
       (x: 1234; y:  760; w:   76; h:  112),
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   288
       (x: 1380; y:  762; w:  124; h:   64),
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   289
       (x: 1472; y:  472; w:   54; h:  134),
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   290
       (x: 1410; y:  196; w:  246; h:   62),
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   291
       (x: 1706; y:  154; w:   38; h:  238),
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   292
       (x: 1812; y:  348; w:   28; h:   28),
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   293
       (x: 1692; y:  524; w:  144; h:   94),
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   294
       (x: 1632; y:  678; w:  248; h:   20),
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   295
       (x: 1632; y:  802; w:  238; h:   16),
524
c3b3d9ff7bb2 One more land template
unc0rr
parents: 431
diff changeset
   296
       (x: 1680; y: 1024; w:    1; h:    1),
431
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   297
       (x: NTPX; y:    0; w:    1; h:    1)
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   298
      );
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   299
      Template9FPoints: array[0..0] of TPoint =
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   300
      (
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   301
       (x: 1023; y:    0)
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   302
      );
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   303
524
c3b3d9ff7bb2 One more land template
unc0rr
parents: 431
diff changeset
   304
const Template10Points: array[0..13] of TSDL_Rect =
c3b3d9ff7bb2 One more land template
unc0rr
parents: 431
diff changeset
   305
      (
c3b3d9ff7bb2 One more land template
unc0rr
parents: 431
diff changeset
   306
       (x:  188; y: 1024; w:  190; h:    1),
c3b3d9ff7bb2 One more land template
unc0rr
parents: 431
diff changeset
   307
       (x:  240; y:  682; w:  140; h:  150),
c3b3d9ff7bb2 One more land template
unc0rr
parents: 431
diff changeset
   308
       (x:  314; y:  468; w:  352; h:   94),
c3b3d9ff7bb2 One more land template
unc0rr
parents: 431
diff changeset
   309
       (x:  726; y:  246; w:  106; h:  282),
c3b3d9ff7bb2 One more land template
unc0rr
parents: 431
diff changeset
   310
       (x:  902; y:  390; w:  368; h:  142),
c3b3d9ff7bb2 One more land template
unc0rr
parents: 431
diff changeset
   311
       (x:  958; y:  588; w:  116; h:  244),
c3b3d9ff7bb2 One more land template
unc0rr
parents: 431
diff changeset
   312
       (x:  876; y: 1024; w:   14; h:    1),
c3b3d9ff7bb2 One more land template
unc0rr
parents: 431
diff changeset
   313
       (x: NTPX; y:    0; w:    1; h:    1),
c3b3d9ff7bb2 One more land template
unc0rr
parents: 431
diff changeset
   314
       (x: 1064; y: 1024; w:   22; h:    1),
c3b3d9ff7bb2 One more land template
unc0rr
parents: 431
diff changeset
   315
       (x: 1288; y:  795; w:  120; h:  120),
c3b3d9ff7bb2 One more land template
unc0rr
parents: 431
diff changeset
   316
       (x: 1458; y:  274; w:  354; h:  448),
c3b3d9ff7bb2 One more land template
unc0rr
parents: 431
diff changeset
   317
       (x: 1688; y:  795; w:  120; h:  120),
c3b3d9ff7bb2 One more land template
unc0rr
parents: 431
diff changeset
   318
       (x: 1782; y: 1024; w:    2; h:    1),
c3b3d9ff7bb2 One more land template
unc0rr
parents: 431
diff changeset
   319
       (x: NTPX; y:    0; w:    1; h:    1)
c3b3d9ff7bb2 One more land template
unc0rr
parents: 431
diff changeset
   320
      );
c3b3d9ff7bb2 One more land template
unc0rr
parents: 431
diff changeset
   321
      Template10FPoints: array[0..0] of TPoint =
c3b3d9ff7bb2 One more land template
unc0rr
parents: 431
diff changeset
   322
      (
c3b3d9ff7bb2 One more land template
unc0rr
parents: 431
diff changeset
   323
       (x: 1023; y:    0)
c3b3d9ff7bb2 One more land template
unc0rr
parents: 431
diff changeset
   324
      );
431
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   325
527
e23490ce1f06 - One more land template
unc0rr
parents: 524
diff changeset
   326
const Template11Points: array[0..9] of TSDL_Rect =
e23490ce1f06 - One more land template
unc0rr
parents: 524
diff changeset
   327
      (
e23490ce1f06 - One more land template
unc0rr
parents: 524
diff changeset
   328
       (x:  274; y: 1024; w:  166; h:    1),
e23490ce1f06 - One more land template
unc0rr
parents: 524
diff changeset
   329
       (x:  330; y:  862; w:   96; h:   92),
e23490ce1f06 - One more land template
unc0rr
parents: 524
diff changeset
   330
       (x:  492; y:  690; w:  152; h:  250),
e23490ce1f06 - One more land template
unc0rr
parents: 524
diff changeset
   331
       (x:  746; y:  646; w:   36; h:  270),
e23490ce1f06 - One more land template
unc0rr
parents: 524
diff changeset
   332
       (x:  938; y:  626; w:   54; h:  224),
e23490ce1f06 - One more land template
unc0rr
parents: 524
diff changeset
   333
       (x: 1134; y:  646; w:   44; h:  216),
e23490ce1f06 - One more land template
unc0rr
parents: 524
diff changeset
   334
       (x: 1292; y:  630; w:   46; h:  300),
e23490ce1f06 - One more land template
unc0rr
parents: 524
diff changeset
   335
       (x: 1448; y:  664; w:  158; h:  272),
e23490ce1f06 - One more land template
unc0rr
parents: 524
diff changeset
   336
       (x: 1584; y: 1024; w:  136; h:    1),
e23490ce1f06 - One more land template
unc0rr
parents: 524
diff changeset
   337
       (x: NTPX; y:    0; w:    1; h:    1)
e23490ce1f06 - One more land template
unc0rr
parents: 524
diff changeset
   338
      );
e23490ce1f06 - One more land template
unc0rr
parents: 524
diff changeset
   339
      Template11FPoints: array[0..0] of TPoint =
e23490ce1f06 - One more land template
unc0rr
parents: 524
diff changeset
   340
      (
e23490ce1f06 - One more land template
unc0rr
parents: 524
diff changeset
   341
       (x: 1023; y:    0)
e23490ce1f06 - One more land template
unc0rr
parents: 524
diff changeset
   342
      );
e23490ce1f06 - One more land template
unc0rr
parents: 524
diff changeset
   343
710
760e34b8b4e4 One more land template (pretty good IMO)
unc0rr
parents: 561
diff changeset
   344
const Template12Points: array[0..13] of TSDL_Rect =
760e34b8b4e4 One more land template (pretty good IMO)
unc0rr
parents: 561
diff changeset
   345
      (
760e34b8b4e4 One more land template (pretty good IMO)
unc0rr
parents: 561
diff changeset
   346
       (x:  360; y: 1024; w:    2; h:    2),
760e34b8b4e4 One more land template (pretty good IMO)
unc0rr
parents: 561
diff changeset
   347
       (x:  242; y:  630; w:   46; h:  286),
760e34b8b4e4 One more land template (pretty good IMO)
unc0rr
parents: 561
diff changeset
   348
       (x:  454; y:  672; w:  194; h:   56),
760e34b8b4e4 One more land template (pretty good IMO)
unc0rr
parents: 561
diff changeset
   349
       (x:  254; y:  334; w:  534; h:  200),
760e34b8b4e4 One more land template (pretty good IMO)
unc0rr
parents: 561
diff changeset
   350
       (x:  870; y:  276; w:   58; h:  468),
760e34b8b4e4 One more land template (pretty good IMO)
unc0rr
parents: 561
diff changeset
   351
       (x: 1076; y:  272; w:  198; h:  112),
760e34b8b4e4 One more land template (pretty good IMO)
unc0rr
parents: 561
diff changeset
   352
       (x: 1000; y: 1024; w:   64; h:    2),
760e34b8b4e4 One more land template (pretty good IMO)
unc0rr
parents: 561
diff changeset
   353
       (x: NTPX; y:    0; w:    1; h:    1),
760e34b8b4e4 One more land template (pretty good IMO)
unc0rr
parents: 561
diff changeset
   354
       (x: 1244; y: 1024; w:   64; h:    2),
760e34b8b4e4 One more land template (pretty good IMO)
unc0rr
parents: 561
diff changeset
   355
       (x: 1356; y:  494; w:  184; h:   94),
760e34b8b4e4 One more land template (pretty good IMO)
unc0rr
parents: 561
diff changeset
   356
       (x: 1600; y:  414; w:   76; h:  358),
760e34b8b4e4 One more land template (pretty good IMO)
unc0rr
parents: 561
diff changeset
   357
       (x: 1748; y:  584; w:  108; h:  304),
760e34b8b4e4 One more land template (pretty good IMO)
unc0rr
parents: 561
diff changeset
   358
       (x: 1688; y: 1024; w:  176; h:    1),
760e34b8b4e4 One more land template (pretty good IMO)
unc0rr
parents: 561
diff changeset
   359
       (x: NTPX; y:    0; w:    1; h:    1)
760e34b8b4e4 One more land template (pretty good IMO)
unc0rr
parents: 561
diff changeset
   360
      );
760e34b8b4e4 One more land template (pretty good IMO)
unc0rr
parents: 561
diff changeset
   361
      Template12FPoints: array[0..0] of TPoint =
760e34b8b4e4 One more land template (pretty good IMO)
unc0rr
parents: 561
diff changeset
   362
      (
760e34b8b4e4 One more land template (pretty good IMO)
unc0rr
parents: 561
diff changeset
   363
       (x: 1023; y:    0)
760e34b8b4e4 One more land template (pretty good IMO)
unc0rr
parents: 561
diff changeset
   364
      );
760e34b8b4e4 One more land template (pretty good IMO)
unc0rr
parents: 561
diff changeset
   365
711
8ff62133ac48 One more crazy land template
unc0rr
parents: 710
diff changeset
   366
const Template13Points: array[0..15] of TSDL_Rect =
8ff62133ac48 One more crazy land template
unc0rr
parents: 710
diff changeset
   367
      (
8ff62133ac48 One more crazy land template
unc0rr
parents: 710
diff changeset
   368
       (x:  446; y: 1024; w:  140; h:    2),
8ff62133ac48 One more crazy land template
unc0rr
parents: 710
diff changeset
   369
       (x:  280; y:  872; w:  196; h:   32),
8ff62133ac48 One more crazy land template
unc0rr
parents: 710
diff changeset
   370
       (x:  254; y:  680; w:  262; h:  134),
8ff62133ac48 One more crazy land template
unc0rr
parents: 710
diff changeset
   371
       (x:  654; y:  672; w:  220; h:  136),
8ff62133ac48 One more crazy land template
unc0rr
parents: 710
diff changeset
   372
       (x:  608; y:  490; w:  268; h:  110),
8ff62133ac48 One more crazy land template
unc0rr
parents: 710
diff changeset
   373
       (x:  300; y:  362; w:  104; h:  200),
8ff62133ac48 One more crazy land template
unc0rr
parents: 710
diff changeset
   374
       (x:  446; y:  224; w:  306; h:   58),
8ff62133ac48 One more crazy land template
unc0rr
parents: 710
diff changeset
   375
       (x:  916; y:  188; w:   84; h:  206),
8ff62133ac48 One more crazy land template
unc0rr
parents: 710
diff changeset
   376
       (x: 1148; y:  174; w:  104; h:  220),
8ff62133ac48 One more crazy land template
unc0rr
parents: 710
diff changeset
   377
       (x: 1426; y:  176; w:  120; h:  202),
8ff62133ac48 One more crazy land template
unc0rr
parents: 710
diff changeset
   378
       (x: 1556; y:  418; w:  192; h:   68),
8ff62133ac48 One more crazy land template
unc0rr
parents: 710
diff changeset
   379
       (x: 1226; y:  548; w:  246; h:   88),
8ff62133ac48 One more crazy land template
unc0rr
parents: 710
diff changeset
   380
       (x: 1256; y:  706; w:  194; h:  150),
8ff62133ac48 One more crazy land template
unc0rr
parents: 710
diff changeset
   381
       (x: 1568; y:  706; w:  198; h:  152),
8ff62133ac48 One more crazy land template
unc0rr
parents: 710
diff changeset
   382
       (x: 1444; y: 1024; w:    2; h:    2),
8ff62133ac48 One more crazy land template
unc0rr
parents: 710
diff changeset
   383
       (x: NTPX; y:    0; w:    1; h:    1)
8ff62133ac48 One more crazy land template
unc0rr
parents: 710
diff changeset
   384
      );
8ff62133ac48 One more crazy land template
unc0rr
parents: 710
diff changeset
   385
      Template13FPoints: array[0..0] of TPoint =
8ff62133ac48 One more crazy land template
unc0rr
parents: 710
diff changeset
   386
      (
8ff62133ac48 One more crazy land template
unc0rr
parents: 710
diff changeset
   387
       (x: 1023; y:    0)
8ff62133ac48 One more crazy land template
unc0rr
parents: 710
diff changeset
   388
      );
8ff62133ac48 One more crazy land template
unc0rr
parents: 710
diff changeset
   389
712
e87cafcf0e2d +1 land template
unc0rr
parents: 711
diff changeset
   390
const Template14Points: array[0..13] of TSDL_Rect =
e87cafcf0e2d +1 land template
unc0rr
parents: 711
diff changeset
   391
      (
e87cafcf0e2d +1 land template
unc0rr
parents: 711
diff changeset
   392
       (x:  286; y: 1024; w:    2; h:    2),
e87cafcf0e2d +1 land template
unc0rr
parents: 711
diff changeset
   393
       (x:  244; y:  886; w:   84; h:   54),
e87cafcf0e2d +1 land template
unc0rr
parents: 711
diff changeset
   394
       (x:  212; y:  686; w:  150; h:  166),
e87cafcf0e2d +1 land template
unc0rr
parents: 711
diff changeset
   395
       (x:  678; y:  840; w:  186; h:   98),
e87cafcf0e2d +1 land template
unc0rr
parents: 711
diff changeset
   396
       (x:  744; y:  604; w:  124; h:   58),
e87cafcf0e2d +1 land template
unc0rr
parents: 711
diff changeset
   397
       (x:  620; y:  182; w:  112; h:  194),
e87cafcf0e2d +1 land template
unc0rr
parents: 711
diff changeset
   398
       (x:  988; y:  260; w:   92; h:  132),
e87cafcf0e2d +1 land template
unc0rr
parents: 711
diff changeset
   399
       (x: 1310; y:  174; w:  154; h:  196),
e87cafcf0e2d +1 land template
unc0rr
parents: 711
diff changeset
   400
       (x: 1160; y:  574; w:  118; h:   64),
e87cafcf0e2d +1 land template
unc0rr
parents: 711
diff changeset
   401
       (x: 1052; y:  822; w:  328; h:   92),
e87cafcf0e2d +1 land template
unc0rr
parents: 711
diff changeset
   402
       (x: 1596; y:  630; w:  242; h:  222),
e87cafcf0e2d +1 land template
unc0rr
parents: 711
diff changeset
   403
       (x: 1598; y:  916; w:  254; h:   50),
e87cafcf0e2d +1 land template
unc0rr
parents: 711
diff changeset
   404
       (x: 1608; y: 1024; w:    2; h:    2),
e87cafcf0e2d +1 land template
unc0rr
parents: 711
diff changeset
   405
       (x: NTPX; y:    0; w:    1; h:    1)
e87cafcf0e2d +1 land template
unc0rr
parents: 711
diff changeset
   406
      );
e87cafcf0e2d +1 land template
unc0rr
parents: 711
diff changeset
   407
      Template14FPoints: array[0..0] of TPoint =
e87cafcf0e2d +1 land template
unc0rr
parents: 711
diff changeset
   408
      (
e87cafcf0e2d +1 land template
unc0rr
parents: 711
diff changeset
   409
       (x: 1023; y:    0)
e87cafcf0e2d +1 land template
unc0rr
parents: 711
diff changeset
   410
      );
711
8ff62133ac48 One more crazy land template
unc0rr
parents: 710
diff changeset
   411
713
8d038c5e95be LandTemplates++
unc0rr
parents: 712
diff changeset
   412
const Template15Points: array[0..23] of TSDL_Rect =
8d038c5e95be LandTemplates++
unc0rr
parents: 712
diff changeset
   413
      (
8d038c5e95be LandTemplates++
unc0rr
parents: 712
diff changeset
   414
       (x:  302; y: 1024; w:    2; h:    2),
8d038c5e95be LandTemplates++
unc0rr
parents: 712
diff changeset
   415
       (x:  240; y:  890; w:   44; h:   94),
8d038c5e95be LandTemplates++
unc0rr
parents: 712
diff changeset
   416
       (x:  350; y:  862; w:   44; h:   94),
8d038c5e95be LandTemplates++
unc0rr
parents: 712
diff changeset
   417
       (x:  460; y:  906; w:   78; h:   70),
8d038c5e95be LandTemplates++
unc0rr
parents: 712
diff changeset
   418
       (x:  466; y: 1024; w:    2; h:    2),
8d038c5e95be LandTemplates++
unc0rr
parents: 712
diff changeset
   419
       (x: NTPX; y:    0; w:    1; h:    1),
8d038c5e95be LandTemplates++
unc0rr
parents: 712
diff changeset
   420
       (x:  804; y: 1024; w:    2; h:    2),
8d038c5e95be LandTemplates++
unc0rr
parents: 712
diff changeset
   421
       (x:  720; y:  782; w:  108; h:  174),
8d038c5e95be LandTemplates++
unc0rr
parents: 712
diff changeset
   422
       (x:  484; y:  624; w:  314; h:   98),
8d038c5e95be LandTemplates++
unc0rr
parents: 712
diff changeset
   423
       (x:  310; y:  482; w:   76; h:  230),
8d038c5e95be LandTemplates++
unc0rr
parents: 712
diff changeset
   424
       (x:  434; y:  286; w:  220; h:  154),
8d038c5e95be LandTemplates++
unc0rr
parents: 712
diff changeset
   425
       (x:  840; y:  274; w:   56; h:  266),
8d038c5e95be LandTemplates++
unc0rr
parents: 712
diff changeset
   426
       (x: 1024; y:  244; w:   78; h:  304),
8d038c5e95be LandTemplates++
unc0rr
parents: 712
diff changeset
   427
       (x: 1248; y:  246; w:  116; h:  162),
8d038c5e95be LandTemplates++
unc0rr
parents: 712
diff changeset
   428
       (x: 1580; y:  326; w:  190; h:  228),
8d038c5e95be LandTemplates++
unc0rr
parents: 712
diff changeset
   429
       (x: 1360; y:  604; w:  140; h:   84),
8d038c5e95be LandTemplates++
unc0rr
parents: 712
diff changeset
   430
       (x: 1196; y:  740; w:  242; h:  118),
8d038c5e95be LandTemplates++
unc0rr
parents: 712
diff changeset
   431
       (x: 1216; y: 1024; w:    2; h:    2),
8d038c5e95be LandTemplates++
unc0rr
parents: 712
diff changeset
   432
       (x: NTPX; y:    0; w:    1; h:    1),
8d038c5e95be LandTemplates++
unc0rr
parents: 712
diff changeset
   433
       (x: 1494; y: 1024; w:    2; h:    2),
8d038c5e95be LandTemplates++
unc0rr
parents: 712
diff changeset
   434
       (x: 1450; y:  928; w:   88; h:   34),
8d038c5e95be LandTemplates++
unc0rr
parents: 712
diff changeset
   435
       (x: 1598; y:  838; w:   96; h:  112),
8d038c5e95be LandTemplates++
unc0rr
parents: 712
diff changeset
   436
       (x: 1656; y: 1024; w:    2; h:    2),
8d038c5e95be LandTemplates++
unc0rr
parents: 712
diff changeset
   437
       (x: NTPX; y:    0; w:    1; h:    1)
8d038c5e95be LandTemplates++
unc0rr
parents: 712
diff changeset
   438
      );
8d038c5e95be LandTemplates++
unc0rr
parents: 712
diff changeset
   439
      Template15FPoints: array[0..0] of TPoint =
8d038c5e95be LandTemplates++
unc0rr
parents: 712
diff changeset
   440
      (
8d038c5e95be LandTemplates++
unc0rr
parents: 712
diff changeset
   441
       (x: 1023; y:    0)
8d038c5e95be LandTemplates++
unc0rr
parents: 712
diff changeset
   442
      );
712
e87cafcf0e2d +1 land template
unc0rr
parents: 711
diff changeset
   443
714
341090f7e750 And... one more
unc0rr
parents: 713
diff changeset
   444
const Template16Points: array[0..28] of TSDL_Rect =
341090f7e750 And... one more
unc0rr
parents: 713
diff changeset
   445
      (
341090f7e750 And... one more
unc0rr
parents: 713
diff changeset
   446
       (x:  300; y: 1024; w:    2; h:    2),
341090f7e750 And... one more
unc0rr
parents: 713
diff changeset
   447
       (x:  394; y:  902; w:   58; h:   62),
341090f7e750 And... one more
unc0rr
parents: 713
diff changeset
   448
       (x:  380; y:  770; w:   94; h:   90),
341090f7e750 And... one more
unc0rr
parents: 713
diff changeset
   449
       (x:  186; y:  626; w:   80; h:  220),
341090f7e750 And... one more
unc0rr
parents: 713
diff changeset
   450
       (x:  376; y:  600; w:   82; h:  118),
341090f7e750 And... one more
unc0rr
parents: 713
diff changeset
   451
       (x:  182; y:  328; w:  134; h:  226),
341090f7e750 And... one more
unc0rr
parents: 713
diff changeset
   452
       (x:  368; y:  328; w:   52; h:   52),
341090f7e750 And... one more
unc0rr
parents: 713
diff changeset
   453
       (x:  472; y:  174; w:   56; h:  212),
341090f7e750 And... one more
unc0rr
parents: 713
diff changeset
   454
       (x:  588; y:  322; w:   60; h:   62),
341090f7e750 And... one more
unc0rr
parents: 713
diff changeset
   455
       (x:  718; y:  324; w:  108; h:  218),
341090f7e750 And... one more
unc0rr
parents: 713
diff changeset
   456
       (x:  612; y:  516; w:   36; h:  168),
341090f7e750 And... one more
unc0rr
parents: 713
diff changeset
   457
       (x:  728; y:  656; w:  140; h:  134),
341090f7e750 And... one more
unc0rr
parents: 713
diff changeset
   458
       (x:  588; y:  850; w:   74; h:   82),
341090f7e750 And... one more
unc0rr
parents: 713
diff changeset
   459
       (x:  750; y: 1024; w:  102; h:    2),
341090f7e750 And... one more
unc0rr
parents: 713
diff changeset
   460
       (x: NTPX; y:    0; w:    1; h:    1),
341090f7e750 And... one more
unc0rr
parents: 713
diff changeset
   461
       (x: 1304; y: 1024; w:   72; h:    2),
341090f7e750 And... one more
unc0rr
parents: 713
diff changeset
   462
       (x: 1226; y:  908; w:  266; h:   34),
341090f7e750 And... one more
unc0rr
parents: 713
diff changeset
   463
       (x: 1224; y:  748; w:  252; h:   80),
341090f7e750 And... one more
unc0rr
parents: 713
diff changeset
   464
       (x: 1212; y:  576; w:  256; h:   94),
341090f7e750 And... one more
unc0rr
parents: 713
diff changeset
   465
       (x: 1140; y:  434; w:  174; h:   86),
341090f7e750 And... one more
unc0rr
parents: 713
diff changeset
   466
       (x: 1396; y:  318; w:  156; h:   96),
341090f7e750 And... one more
unc0rr
parents: 713
diff changeset
   467
       (x: 1086; y:  214; w:  206; h:   66),
341090f7e750 And... one more
unc0rr
parents: 713
diff changeset
   468
       (x: 1446; y:  156; w:  152; h:   40),
341090f7e750 And... one more
unc0rr
parents: 713
diff changeset
   469
       (x: 1708; y:  272; w:   60; h:  162),
341090f7e750 And... one more
unc0rr
parents: 713
diff changeset
   470
       (x: 1542; y:  488; w:  146; h:   80),
341090f7e750 And... one more
unc0rr
parents: 713
diff changeset
   471
       (x: 1686; y:  634; w:  178; h:  122),
341090f7e750 And... one more
unc0rr
parents: 713
diff changeset
   472
       (x: 1572; y:  820; w:   34; h:  124),
341090f7e750 And... one more
unc0rr
parents: 713
diff changeset
   473
       (x: 1698; y: 1024; w:   52; h:    2),
341090f7e750 And... one more
unc0rr
parents: 713
diff changeset
   474
       (x: NTPX; y:    0; w:    1; h:    1)
341090f7e750 And... one more
unc0rr
parents: 713
diff changeset
   475
      );
341090f7e750 And... one more
unc0rr
parents: 713
diff changeset
   476
      Template16FPoints: array[0..0] of TPoint =
341090f7e750 And... one more
unc0rr
parents: 713
diff changeset
   477
      (
341090f7e750 And... one more
unc0rr
parents: 713
diff changeset
   478
       (x: 1023; y:    0)
341090f7e750 And... one more
unc0rr
parents: 713
diff changeset
   479
      );
713
8d038c5e95be LandTemplates++
unc0rr
parents: 712
diff changeset
   480
715
d8d7bfa88db2 Last template for now
unc0rr
parents: 714
diff changeset
   481
const Template17Points: array[0..13] of TSDL_Rect =
d8d7bfa88db2 Last template for now
unc0rr
parents: 714
diff changeset
   482
      (
d8d7bfa88db2 Last template for now
unc0rr
parents: 714
diff changeset
   483
       (x:  230; y: 1024; w:    2; h:    2),
d8d7bfa88db2 Last template for now
unc0rr
parents: 714
diff changeset
   484
       (x:  166; y:  856; w:  128; h:  118),
d8d7bfa88db2 Last template for now
unc0rr
parents: 714
diff changeset
   485
       (x:  352; y:  856; w:   98; h:  114),
d8d7bfa88db2 Last template for now
unc0rr
parents: 714
diff changeset
   486
       (x:  348; y:  674; w:  140; h:  138),
d8d7bfa88db2 Last template for now
unc0rr
parents: 714
diff changeset
   487
       (x:  556; y:  672; w:  136; h:  142),
d8d7bfa88db2 Last template for now
unc0rr
parents: 714
diff changeset
   488
       (x:  746; y:  670; w:  114; h:  252),
d8d7bfa88db2 Last template for now
unc0rr
parents: 714
diff changeset
   489
       (x:  924; y:  378; w:  120; h:  390),
d8d7bfa88db2 Last template for now
unc0rr
parents: 714
diff changeset
   490
       (x: 1122; y:  462; w:  114; h:  210),
d8d7bfa88db2 Last template for now
unc0rr
parents: 714
diff changeset
   491
       (x: 1324; y:  306; w:  130; h:  252),
d8d7bfa88db2 Last template for now
unc0rr
parents: 714
diff changeset
   492
       (x: 1536; y:  206; w:  278; h:  234),
d8d7bfa88db2 Last template for now
unc0rr
parents: 714
diff changeset
   493
       (x: 1524; y:  644; w:  272; h:   52),
d8d7bfa88db2 Last template for now
unc0rr
parents: 714
diff changeset
   494
       (x: 1572; y:  852; w:  180; h:   56),
d8d7bfa88db2 Last template for now
unc0rr
parents: 714
diff changeset
   495
       (x: 1598; y: 1024; w:   42; h:    2),
d8d7bfa88db2 Last template for now
unc0rr
parents: 714
diff changeset
   496
       (x: NTPX; y:    0; w:    1; h:    1)
d8d7bfa88db2 Last template for now
unc0rr
parents: 714
diff changeset
   497
      );
d8d7bfa88db2 Last template for now
unc0rr
parents: 714
diff changeset
   498
      Template17FPoints: array[0..0] of TPoint =
d8d7bfa88db2 Last template for now
unc0rr
parents: 714
diff changeset
   499
      (
d8d7bfa88db2 Last template for now
unc0rr
parents: 714
diff changeset
   500
       (x: 1023; y:    0)
d8d7bfa88db2 Last template for now
unc0rr
parents: 714
diff changeset
   501
      );
714
341090f7e750 And... one more
unc0rr
parents: 713
diff changeset
   502
715
d8d7bfa88db2 Last template for now
unc0rr
parents: 714
diff changeset
   503
d8d7bfa88db2 Last template for now
unc0rr
parents: 714
diff changeset
   504
const EdgeTemplates: array[0..17] of TEdgeTemplate =
184
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
   505
      (
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
   506
       (BasePoints: @Template0Points;
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
   507
        BasePointsCount: Succ(High(Template0Points));
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
   508
        FillPoints: @Template0FPoints;
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
   509
        FillPointsCount: Succ(High(Template0FPoints));
431
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   510
        BezierizeCount: 3;
561
19d2d422ff84 Improve land generator
unc0rr
parents: 534
diff changeset
   511
        RandPassesCount: 8;
360
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   512
        canMirror: true; canFlip: false;
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   513
       ),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   514
       (BasePoints: @Template1Points;
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   515
        BasePointsCount: Succ(High(Template1Points));
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   516
        FillPoints: @Template1FPoints;
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   517
        FillPointsCount: Succ(High(Template1FPoints));
431
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   518
        BezierizeCount: 3;
561
19d2d422ff84 Improve land generator
unc0rr
parents: 534
diff changeset
   519
        RandPassesCount: 7;
429
7f69c7ac2e97 One more land template + some templates tuning
unc0rr
parents: 405
diff changeset
   520
        canMirror: true; canFlip: false;
360
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   521
       ),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   522
       (BasePoints: @Template2Points;
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   523
        BasePointsCount: Succ(High(Template2Points));
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   524
        FillPoints: @Template2FPoints;
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   525
        FillPointsCount: Succ(High(Template2FPoints));
429
7f69c7ac2e97 One more land template + some templates tuning
unc0rr
parents: 405
diff changeset
   526
        BezierizeCount: 2;
561
19d2d422ff84 Improve land generator
unc0rr
parents: 534
diff changeset
   527
        RandPassesCount: 6;
429
7f69c7ac2e97 One more land template + some templates tuning
unc0rr
parents: 405
diff changeset
   528
        canMirror: true; canFlip: false;
365
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   529
       ),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   530
       (BasePoints: @Template3Points;
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   531
        BasePointsCount: Succ(High(Template3Points));
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   532
        FillPoints: @Template3FPoints;
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   533
        FillPointsCount: Succ(High(Template3FPoints));
431
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   534
        BezierizeCount: 3;
561
19d2d422ff84 Improve land generator
unc0rr
parents: 534
diff changeset
   535
        RandPassesCount: 4;
365
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   536
        canMirror: false; canFlip: false;
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   537
       ),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   538
       (BasePoints: @Template4Points;
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   539
        BasePointsCount: Succ(High(Template4Points));
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   540
        FillPoints: @Template4FPoints;
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   541
        FillPointsCount: Succ(High(Template4FPoints));
431
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   542
        BezierizeCount: 3;
561
19d2d422ff84 Improve land generator
unc0rr
parents: 534
diff changeset
   543
        RandPassesCount: 4;
429
7f69c7ac2e97 One more land template + some templates tuning
unc0rr
parents: 405
diff changeset
   544
        canMirror: true; canFlip: false;
386
21eeb5ac0486 - Better gears placing
unc0rr
parents: 365
diff changeset
   545
       ),
21eeb5ac0486 - Better gears placing
unc0rr
parents: 365
diff changeset
   546
       (BasePoints: @Template5Points;
21eeb5ac0486 - Better gears placing
unc0rr
parents: 365
diff changeset
   547
        BasePointsCount: Succ(High(Template5Points));
21eeb5ac0486 - Better gears placing
unc0rr
parents: 365
diff changeset
   548
        FillPoints: @Template5FPoints;
21eeb5ac0486 - Better gears placing
unc0rr
parents: 365
diff changeset
   549
        FillPointsCount: Succ(High(Template5FPoints));
429
7f69c7ac2e97 One more land template + some templates tuning
unc0rr
parents: 405
diff changeset
   550
        BezierizeCount: 2;
561
19d2d422ff84 Improve land generator
unc0rr
parents: 534
diff changeset
   551
        RandPassesCount: 8;
386
21eeb5ac0486 - Better gears placing
unc0rr
parents: 365
diff changeset
   552
        canMirror: true; canFlip: false;
405
339d7735d829 One more land template
unc0rr
parents: 403
diff changeset
   553
       ),
339d7735d829 One more land template
unc0rr
parents: 403
diff changeset
   554
       (BasePoints: @Template6Points;
339d7735d829 One more land template
unc0rr
parents: 403
diff changeset
   555
        BasePointsCount: Succ(High(Template6Points));
339d7735d829 One more land template
unc0rr
parents: 403
diff changeset
   556
        FillPoints: @Template6FPoints;
339d7735d829 One more land template
unc0rr
parents: 403
diff changeset
   557
        FillPointsCount: Succ(High(Template6FPoints));
561
19d2d422ff84 Improve land generator
unc0rr
parents: 534
diff changeset
   558
        BezierizeCount: 2;
19d2d422ff84 Improve land generator
unc0rr
parents: 534
diff changeset
   559
        RandPassesCount: 5;
429
7f69c7ac2e97 One more land template + some templates tuning
unc0rr
parents: 405
diff changeset
   560
        canMirror: true; canFlip: false;
7f69c7ac2e97 One more land template + some templates tuning
unc0rr
parents: 405
diff changeset
   561
       ),
7f69c7ac2e97 One more land template + some templates tuning
unc0rr
parents: 405
diff changeset
   562
       (BasePoints: @Template7Points;
7f69c7ac2e97 One more land template + some templates tuning
unc0rr
parents: 405
diff changeset
   563
        BasePointsCount: Succ(High(Template7Points));
7f69c7ac2e97 One more land template + some templates tuning
unc0rr
parents: 405
diff changeset
   564
        FillPoints: @Template7FPoints;
7f69c7ac2e97 One more land template + some templates tuning
unc0rr
parents: 405
diff changeset
   565
        FillPointsCount: Succ(High(Template7FPoints));
431
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   566
        BezierizeCount: 4;
561
19d2d422ff84 Improve land generator
unc0rr
parents: 534
diff changeset
   567
        RandPassesCount: 4;
431
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   568
        canMirror: true; canFlip: false;
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   569
       ),
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   570
       (BasePoints: @Template8Points;
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   571
        BasePointsCount: Succ(High(Template8Points));
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   572
        FillPoints: @Template8FPoints;
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   573
        FillPointsCount: Succ(High(Template8FPoints));
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   574
        BezierizeCount: 2;
561
19d2d422ff84 Improve land generator
unc0rr
parents: 534
diff changeset
   575
        RandPassesCount: 7;
431
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   576
        canMirror: true; canFlip: false;
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   577
       ),
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   578
       (BasePoints: @Template9Points;
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   579
        BasePointsCount: Succ(High(Template9Points));
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   580
        FillPoints: @Template9FPoints;
79ac59673df3 - Two more land templates
unc0rr
parents: 429
diff changeset
   581
        FillPointsCount: Succ(High(Template9FPoints));
561
19d2d422ff84 Improve land generator
unc0rr
parents: 534
diff changeset
   582
        BezierizeCount: 1;
19d2d422ff84 Improve land generator
unc0rr
parents: 534
diff changeset
   583
        RandPassesCount: 5;
405
339d7735d829 One more land template
unc0rr
parents: 403
diff changeset
   584
        canMirror: true; canFlip: false;
524
c3b3d9ff7bb2 One more land template
unc0rr
parents: 431
diff changeset
   585
       ),
c3b3d9ff7bb2 One more land template
unc0rr
parents: 431
diff changeset
   586
       (BasePoints: @Template10Points;
c3b3d9ff7bb2 One more land template
unc0rr
parents: 431
diff changeset
   587
        BasePointsCount: Succ(High(Template10Points));
c3b3d9ff7bb2 One more land template
unc0rr
parents: 431
diff changeset
   588
        FillPoints: @Template10FPoints;
c3b3d9ff7bb2 One more land template
unc0rr
parents: 431
diff changeset
   589
        FillPointsCount: Succ(High(Template10FPoints));
561
19d2d422ff84 Improve land generator
unc0rr
parents: 534
diff changeset
   590
        BezierizeCount: 2;
19d2d422ff84 Improve land generator
unc0rr
parents: 534
diff changeset
   591
        RandPassesCount: 6;
524
c3b3d9ff7bb2 One more land template
unc0rr
parents: 431
diff changeset
   592
        canMirror: true; canFlip: false;
527
e23490ce1f06 - One more land template
unc0rr
parents: 524
diff changeset
   593
       ),
e23490ce1f06 - One more land template
unc0rr
parents: 524
diff changeset
   594
       (BasePoints: @Template11Points;
e23490ce1f06 - One more land template
unc0rr
parents: 524
diff changeset
   595
        BasePointsCount: Succ(High(Template11Points));
e23490ce1f06 - One more land template
unc0rr
parents: 524
diff changeset
   596
        FillPoints: @Template11FPoints;
e23490ce1f06 - One more land template
unc0rr
parents: 524
diff changeset
   597
        FillPointsCount: Succ(High(Template11FPoints));
561
19d2d422ff84 Improve land generator
unc0rr
parents: 534
diff changeset
   598
        BezierizeCount: 1;
19d2d422ff84 Improve land generator
unc0rr
parents: 534
diff changeset
   599
        RandPassesCount: 8;
527
e23490ce1f06 - One more land template
unc0rr
parents: 524
diff changeset
   600
        canMirror: true; canFlip: false;
710
760e34b8b4e4 One more land template (pretty good IMO)
unc0rr
parents: 561
diff changeset
   601
       ),
760e34b8b4e4 One more land template (pretty good IMO)
unc0rr
parents: 561
diff changeset
   602
       (BasePoints: @Template12Points;
760e34b8b4e4 One more land template (pretty good IMO)
unc0rr
parents: 561
diff changeset
   603
        BasePointsCount: Succ(High(Template12Points));
760e34b8b4e4 One more land template (pretty good IMO)
unc0rr
parents: 561
diff changeset
   604
        FillPoints: @Template12FPoints;
760e34b8b4e4 One more land template (pretty good IMO)
unc0rr
parents: 561
diff changeset
   605
        FillPointsCount: Succ(High(Template12FPoints));
760e34b8b4e4 One more land template (pretty good IMO)
unc0rr
parents: 561
diff changeset
   606
        BezierizeCount: 3;
760e34b8b4e4 One more land template (pretty good IMO)
unc0rr
parents: 561
diff changeset
   607
        RandPassesCount: 8;
711
8ff62133ac48 One more crazy land template
unc0rr
parents: 710
diff changeset
   608
        canMirror: true; canFlip: false;
8ff62133ac48 One more crazy land template
unc0rr
parents: 710
diff changeset
   609
       ),
8ff62133ac48 One more crazy land template
unc0rr
parents: 710
diff changeset
   610
       (BasePoints: @Template13Points;
8ff62133ac48 One more crazy land template
unc0rr
parents: 710
diff changeset
   611
        BasePointsCount: Succ(High(Template13Points));
8ff62133ac48 One more crazy land template
unc0rr
parents: 710
diff changeset
   612
        FillPoints: @Template13FPoints;
8ff62133ac48 One more crazy land template
unc0rr
parents: 710
diff changeset
   613
        FillPointsCount: Succ(High(Template13FPoints));
8ff62133ac48 One more crazy land template
unc0rr
parents: 710
diff changeset
   614
        BezierizeCount: 3;
8ff62133ac48 One more crazy land template
unc0rr
parents: 710
diff changeset
   615
        RandPassesCount: 5;
8ff62133ac48 One more crazy land template
unc0rr
parents: 710
diff changeset
   616
        canMirror: true; canFlip: false;
712
e87cafcf0e2d +1 land template
unc0rr
parents: 711
diff changeset
   617
       ),
e87cafcf0e2d +1 land template
unc0rr
parents: 711
diff changeset
   618
       (BasePoints: @Template14Points;
e87cafcf0e2d +1 land template
unc0rr
parents: 711
diff changeset
   619
        BasePointsCount: Succ(High(Template14Points));
e87cafcf0e2d +1 land template
unc0rr
parents: 711
diff changeset
   620
        FillPoints: @Template14FPoints;
e87cafcf0e2d +1 land template
unc0rr
parents: 711
diff changeset
   621
        FillPointsCount: Succ(High(Template14FPoints));
e87cafcf0e2d +1 land template
unc0rr
parents: 711
diff changeset
   622
        BezierizeCount: 3;
e87cafcf0e2d +1 land template
unc0rr
parents: 711
diff changeset
   623
        RandPassesCount: 7;
e87cafcf0e2d +1 land template
unc0rr
parents: 711
diff changeset
   624
        canMirror: true; canFlip: false;
713
8d038c5e95be LandTemplates++
unc0rr
parents: 712
diff changeset
   625
       ),
8d038c5e95be LandTemplates++
unc0rr
parents: 712
diff changeset
   626
       (BasePoints: @Template15Points;
8d038c5e95be LandTemplates++
unc0rr
parents: 712
diff changeset
   627
        BasePointsCount: Succ(High(Template15Points));
8d038c5e95be LandTemplates++
unc0rr
parents: 712
diff changeset
   628
        FillPoints: @Template15FPoints;
8d038c5e95be LandTemplates++
unc0rr
parents: 712
diff changeset
   629
        FillPointsCount: Succ(High(Template15FPoints));
8d038c5e95be LandTemplates++
unc0rr
parents: 712
diff changeset
   630
        BezierizeCount: 2;
8d038c5e95be LandTemplates++
unc0rr
parents: 712
diff changeset
   631
        RandPassesCount: 6;
8d038c5e95be LandTemplates++
unc0rr
parents: 712
diff changeset
   632
        canMirror: true; canFlip: false;
714
341090f7e750 And... one more
unc0rr
parents: 713
diff changeset
   633
       ),
341090f7e750 And... one more
unc0rr
parents: 713
diff changeset
   634
       (BasePoints: @Template16Points;
341090f7e750 And... one more
unc0rr
parents: 713
diff changeset
   635
        BasePointsCount: Succ(High(Template16Points));
341090f7e750 And... one more
unc0rr
parents: 713
diff changeset
   636
        FillPoints: @Template16FPoints;
341090f7e750 And... one more
unc0rr
parents: 713
diff changeset
   637
        FillPointsCount: Succ(High(Template16FPoints));
341090f7e750 And... one more
unc0rr
parents: 713
diff changeset
   638
        BezierizeCount: 2;
341090f7e750 And... one more
unc0rr
parents: 713
diff changeset
   639
        RandPassesCount: 6;
341090f7e750 And... one more
unc0rr
parents: 713
diff changeset
   640
        canMirror: true; canFlip: false;
715
d8d7bfa88db2 Last template for now
unc0rr
parents: 714
diff changeset
   641
       ),
d8d7bfa88db2 Last template for now
unc0rr
parents: 714
diff changeset
   642
       (BasePoints: @Template17Points;
d8d7bfa88db2 Last template for now
unc0rr
parents: 714
diff changeset
   643
        BasePointsCount: Succ(High(Template17Points));
d8d7bfa88db2 Last template for now
unc0rr
parents: 714
diff changeset
   644
        FillPoints: @Template17FPoints;
d8d7bfa88db2 Last template for now
unc0rr
parents: 714
diff changeset
   645
        FillPointsCount: Succ(High(Template17FPoints));
d8d7bfa88db2 Last template for now
unc0rr
parents: 714
diff changeset
   646
        BezierizeCount: 3;
d8d7bfa88db2 Last template for now
unc0rr
parents: 714
diff changeset
   647
        RandPassesCount: 7;
d8d7bfa88db2 Last template for now
unc0rr
parents: 714
diff changeset
   648
        canMirror: true; canFlip: false;
358
236bbd12d4d9 - New Land Generator
unc0rr
parents: 351
diff changeset
   649
       )
184
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
   650
      );
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
   651
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
   652
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
   653
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
   654
implementation
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
   655
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
   656
end.