<loading-state> ( window-vertex-buffer -- loading-state )

Vocabulary

gpu.demos.bunny

Inputs

window-vertex-buffer

an object

Outputs

loading-state

an object

Definition

USING: accessors gpu.shaders gpu.textures images images.loader
kernel ;

IN: gpu.demos.bunny

: <loading-state> ( window-vertex-buffer -- loading-state )
    loading-state new swap loading-program <program-instance>
    <vertex-array> >>vertex-array RGBA ubyte-components T{
    texture-parameters
        { wrap clamp-texcoord-to-edge }
        { min-filter filter-linear }
        { min-mipmap-filter f }
    } <texture-2d>
    dup 0 "vocab:gpu/demos/bunny/loading.tiff" load-image
    allocate-texture-image >>texture ;