287                 end;

   287                 end;

   288 

   288 

   289      gtFlake: begin

   289      gtFlake: begin

   290                 with Gear^ do

   290                 with Gear^ do

   291                     begin

   291                     begin

   292                     Radius:= 1;

   293                     Radius:= 1;

   293                     DirAngle:= random * 360;

   294                     DirAngle:= random * 360;

   294                     dx.isNegative:= GetRandom(2) = 0;

   295                     dx.isNegative:= GetRandom(2) = 0;

   295                     dx.QWordValue:= GetRandom(100000000);

   296                     dx.QWordValue:= GetRandom(100000000);

   296                     dy.isNegative:= false;

   297                     dy.isNegative:= false;