gdi_hexagon.ado

来自「是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到」· ADO 代码 · 共 20 行

*! version 1.0.1  05jun2003
program gdi_hexagon
	version 8.0
	args x y w h angle
	if (`"`angle'"' == "") local angle 0
	local px = `x' + `w'*cos(`angle')
	local py = `y' + `h'*sin(`angle')
	// move counter clockwise from 3 o'clock (if angle==0)
	gdi moveto `px' `py'
	gdi polybegin
	forval i = 1/5 {
		local rx = `x' + `w'*cos(`angle'+`i'*c(pi)/3)
		local ry = `y' + `h'*sin(`angle'+`i'*c(pi)/3)
		gdi lineto `rx' `ry'
	}
	gdi moveto `px' `py'
	gdi polyend
end
exit