[BACK]Return to glib CVS log [TXT][DIR] Up to [local] / OpenXM_contrib2 / asir2000 / lib

Diff for /OpenXM_contrib2/asir2000/lib/glib between version 1.13 and 1.15

version 1.13, 2004/03/11 05:16:11 version 1.15, 2004/03/11 21:59:36
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.14 2004/03/11 12:25:20 takayama Exp $ */
 /* $Id$ */  /* $Id$ */
   
 /* BUG: this library has not yet been adapted to the new automatic launcher  /* 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) {
   write_to_tb("showpage \n",PS);    write_to_tb("showpage \n",PS);
   
   return tb_to_string(PS);    return tb_to_string(PS);
   }
   
   /*&usage begin: glib_ps_form(S)
     It returns the PS code generated by executing {S}
     (experimental).
     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;
     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)  /*&usage begin: glib_plot(F)

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.15

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>