[1] [CITE@ja[500色の色鉛筆の色の名前カオスすぎwwwwワロタwwwww:ハムスター速報]]
([TIME[2009-11-24 22:21:51 +09:00]] 版)
<http://hamusoku.com/archives/1258703.html>

[2]
[PRE(perl code)[
sub scale_rgb ($$$$$) {
  my ($val1 => $val2, $color1 => $color2, $value) = @_;
  my $r = [];
  $r->[$_] = $color1->[$_] + ($color2->[$_] - $color1->[$_]) * ($value - $val1)
/ ($val2 - $val1 or 1) for 0..2;
  return $r;
} # scale_rgb
]PRE]