Tuning Fork

Manipulate[
Module[{stripes},stripes /: Random`DistributionVector[stripes[(r_)?Positive], 
    n_Integer,prec_?Positive] :=Transpose@{Mod[#/5+.1 Cos[3.7#]+t,1]+.15&@RandomReal[{0,r}, n,WorkingPrecision->prec],RandomReal[1, n,WorkingPrecision->prec]};Show[ListPlot[RandomReal[stripes[8],3000],PlotStyle->RGBColor[.25,.43,.82]],Plot[.1Cos[ 17.76`t0-19t+2.2]-.25,{t0,0.2,1.2},PlotStyle->RGBColor[.25,.43,.82]],Graphics[{EdgeForm[RGBColor[.25,.43,.82]],RGBColor[.25,.43,.82],Polygon[{{-.12,0},{-.12-.01Sin[20t],1},{-.05-.01Sin[20t],1},{-.05,0}}],Polygon[{{.12,0},{.12+.01Sin[20t],1},{.05+.01Sin[20t],1},{.05,0}}],Polygon[{{.05,-1},{.05,0},{-.05,0},{-.05,-1}}],Disk[{0,0},.12,{π,2π}],EdgeForm[],White,Disk[{0,0},.05]}],PlotRange->{{-.3,1.5},{-1.1,1.1}},AspectRatio->1,Axes->False,ImageSize->{450,450}]],
{{t,0,"time"},0,1}]

THIS NOTEBOOK IS THE SOURCE CODE FROM

"Tuning Fork" from The Wolfram Demonstrations Project
 http://demonstrations.wolfram.com/TuningFork/

Contributed by: Enrique Zeleny

A full-function Wolfram Mathematica system (Version 6 or higher) is required to edit this notebook.
GET WOLFRAM MATHEMATICA »

© The Wolfram Demonstrations Project & Contributors   |   Terms of Use   |   Make a new version of this Demonstration »