Finally I found the missing command to make my
"component parts" method work correctly. After each
"glCallList LTurtle_i" I must clear the color buffer:
glClear GL_COLOR_BUFFER_BIT + GL_DEPTH_BUFFER_BIT . The
attached script demonstrates this.
(B=) <----------my "sig"
Brian Schott
Atlanta, GA, USA
schott DOT bee are eye eh en AT gee em ae eye el DOT com
http://schott.selfip.net/~brian/
NB. turtledebug.ijs
NB. standalone verseion
require 'opengl trig'
coinsert 'jgl3 jzopengl '
load 'trig'
turtle0 =: monad define
glPushMatrix ''
NB. glPushAttrib GL_CURRENT_COLOR
glEnable GL_NORMALIZE
glColor 1 0 0 1
glTranslate _1 0 0
glRotate ROTturtle
glScale SCALE * SIZE
glClipPlane GL_CLIP_PLANE0, 0 0 1 0
glEnable GL_CLIP_PLANE0
gluSphere LQuad, 1 30 30
glCallList LHead0
glDisable GL_CLIP_PLANE0
NB. glPopAttrib ''
glPopMatrix ''
)
turtle1 =: monad define
glPushMatrix ''
NB. glPushAttrib GL_CURRENT_COLOR
glEnable GL_NORMALIZE
glColor 0 0 1 1
glTranslate 1 0 0
glRotate ROTturtle
glScale SCALE * SIZE
glClipPlane GL_CLIP_PLANE0, 0 0 1 0
glEnable GL_CLIP_PLANE0
gluSphere LQuad, 1 30 30
glCallList LHead1
glDisable GL_CLIP_PLANE0
NB. glPopAttrib ''
glPopMatrix ''
)
turtlehead =: monad define
glPushMatrix ''
glPushAttrib GL_CURRENT_COLOR
glTranslate 0 1 0
glColor HCOLOR
gluSphere LQuad, TURTLE_HEAD_RELATIVE , 30 30
glCallList ".'LNose',":y.
glPopAttrib ''
glPopMatrix ''
)
turtlenose =: monad define
glPushMatrix ''
glPushAttrib GL_CURRENT_COLOR
glTranslate 0 0.25 0
glColor NCOLOR
gluSphere LQuad, TURTLE_HEAD_RELATIVE , 30 30
glPopAttrib ''
glPopMatrix ''
)
ROTturtle =: 30 0 0 1
SIZE =: 0.2 NB. turtle body size relative to 1
SCALE =: 1 2 0.5 NB. turtle elliptical rescale
TURTLE_HEAD_RELATIVE =: 0.3 NB. head size relative to body
PARTS =: i. 0
PARTSSTART =: 2000
run =: verb define
gldefault''
glinit''
stdlistlight''
LQuad =: gluNewQuadric''
gluQuadricDrawStyle LQuad,GLU_FILL
gluQuadricNormals LQuad,GLU_SMOOTH
genlist 'LTurtle0 LTurtle1'
genpartslist 'LHead0 LNose0 LHead1 LNose1'
NCOLOR =: 0 1 0 1
HCOLOR =: 1 0 1 1
turtlenose makelist LNose0 ''
turtlehead makelist LHead0 0
turtle0 makelist LTurtle0''
glCallList LTurtle0
glClear GL_COLOR_BUFFER_BIT + GL_DEPTH_BUFFER_BIT
NCOLOR =: 1 0 1 1
HCOLOR =: 0 1 0 1
turtlenose makelist LNose1 ''
turtlehead makelist LHead1 1
turtle1 makelist LTurtle1''
glCallList LTurtle1
glaSwapBuffers ''
glpaintx''
)
NB. patterned after genlist in jzopengl
genpartslist=: 3 : 0
bgn=. >:>./PARTS,PARTSSTART
if. 2 = 3!:0 y. do.
nms=. ;: y.
r=. bgn + i.#nms
(nms)=: r
else.
r=. bgn + i.y.
end.
PARTS=: PARTS,r
r
)
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
