Skip to content

Instantly share code, notes, and snippets.

@rramsden

rramsden/gist:932627

Created April 20, 2011 20:17
Show Gist options
  • Save rramsden/932627 to your computer and use it in GitHub Desktop.
Save rramsden/932627 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.sls
(define HEIGHT 600)
(start WIDTH HEIGHT)
; post
(draw-solid-line (make-posn 0 10) (make-posn (/ WIDTH 2) 10) 'black)
(draw-solid-line (make-posn (/ WIDTH 2) 10) (make-posn (/ WIDTH 2) 50) 'black)
(define draw-head
(and (draw-circle (make-posn (/ WIDTH 2) 80) 30 'red)
(draw-solid-line (make-posn (/ WIDTH 2) 50) (make-posn (/ WIDTH 2) 60) 'black)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment