parse-slab ( hash -- name images frame center size orient color )

Vocabulary

papier.map

Inputs

hash

an object

Outputs

name	an object
images	an object
frame	an object
center	an object
size	an object
orient	an object
color	an object

Definition

USING: assocs combinators json kernel math math.vectors.simd
sequences ;

IN: papier.map

: parse-slab
    ( hash -- name images frame center size orient color )
    {
        [ "name" swap at [ f ] when-json-null ]
        [ "images" swap at ]
        [ "frame" swap at >fixnum ]
        [
            "center" swap at 3 0.0 pad-tail 4 1.0 pad-tail
            >float-4
        ]
        [ "size" swap at 4 1.0 pad-tail >float-4 ]
        [ "orient" swap at >float-4 ]
        [ "color" swap at >float-4 ]
    } cleave ;