Help for this page

Select Code to Download

Select or download this

my @map=(
    sub{(         0,             0,   $_[0] * 255 )},
...
    ($a[1]<<4 ) |
    ($a[0]    ) ;
};