/*
 * $Id$
 *
 * $Date$
 * $Revision$
 *
 * Written in 2018 by Daniel "Daytona675x" Müßener
 *
 * This file is part of the MiniGL library project
 * See the file Licence.txt for more details
 *
 */

#if defined(MGL_TABOR) && !defined(MGL_TABOR_NO_ABI_BRIDGE)

#include "mgl/minigl.h"
#include "interfaces/glut.h"
#include "tabor.h"

extern void                 VARARGS68K glut_GLUTWireCube(struct GlutIFace *, GLdouble size);
extern void                 VARARGS68K glut_GLUTSolidCube(struct GlutIFace *, GLdouble size);
extern void                 VARARGS68K glut_GLUTWireSphere(struct GlutIFace *, GLdouble radius, GLint slices, GLint stacks);
extern void                 VARARGS68K glut_GLUTSolidSphere(struct GlutIFace *, GLdouble radius, GLint slices, GLint stacks);
extern void                 VARARGS68K glut_GLUTWireCone(struct GlutIFace *, GLdouble base, GLdouble height, GLint slices, GLint stacks);
extern void                 VARARGS68K glut_GLUTSolidCone(struct GlutIFace *, GLdouble base, GLdouble height, GLint slices, GLint stacks);
extern void                 VARARGS68K glut_GLUTWireTorus(struct GlutIFace *, GLdouble innerRadius, GLdouble outerRadius, GLint sides, GLint rings);
extern void                 VARARGS68K glut_GLUTSolidTorus(struct GlutIFace *, GLdouble innerRadius, GLdouble outerRadius, GLint sides, GLint rings);
extern void                 VARARGS68K glut_GLUTWireSierpinskiSponge(struct GlutIFace *, int num_levels, GLdouble offset[3], GLdouble scale);
extern void                 VARARGS68K glut_GLUTSolidSierpinskiSponge(struct GlutIFace *, int num_levels, GLdouble offset[3], GLdouble scale);
extern void                 VARARGS68K glut_GLUTWireCylinder(struct GlutIFace *, GLdouble radius, GLdouble height, GLint slices, GLint stacks);
extern void                 VARARGS68K glut_GLUTSolidCylinder(struct GlutIFace *, GLdouble radius, GLdouble height, GLint slices, GLint stacks);
extern void                 VARARGS68K glut_GLUTWireTeapot(struct GlutIFace *, GLdouble size);
extern void                 VARARGS68K glut_GLUTSolidTeapot(struct GlutIFace *, GLdouble size);
extern void                 VARARGS68K glut_GLUTSetColor(struct GlutIFace *, int nColor, GLfloat red, GLfloat green, GLfloat blue);
extern GLfloat              VARARGS68K glut_GLUTGetColor(struct GlutIFace *, int color, int component);

void TABORIZE_GLUE(glut_GLUTWireCube)(struct GlutIFace *self)
{
	TB_GET_CONTEXT;
	glut_GLUTWireCube(self,TB_DBL_0);
}

void TABORIZE_GLUE(glut_GLUTSolidCube)(struct GlutIFace *self)
{
	TB_GET_CONTEXT;
	glut_GLUTSolidCube(self,TB_DBL_0);
}

void TABORIZE_GLUE(glut_GLUTWireSphere)(struct GlutIFace *self, GLint slices, GLint stacks)
{
	TB_GET_CONTEXT;
	glut_GLUTWireSphere(self,TB_DBL_0,slices,stacks);
}

void TABORIZE_GLUE(glut_GLUTSolidSphere)(struct GlutIFace *self, GLint slices, GLint stacks)
{
	TB_GET_CONTEXT;
	glut_GLUTSolidSphere(self,TB_DBL_0,slices,stacks);
}

void TABORIZE_GLUE(glut_GLUTWireCone)(struct GlutIFace *self, GLint slices, GLint stacks)
{
	TB_GET_CONTEXT;
	glut_GLUTWireCone(self,TB_DBL_0,TB_DBL_1,slices,stacks);
}

void TABORIZE_GLUE(glut_GLUTSolidCone)(struct GlutIFace *self, GLint slices, GLint stacks)
{
	TB_GET_CONTEXT;
	glut_GLUTSolidCone(self,TB_DBL_0,TB_DBL_1,slices,stacks);
}

void TABORIZE_GLUE(glut_GLUTWireTorus)(struct GlutIFace *self, GLint sides, GLint rings)
{
	TB_GET_CONTEXT;
	glut_GLUTWireTorus(self,TB_DBL_0,TB_DBL_1,sides,rings);
}

void TABORIZE_GLUE(glut_GLUTSolidTorus)(struct GlutIFace *self, GLint sides, GLint rings)
{
	TB_GET_CONTEXT;
	glut_GLUTSolidTorus(self,TB_DBL_0,TB_DBL_1,sides,rings);
}

void TABORIZE_GLUE(glut_GLUTWireSierpinskiSponge)(struct GlutIFace *self, int num_levels)
{
	TB_GET_CONTEXT;
	GLdouble offset[3]={TB_DBL_0,TB_DBL_1,TB_DBL_2};
	glut_GLUTWireSierpinskiSponge(self,num_levels,offset,TB_DBL_3);
}

void TABORIZE_GLUE(glut_GLUTSolidSierpinskiSponge)(struct GlutIFace *self, int num_levels)
{
	TB_GET_CONTEXT;
	GLdouble offset[3]={TB_DBL_0,TB_DBL_1,TB_DBL_2};
	glut_GLUTSolidSierpinskiSponge(self,num_levels,offset,TB_DBL_3);
}

void TABORIZE_GLUE(glut_GLUTWireCylinder)(struct GlutIFace *self, GLint slices, GLint stacks)
{
	TB_GET_CONTEXT;
	glut_GLUTWireCylinder(self,TB_DBL_0,TB_DBL_1,slices,stacks);
}

void TABORIZE_GLUE(glut_GLUTSolidCylinder)(struct GlutIFace *self, GLint slices, GLint stacks)
{
	TB_GET_CONTEXT;
	glut_GLUTSolidCylinder(self,TB_DBL_0,TB_DBL_1,slices,stacks);
}

void TABORIZE_GLUE(glut_GLUTWireTeapot)(struct GlutIFace *self)
{
	TB_GET_CONTEXT;
	glut_GLUTWireTeapot(self,TB_DBL_0);
}

void TABORIZE_GLUE(glut_GLUTSolidTeapot)(struct GlutIFace *self)
{
	TB_GET_CONTEXT;
	glut_GLUTSolidTeapot(self,TB_DBL_0);
}

void TABORIZE_GLUE(glut_GLUTSetColor)(struct GlutIFace *self, int nColor)
{
	TB_GET_CONTEXT;
	glut_GLUTSetColor(self,nColor,TB_FLT_0,TB_FLT_1,TB_FLT_2);
}

void TABORIZE_GLUE(glut_GLUTGetColor)(struct GlutIFace *self, int color, int component)
{
	TB_GET_CONTEXT;
	TB_FLT_0=glut_GLUTGetColor(self,color,component);
}

#endif