[racket] sample code for vertical sliders in 2htdp/universe

I'm not sure where to stash this; I wrote some fairly extensible sample code (follows the design recipe, natch) to allow my students to create vertical sliders using 2htdp/universe.

Here's a movie of the resulting sliders:

http://www.youtube.com/watch?v=wOrC6IdeJEU

Here's the code:

https://gist.github.com/3949209

Hope this is useful to someone!

John

-------------- next part --------------
A non-text attachment was scrubbed...
Name: smime.p7s
Type: application/pkcs7-signature
Size: 4370 bytes
Desc: not available
URL: <http://lists.racket-lang.org/users/archive/attachments/20121024/d76406a5/attachment-0001.p7s>