version 1.25, 2014/05/12 16:54:41 |
version 1.26, 2014/06/27 07:58:29 |
|
|
* 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/ox_plot.c,v 1.24 2013/12/20 02:27:17 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/plot/ox_plot.c,v 1.25 2014/05/12 16:54:41 saito Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
Line 232 static void asir_do_cmd(unsigned int cmd,unsigned int |
|
Line 232 static void asir_do_cmd(unsigned int cmd,unsigned int |
|
} |
} |
} |
} |
|
|
static void asir_executeFunction(int serial){ |
static void asir_executeFunction(int serial){ |
char *fn; |
char *fn; |
int argc,id,fno; |
int argc,id,fno; |
FUNC f; |
FUNC f; |
Line 252 static void asir_executeFunction(int serial){ |
|
Line 252 static void asir_executeFunction(int serial){ |
|
id=-1; |
id=-1; |
fno=modeNO(fn); |
fno=modeNO(fn); |
switch (fno){ |
switch (fno){ |
case 0://IFPLOTD |
case 0://IFPLOT |
id=plot(n,IFPLOT); |
id=plot(n,fno); |
STOQ(id,ret); |
STOQ(id,ret); |
asir_push_one((Obj)ret); |
asir_push_one((Obj)ret); |
break; |
break; |
case 1://CONPLOT |
case 1://CONPLOT |
id=plot(n,CONPLOT); |
id=plot(n,fno); |
STOQ(id,ret); |
STOQ(id,ret); |
asir_push_one((Obj)ret); |
asir_push_one((Obj)ret); |
|
break; |
case 2://PLOT |
case 2://PLOT |
id=plot(n,PLOT); |
id=plot(n,fno); |
STOQ(id,ret); |
STOQ(id,ret); |
asir_push_one((Obj)ret); |
asir_push_one((Obj)ret); |
break; |
break; |
case 4://POLARPLOT |
case 4://POLARPLOT |
id=polarplotNG(n); |
id=plot(n,fno); |
STOQ(id,ret); |
STOQ(id,ret); |
asir_push_one((Obj)ret); |
asir_push_one((Obj)ret); |
break; |
break; |
Line 306 static void asir_executeFunction(int serial){ |
|
Line 307 static void asir_executeFunction(int serial){ |
|
case 37://CLEAR_CANVAS |
case 37://CLEAR_CANVAS |
clear_canvas(n); |
clear_canvas(n); |
break; |
break; |
#if defined(INTERVAL) |
|
// ifplotNG |
// ifplotNG |
case 36://OBJ_CP |
case 36://OBJ_CP |
id=objcp(n); |
id=objcp(n); |
Line 322 static void asir_executeFunction(int serial){ |
|
Line 322 static void asir_executeFunction(int serial){ |
|
case 21://CONPLOTD |
case 21://CONPLOTD |
case 22://CONPLOTQ |
case 22://CONPLOTQ |
case 23://CONPLOTB |
case 23://CONPLOTB |
|
#if defined(INTERVAL) |
case 24://ITVIFPLOT |
case 24://ITVIFPLOT |
id=ifplotNG(n,modeNO(fn)); |
#endif |
|
id=ifplotNG(n,fno); |
STOQ(id,ret); |
STOQ(id,ret); |
asir_push_one((Obj)ret); |
asir_push_one((Obj)ret); |
break; |
break; |
Line 339 static void asir_executeFunction(int serial){ |
|
Line 341 static void asir_executeFunction(int serial){ |
|
case 25://PLOTOVERD |
case 25://PLOTOVERD |
case 26://PLOTOVERQ |
case 26://PLOTOVERQ |
case 27://PLOTOVERB |
case 27://PLOTOVERB |
id=ifplotOP(n,modeNO(fn)); |
id=ifplotOP(n,fno); |
STOQ(id,ret); |
STOQ(id,ret); |
asir_push_one((Obj)ret); |
asir_push_one((Obj)ret); |
break; |
break; |
#endif |
case 38://POLARPLOTD |
|
id=polarplotNG(n); |
|
STOQ(id,ret); |
|
asir_push_one((Obj)ret); |
|
break; |
} |
} |
} |
} |