Rem LKW - Setup
Sync On
Sync Rate 60
Autocam Off
Color Backdrop Rgb(32, 32, 32)
Rem LKW - Camera
Position Camera 0, 500, 0 : xRotate Camera 90
Rem LKW - Test subjects
Make Object Cone 1, 50 : Position Object 1, 0, 0, 0 : xRotate Object 1, 90 : Fix Object Pivot 1
Make Object Cube 2, 50 : Position Object 2, 0, 0, 0
Rem LKW - Set max angle difference allowed
maxDiff = 10
Do
Rem LKW - Simple movement and rotation for test purpose
move# = WrapValue( move# + 0.5 )
posx# = Sin( move# ) *150
posz# = Cos( move# ) *150
Position Object 2, posx#, 0, posz#
yRotate Object 1, WrapValue( Object Angle Y(1) - 1 )
Rem LKW - Gather information
origin_xpos# = Object Position X(1) : origin_zpos# = Object Position Z(1)
target_xpos# = Object Position X(2) : target_zpos# = Object Position Z(2)
Rem LKW - Check difference
Angle# = WrapValue( Atanfull( (target_xpos#-origin_xpos#), (target_zpos#-origin_zpos#) ) )
Difference#= ABS( Object Angle Y(1)-Angle# )
OK = (Difference# < maxDiff) Or (Difference# > (360.0-maxDiff) )
Rem LKW - Trigger OK
If OK =1
Line Object Screen X(1), Object Screen Y(1), Object Screen X(2), Object Screen Y(2)
Endif
Sync
Loop
