<cl-sampler> ( normalized-coords? addressing-mode filter-mode -- sampler )

Vocabulary

opencl

Inputs

normalized-coords?	an object
addressing-mode	an object
filter-mode	an object

Outputs

sampler

an object

Definition

USING: accessors alien.c-types alien.data destructors kernel
opencl.ffi opencl.private ;

IN: opencl

: <cl-sampler>
    ( normalized-coords? addressing-mode filter-mode -- sampler )
    [ (current-cl-context) ] 3dip
    [ [ CL_TRUE ] [ CL_FALSE ] if ] [ addressing-mode-constant ]
    [ filter-mode-constant ] tri* 0 int <ref>
    [ clCreateSampler ] keep int deref cl-success
    cl-sampler new-disposable swap >>handle ;