Ok it's a little rushed, but I'll show what I have so far...
Right now, this demo uses the blitzmax lists to store point objects but common sence would dictate the use of the gl lists.
Basically there is one list called sphere_list. This list is what the create functions throw their data into and the objects get drawn in the while loop.
Don't be too harsh, I just started OpenGL recently and dont understand the more complex features.
also please not that the lofted cone command without the x,y and z points if for drawing the other lofted cone2 command is used for belts in the spheres and tori. The sphere and torus were the most difficult shapes for me because finding points for them meant moving along all 3 axes.
If you change the draw command to line loop in the sphere and torius commands you will notice that an extra set of lines happens, it the problem lies within the second draw lofted cone command.
I have really enjoyed the puzzles and challanged of constructing these shapes. They still have a minor problem with the draw lofted cone2 command in the sphere and torus though as stated previously.
I have written a set color hsv command too!
the code:
PLEASE NOTE THAT THE SPHERE AND TORUS ROUTINES USE THE SHPERE_LIST FOR DRAWING THE OTHERS DON'T YET.
Strict
GLGraphics 800,600
glEnable GL_DEPTH_TEST 'Enables Depth Testing
glMatrixMode GL_PROJECTION 'Select The Projection Matrix
glLoadIdentity 'Reset The Projection Matrix
glOrtho(0,640,480,0,-1000,1000) 'Setup The Projection Matrix Frustum
glMatrixMode GL_MODELVIEW 'Select The ModelView Matrix
glLoadIdentity
' set some rotation values for checking
Global rotx%=0
Global roty%=0
Global sphere_list:TList = New TList
Function setdaycolor(r#,g#,b#,r2#,g2#,b2#,percent#)
Local r_dif#=r2-r
Local g_dif#=g2-g
Local b_dif#=b2-b
glColor3f r+(r_dif*percent),g+(g_dif*percent),b+(b_dif*percent)
End Function
Function setHSV(H#,S#,V#)
'H=0-360
'S=0-1
'v=0-255
While H < 0
H:+360
Wend
While H> 360
H:-360
Wend
While S <0
s:+1
Wend
While s>1
s:-1
Wend
While V<0
V:+255
Wend
While V> 255
v:-255
Wend
Local Hi%=(H/60) Mod 6.0
Local f#=(H/60)-Hi
Local p#=V*(1-S)
Local q#=V*(1-(f*S))
Local t#=V*(1-((1-f)*s))
Local R#=0
Local G#=0
Local B#=0
If Hi = 0
R=V
G=t
B=P
EndIf
If Hi = 1
R=q
G=V
B=P
EndIf
If Hi = 2
R=p
G=V
B=t
EndIf
If Hi = 3
R=p
G=q
B=V
EndIf
If Hi = 4
R=t
G=p
B=V
EndIf
If Hi = 5
R=V
G=p
B=q
EndIf
glcolor3f R/255.0,g/255.0,b/255.0
EndFunction
Global thing_list:TList = New TList
Function create_cuboid(width#,height#,depth#)
Local half_width#=width/2.0
Local half_height#=height/2.0
Local half_depth#=depth/2
'save first point
Local a:point = New point
a.x=-half_width
a.y=-half_height
a.z=-half_depth
' save second point
Local b:point = New point
b.x=half_width
b.y=-half_height
b.z=-half_depth
' save thrid point
Local c:point = New point
c.x=half_width
c.y=-half_height
c.z=half_depth
' save the foruth point
Local d:point = New point
d.x=half_width
d.y=half_height
d.z=half_depth
' save the fifth point
Local e:point = New point
e.x=-half_width
e.y=half_height
e.z=half_depth
'save the sixth point
Local f:point = New point
f.x=-half_width
f.y=half_height
f.z=-half_depth
' save the seventh point
Local g:point = New point
g.x=half_width
g.y=half_height
g.z=-half_depth
'save the eigth point
Local h:point = New point
h.x=-half_width
h.y=-half_height
h.z=half_depth
glBegin GL_QUADS
'face 1
glVertex3f a.x,a.y,a.z
glVertex3f b.x,b.y,b.z
glVertex3f g.x,g.y,g.z
glVertex3f f.x,f.y,f.z
'face 2
glVertex3f a.x,a.y,a.z
glVertex3f h.x,h.y,h.z
glVertex3f e.x,e.y,e.z
glVertex3f f.x,f.y,f.z
' face 3
glVertex3f h.x,h.y,h.z
glVertex3f c.x,c.y,c.z
glVertex3f d.x,d.y,d.z
glVertex3f e.x,e.y,e.z
' face 4
glVertex3f b.x,b.y,b.z
glVertex3f c.x,c.y,c.z
glVertex3f d.x,d.y,d.z
glVertex3f g.x,g.y,g.z
'face 5
glVertex3f g.x,g.y,g.z
glVertex3f d.x,d.y,d.z
glVertex3f e.x,e.y,e.z
glVertex3f f.x,f.y,f.z
' face 6
glVertex3f a.x,a.y,a.z
glVertex3f b.x,b.y,b.z
glVertex3f c.x,c.y,c.z
glVertex3f h.x,h.y,h.z
glend
End Function
Function create_cone(width#,height#,sides#,cap#)
Local sub_angle#=360.0/sides
For Local i#=0 To sides-1
Local x1#=Cos(i*sub_angle)*(width/2.0)
Local y1#= height/2.0
Local z1#=Sin(i*sub_angle)*(width/2.0)
Local x2#=Cos((i+1)*sub_angle)*(width/2.0)
Local z2#=Sin((i+1)*sub_angle)*(width/2.0)
Local color#=(i*sub_angle)/360
glBegin GL_TRIANGLES
glcolor3f 1,1,0
glVertex3f x1,-y1,z1
' second line point 2
glcolor3f 1,0,1
glVertex3f x2,-y1,z2
glVertex3f 0,y1,0
glEnd
' take care of cap
If cap <> 0
glBegin GL_triangles
glcolor3f 1,1,0
glVertex3f x1,-y1,z1
' second line point 2
glcolor3f 0,0,1
glVertex3f x2,-y1,z2
glVertex3f 0,-y1,0
glEnd
End If
Next
EndFunction
Function create_tube(width#,height#,sides#,cap#)
Local sub_angle#=360.0/sides
For Local i#=0 To sides-1
glBegin GL_QUADS
Local x1#=Cos(i*sub_angle)*(width/2.0)
Local y1#= height/2.0
Local z1#=Sin(i*sub_angle)*(width/2.0)
Local x2#=Cos((i+1)*sub_angle)*(width/2.0)
Local z2#=Sin((i+1)*sub_angle)*(width/2.0)
' first line point 1
glcolor3f 1,0,0
glVertex3f x1,y1,z1
'first line point 2
glcolor3f 1.0,1.0,0
glVertex3f x1,-y1,z1
' second line point 2
glVertex3f x2,-y1,z2
' second line point 1
glVertex3f x2,y1,z2
glEnd
If cap <> 0
glBegin GL_TRIANGLES
glcolor3f 1,1,0
glVertex3f x1,-y1,z1
' second line point 2
glcolor3f 0,0,1
glVertex3f x2,-y1,z2
glVertex3f 0,-y1,0
glEnd
glBegin GL_TRIANGLES
glcolor3f 1,0,0
glVertex3f x1,y1,z1
' second line point 2
glcolor3f 0,0,1
glVertex3f x2,y1,z2
glVertex3f 0,y1,0
glEnd
EndIf
Next
End Function
Function create_lofted_cone(height#,sides#,radius1#,radius2#,cap#)
Local sub_angle#=360.0/sides
glBegin GL_line_loop
For Local i#=0 To sides
Local x1#=Cos(sub_angle*i)*radius1
Local y1#=height/2
Local z1#=Sin(sub_angle*i)*radius1
Local x2#=Cos(sub_angle*(i+1))*radius2
Local y2#=height/-2
Local z2#=Sin(sub_angle*(i+1))*radius2
' create a point and save it to the list
Local a:point = New point
a.x=x1
a.y=y1
a.z=z1
ListAddLast(sphere_list,a)
glcolor3f i/sides,1,1
glVertex3f x1,y1,z1
Local b:point = New point
b.x=x2
b.y=y2
b.z=z2
ListAddLast(sphere_list,b)
glcolor3f 0,0,i/sides
glVertex3f x2,y2,z2
Next
glEnd
EndFunction
Function create_lofted_cone2(x#,y#,z#,height#,sides#,radius1#,radius2#)
' this is made for other drawing commands do not use it on it's own
Local sub_angle#=360.0/sides
For Local i#=0 To sides
Local x1#=Cos(sub_angle*i)*radius1
Local y1#=height/2.0
Local z1#=Sin(sub_angle*i)*radius1
Local x2#=Cos(sub_angle*(i+1))*radius2
Local y2#=height/-2.0
Local z2#=Sin(sub_angle*(i+1))*radius2
Local x3#=Cos(sub_angle*(i+2))*radius1
Local x4#=Cos(sub_angle*(i+2))*radius2
' create a point and save it to the list
Local a:point = New point
a.x=x+x1
a.y=y+y1
a.z=z+z1
ListAddLast(sphere_list,a)
Local b:point = New point
b.x=x+x2
b.y=y+y2
b.z=z+z2
ListAddLast(sphere_list,b)
Next
glEnd
EndFunction
Function create_sphere(x_divisions#,y_divisions#,radius#)
Local small_angle#=180.0/y_divisions ' this is the angle used for y divisions
Local belt_height#=(radius*2.0)/y_divisions
Local start_y#=-radius+(belt_height/2.0) ' the first point for the first cone
' now we find the y value for all the belts and their radii
Local last_width#=0.0
For Local i=0 To y_divisions-1
Local height#=Abs(Cos(i*small_angle)*radius-Cos((i+1.0)*small_angle)*radius)
Local first_radius#=Sin(i*small_angle)*radius
Local second_radius#=Sin((i+1)*small_angle)*radius
Local y_location#=-radius+last_width+(height/2.0) ' use this one to test
glLoadIdentity
create_lofted_cone2(0,y_location,0,height,x_divisions,second_radius,first_radius)
glEnd
last_width:+height
Next
End Function
Function create_torus(x_divisions#,y_divisions#,radius#,radius2#)
Local small_angle#=360.0/y_divisions ' this is the angle used for y divisions
Local belt_height#=(radius*2.0)/y_divisions
' now we find the y value for all the belts and their radii
Local last_width#=0.0
For Local i=0 To y_divisions-1
Local height#=Cos(i*small_angle)*radius-Cos((i+1.0)*small_angle)*radius
Local first_radius#=Sin(i*small_angle)*radius
Local second_radius#=Sin((i+1)*small_angle)*radius
Local y_location#=-radius+last_width+(height/2.0) ' use this one to test
glLoadIdentity
create_lofted_cone2(0,y_location,0,height,x_divisions,second_radius+radius2,first_radius+radius2)
glEnd
last_width:+height
Next
End Function
Type thing
Field x#,y#,zrot#
Function create(x#,y#,zrot#)
Local temp:thing = New thing
temp.x=x
temp.y=y
temp.zrot=zrot
ListAddLast(thing_list,temp)
End Function
Method draw()
glLoadIdentity
glTranslatef x,y,0
glrotatef rotx,1,0,0
glrotatef roty,0,1,0
glcolor3f 1,1,1
glBegin GL_triangle_strip
Local b=0
For Local i:point = EachIn(sphere_list)
Local listlength#=CountList(sphere_list)
'normally this would be a dumb wat to calculate colors but for these few triangles it works
setHSV((b/listlength)*360,33,255)
glVertex3f i.x,i.y,i.z
b:+1
Next
glEnd
End Method
End Type
Type point
Field x#,y#,z
End Type
' create a test ring
create_torus(24,10,32,256)
thing.create (320,240,0)
While Not KeyHit( KEY_ESCAPE )
rotx:+(KeyDown(key_up)-KeyDown(key_down))*3
roty:+(KeyDown(key_right)-KeyDown(key_left))*3
glClear GL_COLOR_BUFFER_BIT|GL_DEPTH_BUFFER_BIT
For Local i:thing = EachIn(thing_list)
i.draw()
Next
glend
Flip
Wend
