Animate a Rotating Lissajous Figure
Perl - 177

while($d+=.1){print&quot;\e[H\e[2J&quot;;$a=0;while(($a+=.01)&lt;4*atan2 1,0){$x=$==40+40*cos$d+$a*$ARGV[0];$y=$==13+13*sin$d+$a*$ARGV[1];print&quot;\e[$y;$x&quot;.&quot;H#&quot;;}print$/;select($v,$v,$v,.03);}

The coefficients are passed via arguments. The above gif is produced from perl % 2 3