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

Diff for /OpenXM_contrib2/asir2000/plot/if.c between version 1.34 and 1.36

version 1.34, 2015/08/14 13:51:56 version 1.36, 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/if.c,v 1.33 2015/08/06 10:01:53 fujimoto Exp $   * $OpenXM: OpenXM_contrib2/asir2000/plot/if.c,v 1.35 2017/09/01 01:48:40 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "parse.h"  #include "parse.h"
Line 128  int plot(NODE arg,int fn){
Line 128  int plot(NODE arg,int fn){
         LIST xrange,yrange,zrange,wsize;          LIST xrange,yrange,zrange,wsize;
         STRING wname;          STRING wname;
         V v;          V v;
     Real r;
     double rr;
   
         formula=(P)ARG0(arg);          formula=(P)ARG0(arg);
         xrange=(LIST)ARG1(arg);          xrange=(LIST)ARG1(arg);
Line 145  int plot(NODE arg,int fn){
Line 147  int plot(NODE arg,int fn){
                 n=BDY(yrange);can->vy=VR((P)BDY(n));n=NEXT(n);                  n=BDY(yrange);can->vy=VR((P)BDY(n));n=NEXT(n);
                 can->qymin=(Q)BDY(n);n=NEXT(n);can->qymax=(Q)BDY(n);                  can->qymin=(Q)BDY(n);n=NEXT(n);can->qymax=(Q)BDY(n);
                 can->ymin=ToReal(can->qymin);can->ymax=ToReal(can->qymax);                  can->ymin=ToReal(can->qymin);can->ymax=ToReal(can->qymax);
         }          } else if ( !formula || NUM(formula) ) {
       devalr(CO,(Obj)formula,(Obj *)&r); rr = ToReal(r);
                   can->ymin=rr-1; can->ymax=rr+1;
     }
         can->mode=fn;          can->mode=fn;
         if(zrange){          if(zrange){
                 n=NEXT(BDY(zrange));                  n=NEXT(BDY(zrange));
Line 170  int plot(NODE arg,int fn){
Line 175  int plot(NODE arg,int fn){
         can->formula=formula;          can->formula=formula;
         if(can->mode==modeNO(PLOT)){          if(can->mode==modeNO(PLOT)){
                 //plot                  //plot
             can->prec=argc(arg)==7 ? QTOS((Q)ARG6(arg)) : 0;
                 plotcalc(can);                  plotcalc(can);
                 create_canvas(can);                  create_canvas(can);
                 plot_print(display,can);                  plot_print(display,can);
Line 210  int memory_plot(NODE arg,LIST *bytes){
Line 216  int memory_plot(NODE arg,LIST *bytes){
         double **tabe;          double **tabe;
         int i;          int i;
         BYTEARRAY barray;          BYTEARRAY barray;
         Q qw,qh;          Q qw,qh,prec;
   
         formula=(P)ARG0(arg);          formula=(P)ARG0(arg);
         xrange=(LIST)ARG1(arg);          xrange=(LIST)ARG1(arg);
Line 247  int memory_plot(NODE arg,LIST *bytes){
Line 253  int memory_plot(NODE arg,LIST *bytes){
         can->wname="";          can->wname="";
         can->formula=formula;          can->formula=formula;
         if( can->mode==modeNO(PLOT)){          if( can->mode==modeNO(PLOT)){
       can->prec = argc(arg)==6 ? QTOS((Q)ARG5(arg)) : 0;
                 plotcalc(can);                  plotcalc(can);
                 memory_print(can,&barray);                  memory_print(can,&barray);
                 STOQ(can->width,qw); STOQ(can->height,qh);                  STOQ(can->width,qw); STOQ(can->height,qh);
Line 289  int plotover(NODE arg){
Line 296  int plotover(NODE arg){
         current_can=can;          current_can=can;
         can->formula=formula;          can->formula=formula;
         if(can->mode==modeNO(PLOT)){          if(can->mode==modeNO(PLOT)){
       can->prec = argc(arg)==3 ? QTOS((Q)ARG2(arg)) : 0;
                 plotcalc(can);                  plotcalc(can);
                 plot_print(display,can);                  plot_print(display,can);
         } else ifplotmain(can);          } else ifplotmain(can);
Line 628  void plot_resize(struct canvas *can,POINT spos,POINT e
Line 636  void plot_resize(struct canvas *can,POINT spos,POINT e
                 ncan->xmin=ToReal(ncan->qxmin); ncan->xmax=ToReal(ncan->qxmax);                  ncan->xmin=ToReal(ncan->qxmin); ncan->xmax=ToReal(ncan->qxmax);
                 ncan->ymin=ymax-YC(epos)*dy/can->height;                  ncan->ymin=ymax-YC(epos)*dy/can->height;
                 ncan->ymax=ymax-YC(spos)*dy/can->height;                  ncan->ymax=ymax-YC(spos)*dy/can->height;
       ncan->prec = can->prec;
                 create_canvas(ncan);                  create_canvas(ncan);
   
                 switch (ncan->mode){                  switch (ncan->mode){
Legend:
Removed from v.1.34  
changed lines
  Added in v.1.36
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>