OpenXM_contrib2/asir2000/plot/plotf.c - diff

Return to plotf.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / plot

version 1.18, 2005/12/21 23:18:16

version 1.19, 2006/11/09 15:54:35

Line 45

* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,

* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.

* $OpenXM: OpenXM_contrib2/asir2000/plot/plotf.c,v 1.17 2005/05/18 03:27:00 noro Exp $

* $OpenXM: OpenXM_contrib2/asir2000/plot/plotf.c,v 1.18 2005/12/21 23:18:16 noro Exp $

#include "ca.h"

#include "parse.h"

Line 68 struct ftab plot_tab[] = {

{"memory_plot",Pmemory_plot,-5},

{"polarplot",Ppolarplot,-6},

{"plotover",Pplotover,-4},

{"drawcircle",Pdrawcircle,5},

{"drawcircle",Pdrawcircle,6},

{"open_canvas",Popen_canvas,-3},

{"clear_canvas",Pclear_canvas,2},

{"draw_obj",Pdraw_obj,-4},

Line 595 void Pplotover(NODE arg,Q *rp)

*rp = s_id;

}

/* arg = [x,y,r,s_id,index] */

/* arg = [x,y,r,c,s_id,index] */

void Pdrawcircle(NODE arg,Q *rp)

{

Line 609 void Pdrawcircle(NODE arg,Q *rp)

x = (Obj)ARG0(arg);

y = (Obj)ARG1(arg);

r = (Obj)ARG2(arg);

s_id = (Q)ARG3(arg);

c = (Obj)ARG3(arg);

index = (Q)ARG4(arg);

s_id = (Q)ARG4(arg);

index = (Q)ARG5(arg);

MKSTR(fname,"drawcircle");

n = mknode(3,x,y,r); MKLIST(pos,n);

arg = mknode(4,s_id,fname,index,pos);

arg = mknode(5,s_id,fname,index,pos,c);

Pox_rpc(arg,&t);

*rp = s_id;

}