Skip to content

Instantly share code, notes, and snippets.

@rdsr
Created November 16, 2010 05:09
Show Gist options
  • Save rdsr/701458 to your computer and use it in GitHub Desktop.
Save rdsr/701458 to your computer and use it in GitHub Desktop.
(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