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

Vocabulary

gpu.demos.bunny

Inputs

window-vertex-buffer

an object

Outputs

sobel-state

an object

Definition

USING: accessors arrays gpu.framebuffers gpu.shaders
gpu.textures images kernel ;

IN: gpu.demos.bunny

: <sobel-state> ( window-vertex-buffer -- sobel-state )
    sobel-state new swap sobel-program <program-instance>
    <vertex-array> >>vertex-array RGBA half-components T{
    texture-parameters
        { wrap clamp-texcoord-to-edge }
        { min-filter filter-linear }
        { min-mipmap-filter f }
    } <texture-2d> >>color-texture RGBA half-components T{
    texture-parameters
        { wrap clamp-texcoord-to-edge }
        { min-filter filter-linear }
        { min-mipmap-filter f }
    } <texture-2d> >>normal-texture DEPTH u-24-components T{
    texture-parameters
        { wrap clamp-texcoord-to-edge }
        { min-filter filter-linear }
        { min-mipmap-filter f }
    } <texture-2d> >>depth-texture dup [
        [ color-texture>> 0 <texture-2d-attachment> ]
        [ normal-texture>> 0 <texture-2d-attachment> ] bi 2array
    ] [ depth-texture>> 0 <texture-2d-attachment> ] bi f
    { 1024 768 } <framebuffer> >>framebuffer ;