=================================================================== RCS file: /home/cvs/OpenXM_contrib2/asir2000/lib/glib,v retrieving revision 1.14 retrieving revision 1.15 diff -u -p -r1.14 -r1.15 --- OpenXM_contrib2/asir2000/lib/glib 2004/03/11 12:25:20 1.14 +++ OpenXM_contrib2/asir2000/lib/glib 2004/03/11 21:59:36 1.15 @@ -1,5 +1,5 @@ -/* $OpenXM: OpenXM_contrib2/asir2000/lib/glib,v 1.13 2004/03/11 05:16:11 takayama Exp $ */ -/* $Id: glib,v 1.14 2004/03/11 12:25:20 takayama Exp $ */ +/* $OpenXM: OpenXM_contrib2/asir2000/lib/glib,v 1.14 2004/03/11 12:25:20 takayama Exp $ */ +/* $Id: glib,v 1.15 2004/03/11 21:59:36 takayama Exp $ */ /* 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. @@ -434,10 +434,11 @@ def glib_ps(L) { /*&usage begin: glib_ps_form(S) It returns the PS code generated by executing {S} (experimental). - BUG. Only one function call is allowed as an argument. example: glib_ps_form(quote( glib_line(0,0,100,100) )); + example: glib_ps_form(quote([glib_line(0,0,100,100),glib_line(100,0,0,100)])); ref: glib_tops end: */ +/* Todo. Change the canvas size. */ def glib_ps_form(F) { extern Glib_h; extern Glib_ps;