# Question:Better Lissajous curves animation

## Question:Better Lissajous curves animation

Maple

Hi! Do you know how can we make more transparent code for this animation plot? I want something similar to this but only for one spot:

my code:

restart;
with(plots);
with(plottools);
display(plot([cos(x), sin(2*x), x = 0 .. 2*Pi]), animate(pointplot, [[[cos(a), 0], [0, sin(2*a)], [cos(a), sin(2*a)]], color = [red, green, green], symbolsize = 23, symbol = solidcircle], a = 0 .. 2*Pi, frames = 100), animate(plot, [[[cos(a), 0], [cos(a), sin(2*a)]], color = red, thickness = 3], a = 0 .. 2*Pi, frames = 100), animate(plot, [[[0, sin(2*a)], [cos(a), sin(2*a)]], color = green, thickness = 3], a = 0 .. 2*Pi, frames = 100), implicitplot(x = cos(t), x = -1 .. 1, t = 0 .. 2*Pi), animate(plot, [[[0, a], [cos(a), a]], color = green, thickness = 3], a = 0 .. 2*Pi, frames = 100), animate(pointplot, [[[0, a], [cos(a), a]], color = green, symbolsize = 23, symbol = solidcircle], a = 0 .. 2*Pi, frames = 100), implicitplot(y = sin(2*t), t = 0 .. 2*Pi, y = -1 .. 1), animate(plot, [[[a, 0], [a, sin(2*a)]], color = red, thickness = 3], a = 0 .. 2*Pi, frames = 100), animate(pointplot, [[[a, 0], [a, sin(2*a)]], color = red, symbolsize = 23, symbol = solidcircle], a = 0 .. 2*Pi, frames = 100), animate(plot, [[[cos(a), sin(2*a)], [a, sin(2*a)]], linestyle = dash, color = red, thickness = 3], a = 0 .. 2*Pi, frames = 100), animate(plot, [[[cos(a), sin(2*a)], [cos(a), a]], linestyle = dash, color = green, thickness = 3], a = 0 .. 2*Pi, frames = 100));

﻿