Programação Funcional e Concorrente com Scheme

notas de aula -
Jerônimo C. Pellegrini
Criaremos uma imagem 200×200 quadriculada; os quadrados terao 10 pixels de lado.
Para um pixel (x, y), os números ⌊ x 10 ⌋ e ⌊ y 10⌋ descrevem os valores de x e y correspondentes
ao canto superior esquerdo do quadrado 10×10 onde o ponto se encontra.
Plotaremos cada ponto somente quando as paridades destes dois números forem diferentes.
Usaremos para isto um ou exclusivo, que não existe em Scheme padrão mas cuja
implementação é extremamente simples:
( define xor
( lambda (a b)
( not ( eqv a b ))))
O predicado even-odd-square determina se um ponto está em um quadrado que
deve ser plotado.
( define even-odd-square
( lambda (i j)
( define f
( lambda (x)
( even ( quotient x 10))))
( xor (f i) (f j ))))
Criaremos um procedimento for-each-pixel! que recebe como argumentos uma
imagem e um procedimento que determina se um ponto deve ser plotado, e modifica os
pixels da imagem dependendo do resultado da aplpicação do procedimento sobre cada
pixel.
( define for-each-pixel !
( lambda ( img pred )
( let ((h ( image-rows img ))
(w ( image-cols img )))
(do ((i 0 (+ i 1)))
((= i h))
(do ((j 0 (+ j 1)))
((= j w))
(if ( pred i j)
( image-set ! img i j white )
( image-set ! img i j black )))))))
Versão Preliminar
Finalmente, draw-image recebe a imagem e um nome de arquivo e grava a imagem
naquele arquivo:
[ 27 de outubro de 2010 at 15:47 ]
121