{|
	Type   <- 'Cel Application'.

	Root <-
	{|
		x <-> 5.
		d <-> 0.

		display <+
			{ 
				GL glClear.
				GL glModelViewMatrix.
				GL glLoadIdentity.
				GL glTranslateX: 0.0 Y: 0.0 Z: -5.0.
				GL glutWireCube: 3.0.
				GL glFlush.
			}.

		Start: name   <+
			{ 
				Kit import: 'GL'.

				GL glutInitDisplay.
				GL glutSetWindowWidth: 350 Height: 350.
				GL glutSetWindowX: 350 Y: 350.
				GL glutCreateWindowNamed: 'Cel Glut'.

				GL glProjectionMatrix.
				GL gluPerspectiveAngle: 60 Aspect: 1.0 zNear: 1.5 zFar: 20.0.
				GL glColorR: 0.0 G: 1.0 B: 0.0.

				GL glutDisplayDelegate: self withMethod: 'display'.
				GL glutMainLoop.

			} 
	|}

|}