Figura canvas en [Scheme - DrRacket]

Enunciado: crear una imagen en canvas del rostro de un payaso, 2 ojos una boca y una nariz roja usando solo draw-circle y draw-solid-rect.

Para este ejemplo se uso figuras básicas, para que se entienda mas fácilmente el sistema de coordenadas y figuras y así pasar a ejemplos mas complejos

toma de pantalla de codigo

; ===========================================================================
(define alto 400)
(define ancho 400)

(start ancho alto)
(draw-circle (make-posn 100 100) 5 'red)
(draw-circle (make-posn 100 100) 10 'red)
(draw-circle (make-posn 100 100) 15 'red)
(draw-circle (make-posn 100 100) 20 'red)

(draw-solid-disk (make-posn 200 200) 50 'red)

(draw-circle (make-posn 300 100) 5 'red)
(draw-circle (make-posn 300 100) 10 'red)
(draw-circle (make-posn 300 100) 15 'red)
(draw-circle (make-posn 300 100) 20 'red)


(draw-solid-rect (make-posn 150 300) 100 20 'red)

(draw-solid-line (make-posn 100 70)(make-posn 100 60)'red)
(draw-solid-line (make-posn 90 70)(make-posn 90 60)'red)
(draw-solid-line (make-posn 110 70)(make-posn 110 60)'red)

(draw-solid-line (make-posn 290 70)(make-posn 290 60)'red)
(draw-solid-line (make-posn 300 70)(make-posn 300 60)'red)
(draw-solid-line (make-posn 310 70)(make-posn 310 60)'red)

; ===========================================================================