Sorry your browser is not supported!

// Project: gun 
// Created: 2019-01-23

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "gun" )
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( 30, 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

`main object
createobjectbox(1,10,10,3)
setobjectimage(1,1,0)
CreateMemblockFromObjectMesh(1,1,1)  `membloc,obj,mesh

`adding meshes
addlimb(1,1,2,-10,0,0)                 
addlimb(1,1,3,-10,0,0)                
addlimb(1,1,4,30,0,0)
addlimb(1,1,5,10,0,0)
addlimb(1,1,6,10,0,0)
addlimb(1,1,7,10,0,0)
addlimb(1,1,8,-30,10,0)
addlimb(1,1,9,-10,-20,0)
br=makecolor(100,40,0)
drawbox(0,0,5,5,br,br,br,br,1)
getimage(1,0,0,5,5)
SetObjectMeshImage(1,2,1,1)
SetObjectMeshImage(1,3,1,1)
global can
can = GetObjectNumMeshes(1)

`modelling vertex
movev(-26,-24,4,6,-20,5)    
movev(-26,-24,-6,-4,-18,-5)  
movev(-16,-14,4,6,3,2)
movev(-6,-4,-6,-4,0,2)
movev(4,6,-6,-4,-5,3)
movev(-6,-4,-16,-14,-5,4)
movev(4,6,-16,-14,-9,2)
movev(4,6,14,16,0,-7)
movev(14,16,14,16,-10,-7)
movev(-6,-4,4,6,5,0)
movev(14,16,-6,-4,0,3)
movev(24,26,-6,-4,-8,7)
movev(24,26,4,6,-8,-1)
movev(34,36,4,6,8,-1)
movev(34,36,-6,-4,8,7)
movev(44,46,-6,-4,0,7)
SetObjectColor(1,60,60,60,0)
deletememblock(1)


createobjectbox(2,8,2.5,6)
CreateMemblockFromObjectMesh(1,2,1)
addlimb(1,1,10,9,2,0)
deletememblock(1)

setobjectrotation(2,45,0,0)
fixobjectpivot(2)
CreateMemblockFromObjectMesh(1,2,1)
addlimb(1,1,11,9,2,0)
deletememblock(1)

setobjectrotation(2,-90,0,0)
fixobjectpivot(2)
CreateMemblockFromObjectMesh(1,2,1)
addlimb(1,1,12,9,2,0)
deletememblock(1)
deleteobject(2)


global limbs
limbs = GetObjectNumMeshes(1)

gosub save
`Sky
createobjectsphere(1000,1000,8,8)
SetObjectColorEmissive(1000,0,0,255)
SetObjectCullMode(1000,0)


SetRawMousePosition(500,300)
setcameraposition(1,0,30,-100)
SetCameraLookAt(1,0,0,0,0)

loadobject(2,"gun.obj")
setobjectposition(2,0,30,0)
do
    g=g+2
    setobjectrotation(1,0,g,0)
    setobjectrotation(2,0,-g,0)
	movecameralocalz(1,(GetRawKeyState( 38 )*5)-GetRawKeyState( 40 )*5)
	movecameralocalx(1,(GetRawKeyState( 39 )*5)-GetRawKeyState( 37 )*5)
	setcamerarotation(1,getpointery()+70,getpointerx()-140,0)
    if GetRawKeyState( 27) then end    `salimos con tecla escape ( 32 para Spacekey
    Print( ScreenFPS() )
    Sync()
loop
function addlimb(obj,malla,limb,xx#,yy#,zz#)
AddObjectMeshFromMemblock(obj,malla) 
verts= GetMemblockInt( malla, 0 )         
 for i= 0 to verts-1
	 x#=GetMeshMemblockVertexX(malla,i)
	 y#=GetMeshMemblockVertexy(malla,i)
	 z#=GetMeshMemblockVertexz(malla,i)
	 SetMeshMemblockVertexPosition(malla,i, x#+xx#,y#+yy#,z#+zz#)
 next i
`fixing mesh
SetObjectMeshFromMemblock(obj,limb,malla)

endfunction
function movev(mix,max,miy,may,x,y)
for t= 1 to can
mesh= CreateMemblockFromObjectMesh(1,t)
    verts= GetMemblockInt( mesh, 0 )
    for i= 0 to verts-1
	 x#=GetMeshMemblockVertexX(mesh,i)
	 y#=GetMeshMemblockVertexy(mesh,i)
	 z#=GetMeshMemblockVertexz(mesh,i)
	 if x#>mix and x#<max and y#>miy and y#<may then SetMeshMemblockVertexPosition(mesh,i, x#+x,y#+y,z#)
next
SetObjectMeshFromMemblock(1,t,mesh)
next
deletememblock(1)
endfunction


save:
OpenToWrite ( 1, "raw:d:media\gun.obj", 0 )
//Writeline ( 1, "mtllib color.mtl" )

 m=0
 for t= 1 to limbs
mesh = CreateMemblockFromObjectMesh(1,t)
`get object vertex quantity 
 verts= GetMemblockInt( mesh, 0 )
 writeline(1,"g ") //GROUP
 
 `VERTEX
 for i= 0 to verts -1
	 x#=GetMeshMemblockVertexX(mesh,i)
	 y#=GetMeshMemblockVertexy(mesh,i)
	 z#=GetMeshMemblockVertexz(mesh,i)
     Writeline ( 1, " v " + str(x#)+ " "+str(y#)+ " "+str(z#))
 next i
 
  `TEXTURE VERTEX
   for i= 1 to verts
 	 uu#=GetMeshMemblockVertexU( mesh, i )
	 vv#=GetMeshMemblockVertexV( mesh, i )
	 writeline(1, " vt "+str(uu#)+" "+str(vv#))
   next
  
  `NORMALS
   for i= 0 to verts -1
	 x#=GetMeshMemblockVertexnormalX(mesh,i)
	 y#=GetMeshMemblockVertexnormaly(mesh,i)
	 z#=GetMeshMemblockVertexnormalz(mesh,i)

     Writeline ( 1, " vn " + str(x#)+ " "+str(y#)+ " "+str(z#))
 next i
   
  
 `FACES
 inc m,1
 //Writeline ( 1,"usemtl Material.00"+str(m))
 s=0 `reseting variable s
    for i= 1 to verts-4
	   
    inc s,1
      if s=3
        n=n+1
        nor=nor+4
        writeline (1, " f "+ str(n+1)+"/"+str(n+1)+"/"+str(nor)    +" "+str(n) +"/"+str(n+2)+"/"+str(nor)     +" "+str(n+2)+"/"+str(n)+"/"+str(nor)      +" "+str(n+3)+"/"+str(n+3)+"/"+str(nor))
        s=0
        n=n+3
      endif
   next
 DeleteMemblock(1)
next

CloseFile ( 1 )
return

// Project: Dirty Glasses
// Created: 2019-01-24

// show all errors
SetErrorMode(2)
//SetRawMouseVisible(0)
// set window properties
SetWindowTitle( "Dirty Glasses" )
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( 30, 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

for i= 1 to 20
   createobjectbox(i,5+random(0,5),5+random(0,5),5+random(0,5))
   setobjectposition(i,random(0,100),0,random(0,100))
   SetObjectColorEmissive(i,random(0,255),random(0,255),random(0,255))
next

SetAmbientColor(0,0,0)
SetSunActive(0)
`----------------------------------------

ima=CreateRenderImage(512,512,0,1)
`Blur Setup
for t=1 to 10
   createsprite(t,ima)
   setspritesize(t,1024+t*random(0,5),768+t*random(0,5))
   SetSpriteColorAlpha(t,80)  `play with this values
next t
`------------------------------------------

`sky
createobjectsphere(1000,1000,12,12)
SetObjectCullMode(1000,0)
SetObjectColorEmissive(1000,0,0,255)


SetRawMousePosition(500,400)
setcameraposition(1,-30,30,-30)
SetCameraLookAt(1,30,0,0,0)


do
 gosub camara
 
 `BLUR EFFECT ######################
	SetRenderToImage(ima,-1)
	ClearScreen()
	Render()  
	SetRenderToScreen()
 `##################################       

    Print( ScreenFPS() )
    Sync()
loop
camara:
	movecameralocalz(1,(GetRawKeyState( 38 )*5)-GetRawKeyState( 40 )*5)
	movecameralocalx(1,(GetRawKeyState( 39 )*5)-GetRawKeyState( 37 )*5)
	setcamerarotation(1,getpointery(),-80+getpointerx(),0)
	if GetRawKeyState( 27) then end    
return

// Project: Smoke 
// Created: 2019-01-25

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Smoke" )
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( 30, 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

a=0
b=0
w=makecolor(255,255,255)
  for i= 1 to 40
	 a=random(0,40)
	 b=random(0,40)
	 drawellipse(a,b,5,5,w,w,1)
	 next
getimage(1,0,0,40,40)
ClearScreen()

for i= 1 to 100
	createobjectplane( i,5,5)
	setobjectposition(i,0,i,0)
	setobjectimage(i,1,0)
	SetObjectTransparency(i,1)
	SetObjectAlpha(i,10)
next i

CreateObjectCylinder(200,100,8,10)
setobjectrotation(200,0,0,90)
fixobjectpivot(200)
setobjectposition(200,50,0,0)
fixobjectpivot(200)
cloneobject(201,200)
setobjectscale(201,0.05,1.01,1.01)
setobjectcolor(201,10,10,10,0)
setobjectposition(201,-1,0,0)
FixObjectToObject(201,200)
setobjectrotation(200,0,-45,0)
createobjectbox(203,200,5,200)
setobjectposition(203,0,-8,0)
setobjectcolor(203,80,60,0,0)


createobjectsphere(1000,1000,12,12)
SetObjectCullMode(1000,0)
SetObjectColorEmissive(1000,0,0,255)
r=0
s#=0
setcameraposition(1,-50,50,-150)
SetCameraLookAt(1,0,0,0,0)
do

if random(0,1000)=1 then t=200
if random(0,1000)=5 then t=400
if random(0,1000)=3 then t=600


r=r+1
if r<400 then s#=s#+0.1
if r>400 then s#=s#-0.1
if r>600+t then r=0
if s#<0 then s#=0
	   
	   
for i= 1 to 100
	MoveObjectLocalY(i,0.1)
	SetObjectRotation(i,0,0,s#)
	if getobjecty(i)>100 then setobjectposition(i,0,0,0)
next i


for i= 1 to 100
	al#=10+getobjecty(i)
	setobjectscale(i,al#*0.03,al#*0.03,10)
	if getobjecty(i)>10 then moveobjectlocalx(i,0.05)
	if getobjecty(i)>30 then moveobjectlocalx(i,-0.05)
next i	   
    Print( ScreenFPS() )
    Sync()
loop

// Project: road creator 
// Created: 2019-01-25

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "road creator" )
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


createobjectbox(5000,1,1,2)
loadimage(1,"road.png")

createobjectbox(1001,1000,0,1000)
SetObjectColor(1001,0,255,0,0)
setobjectposition(1001,0,-3,0)

`our Sky
createobjectsphere(4000,1000,180,40)
SetObjectCullMode(4000,0)
SetObjectColorEmissive(4000,100,100,255)

cont=0
ob=1
setcameraposition(1,0,20,-40)
SetCameraLookAt(1,0,0,0,0)
do
  if ( GetRawKeyState( 32 ) ) then MoveObjectLocalZ(5000,0.02)
  if ( GetRawKeyState( 65 ) ) then setobjectrotation(5000,0,getobjectangley(5000)-0.12,0)
  if ( GetRawKeyState( 68 ) ) then setobjectrotation(5000,0,getobjectangley(5000)+0.12,0)
  
  if ( GetRawKeyState( 32 ) )
	 cont=cont+1
     if cont=100 
	     cont=0
	     gosub pon
     endif
  endif

`Create road    
if ( GetRawKeyState( 17) )
r=r+1
if r=2 then gosub make
else
r=0
endif

if ( GetRawKeyState( 18) )
	gosub save
	sleep( 1000)
endif



    gosub camara
    
 print("Press Spacebar to go ahead")   
 print("Use a/d to turn left/right")
 print("Press Ctrl to render chunk " )
 Print("Camera Fly with cursor and mouse")
 Print("When ready press Alt to save to .Obj ")
 
    Sync()
loop

pon:
wide=3            `play with this value
createobjectbox(ob,0.2,0.2,0.2)
setobjectposition(ob,getobjectx(5000),0,getobjectz(5000))
setobjectrotation(ob,0,GetObjectAngleY(5000),0)
setobjectcolor(ob,255,0,0,0)
moveobjectlocalx(ob,wide)
createobjectbox(ob+1,0.2,0.2,0.2)
setobjectposition(ob+1,getobjectx(5000),0,getobjectz(5000))
setobjectrotation(ob+1,0,GetObjectAngleY(5000),0)
setobjectcolor(ob+1,0,0,255,0)
moveobjectlocalx(ob+1,-wide)
inc ob,2
return


make:
for i= 1 to (ob/2)-1
    if GetObjectExists(i+50000) then deleteobject( i+50000)
next i
tt=50000
pan=1
pen=2
pin=3
pon=4
for i= 1 to (ob/2)-1
   inc tt
   pl(tt,pan,pen,pin,pon)
   inc pan,2
   inc pen,2
   inc pin,2
   inc pon,2
next
return

function pl(n,a,b,c,d)
    height=3        `play with this value
    if getobjectexists(a) then  a1#=getobjectworldx(a)
    if getobjectexists(a) then  a2#=getobjectworldy(a)
    if getobjectexists(a) then  a3#=getobjectworldz(a)
    
    if getobjectexists(b) then  b1#=getobjectworldx(b)
    if getobjectexists(b) then  b2#=getobjectworldy(b)
    if getobjectexists(b) then  b3#=getobjectworldz(b)
    
    if getobjectexists(c) then  c1#=getobjectworldx(c)
    if getobjectexists(c) then  c2#=getobjectworldy(c)
    if getobjectexists(c) then  c3#=getobjectworldz(c)
    
    if getobjectexists(d) then  d1#=getobjectworldx(d)
    if getobjectexists(d) then  d2#=getobjectworldy(d)
    if getobjectexists(d) then  d3#=getobjectworldz(d)
     
createobjectbox(n,10,10,10)
setobjectimage(n,1,0)
   
mesh = CreateMemblockFromObjectMesh(n,1)
verts= GetMemblockInt( mesh, 0 )
SetMeshMemblockVertexPosition(mesh,2, a1#,a2#,a3#)
SetMeshMemblockVertexPosition(mesh,4, a1#,a2#,a3#)
SetMeshMemblockVertexPosition(mesh,11, a1#,a2#,a3#)
SetMeshMemblockVertexPosition(mesh,3, a1#,a2#-height,a3#)
SetMeshMemblockVertexPosition(mesh,5, a1#,a2#-height,a3#)
SetMeshMemblockVertexPosition(mesh,22, a1#,a2#-height,a3#)

SetMeshMemblockVertexPosition(mesh,0, b1#,b2#,b3#)
SetMeshMemblockVertexPosition(mesh,9, b1#,b2#,b3#)
SetMeshMemblockVertexPosition(mesh,18, b1#,b2#,b3#)
SetMeshMemblockVertexPosition(mesh,1, b1#,b2#-height,b3#)
SetMeshMemblockVertexPosition(mesh,20, b1#,b2#-height,b3#)
SetMeshMemblockVertexPosition(mesh,19, b1#,b2#-height,b3#)

SetMeshMemblockVertexPosition(mesh,6, c1#,c2#,c3#)
SetMeshMemblockVertexPosition(mesh,10, c1#,c2#,c3#)
SetMeshMemblockVertexPosition(mesh,12, c1#,c2#,c3#)
SetMeshMemblockVertexPosition(mesh,7, c1#,c2#-height,c3#)
SetMeshMemblockVertexPosition(mesh,13, c1#,c2#-height,c3#)
SetMeshMemblockVertexPosition(mesh,23, c1#,c2#-height,c3#)

SetMeshMemblockVertexPosition(mesh,8, d1#,d2#,d3#)
SetMeshMemblockVertexPosition(mesh,14, d1#,d2#,d3#)
SetMeshMemblockVertexPosition(mesh,16, d1#,d2#,d3#)
SetMeshMemblockVertexPosition(mesh,15, d1#,d2#-height,d3#)
SetMeshMemblockVertexPosition(mesh,17, d1#,d2#-height,d3#)
SetMeshMemblockVertexPosition(mesh,21, d1#,d2#-height,d3#)

for t= 0 to 7
   SetMeshMemblockVertexUV(mesh,t,0,0)
next
for t= 12 to 23
  SetMeshMemblockVertexUV(mesh,t,0,0)
next
DeleteMemblock(1)
SetObjectMeshFromMemblock(n,1,mesh)
endfunction 

camara:
	 if ( GetRawKeyState( 38 ) ) then MoveCameraLocalZ( 1, 0.1 )  // cursor up
	 if ( GetRawKeyState( 40 ) ) then MoveCameraLocalZ( 1, -0.1 ) // cursor down
	 if ( GetRawKeyState( 37 ) ) then MoveCameraLocalX( 1, -0.1 ) // cursor iz
	 if ( GetRawKeyState( 39 ) ) then MoveCameraLocalX( 1, 0.1 )  // cursor derecha 

	 if ( GetPointerPressed() )
		startx# = GetPointerX()
		starty# = GetPointerY()
		angx# = GetCameraAngleX(1)
		angy# = GetCameraAngleY(1)
		pressed = 1
	 endif

	 if ( GetPointerState() = 1 )
		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 )
	 endif
return


save:
OpenToWrite ( 1, "raw:d:\agk2\road creator\media\road.obj", 0 )
Writeline ( 1, "mtllib texture.mtl" )

`number of material
 m=0
 nor=0
 n=0
for t= 50001 to tt
mesh = CreateMemblockFromObjectMesh(t,1)
`get object vertex quantity 
 verts= GetMemblockInt( mesh, 0 )
 writeline(1,"g ") //GROUP          for the road we don't really need groups
 
 `VERTEX
 for i= 0 to verts -1
	 x#=GetMeshMemblockVertexX(mesh,i)
	 y#=GetMeshMemblockVertexy(mesh,i)
	 z#=GetMeshMemblockVertexz(mesh,i)
	 ox#=GetObjectWorldX(t)
	 oy#=GetObjectWorldY(t)
	 oz#=GetObjectWorldZ(t)

     Writeline ( 1, " v " + str(x#+ox#)+ " "+str(y#+oy#)+ " "+str(z#+oz#))
 next i
 
  `TEXTURE VERTEX
   for i= 1 to verts
 	 uu#=GetMeshMemblockVertexU( mesh, i )
	 vv#=GetMeshMemblockVertexV( mesh, i )
	 writeline(1, " vt "+str(uu#)+" "+str(vv#))
   next
  
  `NORMALS
   for i= 0 to verts -1
	 x#=GetMeshMemblockVertexnormalX(mesh,i)
	 y#=GetMeshMemblockVertexnormaly(mesh,i)
	 z#=GetMeshMemblockVertexnormalz(mesh,i)

     Writeline ( 1, " vn " + str(x#)+ " "+str(y#)+ " "+str(z#))
 next i
   
  
 `FACES
 
 inc m,1
 Writeline ( 1,"usemtl Material.001")
 s=0 `reseting variable s

   for i= 1 to verts-4
	   
    inc s,1
      if s=3
        n=n+1
        nor=nor+4
        writeline (1, " f "+ str(n+1)+"/"+str(n+1)+"/"+str(nor)    +" "+str(n) +"/"+str(n+2)+"/"+str(nor)     +" "+str(n+2)+"/"+str(n)+"/"+str(nor)      +" "+str(n+3)+"/"+str(n+3)+"/"+str(nor))
        s=0
        n=n+3
      endif
   next
  
 
DeleteMemblock(1)
next

  CloseFile ( 1 )

return

// Project: road creator 
// Created: 2019-01-25

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "road creator" )
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


createobjectbox(5000,1,1,2)
loadimage(1,"road.png")

createobjectbox(1001,1000,0,1000)
SetObjectColor(1001,0,255,0,0)
setobjectposition(1001,0,-3,0)

`our Sky
createobjectsphere(4000,1000,180,40)
SetObjectCullMode(4000,0)
SetObjectColorEmissive(4000,100,100,255)

cont=0
ob=1
setcameraposition(1,0,20,-40)
SetCameraLookAt(1,0,0,0,0)
do
  if ( GetRawKeyState( 32 ) ) then MoveObjectLocalZ(5000,0.02)
  if ( GetRawKeyState( 65 ) ) then setobjectrotation(5000,0,getobjectangley(5000)-0.12,0)
  if ( GetRawKeyState( 68 ) ) then setobjectrotation(5000,0,getobjectangley(5000)+0.12,0)
  
  if ( GetRawKeyState( 32 ) )
	 cont=cont+1
     if cont=100 
	     cont=0
	     gosub pon
     endif
  endif

`Create road    
if ( GetRawKeyState( 17) )
r=r+1
if r=2 then gosub make
else
r=0
endif

if ( GetRawKeyState( 18) )
	gosub save
	sleep( 1000)
endif



    gosub camara
    
 print("Press Spacebar to go ahead")   
 print("Use a/d to turn left/right")
 print("Press Ctrl to render chunk " )
 Print("Camera Fly with cursor and mouse")
 Print("When ready press Alt to save to .Obj ")
 
    Sync()
loop

pon:
wide=3            `play with this value
createobjectbox(ob,0.2,0.2,0.2)
setobjectposition(ob,getobjectx(5000),0,getobjectz(5000))
setobjectrotation(ob,0,GetObjectAngleY(5000),0)
setobjectcolor(ob,255,0,0,0)
moveobjectlocalx(ob,wide)
createobjectbox(ob+1,0.2,0.2,0.2)
setobjectposition(ob+1,getobjectx(5000),0,getobjectz(5000))
setobjectrotation(ob+1,0,GetObjectAngleY(5000),0)
setobjectcolor(ob+1,0,0,255,0)
moveobjectlocalx(ob+1,-wide)
inc ob,2
return


make:
for i= 1 to (ob/2)-1
    if GetObjectExists(i+50000) then deleteobject( i+50000)
next i
tt=50000
pan=1
pen=2
pin=3
pon=4
for i= 1 to (ob/2)-1
   inc tt
   pl(tt,pan,pen,pin,pon)
   inc pan,2
   inc pen,2
   inc pin,2
   inc pon,2
next
return

function pl(n,a,b,c,d)
    height=3        `play with this value
    if getobjectexists(a) then  a1#=getobjectworldx(a)
    if getobjectexists(a) then  a2#=getobjectworldy(a)
    if getobjectexists(a) then  a3#=getobjectworldz(a)
    
    if getobjectexists(b) then  b1#=getobjectworldx(b)
    if getobjectexists(b) then  b2#=getobjectworldy(b)
    if getobjectexists(b) then  b3#=getobjectworldz(b)
    
    if getobjectexists(c) then  c1#=getobjectworldx(c)
    if getobjectexists(c) then  c2#=getobjectworldy(c)
    if getobjectexists(c) then  c3#=getobjectworldz(c)
    
    if getobjectexists(d) then  d1#=getobjectworldx(d)
    if getobjectexists(d) then  d2#=getobjectworldy(d)
    if getobjectexists(d) then  d3#=getobjectworldz(d)
     
createobjectbox(n,10,10,10)
setobjectimage(n,1,0)
   
mesh = CreateMemblockFromObjectMesh(n,1)
verts= GetMemblockInt( mesh, 0 )
SetMeshMemblockVertexPosition(mesh,2, a1#,a2#,a3#)
SetMeshMemblockVertexPosition(mesh,4, a1#,a2#,a3#)
SetMeshMemblockVertexPosition(mesh,11, a1#,a2#,a3#)
SetMeshMemblockVertexPosition(mesh,3, a1#,a2#-height,a3#)
SetMeshMemblockVertexPosition(mesh,5, a1#,a2#-height,a3#)
SetMeshMemblockVertexPosition(mesh,22, a1#,a2#-height,a3#)

SetMeshMemblockVertexPosition(mesh,0, b1#,b2#,b3#)
SetMeshMemblockVertexPosition(mesh,9, b1#,b2#,b3#)
SetMeshMemblockVertexPosition(mesh,18, b1#,b2#,b3#)
SetMeshMemblockVertexPosition(mesh,1, b1#,b2#-height,b3#)
SetMeshMemblockVertexPosition(mesh,20, b1#,b2#-height,b3#)
SetMeshMemblockVertexPosition(mesh,19, b1#,b2#-height,b3#)

SetMeshMemblockVertexPosition(mesh,6, c1#,c2#,c3#)
SetMeshMemblockVertexPosition(mesh,10, c1#,c2#,c3#)
SetMeshMemblockVertexPosition(mesh,12, c1#,c2#,c3#)
SetMeshMemblockVertexPosition(mesh,7, c1#,c2#-height,c3#)
SetMeshMemblockVertexPosition(mesh,13, c1#,c2#-height,c3#)
SetMeshMemblockVertexPosition(mesh,23, c1#,c2#-height,c3#)

SetMeshMemblockVertexPosition(mesh,8, d1#,d2#,d3#)
SetMeshMemblockVertexPosition(mesh,14, d1#,d2#,d3#)
SetMeshMemblockVertexPosition(mesh,16, d1#,d2#,d3#)
SetMeshMemblockVertexPosition(mesh,15, d1#,d2#-height,d3#)
SetMeshMemblockVertexPosition(mesh,17, d1#,d2#-height,d3#)
SetMeshMemblockVertexPosition(mesh,21, d1#,d2#-height,d3#)

`take away vertex
SetMeshMemblockVertexPosition(mesh,0, 0,0,0)
SetMeshMemblockVertexPosition(mesh,2, 0,0,0)
SetMeshMemblockVertexPosition(mesh,1, 0,0,0)
SetMeshMemblockVertexPosition(mesh,3, 0,0,0)
SetMeshMemblockVertexPosition(mesh,12, 0,0,0)
SetMeshMemblockVertexPosition(mesh,13, 0,0,0)
SetMeshMemblockVertexPosition(mesh,14, 0,0,0)
SetMeshMemblockVertexPosition(mesh,15, 0,0,0)


for t= 0 to 7
   SetMeshMemblockVertexUV(mesh,t,0,0)
next
for t= 12 to 23
  SetMeshMemblockVertexUV(mesh,t,0,0)
next
DeleteMemblock(1)
SetObjectMeshFromMemblock(n,1,mesh)
endfunction 

camara:
	 if ( GetRawKeyState( 38 ) ) then MoveCameraLocalZ( 1, 0.1 )  // cursor up
	 if ( GetRawKeyState( 40 ) ) then MoveCameraLocalZ( 1, -0.1 ) // cursor down
	 if ( GetRawKeyState( 37 ) ) then MoveCameraLocalX( 1, -0.1 ) // cursor iz
	 if ( GetRawKeyState( 39 ) ) then MoveCameraLocalX( 1, 0.1 )  // cursor derecha 

	 if ( GetPointerPressed() )
		startx# = GetPointerX()
		starty# = GetPointerY()
		angx# = GetCameraAngleX(1)
		angy# = GetCameraAngleY(1)
		pressed = 1
	 endif

	 if ( GetPointerState() = 1 )
		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 )
	 endif
return


save:
OpenToWrite ( 1, "raw:d:\agk2\road creator\media\road.obj", 0 )
Writeline ( 1, "mtllib texture.mtl" )

`number of material
 m=0
 nor=0
 n=0
for t= 50001 to tt
mesh = CreateMemblockFromObjectMesh(t,1)
`get object vertex quantity 
 verts= GetMemblockInt( mesh, 0 )
// writeline(1,"g ") //GROUP          for the road we don't really need groups
 
 `VERTEX
 for i= 0 to verts -1
	 x#=GetMeshMemblockVertexX(mesh,i)
	 y#=GetMeshMemblockVertexy(mesh,i)
	 z#=GetMeshMemblockVertexz(mesh,i)
	 ox#=GetObjectWorldX(t)
	 oy#=GetObjectWorldY(t)
	 oz#=GetObjectWorldZ(t)

     Writeline ( 1, " v " + str(x#+ox#)+ " "+str(y#+oy#)+ " "+str(z#+oz#))
 next i
 
  `TEXTURE VERTEX
   for i= 1 to verts
 	 uu#=GetMeshMemblockVertexU( mesh, i )
	 vv#=GetMeshMemblockVertexV( mesh, i )
	 writeline(1, " vt "+str(uu#)+" "+str(vv#))
   next
  
  `NORMALS
   for i= 0 to verts -1
	 x#=GetMeshMemblockVertexnormalX(mesh,i)
	 y#=GetMeshMemblockVertexnormaly(mesh,i)
	 z#=GetMeshMemblockVertexnormalz(mesh,i)

     Writeline ( 1, " vn " + str(x#)+ " "+str(y#)+ " "+str(z#))
 next i
   
  
 `FACES
 
 inc m,1
 Writeline ( 1,"usemtl Material.001")
 s=0 `reseting variable s

   for i= 1 to verts-4
	   
    inc s,1
      if s=3
        n=n+1
        nor=nor+4
        writeline (1, " f "+ str(n+1)+"/"+str(n+1)+"/"+str(nor)    +" "+str(n) +"/"+str(n+2)+"/"+str(nor)     +" "+str(n+2)+"/"+str(n)+"/"+str(nor)      +" "+str(n+3)+"/"+str(n+3)+"/"+str(nor))
        s=0
        n=n+3
      endif
   next
  
 
DeleteMemblock(1)
next

  CloseFile ( 1 )

return

// Project: Road 
// Created: 2019-01-25

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Road" )
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( 30, 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
loadimage(1,"road.png")
loadobject(1,"road.Obj")
b=makecolor(10,10,10)
drawbox(0,0,5,5,b,b,b,b,1)
setobjectimage(1,1,0)
getimage(2,0,0,5,5)

SetObjectLightMap(1,2)

createobjectbox(2,2,1,3)
setobjectposition(2,3,0,0)
fixobjectpivot(2)

`camera
setcameraposition(1,30,15,-130)
SetCameraLookAt(1,0,0,5,0)

`setup lights
SetAmbientColor(15,15,15)
SetSunActive(0)
CreatePointLight(1,0,0,0,40,255,255,0)

`floor
createobjectbox(4,200,1,200)
SetObjectColor(4,0,115,0,0)
setobjectposition(4,0,-2,0)
createobjectsphere(1000,1000,10,10)
SetObjectCullMode(1000,0)
SetObjectColorEmissive(1000,60,20,0)
v=11
mesh = CreateMemblockFromObjectMesh(1,1)
verts= GetMemblockInt( mesh, 0 )
do
	 `Car Animation
	 v=v+24
	 if v>verts then v=11
	 
	 `car coords
   	 x#=GetMeshMemblockVertexX(mesh,v)
	 y#=GetMeshMemblockVertexy(mesh,v)
	 z#=GetMeshMemblockVertexz(mesh,v)
	 
	 `coords to force car to point to
	 x2#=GetMeshMemblockVertexX(mesh,v+24)
	 y2#=GetMeshMemblockVertexy(mesh,v+24)
	 z2#=GetMeshMemblockVertexz(mesh,v+24)
	 
	 `getting vertex ehead to place lights
	 x3#=GetMeshMemblockVertexX(mesh,v+48)
	 y3#=GetMeshMemblockVertexy(mesh,v+48)
	 z3#=GetMeshMemblockVertexz(mesh,v+48)
	 
	 
     setobjectposition(2,x#,0.5,z#)
     SetObjectLookAt(2,x2#,getobjecty(2),z2#,0)
     setpointlightposition(1,x3#,2,z3#)
     
        
     if ( GetRawKeyState( 38 ) ) then MoveCameraLocalZ( 1, 1 )  // cursor up
	 if ( GetRawKeyState( 40 ) ) then MoveCameraLocalZ( 1, -1 ) // cursor down
	 if ( GetRawKeyState( 37 ) ) then MoveCameraLocalX( 1, -1 ) // cursor iz
	 if ( GetRawKeyState( 39 ) ) then MoveCameraLocalX( 1, 1 )  // cursor derecha 
     SetCameraLookAt(1,getobjectx(2),getobjecty(2),getobjectz(2),0)
    
    Print( ScreenFPS() )
    print("use cursor")
    Sync()
loop

// Project: Wheel animation
// Created: 2019-01-27

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Wheel animation" )
SetWindowSize( 800, 600, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 800, 600 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 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
g=makecolor(0,255,0)
drawbox(0,0,128,64,g,g,g,g,1)
gr=makecolor(100,100,100)
drawbox(0,65,128,128,gr,gr,gr,gr,1)
getimage(1,0,0,128,128)
SetImageWrapU(1,1)
SetImageWrapV(1,1)


CreateObjectCylinder(1,1,10,12)
createobjectcylinder(2,0.3,11,12)
fixobjecttoobject(2,1)
setobjectrotation(1,0,0,90)
fixobjectpivot(1)
CreateObjectCylinder(3,1.2,0.4,12)
setobjectrotation(3,0,0,90)
fixobjectpivot(3)
setobjectposition(3,-1,0,0)
fixobjectpivot(3)

CreateObjectCylinder(4,20,0.5,12)
setobjectposition(4,0,10,0)
fixobjectpivot(4)
setobjectrotation(4,90,0,0)
fixobjectpivot(4)
cloneobject(5,4)
setobjectscale(5,2,2,1)
setobjectposition(5,-1,0,30)
CreateObjectSphere(6,0.8,8,8)
CreateObjectCylinder(7,1.5,2,32)
setobjectrotation(7,0,0,-90)
createobjectsphere(8,2,8,8)
setobjectposition(8,-1,0,30)

setobjectcolor(1,20,60,20,0)
setobjectcolor(2,20,60,20,0)
setobjectcolor(5,20,60,20,0)
setobjectcolor(6,20,60,20,0)
setobjectcolor(7,80,80,80,0)
setobjectcolor(4,110,110,110,0)
setobjectcolor(8,255,255,0,0)

CreateObjectCylinder(9,1.2,0.4,12)
setobjectrotation(9,0,0,90)
fixobjectpivot(9)
setobjectposition(9,1,0,0)
fixobjectpivot(9)

CreateObjectCylinder(10,20,0.5,12)
setobjectposition(10,0,10,0)
fixobjectpivot(10)
setobjectrotation(10,90,0,0)
fixobjectpivot(10)
cloneobject(11,10)
setobjectscale(11,2,2,1)
setobjectposition(11,1,0,30)
CreateObjectSphere(12,0.8,8,8)
createobjectsphere(13,2,8,8)
setobjectposition(13,1,0,30)

setobjectcolor(12,20,60,20,0)
setobjectcolor(11,20,60,20,0)
setobjectcolor(10,120,120,120,0)
setobjectcolor(13,255,255,0,0)
`----------------------------
createobjectbox(14,1,1,20)
setobjectposition(14,0,0,9.5)
fixobjectpivot(14)

createobjectbox(15,0.2,1,20)
setobjectposition(15,0,0,9.5)
fixobjectpivot(15)

sensor1=16
sensor2=17
createobjectbox(sensor1,0,0,0)
createobjectbox(sensor2,0,0,0)

setobjectcolor(14,130,130,130,0)
setobjectcolor(15,130,130,130,0)

CreateObjectCylinder(20,6,1,10)
setobjectrotation(20,0,0,90)
setobjectposition(20,0,0,30)

`floor
createobjectbox(30,10,0.2,100)
setobjectimage(30,1,0)
SetObjectUVScale(30,0,1,30)
setobjectposition(30,0,-7,0)



createobjectbox(100,0,0,0)
createobjectsphere(1000,1000,8,8)
setobjectcullmode(1000,0)

createpointlight(1,-50,30,0,300,255,255,255)
createpointlight(2,50,30,0,300,255,255,255)

SetObjectColorEmissive(1000,100,70,255)
setcameraposition(1,-50,15,-10)
SetCameraLookAt(1,0,0,0,0)
do
	mv#=mv#+1
	setobjectposition(100,0,0,0)
	MoveObjectLocalZ(100,60)
	setobjectrotation(100,0,mv#,0)
	setcameraposition(1,getobjectx(100),20,getobjectz(100))
	SetCameraLookAt(1,0,0,0,0)
    if ( GetRawKeyState( 38 ) )
		 g=g-8
		 fl#=fl#+0.8
	endif
    if ( GetRawKeyState( 40 ) ) 
		 g=g+8 
		 fl#=fl#-0.8
	endif
    setobjectposition(30,0,-7,fl#)
    setobjectrotation(1,g,0,0)
    setobjectposition(3,0,0,0)
    MoveObjectLocalY(3,4)
    setobjectrotation(3,g,0,0)
    setobjectposition(4,getobjectx(3)-1,getobjecty(3),getobjectz(3))
    SetObjectLookAt(4,getobjectx(5),getobjecty(5),getobjectz(5),0)
    SetObjectLookAt(5,getobjectx(4),getobjecty(4),getobjectz(4),0)
    setobjectposition(6,getobjectx(3)-1,getobjecty(3),getobjectz(3))
    
    setobjectposition(9,0,0,0)
    MoveObjectLocalY(9,-4)
    setobjectrotation(9,g,0,0)
    setobjectposition(10,getobjectx(9)+1,getobjecty(9),getobjectz(9))
    SetObjectLookAt(10,getobjectx(11),getobjecty(11),getobjectz(11),0)
    SetObjectLookAt(11,getobjectx(10),getobjecty(10),getobjectz(10),0)
    setobjectposition(12,getobjectx(9)+1,getobjecty(9),getobjectz(9))
   
    setobjectposition(14,-1,0,30)
    setobjectposition(15,getobjectx(3)-1,getobjecty(3),getobjectz(3))
    setobjectposition(sensor1,getobjectx(14),getobjecty(14),getobjectz(14))
    setobjectrotation(sensor1,GetObjectAngleX(14),GetObjectAngleY(14),GetObjectAngleZ(14))
    setobjectposition(sensor2,getobjectx(15),getobjecty(15),getobjectz(15))
    setobjectrotation(sensor2,GetObjectAngleX(15),GetObjectAngleY(15),GetObjectAngleZ(15))
    MoveObjectLocalz(sensor1,19)
    moveobjectlocalz(sensor2,19)
    SetObjectLookAt(14,getobjectworldx(sensor2),getobjectworldy(sensor2),getobjectworldz(sensor2),0)
    SetObjectLookAt(15,getobjectx(sensor1),getobjecty(sensor1),getobjectz(sensor1),0)
    
  //  Print( ScreenFPS() )
    Print("Use cursor up/down")
    Sync()
loop

// Project: lid off Cylinder
// Created: 2019-02-01

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "lid off Cylinder" )
SetWindowSize( 800, 600, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 800, 600 ) // 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 ) // since version 2.0.22 we can use nicer default fonts
g=makecolor(100,100,100)
drawbox(0,0,128,128,g,g,g,g,1)
g2=makecolor(80,80,80)
drawbox(20,20,60,60,g2,g2,g2,g2,1)
g3=makecolor(130,130,130)
drawline(0,0,100,100,g3,g3)
getimage(1,0,0,128,128)
SetImageWrapU(1,1)
SetImageWrapV(1,1)


createobjectcylinder(1,2,20,32)
setobjectimage(1,1,0)
Project_texture(1,1)
SetObjectUVScale(1,0,10,10)

for t=1 to 3
	mesh = CreateMemblockFromObjectMesh(1,1)
	verts= GetMemblockInt( mesh, 0 )
	 for i= 0 to verts-1
		 x#=GetMeshMemblockVertexX(mesh,i)
		 y#=GetMeshMemblockVertexy(mesh,i)
		 z#=GetMeshMemblockVertexz(mesh,i)
		 if z#>-3 and z#<3 and x#<0 then SetMeshMemblockVertexPosition(mesh,i, x#-30,y#*0.5,z#)
	 next i
	 DeleteMemblock(1)
	`fixing mesh
	SetObjectMeshFromMemblock(1,1,mesh)
	setobjectrotation(1,0,120,0)
	fixobjectpivot(1)
next
setobjectscale(1,1.5,1.5,1.5)
setobjectposition(1,0,-10,0)

CreateObjectCylinder(2,0.5,30,30)
lid_off(2)
setobjectcullmode(2,0)
SetObjectColorEmissive(2,0,255,0)
cloneobject(3,2)
setobjectrotation(2,0,0,25)
fixobjectpivot(2)
setobjectrotation(3,0,0,-25)
setobjectposition(3,0,13,0)
fixobjectpivot(3)


`sky
createobjectsphere(1000,1000,8,8)
SetObjectCullMode(1000,0)
SetObjectColorEmissive(1000,0,0,255)

setcameraposition(1,0,30,-70)
SetCameraLookAt(1,0,0,0,0)

do
    g=g+5
    setobjectrotation(2,0,-g,0)
    setobjectrotation(3,0,-g,0)
    setobjectrotation(1,0,g/10,0) 
    Print( ScreenFPS() )
    Sync()
loop

function Project_texture(ob,n)
	 SetObjectUVOffset(ob,0,0.5,0.5)
	 mesh = CreateMemblockFromObjectMesh(ob,n)
	 verts= GetMemblockInt( mesh, 0 )
	 for i= 0 to verts-1
		 u#=GetMeshMemblockVertexX(mesh,i)/20      `values to play with
		 v#=GetMeshMemblockVertexZ(mesh,i)/20
		 SetMeshMemblockVertexuv(mesh,i,u#,-v#)
	 next i
	 DeleteMemblock(1)
	 SetObjectMeshFromMemblock(ob,n,mesh)
endfunction

function lid_off(obj)
mesh2 = CreateMemblockFromObjectMesh(obj,1)
verts= GetMemblockInt( mesh2, 0 )
 for i= 0 to verts-1
	 if i<89 then SetMeshMemblockVertexPosition(mesh2,i, 0,0,0)
	 if i>359-89 then SetMeshMemblockVertexPosition(mesh2,i, 0,0,0)
 next i
 DeleteMemblock(1)
SetObjectMeshFromMemblock(obj,1,mesh2)
endfunction

// Project: Tube Creator 
// Created: 2019-02-02

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Tube Creator" )
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( 30, 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
h=5      `height
s=5      `size
g#=0.81  `thick
global v
v=32
loadimage(1,"stone.png")
SetImageWrapU(1,1)
SetImageWrapV(1,1)
createobjectcylinder(1,h,s,v)
setobjectimage(1,1,0)
SetObjectCullMode(1,0)
lid_off(1)

`second cylinder for the interior wall
cloneobject(2,1)
setobjectscale(2,-1,-1,-1)
fixobjectpivot(2)
setobjectscale(2,g#,1,g#)
fixobjectpivot(2)

`new lid up
cloneobject(3,1)
SetObjectUVScale(3,0,2,0.2)
setobjectposition(3,0,h,0)

mesh = CreateMemblockFromObjectMesh(3,1)
verts= GetMemblockInt( mesh, 0 )
 for i= 0 to verts-1
	 x#=GetMeshMemblockVertexX(mesh,i)
	 y#=GetMeshMemblockVertexy(mesh,i)
	 z#=GetMeshMemblockVertexz(mesh,i)
	 if y#>0 then SetMeshMemblockVertexPosition(mesh,i, x#*g#,-h/2.0,z#*g#)
	 SetMeshMemblockVertexNormal(mesh,i,0,1,0)   `correct Normals
	 SetMeshMemblockVertexuv(mesh,i,x#/10,y#/30) `correct UV
 next i
 SetObjectMeshFromMemblock(3,1,mesh)
 
`new lid down
cloneobject(4,3)
setobjectposition(4,0,0,0)
fixobjectpivot(3)
fixobjectpivot(4)
setobjectrotation(4,180,0,0)
setobjectposition(4,0,-h,0)
fixobjectpivot(4)

`===========================================================================================
`EXPORTER TO .Obj
OpenToWrite ( 1, "raw:d:\agk2\tube creator\media\tube.obj", 0 )
Writeline ( 1, "mtllib texture.mtl" )
 m=0
 n=0
for t=1 to 4
  mesh = CreateMemblockFromObjectMesh(t,1)
 `get object vertex quantity 
  verts= GetMemblockInt( mesh, 0 )
 ` writeline(1,"g ") //GROUP no necesary
 
 `VERTEX
 for i= 0 to verts-1
	 x#=GetMeshMemblockVertexX(mesh,i)
	 y#=GetMeshMemblockVertexy(mesh,i)
	 z#=GetMeshMemblockVertexz(mesh,i)
     Writeline ( 1, " v " + str(x#)+ " "+str(y#)+ " "+str(z#))
 next i
 
  `TEXTURE VERTICES
   for i= 0 to verts-1
 	 uu#=GetMeshMemblockVertexU( mesh, i )
	 vv#=GetMeshMemblockVertexV( mesh, i )
	 writeline(1, " vt "+str(uu#)+" "+str(vv#))
   next
  
  `NORMALS
   for i= 0 to verts-1
	 x#=GetMeshMemblockVertexnormalX(mesh,i)
	 y#=GetMeshMemblockVertexnormaly(mesh,i)
	 z#=GetMeshMemblockVertexnormalz(mesh,i)
     Writeline ( 1, " vn " + str(x#)+ " "+str(y#)+ " "+str(z#))
   next i
  
 `FACES
 Writeline ( 1,"usemtl Material.001")   
   for i= 1 to verts-1 step 3
	   inc n
	 writeline (1, " f "+ str(n+1)+"/"+str(n+1)+"/"+str(n+1)+" "+str(n) +"/"+str(n)+"/"+str(n)+" "+str(n+2)+"/"+str(n+2)+"/"+str(n+2))
     n=n+2
   next
DeleteMemblock(1)
next
CloseFile ( 1 )

loadobject(10,"tube.obj")
setobjectposition(10,10,0,0)
setobjectimage(10,1,0)
`===========================================================================================

`light setup
SetSunActive(0)
CreatePointLight(1,0,0,0,50,60,200,200)
createpointlight(2,0,0,0,50,0,255,0)
createpointlight(3,10,0,0,50,255,0,0)
createobjectsphere(1000,1000,8,8)
setobjectcullmode(1000,0)
SetObjectColorEmissive(1000,100,100,255)

setcameraposition(1,5,15,-15)
setcameralookat(1,5,0,0,0)
do
    g=g+0
    setobjectrotation(1,0,g,0)
    setobjectrotation(2,0,g,0)
    SetPointLightPosition(1,getcamerax(1),getcameray(1),getcameraz(1))
    Print( ScreenFPS() )
    for i= 1 to 4
		print( "")
		next
		print( "                                      Original                                        Exported .Obj")
    Sync()
loop


function lid_off(obj)
mesh = CreateMemblockFromObjectMesh(obj,1)
verts= GetMemblockInt( mesh, 0 )
vv=(v*3)
	 for i= 0 to verts-1
		 if i<vv then SetMeshMemblockVertexPosition(mesh,i, 0,0,0)
		 if i>verts-vv then SetMeshMemblockVertexPosition(mesh,i, 0,0,0)
	 next i
 DeleteMemblock(1)
SetObjectMeshFromMemblock(obj,1,mesh)
endfunction

// Project: Tube Creator 
// Created: 2019-02-02

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Tube Creator" )
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( 30, 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
h=5      `height
s=5      `size
g#=0.7  `thick
global v
v=32
loadimage(1,"stone.png")
SetImageWrapU(1,1)
SetImageWrapV(1,1)
createobjectcylinder(1,h,s,v)
setobjectimage(1,1,0)
SetObjectCullMode(1,0)
lid_off(1)

`second cylinder for the interior wall
cloneobject(2,1)
setobjectscale(2,-1,-1,-1)
fixobjectpivot(2)
setobjectscale(2,g#,1,g#)
fixobjectpivot(2)

`new lid up
cloneobject(3,1)
SetObjectUVScale(3,0,2,0.2)
setobjectposition(3,0,h,0)

mesh = CreateMemblockFromObjectMesh(3,1)
verts= GetMemblockInt( mesh, 0 )
 for i= 0 to verts-1
	 x#=GetMeshMemblockVertexX(mesh,i)
	 y#=GetMeshMemblockVertexy(mesh,i)
	 z#=GetMeshMemblockVertexz(mesh,i)
	 if y#>0 then SetMeshMemblockVertexPosition(mesh,i, x#*g#,-h/2.0,z#*g#)
	 SetMeshMemblockVertexNormal(mesh,i,0,1,0)   `correct Normals
	 SetMeshMemblockVertexuv(mesh,i,x#/10,y#/30) `correct UV
 next i
 SetObjectMeshFromMemblock(3,1,mesh)
 
`new lid down
cloneobject(4,3)
setobjectposition(4,0,0,0)
fixobjectpivot(3)
fixobjectpivot(4)
setobjectrotation(4,180,0,0)
setobjectposition(4,0,-h,0)
fixobjectpivot(4)

`===========================================================================================
`EXPORTER TO .Obj
OpenToWrite ( 1, "raw:d:\agk2\tube creator\media\tube.obj", 0 )
Writeline ( 1, "mtllib texture.mtl" )
 m=0
 n=0
for t=1 to 4
  mesh = CreateMemblockFromObjectMesh(t,1)
 `get object vertex quantity 
  verts= GetMemblockInt( mesh, 0 )
 ` writeline(1,"g ") //GROUP no necesary
 vv=(v*3)
 `VERTEX
 for i= vv to verts-1-vv
	 x#=GetMeshMemblockVertexX(mesh,i)
	 y#=GetMeshMemblockVertexy(mesh,i)
	 z#=GetMeshMemblockVertexz(mesh,i)
     Writeline ( 1, " v " + str(x#)+ " "+str(y#)+ " "+str(z#))
 next i
 
  `TEXTURE VERTICES
   for i= vv to verts-1-vv
 	 uu#=GetMeshMemblockVertexU( mesh, i )
	 vv#=GetMeshMemblockVertexV( mesh, i )
	 writeline(1, " vt "+str(uu#)+" "+str(vv#))
   next
  
  `NORMALS
   for i= vv to verts-1-vv
	 x#=GetMeshMemblockVertexnormalX(mesh,i)
	 y#=GetMeshMemblockVertexnormaly(mesh,i)
	 z#=GetMeshMemblockVertexnormalz(mesh,i)
     Writeline ( 1, " vn " + str(x#)+ " "+str(y#)+ " "+str(z#))
   next i
  
 `FACES
 Writeline ( 1,"usemtl Material.001")   
   for i= 1 to verts/2  step 3
	   inc n
	 writeline (1, " f "+ str(n+1)+"/"+str(n+1)+"/"+str(n+1)+" "+str(n) +"/"+str(n)+"/"+str(n)+" "+str(n+2)+"/"+str(n+2)+"/"+str(n+2))
     n=n+2
   next
DeleteMemblock(1)
next
CloseFile ( 1 )

loadobject(10,"tube.obj")
setobjectposition(10,10,0,0)
setobjectimage(10,1,0)
`===========================================================================================

`light setup
SetSunActive(0)
CreatePointLight(1,0,0,0,50,60,200,200)
createpointlight(2,0,0,0,50,0,255,0)
createpointlight(3,10,0,0,50,255,0,0)
createobjectsphere(1000,1000,8,8)
setobjectcullmode(1000,0)
SetObjectColorEmissive(1000,100,100,255)

setcameraposition(1,5,15,-15)
setcameralookat(1,5,0,0,0)
do
    g=g+0
    setobjectrotation(1,0,g,0)
    setobjectrotation(2,0,g,0)
    SetPointLightPosition(1,getcamerax(1),getcameray(1),getcameraz(1))
    Print( ScreenFPS() )
    for i= 1 to 4
		print( "")
		next
		print( "                                      Original                                        Exported .Obj")
    Sync()
loop


function lid_off(obj)
mesh = CreateMemblockFromObjectMesh(obj,1)
verts= GetMemblockInt( mesh, 0 )
vv=(v*3)
	 for i= 0 to verts-1
		 if i<vv then SetMeshMemblockVertexPosition(mesh,i, 0,0,0)
		 if i>verts-vv then SetMeshMemblockVertexPosition(mesh,i, 0,0,0)
	 next i
 DeleteMemblock(1)
SetObjectMeshFromMemblock(obj,1,mesh)
endfunction

// Project: New road 
// Created: 2019-02-03

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "New road" )
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( 30, 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

loadobject(1,"road.obj")
loadimage(1,"road.png")
setobjectimage(1,1,0)
setobjectscale(1,5,0.01,5)
createobjectbox(2,3000,0,3000)
SetObjectColor(2,100,70,0,0)
setobjectposition(2,0,-1,0)


loadobject(3,"tube5.obj")
loadimage(3,"stone.png")
SetImageWrapU(3,1)
SetImageWrapV(3,1)
setobjectimage(3,3,0)
setobjectscale(3,8,45,6)
setobjectrotation(3,90,0,-20)
fixobjectpivot(3)
SetObjectUVScale(3,0,5,5)
setobjectposition(3,8,0,23)


SetRawMousePosition(500,400)

`sky
createobjectsphere(1000,4000,8,8)
SetObjectCullMode(1000,0)
SetObjectColorEmissive(1000,10,10,55)

SetSunActive(0)
SetAmbientColor(5,5,5)
setcamerarange(1,0.1,100000)
setcameraposition(1,149,0,67)
CreatePointLight(1,0,0,0,200,255,255,0)
CreatePointLight(2,0,5,0,200,155,255,155)
do
 	movecameralocalz(1,(GetRawKeyState( 38 )*3)-GetRawKeyState( 40 )*3)
	setcamerarotation(1,getpointery(),-80+getpointerx(),0)
    SetPointLightPosition(1,getcamerax(1),5,getcameraz(1))
    x#=getcamerax(1)
    z#=getcameraz(1)
    setcameraposition(1,x#,4,z#)
    print(x#)
    print(z#)
    
    Print( ScreenFPS() )
    Sync()
loop

// Project: Grass
// Created: 2018-12-02

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "grass" )
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( 30, 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

green=MakeColor(0,150,0)

for i= 1 to 50
drawline( 50,100,random(0,100),15+random(0,40),green,green)
next i
getimage (10,0,0,100,100)

o=0
for i= 1 to 50
   for a= 1 to 50
    inc o
    CreateObjectPlane( o,6,6) :SetObjectCullMode(o,0)
    setobjectposition( o,i,random(0,10),a)
    setobjectimage(o,10,0)
    SetObjectTransparency(o,1)
    SetObjectAlpha(o,100)
    RotateObjectLocalY(o,random(0,180))
   next a
next i

for i= 2000 to 2100
 SetObjectScale(i,1,3,1)
next i

createobjectbox(10000,10,3,5)
setobjectposition(10000,10,11,30)
createobjectcylinder(10001,5,3,18)
setobjectposition(10001,6,11,30)
cloneobject(10002,10001)
setobjectposition(10002,12,11,30)
SetObjectColorEmissive(10000,100,0,100)
SetObjectColorEmissive(10001,100,0,100)
SetObjectColorEmissive(10002,100,0,100)

` using a helper object to animate grass, forcing plains to point helper position x,y,z
CreateObjectBox(3000,0,0,0)

`mud field
CreateObjectBox(3001,90,1,90)
SetObjectColor(3001,100,90,90,0)
SetObjectPosition(3001,40,7,0)

`light helper
createobjectbox(3002,1,1,1)

CreatePointLight(1,0,0,0,500,100,100,100)
SetSunActive(0)
SetAmbientColor(0,0,0)

`backgroumd
CreateObjectSphere(4000,1000,10,40)
SetObjectCullMode(4000,0)
SetObjectColoremissive(4000,10,10,50)

SetCameraPosition(1,45,15,5)
SetCameraLookAt(1,10,10,30,0)
do
    ` grass animation
r#=2
g=g+2
for i= 1 to 2500
   SetObjectLookAt(i,GetObjectWorldX(3000),GetObjectWorldY(3000),GetObjectWorldZ(3000),0)
next i

SetObjectPosition(3000,getcamerax(1),getcameray(1),getcameraz(1))
MoveObjectLocalZ(3000,2)
RotateObjectLocalY(3000,r#)

setobjectposition(3002,30,0,20) 
SetObjectRotation(3002,0,g,0)
MoveObjectLocalZ(3002,18)
SetPointLightPosition(1,GetObjectWorldX(3002),5,GetObjectWorldZ(3002))
Sync()
loop