patterning.view — com.alchemyislands/patterning 0.6.0

inner-xml-tpl clj/s

(inner-xml-tpl txpt width height group)

make-svg clj/s

(make-svg width height group)

(make-svg viewport window width height group)

make-txpt clj/s

(make-txpt [vx1 vy1 vx2 vy2] [wx1 wy1 wx2 wy2])

first argument is viewport (left, top, right, bottom), second is window (left, top, right, bottom) returns a mapping function from viewport to window

project-points clj/s

(project-points txpt points)

(project-points viewport window points)

sshape-to-SVG-path clj/s

(sshape-to-SVG-path txpt sshape)

transformed-sshape clj/s

(transformed-sshape txpt {:keys [style points]})

xml-tpl clj/s

(xml-tpl txpt width height group)

svg 'template' which also flips the coordinate system via http://www.braveclojure.com/organization/