525 lines
12 KiB
C++
525 lines
12 KiB
C++
/*************************************************************************/
|
|
/* cp_pattern.cpp */
|
|
/*************************************************************************/
|
|
/* This file is part of: */
|
|
/* GODOT ENGINE */
|
|
/* https://godotengine.org */
|
|
/*************************************************************************/
|
|
/* Copyright (c) 2007-2018 Juan Linietsky, Ariel Manzur. */
|
|
/* Copyright (c) 2014-2018 Godot Engine contributors (cf. AUTHORS.md) */
|
|
/* */
|
|
/* 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();
|
|
}
|