Skip to content

Instantly share code, notes, and snippets.

@rdsr

rdsr/draw_line.ss

Created November 16, 2010 05:12
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 rdsr/701463 to your computer and use it in GitHub Desktop.
Save rdsr/701463 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
draw_line.ss
(define image (line 0 0 'white))
(define (draw-line v1 v2)
(set! image
(add-line image
(xcor-vect v1) ; x-coordinate ...etc
(ycor-vect v1)
(xcor-vect v2)
(ycor-vect v2)
'black)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment