godot/drivers/chibi/cp_pattern.cpp
2016-01-01 11:50:53 -02:00

575 lines
12 KiB
C++

/*************************************************************************/
/* cp_pattern.cpp */
/*************************************************************************/
/* This file is part of: */
/* GODOT ENGINE */
/* http://www.godotengine.org */
/*************************************************************************/
/* Copyright (c) 2007-2016 Juan Linietsky, Ariel Manzur. */
/* */
/* Permission is hereby granted, free of charge, to any person obtaining */
/* a copy of this software and associated documentation files (the */
/* "Software"), to deal in the Software without restriction, including */
/* without limitation the rights to use, copy, modify, merge, publish, */
/* distribute, sublicense, and/or sell copies of the Software, and to */
/* permit persons to whom the Software is furnished to do so, subject to */
/* the following conditions: */
/* */
/* The above copyright notice and this permission notice shall be */
/* included in all copies or substantial portions of the Software. */
/* */
/* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, */
/* EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF */
/* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.*/
/* IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY */
/* CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, */
/* TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE */
/* SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. */
/*************************************************************************/
#include "cp_pattern.h"
void CPPattern::clear() {
if (event_count>0) {
CP_FREE(events);
events=NULL;
event_count=0;
}
length=DEFAULT_LEN;
}
bool CPPattern::resize_event_list_to(uint32_t p_events) {
//Module is slow in some cpus, so this should be fast enough
uint32_t new_size=((p_events-1)&(~((1<<RESIZE_EVERY_BITS)-1)))+(1<<RESIZE_EVERY_BITS);
CP_ERR_COND_V(new_size<p_events,true); //bugARM_INFO
if (event_count==0 && new_size==0)
return false; //nothing to do
if (event_count==0) {
events=(Event*)CP_ALLOC( new_size*sizeof(Event) );
} else if (new_size==0) {
CP_FREE(events);
events=NULL;
} else {
CP_ERR_COND_V(events==NULL,true);
events=(Event*)CP_REALLOC(events, new_size*sizeof(Event));
}
event_count=p_events;
return false;
}
int32_t CPPattern::get_event_pos(uint16_t p_target_pos) {
if (event_count==0)
return -1;
int low = 0;
int high = event_count -1;
int middle;
while( low <= high )
{
middle = ( low + high ) / 2;
if( p_target_pos == events[middle].pos ) { //match
break;
} else if( p_target_pos < events[middle].pos )
high = middle - 1; //search low end of array
else
low = middle + 1; //search high end of array
}
/* adapt so we are behind 2 */
if (events[middle].pos<p_target_pos)
middle++;
return middle;
/* Linear search for now */
/*
int32_t pos_idx=0;
for (;pos_idx<event_count;pos_idx++) {
if (event_list[pos_idx].pos>=p_target_pos)
break;
} */
//return pos_idx;
}
bool CPPattern::erase_event_at_pos(uint16_t p_pos) {
if (event_count==0)
return false;
Event *event_list=events;
int32_t pos_idx = get_event_pos(p_pos);
if (pos_idx==-1) {
CP_ERR_COND_V(pos_idx==-1,true);
}
if (pos_idx==event_count || event_list[pos_idx].pos!=p_pos) {
/* Nothing to Erase */
return false;
}
for (int32_t i=pos_idx;i<(event_count-1);i++) {
event_list[i]=event_list[i+1];
}
resize_event_list_to(event_count-1);
return false;
}
bool CPPattern::set_note(uint8_t p_column, uint16_t p_row,const CPNote& p_note) {
CP_ERR_COND_V(p_column>=WIDTH,true);
CP_ERR_COND_V(p_row>=length,true);
int32_t new_pos;
uint16_t target_pos=p_row*WIDTH+p_column;
if (p_note.is_empty()) {
bool res=erase_event_at_pos(target_pos);
return res;;
}
Event *event_list=0;
if (event_count==0) {
/* If no events, create the first */
if (resize_event_list_to(1)) {
CP_PRINTERR("Can't resize event list to 1");
return true;
}
event_list=events;
if (event_list==0) {
CP_PRINTERR("Can't get event list");
return true;
}
new_pos=0;
} else {
/* Prepare to add */
event_list=events;
if (event_list==0) {
CP_PRINTERR("Can't get event list");
return true;
}
int32_t pos_idx = get_event_pos(target_pos);
if (pos_idx==-1) {
CP_PRINTERR("Can't find add position");
return true;
}
if (pos_idx==event_count || event_list[pos_idx].pos!=target_pos) {
/* If the note being modified didnt exist, then we add it */
//resize, and return if out of mem
if (resize_event_list_to( event_count+1)) {
CP_PRINTERR("Can't resize event list");
return true;
}
event_list=events;
if (event_list==0) {
CP_PRINTERR("Can't get event list");
return true;
}
//make room for new pos, this wont do a thing if pos_idx was ==event_count
for(int32_t i=(event_count-1);i>pos_idx;i--) {
event_list[i]=event_list[i-1];
}
} /* Else it means that position is taken, so we just modify it! */
new_pos=pos_idx;
}
event_list[new_pos].pos=target_pos;
event_list[new_pos].note=p_note.note;
event_list[new_pos].instrument=p_note.instrument;
event_list[new_pos].volume=p_note.volume;
event_list[new_pos].command=p_note.command;
event_list[new_pos].parameter=p_note.parameter;
event_list[new_pos].script_source_sign=p_note.script_source_sign;
event_list[new_pos].cloned=p_note.cloned;
return false;
}
CPNote CPPattern::get_note(uint8_t p_column,uint16_t p_row) {
if (p_column==CPNote::EMPTY) return CPNote();
CP_ERR_COND_V(p_column>=WIDTH,CPNote());
CP_ERR_COND_V(p_row>=length,CPNote());
if (event_count==0)
return CPNote();
Event *event_list=events;
CP_ERR_COND_V(event_list==0,CPNote());
uint16_t target_pos=p_row*WIDTH+p_column;
int32_t pos_idx = get_event_pos(target_pos);
if (pos_idx==-1) {
CP_PRINTERR("Can't find event pos");
return CPNote();
}
if (pos_idx>=event_count || event_list[pos_idx].pos!=target_pos) {
/* no note found */
return CPNote();
}
CPNote n;
n.note=event_list[pos_idx].note;
n.instrument=event_list[pos_idx].instrument;
n.volume=event_list[pos_idx].volume;
n.command=event_list[pos_idx].command;
n.parameter=event_list[pos_idx].parameter;
n.script_source_sign=event_list[pos_idx].script_source_sign;
n.cloned=event_list[pos_idx].cloned;
return n;
}
CPNote CPPattern::get_transformed_script_note(uint8_t p_column,uint16_t p_row ) {
CPNote n = get_note( p_column, p_row );
// get source channel and note
int channel = get_scripted_note_target_channel( p_column, p_row );
CPNote src_n = get_note( channel, 0 );
if ( src_n.note == CPNote::SCRIPT ) return CPNote();
script_transform_note( src_n, n );
return src_n;
}
int CPPattern::get_scripted_note_target_channel(uint8_t p_column, uint16_t p_row) {
CPNote n = get_note( p_column, p_row );
if ( n.note != CPNote::SCRIPT ) return CPNote::EMPTY;
int channel = n.instrument;
if ( n.script_source_sign == '\0' ) {
if ( channel < 0 || channel >= CPPattern::WIDTH ) return CPNote::EMPTY;
} else {
channel = p_column + ( ( n.script_source_sign=='+') ? 1 : -1 ) * (channel+1);
if ( channel < 0 || channel >= CPPattern::WIDTH ) return CPNote::EMPTY;
}
return channel;
}
void CPPattern::scripted_clone(uint8_t p_column, uint16_t p_row) {
int channel = get_scripted_note_target_channel( p_column, p_row );
int src_row = 1;
CPNote script_n = get_note( p_column, p_row );
for ( int row = p_row+1; row < length; ++row ) {
CPNote src_n = get_note( channel, src_row );
CPNote target_n = get_note( p_column, row );
if ( target_n.note != CPNote::SCRIPT ) {
if ( src_n.note == CPNote::SCRIPT ) {
src_n = CPNote();
channel = CPNote::EMPTY;
}
script_transform_note( src_n, script_n );
src_n.cloned = true;
set_note( p_column, row, src_n );
} else {
return;
}
src_row++;
}
}
void CPPattern::scripted_clone_remove(uint8_t p_column, uint16_t p_row) {
if ( get_note( p_column, p_row ).cloned )
set_note( p_column, p_row, CPNote() );
for ( int row = p_row+1; row < length; ++row ) {
CPNote target_n = get_note( p_column, row );
if ( target_n.note != CPNote::SCRIPT ) {
set_note( p_column, row, CPNote() );
} else {
return;
}
}
}
void CPPattern::script_transform_note(CPNote& n, const CPNote& p_note) {
// set instrument
if ( n.note < CPNote::NOTES && p_note.volume != CPNote::EMPTY ) {
n.instrument = p_note.volume;
}
// transpose
if ( n.note < CPNote::NOTES && p_note.command != CPNote::EMPTY ) {
int transpose = ( p_note.parameter & 0xF ) + ( p_note.parameter / 0x10 ) * 12;
if ( p_note.command == '^' ) {
if ( n.note >= CPNote::NOTES-transpose )
n.note = CPNote::NOTES-1;
else
n.note += transpose;
} else if ( p_note.command == 'v' ) {
if ( n.note <= transpose )
n.note = 0;
else
n.note -= transpose;
}
}
}
bool CPPattern::update_scripted_clones_sourcing_channel( int channel ) {
bool updated = false;
for ( int x = 0; x < WIDTH; ++x ) {
for (int y = 0; y < length; ++y ) {
if ( channel == get_scripted_note_target_channel( x, y ) ) {
scripted_clone( x, y );
updated = true;
}
}
}
return updated;
}
void CPPattern::set_length(uint16_t p_rows) {
if (event_count==0) {
if (p_rows>=MIN_ROWS)
length=p_rows;
return;
}
if (p_rows<MIN_ROWS) {
return;
}
if (p_rows<length) {
Event* event_list=events;
if (event_list==0) {
CP_PRINTERR("get_event_list() Failed");
return;
}
uint16_t target_pos=p_rows*WIDTH;
int32_t pos_idx = get_event_pos(target_pos);
if (pos_idx==-1) {
CP_ERR_COND(pos_idx==-1);
}
if (resize_event_list_to(pos_idx)) {
CP_PRINTERR("resize_event_list_to(pos_idx) Failed");
return;
}
}
length=p_rows;
}
#if 0
void CPPattern::copy_to(CPPattern *p_pattern) const {
p_pattern->clear();
p_pattern->length=length;
if (!event_count)
return;
int bufsiz=MemPool_Wrapper::get_singleton()->get_mem_size( mem_handle );
MemPool_Handle aux_mem_handle=MemPool_Wrapper::get_singleton()->alloc_mem( bufsiz );
if (aux_mem_handle.is_null()) {
CP_PRINTERR("own handle is null");
return;
}
if (MemPool_Wrapper::get_singleton()->lock_mem(aux_mem_handle)) {
CP_PRINTERR("Unable to lock aux new handle");
return;
}
if (MemPool_Wrapper::get_singleton()->lock_mem(mem_handle)) {
CP_PRINTERR("Unable to lock own handle");
return;
}
uint8_t* srcuint8_tt8_t*)MemPool_Wrapper::get_singleton()->get_mem(mem_handle);
uint8_t* dstuint8_tt8_t*)MemPool_Wrapper::get_singleton()->get_mem(aux_mem_handle);
for (int i=0;i<bufsiz;i++)
dst[i]=src[i];
MemPool_Wrapper::get_singleton()->unlock_mem(mem_handle);
MemPool_Wrapper::get_singleton()->unlock_mem(aux_mem_handle);
p_pattern->mem_handle=aux_mem_handle;
p_pattern->event_count=event_count;
}
#endif
uint16_t CPPattern::get_length() {
return length;
}
CPPattern::CPPattern() {
length=DEFAULT_LEN;
event_count=0;
clear();
}
bool CPPattern::is_empty() {
return events==NULL;
}
CPPattern::~CPPattern() {
clear();
}