char msg3[256];   char msg2[256];   char msg1[256];   char msg[256];   char ffamily[256];   char talign[10];   float fsize;   float lwidth=0.5;   float p_maxx,p_minx,p_maxy,p_miny;   float lastx,lasty,newx,newy,tempx,tempy;   float textx,texty;   float seg1,seg2,seg3,seg4;   float tempf,tempf2, pi=3.14159265358979;   int tlength=1;   float tangle=0;   int i;   int skip_line=FALSE;       strcpy(talign,"Left"); /* Default LEFT text alignment */   strcpy(aifilename,filename);   strcat(aifilename,".ai");   strcpy(miffilename,filename);   strcat(miffilename,".mif");   aifile = fopen(aifilename,"r");#ifdef MACINTOSH_fcreator = 'Fra5';_ftype = 'TEXT';#endif   miffile = fopen(miffilename,"w");      fputs("<MIFFile 4.00> # Generated by AI2MIF\n",miffile);   fputs("# AI2MIF Written by D. Jackson\n",miffile);   fputs("#        Modified by R. Schreier\n",miffile);   fputs("# If you have comments e-mail djackson@mit.edu\n",miffile);   fputs("<PenWidth 0.500>\n",miffile);   fputs("<HeadCap Round>\n",miffile);   fputs("<TailCap Round>\n",miffile);   /* Read through HEADER.  Pull out the BOUNDING BOX */   while(!feof(aifile) && strncmp("%%EndComments",msg,13))   {      fscanf(aifile,"%s", msg);      if(!strncmp("%%BoundingBox:",msg,14))      {	 fscanf(aifile,"%f",&minx);	 fscanf(aifile,"%f",&miny);	 fscanf(aifile,"%f",&maxx);	 fscanf(aifile,"%f",&maxy);	 xoffset=-(minx+maxx)/2.0;	 yoffset=(miny+maxy)/2.0;	 p_minx=minx;                 /* Hold on to these for later */	 p_maxx=maxx;	 p_miny=miny;	 p_maxy=maxy;      }   }   /* Now LOOP through each string and interpret */   while(!feof(aifile))   {      strcpy(msg5,msg4); /* This is a record of the last 5 fields. msg1 is the most recent */      strcpy(msg4,msg3);      strcpy(msg3,msg2);      strcpy(msg2,msg1);      strcpy(msg1,msg);      if (fscanf(aifile, "%s", msg))      {   /* Set the font */	 if(!strncmp("z",msg,1) && !strncmp("/_",msg5,2))	 {	    sprintf(ffamily,"%s",msg5+2);  /* Grab Font FAMILY */	    sscanf(msg4,"%f",&fsize);      /* Grab Font Size */	    sscanf(msg1,"%f",&tempf);      /* Find alignment */	    if(tempf>0)	       strcpy(talign,"Center");	    else	       strcpy(talign,"Left");	    if(debug) printf("FONT CHANGE ==> %s, %f, %s\n",ffamily,fsize,talign);	 }   /* This sets the pen width */	 if(!strncmp("w",msg1,1))	 {	    check_finish();	    sscanf(msg2,"%f",&lwidth);	    fprintf(miffile,"<PenWidth %f>\n",lwidth);	    if(debug) printf("LINWIDTH ==> %f\n",lwidth);	 }   /* This means a change in linestyle */	 if(!strncmp("d",msg,1))	 {	    check_finish();	    fputs("<DashedPattern <DashedStyle ",miffile);	    if(!strncmp("[]",msg2,2))	    {	       fputs("Solid>>\n",miffile);	       if(debug) printf("LINESTYLE ==> Solid\n");	    }	    else if(!strncmp("[",msg2,1))	    {	       sscanf(msg2,"[%f]",&seg1);	       fprintf(miffile,"Dashed> <NumSegments 2> <DashSegment %f pt> <DashSegment %f pt>>\n",seg1,seg1);	       /* Notice that I repeated the dash segment twice.  Frame will BOMB with a FATAL ERROR */	       /* if you try define only 1 segment.                                                  */	       if(debug) printf("LINESTYLE ==> Dashed\n");	    }	    else if(!strncmp("[",msg3,1))	    {	       sscanf(msg2,"%f]",&seg2);	       sscanf(msg3,"[%f",&seg1);	       fprintf(miffile,"Dashed> <NumSegments 2> <DashSegment %f pt> <DashSegment %f pt>>\n",seg1,seg2);	       if(debug) printf("LINESTYLE ==> Dotted\n");	    }	    else if(!strncmp("[",msg5,1))	    {	       sscanf(msg2,"%f]",&seg4);	       sscanf(msg3,"%f",&seg3);	       sscanf(msg4,"%f",&seg2);	       sscanf(msg5,"[%f",&seg1);	       fprintf(miffile,"Dashed> <NumSegments 4> <DashSegment %f pt> <DashSegment %f pt> <DashSegment %f pt> <DashSegment %f pt>>\n",seg1,seg2,seg3,seg4);	       if(debug) printf("LINESTYLE ==> Dash-Dot\n");	    }	 }   /* This comes after the text position */	 if(!strncmp("]e",msg1,2)) {	    check_finish();	    sscanf(msg5,"%f",&tempf2);   /* -sin(theta) */	    sscanf(msg4,"%f",&tempf);   /* cos(theta) */		tangle = atan2(-tempf2,tempf)*180/pi;	    sscanf(msg3,"%f",&textx);	    sscanf(msg2,"%f",&texty);	    sscanf(msg,"%d",&tlength);	    /* Place all text on GROUP 2 */	    fprintf(miffile,"<TextLine <GroupID 2> <Angle %0.1f>\n",tangle);	    fprintf(miffile,"   <Font <FFamily `%s'> <FSize %f> <FPlain Yes> <FBold No> <FColor `%s'>>\n",		    ffamily,fsize,ColorTable[color]);	    fprintf(miffile,"   <TLOrigin %f%c %f%c> <TLAlignment %s>",		    (textx+xoffset)/PPI,34,(-texty+yoffset)/PPI,34,talign);	    c=fgetc(aifile);   /* Toss away a blank space */	    c=fgetc(aifile);   /* Toss away a ( character */	    if(debug) printf("TEXT STRING ==> ");	    for(i=0;i<tlength;i++) {  /* Read text string */	       c=fgetc(aifile);	       if( i==0 )		  if( c=='-' ) {		      fprintf(miffile," <Char EnDash> <String `");		      c=fgetc(aifile);		      --tlength;		      }		   else		      fprintf(miffile," <String `");	       if(c=='\\') /* Check next char for '()' */		  {		  char next_c=fgetc(aifile);		  if(next_c=='(' || next_c==')')		     c=next_c;		  else if(next_c!='\\')		     ungetc(next_c,aifile);		  }	       if(c=='\\' || c=='/' || c=='>' || c=='<') /* Escape \/>< */	          fputc('\\',miffile);	       fputc(c,miffile);	       if(debug) printf("%c",c);	    }	    fprintf(miffile,"'>>\n");	    if(debug) printf("\n  Location==> X: %f  Y: %f\n",textx,texty);	 }   /* This is a color definition.  I map everything to BLACK */	 if(!strncmp("k",msg1,1) || !strncmp("K",msg1,1))	 {	    tempf2=0;	    sscanf(msg5,"%f",&tempf);	    /* RS 2000.08.17: record CMYK color as a binary number 	       and decode as follows: 1000 = 8 = cyan, ...*/	    tempf2 += 8*tempf;	    sscanf(msg4,"%f",&tempf);	    tempf2 += 4*tempf;	    sscanf(msg3,"%f",&tempf);	    tempf2 += 2*tempf;	    sscanf(msg2,"%f",&tempf);	    tempf2 += 1*tempf;	    color = (int)tempf2;	    if( color<0 ) color=0;	    if( color>15 ) color=0;	    if(tempf2==0)	       pen=15;	    else	       pen=0;	 }   /* This moves the marker to start a line */	 if(!strncmp("m",msg1,1))	 {	    check_finish();	    sscanf(msg3,"%f",&lastx);	    sscanf(msg2,"%f",&lasty);	    if(rec_bound)                /* Record bounding box */	       rec_procedure(lastx,lasty,1);	    need_start=TRUE;	    points=1;	 }   /* This means draw a line between this point and the marker */	 if(!strncmp("L",msg1,1))	 {	    sscanf(msg3,"%f",&newx);	    sscanf(msg2,"%f",&newy);	    tempx=newx;	    tempy=newy;	    if(rec_bound)	       rec_procedure(newx,newy,0);	    clip_in=!in_bounds(lastx,lasty); /* If not in bounds need to clip */	    clip_out=!in_bounds(newx,newy);   /* TRUE if not in bounds */	    if(clip_in && clip_out)	    {	       skip_line=TRUE;	    }	    else if(clip_in)	    {	       clip_start(&lastx,&lasty,newx,newy);	    }	    else if(clip_out)	    {	       clip_end(lastx,lasty,&newx,&newy);	       need_finish=TRUE;	    }	    if(skip_line==FALSE)	    {	       points++;	       draw_line(lastx,lasty,newx,newy);	    }	    else	       skip_line=FALSE;	    lastx=tempx;	    lasty=tempy;	 }	 if(!strncmp("q",msg1,1))   /* Start bound box */	 {	    rec_bound=TRUE;	    pen=15;	 }	 if(!strncmp("W",msg1,1))   /* End bound box */	 {	    rec_bound=FALSE;	    check_finish();	    if(debug) printf("BOUNDING BOX: X: %f %f  Y: %f %f\n",minx,maxx,miny,maxy);	    fprintf(miffile,"# BOUNDING BOX: X: %f %f  Y: %f %f\n",		    (minx+xoffset)/PPI,(maxx+xoffset)/PPI,(-miny+yoffset)/PPI,(-maxy+yoffset)/PPI);	 }	 if(!strncmp("Q",msg1,1))   /* This means reset the bounding box */	 {	    maxx=p_maxx;	    minx=p_minx;	    maxy=p_maxy;	    miny=p_miny;	    check_finish();	    if(debug) printf("BOUNDING BOX: X: %f %f  Y: %f %f\n",minx,maxx,miny,maxy);	    fprintf(miffile,"# BOUNDING BOX: X: %f %f  Y: %f %f\n",		    (minx+xoffset)/PPI,(maxx+xoffset)/PPI,(-miny+yoffset)/PPI,(-maxy+yoffset)/PPI);	 }      }      else      {	 printf("\nError reading from AI file.\n");	 exit(1);      }   }   /* This catches the last grouping since there are no more M's */   if(finished==FALSE && need_start==FALSE)   {      if(points==2)     /* All 2 pt. lines go in group 3 */	 grp=3;      else	 grp=1;     /* Multiple point lines go in group 1 */      fprintf(miffile,"<GroupID %d> <NumPoints %d>>\n",grp,points);      finished=TRUE;   }   /* Now group the TEXT, SINGLE LINES, and then the whole thing */   fprintf(miffile,"<Group <ID 2> <GroupID 1>>\n");   fprintf(miffile,"<Group <ID 3> <GroupID 1>>\n");   fprintf(miffile,"<Group <ID 1>>\n");   fclose(aifile);   fclose(miffile);}void mexFunction(int nlhs, mxArray *plhs[], int nrhs, const mxArray *prhs[]){    char filename[256];    if( nrhs < 1 )		strcpy(filename, "temp");	else{		if( !mxIsChar(prhs[0]) )			mexErrMsgTxt("The first argument must be a string");		else			mxGetString(prhs[0],filename,256);	}    ai2mif(filename);}