Camel99 Forth Information goes here

[+TheBF]

Well this is fun.  We can extend the range down more than an octave using the bass trick with the noise generator driven by channel 3. 

 

\    ==================[ BASS VOICE ]==================
\ Bass voice uses the TENOR oscillator and the noise channel
\ It also has a lower volume so you have to reduce volume of
\ the other channels if used in combination 

: PLAY.BASS  ( fcode -- )
        OSC3 OR  SPLIT  SND! SND!  \ send frequency data on channel 3
            31 ATT3 OR  SND!       \ but chan 3 is silent 

           -5 OSC4 OR SND!          \ select noise channel for output 
     VOLUME @ ATT4 OR SND!          \ send volume 
                                    \ BASS Note is now playing...    

            ON_TIME  @ DELAY   \ set the ISR timer, which auto mutes   
            OFF_TIME @ DELAY   \ time between notes 
;

DECIMAL 
: BASS: ( freq -- )
    CREATE  15 * HZ>CODE ,  \ calibrate freq. & pre-calculate the code 
    DOES> @ PLAY.BASS ;
        
\ FREQ  NATURAL    FREQ  ACCIDENTAL    EN-HARMONIC
    41 BASS: E1 \ Lowest note of Bass guitar 
    44 BASS: F1    46 BASS: F#1         : Gb0  F#1 ;
    49 BASS: G1	   52 BASS: G#1         : Ab   G#1 ;
    55 BASS: A1	   58 BASS: A#1         : Bb   A#1 ;	
    62 BASS: B1 	 	 	 	 
    65 BASS: C2	   69 BASS: C#2         : Db1  C#2 ;	 
    73 BASS: D2    78 BASS: D#2         : Eb1  D#2 ;	 
    82 BASS: E2 \ Lowest Note of Guitar
    87 BASS: F2	   93 BASS: F#2         : Gb1  F#2 ;	 
    98 BASS: G2	  104 BASS: G#2         : Ab1  G#2 ;