horizontal <track> colors [ <solid> gadget new swap >>interior ] map dup length recip [ track-add ] curry each { 640 480 } >>pref-dim "bars" open-window
Done