mouse: set pitch with mouse in scheme