Sorry your browser is not supported!

// les beargrass
For i=1 to 1600
	x#=random(1,2048)
	z#=random(1,2048)
	y#=GetObjectHeightMapHeight(map,x#,z# )
	if y#>49 and y#<60 // ON FIXE L'ALTITUDE de generation
		buisson1C=CloneObject(buisson1)
		//buisson1C=LoadObject("assets/Plant N060314.3DS",1)	
		SetObjectPosition(buisson1C,x#, y#, z# )
		DrawObject(buisson1C)
		compteur_beargrass=compteur_beargrass+1
	endif
	sync()
Next i

/ Project: 3dtrees 
// Created: 19-09-03

// show all errors

SetErrorMode(2)

// set window properties
SetWindowTitle( "3dtrees" )
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( 60, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 )

dim treeposition[3001,2]
global distance,test#


for t=1 to 3000
	treeposition[t,1]=random(1,5000)
	treeposition[t,2]=random(1,5000)
	next t
distance=0

for w=1 to 1002
	createobjectbox(w,10,50,10)
	next w
	
	
do
	if getrawkeystate(38) then MoveCameraLocalX(1,2)
	if getrawkeystate(40) then MoveCameraLocalX(1,-2)
	setcamerarotation(1,0,0,0)
	treecount=1
	
	for e=1 to  3000
		dist(treeposition[e,1],GetCameraX(1),treeposition[e,2],getcameray(1))
		
		if distance<500 
			 setobjectposition(treecount,treeposition[e,1],0,treeposition[e,2])
			 inc treecount
			 if GetObjectInScreen(treecount-1)=0 then dec treecount
			 endif
		
		next e

print (screenfps())
    Sync()
loop



function dist(x1,x2,y1,y2)
	
dx = x2-x1
dy = y2-y1
D# = sqrt(dx*dx + dy*dy)
distance=abs(d#)	
			`message(str(distance))
	endfunction distance

map=CreateObjectFromHeightMap("map_heightmap.jpg", 2048, Altitude_terrain, 2048, 1,1 )	

For i=1 to 60
	x#=random(1,2048)
	z#=random(1,2048)
	y#=GetObjectHeightMapHeight(map,x#,z# )
	hauteur_sapin#=random(0.5,3)
	if y#>50 and y#<63 // ON FIXE L'ALTITUDE de generation
		arbr1C=CloneObject(arbr1)	
		//arbr1C=LoadObject("assets/tree1b.obj",2)
		SetObjectPosition(arbr1C,x#, y#, z# )
		SetObjectScale (arbr1C, 1, hauteur_sapin#, 1) 	
	
		//DrawObject(arbr1C)
		arbr1bC=CloneObject(arbr1b)
		//arbr1bC=LoadObject("assets/tree1b.obj",2)	
		SetObjectPosition(arbr1bC,x#, y#, z# )
		SetObjectScale (arbr1bC, 1, hauteur_sapin#-0.5, 1) 
		
		//DrawObject(arbr1bC)
		//SetObjectCastShadow( arbr1C, 1 )
		//SetObjectCastShadow( arbr1bC, 1 )
		compteur_sapin=compteur_sapin+1
	Endif
Next i

// Project: procedural map 
// Created: 2019-09-02
 
// show all errors
SetErrorMode(2)
 
// set window properties
SetWindowTitle( "procedural map" )
resox = 1920
resoy = 1080
aspect# = (resoy * 1.0/resox)
SetWindowSize( resox, resoy, 1 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( resox, resoy ) // 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



SetCameraPosition(1,1024,1500,1024*aspect#)
SetCameraLookAt(1,1024,0,1024*aspect#,0)
SetCameraRange(1,0.1,99999)
objectCount = 60

map = CreateObjectFromHeightMap("heightmap.png",2048,81,2048*aspect#,0,1)
SetObjectColor(map,0,100,0,255)
arbr1 = CreateObjectBox(10,10,10)
SetObjectColor(arbr1,255,0,0,255)
arbr1b = CreateObjectCapsule(10,30,10)
SetObjectColor(arbr1b,0,0,255,255)

restart:
ResetTimer()
timer# = 0.0
compteur_sapin = 0
firstID = 0
lastID = 0
For i=1 to objectCount
    x#=random(1,2048)
    z#=random(1,2048*aspect#)
    y#=GetObjectHeightMapHeight(map,x#,z# )
    hauteur_sapin#=random(0.55,3)
    if y#>50 and y#<63 // ON FIXE L'ALTITUDE de generation		 
        arbr1C=CloneObject(arbr1)   
        if firstID = 0 then firstID = arbr1bC
        //arbr1C=LoadObject("assets/tree1b.obj",2)
        SetObjectPosition(arbr1C,x#, y#, z# )
        SetObjectScale (arbr1C, 1, hauteur_sapin#, 1)   
        arbr1bC=CloneObject(arbr1b)
        //arbr1bC=LoadObject("assets/tree1b.obj",2) 
        SetObjectPosition(arbr1bC,x#, y#, z# )
        SetObjectScale (arbr1bC, 1, hauteur_sapin#-0.5, 1) 
        //SetObjectCastShadow( arbr1C, 1 )
        //SetObjectCastShadow( arbr1bC, 1 )
        lastID = arbr1bC
        compteur_sapin=compteur_sapin+2
    Endif
Next i
timer# = GetMilliseconds()/1000.0
 
do
	if GetRawKeyPressed(27) then end
	Print(ScreenFPS())
	Print("Took "+str(timer#,2)+" s to load "+str(compteur_sapin)+" objects out of "+str(objectCount*2))
	print("drew "+str(GetPolygonsDrawn())+" polygons")
	
	if GetRawKeyReleased(32)
		for a = firstID to lastID
			if GetObjectExists(a) then DeleteObject(a)
		next a
		sync()
		inc objectCount, objectCount
		if objectCount > 29999 then objectCount = 29999
		goto restart
	endif

    sync()
     
     
loop

startfps=0
starttimer=0
myloopcounter=0
gameloopcounter=0
gameloopspersecond=0
gameloopspersecond#=0
do
	
// grab and store seconds in starttime# then set the loop false to run
	if starttimer=0
		starttime#=timer()
		starttimer=1
	endif
	
	if gameloopspersecond=0
		gameloopspersecond#=timer()
		gameloopspersecond=1
	endif
	if timer()-gameloopspersecond#>=1
		printgameloopoutput=gameloopcounter
		gameloopcounter=0
		gameloopspersecond=0
	endif
		

		if timer()-starttime# >=.0001
			//MAIN LOOP!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!  add for loops math or internet player checks ect
	                inc gameloopcounter,1
			starttimer=0
		endif
	
		
	if startfps=0
		fps#=timer()
		startfps=1
	endif
	
     if timer()-fps# > 0.03 // anything to refresh below here  // below a happy home for  printing and drawing and refreshing :)
	     sync()
	     startfps=0
       endif