… | |
… | |
505 | glNewList ($self->{list} ||= glGenList); |
505 | glNewList ($self->{list} ||= glGenList); |
506 | |
506 | |
507 | glPushMatrix; |
507 | glPushMatrix; |
508 | glTranslate $sx0, $sy0; |
508 | glTranslate $sx0, $sy0; |
509 | glScale $::CFG->{map_scale}, $::CFG->{map_scale}; |
509 | glScale $::CFG->{map_scale}, $::CFG->{map_scale}; |
510 | glTranslate $self->{sdx}, $self->{sdy}; |
510 | glTranslate DC::ceil $self->{sdx}, DC::ceil $self->{sdy}; |
511 | |
511 | |
512 | $::MAP->draw ($dx, $dy, $sw, $sh, |
512 | $::MAP->draw ($dx, $dy, $sw, $sh, |
513 | $self->{tilesize}, |
513 | $self->{tilesize}, |
514 | $::CONN->{player}{tag}, |
514 | $::CONN->{player}{tag}, |
515 | -$self->{sdx}, -$self->{sdy}); |
515 | -$self->{sdx}, -$self->{sdy}); |