drawsObject: anObject



    |  shape  mode vertexBuffer normalBuffer texCoordBuffer  displayList |



        shape := anObject shipShape.
        displayList := shape cachedDisplayList.
        displayList ifNil: [

    mode := shape shapeMode.

    vertexBuffer := shape vertexBuffer.
    normalBuffer := nil. "Vector3Array ofSize: 24."
    texCoordBuffer := nil. "Vector2Array ofSize: 24."

    displayList := self getNextDisplayList.
    ogl glNewList: displayList with: GLCompile.

    ogl beginVertices: (vertexBuffer) normals: (normalBuffer) colors: shape colors texCoords: (texCoordBuffer).

    ogl glPushMatrix.

    1 to: shape fgSize by: 2

        do:[ :i | ogl drawIndexed: mode faces: (shape faceBuffers at: i+1//2)].


        ogl glPopMatrix.
        ogl glEndList.
        shape cachedDisplayList: displayList.
        ].
        ogl glCallList: displayList.