Skip to content

Instantly share code, notes, and snippets.

@rdsr

rdsr/segments_painter.ss

Created November 16, 2010 05:09
Download ZIP

Revisions

  1. rdsr created this gist Nov 16, 2010.
    8 changes: 8 additions & 0 deletions segments_painter.ss
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,8 @@
    (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)))