Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- : square 2 / / 2 mod 128 * ;
- : sawtooth swap over mod swap 127 swap / * ;
- :var note
- :var voice
- : sample voice @ exec ;
- : rst drop 0 ;
- : C-1 245 4 / sample ; # 32.70
- : C$1 231 4 / sample ; # 34.65
- : D-1 218 4 / sample ; # 36.71
- : D$1 206 4 / sample ; # 38.89
- : E-1 194 4 / sample ;
- : F-1 183 4 / sample ;
- : F$1 173 4 / sample ; # 46.25
- : G-1 163 4 / sample ;
- : G$1 154 4 / sample ; # 51.91
- : A-1 145 4 / sample ;
- : A$1 137 4 / sample ; # 58.27
- : B-1 130 4 / sample ; # 61.74
- : C-2 122 4 / sample ; # 65.41
- : C$2 231 2 / sample ;
- : D-2 218 2 / sample ;
- : D$2 206 2 / sample ;
- : E-2 194 2 / sample ;
- : F-2 183 2 / sample ;
- : F$2 173 2 / sample ;
- : G-2 163 2 / sample ;
- : G$2 154 2 / sample ;
- : A-2 145 2 / sample ;
- : A$2 137 2 / sample ;
- : B-2 130 2 / sample ;
- : C-3 122 2 / sample ;
- :data moon
- F$2 C$2 F$2 G$2 C$2 F$2 G$2 C$2
- B-2 C$2 B-2 A$2 C$2 A$2 G$2 F$2
- :data moon2
- G$2 F$2 F$1 C$2 F$2 G$2 C$2 F$2
- G$2 C$2 B-2 C$2 B-2 A$2 C$2 A$2
- : main
- 0 note !
- loop
- 2000 for
- ' square voice ! i note @ moon + @ exec
- ' sawtooth voice ! i note @ moon2 + @ exec
- or
- AU !
- next
- note @ 1 + 16 mod note !
- again
- ;
Add Comment
Please, Sign In to add comment