This just shows how to calculate the X Y distance between several points.
StartPointx as Float : StartPointx = 200
StartPointy as Float : StartPointy = 200
Distance as Float : Distance = 50
Angle as Float : Angle = 0
Point2X as Float
Point2Y as Float
Point3X as Float
Point3Y as Float
XDistance as Float
YDistance as Float
Do
cls
Set Cursor 0,0 : Print "Angle: ", Angle
Set Cursor 0,20 : Print "Distance Between (P1 and P2) (P1 and P3): ", Distance
Set Cursor 0,40 : Print "X,Y Distance Between Point Two and Three: " , XDistance, "," ,YDistance
Set Cursor 0,450 : Print "Press Left/Right Key to change the Angle and Up/DownKey to change the Distance"
If Leftkey() =1 then Angle = WrapValue(Angle - 0.02)
If Rightkey()=1 then Angle = WrapValue(Angle + 0.02)
If Upkey() =1 then Distance = Distance + 0.02
If Downkey() =1 then Distance = Distance - 0.02
Point2X = cos(Wrapvalue(Angle))*Distance
Point2Y = sin(Wrapvalue(Angle))*Distance
Point2X = Point2X + Startpointx
Point2Y = Point2Y + Startpointy
Point3X = cos(Wrapvalue(Angle+45))*Distance
Point3Y = sin(Wrapvalue(Angle+45))*Distance
Point3X = Point3X + Startpointx
Point3Y = Point3Y + Startpointy
XDistance = Point3X - Point2X
YDistance = Point3Y - Point2Y
Set Cursor Startpointx,StartpointY : Print "P1"
Set Cursor Point2X,Point2Y : Print "P2"
Set Cursor Point3X,Point3Y : Print "P3"
Circle Startpointx, Startpointy , Distance-1
Line Startpointx,Startpointy, Point2X, Point2Y
Line Startpointx,Startpointy, Point3X, Point3Y
Line Point2X , Point2Y , Point3X, Point3Y
Loop
Better to be dead, than to live your life afraid.
