For the same scene, you also don't need much of the
setup, like lighting, etc., in gsinit either.
--- Brian Schott <[EMAIL PROTECTED]> wrote:
> I may have a simpler solution than having multiple
> paint verbs as I requested before (see below). Perhaps an
> adequate alternative would be to have dyadic gsinit and
> gsfini for which the LHA controls the alloc and
> draw/draw_keep selection. I have place models of these
> proposed verbs far below.
>
> On Tue, 2 May 2006, Brian Schott wrote:
>
> + ... I understand that Chris is going to rework
> + jzopenglutil to accommodate some additional "housekeeping"
> + and I guess I am saying that it would be best for me if that
> + revision also contemplated the need for reintroducing
> + genlist and LISTS as well as multiple paint verbs, not just
> + the one defined by GS_PAINT. The discussion thread focused
> + only on paints for resizing being different from paints
> + resulting from transforming the objects, but in a simulation
> + there are the startup paints and the simultaneous repaints
> + of multiple dynamic objects, also.
> +
>
> (B=)
>
> gsinit_jzopenglutil_=: 3 : 0
> 1 gsinit y
> :
> GSWH=: glqwh''
> if. x do. alloc__ogl GSWH end.
> glEnable GL_DEPTH_TEST
> gsclearcolor GS_CLEARCOLOR
> glClear GL_COLOR_BUFFER_BIT + GL_DEPTH_BUFFER_BIT
> gscolor GS_COLOR
> glViewport 0 0,GSWH
> glMatrixMode GL_PROJECTION
> glLoadIdentity''
> gluPerspective (%/GSWH) 1 } GS_PERSPECTIVE
> glMatrixMode GL_MODELVIEW
> glLoadIdentity''
> gluLookAt GS_VIEWXYZ,0 0 0,GS_VIEWUP
> glTranslate GS_TRNXYZ
> glRotate GS_ROTNDX { GS_ROTXYZ ,. GS_ID3
> if. GS_LIGHT e. y do.
> id=. GL_LIGHT0
> glaLight id, GL_AMBIENT, gscolor4 GS_AMBIENT
> glaLight id, GL_DIFFUSE, gscolor4 GS_DIFFUSE
> glaLight id, GL_SPECULAR, gscolor4 GS_SPECULAR
> glEnable GL_LIGHTING
> glEnable id
> if. GS_COLORMATERIAL do.
> glEnable GL_COLOR_MATERIAL
> glColorMaterial GL_FRONT_AND_BACK,GL_AMBIENT_AND_DIFFUSE
> glaMaterial GL_FRONT_AND_BACK,GL_SPECULAR, alpha4 GS_MATSPECULAR
> glaMaterial GL_FRONT_AND_BACK,GL_SHININESS, alpha4 GS_SHININESS
> end.
> if. #GS_POSITION do.
> glaLight id,GL_POSITION, alpha4 GS_POSITION
> end.
> end.
> if. GS_BLEND e. y do.
> glEnable GL_BLEND
> glBlendFunc GL_SRC_ALPHA,GL_ONE_MINUS_SRC_ALPHA
> end.
> )
>
> gsfini_jzopenglutil_=: 3 : 0
> 1 gsfini y
> :
> if. x
> do.
> draw__ogl''
> else.
> draw_keep__ogl''
> end.
> )
>
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm
>
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
