// called very often
static void EditorFollowsPlayCursorLoop(void){
if (root->play_cursor_onoff==false)
return;
if (root->editor_follows_play_cursor_onoff==false)
return;
struct Tracker_Windows *window = root->song->tracker_windows;
struct WBlocks *wblock = window->wblock;
//printf("%d %d\n",g_playing_realline,wblock->bot_realline);
if (wblock->l.num != g_playing_blocknum)
return;
bool scrollit = false;
if (g_playing_realline > wblock->bot_realline)
scrollit = true;
if (g_playing_realline < wblock->top_realline)
scrollit = true;
if (scrollit) {
int diff = wblock->top_realline - wblock->curr_realline;
ScrollEditorToRealLine(window,wblock,g_playing_realline - diff - 1);
}
}
static void PlayStopReally(bool doit){
pc->isplaying=false;
pc->initplaying=false;
pc->playertask_has_been_called = false;
pc->is_playing_range = false;
printf("PlayStopReally called: %s\n",doit==true?"true":"false");
if (PLAYER_current_thread_has_lock()){
RError("Potential deadlock detected: Calling PlayStopReally while holding player lock.");
return;
}
if (PLAYER_is_running())
while(pc->peq!=NULL) OS_WaitForAShortTime(20);
StopAllInstruments();
#if !USE_OPENGL
if(doit) (*Ptask2MtaskCallBack)();
#endif
pc->end_time=0;
pc->end_time_f=0;
pc->play_id++;
struct Tracker_Windows *window = root->song->tracker_windows;
struct WBlocks *wblock = window->wblock;
ScrollEditorToRealLine(window,wblock,wblock->curr_realline);
#if !USE_OPENGL
DrawWBlockSpesific(window,wblock,wblock->curr_realline,wblock->curr_realline); // clear cursor shade.
UpdateAllWTracks(window,wblock,wblock->curr_realline,wblock->curr_realline); // same here.
#endif
printf("[hb gakkgakk: %d\n",GC_dont_gc);
PATCH_reset_time();
//while(GC_is_disabled())
while(GC_dont_gc>0)
GC_enable();
MIDI_insert_recorded_midi_events();
}
void P2MUpdateSongPosCallBack(void){
struct Tracker_Windows *window=root->song->tracker_windows;
bool setfirstpos=ATOMIC_GET(root->setfirstpos);
NInt curr_block=ATOMIC_GET(root->curr_blocknum);
struct WBlocks *wblock;
int till_curr_realline;
if(scrolls_per_second==-1)
scrolls_per_second = SETTINGS_read_int("scrolls_per_second", default_scrolls_per_second);
if(pc->playtype==PLAYSONG)
BS_SelectPlaylistPos(root->curr_playlist);
while(window!=NULL){
if(window->playalong==true){
DO_GFX({
wblock=ListFindElement1(&window->wblocks->l,curr_blocknum);
till_curr_realline=ATOMIC_GET(wblock->till_curr_realline);
if(window->curr_block!=curr_block){
if(setfirstpos){
wblock->curr_realline=0;
SetWBlock_Top_And_Bot_Realline(window,wblock);
}
SelectWBlock(
window,
wblock
);
}
if(setfirstpos){ // The player routine (PEQblock.c) sets this one.
ATOMIC_SET(wblock->till_curr_realline, 0);
till_curr_realline=0;
}
//fprintf(stderr,"tilline: %d\n",till_curr_realline);
#if 0
if(wblock->curr_realline != till_curr_realline)
ScrollEditorToRealLine(window,wblock,till_curr_realline);
#else
{
bool do_scrolling = false;
if(wblock != last_wblock)
do_scrolling = true;
else if (last_time > ATOMIC_GET(pc->therealtime))
do_scrolling = true;
else if(till_curr_realline < wblock->curr_realline)
do_scrolling = true;
else if(till_curr_realline > wblock->curr_realline){
STime from_time = (STime) ((double)Place2STime(wblock->block, &wblock->reallines[wblock->curr_realline]->l.p) / wblock->block->reltempo);
STime to_time = (STime) ((double)Place2STime(wblock->block, &wblock->reallines[till_curr_realline]->l.p) / wblock->block->reltempo);
STime time = to_time - from_time;
STime time_necessary_to_scroll = pc->pfreq / scrolls_per_second;
if(time>=time_necessary_to_scroll)
do_scrolling = true;
}
if(do_scrolling==true) {
ScrollEditorToRealLine(window,wblock,till_curr_realline);
last_time = ATOMIC_GET(pc->therealtime);
last_wblock = wblock;
}
}
#endif
});
}
