Количество населения по полу (круговая с вращением)

1. Имя файла: gpol.gml

gml [ color "lightgray"
    pixmap {
	i = 15
	return( PMAPS.."purple_marble.png")
    }
    grid [ color "pink"]
    font [ name "Serif" style "italic" size 16
	text [ str "КОЛИЧЕСТВО НАСЕЛЕНИЯ ПО ПОЛУ" x 0 y 15 color "red"]
	text [ str "на  13.02.06" x 320 y 15 ]
	text [ str "Участок   " x 450 y 15 ]
	text [ x 5 y 290 color "blue"
	    str {
		cal = luajava.bindClass( "java.util.Calendar"):getInstance()
		return( string.format( "%s:%s:%s %s.%s.%s",
			cal:get( cal.HOUR_OF_DAY), cal:get( cal.MINUTE), cal:get( cal.SECOND),
			cal:get( cal.DAY_OF_MONTH), cal:get( cal.MONTH), cal:get( cal.YEAR)))
	    }
	]
	brush [ pixmap { return( PMAPS.."purple_marble.png") }
	    translate [ x 360 y 155
		thread [ name "first" sleep 1000
		    fillrect [ x -170 y -85 w 340 h 175 ]
		    grid [ x -170 y -85 w 340 h 175 color "pink"]
		    scale [ sy 0.5
			blend [ alpha 0.5
			    fillarc [ x -150 y -120 w 300 h 300
				start {
				    i = i + 10
				    return(   88 + i)
				} extent  184 color "gray"
			    ]
			    translate [ x 20
				fillarc [ x -150 y -120 w 300 h 300
				    start {
					return(   88 + i)
				    } extent -176 color "darkgray"
				]
			    ]
			]
			rotate [
			    a {
				return( -i)
			    }
			    fillarc [ x -150 y -150 w 300 h 300
				start   88 extent  184 color "blue" 
			    ]
			    translate [ x 20
				fillarc [ x -150 y -150 w 300 h 300
				    start   88 extent -176 color "red"
				]
			    ]
			    font [ name "Serif" style "bold" size 22
				text [ str "51%" x -80 y 0 color "white" ]
				text [ str "49%" x 60 y 0 color "white" ]
			    ]
			]
		    ]
		]
	    ]
	]
	panel [ x 70 y 50 w 280 h 90 color "lightgray" alpha 0.5
	    rect [ x 5 y 5 w 270 h 80 width 1 color "red"]
	    font [ name "Serif" style "bold" size 16
		fillrect [ x 10 y 30 w 40 h 20 color "blue"]
		rect [ x 10 y 30 w 40 h 20 color "black"]
		text [ str "Мужской " x 60 y 45 ]

		fillrect [ x 10 y 60 w 40 h 20 color "red"]
		rect [ x 10 y 60 w 40 h 20 color "black"]
		text [ str "Женский " x 60 y 75 ]
	    ]
	    text [ str "  5594" x 150 y 45 ]
	    text [ str "  5345" x 150 y 75 ]
	]
    ]
    rect [ color "black" ]
]