PasteRack.org
Paste # 16076
2017-06-23 04:24:14

Fork as a new paste.

Paste viewed 38 times.


Embed:

Draw a bot

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

=>

image