version 1.1, 2018/09/19 05:45:08 |
version 1.2, 2018/09/28 08:20: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: OpenXM_contrib2/asir2018/plot/ox_plot.c,v 1.1 2018/09/19 05:45:08 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
Line 187 static void asir_do_cmd(unsigned int cmd,unsigned int |
|
Line 187 static void asir_do_cmd(unsigned int cmd,unsigned int |
|
break; |
break; |
case SM_getsp: |
case SM_getsp: |
i=asir_OperandStackPtr+1; |
i=asir_OperandStackPtr+1; |
STOQ(i,q); |
STOZ(i,q); |
asir_push_one((Obj)q); |
asir_push_one((Obj)q); |
break; |
break; |
case SM_popSerializedLocalObject: |
case SM_popSerializedLocalObject: |
Line 252 static void asir_executeFunction(int serial){ |
|
Line 252 static void asir_executeFunction(int serial){ |
|
switch (fno){ |
switch (fno){ |
case 0://IFPLOT |
case 0://IFPLOT |
id=plot(n,fno); |
id=plot(n,fno); |
STOQ(id,ret); |
STOZ(id,ret); |
asir_push_one((Obj)ret); |
asir_push_one((Obj)ret); |
break; |
break; |
case 1://CONPLOT |
case 1://CONPLOT |
id=plot(n,fno); |
id=plot(n,fno); |
STOQ(id,ret); |
STOZ(id,ret); |
asir_push_one((Obj)ret); |
asir_push_one((Obj)ret); |
break; |
break; |
case 2://PLOT |
case 2://PLOT |
id=plot(n,fno); |
id=plot(n,fno); |
STOQ(id,ret); |
STOZ(id,ret); |
asir_push_one((Obj)ret); |
asir_push_one((Obj)ret); |
break; |
break; |
case 4://POLARPLOT |
case 4://POLARPLOT |
id=plot(n,fno); |
id=plot(n,fno); |
STOQ(id,ret); |
STOZ(id,ret); |
asir_push_one((Obj)ret); |
asir_push_one((Obj)ret); |
break; |
break; |
case 30://MEMORY_PLOT |
case 30://MEMORY_PLOT |
Line 276 static void asir_executeFunction(int serial){ |
|
Line 276 static void asir_executeFunction(int serial){ |
|
break; |
break; |
case 31://ARRAYPLOT |
case 31://ARRAYPLOT |
id=arrayplot(n); |
id=arrayplot(n); |
STOQ(id,ret); |
STOZ(id,ret); |
asir_push_one((Obj)ret); |
asir_push_one((Obj)ret); |
break; |
break; |
case 32://OPEN_CANVAS |
case 32://OPEN_CANVAS |
id=open_canvas(n); |
id=open_canvas(n); |
STOQ(id,ret); |
STOZ(id,ret); |
asir_push_one((Obj)ret); |
asir_push_one((Obj)ret); |
break; |
break; |
case 5://PLOTOVER |
case 5://PLOTOVER |
Line 308 static void asir_executeFunction(int serial){ |
|
Line 308 static void asir_executeFunction(int serial){ |
|
// ifplotNG |
// ifplotNG |
case 36://OBJ_CP |
case 36://OBJ_CP |
id=objcp(n); |
id=objcp(n); |
STOQ(id,ret); |
STOZ(id,ret); |
asir_push_one((Obj)ret); |
asir_push_one((Obj)ret); |
break; |
break; |
case 6://IFPLOTD |
case 6://IFPLOTD |
Line 324 static void asir_executeFunction(int serial){ |
|
Line 324 static void asir_executeFunction(int serial){ |
|
case 24://ITVIFPLOT |
case 24://ITVIFPLOT |
#endif |
#endif |
id=ifplotNG(n,fno); |
id=ifplotNG(n,fno); |
STOQ(id,ret); |
STOZ(id,ret); |
asir_push_one((Obj)ret); |
asir_push_one((Obj)ret); |
break; |
break; |
case 12://INEQNDAND |
case 12://INEQNDAND |
Line 340 static void asir_executeFunction(int serial){ |
|
Line 340 static void asir_executeFunction(int serial){ |
|
case 26://PLOTOVERQ |
case 26://PLOTOVERQ |
case 27://PLOTOVERB |
case 27://PLOTOVERB |
id=ifplotOP(n,fno); |
id=ifplotOP(n,fno); |
STOQ(id,ret); |
STOZ(id,ret); |
asir_push_one((Obj)ret); |
asir_push_one((Obj)ret); |
break; |
break; |
case 38://POLARPLOTD |
case 38://POLARPLOTD |
id=polarplotNG(n); |
id=polarplotNG(n); |
STOQ(id,ret); |
STOZ(id,ret); |
asir_push_one((Obj)ret); |
asir_push_one((Obj)ret); |
break; |
break; |
} |
} |