maxscript 演奏生日快乐歌

▼ 折叠代码 [共 16 行]

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()