Object movement based on rotation | SlinDev | Page 1

dry agate Dec 23, 2025, 5:00 PM

#

Left-right movement

LABEL loop
GREATER R3 plne.Pos.X Lsto.Pos.X
IF R3 LeftStop
LESS R4 plne.Pos.X Rsto.Pos.X
IF R4 RightStop
LESS R2 hndl.Rot.X -45
IF R2 right
GREATER R0 hndl.Rot.X 45
IF R0 left
GOTO loop
LABEL left
ADD plne.Pos.X plne.Pos.X 0.01
SLEEP 0
GREATER R3 plne.Pos.X Lsto.Pos.X
IF R3 LeftStop
LESS R4 plne.Pos.X Rsto.Pos.X
IF R4 RightStop
LESS R2 hndl.Rot.X -45
IF R2 right
GREATER R1 hndl.Rot.X 45
IF R1 left
GOTO loop
LABEL right
ADD plne.Pos.X plne.Pos.X -0.01
SLEEP 0
GREATER R3 plne.Pos.X Lsto.Pos.X
IF R3 LeftStop
LESS R4 plne.Pos.X Rsto.Pos.X
IF R4 RightStop
LESS R1 hndl.Rot.X -45
IF R1 right
GREATER R0 hndl.Rot.X 45
IF R0 left
GOTO loop
LABEL LeftStop
ADD plne.Pos.X plne.Pos.X -0.01
GOTO loop
LABEL RightStop
ADD plne.Pos.X plne.Pos.X 0.01
GOTO loop

Up-down movement

LABEL loop
GREATER R3 plne.Pos.Y Tsto.Pos.Y
IF R3 TopStop
LESS R4 plne.Pos.Y Bsto.Pos.Y
IF R4 BottomStop
LESS R2 hndl.Rot.Z -45
IF R2 Down
GREATER R0 hndl.Rot.Z 45
IF R0 Up
GOTO loop
LABEL Up
ADD plne.Pos.Y plne.Pos.Y 0.01
SLEEP 0.15
GREATER R3 plne.Pos.Y Tsto.Pos.Y
IF R3 TopStop
LESS R4 plne.Pos.Y Bsto.Pos.Y
IF R4 BottomStop
LESS R2 hndl.Rot.Z -45
IF R2 Down
GREATER R1 hndl.Rot.Z 45
IF R1 Up
GOTO loop
LABEL Down
ADD plne.Pos.Y plne.Pos.Y -0.01
SLEEP 0.15
GREATER R3 plne.Pos.Y Tsto.Pos.Y
IF R3 TopStop
LESS R4 plne.Pos.Y Bsto.Pos.Y
IF R4 BottomStop
LESS R1 hndl.Rot.Z -45
IF R1 Down
GREATER R0 hndl.Rot.Z 45
IF R0 Up
GOTO loop
LABEL TopStop
ADD plne.Pos.Y Tsto.Pos.Y -0.01
GOTO loop
LABEL BottomStop
ADD plne.Pos.Y Bsto.Pos.Y 0.01
GOTO loop