lib/randbg.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

# randbg
#
# generates a background color within 0x0F of a given hex value.
#
#       $bgcolor = randbg(0xfff);
#             returns [#f0f0f0, #ffffff]
#       $bgcolor = randbg(0x000);
#             returns [#000000, #0f0f0f]
#       $bgcolor = randbg(0x04d);
#             returns [#0040d0, #0f4fdf]

sub randbg {
        my $base = shift;
        my $i = sprintf '%06x' ,
                 ((0xf00 & $base) * 0x100000 + (int rand 0x10) * 0x010000
                + (0x0f0 & $base) * 0x001000 + (int rand 0x10) * 0x000100
                + (0x00f & $base) * 0x000010 + (int rand 0x10) * 0x000001);
        return $i;
}

# randbg (0xfff);
# randbg (0x000);
# randbg (0x04d);

1;