dim angle1 as double
dim angle2 as double
dim distance1 as double
dim distance2 as double
dim newangle1 as double
dim newangle2 as double
dim newx1 as integer
dim newy1 as integer
dim newx2 as integer
dim newy2 as integer
angle1 = arctan(Y1/X1)+180
angle2 = arctan(y2/x2)
distance1=sqrt(abs(X1)^2 + abs(Y1)^2)
distance2=sqrt(abs(X2)^2 + abs(Y2)^2)
newangle1=angle1+rotation
newangle2=angle2+rotation
newx1=distance1*cos(newangle1)
newy1=distance1*sin(newangle1)
newx2=distance2*cos(newangle2)
newy2=distance2*sin(newangle2)
drawline(newx1,newy1,newx2,newy2)