paeth ( a b c -- p )

Vocabulary

images.png

Inputs

a	an object
b	an object
c	an object

Outputs

p

an object

Definition

USING: arrays kernel math sequences sorting ;

IN: images.png

:: paeth ( a b c -- p )
    a b + c - { a b c } [ [ - abs ] keep 2array ] with map
    sort-keys first second ;