Background

I first encountered Mathematica when version 7 was being released. One video stands out in my memory (besides the feature list) as convincing me to buy a copy. I've decided to start making some quick demo videos. The code is toy-ish, but as a kid these were the kinds of things I wanted to get my computer to do. The ability to contribute as a programmer to science, technology, and business came much later. I want there to be more programmers in the world, so maybe these types of demos can help convince people to start programming with Wolfram as their first language. There aren't as many job postings for Mathematica proficiency yet as I'd like, but if you learn a language as big as the Wolfram Language, you should be able to handle most programming jobs pretty easily.

Flapping bird

Video

Manipulate[
 Graphics[Line@
    AnglePath@Table[Sin[x - t]/4, {x, 0, Pi/2, Pi/10}] // {#, 
     Scale[#, {-1, 1}, {0, 0}]} &, PlotRange -> 5], {t, 0, 10}]