[BACK]Return to ccurve.rr CVS log [TXT][DIR] Up to [local] / OpenXM / src / cfep / tests

Diff for /OpenXM/src/cfep/tests/ccurve.rr between version 1.1.1.1 and 1.2

version 1.1.1.1, 2006/03/03 23:31:12 version 1.2, 2006/03/07 11:15:23
Line 1 
Line 1 
 /*!ox_asir_use_output */  
 /* From OpenXM: OpenXM/src/asir-contrib/packages/src/ccurve.rr,v 1.1 2004/03/11 12:25:20 takayama Exp  */  /* From OpenXM: OpenXM/src/asir-contrib/packages/src/ccurve.rr,v 1.1 2004/03/11 12:25:20 takayama Exp  */
 /* From asir-book/Prog/ccurve */  /* From asir-book/Prog/ccurve */
 load("glib")$  import("glib")$
 def cCurve(P) {  def cCurve(P) {
   if (length(P) < 2) return(0);    if (length(P) < 2) return(0);
   A = P[0][0];    A = P[0][0];
Line 24  def ccurve(N) {
Line 23  def ccurve(N) {
    }     }
    glib_window(-1,-1,2,0.5);     glib_window(-1,-1,2,0.5);
    for (I=0; I<length(Tmp)-1; I++) {     for (I=0; I<length(Tmp)-1; I++) {
      glib_line(Tmp[I][0],Tmp[I][1],Tmp[I+1][0],Tmp[I+1][1]);       glib_line(Tmp[I][0],Tmp[I][1],Tmp[I+1][0],Tmp[I+1][1]); glib_flush();
    }     }
 }  }
 ccurve(6); glib_flush();  ccurve(6); glib_flush();

Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.2

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