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
  • Circle    xtlang
  • circle_line    xtlang
  • cpBBNewForCircle    xtlang
  • cube_whole    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