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 ] bi@ ] ] dip compose [ [ first2 ] ] dip
    [ 2map ] curry compose map ; inline