TI-Innovator Rover demo program #3 [Dance] - APMEP 2017 Nantes
The dancing code below is making the robot move while playing music.
----------
{1041.74,928.09,1041.74,928.09,928.09,619.43,928.09,520.87}→L₁
{0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125}→L₂
{0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125}→L₃
{1041.74,1169.32,1238.85,1169.32,1238.85,1041.74,1169.32,1041.74,1169.32,928.09,1041.74,928.09,1041.74,826.83,1041.74}→L₄
{0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125}→L₅
{0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.625}→L₆
0.76→F
Send("CONNECT RV")
Send("SET RV FORWARD 2")
Send("SET RV BACKWARD 2")
Send("SET RV FORWARD 1")
Send("SET RV.COLOR 255 0 255")
For(I,1,3)
Send("SET RV.COLOR 102 255 102")
Send("SET RV LEFT 30")
Send("SET RV RIGHT 30")
Send("SET RV FORWARD 1")
Send("SET RV RIGHT 30")
Send("SET RV.COLOR 51 102 255")
For(A,1,dim(L₁))
Send("SET SOUND TO eval(L₁(A)) eval(L₂(A)*F)")
Wait L₂(A)*F+L₃(A)*F
End
Send("SET RV LEFT 180")
Send("SET RV.COLOR 255 0 255")
Send("SET RV LEFT 30")
Send("SET RV BACKWARD 1")
Send("SET RV LEFT 30")
Send("SET RV RIGHT 30")
Send("SET RV.COLOR 102 255 102")
For(A,1,dim(L₁))
Send("SET SOUND TO eval(L₁(A)) eval(L₂(A)*F)")
Wait L₂(A)*F+L₃(A)*F
End
Send("SET RV.COLOR 51 102 255")
Send("SET RV FORWARD 1")
Send("SET RV RIGHT 30")
Send("SET RV LEFT 30")
Send("SET RV RIGHT 30")
Send("SET RV LEFT 30")
For(A,1,dim(L₄))
Send("SET SOUND TO eval(L₄(A)) eval(L₅(A)*F)")
Wait L₅(A)*F+L₆(A)*F
End
Send("SET RV BACKWARD 1")
Send("SET RV.COLOR 102 255 102")
End
For(Q,1,2)
For(A,1,dim(L₁))
Send("SET SOUND TO eval(L₁(A)) eval(L₂(A)*F)")
Wait L₂(A)*F+L₃(A)*F
End
End
For(A,1,dim(L₄))
Send("SET SOUND TO eval(L₄(A)) eval(L₅(A)*F)")
Wait L₅(A)*F+L₆(A)*F
End
Send("SET RV LEFT 360)
Send("SET RV.COLOR 0 0 0")
----------
Source : https://education.ti.com/-/media/ti/files/resources/rover/ti-innovator-rover-demo-programs-84.8xp