SyntaxBomb - Indie Coders

Im not sure i made a topic about it so if i have i apologize for making double topics..
but i think i only mentioned it on an already existing topic..
(this time im marking this post)

anyway, im doing multiple projects as usual. each time jumping from one to another just not to get bored, and from other reasons, i wont get into now.

Ok, MY question is.. how do I control a VST synthesizer from my midi input.

I already know how to read midi input into blitzmax.. but how do i transmit it to the VST?.

I may have asked this question about the VST before, but i dont remember getting a clear answer.
(I apologize if i missed)

Second question.
how can  i control the latency of my Driver..
how to i change its interface from blitzmax like 192,000hz and so on.

thanks

MIDI control

This depends on the syntax each Synthi uses. A lot of them are controlled by Control Changes Messages. And some can only be controled by SYSTEM EXCLUSIV Messages, Both message types are standard members of the MIDI protocol. CC are short messages and often used to turn knobs or switch effects on/off . SYSEX have a individual length and individual syntax. Only the header and the last message byte are part of the MIDI protocol. Between this two points SYSEX do what the want .This is often used for transfer big blocks of information (soundbank, update, etc..)

Each instruments should have a MIDI IMPLEMENTATION TABLE or MANUAL, where you hopefully find the detailed syntax.

Latency
Latency is not a "feature" but a "problem". If we could "control" it, we always would set it to zero! The only chance you have is to use devices which have a low latency. For example my PRESONUS mixer has 5msec latency when recording 24 tracks to a computer. Expensive!
Or ASIO is a technology made by steinberg, which offers drivers below 30msec for all instrument, that can handle ASIO. WASAPI is the answer from microsoft to ASIO. not so good but better than old MME or DIRECTX ever was. On MAC you have better latency by default, on LINUX I dont know.

BlitzMax cannot handle ASIO or WASAPI by default. The build in FreeAudio-Driver does not know modern Backends like WASAPI and comes along with latency <130msec.

That is one of the reasons why I write this MiniAudio-Wrapper. This open the low latency-world for BlitzMax. Or enables your wish to use 192kHz (what is not really helpful, if other parameters stay low quality).

You should always find optimized set of parameters. So "48kHz with 32bit-float and 20msec latency when using 8 tracks" is a more useful set.

I see ok thanks for now midi master.
I actually wanted one vst synth to workp for getting sane sounds.
Im not planning on a full music editing software.
Ill find a solution, that's for sure.

With my external audio card i get to 1. 3ms latency.

Im not looking for a complete midi control.
Only keyboard keys and maybe volume and modulation.

I already encountered the diff between one tool that doesn't properly work in midi.
But i will fix it.
It's fun anyway when things work
So im not suffering

(all in good time), Cheers

I was trying to compile miniaudio and i got this error

