Sorry your browser is not supported!

// Project: cull 
// Created: 2018-12-31

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0

// set window properties
SetWindowTitle( "cull" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

global angx#, angy#, startx#, starty#
global box as integer[]

a=0
size=4
for x=-20 to 20
	for z=-20 to 20
		box.insert(CreateObjectBox(size,size,size))
		SetObjectPosition(box[a],x * size,0,z * size)
		SetObjectColor(box[a],random(0,255),random(0,255),random(0,255),255)
		inc a
	next
next


startx#=screenwidth/2
starty#=screenheight/2	
SetRawMousePosition(startx#,starty#)

do
	movecamerawithmouse()
    
	cull_objs_behind_camera()
	
    Print( ScreenFPS() )
    Sync()
loop

  
 function movecamerawithmouse()
         
    fDiffX# = (GetPointerX() - startx#)/4.0
    fDiffY# = (GetPointerY() - starty#)/4.0
     
    newX# = angx# + fDiffY#
   // if ( newX# > 360 ) then newX# = 360
   // if ( newX# < -360 ) then newX# = -360
       
    // if we keep hold of the left mouse button then rotate the view otherwise the camera stays put
    // so can concentrate on adding/removing blocks at that positon
       
       
    SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
     
endfunction
 
function GetObjectInFront(obj, cam)
    x1# = GetCameraX(cam)
    y1# = GetCameraY(cam)
    z1# = GetCameraZ(cam)
    dx# = GetObjectX(obj) - x1#
    dy# = GetObjectY(obj) - y1#
    dz# = GetObjectZ(obj) - z1#
    d# = sqrt(dx#*dx# + dy#*dy# + dz#*dz#)
    ux1# = dx#/d#
    uy1# = dy#/d#
    uz1# = dz#/d#
    d# = 3
    MoveCameraLocalZ(cam, d#)
    dx# = GetCameraX(cam) - x1#
    dy# = GetCameraY(cam) - y1#
    dz# = GetCameraZ(cam) - z1#
    MoveCameraLocalZ(cam, -d#)
    ux2# = dx#/d#
    uy2# = dy#/d#
    uz2# = dz#/d#
    res# = ux1# * ux2# + uy1# * uy2# + uz1# * uz2#
    angle# = acos(res#)
    inFront = 0
        
    ////////CHANGE THIS////////////
    if angle# < 30 then inFront = 1
endfunction inFront
     
function cull_objs_behind_camera() /// adapted to my own project but the jist is too cull all objects
    z=0
   
    for a=0 to box.length
        v = GetObjectInFront( box[a], 1 )
        if v = 0 then SetObjectVisible(box[a],0)
        if v = 1 then SetObjectVisible(box[a],1)
               
    next
   
endfunction

// Project: cull 
// Created: 2018-12-31

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0

// set window properties
SetWindowTitle( "cull" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

global angx#, angy#, startx#, starty#
global box as integer[]

a=0
size=4
for x=-20 to 20
	for z=-20 to 20
		for y = 1 to 2
			box.insert(CreateObjectBox(size,size,size))
			SetObjectPosition(box[a],x * size,(y * size) - size,z * size)
			SetObjectColor(box[a],random(0,255),random(0,255),random(0,255),255)
			inc a
		next y
	next
next


startx#=screenwidth/2
starty#=screenheight/2	
SetRawMousePosition(startx#,starty#)

do
	movecamerawithmouse()
    
	cull_objs_behind_camera()
	
    Print( ScreenFPS() )
    Sync()
loop

  
 function movecamerawithmouse()
         
    fDiffX# = (GetPointerX() - startx#)/4.0
    fDiffY# = (GetPointerY() - starty#)/4.0
     
    newX# = angx# + fDiffY#
   // if ( newX# > 360 ) then newX# = 360
   // if ( newX# < -360 ) then newX# = -360
       
    // if we keep hold of the left mouse button then rotate the view otherwise the camera stays put
    // so can concentrate on adding/removing blocks at that positon
       
       
    SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
     
endfunction
 
function GetObjectInFront(obj, cam)
    x1# = GetCameraX(cam)
    y1# = GetCameraY(cam)
    z1# = GetCameraZ(cam)
    dx# = GetObjectX(obj) - x1#
    dy# = GetObjectY(obj) - y1#
    dz# = GetObjectZ(obj) - z1#
    d# = sqrt(dx#*dx# + dy#*dy# + dz#*dz#)
    ux1# = dx#/d#
    uy1# = dy#/d#
    uz1# = dz#/d#
    d# = 3
    MoveCameraLocalZ(cam, d#)
    dx# = GetCameraX(cam) - x1#
    dy# = GetCameraY(cam) - y1#
    dz# = GetCameraZ(cam) - z1#
    MoveCameraLocalZ(cam, -d#)
    ux2# = dx#/d#
    uy2# = dy#/d#
    uz2# = dz#/d#
    res# = ux1# * ux2# + uy1# * uy2# + uz1# * uz2#
    angle# = acos(res#)
    inFront = 0
        
    ////////CHANGE THIS////////////
    if angle# < 30 then inFront = 1
endfunction inFront
     
function cull_objs_behind_camera() /// adapted to my own project but the jist is too cull all objects
    z=0
   
    for a=0 to box.length
        v = GetObjectInFront( box[a], 1 )
        if v = 0 then SetObjectVisible(box[a],0)
        if v = 1 then SetObjectVisible(box[a],1)
               
    next
   
endfunction

// Project: cull 
// Created: 2018-12-31

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0

// set window properties
SetWindowTitle( "cull" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

global angx#, angy#, startx#, starty#
global box as integer[]

a=0
size=4
for x=-20 to 20
	for z=-20 to 20
		for y = 1 to 10
			box.insert(CreateObjectBox(size,size,size))
			SetObjectPosition(box[a],x * size,-(y * size) - size,z * size)
			SetObjectColor(box[a],random(0,255),random(0,255),random(0,255),255)
			inc a
		next y
	next
next


startx#=screenwidth/2
starty#=screenheight/2	
SetRawMousePosition(startx#,starty#)

do
	movecamerawithmouse()
    
	cull_objs_behind_camera()
	
    Print( ScreenFPS() )
    Sync()
loop

  
 function movecamerawithmouse()
         
    fDiffX# = (GetPointerX() - startx#)/4.0
    fDiffY# = (GetPointerY() - starty#)/4.0
     
    newX# = angx# + fDiffY#
   // if ( newX# > 360 ) then newX# = 360
   // if ( newX# < -360 ) then newX# = -360
       
    // if we keep hold of the left mouse button then rotate the view otherwise the camera stays put
    // so can concentrate on adding/removing blocks at that positon
       
       
    SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
     
endfunction
 
function GetObjectInFront(obj, cam)
    x1# = GetCameraX(cam)
    y1# = GetCameraY(cam)
    z1# = GetCameraZ(cam)
    dx# = GetObjectX(obj) - x1#
    dy# = GetObjectY(obj) - y1#
    dz# = GetObjectZ(obj) - z1#
    d# = sqrt(dx#*dx# + dy#*dy# + dz#*dz#)
    ux1# = dx#/d#
    uy1# = dy#/d#
    uz1# = dz#/d#
    d# = 3
    MoveCameraLocalZ(cam, d#)
    dx# = GetCameraX(cam) - x1#
    dy# = GetCameraY(cam) - y1#
    dz# = GetCameraZ(cam) - z1#
    MoveCameraLocalZ(cam, -d#)
    ux2# = dx#/d#
    uy2# = dy#/d#
    uz2# = dz#/d#
    res# = ux1# * ux2# + uy1# * uy2# + uz1# * uz2#
    angle# = acos(res#)
    inFront = 0
        
    ////////CHANGE THIS////////////
    if angle# < 30 then inFront = 1
endfunction inFront
     
function cull_objs_behind_camera() /// adapted to my own project but the jist is too cull all objects
    z=0
   
    for a=0 to box.length
        v = GetObjectInFront( box[a], 1 )
        if v = 0 then SetObjectVisible(box[a],0)
        if v = 1 then SetObjectVisible(box[a],1)
               
    next
   
endfunction

// Project: City Views
// Created: 2018-10-28
  
 // TO DO - Save Primative Objects to OBJ so can model them in blender and such like
  
// show all errors
SetErrorMode(2)
   
 #constant PI# = 3.14159265359
 #constant screenwidth=1024
 #constant screenheight=768
 #constant fullscreen=0
   
// set window properties
SetWindowTitle( "City Views" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window
   
// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 1200, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
   
 global ang#, angx#, angy#, fDiffY#, fDiffX#,newX#,startx#, starty#, camerax#, cameray#, cameraz#
 
// *************************************************
// ** Perlin Setup - please dont upset these variables
// *************************************************
#constant perlinw = 1024 //power of 2
#constant perlinh = 1024 //power of 2
#constant perlinz = 0   // doesnt work yet - required 3D perlin noise - Yikes
#constant perlinheight=120.0 
 
 
// *************************************************
// ** Mesh Memblock Types - please dont upset these variables
// *************************************************
 
Type Vertex
       
    x as float
    y as float
    z as float
    nx as float
    ny as float
    nz as float
    u as float
    v as float
    color as integer
endtype
   
Type Triangle
    v1 as integer
    v2 as integer
    v3 as integer
endtype
   
Type Mesh
    VertexList as Vertex[]
    TriangleList as Triangle[]
endtype
   
global MeshID as Mesh
 
type _vector
    x#
    y#
    z#
    polygon // 1 = yes - 0 = no 
    vindex
    nindex
    tindex
    u#
    v#
endtype
 
 
type _object
     
    name$ as String
    v as integer[]        // the actual vertex on the mesh which need to save so can use SetMeshMemblockVertexPosition commands for example at a later time
    vertex as _vector[]   // eg v 1.276477 0.200934 -0.387665
    normals as _vector[]  // eg vn vn -0.5346 0.3304 -0.7779
     
     
    faces as _vector[]    // eg f 5//9 21//9 29//9
    textures as _vector[] // eg vt 0.500 1 [0]
    polygon as integer    // 1=Yes , 0 = No
 
endtype
global objectmesh as _object[100]
 
type _meshmemblockvertexes
    id
    vfrom
    vto
endtype
     
global meshmemblockvertexes as _meshmemblockvertexes[] // this will store the true vertex positions on a meshmemblock
 
type _farworlds
    objID
    x#
    y#
    z#
endtype
global farworlds as _farworlds[]
 
// *************************************************
// ** END OF - Mesh Memblock Types - please dont upset these variables
// *************************************************
global vertexcount

cube=LoadImage("\media\cube.png")
 
LoadObjectIntoMesh(0,"\media\cube.obj","",0,1)
 
obj=0
wsize=16
for x#=-wsize to wsize
	for y#=-wsize to wsize	
		for z#=-wsize to wsize
         
			InstanceMeshObject(0,obj,x#*2,y#*2,z#*2,1,1,1,MakeColor(255,255,255),0)
			inc obj
		next
    next
next
object = CreateObjectFromMeshWithUVTexturing(meshid,cube)
 
 
 
setupcamera()
 
do
    RotateCameraLocalX(1,.05)
    RotateCameraLocalY(1,.05)
    RotateCameraLocalZ(1,.05)
     
 
    movecamerawithmouse()
    if GetRawKeyState(87) then inc cameray#,1
    if GetRawKeyState(83) then dec cameray#,1


    if GetRawKeyState(37) then inc camerax#,1
    if GetRawKeyState(39) then dec camerax#,1


    if GetRawKeyState(38) then inc cameraz#,1
    if GetRawKeyState(40) then dec cameraz#,1
 
     
	print("Use WASD and cursors to move camera")
    SetCameraPosition(1,camerax#,cameray#,cameraz#)
             
             
    print("FPS " + str(ScreenFPS()) + "  - Last Key" + str(GetRawLastKey()))
   Sync()
loop
         
 
function setupcamera()
    camerax#=0
    cameray#=100
    cameraz#=-100
    startx#=screenwidth/2
    starty#=screenheight/2
    SetRawMousePosition(startx#,starty#)
endfunction
 
 function movecamerawithmouse()
        
    fDiffX# = (GetPointerX() - startx#)/4.0
    fDiffY# = (GetPointerY() - starty#)/4.0
    
    newX# = angx# + fDiffY#
   // if ( newX# > 360 ) then newX# = 360
   // if ( newX# < -360 ) then newX# = -360
      
    // if we keep hold of the left mouse button then rotate the view otherwise the camera stays put
    // so can concentrate on adding/removing blocks at that positon
      
      
    SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
    
endfunction
 
 
// *************************************************
// ** Mesh Memblock Function
// *************************************************
 
 // LoadObjectIntoMeshfunction
// filename$ - What is the model name
// debug     - 0 to not have any - 1 to have all the info displayed 
// save      - 0 to not save any Vs/VNs/VTs/Fs in global memory or 1 to keep those in memory to change at a later time in the app if so wish
 
  
function LoadObjectIntoMesh(id, filename$, material$, debug, save)
    v as _vector          // create an empty type so can inert data 
     
// with face elements these are index references of the above array indexes
//
// f v1 v2 v3               // This will be the indexes of the Vertex 1 2 and 3 in the vertex array
// f v1/vt1 v2/vt2 v3/vt3       // This one has texture / UV assigned to the object and the first is the index in the vertex array and the 2nd is the texture array
// f v1/vt1/vn1 v2/vt2/vn2 v3/vt3/vn3       // This one has texture / UV assigned and Normals to the object and the first is the index in the vertex array and the 2nd is the texture array and the index in normals arra
//
// The f data is normally at the end of the OBJ file, so
// What we would have to do first is grab the V into the Vertex array
// then the VNs into the Normal array
// then the VTs into the texture array
// then use the F(aces) data to pick out which vertex to work with the AddVertex command
 
// firstly empty the mesh for a new object to be loaded
 
        objectmesh[id].vertex.length=-1
        objectmesh[id].normals.length=-1
        objectmesh[id].faces.length=-1
        objectmesh[id].textures.length=-1
     
    f = OpenToRead(filename$)
        loops=0
    vindex=0
    while not FileEOF(f)
        inc loops
        line$=ReadLine(f)
        if (mid(line$,1,2) = "v ") 
            line$=mid(line$,3,len(line$))
             
            v.x# = ValFloat(GetStringToken(line$," ",1))
            v.y#= ValFloat(GetStringToken(line$," ",2))
            v.z#= ValFloat(GetStringToken(line$," ",3)) * -1
     
            objectmesh[id].vertex.insert(v)
             
        endif
         
        if (mid(line$,1,3) = "vn ") 
            line$=mid(line$,4,len(line$))
            v.x# = ValFloat(GetStringToken(line$," ",1))
            v.y#= ValFloat(GetStringToken(line$," ",2))
            v.z#= ValFloat(GetStringToken(line$," ",3))  * -1
         
            objectmesh[id].normals.insert(v)
             
        endif
 
        if (mid(line$,1,3) = "vt ") 
            line$=mid(line$,4,len(line$))
             
            v.u# = ValFloat(GetStringToken(line$," ",1))
            v.v#= ValFloat(GetStringToken(line$," ",2))
         
            objectmesh[id].textures.insert(v)
             
        endif
         if loops>1 and mid(line$,1,2) = "g "
             
            print (line$)
            print (id)
            print (objectmesh[id].faces.length)
            sync()
            sleep(20)
             
             
            // found a group so apply the name of it and increate the object count to create a new object for the next one in the group
            objectmesh[id].name$ = line$
 
             
            inc id
             
             
        endif
 
        if (mid(line$,1,2) = "f ") 
            line$=mid(line$,3,len(line$))
            face1$ = GetStringToken(line$," ",1)
            face2$ = GetStringToken(line$," ",2)
            face3$ = GetStringToken(line$," ",3)
            face4$ = GetStringToken(line$," ",4)
             
// eg constucted F 1//1 14//1 13//1 = Vertex // Normal VertexIndex//NormalIndex VertexIndex//NormalIndex
// eg constucted F 1//1 14//1 13//1 8//1 = Polygon construction // Normal VertexIndex//NormalIndex VertexIndex//NormalIndex
 
 
            v.vindex = ValFloat(GetStringToken(face1$,"//",1))-1
            v.tindex = ValFloat(GetStringToken(face1$,"//",2))-1
            v.nindex = ValFloat(GetStringToken(face1$,"//",3))-1
            if v.nindex = -1
                v.nindex = v.tindex
                v.tindex = -1
            endif
            objectmesh[id].faces.insert(v)
//sync()
//sleep(3000)
 
            v.vindex = ValFloat(GetStringToken(face2$,"//",1))-1
            v.tindex = ValFloat(GetStringToken(face2$,"//",2))-1
            v.nindex = ValFloat(GetStringToken(face2$,"//",3))-1
 
            if v.nindex = -1
                v.nindex = v.tindex
                v.tindex = -1
            endif
            objectmesh[id].faces.insert(v)
//sync()
//sleep(1000)
             
// Y#
// Z#
 
            v.vindex = ValFloat(GetStringToken(face3$,"//",1))-1
            v.tindex = ValFloat(GetStringToken(face3$,"//",2))-1
            v.nindex = ValFloat(GetStringToken(face3$,"//",3))-1
 
            if v.nindex = -1
                v.nindex = v.tindex
                v.tindex = -1
            endif
            objectmesh[id].faces.insert(v)
//sync()
//sleep(1000)
             
// 4 faces = polygon so needs a polygon - 4 vertices command rather than a addvertex (3 points)
// a polygon will require 6xvertices. 1st/2nd/3rd points is indeed makes the first triangle
// then the other 3 needs to be - 2 x shared vertices from the 2 of the previous and an extra one making the
// final outcome of 4 vertices polygon object
 
    if len(face4$)>1
            v.vindex = ValFloat(GetStringToken(face4$,"//",1))-1
            v.tindex = ValFloat(GetStringToken(face4$,"//",2))-1
            v.nindex = ValFloat(GetStringToken(face4$,"//",3))-1
 
            if v.nindex = -1 
                v.nindex = v.tindex
                v.tindex = -1
            endif
            objectmesh[id].faces.insert(v)
print(v.vindex)
print(v.tindex)
print(v.nindex)
print(face4$)
//sync()
//sleep(1)
        objectmesh[id].polygon=1
    else
        sleep(1)
        if len(face3$)>1 
                v.vindex = ValFloat(GetStringToken(face3$,"//",1))-1
            v.tindex = ValFloat(GetStringToken(face3$,"//",2))-1
            v.nindex = ValFloat(GetStringToken(face3$,"//",3))-1
 
            if v.nindex = -1
                v.nindex = v.tindex
                v.tindex = -1
            endif
            objectmesh[id].faces.insert(v)
        else
                v.vindex = ValFloat(GetStringToken(face2$,"//",1))-1
            v.tindex = ValFloat(GetStringToken(face2$,"//",2))-1
            v.nindex = ValFloat(GetStringToken(face2$,"//",3))-1
 
            if v.nindex = -1
                v.nindex = v.tindex
                v.tindex = -1
            endif
            objectmesh[id].faces.insert(v)
         
        endif
             
 
    if objectmesh[id].polygon<>1
        objectmesh[id].polygon=0
            endif
             
        endif
         
 
     
 
             
        endif
 
         
    endwhile
     
    if debug=1 
        print(objectmesh[id].Vertex.length)
        for a=0 to objectmesh[id].vertex.length
            print("V " + str(objectmesh[id].vertex[a].x#) + " " + str(objectmesh[id].vertex[a].y#) + " " + str(objectmesh[id].vertex[a].z#))
 
        next
     
        sync()
        sleep(2000)
     
        print(objectmesh[id].Normals.length)
 
        for a=0 to objectmesh[id].normals.length
            print("VN " + str(objectmesh[id].normals[a].x#) + " " + str(objectmesh[id].normals[a].y#) + " " + str(objectmesh[id].normals[a].z#))
 
     
        next
 
        sync()
//      sleep(2000)
 
            print(objectmesh[id].Faces.length)
 
        for a=0 to objectmesh[id].faces.length
            print("F " + str(objectmesh[id].faces[a].x#) + " " + str(objectmesh[id].faces[a].y#) + " " + str(objectmesh[id].faces[a].z#))
 
     
        next
        sync()
     
        sleep(2000)
    endif
     
     
    if debug=1
        sync()
        sleep(1000)
    endif
 
     
    if save=0
         
        objectmesh[id].vertex.length=-1
        objectmesh[id].normals.length=-1
        objectmesh[id].faces.length=-1
        objectmesh[id].textures.length=-1
    endif
     
    CloseFile(f)
endfunction
 
 
// Instance a loaded object - requires to "save" the data when load an object for this to work
function InstanceMeshObject(id, ObjID, x#, y#, z#, scalex#,scaley#,scalez#, color, inverted)
    mv as _meshmemblockvertexes
 
    mv.id = ObjID
    mv.vfrom = vertexcount
    indices=0
     
    if objectmesh[id].polygon=0
        for a=0 to objectmesh[id].faces.length-2 step 2
// calculate the normals        
            nnx#=objectmesh[id].normals[objectmesh[id].faces[a].nindex].x#
            nny#=objectmesh[id].normals[objectmesh[id].faces[a].nindex].y#
            nnz#=objectmesh[id].normals[objectmesh[id].faces[a].nindex].z# * -1
         
         
            length# = sqrt((nnx# * nnx#) + (nny# * nny#) + (nnz# * nnz#)) 
         
            if length#>31 
                length#=1/length#
            else
                nny#=1
                length#=1
            endif
         
            nx# = nnx# * length#
            ny# = nny# * length#
            nz# = nnz# * length#
 
         
// apply the polygon referencing indexes from the OBJect
        // does the object have a texture assigned
        if objectmesh[id].faces[a].tindex <> -1 
            // yes
            AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].x# * scalex#, y#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].y# * scaley#, z#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].z# * scalez# ,nx#,ny#,nz#, objectmesh[id].textures[objectmesh[id].faces[a].tindex].u# ,objectmesh[id].textures[objectmesh[id].faces[a].tindex].v#,Color)
            AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].x# * scalex#, y#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].y# * scaley#, z#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].z# * scalez# ,nx#,ny#,nz#, objectmesh[id].textures[objectmesh[id].faces[a+2].tindex].u# ,objectmesh[id].textures[objectmesh[id].faces[a+2].tindex].v#,Color)
            AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a+1].vindex].x# * scalex#, y#+objectmesh[id].vertex[objectmesh[id].faces[a+1].vindex].y# * scaley#, z#+objectmesh[id].vertex[objectmesh[id].faces[a+1].vindex].z# * scalez# ,nx#,ny#,nz#, objectmesh[id].textures[objectmesh[id].faces[a+1].tindex].u# ,objectmesh[id].textures[objectmesh[id].faces[a+1].tindex].v#,Color)
            inc indices,2
        else
            // no
            AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].x# * scalex#, y#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].y# * scaley#, z#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].z# * scalez# ,nx#,ny#,nz#, 0,0,Color)
            inc indices,1
 
        endif
// add the next vertex position so we know which vertexs to change later when using setmeshmemblockvertexposition etc
                 
        next   
    else
        //polygon
        // polygon construction
        for a=0 to objectmesh[id].faces.length step 4
//calculate the normals
//sleep(10000)
            nnx#=objectmesh[id].normals[objectmesh[id].faces[a].nindex].x#
            nny#=objectmesh[id].normals[objectmesh[id].faces[a].nindex].y#
            nnz#=objectmesh[id].normals[objectmesh[id].faces[a].nindex].z# * -1
         
         
            length# = sqrt((nnx# * nnx#) + (nny# * nny#) + (nnz# * nnz#)) 
         
            if length#>31 
                length#=1/length#
            else
                nny#=1
                length#=1
            endif
         
            nx# = nnx# * length#
            ny# = nny# * length#
            nz# = nnz# * length#
 
// apply the polygon referencing indexes from the OBJect
 
        // does the object have a texture assigned
        if objectmesh[id].faces[a].tindex <> -1 
            // yes
             
            if inverted = 0 
                AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].x# * scalex#, y#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].y# * scaley#, z#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].z# * scalez# ,nx#,ny#,nz#,  objectmesh[id].textures[objectmesh[id].faces[a].tindex].u# ,objectmesh[id].textures[objectmesh[id].faces[a].tindex].v#,color)
                AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a+1].vindex].x# * scalex#, y#+objectmesh[id].vertex[objectmesh[id].faces[a+1].vindex].y# * scaley#, z#+objectmesh[id].vertex[objectmesh[id].faces[a+1].vindex].z# * scalez# ,nx#,ny#,nz#,  objectmesh[id].textures[objectmesh[id].faces[a+1].tindex].u# ,objectmesh[id].textures[objectmesh[id].faces[a+1].tindex].v#,color)
                AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].x# * scalex#, y#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].y# * scaley#, z#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].z# * scalez# ,nx#,ny#,nz#,  objectmesh[id].textures[objectmesh[id].faces[a+2].tindex].u# ,objectmesh[id].textures[objectmesh[id].faces[a+2].tindex].v#,color)
 
                AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].x# * scalex#, y#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].y# * scaley#, z#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].z# * scalez# ,nx#,ny#,nz#,  objectmesh[id].textures[objectmesh[id].faces[a+2].tindex].u# ,objectmesh[id].textures[objectmesh[id].faces[a+2].tindex].v#,color)
                AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a+3].vindex].x# * scalex#, y#+objectmesh[id].vertex[objectmesh[id].faces[a+3].vindex].y# * scaley#, z#+objectmesh[id].vertex[objectmesh[id].faces[a+3].vindex].z# * scalez# ,nx#,ny#,nz#,  objectmesh[id].textures[objectmesh[id].faces[a+3].tindex].u# ,objectmesh[id].textures[objectmesh[id].faces[a+3].tindex].v#,color)
                AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].x# * scalex#, y#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].y# * scaley#, z#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].z# * scalez# ,nx#,ny#,nz#,  objectmesh[id].textures[objectmesh[id].faces[a].tindex].u# ,objectmesh[id].textures[objectmesh[id].faces[a].tindex].v#,color)
            else
                AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].x# * scalex#, y#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].y# * scaley#, z#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].z# * scalez# ,nx#,ny#,nz#,  objectmesh[id].textures[objectmesh[id].faces[a].tindex].u# ,objectmesh[id].textures[objectmesh[id].faces[a].tindex].v#,color)
                AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].x# * scalex#, y#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].y# * scaley#, z#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].z# * scalez# ,nx#,ny#,nz#,  objectmesh[id].textures[objectmesh[id].faces[a+2].tindex].u# ,objectmesh[id].textures[objectmesh[id].faces[a+2].tindex].v#,color)
                AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a+1].vindex].x# * scalex#, y#+objectmesh[id].vertex[objectmesh[id].faces[a+1].vindex].y# * scaley#, z#+objectmesh[id].vertex[objectmesh[id].faces[a+1].vindex].z# * scalez# ,nx#,ny#,nz#,  objectmesh[id].textures[objectmesh[id].faces[a+1].tindex].u# ,objectmesh[id].textures[objectmesh[id].faces[a+1].tindex].v#,color)
 
                AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].x# * scalex#, y#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].y# * scaley#, z#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].z# * scalez# ,nx#,ny#,nz#,  objectmesh[id].textures[objectmesh[id].faces[a+2].tindex].u# ,objectmesh[id].textures[objectmesh[id].faces[a+2].tindex].v#,color)
                AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].x# * scalex#, y#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].y# * scaley#, z#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].z# * scalez# ,nx#,ny#,nz#,  objectmesh[id].textures[objectmesh[id].faces[a].tindex].u# ,objectmesh[id].textures[objectmesh[id].faces[a].tindex].v#,color)
                AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a+3].vindex].x# * scalex#, y#+objectmesh[id].vertex[objectmesh[id].faces[a+3].vindex].y# * scaley#, z#+objectmesh[id].vertex[objectmesh[id].faces[a+3].vindex].z# * scalez# ,nx#,ny#,nz#,  objectmesh[id].textures[objectmesh[id].faces[a+3].tindex].u# ,objectmesh[id].textures[objectmesh[id].faces[a+3].tindex].v#,color)
            endif
        else
            // no
             
            AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].x# * scalex#, y#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].y# * scaley#, z#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].z# * scalez# ,nx#,ny#,nz#, 1,1 ,color)
            AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a+1].vindex].x# * scalex#, y#+objectmesh[id].vertex[objectmesh[id].faces[a+1].vindex].y# * scaley#, z#+objectmesh[id].vertex[objectmesh[id].faces[a+1].vindex].z# * scalez# ,nx#,ny#,nz#,1,0,color)
            AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].x# * scalex#, y#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].y# * scaley#, z#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].z# * scalez# ,nx#,ny#,nz#,0,0,color)
 
            AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].x# * scalex#, y#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].y# * scaley#, z#+objectmesh[id].vertex[objectmesh[id].faces[a+2].vindex].z# * scalez# ,nx#,ny#,nz#, 0,0,color)
            AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a+3].vindex].x# * scalex#, y#+objectmesh[id].vertex[objectmesh[id].faces[a+3].vindex].y# * scaley#, z#+objectmesh[id].vertex[objectmesh[id].faces[a+3].vindex].z# * scalez# ,nx#,ny#,nz#, 0,1,color)
            AddVertex(MeshID, x#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].x# * scalex#, y#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].y# * scaley#, z#+objectmesh[id].vertex[objectmesh[id].faces[a].vindex].z# * scalez# ,nx#,ny#,nz#, 1,1,color)
        endif
             
// add the next 4 vertex position so we know which vertexs to change later when using setmeshmemblockvertexposition etc
// we need to add 4 of these cause its a polygon structure
 
//          inc vertexcount,1
            inc indices,6
        next
         
    endif
     
     
    mv.vto = vertexcount + indices-1
    meshmemblockvertexes.insert(mv)
    inc vertexcount,indices
 
     
endfunction
 
 
 
 
// LoadObjectIntoMeshfunction
// filename$ - What is the model name
// debug     - 0 to not have any - 1 to have all the info displayed 
// save      - 0 to not save any Vs/VNs/VTs/Fs in global memory or 1 to keep those in memory to change at a later time in the app if so wish
 
  
 
function emptymesh()
     
    MeshID.TriangleList.length=-1
    MeshID.VertexList.length=-1
     
     
endfunction
   
Function AddVertex(m ref as Mesh, x as float, y as float, z as float, nx as float, ny as float, nz as float, u as float, v as float, color as integer)
    vert as vertex
    vert.x = x
    vert.y = y
    vert.z = z
    vert.nx = nx
    vert.ny = ny
    vert.nz = nz
    vert.u = u
    vert.v = v
    vert.color = color
    m.VertexList.Insert(vert)
   
endfunction
   
Function AddTriangle(m ref as Mesh, v1 as integer, v2 as integer, v3 as integer)
    t as Triangle
    t.v1 = v1
    t.v2 = v2
    t.v3 = v3
    m.TriangleList.Insert(t)
endfunction
   
   
Function CreateObjectFromMeshWithUVTexturing(m ref as mesh, texture)
    DeleteMemblock(memblock)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 60 + VertexCount*36
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,3)
    SetMemblockInt(memblock,12,32) // no color - 36 if color
    SetmemblockInt(memblock,16,60)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    //SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    //SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,60+i*32,m.VertexList[i].x)
        SetMemblockFloat(memblock,64+i*32,m.VertexList[i].y)
        SetMemblockFloat(memblock,68+i*32,m.VertexList[i].z)
        SetMemblockFloat(memblock,72+i*32,m.VertexList[i].nx)
        SetMemblockFloat(memblock,76+i*32,m.VertexList[i].ny)
        SetMemblockFloat(memblock,80+i*32,m.VertexList[i].nz)
        SetMemblockFloat(memblock,84+i*32,m.VertexList[i].u)
        SetMemblockFloat(memblock,88+i*32,m.VertexList[i].v)
        //SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    next
       
