version 1.35, 2017/09/01 01:48:40 |
version 1.36, 2017/09/04 01:57:53 |
|
|
* 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){ |