799 lines
18 KiB
HolyC
Executable File
799 lines
18 KiB
HolyC
Executable File
#define PSMR_FLAT -8
|
||
#define PSMR_SHARP -7
|
||
#define PSMR_TIE -6
|
||
#define PSMR_REST -5
|
||
#define PSMR_INS_NOTE -4
|
||
#define PSMR_DELETE_NOTE -3
|
||
#define PSMR_SET_WORD -2
|
||
|
||
F64 PopUpDuration()
|
||
{
|
||
I64 i;
|
||
CDoc *doc=DocNew;
|
||
DocPrint(doc,"$$GREEN$$$$MU,\"Set Word\",LE=PSMR_SET_WORD$$\n"
|
||
"$$MU,\"Toggle Sharp\",LE=PSMR_SHARP$$\n"
|
||
"$$MU,\"Toggle Flat\",LE=PSMR_FLAT$$\n"
|
||
"$$MU,\"Toggle Tie\",LE=PSMR_TIE$$\n"
|
||
"$$MU,\"Make Rest\",LE=PSMR_REST$$\n"
|
||
"$$MU,\"Insert Note\",LE=PSMR_INS_NOTE$$\n"
|
||
"$$MU,\"Delete Note\",LE=PSMR_DELETE_NOTE$$\n\n");
|
||
for (i=0;i<PSM_DURATIONS_NUM;i++)
|
||
DocPrint(doc,"$$MU,\"%7.5f\",LE=%d$$\n",psm_durations[i],i);
|
||
DocPrint(doc,"\n$$MU,\"CANCEL\",LE=DOCM_CANCEL$$\n");
|
||
i=PopUpMenu(doc);
|
||
DocDel(doc);
|
||
return i;
|
||
}
|
||
|
||
U0 PsmRightClick(I64 x,I64 y)
|
||
{
|
||
U8 *st,*st2;
|
||
PsmNote *tmpn,*tmpn1;
|
||
I64 i,old_doc_flags;
|
||
if (DocPut) old_doc_flags=DocPut->flags;
|
||
psm.cur_note=tmpn=PsmFindNote(x,y);
|
||
if (tmpn!=&psm.head) {
|
||
Fs->win_inhibit=WIG_USER_TASK_DFT;
|
||
i=PopUpDuration;
|
||
if (0<=i<PSM_DURATIONS_NUM) {
|
||
if (tmpn->type==PSMT_NOTE)
|
||
tmpn->duration=i;
|
||
} else {
|
||
switch (i) {
|
||
case PSMR_REST:
|
||
if (tmpn->type==PSMT_NOTE)
|
||
tmpn->ona=0;
|
||
break;
|
||
case PSMR_SHARP:
|
||
if (tmpn->type==PSMT_NOTE && tmpn->ona) {
|
||
if (Btr(&tmpn->flags,PSMf_FLAT))
|
||
tmpn->ona++;
|
||
if (Btc(&tmpn->flags,PSMf_SHARP))
|
||
tmpn->ona--;
|
||
else
|
||
tmpn->ona++;
|
||
}
|
||
break;
|
||
case PSMR_FLAT:
|
||
if (tmpn->type==PSMT_NOTE && tmpn->ona) {
|
||
if (Btr(&tmpn->flags,PSMf_SHARP))
|
||
tmpn->ona--;
|
||
if (Btc(&tmpn->flags,PSMf_FLAT))
|
||
tmpn->ona++;
|
||
else
|
||
tmpn->ona--;
|
||
}
|
||
break;
|
||
case PSMR_TIE:
|
||
if (tmpn->type==PSMT_NOTE)
|
||
Btc(&tmpn->flags,PSMf_TIE);
|
||
break;
|
||
case PSMR_SET_WORD:
|
||
if (tmpn->type==PSMT_NOTE) {
|
||
if (DocPut) DocPut->flags&=~DOCF_FORM;
|
||
if (PsmHasWords(tmpn->word))
|
||
st2=MStrPrint("\nWord(\"%Q\"):",tmpn->word);
|
||
else
|
||
st2=MStrPrint("\nWord(\"\"):");
|
||
DocBottom;
|
||
st=GetStr(st2);
|
||
Free(st2);
|
||
Free(tmpn->word);
|
||
if (*st) {
|
||
tmpn->word=MStrPrint("%q",st);
|
||
Free(st);
|
||
} else
|
||
tmpn->word=StrNew(" ");
|
||
if (DocPut) DocPut->flags=DocPut->flags&
|
||
~DOCF_FORM|old_doc_flags&DOCF_FORM;
|
||
}
|
||
break;
|
||
case PSMR_INS_NOTE:
|
||
tmpn1=PsmNoteCopy(tmpn);
|
||
QueIns(tmpn1,tmpn);
|
||
break;
|
||
case PSMR_DELETE_NOTE:
|
||
psm.cur_note=tmpn->next;
|
||
QueRem(tmpn);
|
||
PsmNoteDel(tmpn);
|
||
break;
|
||
}
|
||
}
|
||
PsmSetWidth(psm.cur_note);
|
||
Fs->win_inhibit=WIG_TASK_DFT-WIF_SELF_FOCUS
|
||
-WIF_SELF_BORDER-WIF_FOCUS_TASK_MENU-WIF_SELF_CTRLS;
|
||
}
|
||
}
|
||
|
||
U0 PsmLeftClickPickNoteBox(I64 duration)
|
||
{
|
||
I64 o,n,msg_code,arg1,arg2;
|
||
PsmNote *tmpn,*tmpn1;
|
||
do {
|
||
msg_code=GetMsg(&arg1,&arg2,1<<MSG_MS_L_UP|1<<MSG_MS_MOVE);
|
||
if (msg_code==MSG_MS_MOVE) {
|
||
DrawDC2;
|
||
DrawNote(psm.dc2,arg1,arg2,duration);
|
||
}
|
||
} while (msg_code!=MSG_MS_L_UP);
|
||
if (arg2<13*FONT_HEIGHT) {
|
||
if (arg1>psm.head.last->x)
|
||
tmpn1=psm.head.last;
|
||
else if (arg1<psm.head.next->x)
|
||
tmpn1=&psm.head;
|
||
else
|
||
tmpn1=PsmFindNote(arg1-PSM_NOTE_SPACING/2,arg2);
|
||
tmpn=CAlloc(sizeof(PsmNote));
|
||
tmpn->type=PSMT_NOTE;
|
||
arg2=arg2/4-15;
|
||
n=arg2%7;
|
||
o=4+arg2/-7;
|
||
if (n<0) {
|
||
n+=7;
|
||
o++;
|
||
}
|
||
n=psm_note_inverse_map[n];
|
||
if (n<3)
|
||
o--;
|
||
tmpn->ona=Note2Ona(n,o);
|
||
tmpn->duration=duration;
|
||
PsmSetWidth(tmpn);
|
||
QueIns(tmpn,tmpn1);
|
||
psm.cur_note=tmpn->next;
|
||
}
|
||
DrawDC2;
|
||
}
|
||
|
||
U0 PsmLeftClickPickMeterBox(I64 top,I64 bottom)
|
||
{
|
||
I64 msg_code,arg1,arg2;
|
||
PsmNote *tmpn,*tmpn1;
|
||
do {
|
||
msg_code=GetMsg(&arg1,&arg2,1<<MSG_MS_L_UP|1<<MSG_MS_MOVE);
|
||
if (msg_code==MSG_MS_MOVE) {
|
||
DrawDC2;
|
||
DrawTimeSignature(psm.dc2,arg1,arg2,top,bottom);
|
||
}
|
||
} while (msg_code!=MSG_MS_L_UP);
|
||
if (arg2<13*FONT_HEIGHT) {
|
||
if (arg1>=psm.head.x)
|
||
tmpn1=psm.head.last;
|
||
else if (arg1<psm.head.next->x)
|
||
tmpn1=&psm.head;
|
||
else
|
||
tmpn1=PsmFindNote(arg1-PSM_NOTE_SPACING/2,arg2);
|
||
tmpn=CAlloc(sizeof(PsmNote));
|
||
tmpn->type=PSMT_METER;
|
||
tmpn->meter_top=top;
|
||
tmpn->meter_bottom=bottom;
|
||
PsmSetWidth(tmpn);
|
||
QueIns(tmpn,tmpn1);
|
||
psm.cur_note=tmpn->next;
|
||
}
|
||
DrawDC2;
|
||
}
|
||
|
||
U0 PsmLeftClickStaffPtr(I64 x,I64 y)
|
||
{
|
||
PsmNote *tmpn,*tmpn1;
|
||
I64 o,n,msg_code,arg1,arg2,n_original,o_original;
|
||
psm.cur_note=tmpn=PsmFindNote(x,y);
|
||
if (tmpn!=&psm.head) {
|
||
if (tmpn->type==PSMT_NOTE) {
|
||
o_original=Ona2Octave(tmpn->ona);
|
||
n_original=Ona2Note (tmpn->ona);
|
||
do {
|
||
msg_code=GetMsg(&arg1,&arg2,1<<MSG_MS_L_UP|1<<MSG_MS_MOVE);
|
||
if (msg_code==MSG_MS_L_UP) {
|
||
tmpn1=PsmFindNote(arg1,arg2);
|
||
if (tmpn1==&psm.head || tmpn1==tmpn)
|
||
goto move_note;
|
||
else {
|
||
Free(tmpn1->word);
|
||
tmpn1->word=tmpn->word;
|
||
tmpn->word=NULL;
|
||
tmpn->ona=Note2Ona(n_original,o_original);
|
||
}
|
||
} else {
|
||
move_note:
|
||
arg2=arg2/4-15;
|
||
n=arg2%7;
|
||
o=4+arg2/-7;
|
||
if (n<0) {
|
||
n+=7;
|
||
o++;
|
||
}
|
||
n=psm_note_inverse_map[n];
|
||
if (n<3)
|
||
o--;
|
||
tmpn->ona=Note2Ona(n,o);
|
||
}
|
||
} while (msg_code!=MSG_MS_L_UP);
|
||
PsmSetWidth(tmpn);
|
||
}
|
||
}
|
||
}
|
||
|
||
U0 PsmLeftClickStaffBox(I64 x,I64 y)
|
||
{
|
||
I64 msg_code,arg1,arg2;
|
||
do {
|
||
msg_code=GetMsg(&arg1,&arg2,1<<MSG_MS_L_UP|1<<MSG_MS_MOVE);
|
||
DrawDC2;
|
||
psm.dc2->color=ROPF_DITHER+WHITE<<16+BLACK;
|
||
GrBorder(psm.dc2,x,y,arg1,arg2);
|
||
if (msg_code==MSG_MS_L_UP) {
|
||
if (x>arg1) SwapI64(&x,&arg1);
|
||
PsmMarkSel(x,arg1,TRUE);
|
||
}
|
||
} while (msg_code!=MSG_MS_L_UP);
|
||
DrawDC2;
|
||
}
|
||
|
||
U0 PsmLeftClick(I64 x,I64 y)
|
||
{
|
||
I64 duration,top,bottom;
|
||
if (y<13*FONT_HEIGHT) {
|
||
if (psm.tool==PSMTT_PTR_TOOL)
|
||
PsmLeftClickStaffPtr(x,y);
|
||
else
|
||
PsmLeftClickStaffBox(x,y);
|
||
} else {
|
||
duration=PsmGetPickNoteBoxDuration(x,y);
|
||
if (0<=duration<PSM_DURATIONS_NUM)
|
||
PsmLeftClickPickNoteBox(duration);
|
||
else if (PsmGetPickMeterBox(x,y,&top,&bottom))
|
||
PsmLeftClickPickMeterBox(top,bottom);
|
||
else if (PsmGetPickToolBox(x,y))
|
||
DrawDC2;
|
||
}
|
||
}
|
||
|
||
U8 PsmCvtDuration(F64 d)
|
||
{
|
||
F64 d1,d2;
|
||
I64 j;
|
||
for (j=0;j<PSM_DURATIONS_NUM;j++) {
|
||
d1=psm_durations[j];
|
||
d2=psm_durations[j+1];
|
||
if (d<d1*d2/(d1+d2))
|
||
return j;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
#define PSM_KEYS_NUM 20
|
||
class PsmKey
|
||
{
|
||
U8 x,w,h,ascii;
|
||
};
|
||
|
||
#define PSM_W_W 16
|
||
#define PSM_W_H 36
|
||
#define PSM_B_W 8
|
||
#define PSM_B_H 20
|
||
|
||
PsmKey psm_kbd[PSM_KEYS_NUM]={
|
||
{ 2*PSM_W_W-4,PSM_B_W,PSM_B_H,'e' },
|
||
{ 3*PSM_W_W-4,PSM_B_W,PSM_B_H,'r' },
|
||
{ 4*PSM_W_W-4,PSM_B_W,PSM_B_H,'t' },
|
||
{ 6*PSM_W_W-4,PSM_B_W,PSM_B_H,'u' },
|
||
{ 7*PSM_W_W-4,PSM_B_W,PSM_B_H,'i' },
|
||
{ 9*PSM_W_W-4,PSM_B_W,PSM_B_H,'p' },
|
||
{10*PSM_W_W-4,PSM_B_W,PSM_B_H,'[' },
|
||
{11*PSM_W_W-4,PSM_B_W,PSM_B_H,']' },
|
||
|
||
{ 0*PSM_W_W,PSM_W_W,PSM_W_H,'a' },
|
||
{ 1*PSM_W_W,PSM_W_W,PSM_W_H,'s' },
|
||
{ 2*PSM_W_W,PSM_W_W,PSM_W_H,'d' },
|
||
{ 3*PSM_W_W,PSM_W_W,PSM_W_H,'f' },
|
||
{ 4*PSM_W_W,PSM_W_W,PSM_W_H,'g' },
|
||
{ 5*PSM_W_W,PSM_W_W,PSM_W_H,'h' },
|
||
{ 6*PSM_W_W,PSM_W_W,PSM_W_H,'j' },
|
||
{ 7*PSM_W_W,PSM_W_W,PSM_W_H,'k' },
|
||
{ 8*PSM_W_W,PSM_W_W,PSM_W_H,'l' },
|
||
{ 9*PSM_W_W,PSM_W_W,PSM_W_H,';' },
|
||
{10*PSM_W_W,PSM_W_W,PSM_W_H,'\'' },
|
||
{11*PSM_W_W,PSM_W_W,PSM_W_H,'\n'},
|
||
};
|
||
|
||
U0 PsmDownKey(I64 x,I64 y)
|
||
{
|
||
I64 i;
|
||
PsmKey *o;
|
||
y-=FONT_HEIGHT*13;
|
||
if (0<=y<PSM_W_H) {
|
||
x-=16;
|
||
for (i=0;i<PSM_KEYS_NUM;i++) {
|
||
o=&psm_kbd[i];
|
||
if (o->x<=x<o->x+o->w && y<o->h) {
|
||
Msg(MSG_KEY_DOWN,o->ascii,0);
|
||
return;
|
||
}
|
||
}
|
||
}
|
||
}
|
||
|
||
U0 PsmUpKey(I64 x,I64 y)
|
||
{
|
||
I64 i;
|
||
PsmKey *o;
|
||
y-=FONT_HEIGHT*13;
|
||
if (0<=y<PSM_W_H) {
|
||
x-=16;
|
||
for (i=0;i<PSM_KEYS_NUM;i++) {
|
||
o=&psm_kbd[i];
|
||
if (o->x<=x<o->x+o->w && y<o->h) {
|
||
Msg(MSG_KEY_UP,o->ascii,0);
|
||
return;
|
||
}
|
||
}
|
||
}
|
||
}
|
||
|
||
U0 PsmPushMode(I64 psm_octave)
|
||
{
|
||
Fs->win_inhibit=WIG_TASK_DFT-WIF_SELF_FOCUS
|
||
-WIF_SELF_BORDER-WIF_FOCUS_TASK_MENU-WIF_SELF_CTRLS;
|
||
PsmMenu(psm_octave);
|
||
}
|
||
|
||
U0 PsmPopMode()
|
||
{
|
||
Fs->win_inhibit=WIG_USER_TASK_DFT;
|
||
DCFill;
|
||
}
|
||
|
||
#define PSMF_CD 1
|
||
#define PSMF_INCOMPLETE 2
|
||
|
||
U0 Psalmody(U8 *dirname="~/Psalmody")
|
||
{
|
||
Bool was_playing,is_null=TRUE,was_null=TRUE;
|
||
I64 arg1,arg2,msg_code=0,col,ona=0,last_ona=0,
|
||
psm_octave=4,timeout_val,timeout_val2,old_doc_flags;
|
||
U8 *filename=NULL,*st,*st2;
|
||
PsmNote *tmpn;
|
||
F64 psm_duration=1.0,d,evt_time=tS,note_down_time=tS;
|
||
CCtrl *c=TempoNew;
|
||
|
||
if (DocPut) old_doc_flags=DocPut->flags;
|
||
SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
|
||
|
||
MusicSettingsRst;
|
||
tempo_state.tempo=Round(TEMPO_RANGE*(music.tempo-0.5)/4.4);
|
||
tempo_state.stacatto=Round(TEMPO_RANGE*(music.stacatto_factor-0.12)/0.88);
|
||
|
||
if (DocPut) DocPut->flags|=DOCF_FORM;
|
||
|
||
MemSet(&psm,0,sizeof(PsmCtrl));
|
||
psm.scrn_x=0;
|
||
psm.head.next=psm.head.last=&psm.head;
|
||
psm.clip.next=psm.clip.last=&psm.clip;
|
||
psm.cur_note=&psm.head;
|
||
psm.dc2=DCAlias;
|
||
|
||
MenuPush(
|
||
"File {"
|
||
" New(,'.');"
|
||
" ChgDir(MSG_CMD,PSMF_CD);"
|
||
" Open(,CH_CTRLO);"
|
||
" SaveAs(,CH_CTRLA);"
|
||
" Abort(,CH_SHIFT_ESC);"
|
||
" Exit(,CH_ESC);"
|
||
"}"
|
||
"Edit {"
|
||
" Cut(,CH_CTRLX);"
|
||
" Copy(,CH_CTRLC);"
|
||
" Paste(,CH_CTRLV);"
|
||
" RightMenu(,'\n');"
|
||
" BackSpace(,CH_BACKSPACE);"
|
||
" DeleteNote(,,SC_DELETE);"
|
||
" ClearSong(,'.');"
|
||
" Left(,,SC_CURSOR_LEFT);"
|
||
" Right(,,SC_CURSOR_RIGHT);"
|
||
" GoBegin(,,0x4CB0000044B);"
|
||
" GoEnd(,,0x4CD0000044D);"
|
||
"}"
|
||
"Song {"
|
||
" Play(,'x');"
|
||
" Record(,'z');"
|
||
" Random(,',');"
|
||
" MarkIncomplete(MSG_CMD,PSMF_INCOMPLETE);"
|
||
"}"
|
||
"Snd {"
|
||
" Octave1(,'1');"
|
||
" Octave2(,'2');"
|
||
" Octave3(,'3');"
|
||
" Octave4(,'4');"
|
||
" Octave5(,'5');"
|
||
" Octave6(,'6');"
|
||
" Octave7(,'7');"
|
||
"}"
|
||
"Help {"
|
||
" Help(,,SC_F1);"
|
||
"}"
|
||
);
|
||
psm.incomplete_entry=MenuEntryFind(Fs->cur_menu,"Song/MarkIncomplete");
|
||
psm.record_entry=MenuEntryFind(Fs->cur_menu,"Song/Record");
|
||
|
||
AutoComplete;
|
||
WinBorder;
|
||
WinMax;
|
||
|
||
dirname=StrNew(dirname);
|
||
PsmPushMode(psm_octave);
|
||
col=0;
|
||
Fs->draw_it=&DrawIt;
|
||
|
||
try {
|
||
while (TRUE) {
|
||
was_playing=FALSE;
|
||
mo_start:
|
||
if (ms.pos_text.y-Fs->win_top<18)
|
||
msg_code=GetMsg(&arg1,&arg2,1<<MSG_KEY_DOWN|1<<MSG_KEY_UP|
|
||
1<<MSG_MS_L_DOWN|1<<MSG_MS_L_UP|1<<MSG_MS_R_UP|
|
||
1<<MSG_MS_MOVE|1<<MSG_CMD);
|
||
else
|
||
msg_code=GetMsg(&arg1,&arg2,1<<MSG_KEY_DOWN|1<<MSG_KEY_UP|
|
||
1<<MSG_MS_MOVE|1<<MSG_CMD);
|
||
mo_got_msg:
|
||
if (msg_code==MSG_KEY_DOWN && arg1==CH_SPACE && !arg2) {
|
||
//The Window Mgr sets the Doc cur_entry to a bttn
|
||
//and generates a <SPACE> when the Doc Bttns are clicked.
|
||
//This is so that kbd and mouse are the same for Doc's.
|
||
//We must now pass the <SPACE> onto the Doc hndlr.
|
||
PutKey(arg1,arg2);
|
||
goto mo_start;
|
||
}
|
||
if (msg_code!=MSG_MS_MOVE) {
|
||
DocBottom;
|
||
if (was_playing || DocPut->cur_entry->y>=Fs->win_height-2) {
|
||
PsmMenu(psm_octave);
|
||
col=0;
|
||
}
|
||
}
|
||
|
||
ona=Note2Ona(3,psm_octave+1); //C
|
||
is_null=TRUE;
|
||
switch (msg_code) {
|
||
case MSG_CMD:
|
||
PsmPopMode;
|
||
switch (arg1) {
|
||
case PSMF_CD:
|
||
st2=dirname;
|
||
if (dirname=PopUpPickDir) {
|
||
Free(st2);
|
||
Free(filename);
|
||
filename=NULL;
|
||
} else
|
||
dirname=st2;
|
||
break;
|
||
case PSMF_INCOMPLETE:
|
||
psm.incomplete_entry->checked=!psm.incomplete_entry->checked;
|
||
break;
|
||
}
|
||
PsmPushMode(psm_octave);
|
||
col=0;
|
||
break;
|
||
case MSG_KEY_DOWN:
|
||
evt_time=tS;
|
||
if ('0'<=arg1<='9') {
|
||
psm_octave=arg1-'0';
|
||
PsmMenu(psm_octave);
|
||
col=0;
|
||
} else {
|
||
switch (arg1) {
|
||
start:
|
||
case 'a': ona-=8; break;
|
||
case 's': ona-=7; break;
|
||
case 'e': ona-=6; break;
|
||
case 'd': ona-=5; break;
|
||
case 'r': ona-=4; break;
|
||
case 'f': ona-=3; break;
|
||
case 't': ona-=2; break;
|
||
case 'g': ona--; break;
|
||
case 'h': break;
|
||
case 'u': ona++; break;
|
||
case 'j': ona+=2; break;
|
||
case 'i': ona+=3; break;
|
||
case 'k': ona+=4; break;
|
||
case 'l': ona+=5; break;
|
||
case 'p': ona+=6; break;
|
||
case ';': ona+=7; break;
|
||
case '[': ona+=8; break;
|
||
case '\'': ona+=9; break;
|
||
case ']': ona+=10; break;
|
||
case CH_SPACE: ona=0; break;
|
||
end:
|
||
is_null=FALSE;
|
||
break;
|
||
|
||
case 0:
|
||
switch (arg2.u8[0]) {
|
||
case SC_CURSOR_LEFT:
|
||
if (arg2&SCF_CTRL) {
|
||
while (psm.cur_note->last!=&psm.head) {
|
||
psm.cur_note=psm.cur_note->last;
|
||
if (psm.cur_note!=&psm.head)
|
||
LBEqu(&psm.cur_note->flags,PSMf_SEL,arg2&SCF_SHIFT);
|
||
}
|
||
} else {
|
||
if (psm.cur_note->last!=&psm.head) {
|
||
psm.cur_note=psm.cur_note->last;
|
||
if (psm.cur_note!=&psm.head)
|
||
LBEqu(&psm.cur_note->flags,PSMf_SEL,arg2&SCF_SHIFT);
|
||
}
|
||
}
|
||
break;
|
||
case SC_CURSOR_RIGHT:
|
||
if (arg2&SCF_CTRL) {
|
||
while (psm.cur_note!=&psm.head) {
|
||
if (psm.cur_note!=&psm.head)
|
||
LBEqu(&psm.cur_note->flags,PSMf_SEL,arg2&SCF_SHIFT);
|
||
psm.cur_note=psm.cur_note->next;
|
||
}
|
||
} else {
|
||
if (psm.cur_note!=&psm.head) {
|
||
if (psm.cur_note!=&psm.head)
|
||
LBEqu(&psm.cur_note->flags,PSMf_SEL,arg2&SCF_SHIFT);
|
||
psm.cur_note=psm.cur_note->next;
|
||
}
|
||
}
|
||
break;
|
||
case SC_DELETE:
|
||
if (arg2&SCF_SHIFT)
|
||
PsmCutToClip;
|
||
else {
|
||
tmpn=psm.cur_note;
|
||
psm.cur_note=tmpn->next;
|
||
if (tmpn!=&psm.head) {
|
||
QueRem(tmpn);
|
||
PsmNoteDel(tmpn);
|
||
}
|
||
}
|
||
break;
|
||
case SC_INS:
|
||
if (arg2&SCF_SHIFT)
|
||
PsmPasteClip;
|
||
else if (arg2&SCF_CTRL)
|
||
PsmCopyToClip;
|
||
break;
|
||
case SC_F1:
|
||
PsmPopMode;
|
||
PopUpEd("::/Apps/Psalmody/Help.DD.Z",Fs);
|
||
PsmPushMode(psm_octave);
|
||
col=0;
|
||
break;
|
||
}
|
||
break;
|
||
case ',':
|
||
Free(filename);
|
||
filename=NULL;
|
||
PsmPopMode;
|
||
music.octave=psm_octave;
|
||
if (st2=GodSongStr) {
|
||
PsmLoadSongStr(st2,&psm_octave,&psm_duration);
|
||
Free(st2);
|
||
}
|
||
PsmPushMode(psm_octave);
|
||
col=0;
|
||
break;
|
||
case CH_CTRLO:
|
||
PsmPopMode;
|
||
RegOneTimePopUp(ARf_PSALMODY_JUKEBOX,
|
||
"Sel a song and preview it.\n"
|
||
"$$GREEN$$<SHIFT-ESC>$$FG$$ to load it into Psalmody.\n\n"
|
||
ST_WARN_ST " Graphics and other embelishments\n"
|
||
"will be lost because Psalmody can't\n"
|
||
"parse HolyC programs completely.\n");
|
||
Free(filename);
|
||
filename=NULL;
|
||
JukeBox(dirname,&filename);
|
||
if (filename) {
|
||
psm.scrn_x=0;
|
||
psm_duration=1.0;
|
||
psm_octave=4;
|
||
PsmSongDel(&psm.head);
|
||
psm.cur_note=&psm.head;
|
||
PsmLoadSong(filename,&psm_octave,&psm_duration);
|
||
psm.record_entry->checked=FALSE;
|
||
psm.cur_note=psm.head.next;
|
||
}
|
||
PsmPushMode(psm_octave);
|
||
col=0;
|
||
break;
|
||
case CH_CTRLA:
|
||
PsmPopMode;
|
||
filename=PsmSaveSong(dirname,filename);
|
||
PsmPushMode(psm_octave);
|
||
break;
|
||
case CH_CTRLC:
|
||
PsmCopyToClip;
|
||
break;
|
||
case CH_CTRLV:
|
||
PsmPasteClip;
|
||
break;
|
||
case CH_CTRLX:
|
||
PsmCutToClip;
|
||
break;
|
||
case '.':
|
||
PsmMenu(psm_octave);
|
||
col=0;
|
||
Free(filename);
|
||
filename=NULL;
|
||
psm_duration=1.0;
|
||
psm_octave=4;
|
||
PsmSongDel(&psm.head);
|
||
psm.cur_note=&psm.head;
|
||
psm.scrn_x=0;
|
||
break;
|
||
case '\n':
|
||
if (psm.cur_note!=&psm.head)
|
||
PsmRightClick(psm.cur_note->x,psm.cur_note->y);
|
||
break;
|
||
case 'x':
|
||
if (was_playing)
|
||
break;
|
||
col=0;
|
||
psm.playing=TRUE;
|
||
PsmMenu(psm_octave);
|
||
tmpn=psm.cur_note;
|
||
while (tmpn!=&psm.head) {
|
||
if (tmpn->type!=PSMT_METER) {
|
||
timeout_val=cnts.jiffies;
|
||
if (ms.pos_text.y-Fs->win_top<18)
|
||
msg_code=ScanMsg(&arg1,&arg2,1<<MSG_KEY_DOWN|
|
||
1<<MSG_MS_L_DOWN|1<<MSG_MS_R_UP|1<<MSG_CMD);
|
||
else
|
||
msg_code=ScanMsg(&arg1,&arg2,1<<MSG_KEY_DOWN|
|
||
1<<MSG_MS_L_DOWN|1<<MSG_CMD);
|
||
if (msg_code) {
|
||
Snd;
|
||
psm.playing=FALSE;
|
||
was_playing=TRUE;
|
||
if (ms.pos_text.y-Fs->win_top>=18 &&
|
||
msg_code==MSG_MS_L_DOWN)
|
||
goto mo_start;
|
||
else
|
||
goto mo_got_msg;
|
||
}
|
||
psm.cur_note=tmpn;
|
||
psm.scrn_x+=tmpn->x-0.33*GR_WIDTH;
|
||
if (PsmHasWords(tmpn->word))
|
||
"%s",tmpn->word;
|
||
Snd(tmpn->ona);
|
||
|
||
music.tempo=4.4*tempo_state.tempo/TEMPO_RANGE+0.5;
|
||
music.stacatto_factor=
|
||
0.88*tempo_state.stacatto/TEMPO_RANGE+0.12;
|
||
d=JIFFY_FREQ*psm_durations[tmpn->duration]/music.tempo;
|
||
if (Bt(&tmpn->flags,PSMf_TIE)) {
|
||
timeout_val+=d;
|
||
timeout_val2=timeout_val;
|
||
} else {
|
||
timeout_val+=d*music.stacatto_factor;
|
||
timeout_val2=timeout_val+
|
||
d*(1.0-music.stacatto_factor);
|
||
}
|
||
SleepUntil(timeout_val);
|
||
Snd;
|
||
SleepUntil(timeout_val2);
|
||
}
|
||
tmpn=tmpn->next;
|
||
}
|
||
psm.cur_note=&psm.head;
|
||
psm.scrn_x+=psm.cur_note->x-GR_WIDTH/2;
|
||
psm.playing=FALSE;
|
||
PsmMenu(psm_octave);
|
||
col=0;
|
||
Snd;
|
||
break;
|
||
case CH_BACKSPACE:
|
||
tmpn=psm.cur_note->last;
|
||
if (tmpn!=&psm.head) {
|
||
QueRem(tmpn);
|
||
PsmNoteDel(tmpn);
|
||
}
|
||
if (col) {
|
||
'' CH_BACKSPACE;
|
||
col--;
|
||
}
|
||
break;
|
||
case 'z':
|
||
if (psm.record_entry->checked)
|
||
psm.record_entry->checked=FALSE;
|
||
else {
|
||
psm.record_entry->checked=TRUE;
|
||
psm_duration=1.0;
|
||
psm_octave=4;
|
||
psm.scrn_x=0;
|
||
}
|
||
PsmMenu(psm_octave);
|
||
col=0;
|
||
break;
|
||
case CH_ESC:
|
||
PsmPopMode;
|
||
filename=PsmSaveSong(dirname,filename);
|
||
PsmPushMode(psm_octave);
|
||
case CH_SHIFT_ESC:
|
||
goto mo_done;
|
||
}
|
||
}
|
||
break;
|
||
case MSG_KEY_UP:
|
||
evt_time=tS;
|
||
break;
|
||
case MSG_MS_MOVE:
|
||
if (arg2>18*FONT_HEIGHT)
|
||
Fs->win_inhibit=WIG_USER_TASK_DFT;
|
||
else
|
||
Fs->win_inhibit=WIG_TASK_DFT-WIF_SELF_FOCUS-WIF_SELF_BORDER
|
||
-WIF_FOCUS_TASK_MENU-WIF_SELF_CTRLS;
|
||
break;
|
||
case MSG_MS_L_DOWN:
|
||
PsmDownKey(arg1,arg2);
|
||
PsmLeftClick(arg1,arg2);
|
||
break;
|
||
case MSG_MS_L_UP:
|
||
PsmUpKey(arg1,arg2);
|
||
break;
|
||
default:
|
||
PsmRightClick(arg1,arg2);
|
||
}
|
||
if (is_null)
|
||
ona=0;
|
||
if (ona!=last_ona || is_null!=was_null) {
|
||
if (!ona) {
|
||
if (is_null)
|
||
st="";
|
||
else
|
||
st="R";
|
||
} else
|
||
st=LstSub(Ona2Note(ona),psm_note_lst);
|
||
Snd(ona);
|
||
if (psm.record_entry->checked) {
|
||
if (!was_null) {
|
||
music.tempo=4.4*tempo_state.tempo/TEMPO_RANGE+0.5;
|
||
music.stacatto_factor=0.88*tempo_state.stacatto/TEMPO_RANGE+0.12;
|
||
tmpn->duration=PsmCvtDuration(
|
||
music.tempo*(evt_time-note_down_time));
|
||
PsmSetWidth(tmpn);
|
||
QueIns(tmpn,psm.cur_note->last);
|
||
}
|
||
if (!is_null) {
|
||
note_down_time=tS;
|
||
tmpn=CAlloc(sizeof(PsmNote));
|
||
tmpn->type=PSMT_NOTE;
|
||
tmpn->ona=ona;
|
||
if (st[1]=='#')
|
||
Bts(&tmpn->flags,PSMf_SHARP);
|
||
}
|
||
}
|
||
last_ona=ona;
|
||
was_null=is_null;
|
||
"%s",st;
|
||
col+=StrLen(st);
|
||
if (col>=Fs->win_width-1) {
|
||
'\n';
|
||
col=0;
|
||
}
|
||
}
|
||
}
|
||
mo_done:
|
||
GetMsg(,,1<<MSG_KEY_UP);
|
||
} catch
|
||
PutExcept;
|
||
PsmPopMode;
|
||
PsmSongDel(&psm.head);
|
||
PsmSongDel(&psm.clip);
|
||
TempoDel(c);
|
||
DCFill;
|
||
DCDel(psm.dc2);
|
||
DocClear;
|
||
SettingsPop;
|
||
if (DocPut) DocPut->flags=DocPut->flags&~DOCF_FORM|old_doc_flags&DOCF_FORM;
|
||
Free(dirname);
|
||
MenuPop;
|
||
}
|