Rectangle   xtlang


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/tests/core/generics.xtm

Implementation

;; constructor
(bind-func Rectangle:[Shape{!a}*,!a,!a,!a,!a]*
  (lambda (x y w h)
    (let ((r (ShapeRectangle x y w h)))
      (Shape 2 null r))))


Back to Index

Similar Entries