hedgewars/uLandOutline.pas
author sheepluva
Sun, 08 Dec 2019 02:09:19 +0100
branchhedgeroid
changeset 15537 de08a3ae4f8d
parent 14046 bb2f4636787f
child 15929 128ace913837
permissions -rw-r--r--
hedgeroid/frontlib: update proto and weapons number
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
6490
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
     1
unit uLandOutline;
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
     2
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
     3
interface
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
     4
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
     5
uses uConsts, SDLh, uFloat;
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
     6
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
     7
type TPixAr = record
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
     8
              Count: Longword;
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
     9
              ar: array[0..Pred(cMaxEdgePoints)] of TPoint;
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    10
              end;
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    11
10189
875607ce793d - Rework FillLand
unc0rr
parents: 8850
diff changeset
    12
procedure DrawEdge(var pa: TPixAr; value: Word);
875607ce793d - Rework FillLand
unc0rr
parents: 8850
diff changeset
    13
procedure FillLand(x, y: LongInt; border, value: Word);
6490
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    14
procedure BezierizeEdge(var pa: TPixAr; Delta: hwFloat);
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    15
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    16
implementation
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    17
13928
c36aaa30be98 Remove more dead code from uLandOutline
unc0rr
parents: 11532
diff changeset
    18
uses uLandGraphics, uDebug, uVariables, uLandTemplates;
6490
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    19
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    20
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    21
var Stack: record
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    22
           Count: Longword;
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    23
           points: array[0..8192] of record
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    24
                                     xl, xr, y, dir: LongInt;
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    25
                                     end
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    26
           end;
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    27
8145
6408c0ba4ba1 Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents: 6990
diff changeset
    28
6490
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    29
procedure Push(_xl, _xr, _y, _dir: LongInt);
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    30
begin
11532
bf86c6cb9341 Bye-bye TryDo
unc0rr
parents: 10560
diff changeset
    31
    if checkFails(Stack.Count <= 8192, 'FillLand: stack overflow', true) then exit;
6490
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    32
    _y:= _y + _dir;
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6491
diff changeset
    33
    if (_y < 0) or (_y >= LAND_HEIGHT) then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6491
diff changeset
    34
        exit;
6490
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    35
    with Stack.points[Stack.Count] do
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6491
diff changeset
    36
        begin
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6491
diff changeset
    37
        xl:= _xl;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6491
diff changeset
    38
        xr:= _xr;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6491
diff changeset
    39
        y:= _y;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6491
diff changeset
    40
        dir:= _dir
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6491
diff changeset
    41
        end;
6490
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    42
    inc(Stack.Count)
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    43
end;
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    44
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    45
procedure Pop(var _xl, _xr, _y, _dir: LongInt);
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    46
begin
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    47
    dec(Stack.Count);
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    48
    with Stack.points[Stack.Count] do
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    49
        begin
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    50
        _xl:= xl;
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    51
        _xr:= xr;
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    52
        _y:= y;
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    53
        _dir:= dir
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    54
        end
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    55
end;
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    56
10189
875607ce793d - Rework FillLand
unc0rr
parents: 8850
diff changeset
    57
procedure FillLand(x, y: LongInt; border, value: Word);
6490
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    58
var xl, xr, dir: LongInt;
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    59
begin
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    60
    Stack.Count:= 0;
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    61
    xl:= x - 1;
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    62
    xr:= x;
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    63
    Push(xl, xr, y, -1);
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    64
    Push(xl, xr, y,  1);
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    65
    dir:= 0;
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    66
    while Stack.Count > 0 do
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    67
        begin
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    68
        Pop(xl, xr, y, dir);
10189
875607ce793d - Rework FillLand
unc0rr
parents: 8850
diff changeset
    69
        while (xl > 0) and (Land[y, xl] <> border) and (Land[y, xl] <> value) do
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6491
diff changeset
    70
            dec(xl);
10189
875607ce793d - Rework FillLand
unc0rr
parents: 8850
diff changeset
    71
        while (xr < LAND_WIDTH - 1) and (Land[y, xr] <> border) and (Land[y, xr] <> value) do
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6491
diff changeset
    72
            inc(xr);
6490
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    73
        while (xl < xr) do
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    74
            begin
10189
875607ce793d - Rework FillLand
unc0rr
parents: 8850
diff changeset
    75
            while (xl <= xr) and ((Land[y, xl] = border) or (Land[y, xl] = value)) do
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6491
diff changeset
    76
                inc(xl);
6490
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    77
            x:= xl;
