Skip to content

Instantly share code, notes, and snippets.

@sleepomeno
Last active September 13, 2015 19:23
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save sleepomeno/f8f0af59b19324166619 to your computer and use it in GitHub Desktop.
Save sleepomeno/f8f0af59b19324166619 to your computer and use it in GitHub Desktop.
Draw a Tennis Court in Racket (in lang #slideshow)
let* ([color "blue"]
[blue (lambda (pict) (colorize pict color))]
[double (blue (filled-rectangle 203 30))]
[base (blue (filled-rectangle 90 133))]
[margin 3]
[doubles (hc-append margin double double)]
[service (blue (filled-rectangle 110 65))]
[services (vc-append margin service service)]
[middle1 (hc-append margin base services)]
[middle2 (hc-append margin services base)]
[middles (hc-append margin middle1 middle2)])
(frame (frame (vc-append margin doubles middles doubles) #:color "white" #:line-width 18) #:color color #:line-width 12))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment