;;VelAdd.CAL
;;	(Add to Velocity)
;;	Written By 蛞蝓なめちゃん, 1997/09/15
;;	            odasan@ma.catv.ne.jp
;;	機  能 : velocity を 一定値増減します。
;;	使用法 : ・対象範囲を選択したあと、本 program を実行。
;;	         ・増減する値を入力します。
;;	注  意 : ・増減したあとの値が 0 〜 127 の範囲外になれば、
;;             error message を表示します。
;;	           "OK" で、    その音は 何もせず、skip します。
;;	           "CANCEL" で、以降の処理を取りやめます。
;;	 UNDO  : 編集メニューの「元に戻す」で、
;;	         「CAL(forEachEvent)」を取消せば、元に戻ります。

(do	(int n 0)				;; n = 増減する値 ... 初期値は 0
	(long c)
	(getInt n "Add ? to Velocity" -127 127)
	(forEachEvent
		(if	(== Event.Kind NOTE)
			(do	(= c (+ n Note.Vel))
				(if	(|| (< c 0) (> c 127))
					(pause "Velocity 値が 0〜127 を超えました。
							 [ESC] to exit")
					(= Note.Vel c)
				)
			)
		)
	)
)