7.7
7 Line
(require simple-svg) | package: simple-svg |
procedure
(svg-def-line start_point end_point) → string?
start_point : (cons/c natural? natural?) end_point : (cons/c natural? natural?)
define a line by start point and end point.
7.1 line
(let ([line (svg-def-line '(0 . 0) '(100 . 100))] [_sstyle (sstyle-new)]) (sstyle-set! _sstyle 'stroke-width 10) (sstyle-set! _sstyle 'stroke "#765373") (svg-use-shape line _sstyle #:at? '(5 . 5)) (svg-show-default))