// routines to allow us to put texture maps on a parameterized group

//

// ©1994-95 Apple Computer Inc., All Rights Reserved

#include <QuickDraw.h>

#include "QD3D.h"

#include "QD3DGroup.h"

#include "QD3DShader.h"

#include "PictRead.h"       // this is a library file from QD3D applications folder

#include "Textures.h"

TQ3Status AddTextureToGroup( TQ3GroupObject theGroup, TQ3StoragePixmap *textureImage)

{

    TQ3TextureObject    textureObject;

    TQ3GroupPosition    position;

    TQ3Object           firstObject;

    textureObject = Q3PixmapTexture_New(textureImage);

    /*

     * We dispose of the image field here, if you need it again, just get it from the 

     * textureObject using Q3PixmapTexture_GetPixmap.

     */

    Q3Object_Dispose(textureImage->image) ;

    if( textureObject ) {

        if( Q3Object_IsType(theGroup, kQ3GroupTypeDisplay) == kQ3True) {

            Q3Group_GetFirstPosition(theGroup, &position);

            Q3Group_GetPositionObject(theGroup, position,   &firstObject);

            if( Q3Object_IsType(firstObject, kQ3SurfaceShaderTypeTexture) == kQ3True) {

                TQ3TextureObject    oldTextureObject;

                TQ3StoragePixmap oldTextureImage;

                Q3TextureShader_GetTexture(firstObject, &oldTextureObject);

                Q3PixmapTexture_GetPixmap(oldTextureObject, &oldTextureImage);

                Q3Object_Dispose(oldTextureObject);

                Q3TextureShader_SetTexture(firstObject, textureObject);

                Q3Object_Dispose(textureObject);

            } else {

                TQ3ShaderObject textureShader;

                textureShader = Q3TextureShader_New(textureObject);

                Q3Object_Dispose(textureObject);

                //Q3Group_SetPositionObject(theGroup, position, theDocument->textureShader);

                Q3Group_AddObjectBefore(theGroup, position, textureShader);

                Q3Object_Dispose(textureShader);

            }

            Q3Object_Dispose(firstObject);

        } else if( Q3Object_IsType(theGroup, kQ3DisplayGroupTypeOrdered) == kQ3True) {

            TQ3ShaderObject textureShader;

            Q3Group_GetFirstPositionOfType(

                theGroup,

                kQ3ShapeTypeShader, &position); 

            if( position ) {

                Q3Group_GetPositionObject(theGroup, position,   &firstObject);

                if( Q3Object_IsType(firstObject, kQ3SurfaceShaderTypeTexture) == kQ3True) {

                    TQ3TextureObject    oldTextureObject;

                    TQ3StoragePixmap oldTextureImage;

                    Q3TextureShader_GetTexture(firstObject, &oldTextureObject);

                    Q3PixmapTexture_GetPixmap(oldTextureObject, &oldTextureImage);

                    Q3Object_Dispose(oldTextureObject);

                    Q3TextureShader_SetTexture(firstObject, textureObject);

                    Q3Object_Dispose(textureObject);

                } else {

                    textureShader = Q3TextureShader_New(textureObject);

                    if( textureShader ) {

                        Q3Object_Dispose(textureObject);

                        Q3Group_SetPositionObject(theGroup, position, textureShader);

                        Q3Object_Dispose(textureShader);

                    } else {

                        return(kQ3Failure);

                    }

                }

            } else {

                textureShader = Q3TextureShader_New(textureObject);

                if( textureShader ) {

                    Q3Object_Dispose(textureObject);

                    Q3Group_AddObject(theGroup, textureShader);

                    Q3Object_Dispose(textureShader);

                } else {

                    return(kQ3Failure);

                }

            }

        }

    return(kQ3Success);

    } else {

        return(kQ3Failure);

    }

}

void PictureFileToPixmap( TQ3StoragePixmap *bMap )

{

    PicHandle           thePicture = nil;

    if((thePicture = GetPICTFile()) != NULL ) {

        LoadMapPICT( thePicture, 

                     0L,

                     (unsigned long)((**thePicture).picFrame.right - (**thePicture).picFrame.left),

                     (unsigned long)((**thePicture).picFrame.bottom - (**thePicture).picFrame.top),

                     bMap)  ;

    }

}

void TextureGroup( TQ3GroupObject   theGroup)

{

    TQ3StoragePixmap        myMap ;

    PictureFileToPixmap( &myMap ) ;

    if( myMap.image != NULL )

        AddTextureToGroup( theGroup, &myMap ) ;

}