[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.1 and 1.10

version 1.1, 1999/12/03 07:39:13 version 1.10, 2001/08/22 09:19:21
Line 1 
Line 1 
 /* $OpenXM: OpenXM/src/asir99/plot/plotf.c,v 1.1.1.1 1999/11/10 08:12:34 noro Exp $ */  /*
    * Copyright (c) 1994-2000 FUJITSU LABORATORIES LIMITED
    * All rights reserved.
    *
    * FUJITSU LABORATORIES LIMITED ("FLL") hereby grants you a limited,
    * non-exclusive and royalty-free license to use, copy, modify and
    * redistribute, solely for non-commercial and non-profit purposes, the
    * computer program, "Risa/Asir" ("SOFTWARE"), subject to the terms and
    * conditions of this Agreement. For the avoidance of doubt, you acquire
    * only a limited right to use the SOFTWARE hereunder, and FLL or any
    * third party developer retains all rights, including but not limited to
    * copyrights, in and to the SOFTWARE.
    *
    * (1) FLL does not grant you a license in any way for commercial
    * purposes. You may use the SOFTWARE only for non-commercial and
    * non-profit purposes only, such as academic, research and internal
    * business use.
    * (2) The SOFTWARE is protected by the Copyright Law of Japan and
    * international copyright treaties. If you make copies of the SOFTWARE,
    * with or without modification, as permitted hereunder, you shall affix
    * to all such copies of the SOFTWARE the above copyright notice.
    * (3) An explicit reference to this SOFTWARE and its copyright owner
    * shall be made on your publication or presentation in any form of the
    * results obtained by use of the SOFTWARE.
    * (4) In the event that you modify the SOFTWARE, you shall notify FLL by
    * e-mail at risa-admin@sec.flab.fujitsu.co.jp of the detailed specification
    * for such modification or the source code of the modified part of the
    * SOFTWARE.
    *
    * THE SOFTWARE IS PROVIDED AS IS WITHOUT ANY WARRANTY OF ANY KIND. FLL
    * MAKES ABSOLUTELY NO WARRANTIES, EXPRESSED, IMPLIED OR STATUTORY, AND
    * EXPRESSLY DISCLAIMS ANY IMPLIED WARRANTY OF MERCHANTABILITY, FITNESS
    * FOR A PARTICULAR PURPOSE OR NONINFRINGEMENT OF THIRD PARTIES'
    * RIGHTS. NO FLL DEALER, AGENT, EMPLOYEES IS AUTHORIZED TO MAKE ANY
    * MODIFICATIONS, EXTENSIONS, OR ADDITIONS TO THIS WARRANTY.
    * UNDER NO CIRCUMSTANCES AND UNDER NO LEGAL THEORY, TORT, CONTRACT,
    * OR OTHERWISE, SHALL FLL BE LIABLE TO YOU OR ANY OTHER PERSON FOR ANY
    * DIRECT, INDIRECT, SPECIAL, INCIDENTAL, PUNITIVE OR CONSEQUENTIAL
    * DAMAGES OF ANY CHARACTER, INCLUDING, WITHOUT LIMITATION, DAMAGES
    * ARISING OUT OF OR RELATING TO THE SOFTWARE OR THIS AGREEMENT, DAMAGES
    * FOR LOSS OF GOODWILL, WORK STOPPAGE, OR LOSS OF DATA, OR FOR ANY
    * DAMAGES, EVEN IF FLL SHALL HAVE BEEN INFORMED OF THE POSSIBILITY OF
    * SUCH DAMAGES, OR FOR ANY CLAIM BY ANY OTHER PARTY. EVEN IF A PART
    * OF THE SOFTWARE HAS BEEN DEVELOPED BY A THIRD PARTY, THE THIRD PARTY
    * 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.9 2001/06/04 02:49:49 noro Exp $
   */
 #include "ca.h"  #include "ca.h"
 #include "parse.h"  #include "parse.h"
 #include "ox.h"  #include "ox.h"
 #include "ifplot.h"  #include "ifplot.h"
   
 void Pifplot(), Pconplot(), Pplotover(), Pplot(), Parrayplot(), Pdrawcircle();  void Pifplot(), Pconplot(), Pplotover(), Pplot(), Parrayplot(), Pdrawcircle();
   void Pmemory_ifplot();
   void Popen_canvas(), Pclear_canvas(), Pdraw_obj();
   
 struct ftab plot_tab[] = {  struct ftab plot_tab[] = {
         {"ifplot",Pifplot,-7},          {"ifplot",Pifplot,-7},
           {"memory_ifplot",Pmemory_ifplot,-7},
         {"conplot",Pconplot,-8},          {"conplot",Pconplot,-8},
         {"plot",Pplot,-6},          {"plot",Pplot,-6},
         {"plotover",Pplotover,3},          {"plotover",Pplotover,3},
         {"drawcircle",Pdrawcircle,5},          {"drawcircle",Pdrawcircle,5},
           {"open_canvas",Popen_canvas,-3},
           {"clear_canvas",Pclear_canvas,2},
           {"draw_obj",Pdraw_obj,-4},
 /*  /*
         {"arrayplot",Parrayplot,2},          {"arrayplot",Parrayplot,2},
 */  */
Line 20  struct ftab plot_tab[] = {
Line 74  struct ftab plot_tab[] = {
   
 int current_s;  int current_s;
   
   void Popen_canvas(arg,rp)
   NODE arg;
   Obj *rp;
   {
           Q w300,s_id;
           LIST geom;
           int stream,id,i;
           NODE n,n0;
           STRING fname,wname;
   
           geom = 0; wname = 0; stream = -1;
           for ( ; arg; arg = NEXT(arg) )
                   if ( !BDY(arg) )
                           stream = 0;
                   else
                   switch ( OID(BDY(arg)) ) {
                           case O_LIST:
                                   geom = (LIST)BDY(arg);
                                   break;
                           case O_N:
                                   stream = QTOS((Q)BDY(arg)); break;
                           case O_STR:
                                   wname = (STRING)BDY(arg); break;
                           default:
                                   error("open_canvas : invalid argument"); break;
                   }
           /* open_canvas in ox_plot requires
              [s_id (Q),
                   geom=[xsize,ysize] (LIST),
                   wname=name (STRING)]
           */
   
           if ( stream < 0 )
                   stream = current_s;
           else
                   current_s = stream;
           STOQ(stream,s_id);
           if ( !geom ) {
                   STOQ(300,w300);
                   MKNODE(n0,w300,0); MKNODE(n,w300,n0); MKLIST(geom,n);
           }
           MKSTR(fname,"open_canvas");
           arg = mknode(4,s_id,fname,geom,wname);
           Pox_cmo_rpc(arg,rp);
   }
   
 void Pifplot(arg,rp)  void Pifplot(arg,rp)
 NODE arg;  NODE arg;
 Obj *rp;  Obj *rp;
 {  {
         Q m2,p2,w300,sid;          Q m2,p2,w300,s_id;
         NODE defrange;          NODE defrange;
         LIST xrange,yrange,range[2],list,geom;          LIST xrange,yrange,range[2],list,geom;
         VL vl,vl0;          VL vl,vl0;
Line 105  Obj *rp;
Line 205  Obj *rp;
                         error("ifplot : cannot happen"); break;                          error("ifplot : cannot happen"); break;
         }          }
         /* ifplot in ox_plot requires          /* ifplot in ox_plot requires
            [sid (Q),             [s_id (Q),
                 formula (Obj),                  formula (Obj),
                 xrange=[x,xmin,xmax] (LIST),                  xrange=[x,xmin,xmax] (LIST),
                 yrange=[y,ymin,ymax] (LIST),                  yrange=[y,ymin,ymax] (LIST),
Line 118  Obj *rp;
Line 218  Obj *rp;
                 stream = current_s;                  stream = current_s;
         else          else
                 current_s = stream;                  current_s = stream;
         STOQ(stream,sid);          STOQ(stream,s_id);
         if ( !geom ) {          if ( !geom ) {
                 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);
         }          }
         MKSTR(fname,"plot");          MKSTR(fname,"plot");
         arg = mknode(8,sid,fname,poly,xrange,yrange,0,geom,wname);          arg = mknode(8,s_id,fname,poly,xrange,yrange,0,geom,wname);
         Pox_rpc(arg,rp);          Pox_rpc(arg,rp);
 }  }
   
   void Pmemory_ifplot(arg,rp)
   NODE arg;
   Obj *rp;
   {
           Q m2,p2,w300,s_id;
           NODE defrange;
           LIST xrange,yrange,range[2],list,geom;
           VL vl,vl0;
           V v[2],av[2];
           int stream,ri,id,i;
           P poly;
           P var;
           NODE n,n0;
           STRING fname,wname;
   
           STOQ(-2,m2); STOQ(2,p2);
           MKNODE(n,p2,0); MKNODE(defrange,m2,n);
           poly = 0; vl = 0; geom = 0; stream = -1; ri = 0;
           for ( ; arg; arg = NEXT(arg) )
                   if ( !BDY(arg) )
                           stream = 0;
                   else
                   switch ( OID(BDY(arg)) ) {
                           case O_P:
                                   poly = (P)BDY(arg);
                                   get_vars_recursive(poly,&vl);
                                   for ( vl0 = vl, i = 0; vl0; vl0 = NEXT(vl0) )
                                           if ( vl0->v->attr == V_IND )
                                                   if ( i >= 2 )
                                                           error("ifplot : invalid argument");
                                                   else
                                                           v[i++] = vl0->v;
                                   break;
                           case O_LIST:
                                   list = (LIST)BDY(arg);
                                   if ( OID(BDY(BDY(list))) == O_P )
                                           if ( ri > 1 )
                                                   error("ifplot : invalid argument");
                                           else
                                                   range[ri++] = list;
                                   else
                                           geom = list;
                                   break;
                           case O_N:
                                   stream = QTOS((Q)BDY(arg)); break;
                           default:
                                   error("memory_ifplot : invalid argument"); break;
                   }
           if ( !poly )
                   error("memory_ifplot : invalid argument");
           switch ( ri ) {
                   case 0:
                           if ( !v[1] )
                                   error("memory_ifplot : please specify all variables");
                           MKV(v[0],var); MKNODE(n,var,defrange); MKLIST(xrange,n);
                           MKV(v[1],var); MKNODE(n,var,defrange); MKLIST(yrange,n);
                           break;
                   case 1:
                           if ( !v[1] )
                                   error("memory_ifplot : please specify all variables");
                           av[0] = VR((P)BDY(BDY(range[0])));
                           if ( v[0] == av[0] ) {
                                   xrange = range[0];
                                   MKV(v[1],var); MKNODE(n,var,defrange); MKLIST(yrange,n);
                           } else if ( v[1] == av[0] ) {
                                   MKV(v[0],var); MKNODE(n,var,defrange); MKLIST(xrange,n);
                                   yrange = range[0];
                           } else
                                   error("memory_ifplot : invalid argument");
                           break;
                   case 2:
                           av[0] = VR((P)BDY(BDY(range[0])));
                           av[1] = VR((P)BDY(BDY(range[1])));
                           if ( ((v[0] == av[0]) && (!v[1] || v[1] == av[1])) ||
                                    ((v[0] == av[1]) && (!v[1] || v[1] == av[0])) ) {
                                           xrange = range[0]; yrange = range[1];
                           } else
                                           error("memory_ifplot : invalid argument");
                           break;
                   default:
                           error("memory_ifplot : cannot happen"); break;
           }
           /* memory_ifplot in ox_plot requires
              [s_id (Q),
                   formula (Obj),
                   xrange=[x,xmin,xmax] (LIST),
                   yrange=[y,ymin,ymax] (LIST),
                   zrange=0,
                   geom=[xsize,ysize] (LIST)]
           */
   
           if ( stream < 0 )
                   stream = current_s;
           else
                   current_s = stream;
           STOQ(stream,s_id);
           if ( !geom ) {
                   STOQ(300,w300);
                   MKNODE(n0,w300,0); MKNODE(n,w300,n0); MKLIST(geom,n);
           }
           MKSTR(fname,"memory_plot");
           arg = mknode(7,s_id,fname,poly,xrange,yrange,0,geom);
           Pox_rpc(arg,rp);
   }
   
 void Pconplot(arg,rp)  void Pconplot(arg,rp)
 NODE arg;  NODE arg;
 Obj *rp;  Obj *rp;
 {  {
         Q m2,p2,w300,sid;          Q m2,p2,w300,s_id;
         NODE defrange;          NODE defrange;
         LIST xrange,yrange,zrange,range[3],list,geom;          LIST xrange,yrange,zrange,range[3],list,geom;
         VL vl,vl0;          VL vl,vl0;
Line 229  Obj *rp;
Line 434  Obj *rp;
                 current_s = stream;                  current_s = stream;
   
         /* conplot in ox_plot requires          /* conplot in ox_plot requires
            [sid (Q),             [s_id (Q),
                 formula (Obj),                  formula (Obj),
                 xrange=[x,xmin,xmax] (LIST),                  xrange=[x,xmin,xmax] (LIST),
                 yrange=[y,ymin,ymax] (LIST),                  yrange=[y,ymin,ymax] (LIST),
Line 242  Obj *rp;
Line 447  Obj *rp;
                 stream = current_s;                  stream = current_s;
         else          else
                 current_s = stream;                  current_s = stream;
         STOQ(stream,sid);          STOQ(stream,s_id);
         if ( !geom ) {          if ( !geom ) {
                 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);
         }          }
         MKSTR(fname,"plot");          MKSTR(fname,"plot");
         arg = mknode(8,sid,fname,poly,xrange,yrange,zrange,geom,wname);          arg = mknode(8,s_id,fname,poly,xrange,yrange,zrange,geom,wname);
         Pox_rpc(arg,rp);          Pox_rpc(arg,rp);
 }  }
   
Line 256  void Pplot(arg,rp)
Line 461  void Pplot(arg,rp)
 NODE arg;  NODE arg;
 Obj *rp;  Obj *rp;
 {  {
         Q m2,p2,w300,sid;          Q m2,p2,w300,s_id;
         NODE defrange;          NODE defrange;
         LIST xrange,range[1],list,geom;          LIST xrange,range[1],list,geom;
         VL vl,vl0;          VL vl,vl0;
Line 284  Obj *rp;
Line 489  Obj *rp;
                                                         error("ifplot : invalid argument");                                                          error("ifplot : invalid argument");
                                                 else                                                  else
                                                         v[i++] = vl0->v;                                                          v[i++] = vl0->v;
                                   if ( i != 1 )
                                           error("ifplot : invalid argument");
                                 break;                                  break;
                         case O_LIST:                          case O_LIST:
                                 list = (LIST)BDY(arg);                                  list = (LIST)BDY(arg);
Line 319  Obj *rp;
Line 526  Obj *rp;
                         error("plot : cannot happen"); break;                          error("plot : cannot happen"); break;
         }          }
         /* conplot in ox_plot requires          /* conplot in ox_plot requires
            [sid (Q),             [s_id (Q),
                 formula (Obj),                  formula (Obj),
                 xrange=[x,xmin,xmax] (LIST),                  xrange=[x,xmin,xmax] (LIST),
                 yrange=0,                  yrange=0,
Line 331  Obj *rp;
Line 538  Obj *rp;
                 stream = current_s;                  stream = current_s;
         else          else
                 current_s = stream;                  current_s = stream;
         STOQ(stream,sid);          STOQ(stream,s_id);
         if ( !geom ) {          if ( !geom ) {
                 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);
         }          }
         MKSTR(fname,"plot");          MKSTR(fname,"plot");
         arg = mknode(8,sid,fname,poly,xrange,0,0,geom,wname);          arg = mknode(8,s_id,fname,poly,xrange,0,0,geom,wname);
         Pox_rpc(arg,rp);          Pox_rpc(arg,rp);
 }  }
   
Line 345  void Pplotover(arg,rp)
Line 552  void Pplotover(arg,rp)
 NODE arg;  NODE arg;
 Obj *rp;  Obj *rp;
 {  {
         Q sid,index;          Q s_id,index;
         P poly;          P poly;
         STRING fname;          STRING fname;
   
         poly = (P)ARG0(arg);          poly = (P)ARG0(arg);
         sid = (Q)ARG1(arg);          s_id = (Q)ARG1(arg);
         index = (Q)ARG2(arg);          index = (Q)ARG2(arg);
         MKSTR(fname,"plotover");          MKSTR(fname,"plotover");
         arg = mknode(4,sid,fname,index,poly);          arg = mknode(4,s_id,fname,index,poly);
         Pox_rpc(arg,rp);          Pox_rpc(arg,rp);
 }  }
   
 /* arg = [x,y,r,sid,index] */  /* arg = [x,y,r,s_id,index] */
   
 void Pdrawcircle(arg,rp)  void Pdrawcircle(arg,rp)
 NODE arg;  NODE arg;
 Obj *rp;  Obj *rp;
 {  {
         Q sid,index;          Q s_id,index;
         Obj x,y,r;          Obj x,y,r;
         STRING fname;          STRING fname;
         NODE n;          NODE n;
Line 372  Obj *rp;
Line 579  Obj *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);
         sid = (Q)ARG3(arg);          s_id = (Q)ARG3(arg);
         index = (Q)ARG4(arg);          index = (Q)ARG4(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,sid,fname,index,pos);          arg = mknode(4,s_id,fname,index,pos);
         Pox_rpc(arg,rp);          Pox_rpc(arg,rp);
   }
   
   /* draw_obj(s_id,cindex,point|line); point = [x,y], line = [xa,ya,xb,yb] */
   void Pdraw_obj(arg,rp)
   NODE arg;
   Obj *rp;
   {
           static STRING fname;
           Q s_id,index;
           LIST obj;
   
           if ( !fname ) {
                   MKSTR(fname,"draw_obj");
           }
           s_id = (Q)ARG0(arg);
           index = (Q)ARG1(arg);
           obj = (LIST)ARG2(arg);
           /* ARG3(arg) = color */
           if ( argc(arg) == 4 )
                   arg = mknode(5,s_id,fname,index,obj,ARG3(arg));
           else
                   arg = mknode(4,s_id,fname,index,obj);
           Pox_cmo_rpc(arg,rp);
   }
   
   void Pclear_canvas(arg,rp)
   NODE arg;
   Obj *rp;
   {
           static STRING fname;
           Q s_id,index;
           LIST obj;
   
           if ( !fname ) {
                   MKSTR(fname,"clear_canvas");
           }
           s_id = (Q)ARG0(arg);
           index = (Q)ARG1(arg);
           arg = mknode(3,s_id,fname,index);
           Pox_cmo_rpc(arg,rp);
 }  }
   
 #if 0  #if 0
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.10
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>