← Back to branch summary

~hypedyn-team/hypedyn/2.3-experimental

« back to all changes in this revision

Viewing changes to src/hypedyn/node-graphview.scm

  • Committer: Benedict Lee
  • Date: 2014-07-24 09:46:28 UTC
  • Revision ID: benedictleejh@gmail.com-20140724094628-uch76sagg2ya3ouo
Add draw-arc procedure (untested)

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/hypedyn/node-graphview.scm
204
204
                                   ((not (pair? x)) (list x))
205
205
                                   (else (append (flatten (car x))
206
206
                                                 (flatten (cdr x))))))
207
 
                         ; renamed from http://www.dzone.com/snippets/mapi-similar-standard-map
208
207
                         (map-with-index (lambda (line i)
209
208
                                             (drawtext dc
210
209
                                                       (- x (* (/ width 2.0) 0.9))