Programação Funcional e Concorrente com Scheme

notas de aula -
Jerônimo C. Pellegrini
Definiremos procedimentos para criar linhas e triângulos em SVG, representando-os
como S-expressões. O procedimento make-svg-line aceita dois pontos, duas cores (a do
inteiror e do traçado) e um número, que dá a largura do traçado.
( define make-svg-line
( lambda (x1 y1 x2 y2 stroke fill stroke-width )
( cons ’line
( make-attr-list ’x1 x1
’y1 y1
’x2 x2
’y2 y2
’fill fill
’stroke stroke
’ stroke-width stroke-width ))))
(define line (make-svg-line 2 3 10 20 "bluered"5))
line
(line x1 ”2” y1 ”3”
x2 ”10” y2 ”20”
fill ”red”
stroke ”blue”
stroke-width ”5”)
(xml-write-tag line)
Versão Preliminar
O formato SVG não define triângulo como forma básica, por isso o construiremos
como um polígono. Ao descrever um polígono em SVG, precisamos incluir um atributo
points, que contém uma lista de pontos na forma "x1,y1 x2,y2, .... Usaremos um
procedimento que recebe uma lista de números representando pontos e retorna uma
string com a lista de pontos.
( define list-of-points
( lambda args
( let next-point (( points ( map number- > string args ))
[ 27 de outubro de 2010 at 15:47 ]
73