void GDstringwithFontXYColor(void) { Proto proto; Proto tmp; Proto blob; Proto strObj; gdImagePtr imgPtr; gdFontPtr fntPtr; char * p; int x1,y1; int font; int index; char * buff; proto = (Proto) stackAt(Cpu, 2); objectGetSlot(proto, stringToAtom("_gdp"), &blob); p = (char *) objectPointerValue(blob); memcpy(&imgPtr, p, sizeof(imgPtr)); tmp = (Proto) stackAt(Cpu, 4); strObj = tmp; tmp = (Proto) stackAt(Cpu, 5); font= objectIntegerValue(tmp); fntPtr = getFontPtr(font); tmp = (Proto) stackAt(Cpu, 6); x1 = objectIntegerValue(tmp); tmp = (Proto) stackAt(Cpu, 7); y1 = objectIntegerValue(tmp); tmp = (Proto) stackAt(Cpu, 8); index = objectIntegerValue(tmp); buff = string2CString(strObj); gdImageString(imgPtr, fntPtr, x1, y1, buff, index); celfree(buff); VMReturn(Cpu, (unsigned int) proto, 8); }
void freeMemStream(MemStream ms) { celfree(ms); }
int celfree_(int *cel) { return celfree((struct celprm *)cel); }