equal
deleted
inserted
replaced
57 eX:= 0; |
57 eX:= 0; |
58 eY:= 0; |
58 eY:= 0; |
59 dX:= X2 - X1; |
59 dX:= X2 - X1; |
60 dY:= Y2 - Y1; |
60 dY:= Y2 - Y1; |
61 |
61 |
62 if (dX > 0) then sX:= 1 |
62 if (dX > 0) then |
|
63 sX:= 1 |
63 else |
64 else |
64 if (dX < 0) then |
65 if (dX < 0) then |
65 begin |
66 begin |
66 sX:= -1; |
67 sX:= -1; |
67 dX:= -dX |
68 dX:= -dX |
68 end else sX:= dX; |
69 end |
|
70 else |
|
71 sX:= dX; |
69 |
72 |
70 if (dY > 0) then sY:= 1 |
73 if (dY > 0) then |
|
74 sY:= 1 |
71 else |
75 else |
72 if (dY < 0) then |
76 if (dY < 0) then |
73 begin |
77 begin |
74 sY:= -1; |
78 sY:= -1; |
75 dY:= -dY |
79 dY:= -dY |
76 end else sY:= dY; |
80 end |
|
81 else |
|
82 sY:= dY; |
77 |
83 |
78 if (dX > dY) then d:= dX |
84 if (dX > dY) then |
79 else d:= dY; |
85 d:= dX |
|
86 else |
|
87 d:= dY; |
80 |
88 |
81 x:= X1; |
89 x:= X1; |
82 y:= Y1; |
90 y:= Y1; |
83 |
91 |
84 for i:= 0 to d do |
92 for i:= 0 to d do |
99 b:= true |
107 b:= true |
100 end; |
108 end; |
101 if b then |
109 if b then |
102 begin |
110 begin |
103 inc(len); |
111 inc(len); |
104 if (len mod 4) = 0 then FillRoundInLand(X, Y, 34, lfBasic) |
112 if (len mod 4) = 0 then |
|
113 FillRoundInLand(X, Y, 34, lfBasic) |
105 end |
114 end |
106 end |
115 end |
107 end; |
116 end; |
108 |
117 |
109 procedure chDraw(var s: shortstring); |
118 procedure chDraw(var s: shortstring); |