Sorry your browser is not supported!

autocam off
sync on
make object sphere 1,30,3,6
scale object 1,100,0,100
position camera -30,30,-30
point camera 0,0,0
do
sync
loop

ink rgb(0,100,0),0
box 0,0,200,200
ink rgb(255,255,0),0
set cursor 0,100:print "Load your own texture"
get image 1,0,0,200,200,1

autocam off
sync on

make object sphere 1,30,3,6
scale object 1,100,0,100
texture object 1,1
set object light 1,0

`ºººººººººººººººººººººººººººººººººººººººººººººººººººººººººººººº
`giving texture to the whole mesh
lock vertexdata for limb 1,0
vertices = get vertexdata vertex count()
 for i = 0 to vertices
        x# = get vertexdata position x(i)
        y# = get vertexdata position y(i)
        z# = get vertexdata position z(i)
        set vertexdata uv i,x#,z#
 next i
unlock vertexdata
set object normals 1
`fine tuning of the texture
scale object texture 1,1/object size y(1)+0.01,-1/object size x(1)+0.01
scroll object texture 1,0.4,0.5
`ººººººººººººººººººººººººººººººººººººººººººººººººººººººººººººººº

position camera 0,30,-30
point camera 0,0,0
do
g=g+1
zrotate object 1,g/10
sync
loop

make object plain 1,0,0
make object triangle 2,0,0,0,-3,9,0,3,9,0
make mesh from object 1,2:delete object 2
add limb 1,1,1
add limb 1,2,1:rotate limb 1,2,0,0,180
xrotate object 1,180
set object cull 1,0

do
zrotate object 1,object angle z(1)+.1
LOOP

load image "hex_grid.png", 222

autocam off
position camera 0, 0, 0, 150
position light 0, 0, 0, 230
point camera 0, 0, 0, 0

make object plain 1,100,75
`position object 1, 0, 0, 0
make object triangle 2,-50,-37.5,0,0,-75,0,50,-37.5,0

make mesh from object 1,2:delete object 2
add limb 1,1,1
add limb 1,2,1:rotate limb 1,2,0,0,180
xrotate object 1,180
set object cull 1,0



`set object light 1, 0

texture object 1, 222

do
`zrotate object 1,object angle z(1)+.1
LOOP

ink rgb(0,255,0),0
box 0,0,100,100
ink rgb(0,50,155),0
box 5,5,95,95
ink rgb(255,255,0),0
set cursor 10,45:print "DARKBASIC"
get image 222,0,0,100,100

autocam off
sync on
position camera 0, 0, 0, 150
position light 0, 0, 0, 230
point camera 0, 0, 0, 0

make object plain 1,100,75
`position object 1, 0, 0, 0
make object triangle 2,-50,-37.5,0,0,-75,0,50,-37.5,0

make mesh from object 1,2:delete object 2
add limb 1,1,1
add limb 1,2,1:rotate limb 1,2,0,0,180
xrotate object 1,180
rem convertin object in single mesh
make mesh from object 1,1
delete object 1


make object 1,1,1
set object cull 1,0
set object light 1,0
`ºººººººººººººººººººººººººººººººººººººººººººººººººººººººººººººº
`giving texture to the whole mesh
lock vertexdata for limb 1,0
vertices = get vertexdata vertex count()
 for i = 0 to vertices
        x# = get vertexdata position x(i)
        y# = get vertexdata position y(i)
        z# = get vertexdata position z(i)
        set vertexdata uv i,X#,Y#
 next i
unlock vertexdata
set object normals 1
`fine tuning of the texture
scale object texture 1,1/object size y(1)-0.017,-1/object size x(1)-0.0001
scroll object texture 1,0.5,0.5
`ººººººººººººººººººººººººººººººººººººººººººººººººººººººººººººººº


`set object light 1, 0

texture object 1, 222

do
`zrotate object 1,object angle z(1)+.1
sync

LOOP

sync on
sync rate 0
autocam off

print "Howdy, this is a hexagon"
print "Howdy, this is a hexagon"
print "Howdy, this is a hexagon"
print "Howdy, this is a hexagon"
print "Howdy, this is a hexagon"
print "Howdy, this is a hexagon"
print "Howdy, this is a hexagon"
print "Howdy, this is a hexagon"
print "Howdy, this is a hexagon"
print "Howdy, this is a hexagon"
sync
imgHexagon = New_Image()
get image imgHexagon, 0, 0, 150, 150

