equal
deleted
inserted
replaced
22 |
22 |
23 interface |
23 interface |
24 |
24 |
25 procedure Draw; |
25 procedure Draw; |
26 procedure initModule; |
26 procedure initModule; |
|
27 procedure freeModule; |
27 |
28 |
28 implementation |
29 implementation |
29 uses uLandGraphics, uConsts, uUtils, SDLh, uCommands, uDebug; |
30 uses uLandGraphics, uConsts, uUtils, SDLh, uCommands, uDebug; |
30 |
31 |
31 type PointRec = packed record |
32 type PointRec = packed record |
169 pointsListLast:= nil; |
170 pointsListLast:= nil; |
170 |
171 |
171 RegisterVariable('draw', vtCommand, @chDraw, false); |
172 RegisterVariable('draw', vtCommand, @chDraw, false); |
172 end; |
173 end; |
173 |
174 |
|
175 procedure freeModule; |
|
176 var pe, pp: PPointEntry; |
|
177 begin |
|
178 pe:= pointsListHead; |
|
179 while(pe <> nil) do |
|
180 begin |
|
181 pp:= pe; |
|
182 pe:= pe^.next; |
|
183 dispose(pp); |
|
184 end; |
|
185 end; |
|
186 |
174 end. |
187 end. |