… | |
… | |
262 | } |
262 | } |
263 | } |
263 | } |
264 | |
264 | |
265 | my $map_pb = new Gtk2::Gdk::Pixbuf "rgb", 1, 8, $mapx * T, $mapy * T |
265 | my $map_pb = new Gtk2::Gdk::Pixbuf "rgb", 1, 8, $mapx * T, $mapy * T |
266 | or die; |
266 | or die; |
267 | $map_pb->fill (0x00000000); |
267 | $map_pb->fill (0xffffff00); |
268 | |
268 | |
269 | # second pass, render all the stuff |
269 | # second pass, render all the stuff |
270 | for my $level (sort { $a <=> $b } keys %draw_info) { |
270 | for my $level (sort { $a <=> $b } keys %draw_info) { |
271 | my $v = $draw_info{$level}; |
271 | my $v = $draw_info{$level}; |
272 | while (my ($sface, $info) = each %$v) { |
272 | while (my ($sface, $info) = each %$v) { |