381     3: I need to extend the beam beyond land.

   381     3: I need to extend the beam beyond land.

   382     This routine perhaps should be pushed into uStore or somesuch instead of continuuing the increase in size of this function.

   382     This routine perhaps should be pushed into uStore or somesuch instead of continuuing the increase in size of this function.

   383     *)

   383     *)

   384             dx:= sign * m * Sin(Gear^.Angle * pi / cMaxAngle);

   384             dx:= sign * m * Sin(Gear^.Angle * pi / cMaxAngle);

   385             dy:= -Cos(Gear^.Angle * pi / cMaxAngle);

   385             dy:= -Cos(Gear^.Angle * pi / cMaxAngle);

   387                 begin

   387                 begin

   388                 lx:= GetLaunchX(HH^.CurAmmoType, sign * m, Gear^.Angle);

   388                 lx:= GetLaunchX(HH^.CurAmmoType, sign * m, Gear^.Angle);

   389                 ly:= GetLaunchY(HH^.CurAmmoType, Gear^.Angle);

   389                 ly:= GetLaunchY(HH^.CurAmmoType, Gear^.Angle);

   390 

   390 

   391                 // ensure we start outside the hedgehog (he's solid after all)

   391                 // ensure we start outside the hedgehog (he's solid after all)