[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.32 and 1.33

version 1.32, 2017/09/01 01:48:40 version 1.33, 2017/09/04 01:57:53
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.31 2017/08/31 02:36:21 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/plot/plotf.c,v 1.32 2017/09/01 01:48:40 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "parse.h"  #include "parse.h"
Line 442  void conplot_main(NODE arg,int is_memory,Obj *rp){
Line 442  void conplot_main(NODE arg,int is_memory,Obj *rp){
 void Pplot(NODE arg,Obj *rp){plot_main(arg,0,PLOT,rp);}  void Pplot(NODE arg,Obj *rp){plot_main(arg,0,PLOT,rp);}
 void Pmemory_plot(NODE arg,Obj *rp){plot_main(arg,1,PLOT,rp);}  void Pmemory_plot(NODE arg,Obj *rp){plot_main(arg,1,PLOT,rp);}
   
   int plot_by_bigfloat;
   
 void plot_main(NODE arg,int is_memory,char *fn,Obj *rp){  void plot_main(NODE arg,int is_memory,char *fn,Obj *rp){
         Q m2,p2,w300,s_id;          Q m2,p2,w300,s_id;
         NODE defrange;          NODE defrange;
Line 454  void plot_main(NODE arg,int is_memory,char *fn,Obj *rp
Line 456  void plot_main(NODE arg,int is_memory,char *fn,Obj *rp
         NODE n,n0;          NODE n,n0;
         STRING fname,wname;          STRING fname,wname;
         Obj t;          Obj t;
     Q prec;
   
         STOQ(-2,m2);STOQ(2,p2);          STOQ(-2,m2);STOQ(2,p2);
         MKNODE(n,p2,0);MKNODE(defrange,m2,n);          MKNODE(n,p2,0);MKNODE(defrange,m2,n);
Line 534  void plot_main(NODE arg,int is_memory,char *fn,Obj *rp
Line 537  void plot_main(NODE arg,int is_memory,char *fn,Obj *rp
                 STOQ(300,w300);                  STOQ(300,w300);
                 MKNODE(n0,w300,0);MKNODE(n,w300,n0);MKLIST(geom,n);                  MKNODE(n0,w300,0);MKNODE(n,w300,n0);MKLIST(geom,n);
         }          }
     if(plot_by_bigfloat)
       STOQ(plot_by_bigfloat,prec);
     else
       prec = 0;
         if(is_memory ){          if(is_memory ){
                 MKSTR(fname,MEMORY_PLOT);                  MKSTR(fname,MEMORY_PLOT);
                 arg=mknode(7,s_id,fname,func,xrange,NULLP,NULLP,geom);                  arg=mknode(8,s_id,fname,func,xrange,NULLP,NULLP,geom,prec);
                 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,fn);                  MKSTR(fname,fn);
                 arg=mknode(8,s_id,fname,func,xrange,NULLP,NULLP,geom,wname);                  arg=mknode(9,s_id,fname,func,xrange,NULLP,NULLP,geom,wname,prec);
                 Pox_rpc(arg,&t);                  Pox_rpc(arg,&t);
                 *rp=(Obj)s_id;                  *rp=(Obj)s_id;
         }          }
Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>