Cardona1204

Untitled

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