Animação com Perl e SDL

animation-1

Este é um exemplo bem simples de uma rotina de animação utilizando a biblioteca SDL em Perl. Mas por que justamente em Perl? Fácil, já tinha um rascunho pronto e, se um dia tiver paciência, uso este código como referência para fazer em Python ou mesmo em Ruby.

Dependências

São necessários Perl, SDL e o módulo que faz a interface entre linguagem e biblioteca. Em distribuições como Debian e Ubuntu basta usar:

$ sudo apt-get install libsdl-perl

Nas baseadas em RedHat:

$ sudo yum install perl-SDL

O resto ficará com o gerenciador de pacotes.

Gráficos

Criei duas ilustrações especificamente para este programa, a primeira serve como fundo:

animation_grid

Salve a versão original da imagem (em 640×480) com o nome de “animation_grid.png”

A outra, é a sequência da animação da espaçonave/hélice/estrela:

animation_stars

Assim como no fundo, use a versão original (384×64) com o nome de “animation_stars.png”)

Fique a vontade para trocá-las se desejar! Sim, sei que posso rotacionar direto com SDL mas eu queria produzir uma animação de vários quadros.

Código

E, para terminar, o programa propriamente dito:

Basta salvá-lo junto com as imagens e executá-lo:

$ perl animation.pl

O resultado será algo mais ou menos assim:

Pressione qualquer tecla para sair (não está muito explícito no código) e boa diversão! 🙂

Anúncios

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s