Amusing Youth With A Computable Document Format

A few months ago, Wolfram proposed the Computable Document Format, a standard format for files with computable content. If you have a CDF reader, you can execute the computations on your own machine. At this point, only Wolfram itself makes software for producing or reading CDFs, and I see no signs of rapid adoption, though it may be taking off in educational communities or others to which I have little exposure.

If you have Wolfram’s Computable Document Player, or Plugin installed on your computer, you should be able to use the following bit of code, which I created to amuse my daughter after the “day of the week your birthday falls on” code failed to do so.

colorList = ColorData["Indexed", "ColorList"][[1]];

Rotate[Style[Text["CHILD'S NAME HERE"], FontSize -> size,
FontColor -> colorList[[Round[color]]]], rotation], {{size, 40},
30, 120}, {rotation, 0, 2*Pi}, {color, 1, Length[colorList]}]

[WolframCDF source=”” CDFwidth=”600″ CDFheight=”600″ altimage=””]

I actually modified it for the CDF, combining the two lines into a single Module[], which the CDF player seems to prefer, and giving a choice of three names. You might think it would be best to include a text entry field so that the program can display any name you like, but the CDF player is Mathematica at heart, if you feed it a solvable math problem as the name, it will try to solve it. Wolfram therefore disallows free-form text entry.