OpenEuphoria

2. Re: C(++?) to EUPHORIA Code

• Posted by Evan Marshall <1evan at sbcglobal.net> Jun 16, 2004
• 402 views

cklester wrote:
> 
> Can somebody see where I'm going wrong...
> 
> --original C code...
> void glEnable2D()
> {
> 	int vPort[4];
> 
>    glGetIntegerv(GL_VIEWPORT, vPort);
> 
>    glMatrixMode(GL_PROJECTION);
>    glPushMatrix();
>    glLoadIdentity();
> 
>    glOrtho(0, vPort[2], 0, vPort[3], -1, 1);
>    glMatrixMode(GL_MODELVIEW);
>    glPushMatrix();
>    glLoadIdentity();
> }
> 
> --my translation attempt:
> global procedure glGo2D()
> 
> 	--I have no idea what to do with this line!!!
> 	--glGetIntegerv(GL_VIEWPORT, vPort)
> 	
> 	glMatrixMode(GL_PROJECTION)
> 	glPushMatrix()
> 	glLoadIdentity()
> 	
> 	glOrtho(0, vPort[2], 0, vPort[3], -1, 1)
> 	glMatrixMode(GL_MODELVIEW)
> 	glPushMatrix()
> 	glLoadIdentity()
> end procedure
> 

atom vPort
vPort = allocate(16) -- space for 4 integer values

glOrtho(0, vPort[3], 0, vPort[4], -1, 1) Euphoria is 1 based }}}

4. Re: C(++?) to EUPHORIA Code

• Posted by cklester <cklester at yahoo.com> Jun 16, 2004
• 421 views

Thanks Evan... so glGetIntegerv() isn't needed? What does it do?

6. Re: C(++?) to EUPHORIA Code

• Posted by Al Getz <Xaxo at aol.com> Jun 16, 2004
• 430 views

Hi there,

If all you need to do is miniwrap "glGetIntegerv(GL_VIEWPORT, vPort)"
this should make short work of it...

function glGetInt()
  atom pvPort
  sequence vPort

  pvPort=allocate(16)
  glGetIntegerv(GL_VIEWPORT,pvPort)
  vPort=peek4s({pvPort,4})
  free(pvPort)
  return vPort
end function

You can then call vPort=glGetInt() anytime you need to get
the coordinates:

sequence vPort
vPort=glGetInt()

You can then call glOrtho() as you have it already.

It looks like that function gets four screen coordinates.

Take care,
Al


And, good luck with your programming!

My bumper sticker: "I brake for LED's"