Programação Funcional e Concorrente com Scheme

notas de aula - Jerônimo C. Pellegrini
O formato para armazenar as imagens será o Netpbm, descrito no Apêndice A. O
procedimento write-pbm recebe uma imagem e uma porta de saída, e grava a imagem no
formato Netpbm.
No formato PBM a origem fica no canto superior esquerdo da imagem e a coordenada
(x, y) representa a posição x pontos à direita e y pontos abaixo da origem:
y
x
Preto e branco são representados respectivamente por um e zero, então devemos dar
nomes a estas cores para que nosso programa fique compreensível.
( define black 1)
( define white 0)
Uma imagem no formato PBM inicia com uma linha onde há apenas os caracteres
P1, outra linha com o número de colunas e linhas da imagem, e em seguida os números
representando os pixels, uma linha por vez.
( define write-pbm-1
( lambda (m out )
( display "P1" out )
( newline out )
( write-matrix m out )))
O procedimento make-image será idêntico a make-matrix.
( define make-image make-matrix )
( define image-rows matrix-rows )
( define image-cols matrix-cols )
O ponto (0, 0) da imagem representa o canto superior esquerdo. (image-set! img i j c)
Modificará a cor do pixel (i, j) para c, sendo que i cresce da origem para baixo, e j cresce
Versão Preliminar
para a direita.
( define image-set ! matrix-set !)
( define image-ref matrix-ref )
120
[ 27 de outubro de 2010 at 15:47 ]