[Back to GRAPHICS SWAG index] [Back to Main SWAG index] [Original]

      {
        This procedure will draw a line from an origin point for a
        specified length at a specified angle using the current linestyle.
        Must be in graphics mode.
      }

    Procedure Azimuth(OrigX,OrigY,Length:integer;Angle:real);

                     { OrigX and OrigY - starting point coordinates }
                     { Length          - length of the line         }
                     { Angle           - self explainatory          }

    var A,B:real;

    begin
      Angle:=(Angle*pi)/180.0;    { convert angle in degrees to radians }

      moveto(OrigX,OrigY);        { move to the starting point          }

      A:=Length*sin(Angle);       { get there from here                 }
      B:=Length*cos(Angle);

      linerel(round(B),round(A)); { draw line to calculated endpoint    }
    end;

[Back to GRAPHICS SWAG index] [Back to Main SWAG index] [Original]