$cmap{$cmapname}[0];
}
-sub xpm_cmap_entry($$) {
+sub xpm_cmap_entry ($$$) {
my ($cmapname,$pixchars,$rhs) = @_;
die if exists $cmap{$cmapname}{$pixchars};
$cmap{$cmapname}{$pixchars}= $rhs;
my ($pixchars, @rgb);
die if @l % 4;
while (@l) {
- ($pixchars, @rgb)= @l[0..3]; @l = @l[4..];
+ ($pixchars, @rgb)= @l[0..3]; @l = @l[4..$#l];
xpm_cmap_entry($cmapname, $pixchars,
sprintf("c #%04x%04x%04x",
- map { floor($_ * 65535.0 + 0.5) }
- @rgv));
+ map { floor($_ * 65535.0 + 0.5) } @rgb));
}
}
sub xpm_cmap_angular($$$@) {
my ($cmapname, $invert, $alpha, @basergb) = @_;
- my ($angnum,$angval);
+ my ($angnum,$angval,@permil,@angrgb,$i);
for ($angnum=0; $angnum<(1<<$datum_numbits{Angle}); $angnum++) {
$angval= 6.0 * ($angnum+0.0) / 1<<$datum_numbits{Angle};
$angval += 3.0 if $invert;
}
sub cmaps_define () {
+ my ($inv,$ondet);
+
xpm_cmap("background","background");
xpm_cmap_rgbpermil("background",qw(- 100 100 100
+ 999 0 999
#---------- output ----------
sub cmapdata_output_all () {
- my ($cmapname, $stuff);
+ my ($cmapname, $stuff, $cmap, $sname, $pixchars);
foreach $cmapname (keys %cmap) {
$stuff= [ ];
$cmap= $cmap{$cmapname};
sub xpmdata_output_all () {
my ($style, $namerhs, $xp, $row, $pp, $xy, $pixel);
- foreach $namerhs (sort keys %{ $xpmdata{$style} }) {
- foreach $style (sort keys %xpmdata) {
+ my ($y, $cmap_data, $header_data, $cmapname);
+ foreach $style (sort keys %xpmdata) {
+ foreach $namerhs (sort keys %{ $xpmdata{$style} }) {
$xp= $xpmdata{$style}{$namerhs};
die "$pp ?" if $xp->{X}{Max} >= 642;
$header_data= "";