| version 1.8, 2002/08/03 23:59:14 |
version 1.10, 2002/08/08 08:56:31 |
|
|
| /* $OpenXM: OpenXM_contrib2/asir2000/lib/glib,v 1.7 2002/07/15 02:14:48 takayama Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2000/lib/glib,v 1.9 2002/08/04 00:11:25 takayama Exp $ */ |
| /* $Id$ */ |
/* $Id$ */ |
| |
|
| |
/* BUG: this library has not yet been adapted to the new automatic launcher |
| |
of ox_plot. 2002, Aug, 4. Do not load glib more than twice. |
| |
*/ |
| |
|
| /* #define CLIP 1 */ |
/* #define CLIP 1 */ |
| /* #define DEBUG 1 */ |
/* #define DEBUG 1 */ |
| Line 384 def glib_ps(L) { |
|
| Line 387 def glib_ps(L) { |
|
| |
|
| return PS; |
return PS; |
| } |
} |
| |
|
| |
/*&usage begin: glib_plot(F) |
| |
It plots an object {F} on the glib canvas. |
| |
example: glib_plot([[0,1],[0.1,0.9],[0.2,0.7],[0.3,0.5],[0.4,0.8]]); |
| |
example: glib_plot(tan(x)); |
| |
end: */ |
| |
/* bug, xmin, xmax, color should be optional variables. */ |
| |
def glib_plot(F) { |
| |
Opt = getopt(); |
| |
taka_glib_plot(F,Opt); |
| |
} |
| |
|
| end$ |
end$ |
| |
|
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to glib CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib2 / asir2000 / lib