cycle-slab-frame ( slab: slab -- )

Vocabulary

papier.map

Inputs

slab

a slab

Outputs

None

Definition

USING: accessors kernel math sequences typed ;

IN: papier.map

TYPED: cycle-slab-frame ( slab: slab -- )
    dup images>> length [ [ 1 + dup ] ] dip
    [ < [ drop 0 ] unless ] curry compose change-frame drop ;