#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 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; }