hedgewars/uLandTemplates.pas
author unc0rr
Wed, 07 Feb 2007 21:36:55 +0000
changeset 409 4f1841929ccc
parent 405 339d7735d829
child 429 7f69c7ac2e97
permissions -rw-r--r--
Construction tool
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
393
db01cc79f278 Update copyright information
unc0rr
parents: 386
diff changeset
     3
 * Copyright (c) 2005-2007 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
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents: 184
diff changeset
    21
uses SDLh, uFloat;
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;
364
52cb4d6f84b7 - Better land generator
unc0rr
parents: 360
diff changeset
    33
                     RandPassesCount: Longword;
184
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    34
                     canMirror, canFlip: boolean;
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    35
                     end;
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    36
365
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
    37
const Template0Points: array[0..18] of TSDL_Rect =
184
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    38
      (
359
59fbfc65fbda - New land templates
unc0rr
parents: 358
diff changeset
    39
       (x:  410; y: 1024; w:    1; h:    1),
59fbfc65fbda - New land templates
unc0rr
parents: 358
diff changeset
    40
       (x:  160; y:  760; w:  130; h:  170),
59fbfc65fbda - New land templates
unc0rr
parents: 358
diff changeset
    41
       (x:  342; y:  706; w:  316; h:  150),
59fbfc65fbda - New land templates
unc0rr
parents: 358
diff changeset
    42
       (x:  238; y:  386; w:  270; h:  180),
59fbfc65fbda - New land templates
unc0rr
parents: 358
diff changeset
    43
       (x:  246; y:  176; w:  242; h:  156),
403
282b00e559bd Better templates, giving more different lands
unc0rr
parents: 393
diff changeset
    44
       (x:  552; y:  128; w:  610; h:  300),
282b00e559bd Better templates, giving more different lands
unc0rr
parents: 393
diff changeset
    45
       (x:  750; y:  468; w:  352; h:  324),
359
59fbfc65fbda - New land templates
unc0rr
parents: 358
diff changeset
    46
       (x:  650; y: 1024; w:  500; h:    1),
59fbfc65fbda - New land templates
unc0rr
parents: 358
diff changeset
    47
       (x: 1250; y: 1100; w:    1; h:    1),
59fbfc65fbda - New land templates
unc0rr
parents: 358
diff changeset
    48
       (x: 1490; y: 1024; w:    1; h:    1),
59fbfc65fbda - New land templates
unc0rr
parents: 358
diff changeset
    49
       (x: 1452; y:  904; w:   74; h:   12),
59fbfc65fbda - New land templates
unc0rr
parents: 358
diff changeset
    50
       (x: 1248; y:  575; w:   68; h:  425),
59fbfc65fbda - New land templates
unc0rr
parents: 358
diff changeset
    51
       (x: 1426; y:  592; w:  140; h:  142),
59fbfc65fbda - New land templates
unc0rr
parents: 358
diff changeset
    52
       (x: 1310; y:  192; w:  150; h:  350),
403
282b00e559bd Better templates, giving more different lands
unc0rr
parents: 393
diff changeset
    53
       (x: 1588; y:  194; w:  148; h:  242),
359
59fbfc65fbda - New land templates
unc0rr
parents: 358
diff changeset
    54
       (x: 1618; y:  472; w:  276; h:  314),
59fbfc65fbda - New land templates
unc0rr
parents: 358
diff changeset
    55
       (x: 1710; y:  850; w:  130; h:   86),
365
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
    56
       (x: 1734; y: 1024; w:    1; h:    1),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
    57
       (x: NTPX; y:    0; w:    1; h:    1)
184
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    58
      );
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    59
      Template0FPoints: array[0..0] of TPoint =
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    60
      (
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    61
       (x: 1023; y:    0)
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    62
      );
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
    63
365
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
    64
