# picture rotation 1.01
#
# 2003 Jun 13 by Jost Jahn
# jostjahn@t-online.de
# http://www.jostjahn.de
#
# autonum
new
# integer x,y
op "ds","Calculating rotation angle",1,15
op "ds","by given x/y values.",1,25
op "ds","written by Jost Jahn.",1,35
op "ds","jostjahn@t-online.de",1,45
op "ds","http://www.jostjahn.de",1,55
input "Give x value of 1st point: ",x1
input "Give y value of 1st point: ",y1
input "Give x value of 2nd point: ",x2
input "Give y value of 2nd point: ",y2
a=(y2-y1)/(x2-x1)
a=atn(a)*180/3.1415
s=(x2-x1)*(x2-x1)+(y2-y1)*(y2-y1)
s=sqr(s)
? "Rotate ";-a;" degrees."
? "Distance ";s;" pixel.."
end
run