maxscript 演奏生日快乐歌

fn play =
(
	hz = #(392, 392, 440, 392, 523, 494, 392, 392, 440, 392, 587, 523, 392, 392, 784, 659, 523, 494, 440, 698, 698, 659, 523, 587, 523)
	intervals = #( 375, 125, 500, 500, 500, 1000, 375, 125, 500, 500, 500, 1000, 375, 125, 500, 500, 500, 500, 1000, 375, 125, 500, 500, 500, 1000)

	for i = 1 to hz.count do
	(
		frequency = hz[i]
		duration = intervals[i] *= 0.5
		(dotNetClass "System.Console").Beep frequency duration
		if keyboard.escPressed do exit
	)
)

play()
posted @ 2025-01-16 10:56  trykle  阅读(37)  评论(0)    收藏  举报