# How to make animate in first person perspective? [closed]

Now,ordinary animate is the obeject moing in fix the coordinate(remote perspective).

But,can we use first person perspective,fix the moving object at the center and just moving(change) the coordinate?

For example,a basketball rotation towards to the basket,can we make this animate just focus on the basketball in the gif center,and change the coordinate?

I think this is a funny question,anyone can give some advice to dynamic change coordinate?

Code example(from Plotting a moving ball for projectile motion with animate)

Clear["Global"];
dt = .01;
velInit = {0, 1.2};
posInit = {1.0, 0};
f[pos_] := -pos/(pos.pos)^(3/2);
vel[{velP_, posP_}] := velP + f[posP] dt
pos[{velP_, posP_}] := posP + vel[{velP, posP}] dt

orbit = NestList[{vel@#, pos@#} &, {velInit, posInit}, 1500][[All, 2]];

Animate[ListPlot[orbit, Joined -> True,
Epilog -> {PointSize@.05, Purple, Point[orbit[[j]]]}],
{j, 1, 1500, 1}]


As we can see,the ball is moving in the fix coordinate.Why not try to fix the ball in the center and then just change the coordinate. i knew in matlab can use 'Set' handle function to dynamic control the coordinates.Well maybe this example isn't benifit to use first-person perspective animate.Just for the question! Aha.

ViewPoint/ViewVector and related options maybe works,i'am doing.Thank you,@Kuba. • Ps.In matlab,you can use 'set' function to dynamic change the coordinate,and export the animate. – Ben Aug 21 '18 at 3:51
• you will find Vitaliy Kaurov - Mastering Dynamic Visualizations with Mathematica very useful. – kglr Aug 21 '18 at 5:24
• Take a look at ViewPoint/ViewVector and related options, come up with simple example and let us know where are you stuck. – Kuba Aug 21 '18 at 5:27
• This one can help too: 3538 – Kuba Aug 21 '18 at 5:28
• I assumed you have 3D case in mind, try with PlotRange for 2D. – Kuba Aug 21 '18 at 5:59

Module[{
dt = .01,
velInit = {0, 1.2},
posInit = {1.0, 0},
f, vel, pos, orbit
},
f[pos_] := -pos/(pos.pos)^(3/2);
vel[{velP_, posP_}] := velP + f[posP] dt;
pos[{velP_, posP_}] := posP + vel[{velP, posP}] dt;
orbit = NestList[{vel@#, pos@#} &, {velInit, posInit}, 1500][[All,
2]];
Animate[
ListPlot[
orbit
, Joined -> True
, AspectRatio -> 2/3
, PlotRange -> {{-3, 3}, {-2, 2}} + orbit[[j]]
, Epilog -> {PointSize@.05, Purple, Point[orbit[[j]]]}
, PlotTheme -> "Scientific"

]
, {j, 1, 1500, 1}
]
]
` 