summaryrefslogtreecommitdiff
path: root/doc/images/polyline2.svg.scm
blob: f0af31af40d529a1d05b75cbdea849b3ad84b4ff (about) (plain)
1
2
3
4
5
6
7
8
(import (srfi srfi-1)) ; for iota and list-tabulate

(polyline
 (map cons
      (iota 100 0 10)
      (list-tabulate 100
                     (lambda (n)
                       (+ 100 (* n (expt -1 n)))))))