/***********************************************************************/
/* Open Visualization Data Explorer                                    */
/* (C) Copyright IBM Corp. 1989,1999                                   */
/* ALL RIGHTS RESERVED                                                 */
/* This code licensed under the                                        */
/*    "IBM PUBLIC LICENSE - Open Visualization Data Explorer"          */
/***********************************************************************/
/*
 * $Header: /home/gda/dxcvs/dx/src/exec/dxmods/rubbersheet.c,v 1.3 1999/05/10 15:45:30 gda Exp $:
 */

#include <dxconfig.h>


/***
MODULE:		
    _dxfRubberSheet
SHORTDESCRIPTION:
    Produces a rubber-sheet graph.
CATEGORY:
    Realization
INPUTS:
    data;      scalar field;        none; the data to graph
    scale;           scalar; appropriate; displacement scaling
    min; scalar or field;         0.0; offset to apply to data values
    max; scalar or field;         0.0; data value to use to set scale 
OUTPUTS:
    graph;     scalar field;         NULL; the graph
FLAGS:
BUGS:
AUTHOR:
    Brian P. O'Toole
END:
***/

#include <stdio.h>
#include <math.h>
#include <dx/dx.h>

extern Error _dxfRubberSheet(Object, Object, Object, Object, Object *);

int m_RubberSheet (in, out)
    Object		*in;
    Object		*out;
{
    Object		ino0, ino1, ino2, ino3;
    int			i;
    Field		field;

    out[0] = NULL;

    ino0 = in[0];
    ino1 = in[1];
    ino2 = in[2];
    ino3 = in[3];

    if (ino0 == NULL)
    {
        /*
	 * data must be specified 
	 */ 
	DXSetError (ERROR_BAD_PARAMETER, "#10000", "data");
        return ERROR;
    }

    for (i = 0; NULL != (field = DXGetPart(ino0, i)); i++)
	 if (! DXEmptyField(field))
	     break;
	
    if (field == NULL)
    {
	out[0] = (Object)DXEndField(DXNewField());
	return OK;
    }

    if (ino1)
    {
	float scale;

        if (! DXExtractParameter (ino1, TYPE_FLOAT, 1, 1, (Pointer) &scale))
	{
            /*
	     * scale must be a scalar value
	     */
            DXSetError (ERROR_BAD_PARAMETER, "#10080", "scale");
            return ERROR;
        }
    }

    if (! _dxfRubberSheet (ino0, ino1, ino2, ino3, &out[0]))
	return ERROR;

    return (OK);
}