328                 {c:= GetRandom(32);

   328                 {c:= GetRandom(32);

   329                 gear^.Tint:= (($e0+c) shl 24) or

   329                 gear^.Tint:= (($e0+c) shl 24) or

   330                              ((GetRandom(90)+128) shl 16) or

   330                              ((GetRandom(90)+128) shl 16) or

   331                              (($d5+c) shl 8) or $ff}

   331                              (($d5+c) shl 8) or $ff}

   332                 end;

   332                 end;

   333        gtShell: begin

   334        gtShell: begin

   334                 gear^.Elasticity:= _0_8;

   335                 gear^.Elasticity:= _0_8;

   335                 gear^.Friction:= _0_8;

   336                 gear^.Friction:= _0_8;

   336                 gear^.Radius:= 4;

   337                 gear^.Radius:= 4;

   337                 gear^.Density:= _1;

   338                 gear^.Density:= _1;