TUPLE: line x1 y1 x2 y2 ;
C: <line> line

GENERIC: >svg ( object -- string )

M: line >svg
    <mirror> unzip
    [ number>string "\"" dup surround "=" glue ] 2map
    " " join "<line " "/>" surround ;