[BACK]Return to graph.kk CVS log [TXT][DIR] 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, 7 months ago) by maekawa
Branch: OpenXM, MAIN
CVS Tags: maekawa-ipv6, R_1_3_1-2, RELEASE_20000124, RELEASE_1_3_1_13b, RELEASE_1_2_3_12, RELEASE_1_2_3, RELEASE_1_2_2_KNOPPIX_b, RELEASE_1_2_2_KNOPPIX, RELEASE_1_2_2, RELEASE_1_2_1, RELEASE_1_1_3, RELEASE_1_1_2, KNOPPIX_2006, HEAD, DEB_REL_1_2_3-9, ALPHA
Changes since 1.1: +0 -0 lines 

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);
  }
}