equal
deleted
inserted
replaced
200 |
200 |
201 procedure GenBlank(var Template: TEdgeTemplate); |
201 procedure GenBlank(var Template: TEdgeTemplate); |
202 var pa: TPixAr; |
202 var pa: TPixAr; |
203 i: Longword; |
203 i: Longword; |
204 y, x: Longword; |
204 y, x: Longword; |
205 fps: TPointArray; |
205 fps: TPointArray; |
206 begin |
206 begin |
207 fps:=Template.FillPoints^; |
207 fps:=Template.FillPoints^; |
208 ResizeLand(Template.TemplateWidth, Template.TemplateHeight); |
208 ResizeLand(Template.TemplateWidth, Template.TemplateHeight); |
209 for y:= 0 to LAND_HEIGHT - 1 do |
209 for y:= 0 to LAND_HEIGHT - 1 do |
210 for x:= 0 to LAND_WIDTH - 1 do |
210 for x:= 0 to LAND_WIDTH - 1 do |
211 Land[y, x]:= lfBasic; |
211 Land[y, x]:= lfBasic; |
212 {$HINTS OFF} |
212 {$HINTS OFF} |