OpenXM_contrib2/asir2000/lib/glib - diff

Return to glib CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / lib

-version 1.13, 2004/03/11 05:16:11
+version 1.14, 2004/03/11 12:25:20
 Line 1
 Line 1
 Line 1
- /* $OpenXM: OpenXM_contrib2/asir2000/lib/glib,v 1.12 2002/10/02 01:30:08 takayama Exp $ */
+ /* $OpenXM: OpenXM_contrib2/asir2000/lib/glib,v 1.13 2004/03/11 05:16:11 takayama Exp $ */
  /* $Id$ */
  /* BUG: this library has not yet been adapted to the new automatic launcher
 Line 429  def glib_ps(L) {
 Line 429  def glib_ps(L) {
 Line 429  def glib_ps(L) {
    write_to_tb("showpage \n",PS);
    return tb_to_string(PS);
+ }
+ /*&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) ));
+   ref: glib_tops
+ end: */
+ def glib_ps_form(F) {
+   extern Glib_h;
+   extern Glib_ps;
+   H = Glib_h; /* push Glib_h */
+   P = Glib_ps; /* push Glib_ps */
+   Glib_ps=1; Glib_h = [];
+   eval_quote(F);
+   /* bug. eval_str causes seg fault for ccurve.rr main(8) */
+   R = glib_tops();
+   Glib_h = H; /* pop Glib_h */
+   Glib_ps = P; /* pop Glib_ps */
+   return R;
  }
  /*&usage begin: glib_plot(F)