View/Edit #9356!h2o.msp

<% $www.error:ok("Content-type: image/svg+xml"); %>
<?xml version="1.0"?>

<%

doc = $svg:new();

atoms = doc:new_group({{"style", "stroke: black; stroke-width: 0.05cm"}});

hydrogen = atoms:new_group({{"style", "fill: red"}});
h1 = hydrogen:new_circle({{"r", "1cm"}, {"cx", "2cm"}, {"cy", "2cm"}});
h2 = hydrogen:new_circle({{"r", "1cm"}, {"cx", "12cm"}, {"cy", "2cm"}});

oxygen = atoms:new_group({{"style", "fill: blue"}});
o = oxygen:new_circle({{"r", "2cm"}, {"cx", "7cm"}, {"cy", "6cm"}});

text = doc:new_group({{"style", "font-family: arial; font-size: medium; fill: black"}});

h1text = text:new_text({{"x", "2cm"}, {"y", "2cm"}});
h1text.children = {"H"};

h2text = text:new_text({{"x", "12cm"}, {"y", "2cm"}});
h2text.children = {"H"};

%>
<%=doc:dump()%>