| version 1.1, 2006/03/03 23:31:12 |
version 1.2, 2006/03/07 11:15:23 |
|
|
| /*!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]; |
|
|
| } |
} |
| 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(); |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to ccurve.rr CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / cfep / tests