Return to graph.kk CVS log

Up to [local] / OpenXM / src / k097 / debug

Annotation of OpenXM/src/k097/debug/graph.kk, Revision 1.1.1.1

1.1       maekawa     1: /* graph.kk , 1997, 4/9? */
                      2: /*  see object.kk for pre-installed objects
                      3: */
                      4:
                      5: /* cf. p.70 Java reference マニュアル */
                      6: class Circle extends Object {
                      7:   local x,  /* 中心 */
                      8:         y,
                      9:         r;  /* 半径 */
                     10:   def new0(xx,yy,rr) {
                     11:     this = new();
                     12:     x = xx; y = yy; r = rr;
                     13:     return(this);
                     14:   }
                     15:   def void show() {
                     16:     Print(AddString([
                     17:      "x=", ToString(x), " y=", ToString(y), " r=", ToString(r)]));
                     18:     Ln();
                     19:   }
                     20:   def area() {
                     21:     return( (31415/10000)*r*r );
                     22:   }
                     23: }
                     24:
                     25: /* cf. p.89 Java reference マニュアル */
                     26: class GraphicCircle extends Circle {
                     27:   local outline, fill;
                     28:   def new0(xx,yy,rr) {
                     29:     this = new(super.new0(xx,yy,rr));
                     30:     outline = 1; /* default value */
                     31:     fill = 1; /* default value */
                     32:     return(this);
                     33:   }
                     34: }
                     35: