Post by: Dav on April 10, 2020, 07:36:39 pm
How to use the program is in the code. Hoe you enjoy it.
- Dav
Note: Jump to latest version here:
https://www.qb64.org/forum/index.php?topic=2459.msg117923#msg117923 (https://www.qb64.org/forum/index.php?topic=2459.msg117923#msg117923)
Post by: bplus on April 10, 2020, 08:33:23 pm
[ This attachment cannot be displayed inline in 'Print Page' view ]
Post by: FellippeHeitor on April 10, 2020, 09:35:00 pm
Post by: johnno56 on April 10, 2020, 11:38:58 pm
Post by: Dav on April 11, 2020, 09:16:25 am
Somehow I need to remove the delay when a user clicks the button. Will have to rewrite how I'm getting the mouse click. As it is now, you can pause it by holding down the mouse button.
- Dav
Post by: FellippeHeitor on April 11, 2020, 09:55:42 am
Post by: Ashish on April 11, 2020, 10:10:53 am
Post by: SMcNeill on April 11, 2020, 11:28:50 am
Post by: TempodiBasic on April 11, 2020, 11:46:29 am
I have just tried it and I find it wonderful!
Music is fantastic, all the genres.
take a look to the video and good hearing
https://www.youtube.com/watch?v=eSLFVYwGF0c (https://www.youtube.com/watch?v=eSLFVYwGF0c)
Post by: Petr on April 11, 2020, 03:33:15 pm
Quote
With Terry's piano and Davy's drums, all we need now is somebody to add guitar/bass, and we're all set to make our own music! (Which, with my great musical talents, could only be used as a soundtrack for the cacophonous backdrop of a game set in the deepest layers of hell...)
Steve, I know exactly what you're talking about. My song? Put the nails in the pan and throw it down the stairs. The following nois is a song from me.
Post by: STxAxTIC on April 11, 2020, 03:37:49 pm
Post by: johnno56 on April 11, 2020, 06:15:47 pm
Post by: OldMoses on April 11, 2020, 08:07:22 pm
P.S. A save feature would be really cool at this point. Oops I see it's already being contemplated. Never mind...
Post by: Dav on April 11, 2020, 10:57:37 pm
Here's what I have in mind for future versions... I'd like to use several sounds for each instrument during playback, and rotate playing them, so the sounds don't clip off when playing a new note (like the cymbal sound does currently) and it should sound more natural, especially when playing notes close together quickly. I'd like to add pages to make longer patterns, and a Bass page to write/play a bass pattern while the drums play. I'll have to re-write a lot to incorporate pages. Also, a mute instrument option. Currently assembling more sounds for more drum kits. I need to re-arrange layout too to show everything, add put up clickable buttons for the options, add a help screen.
Really impressive how well QB64 handles playing so many audio files at once.
- Dav
Post by: Dav on April 14, 2020, 09:25:25 pm
'New in v0.1b
Added: Added Two more intruments, Clave, Triangle
Added: Right click over squares to quickly erase them.
Added: Press "d" enters drawing mode, then ESC will exit drawing mode.
When in drawing mode, playback stops.
Added: Simple file save/load of pattern, (s = save, l = load)
Pattern saved as drummachine.sav in current directory.
This file is auto-loaded on startup, if it exists.
Added: Double open/play longer playing sounds for more realstic sound,
Instead of playing same sound for low/high vol, which often clipped,
two file handles are used now, one plays high vol, one for low vol.
Added: Instrumet name images. I plan on them being clickable soon (to mute)
Added: Gave the program a TITLE bar name
Fixed: Show 1st marker position when doing a reset (enter) when paused.
Fixed: Stopped hhopen from playing when hhclosed starts, like it should.
Download v0.1b here ->
- Dav
Post by: TrialAndTerror on April 14, 2020, 10:27:14 pm
Very inspiring.
I haven't looked into the code but I have a question:
Can you make it run 3/4 too?
It's an essential feature for a drum machine.
T&T
Post by: QBExile on April 15, 2020, 06:46:15 am
Post by: TempodiBasic on April 15, 2020, 06:06:02 pm
I can say that this new version is a good improvement...and it runs well also in Kubuntu!
Great job
Post by: Dav on April 16, 2020, 10:58:05 am
@TrialAndTerror: Not currently, but I will work on implementing other meters like 3/4.
@TempodiBasic: Thanks for the Linux report. I was thinking about using Win API's for some things planned, but I will put that off to keep it Linux friendly.
- Dav
Post by: Pete on April 16, 2020, 02:08:39 pm
[ This attachment cannot be displayed inline in 'Print Page' view ]
Post by: Petr on April 16, 2020, 04:56:22 pm
Post by: Dav on April 17, 2020, 08:08:01 am
I tried to draw a reply Pete, but I couldn't fit in anything funny - now I just gotta expand the playing grid.
- Dav
Post by: Pete on April 17, 2020, 12:07:03 pm
Pete
Post by: Petr on April 17, 2020, 04:36:22 pm
[ This attachment cannot be displayed inline in 'Print Page' view ]
Post by: Dav on April 18, 2020, 10:41:52 am
- Dav
Post by: Petr on April 18, 2020, 03:10:57 pm
I am very pleased to announce the completion of my resolution. You can now save the SAV file that creates this wonderful Dav´s program using my utility as a WAV file. The only thing he needs to fine-tune is the volume level of some instruments, but I think, Dav can handle it better, because I absolutely do not have musical hearing.
To run the program, you need all the tools converted to WAV and the SAV file that is the output of Dave's drummachine program. All this, including the source code, is attached.
Code: QB64: [Select]
- 'Dav SAV to WAV utility
- FileName$ = "drummachine.sav"
- TYPE Snd
- TYPE OtpSndHelper
- FF = FREEFILE
- y = 1
- x = 0
- 'converse from 1D array to 2D array (uncompatible with QB64 logic, IS NOT POSSIBLE read Sounds() direct with GET for the same data order!)
- x = x + 1
- Sounds(x, y) = s1(a)
- PRINT "Loading DAV's SAV file..."
- PRINT "Tempo:"; tempo
- PRINT "Buttons:"; buttons
- PRINT "Patterns:"
- 'test
- NEXT x, y
- PRINT "Loaded sounds data table. Press key..."
- PRINT "Loading WAV samples"
- RESTORE Samples
- READ s$
- Sample$ = "wavsamples\" + s$ + ".wav"
- Samples(LoadSamples) = WAVtoRAW(Sample$)
- PRINT "Loaded sample: "; s$
- 'DATA samples order MUST be in the same order as in drummachine.bas on left (from top to bottom)
- Samples:
- DATA "crash","ride","hhopen","hhclosed","tomhigh","tommid","tomlow","snare","kick","cowbell","shaker","tamb","vibraslap","gong","triangleshort","clave"
- 'Insert samples to time track
- DelayTime = 60 / 4 / tempo
- TimeTrack(x, y) = DelayTime * x
- NEXT x, y
- PRINT "Time track done. Creating WAV content..."
- lenght& = 44100 * TimeTrack(column, row) ' calculate lenght for track in BYTES: Time lenght * sample rate (44100 is used also in WAV header)
- RESTORE status1
- READ vol 'INFO for DAV: This is the same as your SUB PLAYBEAT. status1: is for "1" values
- RESTORE status2
- READ vol 'INFO for DAV: This is the same as your SUB PLAYBEAT. status1: is for "2" values
- RAWCOPY Samples(row), newsound(), lenght&, vol ' copy sounds to correct places (in time) to array (if on this places is sound, is content
- RealLenght newsound(), DelayTime * 32 + 3 ' (32 samples + 3 seconds lenght extra)
- PRINT "Done. Saving file drummachine.wav... (16 bit stereo, 44100)"
- SAVESOUND16S newsound(), "drummachine.wav"
- PRINT "Operation comleted. SAV file is now saved as WAV music file."
- 'DAV, here you can reset VOLUME values (if sound in WAV for sample is too loud, or too silent)
- 'values are rewrited from original DAV's drummachine.bas program
- status1: '1 in sav table
- status2: '2 in sav table
- FUNCTION WAVtoRAW (file$) ' Function load WAV file (this just 16bit, stereo format) and load it to array as RAW.
- TYPE head
- ch = FREEFILE
- block = H.Block
- RATE = H.rate
- chan = H.channels
- bits = H.Bits
- lef = lefi / 65535
- righ = righi / 65535
- OutputSound(oss + plll).Left = lef
- OutputSound(oss + plll).Right = righ
- NEXT plll
- CLOSE ch
- WAVtoRAW = OTP_Size
- ff = FREEFILE
- CLOSE #ff
- SoundLenghtInBytes = OTP(handle).Offset_End - OTP(handle).Offset_Start
- OTPS = OTP(handle).Offset_Start
- arr(rc).Left = OutLeft
- arr(rc).Right = OutRight
- OTPS = OTPS + 1
- NEXT rc
- TYPE head16
- ch = FREEFILE
- H16.chunk = "RIFF"
- H16.size = 44 + UBOUND(arr) * 4 'two channels, it create 16 bit, stereo wav file, one sample use 2 bytes to one channel
- H16.fomat = "WAVE"
- H16.sub1 = "fmt "
- H16.subchunksize = 16
- H16.format = 1
- H16.channels = 2
- H16.rate = 44100
- H16.ByteRate = 44100 * 2 * 16 / 8
- H16.Block = 4
- H16.Bits = 16
- H16.subchunk2 = "data"
- LeftChannel = arr(audiodata).Left * 32768
- RightChannel = arr(audiodata).Right * 32768
- CLOSE ch
This is known music for Dav's drummachine testers:
Is recorded sound in WAV file too fast or too slow? Go to row 84 in source code and try this: DelayTime = 1.25 * 60 / 4 / tempo
Quote
I sure appreciate your efforts helping my programs.
Thank you, it's training and preparation for my own music editor. For example. Have you considered the possibility of different TEMPO values for individual music tracks, or only in some parts? It's just the thing I'm thinking about.
Post by: Dav on April 19, 2020, 05:56:44 pm
About different TEMPO for individual tracks, I haven't considered it, but I'm open to it. Right now I'm trying to come up with allowing set pattern lengths, and changing meters (1/2, 34,etc).
I have a couple of other coding projects taking most of my attention at the moment (and working in the garden), but I will be continue improving the drum machine. If I get a new job though (desperately looking..) my coding projects will be slowing down.
You are a good coder.
- Dav
Post by: Pete on April 19, 2020, 06:26:02 pm
Wow, now we have sight and sound. I'll have to link TheBOB to this thread, as he is quite the music lover.
Now step on it Gates, you dumbass bastard. I'm late for my Social Distancing class.
Pete
Post by: Petr on April 21, 2020, 11:18:12 am
I'm not a musician, so my ask:
What do you mean by changing meters? Do you want to change the music sample length? Does this mean, for example, that the sound of a drum strike is slower or faster? This is also a solvable problem in QB64, just don't know if I understand it correctly. Or is it the speed at which the sound should be played? If I know the problem, I can try to find a solution.
Post by: Petr on April 21, 2020, 11:19:59 am
Post by: Pete on April 21, 2020, 01:44:01 pm
You have the ability to be both modest and talented. I'd be happy to have half your traits. (The talented half, of course.) My wife said to me once, "Honey, you should try being modest." I told her, I can't. I can't be modest because I have nothing to be modest about! Amazingly enough, we've been married now for 39 years and counting, so I must be doing something right. Shut up Bill!
Anyway, TheBOB checked out the project and called it a "Pretty cool program." He told me he had ventured into some similar programming back in the 1980's. He made a keyboard recorder. He pitched it (excuse the pun) because the tempo was a bit off. He was new to programming back then, and now realizes he could have used TIMER to better calculate the time delay between notes. Now with the increased capabilities of QB64, more is even possible.
Pete
Post by: Dav on April 21, 2020, 06:25:53 pm
What do you mean by changing meters? Do you want to change the music sample length? Does this mean, for example, that the sound of a drum strike is slower or faster?
No, it doesn't change the sample length or tempos, just how long the whole drum pattern is.
For example, without getting into musical terms, right now the drum pattern is 8 beats long (8 clicks), and there are 4 boxes between those beats you can assign sounds to. If I changed it to a 3/4 meter, there would only be 6 beats. So the pattern length just becomes shorter, not the sample sounds.
- Dav
Post by: Petr on April 22, 2020, 03:14:32 pm
Post by: Pete on April 22, 2020, 04:46:32 pm
Thanks for the explanation, Dav. Music notes therefore determine the regularity of timing in music, if i understand it correctly.
Right, things like whole notes, half notes, quarter notes, etc. mixed with the beat like 4/4 time, 2/4 time, etc. I took one class in music appreciation in my younger days. I asked my classmates if they had any requests, and they told me to go play "In the Street." I still haven't found those lyrics online.
Pete
Post by: Dav on April 23, 2020, 08:46:36 pm
@Pete: Thanks for the TheBob feedback. I have been an admirer of his work for many years. Please send my thanks to him for checking out the program.
- Dav
Post by: Pete on April 23, 2020, 10:10:22 pm
Pete
Post by: Pete on April 24, 2020, 11:25:08 am
Pete
Post by: Dav on May 07, 2020, 07:33:12 pm
I'll post what's new in this version, a screen cap, and the source below to download.
- Dav
'================================
'New in v0.1c...
'Added: Added program _TITLE and _ICON.
'Added: New logo with keyboard command help.
'Added: Shows big TEMPO (BMP) font at top left.
'Added: Shows green playing position line down grid.
' (replaced little white moving marker)
'Added: Give user notices when a Save/Load is done.
'Added: Instrument names can now be clicked on to mute/unmute.
'Added: Now shows on screen if metronome is ON/OFF
'Fixed: Changed keyboard input method. Much more responsive.
'========================================
[ This attachment cannot be displayed inline in 'Print Page' view ]
Download --> [ This attachment cannot be displayed inline in 'Print Page' view ]
Post by: Petr on May 09, 2020, 04:02:43 am
Post by: Dav on May 10, 2020, 09:22:48 am
Thanks!
- Dav