10189
875607ce793d - Rework FillLand
unc0rr
parents: 8850
diff changeset
    78
            while (xl <= xr) and (Land[y, xl] <> border) and (Land[y, xl] <> value) do
6490
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    79
                begin
10189
875607ce793d - Rework FillLand
unc0rr
parents: 8850
diff changeset
    80
                Land[y, xl]:= value;
6490
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    81
                inc(xl)
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    82
                end;
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    83
            if x < xl then
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    84
                begin
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    85
                Push(x, Pred(xl), y, dir);
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    86
                Push(x, Pred(xl), y,-dir);
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    87
                end;
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    88
            end;
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    89
        end;
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    90
end;
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    91
10189
875607ce793d - Rework FillLand
unc0rr
parents: 8850
diff changeset
    92
procedure DrawEdge(var pa: TPixAr; value: Word);
6490
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    93
var i: LongInt;
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    94
begin
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    95
    i:= 0;
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    96
    with pa do
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    97
        while i < LongInt(Count) - 1 do
8330
aaefa587e277 update branch with default
koda
parents: 8145
diff changeset
    98
            if (ar[i + 1].X = NTPX) then
6490
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
    99
                inc(i, 2)
8330
aaefa587e277 update branch with default
koda
parents: 8145
diff changeset
   100
            else
6490
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
   101
                begin
10189
875607ce793d - Rework FillLand
unc0rr
parents: 8850
diff changeset
   102
                DrawLine(ar[i].x, ar[i].y, ar[i + 1].x, ar[i + 1].y, value);
6490
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
   103
                inc(i)
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
   104
                end
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
   105
end;
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
   106
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
   107
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
   108
procedure Vector(p1, p2, p3: TPoint; var Vx, Vy: hwFloat);
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
   109
var d1, d2, d: hwFloat;
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
   110
begin
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
   111
    Vx:= int2hwFloat(p1.X - p3.X);
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
   112
    Vy:= int2hwFloat(p1.Y - p3.Y);
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
   113
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
   114
    d2:= Distance(Vx, Vy);
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
   115
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
   116
    if d2.QWordValue = 0 then
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
   117
        begin
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
   118
        Vx:= _0;
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
   119
        Vy:= _0
8330
aaefa587e277 update branch with default
koda
parents: 8145
diff changeset
   120
        end
6490
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
   121
    else
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
   122
        begin
10197
c57798251b55 Some optimizations
unc0rr
parents: 10189
diff changeset
   123
        d:= DistanceI(p2.X - p1.X, p2.Y - p1.Y);
c57798251b55 Some optimizations
unc0rr
parents: 10189
diff changeset
   124
        d1:= DistanceI(p2.X - p3.X, p2.Y - p3.Y);
10510
9329dab04490 some whitespace fixes
sheepluva
parents: 10485
diff changeset
   125
10197
c57798251b55 Some optimizations
unc0rr
parents: 10189
diff changeset
   126
        if d1 < d then
c57798251b55 Some optimizations
unc0rr
parents: 10189
diff changeset
   127
            d:= d1;
c57798251b55 Some optimizations
unc0rr
parents: 10189
diff changeset
   128
        if d2 < d then
c57798251b55 Some optimizations
unc0rr
parents: 10189
diff changeset
   129
            d:= d2;
c57798251b55 Some optimizations
unc0rr
parents: 10189
diff changeset
   130
c57798251b55 Some optimizations
unc0rr
parents: 10189
diff changeset
   131
        d2:= d * _1div3 / d2;
10510
9329dab04490 some whitespace fixes
sheepluva
parents: 10485
diff changeset
   132
6490
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
   133
        Vx:= Vx * d2;
10197
c57798251b55 Some optimizations
unc0rr
parents: 10189
diff changeset
   134
        Vy:= Vy * d2
6490
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
   135
        end
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
   136
end;
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
   137
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
   138
procedure AddLoopPoints(var pa, opa: TPixAr; StartI, EndI: LongInt; Delta: hwFloat);
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
   139
var i, pi, ni: LongInt;
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
   140
    NVx, NVy, PVx, PVy: hwFloat;
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
   141
    x1, x2, y1, y2: LongInt;
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
   142
    tsq, tcb, t, r1, r2, r3, cx1, cx2, cy1, cy2: hwFloat;
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
   143
    X, Y: LongInt;
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
   144
begin
10485
05b771423b95 You can't just exit function which is supposed to do copy
unc0rr
parents: 10483
diff changeset
   145
    if pa.Count < cMaxEdgePoints - 2 then
