Cardona1204

Untitled

Aug 2nd, 2020
99
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Scheme 1.59 KB | None | 0 0
  1. (start 800 800)
  2. (draw-solid-string (make-posn 10 30) "HACE AÑOS QUE OCURRIÓ")
  3. (draw-solid-string (make-posn 20 55) "https://youtu.be/S6YV3pg5ASg")
  4. ;;CABEZA
  5. (draw-solid-rect (make-posn 300 200) 180 200 'purple)
  6. (draw-solid-rect (make-posn 320 180) 140 240 'purple)
  7.  
  8. ;;OJOS:
  9.  
  10. ;OJO IZQUIERDO
  11. (draw-solid-rect (make-posn 315 278) 18 35 'white)
  12. (draw-solid-rect (make-posn 335 289) 30 24 'black)
  13. ;OJO DERECHO
  14. (draw-solid-rect (make-posn 390 278) 18 35 'white)
  15. (draw-solid-rect (make-posn 410 289) 30 24 'black)
  16.  
  17. ;BOCA (sho te amo)
  18. (draw-solid-rect (make-posn 315 350) 150 10 'black)
  19. (draw-solid-rect (make-posn 325 350) 130 50 'black)
  20.  
  21. ;CUELLO
  22. (draw-solid-rect (make-posn 470 370) 45 70 'purple)
  23. (draw-solid-rect (make-posn 495 410) 60 60 'purple)
  24. ;PECHO
  25. (draw-solid-rect (make-posn 485 460) 150 250 'purple)
  26. (draw-solid-rect (make-posn 510 500) 150 200 'purple)
  27. (draw-solid-rect (make-posn 450 550) 100 120 'purple)
  28. ;;BOLSILLO (la wea naranja)
  29. (draw-solid-rect (make-posn 495 500) 70 30 'orange)
  30. (draw-solid-rect (make-posn 505 500) 50 70 'orange)
  31. ;BRAZO
  32. (draw-solid-rect (make-posn 400 620) 70 70 'purple)
  33. (draw-solid-rect (make-posn 360 650) 70 70 'purple)
  34. (draw-solid-rect (make-posn 220 670) 150 45 'purple)
  35. ;MANO
  36. (draw-solid-rect (make-posn 200 630) 20 70 'purple)
  37. (draw-solid-rect (make-posn 215 630) 30 30 'purple)
  38. (draw-solid-rect (make-posn 215 630) 30 30 'purple)
  39. (draw-solid-rect (make-posn 180 655) 35 30 'purple)
  40. (draw-solid-rect (make-posn 145 670) 40 30 'purple)
  41. (draw-solid-rect (make-posn 110 683) 40 30 'purple)
  42. (draw-solid-rect (make-posn 80 670) 40 30 'purple)
  43.  
  44.  
  45.  
  46.  
Add Comment
Please, Sign In to add comment