Programação Funcional e Concorrente com Scheme

notas de aula -
Jerônimo C. Pellegrini
( result ""))
(if ( null points )
result
( next-point ( cddr points )
( string-append result
( car points ) ","
( cadr points ) " " ))))))
(list-of-points 23 25 10 20 50 60)
”23,25 10,20 50,60 ”
Finalmente, o procedimento make-svg-triangle recebe três pontos, cores para borda
e interior, a largura da borda e retorna a representação do triângulo.
( define make-svg-triangle
( lambda (x1 y1
x2 y2
x3 y3
stroke fill stroke-width )
( cons ’ polygon
( make-attr-list ’fill fill
’stroke
stroke
’ stroke-width stroke-width
’points ( list-of-points x1 y1
x2 y2
x3 y3 )))))
( make-svg-triangle 10 20
100 200
1000 2000
" red " " blue " 4)
Versão Preliminar
(polygon fill ”blue”
stroke ”red”
stroke-width ”4”
points ”10,20 100,200 1000,2000 ”)
Uma imagem SVG é uma tag XML svg, com atributos version e xmlns, contendo as
tags que descrevem figuras em seu interior.
74
[ 27 de outubro de 2010 at 15:47 ]