Advanced Search
All Posts : Personal Stories

For Netherlands Fans...

Clare So 175 Maple
July 09 2010
2

Since the FIFA World Cup final is approaching quickly, I have created this animated Netherlands flag.  It is for my Dutch acquaintances to cheer for their favourite team during game.

with(plots):
p := [ seq( 
          plot( [ seq((1/4)*sin(x+`if`(j > i, 1, 0))+1+2*i, i = 0 .. 3) ],
              x = 0 .. 2*Pi, y = 0 .. 8, 
              color = [white, blue, white, red], filled = true, axes = none), 
          j = [0, 1, 2, 3, 4, 3, 2, 1])
       ]:
plots[display](p, insequence = true);

Enjoy!
plot

Please Wait...