[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.34 and 1.35

version 1.34, 2018/03/29 01:32:55 version 1.35, 2018/06/12 07:03:36
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.33 2017/09/04 01:57:53 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/plot/plotf.c,v 1.34 2018/03/29 01:32:55 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "parse.h"  #include "parse.h"
Line 203  void Pmemory_ifplot(NODE arg,Obj *rp){ifplot_main(arg,
Line 203  void Pmemory_ifplot(NODE arg,Obj *rp){ifplot_main(arg,
 void ifplot_main(NODE arg,int is_memory,char *fn,Obj *rp){  void ifplot_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;
   LIST xrange,yrange,zrange,range[2],list,geom;    LIST xrange,yrange,zrange,range[2],list,geom=0;
   VL vl,vl0;    VL vl,vl0;
   V v[2],av[2];    V v[2],av[2];
   int stream,ri,i,sign;    int stream,ri,i,sign;
Line 242  void ifplot_main(NODE arg,int is_memory,char *fn,Obj *
Line 242  void ifplot_main(NODE arg,int is_memory,char *fn,Obj *
       if(OID(BDY(BDY(list)))==O_P)        if(OID(BDY(BDY(list)))==O_P)
         if(ri>1) error("ifplot : invalid argument");          if(ri>1) error("ifplot : invalid argument");
         else range[ri++]=list;          else range[ri++]=list;
       else geom=list;        else if ( geom )
           error("ifplot : Two geometries are specified. Probably a variable is missing.");
         else
           geom=list;
       break;        break;
     case O_N:      case O_N:
       if ( !found_f ) {        if ( !found_f ) {
Line 349  void conplot_main(NODE arg,int is_memory,Obj *rp){
Line 352  void conplot_main(NODE arg,int is_memory,Obj *rp){
         break;          break;
       case O_LIST:        case O_LIST:
         list = (LIST)BDY(arg);          list = (LIST)BDY(arg);
         if ( OID(BDY(BDY(list))) == O_P )          if ( OID(BDY(BDY(list))) == O_P ) {
           if ( ri > 2 )            if ( ri > 2 )
             error("ifplot : invalid argument");              error("ifplot : invalid argument");
           else            else
             range[ri++] = list;              range[ri++] = list;
           } else if ( geom )
             error("conplot : Two geometries are specified. Probably a variable is missing.");
         else          else
           geom = list;            geom = list;
         break;          break;
Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>