PasteRack.org
Paste # 32741
2017-06-23 04:12:57

Fork as a new paste.

Paste viewed 38 times.


Embed:

Draw a bot

  1. #lang racket
  2. (require 2htdp/image)
  3.  
  4. {overlay (rectangle 15 20 "solid" "black")
  5. ;background
  6.             {overlay (square 10 "solid" "green")
  7. ;Head
  8.                           {beside (square 2 "solid" "white")
  9. ;Left eye
  10.                                   (square 2 "solid" "green")
  11. ;space
  12.                                   (square 2 "solid" "white")
  13. ;Right eye
  14. }
  15.                                {above (rectangle 1 0 "solid" "black")
  16. ;Nose
  17.                                       (rectangle 5 2 "solid" "white")
  18. ;Mouth
  19. }}
  20.             {above (square 4 "solid" "green")
  21. ;Neck
  22.                            {overlay (rectangle 10 20 "solid" "green")
  23. ;Body
  24.                                     (text "BOT" 5 "black")
  25. ;Text
  26. }}}

=>

image