Annotation of OpenXM_contrib/pari/src/graph/plotsun.c, Revision 1.1
1.1 ! maekawa 1: /*******************************************************************/
! 2: /* */
! 3: /* HI-RES PLOT. SUNVIEW INTERFACE */
! 4: /* */
! 5: /*******************************************************************/
! 6: /* $Id: plotsun.c,v 1.1.1.1 1999/09/16 13:47:44 karim Exp $ */
! 7: #include "pari.h"
! 8: #include "rect.h"
! 9: #include <suntool/sunview.h>
! 10: #include <suntool/canvas.h>
! 11: #include <suntool/textsw.h>
! 12: #include <suntool/panel.h>
! 13:
! 14: typedef struct spoint {int x,y;} SPoint;
! 15: typedef struct ssegment {int x1,y1,x2,y2;} SSegment;
! 16: typedef struct srectangle {int x,y,width,height;} SRectangle;
! 17:
! 18: #define ISCR 1120 /* 1400 en haute resolution */
! 19: #define JSCR 800 /* 1120 en haute resolution */
! 20:
! 21: void
! 22: rectdraw0(long *w, long *x, long *y, long lw, long do_free)
! 23: {
! 24: long *ptx,*pty,*numpoints,*numtexts,*xtexts,*ytexts;
! 25: long n,i,j,x0,y0;
! 26: long a,b,c,d,ne;
! 27: long rcnt[ROt_MAX+1];
! 28: char **texts;
! 29: PariRect *e;
! 30: RectObj *p1;
! 31:
! 32: Frame ecran;
! 33: Canvas canevas;
! 34: Pixwin *pw;
! 35: Pixfont *font;
! 36: SPoint *points, **lines, *SLine;
! 37: SSegment *segments;
! 38: SRectangle *rectangles, SRec;
! 39:
! 40: if (fork()) return; /* parent process returns */
! 41:
! 42: /* child process goes on */
! 43: freeall(); /* PARI stack isn't needed anymore, keep rectgraph */
! 44: PARI_get_plot(1);
! 45:
! 46: rcnt[ROt_MV]=rcnt[ROt_PT]=rcnt[ROt_LN]=0;
! 47: rcnt[ROt_BX]=rcnt[ROt_MP]=rcnt[ROt_ML]=0;
! 48: rcnt[ROt_ST]=0;
! 49:
! 50: for(i=0;i<lw;i++)
! 51: {
! 52: e=rectgraph[w[i]]; p1=RHead(e);
! 53: while(p1)
! 54: {
! 55: if(RoType(p1) != ROt_MP) rcnt[RoType(p1)]++;
! 56: else rcnt[ROt_PT] += RoMPcnt(p1);
! 57: p1=RoNext(p1);
! 58: }
! 59: }
! 60: points=(SPoint*)gpmalloc(rcnt[ROt_PT]*sizeof(SPoint));
! 61: segments=(SSegment*)gpmalloc(rcnt[ROt_LN]*sizeof(SSegment));
! 62: rectangles=(SRectangle*)gpmalloc(rcnt[ROt_BX]*sizeof(SRectangle));
! 63: lines=(SPoint**)gpmalloc(rcnt[ROt_ML]*sizeof(SPoint*));
! 64: numpoints=(long*)gpmalloc(rcnt[ROt_ML]*sizeof(long));
! 65: texts=(char**)gpmalloc(rcnt[ROt_ST]*sizeof(char*));
! 66: numtexts=(long*)gpmalloc(rcnt[ROt_ST]*sizeof(long));
! 67: xtexts=(long*)gpmalloc(rcnt[ROt_ST]*sizeof(long));
! 68: ytexts=(long*)gpmalloc(rcnt[ROt_ST]*sizeof(long));
! 69: rcnt[ROt_PT]=rcnt[ROt_LN]=rcnt[ROt_BX]=rcnt[ROt_ML]=rcnt[ROt_ST]=0;
! 70:
! 71: for(i=0;i<lw;i++)
! 72: {
! 73: e=rectgraph[w[i]];p1=RHead(e);x0=x[i];y0=y[i];
! 74: while(p1)
! 75: {
! 76: switch(RoType(p1))
! 77: {
! 78: case ROt_PT:
! 79: points[rcnt[ROt_PT]].x=RoPTx(p1)+x0;
! 80: points[rcnt[ROt_PT]].y=RoPTy(p1)+y0;
! 81: rcnt[ROt_PT]++;break;
! 82: case ROt_LN:
! 83: segments[rcnt[ROt_LN]].x1=RoLNx1(p1)+x0;
! 84: segments[rcnt[ROt_LN]].y1=RoLNy1(p1)+y0;
! 85: segments[rcnt[ROt_LN]].x2=RoLNx2(p1)+x0;
! 86: segments[rcnt[ROt_LN]].y2=RoLNy2(p1)+y0;
! 87: rcnt[ROt_LN]++;break;
! 88: case ROt_BX:
! 89: a=rectangles[rcnt[ROt_BX]].x=RoBXx1(p1)+x0;
! 90: b=rectangles[rcnt[ROt_BX]].y=RoBXy1(p1)+y0;
! 91: rectangles[rcnt[ROt_BX]].width=RoBXx2(p1)+x0-a;
! 92: rectangles[rcnt[ROt_BX]].height=RoBXy2(p1)+y0-b;
! 93: rcnt[ROt_BX]++;break;
! 94: case ROt_MP:
! 95: ptx=RoMPxs(p1);pty=RoMPys(p1);
! 96: for(j=0;j<RoMPcnt(p1);j++)
! 97: {
! 98: points[rcnt[ROt_PT]+j].x=ptx[j]+x0;
! 99: points[rcnt[ROt_PT]+j].y=pty[j]+y0;
! 100: }
! 101: rcnt[ROt_PT]+=RoMPcnt(p1);break;
! 102: case ROt_ML:
! 103: ptx=RoMLxs(p1);pty=RoMLys(p1);
! 104: numpoints[rcnt[ROt_ML]]=RoMLcnt(p1);
! 105: lines[rcnt[ROt_ML]]=(SPoint*)gpmalloc(RoMLcnt(p1)*sizeof(SPoint));
! 106: for(j=0;j<RoMLcnt(p1);j++)
! 107: {
! 108: lines[rcnt[ROt_ML]][j].x=ptx[j]+x0;
! 109: lines[rcnt[ROt_ML]][j].y=pty[j]+y0;
! 110: }
! 111: rcnt[ROt_ML]++;break;
! 112: case ROt_ST:
! 113: texts[rcnt[ROt_ST]]=RoSTs(p1); numtexts[rcnt[ROt_ST]]=RoSTl(p1);
! 114: xtexts[rcnt[ROt_ST]]=RoSTx(p1)+x0; ytexts[rcnt[ROt_ST]]=RoSTy(p1)+y0;
! 115: rcnt[ROt_ST]++;break;
! 116: default: break;
! 117: }
! 118: p1=RoNext(p1);
! 119: }
! 120: }
! 121: ecran=window_create(NULL,FRAME,FRAME_LABEL,"rectplot",
! 122: WIN_ERROR_MSG,"you must be in suntools",0);
! 123: canevas=window_create(ecran,CANVAS,WIN_HEIGHT,JSCR, WIN_WIDTH,ISCR,0);
! 124: window_fit(ecran);pw=canvas_pixwin(canevas);
! 125:
! 126: font=pw_pfsysopen();
! 127: for(i=0;i<rcnt[ROt_PT];i++) pw_put(pw,points[i].x,points[i].y,1);
! 128: for(i=0;i<rcnt[ROt_LN];i++)
! 129: pw_vector(pw,segments[i].x1,segments[i].y1,
! 130: segments[i].x2,segments[i].y2,PIX_SRC,1);
! 131: for(i=0;i<rcnt[ROt_BX];i++)
! 132: {
! 133: SRec=rectangles[i];a=SRec.x;b=SRec.y;c=a+SRec.width;
! 134: d=b+SRec.height;
! 135: pw_vector(pw,a,b,c,b,PIX_SRC,1); pw_vector(pw,c,b,c,d,PIX_SRC,1);
! 136: pw_vector(pw,a,d,c,d,PIX_SRC,1); pw_vector(pw,a,b,a,d,PIX_SRC,1);
! 137: }
! 138: for(i=0;i<rcnt[ROt_ML];i++)
! 139: {
! 140: SLine=lines[i];
! 141: for(j=1;j<numpoints[i];j++)
! 142: pw_vector(pw,SLine[j-1].x,SLine[j-1].y,SLine[j].x,SLine[j].y,PIX_SRC,1);
! 143: }
! 144: for(i=0;i<rcnt[ROt_ST];i++)
! 145: for(j=0;texts[i][j];j++)
! 146: pw_char(pw,xtexts[i]+9*j,ytexts[i],PIX_SRC|PIX_DST,font,texts[i][j]);
! 147:
! 148: window_main_loop(ecran);
! 149:
! 150: free(points);free(segments);free(rectangles);
! 151: free(numpoints);for(i=0;i<rcnt[ROt_ML];i++) free(lines[i]);
! 152: free(lines);free(texts);free(numtexts);free(xtexts);free(ytexts);
! 153: if (do_free) { free(w); free(x); free(y); }
! 154: free_graph(); exit(0);
! 155: }
! 156:
! 157: void
! 158: PARI_get_plot(long fatal)
! 159: {
! 160: if (pari_plot.init) return;
! 161:
! 162: w_width = ISCR; w_height = JSCR;
! 163: f_height = 15; f_width = 9;
! 164: h_unit = 5; v_unit = 5;
! 165: pari_plot.init = 1;
! 166: }
! 167:
! 168: long
! 169: term_set(char *s)
! 170: {
! 171: return 1;
! 172: }
! 173:
! 174: long
! 175: plot_outfile_set(char *s) { return 1; }
! 176:
! 177: void
! 178: set_pointsize(double d)
! 179: {
! 180: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to plotsun.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / pari / src / graph