;;AUTOR: Manuel Cardona
;FECHA:02/08/2020
;PROPOSITO: Realizar un dibujo libre en racket

(start 800 800)
;;TITULO
(draw-solid-string (make-posn 10 30) "HACE AÑOS QUE OCURRIÓ")
(draw-solid-string (make-posn 20 55) "https://youtu.be/S6YV3pg5ASg")
;;CABEZA
(draw-solid-rect (make-posn 300 200) 180 200 'purple)
(draw-solid-rect (make-posn 320 180) 140 240 'purple)

;;OJOS:

;OJO IZQUIERDO
(draw-solid-rect (make-posn 315 278) 18 35 'white)
(draw-solid-rect (make-posn 335 289) 30 24 'black)
;OJO DERECHO
(draw-solid-rect (make-posn 390 278) 18 35 'white)
(draw-solid-rect (make-posn 410 289) 30 24 'black)

;BOCA (sho te amo)
(draw-solid-rect (make-posn 315 350) 150 10 'black)
(draw-solid-rect (make-posn 325 350) 130 50 'black)

;CUELLO
(draw-solid-rect (make-posn 470 370) 45 70 'purple)
(draw-solid-rect (make-posn 495 410) 60 60 'purple)
;PECHO
(draw-solid-rect (make-posn 485 460) 150 250 'purple)
(draw-solid-rect (make-posn 510 500) 150 200 'purple)
(draw-solid-rect (make-posn 450 550) 100 120 'purple)
;;BOLSILLO (la wea naranja)
(draw-solid-rect (make-posn 495 500) 70 30 'orange)
(draw-solid-rect (make-posn 505 500) 50 70 'orange)
;BRAZO
(draw-solid-rect (make-posn 400 620) 70 70 'purple)
(draw-solid-rect (make-posn 360 650) 70 70 'purple)
(draw-solid-rect (make-posn 220 670) 150 45 'purple)
;MANO
(draw-solid-rect (make-posn 200 630) 20 70 'purple)
(draw-solid-rect (make-posn 215 630) 30 30 'purple)
(draw-solid-rect (make-posn 215 630) 30 30 'purple)
(draw-solid-rect (make-posn 180 655) 35 30 'purple)
(draw-solid-rect (make-posn 145 670) 40 30 'purple)
(draw-solid-rect (make-posn 110 683) 40 30 'purple)
(draw-solid-rect (make-posn 80 670) 40 30 'purple)