Use new Latching sound for wood doors

wapcaplet · Mar 1, 2022 · 08efee8 · 08efee8
1 parent 2f4b24b
commit 08efee8
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 6 deletions.
diff --git a/cdda/door.orc b/cdda/door.orc
@@ -1,23 +1,26 @@
 ; Door and gate sounds
 
+#include "metal.orc"
+
                 instr           DoorOpen        ; Opening door - latch sound, followed by squeak/swish
 ;----------------------------------------------------------------------------------------------------------------------;
 iDur            =               p3
 iAmp            =               p4
-                schedule        "DoorLatch", 0, iDur, iAmp
+iLatchTime      =               0.2
+                schedule        "Latching", 0, iLatchTime, iAmp
                 schedule        "Swish", 0, iDur*.5, iAmp
-                schedule        "CreakRising", 0, iDur, iAmp
+                schedule        "CreakRising", iLatchTime, iDur-iLatchTime, iAmp
                 endin
 
 
                 instr           DoorClose       ; Closing door - squeak/swish followed by latch/thump sound
 ;----------------------------------------------------------------------------------------------------------------------;
 iDur            =               p3
 iAmp            =               p4
-                schedule        "CreakFalling", 0, iDur, iAmp
+iLatchTime      =               0.2
+                schedule        "CreakFalling", 0, iDur-iLatchTime, iAmp
                 schedule        "Swish", iDur*.3, iDur*.5, iAmp
-                schedule        "DoorLatch", iDur*.7, iDur, iAmp*.5
-                schedule        "Thud", iDur*.8, iDur, iAmp*.5
+                schedule        "Latching", iDur-iLatchTime, iLatchTime, iAmp
                 endin
 
 

diff --git a/demo.csd b/demo.csd
@@ -15,7 +15,6 @@ nchnls = 2
 #include "soundbites.orc"
 #include "soundscapes.orc"
 #include "fire.orc"
-#include "metal.orc"
 #include "rain.orc"
 #include "wind.orc"
 
@@ -25,6 +24,7 @@ nchnls = 2
 
 </CsInstruments>
 <CsScore>
+b 0
 
 ; Walk demo, about 4s long
 i "WalkDemo" 0 10 1