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
  • circle_line    xtlang
  • circle_whole    xtlang
  • cpBBNewForCircle    xtlang
  • draw_a_circle    xtlang
  • draw_a_circle    xtlang
  • gui_draw_circle    xtlang
  • xtm_add_circle    xtlang
  • xtm_add_circle    xtlang
  • xtm_draw_circle_fill    xtlang
  • xtm_draw_circle_fill    xtlang
  • xtm_draw_circle_fill    xtlang
  • xtm_draw_circle_fill    xtlang
  • xtm_draw_circle_stroke    xtlang
  • xtm_draw_circle_stroke    xtlang
  • xtm_draw_circle_stroke    xtlang
  • xtm_draw_circle_stroke    xtlang