/*----------------------------------------------------------------------*\
\*----------------------------------------------------------------------*/

#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#include <tcl.h>

#include "xypx.h"

void interpret_commands (char *name) {
	Tcl_Interp *interp;
	int code;
	int number;

	interp = Tcl_CreateInterp();
	code = Tcl_EvalFile (interp, file_name_list[0]);
	if ((number = atoi (Tcl_GetVar (interp,"width",0))) > 0) width = number;
	if ((number = atoi (Tcl_GetVar (interp,"height",0))) > 0) height = number;
	}

/*----------------------------------------------------------------------*\
\*----------------------------------------------------------------------*/