const Template1Points: array[0..15] of TSDL_Rect =
360
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    65
      (
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    66
       (x:  400; y: 1024; w:   25; h:    1),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    67
       (x:  284; y:  892; w:  254; h:   58),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    68
       (x:  492; y:  634; w:  100; h:  200),
403
282b00e559bd Better templates, giving more different lands
unc0rr
parents: 393
diff changeset
    69
       (x:  254; y:  246; w:  276; h:  380),
360
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    70
       (x:  620; y:  254; w:  125; h:  270),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    71
       (x:  680; y:  550; w:   96; h:  390),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    72
       (x:  826; y:  614; w:  110; h:  350),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    73
       (x:  800; y:  186; w:  150; h:  380),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    74
       (x: 1000; y:  186; w:  170; h:  375),
403
282b00e559bd Better templates, giving more different lands
unc0rr
parents: 393
diff changeset
    75
       (x: 1012; y:  590; w:  188; h:  298),
360
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    76
       (x: 1240; y:  668; w:  136; h:  172),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    77
       (x: 1270; y:  194; w:  120; h:  392),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    78
       (x: 1514; y:  194; w:  364; h:  362),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    79
       (x: 1450; y:  652; w:  315; h:  232),
365
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
    80
       (x: 1460; y: 1024; w:   25; h:    1),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
    81
       (x: NTPX; y:    0; w:    1; h:    1)
360
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    82
      );
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    83
      Template1FPoints: array[0..0] of TPoint =
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    84
      (
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    85
       (x: 1023; y:    0)
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    86
      );
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    87
365
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
    88
const Template2Points: array[0..21] of TSDL_Rect =
360
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    89
      (
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    90
       (x:  354; y: 1024; w:    1; h:    1),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    91
       (x:  232; y:  926; w:  226; h:   60),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    92
       (x:  120; y:  846; w:  298; h:   62),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    93
       (x:  280; y:  704; w:  210; h:  102),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    94
       (x:  208; y:  422; w:  192; h:  248),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    95
       (x:  292; y:  160; w:  206; h:  240),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    96
       (x:  526; y:  172; w:   92; h:  334),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    97
       (x:  462; y:  528; w:  226; h:  126),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    98
       (x:  556; y:  678; w:  268; h:  156),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
    99
       (x:  722; y:  164; w:  138; h:  500),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   100
       (x:  890; y:  156; w:   94; h:  352),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   101
       (x:  898; y:  562; w:  170; h:  264),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   102
       (x: 1092; y:  384; w:   84; h:  446),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   103
       (x: 1206; y:  200; w:  158; h:  278),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   104
       (x: 1300; y:  490; w:  104; h:  336),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   105
       (x: 1416; y:  546; w:   90; h:  398),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   106
       (x: 1546; y:  192; w:  134; h:  532),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   107
       (x: 1702; y:  246; w:  156; h:  258),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   108
       (x: 1700; y:  548; w:  132; h:  340),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   109
       (x: 1534; y:  898; w:  252; h:   82),
365
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   110
       (x: 1604; y: 1024; w:    1; h:    1),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   111
       (x: NTPX; y:    0; w:    1; h:    1)
360
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   112
      );
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   113
      Template2FPoints: array[0..0] of TPoint =
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   114
      (
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   115
       (x: 1023; y:    0)
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   116
      );
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   117
365
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   118
const Template3Points: array[0..16] of TSDL_Rect =
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   119
      (
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   120
       (x:  348; y: 1024; w:    1; h:    1),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   121
       (x:  236; y:  852; w:  208; h:   72),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   122
       (x:  498; y:  710; w:  308; h:   60),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   123
       (x:  728; y:  852; w:  434; h:   40),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   124
       (x: 1174; y:  712; w:  332; h:   40),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   125
       (x: 1402; y:  838; w:  226; h:   36),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   126
       (x: 1530; y: 1024; w:    1; h:    1),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   127
       (x: NTPX; y:    0; w:    1; h:    1),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   128
       (x: 1660; y:  498; w:  111; h:  111),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   129
       (x: 1270; y:  476; w:   34; h:  102),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   130
       (x:  682; y:  414; w:  284; h:  132),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   131
       (x:  230; y:  328; w:  126; h:  168),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   132
       (x:  410; y:  174; w:  114; h:  100),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   133
       (x:  790; y:  172; w:  352; h:  120),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   134
       (x: 1274; y:  128; w:   60; h:  240),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   135
       (x: 1434; y:  222; w:  254; h:  116),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   136
       (x: NTPX; y:    0; w:    1; h:    1)
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   137
      );
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   138
      Template3FPoints: array[0..0] of TPoint =
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   139
      (
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   140
       (x: 1023; y:    0)
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   141
      );
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
const Template4Points: array[0..22] of TSDL_Rect =
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   144
      (
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   145
       (x:  418; y: 1024; w:    1; h:    1),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   146
       (x:  248; y:  900; w:  186; h:   62),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   147
       (x:  272; y:  692; w:  254; h:  138),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   148
       (x:  610; y:  768; w:   90; h:  166),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   149
       (x:  820; y:  616; w:  224; h:  258),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   150
       (x: 1242; y:  758; w:   96; h:  146),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   151
       (x: 1550; y:  698; w:  224; h:  134),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   152
       (x: 1530; y:  902; w:  210; h:   54),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   153
       (x: 1532; y: 1024; w:    1; h:    1),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   154
       (x: NTPX; y:    0; w:    1; h:    1),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   155
       (x:  202; y:  418; w:  110; h:   92),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   156
       (x:  252; y:  312; w:  160; h:   32),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   157
       (x:  150; y:  168; w:  134; h:   78),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   158
       (x:  702; y:  160; w:  132; h:   84),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   159
       (x:  702; y:  308; w:  230; h:   36),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   160
       (x:  720; y:  408; w:  166; h:   96),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   161
       (x: NTPX; y:    0; w:    1; h:    1),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   162
       (x: 1702; y:  434; w:  202; h:   42),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   163
       (x: 1252; y:  388; w:  134; h:   98),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   164
       (x: 1214; y:  152; w:  116; h:  154),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   165
       (x: 1428; y:  252; w:  150; h:   70),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   166
       (x: 1750; y:  152; w:   86; h:  220),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   167
       (x: NTPX; y:    0; w:    1; h:    1)
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   168
      );
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   169
      Template4FPoints: array[0..0] of TPoint =
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   170
      (
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   171
       (x: 1023; y:    0)
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   172
      );
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   173
386
21eeb5ac0486 - Better gears placing
unc0rr
parents: 365
diff changeset
   174
