gl3-circle* ( center radius segments -- )

Vocabulary

ui.render

Inputs

center	an object
radius	an object
segments	an object

Outputs

None

Definition

USING: arrays kernel math math.constants math.functions
opengl.gl sequences ;

IN: ui.render

:: gl3-circle* ( center radius segments -- )
    center first :> cx center second :> cy segments <iota> [| i
    |
        i segments / 2 * pi *
        [ cos radius * cx + ] [ sin radius * cy + ] bi 2array
    ] map make-position-vertices upload-vertices
    GL_LINE_LOOP 0 segments glDrawArrays ;