428 lines
9.0 KiB
HolyC
Executable File
428 lines
9.0 KiB
HolyC
Executable File
U0 PsmNoteDel(PsmNote *tmpn)
|
||
{
|
||
Free(tmpn->word);
|
||
Free(tmpn);
|
||
}
|
||
|
||
PsmNote *PsmNoteCopy(PsmNote *tmpn)
|
||
{
|
||
PsmNote *tmpn1=MAllocIdent(tmpn);
|
||
if (tmpn->word)
|
||
tmpn1->word=StrNew(tmpn->word);
|
||
else
|
||
tmpn1->word=NULL;
|
||
return tmpn1;
|
||
}
|
||
|
||
U0 PsmSongDel(PsmNote *head)
|
||
{
|
||
PsmNote *tmpn,*tmpn1;
|
||
tmpn=head->next;
|
||
while (tmpn!=head) {
|
||
tmpn1=tmpn->next;
|
||
PsmNoteDel(tmpn);
|
||
tmpn=tmpn1;
|
||
}
|
||
QueInit(head);
|
||
}
|
||
|
||
U0 PsmCutToClip()
|
||
{
|
||
PsmNote *tmpn,*tmpn1;
|
||
PsmSongDel(&psm.clip);
|
||
tmpn=psm.head.next;
|
||
while (tmpn!=&psm.head) {
|
||
tmpn1=tmpn->next;
|
||
if (tmpn->flags&PSMF_SEL) {
|
||
if (psm.cur_note==tmpn)
|
||
psm.cur_note=tmpn->next;
|
||
QueRem(tmpn);
|
||
tmpn->flags&=~PSMF_SEL;
|
||
QueIns(tmpn,psm.clip.last);
|
||
}
|
||
tmpn=tmpn1;
|
||
}
|
||
}
|
||
|
||
U0 PsmPasteClip()
|
||
{
|
||
PsmNote *tmpn,*tmpn1;
|
||
tmpn=psm.clip.next;
|
||
while (tmpn!=&psm.clip) {
|
||
tmpn1=PsmNoteCopy(tmpn);
|
||
QueIns(tmpn1,psm.cur_note->last);
|
||
tmpn=tmpn->next;
|
||
}
|
||
}
|
||
|
||
U0 PsmCopyToClip()
|
||
{
|
||
PsmNote *tmpn,*tmpn1;
|
||
PsmSongDel(&psm.clip);
|
||
tmpn=psm.head.next;
|
||
while (tmpn!=&psm.head) {
|
||
if (tmpn->flags&PSMF_SEL) {
|
||
tmpn->flags&=~PSMF_SEL;
|
||
tmpn1=PsmNoteCopy(tmpn);
|
||
QueIns(tmpn1,psm.clip.last);
|
||
}
|
||
tmpn=tmpn->next;
|
||
}
|
||
}
|
||
|
||
PsmNote *PsmFindNote(I64 x,I64)
|
||
{
|
||
PsmNote *tmpn=psm.head.next;
|
||
PsmRecalcNoteXY;
|
||
x+=PSM_NOTE_SPACING/2;
|
||
while (x>tmpn->next->x && tmpn!=&psm.head)
|
||
tmpn=tmpn->next;
|
||
return tmpn;
|
||
}
|
||
|
||
U8 *PsmMusicSetOctave(U8 *st,I64 *psm_octave)
|
||
{
|
||
while ('0'<=*st<='9')
|
||
*psm_octave=*st++ -'0';
|
||
return st;
|
||
}
|
||
|
||
U8 *PsmMusicSetNoteLen(U8 *st,F64 *psm_duration)
|
||
{
|
||
Bool cont=TRUE;
|
||
do {
|
||
switch (*st++) {
|
||
case 'w': *psm_duration=4.0; break;
|
||
case 'h': *psm_duration=2.0; break;
|
||
case 'q': *psm_duration=1.0; break;
|
||
case 'e': *psm_duration=0.5; break;
|
||
case 's': *psm_duration=0.25; break;
|
||
case 't': *psm_duration=2.0* *psm_duration/3.0; break;
|
||
case '.': *psm_duration=1.5* *psm_duration; break;
|
||
default:
|
||
st--;
|
||
cont=FALSE;
|
||
}
|
||
} while (cont);
|
||
return st;
|
||
}
|
||
|
||
U0 PsmLoadSongStr(U8 *st,I64 *psm_octave,F64 *psm_duration)
|
||
{
|
||
PsmNote *tmpn,*tmpn1;
|
||
I64 note,i=0;
|
||
while (*st) {
|
||
tmpn=CAlloc(sizeof(PsmNote));
|
||
while (*st && !('A'<=*st<='G') && *st!='R') {
|
||
if (*st=='M') {
|
||
tmpn1=CAlloc(sizeof(PsmNote));
|
||
tmpn1->type=PSMT_METER;
|
||
st++;
|
||
if ('1'<=*st<='9')
|
||
tmpn1->meter_top=*st++-'0';
|
||
else
|
||
tmpn1->meter_top=4;
|
||
if (*st=='/')
|
||
st++;
|
||
if ('1'<=*st<='9')
|
||
tmpn1->meter_bottom=*st++-'0';
|
||
else
|
||
tmpn1->meter_bottom=4;
|
||
PsmSetWidth(tmpn1);
|
||
QueIns(tmpn1,psm.head.last);
|
||
}
|
||
while (*st=='(') {
|
||
Bts(&tmpn->flags,PSMf_TIE);
|
||
st++;
|
||
}
|
||
st=PsmMusicSetOctave(st,psm_octave);
|
||
st=PsmMusicSetNoteLen(st,psm_duration);
|
||
}
|
||
if (!*st) {
|
||
PsmNoteDel(tmpn);
|
||
break;
|
||
}
|
||
note=*st++-'A';
|
||
if (note<7) {
|
||
note=music.note_map[note];
|
||
if (*st=='b') {
|
||
Bts(&tmpn->flags,PSMf_FLAT);
|
||
note--;
|
||
st++;
|
||
if (note<0) //Ab
|
||
note=11;
|
||
else if (note==2) //Cb
|
||
*psm_octave-=1;
|
||
} else if (*st=='#') {
|
||
Bts(&tmpn->flags,PSMf_SHARP);
|
||
note++;
|
||
st++;
|
||
if (note>11) //G#
|
||
note=0;
|
||
else if (note==3) //B#
|
||
*psm_octave+=1;
|
||
}
|
||
tmpn->ona=Note2Ona(note,*psm_octave);
|
||
} else
|
||
tmpn->ona=0;
|
||
if (*psm_duration<=2*.25/3)
|
||
i=0;
|
||
else if (*psm_duration<=.25)
|
||
i=1;
|
||
else if (*psm_duration<=2*.5/3)
|
||
i=2;
|
||
else if (*psm_duration<=.5)
|
||
i=3;
|
||
else if (*psm_duration<=2.0/3)
|
||
i=4;
|
||
else if (*psm_duration<=.5*1.5)
|
||
i=5;
|
||
else if (*psm_duration<=1.0)
|
||
i=6;
|
||
else if (*psm_duration<=1.5)
|
||
i=7;
|
||
else if (*psm_duration<=2.0)
|
||
i=8;
|
||
else if (*psm_duration<=3.0)
|
||
i=9;
|
||
else if (*psm_duration<=4.0)
|
||
i=10;
|
||
else
|
||
i=11;
|
||
tmpn->duration=i;
|
||
tmpn->type=PSMT_NOTE;
|
||
PsmSetWidth(tmpn);
|
||
QueIns(tmpn,psm.cur_note->last);
|
||
}
|
||
}
|
||
|
||
U0 PsmLoadSong(U8 *filename,I64 *psm_octave,F64 *psm_duration)
|
||
{
|
||
U8 *st;
|
||
PsmNote *tmpn;
|
||
CCmpCtrl *cc=CmpCtrlNew(MStrPrint("#include \"%s\"",filename));
|
||
if (FileOcc("incomplete",filename,""))
|
||
psm.incomplete_entry->checked=TRUE;
|
||
else
|
||
psm.incomplete_entry->checked=FALSE;
|
||
while (Lex(cc)) {
|
||
if (cc->token==TK_IDENT)
|
||
if (!StrCmp(cc->cur_str,"Play")) {
|
||
if (Lex(cc)=='(')
|
||
if (Lex(cc)==TK_STR) {
|
||
tmpn=psm.head.last;
|
||
st=LexExtStr(cc);
|
||
PsmLoadSongStr(st,psm_octave,psm_duration);
|
||
if (cc->token==',') {
|
||
if (Lex(cc)==TK_STR) {
|
||
st=LexExtStr(cc);
|
||
do {
|
||
do tmpn=tmpn->next;
|
||
while (tmpn!=&psm.head && tmpn->type==PSMT_METER);
|
||
if (tmpn!=&psm.head)
|
||
tmpn->word=StrNew(st);
|
||
st+=StrLen(st)+1;
|
||
} while (*st);
|
||
}
|
||
}
|
||
}
|
||
} else if (!StrCmp(cc->cur_str,"music") &&
|
||
Lex(cc)=='.' && Lex(cc)==TK_IDENT) {
|
||
if (!StrCmp(cc->cur_str,"tempo")) {
|
||
if (Lex(cc)=='=' && Lex(cc)==TK_F64) {
|
||
music.tempo=cc->cur_f64-0.0005;
|
||
tempo_state.tempo=Round(TEMPO_RANGE*(music.tempo-0.5)/4.4);
|
||
}
|
||
} else if (!StrCmp(cc->cur_str,"stacatto_factor")) {
|
||
if (Lex(cc)=='=' && Lex(cc)==TK_F64) {
|
||
music.stacatto_factor=cc->cur_f64-0.0005;
|
||
tempo_state.stacatto=
|
||
Round(TEMPO_RANGE*(music.stacatto_factor-0.12)/0.88);
|
||
}
|
||
}
|
||
}
|
||
}
|
||
CmpCtrlDel(cc);
|
||
}
|
||
|
||
U8 *PsmCvtSong()
|
||
{
|
||
PsmNote *tmpn;
|
||
U8 *st,*src,*dst;
|
||
I64 i,ona,note,octave,last_octave,last_duration;
|
||
|
||
i=0;
|
||
tmpn=psm.head.next;
|
||
last_octave=I64_MIN;
|
||
last_duration=-1;
|
||
while (tmpn!=&psm.head) {
|
||
dst=&tmpn->ascii;
|
||
if (tmpn->type==PSMT_METER) {
|
||
*dst++='M';
|
||
*dst++=tmpn->meter_top+'0';
|
||
*dst++='/';
|
||
*dst++=tmpn->meter_bottom+'0';
|
||
} else {
|
||
if (tmpn->ona) {
|
||
ona=tmpn->ona;
|
||
if (Bt(&tmpn->flags,PSMf_SHARP))
|
||
ona--;
|
||
if (Bt(&tmpn->flags,PSMf_FLAT))
|
||
ona++;
|
||
octave=Ona2Octave(ona);
|
||
note =Ona2Note (ona);
|
||
note=music.note_map[*LstSub(note,psm_note_lst)-'A'];
|
||
}
|
||
if (Bt(&tmpn->flags,PSMf_TIE))
|
||
*dst++='(';
|
||
if (octave!=last_octave && tmpn->ona) {
|
||
*dst++=octave+'0';
|
||
last_octave=octave;
|
||
}
|
||
if (tmpn->duration!=last_duration) {
|
||
src=LstSub(tmpn->duration,psm_duration_lst);
|
||
*dst++=src[0];
|
||
if (src[1])
|
||
*dst++=src[1];
|
||
last_duration=tmpn->duration;
|
||
}
|
||
if (tmpn->ona) {
|
||
src=LstSub(note,psm_note_lst);
|
||
*dst++=src[0];
|
||
if (src[1])
|
||
*dst++=src[1];
|
||
else if (Bt(&tmpn->flags,PSMf_FLAT))
|
||
*dst++='b';
|
||
else if (Bt(&tmpn->flags,PSMf_SHARP))
|
||
*dst++='#';
|
||
} else
|
||
*dst++='R';
|
||
}
|
||
*dst++=0;
|
||
i+=StrLen(tmpn->ascii);
|
||
tmpn=tmpn->next;
|
||
}
|
||
|
||
st=MAlloc(i+1);
|
||
dst=st;
|
||
tmpn=psm.head.next;
|
||
while (tmpn!=&psm.head) {
|
||
StrCpy(dst,tmpn->ascii);
|
||
dst+=StrLen(tmpn->ascii);
|
||
tmpn=tmpn->next;
|
||
}
|
||
*dst++=0;
|
||
return st;
|
||
}
|
||
|
||
U8 *PsmSaveSong(U8 *dirname,U8 *full_filename)
|
||
{
|
||
CDoc *doc=DocNew(full_filename);
|
||
Bool has_words;
|
||
PsmNote *tmpn,*tmpn1;
|
||
F64 measure_len=4,two_measure_left=2*measure_len;
|
||
I64 ch;
|
||
U8 *ptr;
|
||
|
||
Free(PsmCvtSong); //set tmpn->ascii;
|
||
|
||
music.tempo=4.4*tempo_state.tempo/TEMPO_RANGE+0.5;
|
||
music.stacatto_factor=0.88*tempo_state.stacatto/TEMPO_RANGE+0.12;
|
||
|
||
has_words=FALSE;
|
||
tmpn=psm.head.next;
|
||
while (tmpn!=&psm.head) {
|
||
if (PsmHasWords(tmpn->word)) has_words=TRUE;
|
||
tmpn=tmpn->next;
|
||
}
|
||
if (psm.incomplete_entry->checked)
|
||
DocPrint(doc,"//0 incomplete\n");
|
||
else if (has_words)
|
||
DocPrint(doc,"//0 has words\n");
|
||
else
|
||
DocPrint(doc,"//0 no nothing\n");
|
||
|
||
DocPrint(doc,
|
||
"U0 Song()\n"
|
||
"{\n"
|
||
" Fs->task_end_cb=&SndTaskEndCB;\n"
|
||
" MusicSettingsRst;\n"
|
||
" music.tempo=%6.3f;\n"
|
||
" music.stacatto_factor=%6.3f;\n"
|
||
" try {\n"
|
||
" while (!ScanKey) {\n"
|
||
"\tPlay(\"",music.tempo+0.0005,music.stacatto_factor+0.0005);
|
||
|
||
tmpn=psm.head.next;
|
||
tmpn1=tmpn;
|
||
has_words=FALSE;
|
||
while (tmpn!=&psm.head) {
|
||
DocPrint(doc,"%s",tmpn->ascii);
|
||
if (PsmHasWords(tmpn->word)) has_words=TRUE;
|
||
if (tmpn->type==PSMT_METER) {
|
||
measure_len=tmpn->meter_top*4.0/tmpn->meter_bottom;
|
||
two_measure_left=0;
|
||
} else
|
||
two_measure_left-=psm_durations[tmpn->duration];
|
||
tmpn=tmpn->next;
|
||
if (two_measure_left<0.001 && tmpn!=&psm.head) {
|
||
if (has_words) {
|
||
DocPrint(doc,"\",\n\t\t\"");
|
||
while (tmpn1!=tmpn) {
|
||
if (tmpn1->type!=PSMT_METER) {
|
||
if (ptr=tmpn1->word) {
|
||
while (ch=*ptr) {
|
||
if (ch==CH_SPACE)
|
||
*ptr=CH_SHIFT_SPACE;
|
||
ptr++;
|
||
}
|
||
DocPrint(doc,"%Q\\0",tmpn1->word);
|
||
} else
|
||
DocPrint(doc,"%c\\0",CH_SHIFT_SPACE);
|
||
}
|
||
tmpn1=tmpn1->next;
|
||
}
|
||
}
|
||
DocPrint(doc,"\");\n"
|
||
"\tPlay(\"");
|
||
two_measure_left=2*measure_len;
|
||
tmpn1=tmpn;
|
||
has_words=FALSE;
|
||
}
|
||
}
|
||
if (has_words) {
|
||
DocPrint(doc,"\",\n\t\t\"");
|
||
while (tmpn1!=tmpn) {
|
||
if (tmpn1->type!=PSMT_METER) {
|
||
if (ptr=tmpn1->word) {
|
||
while (ch=*ptr) {
|
||
if (ch==CH_SPACE)
|
||
*ptr=CH_SHIFT_SPACE;
|
||
ptr++;
|
||
}
|
||
DocPrint(doc,"%Q\\0",tmpn1->word);
|
||
} else
|
||
DocPrint(doc,"%c\\0",CH_SHIFT_SPACE);
|
||
}
|
||
tmpn1=tmpn1->next;
|
||
}
|
||
}
|
||
DocPrint(doc,"\");\n"
|
||
" }\n"
|
||
" } catch\n"
|
||
" PutExcept;\n"
|
||
" Snd;\n"
|
||
"}\n"
|
||
"\n"
|
||
"Song;\n");
|
||
DocRecalc(doc);
|
||
if (full_filename)
|
||
Free(full_filename);
|
||
else
|
||
StrPrint(doc->filename.name,"%s/Tmp.HC.Z",dirname);
|
||
DocWrite(doc,TRUE);
|
||
full_filename=StrNew(doc->filename.name);
|
||
DocDel(doc);
|
||
return full_filename;
|
||
}
|