05b771423b95 You can't just exit function which is supposed to do copy
unc0rr
parents: 10483
diff changeset
   146
        begin
05b771423b95 You can't just exit function which is supposed to do copy
unc0rr
parents: 10483
diff changeset
   147
        pi:= EndI;
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6491
diff changeset
   148
        i:= StartI;
10485
05b771423b95 You can't just exit function which is supposed to do copy
unc0rr
parents: 10483
diff changeset
   149
        ni:= Succ(StartI);
05b771423b95 You can't just exit function which is supposed to do copy
unc0rr
parents: 10483
diff changeset
   150
        {$HINTS OFF}
05b771423b95 You can't just exit function which is supposed to do copy
unc0rr
parents: 10483
diff changeset
   151
        Vector(opa.ar[pi], opa.ar[i], opa.ar[ni], NVx, NVy);
05b771423b95 You can't just exit function which is supposed to do copy
unc0rr
parents: 10483
diff changeset
   152
        {$HINTS ON}
05b771423b95 You can't just exit function which is supposed to do copy
unc0rr
parents: 10483
diff changeset
   153
        repeat
05b771423b95 You can't just exit function which is supposed to do copy
unc0rr
parents: 10483
diff changeset
   154
            i:= ni;
05b771423b95 You can't just exit function which is supposed to do copy
unc0rr
parents: 10483
diff changeset
   155
            inc(pi);
05b771423b95 You can't just exit function which is supposed to do copy
unc0rr
parents: 10483
diff changeset
   156
            if pi > EndI then
05b771423b95 You can't just exit function which is supposed to do copy
unc0rr
parents: 10483
diff changeset
   157
                pi:= StartI;
05b771423b95 You can't just exit function which is supposed to do copy
unc0rr
parents: 10483
diff changeset
   158
            inc(ni);
05b771423b95 You can't just exit function which is supposed to do copy
unc0rr
parents: 10483
diff changeset
   159
            if ni > EndI then
05b771423b95 You can't just exit function which is supposed to do copy
unc0rr
parents: 10483
diff changeset
   160
                ni:= StartI;
05b771423b95 You can't just exit function which is supposed to do copy
unc0rr
parents: 10483
diff changeset
   161
            PVx:= NVx;
05b771423b95 You can't just exit function which is supposed to do copy
unc0rr
parents: 10483
diff changeset
   162
            PVy:= NVy;
05b771423b95 You can't just exit function which is supposed to do copy
unc0rr
parents: 10483
diff changeset
   163
            Vector(opa.ar[pi], opa.ar[i], opa.ar[ni], NVx, NVy);
05b771423b95 You can't just exit function which is supposed to do copy
unc0rr
parents: 10483
diff changeset
   164
05b771423b95 You can't just exit function which is supposed to do copy
unc0rr
parents: 10483
diff changeset
   165
            x1:= opa.ar[pi].x;
05b771423b95 You can't just exit function which is supposed to do copy
unc0rr
parents: 10483
diff changeset
   166
            y1:= opa.ar[pi].y;
05b771423b95 You can't just exit function which is supposed to do copy
unc0rr
parents: 10483
diff changeset
   167
            x2:= opa.ar[i].x;
05b771423b95 You can't just exit function which is supposed to do copy
unc0rr
parents: 10483
diff changeset
   168
            y2:= opa.ar[i].y;
6490
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
   169
10485
05b771423b95 You can't just exit function which is supposed to do copy
unc0rr
parents: 10483
diff changeset
   170
            cx1:= int2hwFloat(x1) - PVx;
05b771423b95 You can't just exit function which is supposed to do copy
unc0rr
parents: 10483
diff changeset
   171
            cy1:= int2hwFloat(y1) - PVy;
05b771423b95 You can't just exit function which is supposed to do copy
unc0rr
parents: 10483
diff changeset
   172
            cx2:= int2hwFloat(x2) + NVx;
05b771423b95 You can't just exit function which is supposed to do copy
unc0rr
parents: 10483
diff changeset
   173
            cy2:= int2hwFloat(y2) + NVy;
05b771423b95 You can't just exit function which is supposed to do copy
unc0rr
parents: 10483
diff changeset
   174
            t:= _0;
05b771423b95 You can't just exit function which is supposed to do copy
unc0rr
parents: 10483
diff changeset
   175
            while (t.Round = 0) and (pa.Count < cMaxEdgePoints-2) do
05b771423b95 You can't just exit function which is supposed to do copy
unc0rr
parents: 10483
diff changeset
   176
                begin
