Circle   xtlang


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

Implementation

;; deconstructor
(bind-func Circle:[!b,Shape{!a}*,[!b,!a,!a,!a]*,[!b]*]*
  (lambda (s success fail)
    (if (<> (tref s 0) 1)
        (fail)
        (let ((c:ShapeCircle* (tref s 1)))
          (success (tref c 0) (tref c 1) (tref c 2))))))


Back to Index

Similar Entries

  • Circle    xtlang    /digego/extempore/tree/v0.8.9/tests/core/generics.xtm
  • circle_line    xtlang    /digego/extempore/tree/v0.8.9/libs/external/opengl.xtm
  • circle_whole    xtlang    /digego/extempore/tree/v0.8.9/libs/external/opengl.xtm
  • cpBBNewForCircle    xtlang    /digego/extempore/tree/v0.8.9/libs/contrib/libchipmunk/cpBB.xtm
  • draw_a_circle    xtlang    /digego/extempore/tree/v0.8.9/examples/contrib/nanovg_helper.xtm
  • draw_a_circle    xtlang    /digego/extempore/tree/v0.8.9/examples/contrib/nanovg_helper.xtm
  • gui_draw_circle    xtlang    /digego/extempore/tree/v0.8.9/libs/external/gui.xtm
  • xtm_add_circle    xtlang    /digego/extempore/tree/v0.8.9/libs/contrib/nanovg_helper.xtm
  • xtm_add_circle    xtlang    /digego/extempore/tree/v0.8.9/libs/contrib/nanovg_helper.xtm
  • xtm_draw_circle_fill    xtlang    /digego/extempore/tree/v0.8.9/libs/contrib/nanovg_helper.xtm
  • xtm_draw_circle_fill    xtlang    /digego/extempore/tree/v0.8.9/libs/contrib/nanovg_helper.xtm
  • xtm_draw_circle_fill    xtlang    /digego/extempore/tree/v0.8.9/libs/contrib/nanovg_helper.xtm
  • xtm_draw_circle_fill    xtlang    /digego/extempore/tree/v0.8.9/libs/contrib/nanovg_helper.xtm
  • xtm_draw_circle_stroke    xtlang    /digego/extempore/tree/v0.8.9/libs/contrib/nanovg_helper.xtm
  • xtm_draw_circle_stroke    xtlang    /digego/extempore/tree/v0.8.9/libs/contrib/nanovg_helper.xtm
  • xtm_draw_circle_stroke    xtlang    /digego/extempore/tree/v0.8.9/libs/contrib/nanovg_helper.xtm
  • xtm_draw_circle_stroke    xtlang    /digego/extempore/tree/v0.8.9/libs/contrib/nanovg_helper.xtm