hedgewars/uGearsRender.pas
changeset 12306 cdd884397760
parent 12211 00bcaa0e0ef6
child 12376 c80c51f59a98
equal deleted inserted replaced
12305:d3a52e51efd4 12306:cdd884397760
   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);
   386             if cLaserSighting then
   386             if cLaserSighting or cLaserSightingSniper then
   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)