Столбиковая диаграмма

Исходный текст "Cтолбиковая диаграмма"

# =========================================================================
# Illustrates how LuaGML can be used for high quality graphs.
#
# @author vincent.hardy@eng.sun.com
# @author neeme.praks@one.lv
# @version $Id: barChart.svg,v 1.9 2004/08/18 07:11:36 vhardy Exp $
# =========================================================================

gml [ w 450 h 500
    title "Bar Chart"

    g [ id "barChart"
	transform "translate(40, 100)"
	fill-rule "evenodd" clip-rule "evenodd" stroke "none" class "legend"
        stroke-width 1 stroke-linecap "round" stroke-linejoin "round"
	stroke-miterlimit 10 style "text-anchor 'start'"

	g [ id "GridAndLegend" style "stroke 'none'"
            g [ stroke "black"

#		-- "floor" and "wall" --
		path [ fill "lightgray" stroke "darkgray" d "M 27,240 l   15,-15 v -224 l -15,15" ]
		path [ fill "lightgray" stroke "darkgray" d "M 41,225 v -224     h  316 v 224" ]
		path [ fill "darkgray" stroke "none"      d "M 27,240 l   15,-15 h  316 l -15,15" ]

#		-- axis lines --
		path [ d "M 27,240 h  316"]
		path [ d "M 27,240 v -224"]

#		-- value axis major gridlines --
		g [ style "fill 'none'"
		    path [ d "M 27,202 l 15,-15 h 316" ]
		    path [ d "M 27,165 l 15,-15 h 316" ]
		    path [ d "M 27,127 l 15,-15 h 316" ]
		    path [ d "M 27, 90 l 15,-15 h 316" ]
		    path [ d "M 27, 53 l 15,-15 h 316" ]
		]

#		-- category axis major ticks --
		path [ d "M  27,245 v -5"]
		path [ d "M 106,245 v -5"]
		path [ d "M 185,245 v -5"]
		path [ d "M 264,245 v -5"]

#		-- value axis minor ticks --
		path [ d "M 22,240 h 5"]
		path [ d "M 22,202 h 5"]
		path [ d "M 22,165 h 5"]
		path [ d "M 22,127 h 5"]
		path [ d "M 22, 90 h 5"]
		path [ d "M 22, 53 h 5"]
		path [ d "M 22, 15 h 5"]
            ]

	    text [ transform "matrix(1 0 0 1 54  256)" str "Shoe"]
	    text [ transform "matrix(1 0 0 1 142 256)" str "Car"]
	    text [ transform "matrix(1 0 0 1 211 256)" str "Travel"]
	    text [ transform "matrix(1 0 0 1 285 256)" str "Computer"]

	    text [ transform "matrix(1 0 0 1 13 247)" str "0" ]
	    text [ transform "matrix(1 0 0 1  6 209)" str "10" ]
	    text [ transform "matrix(1 0 0 1  6 171)" str "20" ]
	    text [ transform "matrix(1 0 0 1  6 134)" str "30" ]
	    text [ transform "matrix(1 0 0 1  6  96)" str "40" ]
	    text [ transform "matrix(1 0 0 1  6  60)" str "50" ]
	    text [ transform "matrix(1 0 0 1  6  22)" str "60" ]
	]

	g [ id "ShoeBar"
	    path [ fill "#8686E0" d "M  86,240 v  -37 l 15    -15 v  37 l -15,15 z"]
	    path [ fill "#5B5B97" d "M  86,203 h  -39 l 15    -15 h  39 l -15,15 z"]
	    path [ fill "#7575C3" d "M  47,203 v   37 h 39 v  -37 H  47 z"]
	]
	g [ id "CarBar"
	    path [ fill "#8686E0" d "M 165,240 v  -74 l 15    -15 v  74 l -15,15 z"]
	    path [ fill "#5B5B97" d "M 165,166 h  -39 l 15    -15 h  39 l -15,15 z"]
	    path [ fill "#7575C3" d "M 126,166 v   74 h 39 v  -74 h -39 z"]
	]
	g [ id "TravelBar"
	    path [ fill "#8686E0" d "M 244,240 v  -37 l 15    -15 v  37 l -15,15 z"]
	    path [ fill "#5B5B97" d "M 244,203 h  -39 l 15    -15 h  39 l -15,15 z"]
	    path [ fill "#7575C3" d "M 205,203 v   37 h 39 v  -37 h -39 z"]
	]
	g [ id "ComputerBar"
	    path [ fill "#8686E0" d "M 323,240 v -224 l 15    -15 v 224 l -15,15 z"]
	    path [ fill "#5B5B97" d "M 323, 16 h  -39 l 15    -15 h  39 l -15,15 z"]
	    path [ fill "#7575C3" d "M 284, 16 v  224 h 39 v -224 h -39 z"]
	]
    ]
]