[FIX] function rs_GetCompassAngleDegrees: Extended;

Printable View

Show 40 post(s) from this thread on one page

By Home:

Simba Code:

(*
rs_GetCompassAngleRadians
~~~~~~~~~~~~~~~~~~~~~~~~~

.. code-block:: pascal

    function rs_GetCompassAngleRadians: Extended;

Returns the compass angle in radians.

.. note::

    by Wizzup?

Example:

.. code-block:: pascal

*)
function rs_GetCompassAngleRadians: Extended;
var
   Compass: TPointArray;
   MyPoint: TPoint;
   two_pi: extended;
begin
  Result := -1;
  FindColorsTolerance(Compass, 7699891, 520, 2, 560, 40, 0);
  if (Length(Compass) < 1) then
    Exit;
  MyPoint := MiddleTPA(Compass);
  Result := ArcTan2(-(MyPoint.Y - 24), MyPoint.X - 543) - Radians(80);

  two_pi := 2*Pi;
  while (Result > two_pi) do
    Result := Result - two_pi;

  while (Result < two_pi) do
    Result := Result + two_pi;
end;

(*
rs_GetCompassAngleDegrees
~~~~~~~~~~~~~~~~~~~~~~~~~

.. code-block:: pascal

    function rs_GetCompassAngleDegrees: Extended;

Returns the compass angle in degrees.

.. note::

    by Wizzup?

Example:

.. code-block:: pascal

*)
function rs_GetCompassAngleDegrees: Extended;
begin
  Result := Degrees(rs_GetCompassAngleRadians()) - 360.0;
end;

~Home

11-22-2011, 01:51 PM
Nava2

... Are you sure its - 80? :s
11-22-2011, 01:55 PM
Home

Quote:

Originally Posted by Nava2

... Are you sure its - 80? :s

Well Yeah. I was thinking that too for a while.. If it's -90 It won't work. Mabey someone smarter can tell me :)

~Home

Simba Code:

(*
rs_GetCompassAngleRadians
~~~~~~~~~~~~~~~~~~~~~~~~~

.. code-block:: pascal

    function rs_GetCompassAngleRadians: Extended;

Returns the compass angle in radians.

.. note::

    by Wizzup?

Example:

.. code-block:: pascal

*)
function rs_GetCompassAngleRadians: Extended;
var
   Compass: TPointArray;
   MyPoint: TPoint;
   two_pi: extended;
begin
  Result := -1;
  FindColorsTolerance(Compass, 7699891, 520, 2, 560, 40, 0);
  if (Length(Compass) < 1) then
    Exit;
  MyPoint := MiddleTPA(Compass);
  Result := ArcTan2(-(MyPoint.Y - 24), MyPoint.X - 543) - Radians(80);

  two_pi := 2*Pi;
  while (Result > two_pi) do
    Result := Result - two_pi;

  while (Result < two_pi) do
    Result := Result + two_pi;
end;

(*
rs_GetCompassAngleDegrees
~~~~~~~~~~~~~~~~~~~~~~~~~

.. code-block:: pascal

    function rs_GetCompassAngleDegrees: Extended;

Returns the compass angle in degrees.

.. note::

    by Wizzup?

Example:

.. code-block:: pascal

*)
function rs_GetCompassAngleDegrees: Extended;
begin
  Result := Degrees(rs_GetCompassAngleRadians());
end;

Please test these. :)

11-22-2011, 02:11 PM
Home

Uulala what is that mambo jambo Nava ;)

Looks great. I will test when I come out from gym.

Updated mainpost with yours Nava.

~Home
11-22-2011, 02:32 PM
Nava2

Quote:

Originally Posted by Home

Uulala what is that mambo jambo Nava ;)

Looks great. I will test when I come out from gym.

Updated mainpost with yours Nava.

~Home

You wrote them.. I just rearranged! :)
11-22-2011, 07:07 PM
Home
Quote:

Originally Posted by Nava2

You wrote them.. I just rearranged! :)

Heh :)

Anyways. I tested + Fixed a bit.

You forgot this.
Simba Code:
```
function rs_GetCompassAngleDegrees: Extended;
begin
  Result := Degrees(rs_GetCompassAngleRadians()) - 360.0;
end;
```
See that -360.0

~Home
11-22-2011, 09:20 PM
Coh3n

Cool, I'll commit this tonight if no one else has.

I fail at maths.

Simba Code:

(*
fixRad
~~~~~~

.. code-block:: pascal
    function fixRad(rad: Extended): Extended;

Returns the periodic rad in the range (0,2PI].

.. note::
  By Nava2

*)
const
  __TWO_PI = 2 * Pi;

function fixRad(rad: Extended): Extended;
begin
  result := rad;
  while (result >= __TWO_PI) do
    result := result - __TWO_PI;

  while (result < 0) do
    result := result + __TWO_PI;
end;

(*
rs_GetCompassAngleRadians
~~~~~~~~~~~~~~~~~~~~~~~~~

.. code-block:: pascal

    function rs_GetCompassAngleRadians: Extended;

Returns the compass angle in radians.

.. note::

    by Wizzup?

Example:

.. code-block:: pascal

*)
function rs_GetCompassAngleRadians: Extended;
var
   Compass: TPointArray;
   MyPoint: TPoint;
begin
  Result := -1;
  FindColorsTolerance(Compass, 7699891, 520, 2, 560, 40, 0);
  if (Length(Compass) < 1) then
    Exit;
  MyPoint := MiddleTPA(Compass);
  Result := ArcTan2(-(MyPoint.Y - 24), MyPoint.X - 543) - Radians(80);

  Result := fixRad(Result);
