Permalink
Browse files

|:

  • Loading branch information...
1 parent dabd2b0 commit 5535fda3db14b10c0baed1dd6ff1c7be254c8fa1 twobit committed Dec 25, 2010
Showing with 53 additions and 63 deletions.
  1. +3 −4 src/main.d
  2. +5 −5 tunes/memories.gs
  3. +1 −1 tunes/moon.gs
  4. +44 −53 tunes/sounds.gs
View
@@ -267,15 +267,16 @@ class Synth {
float l, r;
for(int m = 0; m < len >> 2; m++, buffer += 2) {
synth.mix(l, r);
- buffer[0] = cast(short)(l * 6000);
- buffer[1] = cast(short)(r * 6000);
+ buffer[0] = cast(short)(l * 7000);
+ buffer[1] = cast(short)(r * 7000);
// logging
if(synth.log)
synth.log.write(buffer[0], buffer[1]);
}
}
}
+
void main(string[] args) {
disable;//TODO: fix this!!!!
@@ -298,5 +299,3 @@ void main(string[] args) {
}
-
-
View
@@ -553,14 +553,14 @@ lead3 make_echo : echo3 ;
[ bass0 drum0 _ _ _ ]
- [ bass1 drum1 chord1 lead1 echo1 ]
- [ bass2 drum1 chord2 lead2 echo2 ]
- [ bass1 drum1 chord1 lead1 echo1 ]
- [ bass3 drum2 chord3 lead3 echo3 ]
-
[ bass1 drum1 chord1 _ _ ]
[ bass2 drum1 chord2 _ _ ]
[ bass1 drum1 chord1 _ _ ]
[ bass3 drum2 chord3 _ _ ]
+ [ bass1 drum1 chord1 lead1 echo1 ]
+ [ bass2 drum1 chord2 lead2 echo2 ]
+ [ bass1 drum1 chord1 lead1 echo1 ]
+ [ bass3 drum2 chord3 lead3 echo3 ]
+
] : patterns ;
View
@@ -79,11 +79,11 @@
{ stop }
{}
{ play [ As2 C_3 2 ] m_pitch_slide }
+ { [ C_3 12 100 ] m_vibrato }
{}
{}
{}
{ stop }
- {}
{ play Ds3 pitch m_none }
{ stop }
{ play C_2 pitch }
View
@@ -1,56 +1,47 @@
"std/std.gs" require
-# player
-0 : count ;
-{ melody count = ~ # execute row
- count ) melody , % : count ; # inc count
-} : tick ;
-
-# win sound
-{
- 2500 frame
- 0 attack
- 80 decay
- 0 sustain
- 15 release
- 0 wave
-
- [
- { C_4 pitch play 50 pulse 2500 frame }
- { }
- { E_4 pitch 40 pulse }
- { }
- { G_4 pitch 30 pulse }
- { }
- { D_4 pitch play 40 pulse }
- { }
- { Fs4 pitch 30 pulse }
- { }
- { A_4 pitch 20 pulse }
- { }
- { E_4 pitch play 30 pulse }
- { }
- { Gs4 pitch 20 pulse }
- { }
- { B_4 pitch 10 pulse }
- { 100 frame B_4:ps; }
- { { ps (( : ps pitch stop } } 300 *
- ] : melody ;
-}~
-
-# phaser sound
-{
- 100 frame
- 1 wave
- 0 pulse
- [
- {
- { { ps . pitch 10 - : ps ; } } : q ;
- { play C_8 : ps ; } q +
- { q } 100 *
- } 3 *
- { stop }
- { { } } 500 *
- ] : melody ;
-};
+32 : ticks_per_row ;
+100 frame
+2 attack
+80 decay
+0 sustain
+10 release
+0 wave
+40 pulse
+
+{[.120-\10]m_pitch_slide} : m_funny ;
+
+[
+ { C_4 m_funny play }
+ {}
+ { E_4 m_funny play }
+ {}
+ { G_4 m_funny play }
+ {}
+ { D_4 m_funny play }
+ {}
+ { Fs4 m_funny play }
+ {}
+ { A_4 m_funny play }
+ {}
+ { E_4 m_funny play }
+ {}
+ { Gs4 m_funny play }
+ {}
+ { B_4 m_funny play }
+ { [B_4 6 30] m_vibrato }
+ {}
+ {}
+ { [B_4 0 5] m_pitch_slide }
+ { stop }
+
+ {{}} 10 *
+ { m_none }
+
+] : melody ;
+
+
+[{0:pw;[]{0 channel pw sin 30/40+pulse pw 3+:pw;}macro}{{}}200*]:qqq;
+
+[ [ melody qqq ] ] : patterns ;

0 comments on commit 5535fda

Please sign in to comment.