File: SetInitialVolumeToZero.scm

package info (click to toggle)
denemo 2.6.49-0.2
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 66,916 kB
  • sloc: ansic: 94,587; lisp: 38,713; xml: 22,675; python: 1,930; sh: 1,239; makefile: 642; yacc: 288; sed: 93
file content (19 lines) | stat: -rw-r--r-- 738 bytes parent folder | download | duplicates (7)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
;;;SetInitialVolumeToZero
(d-PushPosition)
(d-MoveToBeginning)
(if (and (d-Directive-standalone? "Mute") (> (d-DirectiveGet-standalone-override "Mute") 0))
	(begin
	(d-SetSaved #f)
	(d-DirectivePut-standalone-midibytes "Mute" "")
	(d-DirectivePut-standalone-override "Mute" 0)
	(d-DirectivePut-standalone-graphic "Mute" "Speaker_Icon"))
	(begin
	(d-DirectivePut-standalone "Mute")
	(d-DirectivePut-standalone-graphic "Mute" "Speaker_Icon_Mute")
	(d-DirectivePut-standalone-midibytes "Mute" "0")
	(d-DirectivePut-standalone-minpixels "Mute" 50)
	(d-DirectivePut-standalone-gx "Mute" 20)
	(d-DirectivePut-standalone-override "Mute" (logior DENEMO_OVERRIDE_VOLUME DENEMO_OVERRIDE_STEP))	
	(d-SetSaved #f)))
(d-PopPosition)
(d-RefreshDisplay)