end;

(*
rs_GetCompassAngleDegrees
~~~~~~~~~~~~~~~~~~~~~~~~~

.. code-block:: pascal

    function rs_GetCompassAngleDegrees: Extended;

Returns the compass angle in degrees.

.. note::

    by Wizzup?

Example:

.. code-block:: pascal

*)
function rs_GetCompassAngleDegrees: Extended;
begin
  Result := Degrees(rs_GetCompassAngleRadians());
end;

Fixed version, please test this.

11-23-2011, 01:12 AM
Coh3n

Committed. :)
11-23-2011, 02:14 AM
euphemism

We are getting the angle in radians and then converting degrees? As far as I am aware, radians aren't as precise?
11-23-2011, 02:41 AM
Flight

Quote:

Originally Posted by Coh3n

Committed. :)

SRL is saying there's no update available. :huh:
11-23-2011, 02:46 AM
Coh3n

Quote:

Originally Posted by euphemism

We are getting the angle in radians and then converting degrees? As far as I am aware, radians aren't as precise?

I'm not sure. The previous system used degrees, then converted to radians. When I tested, MakeCompass didn't go exactly to N, E, S, W, but was pretty close.

Quote:

Originally Posted by Flight

SRL is saying there's no update available. :huh:

Can take up to an hour for Wizzup's server to get the updates. ;)
11-23-2011, 03:33 AM
Flight

Quote:

Originally Posted by Coh3n

Can take up to an hour for Wizzup's server to get the updates. ;)

Well that might explain a few things. :duh:
11-23-2011, 03:40 AM
wudesan

can't wait
11-23-2011, 04:04 AM
Wanted

It's not terribly accurate. Turn the compass to face east (270) then WriteLn the current angle.
11-23-2011, 04:47 AM
wudesan

script cant open bank :(
11-23-2011, 04:52 AM
Wanted

Quote:

Originally Posted by wudesan

script cant open bank :(

Wrong thread.

Happening because Bankscreen does not use UpChars anymore, it uses the old UpChars i.e. ScreenChars.

That and ChooseOption is not fixed yet.. needs at least a new font set i.e. OptionChars.
11-23-2011, 05:05 AM
Nava2

Quote:

Originally Posted by euphemism

We are getting the angle in radians and then converting degrees? As far as I am aware, radians aren't as precise?

Degrees do not actually exist, degrees are technically a converted form of radians.

Check this out: http://en.wikipedia.org/wiki/Radian
11-23-2011, 05:13 AM
wudesan

Quote:

Originally Posted by Wanted

Wrong thread.

Happening because Bankscreen does not use UpChars anymore, it uses the old UpChars i.e. ScreenChars.

That and ChooseOption is not fixed yet.. needs at least a new font set i.e. OptionChars.

How to set new font?
11-23-2011, 05:17 AM
RISK

Wait for it to be updated, that's all.

Quote:

Originally Posted by wudesan

How to set new font?
11-23-2011, 06:46 PM
ReadySteadyGo

I swear this is inverted from what it was before? All of my minimap functions have broken. Are you sure it doesn't need: Result := -Result + 360;
11-23-2011, 06:57 PM
footballjds

Quote:

Originally Posted by Nava2

Degrees do not actually exist, degrees are technically a converted form of radians.

Check this out: http://en.wikipedia.org/wiki/Radian

that's like saying grads don't exist because technically they're a converted form of Radian.
That's like saying a foot(12 inches) doesn't exist because technically it's a converted form of a meter...

Simba Code:

(*
fixRad
~~~~~~

.. code-block:: pascal
    function fixRad(rad: Extended): Extended;

Returns the periodic rad in the range (0,2PI].

.. note::
  By Nava2

*)
const
  __TWO_PI = 2 * Pi;

function fixRad(rad: Extended): Extended;
begin
  result := rad;
  while (result >= __TWO_PI) do
    result := result - __TWO_PI;

  while (result < 0) do
    result := result + __TWO_PI;
end;

(*
rs_GetCompassAngleRadians
~~~~~~~~~~~~~~~~~~~~~~~~~

.. code-block:: pascal

    function rs_GetCompassAngleRadians: Extended;

Returns the compass angle in radians.

.. note::

    by Wizzup?

Example:

.. code-block:: pascal

*)
function rs_GetCompassAngleRadians: Extended;
var
   Compass: TPointArray;
   MyPoint: TPoint;
begin
  Result := -1;
  FindColorsTolerance(Compass, 7699891, 520, 2, 560, 40, 0);
  if (Length(Compass) < 1) then
    Exit;
  MyPoint := MiddleTPA(Compass);
  Result := ArcTan2(-(MyPoint.Y - 24), MyPoint.X - 543) - Radians(80);

  Result := -fixRad(Result) + 2*Pi;
end;

(*
rs_GetCompassAngleDegrees
~~~~~~~~~~~~~~~~~~~~~~~~~

.. code-block:: pascal

    function rs_GetCompassAngleDegrees: Extended;

Returns the compass angle in degrees.

.. note::

    by Wizzup?

Example:

.. code-block:: pascal

*)
function rs_GetCompassAngleDegrees: Extended;
begin
  Result := Degrees(rs_GetCompassAngleRadians());
end;

Should be this. Change

Simba Code:

Result := fixRad(Result);

Simba Code:

Result := -fixRad(Result) + 2*Pi;

11-23-2011, 11:54 PM
wudesan

Bank option still broke:((((((((

Show 40 post(s) from this thread on one page