;;VeloRange.CAL
;;	(Velocity Range)
;;	Written By 蛞蝓なめちゃん, 1997/09/10
;;	           odasan@ma.catv.ne.jp
;;	機  能 : 指定範囲内の velocity の最大値、最小値、範囲を調べます。
;;	使用法 : 対象範囲を選択して、本 program を実行するだけ。
;;	 UNDO  : 無意味です。データは書き換えていませんから。

(do
	(int min 127)
	(int max 0)
	(int diff)
	(forEachEvent
		(if (== Event.Kind NOTE)
			(do	(if (> Note.Vel max)
					(= max Note.Vel)
				)
				(if (< Note.Vel min)
					(= min Note.Vel)
				)
			)
		)
	)
	(= diff (- max min))
	(pause "MIN : " min "   MAX : " max "   Range : " diff)
)