void PRZYGODA_INFO(aint NR) {
// Procedure PRZYGODA_INFO[NR]
aint TYP=0, DL=0, ZN=0;
astr A_S="", L_S="", R_S="";
OKNO(70,100,180,23); // OKNO[70,100,180,23]
TYP=PRZYGODY[NR][P_TYP]; // TYP=PRZYGODY(NR,P_TYP)
A_S=PRZYGODY_S[TYP][0]; // A$=PRZYGODY$(TYP,0)
if( IM_PRZYGODY_S[NR] != "" ) { // If IM_PRZYGODY$(NR)<>""
DL=Len(A_S); // DL=Len(A$)
ZN=Instr(A_S,"$"); // ZN=Instr(A$,"$")
if( ZN>0 ) { // If ZN>0
A_S=Minus_S(A_S,"$"); // A$=A$-"$"
L_S=Left_S(A_S,ZN-1); // L$=Left$(A$,ZN-1)
R_S=Right_S(A_S,DL-ZN-1); // R$=Right$(A$,DL-ZN-1)
A_S=L_S+IM_PRZYGODY_S[NR]+R_S;// A$=L$+IM_PRZYGODY$(NR)+R$
} // End If
} // End If
GADGET(OKX+4,OKY+4,172,15,A_S,31,2,30,1,-1);// GADGET[OKX+4,OKY+4,172,15,A$,31,2,30,1,-1]
do { // Repeat
rysuj();
GADGET(OKX+4,OKY+4,172,15,A_S,31,2,30,1,-1);// GADGET[OKX+4,OKY+4,172,15,A$,31,2,30,1,-1]
WaitVbl();
} while( MouseClick()!=1 ); // Until Mouse Click=1
ZOKNO(); // ZOKNO
// End Proc
}
void Texture::FilterFlags(){
// combine specifieds flag with texture filter flags
list<TextureFilter*>::iterator it;
for(it=TextureFilter::tex_filter_list.begin();it!=TextureFilter::tex_filter_list.end();it++){
TextureFilter* filter=*it;
if(Instr(file,filter->text_match)) flags=flags|filter->flags;
}
}
string MuNote::CsString(void)
{
string cs_string;
char buff[10];
MuParamBlock pBlock;
float paramVal = 0;
short numberOfParams = 0;
MuError err(MuERROR_NONE);
cs_string += "i";
sprintf(buff,"%d",Instr());
cs_string += buff;
cs_string += "\t";
sprintf(buff,"%.3f",Start());
cs_string += buff;
cs_string += "\t";
sprintf(buff,"%.3f",Dur());
cs_string += buff;
cs_string += "\t";
cs_string += PitchString();
cs_string += "\t\t";
sprintf(buff,"%.3f",Amp());
cs_string += buff;
cs_string += "\t";
pBlock = Params();
numberOfParams = pBlock.Num();
if( numberOfParams != 0)
{
for(short k = 0; k < numberOfParams; k++)
{
err = pBlock.Val(k, ¶mVal);
if(err.Get() != MuERROR_NONE)
cout << err.Message();
else
{
sprintf(buff,"%.3f",paramVal);
cs_string += buff;
cs_string += "\t";
}
}
}
return cs_string;
}
void Instructions()
{
std::ifstream Instr("Instructions.txt");
std::vector<std::string> tokens;
std::istream_iterator<std::string> it(Instr), end;
std::for_each(it, end, [&] (const std::string& str)
{
std::cout << str << " ";
if (str == "\\n")
tokens.push_back("\n");
else
tokens.push_back(str);
});
std::ofstream out("temp.txt"); // create a temporary file
// copy vector to file and rename
std::copy(tokens.begin(), tokens.end(), std::ostream_iterator<std::string>(out));
std::rename("temp.txt", "Instructions.txt");
};
void VMachine::Read(){
instr = new Instr[16];
Value vnum;
vnum.num = 50;
Value vbool;
vbool.b = 1;
InsertObj(0,NUMBER,vnum);
InsertObj(1,NUMBER,vnum);
InsertObj(2,NUMBER,vnum);
InsertObj(3,NUMBER,vnum);
InsertObj(4,NUMBER,vnum);
InsertObj(5,NUMBER,vnum);
InsertObj(6,NUMBER,vnum);
InsertObj(7,BOOLEAN,vbool);
instr[0] = Instr(OP_PUSH,0); //50
instr[1] = Instr(OP_PUSH,1); //50
instr[2] = Instr(OP_ADD); //100
instr[3] = Instr(OP_JMP,4);
instr[4] = Instr(OP_NOP);
instr[5] = Instr(OP_NOP);
instr[6] = Instr(OP_NOP);
instr[7] = Instr(OP_NOP);
instr[8] = Instr(OP_PUSH,2); //50
instr[9] = Instr(OP_PUSH,3);
instr[10] = Instr(OP_MUL);
instr[11] = Instr(OP_DIV);
instr[12] = Instr(OP_PUSH,4); //50
instr[13] = Instr(OP_PUSH,5);
instr[14] = Instr(OP_LT); //50
instr[15] = Instr(OP_PUSH,6);
}
