copy-pixels ( old-pixels old-width new-pixels new-width -- )

Vocabulary

ui.gadgets.frame-buffer

Inputs

old-pixels	an object
old-width	an object
new-pixels	an object
new-width	an object

Outputs

None

Definition

USING: grouping kernel math sequences ;

IN: ui.gadgets.frame-buffer

: copy-pixels
    ( old-pixels old-width new-pixels new-width -- )
    [ [ drop { } ] [ 16 * <groups> ] if-zero ] 2bi@
    [ copy-row ] 2each ;