Skip to content

Instantly share code, notes, and snippets.

@rdsr

rdsr/segments_painter.ss

Created November 16, 2010 05:09
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/701458 to your computer and use it in GitHub Desktop.
Save rdsr/701458 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
segments_painter.ss
(define (segments->painter segment-list)
(lambda (frame)
(for-each
(lambda (segment)
(draw-line
((frame-coord-map frame) (start-segment segment))
((frame-coord-map frame) (end-segment segment))))
segment-list)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment