31 lines
527 B
Rexx
31 lines
527 B
Rexx
p = .point~new(3,2)
|
|
c = .circle~new(,2,6)
|
|
|
|
p~print
|
|
c~print
|
|
|
|
::class point
|
|
::method init
|
|
expose x y
|
|
use strict arg x = 0, y = 0 -- defaults to 0 for any non-specified coordinates
|
|
|
|
::attribute x
|
|
::attribute y
|
|
|
|
::method print
|
|
expose x y
|
|
say "A point at location ("||x","y")"
|
|
|
|
::class circle
|
|
::method init
|
|
expose x y radius
|
|
use strict arg x = 0, y = 0, radius = 0
|
|
|
|
::attribute radius
|
|
::attribute x
|
|
::attribute y
|
|
|
|
::method print
|
|
expose radius x y
|
|
say "A circle of radius" radius "centered at location ("||x","y")"
|