Return to graph.kk CVS log | Up to [local] / OpenXM / src / k097 / debug |
File: [local] / OpenXM / src / k097 / debug / graph.kk (download)
Revision 1.1.1.1 (vendor branch), Fri Oct 8 02:12:16 1999 UTC (24 years, 9 months ago) by maekawa
o import OpenXM sources |
/* graph.kk , 1997, 4/9? */ /* see object.kk for pre-installed objects */ /* cf. p.70 Java reference マニュアル */ class Circle extends Object { local x, /* 中心 */ y, r; /* 半径 */ def new0(xx,yy,rr) { this = new(); x = xx; y = yy; r = rr; return(this); } def void show() { Print(AddString([ "x=", ToString(x), " y=", ToString(y), " r=", ToString(r)])); Ln(); } def area() { return( (31415/10000)*r*r ); } } /* cf. p.89 Java reference マニュアル */ class GraphicCircle extends Circle { local outline, fill; def new0(xx,yy,rr) { this = new(super.new0(xx,yy,rr)); outline = 1; /* default value */ fill = 1; /* default value */ return(this); } }