Solved

rotating problem

Posted on 1998-10-07
3
241 Views
Last Modified: 2010-04-16
I want to rotate an object.
I have found a way to do that but I need a
formula that gets an angle out of the sin() or cos()
of it.
( I have the angle (a) and I want to find the X ->  
  sin(X) = a )
0
Comment
Question by:yyyannag
  • 2
3 Comments
 
LVL 5

Accepted Solution

by:
scrapdog earned 100 total points
ID: 1215759
For each coordinate of the old image, the new coordinate can be found by using this formula:

OldImageX = NewImageX * cos(theta) - NewImageY * sin(theta)
OldImageY = NewImageX * sin(theta) + NewImageY * cos(theta)

(theta is angle in radians)


NewImageX and Y is the new, rotated image coordinates.  OldImage is the coordinates to extract the pixel from the old image.

Example:


  for i := 0 to NewSprite.Width - 1 do
    for j := 0 to NewSprite.Height - 1 do begin
      nx := (round(x*Cos(A)-y*Sin(A)));
      ny := (round(x*Sin(A)+y*Cos(A)));
      Sprite[i,j] := OldSprite[nx,ny];
    end;


Note that A must be in radians.  To convert from degrees to radians, you multiply by (pi/180).

Example:  the sin of 45 degrees would be

sin(45*pi/180);

In your question, you said you wanted to find X if sin(x) = a.  This would entail finding the inverse sin of a.  I don't know why you would want to find this.  But if you really need to know how to calculate an inverse sin in pascal:

function arcsin(x:real):real;
begin
  arcsin := arctan(x/sqrt(1-sqr(x)));
end;


If you send the function a real value (from -1 to 1 inclusive, the range of the sin function), it will return an angle in radians.

This function will have no practical purpose in rotating something, so consider looking over calculations again.

But your question also says you have the angle.  If you want to find the sin of the angle (which is probably what you want to do) you simply use the sin function:

X := sin(a);  {a is in radians; see note above}


Your formula, sin(x) = angle, would NEVER be used in any practical calculation anywhere.

Try using the formulas I gave you above (OldImageX..etc.) and if that is not what you want let me know.
0
 
LVL 5

Expert Comment

by:scrapdog
ID: 1215760
I made I typo in my answer!! Change this line:


      Sprite[i,j] := OldSprite[nx,ny];

to this:


      NewSprite[i,j] := OldSprite[nx,ny];
0
 
LVL 2

Author Comment

by:yyyannag
ID: 1215761
Thanks for the formula, it was very helpful
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Microsoft Office Picture Manager was included in Office 2003, 2007, and 2010, but not in Office 2013. Users had hopes that it would be in Office 2016/Office 365, but it is not. Fortunately, the same zero-cost technique that works to install it with …
Facing problems with you memory card? Cannot access your memory card? All stored data, images, videos are lost? If these are your questions...than this small article might help you out in retrieving your lost or inaccessible data.
This is a video that shows how the OnPage alerts system integrates into ConnectWise, how a trigger is set, how a page is sent via the trigger, and how the SENT, DELIVERED, READ & REPLIED receipts get entered into the internal tab of the ConnectWise …
With Secure Portal Encryption, the recipient is sent a link to their email address directing them to the email laundry delivery page. From there, the recipient will be required to enter a user name and password to enter the page. Once the recipient …

914 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

17 Experts available now in Live!

Get 1:1 Help Now