+++ /dev/null
-#include "VMDemoTk.h"
-#include "VMDemoTkInit.h"
-
-bool HaveMorph;
-int* scanlines_1;
-int* scanlines_2;
-int* scanlines_a;
-int numScanlines;
-CvSize imgsize = {320, 240};
-
-int TclInit(Tcl_Interp *interp, char **argv)
-{
- if (Tcl_Init(interp) == TCL_ERROR)
- {
- fprintf(stderr, "Tcl_Init failed: %s\n",
- interp->result);
- return 1;
- }
-
- if (Tk_Init(interp) == TCL_ERROR)
- {
- fprintf(stderr, "Tk_Init failed: %s\nwwwwwwwwwwwwww\n",
- interp->result);
- return 1;
- }
-
- return 0;
-}
-
-
-int main(int argc, char **argv)
-{
- Tcl_Interp *interp= Tcl_CreateInterp();
- if(!interp)
- {
- printf("No interpretator\n");
- return 1;
- }
-
- if (VMDemoTkInit ( interp, argc, argv)) return 1;
- Tk_MainLoop();
-
- return 0;
-}