static void imgtolinez(int r, // source row
img *d, // source image
float *p) // destination buffer
{
for (int c = 0; c < 1 << d->m; c++)
ctop(p + 2 * d->p * c, imgz(d, r, c), d->p);
}
void toBack(char str[]){
int stillint = 0;
int str_len = getlength(str);
int num = 0;
int i = 0;
for(i = 0; i < str_len; i++){
char c = str[i];
if(isint(c)){
if(stillint){
if((i+1) != str_len){
if(isint(str[i+1])){
poly_exp[num] = c;
num++;
}
else{
stillint = 0;
poly_exp[num] = c;
num++;
poly_exp[num] = '~';
num++;
}
}
else{
poly_exp[num] = c;
num++;
}
}
else{
poly_exp[num] = c;
num++;
stillint = 1;
}
}
else{
if(stillint){
poly_exp[num] = '~';
num++;
stillint = 0;
}
if(c == '('){
pushc(c);
}else{
if(c == ')'){
while(ctop() != '('){
poly_exp[num] = ctop();
num++;
popc();
}
popc();
}else{
if(empytc()){
pushc(c);
}else{
if(getType(c) > getType(ctop())){
pushc(c);
}else{
while((1 - empytc()) && getType(c) <= getType(ctop())){
poly_exp[num] = popc();
num++;
}
pushc(c);
}
}
}
}
}
}
while(empytc() == 0){
poly_exp[num] = ctop();
num++;
popc();
}
}
// Scan the midi file and determine which instrument that need to be loaded and load them.
OPErr GM_LoadSongInstruments(GM_Song *theSong, XShortResourceID *pArray, XBOOL loadInstruments)
{
register INT32 count, loadCount, instCount, newCount;
XBOOL loopSongSave;
OPErr theErr;
SBYTE remapUsedSaved[MAX_INSTRUMENTS];
SBYTE remapUsed[MAX_INSTRUMENTS];
#if DISPLAY_INSTRUMENTS
{
char text[256];
drawDebug = DNew((char *)"\pInstruments to load");
sprintf(text, "SONG %ld debug file", (INT32)theSong->songID);
#if DISPLAY_INSTRUMENTS_FILE
DAttachFile(drawDebug, ctop(text));
DPrint(drawDebug, "Writing output to file: Ô%pÕ\r", text);
#endif
}
#endif
// Set the sequencer to mark instruments only
theErr = NO_ERR;
theSong->pUsedPatchList = (SBYTE *)XNewPtr((MAX_INSTRUMENTS*MAX_BANKS*128L) / 8);
if (theSong->pUsedPatchList)
{
for (count = 0; count < MAX_INSTRUMENTS*MAX_BANKS; count++)
{
theSong->remapArray[count] = count;
if (pArray)
{
pArray[count] = (XShortResourceID)-1;
}
}
for (count = 0; count < MAX_CHANNELS; count++)
{
theSong->firstChannelBank[count] = 0;
theSong->firstChannelProgram[count] = -1;
}
theErr = PV_ConfigureMusic(theSong);
if (theErr == NO_ERR)
{
if (theSong->defaultPercusionProgram == -1)
{
theSong->channelBank[PERCUSSION_CHANNEL] = 0;
theSong->firstChannelBank[PERCUSSION_CHANNEL] = 0;
}
else
{
if (theSong->defaultPercusionProgram)
{
theSong->firstChannelProgram[PERCUSSION_CHANNEL] = theSong->defaultPercusionProgram;
GM_SetUsedInstrument(theSong, (XLongResourceID)theSong->defaultPercusionProgram, 60, TRUE);
}
}
theSong->AnalyzeMode = SCAN_SAVE_PATCHES;
theSong->SomeTrackIsAlive = TRUE;
loopSongSave = theSong->loopSong;
theSong->loopSong = FALSE;
while (theSong->SomeTrackIsAlive)
{
theErr = PV_ProcessMidiSequencerSlice(NULL, theSong);
if (theErr)
{
break;
}
}
theSong->AnalyzeMode = SCAN_NORMAL;
theSong->loopSong = loopSongSave;
if (theErr == NO_ERR)
{
// are we trying to load any instruments? This is for the case were there are no program changes. We must do something
newCount = FALSE;
for (count = 0; count < MAX_CHANNELS; count++)
{
if (count != PERCUSSION_CHANNEL) // only look at non percussion channels
{
if (theSong->firstChannelProgram[count] != -1)
{
newCount = TRUE;
break;
}
}
}
if (newCount == FALSE)
{ // there have been no program changes. So set up just the piano in all channels
for (count = 0; count < MAX_CHANNELS; count++)
{
theSong->firstChannelProgram[count] = 0;
theSong->channelProgram[count] = 0;
}
GM_SetUsedInstrument(theSong, 0, -1, TRUE); // load the entire piano
}
#if DISPLAY_INSTRUMENTS
DPrint(drawDebug, "Loading instruments:\r");
#endif
instCount = 0;
for (count = 0; count < MAX_INSTRUMENTS*MAX_BANKS; count++)
{
// instrument needs to be loaded
if (GM_IsInstrumentUsed(theSong, count, -1))
{
#if DISPLAY_INSTRUMENTS
DPrint(drawDebug, "Instrument %ld: ", (INT32)count);
#endif
loadCount = theSong->instrumentRemap[count];
if (loadCount == -1)
{
loadCount = count;
}
#if DISPLAY_INSTRUMENTS
else
{
DPrint(drawDebug, "remapped to %ld ", (INT32)loadCount);
}
#endif
#if DISPLAY_INSTRUMENTS
DPrint(drawDebug, "loading instrument %ld\r", loadCount);
#endif
if (pArray)
{
pArray[instCount++] = (short)loadCount;
}
if (loadInstruments)
{
if (loadCount != count)
{
GM_GetInstrumentUsedRange(theSong, loadCount, remapUsedSaved); // save
GM_GetInstrumentUsedRange(theSong, count, remapUsed);
GM_SetInstrumentUsedRange(theSong, loadCount, remapUsed);
}
theErr = GM_LoadInstrument(theSong, loadCount);
if (theErr != NO_ERR)
{ // if the instrument is some other bank, then go back to the standard GM bank before failing
if (loadCount > MAX_INSTRUMENTS)
{
#if DISPLAY_INSTRUMENTS
DPrint(drawDebug, "Failed loading extra bank instrument %ld, falling back to GM.\r", loadCount);
#endif
newCount = (loadCount % MAX_INSTRUMENTS);
newCount += ((loadCount / MAX_INSTRUMENTS) & 1) * MAX_INSTRUMENTS;
loadCount = newCount;
#if DISPLAY_INSTRUMENTS
DPrint(drawDebug, "Loading instrument %ld\r", loadCount);
#endif
theErr = GM_LoadInstrument(theSong, loadCount);
if (theSong->ignoreBadInstruments)
{
theErr = NO_ERR;
}
}
else
{ // we are in GM, so check our ignore flag
if (theSong->ignoreBadInstruments)
{
theErr = NO_ERR;
}
}
}
if (loadCount != count)
{
GM_SetInstrumentUsedRange(theSong, loadCount, remapUsedSaved); // save
}
if (theErr)
{
#if DISPLAY_INSTRUMENTS
DPrint(drawDebug, "Failed to load instrument %ld (%ld)\r", (INT32)loadCount, (INT32)theErr);
#endif
break;
}
theErr = GM_RemapInstrument(theSong, loadCount, count); // remap from: to
// we are in GM, so check our ignore flag
if (theSong->ignoreBadInstruments)
{
theErr = NO_ERR;
}
}
}
}
}
}
if (theErr != NO_ERR)
{
GM_UnloadSongInstruments(theSong); // ignore error
}
XDisposePtr(theSong->pUsedPatchList);
theSong->pUsedPatchList = NULL;
}
else
{
theErr = MEMORY_ERR;
}
#if DISPLAY_INSTRUMENTS
DPrint(drawDebug, "\rClick to exit");
while (Button() == FALSE) {};
while (Button()) {};
FlushEvents(mDownMask, 0);
DCopy(drawDebug);
DDispose(drawDebug);
#endif
return theErr;
}
