changeset 3697 | d5b30d6373fc |
parent 3609 | bc63ed514b70 |
child 4357 | a1fcfc341a52 |
3695:c11abf387a7d | 3697:d5b30d6373fc |
---|---|
385 |
385 |
386 // edge-crawl |
386 // edge-crawl |
387 for i:= 0 to 8 do |
387 for i:= 0 to 8 do |
388 begin |
388 begin |
389 // using mx,my as temporary value buffer here |
389 // using mx,my as temporary value buffer here |
390 |
390 |
391 jfr:= 8+li+1; |
391 jfr:= 8+li+1; |
392 jto:= 8+li-1; |
392 jto:= 8+li-1; |
393 |
393 |
394 for j:= jfr downto jto do |
394 for j:= jfr downto jto do |
395 begin |
395 begin |