//  for i = 0 to m.TriangleList.Length
//      SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
//      SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
//      SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
//  next
    DeleteObject(id)
    id = CreateObjectFromMeshMemblock(memblock)
    SetObjectImage(id,texture,0)
   
//    if mode=1 // creates the world or it creates for other small things - like explosion blocks
        // we need to keep the world chunk in memory so we can keep updating the vertices
        meshmemory = memblock
//    endif
       
//  DeleteMemblock(memblock)
endfunction id
 
Function CreateObjectFromMeshWithColor(m ref as mesh)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 72 + VertexCount*36
     
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,4)
    SetMemblockInt(memblock,12,36) // no color - 36 if color
    SetmemblockInt(memblock,16,72)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,72+i*36,m.VertexList[i].x)
        SetMemblockFloat(memblock,76+i*36,m.VertexList[i].y)
        SetMemblockFloat(memblock,80+i*36,m.VertexList[i].z)
        SetMemblockFloat(memblock,84+i*36,m.VertexList[i].nx)
        SetMemblockFloat(memblock,88+i*36,m.VertexList[i].ny)
        SetMemblockFloat(memblock,92+i*36,m.VertexList[i].nz)
        SetMemblockFloat(memblock,96+i*36,m.VertexList[i].u)
        SetMemblockFloat(memblock,100+i*36,m.VertexList[i].v)
        SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
     next
       