►mima.miniaudio was scheduled to next iteration
D:/PORTABLE/BlitzMax/mod/mima.mod/miniaudio.mod/miniaudiowrapper.c: In function 'MM_GetContext':
D:/PORTABLE/BlitzMax/mod/mima.mod/miniaudio.mod/miniaudiowrapper.c:100:5: error: 'for' loop initial declarations are only allowed in C99 mode
     for (ma_uint32 iDevice = 0; iDevice < playbackCount; iDevice += 1) {
     ^
D:/PORTABLE/BlitzMax/mod/mima.mod/miniaudio.mod/miniaudiowrapper.c:100:5: note: use option -std=c99 or -std=gnu99 to compile your code
D:/PORTABLE/BlitzMax/mod/mima.mod/miniaudio.mod/miniaudiowrapper.c:107:20: error: redefinition of 'iDevice'
     for (ma_uint32 iDevice = 0; iDevice < captureCount; iDevice += 1) {
                    ^
D:/PORTABLE/BlitzMax/mod/mima.mod/miniaudio.mod/miniaudiowrapper.c:100:20: note: previous definition of 'iDevice' was here
     for (ma_uint32 iDevice = 0; iDevice < playbackCount; iDevice += 1) {
                    ^
D:/PORTABLE/BlitzMax/mod/mima.mod/miniaudio.mod/miniaudiowrapper.c:107:5: error: 'for' loop initial declarations are only allowed in C99 mode
     for (ma_uint32 iDevice = 0; iDevice < captureCount; iDevice += 1) {
     ^
D:/PORTABLE/BlitzMax/mod/mima.mod/miniaudio.mod/miniaudiowrapper.c: In function 'MM_DecodeMP3':
D:/PORTABLE/BlitzMax/mod/mima.mod/miniaudio.mod/miniaudiowrapper.c:158:2: error: 'for' loop initial declarations are only allowed in C99 mode
  for (int i=0; i<frameCount; i++){
  ^
Build Error: failed to compile D:/PORTABLE/BlitzMax/mod/mima.mod/miniaudio.mod/miniaudiowrapper.c
►►►►mima.miniaudio was not built. See error information on latest attempt.


the other mod was compiled successfully

did you really use BlitzMax NG?

ohhh its for blitzmax ng :S no i havnt..
I cant use my project in blitzmaxng

They code line you reported is written by me and not part of the mainfile miniaudio.h.

I had a look into the main code miniaudio.h and it looks like  the author kept all his code compatible to C89 standard.
There is a difference in using FOR/NEXT loop in C-versions of 1989 compared to 1999. In C99 it is allowed to define a variable i inside the FOR-loop:
C99
for (int i=0;i<10;i++) {
}

In C89 it had to be written like this:
C89
int i;
for (i=0;i<10;i++) {
}

So if the 2 code lines you reported are the only one, which made problems I can change it to a C89 standard too. Then maybe miniaudio runs also under BlitzMax 1.51.

but you have to switch on Multi-Threading.

There are only 3 changes necessary in midiaudiowrapper.c. This are the modifications:

before:
//line 99
    printf("list of playback devices: \n");
    for (ma_uint32 iDevice = 0; iDevice < playbackCount; iDevice += 1) {
....
//line 106
    printf("list of capture devices: \n");
    for (ma_uint32 iDevice = 0; iDevice < captureCount; iDevice += 1) {
...
//line 127
    int result = ma_decode_file(FileName, &audioConfig, &frameCount, &pAudioData);
    for (int i=0; i<frameCount; i++){
...


must become....

after:
//line 99
    printf("list of playback devices: \n");
    ma_uint32 iDevice;
    for (iDevice = 0; iDevice < playbackCount; iDevice += 1) {
....
//line 106
    printf("list of capture devices: \n");
    for (iDevice = 0; iDevice < captureCount; iDevice += 1) {
...
//line 127
    int result = ma_decode_file(FileName, &audioConfig, &frameCount, &pAudioData);
    int i;
    for (i=0; i<frameCount; i++){
...



The attachment is the replacement for miniaudiowrapper.c:

thanks midi master. I owe you, but now i get this error

►mima.miniaudio was scheduled to next iteration
C:\Users\Hardc\AppData\Local\Temp\ccrFlFND.s: Assembler messages:
C:\Users\Hardc\AppData\Local\Temp\ccrFlFND.s:3166: Error: junk at end of line, first unrecognized character is `,'
C:\Users\Hardc\AppData\Local\Temp\ccrFlFND.s:84145: Error: junk at end of line, first unrecognized character is `,'
C:\Users\Hardc\AppData\Local\Temp\ccrFlFND.s:84146: Error: junk at end of line, first unrecognized character is `,'
C:\Users\Hardc\AppData\Local\Temp\ccrFlFND.s:84147: Error: junk at end of line, first unrecognized character is `,'
C:\Users\Hardc\AppData\Local\Temp\ccrFlFND.s:87107: Error: no such instruction: `lzcntl %eax,%eax'
C:\Users\Hardc\AppData\Local\Temp\ccrFlFND.s:87747: Error: no such instruction: `lzcntl %eax,%eax'
C:\Users\Hardc\AppData\Local\Temp\ccrFlFND.s:87961: Error: no such instruction: `lzcntl %eax,%eax'
C:\Users\Hardc\AppData\Local\Temp\ccrFlFND.s:88601: Error: no such instruction: `lzcntl %eax,%eax'
C:\Users\Hardc\AppData\Local\Temp\ccrFlFND.s:88697: Error: no such instruction: `lzcntl %eax,%eax'
C:\Users\Hardc\AppData\Local\Temp\ccrFlFND.s:89337: Error: no such instruction: `lzcntl %eax,%eax'
C:\Users\Hardc\AppData\Local\Temp\ccrFlFND.s:89433: Error: no such instruction: `lzcntl %eax,%eax'
C:\Users\Hardc\AppData\Local\Temp\ccrFlFND.s:90073: Error: no such instruction: `lzcntl %eax,%eax'
C:\Users\Hardc\AppData\Local\Temp\ccrFlFND.s:90169: Error: no such instruction: `lzcntl %eax,%eax'
C:\Users\Hardc\AppData\Local\Temp\ccrFlFND.s:90809: Error: no such instruction: `lzcntl %eax,%eax'
C:\Users\Hardc\AppData\Local\Temp\ccrFlFND.s:98310: Error: no such instruction: `lzcntl %eax,%eax'
C:\Users\Hardc\AppData\Local\Temp\ccrFlFND.s:98950: Error: no such instruction: `lzcntl %eax,%eax'
C:\Users\Hardc\AppData\Local\Temp\ccrFlFND.s:99046: Error: no such instruction: `lzcntl %eax,%eax'
C:\Users\Hardc\AppData\Local\Temp\ccrFlFND.s:99686: Error: no such instruction: `lzcntl %eax,%eax'
C:\Users\Hardc\AppData\Local\Temp\ccrFlFND.s:99782: Error: no such instruction: `lzcntl %eax,%eax'
C:\Users\Hardc\AppData\Local\Temp\ccrFlFND.s:100422: Error: no such instruction: `lzcntl %eax,%eax'
C:\Users\Hardc\AppData\Local\Temp\ccrFlFND.s:100518: Error: no such instruction: `lzcntl %eax,%eax'
C:\Users\Hardc\AppData\Local\Temp\ccrFlFND.s:101158: Error: no such instruction: `lzcntl %eax,%eax'
C:\Users\Hardc\AppData\Local\Temp\ccrFlFND.s:102784: Error: no such instruction: `lzcntl %eax,%eax'
C:\Users\Hardc\AppData\Local\Temp\ccrFlFND.s:103424: Error: no such instruction: `lzcntl %eax,%eax'
C:\Users\Hardc\AppData\Local\Temp\ccrFlFND.s:105729: Error: no such instruction: `lzcntl %eax,%eax'
C:\Users\Hardc\AppData\Local\Temp\ccrFlFND.s:106338: Error: no such instruction: `lzcntl %eax,%eax'
C:\Users\Hardc\AppData\Local\Temp\ccrFlFND.s:112628: Error: no such instruction: `lzcntl %eax,%eax'
C:\Users\Hardc\AppData\Local\Temp\ccrFlFND.s:139777: Error: junk at end of line, first unrecognized character is `,'
C:\Users\Hardc\AppData\Local\Temp\ccrFlFND.s:139924: Error: junk at end of line, first unrecognized character is `,'
Build Error: failed to compile D:/PORTABLE/BlitzMax/mod/mima.mod/miniaudio.mod/miniaudiowrapper.c
►►►►mima.miniaudio was not built. See error information on latest attempt.


this does not look as nice as it did last time. My C-skills are not very good, so now I have to ask one of the experts Derron, Col or IWasAdam. I will forward your report to my thread "how to write a wrapper".

by the way... what is the reason you need to use BlitzMax 1.51 still?

I use blitzmax 1.51 because im using xors3d..

I tried to move to other platforms and each time I got upset over something else..
I really tried..

Ill try again soon...

I built and tested this with a standard BMax build that uses MingW9.3 - using the later versions have bug fixes and compatibility issues resolved 8)
however this code should work with all versions.

You can get this to work with the original BlitzMax by modifying the BRL thread sources in a similar way that NG modified them. I did have a quick go at doing it without modifying them but some of the required functions are 'local' (static) functions in the BRL source so it looks like you'd have to alter them anyway so why not do it properly.

The examples seem to work ok with threaded and single-thread builds - requires some thorough testing though so if you get spurious crashes then think of this first.
All I did was add in these functions:

bbThreadRegister
bbThreadUnregister



brl.mod -> blitz.mod ->blitz_thread.h


#ifndef BLITZ_THREAD_H
#define BLITZ_THREAD_H

#ifdef _WIN32

#include <windows.h>
typedef CRITICAL_SECTION bb_mutex_t;
#define bb_mutex_init(MUTPTR) (InitializeCriticalSection(MUTPTR),1)
#define bb_mutex_destroy(MUTPTR) DeleteCriticalSection(MUTPTR)
#define bb_mutex_lock(MUTPTR) EnterCriticalSection(MUTPTR)
#define bb_mutex_unlock(MUTPTR) LeaveCriticalSection(MUTPTR)
#define bb_mutex_trylock(MUTPTR) (TryEnterCriticalSection(MUTPTR)!=0)

/*
typedef HANDLE bb_mutex_t;
#define bb_mutex_init(MUTPTR) ((*(MUTPTR)=CreateMutex(0,0,0))!=0)
#define bb_mutex_destroy(MUTPTR) CloseHandle(*(MUTPTR))
#define bb_mutex_lock(MUTPTR) WaitForSingleObject(*(MUTPTR),INFINITE)
#define bb_mutex_unlock(MUTPTR) ReleaseMutex(*(MUTPTR))
#define bb_mutex_trylock(MUTPTR) (WaitForSingleObject(*(MUTPTR),0 )==WAIT_OBJECT_0)
*/

typedef HANDLE bb_sem_t;
#define bb_sem_init(SEMPTR,COUNT) ((*(SEMPTR)=CreateSemaphore(0,(COUNT),0x7fffffff,0))!=0)
#define bb_sem_destroy(SEMPTR) CloseHandle(*(SEMPTR))
#define bb_sem_wait(SEMPTR) WaitForSingleObject(*(SEMPTR),INFINITE)
#define bb_sem_post(SEMPTR) ReleaseSemaphore(*(SEMPTR),1,0)

#else

#include <pthread.h>
typedef pthread_mutex_t bb_mutex_t;
extern pthread_mutexattr_t _bb_mutexattr;
#define bb_mutex_init(MUTPTR) (pthread_mutex_init((MUTPTR),&_bb_mutexattr)>=0)
#define bb_mutex_destroy(MUTPTR) pthread_mutex_destroy(MUTPTR)
#define bb_mutex_lock(MUTPTR) pthread_mutex_lock(MUTPTR)
#define bb_mutex_unlock(MUTPTR) pthread_mutex_unlock(MUTPTR)
#define bb_mutex_trylock(MUTPTR) (pthread_mutex_trylock(MUTPTR)==0)

#endif

#ifdef __APPLE__

#include <mach/semaphore.h>
#include <mach/task.h>
typedef semaphore_t bb_sem_t;
#define bb_sem_init(SEMPTR,COUNT) (semaphore_create( mach_task_self(),(SEMPTR),SYNC_POLICY_FIFO,(COUNT) )>=0)
#define bb_sem_destroy(SEMPTR) semaphore_destroy( mach_task_self(),*(SEMPTR) )
#define bb_sem_wait(SEMPTR) semaphore_wait( *(SEMPTR) )
#define bb_sem_post(SEMPTR) semaphore_signal( *(SEMPTR) )

#endif

#ifdef __linux

#include <semaphore.h>
typedef sem_t bb_sem_t;
#define bb_sem_init(SEMPTR,COUNT) (sem_init((SEMPTR),0,(COUNT))>=0)
#define bb_sem_destroy sem_destroy
#define bb_sem_wait sem_wait
#define bb_sem_post sem_post

#endif

#ifdef _WIN32
#define BB_THREADREGS 7 //via GetThreadContext()
#elif __ppc__
#define BB_THREADREGS 19 //via bbGCRootRegs()
#else
#define BB_THREADREGS 4 //vid bbGCRootRegs()
#endif

#include "blitz_types.h"

typedef BBObject *(*BBThreadProc)( BBObject* );

typedef struct BBThread BBThread;

struct BBThread{
BBThread *succ;
BBThreadProc proc;
void *data[32];
int detached;
void *stackTop;
void *locked_sp;
int locked_regs[BB_THREADREGS];
#ifdef _WIN32
HANDLE handle;
DWORD id;
#else
pthread_t handle;
int suspended;
bb_sem_t runsema;
bb_sem_t acksema;
#endif
};

void bbThreadStartup();

BBThread* bbThreadCreate( BBThreadProc entry,BBObject *data );
void bbThreadDetach( BBThread *thread );
BBObject* bbThreadWait( BBThread *thread );

BBThread* bbThreadGetMain();
BBThread* bbThreadGetCurrent();

int bbThreadSuspend( BBThread *thread );
int bbThreadResume( BBThread *thread );

int bbThreadAllocData();
void bbThreadSetData( int index,BBObject *data );
BBObject* bbThreadGetData( int index );

//These MUST be inside a BB_LOCK/BB_UNLOCK
BBThread* _bbThreadLockThreads();
void _bbThreadUnlockThreads();

int bbAtomicCAS( volatile int *target,int oldVal,int newVal );
int bbAtomicAdd( volatile int *target,int incr );

// Expose bbThreadRegister and bbThreadUnregister
#ifdef WIN32
BBThread* bbThreadRegister(DWORD id);
#else
BBThread* bbThreadRegister(void* handle);
#endif
void bbThreadUnregister(BBThread* thread);

//Internal locks...
extern int _bbNeedsLock;
extern bb_mutex_t _bbLock;

#define BB_LOCK if( _bbNeedsLock ){ bb_mutex_lock( &_bbLock ); }
#define BB_UNLOCK if( _bbNeedsLock ){ bb_mutex_unlock( &_bbLock ); }

#endif




brl.mod -> blitz.mod ->blitz_thread.c


#include "blitz.h"

//#define DEBUG_THREADS

//***** Common *****

int _bbNeedsLock;
bb_mutex_t _bbLock;

static int threadDataId;

static BBThread *threads;
static BBThread *deadThreads;

static BBThread *mainThread;

static void flushDeadThreads(){
BBThread **p=&deadThreads,*t;
while( t=*p ){
if( t->detached ){
*p=t->succ;
#ifdef _WIN32
CloseHandle( t->handle );
#endif
free( t );
}else{
p=&t->succ;
}
}
}

static void addThread( BBThread *thread ){
flushDeadThreads();
thread->succ=threads;
threads=thread;
}

static void removeThread( BBThread *thread ){
BBThread **p=&threads,*t;
while( t=*p ){
if( t==thread ){
*p=t->succ;
if( t->detached ){
#ifdef _WIN32
CloseHandle( t->handle );
#endif
free( t );
}else{
t->succ=deadThreads;
deadThreads=t;
}
break;
}else{
p=&t->succ;
}
}
}

int bbThreadAllocData(){
if( threadDataId<31 ) return ++threadDataId;
return 0;
}

void bbThreadSetData( int index,BBObject *data ){
bbThreadGetCurrent()->data[index]=data;
}

BBObject *bbThreadGetData( int index ){
BBObject *data=bbThreadGetCurrent()->data[index];
return data ? data : &bbNullObject;
}

void bbThreadUnregister(BBThread* thread)
{
BB_LOCK
removeThread( thread );
BB_UNLOCK
}

//***** Windows threads *****
#ifdef _WIN32

static DWORD curThreadTls;

static DWORD WINAPI threadProc( void *p ){
BBThread *thread=p;

TlsSetValue( curThreadTls,thread );

DWORD ret=(DWORD)thread->proc( thread->data[0] );

BB_LOCK
removeThread( thread );
BB_UNLOCK

return ret;
}

void bbThreadStartup(){

if( bb_mutex_init( &_bbLock )<0 ) exit(-1);

curThreadTls=TlsAlloc();

BBThread *thread=malloc( sizeof( BBThread ) );

thread->proc=0;
memset( thread->data,0,sizeof(thread->data) );
thread->detached=0;
thread->stackTop=bbGCStackTop;
thread->id=GetCurrentThreadId();
if( !DuplicateHandle( GetCurrentProcess(),GetCurrentThread(),GetCurrentProcess(),&thread->handle,0,FALSE,DUPLICATE_SAME_ACCESS ) ){
exit( -1 );
}

TlsSetValue( curThreadTls,thread );

thread->succ=threads;
threads=thread;
mainThread=thread;
}

BBThread *bbThreadCreate( BBThreadProc proc,BBObject *data ){
BBThread *thread=malloc( sizeof( BBThread ) );

thread->proc=proc;
memset( thread->data,0,sizeof(thread->data) );
thread->data[0]=data;
thread->detached=0;
thread->handle=CreateThread( 0,0,threadProc,thread,CREATE_SUSPENDED,&thread->id );

CONTEXT ctx={CONTEXT_CONTROL};
GetThreadContext( thread->handle,&ctx );
thread->stackTop=ctx.Esp;

BB_LOCK
addThread( thread );
BB_UNLOCK

_bbNeedsLock=1;

return thread;
}

void bbThreadDetach( BBThread *thread ){
thread->detached=1;
}

BBObject *bbThreadWait( BBThread *thread ){
if( WaitForSingleObject( thread->handle,INFINITE )==WAIT_OBJECT_0 ){
BBObject *p;
if( GetExitCodeThread( thread->handle,(DWORD*)&p ) ){
thread->detached=1;
return p;
}else{
printf( "ERROR! bbThreadWait: GetExitCodeThread failed!\n" );
}
}else{
printf( "ERROR! bbThreadWait: WaitForSingleObject failed!\n" );
}
printf( "LastError=%i\n",GetLastError() );

return &bbNullObject;
}

BBThread *bbThreadGetMain(){
return mainThread;
}

BBThread *bbThreadGetCurrent(){
return TlsGetValue( curThreadTls );
}

int bbThreadSuspend( BBThread *thread ){
return SuspendThread( thread->handle );
}

int bbThreadResume( BBThread *thread ){
return ResumeThread( thread->handle );
}

BBThread *_bbThreadLockThreads(){
BBThread *curThread=bbThreadGetCurrent();
BBThread *t;
for( t=threads;t;t=t->succ ){
if( t!=curThread ){
SuspendThread( t->handle );
CONTEXT ctx={CONTEXT_INTEGER|CONTEXT_CONTROL};
GetThreadContext( t->handle,&ctx );
t->locked_regs[0]=ctx.Edi;
t->locked_regs[1]=ctx.Esi;
t->locked_regs[2]=ctx.Ebx;
t->locked_regs[3]=ctx.Edx;
t->locked_regs[4]=ctx.Ecx;
t->locked_regs[5]=ctx.Eax;
t->locked_regs[6]=ctx.Ebp;
t->locked_sp=ctx.Esp;
}
}
return threads;
}

void _bbThreadUnlockThreads(){
BBThread *curThread=bbThreadGetCurrent();
BBThread *t;
for( t=threads;t;t=t->succ ){
if( t!=curThread ){
ResumeThread( t->handle );
}
}
}

BBThread* bbThreadRegister(DWORD id)
{
BBThread* thread = 0;
HANDLE handle = OpenThread(THREAD_GET_CONTEXT , FALSE, id);
if(handle)
{
thread = malloc(sizeof(BBThread));
thread->proc = 0;
thread->data[0] = 0;
thread->detached = 0;
thread->id = id;

CONTEXT ctx={CONTEXT_CONTROL};
GetThreadContext( thread->handle,&ctx );
thread->stackTop=ctx.Esp;
CloseHandle(handle);

BB_LOCK
addThread( thread );
BB_UNLOCK

_bbNeedsLock = 1;
}
else
{
printf("WARNING: Thread with id: %d was not registered with the Blitz system.\n", id);
printf("         This will result in an unstable program - especially for Debug builds.\n");
fflush(0);
}

return thread;
}

//***** POSIX threads *****
#else

#include <unistd.h>
#include <signal.h>

#if __linux
#define MUTEX_RECURSIVE 1
#elif __APPLE__
#define MUTEX_RECURSIVE 2
#endif

pthread_mutexattr_t _bb_mutexattr;

static BBThread *threads;
static pthread_key_t curThreadTls;

static void suspendSigHandler( int sig ){//,siginfo_t *info,ucontext_t *ctx ){
BBThread *thread=pthread_getspecific( curThreadTls );

thread->locked_sp=bbGCRootRegs( thread->locked_regs );

#ifdef DEBUG_THREADS
printf( "In suspendSigHandler! thread=%p locked_sp=%p\n",thread,thread->locked_sp );fflush( stdout );
#endif

bb_sem_post( &thread->acksema );

//wait for resume - apparently very naughty!
bb_sem_wait( &thread->runsema );

#ifdef DEBUG_THREADS
printf( "Got resume!\n" );fflush( stdout );
#endif
}

void bbThreadStartup(){

if( pthread_mutexattr_init( &_bb_mutexattr )<0 ) exit(-1);
if( pthread_mutexattr_settype( &_bb_mutexattr,MUTEX_RECURSIVE )<0 ) exit(-1);

if( pthread_key_create( &curThreadTls,0 )<0 ) exit(-1);

if( bb_mutex_init( &_bbLock )<0 ) exit(-1);

struct sigaction act;
memset( &act,0,sizeof(act) );
act.sa_handler=suspendSigHandler;
act.sa_flags=SA_RESTART;

if( sigaction( SIGUSR2,&act,0 )<0 ) exit(-1);

BBThread *thread=malloc( sizeof( BBThread ) );
memset( thread->data,0,sizeof(thread->data) );

thread->proc=0;
thread->detached=0;
thread->suspended=0;
thread->handle=pthread_self();
if( !bb_sem_init( &thread->runsema,0 ) ) exit(-1);
if( !bb_sem_init( &thread->acksema,0 ) ) exit(-1);

thread->stackTop=bbGCStackTop;
pthread_setspecific( curThreadTls,thread );

thread->succ=threads;
threads=thread;
mainThread=thread;
}

static void *threadProc( void *p ){
BBThread *thread=p;

thread->stackTop=bbGCRootRegs( thread->locked_regs );
pthread_setspecific( curThreadTls,thread );

BB_LOCK
addThread( thread );
BB_UNLOCK

bb_sem_post( &thread->acksema );
bb_sem_wait( &thread->runsema );

#ifdef DEBUG_THREADS
printf( "Thread %p added, stackTop=%p\n",thread,thread->stackTop );fflush( stdout );
#endif

void *ret=thread->proc( thread->data[0] );

BB_LOCK
removeThread( thread );
BB_UNLOCK

bb_sem_destroy( &thread->runsema );
bb_sem_destroy( &thread->acksema );

#ifdef DEBUG_THREADS
printf( "Thread %p removed\n",thread );fflush( stdout );
#endif

return ret;
}

BBThread *bbThreadCreate( BBThreadProc proc,BBObject *data ){
BBThread *thread=malloc( sizeof( BBThread ) );
memset( thread->data,0,sizeof(thread->data) );

thread->proc=proc;
thread->data[0]=data;
thread->detached=0;
thread->suspended=1;
if( bb_sem_init( &thread->runsema,0 ) ){
if( bb_sem_init( &thread->acksema,0 ) ){
if( pthread_create( &thread->handle,0,threadProc,thread )>=0 ){
bb_sem_wait( &thread->acksema );
_bbNeedsLock=1;
return thread;
}
bb_sem_destroy( &thread->acksema );
}
bb_sem_destroy( &thread->runsema );
}
free( thread );
return 0;
}

void bbThreadDetach( BBThread *thread ){
thread->detached=1;
pthread_detach( thread->handle );
}

BBObject *bbThreadWait( BBThread *thread ){
BBObject *p=0;
thread->detached=1;
pthread_join( thread->handle,&p );
return p;
}

BBThread *bbThreadGetMain(){
return mainThread;
}

BBThread *bbThreadGetCurrent(){
return pthread_getspecific( curThreadTls );
}

int bbThreadSuspend( BBThread *thread ){
BB_LOCK

int n=thread->suspended++;

if( n==0 ){
pthread_kill( thread->handle,SIGUSR2 );
bb_sem_wait( &thread->acksema );
}

BB_UNLOCK

return n;
}

int bbThreadResume( BBThread *thread ){
BB_LOCK

int n=thread->suspended--;

if( n==1 ){
bb_sem_post( &thread->runsema );
}

BB_UNLOCK

return n;
}

BBThread *_bbThreadLockThreads(){
BBThread *curThread=bbThreadGetCurrent();
BBThread *t;
for( t=threads;t;t=t->succ ){
if( t!=curThread ){
if( !t->suspended++ ){
pthread_kill( t->handle,SIGUSR2 );
bb_sem_wait( &t->acksema );
}
}
}
return threads;
}

void _bbThreadUnlockThreads(){
BBThread *curThread=bbThreadGetCurrent();
BBThread *t;
for( t=threads;t;t=t->succ ){
if( t!=curThread ){
if( !--t->suspended ){
bb_sem_post( &t->runsema );
}
}
}
}}

BBThread* bbThreadRegister(void* handle)
{
BBThread* thread = malloc(sizeof(BBThread);
memset(thread->data, 0, sizeof(thread->data));

thread->handle = handle;
thread->proc = 0;
thread->data[0] = 0;
thread->detached = 0;
pthread_setspecific(curThreadTls, thread);

BB_LOCK
addThread(thread);
BB_UBLOCK;

_bbNeedsLock = 1;

return thread;
}

#endif

//***** Atomic ops *****
#if __ppc__

int bbAtomicCAS( volatile int *addr,int old,int new_val ){
int oldval;
int result=0;

__asm__ __volatile__(
"1:lwarx %0,0,%2\n"   /* load and reserve              */
"cmpw %0, %4\n"      /* if load is not equal to */
"bne 2f\n"            /*   old, fail */
"stwcx. %3,0,%2\n"    /* else store conditional         */
"bne- 1b\n"           /* retry if lost reservation      */
"li %1,1\n"      /* result = 1; */
"2:\n"
: "=&r"(oldval), "=&r"(result)
: "r"(addr), "r"(new_val), "r"(old), "1"(result)
: "memory", "cc");

return result;
}

int bbAtomicAdd( volatile int *p,int incr ){
int old;
for(;;){
old=*p;
if( bbAtomicCAS( p,old,old+incr ) ) return old;
}
}

#else

int bbAtomicCAS( volatile int *addr,int old,int new_val ){
char result;

__asm__ __volatile__(
"lock; cmpxchgl %3, %0; setz %1"
: "=m"(*addr), "=q"(result)
: "m"(*addr), "r" (new_val), "a"(old) : "memory");

return (int)result;
}

int bbAtomicAdd( volatile int *p,int incr ){
int result;

__asm__ __volatile__ ("lock; xaddl %0, %1" :
"=r" (result), "=m" (*p) : "0" (incr), "m" (*p)
: "memory");

return result;
}

#endif


I'll keep an eye on the other 'wrapper' posts to what transpires there.

Last Error trying to compile miniaudio is

►mima.miniaudio was scheduled to next iteration
D:/PORTABLE/BlitzMax/mod/mima.mod/miniaudio.mod/miniaudiowrapper.c:2:19: fatal error: blitz.h: No such file or directory
#include "blitz.h"
                   ^
compilation terminated.
Build Error: failed to compile D:/PORTABLE/BlitzMax/mod/mima.mod/miniaudio.mod/miniaudiowrapper.c
►►►►mima.miniaudio was not built. See error information on latest attempt.


Ok. I was busy doing other stuff related to this app.. so this MOD issue is being postponed.

I encountered a new silly problem, is there a way to read if mouse is down besides the usual mousedown(1) command?

I need a general way to read whether mouse button is down..

thanks

What do you mean? Inside MaxGui objects? or inside a simple Graphics(80,600)-window?
Can you descripe a situation where you need a new function, because the MouseDown() is not working as you would need?

check how mouse input is read in brl.system or sdl.mod/system.mod - they register for system events. You could do that too.


bye
Ron

im working with AlbaLynx under Xors3d
when i try to read xmousedown() when im not Alba Canvas it wont get a read.. although altestclick() works but not altestdown()
and it wont read xmousedown() either no mousedown()
so i have no way to read the mouse down state.

ill try what derron recommended

Ok Ive found a solution.. it was because I set the buffer into the canvas buffer ..
when i do it when buffer is on back buffer it works.. so i guess i can manage now..


Thanks for the attempt to help

(https://i.imgur.com/JSkQXSF.jpg)

After few days of trying to figure out an annoying error, Im back on track again
anyway Im concentrating on my Music app on notation..

I finally succeeded to do it properly..
Im not sure im aiming towards full notation capabilities.. but Ive passed the basic level. or notation entering using Midi.
and im not talking about real time playing.
Im not their yet.

First version release. coming soon

For those who understand about this type of project
I cant begin to explain how complex all this note editing is,
if you really want to get it to a reasonable level of a user interface

it is still much more complex than you think. A note can not be set equal to its midi number.

there are 21 notes, not 11!


midi   59  60  61  61  62  63  63  64  65  64  65  66  66  67  68  68  69  70  70  71  72
name   Cb  C   C#  Db  D   D#  Eb  E   E#  Fb  F   F#  Gb  G   G#  Ab  A   A#  Bb  B   B#
note   1   2   3   4   5   6   7   8   9   10  11  12  13  14  15  16  17  18  19  20  21

with a model of 12 notes you will never reach a serious level of displaying notes!

Depending on the scale, which is valid in a music document only 7 of them are "activ".

So you need to write 12 "translation tables", one for each scale to find the correct note display.


f.e. a C-min-Chord is never C-D#-G but always C-Eb-G

why?
because it is used in scales with 2b (and more) like Bb-Major

Translation table of Scale Bb-Major:
Scale Bb-Major:
midi   58  60  62  63   65   67   69  70
name   Bb  C   D   Eb   F    G    A   Bb
note   19  2   5   7    11   14   17  19 
How to code this algo for all and every chords?

First you write 12 tables for the 12 scales. Each table contains 7 entries.


Now lets say you have the midi-chord 60-63-67 and try to find the correct way to display it. you have to search through all 12 tables until you find a table which contain all 3 midi numbers.

But even the search order(which table you have to search first)  is important:

Scan the twelve scale tables in this order:
1. C
2. G
3. F
4. D
5. Bb
6. A
7. Eb
8. E
9. Ab
10. H
11. Db
12. Gb
13. F#

in the case of our 60-63-67-chord we would get a hit in scale 5. Bb-Major. Now you can translate the chord into 2-7-14 (= C-Eb-G)

Hi MidiMaster thanks for the help.

Yet, You forgot its in the middle of development..

There are 12 notes.. but their are 21 notes names/signs, and that's good enough for me for the moment.
Let me face that first.
there are so many things to face before what you've mentioned.
It can wait.

And I don't know why you got upset, I still working on it.

And also I don't know music notation perfectly.. (This wasn't my main goal when I started this app)

when ill release first version, and If Ill get good feedbacks than ill take it to the next level.

If you read what I've wrote in the previous response, I said "I'm not sure I'm aiming towards full notation capabilities..

Anyway Thanks for the Tables..
Not everything is clear to me, but ill figure it out.

Anyway. I need to work on Undo
And Other Stuff, Load, Save and So on.

Thanks..

with midi
you are correct there are 12 note per octave and they start at 0 to 11 with 0 usually being the C
so 127 possible notes gives 10 octaves
simples

Here's a nice simple chart showing that C is always 0 aligned and that 72 is middle C
http://computermusicresource.com/midikeys.html (http://computermusicresource.com/midikeys.html)

with notation - much more complex

Quote from: Hardcoal on June 03, 2021, 03:48:09
...It can wait.
And I don't know why you got upset, I still working on it.
And also I don't know music notation perfectly.. (This wasn't my main goal when I started this app)
when ill release first version, and If Ill get good feedbacks than ill take it to the next level.
If you read what I've wrote in the previous response, I said "I'm not sure I'm aiming towards full notation capabilities..
...

Yes you are in the middle of development and I want to point you to the right way how to write notes. Because I can see, that your way to notate goes to the wrong direction, I offer you an algo that make very good results.

Quote...And I don't know why you got upset, I still working on it...

Why should I go upset? I only want to share you  my experience of 20 years music education software.

This 21-notes approach is not the "full notation capability" but a very easy to code minimum way with really good looking results. Users will have the feeling that you know, what you are doing. If you publish a release with the look you now have you will not get "good feedbacks". Writing a C-Min-Chord as "C-D#-G" is not a suboptimal variation of displaying a C-Min-Chord, but a absolut No-Go!

It is like having massiv typos in a "how to spell right"-app!

The "middle C" 261Hz is MIDI=60 and written as lower case c'. Notation: in Treble Key system below system or in Bass Key system above system.

MIDI=72 is already c''

by the way....
Don't you show your intermediate result, because you want to get our feedback?

MidiMaster..

Youre doing great.. sure I want feedback..
But it looked like you thought thats my final product or something.

I will surely get good feedback.. because I know what Im doing.
I will got lots of criticism, but that's different..  that is if I wont bring it to the level you are hinting.

but when I say release .. it means for itch.io and I declare that its not a finished product..

If I was to really release it as a finished product for sale. I would not dare having a 50% half job done when releasing something.

but I'm an armature programmer not professional.
no one is paying me nothing

Plus I didnt understand half of what you said..

and I didnt ask, because its not the time.
it will only confuse me at this point..

Let me first finish the usual stuff like Undo.. Load Save and so on..
And if ill get their.. than will see..

Thanks :)

Feedback is always welcomed , and everything is noted.. I assure you. its not in vain

I want to add that making a perfect notation app was never my intention..
I do this tool for my own use, and Ill improve it on my own pace.
No one waits for my app..

I'm just sharing what I'm doing to show my progress. that's the main reason for my posting at this point.

About the notation Editing.. Im making it as close as possible to Editing a text document..
So everything you are used to do with a common note paper will be applied on the music notes (Give or Take)

I do not understand your target in notation. Your last post now sound completely different compared to your post from yesterday.
Do you plan to display notes in a correct way or is this not interesting for you?
Do you actually continue with the notation code? Or will this part have a pause for some weeks?

If you already continue, I tell you again... you are on a wrong way. And I offer again to help you and point you to the right direction.

I dont want to offend you.. this is no critic, this is an offer.

Atm yes, my target is notation.. but up to a certain level.. than ill leave it.
I told you MidiMaster, my way of working is different than yours probably ..
I'm not on the wrong path because I'm not finished yet.
When Ill get to the point that I'm aiming for, than Ill remodify my code according to your suggestions..

You must understand.. I don't know notations as good as you do,
But I know what I want.

I'm going to music School.. And I want to play a melody .. But I don't need all the fine details of Notations ATM

And you're right.. I'm a bit uncertain In various ways.. 

You have to understand, I highly value the opportunity of your help offer.
and everything can be fixed..
Just I need to get to the point I desire.

I don't even know how to display the things you are implying about.
I didn't ask you any questions, only because I'm waiting for the right moment, that's all.
But Its on my memory buffer rest assure

Btw if you can post an example of how my notation should look like compared to the last note picture I've posted it will really help

when i began this project.. notation was the last thing on my mind lol..
it was more about recording sound tracks..
but than i found mixcraft and i was pleased

I just encountered an annoying issue with the Spacebar Key!
thats exactly what im saying when I say I must first solve the technical issues

Later..
[Solved, Ok . It was my mistake eventually]

(https://www.syntaxbomb.com/index.php?action=dlattach;topic=8467.0;attach=4631)

See Cm Bb and Db. Your notation is not correct.

Awesome MidiMaster.. That's exactly what I thought you meant.
And that's exactly what I'm postponing for later..

It wont be that hard to Implement it..
I bet their or more things that will need special treatment..
For example ,when you Play C and C# they cant be on top of each other..

This are the fine details.. That I will deal with eventually.

So midi master.. according to what I see.. all the notes that are overlapping each other turn into a Bemol Sign
On the BB Chord Case they are not overlapping each other , so why do i need to use Bemol.

anyway.. dont think i understood the note tables you posted..

that's why i postponed it for later.

anyway.. Now im starting to implement some things.. than ill post a picture and see what you think

I may look like you found the rule for b or #. But the example of the Bb-chord already shows you, that this cannot be the rule.

As I said, there are 12 tables which define, when or whether a midi note is displayed as with a # or a b sign.

This what I call "translation table". At the moment you try to use the midi-number to find the notation position. But the correct way is to first "translate" the midi-number into a notation-number. then you will find the correct position.

For chords this way is a 100% working solution.

1.step: Calculate
MidiMod%=(midinumber mod 12)
Octave%=(midinumber/12)

2.step: Now use one of the 12 tables to get the NotationMod:
NotationMod%= Table[TableNumber%, MidiMod]
NotationPos%=NotationMod*Octave
now you now the vertical pos of the note in the score


3.step
the system can give you additional informations now:

Select (NotationMod mod 3)
    Case 0
        ' note needs a b sign
    Case 1
        ' note needs no sign
    Case 2
        ' note needs a # sign
end select

The only question that remains is: "Which table do I use?"

The answer is: "depends on...!". In the case of chord this question is easy, because you only have to find the table which contains all three midinumbers of your chord.

In 12 hours I will send you the 12 tables and a demo code. (now it is round midnight)

Awesome.. Ill wait for the demo..

I told you im gonna listen to you eventually lol :)

Progress Report..

Now I got 4 Lines Notes Ladder Editing.
Up till now it was only one Line Note Editing

(https://i.imgur.com/90hU5km.jpg)

Making this a true professional any note sheet notation Editor.. well thats too much for me for the moment..
Ill just make this work right and ill be pleased

Ok, here is the demo for the 12->21 converter. This enables to write the chords automatically correct.
(https://www.syntaxbomb.com/index.php?action=dlattach;topic=8467.0;attach=4637)
You can use some of the fundamental  functions:
Function EasyTranslate:Int[] ( MidiChord:Int[] )
' converts a midi noted chord into a notation noted chord
' the array can contain 1 to 4 notes


Function Name$(Note%)
' returns the name of a notation note
' notemod    0   2   3   4   5   6   7   8   9  10  11  12  13  14  15  16  17  18  19  20  21
' --> name  Cb   C  C#  Db   D  D#  Eb   E  E#  Fb   F  F#  Gb   G  G#  Ab   A  A#  Bb   B  B#


Function DrawNotes (Chord:Int[])
'converts a notation chord into dispayed notes
Local ZeroY%=300, Distance%=10, BassDistance%=25
' flexible in scaling:
' ZeroY defines the absolute Y-position of  both systems
' Distance defines the absolute y-diff from one note to the next higher note
' BassDistance defines the relative distance of bass system to treble system


Function PaintHelpingLines(X%, Note%, Clef%=TREBLE, ZeroY%, Distance%, BassDistance%)
'paints all necessary helplines of a notation note


Function NoteToMidi:Int(Note%)
' converts a notation note back to a midi note
' notemod      0   1   2   3   4   5   6   7   8   9  10  11  12  13  14  15  16  17  18  19  20
        ' --> to midi -1   0   1   1   2   3   3   4   5   4   5   6   6   7   8   8   9  10  10  11  12



You can add your chords for testing here:

Function NewChord()
number=number +1
Select Number
Case 1
chord=[58,62,65]    'Bb
Case 2
...
Case 9
chord=[57,60,64]    'Am
Case 10
chord=....






The whole runnable example

Start the app and click with the mouse to check some chords....


Graphics 600,600
SetBlend alphablend
Notation.StartUp


Global MidiChord%[]=[60,63,67]    'Am

Global  ShowChord:Int[]=Notation.EasyTranslate(MidiChord)
Global Number
Notation.ChordInfo(MidiChord, ShowChord)

SetClsColor 255,255,255
Repeat
Cls
Notation.DrawNotes Showchord
If MouseHit(1)
NewChord
EndIf
Flip 1
Until AppTerminate()



Function NewChord()
number=number +1
Midichord=[58+number,59+number,60+number]    'Bb

ShowChord = Notation.EasyTranslate(MidiChord)
Notation.ChordInfo(MidiChord, ShowChord)
End Function













Type Notation
Global MidiTable:Int[]= [-1,0,1, 1,2,3, 3,4,5 ,4,5,6, 6,7,8,  8,9,10,  10,11,0]
Global Names:String[]= "Cb,C,C#,Db,D,D#,Eb,E,E#,Fb,F,F#,Gb,G,G#,Ab,A,A#,Bb,B,B#".split(",")
    Global NoteImages:TImage
Global TableMidi:Int[15,7], TableNote:Int[15,7]



Function StartUp()
'builds the 13 tables from this 2 "exotic" strings
Local t1$="0|2|4|5|7|9|11|0|2|4|6|7|9|11|0|2|4|5|7|9|10|1|2|4|6|7|9|11|0|2|3|5|7|9|10|1|2|4|6|8|9|11|0|2|3|5|7|8|10|1|3|4|6|8|9|11|0|1|3|5|7|8|10|1|3|4|6|8|10|11|0|1|3|5|6|8|10|11|1|3|5|6|8|10|1|3|5|6|8|10|11|"
Local t2$="1|4|7|10|13|16|19|1|4|7|11|13|16|19|1|4|7|10|13|16|18|2|4|7|11|13|16|19|1|4|6|10|13|16|18|2|4|7|11|14|16|19|1|4|6|10|13|15|18|2|5|7|11|14|16|19|1|3|6|10|13|15|18|2|5|7|11|14|17|19|1|3|6|10|12|15|18|21|3|6|10|12|15|18|2|5|8|11|14|17|19|"
t1=t1 + "1|3|5|6|8|10|0|1|3|4|6|8|10|11|"
t2=t2 + "2|5|8|11|14|17|-1|3|6|9|12|15|18|21|"

'cis h#    1| 3| 5| 6| 8|10| 0|
'14.       2| 5| 8|11|14|17|-1|

'Cb  fb    1| 3| 4| 6| 8|10|11|
'13.       3| 6| 9|12|15|18|21|

Local v1$[]=t1.split("|")
Local v2$[]=t2.split("|")
For Local I%=0 To 14
For Local j%=0 To 6
TableMidi[i,j]=v1[i*7+j].toint()
TableNote[i,j]=v2[i*7+j].toint()
Next
Next
'ShowTable
' load some note images for testing:
NoteImages=LoadAnimImage("noten.png",60, 140,0,15)
End Function



Function ShowTable()
' shows all 13 tables for debugging purposes only:
For Local I%=0 To 14
Print "------------Table Nr " + (i+1) + "--------------------"
Local a$= "", b$= ""
For Local j%=0 To 6
a=a+ " " + TableMidi[i,j]
b=b+ " " + TableNote[i,j]
Next
Print a
Print b
Next
End Function



Function NoteToMidi:Int(Note%)
' converts a notation note back to a midi note
' notemod      0   1   2   3   4   5   6   7   8   9  10  11  12  13  14  15  16  17  18  19  20
        ' --> to midi -1   0   1   1   2   3   3   4   5   4   5   6   6   7   8   8   9  10  10  11  12
Local Octave:Int=note/21
Local NoteMod:Int=Note Mod 21
Local Midi:Int=MidiTable[NoteMod] + 12*Octave
Print Note + " " + Names[NoteMod] + " => midi " + (Midi)
Return midi
End Function




Function EasyTranslate:Int[] (MidiChord:Int[])
' converts a midi noted chord into a notation noted chord
' the array can contain 1 to 4 notes
Local TakeTable%=Notation.WhichTable(MidiChord)
Print "Chord found in table " + TakeTable
Return Translate(TakeTable,MidiChord)
End Function





Function WhichTable:Int(MidiChord:Int[])
'trys to find out which of the 13 tables is the best
'returns a number between 0 and 12
Local Result%
For Local i:Int=0 To 12
Result= CheckTable(i , MidiChord)
If Result=True Then Return i
Next
Return -1
End Function




Function CheckTable:Int(Nr%, MidiChord:Int[])
'checks whether all notes of a chord are member of this table
For Local i:Int=0 To MidiChord.Length-1
Local SearchNote% = MidiChord[i] Mod 12
Local Result%=False
For Local j%=0 To 6
If TableMidi[Nr,j] = SearchNote
Result=True
Exit
EndIf
Next
If Result=False Return False
Next
Return True
End Function


Function Translate:Int[] (Nr%, MidiChord:Int[])
' converts a midi noted chord into a notation noted chord
' the array can contain 1 to 4 notes
Local ReturnChord:Int[MidiChord.Length]
If Nr=-1
' no real chord! use as minimum same sign
Return UseAllSameSign(MidiChord)


EndIf
For Local i:Int=0 To MidiChord.Length-1
Local SearchNote% = MidiChord[i] Mod 12
Local Octave%=MidiChord[i] / 12
For Local j%=0 To 6
If TableMidi[Nr,j] = SearchNote
'Print "found at " + j
ReturnChord[i]= TableNote[Nr,j] +21*Octave
Exit
EndIf
Next
Next
Return ReturnChord
End Function




Const FLAT:Int=0, SHARP:Int=1

Function UseAllSameSign:Int[] (MidiChord:Int[], Iteration:Int=0)
' tricky new function to process also "strange chords"
' if all 14 tables fail this algo trys to prevent notes on the same line
Local SameTableNote[][]= New Int[][4]
'                  [C   D   E  F     G     A     B]
SameTableNote[0]=  [1,3,4,6,7,10,12,13,15,16,18,19]
SameTableNote[1]=  [1,2,4,5,7,10,11,13,14,16,17,19]
SameTableNote[2]=  [1,3,4,6,9,10,12,13,15,16,18,21]
SameTableNote[3]=  [-1,2,4,5,7,8,11,13,14,16,17,19]

Local ReturnChord:Int[MidiChord.Length]

Print "STRANGE CHORD! now Using UseAllSameSign() function with Iteration-Round=" + Iteration
' first use one of the tables:
For Local i:Int=0 To MidiChord.Length-1
Local SearchNote% = MidiChord[i] Mod 12
Local Octave%=MidiChord[i] / 12
ReturnChord[i]= SameTableNote[Iteration][SearchNote] +21*Octave
Next

'now test, whether this table also produce notes on the same line:
For Local i:Int=0 To MidiChord.Length-1
For Local j:Int=i+1 To MidiChord.Length-1
If YPos(ReturnChord[i]) = YPos(ReturnChord[j])
'If yes... try the other table
If Iteration < 3 'for not producing a endless loop
Return UseAllSameSign(MidiChord,Iteration+1)
Else
Print "Needs Mix Methode"
Return UseMixedSigns (MidiChord, ReturnChord)
EndIf
EndIf
Next
Next
Return ReturnChord
End Function


Function UseMixedSigns:Int[] (MidiChord:Int[], BadChord:Int[])
' ultimate chance for chords: Try to mix # with b or send BadChord
Local list:TList=New TList
Local SearchNote% = MidiChord[0] Mod 12
Local Octave%=MidiChord[0] / 12
Local locChord:Int[]
AddChordsToListe(List, locChord, SearchNote, Octave)

For Local i:Int=1 To MidiChord.Length-1
Local SearchNote% = MidiChord[i] Mod 12
Local Octave%=MidiChord[i] / 12

For Local Chord:Int[]=EachIn list
If chord.length=i
AddChordsToListe(List, Chord, SearchNote, Octave)
List.Remove Chord
EndIf
Next
Next
Print "EXTREM STRANGE CHORD! now Using UseMixedSigns() function"
For Local Chord:Int[]=EachIn list
Return chord
Next
Print "!!!!! BAD CHORD! no solution found !!!!"
Return BadChord
End Function


Function AddChordsToListe(List:TList, Chord[], SearchNote, Octave)
Print "Adding " + Searchnote
Local last%=Chord.length
Local NewChord_I:Int[last+1]
Local NewChord_II:Int[last+1]
For Local i%=0 To last-1
NewChord_I [i] = Chord[i]
NewChord_II[i] = Chord[i]
Next
Select SearchNote
Case 0
NewChord_I[last]=-1+21*Octave
NewChord_II[last]=1+21*Octave
Case 1
NewChord_I[last]=2+21*Octave
NewChord_II[last]=3+21*Octave
Case 2
NewChord_I[last]=4+21*Octave
Case 3
NewChord_I[last]=5+21*Octave
NewChord_II[last]=6+21*Octave
Case 4
NewChord_I[last]=7+21*Octave
NewChord_II[last]=9+21*Octave
Case 5
NewChord_I[last]=8+21*Octave
NewChord_II[last]=10+21*Octave
Case 6
NewChord_I[last]=11+21*Octave
NewChord_II[last]=12+21*Octave
Case 7
NewChord_I[last]=13+21*Octave
Case 8
NewChord_I[last]=14+21*Octave
NewChord_II[last]=15+21*Octave
Case 9
NewChord_I[last]=16+21*Octave
Case 10
NewChord_I[last]=17+21*Octave
NewChord_II[last]=18+21*Octave
Case 11
NewChord_I[last]=19+21*Octave
NewChord_II[last]=21+21*Octave
EndSelect
If ContainsSameLine(NewChord_I)=False
Print "ADD **** Chord_I to list" + StringFromChord(newchord_I)
List.Addlast NewChord_I
EndIf

If NewChord_II[Last]>0
If ContainsSameLine(NewChord_II)=False
List.AddLast NewChord_II
Print "ADD **** Chord_II to list" + StringFromChord(newchord_II)
EndIf
EndIf
End Function


Function ContainsSameLine:Int(Chord:Int[])
For Local i:Int=0 To Chord.Length-1
For Local j:Int=i+1 To Chord.Length-1
If YPos(Chord[i]) = YPos(Chord[j])
Return True
EndIf
Next
Next
Return False
End Function

Function StringFromChord$(Chord:Int[])
Local s$
For Local i%=0 To chord.length-1
s=s + chord[i] + "-"
Next
Return s
EndFunction










Function Name$(Note%)
' returns the name of a notation note
' notemod    0   1   2   3   4   5   6   7   8   9  10  11  12  13  14  15  16  17  18  19  20
' --> name  Cb   C  C#  Db   D  D#  Eb   E  E#  Fb   F  F#  Gb   G  G#  Ab   A  A#  Bb   B  B#
Return Names[note Mod 21]
End Function


Const TREBLE:Int=0, BASS:Int=1

Function YPos:Int(note%, Clef%=TREBLE)
'returns the relative screen-y position of a notation note
Local pos:Int
If clef=TREBLE
Return Int(note/3) -28
EndIf
Return Int(note/3) -16
End Function


Function NeedsHelpingLines:Int (Note%, Clef%=TREBLE)
' finds out whether this note needs helplines
Local pos:Int=Ypos(note,Clef)
If pos<8 Or pos>18
Return True
EndIf
Return False
End Function


Function PaintHelpingLines(X%, Note%, Clef%=TREBLE, ZeroY%, Distance%, BassDistance%)
'paints helplines of a note
If NeedsHelpingLines(Note, Clef)=False Return
Local pos:Int=Ypos(note,Clef)
BassDistance=BassDistance*Clef
SetColor 1,1,1
If pos<8
For Local i%=7 To pos Step -2
DrawRect X-8,ZeroY-((i-Bassdistance)*distance),40,1
Next 
Else
For Local i%=19 To pos Step 2
DrawRect x-8,ZeroY-((i-Bassdistance)*distance),40,1
Next 
EndIf
SetColor 255,255,255
End Function 

Function DrawNotes (Chord:Int[])
'converts a notation chord into dispayed notes
Local ZeroY%=300, Distance%=10, BassDistance%=25, Imagedistance%=70
' flexible in scaling:
' ZeroY defines the absolute Y-position of  both systems
' Distance defines the absolute y-diff from one note to the next higher note
' BassDistance defines the relative distance of bass system to treble system
' ImageDistance is related to the "noten.png" (fine adjusting)
' this "noten.png" is best for distances from 8 to 11

'5 score-lines in bass and treble
SetColor 1,1,1
DrawText "Midi : " + MidiChord[0]+ "-" +  + MidiChord[1]+ "-" + MidiChord[2],100,100
For Local i%=0 To 4
DrawRect 100,ZeroY-((i*2+9)*distance),400,1
DrawRect 100,ZeroY-((i*2+9-BassDistance)*distance),400,1
Next
SetColor 255,255,255

'the keys:
DrawImage NoteImages,120,ZeroY-12*Distance-ImageDistance,0
DrawImage NoteImages,120,ZeroY-(12-Bassdistance)*Distance-ImageDistance,1

' paint the chord
Local signCounter%=0
For Local i:Int=0 To Chord.Length-1
'Print "found chord note " + Chord[i] + " " + ypos(chord[i])
PaintHelpingLines(250+i*25, Chord[i], 0, ZeroY, Distance, BassDistance)
Select Chord[i] Mod 3
Case 0
DrawImage NoteImages,220+signCounter,ZeroY- ypos(Chord[i])*Distance-ImageDistance,10
signCounter=signCounter+15
Case 2
DrawImage NoteImages,220+signCounter,ZeroY- ypos(Chord[i])*Distance-ImageDistance,9
signCounter=signCounter+15
End Select
DrawImage NoteImages,250+i*25,ZeroY- ypos(Chord[i])*Distance-ImageDistance,5
Next


'paint it in bass system too
Local AsBass%=1
signCounter=0
For Local i:Int=0 To Chord.Length-1
'Print "found chor note " + Chord[i] + " " + ypos(chord[i])
PaintHelpingLines(350+i*25, Chord[i], AsBass, ZeroY, Distance, BassDistance)
Select Chord[i] Mod 3
Case 0
DrawImage NoteImages,320+signCounter,ZeroY- (ypos(Chord[i],AsBass)-BassDistance)*Distance-ImageDistance,10
signCounter=signCounter+15
Case 2
DrawImage NoteImages,320+signCounter,ZeroY- (ypos(Chord[i],AsBass)-BassDistance)*Distance-ImageDistance,9
signCounter=signCounter+15
End Select
DrawImage NoteImages,350+i*25,ZeroY- (ypos(Chord[i],AsBass)-BassDistance)*Distance-ImageDistance,6
Next
End Function


Function ChordInfo(Chord:Int[],ShowChord:Int[])
Print "************************************"
Print "S C A N   R E S U L T S:"
Local ChordInfo$ = "      Midi-Chord was: "
Local NoteInfo$  = "       Note-Chord is: "
Local NameInfo$  = "           Names are: "
Local TrebleInfo$= "Draw at treble lines: "
Local BassInfo$  = " Draw at bass lines : "
For Local I%=0 To Chord.length-1
ChordInfo= ChordInfo + + Chord[i]  + " "
NoteInfo= NoteInfo + ShowChord[i] + " "
NameInfo= NameInfo + Notation.name(ShowChord[i]) + " "
TrebleInfo= TrebleInfo + Notation.Ypos(ShowChord[i]) + " "
BassInfo= BassInfo + Notation.Ypos(ShowChord[i],1) + " "
Next
Print ChordInfo
Print NoteInfo
Print NameInfo
Print TrebleInfo
Print BassInfo
End Function

End Type

Rem
Table-Explanation:
-----------------------------------
Scale      New       Midi-Notes
Order      sign      Notation-notes
-----------------------------------

-----------------------------------
no sign
Table     C  D  E  F  G  A  B
-----------------------------------
C         0| 2| 4| 5| 7| 9|11|
0.        1| 4| 7|10|13|16|19|
-----------------------------------
all #
Tables    C  D  E  F  G  A  B
-----------------------------------
G   f#    0| 2| 4| 6| 7| 9|11|
1.        1| 4| 7|11|13|16|19|
-----------------------------------
D   c#    1| 2| 4| 6| 7| 9|11|
3.        2| 4| 7|11|13|16|19|
-----------------------------------
A   g#    1| 2| 4| 6| 8| 9|11|
5.        2| 4| 7|11|14|16|19|
-----------------------------------
E   d#    1| 3| 4| 6| 8| 9|11|
7.        2| 5| 7|11|14|16|19|
-----------------------------------
H   a#    1| 3| 4| 6| 8|10|11|
9.        2| 5| 7|11|14|17|19|
-----------------------------------
fis e#    1| 3| 5| 6| 8|10|11|
12.       2| 5| 8|11|14|17|19|
-----------------------------------
cis h#    1| 3| 5| 6| 8|10| 0|
14.       2| 5| 8|11|14|17|-1|
-----------------------------------
-----------------------------------
all b
Tables    C  D  E  F  G  A  B
-----------------------------------
F   hb    0| 2| 4| 5| 7| 9|10|
2.        1| 4| 7|10|13|16|18|
-----------------------------------
Bb  eb    0| 2| 3| 5| 7| 9|10|
4.        1| 4| 6|10|13|16|18|
-----------------------------------
Eb  ab    0| 2| 3| 5| 7| 8|10|
6.        1| 4| 6|10|13|15|18|
-----------------------------------
Ab  db    0| 1| 3| 5| 7| 8|10|
8.        1| 3| 6|10|13|15|18|
-----------------------------------
Db  gb    0| 1| 3| 5| 6| 8|10|
10.       1| 3| 6|10|12|15|18|
-----------------------------------
Gb  cb    1| 3| 5| 6| 8|10|11|
11.       3| 6|10|12|15|18|21|
-----------------------------------
Cb  fb    1| 3| 4| 6| 8|10|11|
13.       3| 6| 9|12|15|18|21|
-----------------------------------

end rem


you need the Noten.png from the attachment to run the example.

Thanks midimaster.. I've already experimented with it.. and i will implement it in my code.
I had to fix some Errors of Local I, but other than that it seems to work fine.

I'm not in a mood for programming atm, but ill go back to that soon.
or maybe ill implement it later.. and continue developing other things.
the only way i survive in coding.. is doing what i feel and not doing what i need

MM=MidiMaster..

I tried to implement you method ..into my code.. I didnt succeed too well..
so I went with my system for now..
but I kept you code in Rem State.. in my project..
So I can continue my work..
Ill Contact you again.. soon when Ill solve one more thing and will see what to do
:)

The good news.. Is that Im serious about this App

(https://i.imgur.com/h4141Of.jpg)

Im trying to understand the logic of the notation..
and ill try again to implement your code midimaster..

Im looking at muse score app to see how it preforms notations

and ill try again to implement your code..

does your code also support this 3 half tone chords arrangement?

Ive managed to make progress with MidiMaster Code, but im not their yet.

I also Started to like Muse Score..
Finally it makes sense to me

Also in MuseScore you can see, that the base is not a 12-objects-per-octave-system, but a 21-objects-per-octave-system.

If you want to create a "note object " the property "altitude" of the note needs to be in this 21-system. Re-calculating the midinote from the 21-systems is easy.

but using a 12-system means not beeing able to calculate the correct score position. So there is no way without 21-system.

This is the base, But this is not the final solution for all the problems you will get with notation. So drawing the notes is again a challenge with a lot of rules and still more exeptions.

Using the 21-system means you are able to write all the examples you showed in your screenshot. But these screenshots are no typical notations.

In a perfect notation it would look like this:
(https://www.syntaxbomb.com/index.php?action=dlattach;topic=8467.0;attach=4649)

Lets talk about the 5 chord in your screenshot:

1. This is allowed. You can combine D,F and G# in one chord. But if it is possible you would always use D-F-Ab. (See my example)

2. perfect

3. This is not allowed what should it be? two C# together with one D? I would write is as one C# with one D.

4. This is not allowed. You never see a Eb and a E written in this way. The solution if you need 3 notes closed together is always to notate it as: D-Eb-Fb (See my example). That is a typical solution where you would use Fb as a replacement for E.

5. Are there 3 note in your example? Not allowed. If this are 2 notes my example would be the solution. If you need again three notes: F-F# and G you would write them always as E#-F#and G

The property, whether a note is notated "normal" or "a little bit to the right" is not a fixed porperty of the note, but a decision of the drawing algorithm in the last moment before displaying it. Often adding one single new note to a chord changes to behavior of all the other members of this chord.

But one rule is: "never use the same altitude position twice". So C-C#-D would always become H#-C#-D.

Or a more complex example: G-G#-A would become a elegant F##-G#-A. The fact that a notation app like muse-score allowes your 5th example still does not mean that it is allowed or elegant.  It is a little bit like writing a typo in WORD: "God Luck" will be printed, but is still a typo.

To your question:

Quotedoes your code also support this 3 half tone chords arrangement?

Yes every 21-system does support this! This does not means that the result is alllowed or elegant.

My example code demostrate five things:

1.
How a 21-system works.

2.
How a midi-note is re-calculated from a 21-system-note.

3.
How to calculte a "best match" 21-system-note from a midi note or a midi-chord.

4.
How to display 21-system-notes

5.
How to calcuate the help lines



What is not implemented:

1. It has no algorithm to decide, when placing a note "a little bit to the right". But his can easyly be done by comparing all note of the chord with the given function YPos() (=note/3). If then two results have only a difference of 1 this means you will need this "right displacement" anywhere.

2. It has no a double ## or double bb algorithm. So some of the "3 half tone chords" would look similar unelegant like they do in musescore. (example: G-G#-A)

3. It has no "is it bass or treble"-flag. So this needs to be done.



Write questions if you need more explanation of the example code.


   

I tried putting midi notes 60,61,62 which is C C# and D and your system didnt display it properly..

(https://i.imgur.com/oLBcttF.jpg)

anyway what I'm gonna do is to post my last version of progress and maybe slowly improve it.. by your advices..

I was busy fixing other stuff in the little time I put on this.
but now, after fixing other errors, I'm free again to concentrate on proper notes displaying.
I promise you ill improve it until it get to what you think its proper, just need patient.

I started making this type of notes Display

(https://i.imgur.com/zgLGTHP.jpg)

And ye .. I know its not correct key. Ill fix.

The helping line problem does not come from my code.

In the case of 60-61-62 my app crashs, because it is no "senseful chord". The function Notation.WhichTable(MidiChord) returns a "-1", what means: "No table fits!"
In this cases we have to add  "last resort" to pruduce anything but no crash.

I added a new function, which finds those senseless chords and tries to display them in a "all b" or "all #" style. As this can produce notes on the same line, it tries to test both approaches and select the "best". If nothing helps it return a ugly chord with notes onthe same line.

I updated the "Whole Runnable Code" example in my post #34:
https://www.syntaxbomb.com/index.php/topic,8467.msg347050592.html#msg347050592

There the  "Whole Runnable Code" example has now a new function...


...which tries to display anything in each situation.

This is the algo:
Function UseAllSameSign:Int[] (MidiChord:Int[], FlatOrSharp:Int=FLAT)
Global Iteration%
' tricky new function to process also "strange chords"
' if all 14 tables fail this algo trys to prevent notes on the same line
Local FlatTableNote[]  =  [1,3,4,6,9,10,12,13,15,16,18,21]
Local SharpTableNote[] = [-1,2,4,5,7,8,11,13,14,16,17,19]
Local ReturnChord:Int[MidiChord.Length]

Print "STRANGE CHORD! now Using UseAllSameSign() function with FlatOrSharp=" + FlatOrSharp + " Iteration-Round=" + Iteration
' first use one of the tables:
For Local i:Int=0 To MidiChord.Length-1
Local SearchNote% = MidiChord[i] Mod 12
Local Octave%=MidiChord[i] / 12
If FlatOrSharp=SHARP
ReturnChord[i]= SharpTableNote[SearchNote] +21*Octave
Else
ReturnChord[i]= FlatTableNote[SearchNote] +21*Octave
EndIf
Next

'now test, whether this table also produce notes on the same line:
For Local i:Int=0 To MidiChord.Length-1
For Local j:Int=i+1 To MidiChord.Length-1
If YPos(ReturnChord[i]) = YPos(ReturnChord[j])
'If yes... try the other table
If Iteration=0
Iteration=1  'for not producing a endless loop
Return UseAllSameSign(MidiChord,1-FlatOrSharp)
EndIf
EndIf
Next
Next
Iteration=0
Return ReturnChord
End Function

Additional I added 2 more tables for the very seldom used scales "C#-Major" with 6#, and "Cb-Major" with 6b. This serves in cases where a F#-Major-Song use the B#-Chord. Or a Gb-Major-Song use the Cb-Chord.


Because my example still has no algo for the "a little bit to the right"problem it now displays the chords in a "arpeggio" style. This makes it easier to check the algo is workuing correct.

Scrennshot shows a 60-61-62-chord
(https://www.syntaxbomb.com/index.php?action=dlattach;topic=8467.0;attach=4653)

now thats awesome.. im gonna try to use it.. thanks

Ok I again could refine the algo for chords with two improvements.

If all 14 scale-tables fail, now there are 4 additional tables for methods "all with #" and "all with b". both methods now have two steps "less signs" or "a lot of signs":


Function UseAllSameSign:Int[] (MidiChord:Int[], Iteration:Int=0)
' tricky new function to process also "strange chords"
' if all 14 tables fail this algo trys to prevent notes on the same line
Local SameTableNote[][]= New Int[][4]
'                  [C   D   E  F     G     A     B]
SameTableNote[0]=  [1,3,4,6,7,10,12,13,15,16,18,19]
SameTableNote[1]=  [1,2,4,5,7,10,11,13,14,16,17,19]
SameTableNote[2]=  [1,3,4,6,9,10,12,13,15,16,18,21]
SameTableNote[3]=  [-1,2,4,5,7,8,11,13,14,16,17,19]


The app iterates through al 4 variants and decides for the best.

In the case where all 4 still deliver notes on the same line a new algo UseMixedSigns() starts. It tries to build the chord without any scale-rules only with using any combination of # and b that is theorectical possible:


Function UseMixedSigns:Int[] (MidiChord:Int[], BadChord:Int[])
' ultimate chance for chords: Try to mix # with b or send BadChord
Local list:TList=New TList
Local SearchNote% = MidiChord[0] Mod 12
Local Octave%=MidiChord[0] / 12
Local locChord:Int[]
AddChordsToListe(List, locChord, SearchNote, Octave)

For Local i:Int=1 To MidiChord.Length-1
Local SearchNote% = MidiChord[i] Mod 12
Local Octave%=MidiChord[i] / 12

For Local Chord:Int[]=EachIn list
If chord.length=i
AddChordsToListe(List, Chord, SearchNote, Octave)
List.Remove Chord
EndIf
Next
Next
Print "EXTREM STRANGE CHORD! now Using UseMixedSigns() function"
For Local Chord:Int[]=EachIn list
Return chord
Next
Print "!!!!! BAD CHORD! no solution found !!!!"
Return BadChord
End Function


Function AddChordsToListe(List:TList, Chord[], SearchNote, Octave)
Print "Adding " + Searchnote
Local last%=Chord.length
Local NewChord_I:Int[last+1]
Local NewChord_II:Int[last+1]
For Local i%=0 To last-1
NewChord_I [i] = Chord[i]
NewChord_II[i] = Chord[i]
Next
Select SearchNote
Case 0
NewChord_I[last]=-1+21*Octave
NewChord_II[last]=1+21*Octave
Case 1
NewChord_I[last]=2+21*Octave
NewChord_II[last]=3+21*Octave
Case 2
NewChord_I[last]=4+21*Octave
Case 3
NewChord_I[last]=5+21*Octave
NewChord_II[last]=6+21*Octave
Case 4
NewChord_I[last]=7+21*Octave
NewChord_II[last]=9+21*Octave
Case 5
NewChord_I[last]=8+21*Octave
NewChord_II[last]=10+21*Octave
Case 6
NewChord_I[last]=11+21*Octave
NewChord_II[last]=12+21*Octave
Case 7
NewChord_I[last]=13+21*Octave
Case 8
NewChord_I[last]=14+21*Octave
NewChord_II[last]=15+21*Octave
Case 9
NewChord_I[last]=16+21*Octave
Case 10
NewChord_I[last]=17+21*Octave
NewChord_II[last]=18+21*Octave
Case 11
NewChord_I[last]=19+21*Octave
NewChord_II[last]=21+21*Octave
EndSelect
If ContainsSameLine(NewChord_I)=False
Print "ADD **** Chord_I to list" + StringFromChord(newchord_I)
List.Addlast NewChord_I
EndIf

If NewChord_II[Last]>0
If ContainsSameLine(NewChord_II)=False
List.AddLast NewChord_II
Print "ADD **** Chord_II to list" + StringFromChord(newchord_II)
EndIf
EndIf
End Function


In the case where also this algo looses, it decides to take the "Bad-Chord", what means a design of the chord with notes on the same line. This happens f.e. on midichord=67-68-69

I updated for you the The whole runnable example in my post #34. So you have a full running example. It starts with a harmless C-min chord but if you click you can step through all ugly chromatic chord like 59-60-61 then 60-61-62 and so on....

Thanks MidiMaster.. have a nice weekend
Thanks for all the effort youre putting..

From time to time I leave the notation punctuality and concentrating on other aspect of this app.. (when i feel good)
so I wont give it all up.

Now Im working on live notation recording for a while

I took a rest from programming returned back not long ago..

OK now Im trying to learn Audio recording..

I did a small app for recording and testing..

Ive managed to record audio just fine..
but now that I have the Sample:Byte ptr
I have no Idea how to read from it.
how do I access a Byte ptr? Like Peek and Poke on commodore 64?


-------------------------------------

OK after experimenting with Byte ptr ive managed to start understanding how to use it..

Seems you access it like Arrays..  ByePtr[AddressInBytes]


Question 2:

When i do playsound and save the channel it played on
and when i ask is channelplaying.. it wont give a false reply when the sample is suppose to have ended..
how can that be ?

Are you using OpenAL or MiniAudio for recording?

Depending on the format of the recording you would better use Byte Ptr or Short Ptr for receiving the true values.

simply add a new pointer if needed:

ShortSample: Short Ptr = Short Ptr(MyRecording.Samples)
For local i:Int=0 to MyRecording.length/2-1
   Print ShortSample[i]
Next
If you recorded in 16bit the MyRecording.length still shows you the length in bytes. So you have to divide by 2.

If you only want to save the recorded samples you need not to care about the correct pointers. But if you want to process or check the recording signal you need the true values:

If you recorded 8bit Byte Ptr is the best, but you have to substract 128 to get the real values. The reason is that the Zero-Value is defined as 128 in 8bit-Streams.
You can use this function:

Function ByteToInt:Int( s:Int )
    Return s-128
End Function


If you recorded 16bit Short Ptr is the best, but you have to transform the values from Unsigned SHORT to Signed INT to get the real values. The reason is that  BlitzMax has no Signed SHORT variable type.

You can use this function:

Function ShortToInt:Int( s:Int )
    Return (s Shl 16) Sar 16
End Function


After you transfered the samples values to true values you could do things like adjusting the volume of a recording, etc...



If you use MiniAudio and record with 32bit you could directly work with the values if you use the correct pointer Int Ptr or Float Ptr.

Im using Open AL

Im trying to read the volume while recording but it wont let..

now ill try to cut half of the sample and see if it works.

ill put my little app here soon for investigation


OK i managed to cut a sample to half.. I mean clone half section to its own other half section

this is my code.. feel free to tell me whats wrong


Function CutSample(Sample:TAudioSample Var, From = 0, Till = 0)
Local T:TAudioSample, KeepSize, HalfLength

KeepSize = Sample.length

HalfLength = Sample.length / 2

T = CreateAudioSample(KeepSize, MO.SAMPLE_RATE, SF_STEREO16LE)

MemCopy(T.samples, Sample.samples, Sample.length)

For Local I = HalfLength To Sample.length
Sample.samples[I - HalfLength] = T.samples[I]
Next

End Function



once again.. i have problem telling when the playing has ended.. of the audio sample.. since the channelplaying keeps showing as if its still playing for some reason

im trying to display the sample and thats what i did. and it aint working properly

Function DisplayRecordedSample(MySample:MySample_Type, Xpos:Float = 0, Ypos:Float = 0)
Local Ratio:Float, SampleHeight:Float

Ratio = SEWidth / MySample.Sample.length

xSetBuffer(xImageBuffer(SE_Image))

xColor(0, 255, 0)

SampleHeight = Math.FitValue(MySample.Sample.samples[MySample.LengthInBytes - 2], 256, SEHeight)

xRect(MySample.LengthInBytes * Ratio, SEHeight - SampleHeight, 1, SampleHeight, True)

   'Frame
xColor(255, 0, 0)
xRect(0, 0, SEWidth - 1, SEHeight - 1)

xSetBuffer(xBackBuffer())

End Function

Anyway when I record a sample.. and than replay.. it keeps thinking its being played for at least double the time for some reason..
but when i save the sample and reload it.. it stops exactly at the end..
I dont know why..

I also have no Idea how to display the Wave of the sample.. :( annoying

It looks like you are working with a library I dont know.

some of your functions are not native BlitzMax functions.

If you use regular TAudioSample and SF_STEREO16LE the values are UNSIGNED SHORT in BlitzMax, but SIGNED SHORT in reality. To get a value which you can process you have to transform it to INTEGER

second: When you process SF_STEREO16LE you have to care about the frame size of 4 bytes. Each sample is 4 bytes long:
|high left | low left | high right | low right |
This means your cuts or moves are only allowed on positions which are multiples of 4. If you not care about this may cause noise sound or mix-ups of left and right channel.

HalfLength = (Sample.length / 2) Mod 4 '!!!!!

What is the type MySample_Type. Thats a non BlitzMax standard audio type? Perhaps already converted to INT? We must know this to give you the best advise.

To get a graphic you have to calculate with the real samples values. With original TAudioSample you need to convert each from UNSIGNED SHORT to INTEGER:
    Function ShortToInt:Int( s:Int )
        Return (s Shl 16) Sar 16
    End Function

Now you can shrink the values by dividing /256 and you will get values from -256 to 256 which fit to the screen. To manage the horizontal size of the TAudioSample you could use only every hundredth sample. This would mean that only 441 x-values remain per second.

OK midi master im now on it and testing what youre saying .. Thanks

MySample_Type is just something I made ..
it holds TaudioSample.

midimaster im using the code you adviced for me..

nothing else

here are my includes

Import vertex.openal
Import brl.standardio

Import brl.audiosample
Import brl.audio

Import brl.glmax2d
Import brl.reflection
Import brl.retro
Import brl.WavLoader
Import brl.directsoundaudio


btw midimaster i saw you on a blitzmax german site.. i tried to register but it didnt work

I cant make it work.. This is the function the suppose to display then sample while recording..

Function DisplayRecordedSample(MySample:MySample_Type, Xpos:Float = 0, Ypos:Float = 0)
Local Ratio:Float, SampleHeight

Ratio = SEWidth / MySample.Sample.length

xSetBuffer(xImageBuffer(SE_Image))

xColor(0, 255, 0)

    If MO.LengthCounterInBytes / 4 = Floor(MO.LengthCounterInBytes / 4) Then
Local TI =MySample.Sample.samples[MO.LengthCounterInBytes - 4]
TI = (TI Shl 8) + MySample.Sample.samples[MO.LengthCounterInBytes - 3]
SampleHeight = Math.FitValue(TI, 65536, SEHeight)
End If

Local CurrentX:Float = MO.LengthCounterInBytes * Ratio

xRect(PreviousDX, SEHeight - SampleHeight, CurrentX - PreviousDX, SampleHeight, True)

PreviousDX = CurrentX

xSetBuffer(xBackBuffer())

End Function


Function FitValue:Float(Value:Float, PeekValue:Float, NewFrame:Float)
Return NewFrame / PeekValue * Value
End Function



it suppose just to show the volume of the sample inside an Image sized 600*100
but instead it only shows lines even when its not making sound

the command FitValue is just mine.. to set the value into a 256 pixels Frame Top height limit. so dont mind it..

I understood what you said about the structure of the Sample.. but i still cant read it correctly..
ill keep working on it

Im trying to display only one side of the sample . i dont try to display stereo atm.
I wanted to pass faze one before I try Stereo . but I fail at this too.. and i dont know why

(https://i.imgur.com/ZodfL3f.jpg)

i also tried this for display not in real time while sampling, but later..

Function DisplayRecordedSampleLater(MySample:MySample_Type)
Local Ratio:Float

Ratio = SEWidth / MySample.Sample.length

xSetBuffer(xImageBuffer(SE_Image))

xColor(0, 255, 0)

For Local I = 0 To MySample.sample.length Step 4
Local High = MySample.Sample.samples[I]
Local Low = MySample.Sample.samples[I + 1]
Local Combined = high Shl 8 + Low
Local SampleHeight = Math.FitValue(Combined, 65536, SEHeight)
xRect(I * Ratio, SEHeight - SampleHeight, 1, SampleHeight, True)
Next

xSetBuffer(xBackBuffer())

End Function

Again! If you use SF_STEREO16LE you should use a SHORT pointer instead of a BYTE Pointer

It is a good idea first to start testing your code not in real time but with a given TAudioSample afterwards.
The capture-device will return values from -32768 to +32768, but BlitzMax Short Ptr will show them as value from 0 to 65536 which is wrong. After using the function ShortToInt() the Value are correct but need to be INTEGER.

Only with this INTEGER you can start your calculations for display.
 
BlitzMax 1.50:
Local Audio:TAudioSample
RealPointer: Short Ptr = Short Ptr(Audio.Sample)

' for read MONO or read all of STEREO use this:
For local i%=0 to Audio.Length-1
     local Value% = RealPointer[i]
     Value =  ShortToInt( Value )   
Next

' for listen to one channel of STEREO use this:
For local i%=0 to Audio.Length-1 Step 2
     local LeftValue% = RealPointer[i]
     LeftValue =  ShortToInt( LeftValue )

     local RightValue% = RealPointer[i+1]
     RightValue =  ShortToInt( RightValue )   
Next

Function ShortToInt:Int( s:Int )
        Return (s Shl 16) Sar 16
    End Function



Here a runnable Example for you:
(uses the audio-file TestABC.OGG from attachment here)
SuperStrict
Graphics 1200,600
Global Audio:TAudioSample=LoadAudioSample("testabc.ogg")

Print " HERTZ = " + Audio.Hertz
Print "FORMAT = " + Audio.Format + " (SF_MONO16LE)"
Print "LENGTH = "  +Audio.Length
'Print Audio.Samples
Global RealPointer:Short Ptr = Short Ptr(Audio.Samples)
Global Start%=0
Repeat
Cls
For Local I%= 0 To 1200
Local Value% = RealPointer[(i+Start)*5]
value = ShortToInt( Value)
DrawRect i, 300,1,Value/100
Next
Flip 1
Start=Start + 5
Until AppTerminate()


Function ShortToInt:Int( s:Int )
        Return (s Shl 16) Sar 16
End Function



I thought Short is a Byte.. :S

A) Why do you need a minus value in a sound wave? I didnt even expect this So minus means Left side?

B) why do you Step 5 when you said that each sample is 4 Bytes?

Quote from: Hardcoal on July 12, 2021, 03:50:13
I thought Short is a Byte.. :S

signed SHORTs are signed 16bit integer with 1sign-bit and 15 value bits (values from -32768 to +32768)
BYTES are 8bit integer always unsigned, so all 8bit are value bits (values from 0 to 255)

Quote
A) Why do you need a minus value in a sound wave?

The speakers are driven by AC voltage: With V=+1 the speaker is push ahead, with V=-1 the speaker is pushed back. Think of a sinus-curve which also runs from 0 (0°) to 1 (90°) back to 0 (180°) then to -1 (270°) and back to the beginning.

QuoteI didnt even expect this So minus means Left side?

No, the channels are independent, each channel has its own SHORT. In a TAudioSample they are sorted in Frames. Means all SHORTS belonging to the same time stamp are close together:
| Left 1 | Right 1 || Left 2 | Right 2 || Left 3 | Right 3 || ....|

Would the recording have 4 channels:
| ChA 1 | ChB 1 |ChC 1 | ChD 1 || ChA 2 | ChB 2 |ChC 2 | ChD 2 || ChA 3 | ChB 3 |....|

QuoteB) why do you Step 5 when you said that each sample is 4 Bytes?

In a MONO recording the correct step would be 1 to reach all samples values, because a SHORT PTR already jumps 16bit ahead each step:

SHORT PTR    RAM ADRESS
--------------------------
[0]          12345678
[1]          12345680
[2]          12345682
[3]          12345684
[4]          12345686
....


The 5 is related to the fact that in a recording the values are not changing that fast and we need not to to display them all. Its something like a "zoom factor" for the display not to show every sample but only every 5th. You can change the 5 to a 1 to get a more detailed view into the audio. Or change the 5 to a 500 to get a rough overview over the whole recording.

In a 12kHz-Recording:..
  1 means each 1/12000sec is a pixel, 1200 pixels show a time of 0.1sec
  5 means each  1/2400sec is a pixel, 1200 pixels show a time of 0.5sec
500 means each    1/24sec is a pixel, 1200 pixels show a time of 50 sec

sorry double post

I never knew a speaker vibrate on both directions .. ive always thought it only either produce magnetic field or not..
but now i do..

Although I still didnt quite understand how you read the data..
I did fix your example..
Because it got stuck

blitzmax

Strict

Const SWidth:Int = 1200
Const SHeight:Int = 600

Graphics (SWidth, SHeight)

Global AudioSample:TAudioSample = LoadAudioSample("Mine2.wav")

Print "HERTZ = " + AudioSample.Hertz
Print "FORMAT = " + AudioSample.Format + " (SF_MONO16LE)"
Print "LENGTH = "  +AudioSample.Length

Global RealPointer:Short Ptr = Short Ptr(AudioSample.Samples)

Const StepSize:Int = 5

Global Counter:Int = 0

Repeat
     Cls
    'Draws all wave
         For Local I:Int = 0 To SWidth  'This will Display from Edge To Edge what it can
            Local Value:Int = RealPointer[(I + Counter) * StepSize]
            Value = ShortToInt(Value)
            DrawRect (I, SHeight / 2, 1, Value / 100)
         Next
     Flip 1

If KeyDown(KEY_SPACE) = False Then Counter = Counter + StepSize

Until SWidth + Counter * StepSize >= AudioSample.length

Function ShortToInt:Int( s:Int )
        Return (s Shl 16) Sar 16
End Function

Ive managed to display the Wave properly

But now I want when I play the Sample to see a line the represent the location in the Sample.
But when you use PlaySound you dont get any information of the location of the playing..

So i can count time manually .. or is it a way to read to current location of the PlaySound, somehow?

Anyway i still didnt get the wave thing correctly, since what I display after recording is not the same like what i display when I load what I recorded..

Bytes can actually be signed or unsigned

The minus values are actually irrelevant they nearly help things. Speakers operate on a +- voltage system, but can be 0 aligned.

The computer storage can be anything - it's the os and the hardware that does the actuall transform to something an amp would understand - usually some form of optical isolated digital to analogue conversion.

So. The computer storage and manipulation can be any format it wants - it's the low level stuff that does the actual conversion.

Now.... Different audio systems (open all, etc) can use similar or completely different mechanisms.

Remember also that signed values are actually just the numbers, and cen be dealt directly as such. Using minus values is just a way to make it simple for humans to use...

The best way to think about audio is to understand what the driver wants. What you are happy with, and work out how to do the conversion when you require.

My personal suggestion is to use a signed float as the internal system storage- it makes everything simple and quick

Quote from: Hardcoal on July 12, 2021, 19:51:17...But now I want when I play the Sample to see a line the represent the location in the Sample.
But when you use PlaySound you dont get any information of the location of the playing..

But you can guess on which SamplePosition the PlaySound is. When we set aside, that we have latency the position in the audio is relative to the time that passed since we started the audio with PlaySound.

PlaySound plays HERTZ frames per seconds. Means in MONO:

Local Audio:TAudioSample
RealPointer: Short Ptr = Short Ptr(Audio.Sample)
Music:TSound = LoadSound(Audio)
PlaySound Music
StartTime:Int=Millisecs()
Repeat
     Position =  (Millisecs()-StartTime)*Audio.Hertz/1000
     ActSample = ShortToInt( RealPointer[Position] )
Until AppTerminate()


QuoteAnyway i still didnt get the wave thing correctly, since what I display after recording is not the same like what i display when I load what I recorded..

You need to explane more precise what the problems are or how you notice them. There should not be any difference.

Or send us the actual code snipplet for both.

Quote from: iWasAdam on July 12, 2021, 19:57:08
Bytes can actually be signed or unsigned

Of course they can, what I want to say is that in AUDIO-CAPTURE the SF_MONO8 is defined UNSIGNED with 128=ZERO. That is completely different from the other formats which are defined SIGNED and use a SIGN-BIT. Without this knowledge (how to transform) he cannot calculate (or paint) with the values.

And it matters that the SF_MONO16 is SIGNED but misinterpreted by BlitzMax. Without this knowledge he cannot calculate (or paint) with the values.

Hardcoal has to consider this in both of his functions: DisplayRecordedSample() and DisplayRecordedSampleLater()

At the moment I guess that Hardcoal is using SF_STEREO16LE to capture the audio.

I do use SF_STEREO16LE  44000 hz format only..
Im not going to make my life harder by messing with other formats while I cant handle one, lol

About displaying location using time, well i thought about that. but i thought theirs another way..
I can calculate time and know where the cursor should be.. and thats what im gonna do..

sorry its too complicated and confusing for me
Im trying to display the wave while recording.. and I have no idea with this all confusion of bytes, longs shorts..

anyway thats what ive done .. and its not working

Function DrawRecordedSampleWhileRecording(MySample:MySample_Type)
Local Ratio:Float, RealPointer:Short Ptr

Ratio = SEWidth / MySample.Sample.length / 2 - 1

RealPointer = Short Ptr(MySample.sample.Samples)

xSetBuffer(xImageBuffer(SE_Image))

xColor(0, 255, 0)

Local Point = mo.LengthCounterInBytes

  Local Value:Int = RealPointer[Point]
        Value = ShortToInt(Value)
Value = Math.FitValue(Value, DiversionAppearance, SEHeight)
        xRect (Point * Ratio, SEHeight / 2, 1, Value)

xSetBuffer(xBackBuffer())

End Function

the LengthCounterInBytes is the added bugger counter while recording

line in this example while sampeling

      LengthCounterInBytes = LengthCounterInBytes + CapturedSamplesLengthVar * 4

usually i understand things rather quick.
but this thing is all confusing.. i dont understand whats the jumps in bytes when you step in RealPointer[]
I mean each time I read lets say  RealPointer[1] than RealPointer[2] how much does it jumps in bytes?
1 bytes 2 bytes or 4?

also what is this    RealPointer = Short Ptr(Audio.Samples)
why isnt is real to begin with?


anyway im going through all your posts here, trying to understand what i missed.
so you wont need to repeat yourself to me.. Thanks

Quote from: Hardcoal on July 15, 2021, 20:44:41
...I have no idea with this all confusion of bytes, longs shorts..

BYTES are Bytes: one RAM cell with 8bit content (contains values from 0 to 255)
SHORTs are a combination of 2 Bytes, means 16bit content (BlitzMax values form 0 to 65535)
But in Audio SHORTS contain one bit for sign (positiv or negativ) and only 15bit for content (values from - 32767 to +32767)

If you use the audio format SF_STEREO16LE you work with these audio SHORTs, and because your Format it STEREO there are always 2 new SHORTs each tick. 2 SHORTs means 4Bytes.

Although the TAudioSample collects SHORTs when capturing Audio, it reports BYTEs to you (f.e. when calling Sample.Length. That is the reason why you have to calculate always with Sample.Length/2 to get the real number of samples) Also the Pointer to the samples Sample.Samples unfortunately is a Byte Ptr

RealPointer:Short Ptr stops this nonsens and opens a way to look at the samples really in SHORTS. Dealing with a SHORT PTR means 0 is the first SHORT, 1 is the second, and so on... So you can say a SHORT PTR jumps always 2 Bytes.

Quote...also what is this    RealPointer = Short Ptr(Audio.Samples)...

This is "Casting".
Casting means change the type of a variable. Or "look on it as it would be a ..."

Example:
A:Float=1.234
B:Int = Int(A)
Int() is a casting. It casts the float value type to an integer value type

for us:
Sample.Samples ' is always a BYTE PTR
RealPointer:Short Ptr = Short Ptr(Sample.Samples)
Short Ptr() is a casting. It casts the Byte Pointer type to a Short Pointer Type


BlitzMax offers a lot of casting functions. But you have no casting function to convert BlitzMax SHORTs to Audio SHORTs. ( unsigned SHORTs to signed SHORTs). Also there is no casting function to convert BlitzMax SHORTs to INTEGERs. Thatss the reason why we need this...
ShortToInt(Value)
ShortToInt() is a selfmade casting function. It casts the (for audio wrong) BlitzMax SHORT value type to an signed integer value type. Now we can read the true audio value.


Display Audio

When you try to display immediately, what you recorded, you first have to know, what of all this samples you want to display...

All Samples since start?
The last (newest) 1000 samples?
Only one (the very last) sample?

Then you have to know, how often you want to display....

Every new sample?
Every 1000 new sample?

The displaying of the samples shows lets say the newest 1000 samples. This means your display-function needs to have a FOR/NEXT-loop:
Function DrawRecordedSampleWhileRecording(MySample:MySample_Type)
Local RealPointer:Short Ptr = Short Ptr(MySample.sample.Samples)
xSetBuffer(xImageBuffer(SE_Image))
xColor(0, 255, 0)
Local Point = mo.LengthCounterInBytes/2-SEWidth
        If Point<0 then Point=0
        for local i% = 0 to SEWidth-1
Local Value:Int = RealPointer[Point+i]
        Value = ShortToInt(Value)
Value = Math.FitValue(Value, DiversionAppearance, SEHeight/2)
        xRect (i, SEHeight / 2, 1, Value)
Next
xSetBuffer(xBackBuffer())
End Function



If you want to show all possible samples, this means the display will be empty most of the time:
Function DrawRecordedSampleWhileRecording(MySample:MySample_Type)
Local RealPointer:Short Ptr = Short Ptr(MySample.sample.Samples)
xSetBuffer(xImageBuffer(SE_Image))
xColor(0, 255, 0)
        local StepWidth:Float = MySample.Sample.Length/2/SEWidth
Local Point:Float=0
        For local i%=0 to SEWidth
Local Value:Int = RealPointer[ int(Point)]
        Value = ShortToInt(Value)
Value = Math.FitValue(Value, DiversionAppearance, SEHeight/2)
        xRect (i, SEHeight / 2, 1, Value)
Point = Point + StepWidth
Next
xSetBuffer(xBackBuffer())
End Function


I dont know some of your commands. They are not regular BlitzMax commands:
- xSetBuffer
- xImageBuffer
- Math.FitValue
- DiversionAppearance
- xRect
- Mo.
...so I only can guess, what they are good for and how they are used...

and I dont know whether or how this SE_Image is refreshed after a FLIP? CLS? Or is it collecting all pixels?

If you keep the pixels from the last painting and you only want to draw the new ones, you have to store the mo.LengthCounterInBytes from the previous painting, so you can now paint only the additional samples:

Global LastPoint:Float

Function DrawRecordedSampleWhileRecording(MySample:MySample_Type)
Local RealPointer:Short Ptr = Short Ptr(MySample.sample.Samples)
xSetBuffer(xImageBuffer(SE_Image))
xColor(0, 255, 0)
        local StepWidth:Float = MySample.Sample.Length/2/SEWidth
Local Point:Float=0
local NowPoint:Float = mo.LengthCounterInBytes/2/SEWidth
        For local i%=0 to SEWidth
If (Point>LastPoint) and (Point<NowPoint)
Local Value:Int = RealPointer[ int(Point)]
        Value = ShortToInt(Value)
Value = Math.FitValue(Value, DiversionAppearance, SEHeight/2)
        xRect (i, SEHeight / 2, 1, Value)
Endif
Point = Point + StepWidth
Next
LastPoint = NowPoint
xSetBuffer(xBackBuffer())
End Function

I have another idea why your graphic in post #51 looks like this!

Do you try to paint all sample values?

Lets say we have a display window of 440 x-pixel and a recording of 10sec. 10sec of STEREO-recordings means 880.000 samples values. If you now try to paint them all, 2000 samples will be paint on the same x-position. And this means that the samples value with the highest peak will always overpaint all others. In nearly every block of 2000 samples there is a max value. This would result in a graphic like you postet it in pos #51.

To fill a 440pixel graphic you cannot paint more than 440 samples values. So you strategie should not be to calculate
Ratio = SEWidth / MySample.Sample.length
this gives x-postions like
14.001
14.002
14.003
14.004
...
which all result in a painting at x-position 14

but better
local StepWidth:Float = MySample.Sample.Length/2/SEWidth
this gives Pointer-Position like
1900
3800
5700
7600
...
This results in not painting a lot of samples values to the nearly same x-postion, but making big jumps in the recording-sample-block to pick only single values (a little bit like random). But this brings a good optical impression of the total recording.


As an alternative you should think about displaying only the last 1 second of the recording during recording. Also there you need to jump to single values, because here you still have 44.000 values for your 440pixels. My first example in post #52 showed this. This "streaming" or "flowing" gives a strong impression for the user that the datas are " just coming in".

Ive made a progress midi master.. thats the good news

Now, my main problem is understanding.. but im prograssing at that as well

once i understand somthing I know how to execute it.

for example.. when i create a new sample.. it comes up in a certain size i define..
but when I save it i become a quarter for its defined size..
I dont understand why

* also i just realized that the sample length is like 8 bytes per sample .. and not 4 bytes..  hmm i need to reread what you posted.. i was certain till now its 4 bytes



Ive already managed to display the sample properly after the recording..
but during the recording . nope..

This works!! (displaying the sample after recording)
Function DisplayRecordedSampleLater(MySample:MySample_Type)
Local Ratio:Float, RealPointer:Short Ptr

Ratio = SEWidth / MySample.Sample.length * 2

RealPointer = Short Ptr(MySample.sample.Samples)

ClearSampleDisplay()

xSetBuffer(xImageBuffer(SE_Image))

xColor(0, 255, 0)

For Local I = 0 To MySample.sample.length Step 16
  Local Value:Int = RealPointer[I]
        Value = ShortToInt(Value)
Value = Math.FitValue(Value, DiversionAppearance, SEHeight)
        xRect (I * Ratio, SEHeight / 2, 1, Value)
Next

xSetBuffer(xBackBuffer())

End Function

Global Test




this does not work properly .. (displaying the sample while recording)

Function DrawRecordedSampleWhileRecording(MySample:MySample_Type)
Local Ratio:Float, RealPointer:Short Ptr, SLIS:Float, Point

SLIS = MO.GetSampleLengthInSecs(MySample.Sample)

Ratio = SEWidth / (SLIS * 1000)

RealPointer = Short Ptr(MySample.sample.Samples)

Point = (MilliSecs() - KeepStartMS) * Ratio

If Point / 4 = Floor(Point / 4) Then

xSetBuffer(xImageBuffer(SE_Image))

xColor(0, 255, 0)

  Local Value:Int = RealPointer[point]
        Value = ShortToInt(Value)
Value = Math.FitValue(Value, DiversionAppearance, SEHeight)
        xRect (Point, SEHeight / 2, 1, Value)

xSetBuffer(xBackBuffer())

End If

End Function


my problem is reading the sample while recording properly.. but the displaying it isnt that hard..

But im reading your post midi master and trying to understand what you mean..
dont think i ignore it..

you said

Quotesecond: When you process SF_STEREO16LE you have to care about the frame size of 4 bytes. Each sample is 4 bytes long:
Code: [Select]
|high left | low left | high right | low right |

but when i create a sample it becomes double the size..


* anways when i save a sample it saves it lets say 345K, but when I load it back it shows that its size is only quarter.. say 86K
I calculate its size doing Sample.length/1024. it should bring me its size in KB

The sample length depend on the format you use. Do not mix up with the frame rate. "Frame" is defined as all samples at the same time. In Mono Frame and Sample are the same. In STEREO a Frame consists of 2 Samples: LEFT and RIGHT.

size in Bytes:
FORMAT        Sample-Size     Frame-Size
----------------------------------------
SF_MONO8           1             1
SF_STEREO8         1             2
SF_MONO16          2             2
SF_STEREO16        2             4


But a frame is never 8 Bytes!!! Can you explain, why you believe in 8?


Perhaps you should publish here a little bit more about how you defined the TAudioSample for Recording.

Quote...but when i create a sample it becomes double the size..

That's normal! If you define a TAudioSample of 100.000 Samples in SF_MONO16LE the size of the Buffer is 200.000 Bytes. 100.000 SHORTs need space of 200.000 Bytes.

If you define a TAudioSample of 100.000 Samples in SF_STEREO16LE the size of the Buffer is 400.000 Bytes. 2x100.000 SHORTs need space of 400.000 Bytes.

Now the TAudioSample-Nonsens:
SuperStrict
Global Audio:TAudioSample=CreateAudioSample(1000,44000,SF_STEREO16LE)
Print Audio.Length
For Local i%=0 To 4000
Audio.Samples[i]=123
Next

Here Print Audio.Length would report 1000. But the following code lines show that is is possible to access the buffer until  [4000]

So Print Audio.Length does not report the size of the buffer nor the number of samples, but the number of frames.
Also CreateAudioSample(1000,... does not define 1000Bytes nor 1000Samples, but 1000Frames!

Loading back a audio file

Load an AudioFile of 352.000 Bytes (SF_16STEREOLE) into a TAudioSample. The Audio.Length will report  88.000 frames. Because it is STEREO each frame has 4 Bytes. 88.000 frames are exaclty 2sec of music. (when recorded with 44kHz)


A audio file of 88.000 frames recorded with SF_STEREO16LE at 44kHz:
     HERTZ =  44.000
    FRAMES =  88.000
      TIME =   2 sec
    LENGTH =  88.000
   SAMPLES = 176.000     (88.000 LEFTs + 88.000 RIGHTs)
     BYTES = 352.000
FRAMESIZE = 2 Samples   (LEFT and RIGHT)
FRAMESIZE = 4 Bytes
SAMPLESIZE = 2 Bytes

I thought the exact hertz are 44100 not 44000..

Here is all my code


Main App
'SetChannelVolume
'Try to add Recording Quantize..

Strict

Framework brl.blitz

Import maxgui.Drivers

Import xorsteam.xors3d
Import xorsteam.xscript
Import albalynx.albalynx
Import albalynx.connect_xors3d

Import vertex.openal
Import brl.standardio

Import brl.audiosample
Import brl.audio

Import brl.glmax2d
Import brl.reflection
Import brl.retro
Import brl.WavLoader
Import brl.directsoundaudio

Include "../../MyLibs/MyOpenal.bmx"
Include "../../MyLibs/UserInputs.bmx"
Include "../../MyLibs/AlbaSection.bmx"
Include "../../MyLibs/Math.bmx"

'------

Global MO:MyOpenAL_Type = New MyOpenAL_Type
Global UserInput:UserInputs_clas = New UserInputs_clas
Global MA:MyAlbaLib_Class = New MyAlbaLib_Class
Global Math:MyMathFuncs_class = New MyMathFuncs_class
 
MO.PrepareOpenAL()
MO.PrepareCaptureDevice()

'States
Global CurrentState:Type_Class
Global Actions:TList = CreateList()
Global Act_Ideal:Type_Class = AddNewType(actions, "Ideal")
Global Act_Recording:Type_Class = AddNewType(actions, "Recording")
Global Act_Playing:Type_Class = AddNewType(actions, "Playing")
CurrentState = Act_Ideal

'Xors

xSetEngineSetting("Splash::TilingTime", "0")
xSetEngineSetting("Splash::AfterTilingTime", "0")
xSetEngineSetting("Engine::Multithreaded", "1")
 
Const SHeight = 600
xGraphics3D (800, SHeight)

Global Camera = xCreateCamera()
xCameraClsColor(Camera, 0, 100, 100)

MA.SetMyAlba()

'Interface
Global Record_bt = alCreateGButton(alDesktop, "Record", 0, 30, 70, 30)
Global Play_bt = alCreateGButton(alDesktop, "Play", 70, 30, 70, 30)
Global Stop_bt = alCreateGButton(alDesktop, "Stop", 140, 30, 70, 30) ; alhide(stop_bt)
Global ResetSample_bt = alCreateGButton(alDesktop, "ResetSample", 210, 30, 110, 30) ; alhide(stop_bt)

Global Waitsound_cb:SwitchButton_Type = MA.CreateSwitchButton(alDesktop, "On Record, Wait Sound", 550, 80)
Global MetronomOn_cb:SwitchButton_Type = MA.CreateSwitchButton(alDesktop, "Metronom On", 550, 120) ; ma.SetSwitchButtonState(MetronomOn_cb, False)
 
'State Presentor
Global CurrentState_TB = alcreategtextbox(alDesktop, "", 5, 550, 200, "CurrentState")
alLock(CurrentState_TB)
alSetValueS(CurrentState_TB, Act_Ideal.Name)

'Info Section
Global Output_Ta = alcreategtextarea(alDesktop, "", 250, 500, 200, 4, "Output")
Global ClearOutputWin_bt = alCreateGButton(alDesktop, "Clear", 450, 563, 50, 30)

'Sample Length Decider
Global SampleLength_TB = alcreategtextbox(alDesktop, "2", 5, 350, 150, "SampleLengthInSeconds")

'Upper Menu
Global Head_menu = alCreateGMenu()
Global SaveSample_mi = alAddMenuItem(Head_menu, "File\SaveSample")
Global LoadSample_mi = alAddMenuItem(Head_menu, "File\LoadSample")
Global Exit_mi = alAddMenuItem(Head_menu, "File\Exit")

'My Sample
Global MySample:MySample_Type = New MySample_Type

Global ReadSample_Flg = True

Global MetroSnd:TSound = LoadSound("Metronome.wav")

Global KeepStartMS:Float

'SampleEditing
  Const SEX = 170
  Const SEY = 300
  Const SEWidth:Float = 600
  Const SEHeight:Float = 100
  Global SE_Image = xcreateimage(sewidth, seheight)
  ClearSampleDisplay()
 
  Const InfoDisplayX = 550

Repeat

xCls
xRenderWorld()
xUpdateWorld(5)

xDrawImage(SE_Image, SEX, SEY)

Select CurrentState

   'Ideal
Case Act_Ideal

xText(100, 180, "5 to Increase Volume")

   'Record Sample Start
If alTestClick(Record_bt) Then
MO.ClearAudioSample(MySample.Sample)
MySample = MO.CreateNewMySample(alGetValueI(SampleLength_TB))
    ChargeAction(Act_Recording)
alHide(Record_bt)
alHide(Play_bt)
ReadSample_Flg = False
End If

   'Play Sample
If xKeyHit(xKEY_2) Or alTestClick(Play_bt) And MySample.Sample.length > 0 Then ChargeAction(Act_Playing)

   'Clear Sample
If alTestClick(ResetSample_bt) Then MO.ClearAudioSample(MySample.Sample) ; OutputMessage("Reseting Sample")

   'Increase Volume
If xKeyHit(xKEY_5) Then MO.IncreaseSampleVolume(MySample.Sample)

   'Load Sample
If MA.menuitemclicked(LoadSample_mi) Then
Local FileAndPath:String, TS:TAudioSample
FileAndPath = RequestFile("ChooseSample",,, CurrentDir() + "\")
TS = LoadAudioSample(FileAndPath)
If TS <> Null Then MySample.Sample = TS
DisplayRecordedSampleLater(MySample)
End If

   'Save Sample As
If MA.menuitemclicked(SaveSample_mi) Then MO.SaveSample(MySample)

   'Clear output win
If alTestClick(ClearOutputWin_bt) Then alSetValueS(Output_Ta, "")

   'Show Volume On Ideal
DisplaySampleVolume(0, 500)

   'Tests
   
   'R Cut sample
If xKeyHit(xKEY_R) Then CutSample(MySample.Sample) ; PlayMetronom()

   'PlaySampleSection
    If xKeyHit(xKEY_P) Then MO.PlaySampleSection(MySample, 1, 4)    

   'Recording
Case Act_Recording

    Local Answer

   'Sampeling
Answer = MO.Sampeling_Process(5, MySample)

Select Answer

       'Capturing Audio
Case 1

'Play Metronom
If MA.GetSwitchButtonState(MetronomOn_cb) = True Then PlayMetronom()

'Rec Clock Counter
PlayClock()

DrawRecordedSampleWhileRecording(MySample)

DrawCursorWhileRunning(MySample)

   'End Sampeling  
Case 2
DisplayRecordedSampleLater(MySample)
    ActionEnder()
   'Wait For Sound 'Wait Sound
Default
KeepStartMS = MilliSecs()
EndSelect

xColor (255, 234, 0)
xText(InfoDisplayX, 540, "Sample Recording Counter: " + MO.LengthCounterInBytes)

   'Stop
If xKeyHit(xKEY_ESCAPE) Or alTestClick(Stop_bt) Then ActionEnder()

       'Play Sample
Case Act_Playing

PlayClock()

DrawCursorWhileRunning(MySample)

   'Stop
If xKeyHit(xKEY_ESCAPE) Or alTestClick(Stop_bt) Or ChannelPlaying(MySample.Channel) = False Then
If ChannelPlaying(MySample.Channel) Then StopChannel(MySample.Channel)
ActionEnder()
End If

End Select

xColor (255, 234, 0)

xText(InfoDisplayX, 500, "General Memory: " + GetMem())
If MySample.Sample <> Null xText(InfoDisplayX, 520, "Sample Length Limit: " + MySample.Sample.length)

   'Display Sample wave
    xText (170, 280, "SampleWave")

   'Sample Details
    xText (170, 410, "Details:")
xText (170, 430, "Hertz: " + MySample.Sample.hertz)
If MySample.Sample.hertz > 0 Then
xText (170, 450, "Length In Seconds: " + MySample.Sample.length / MySample.Sample.hertz / 4)
xText (170, 470, "Length In KB: " + MySample.Sample.length / 1024)
End If

Delay(4)
MA.UpdateALEvents()
xFlip()

   'Exit
If xKeyHit(KEY_ESCAPE) Or xWinMessage("WM_CLOSE") Or MA.menuitemclicked(Exit_mi) Then QuitSection()

Forever

'-----------------------------'

Function QuitSection()
End
End Function

'Messages

Function OutputMessage(Message:String)
alSetValueS(Output_Ta, alGetValueS(Output_Ta) + "Reseting Sample" + "~n")
End Function

'Editing

Function CutSample(Sample:TAudioSample Var, From = 0, Till = 0)
Local T:TAudioSample, KeepSize, HalfLength

KeepSize = Sample.length

HalfLength = Sample.length / 2

T = CreateAudioSample(KeepSize, MO.SAMPLE_RATE, SF_STEREO16LE)

MemCopy(T.samples, Sample.samples, Sample.length)

For Local I = HalfLength To Sample.length
Sample.samples[I - HalfLength] = T.samples[I]
Next

End Function

'-------Metronom--------------'

Global MiliKeeper  'Needed
Global MetroPace

Function PrepareMetronom(ToBit = 120)
MetroPace = 60000 / ToBit
MiliKeeper = MilliSecs()
End Function

Function PlayMetronom()
If MilliSecs() >= MiliKeeper Then
PlaySound(MetroSnd)
MiliKeeper = MilliSecs() + MetroPace
End If
End Function

   'Clock

Function PlayClock()
xText (InfoDisplayX, 580, "Clock Counter: " + (MilliSecs() - KeepStartMS) / 1000)
End Function

   'Cursor

Function DrawCursorWhileRunning(MySample:MySample_Type)
Local X:Float = (SEWidth / MySample.Sample.length) * ((MilliSecs() - KeepStartMS) / 1000 * MySample.Sample.hertz * 4)
xColor(0, 255, 0)
xLine (SEX + X, SEY, SEX + X, SEY + SEHeight)
End Function

'-------Display-----------'

Function DisplaySampleVolume(Xpos:Float = 0, YPos:Float = 0, AlsoReadSample = True)

If AlsoReadSample = True Then MO.ReadBufferedSample_Int()

xText (Xpos, YPos - 20, "Audio Volume")
If MO.GetVolumeSize() > 0.1 Then
xColor(0, 255, 0)
xRect (Xpos, YPos, MO.GetVolumeSize(), 30, 1)
End If

xColor(255, 0, 0)
xRect (Xpos, YPos, 150, 30)

End Function

Global PreviousDX:Float
Const DiversionAppearance = 8192

Function DisplayRecordedSampleLater(MySample:MySample_Type)
Local Ratio:Float, RealPointer:Short Ptr

Ratio = SEWidth / MySample.Sample.length * 2

RealPointer = Short Ptr(MySample.sample.Samples)

ClearSampleDisplay()

xSetBuffer(xImageBuffer(SE_Image))

xColor(0, 255, 0)

For Local I = 0 To MySample.sample.length Step 16
  Local Value:Int = RealPointer[I]
        Value = ShortToInt(Value)
Value = Math.FitValue(Value, DiversionAppearance, SEHeight)
        xRect (I * Ratio, SEHeight / 2, 1, Value)
Next

xSetBuffer(xBackBuffer())

End Function

Global Test

Function DrawRecordedSampleWhileRecording(MySample:MySample_Type)
Local Ratio:Float, RealPointer:Short Ptr, SLIS:Float, Point

SLIS = MO.GetSampleLengthInSecs(MySample.Sample)

Ratio = SEWidth / (SLIS * 1000)

RealPointer = Short Ptr(MySample.sample.Samples)

Point = (MilliSecs() - KeepStartMS) * Ratio

'Local Sample:Float[1]
'MO.RingBuffer.PeakLast(Sample, 0, 4)
'Print Sample[0]

If Point / 4 = Floor(Point / 4) Then

xSetBuffer(xImageBuffer(SE_Image))

xColor(0, 255, 0)

  Local Value:Int = RealPointer[point]
        Value = ShortToInt(Value)
Value = Math.FitValue(Value, DiversionAppearance, SEHeight)
        xRect (Point, SEHeight / 2, 1, Value)

xSetBuffer(xBackBuffer())

End If

End Function

'Clear

Function ClearSampleDisplay()
xSetBuffer(xImageBuffer(SE_Image))
xCls()

xColor(0, 0, 0)
xRect(0, 0, SEWidth - 1, SEHeight - 1, 1)

   'Frame
xColor(255, 0, 0)
xRect(0, 0, SEWidth - 1, SEHeight - 1)

xSetBuffer(xBackBuffer())
End Function

'-----------Externals-----------'

Global MemFreq
Global Mem:String
Function GetMem:String()

   'Memory
    If MemFreq = 0 Then
Mem = (GCMemAlloced() / 1024) + "K"
Else
If MemFreq > 100 Then MemFreq = -1
End If

MemFreq = MemFreq + 1

Return Mem
End Function

Function ShortToInt:Int(s:Short)   'This gives the number minus if needed from -32768 to 32767
      Return (s Shl 16) Sar 16
End Function

Function ByteToInt:Int(B:Byte)
    Return B - 128
End Function

   'Print Sample
    Rem
ShortSample:Short Ptr = Short Ptr(MyRecording.Samples)
For Local i:Int = 0 To MyRecording.length / 2 - 1
   Print ShortSample[i]
Next
End rem

'----------Actions-----------'

Function ChargeAction(Action:Type_Class)

CurrentState = Action
alShow(Stop_bt)
alSetValueS(CurrentState_TB, Action.Name)

KeepStartMS = MilliSecs()

Select Action

Case Act_Recording

PrepareMetronom()
MO.PrepareBeofreCapture()
ClearSampleDisplay()

Case Act_Playing

MO.StartPlayMySample(MySample)
End Select

End Function

Function ActionEnder()
CurrentState = Act_Ideal
alSetValueS(CurrentState_TB, Act_Ideal.Name)
alShow(Play_bt)
alShow(Record_bt)
ReadSample_Flg = True
End Function

'--Types--'  add this to blitzmax my lib

Type Type_Class

Field Name:String
Field Flags
Field FileEnding:String

Field TypeParent:Type_Class
Field TypeGroup:TList

Field MediaHandle  'NEW!!

Field SubTypes_List:TList = CreateList()

   'Data
Field Value:Float     'maybe value should be string?

   'Temp Parameter
Field ALHandle
Field Remark:String 'not used yet

End Type

Function GetTypeByName:Type_Class(TypesList:TList, name:String)
Local TempElementType:Type_Class
For TempElementType = EachIn TypesList
If Lower(name) = Lower(TempElementType.name) Then Return TempElementType
Next
End Function

Function AddNewType:Type_Class(TypeGroup:TList, TypeName:String, FileEndings:String = "", Value:Float = Null)
Local NewElementType:Type_Class

NewElementType = New Type_Class

NewElementType.TypeGroup = TypeGroup

NewElementType.name = TypeName
NewElementType.FileEnding = FileEndings
NewElementType.value = value

If ListContains(TypeGroup, NewElementType) = False Then ListAddLast(TypeGroup, NewElementType)

Return NewElementType
End Function

Function AddSubType:Type_Class(ParentType:Type_Class, TypeName:String, FileEndings:String = "", Value:Float = Null)
Local TrackSection:Type_Class
TrackSection = AddNewType(ParentType.TypeGroup, TypeName, FileEndings, Value)
TrackSection.TypeParent = ParentType
ListAddLast(ParentType.SubTypes_List, TrackSection)
Return TrackSection
End Function

Function ReturnTypeFileEndingList:String[] (SonType:Type_Class) 'Returns an array of the specific Sontype possible FileName ending. exmp: sprite is "png|apng|jpg|ajpg"
Local I, TypeEnd:String[], CurrentMid:String, CurrentEnd:String

Local LenTargetFileEnding = Len(SonType.FileEnding)

   'Eliminating zero cell
TypeEnd = TypeEnd +[""]

For I = 1 To LenTargetFileEnding
CurrentMid = Mid(SonType.FileEnding, I, 1)
If CurrentMid = "|" Then
TypeEnd = TypeEnd +[CurrentEnd]
CurrentEnd = ""
Else If I = LenTargetFileEnding
TypeEnd = TypeEnd +[CurrentEnd + CurrentMid]
Exit
Else
CurrentEnd = CurrentEnd + CurrentMid
End If
Next

Return TypeEnd
End Function


The included File that i made
'PauseChannel
'ResumeChannel
'CueSound
'StopChannel

Type MyOpenAL_Type

Const SAMPLE_RATE:Int = 44100   'In Hertz [Hz] *4 Bytes

Field Data:Byte[] = New Byte[SAMPLE_RATE * 2] '16 Bit per sample
Field RingBuffer:TFloatRingBuffer = TFloatRingBuffer.Create(SAMPLE_RATE)

Const SampBuffSize = 1800
Field SamplesBuff:Float[] = New Float[SampBuffSize] 'This number is temp

Field Device:Byte Ptr, Context:Byte Ptr
Field CaptureDevice:Byte Ptr

Field NumAvailableSamples:Int
Const SampelingChunckSize:Float = 1000 'I think its the chunck of the moment sampeling
Field SampleCurrentVolume:Float

Global MySamplesList:TList = CreateList()

Method PrepareOpenAL:Byte Ptr(PrintListOfCaptureDevices = True)

TOpenAL.Open()
TOpenAL.InitAL()
TOpenAL.InitALC()

Device = alcOpenDevice(Null)
If Device = Null Then WriteStdout "Device is null when using alcOpenDevice~nplease check or approve in windows10 microphone capture"
Context = alcCreateContext(Device, Null)
alcMakeContextCurrent(Context)

   'List of Capture Devices
If PrintListOfCaptureDevices
WriteStdout("List of capture devices:~n")
For Local CaptureDevice:String = EachIn EnumCaptureDevices()
WriteStdout(CaptureDevice + "~n")
Next
WriteStdout("#Default Capture Device: " + String.FromCString(alcGetString(Null, ALC_CAPTURE_DEFAULT_DEVICE_SPECIFIER)))
End If

End Method

   'Starts the capture but capture nothing
Method PrepareCaptureDevice:Byte ptr()
CaptureDevice = alcCaptureOpenDevice(Null, SAMPLE_RATE, AL_FORMAT_STEREO16, SAMPLE_RATE) 'i think buffer size is the size for the gaps of the cpu
If CaptureDevice = Null Then Notify ("CaptureDevice is null") ; Return
alcCaptureStart(CaptureDevice)
Return CaptureDevice
End Method

'Create
   
Method CreateNewMySample:mysample_type(LengthInSeconds:Float)
Local MS:MySample_Type
MS = New MySample_Type
MS.Sample = CreateAudioSample(SAMPLE_RATE * 4 * LengthInSeconds, SAMPLE_RATE, SF_STEREO16LE)
ListAddLast(MySamplesList, MS)
Return MS
End Method

Method DeleteMySample(MySample:MySample_Type Var)
If MySample = Null Then Return
ListRemove(MySamplesList, MySample)
MemFree(MySample.Sample)
MySample = Null
End Method

'Capture

Field GateOpen_flg  'Wait Sound Gate
Field LengthCounterInBytes

Method PrepareBeofreCapture()
LengthCounterInBytes = 0
End Method

Method Sampeling_Process(WaitSoundSensitivity:Float = 0, MySample:MySample_Type)
        Local CapturedSamplesLengthVar

   'Wait Note Block
If WaitSoundSensitivity > 0 And GateOpen_flg = False Then
ReadBufferedSample_Int()
if GetVolumeSize() > WaitSoundSensitivity Then
GateOpen_flg = True
Else
Return 0
End If
End If

       'Sample
    If LengthCounterInBytes <= MySample.Sample.length Then

       'Ask for number of samples
        alcGetIntegerv(Capturedevice, ALC_CAPTURE_SAMPLES, 4, Varptr(CapturedSamplesLengthVar))

       'Now copy them to Samples
        alcCaptureSamples(Capturedevice, MySample.Sample.Samples + LengthCounterInBytes, CapturedSamplesLengthVar)

       'Move pointer to the new end
        LengthCounterInBytes = LengthCounterInBytes + CapturedSamplesLengthVar * 4

Return 1
   'End Sampeling
Else
Return 2
End If

End Method

Method ClearAudioSample(Sample:TAudioSample Var)
GateOpen_flg = False
End Method

Method SaveSample(MySample:MySample_Type, SampleFilename:String = "")
        Local WavFile:String
        Local SndBank:TBank, FileStream:TStream
        Local Channels:Int, BitRate:Int, BlockAlign:Int

       'Filename   
If SampleFilename = "" Then
WavFile:String = RequestFile:String("Save as...", "Wav files:wav", True)
Else
WavFile = SampleFilename
End If

        Channels = 2
        BitRate = 16
        BlockAlign = 4
       
       'Create a bank from the Samples
        SndBank = CreateStaticBank(MySample.Sample.samples, MySample.Sample.length)

       'Prevent
If WavFile = "" Then Notify "WaveFile is Null" ; Return

        fileStream = WriteStream(wavFile$)
       
       'write 44-byte wav header info
        fileStream.WriteString("RIFF")                          '"RIFF" file description header (4 bytes)
        FileStream.WriteInt(MySample.Sample.length + 40)        'file size - 8 (4 bytes)
        fileStream.WriteString("WAVE")                          '"WAVE" description header (4 bytes)
        fileStream.WriteString("fmt ")                          '"fmt " description header (4 bytes)
        fileStream.WriteInt(16)                                 'size of WAVE section chunk (4 bytes)
        fileStream.WriteShort(1)                                'WAVE type format (2 bytes)
        fileStream.WriteShort(Channels)                         'mono/stereo (2 bytes)
        FileStream.WriteInt(MySample.Sample.hertz)              'sample rate (4 bytes)
        FileStream.WriteInt(MySample.Sample.hertz * BlockAlign) 'avg bytes/sec (4 bytes)
        fileStream.WriteShort(BlockAlign)                       'Block alignment (2 bytes)
        fileStream.WriteShort(BitRate)                          'Bits/sample (2 bytes)
        fileStream.WriteString("data")                          '"data" description header (4 bytes)
        FileStream.WriteInt(MySample.Sample.length)             'size of data chunk (4 bytes)
             
       'Write wav sound data
        SndBank.Write(FileStream, 0, MySample.Sample.length)
         
       'close the stream
        CloseStream fileStream
End Method

   'Play
   
Method StartPlayMySample(MySample:MySample_Type)
Local Sound:TSound = LoadSound(MySample.Sample)  'load sound also load from memory
If Sound = Null Then Notify "Sound not loaded" ; Return - 1
  MySample.channel = PlaySound (Sound)
End Method

Field PTimeCounter

Method PlaySampleSection(MySample:MySample_Type, StartPointInSecs:Float = 0, LengthInSecs:Float = 0)
Local LengthInBytes, StartPointInBytes

If LengthInSecs <= 0 Then Return

LengthInBytes = LengthInSecs * SAMPLE_RATE * 4
StartPointInBytes = StartPointInSecs * SAMPLE_RATE * 4

Local TempSample:TAudioSample = CreateAudioSample(LengthInBytes, SAMPLE_RATE, SF_STEREO16LE)
Local Counter
For Local I = StartPointInBytes To StartPointInBytes + LengthInBytes
TempSample.samples[Counter] = MySample.Sample.samples[I]
Counter = Counter + 1
Next

Local TS:TSound = LoadSound(TempSample)
PlaySound(TS)
End Method

Method ReadBufferedSample_Int()  'Read sample? maybe prepare sample for recording

If RingBuffer.GetSize() >= SampelingChunckSize Then RingBuffer.PeakLast(SamplesBuff, 0, SampelingChunckSize)

alcGetIntegerv(CaptureDevice, ALC_CAPTURE_SAMPLES, 4, Varptr(NumAvailableSamples))

If NumAvailableSamples > 0 Then
alcCaptureSamples(CaptureDevice, Data, NumAvailableSamples)
For Local I:Int = 0 Until NumAvailableSamples
Local Offset:Int = I*2 ' 16 Bit per sample
Local Sample:Float = DecodeSigned16BitLittleEndian(Data, Offset)
RingBuffer.Put(Sample)
Next
EndIf

End Method

'Get

Method GetPositionByTime(MySample:MySample_Type, TimeInSecs:Float)
Return MySample.Sample.hertz * 4 * TimeInSecs
End Method

Method GetSampleLengthInSecs:Float(Sample:TAudioSample)
Return Sample.length / Sample.hertz / 4
End Method

Method GetVolumeSize:Float()
Local SizeInt:Int = SampelingChunckSize
SampleCurrentVolume = 0
For Local I:Int = 0 Until SizeInt
SampleCurrentVolume = SampleCurrentVolume + (SamplesBuff[I] * SamplesBuff[I])
Next
SampleCurrentVolume = Sqr(SampleCurrentVolume / SizeInt)
Assert 0 <= SampleCurrentVolume And SampleCurrentVolume <= 1
Return SampleCurrentVolume * SizeInt
End Method

'Functions

Method IncreaseSampleV34olume(Sample:TAudioSample)
Local I

If Sample = Null Then Return
If Sample.length = 0 Then Return

For I = 0 To Sample.length Step 2
Sample.samples[I] = Sample.samples[I] * 2
Sample.samples[I + 1] = Sample.samples[I + 1] * 2
Next

End Method

Method IncreaseSampleVolume(Sample:TAudioSample, Increment:Float = 1.1)
Local Left:Short, Right:Short, I

For I = 0 To Sample.length Step 4

Left = Sample.samples[I] + Sample.samples[I + 1] * 256
Right = Sample.samples[I + 2] + Sample.samples[I + 3] * 256

   'Left
Local RealLeft# = Left
If RealLeft > 32768 Then RealLeft = RealLeft - 65535

   'now volume:
RealLeft = RealLeft * Increment
   'Now back to SHORT
    If RealLeft < 0 Then RealLeft = RealLeft + 65535

Left=RealLeft
Sample.samples[I + 2] = Left Mod 256
Sample.samples[I + 3] = Left / 256

   'Right
Local RealRight:Float = Right
If RealRight > 32768 Then RealRight = RealRight - 65535

   'now volume:
RealRight = RealRight * Increment
   'now back to SHORT
    If RealRight < 0 Then RealRight = RealRight + 65535

Right = RealRight
Sample.samples[I + 2] = Right Mod 256
Sample.samples[I + 3] = Right / 256

Next

End Method

'--End And Reset--'

Method EndOpenAL()
alcMakeContextCurrent(Null)
If Context <> Null Then alcDestroyContext(Context)
If Device <> Null Then alcCloseDevice(Device)
TOpenAL.Close()
End Method

Method EndCaptureSound()
If CaptureDevice = Null Then Return
alcCaptureStop(CaptureDevice)
CaptureDevice = Null
End Method

' Method ResetCapturing_Int()
' SamplesBuff = Null
' SamplesBuff = New Float[SampBuffSize]
' GateOpen_flg = False
' MySample.LengthCounterInBytes = 0
' End Method

'--Mine--'

Method WaitSound_Gate(GateSensitivity:Float = 1)
  Return SampleCurrentVolume * SampelingChunckSize >= GateSensitivity
End Method

'----------------------Externals---------------------'

Method EnumCaptureDevices:String[]()
Local List       : Byte Ptr, ..
      Specifiers:String[]

   'Null-terminated specifier list
List = alcGetString(Null, ALC_CAPTURE_DEVICE_SPECIFIER)

   'Separate specifier by null character
While List[0]
Specifiers = Specifiers[..Specifiers.Length + 1]
Specifiers[Specifiers.Length - 1] = String.FromCString(List)
List :+ Specifiers[Specifiers.Length - 1].Length + 1
Wend

Return Specifiers
End Method

Method DecodeSigned16BitLittleEndian:Float(Buffer:Byte Ptr, Offset:Int)
Local LowerB:Byte, HigherB:Byte
HigherB = Buffer[offset + 1]
LowerB = Buffer[offset]
Local SampleInt:Int = (HigherB Shl 8) | (LowerB & $ff)
If SampleInt & $8000 Then SampleInt = $FFFF8000 | (SampleInt & $7FFF)
Local Sample:Float = Float(SampleInt) / Float($7fff)
Return Sample
End Method

End Type

Type TFloatRingBuffer
Field capacity:Int
Field size:Int
Field count:Long
Field elements:Float[]
Field nextIdx:Int = 0

Function Create:TFloatRingBuffer(capacity:Int)
If capacity <= 0 Then Throw "capacity " + capacity + " <= 0"
Local ringBuffer:TFloatRingBuffer = New TFloatRingBuffer
ringBuffer.capacity = capacity
ringBuffer.elements = New Float[capacity]
Return ringBuffer
End Function

Method put(e:Float)
elements[nextIdx] = e
nextIdx = (nextIdx + 1) Mod capacity
If size < capacity Then size :+ 1
count :+ 1
End Method

Method peak(start:Long, buffer:Float Ptr, offset:Int, length:Int)
If length = 0 Then
Return
ElseIf start >= count Then
Throw "try To read at " + start + ", but count is " + count
ElseIf start < count - size Then
Throw "try to read at " + start + ", but oldest available is at " + (count - size)
Else If start + length > count Then
Throw "try to read " + length + " at " + start + ", but count is " + count
EndIf

Local startIdx:Int = (nextIdx - (count - start)) Mod capacity;
If startIdx < 0 Then startIdx :+ capacity;
For Local i:Int = 0 Until length
Local j:Int = (startIdx + i) Mod capacity;
Local element:Float = elements[j]
buffer[i + offset] = element
Next
End Method

Method PeakLast(buffer:Float Ptr, offset:Int, length:Int)
Local start:Long = count - length
peak(start, buffer, offset, length)
End Method

Method PeakLastElement:Float()
If size = 0 Then Throw "size is 0"

Local index:Int = (nextIdx - 1) Mod Capacity
If index < 0 Then index :+ capacity
Return elements[index]
End Method

Method get:Float(start:Long)

If start >= count Then
Throw "try to read at " + start + ", but count is " + count
Else If (start < count - size) Then
Throw "try to read at " + start + ", but oldest available is at " + (count - size)
EndIf

Local startIdx:Int = (nextIdx - (count - start)) Mod capacity;
If startIdx < 0 Then startIdx:+capacity;

Return elements[startIdx]
End Method

Method GetCapacity:Int()
Return capacity
End Method

Method getSize:Int()
Return size
End Method

Method IsEmpty:Int()
Return getSize() = 0
End Method

Method getCount:Long()
Return count
End Method

Method clear()
nextIdx = 0
size = 0
count = 0
End Method

End Type

Type MySample_Type

Field Sample:TAudioSample
Field Channel:TChannel

End Type


Function MakeSinus(Duration:Int, PulseA:Int, PulseB:Int)  'makes an sinus audio sample
    Local SAMPLERATE = 44000
    Local SampleLen:Int= SAMPLERATE*Duration/1000
    Local FaktorA:Float = 360.0/PulseA
    Local FaktorB:Float = 360.0/PulseB

    Local Sample:TAudioSample = CreateAudioSample( SampleLen, SAMPLERATE, SF_MONO8 )

    For Local n:Int=0 Until SampleLen
            Local ValueA:Int, ValueB:Int

            If PulseA=0
                    ValueA=0
            Else
                    ValueA=60* Sin(FaktorA*(n Mod PulseA))
            EndIf
            If PulseB=0
                    ValueB=0
            Else
                    ValueB=60* Sin(FaktorB*(n Mod PulseB))
            EndIf

            Sample.samples[n] = 127+ValueA+ValueB
    Next

    Local Audio:TSound = LoadSound(Sample)

    PlaySound (Audio)

End Function