05b771423b95 You can't just exit function which is supposed to do copy
unc0rr
parents: 10483
diff changeset
   177
                tsq:= t * t;
05b771423b95 You can't just exit function which is supposed to do copy
unc0rr
parents: 10483
diff changeset
   178
                tcb:= tsq * t;
05b771423b95 You can't just exit function which is supposed to do copy
unc0rr
parents: 10483
diff changeset
   179
                r1:= (_1 - t*3 + tsq*3 - tcb);
05b771423b95 You can't just exit function which is supposed to do copy
unc0rr
parents: 10483
diff changeset
   180
                r2:= (     t*3 - tsq*6 + tcb*3);
05b771423b95 You can't just exit function which is supposed to do copy
unc0rr
parents: 10483
diff changeset
   181
                r3:= (           tsq*3 - tcb*3);
05b771423b95 You can't just exit function which is supposed to do copy
unc0rr
parents: 10483
diff changeset
   182
                X:= hwRound(r1 * x1 + r2 * cx1 + r3 * cx2 + tcb * x2);
05b771423b95 You can't just exit function which is supposed to do copy
unc0rr
parents: 10483
diff changeset
   183
                Y:= hwRound(r1 * y1 + r2 * cy1 + r3 * cy2 + tcb * y2);
05b771423b95 You can't just exit function which is supposed to do copy
unc0rr
parents: 10483
diff changeset
   184
                t:= t + Delta;
05b771423b95 You can't just exit function which is supposed to do copy
unc0rr
parents: 10483
diff changeset
   185
                pa.ar[pa.Count].x:= X;
05b771423b95 You can't just exit function which is supposed to do copy
unc0rr
parents: 10483
diff changeset
   186
                pa.ar[pa.Count].y:= Y;
05b771423b95 You can't just exit function which is supposed to do copy
unc0rr
parents: 10483
diff changeset
   187
                inc(pa.Count);
05b771423b95 You can't just exit function which is supposed to do copy
unc0rr
parents: 10483
diff changeset
   188
                //TryDo(pa.Count <= cMaxEdgePoints, 'Edge points overflow', true)
05b771423b95 You can't just exit function which is supposed to do copy
unc0rr
parents: 10483
diff changeset
   189
                end;
05b771423b95 You can't just exit function which is supposed to do copy
unc0rr
parents: 10483
diff changeset
   190
        until i = StartI;
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6491
diff changeset
   191
        end;
10485
05b771423b95 You can't just exit function which is supposed to do copy
unc0rr
parents: 10483
diff changeset
   192
05b771423b95 You can't just exit function which is supposed to do copy
unc0rr
parents: 10483
diff changeset
   193
    pa.ar[pa.Count].x:= opa.ar[StartI].X;
05b771423b95 You can't just exit function which is supposed to do copy
unc0rr
parents: 10483
diff changeset
   194
    pa.ar[pa.Count].y:= opa.ar[StartI].Y;
05b771423b95 You can't just exit function which is supposed to do copy
unc0rr
parents: 10483
diff changeset
   195
    inc(pa.Count)
6490
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
   196
end;
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
   197
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
   198
procedure BezierizeEdge(var pa: TPixAr; Delta: hwFloat);
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
   199
var i, StartLoop: LongInt;
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
   200
    opa: TPixAr;
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
   201
begin
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
   202
opa:= pa;
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
   203
pa.Count:= 0;
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
   204
i:= 0;
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
   205
StartLoop:= 0;
10483
1f58cb4aa773 Since unc0rr is quiet, try to avoid the assert
nemo
parents: 10197
diff changeset
   206
while (i < LongInt(opa.Count)) and (pa.Count < cMaxEdgePoints-1) do
6490
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
   207
    if (opa.ar[i + 1].X = NTPX) then
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6491
diff changeset
   208
        begin
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6491
diff changeset
   209
        AddLoopPoints(pa, opa, StartLoop, i, Delta);
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6491
diff changeset
   210
        inc(i, 2);
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6491
diff changeset
   211
        StartLoop:= i;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6491
diff changeset
   212
        pa.ar[pa.Count].X:= NTPX;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6491
diff changeset
   213
        pa.ar[pa.Count].Y:= 0;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6491
diff changeset
   214
        inc(pa.Count);
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6491
diff changeset
   215
        end else inc(i)
6490
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
   216
end;
531bf083e8db - Give uLand more modularity
unc0rr
parents:
diff changeset
   217
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6491
diff changeset
   218
end.