10 lines
316 B
Forth
10 lines
316 B
Forth
: testPoly
|
|
| p c |
|
|
Point new(3, 4) ->p
|
|
p println
|
|
System.Out "Attributes of this point are : " << p _x << " and " << p _y << cr
|
|
Circle new(5, 6, 7.1) ->c
|
|
c println
|
|
System.Out "Attributes of this circle are : " << c _x << ", " << c _y << " and " << c _r << cr
|
|
Circle newFromPoint(p, 2) println ;
|