objHexagon = Make_Hexagon(20.0, imgHexagon)

position camera 1, 100, 1
point camera 0, 0, 0

do
    turn object left objHexagon, 0.1
    sync
loop
end

function Make_Hexagon(Size, ImgNumber)
    HexPointOffsetx# = sin(30) * size
    HexPointOffsety# = cos(30) * size
    nwX# = -HexPointOffsetx#
    nwY# = HexPointOffsety#
    neX# = HexPointOffsetx#
    neY# = HexPointOffsety#
    wX# = -Size
    wY# = 0.0
    eX# = Size
    eY# = 0.0
    swX# = -HexPointOffsetx#
    swY# = -HexPointOffsety#
    seX# = HexPointOffsetx#
    seY# = -HexPointOffsety#
    
    memBlockSize = 12 + (3 * 6 * 32)
    memBlockVerts = 18
    tempMemblock = New_Memblock()
    make memblock tempMemblock, memBlockSize
    write memblock dword tempMemblock, 0, 274
    write memblock dword tempMemblock, 4, 32
    write memblock dword tempMemblock, 8, memBlockVerts

    pointer = 12
    Write_New_Memblock_Triangle(tempMemblock, pointer, x#, y#, z#, nwX#, y#, nwY#, neX#, y#, neY#, 0.5, 0.5, 0.25, 0.067, 0.75, 0.067): inc pointer, 96
    Write_New_Memblock_Triangle(tempMemblock, pointer, x#, y#, z#, neX#, y#, neY#, eX#, y#, eY#, 0.5, 0.5, 0.75, 0.067, 1.0, 0.5): inc pointer, 96
    Write_New_Memblock_Triangle(tempMemblock, pointer, x#, y#, z#, eX#, y#, eY#, seX#, y#, seY#, 0.5, 0.5, 1.0, 0.5, 0.75, 0.933): inc pointer, 96
    Write_New_Memblock_Triangle(tempMemblock, pointer, x#, y#, z#, seX#, y#, seY#, swX#, y#, swY#, 0.5, 0.5, 0.75, 0.933, 0.25, 0.933): inc pointer, 96
    Write_New_Memblock_Triangle(tempMemblock, pointer, x#, y#, z#, swX#, y#, swY#, wX#, y#, wY#, 0.5, 0.5, 0.25, 0.933, 0.0, 0.5): inc pointer, 96
    Write_New_Memblock_Triangle(tempMemblock, pointer, x#, y#, z#, wX#, y#, wY#, nwX#, y#, nwY#, 0.5, 0.5, 0.0, 0.5, 0.25, 0.067): inc pointer, 96
    
    tempMesh = New_Mesh()
    ObjID = New_Object()
    make mesh from memblock tempMesh, tempMemblock
    make object ObjID , tempMesh, ImgNumber
    delete mesh tempMesh
    delete memblock tempMemblock
endfunction ObjID

function Write_New_Memblock_Triangle(wMemblock, pointer, x1#, y1#, z1#, x2#, y2#, z2#, x3#, y3#, z3#, u1#, v1#, u2#, v2#, u3#, v3#)
    write memblock float wMemblock, pointer + 0, 0.0
    write memblock float wMemblock, pointer + 4, 0.0
    write memblock float wMemblock, pointer + 8, 0.0
    
    write memblock float wMemblock, pointer + 12, 0.0
    write memblock float wMemblock, pointer + 16, 1.0
    write memblock float wMemblock, pointer + 20, 0.0
    
    write memblock float wMemblock, pointer + 24, u1#
    write memblock float wMemblock, pointer + 28, v1#

    inc pointer, 32
    write memblock float wMemblock, pointer + 0, x2#
    write memblock float wMemblock, pointer + 4, y2#
    write memblock float wMemblock, pointer + 8, z2#
    
    write memblock float wMemblock, pointer + 12, 0.0
    write memblock float wMemblock, pointer + 16, 1.0
    write memblock float wMemblock, pointer + 20, 0.0
    
    write memblock float wMemblock, pointer + 24, u2#
    write memblock float wMemblock, pointer + 28, v2#
    
    inc pointer, 32
    write memblock float wMemblock, pointer + 0, x3#
    write memblock float wMemblock, pointer + 4, y3#
    write memblock float wMemblock, pointer + 8, z3#
    
    write memblock float wMemblock, pointer + 12, 0.0
    write memblock float wMemblock, pointer + 16, 1.0
    write memblock float wMemblock, pointer + 20, 0.0
    
    write memblock float wMemblock, pointer + 24, u3#
    write memblock float wMemblock, pointer + 28, v3#
endfunction

function New_Image()
    repeat
        inc i
    until image exist(i) = 0
endfunction i

function New_Object()
    repeat
        inc o
    until object exist(o) = 0
endfunction o

function New_Mesh()
    repeat
        inc m
    until mesh exist(m) = 0
endfunction m

function New_Memblock()
    repeat
        inc m
    until memblock exist(m) = 0
endfunction m

function MakeHexagon(LocX as float, LocY as float, LocZ as float, ObjectNum as integer, ImageNumber as integer)

make object plain 111111,100,60
`position object 1, 0, 0, 0
make object triangle 222222,-50,-30,0,0,-75,0,50,-30,0

make mesh from object 333333,222222:delete object 222222
add limb 111111,1,333333
add limb 111111,2,333333
rotate limb 111111,2,0,0,180
xrotate object 111111,180
rem convertin object in single mesh
make mesh from object 1,111111
delete object 111111


make object ObjectNum,1,ImageNumber
set object cull ObjectNum,0
set object light ObjectNum,0
`ºººººººººººººººººººººººººººººººººººººººººººººººººººººººººººººº
`giving texture to the whole mesh
lock vertexdata for limb ObjectNum,0
vertices = get vertexdata vertex count()
 for i = 0 to vertices
        x# = get vertexdata position x(i)
        y# = get vertexdata position y(i)
        z# = get vertexdata position z(i)
        set vertexdata uv i,X#,Y#
 next i
unlock vertexdata
set object normals ObjectNum
`fine tuning of the texture
scale object texture ObjectNum,1/object size y(ObjectNum)-0.01665,-1/object size x(ObjectNum)+0.0033
scroll object texture ObjectNum,0.5,0.5
position object ObjectNum, LocX, LocY, LocZ
`ººººººººººººººººººººººººººººººººººººººººººººººººººººººººººººººº

endfunction

function MakePolygon(objId, innerRadius as float, outerRadius as float, numSides, angularOffset as float, angularWidth as float)
	local numFaces, numVerts, numIndices, sectorAngDist as float
	sectorAngDist = -(angularWidth / numSides)
	numFaces = numSides-1		// "face" here meaning a pair of tris making a side.
	numVerts = numSides*2		// once round each ring (inner and outer).
	numIndices = numSides*6		// 3 for each tri, times 2 tris for each side.
	if angularWidth <> 360 then inc numVerts, 2 : inc numSides	// extra 2 verts for loose end.
	make object new objId, numVerts, numIndices
	
	// first, position vertices clockwise around rings.
	lock vertexdata for limb objId, 0
		// outer ring
		vEnd = numSides-1
		for v = 0 to vEnd
			a# = sectorAngDist * v - angularOffset
			x# = cos(a#) * outerRadius
			z# = sin(a#) * outerRadius
			set vertexdata position v, x#, 0, z#
			set vertexdata normals v, 0, 1, 0
			set vertexdata uv v, 0.5 + (x# / outerRadius) * 0.5, 0.5 - (z# / outerRadius) * 0.5
		next v
		
		// inner ring
		vEnd = numSides*2-1
		for v = numSides to vEnd
			a# = sectorAngDist * (v-numSides) - angularOffset
			x# = cos(a#) * innerRadius
			z# = sin(a#) * innerRadius
			set vertexdata position v, x#, 0, z#
			set vertexdata normals v, 0, 1, 0
			set vertexdata uv v, 0.5 + (x# / outerRadius) * 0.5, 0.5 - (z# / outerRadius) * 0.5
		next v
	
		// second, assemble triangles from vertices.
		i = 0
		for f = 0 to numFaces
			// each face has 2 tris, where:
			// tri 1 joins verts f   - f+1       - f+sides
			// tri 2 joins verts f+1 - f+1+sides - f+sides
			// except for last face when angularWidth=360, where:
			// tri 1 joins verts f - 0     - f+sides
			// tri 2 joins verts 0 - sides - f+sides
			if f < numFaces or angularWidth < 360
				p0 = f		: p1 = f+1		: p2 = f+numSides		: p3 = f+1+numSides
			else
				p0 = f		: p1 = 0		: p2 = f+numSides		: p3 = numSides
			endif
			set indexdata i,   p0 : set indexdata i+1, p1 : set indexdata i+2, p2
			set indexdata i+3, p1 : set indexdata i+4, p3 : set indexdata i+5, p2
			i = i + 6
		next f
	unlock vertexdata
endfunction

set display mode desktop width(), desktop height(), 32, 1
sync on : sync rate 30 : sync : autocam off : color backdrop 0x485A82

global scrW, scrH
scrW = screen width() : scrH = screen height()

// gen'd demonstration texture.
for n = 1 to 100 : box rnd(128), rnd(128), rnd(128), rnd(128), 0x0880ffff : next n
set text font "Arial" : set text size 100 : center text 64, 14, "2" : set text size 20
get image 1, 0, 0, 128, 128

// -- test --
grW = 20
grH = 20
myFirstObj = find free object()
for x = 0 to grW
	for z = 0 to grH
		myObj = find free object()
		MakePolygon(myObj, 0.4/(grW+1)*x, 0.4, 3+z, 90.0/grW*x)
		position object myObj, -(grW*0.5)+x, 0, -(grH*0.5)+z
		texture object myObj, 1
	next z
next x

position camera 0, 16, 0
rotate camera 90, 0, 0

// main loop.
do
	// [press w to show wireframes]
	oIn$ = in$ : in$ = lower$(inkey$())
	if oIn$ <> in$
		if in$ = "w"
			for n = myFirstObj to myObj
				set object wireframe n, 1
			next n
		else
			for n = myFirstObj to myObj
				set object wireframe n, 0
			next n
		endif
	endif

	set cursor 0,0
	print "fps: ", screen fps()
sync
nice wait 15
loop


function MakePolygon(objId, innerRadius as float, outerRadius as float, numSides, angularOffset as float)
	local numFaces, numVerts, numIndices, sectorAngDist as float
	numFaces = numSides-1		// "face" here meaning a pair of tris making a side.
	numVerts = numSides*2		// once round each ring (inner and outer).
	numIndices = numSides*6		// 3 for each tri, times 2 tris for each side.
	sectorAngDist = -360.0 / numSides
	make object new objId, numVerts, numIndices
	
	// first, position vertices clockwise around rings.
	lock vertexdata for limb objId, 0
		// outer ring
		vEnd = numSides-1
		for v = 0 to vEnd
			a# = sectorAngDist * v - angularOffset
			x# = cos(a#) * outerRadius
			z# = sin(a#) * outerRadius
			set vertexdata position v, x#, 0, z#
			set vertexdata normals v, 0, 1, 0
			set vertexdata uv v, 0.5 + (x# / outerRadius) * 0.5, 0.5 - (z# / outerRadius) * 0.5
		next v
		
		// inner ring
		vEnd = numSides*2-1
		for v = numSides to vEnd
			a# = sectorAngDist * (v-numSides) - angularOffset
			x# = cos(a#) * innerRadius
			z# = sin(a#) * innerRadius
			set vertexdata position v, x#, 0, z#
			set vertexdata normals v, 0, 1, 0
			set vertexdata uv v, 0.5 + (x# / outerRadius) * 0.5, 0.5 - (z# / outerRadius) * 0.5
		next v
	
		// second, assemble triangles from vertices.
		i = 0
		for f = 0 to numFaces
			// each face has 2 tris, where:
			// tri 1 joins verts f   - f+1       - f+sides
			// tri 2 joins verts f+1 - f+1+sides - f+sides
			// except for last face, where:
			// tri 1 joins verts f - 0     - f+sides
			// tri 2 joins verts 0 - sides - f+sides
			if f < numFaces
				p0 = f		: p1 = f+1		: p2 = f+numSides		: p3 = f+1+numSides
			else
				p0 = f		: p1 = 0		: p2 = f+numSides		: p3 = numSides
			endif
			set indexdata i,   p0 : set indexdata i+1, p1 : set indexdata i+2, p2
			set indexdata i+3, p1 : set indexdata i+4, p3 : set indexdata i+5, p2
			i = i + 6
		next f
	unlock vertexdata
endfunction