equal
deleted
inserted
replaced
35 interface |
35 interface |
36 uses uGears; |
36 uses uGears; |
37 {$INCLUDE options.inc} |
37 {$INCLUDE options.inc} |
38 const cMaxGearArrayInd = 255; |
38 const cMaxGearArrayInd = 255; |
39 |
39 |
40 type TDirection = record |
40 type PGearArray = ^TGearArray; |
41 dX, dY: integer |
|
42 end; |
|
43 PGearArray = ^TGearArray; |
|
44 TGearArray = record |
41 TGearArray = record |
45 ar: array[0..cMaxGearArrayInd] of PGear; |
42 ar: array[0..cMaxGearArrayInd] of PGear; |
46 Count: Longword |
43 Count: Longword |
47 end; |
44 end; |
48 |
45 |