const Template5Points: array[0..15] of TSDL_Rect =
21eeb5ac0486 - Better gears placing
unc0rr
parents: 365
diff changeset
   175
      (
21eeb5ac0486 - Better gears placing
unc0rr
parents: 365
diff changeset
   176
       (x:  274; y: 1024; w:    1; h:    1),
21eeb5ac0486 - Better gears placing
unc0rr
parents: 365
diff changeset
   177
       (x:  190; y:  918; w:  168; h:   26),
403
282b00e559bd Better templates, giving more different lands
unc0rr
parents: 393
diff changeset
   178
       (x:  382; y:  576; w:  122; h:  314),
386
21eeb5ac0486 - Better gears placing
unc0rr
parents: 365
diff changeset
   179
       (x:  568; y:  744; w:   56; h:  180),
21eeb5ac0486 - Better gears placing
unc0rr
parents: 365
diff changeset
   180
       (x:  678; y:  856; w:   64; h:   56),
21eeb5ac0486 - Better gears placing
unc0rr
parents: 365
diff changeset
   181
       (x:  740; y:  650; w:  106; h:  220),
21eeb5ac0486 - Better gears placing
unc0rr
parents: 365
diff changeset
   182
       (x:  644; y:  496; w:  162; h:  140),
403
282b00e559bd Better templates, giving more different lands
unc0rr
parents: 393
diff changeset
   183
       (x:  496; y:  210; w:  886; h:  174),
386
21eeb5ac0486 - Better gears placing
unc0rr
parents: 365
diff changeset
   184
       (x:  934; y:  448; w:  296; h:  108),
21eeb5ac0486 - Better gears placing
unc0rr
parents: 365
diff changeset
   185
       (x:  950; y:  752; w:  152; h:  146),
21eeb5ac0486 - Better gears placing
unc0rr
parents: 365
diff changeset
   186
       (x: 1172; y:  774; w:   60; h:  152),
21eeb5ac0486 - Better gears placing
unc0rr
parents: 365
diff changeset
   187
       (x: 1284; y:  722; w:  150; h:  138),
403
282b00e559bd Better templates, giving more different lands
unc0rr
parents: 393
diff changeset
   188
       (x: 1494; y:  364; w:   56; h:  582),
282b00e559bd Better templates, giving more different lands
unc0rr
parents: 393
diff changeset
   189
       (x: 1620; y:  774; w:   94; h:  232),
386
21eeb5ac0486 - Better gears placing
unc0rr
parents: 365
diff changeset
   190
       (x: 1612; y: 1024; w:    1; h:    1),
21eeb5ac0486 - Better gears placing
unc0rr
parents: 365
diff changeset
   191
       (x: NTPX; y:    0; w:    1; h:    1)
21eeb5ac0486 - Better gears placing
unc0rr
parents: 365
diff changeset
   192
       );
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
339d7735d829 One more land template
unc0rr
parents: 403
diff changeset
   217
      Template6FPoints: array[0..0] of TPoint =
339d7735d829 One more land template
unc0rr
parents: 403
diff changeset
   218
      (
339d7735d829 One more land template
unc0rr
parents: 403
diff changeset
   219
       (x: 1023; y:    0)
339d7735d829 One more land template
unc0rr
parents: 403
diff changeset
   220
      );
