draw-slabs ( renderer: papier-renderer uniforms: papier-uniforms slabs -- )

Vocabulary

papier.render

Inputs

renderer	a papier-renderer
uniforms	a papier-uniforms
slabs	an object

Outputs

None

Definition

USING: accessors gpu.buffers gpu.framebuffers gpu.render kernel
typed ;

IN: papier.render

TYPED:: draw-slabs
    ( renderer: papier-renderer uniforms: papier-uniforms slabs -- )
    system-framebuffer
    { { default-attachment { 0.0 0.0 0.0 0.0 } } }
    clear-framebuffer
    renderer uniforms slabs render-slabs-to-buffers
    renderer index-buffer>> 0 <buffer-ptr>
    slabs slab-index-count uint-indexes <index-elements>
    :> indexes renderer vertex-array>> :> vertex-array
    triangles-mode vertex-array uniforms indexes f
    system-framebuffer { default-attachment } f render-set boa
    render ;