set default velocity to be one

scale the value when generating the midi file

	modified:   MidiGen.hs
	modified:   Parser.hs
	modified:   input/example4