339d7735d829 One more land template
unc0rr
parents: 403
diff changeset
   221
339d7735d829 One more land template
unc0rr
parents: 403
diff changeset
   222
const EdgeTemplates: array[0..6] of TEdgeTemplate =
184
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
   223
      (
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
   224
       (BasePoints: @Template0Points;
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
   225
        BasePointsCount: Succ(High(Template0Points));
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
   226
        FillPoints: @Template0FPoints;
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
   227
        FillPointsCount: Succ(High(Template0FPoints));
364
52cb4d6f84b7 - Better land generator
unc0rr
parents: 360
diff changeset
   228
        RandPassesCount: 4;
360
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   229
        canMirror: true; canFlip: false;
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   230
       ),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   231
       (BasePoints: @Template1Points;
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   232
        BasePointsCount: Succ(High(Template1Points));
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   233
        FillPoints: @Template1FPoints;
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   234
        FillPointsCount: Succ(High(Template1FPoints));
364
52cb4d6f84b7 - Better land generator
unc0rr
parents: 360
diff changeset
   235
        RandPassesCount: 3;
365
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   236
        canMirror: false; canFlip: false;
360
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   237
       ),
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   238
       (BasePoints: @Template2Points;
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   239
        BasePointsCount: Succ(High(Template2Points));
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   240
        FillPoints: @Template2FPoints;
ab6a94334d6d - Two more templates
unc0rr
parents: 359
diff changeset
   241
        FillPointsCount: Succ(High(Template2FPoints));
364
52cb4d6f84b7 - Better land generator
unc0rr
parents: 360
diff changeset
   242
        RandPassesCount: 3;
365
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   243
        canMirror: false; canFlip: false;
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   244
       ),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   245
       (BasePoints: @Template3Points;
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   246
        BasePointsCount: Succ(High(Template3Points));
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   247
        FillPoints: @Template3FPoints;
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   248
        FillPointsCount: Succ(High(Template3FPoints));
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   249
        RandPassesCount: 3;
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   250
        canMirror: false; canFlip: false;
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   251
       ),
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   252
       (BasePoints: @Template4Points;
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   253
        BasePointsCount: Succ(High(Template4Points));
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   254
        FillPoints: @Template4FPoints;
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   255
        FillPointsCount: Succ(High(Template4FPoints));
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   256
        RandPassesCount: 3;
a26cec847dd7 - New land generator feature: islands in the sky
unc0rr
parents: 364
diff changeset
   257
        canMirror: false; canFlip: false;
386
21eeb5ac0486 - Better gears placing
unc0rr
parents: 365
diff changeset
   258
       ),
21eeb5ac0486 - Better gears placing
unc0rr
parents: 365
diff changeset
   259
       (BasePoints: @Template5Points;
21eeb5ac0486 - Better gears placing
unc0rr
parents: 365
diff changeset
   260
        BasePointsCount: Succ(High(Template5Points));
21eeb5ac0486 - Better gears placing
unc0rr
parents: 365
diff changeset
   261
        FillPoints: @Template5FPoints;
21eeb5ac0486 - Better gears placing
unc0rr
parents: 365
diff changeset
   262
        FillPointsCount: Succ(High(Template5FPoints));
21eeb5ac0486 - Better gears placing
unc0rr
parents: 365
diff changeset
   263
        RandPassesCount: 3;
21eeb5ac0486 - Better gears placing
unc0rr
parents: 365
diff changeset
   264
        canMirror: true; canFlip: false;
405
339d7735d829 One more land template
unc0rr
parents: 403
diff changeset
   265
       ),
339d7735d829 One more land template
unc0rr
parents: 403
diff changeset
   266
       (BasePoints: @Template6Points;
339d7735d829 One more land template
unc0rr
parents: 403
diff changeset
   267
        BasePointsCount: Succ(High(Template6Points));
339d7735d829 One more land template
unc0rr
parents: 403
diff changeset
   268
        FillPoints: @Template6FPoints;
339d7735d829 One more land template
unc0rr
parents: 403
diff changeset
   269
        FillPointsCount: Succ(High(Template6FPoints));
339d7735d829 One more land template
unc0rr
parents: 403
diff changeset
   270
        RandPassesCount: 3;
339d7735d829 One more land template
unc0rr
parents: 403
diff changeset
   271
        canMirror: true; canFlip: false;
358
236bbd12d4d9 - New Land Generator
unc0rr
parents: 351
diff changeset
   272
       )
184
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
   273
      );
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
   274
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
   275
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
   276
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
   277
implementation
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
   278
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 183
diff changeset
   279
end.