Paste: rosetta display bars

Author: jon
Mode: factor
Date: Thu, 28 Aug 2014 15:13:19
Plain Text |
horizontal <track>
colors [ <solid> gadget new swap >>interior ] map
dup length recip
[ track-add ] curry each
{ 640 480 } >>pref-dim
"bars" open-window

New Annotation

Summary:
Author:
Mode:
Body: