bunny-vertex-struct-vector

Vocabulary

specialized-vectors.instances.gpu.demos.bunny.bunny-vertex-struct

Definition

USING: sequences.private
specialized-arrays.instances.gpu.demos.bunny.bunny-vertex-struct
;

IN:
specialized-vectors.instances.gpu.demos.bunny.bunny-vertex-struct

TUPLE: bunny-vertex-struct-vector
    {
        underlying bunny-vertex-struct-array initial:
        bunny-vertex-struct-array{ }
    } { length array-capacity initial: 0 } ;

Methods

USING: accessors alien
specialized-vectors.instances.gpu.demos.bunny.bunny-vertex-struct
;

M: bunny-vertex-struct-vector >c-ptr
    underlying>> underlying>> ; inline


USING: prettyprint.custom
specialized-vectors.instances.gpu.demos.bunny.bunny-vertex-struct
;

M: bunny-vertex-struct-vector >pprint-sequence ;


USING: alien kernel math sequences
specialized-vectors.instances.gpu.demos.bunny.bunny-vertex-struct
;

M: bunny-vertex-struct-vector byte-length
    [ length ] [ element-size ] bi * ; inline


USING: growable kernel
specialized-vectors.instances.gpu.demos.bunny.bunny-vertex-struct
;

M: bunny-vertex-struct-vector contract 2drop ; inline


USING: kernel
specialized-arrays.instances.gpu.demos.bunny.bunny-vertex-struct
specialized-arrays.private
specialized-vectors.instances.gpu.demos.bunny.bunny-vertex-struct
;

M: bunny-vertex-struct-vector direct-like
    drop <direct-bunny-vertex-struct-array> ; inline


USING: alien alien.c-types gpu.demos.bunny kernel
specialized-vectors.instances.gpu.demos.bunny.bunny-vertex-struct
;

M: bunny-vertex-struct-vector element-size
    drop \ bunny-vertex-struct heap-size ; inline


USING: classes kernel sequences
specialized-vectors.instances.gpu.demos.bunny.bunny-vertex-struct
;

M: bunny-vertex-struct-vector equal?
    over bunny-vertex-struct-vector instance?
    [ sequence= ] [ 2drop f ] if ;


USING: classes kernel sequences
specialized-arrays.instances.gpu.demos.bunny.bunny-vertex-struct
specialized-vectors.instances.gpu.demos.bunny.bunny-vertex-struct
;

M: bunny-vertex-struct-vector like
    drop dup bunny-vertex-struct-vector instance? [
        dup bunny-vertex-struct-array instance?
        [ dup length bunny-vertex-struct-vector boa ]
        [ >bunny-vertex-struct-vector ] if
    ] unless ; inline


USING: kernel sequences
specialized-vectors.instances.gpu.demos.bunny.bunny-vertex-struct
;

M: bunny-vertex-struct-vector new-resizable
    drop <bunny-vertex-struct-vector> ; inline


USING: kernel math sequences
specialized-arrays.instances.gpu.demos.bunny.bunny-vertex-struct
specialized-vectors.instances.gpu.demos.bunny.bunny-vertex-struct
;

M: bunny-vertex-struct-vector new-sequence
    drop [ <bunny-vertex-struct-array> ] [ >fixnum ] bi
    bunny-vertex-struct-vector boa ; inline


USING: accessors specialized-arrays.private
specialized-vectors.instances.gpu.demos.bunny.bunny-vertex-struct
;

M: bunny-vertex-struct-vector nth-c-ptr
    underlying>> nth-c-ptr ; inline


USING: prettyprint.custom
specialized-vectors.instances.gpu.demos.bunny.bunny-vertex-struct
;

M: bunny-vertex-struct-vector pprint* pprint-object ;


USING: kernel prettyprint.custom
specialized-vectors.instances.gpu.demos.bunny.bunny-vertex-struct
;

M: bunny-vertex-struct-vector pprint-delims
    drop \ bunny-vertex-struct-vector{ \ } ;