[BACK]Return to plotf.c CVS log [TXT][DIR] Up to [local] / OpenXM_contrib2 / asir2000 / plot

Diff for /OpenXM_contrib2/asir2000/plot/plotf.c between version 1.18 and 1.21

version 1.18, 2005/12/21 23:18:16 version 1.21, 2011/06/16 08:17:15
Line 45 
Line 45 
  * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,   * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
  * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.   * 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.20 2006/11/15 01:28:44 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "parse.h"  #include "parse.h"
Line 68  struct ftab plot_tab[] = {
Line 68  struct ftab plot_tab[] = {
         {"memory_plot",Pmemory_plot,-5},          {"memory_plot",Pmemory_plot,-5},
         {"polarplot",Ppolarplot,-6},          {"polarplot",Ppolarplot,-6},
         {"plotover",Pplotover,-4},          {"plotover",Pplotover,-4},
         {"drawcircle",Pdrawcircle,5},          {"drawcircle",Pdrawcircle,6},
         {"open_canvas",Popen_canvas,-3},          {"open_canvas",Popen_canvas,-3},
         {"clear_canvas",Pclear_canvas,2},          {"clear_canvas",Pclear_canvas,2},
         {"draw_obj",Pdraw_obj,-4},          {"draw_obj",Pdraw_obj,-4},
Line 235  void ifplot_main(NODE arg,int is_memory, Obj *rp)
Line 235  void ifplot_main(NODE arg,int is_memory, Obj *rp)
         }          }
         if ( is_memory ) {          if ( is_memory ) {
                 MKSTR(fname,"memory_plot");                  MKSTR(fname,"memory_plot");
                 arg = mknode(7,s_id,fname,poly,xrange,yrange,0,geom);                  arg = mknode(7,s_id,fname,poly,xrange,yrange,NULLP,geom);
                 Pox_rpc(arg,&t);                  Pox_rpc(arg,&t);
                 arg = mknode(1,s_id);                  arg = mknode(1,s_id);
                 Pox_pop_cmo(arg,rp);                  Pox_pop_cmo(arg,rp);
         } else {          } else {
                 MKSTR(fname,"plot");                  MKSTR(fname,"plot");
                 arg = mknode(8,s_id,fname,poly,xrange,yrange,0,geom,wname);                  arg = mknode(8,s_id,fname,poly,xrange,yrange,NULLP,geom,wname);
                 Pox_rpc(arg,&t);                  Pox_rpc(arg,&t);
                 *rp = (Obj)s_id;                  *rp = (Obj)s_id;
         }          }
Line 481  void plot_main(NODE arg,int is_memory,Obj *rp)
Line 481  void plot_main(NODE arg,int is_memory,Obj *rp)
         }          }
         if ( is_memory ) {          if ( is_memory ) {
                 MKSTR(fname,"memory_plot");                  MKSTR(fname,"memory_plot");
                 arg = mknode(7,s_id,fname,poly,xrange,0,0,geom);                  arg = mknode(7,s_id,fname,poly,xrange,NULLP,NULLP,geom);
                 Pox_rpc(arg,&t);                  Pox_rpc(arg,&t);
                 arg = mknode(1,s_id);                  arg = mknode(1,s_id);
                 Pox_pop_cmo(arg,rp);                  Pox_pop_cmo(arg,rp);
         } else {          } else {
                 MKSTR(fname,"plot");                  MKSTR(fname,"plot");
                 arg = mknode(8,s_id,fname,poly,xrange,0,0,geom,wname);                  arg = mknode(8,s_id,fname,poly,xrange,NULLP,NULLP,geom,wname);
                 Pox_rpc(arg,&t);                  Pox_rpc(arg,&t);
                 *rp = (Obj)s_id;                  *rp = (Obj)s_id;
         }          }
Line 571  void Ppolarplot(NODE arg,Q *rp)
Line 571  void Ppolarplot(NODE arg,Q *rp)
                 MKNODE(n0,w300,0); MKNODE(n,w300,n0); MKLIST(geom,n);                  MKNODE(n0,w300,0); MKNODE(n,w300,n0); MKLIST(geom,n);
         }          }
         MKSTR(fname,"plot");          MKSTR(fname,"plot");
         arg = mknode(8,s_id,fname,poly,0,0,zrange,geom,wname);          arg = mknode(8,s_id,fname,poly,NULLP,NULLP,zrange,geom,wname);
         Pox_rpc(arg,&t);          Pox_rpc(arg,&t);
         *rp = s_id;          *rp = s_id;
 }  }
Line 595  void Pplotover(NODE arg,Q *rp)
Line 595  void Pplotover(NODE arg,Q *rp)
         *rp = s_id;          *rp = s_id;
 }  }
   
 /* arg = [x,y,r,s_id,index] */  /* arg = [x,y,r,c,s_id,index] */
   
 void Pdrawcircle(NODE arg,Q *rp)  void Pdrawcircle(NODE arg,Q *rp)
 {  {
         Q s_id,index;          Q s_id,index;
         Obj x,y,r;          Obj x,y,r,c;
         STRING fname;          STRING fname;
         NODE n;          NODE n;
         LIST pos;          LIST pos;
Line 609  void Pdrawcircle(NODE arg,Q *rp)
Line 609  void Pdrawcircle(NODE arg,Q *rp)
         x = (Obj)ARG0(arg);          x = (Obj)ARG0(arg);
         y = (Obj)ARG1(arg);          y = (Obj)ARG1(arg);
         r = (Obj)ARG2(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");          MKSTR(fname,"drawcircle");
         n = mknode(3,x,y,r); MKLIST(pos,n);          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);          Pox_rpc(arg,&t);
         *rp = s_id;          *rp = s_id;
 }  }

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.21

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>