make-texture ( pathname -- texture )

Vocabulary

fluids

Inputs

pathname

an object

Outputs

texture

an object

Definition

USING: accessors gpu.textures images.loader kernel ;

IN: fluids

: make-texture ( pathname -- texture )
    load-image [
        [ component-order>> ] [ component-type>> ] bi T{
        texture-parameters
            { wrap clamp-texcoord-to-edge }
            { min-mipmap-filter f }
            { mag-filter filter-nearest }
        } <texture-2d>
    ] [ 0 swap [ allocate-texture-image ] keepdd ] bi ;