mipmap ( pixels quot: ( aa ab ba bb -- c ) -- pixels' )

Vocabulary

terrain.generation

Inputs

pixels	an object
quot	a quotation with stack effect ( aa ab ba bb -- c )

Outputs

pixels'

an object

Definition

USING: grouping kernel sequences ;

IN: terrain.generation

: mipmap ( pixels quot: ( aa ab ba bb -- c ) -- pixels' )
    [ [ 2 <groups> ] map 2 <groups> ] dip
    '[ first2 [ [ first2 ] bi@ @ ] 2map ] map ; inline