avgdl_perl/examples/hello_triangle

[ # objects
	[ # object
	
		object
		[ # shape
			0 1 0
			-1 -1 0
			1 -1 0
		]
		[ # color
			0.3 0.6 1
		]
		[ # matrix
			1 0 0 0
			0 1 0 0
			0 0 1 0
			0 0 0 1
		]
		[ # actions
			[rotate [ 0.01 z ]]
		]
	]
	[ # triangle
		tri
		[ # shape
			0 1 0
			-1 -1 0
			1 -1 0
		]
		[ # color
			1 0 0
		]
		[ # matrix
			1 0 0 -2
			0 1 0 0
			0 0 1 -1
			0 0 0 1
		]
		[ # actions
		]
	]
]