24 lines
292 B
Nim
Executable file
24 lines
292 B
Nim
Executable file
# Tests the object implementation
|
|
|
|
import
|
|
io
|
|
|
|
type
|
|
TPoint2d = object
|
|
x, y: int
|
|
|
|
TPoint3d = object of TPoint2d
|
|
z: int # added a field
|
|
|
|
proc getPoint(var p: TPoint2d) =
|
|
{.breakpoint.}
|
|
writeln(stdout, p.x)
|
|
|
|
var
|
|
p: TPoint3d
|
|
|
|
TPoint2d(p).x = 34
|
|
p.y = 98
|
|
p.z = 343
|
|
|
|
getPoint(p)
|