loadDefaultImage
    "comment stating purpose of message"

    |format form|

    form := ImageMorph new form.

    fWidth := form width.
    fHeight := form height.
    textureIntNames := WordArray new: 1.            "create a place to put the 'name' of the texture"
    ogl glGenTextures: 1 with: textureIntNames. "generate the name(s)"

    ogl glBindTexture: GLTexture2d with: (textureIntNames at: 1).

    format := GLRgba.


    ogl glTexParameteri: GLTexture2d with: GLTextureMinFilter with: GLLinear.
    ogl glTexParameteri: GLTexture2d with: GLTextureMagFilter with: GLLinear.
    ogl glTexParameteri: GLTexture2d with: GLGenerateMipmapSGIS with: true.

    ogl glTexImage2D: GLTexture2d
            with: 0
            with: format
            with: form width
            with: form height
            with: 0
            with: ogl texturePixelFormat
            with: ogl texturePixelType
            with: form bits.