fig_drawing.c

来自「混沌分析工具」· C语言 代码 · 共 66 行

start_line(x,y,thickness,kind,num_points,colour,optr)
     int num_points,thickness,kind,colour;
     FILE *optr;
{
 fprintf(optr,"\n2 1 %d %d %d 7 0 0 -1 0.00 0 0 -1 0 0 %d\n",
	 kind,thickness,colour,num_points);
 fprintf(optr,"%d %d ",x,y);
}

void
draw_line_to(x,y,thickness,kind,optr)
     int x,y,thickness,kind;
     FILE *optr;
{
  fprintf(optr,"%d %d ",x,y);
}

void
draw_coloured_line(x,y,a,b,thickness,kind,colour,optr)
     int x,y,thickness,kind,colour;
     FILE *optr;
{
  start_line(x,y,thickness,kind,2,colour,optr);
  draw_line_to(a,b,thickness,kind,optr);
}

void
draw_line(x,y,a,b,thickness,kind,optr)
     int x,y,thickness,kind;
     FILE *optr;
{
  int colour=-1;
  start_line(x,y,thickness,kind,2,colour,optr);
  draw_line_to(a,b,thickness,kind,optr);
}
void
draw_arrow(x,y,a,b,thickness,kind,head,optr)
     int x,y,thickness,kind,head;
     FILE *optr;
{
 fprintf(optr,"\n2 1 %d %d -1 7 0 0 -1 0.00 0 0 -1 1 0 2\n",
	 kind,thickness);
 fprintf(optr,"%d 1 %d 180.00 360.00\n",head,thickness);
 fprintf(optr,"%d %d ",x,y);
 draw_line_to(a,b,thickness,kind,optr);
}

void
draw_text(text,x,y,size,font,optr)
     char text[100];
     int x,y,size,font;
     FILE *optr;
{
  fprintf(optr,"\n4 0 -1 1 0 %d %d 0.0000 4 135 180 %d %d %s\\001\n",
	  font,size,x,y,text);
}
void
draw_vert_text(text,x,y,size,font,optr)
     char text[100];
     int x,y,size,font;
     FILE *optr;
{
  fprintf(optr,"\n4 0 -1 1 0 %d %d 1.5708 4 135 180 %d %d %s\\001\n",
	  font,size,x,y,text);
}