listPtr = Tcl_GetObjResult(interp);
Tcl_ListObjAppendElement(interp, listPtr, Tcl_NewIntObj(xsize));
Tcl_ListObjAppendElement(interp, listPtr, Tcl_NewIntObj(ysize));
listPtr = Tcl_GetObjResult(interp);
Tcl_ListObjAppendElement(interp, listPtr, Tcl_NewIntObj(xsize));
Tcl_ListObjAppendElement(interp, listPtr, Tcl_NewIntObj(ysize));