Subversion Repositories wimsdev

Rev

Rev 1026 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. /*    Copyright (C) 1998-2003 XIAO, Gang of Universite de Nice - Sophia Antipolis
  2.  *
  3.  *  This program is free software; you can redistribute it and/or modify
  4.  *  it under the terms of the GNU General Public License as published by
  5.  *  the Free Software Foundation; either version 2 of the License, or
  6.  *  (at your option) any later version.
  7.  *
  8.  *  This program is distributed in the hope that it will be useful,
  9.  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
  10.  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11.  *  GNU General Public License for more details.
  12.  *
  13.  *  You should have received a copy of the GNU General Public License
  14.  *  along with this program; if not, write to the Free Software
  15.  *  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  16.  */
  17.  
  18.  
  19. void vimg_init (void)
  20. {
  21.     double x1,x2,y1,y2,t;
  22.     if(vimgfilename[0]==0) vimgf=stdout;
  23.     else vimgf=fopen(vimgfilename,"w");
  24.     if(vimgf==NULL) {vimg_enable=0; return;}
  25.     x1=xstart; y1=ystart;
  26.     x2=sizex/xscale+xstart;
  27.     y2=sizey/yscale+ystart;
  28.     if(x2<x1) {t=x1;x1=x2;x2=t;}
  29.     if(y2<y1) {t=y1;y1=y2;y2=t;}
  30.     fprintf(vimgf,"  0\nSECTION\n  2\nHEADER\n\
  31.  9\n$EXTMIN\n  10\n%f\n  20\n%f\n\
  32.  9\n$EXTMAX\n  10\n%f\n  20\n%f\n\
  33.  9\n$LIMMIN\n  10\n%f\n  20\n%f\n\
  34.  9\n$LIMMAX\n  10\n%f\n  20\n%f\n\
  35.  9\n$MEASUREMENT\n  70\n1\n  0\nENDSEC\n  0\nSECTION\n  2\nENTITIES\n",
  36.             x1,y1,x2,y2, x1,y1,x2,y2);
  37.     vimg_ready=1;
  38. }
  39.  
  40. void vimg_close (void)
  41. {
  42.     if(vimgf==NULL || vimg_ready==0) return;
  43.     fprintf(vimgf,"  0\nENDSEC  \n  0\nEOF\n");
  44.     fclose(vimgf); vimg_ready=vimg_enable=0; vimgf=NULL;
  45. }
  46.  
  47. void vimg_arc (double x0,double y0, double rx, double ry,double a1, double a2)
  48. {
  49.     double mx,my,ratio;
  50.     if(rx==ry) {
  51.         fprintf(vimgf,"  0\nARC\n  10\n%f\n  20\n%f\n  40\n%f\n\
  52.  50\n%f\n51\n%f\n",x0,y0,rx,a1,a2);
  53.         return;
  54.     }
  55.     if(rx>ry) {mx=rx;my=0;ratio=ry/rx;}
  56.     else {mx=0;my=ry;ratio=rx/ry;}
  57.     fprintf(vimgf,"  0\nELLIPSE\n  10\n%f\n  20\n%f\n\
  58.  11\n%f\n  21\n%f\n  40\n%f\n  41\n%f\n  42\n%f\n",
  59.             x0,y0,mx,my,ratio,
  60.             a1*3.14159265/180,a2*3.14159265/180);
  61.    
  62. }
  63.  
  64. void vimg_ellipse (double x0, double y0, double rx, double ry)
  65. {
  66.     if(rx==ry) {
  67.         fprintf(vimgf,"  0\nCIRCLE\n  10\n%f\n  20\n%f\n\
  68.  40\n%f\n",x0,y0,rx);
  69.         return;
  70.     }
  71.     else vimg_arc (x0,y0,rx,ry,0,360);
  72. }
  73.  
  74. void vimg_line (double x1,double y1,double x2,double y2)
  75. {
  76.     fprintf(vimgf,"  0\nLINE\n  10\n%f\n  20\n%f\n  11\n%f\n  21\n%f\n",
  77.            x1,y1,x2,y2);
  78. }
  79.  
  80. void vimg_polyline (double xy[], int cnt, int closed)
  81. {
  82.     int i;
  83.     fprintf(vimgf,"  0\nPOLYLINE\n  70\n%d\n",closed);
  84.     for(i=0;i<2*cnt;i++,i++) {
  85.         fprintf(vimgf,"  0\nVERTEX\n  10\n%f\n  20\n%f\n",
  86.                 xy[i],xy[i+1]);
  87.     }
  88.     fprintf(vimgf,"  0\nSEQEND\n");
  89. }
  90.  
  91. void vimg_rect (double x1, double y1, double x2, double y2)
  92. {
  93.     double d[8];
  94.     d[0]=x1; d[1]=y1; d[2]=x1; d[3]=y2;
  95.     d[4]=x2; d[5]=y2; d[6]=x2; d[7]=y1;
  96.     vimg_polyline (d,4,1);
  97. }
  98.  
  99. void vimg_plotstart (void)
  100. {
  101.     fprintf(vimgf,"  0\nPOLYLINE\n  70\n0\n");
  102. }
  103.  
  104. void vimg_plot1 (double x, double y)
  105. {
  106.     fprintf(vimgf,"  0\nVERTEX\n  10\n%f\n  20\n%f\n", x,y);
  107. }
  108.  
  109. void vimg_plotend (void)
  110. {
  111.     fprintf(vimgf,"  0\nSEQEND\n");
  112. }
  113.  
  114.