[Cascavel-pm] mapeando pixels numa imagem

[Nelson C. T. Ferraz]

> Eu gostaria de saber se é possível scannear a figura
> num formato que Perl possa checar as coodernadas
> utilizadas e criar instruções como o exemplo acima
> para os pontos encontrados.

Você poderia simplesmente listar os pontos da figura em um arquivo-texto:

1,1
2,3
4,0
etc.

E usar Perl para gerar o programa em C:

my ($x1,$y1,$x2,$y2);
while (<>) {
   chomp;
   ($x1,$y1) = split(",",$_);
   print "line ($x1,$y1,$x2,$y2);\n";
   ($x2,$y2) = ($x1,$y1);
}

[]s

Nelson