SDL::Tool::Graphic::zoom - Will nicht.... (Allgemeines zu Perl)

[thread]8581[/thread]

SDL::Tool::Graphic::zoom - Will nicht....

jlorek

2006-12-14 01:20

User since
2006-12-14
2 Artikel
BenutzerIn

Hi!
Ich habe folgenden kleinen Code:

Code: (dl )

use strict;
use SDL;
use SDL::App;
use SDL::Event;
use SDL::TTFont;
use SDL::Color;
use SDL::Tool::Graphic;

my $app = SDL::App->new(
                            -title  => 'myTE -> Developing...',
                            -width  => 800,
                            -height => 600,
                            -depth  => 16,
                            -flags  => SDL_DOUBLEBUF | SDL_HWSURFACE | SDL_HWACCEL,
                           );

my $back = SDL::Surface->new( -name => 'c.jpg' );

SDL::Tool::Graphic::zoom($back, 1, 1, 1);

$back->blit(0, $app, 0);

while (1) {
$app->sync();
$app->delay(100);
}

Nur bekomme ich beim Ausführen den Fehler:

Code: (dl )

1
2
3

SDL_Init 65535
ALSA lib pcm_dmix.c:819:(snd_pcm_dmix_open) unable to open slave
SDL::Tool::Graphic::zoom requires an SDL::Surface

Jetzt hab ich aber das Problem, dass $back 100%ig eine Surface ist :)
Wo liegt also der Fehler?
MFG jlorek

PerlProfi

2006-12-14 15:30

User since
2006-11-29
340 Artikel
BenutzerIn
[default_avatar]

Aber SDL::Tool::Graphic::zoom braucht auch noch ein Objekt:

Code: (dl )

1
2

sub zoom {
    my ( $self, $surface, $zoomx, $zoomy, $smooth) = @_;

In deinem Fall könntest du es einfach so schreiben:

Code: (dl )

SDL::Tool::Graphic->new()->zoom($back, 1, 1, 1);

edit: nicht getestet!

MfG PerlProfi\n\n

jlorek

2006-12-14 15:35

User since
2006-12-14
2 Artikel
BenutzerIn

Habs jetzt einfach mit:

Code: (dl )

SDL::Tool::Graphic::zoom(undef, $back, 1, 1, 1);

gemacht.
Danke!
MFG jlorek

PerlProfi

2006-12-14 15:44

User since
2006-11-29
340 Artikel
BenutzerIn
[default_avatar]

Da das Objekt sowieso keine Aufgabe hat, in dem Modul, geht es natürlich auch so, aber wenn du öfter mal Funktionen daraus verwendest, lohnt es sich ein Objekt zu erstellen, und die Methoden objektorientiert aufzurufen.

Nicht nur, weil du dann weniger schreiben musst, es sieht auch noch besser aus(finde ich).

MfG PerlProfi

View all threads created 2006-12-14 01:20.