Is this something you wanted?
Rem LKW - Setup
Sync On
Sync Rate 60
Color Backdrop RGB(69, 69, 69)
Rem LKW - Simple Texture
Ink RGB(255, 255, 255), 0 : Box 0, 0, 16, 16
Ink 0, 0 : Box 1, 1, 15, 15
Ink RGB(255, 255, 255), 0 : Box 7, 0, 9, 16
Get Image 1, 0, 0, 16, 16
Rem LKW - Object A in kitchen
Make Object Cone 1, 50
xRotate Object 1, 90
Fix Object Pivot 1
Position Object 1, 100, 0, 100
Texture Object 1, 1
Rem LKW - Object B in livingroom
Make Object Cone 2, 50
xRotate Object 2, 90
Fix Object Pivot 2
Position Object 2, -100, 0, -100
Texture Object 2, 1
Rem LKW - Position Camera
Position Camera 0, 500, 0
xRotate Camera 90
Do
Rem LKW - Get Info
targetA# = Atanfull( (Object Position X(1)-Object Position X(2)), (Object Position Z(1)-Object Position Z(2)) ) -180
targetD# = WrapValue( Object Angle Y(1) - targetA# )
Rem LKW - Interact with Space
If SpaceKey() =0 : yRotate Object 1, CurveAngle( targetA#, Object Angle Y(1), 5.0 ) : EndIf
Rem LKW - Move With Arrows
oldy# = Object Angle Y(1)
yRotate Object 1, 0 : Move Object 1, (UpKey() -DownKey()) * 5 : yRotate Object 1, oldy#
yRotate Object 1, 90 : Move Object 1, (LeftKey()-RightKey()) *-5 : yRotate Object 1, oldy#
Rem LKW - Display Info
x = Object Screen X(1) : y = Object Screen Y(1)
Text x+50, y, "Angle: " +Str$(Object Angle Y(1))
Text x+50, y+15, "Target: " +Str$(targetA#)
Text x+50, y+30, "Difference: "+Str$(targetD#)
Center Text Screen Width()/2, Screen Height()-30, "Space to freeze Object A rotation"
Center Text Object Screen X(1), Object Screen Y(1)-30, "Object A"
Center Text Object Screen X(2), Object Screen Y(2)-30, "Object B"
Rem LKW - Draw Triangle
Line Object Screen X(1), Object Screen Y(1), Object Screen X(2), Object Screen Y(2)
Line Object Screen X(1), Object Screen Y(2), Object Screen X(2), Object Screen Y(2)
Line Object Screen X(1), Object Screen Y(1), Object Screen X(1), Object Screen Y(2)
Sync
Loop