McoStatus DisplayDialog::DoEvents(short item, Point clickPoint, WindowCode *wc, int32 *numwc, void **data, Boolean &changed)
{
UserItemUPP myfilter;
Str255 theString;
short itemtype;
Handle cn1,sliderControl;
Rect r;
short part;
Point mpoint;
int32 next_patch;
McoStatus status;
WindowPtr oldp;
int32 temp;
double m=1;
GetPort(&oldp);
SetPort(dp);
Changed = FALSE;
*numwc = 0;
status = MCO_SUCCESS;
if (isPressed(0x38)) m = 10;
if (item != -1) {
if (item == ids[Slider]) // the slider has been adjusted
{
GetMouse(&mpoint);
do {
current_patch = GetSlider(mpoint,ids[Slider]);
ShowPatchScroll(current_patch);
SetSheetStripText();
current_sheet = current_patch/(patch_per_strip*strip_per_sheet);
current_strip = (current_patch - current_sheet*(patch_per_strip*strip_per_sheet))/patch_per_strip;
GetMouse(&mpoint);
} while ( StillDown ( ) );
checkError((current_patch/patch_per_strip)*patch_per_strip);
//_waiting = 0;
Enable(dp,ids[Redo]);
SetSheetStripText();
}
else if (item == ids[Strip_Rect])
{
GlobalToLocal(&clickPoint);
temp = whichPatch(clickPoint);
if (temp != -1)
{
current_patch = temp;
current_disp = current_patch-current_top;
GetDItem ( dp, ids[Slider], &itemtype, (Handle*)&sliderControl, &r );
SetCtlValue ( (ControlHandle)sliderControl,current_patch);
ShowPatch(current_patch);
SetSheetStripText();
}
}
}
SetPort(oldp);
return status;
}
McoStatus TableDialog::readInPatches(void)
{
int i,count;
short item;
short itemtype;
Handle cn1,sliderControl;
Rect r;
McoStatus state;
int32 start_patch;
//current_patch = current_patch/patch_per_strip;
//current_patch *= patch_per_strip;
start_patch = current_patch;
count = 0;
do {
state = tcom->getNextPatch(current_patch,&patch_data[current_patch*3],0);
if (state == MCO_SUCCESS)
{
playSound(EndColumnNum);
}
count ++;
} while ((state != MCO_SUCCESS) && (count < 5));
if (state != MCO_SUCCESS)
{
//tcom->TurnOnStripRead();
return state;
}
//playSound(ClickNum);
if (doc->patchtype == No_Patches) doc->patchtype = patchtype;
GetDItem ( dp, Slider, &itemtype, (Handle*)&sliderControl, &r );
SetCtlValue ( (ControlHandle)sliderControl,current_patch);
//ShowPatchScroll(current_patch);
current_patch = next_patch[current_patch];
//current_patch++;
// check for error
checkError(start_patch);
if (current_patch >= total_patches)
{
current_patch = total_patches -1;
_waiting = FALSE;
}
ShowPatchScroll(current_patch);
current_sheet = current_patch/(patch_per_strip*strip_per_sheet);
current_strip = (current_patch - current_sheet*(patch_per_strip*strip_per_sheet))/patch_per_strip;
SetSheetStripText();
//tcom->TurnOnStripRead();
return MCO_SUCCESS;
}
McoStatus TechkonDialog::DoEvents(short item, Point clickPoint, WindowCode *wc, int32 *numwc, void **data, Boolean &changed)
{
UserItemUPP myfilter;
Str255 theString;
short itemtype;
Handle cn1,sliderControl;
Rect r;
short part;
Point mpoint;
int32 next_patch;
McoStatus status;
WindowPtr oldp;
int32 temp;
double m=1;
GetPort(&oldp);
SetPort(dp);
Changed = FALSE;
*numwc = 0;
status = MCO_SUCCESS;
if (isPressed(0x38)) m = 10;
if (item != -1) {
if ((item == TIMER_ITEM ) && (doc->tcom)) // a timer event has occured
{
_last_tick_time2 = TickCount();
if (_waiting)
{
if (!doc->tcom->IsBufferEmpty()) // has a strip been read in
{
changed = TRUE;
// check to see if a strip has been read in
if (doc->tcom->IsDataPresent())
{
doc->needsSave = TRUE;
GetDItem ( dp,ids[Message], &itemtype, (Handle*)&cn1, &r );
GetIndString(theString,Message_List_ID,4);
SetIText(cn1,theString);
readInPatches();
Changed = TRUE;
next_patch = findNextPatch();
if (next_patch == -1)
{
GetDItem ( dp,ids[Message], &itemtype, (Handle*)&cn1, &r );
GetIndString(theString,Message_List_ID,5);
SetIText(cn1,theString);
_done == TRUE;
_waiting = FALSE;
Disable(dp,ids[Redo]);
Disable(dp,ids[Start]);
Disable(dp,ids[Cancel]);
Enable(dp,ids[Save_as]);
Enable(dp,OK);
}
else
{
GetDItem ( dp,ids[Message], &itemtype, (Handle*)&cn1, &r );
GetIndString(theString,Message_List_ID,7);
SetIText(cn1,theString);
}
}
}
checkFinished();
}
}
else if (item == ids[Slider]) // the slider has been adjusted
{
GetMouse(&mpoint);
do {
current_patch = GetSlider(mpoint,ids[Slider]);
ShowPatchScroll(current_patch);
SetSheetStripText();
current_sheet = current_patch/(patch_per_strip*strip_per_sheet);
current_strip = (current_patch - current_sheet*(patch_per_strip*strip_per_sheet))/patch_per_strip;
GetMouse(&mpoint);
} while ( StillDown ( ) );
checkError((current_patch/patch_per_strip)*patch_per_strip);
//_waiting = 0;
Enable(dp,ids[Redo]);
SetSheetStripText();
}
else if (item == ids[Start]) // start or stop reading
{
status = MCO_SUCCESS;
if (_first)
{
status = doc->tcom->Calibrate();
playSound(EndColumnNum);
if (status != MCO_SUCCESS)
{
McoMessAlert(MCO_FAIL_CALIB,0L);
status = MCO_SUCCESS;
goto bail;
}
}
if (status == MCO_SUCCESS)
{
_waiting = 1;
current_patch = findNextPatch(); // reset the display, current patch, sheet, strip, and text
ShowPatch(current_patch); // display the window
current_sheet = current_patch/(patch_per_strip*strip_per_sheet);
current_strip = (current_patch - current_sheet*(patch_per_strip*strip_per_sheet))/patch_per_strip;
Disable(dp,ids[Start]);
GetDItem ( dp,ids[Message], &itemtype, (Handle*)&cn1, &r );
GetIndString(theString,Message_List_ID,7);
SetIText(cn1,theString);
SetSheetStripText();
_first = 0;
}
status = MCO_SUCCESS;
}
else if (item == ids[Save_as])
{
StorePatches();
doc->patchtype = patchtype;
doc->handle_save_datafile(patchD);
ShowPatch(current_patch);
}
else if (item == ids[VoiceSet])
{
GetDItem(dp, ids[VoiceSet], &itemtype, (Handle*)&cn1, &r );
voice_set = GetCtlValue((ControlHandle)cn1);
}
else if (item == ids[Strip_Rect])
{
GlobalToLocal(&clickPoint);
temp = whichPatch(clickPoint);
if (temp != -1)
{
current_patch = temp;
current_disp = current_patch-current_top;
GetDItem ( dp, ids[Slider], &itemtype, (Handle*)&sliderControl, &r );
SetCtlValue ( (ControlHandle)sliderControl,current_patch);
ShowPatch(current_patch);
SetSheetStripText();
}
}
else if (item == ids[Redo]) // Reread a strip
{
_waiting = 1; // reset the display, current patch, sheet, strip, and text
Disable(dp,ids[Redo]);
Disable(dp,ids[Start]);
GetDItem ( dp,ids[Message], &itemtype, (Handle*)&cn1, &r );
GetIndString(theString,Message_List_ID,7);
SetIText(cn1,theString);
}
else if (item == OK)
{
StorePatches();
doc->copyWaiting(patchD);
doc->patchtype = patchtype;
//doc->needsSave = TRUE;
*numwc = 1;
wc[0].code = WE_Close_Window;
wc[0].wintype = WinType;
wc[0].winnum = WinNum;
wc[0].doc = doc;
}
else if (item == Cancel)
{
*numwc = 1;
wc[0].code = WE_Close_Window;
wc[0].wintype = WinType;
wc[0].winnum = WinNum;
wc[0].doc = doc;
}
}
bail:
SetPort(oldp);
changed = Changed;
return status;
}
McoStatus SpChInDialog::DoEvents(short item, Point clickPoint, WindowCode *wc, int32 *numwc, void **data, Boolean &changed)
{
UserItemUPP myfilter;
Str255 theString;
short itemtype;
Handle cn1,sliderControl;
Rect r;
short part;
Point mpoint;
int32 next_patch;
McoStatus status;
WindowPtr oldp;
int32 temp;
double m=1;
SpectroChart *tcom = (SpectroChart*)(doc->tcom);
GetPort(&oldp);
SetPort(dp);
Changed = FALSE;
*numwc = 0;
status = MCO_SUCCESS;
if (isPressed(0x38)) m = 10;
if (item != -1) {
if (item == TIMER_ITEM ) // a timer event has occured
{
_last_tick_time2 = TickCount();
if (_waiting)
{
doc->needsSave = TRUE;
// GetDItem ( dp,Message, &itemtype, (Handle*)&cn1, &r );
// GetIndString(theString,Message_List_ID,4);
// SetIText(cn1,theString);
readInPatches();
Changed = TRUE;
next_patch = findNextPatch();
if (next_patch == -1)
{
// GetDItem ( dp,Message, &itemtype, (Handle*)&cn1, &r );
// GetIndString(theString,Message_List_ID,5);
// SetIText(cn1,theString);
_done == TRUE;
if (current_patch == total_patches) _waiting = FALSE;
Disable(dp,ids[Redo]);
//Disable(dp,ReadNext);
if (NotAlreadFinished) Disable(dp,Cancel);
Enable(dp,ids[Save_as]);
Enable(dp,OK);
}
else
{
// GetDItem ( dp,Message, &itemtype, (Handle*)&cn1, &r );
// GetIndString(theString,Message_List_ID,2);
// SetIText(cn1,theString);
}
if (!_waiting)
{
GetDItem ( dp,ids[Start], &itemtype, (Handle*)&cn1, &r );
GetIndString(theString,Button_Labels,1);
SetCTitle((ControlHandle)cn1,theString);
}
checkFinished();
}
}
else if (item == ids[Slider]) // the slider has been adjusted
{
GetMouse(&mpoint);
do {
current_patch = GetSlider(mpoint,ids[Slider]);
ShowPatchScroll(current_patch);
SetSheetStripText();
current_sheet = current_patch/(patch_per_strip*strip_per_sheet);
current_strip = (current_patch - current_sheet*(patch_per_strip*strip_per_sheet))/patch_per_strip;
GetMouse(&mpoint);
} while ( StillDown ( ) );
checkError((current_patch/patch_per_strip)*patch_per_strip);
//_waiting = 0;
Enable(dp,ids[Redo]);
SetSheetStripText();
}
else if (item == ids[Start]) // start or stop reading
{
if (_waiting)
{
_waiting = 0;
GetDItem ( dp,ids[Start], &itemtype, (Handle*)&cn1, &r );
GetIndString(theString,Button_Labels,1);
SetCTitle((ControlHandle)cn1,theString);
current_patch = last_patch;
ShowPatchScroll(current_patch);
SetSheetStripText();
current_sheet = current_patch/(patch_per_strip*strip_per_sheet);
current_strip = (current_patch - current_sheet*(patch_per_strip*strip_per_sheet))/patch_per_strip;
}
else
{
if (DoStart() == MCO_SUCCESS)
{
GetDItem ( dp,ids[Start], &itemtype, (Handle*)&cn1, &r );
GetIndString(theString,Button_Labels,2);
SetCTitle((ControlHandle)cn1,theString);
}
}
}
else if (item == ids[Position_Up])
{
if (!_waiting)
{
tcom->moveDistance(0,m*0.5);
}
}
else if (item == ids[Position_Down])
{
if (!_waiting)
{
tcom->moveDistance(0,-0.5*m);
}
}
else if (item == ids[Position_Left])
{
if (!_waiting)
{
tcom->moveDistance(-0.5*m,0);
}
}
else if (item == ids[Position_Right])
{
if (!_waiting)
{
tcom->moveDistance(0.5*m,0);
}
}
else if (item == ids[Save_as])
{
StorePatches();
doc->patchtype = patchtype;
doc->handle_save_datafile(patchD);
ShowPatch(current_patch);
}
else if (item == ids[VoiceSet])
{
GetDItem(dp, ids[VoiceSet], &itemtype, (Handle*)&cn1, &r );
voice_set = GetCtlValue((ControlHandle)cn1);
}
else if (item == ids[Strip_Rect])
{
GlobalToLocal(&clickPoint);
temp = whichPatch(clickPoint);
if (temp != -1)
{
current_patch = temp;
current_disp = current_patch-current_top;
GetDItem ( dp, ids[Slider], &itemtype, (Handle*)&sliderControl, &r );
SetCtlValue ( (ControlHandle)sliderControl,current_patch);
ShowPatch(current_patch);
SetSheetStripText();
}
}
else if (item == OK)
{
StorePatches();
doc->copyWaiting(patchD);
doc->patchtype = patchtype;
//doc->needsSave = TRUE;
*numwc = 1;
wc[0].code = WE_Close_Window;
wc[0].wintype = WinType;
wc[0].winnum = WinNum;
wc[0].doc = doc;
}
else if (item == Cancel)
{
*numwc = 1;
wc[0].code = WE_Close_Window;
wc[0].wintype = WinType;
wc[0].winnum = WinNum;
wc[0].doc = doc;
doc->patchtype = oldpatchtype;
}
}
SetPort(oldp);
changed = Changed;
return status;
}
McoStatus SpChInDialog::readInPatches(void)
{
int i,count;
short item;
short itemtype;
Handle cn1,sliderControl;
Rect r;
McoStatus state;
int32 start_patch;
double data[4];
SpectroChart *tcom = (SpectroChart*)(doc->tcom);
//current_patch = current_patch/patch_per_strip;
//current_patch *= patch_per_strip;
start_patch = current_patch;
if (!doc->tcom) return MCO_SUCCESS;
count = 0;
if ((current_patch < patchD->format.total) || (patchD->format.numLinear == 0)) doc->tcom->SetLabOutput();
else doc->tcom->SetDensityOutput();
do {
state = doc->tcom->getNextPatch(current_patch,data);
if (state == MCO_SUCCESS)
{
playSound(EndColumnNum);
}
count ++;
} while ((state != MCO_SUCCESS) && (count < 1));
if (state != MCO_SUCCESS)
{
//tcom->TurnOnStripRead();
return state;
}
if ((current_patch < patchD->format.total) || (patchD->format.numLinear == 0))
{
patch_data[current_patch*3] = data[0];
patch_data[current_patch*3+1] = data[1];
patch_data[current_patch*3+2] = data[2];
}
else
{
i = (current_patch-patchD->format.total)/(patchD->format.numLinear-1);
patch_data[current_patch*3] = data[i];
patch_data[current_patch*3+1] = 0;
patch_data[current_patch*3+2] = 0;
}
//playSound(ClickNum);
if (doc->patchtype == No_Patches) doc->patchtype = patchtype;
GetDItem ( dp,ids[Slider], &itemtype, (Handle*)&sliderControl, &r );
SetCtlValue ( (ControlHandle)sliderControl,current_patch);
//ShowPatchScroll(current_patch);
last_patch = current_patch;
current_patch = next_patch[current_patch];
//current_patch++;
// check for error
//checkError(start_patch);
if (current_patch >= total_patches)
{
current_patch = total_patches -1;
_waiting = FALSE;
}
ShowPatchScroll(current_patch);
current_sheet = current_patch/(patch_per_strip*strip_per_sheet);
current_strip = (current_patch - current_sheet*(patch_per_strip*strip_per_sheet))/patch_per_strip;
SetSheetStripText();
//tcom->TurnOnStripRead();
return MCO_SUCCESS;
}
