[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.35 and 1.36

version 1.35, 2017/09/01 01:48:40 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.34 2015/08/14 13:51:56 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 175  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 215  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 252  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 294  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 633  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.35  
changed lines
  Added in v.1.36
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>