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;
}
TechkonDialog::TechkonDialog(ProfileDoc *dc,RawData *pD):InputDialog(dc,pD,1)
{
short iType;
Handle iHandle;
Handle sHandle;
Rect iRect, r,pRect,tRect;
UserItemUPP box3D;
QDErr error;
GDHandle oldGD;
GWorldPtr oldGW;
RGBColor c,oldbackcolor,oldforecolor;
WindowPtr oldP;
OSErr err;
int32 i,wi,hi;
double w,h;
short gtsl_ids[] = GTSL_IDS;
Str255 theString;
PixMapHandle bigPixMap;
McoStatus state;
for (i=0; i<NumInputIDS; i++) ids[i] = gtsl_ids[i];
WinType = TechkonWindow;
WinNum = 0;
setDialog(Input_Dialog);
frame_button(ids[Ok_Box]);
// Added by James, 3D the box
threeD_box(ids[ThreeDBox]);
HideDItem(dp,ids[Redo]);
GetDItem ( dp,ids[Message], &iType, (Handle*)&iHandle, &iRect );
GetIndString(theString,Message_List_ID,6);
SetIText(iHandle,theString);
Scramble = FALSE;
if (Scramble)
{
voice_set = 1;
}
else
{
Disable(dp,ids[VoiceSet]);
voice_set = 2;
}
// initialize comminications with the device
state = doc->openInputDevice(0,0,0);
if (state != MCO_SUCCESS) McoErrorAlert(state);
// initialize the big gworld
GetDItem (dp, ids[Strip_Rect], &iType, (Handle*)&iHandle, &iRect);
tRect = iRect;
OffsetRect(&tRect,-iRect.left,-iRect.top);
error = NewGWorld( &BigGW, 32, &tRect, 0, 0, 0 );
if (error != 0)
{
delete this;
return;
}
GetGWorld(&oldGW,&oldGD);
SetGWorld(BigGW,nil);
// GetBackColor(&oldbackcolor);
GetForeColor(&oldforecolor);
c.red = 65535;
c.green = 65535;
c.blue = 65535;
RGBBackColor(&c);
c.red = 0;
c.green = 0;
c.blue = 0;
RGBForeColor(&c);
bigPixMap = GetGWorldPixMap ( BigGW );
if (LockPixels ( bigPixMap )) EraseRect( &tRect );
SetGWorld(oldGW,oldGD);
// RGBBackColor(&oldbackcolor);
RGBForeColor(&oldforecolor);
// SetPort(oldP);
GetDItem (dp, ids[Patch_Rect], &iType, (Handle*)&iHandle, &pRect);
num_display_patch = (iRect.bottom-iRect.top)/(pRect.bottom-pRect.top);
top_patch = 0;
//init the static members
//current_patch = total_patches-1;
//current_patch = 0;
current_patch = 0;
current_strip = 0;
current_sheet = 0;
_done = 0;
_waiting = 0;
SetSheetStripText();
current_top = current_patch - 2*num_display_patch/3;
current_bottom = current_top + num_display_patch - 1;
if (current_top < 0)
{
current_top = 0;
current_bottom = current_top + num_display_patch - 1;
}
if (current_bottom >= total_patches-1)
{
current_bottom = total_patches - 1;
current_top = current_bottom - num_display_patch + 1;
}
current_disp = 2*num_display_patch/3;
init();
getpatchRGB();
Disable(dp,ids[Redo]);
GetDItem (dp, ids[Slider], &iType, (Handle*)&iHandle, &pRect);
SetCtlMin((ControlHandle)iHandle,0);
SetCtlMax((ControlHandle)iHandle,total_patches-1);
GetDItem(dp, ids[VoiceSet], &iType, (Handle*)&iHandle, &pRect);
SetCtlValue((ControlHandle)iHandle,1);
//voice_set = 1;
checkFinished();
DrawWindow();
}
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;
}
DisplayDialog::DisplayDialog(ProfileDoc *dc,RawData *pD,int wn):InputDialog(dc,pD,1)
{
short iType;
Handle iHandle;
Handle sHandle;
Rect iRect, r,pRect,tRect;
UserItemUPP box3D;
QDErr error;
GDHandle oldGD;
GWorldPtr oldGW;
RGBColor c,oldbackcolor,oldforecolor;
WindowPtr oldP;
OSErr err;
int32 i,wi,hi;
double w,h;
short dtp_ids[] = DISPPATCH_IDS;
Str255 theString,name;
for (i=0; i<NumInputIDS; i++) ids[i] = dtp_ids[i];
WinType = DisplayWindow;
WinNum = wn;
setDialog(Input_Dialog);
GetIndString(theString,Display_Title,1);
SetWTitle( dp, theString);
// Added by James, 3D the box
threeD_box(ids[ThreeDBox]);
//playSound(8193);
// initialize the big gworld
GetDItem (dp, ids[Strip_Rect], &iType, (Handle*)&iHandle, &iRect);
tRect = iRect;
OffsetRect(&tRect,-iRect.left,-iRect.top);
error = NewGWorld( &BigGW, 32, &tRect, 0, 0, 0 );
if (error != 0)
{
delete this;
return;
}
GetGWorld(&oldGW,&oldGD);
SetGWorld(BigGW,nil);
// GetBackColor(&oldbackcolor);
GetForeColor(&oldforecolor);
c.red = 65535;
c.green = 65535;
c.blue = 65535;
RGBBackColor(&c);
c.red = 0;
c.green = 0;
c.blue = 0;
RGBForeColor(&c);
// EraseRect( &tRect );
SetGWorld(oldGW,oldGD);
// RGBBackColor(&oldbackcolor);
RGBForeColor(&oldforecolor);
// SetPort(oldP);
GetDItem (dp, ids[Patch_Rect], &iType, (Handle*)&iHandle, &pRect);
num_display_patch = (iRect.bottom-iRect.top)/(pRect.bottom-pRect.top);
top_patch = 0;
//init the static members
//current_patch = total_patches-1;
//current_patch = 0;
current_patch = 0;
current_strip = 0;
current_sheet = 0;
_done = 0;
_waiting = 0;
SetSheetStripText();
current_top = current_patch - 2*num_display_patch/3;
current_bottom = current_top + num_display_patch - 1;
if (current_top < 0)
{
current_top = 0;
current_bottom = current_top + num_display_patch - 1;
}
if (current_bottom >= total_patches-1)
{
current_bottom = total_patches - 1;
current_top = current_bottom - num_display_patch + 1;
}
current_disp = 2*num_display_patch/3;
init();
getpatchRGB();
Disable(dp,ids[Redo]);
GetDItem (dp, ids[Slider], &iType, (Handle*)&iHandle, &pRect);
SetCtlMin((ControlHandle)iHandle,0);
SetCtlMax((ControlHandle)iHandle,total_patches-1);
// GetDItem ( dp,ids[Message], &iType, (Handle*)&iHandle, &pRect );
// SetIText(iHandle,"\p");
GetDItem ( dp,PatchLabel, &iType, (Handle*)&iHandle, &pRect );
GetIndString(theString,Message_List_ID,Patch_Message);
SetIText(iHandle,theString);
strcpy((char*)name,pD->desc);
ctopstr((char*)name);
SetWTitle( dp, name);
DrawWindow();
}
SpChInDialog::SpChInDialog(ProfileDoc *dc,RawData *pD):TableDialog(dc,pD)
{
short iType;
Handle iHandle;
Handle sHandle;
Rect iRect, r,pRect,tRect;
UserItemUPP box3D;
QDErr error;
GDHandle oldGD;
GWorldPtr oldGW;
RGBColor c,oldbackcolor,oldforecolor;
WindowPtr oldP;
OSErr err;
int32 i,wi,hi;
double w,h;
short spc_ids[] = SPC_IDS;
McoStatus state;
int papernum;
for (i=0; i<NumInputIDS; i++) ids[i] = spc_ids[i];
WinType = StripDialog;
WinNum = 0;
setDialog(Input_Dialog);
frame_button(ids[Ok_Box]);
SetSheetStripText();
// Added by James, 3D the box
threeD_box(ids[ThreeDBox]);
// initialize comminications with the specrolino
state = doc->openInputDevice(0,0,0);
if (state != MCO_SUCCESS) McoErrorAlert(state);
w = patchD->patches.width;
h = patchD->patches.height;
if (patchD->type == CMYKPatches) papernum = 0;
else if (patchD->type == RGBPatches) papernum = patchD->format.total;
if (doc->tcom != 0L) ((SpectroChart*)(doc->tcom))->setUpPatches(patchD->patches.columns,patchD->patches.rows,w,h,patchD->patches.starting,patchD->patches.direction,papernum);
if (doc->tcom->device_num != DT_GretagTable)
{
McoErrorAlert(MCO_FAILURE);
}
// initialize the big gworld
GetDItem (dp, ids[Strip_Rect], &iType, (Handle*)&iHandle, &iRect);
tRect = iRect;
OffsetRect(&tRect,-iRect.left,-iRect.top);
error = NewGWorld( &BigGW, 32, &tRect, 0, 0, 0 );
if (error != 0)
{
delete this;
return;
}
GetGWorld(&oldGW,&oldGD);
SetGWorld(BigGW,nil);
// GetBackColor(&oldbackcolor);
GetForeColor(&oldforecolor);
c.red = 65535;
c.green = 65535;
c.blue = 65535;
RGBBackColor(&c);
c.red = 0;
c.green = 0;
c.blue = 0;
RGBForeColor(&c);
// EraseRect( &tRect );
SetGWorld(oldGW,oldGD);
// RGBBackColor(&oldbackcolor);
RGBForeColor(&oldforecolor);
// SetPort(oldP);
GetDItem (dp, ids[Patch_Rect], &iType, (Handle*)&iHandle, &pRect);
num_display_patch = (iRect.bottom-iRect.top)/(pRect.bottom-pRect.top);
top_patch = 0;
current_top = current_patch - 2*num_display_patch/3;
current_bottom = current_top + num_display_patch - 1;
if (current_top < 0)
{
current_top = 0;
current_bottom = current_top + num_display_patch - 1;
}
if (current_bottom >= total_patches-1)
{
current_bottom = total_patches - 1;
current_top = current_bottom - num_display_patch + 1;
}
current_disp = 2*num_display_patch/3;
init();
getpatchRGB();
dtype = DType_Density;
Disable(dp,ids[Redo]);
GetDItem (dp, ids[Slider], &iType, (Handle*)&iHandle, &pRect);
SetCtlMin((ControlHandle)iHandle,0);
SetCtlMax((ControlHandle)iHandle,total_patches-1);
if (ids[VoiceSet] > -1)
{
GetDItem(dp, ids[VoiceSet], &iType, (Handle*)&iHandle, &pRect);
SetCtlValue((ControlHandle)iHandle,1);
}
//voice_set = 1;
if (ids[Lift] > -1) HideDItem(dp,ids[Lift]);
checkFinished();
DrawWindow();
}
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;
}
