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

GENERIC: >svg ( object -- string )

M: line >svg
    [ <line> ] undo
    [XML
        <line x1=<-> y1=<-> x2=<-> y2=<->/>
    XML] ;