circle_whole   xtlang


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/libs/external/opengl.xtm

Implementation

(bind-func circle_whole
  (lambda (radius:double x:double y:double)
    (let ((k 0.0))
      (glBegin GL_TRIANGLE_FAN)
      (dotimes (k 90.0)
  (let ((angle:double (/ (* k 2.0 PI) 90.0)))
    (glVertex2d (+ x (* (cos angle) radius)) (+ y (* (sin angle) radius)))))
      (glEnd))))


Back to Index

Similar Entries

  • Circle    xtlang    /digego/extempore/tree/v0.8.9/tests/core/generics.xtm
  • 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
  • cpBBNewForCircle    xtlang    /digego/extempore/tree/v0.8.9/libs/contrib/libchipmunk/cpBB.xtm
  • cube_whole    xtlang    /digego/extempore/tree/v0.8.9/libs/external/opengl.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