6 lines
183 B
Text
6 lines
183 B
Text
|
: (setq R (new '(+Rectangle) 0 0 30 20))
|
||
|
|
-> $177356065126400
|
||
|
|
|
||
|
|
: (methods R)
|
||
|
|
-> ((draw> . +Rectangle) (perimeter> . +Rectangle) (area> . +Rectangle) (T . +Rectangle) (move> . +Shape))
|