segment-mipmap ( image -- image' )


Vocabulary
terrain.generation

Inputs
imagean object


Outputs
image'an object


Definition
USING: accessors kernel math.vectors ;

IN: terrain.generation

: segment-mipmap ( image -- image' )
[ clone ] [ bitmap>> ] [ dim>> ] tri group-pixels
[ 4max ] mipmap concat-pixels >>bitmap [ 2 v/n ] change-dim
;