Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: b48876c832
Fetching contributors…

Cannot retrieve contributors at this time

50 lines (27 sloc) 0.948 kb
<html>
<head><script src="bootLeisure.js"></script>
<link href='http://fonts.googleapis.com/css?family=Audiowide' rel='stylesheet' type='text/css'></head>
<body leisureCode class="thin">
#@auto
do
require 'maps'
require 'svg'
(svgMeasureText 'hello' '') \w h . [w h]
cons a
circle nil
translate (circle nil) 10 10
svgMeasureNodes [(circle nil)] \x y w h . concat ['x: ' x ', y: ' y ', w: ' w ', h: ' h]
rect nil
text 'foopy' defaultCircleMap
polygon nil
svgMap = hashFromList [ 'width' 200 'height' 100 ]
#hello
svg (circle nil) svgMap
svg (rect nil) svgMap
svg (text 'testing SVG' nil) svgMap
decorateText = hashFromList [ 'x' 0 'y' 80 'stroke' 'black' 'stroke-width' 2 'fill' 'blue' 'font-family' 'Impact' 'font-size' 40 ]
svg (text 'testing SVG' decorateText) svgMap
svg (polygon nil) (mergeHash (hashFromList [ 'width' 500 'height' 350 ]) svgMap)
#@test {"expr":"cons 'a' nil\n","result":"[a]"}
</body>
</html>
Jump to Line
Something went wrong with that request. Please try again.