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