/**************************************************************************
 *
 * AESFAST PD utilties.
 *
 *  Extended bindings...
 *    winx_calc
 *    winx_get
 *************************************************************************/

#include <gemfast.h>

int 
winx_get(whandle, wfield, prect)
    int     whandle;
    int     wfield;
    GRECT   *prect;
{
    return wind_get(whandle, wfield, 
                    &prect->g_x, &prect->g_y,
                    &prect->g_w, &prect->g_h);
}

int
winx_calc(type, kind, pinrect, poutrect)
    int     type;
    int     kind;
    GRECT   *pinrect;
    GRECT   *poutrect;
{
    return wind_calc(type, kind, *pinrect,
                        &poutrect->g_x, &poutrect->g_y,
                        &poutrect->g_w, &poutrect->g_h);
}