/*    for i = 0 to m.TriangleList.Length
        SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
        SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
        SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
    next
 */
    id = CreateObjectFromMeshMemblock(memblock)
//  DeleteMemblock(memblock)
endfunction id
 
 
 
 

// Project: City Views
// Created: 2018-10-28
  
 // TO DO - Save Primative Objects to OBJ so can model them in blender and such like
  
// show all errors
SetErrorMode(2)
   
 #constant PI# = 3.14159265359
 #constant screenwidth=1024
 #constant screenheight=768
 #constant fullscreen=0
   
// set window properties
SetWindowTitle( "City Views" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window
   
// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 1200, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
   
 global ang#, angx#, angy#, fDiffY#, fDiffX#,newX#,startx#, starty#, camerax#, cameray#, cameraz#
 
// *************************************************
// ** Perlin Setup - please dont upset these variables
// *************************************************
#constant perlinw = 1024 //power of 2
#constant perlinh = 1024 //power of 2
#constant perlinz = 0   // doesnt work yet - required 3D perlin noise - Yikes
#constant perlinheight=120.0 
 
 
// *************************************************
// ** Mesh Memblock Types - please dont upset these variables
// *************************************************
 
Type Vertex
       
    x as float
    y as float
    z as float
    nx as float
    ny as float
    nz as float
    u as float
    v as float
    color as integer
endtype
   
Type Triangle
    v1 as integer
    v2 as integer
    v3 as integer
endtype
   
Type Mesh
    VertexList as Vertex[]
    TriangleList as Triangle[]
endtype
   
global MeshID as Mesh
 
type _vector
    x#
    y#
    z#
    polygon // 1 = yes - 0 = no 
    vindex
    nindex
    tindex
    u#
    v#
endtype
 
 
type _object
     
    name$ as String
    v as integer[]        // the actual vertex on the mesh which need to save so can use SetMeshMemblockVertexPosition commands for example at a later time
    vertex as _vector[]   // eg v 1.276477 0.200934 -0.387665
    normals as _vector[]  // eg vn vn -0.5346 0.3304 -0.7779
     
     
    faces as _vector[]    // eg f 5//9 21//9 29//9
    textures as _vector[] // eg vt 0.500 1 [0]
    polygon as integer    // 1=Yes , 0 = No
 
endtype
global objectmesh as _object[100]
 
type _meshmemblockvertexes
    id
    vfrom
    vto
endtype
     
global meshmemblockvertexes as _meshmemblockvertexes[] // this will store the true vertex positions on a meshmemblock
 
type _farworlds
    objID
    x#
    y#
    z#
endtype
global farworlds as _farworlds[]
 
// *************************************************
// ** END OF - Mesh Memblock Types - please dont upset these variables
// *************************************************
global vertexcount

cube=LoadImage("\media\cube.png")
 
//LoadObjectIntoMesh(0,"\media\cube.obj","",0,1)
 
worldmeshes as integer[]

obj=0
wsize=32
cubesize=10

noofcubes=0
chunks=0
worldsize=2
for worldmeshesx#=-worldsize to worldsize
	for worldmeshesy#=-worldsize to worldsize
		for worldmeshesz#=-worldsize to worldsize

			worldmeshes.insert(buildchunk(wsize,cubesize,cube))
	
			SetObjectPosition(worldmeshes[chunks], worldmeshesx# * (wsize*cubesize), worldmeshesy# * (wsize*cubesize), worldmeshesz# * (wsize*cubesize)) 
			
			SetObjectCullMode(worldmeshes[chunks],1)
			inc noofcubes, wsize*wsize*wsize
			inc chunks
		next
	next
next
		
				
//	next
//next
 
 
 
setupcamera()
 
do
	print("Number of cubes " + str(noofcubes))
	print("Number of chunks " + str(chunks))
	print("Chunk size " + str(wsize) + " x " + str(wsize) + " x " + str(wsize))
	print("World size  " + str(worldsize) + " x " + str(worldsize) + " x " + str(worldsize))
    RotateCameraLocalX(1,.05)
    RotateCameraLocalY(1,.05)
    RotateCameraLocalZ(1,.05)
     
 
    movecamerawithmouse()
    if GetRawKeyState(87) then inc cameray#,1
    if GetRawKeyState(83) then dec cameray#,1


    if GetRawKeyState(37) then inc camerax#,1
    if GetRawKeyState(39) then dec camerax#,1


    if GetRawKeyState(38) then inc cameraz#,1
    if GetRawKeyState(40) then dec cameraz#,1
 
     
	print("Use WASD and cursors to move camera")
    SetCameraPosition(1,camerax#,cameray#,cameraz#)
             
             
    print("FPS " + str(ScreenFPS()) + "  - Last Key" + str(GetRawLastKey()))
   Sync()
loop
         
 
function buildchunk(wsize,cubesize,texture)
	// build a chunk
		for x#=-wsize to wsize
			for y#=0 to 0
			
			
				for z#=-wsize to wsize

					Create3DSingleSidedPlane(x#*(cubesize*2),y#*(cubesize*2),z#*(cubesize*2),cubesize,cubesize,cubesize)
//					InstanceMeshObject(0,obj,x#*(cubesize*2),y#*(cubesize*2),z#*(cubesize*2),cubesize,cubesize,cubesize,MakeColor(255,255,255),0)
	//				inc obj
				next
			next
		next
		
// crate the chunk and join them together
		chunk = CreateObjectFromMeshWithUVTexturing(meshid,texture) 
		emptymesh()
endfunction chunk
	 
function Create3DSingleSidedPlane(x#, y#, z#, sizex,sizey,sizez)
	red=MakeColor(255,255,255)
	green=MakeColor(255,255,255)
	blue=MakeColor(255,255,255)
	
	AddVertex(meshid,(x#+-sizex),y#,(z#+ sizez) , 0,1,0  ,0,0, MakeColor(red,green,blue))
	AddVertex(meshid,(x#+-sizex),y#,(z#+-sizez), 0,1,0  ,0,1, MakeColor(red,green,blue))
	AddVertex(meshid,(x#+ sizex) ,y#,(z#+ sizez) , 0,1,0  ,1,0, MakeColor(red,green,blue))
			
	AddVertex(meshid,(x#+ sizex) ,y#,(z#+ sizez) , 0,1,0  ,1,0, MakeColor(red,green,blue))
	AddVertex(meshid,(x#+-sizex),y#,(z#+-sizez), 0,1,0  ,0,1, MakeColor(red,green,blue))
	AddVertex(meshid,(x#+ sizex) ,y#,(z#+-sizez), 0,1,0  ,1,1, MakeColor(red,green,blue))

	
endfunction 


function setupcamera()
    camerax#=0
    cameray#=500
    cameraz#=-1000
    startx#=screenwidth/2
    starty#=screenheight/2
    SetRawMousePosition(startx#,starty#)
endfunction
 
 function movecamerawithmouse()
        
    fDiffX# = (GetPointerX() - startx#)/4.0
    fDiffY# = (GetPointerY() - starty#)/4.0
    
    newX# = angx# + fDiffY#
   // if ( newX# > 360 ) then newX# = 360
   // if ( newX# < -360 ) then newX# = -360
      
    // if we keep hold of the left mouse button then rotate the view otherwise the camera stays put
    // so can concentrate on adding/removing blocks at that positon
      
      
    SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
    
endfunction
 
 
// *************************************************
// ** Mesh Memblock Function
// *************************************************
 
 
  
 
function emptymesh()
     
    MeshID.TriangleList.length=-1
    MeshID.VertexList.length=-1
     
     
endfunction
   
Function AddVertex(m ref as Mesh, x as float, y as float, z as float, nx as float, ny as float, nz as float, u as float, v as float, color as integer)
    vert as vertex
    vert.x = x
    vert.y = y
    vert.z = z
    vert.nx = nx
    vert.ny = ny
    vert.nz = nz
    vert.u = u
    vert.v = v
    vert.color = color
    m.VertexList.Insert(vert)
   
endfunction
   
Function AddTriangle(m ref as Mesh, v1 as integer, v2 as integer, v3 as integer)
    t as Triangle
    t.v1 = v1
    t.v2 = v2
    t.v3 = v3
    m.TriangleList.Insert(t)
endfunction
   
   
Function CreateObjectFromMeshWithUVTexturing(m ref as mesh, texture)
    DeleteMemblock(memblock)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 60 + VertexCount*36
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,3)
    SetMemblockInt(memblock,12,32) // no color - 36 if color
    SetmemblockInt(memblock,16,60)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    //SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    //SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,60+i*32,m.VertexList[i].x)
        SetMemblockFloat(memblock,64+i*32,m.VertexList[i].y)
        SetMemblockFloat(memblock,68+i*32,m.VertexList[i].z)
        SetMemblockFloat(memblock,72+i*32,m.VertexList[i].nx)
        SetMemblockFloat(memblock,76+i*32,m.VertexList[i].ny)
        SetMemblockFloat(memblock,80+i*32,m.VertexList[i].nz)
        SetMemblockFloat(memblock,84+i*32,m.VertexList[i].u)
        SetMemblockFloat(memblock,88+i*32,m.VertexList[i].v)
        //SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    next
       
//  for i = 0 to m.TriangleList.Length
//      SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
//      SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
//      SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
//  next
    DeleteObject(id)
    id = CreateObjectFromMeshMemblock(memblock)
    SetObjectImage(id,texture,0)
   
//    if mode=1 // creates the world or it creates for other small things - like explosion blocks
        // we need to keep the world chunk in memory so we can keep updating the vertices
        meshmemory = memblock
//    endif
       
//  DeleteMemblock(memblock)
endfunction id
 
Function CreateObjectFromMeshWithColor(m ref as mesh)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 72 + VertexCount*36
     
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,4)
    SetMemblockInt(memblock,12,36) // no color - 36 if color
    SetmemblockInt(memblock,16,72)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,72+i*36,m.VertexList[i].x)
        SetMemblockFloat(memblock,76+i*36,m.VertexList[i].y)
        SetMemblockFloat(memblock,80+i*36,m.VertexList[i].z)
        SetMemblockFloat(memblock,84+i*36,m.VertexList[i].nx)
        SetMemblockFloat(memblock,88+i*36,m.VertexList[i].ny)
        SetMemblockFloat(memblock,92+i*36,m.VertexList[i].nz)
        SetMemblockFloat(memblock,96+i*36,m.VertexList[i].u)
        SetMemblockFloat(memblock,100+i*36,m.VertexList[i].v)
        SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
     next
       
/*    for i = 0 to m.TriangleList.Length
        SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
        SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
        SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
    next
 */
    id = CreateObjectFromMeshMemblock(memblock)
//  DeleteMemblock(memblock)
endfunction id
 
 

// Project: City Views
// Created: 2018-10-28
  
 // TO DO - Save Primative Objects to OBJ so can model them in blender and such like
  
// show all errors
SetErrorMode(2)
   
 #constant PI# = 3.14159265359
 #constant screenwidth=1024
 #constant screenheight=768
 #constant fullscreen=0
   
// set window properties
SetWindowTitle( "City Views" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window
   
// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 1200, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
   
 global ang#, angx#, angy#, fDiffY#, fDiffX#,newX#,startx#, starty#, camerax#, cameray#, cameraz#
 
// *************************************************
// ** Perlin Setup - please dont upset these variables
// *************************************************
#constant perlinw = 1024 //power of 2
#constant perlinh = 1024 //power of 2
#constant perlinz = 0   // doesnt work yet - required 3D perlin noise - Yikes
#constant perlinheight=120.0 
 
 
// *************************************************
// ** Mesh Memblock Types - please dont upset these variables
// *************************************************
 
Type Vertex
       
    x as float
    y as float
    z as float
    nx as float
    ny as float
    nz as float
    u as float
    v as float
    color as integer
endtype
   
Type Triangle
    v1 as integer
    v2 as integer
    v3 as integer
endtype
   
Type Mesh
    VertexList as Vertex[]
    TriangleList as Triangle[]
endtype
   
global MeshID as Mesh
 
type _vector
    x#
    y#
    z#
    polygon // 1 = yes - 0 = no 
    vindex
    nindex
    tindex
    u#
    v#
endtype
 
 
type _object
     
    name$ as String
    v as integer[]        // the actual vertex on the mesh which need to save so can use SetMeshMemblockVertexPosition commands for example at a later time
    vertex as _vector[]   // eg v 1.276477 0.200934 -0.387665
    normals as _vector[]  // eg vn vn -0.5346 0.3304 -0.7779
     
     
    faces as _vector[]    // eg f 5//9 21//9 29//9
    textures as _vector[] // eg vt 0.500 1 [0]
    polygon as integer    // 1=Yes , 0 = No
 
endtype
global objectmesh as _object[100]
 
type _meshmemblockvertexes
    id
    vfrom
    vto
endtype
     
global meshmemblockvertexes as _meshmemblockvertexes[] // this will store the true vertex positions on a meshmemblock
 
type _farworlds
    objID
    x#
    y#
    z#
endtype
global farworlds as _farworlds[]
 
// *************************************************
// ** END OF - Mesh Memblock Types - please dont upset these variables
// *************************************************
global vertexcount

cube=LoadImage("\media\cube.png")
 
//LoadObjectIntoMesh(0,"\media\cube.obj","",0,1)
 
worldmeshes as integer[]

obj=0
wsize=32
cubesize=10
chunksize=50

noofcubes=0
chunks=0
worldsize=2


dim facechecks[chunksize,chunksize,chunksize]

for x=0 to chunksize
	for y=0 to chunksize
		for z=0 to chunksize


			facechecks[x,y,z]=1 // 1=block, 0=air
			facechecks[x,y,z]=random(0,1) // 1=block, 0=air --- UNcomment this line to see a different aspect

		next
	next
next


for x=0 to chunksize
	for y=0 to chunksize
		for z=0 to chunksize	
			t=1:b=0:l=0:r=0:f=0:ba=0
			
			if x-1>=0 
				if facechecks[x-1,y,z]=0 then f=1
			endif
			
			if x+1<=chunksize
				if facechecks[x+1,y,z]=0 then ba=1
			endif
			
			
			if z-1>=0
				if facechecks[x,y,z-1]=0 then l=1
			endif
			
			if z+1<=chunksize
				if facechecks[x,y,z+1]=0 then r=1
			endif
			
			
			if y+1<=chunksize
				if facechecks[x,y+1,z]=0 then b=1
			endif

			if y-1<=0
				if facechecks[x,y+1,z]=0 then t=1
			endif
			
			
			
			if facechecks[x,y,z]=1 then Create3DSingleSidedCube(x*cubesize*2,y*cubesize*2,z*cubesize*2,cubesize,cubesize,cubesize,t,b,l,r,f,ba)
			inc noofcubes
		next
	next
next
cube= CreateObjectFromMeshWithUVTexturing(meshid,cube)
			
//	next
//next
 
 
 
setupcamera()
 
do
	
	print("Number of cubes " + str(noofcubes))
	print("Number of Polys " + str(noofcubes*2))
	print("Number of Actual Polys Drawn " + str( GetPolygonsDrawn()))
	print("Number of chunks " + str(chunks))
	print("Chunk size " + str(wsize) + " x " + str(wsize) + " x " + str(wsize))
	print("World size  " + str(worldsize) + " x " + str(worldsize) + " x " + str(worldsize))
    RotateCameraLocalX(1,.05)
    RotateCameraLocalY(1,.05)
    RotateCameraLocalZ(1,.05)
     
 
    movecamerawithmouse()
    if GetRawKeyState(87) then inc cameray#,1
    if GetRawKeyState(83) then dec cameray#,1


    if GetRawKeyState(37) then inc camerax#,1
    if GetRawKeyState(39) then dec camerax#,1


    if GetRawKeyState(38) then inc cameraz#,1
    if GetRawKeyState(40) then dec cameraz#,1
 
     
	print("Use WASD and cursors to move camera")
    SetCameraPosition(1,camerax#,cameray#,cameraz#)
             
             
    print("FPS " + str(ScreenFPS()) + "  - Last Key" + str(GetRawLastKey()))
   Sync()
loop
         
 
function buildchunk(wsize,cubesize,texture)
	// build a chunk
		for x#=-wsize to wsize
			for y#=0 to 0
			
			
				for z#=-wsize to wsize

					Create3DSingleSidedCube(x#*(cubesize*2),y#*(cubesize*2),z#*(cubesize*2),cubesize,cubesize,cubesize,1,0,0,0,0,0)
//					InstanceMeshObject(0,obj,x#*(cubesize*2),y#*(cubesize*2),z#*(cubesize*2),cubesize,cubesize,cubesize,MakeColor(255,255,255),0)
	//				inc obj
				next
			next
		next
		
// crate the chunk and join them together
		chunk = CreateObjectFromMeshWithUVTexturing(meshid,texture) 
		emptymesh()
endfunction chunk
	 
	 
// X#,Y#,Z# - position of the cube
// SizeX, SizeY,SizeZ - size of the cube in all directions
// t - top - 1=yes-0-no
// b - bottom - 1=yes-0-no
// l - left - 1=yes-0-no
// r - right - 1=yes-0-no
// f - front - 1=yes-0-no
// ba - back - 1=yes-0-no


function Create3DSingleSidedCube(x#, y#, z#, sizex,sizey,sizez, t,b,l,r,f,ba)
	red=MakeColor(255,255,255)
	green=MakeColor(255,255,255)
	blue=MakeColor(255,255,255)


//top
	if t=1
		AddVertex(meshid,(x#+-sizex),y#+sizey,(z#+ sizez) , 0,1,0  ,0,0, MakeColor(red,green,blue))
		AddVertex(meshid,(x#+-sizex),y#+sizey,(z#+-sizez), 0,1,0  ,0,1, MakeColor(red,green,blue))
		AddVertex(meshid,(x#+ sizex),y#+sizey,(z#+ sizez) , 0,1,0  ,1,0, MakeColor(red,green,blue))
			
		AddVertex(meshid,(x#+ sizex),y#+sizey,(z#+ sizez) , 0,1,0  ,1,0, MakeColor(red,green,blue))
		AddVertex(meshid,(x#+-sizex),y#+sizey,(z#+-sizez), 0,1,0  ,0,1, MakeColor(red,green,blue))
		AddVertex(meshid,(x#+ sizex),y#+sizey,(z#+-sizez), 0,1,0  ,1,1, MakeColor(red,green,blue))
	endif
// bottom
	if b=1
		
		AddVertex(meshid,(x#+-sizex),y#-sizey,(z#+ sizez) , 0,1,0  ,0,0, MakeColor(red,green,blue))
		AddVertex(meshid,(x#+ sizex) ,y#-sizey,(z#+ sizez) , 0,1,0  ,1,0, MakeColor(red,green,blue))
		AddVertex(meshid,(x#+-sizex),y#-sizey,(z#+-sizez), 0,1,0  ,0,1, MakeColor(red,green,blue))
			
		AddVertex(meshid,(x#+ sizex) ,y#-sizey,(z#+ sizez) , 0,1,0  ,1,0, MakeColor(red,green,blue))
		AddVertex(meshid,(x#+ sizex) ,y#-sizey,(z#+-sizez), 0,1,0  ,1,1, MakeColor(red,green,blue))
		AddVertex(meshid,(x#+-sizex),y#-sizey,(z#+-sizez), 0,1,0  ,0,1, MakeColor(red,green,blue))
	endif

// left
	if l=1
		AddVertex(meshid,(x#+-sizex),y#+sizey,(z#+-sizez) , 0,1,0  ,0,0, MakeColor(red,green,blue))
		AddVertex(meshid,(x#+-sizex),y#-sizey,(z#+-sizez), 0,1,0  ,0,1, MakeColor(red,green,blue))
		AddVertex(meshid,(x#+ sizex),y#+sizey,(z#+-sizez) , 0,1,0  ,1,0, MakeColor(red,green,blue))
			
		AddVertex(meshid,(x#+ sizex),y#+sizey,(z#+-sizez) , 0,1,0  ,1,0, MakeColor(red,green,blue))
		AddVertex(meshid,(x#+-sizex),y#-sizey,(z#+-sizez), 0,1,0  ,0,1, MakeColor(red,green,blue))
		AddVertex(meshid,(x#+ sizex),y#-sizey,(z#+-sizez), 0,1,0  ,1,1, MakeColor(red,green,blue))
	endif

// right
	if r=1
		AddVertex(meshid,(x#+-sizex),y#+sizey,(z#+sizez) , 0,1,0  ,1,1, MakeColor(red,green,blue))
		AddVertex(meshid,(x#+ sizex),y#+sizey,(z#+sizez) , 0,1,0  ,1,0, MakeColor(red,green,blue))
		AddVertex(meshid,(x#+-sizex),y#-sizey,(z#+sizez), 0,1,0  ,0,1, MakeColor(red,green,blue))
			
		AddVertex(meshid,(x#+ sizex),y#+sizey,(z#+sizez) , 0,1,0  ,0,0, MakeColor(red,green,blue))
		AddVertex(meshid,(x#+ sizex),y#-sizey,(z#+sizez), 0,1,0  ,1,0, MakeColor(red,green,blue))
		AddVertex(meshid,(x#+-sizex),y#-sizey,(z#+sizez), 0,1,0  ,0,1, MakeColor(red,green,blue))
	endif


// front
	if f=1
		AddVertex(meshid,(x#+-sizex),y#+sizey,(z#-sizez) , 0,1,0  ,1,1, MakeColor(red,green,blue))
		AddVertex(meshid,(x#+-sizex),y#+sizey,(z#+sizez) , 0,1,0  ,1,0, MakeColor(red,green,blue))
		AddVertex(meshid,(x#+-sizex),y#-sizey,(z#-sizez), 0,1,0  ,0,1, MakeColor(red,green,blue))
			
		AddVertex(meshid,(x#+-sizex),y#+sizey,(z#+sizez) , 0,1,0  ,0,0, MakeColor(red,green,blue))
		AddVertex(meshid,(x#+-sizex),y#-sizey,(z#+sizez), 0,1,0  ,1,0, MakeColor(red,green,blue))
		AddVertex(meshid,(x#+-sizex),y#-sizey,(z#-sizez), 0,1,0  ,0,1, MakeColor(red,green,blue))
	endif



// back
	if ba=1
		AddVertex(meshid,(x#+sizex),y#+sizey,(z#-sizez) , 0,1,0  ,1,1, MakeColor(red,green,blue))
		AddVertex(meshid,(x#+sizex),y#-sizey,(z#-sizez), 0,1,0  ,0,1, MakeColor(red,green,blue))
		AddVertex(meshid,(x#+sizex),y#+sizey,(z#+sizez) , 0,1,0  ,1,0, MakeColor(red,green,blue))
			
		AddVertex(meshid,(x#+sizex),y#+sizey,(z#+sizez) , 0,1,0  ,0,0, MakeColor(red,green,blue))
		AddVertex(meshid,(x#+sizex),y#-sizey,(z#-sizez), 0,1,0  ,0,1, MakeColor(red,green,blue))
		AddVertex(meshid,(x#+sizex),y#-sizey,(z#+sizez), 0,1,0  ,1,0, MakeColor(red,green,blue))
	endif

	
endfunction 


function setupcamera()
    camerax#=0
    cameray#=10
    cameraz#=-20
    startx#=screenwidth/2
    starty#=screenheight/2
    SetRawMousePosition(startx#,starty#)
	SetCameraRange(1,0.1,3000)
endfunction
 
 function movecamerawithmouse()
        
    fDiffX# = (GetPointerX() - startx#)/4.0
    fDiffY# = (GetPointerY() - starty#)/4.0
    
    newX# = angx# + fDiffY#
   // if ( newX# > 360 ) then newX# = 360
   // if ( newX# < -360 ) then newX# = -360
      
    // if we keep hold of the left mouse button then rotate the view otherwise the camera stays put
    // so can concentrate on adding/removing blocks at that positon
      
      
    SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
    
endfunction
 
 
// *************************************************
// ** Mesh Memblock Function
// *************************************************
 
 
  
 
function emptymesh()
     
    MeshID.TriangleList.length=-1
    MeshID.VertexList.length=-1
     
     
endfunction
   
Function AddVertex(m ref as Mesh, x as float, y as float, z as float, nx as float, ny as float, nz as float, u as float, v as float, color as integer)
    vert as vertex
    vert.x = x
    vert.y = y
    vert.z = z
    vert.nx = nx
    vert.ny = ny
    vert.nz = nz
    vert.u = u
    vert.v = v
    vert.color = color
    m.VertexList.Insert(vert)
   
endfunction
   
Function AddTriangle(m ref as Mesh, v1 as integer, v2 as integer, v3 as integer)
    t as Triangle
    t.v1 = v1
    t.v2 = v2
    t.v3 = v3
    m.TriangleList.Insert(t)
endfunction
   
   
Function CreateObjectFromMeshWithUVTexturing(m ref as mesh, texture)
    DeleteMemblock(memblock)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 60 + VertexCount*36
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,3)
    SetMemblockInt(memblock,12,32) // no color - 36 if color
    SetmemblockInt(memblock,16,60)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    //SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    //SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,60+i*32,m.VertexList[i].x)
        SetMemblockFloat(memblock,64+i*32,m.VertexList[i].y)
        SetMemblockFloat(memblock,68+i*32,m.VertexList[i].z)
        SetMemblockFloat(memblock,72+i*32,m.VertexList[i].nx)
        SetMemblockFloat(memblock,76+i*32,m.VertexList[i].ny)
        SetMemblockFloat(memblock,80+i*32,m.VertexList[i].nz)
        SetMemblockFloat(memblock,84+i*32,m.VertexList[i].u)
        SetMemblockFloat(memblock,88+i*32,m.VertexList[i].v)
        //SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    next
       
//  for i = 0 to m.TriangleList.Length
//      SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
//      SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
//      SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
//  next
    DeleteObject(id)
    id = CreateObjectFromMeshMemblock(memblock)
    SetObjectImage(id,texture,0)
   
//    if mode=1 // creates the world or it creates for other small things - like explosion blocks
        // we need to keep the world chunk in memory so we can keep updating the vertices
        meshmemory = memblock
//    endif
       
//  DeleteMemblock(memblock)
endfunction id
 
Function CreateObjectFromMeshWithColor(m ref as mesh)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 72 + VertexCount*36
     
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,4)
    SetMemblockInt(memblock,12,36) // no color - 36 if color
    SetmemblockInt(memblock,16,72)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,72+i*36,m.VertexList[i].x)
        SetMemblockFloat(memblock,76+i*36,m.VertexList[i].y)
        SetMemblockFloat(memblock,80+i*36,m.VertexList[i].z)
        SetMemblockFloat(memblock,84+i*36,m.VertexList[i].nx)
        SetMemblockFloat(memblock,88+i*36,m.VertexList[i].ny)
        SetMemblockFloat(memblock,92+i*36,m.VertexList[i].nz)
        SetMemblockFloat(memblock,96+i*36,m.VertexList[i].u)
        SetMemblockFloat(memblock,100+i*36,m.VertexList[i].v)
        SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
     next
       
/*    for i = 0 to m.TriangleList.Length
        SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
        SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
        SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
    next
 */
    id = CreateObjectFromMeshMemblock(memblock)
  DeleteMemblock(memblock)
endfunction id
 
 

// Project: boxes on screen 
// Created: 2018-12-31

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "boxes on screen" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 0, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
`---------------------------------------------------------------------------------------------------------------------------
` making the camera
createobjectbox(5000,2,2,5)
createobjectsphere(5001,3,5,5)
setobjectscale(5001,0.2,1,1)
cloneobject(5002,5001)
setobjectposition(5001,0,2.5,0.5)
setobjectposition(5002,0,2.5,-2)
fixobjecttoobject(5001,5000)
fixobjecttoobject(5002,5000)
createobjectcone(5003,5,5,12)
setobjectrotation(5003,-90,0,0)
fixobjectpivot(5003)
FixObjectToObject(5003,5000)
setobjectposition(5003,0,0,3)

ob=0
`  grid of 1000 objects in front of the camera
for i= 1 to 10
   for a= 1 to 10
      for c= 1 to 10
         inc ob
         createobjectbox(ob,1,1,1)
         setobjectposition(ob,i*3,a*3,c*3)
         
      next c
   next a
next i

setobjectposition(5000,10,5,-20)
setcameraposition(1,-50,50,-50)
SetCameraLookAt(1,0,0,0,0)
SetRawMousePosition(512,350)
mode=1  `camera mode  1 = static  2= first person
do
if mode=1
  setcameraposition(1,-50,50,-50)
  SetCameraLookAt(1,0,0,0,0)	
endif
if mode=2
   setcameraposition(1,getobjectx(5000),getobjecty(5000)+2,getobjectz(5000))
   setcamerarotation(1,0,getobjectangley(5000),0)
endif


`old camera object position
x#=getobjectx(5000)
y#=getobjecty(5000)
z#=getobjectz(5000)

`moving camera object to get new coords.
MoveObjectLocalZ(5000,-10)

`new camera object coords. after moving
lx#=getobjectx(5000)
ly#=getobjecty(5000)
lz#=getobjectz(5000)

`letting camera object in its place
MoveObjectLocalZ(5000,10)

`getting distance of every object to the camera and comparing both distances
for i= 1 to 1000
   obx#=getobjectx(i)
   oby#=getobjecty(i)
   obz#=getobjectz(i)
   dis#=distance#(x#,y#,z#,obx#,oby#,obz#)
   dis2#=distance#(lx#,ly#,lz#,obx#,oby#,obz#)
   if dis#<dis2#-8 then setobjectcolor(i,0,255,0,0) else setobjectcolor(i,255,0,0,0)
   if dis#<dis2#-8 then SetObjectVisible(i,1) else SetObjectVisible(i,0)
next i	
	
`getting how many objects are the camera seeing	
valor=0
for i= 1 to 1000
   obx#=getobjectx(i)
   oby#=getobjecty(i)
   obz#=getobjectz(i)
   dis#=distance#(x#,y#,z#,obx#,oby#,obz#)
   dis2#=distance#(lx#,ly#,lz#,obx#,oby#,obz#)
   if dis#<dis2#-8 then valor=valor+1
next i
		
	
	`camera 3th person movements
	 if ( GetRawKeyState( 38 ) ) then MoveobjectLocalZ( 5000, 0.3 )  // cursor up
	 if ( GetRawKeyState( 40 ) ) then MoveobjectLocalZ( 5000, -0.3 ) // cursor down
     if ( GetRawKeyState( 37 ) ) then tn#=tn#-0.5
     if ( GetRawKeyState( 39 ) ) then tn#=tn#+0.5
     if ( GetRawKeyState( 49 ) ) then mode=1
     if ( GetRawKeyState( 50 ) ) then mode=2
    
     SetobjectRotation( 5000, 0,tn#,0)
    print("Move and rotate camera with cursor")
    print("Press 1 / 2 to change mode")
    for i= 1 to 15
		print("")
	next
	
	f=screenfps()
    Print("FPS  "+str(f) )
    print("Objects in front of Camara "+str(valor))
    Sync()
loop


function distance#(x1#,y1#,z1#,x2#,y2#,z2#)
value#=sqrt(((x2#-(x1#))^2)+((y2#-(y1#))^2)+((z2#-(z1#))^2))
ENDFUNCTION value#

// Project: occlusion 
// Created: 2019-01-01

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0

// set window properties
SetWindowTitle( "occlusion" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

b as integer[]
a=0

for x=0 to 20
	for y=0 to 20
		for z=0 to 20
			
			b.insert(CreateObjectBox(1,1,1))
			SetObjectPosition(b[a],x,y,z)
			SetObjectColor(b[a],random(0,255),random(0,255),random(0,255),255)
			inc a
		next
	next
next


SetCameraPosition(1,10,40,-40)
a=0
do
    
	print("Polygons Drawn - " + str(GetPolygonsDrawn()))  
	if GetRawMouseLeftState()
		
		for c=a to a+100
		
			SetObjectVisible(b[c],0)
		next
		inc a,100
	endif
    Print( ScreenFPS() )
    Sync()
loop

// Project: occlusion 
// Created: 2019-01-01

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0

// set window properties
SetWindowTitle( "occlusion" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

b as integer[]
a=0
cube=CreateObjectBox(1,1,1)
for x=0 to 10
	for y=0 to 10
		for z=0 to 10
			
			b.insert(CreateObjectBox(1,1,1))
			SetObjectPosition(b[a],x,y,z)
			SetObjectColor(b[a],random(0,255),random(0,255),random(0,255),255)
			FixObjectToObject(b[a],cube)
			inc a
		next
	next
next

camerax# = 10
cameray# = 30
cameraz# = -30
a=0
angx#=0
angy#=0
startx#=screenwidth/2

starty#=screenheight/2
SetRawMousePosition(startx#,starty#)

do
	if GetRawMouseLeftState()
		RotateObjectLocalX(cube,.05)
		RotateObjectLocalY(cube,.05)
		RotateObjectLocalZ(cube,.05)
	else
		//reset back to normal
		SetObjectRotation(cube,0,0,0)
	endif



	if GetRawKeyState(37) then dec camerax#
	if GetRawKeyState(39) then inc camerax#
	if GetRawKeyState(38) then inc cameraz#
	if GetRawKeyState(40) then dec cameraz#

	print("Press cursors to move about")
	print("Press Lft mouse to rotate to show the invisible objects indeed gone")
	SetCameraPosition(1,camerax#,cameray#,cameraz#)
	
	//getcameraposition
    lx#=GetCameraX(1)
	ly#=GetCameraY(1)	
	lz#=GetCameraZ(1)

	print("Polygons Drawn - " + str(GetPolygonsDrawn()))  

// occull further objects
		for c=0 to b.length
			obx#=getobjectx(b[c])
			oby#=getobjecty(b[c])
			obz#=getobjectz(b[c])
		
			dis2#=distance#(lx#,ly#,lz#,obx#,oby#,obz#)
			if dis2#>40 /// change this to your desired amount
				SetObjectVisible(b[c],0)
			else
				SetObjectVisible(b[c],1)
			endif
		next


// move camera with mouse

        fDiffX# = (GetPointerX() - startx#)/1.0
        fDiffY# = (GetPointerY() - starty#)/1.0
 
        newX# = angx# + fDiffY#
        if ( newX# > 89 ) then newX# = 89
        if ( newX# < -89 ) then newX# = -89
        SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )


    Print( ScreenFPS() )
    Sync()
loop


function distance#(x1#,y1#,z1#,x2#,y2#,z2#)
	value#=sqrt(((x2#-(x1#))^2)+((y2#-(y1#))^2)+((z2#-(z1#))^2))
endfunction value#

// Project: occlusion 
// Created: 2019-01-01

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0

// set window properties
SetWindowTitle( "occlusion" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts




b as integer[10,10,10]


a=0
cube=CreateObjectBox(1,1,1)
for x=0 to 10
	for y=0 to 10
		for z=0 to 10
			
			b[x,y,z]=CreateObjectBox(1,1,1)
			SetObjectPosition(b[x,y,z],x,y,z)
			SetObjectColor(b[x,y,z],random(0,255),random(0,255),random(0,255),255)
			FixObjectToObject(b[x,y,z],cube)

			
			inc a
		next
	next
next

camerax# = 10
cameray# = 30
cameraz# = -30
a=0
angx#=0
angy#=0
startx#=screenwidth/2

starty#=screenheight/2
SetRawMousePosition(startx#,starty#)

do
	if GetRawMouseLeftState()
		RotateObjectLocalX(cube,.05)
		RotateObjectLocalY(cube,.05)
		RotateObjectLocalZ(cube,.05)
	else
		//reset back to normal
		SetObjectRotation(cube,0,0,0)
	endif



	if GetRawKeyState(37) then dec camerax#
	if GetRawKeyState(39) then inc camerax#
	if GetRawKeyState(38) then inc cameraz#
	if GetRawKeyState(40) then dec cameraz#

	print("Press cursors to move about")
	print("Press Lft mouse to rotate to show the invisible objects indeed gone")
	SetCameraPosition(1,camerax#,cameray#,cameraz#)
	
	//getcameraposition
    lx#=GetCameraX(1)
	ly#=GetCameraY(1)	
	lz#=GetCameraZ(1)

	print("Polygons Drawn - " + str(GetPolygonsDrawn()))  

// occull further objects
	for x=0 to 10
		for y=0 to 10
			for z=0 to 10

			obx#=getobjectx(b[x,y,z])
			oby#=getobjecty(b[x,y,z])
			obz#=getobjectz(b[x,y,z])
		
			dis2#=distance#(lx#,ly#,lz#,obx#,oby#,obz#)
			if dis2#>30 /// change this to your desired amount
				SetObjectVisible(b[x,y,z],0)
			else
				// display the edges 
				if x=0 or x=10 or y=0 or y=10 or z=0 or z=10
					SetObjectVisible(b[x,y,z],1)
					
				else
					SetObjectVisible(b[x,y,z],0)
				endif
			endif
		next
	next
	next

// move camera with mouse

        fDiffX# = (GetPointerX() - startx#)/1.0
        fDiffY# = (GetPointerY() - starty#)/1.0
 
        newX# = angx# + fDiffY#
        if ( newX# > 89 ) then newX# = 89
        if ( newX# < -89 ) then newX# = -89
        SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )


    Print( ScreenFPS() )
    Sync()
loop


function distance#(x1#,y1#,z1#,x2#,y2#,z2#)
	value#=sqrt(((x2#-(x1#))^2)+((y2#-(y1#))^2)+((z2#-(z1#))^2))
endfunction value#

// Project: occlusion 
// Created: 2019-01-01

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0

// set window properties
SetWindowTitle( "occlusion" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts


#constant cubex=30
#constant cubey=10
#constant cubez=30

b as integer[cubex,cubey,cubez]

cube  = CreateObjectBox(1,1,1)

camerax# = 10
cameray# = 30
cameraz# = -30
a=0
angx#=0
angy#=0
startx#=screenwidth/2

starty#=screenheight/2
SetRawMousePosition(startx#,starty#)

do
	if GetRawMouseLeftState()
		RotateObjectLocalX(cube,ScreenFPS()/100)
		RotateObjectLocalY(cube,ScreenFPS()/100)
		RotateObjectLocalZ(cube,ScreenFPS()/100)
	else
		//reset back to normal
		SetObjectRotation(cube,0,0,0)
	endif



	if GetRawKeyState(37) then dec camerax#
	if GetRawKeyState(39) then inc camerax#
	if GetRawKeyState(38) then inc cameraz#
	if GetRawKeyState(40) then dec cameraz#

	print("Press cursors to move about")
	print("Press Lft mouse to rotate to show the invisible objects indeed gone")
	SetCameraPosition(1,camerax#,cameray#,cameraz#)
	
	//getcameraposition
    lx#=GetCameraX(1)
	ly#=GetCameraY(1)	
	lz#=GetCameraZ(1)

	print("Polygons Drawn - " + str(GetPolygonsDrawn()))  

// occull further objects
	for x=0 to cubex
		for y=0 to cubey
			for z=0 to cubez


			obx#=x
			oby#=y
			obz#=z
		
			dis2#=distance#(lx#,ly#,lz#,obx#,oby#,obz#)
			if dis2#>30 /// change this to your desired amount
				DeleteObject(b[x,y,z])
			else
				// display the edges 
				if x=0 or x=10 or y=0 or y=10 or z=0 or z=10
	
					if GetObjectExists(b[x,y,z])=0 
						b[x,y,z]=InstanceObject(cube)
						SetObjectVisible(b[x,y,z],1)
						SetObjectPosition(b[x,y,z],x,y,z)
						SetObjectColor(b[x,y,z],random(0,255),random(0,255),random(0,255),255)
						FixObjectToObject(b[x,y,z],cube)
					endif
					
				else
					// otherwise remove the remaining
					DeleteObject(b[x,y,z])
				endif
			endif
		next
	next
	next

// move camera with mouse

        fDiffX# = (GetPointerX() - startx#)/1.0
        fDiffY# = (GetPointerY() - starty#)/1.0
 
        newX# = angx# + fDiffY#
        if ( newX# > 89 ) then newX# = 89
        if ( newX# < -89 ) then newX# = -89
        SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )


    Print( ScreenFPS() )
    Sync()
loop


function distance#(x1#,y1#,z1#,x2#,y2#,z2#)
	value#=sqrt(((x2#-(x1#))^2)+((y2#-(y1#))^2)+((z2#-(z1#))^2))
endfunction value#