hedgewars/uLandTemplates.pas
author unc0rr
Thu, 08 May 2008 14:22:19 +0000
changeset 913 a86f8af21b94
parent 883 07a568ba44e0
child 1066 1f1b3686a2b0
permissions -rw-r--r--
Fix mines on top of the case issue also
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
184
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
     1
(*
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
     2
 * Hedgewars, a worms-like 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.