forked from ground/ground
30 lines
501 B
Plaintext
30 lines
501 B
Plaintext
struct -point
|
|
init &xpos -int
|
|
init &ypos -int
|
|
|
|
fun -int !init -int &x -int &y
|
|
set &xpos $x
|
|
set &ypos $y
|
|
return 0
|
|
endfun
|
|
|
|
fun -string !toString
|
|
tostring $xpos &xposstr
|
|
tostring $ypos &yposstr
|
|
add "x: " $xposstr &str
|
|
add $str ", y: " &str
|
|
add $str $yposstr &str
|
|
return $str
|
|
endfun
|
|
endstruct
|
|
|
|
init &myPoint -point
|
|
|
|
pusharg 30 15
|
|
!myPoint.init &out
|
|
println $myPoint.xpos
|
|
|
|
!myPoint.toString &out
|
|
|
|
println $out
|