Annotation of OpenXM_contrib/pari/src/graph/rect.h, Revision 1.1
1.1 ! maekawa 1: /* $Id: rect.h,v 1.1.1.1 1999/09/16 13:47:44 karim Exp $ */
! 2:
! 3: #define PLOT_NAME_LEN 20
! 4: #define NUMRECT 18
! 5:
! 6: typedef struct PARI_plot {
! 7: long width;
! 8: long height;
! 9: long hunit;
! 10: long vunit;
! 11: long fwidth;
! 12: long fheight;
! 13: long init;
! 14: char name[PLOT_NAME_LEN+1];
! 15: } PARI_plot;
! 16:
! 17: extern PARI_plot pari_plot, pari_psplot;
! 18:
! 19: #define w_height (pari_plot.height)
! 20: #define w_width (pari_plot.width)
! 21: #define f_height (pari_plot.fheight)
! 22: #define f_width (pari_plot.fwidth)
! 23: #define h_unit (pari_plot.hunit)
! 24: #define v_unit (pari_plot.vunit)
! 25: #define lmargin (f_width*10)
! 26: #define rmargin (h_unit - 1)
! 27: #define tmargin (v_unit - 1)
! 28: #define bmargin (v_unit + f_height - 1)
! 29:
! 30: typedef struct dblPointList{
! 31: double *d; /* data */
! 32: long nb; /* number of elements */
! 33: double xsml,xbig,ysml,ybig; /* extrema */
! 34: } dblPointList;
! 35:
! 36: typedef struct RectObj {
! 37: struct RectObj *next;
! 38: long code,color;
! 39: } RectObj;
! 40:
! 41: typedef struct PariRect {
! 42: RectObj *head,*tail;
! 43: long sizex,sizey;
! 44: double cursorx,cursory;
! 45: double xscale,yscale;
! 46: double xshift,yshift;
! 47: } PariRect;
! 48:
! 49: /* The structures below are "subclasses" of RectObj. */
! 50:
! 51: typedef struct RectObj1P {
! 52: struct RectObj *next;
! 53: long code,color;
! 54: long x,y;
! 55: } RectObj1P;
! 56:
! 57: typedef struct RectObj2P {
! 58: struct RectObj *next;
! 59: long code,color;
! 60: long x1,y1;
! 61: long x2,y2;
! 62: } RectObj2P;
! 63:
! 64: typedef struct RectObjMP {
! 65: struct RectObj *next;
! 66: long code,color;
! 67: long count;
! 68: long *xs,*ys;
! 69: } RectObjMP;
! 70:
! 71: typedef struct RectObjST {
! 72: struct RectObj *next;
! 73: long code,color;
! 74: long length;
! 75: char *s;
! 76: long x,y;
! 77: } RectObjST;
! 78:
! 79: typedef struct RectObjPN {
! 80: struct RectObj *next;
! 81: long code,color;
! 82: long pen;
! 83: } RectObjPN;
! 84:
! 85: typedef struct RectObjPS {
! 86: struct RectObj *next;
! 87: long code,color;
! 88: double size;
! 89: } RectObjPS;
! 90:
! 91: #define BLACK 1 /* Default */
! 92: #define BLUE 2 /* Axes */
! 93: #define SIENNA 3 /* Odd numbered curves in ploth */
! 94: #define RED 4 /* Curves, or Even numbered curves in ploth */
! 95: #define CORNSILK 5
! 96: #define GREY 6
! 97: #define GAINSBORO 7
! 98:
! 99: #define MAX_COLORS 8
! 100: #define DEFAULT_COLOR BLACK
! 101:
! 102: #define ROt_MV 0 /* Move */
! 103: #define ROt_PT 1 /* Point */
! 104: #define ROt_LN 2 /* Line */
! 105: #define ROt_BX 3 /* Box */
! 106: #define ROt_MP 4 /* Multiple point */
! 107: #define ROt_ML 5 /* Multiple lines */
! 108: #define ROt_ST 6 /* String */
! 109: #define ROt_PTT 7 /* Point type change */
! 110: #define ROt_LNT 8 /* Line type change */
! 111: #define ROt_PTS 9 /* Point size change */
! 112: #define ROt_NULL 10 /* To be the start of the chain */
! 113:
! 114: #define ROt_MAX 10 /* Maximal type */
! 115:
! 116: /* Pointer conversion. */
! 117:
! 118: #define RoMV(rop) ((RectObj1P*)rop)
! 119: #define RoPT(rop) ((RectObj1P*)rop)
! 120: #define RoLN(rop) ((RectObj2P*)rop)
! 121: #define RoBX(rop) ((RectObj2P*)rop)
! 122: #define RoMP(rop) ((RectObjMP*)rop)
! 123: #define RoML(rop) ((RectObjMP*)rop)
! 124: #define RoST(rop) ((RectObjST*)rop)
! 125: #define RoPTT(rop) ((RectObjPN*)rop)
! 126: #define RoPTS(rop) ((RectObjPS*)rop)
! 127: #define RoLNT(rop) ((RectObjPN*)rop)
! 128: #define RoNULL(rop) ((RectObj*)rop)
! 129:
! 130: /* All the access to the rectangle data _should_ go via these macros! */
! 131:
! 132: #define RHead(rp) ((rp)->head)
! 133: #define RTail(rp) ((rp)->tail)
! 134: #define RXsize(rp) ((rp)->sizex)
! 135: #define RYsize(rp) ((rp)->sizey)
! 136: #define RXcursor(rp) ((rp)->cursorx)
! 137: #define RYcursor(rp) ((rp)->cursory)
! 138: #define RXshift(rp) ((rp)->xshift)
! 139: #define RYshift(rp) ((rp)->yshift)
! 140: #define RXscale(rp) ((rp)->xscale)
! 141: #define RYscale(rp) ((rp)->yscale)
! 142:
! 143: #define RoNext(rop) ((rop)->next)
! 144: #define RoType(rop) ((rop)->code)
! 145: #define RoCol(rop) ((rop)->color)
! 146: #define RoMVx(rop) (RoMV(rop)->x)
! 147: #define RoMVy(rop) (RoMV(rop)->y)
! 148: #define RoPTx(rop) (RoPT(rop)->x)
! 149: #define RoPTy(rop) (RoPT(rop)->y)
! 150: #define RoLNx1(rop) (RoLN(rop)->x1)
! 151: #define RoLNy1(rop) (RoLN(rop)->y1)
! 152: #define RoLNx2(rop) (RoLN(rop)->x2)
! 153: #define RoLNy2(rop) (RoLN(rop)->y2)
! 154: #define RoBXx1(rop) (RoBX(rop)->x1)
! 155: #define RoBXy1(rop) (RoBX(rop)->y1)
! 156: #define RoBXx2(rop) (RoBX(rop)->x2)
! 157: #define RoBXy2(rop) (RoBX(rop)->y2)
! 158:
! 159: #define RoMPcnt(rop) (RoMP(rop)->count)
! 160: #define RoMPxs(rop) (RoMP(rop)->xs)
! 161: #define RoMPys(rop) (RoMP(rop)->ys)
! 162:
! 163: #define RoMLcnt(rop) (RoML(rop)->count)
! 164: #define RoMLxs(rop) (RoML(rop)->xs)
! 165: #define RoMLys(rop) (RoML(rop)->ys)
! 166:
! 167: #define RoSTs(rop) (RoST(rop)->s)
! 168: #define RoSTl(rop) (RoST(rop)->length)
! 169: #define RoSTx(rop) (RoST(rop)->x)
! 170: #define RoSTy(rop) (RoST(rop)->y)
! 171:
! 172: #define RoPTTpen(rop) (RoPTT(rop)->pen)
! 173: #define RoLNTpen(rop) (RoLNT(rop)->pen)
! 174: #define RoPTSsize(rop) (RoPTS(rop)->size)
! 175:
! 176: #define PL_POINTS 1
! 177: #define GOODRECT(r) (0 <= r && r < NUMRECT)
! 178: #define GOODCOLOR(c) (1 <= c && c < MAX_COLORS)
! 179:
! 180: #define PLOT_PARAMETRIC 0x00001
! 181: #define PLOT_RECURSIVE 0x00002
! 182: #define PLOT_NO_RESCALE 0x00004
! 183: #define PLOT_NO_AXE_X 0x00008
! 184: #define PLOT_NO_AXE_Y 0x00010
! 185: #define PLOT_NO_FRAME 0x00020
! 186: #define PLOT_POINTS 0x00040
! 187: #define PLOT_POINTS_LINES 0x00080
! 188: #define PLOT_SPLINES 0x00100
! 189:
! 190: #define PLOT_POSTSCRIPT 0x80000
! 191:
! 192: extern PariRect **rectgraph;
! 193: extern long rectpoint_itype;
! 194: extern long rectline_itype;
! 195:
! 196: /* plotport.c */
! 197:
! 198: void initrect(long ne, long x, long y);
! 199: void killrect(long ne);
! 200: void plot(entree *ep, GEN a, GEN b, char *ch, long prec);
! 201: GEN ploth(entree *ep, GEN a, GEN b, char *ch, long prec, long flag, long numpoints);
! 202: GEN ploth2(entree *ep, GEN a, GEN b, char *ch, long prec);
! 203: GEN plothmult(entree *ep, GEN a, GEN b, char *ch, long prec);
! 204: GEN plothraw(GEN listx, GEN listy, long flag);
! 205: GEN plothsizes();
! 206: void postdraw(GEN list);
! 207: GEN postploth(entree *ep,GEN a,GEN b,char *ch,long prec,long flag,long numpoints);
! 208: GEN postploth2(entree *ep,GEN a,GEN b,char *ch,long prec,long numpoints);
! 209: GEN postplothraw(GEN listx, GEN listy, long flag);
! 210: void rectbox(long ne, GEN gx2, GEN gy2);
! 211: void rectcolor(long ne, long color);
! 212: void rectcopy(long source, long dest, long xoff, long yoff);
! 213: GEN rectcursor(long ne);
! 214: void rectdraw(GEN list);
! 215: void rectline(long ne, GEN gx2, GEN gy2);
! 216: void rectlines(long ne, GEN listx, GEN listy, long flag);
! 217: void rectlinetype(long ne, long t);
! 218: void rectmove(long ne, GEN x, GEN y);
! 219: GEN rectploth(long drawrect,entree *ep, GEN a, GEN b, char *ch, long prec, ulong flags, long testpoints);
! 220: GEN rectplothraw(long drawrect, GEN data, long flags);
! 221: void rectpoint(long ne, GEN x, GEN y);
! 222: void rectpoints(long ne, GEN listx, GEN listy);
! 223: void rectpointtype(long ne, long t);
! 224: void rectpointsize(long ne, GEN size);
! 225: void rectrbox(long ne, GEN gx2, GEN gy2);
! 226: void rectrline(long ne, GEN gx2, GEN gy2);
! 227: void rectrmove(long ne, GEN x, GEN y);
! 228: void rectrpoint(long ne, GEN x, GEN y);
! 229: void rectscale(long ne, GEN x1, GEN x2, GEN y1, GEN y2);
! 230: void rectstring(long ne, char *x);
! 231: void rectclip(long rect);
! 232:
! 233: /* architecture-dependent plot file (plotX.c, plotsun.c, plognuplot.c...) */
! 234:
! 235: void PARI_get_plot(long fatal);
! 236: long term_set(char *s);
! 237: long plot_outfile_set(char *s);
! 238: void set_pointsize(double d);
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to rect.h CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / pari / src / graph