Sorry your browser is not supported!

// Project: spritemodellor 
// Created: 2018-12-13

// show all errors
//SetErrorMode(2)

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

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

SetErrormode(0)

//SetErrorMode(1)
global background_memblock, red, green, blue, palette,mouse, maxframes=0
global functiontab1,functiontab2,functiontab3,functiontab4


global initialsizex=32
global initialsizey=32


global buttons as integer[10]

type _animationframes
	spritesizex
	spritesizey
	spr
	image
	memblock
endtype
global sprites as _animationframes[32]	



title = CreateText("AGK - Sprite Modeller and Animation System")
SetTextSize(title,24)
SetTextAngle(title,270)

sizetextx = CreateText(str(initialsizex))
sizetexty = CreateText(str(initialsizey))
SetTextSize(sizetextx,32)
SetTextSize(sizetexty,32)



createfunctionselector()

createpalleteandmouse()

setupspritedata()



addbuttons(1,screenwidth-250,80,60,"New",255,255,0)
addbuttons(2,screenwidth-190,80,60,"Open",255,255,0)
addbuttons(3,screenwidth-130,80,60,"Save",255,255,0)
addbuttons(4,screenwidth-70,80,60,"Apply",255,255,0)

addbuttons(5,screenwidth-250,140,60,"Prev",255,255,0)
addbuttons(6,screenwidth-190,140,60,"Next",255,255,0)
addbuttons(7,screenwidth-130,140,60,"Copy",255,255,0)

addbuttons(9,screenwidth-250,200,60,"Clear",255,255,0)
addbuttons(17,screenwidth-190,200,60,"Undo",255,255,0)


addbuttons(11,screenwidth-250,260,60,"Rotate",0,255,0)
addbuttons(12,screenwidth-190,260,60,"Merge",0,255,0)
addbuttons(13,screenwidth-130,260,60,"Circle",0,255,0)
addbuttons(14,screenwidth-70,260,60,"Line",0,255,0)

addbuttons(15,screenwidth-250,320,60,"Shift",0,255,0)
addbuttons(10,screenwidth-190,320,60,"Fill",0,255,0)
addbuttons(18,screenwidth-130,320,60,"Sqaure",0,255,0)



addbuttons(8,screenwidth-250,380,60,"Play",0,255,255)
addbuttons(19,screenwidth-190,380,60,"Stop",0,255,255)


addbuttons(20,screenwidth-250,440,30,"-",0,255,255)
addbuttons(21,screenwidth-180,440,30,"+",0,255,255)
addbuttons(22,screenwidth-130,440,30,"-",0,255,255)
addbuttons(23,screenwidth-60,440,30,"+",0,255,255)





animationframestep#=timer()
currentsprite=0 : maxframes=1
animationframe=0
player=-1
movepanel=1

size=initialsizex/2

functionspanely=131
SetSpriteVisible(palette,1)

SetRawMousePosition(screenwidth/2,screenheight/2)
do

	SetSpritePosition(mouse, getpointerx(), getpointery())
	SetSpritePosition(palette,screenwidth-300,screenheight-300)	

	SetSpritePosition(functiontab1,screenwidth-300,10)
	
	SetTextPosition(sizetextx,screenwidth-230,420)
	SetTextPosition(sizetexty,screenwidth-110,420)
	


// color selector	
	if GetSpriteCollision(mouse,palette) and GetSpriteVisible(palette)=1
		getpixelcolor(getpointerx(),getpointery())
		if GetRawMouseLeftState() 
			selectcolor = MakeColor(activecolorred,activecolorgreen,activecolorblue)
			selectcolorred = red
			selectcolorgreen = green
			selectcolorblue = blue		

		endif
		activecolorred = red
		activecolorgreen=green
		activecolorblue = blue
		colorselected = MakeColor(activecolorred,activecolorgreen,activecolorblue)	
//		DrawBox(0,0,150,150,MakeColor(activecolorred,activecolorgreen,activecolorblue),0,MakeColor(activecolorred,activecolorgreen,activecolorblue),0,1)
		coltime#=0
		radius=100
		for a#=90 to 270 step .01
			xxx#=100 * sin(a#)
			yyy#=100 * cos(a#)
			nc = colorlerp(MakeColor(activecolorred,activecolorgreen,activecolorblue),MakeColor(0,0,0),(coltime#/100.0))
			DrawLine(screenwidth-150,screenheight-150,screenwidth-150-xxx#,screenheight-150-yyy#,nc,nc)
			inc coltime#,0.0055555
		next

	endif

	DrawEllipse(screenwidth-280,screenheight-280,15,15,colorselected,colorselected,1)
	DrawEllipse(screenwidth-20,screenheight-280,15,15,selectcolor,selectcolor,1)
	


// draw large grids for srite
	originx=screenwidth/3 - (initialsizex * size)/2
	originy=screenheight/2 - (initialsizey * size)/2
	
	

	spritenumber=0
    for x=0 to sprites[spritenumber].spritesizex
		for y=0 to sprites[spritenumber].spritesizey
			
			ax=originx + (x * size)
			ay=originy + (y * size)
		//	dataforsprite[x,y]= MakeColor(selectcolorred,selectcolorgreen,selectcolorblue)
			c= MakeColor(255,255,255)
	//		c = MakeColor(GetColorRed(dataforsprite[x,y]),GetColorGreen(dataforsprite[x,y]),GetColorBlue(dataforsprite[x,y]))
			DrawBox( ax ,ay , ax+size,ay+size,c,c,c,c,0)
			SetSpritePosition(dataforsprite[x,y], ax, ay)
			SetSpriteSize(dataforsprite[x,y],size,size)
			
			if GetSpriteCollision(mouse,dataforsprite[x,y])
				if GetRawMouseLeftState()
	//				if getpointerx()>ax and getpointery()>ay

	// perform the functions
	
	// Flood Fill
					if fill=1 
						// what is the colour at this location
						currentcolorred = GetSpriteColorRed(dataforsprite[x,y])
						currentcolorgreen = GetSpriteColorGreen(dataforsprite[x,y])
						currentcolorblue = GetSpriteColorBlue(dataforsprite[x,y])
						floodfill (x,y,selectcolorred,selectcolorgreen,selectcolorblue,currentcolorred,currentcolorgreen,currentcolorblue)						
						// turn it off now we finihed
						fill=0
						SetVirtualButtonColor(10,0,255,0)

					else
						
						
	// Draw a line
						if line=1
							oldx#=getpointerx()
							oldy#=getpointery()
							line=2
						endif
						if line=2
							
							distancex# = getpointerx() - oldx#
							distancey# = getpointery() - oldy#
							
							if abs(distancex#)>=abs(distancey#)
								stp# = abs(distancex#)
							else
								stp# = abs(distancey#)
							endif
							distancex# = distancex#/stp#
							distancey# = distancey#/stp#
							xx#=oldx#
							yy#=oldy#
							col = MakeColor(selectcolorred,selectcolorgreen,selectcolorblue)
							
							// clear the tmp color data before we use it
							for xx=0 to sprites[spritenumber].spritesizex
								for yy=0 to sprites[spritenumber].spritesizey
									tmpcolordata[xx,yy]=0
								next
							next
							
							for i=1 to stp#
								
	
									drawBox((xx#),(yy#),((xx#)+size),((yy#)+size),col,col,col,col,1)
								posx=floor(xx#-originx)/size
								posy=floor(yy#-originy)/size
								tmpcolordata[posx,posy]=col
								inc xx#,distancex#
								inc yy#,distancey#
								
							next
							
						else

// Draw a circle
							if circle=1
								oldx=getpointerx()
								oldy=getpointery()
								oldpointx=x
								oldpointy=y
								circle=2
							endif
							if circle=2
								distancex = getpointerx() - oldx
								distancey = getpointery() - oldy
								
								col = MakeColor(selectcolorred,selectcolorgreen,selectcolorblue)
								DrawEllipse(oldx,oldy,distancex,distancey,col,col,0)
								
								
							else

// free hand
								line=0:circle=0:fill=0
								SetSpriteColor(dataforsprite[x,y],selectcolorred,selectcolorgreen,selectcolorblue,255)
							endif
						endif
					endif




				endif
			//	endif
			// if line is selected and just released it, then reset it so can create another line
				if GetRawMouseLeftReleased() and line=2
					 line=1
					 // grab the data from the tmpcolordata and set the sprite with that info
					for xx=0 to sprites[spritenumber].spritesizex
						for yy=0 to sprites[spritenumber].spritesizey
							if tmpcolordata[xx,yy]<>0
								SetSpriteColor(dataforsprite[xx,yy],GetColorRed(tmpcolordata[xx,yy]),GetColorGreen(tmpcolordata[xx,yy]),GetColorBlue(tmpcolordata[xx,yy]),255)
								tmpcolordata[xx,yy]=0
							endif
						
							
						next
					next
				endif
				
				if GetRawMouseLeftReleased() and circle=2
					circle=1
					for yy=-distancey to distancey
						for xx=-distancex to distancex
							if(xx*xx+yy*yy<=(distancex/5)) 
								
								
								if (oldpointx+xx>=0 and oldpointy+yy>=0 and oldpointx+xx<=32 and oldpointy+yy<=32)
									SetSpriteColor(dataforsprite[oldpointx+xx,oldpointy+yy],selectcolorred,selectcolorgreen,selectcolorblue,255)
								endif
							endif
						
						next
					next



				endif

				
				if GetRawMouseRightState()
					
					
					SetSpriteColor(dataforsprite[x,y],0,0,0,255)
					
				endif
			
			endif
			
			
			
		next
	next
	
// draw the smaller version of the sprite and the animation frames
	
	originx=650
	originy=10
	spritenumber=0
    for x=0 to sprites[spritenumber].spritesizex
		for y=0 to sprites[spritenumber].spritesizey
			cr = GetSpriteColorRed(dataforsprite[x,y])
			cg = GetSpriteColorGreen(dataforsprite[x,y])
			cb = GetSpriteColorBlue(dataforsprite[x,y])
			c = MakeColor(cr,cg,cb)
			ax =originx + x 
			ay = originy + y 
			DrawBox(ax ,ay, ax+1,ay+1,c,c,c,c,1)

			
		next
	next
	

// draw the sprites animation steps along the top	
	originx=650
	originy=10
	spritenumber=0
		for y=0 to 300
			if spritenumber<sprites.length 
				ay= originy+(y * (sprites[spritenumber].spritesizex))
				ax= 650
				SetSpritePosition(sprites[spritenumber].spr,ax,ay)
	
				// draw box around the currentsprite, so we know which one we working with
				if spritenumber=currentsprite then DrawBox(ax,ay,ax+sprites[spritenumber].spritesizex,ay+sprites[spritenumber].spritesizey,MakeColor(255,255,255),MakeColor(255,255,255),MakeColor(255,255,255),MakeColor(255,255,255),0)
			
				
			endif
			inc spritenumber
		
	next


// new sheet
		if GetVirtualButtonPressed(1)=1  
			for spritenumber=0 to sprites.length
				DeleteSprite(sprites[spritenumber].spr)
				DeleteMemblock(sprites[spritenumber].memblock)
				DeleteImage(sprites[spritenumber].image)
			
			next
		
			setupspritedata()
			currentsprite=0
		
		endif


// open sheet
		if GetVirtualButtonPressed(2)=1
			openspritesheet("test.png",32,32)
		
		endif


	
// save sheet

	if GetVirtualButtonPressed(3)=1  
		savespritesheet()
	endif


// apply
	if GetVirtualButtonPressed(4)=1
		applyimage(currentsprite)
	endif
	
// Goto previous frame
	if GetVirtualButtonPressed(5)=1  
			
		dec currentsprite
	endif
	
// GO TO NEXT FRAME
	if GetVirtualButtonPressed(6)=1 
		applyimage(currentsprite)
		inc maxframes
		inc currentsprite
	endif


// COPY
	if GetVirtualButtonPressed(7)=1 
		inc maxframes
		inc currentsprite

		applyimage(currentsprite)

	endif


	if GetVirtualButtonPressed(8)=1 
		player=-player
		
		if player=1 
			DeleteSprite(animation)
			animation=CreateSprite(0)

			for a=1 to maxframes-1
				AddSpriteAnimationFrame(animation,sprites[a].image)
			next
			PlaySprite(animation)
		else
			
			stopsprite(animation)
		endif
		SetSpritePosition(animation,700,100)


	endif
	
	if GetVirtualButtonPressed(9) = 1 
		
		spritenumber=0
		for x=0 to sprites[spritenumber].spritesizex
			for y=0 to sprites[spritenumber].spritesizey
				SetSpriteColor(dataforsprite[x,y],0,0,0,255)
			next
		next
	
			
	endif
	

// Fill	
	if GetVirtualButtonPressed(10)=1 
		if fill=0
			fill=1
			SetVirtualButtonColor(10,0,100,0)
			SetVirtualButtonColor(13,0,255,0) : circle=0
		else
			fill=0
			SetVirtualButtonColor(10,0,255,0)
			
		endif
		
	endif



// Circle
	if GetVirtualButtonPressed(13)=1 
		if circle=0
			circle=1
			SetVirtualButtonColor(10,0,255,0)
			SetVirtualButtonColor(13,0,100,0)
		else
			circle=0
			SetVirtualButtonColor(13,0,255,0)
			
		endif
		
	endif


// Line
	if GetVirtualButtonPressed(14)=1 
		if line=0
			line=1
			SetVirtualButtonColor(10,0,255,0)
			SetVirtualButtonColor(13,0,255,0)
			SetVirtualButtonColor(14,0,100,0)
		else
			line=0
			SetVirtualButtonColor(14,0,255,0)
			
		endif
		
	endif

		if GetVirtualButtonPressed(20) // -
			dec initialsizex
			setupspritedata()
		endif
		if GetVirtualButtonPressed(21) // +
			inc initialsizex
			setupspritedata()
		endif
		
		if GetVirtualButtonPressed(22) // -
			dec initialsizey
			setupspritedata()
		endif
		if GetVirtualButtonPressed(23) // +
			inc initialsizey
			setupspritedata()
		endif


	SetTextString(sizetextx,str(initialsizex))
	SetTextString(sizetexty,str(initialsizey))
	

	
	if GetRawKeyPressed(187) then dec size
	if GetRawKeyPressed(189) then inc size
	if size>18 then size=18
	if size<8 then size=8
		
	if GetRawKeyPressed(27) then end

	SetTextPosition(title,10,screenheight/2 + GetTextTotalWidth(title)/2)

	Render2DBack()
    Sync()
loop



function createfunctionselector()
	

	frametext = CreateText("Controls")
	SetTextSize(frametext,20)
	SetTextColor(frametext,255,255,255,255)

		col=MakeColor(130,82,1)

	swap()
		SetTextPosition(frametext,35,5)

		for x=0 to 350
			for y=30 to screenheight
				DrawLine(x,y,x,y,MakeColor(130,82,1),MakeColor(130,82,1))
			next
		next
				

		DrawBox(15,0,150,30,col,col,col,col,1)
		for i=0 to 15
			DrawLine(i,30,i+15,0,col,col)
			DrawLine(135+i,0,135+i+15,30,col,col)
		next
		
		Render2DFront()
	render()
	functiontab1 = createsprite(getimage(0,0,350,screenheight-300))
	
	
	DeleteText(frametext)
	
	
	
endfunction

function floodfill ( x,y, nred,ngreen,nblue, ored,ogreen,oblue)
	
	if x<0 or x>32 or y<0 or y>32
		
		exitfunction
	endif
	
	cred = GetSpriteColorRed(dataforsprite[x,y])
	cgreen = GetSpriteColorGreen(dataforsprite[x,y])
	cblue = GetSpriteColorBlue(dataforsprite[x,y])

	if cred = ored and cgreen = ogreen and cblue = oblue
	
		SetSpriteColor(dataforsprite[x,y],nred,ngreen,nblue,255)
		floodfill (x+1,y,nred,ngreen,nblue,ored,ogreen,oblue)
		floodfill (x,y+1,nred,ngreen,nblue,ored,ogreen,oblue)
		floodfill (x-1,y,nred,ngreen,nblue,ored,ogreen,oblue)
		floodfill (x,y-1,nred,ngreen,nblue,ored,ogreen,oblue)
		
	endif

	
	
endfunction

function dispose()
	spritenumber=0
	for x=0 to initialsizex
		for y=0 to initialsizey
			if spritenumber<sprites.length
				if GetSpriteExists(sprites[spritenumber].spr)=1 then DeleteSprite(sprites[spritenumber].spr)
				if GetImageExists(sprites[spritenumber].image)=1 then DeleteImage(sprites[spritenumber].image)
				if GetMemblockExists(sprites[spritenumber].memblock)=1 then DeleteMemblock(sprites[spritenumber].memblock)
				
				
			endif
			
			inc spritenumber
		next
	next
	
	
endfunction
function setupspritedata()

	dim dataforsprite [initialsizex, initialsizey]
	dim tmpcolordata [initialsizex, initialsizey] // used when drawing lines etc

	dispose()
	spr = CreateSprite(0)
	
for spritenumber=0 to sprites.length
			sprites[spritenumber].spr = CloneSprite(spr)
			sprites[spritenumber].spritesizex = initialsizex
			sprites[spritenumber].spritesizey = initialsizey
			setspritecolor(sprites[spritenumber].spr,0,0,0,255)
			SetSpriteSize(sprites[spritenumber].spr,initialsizex,initialsizey)
			SetSpriteColor(sprites[spritenumber].spr,255,255,255,255)
		SetSpriteVisible(sprites[spritenumber].spr,0)

next
for x=0 to initialsizex
	for y=0 to initialsizey
			dataforsprite[x,y] = CloneSprite(spr)
			SetSpriteSize(dataforsprite[x,y],initialsizex,initialsizey)
			SetSpriteColor(dataforsprite[x,y],0,0,0,255)
			inc spritenumber
		next
	next



endfunction

function createpalleteandmouse()
	//create palette
swap()


// color wheel as 6 areas to interopolate colours with so each segment is 60 degress - 360/6 = 60 and the
// interopolattion requires to go between 0.00 and 1.00 so the difference here is 100/60 = 0.016 in time steps

	DrawBox(0,0,screenwidth,screenheight,MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),1)
	radius=150
	coltime#=0
	
	for a#=0 to 60 step .01
		x#=radius * sin(a#)
		y#=radius * cos(a#)
		nc = colorlerp(MakeColor(255,0,0),MakeColor(255,255,0),coltime#/100.0)
		DrawLine(radius,radius,radius-x#,radius-y#,nc,nc)
		
 		inc coltime#,0.016
		
	next
	
	coltime#=0
	for a#=60 to 120 step .01
		x#=radius * sin(a#)
		y#=radius * cos(a#)
		nc = colorlerp(MakeColor(255,255,0),MakeColor(0,255,0),(coltime#)/100.0)
		
		DrawLine(radius,radius,radius-x#,radius-y#,nc,nc)
		inc coltime#,0.016
	next
	coltime#=0
	for a#=120 to 180 step .01
		x#=radius * sin(a#)
		y#=radius * cos(a#)
		nc = colorlerp(MakeColor(0,255,0),MakeColor(0,255,255),(coltime#)/100.0)
		DrawLine(radius,radius,radius-x#,radius-y#,nc,nc)
		inc coltime#,0.016
	next

	coltime#=0
	
	for a#=180 to 240 step .01
		x#=radius * sin(a#)
		y#=radius * cos(a#)
		nc = colorlerp(MakeColor(0,255,255),MakeColor(0,0,255),(coltime#)/100.0)
		DrawLine(radius,radius,radius-x#,radius-y#,nc,nc)
		inc coltime#,0.016
	next

	coltime#=0
	for a#=240 to 300 step .01
		x#=radius * sin(a#)
		y#=radius * cos(a#)
		nc = colorlerp(MakeColor(0,0,255),MakeColor(255,0,255),(coltime#)/100.0)
		DrawLine(radius,radius,radius-x#,radius-y#,nc,nc)
		inc coltime#,0.016
	next

	coltime#=0
	for a#=300 to 360 step .01
		x#=radius * sin(a#)
		y#=radius * cos(a#)
		nc = colorlerp(MakeColor(255,0,255),MakeColor(255,0,0),(coltime#)/100.0)
		DrawLine(radius,radius,radius-x#,radius-y#,nc,nc)
		inc coltime#,0.016
	next


	coltime#=0
	for a#=0 to 360 step .01
		x#=100 * sin(a#)
		y#=100 * cos(a#)
		nc = colorlerp(MakeColor(255,255,255),MakeColor(0,0,0),(coltime#/100.0))
		DrawLine(radius,radius,radius+x#,radius+y#,nc,nc)
		inc coltime#,0.002777
	next

	

//	DrawEllipse(radius,radius,radius-30,radius-30,MakeColor(0,0,0),MakeColor(0,0,0),1)

	render()
	palette = CreateSprite(GetImage(0,0,radius*2,radius*2))
	background_memblock = CreateMemblockFromImage(palette)
	SetSpriteVisible(palette,0)

	mouse= CreateSprite(getimage(0,0,0,0))
	SetSpriteSize(mouse,1,1)
	SetSpriteVisible(mouse,0)


endfunction

function colorlerp(col1,col2,time#)
	ar=GetColorRed(col1)
	ag=GetColorGreen(col1)
	ab=GetColorBlue	(col1)
	br=GetColorRed(col2)
	bg=GetColorGreen(col2)
	bb=GetColorBlue(col2)
	
	nr = ar + (br - ar) * time#
	ng = ag + (bg - ag) * time#
	nb = ab + (bb - ab) * time#
	
	newcol = MakeColor(nr,ng,nb)
	
	
endfunction newcol

function applyimage(currentsprite)
				sprites[currentsprite].image = getimage(0,0,sprites[currentsprite].spritesizex+1,sprites[currentsprite].spritesizey+1)
			sprites[currentsprite].memblock = CreateMemblockFromImage (sprites[currentsprite].image)
			background_imgwidth = GetMemblockInt(sprites[currentsprite].memblock, 0)
			background_imgheight = GetMemblockInt(sprites[currentsprite].memblock, 4)
			background_size = GetMemblockSize(sprites[currentsprite].memblock)
			
			for xx=0 to sprites[currentsprite].spritesizex
				for yy=0 to sprites[currentsprite].spritesizey
					offset = 12 + (((Yy * background_imgwidth) + Xx) * 4)

						cr = GetSpriteColorRed(dataforsprite[xx,yy])
						cg = GetSpriteColorGreen(dataforsprite[xx,yy])
						cb = GetSpriteColorBlue(dataforsprite[xx,yy])
						SetMemblockByte(sprites[currentsprite].memblock, offset,   cr)
						SetMemblockByte(sprites[currentsprite].memblock, offset+1, cg)
						setMemblockByte(sprites[currentsprite].memblock, offset+2, cb)
						setMemblockByte(sprites[currentsprite].memblock, offset+3, 254) // 254 is air, can move in it
				next
			next


      
		sprites[currentsprite].image = CreateImageFromMemblock(sprites[currentsprite].memblock)
		SetSpriteImage(sprites[currentsprite].spr,sprites[currentsprite].image)
		SetSpriteVisible(sprites[currentsprite].spr,1)
endfunction

// Get a pixel color - which will provide what the color is on the loaded image it is at any
// given location
// a lemming can move on a completely blank area
function getpixelcolor( X, Y)
	
	if (x>getspritex(palette) and y>GetSpriteY(palette) and x<getspritex(palette)+GetSpriteWidth(palette) and y<GetSpriteY(palette)+GetSpriteHeight(palette))
		offset = 12 + ((((Y-getspritey(palette)) * GetSpriteWidth(palette)) + (X-getspritex(palette))) * 4)
	
		if offset>0 

			red=GetMemblockByte(background_memblock, offset)
			green=GetMemblockByte(background_memblock, offset+1)
			blue=GetMemblockByte(background_memblock, offset+2)
		endif
	endif
endfunction 

function addbuttons(id,x,y,size,name$,colorred,colorgreen,colorblue)
	

    AddVirtualButton(id,x,y,size)
    SetVirtualButtonAlpha(id,255)
    SetVirtualButtonColor(id,colorred,colorgreen,colorblue)
    SetVirtualButtonText(id,name$)
	SetVirtualButtonVisible(id,1)
    //GetVirtualButtonExists
    //GetVirtualButtonPressed
    //GetVirtualButtonReleased
    //GetVirtualButtonState
    //SetButtonScreenPosition
    //SetVirtualButtonActive
    //SetVirtualButtonImageDown
    //SetVirtualButtonImageUp
    //SetVirtualButtonPosition
//    SetVirtualButtonSize(

    
endfunction


function savespritesheet()
	
	// lets build an image based on the size

	sync()
	spritenumber=0
	for y=0 to 8
		for x=0 to 8
			if spritenumber<maxframes
				
				SetSpritePosition(sprites[spritenumber].spr,x*Initialsizex,y*Initialsizey)
			endif
			inc spritenumber
		next
	next
	sync()
	render()
	img = getimage(0,0,8 * Initialsizex,8*Initialsizey)
	SaveImage(img,"test.png")	

	
	
endfunction


function openspritesheet(sheet$, sizex,sizey)
/*	img = CreateSprite(LoadImage(sheet$))

				sprites[currentsprite].image = getimage(0,0,sprites[currentsprite].spritesizex+1,sprites[currentsprite].spritesizey+1)
			sprites[currentsprite].memblock = CreateMemblockFromImage (sprites[currentsprite].image)
			background_imgwidth = GetMemblockInt(sprites[currentsprite].memblock, 0)
			background_imgheight = GetMemblockInt(sprites[currentsprite].memblock, 4)
			
			for xx=0 to sprites[currentsprite].spritesizex
				for yy=0 to sprites[currentsprite].spritesizey
					offset = 12 + (((Yy * background_imgwidth) + Xx) * 4)
			
					cr = GetSpriteColorRed(dataforsprite[xx,yy])
					cg = GetSpriteColorGreen(dataforsprite[xx,yy])
					cb = GetSpriteColorBlue(dataforsprite[xx,yy])
					SetMemblockByte(sprites[currentsprite].memblock, offset,   cr)
					SetMemblockByte(sprites[currentsprite].memblock, offset+1, cg)
					setMemblockByte(sprites[currentsprite].memblock, offset+2, cb)
					setMemblockByte(sprites[currentsprite].memblock, offset+3, 254) // 254 is air, can move in it
				next
			next
*/
endfunction

// Function to create a texture
//
// Inputs - Sizex - size of the texture to create - width
//          Sizey - size of the texture to create - height
//          Color - is the main color of the image
//          Denisity - is a the depth of the texture - the lower the value, the more detail. higher value = no detail
// 
// Returns the image for the resulting texture
//
// EG. CreateTexture ( 100, 100,  makecolor(0,0,255), 100)
//          This could create a DEEP water effect texture?
  
function createtexture(sizex# as float, sizey# as float, color, density as integer)
  
      
    swap()
    drawbox(0,0,sizex#, sizey#, color, color,color,color, 1)
    render()
    img = getimage(0,0,sizex#, sizey#)
      
    memblockid = CreateMemblockFromImage (img)
    imgwidth = GetMemblockInt(memblockid, 0)
    imgheight = GetMemblockInt(memblockid, 4)
      
      
        size=GetMemblockSize(memblockid)
  
        for offset=12 to size-4 step 4
        
            r=GetMemblockByte(memblockid, offset)
            g=GetMemblockByte(memblockid, offset+1)
            b=GetMemblockByte(memblockid, offset+2)
            a=GetMemblockByte(memblockid, offset+3)
              
          
            strength=random(1,density)
  
            SetMemblockByte (memblockid, offset, r-strength)
            SetMemblockByte (memblockid, offset+1, g-strength)
            SetMemblockByte (memblockid, offset+2, b-strength )
            SetMemblockByte (memblockid, offset+3, a-strength)
               
          
    next
      
    deleteimage (img)
      
    img = CreateImageFromMemblock(memblockid)
    DeleteMemblock(memblockid)
  
  
endfunction img

function savespritesheet()
	
	// lets build an image based on the size

	sync()
	spritenumber=1
	for y=0 to 8
		for x=0 to 8
			if spritenumber<maxframes
				
				SetSpritePosition(sprites[spritenumber].spr,x*Initialsizex,y*Initialsizey)
				maxheight=y+1
			endif
			inc spritenumber
		next
	next
	sync()
	render()
	img = getimage(0,0,8 * Initialsizex,maxheight*Initialsizey)
	SaveImage(img,"test.png")	

	
	
endfunction

// Project: Morfing 
// Created: 2018-12-21

// show all errors
SetErrorMode(2)

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

leg=1
createobjectbox(leg,1,1,1)
createobjectbox(2,1,1,1)
setobjectposition(2,0,0,-10)

cloneobject(3,2)
fixobjecttoobject(3,2)
fixobjecttoobject(2,1)

setobjectrotation(leg,0,10,0)
setobjectrotation(2,0,30,0)



setcameraposition(1,0,80,0)
SetCameraLookAt(1,0,0,0,0)

do
g#=g#+1
	

    

	linew(1,2)
	linew(2,3)
	
	setobjectrotation(1,0,30+g#,0)
 
    Print( ScreenFPS() )
 
    Sync()
loop

function linew(ob1,ob2)
	col=makecolor(0,255,0)
	
	x=getobjectworldx(ob1)
	y=getobjectworldy(ob1)
	z=getobjectworldz(ob1)
	
	xx=getobjectworldx(ob2)
	yy=getobjectworldy(ob2)
	zz=getobjectworldz(ob2)
	drawline(getscreenxfrom3d(x,y,z),GetScreenYFrom3D(x,y,z),GetScreenXFrom3D(xx,yy,zz),GetScreenYFrom3D(xx,yy,zz),col,col,col)
	
endfunction

// Project: morph2d 
// Created: 2018-12-22

// show all errors
SetErrorMode(2)

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

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

// point 1 - top of leg say
x#=screenwidth/2
y#=screenheight/2


// point 2 - bottom of leg say
oldx#=screenwidth/2-100
oldy#=screenheight/2+100

// point 2 - bottom of leg that needs moving to say
newx#=screenwidth/2+100
newy#=screenheight/2+100

time#=0

do
    
	DrawLine(x#,y#,lerpx(oldx#,newx#,time#),lerpy(oldy#,newy#,time#),MakeColor(0,255,0),MakeColor(0,255,0))
	
	if dectime=0 then dec time#,.001
	if dectime=1 then inc time#,.001
	
	if time#>1 
		time#=1
		
		dectime=0
	endif
	
	if time#<0 
		time#=0
		
		dectime=1
	endif
		
    Print( ScreenFPS() )
    Sync()
loop


function LerpX(oldx#,newx#,time#)
	
	x# = oldx# + (newx# - oldx#) * time#
	
endfunction x#

function LerpY(oldy#,newy#,time#)
	
	y# = oldy# + (newy# - oldy#) * time#
	
endfunction y#

// Project: morph2d 
// Created: 2018-12-22

// show all errors
SetErrorMode(2)

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

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


//createsprite1
swap()

	print("Hello")
render()
img = GetImage(0,0,300,100)
image1 = CreateMemblockFromImage(img)

newimage = image1

//createsprite1
swap()
	DrawBox(0,0,100,100,MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),1)
	print("Goodbye")
render()
img2 = GetImage(0,0,300,100)
image2 = CreateMemblockFromImage(img2)



spr = CreateSprite(0)

SetSpriteSize(spr,200,100)


time#=0

do
    newerimage = lerp_image( newimage, image1,image2, 0.05, 300,100)

	SetSpritePosition(spr,100,100)
	SetSpriteImage(spr,newerimage)
    
    
   inc time#,0001
		
    Print( ScreenFPS() )
    Sync()
loop

function lerp_image(newimage,image1,image2,time#, sizex#,sizey#)
	
	
			background_imgwidth = GetMemblockInt(image1, 0)
			background_imgheight = GetMemblockInt(image1, 4)
			background_size = GetMemblockSize(image1)
			
			for xx=0 to sizex#-1				
				for yy=0 to sizey#-1
					offset = 12 + (((Yy * background_imgwidth) + Xx) * 4)

						red# = GetMemblockByte(image1,offset)
						green# = GetMemblockByte(image1,offset+1)
						blue# = GetMemblockByte(image1,offset+2)
						alpha# = GetMemblockByte(image1,offset+3)
						
						
						nred# = GetMemblockByte(image2,offset)
						ngreen# = GetMemblockByte(image2,offset+1)
						nblue# = GetMemblockByte(image2,offset+2)
						nalpha# = GetMemblockByte(image2,offset+3)
						
						xred# = red# + ( nred#-red# ) * time#
						xgreen# = green# + ( ngreen#-green# ) * time#
						xblue# = blue# + ( nblue#-blue# ) * time#
						xalpha# = alpha# + ( nalpha#-alpha# ) * time#
						
						
						SetMemblockByte(newimage, offset,   xred#)
						SetMemblockByte(newimage, offset+1, xgreen#)
						setMemblockByte(newimage, offset+2, xblue#)
						setMemblockByte(newimage, offset+3, xalpha#) // 254 is air, can move in it
				next
			next

	
	
	cnewimage = CreateImageFromMemblock(newimage)
	
endfunction cnewimage

// Project: morph2d 
// Created: 2018-12-22
 
// show all errors
SetErrorMode(2)
 
#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0
 
// set window properties
SetWindowTitle( "morphbones" )
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
 
type _vector
	pivotx#
	pivoty#
	
	fromx#
	tox#
	
	fromy#
	toy#
	color
	time#
	dectime
endtype
global bones as _vector[]

 addbone(screenwidth/2,screenheight/2, screenwidth/2-10,screenheight/2+100,screenwidth/2+10, screenheight/2+100,MakeColor(255,255,0))
 addbone(screenwidth/2,screenheight/2, screenwidth/2+10,screenheight/2+100,screenwidth/2-10, screenheight/2+100,MakeColor(0,255,0))


 addbone(screenwidth/2-10,screenheight/2+200, screenwidth/2+10,screenheight/2+100,screenwidth/2-10, screenheight/2+100,MakeColor(0,255,0))
 addbone(screenwidth/2+10,screenheight/2+200, screenwidth/2-10,screenheight/2+100,screenwidth/2+10, screenheight/2+100,MakeColor(255,255,0))



 
do
     
	for i=0 to bones.length
		DrawLine(bones[i].pivotx#,bones[i].pivoty#,lerpx(bones[i].fromx#,bones[i].tox#,bones[i].time#),lerpy(bones[i].fromy#,bones[i].toy#,bones[i].time#),bones[i].color,bones[i].color)
		
		if bones[i].dectime=0 then dec bones[i].time#,.001
		if bones[i].dectime=1 then inc bones[i].time#,.001
     
		if bones[i].time#>1 
			bones[i].time#=1
         
			bones[i].dectime=0
		endif
     
		if bones[i].time#<0 
			bones[i].time#=0
         
			bones[i].dectime=1
		endif
    next 
    Print( ScreenFPS() )
    Sync()
loop
 
 
function LerpX(oldx#,newx#,time#)
     
    x# = oldx# + (newx# - oldx#) * time#
     
endfunction x#
 
function LerpY(oldy#,newy#,time#)
     
    y# = oldy# + (newy# - oldy#) * time#
     
endfunction y#


//px#, py# = pivot or static joint
//x1#, y1# - start joint
//x2#, y2# - end joint
// color - color of joint


function addbone(px#, py# , x1# , y1# , x2# , y2# , color) 
	
	bone as _vector

	bone.pivotx# = px#
	bone.pivoty# = py#

	bone.fromx# = x1#
	bone.fromy# = y1#

	bone.tox#   = x2#
	bone.toy#   = y2#
	
	bone.time#  = 0
	bone.dectime= 0
	bone.color = color
	bones.insert(bone)
endfunction

// Project: morph2d 
// Created: 2018-12-22
 
// show all errors
SetErrorMode(2)
 
#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0
 
// set window properties
SetWindowTitle( "morphbones" )
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
 
type _vectorbones
	fromx#
	fromy#
	tox#
	toy#
endtype

type _vector
	pivotx#
	pivoty#
	joints as _vectorbones[]
	color
	time#
	dectime
endtype
global bones as _vector[]



addjoint(screenwidth/2,screenheight/2, screenwidth/2,screenheight/2, MakeColor(255,255,0))
joints=1
for a=1 to 360 step 30
	xx#=300*sin(a)
	yy#=300*cos(a)

	addbone(joints, 0, screenwidth/2+xx#,screenheight/2+yy#)
	inc joints
next


addjoint(screenwidth/2,screenheight/2, screenwidth/2,screenheight/2, MakeColor(0,255,255))
joints=1
for a=1 to 360 step 30
	xx#=100*sin(a)
	yy#=100*cos(a)

	addbone(joints, 1, screenwidth/2+xx#,screenheight/2+yy#)
	inc joints
next



 
do
		
	for i=0 to bones.length

		// draw the first bone to the first joint
		for j=0 to bones[i].joints.length
			DrawLine(bones[i].joints[j].fromx#,bones[i].joints[j].fromy#,bones[i].joints[j].tox#,bones[i].joints[j].toy#,   bones[i].color,bones[i].color)
			DrawEllipse(bones[i].joints[j].fromx#,bones[i].joints[j].fromy#,5,5,bones[i].color,bones[i].color,1)
		next
		
		
    next 
    
    bones[0].joints[6].fromx# = GetPointerX()
    bones[0].joints[6].fromy# = GetPointerY()
   bones[0].joints[5].tox# = GetPointerX()
    bones[0].joints[5].toy# = GetPointerY()
   
    
    Print( ScreenFPS() )
    Sync()
loop
 
 
function LerpX(oldx#,newx#,time#)
     
    x# = oldx# + (newx# - oldx#) * time#
     
endfunction x#
 
function LerpY(oldy#,newy#,time#)
     
    y# = oldy# + (newy# - oldy#) * time#
     
endfunction y#


function addjoint(x#,y#,x2#,y2#,color)
	bone as _vector
	vb as _vectorbones
	vb.fromx# = x#
	vb.fromy# = y#
	vb.tox# = x2#
	vb.toy# = y2#
	
	bone.time#  = 0
	bone.dectime= 0
	
	bone.color = color

	bone.joints.insert(vb)

	bones.insert(bone)
endfunction

//px#, py# = pivot or static joint
//x1#, y1# - start joint
//x2#, y2# - end joint
// color - color of joint


function addbone(currentjoint,currentbone, x2# , y2#) 
	vb as _vectorbones

// its the frst one so join it to its pivot
	if currentjoint>0
		vb.fromx# = bones[currentbone].joints[currentjoint-1].tox#
		vb.fromy# = bones[currentbone].joints[currentjoint-1].toy#
	endif	

	vb.tox# = x2#
	vb.toy# = y2#
	
	
	bones[currentbone].joints.insert(vb)
	
endfunction

// Project: morph2d 
// Created: 2018-12-22
 
// show all errors
SetErrorMode(2)
 
#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0
 
// set window properties
SetWindowTitle( "morphbones" )
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
 
type _vectorbones
	fromx#
	fromy#
	tox#
	toy#
endtype

type _vector
	pivotx#
	pivoty#
	joints as _vectorbones[]
	color
	time#
	dectime
endtype
global bones as _vector[]


for b=0 to 10
	addjoint(screenwidth/2,screenheight/2, screenwidth/2,screenheight/2, MakeColor(255,255,0))
	joints=1
	for a=1 to 360 step 30
		xx#=(b*10)*sin(a)
		yy#=(b*10)*cos(a)

		addbone(joints, b, screenwidth/2+xx#,screenheight/2+yy#)
		inc joints
	next
next




 
do
		
	for i=0 to bones.length

		// draw the first bone to the first joint
		for j=0 to bones[i].joints.length
			DrawLine(bones[i].joints[j].fromx#,bones[i].joints[j].fromy#,bones[i].joints[j].tox#,bones[i].joints[j].toy#,   bones[i].color,bones[i].color)
			DrawEllipse(bones[i].joints[j].fromx#,bones[i].joints[j].fromy#,5,5,bones[i].color,bones[i].color,1)
		next
		
		
    next 
    
    bones[0].joints[6].fromx# = GetPointerX()
    bones[0].joints[6].fromy# = GetPointerY()
   bones[0].joints[5].tox# = GetPointerX()
    bones[0].joints[5].toy# = GetPointerY()
   
    
    Print( ScreenFPS() )
    Sync()
loop
 
 
function LerpX(oldx#,newx#,time#)
     
    x# = oldx# + (newx# - oldx#) * time#
     
endfunction x#
 
function LerpY(oldy#,newy#,time#)
     
    y# = oldy# + (newy# - oldy#) * time#
     
endfunction y#


function addjoint(x#,y#,x2#,y2#,color)
	bone as _vector
	vb as _vectorbones
	vb.fromx# = x#
	vb.fromy# = y#
	vb.tox# = x2#
	vb.toy# = y2#
	
	bone.time#  = 0
	bone.dectime= 0
	
	bone.color = color

	bone.joints.insert(vb)

	bones.insert(bone)
endfunction

//px#, py# = pivot or static joint
//x1#, y1# - start joint
//x2#, y2# - end joint
// color - color of joint


function addbone(currentjoint,currentbone, x2# , y2#) 
	vb as _vectorbones

// its the frst one so join it to its pivot
	if currentjoint>0
		vb.fromx# = bones[currentbone].joints[currentjoint-1].tox#
		vb.fromy# = bones[currentbone].joints[currentjoint-1].toy#
	endif	

	vb.tox# = x2#
	vb.toy# = y2#
	
	
	bones[currentbone].joints.insert(vb)
	
endfunction

autocam off
sync on
make object box 100,10,10,10
make object box 200,40,5,5

lock vertexdata for limb 100,0
vertex = get vertexdata vertex count()
    for i = 0  to vertex-1
      inc ob
        x# = get vertexdata position x(i)
        y# = get vertexdata position y(i)
        z# = get vertexdata position z(i)
make object box ob,1,1,1
position object ob,x#,y#,z#
color object ob,rgb(255,0,0)
next

se=ob
lock vertexdata for limb 200,0
vertex = get vertexdata vertex count()
    for i = 0  to vertex-1
      inc se
        x# = get vertexdata position x(i)
        y# = get vertexdata position y(i)
        z# = get vertexdata position z(i)
make object box se,1,1,1
position object se,x#,y#,z#
color object se,rgb(0,0,255)
next

set object wireframe 100,1
set object wireframe 200,1



position camera -50,50,-50
point camera 0,0,0

do

for i= 1 to 24
x#=object position x(i)
y#=object position y(i)
z#=object position z(i)

nx#=object position x(i+24)
ny#=object position y(i+24)
nz#=object position z(i+24)

if spacekey()
if x#>nx# then move object right i+24,0.01
if x#<nx# then move object left i+24,0.01
if y#>ny# then move object up i+24,0.01
if y#<ny# then move object down i+24,0.01
if z#>nz# then move object i+24,0.01
if z#<nz# then move object i+24,-0.01
endif

next


sync
loop

// Project: 3D Morfing 
// Created: 2018-12-22

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "3D Morfing" )
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



createobjectbox(100,10,10,10)
createobjectbox(200,40,5,5)

mesh = CreateMemblockFromObjectMesh(100,1)
`getting object vertex quantity
 verts= GetMemblockInt( mesh, 0 )

    for i = 0  to verts-1
      inc ob
 	 x#=GetMeshMemblockVertexX(mesh,i)
	 y#=GetMeshMemblockVertexy(mesh,i)
	 z#=GetMeshMemblockVertexz(mesh,i)
	 createobjectbox(ob,1,1,1)
	 setobjectcolor(ob,255,0,0,0)
	 setobjectposition(ob,x#,y#,z#)
next

se=ob
mesh = CreateMemblockFromObjectMesh(200,1)
`getting object vertex quantity
 verts= GetMemblockInt( mesh, 0 )

    for i = 0  to verts-1
      inc se
 	 x#=GetMeshMemblockVertexX(mesh,i)
	 y#=GetMeshMemblockVertexy(mesh,i)
	 z#=GetMeshMemblockVertexz(mesh,i)
	 createobjectbox(se,1,1,1)
	 setobjectcolor(se,0,0,255,0)
	 setobjectposition(se ,x#,y#,z#)
next


setcameraposition(1,-60,40,-50)
SetCameraLookAt(1,0,0,0,0)
nx#=0
ny#=0
nz#=0
ob=0
se=0
do
gosub camara
for i= 1 to 24

x#=getobjectx(i)
y#=getobjecty(i)
z#=getobjectz(i)

x#=getobjectx(i+24)
y#=getobjecty(i+24)
z#=getobjectz(i+24)

if ( GetRawKeyState( 32 ) ) 
if x#>nx# then moveobjectlocalx( i+24,-0.2)
if x#<nx# then moveobjectlocalx( i+24,0.2 )
if y#>ny# then moveobjectlocaly(i+24,0.2)
if y#<ny# then moveobjectlocaly(i+24,-0.2)
if z#>nz# then moveobjectlocalz( i+24,0.2)
if z#<nz# then moveobjectlocalz( i+24,-0.2)
endif

next
    Sync()
loop

camara:
	 if ( GetRawKeyState( 38 ) ) then MoveCameraLocalZ( 1, 1 )  
	 if ( GetRawKeyState( 40 ) ) then MoveCameraLocalZ( 1, -1 ) 
	 if ( GetRawKeyState( 37 ) ) then MoveCameraLocalX( 1, -1 ) 
	 if ( GetRawKeyState( 39 ) ) then MoveCameraLocalX( 1, 1 )  

	 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

autocam off
sync on
make object box 100,10,10,10
make object box 200,40,5,5

lock vertexdata for limb 100,0
vertex = get vertexdata vertex count()
    for i = 0  to vertex-1
      inc ob
        x# = get vertexdata position x(i)
        y# = get vertexdata position y(i)
        z# = get vertexdata position z(i)
make object box ob,1,1,1
position object ob,x#,y#,z#
color object ob,rgb(255,0,0)
next

se=ob
lock vertexdata for limb 200,0
vertex = get vertexdata vertex count()
    for i = 0  to vertex-1
      inc se
        x# = get vertexdata position x(i)
        y# = get vertexdata position y(i)
        z# = get vertexdata position z(i)
make object box se,1,1,1
position object se,x#,y#,z#
color object se,rgb(0,0,255)
next

set object wireframe 100,1
set object wireframe 200,1

make object box 300,20,20,20
//set object wireframe 300,1

position camera -50,50,-50
point camera 0,0,0

do

for i= 1 to 24
x#=object position x(i)
y#=object position y(i)
z#=object position z(i)

nx#=object position x(i+24)
ny#=object position y(i+24)
nz#=object position z(i+24)

if spacekey()
if x#>nx# then move object right i+24,0.01
if x#<nx# then move object left i+24,0.01
if y#>ny# then move object up i+24,0.01
if y#<ny# then move object down i+24,0.01
if z#>nz# then move object i+24,0.01
if z#<nz# then move object i+24,-0.01
endif

next

lock vertexdata for limb 300,0
    vertex = get vertexdata vertex count()
    for i = 0  to vertex-1

        lx# = object position x(i+25)
        ly# = object position y(i+25)
        lz# = object position z(i+25)+30
    set vertexdata position i,lx#,ly#,lz#
next

sync
loop

// Project: 3D Morfing 
// Created: 2018-12-22

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "3D Morfing" )
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


createobjectbox(100,10,30,10)  `first pose
createobjectbox(200,40,5,40)   `second pose
createobjectbox(300,5,5,5)     `last pose


setobjectcolor(300,255,255,0,0)
mesh = CreateMemblockFromObjectMesh(100,1)
`getting object vertex quantity
verts= GetMemblockInt( mesh, 0 )
ob=0
for i = 0  to verts-1
     inc ob
 	 x#=GetMeshMemblockVertexX(mesh,i)
	 y#=GetMeshMemblockVertexy(mesh,i)
	 z#=GetMeshMemblockVertexz(mesh,i)
	 createobjectbox(ob,1,1,1)
	 setobjectcolor(ob,255,0,0,0)
	 setobjectposition(ob,x#,y#,z#)
next

se=ob
mesh = CreateMemblockFromObjectMesh(200,1)
verts= GetMemblockInt( mesh, 0 )
for i = 0  to verts-1
     inc se
 	 x#=GetMeshMemblockVertexX(mesh,i)
	 y#=GetMeshMemblockVertexy(mesh,i)
	 z#=GetMeshMemblockVertexz(mesh,i)
	 createobjectbox(se,1,1,1)
	 setobjectcolor(se,0,0,255,0)
	 setobjectposition(se ,x#,y#,z#)
next


setcameraposition(1,-60,20,-50)
SetCameraLookAt(1,0,0,0,0)
do
	
gosub camara

for i= 1 to 24
	x#=getobjectx(i)
	y#=getobjecty(i)
	z#=getobjectz(i)

	nx#=getobjectx(i+24)
	ny#=getobjecty(i+24)
	nz#=getobjectz(i+24)

	if ( GetRawKeyState( 32 ) ) 
		if x#>nx# then moveobjectlocalx( i+24,0.1)
		if x#<nx# then moveobjectlocalx( i+24,-0.1 )
		if y#>ny# then moveobjectlocaly(i+24,0.1)
		if y#<ny# then moveobjectlocaly(i+24,-0.1)
		if z#>nz# then moveobjectlocalz( i+24,0.1)
		if z#<nz# then moveobjectlocalz( i+24,-0.1)
	endif

next



mesh = CreateMemblockFromObjectMesh(300,1)
`getting object vertex quantity
 verts= GetMemblockInt( mesh, 0 )

    for i = 0  to verts-1
 
 	 x#=Getobjectx(i+25)
	 y#=getobjecty(i+25)
	 z#=getobjectz(i+25)
     SetMeshMemblockVertexPosition(mesh,i,x#,y#,z#+60)
next
 //fixing mesh
SetObjectMeshFromMemblock(300,1,mesh)

   print ("Press Sapcebar to see the morphing")
    Sync()
loop

camara:
	 if ( GetRawKeyState( 38 ) ) then MoveCameraLocalZ( 1, 1 )  
	 if ( GetRawKeyState( 40 ) ) then MoveCameraLocalZ( 1, -1 ) 
	 if ( GetRawKeyState( 37 ) ) then MoveCameraLocalX( 1, -1 ) 
	 if ( GetRawKeyState( 39 ) ) then MoveCameraLocalX( 1, 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

// Project: morph2d 
// Created: 2018-12-22
 
// show all errors
SetErrorMode(2)
 
#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0
 
// set window properties
SetWindowTitle( "morphbones" )
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
 
type _vectorbones
	fromx#
	fromy#
	tox#
	toy#
endtype

type _vector
	pivotx#
	pivoty#
	joints as _vectorbones[]
	color
	time#
	dectime
endtype
global bones as _vector[]


for b=0 to 30
	addjoint(screenwidth/2,screenheight/2, screenwidth/2,screenheight/2, MakeColor(200,200,200))
	joints=1
	for a=1 to 360 step 30
		xx#=(b*10)*sin(a)
		yy#=(b*10)*cos(a)

		addbone(joints, b, screenwidth/2+xx#,screenheight/2+yy#)
		inc joints
	next
next




 
do
		
	for i=0 to bones.length

		for j=0 to bones[i].joints.length
		
			DrawLine(bones[i].joints[j].fromx#,bones[i].joints[j].fromy#,bones[i].joints[j].tox#,bones[i].joints[j].toy#,   bones[i].color,bones[i].color)

			if getpointerx()>bones[i].joints[j].fromx#-5 and getpointerx()<bones[i].joints[j].fromx#+5 and getpointery()>bones[i].joints[j].fromy#-5 and getpointery()<bones[i].joints[j].fromy#+5 
				DrawEllipse(bones[i].joints[j].fromx#,bones[i].joints[j].fromy#,5,5,MakeColor(255,0,0),MakeColor(255,0,0),1)
			
				if GetRawMouseLeftState()
					bones[i].joints[j].fromx# = GetPointerX()
					bones[i].joints[j].fromy# = GetPointerY()
					bones[i].joints[j-1].tox# = GetPointerX()
					bones[i].joints[j-1].toy# = GetPointerY()
				endif


			else
				DrawEllipse(bones[i].joints[j].fromx#,bones[i].joints[j].fromy#,5,5,bones[i].color,bones[i].color,1)
			endif
		
		
		next
		
			DrawLine(bones[i].joints[j-1].fromx#,bones[i].joints[j-1].fromy#,bones[i].joints[0].tox#,bones[i].joints[0].toy#,   bones[i].color,bones[i].color)

			DrawEllipse(bones[i].joints[0].fromx#,bones[i].joints[0].fromy#,5,5,bones[i].color,bones[i].color,1)
	
	
	
		
    next 

	

    
    
    Print( ScreenFPS() )
    Sync()
loop
 
 
function LerpX(oldx#,newx#,time#)
     
    x# = oldx# + (newx# - oldx#) * time#
     
endfunction x#
 
function LerpY(oldy#,newy#,time#)
     
    y# = oldy# + (newy# - oldy#) * time#
     
endfunction y#


function addjoint(x#,y#,x2#,y2#,color)
	bone as _vector
	vb as _vectorbones
	vb.fromx# = x#
	vb.fromy# = y#
	vb.tox# = x2#
	vb.toy# = y2#
	
	bone.time#  = 0
	bone.dectime= 0
	
	bone.color = color

	bone.joints.insert(vb)

	bones.insert(bone)
endfunction

//px#, py# = pivot or static joint
//x1#, y1# - start joint
//x2#, y2# - end joint
// color - color of joint+


function addbone(currentjoint,currentbone, x2# , y2#) 
	vb as _vectorbones

// its the frst one so join it to its pivot
	if currentjoint>0
		vb.fromx# = bones[currentbone].joints[currentjoint-1].tox#
		vb.fromy# = bones[currentbone].joints[currentjoint-1].toy#
	endif	

	vb.tox# = x2#
	vb.toy# = y2#
	
	
	bones[currentbone].joints.insert(vb)
	
endfunction

// Project: morph2d 
// Created: 2018-12-22
 
// show all errors
SetErrorMode(2)
 
#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0
 
// set window properties
SetWindowTitle( "morphbones" )
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
 
type _texturevector
	x#
	y#
endtype


type _vector
	fromx#
	fromy#
	tox#
	toy#
	color
	time#
	dectime
endtype
global bones as _vector[]

global textures as _texturevector[]

addtexturecoords()


textureid=0
scale#=300.0
		
for textureid = 0 to textures.length -1 step 3
	
	addbone(textures[textureid].x#*scale#,textures[textureid].y#*scale#,textures[textureid+1].x#*scale#,textures[textureid+1].y#*scale#)
	addbone(textures[textureid+1].x#*scale#,textures[textureid+1].y#*scale#,textures[textureid+2].x#*scale#,textures[textureid+2].y#*scale#)
	addbone(textures[textureid+2].x#*scale#,textures[textureid+2].y#*scale#,textures[textureid].x#*scale#,textures[textureid].y#*scale#)

	
next

sync()
sleep(100)



 
do
		
	originx=screenwidth/2
	originy=screenheight/2
	print(bones.length)
	for i=0 to textures.length -1
		
			DrawLine(originx-bones[i].fromx#,originy-bones[i].fromy#,originx-bones[i].tox#,originy-bones[i].toy#,   MakeColor(255,255,255),MakeColor(255,255,255))

/*			if getpointerx()>bones[i].joints[j].fromx#-5 and getpointerx()<bones[i].joints[j].fromx#+5 and getpointery()>bones[i].joints[j].fromy#-5 and getpointery()<bones[i].joints[j].fromy#+5 
				DrawEllipse(bones[i].joints[j].fromx#,bones[i].joints[j].fromy#,5,5,MakeColor(255,0,0),MakeColor(255,0,0),1)
			
				if GetRawMouseLeftState()
					bones[i].joints[j].fromx# = GetPointerX()
					bones[i].joints[j].fromy# = GetPointerY()
					bones[i].joints[j-1].tox# = GetPointerX()
					bones[i].joints[j-1].toy# = GetPointerY()
				endif


			else
				DrawEllipse(bones[i].joints[j].fromx#,bones[i].joints[j].fromy#,5,5,bones[i].color,bones[i].color,1)
			endif
		
		
		next
		
			DrawLine(bones[i].joints[j-1].fromx#,bones[i].joints[j-1].fromy#,bones[i].joints[0].tox#,bones[i].joints[0].toy#,   bones[i].color,bones[i].color)

			DrawEllipse(bones[i].joints[0].fromx#,bones[i].joints[0].fromy#,5,5,bones[i].color,bones[i].color,1)
	*/
	
	
		
    next 

	

    
    
    Print( ScreenFPS() )
    Sync()
loop
 
 
function LerpX(oldx#,newx#,time#)
     
    x# = oldx# + (newx# - oldx#) * time#
     
endfunction x#
 
function LerpY(oldy#,newy#,time#)
     
    y# = oldy# + (newy# - oldy#) * time#
     
endfunction y#


//px#, py# = pivot or static joint
//x1#, y1# - start joint
//x2#, y2# - end joint
// color - color of joint+


function addbone(x1#, y1#, x2# , y2#) 
// its the frst one so join it to its pivot
	vb as _vector
	
	vb.fromx# = x1#
	vb.fromy# = y1#
	
	vb.tox# = x2#
	vb.toy# = y2#
	
	
	bones.insert(vb)
endfunction


function addtexturecoords()
	vt as _texturevector




	vt.x# = 0.333333 : vt.y# = 0.333333 : textures.insert(vt)
	vt.x# = 0.666667 : vt.y# =  0.000000 : textures.insert(vt)
	vt.x# = 0.666667 : vt.y# = 0.333333 : textures.insert(vt)
	vt.x# = 0.333333 : vt.y# =  0.000000 : textures.insert(vt)
	vt.x# = 0.666667 : vt.y# =  0.000000 : textures.insert(vt)
	vt.x# = 0.333333 : vt.y# = 0.333333 : textures.insert(vt)
	vt.x# =  0.331333 : vt.y# =  1.000000 : textures.insert(vt)
	vt.x# = 0.000000 : vt.y# =  0.668667 : textures.insert(vt)
	vt.x# = 0.331333 : vt.y# =  0.668667 : textures.insert(vt)
	vt.x# = 0.000000 : vt.y# =  1.000000 : textures.insert(vt)
	vt.x# = 0.000000 : vt.y# =  0.668667 : textures.insert(vt)
	vt.x# =  0.331333 : vt.y# =  1.000000 : textures.insert(vt)
	vt.x# = 1.000000 : vt.y# =  0.333333 : textures.insert(vt)
	vt.x# = 0.666667 : vt.y# =  0.666667 : textures.insert(vt)
	vt.x# = 0.666667 : vt.y# = 0.333333 : textures.insert(vt)
	vt.x# = 1.000000 : vt.y# =  0.666667 : textures.insert(vt)
	vt.x# = 0.666667 : vt.y# =  0.666667 : textures.insert(vt)
	vt.x# = 1.000000 : vt.y# =  0.333333 : textures.insert(vt)
	vt.x# = 0.666667 : vt.y# =  0.666667 : textures.insert(vt)
	vt.x# = 0.333333 : vt.y# =  0.666667 : textures.insert(vt)
	vt.x# = 0.333333 : vt.y# = 0.333333 : textures.insert(vt)
	vt.x# = 0.666667 : vt.y# = 0.333333 : textures.insert(vt)
	vt.x# = 0.666667 : vt.y# =  0.666667 : textures.insert(vt)
	vt.x# = 0.333333 : vt.y# = 0.333333 : textures.insert(vt)
	vt.x# = 0.333333 : vt.y# =  1.000000 : textures.insert(vt)
	vt.x# = 0.666667 : vt.y# =  0.666667 : textures.insert(vt)
	vt.x# = 0.666667 : vt.y# =  1.000000 : textures.insert(vt)
	vt.x# = 0.333333 : vt.y# =  1.000000 : textures.insert(vt)
	vt.x# = 0.333333 : vt.y# =  0.666667 : textures.insert(vt)
	vt.x# = 0.666667 : vt.y# =  0.666667 : textures.insert(vt)
	vt.x# = 0.333333 : vt.y# = 0.333333 : textures.insert(vt)
	vt.x# = 0.333333 : vt.y# =  0.666667 : textures.insert(vt)
	vt.x# = 0.000000 : vt.y# =  0.666667 : textures.insert(vt)
	vt.x# = 0.333333 : vt.y# = 0.333333 : textures.insert(vt)
	vt.x# = 0.000000 : vt.y# =  0.666667 : textures.insert(vt)
	vt.x# = 0.000000 : vt.y# = 0.333333 : textures.insert(vt)


/*
1	vt.x# = 0.666667 : vt.y# = 0.333333 : textures.insert(vt)
2	vt.x# = 0.333333 : vt.y# = 0.333333 : textures.insert(vt)
3	vt.x# = 0.000000 : vt.y# = 0.333333 : textures.insert(vt)
4	vt.x# =  0.331333 : vt.y# =  1.000000 : textures.insert(vt)
5	vt.x# = 0.331333 : vt.y# =  0.668667 : textures.insert(vt)
6	vt.x# = 0.000000 : vt.y# =  0.668667 : textures.insert(vt)
7	vt.x# = 0.666667 : vt.y# =  0.666667 : textures.insert(vt)
8	vt.x# = 0.333333 : vt.y# =  0.666667 : textures.insert(vt)
9	vt.x# = 0.000000 : vt.y# =  1.000000 : textures.insert(vt)
10	vt.x# = 0.333333 : vt.y# =  0.000000 : textures.insert(vt)
11	vt.x# = 0.666667 : vt.y# =  0.000000 : textures.insert(vt)
12	vt.x# = 1.000000 : vt.y# =  0.333333 : textures.insert(vt)
13	vt.x# = 0.666667 : vt.y# =  1.000000 : textures.insert(vt)
14	vt.x# = 1.000000 : vt.y# =  0.666667 : textures.insert(vt)
15	vt.x# = 0.000000 : vt.y# =  0.666667 : textures.insert(vt)
16	vt.x# = 0.333333 : vt.y# =  1.000000 : textures.insert(vt)


face data
g Default
s 1
usemtl Cube
f 2/2/2 6/11/6 5/1/5
f 3/10/3 6/11/6 2/2/2
f 6/4/6 4/6/4 8/5/8
f 3/9/3 4/6/4 6/4/6
f 6/12/6 7/7/7 5/1/5
f 8/14/8 7/7/7 6/12/6
f 7/7/7 1/8/1 2/2/2
f 5/1/5 7/7/7 2/2/2
f 4/16/4 7/7/7 8/13/8
f 4/16/4 1/8/1 7/7/7
f 2/2/2 1/8/1 4/15/4
f 2/2/2 4/15/4 3/3/3


*/

endfunction

// Project: morph2d 
// Created: 2018-12-22
 
// show all errors
SetErrorMode(2)
 
#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0
 
// set window properties
SetWindowTitle( "morphbones" )
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
 
type _texturevector
	x#
	y#
endtype


type _vector
	fromx#
	fromy#
	tox#
	toy#
	color
	time#
	dectime
endtype
global bones as _vector[]

global textures as _texturevector[]

addtexturecoords()

textids as integer[100]
textureid=0
scale#=300.0
		
for textureid = 0 to textures.length -1 step 3
	
	addbone(textures[textureid].x#*scale#,textures[textureid].y#*scale#,textures[textureid+1].x#*scale#,textures[textureid+1].y#*scale#)
	textids[textureid]=CreateText(str(textureid))
	SetTextSize(textids[textureid],16)
	

	addbone(textures[textureid+1].x#*scale#,textures[textureid+1].y#*scale#,textures[textureid+2].x#*scale#,textures[textureid+2].y#*scale#)
	textids[textureid+1]=CreateText(str(textureid+1))
	SetTextSize(textids[textureid+1],16)
	
	addbone(textures[textureid+2].x#*scale#,textures[textureid+2].y#*scale#,textures[textureid].x#*scale#,textures[textureid].y#*scale#)
	textids[textureid+2]=CreateText(str(textureid+2))
	SetTextSize(textids[textureid+2],16)
	
	
	
next

sync()
sleep(100)



amount=textures.length
do
		
	originx=screenwidth/3
	originy=screenheight/3
	
	if GetRawKeyPressed(38) then dec amount,3
	if GetRawKeyPressed(40) then inc amount,3
	for i=0 to amount step 3

		for o=0 to 2
			SetTextPosition(textids[i+o],originx+bones[i+o].fromx#-20,originy+bones[i+o].fromy#-20)
		
		
		DrawLine(originx+bones[i+o].fromx#,originy+bones[i+o].fromy#,originx+bones[i+o].tox#,originy+bones[i+o].toy#,   MakeColor(255,255,255),MakeColor(255,255,255))


		if getpointerx()>originx+bones[i+o].fromx#-8 and getpointerx()<originx+bones[i+o].fromx#+8 and getpointery()>originy+bones[i+o].fromy#-8 and getpointery()<originy+bones[i+o].fromy#+8 
			DrawEllipse(originx+bones[i+o].fromx#,originy+bones[i+o].fromy#,5,5,MakeColor(255,0,0),MakeColor(255,0,0),1)
		
			if GetRawMouseLeftState()
				
				if o=0 
					bones[i+o].fromx# = GetPointerX()-originx
					bones[i+o].fromy# = GetPointerY()-originy
					bones[i+o+2].tox# = GetPointerX()-originx
					bones[i+o+2].toy# = GetPointerY()-originy

				endif

				if o=1
					bones[i+o].fromx# = GetPointerX()-originx
					bones[i+o].fromy# = GetPointerY()-originy
					bones[i+o-1].tox# = GetPointerX()-originx
					bones[i+o-1].toy# = GetPointerY()-originy
	
				endif

				if o=2
					bones[i+o].fromx# = GetPointerX()-originx
					bones[i+o].fromy# = GetPointerY()-originy
					bones[i+o-1].tox# = GetPointerX()-originx
					bones[i+o-1].toy# = GetPointerY()-originy

				endif



			endif


		else
			DrawEllipse(originx+bones[i+o].fromx#,originy+bones[i+o].fromy#,5,5,MakeColor(255,255,255),MakeColor(255,255,255),1)
		endif
		next
		
		
	next
	
	
	
		

	

    
    
    Print( ScreenFPS() )
    Sync()
loop
 
 
function LerpX(oldx#,newx#,time#)
     
    x# = oldx# + (newx# - oldx#) * time#
     
endfunction x#
 
function LerpY(oldy#,newy#,time#)
     
    y# = oldy# + (newy# - oldy#) * time#
     
endfunction y#


//px#, py# = pivot or static joint
//x1#, y1# - start joint
//x2#, y2# - end joint
// color - color of joint+


function addbone(x1#, y1#, x2# , y2#) 
// its the frst one so join it to its pivot
	vb as _vector
	
	vb.fromx# = x1#
	vb.fromy# = y1#
	
	vb.tox# = x2#
	vb.toy# = y2#
	
	
	bones.insert(vb)
endfunction


function addtexturecoords()
	vt as _texturevector




	vt.x# = 0.333333 : vt.y# = 0.333333 : textures.insert(vt)
	vt.x# = 0.666667 : vt.y# =  0.000000 : textures.insert(vt)
	vt.x# = 0.666667 : vt.y# = 0.333333 : textures.insert(vt)
	vt.x# = 0.333333 : vt.y# =  0.000000 : textures.insert(vt)
	vt.x# = 0.666667 : vt.y# =  0.000000 : textures.insert(vt)
	vt.x# = 0.333333 : vt.y# = 0.333333 : textures.insert(vt)
	vt.x# =  0.331333 : vt.y# =  1.000000 : textures.insert(vt)
	vt.x# = 0.000000 : vt.y# =  0.668667 : textures.insert(vt)
	vt.x# = 0.331333 : vt.y# =  0.668667 : textures.insert(vt)
	vt.x# = 0.000000 : vt.y# =  1.000000 : textures.insert(vt)
	vt.x# = 0.000000 : vt.y# =  0.668667 : textures.insert(vt)
	vt.x# =  0.331333 : vt.y# =  1.000000 : textures.insert(vt)
	vt.x# = 1.000000 : vt.y# =  0.333333 : textures.insert(vt)
	vt.x# = 0.666667 : vt.y# =  0.666667 : textures.insert(vt)
	vt.x# = 0.666667 : vt.y# = 0.333333 : textures.insert(vt)
	vt.x# = 1.000000 : vt.y# =  0.666667 : textures.insert(vt)
	vt.x# = 0.666667 : vt.y# =  0.666667 : textures.insert(vt)
	vt.x# = 1.000000 : vt.y# =  0.333333 : textures.insert(vt)
	vt.x# = 0.666667 : vt.y# =  0.666667 : textures.insert(vt)
	vt.x# = 0.333333 : vt.y# =  0.666667 : textures.insert(vt)
	vt.x# = 0.333333 : vt.y# = 0.333333 : textures.insert(vt)
	vt.x# = 0.666667 : vt.y# = 0.333333 : textures.insert(vt)
	vt.x# = 0.666667 : vt.y# =  0.666667 : textures.insert(vt)
	vt.x# = 0.333333 : vt.y# = 0.333333 : textures.insert(vt)
	vt.x# = 0.333333 : vt.y# =  1.000000 : textures.insert(vt)
	vt.x# = 0.666667 : vt.y# =  0.666667 : textures.insert(vt)
	vt.x# = 0.666667 : vt.y# =  1.000000 : textures.insert(vt)
	vt.x# = 0.333333 : vt.y# =  1.000000 : textures.insert(vt)
	vt.x# = 0.333333 : vt.y# =  0.666667 : textures.insert(vt)
	vt.x# = 0.666667 : vt.y# =  0.666667 : textures.insert(vt)
	vt.x# = 0.333333 : vt.y# = 0.333333 : textures.insert(vt)
	vt.x# = 0.333333 : vt.y# =  0.666667 : textures.insert(vt)
	vt.x# = 0.000000 : vt.y# =  0.666667 : textures.insert(vt)
	vt.x# = 0.333333 : vt.y# = 0.333333 : textures.insert(vt)
	vt.x# = 0.000000 : vt.y# =  0.666667 : textures.insert(vt)
	vt.x# = 0.000000 : vt.y# = 0.333333 : textures.insert(vt)


/*
1	vt.x# = 0.666667 : vt.y# = 0.333333 : textures.insert(vt)
2	vt.x# = 0.333333 : vt.y# = 0.333333 : textures.insert(vt)
3	vt.x# = 0.000000 : vt.y# = 0.333333 : textures.insert(vt)
4	vt.x# =  0.331333 : vt.y# =  1.000000 : textures.insert(vt)
5	vt.x# = 0.331333 : vt.y# =  0.668667 : textures.insert(vt)
6	vt.x# = 0.000000 : vt.y# =  0.668667 : textures.insert(vt)
7	vt.x# = 0.666667 : vt.y# =  0.666667 : textures.insert(vt)
8	vt.x# = 0.333333 : vt.y# =  0.666667 : textures.insert(vt)
9	vt.x# = 0.000000 : vt.y# =  1.000000 : textures.insert(vt)
10	vt.x# = 0.333333 : vt.y# =  0.000000 : textures.insert(vt)
11	vt.x# = 0.666667 : vt.y# =  0.000000 : textures.insert(vt)
12	vt.x# = 1.000000 : vt.y# =  0.333333 : textures.insert(vt)
13	vt.x# = 0.666667 : vt.y# =  1.000000 : textures.insert(vt)
14	vt.x# = 1.000000 : vt.y# =  0.666667 : textures.insert(vt)
15	vt.x# = 0.000000 : vt.y# =  0.666667 : textures.insert(vt)
16	vt.x# = 0.333333 : vt.y# =  1.000000 : textures.insert(vt)


face data
g Default
s 1
usemtl Cube
f 2/2/2 6/11/6 5/1/5
f 3/10/3 6/11/6 2/2/2
f 6/4/6 4/6/4 8/5/8
f 3/9/3 4/6/4 6/4/6
f 6/12/6 7/7/7 5/1/5
f 8/14/8 7/7/7 6/12/6
f 7/7/7 1/8/1 2/2/2
f 5/1/5 7/7/7 2/2/2
f 4/16/4 7/7/7 8/13/8
f 4/16/4 1/8/1 7/7/7
f 2/2/2 1/8/1 4/15/4
f 2/2/2 4/15/4 3/3/3


*/

endfunction

// Project: morph2d 
// Created: 2018-12-22
 
// show all errors
SetErrorMode(2)
 
#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0
 
// set window properties
SetWindowTitle( "morphbones" )
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
 
type _texturevector
	x#
	y#
endtype


type _vector
	fromx#
	fromy#
	tox#
	toy#
	color
	time#
	dectime
endtype
global bones as _vector[]

global textures as _texturevector[]

addtexturecoords()

img=CreateSprite(LoadImage("texture.png"))

textids as integer[100]
textureid=0
scale#=300.0
		
for textureid = 0 to textures.length -1 step 3
	
	addbone(textures[textureid].x#*scale#,textures[textureid].y#*scale#,textures[textureid+1].x#*scale#,textures[textureid+1].y#*scale#)
	textids[textureid]=CreateText(str(textureid))
	SetTextSize(textids[textureid],16)
	

	addbone(textures[textureid+1].x#*scale#,textures[textureid+1].y#*scale#,textures[textureid+2].x#*scale#,textures[textureid+2].y#*scale#)
	textids[textureid+1]=CreateText(str(textureid+1))
	SetTextSize(textids[textureid+1],16)
	
	addbone(textures[textureid+2].x#*scale#,textures[textureid+2].y#*scale#,textures[textureid].x#*scale#,textures[textureid].y#*scale#)
	textids[textureid+2]=CreateText(str(textureid+2))
	SetTextSize(textids[textureid+2],16)
	
	
	
next


cube=CreateObjectPlane(4,4)
SetObjectPosition(cube,7,0,0)
cubemesh = CreateMemblockFromObjectMesh(cube,1)


SetSpriteSize(img,scale#,scale#)
applytexture(cube,cubemesh, scale#)

vertsamount=textures.length-2

do

print(vertsamount)
	
//	RotateObjectLocalX(cube,.01)
//	RotateObjectLocalY(cube,.01)
//	RotateObjectLocalZ(cube,.01)
	
	originx=screenwidth/4
	originy=screenheight/3
	SetSpritePosition(img,originx,originy)


	
	for i=0 to vertsamount

		for o=0 to 2
			SetTextPosition(textids[i+o],originx+bones[i+o].fromx#-20,originy+bones[i+o].fromy#-20)
			SetTextString(textids[i+o],str(bones[i+o].fromx#/scale#))
		
			for c=-2 to 2
				DrawLine(originx+bones[i+o].fromx#+c,originy+bones[i+o].fromy#+c,originx+bones[i+o].tox#+c,originy+bones[i+o].toy#+c,   MakeColor(255,0,0),MakeColor(255,0,0))
			next

		if getpointerx()>originx+bones[i+o].fromx#-15 and getpointerx()<originx+bones[i+o].fromx#+15 and getpointery()>originy+bones[i+o].fromy#-15 and getpointery()<originy+bones[i+o].fromy#+15 
			DrawEllipse(originx+bones[i+o].fromx#,originy+bones[i+o].fromy#,5,5,MakeColor(255,0,0),MakeColor(255,0,0),1)
		
			if GetRawMouseLeftState()
				
				if o=0 
					bones[i+o].fromx# = GetPointerX()-originx
					bones[i+o].fromy# = GetPointerY()-originy
					bones[i+o+2].tox# = GetPointerX()-originx
					bones[i+o+2].toy# = GetPointerY()-originy

				endif

				if o=1
					bones[i+o].fromx# = GetPointerX()-originx
					bones[i+o].fromy# = GetPointerY()-originy
					bones[i+o-1].tox# = GetPointerX()-originx
					bones[i+o-1].toy# = GetPointerY()-originy
	
				endif

				if o=2
					bones[i+o].fromx# = GetPointerX()-originx
					bones[i+o].fromy# = GetPointerY()-originy
					bones[i+o-1].tox# = GetPointerX()-originx
					bones[i+o-1].toy# = GetPointerY()-originy

				endif



				applytexture(cube,cubemesh, scale#)


			endif


		else
			DrawEllipse(originx+bones[i+o].fromx#-5,originy+bones[i+o].fromy#-5,5,5,MakeColor(255,255,255),MakeColor(255,255,255),1)
		endif
		next
		
		
	next
	
	
	
	SetObjectImage(cube,img,0)

	

    
    
    Print( ScreenFPS() )
    Sync()
loop
 
 
function applytexture(objid, mesh, scale#)
	
	print(GetMemblockInt(mesh,0))
	sync()
//	sleep(10000)
	
	b=0
	for v=0 to GetMemblockInt(mesh,0)-1

	
		SetMeshMemblockVertexUV(mesh,v,bones[b].fromx#/scale#,bones[b].fromy#/scale#)
		inc b
		if b>5 then b=0
	next

	SetObjectMeshFromMemblock(objid,1,mesh)
endfunction
 
function LerpX(oldx#,newx#,time#)
     
    x# = oldx# + (newx# - oldx#) * time#
     
endfunction x#
 
function LerpY(oldy#,newy#,time#)
     
    y# = oldy# + (newy# - oldy#) * time#
     
endfunction y#


//px#, py# = pivot or static joint
//x1#, y1# - start joint
//x2#, y2# - end joint
// color - color of joint+


function addbone(x1#, y1#, x2# , y2#) 
// its the frst one so join it to its pivot
	vb as _vector
	
	vb.fromx# = x1#
	vb.fromy# = y1#
	
	vb.tox# = x2#
	vb.toy# = y2#
	
	
	bones.insert(vb)
endfunction


function addtexturecoords()
	vt as _texturevector

	vt.x# = 0.00000 : vt.y# = 0.00000 : textures.insert(vt)
	vt.x# = 0.00000 : vt.y# = 1.00000 : textures.insert(vt)
	vt.x# = 1.00000 : vt.y# = 0.00000 : textures.insert(vt)

	vt.x# = 1.00000 : vt.y# = 0.00000 : textures.insert(vt)
	vt.x# = 0.00000 : vt.y# = 1.00000 : textures.insert(vt)
	vt.x# = 1.00000 : vt.y# = 1.00000 : textures.insert(vt)
	



/*
	vt.x# = 0.333333 : vt.y# = 0.333333 : textures.insert(vt)
	vt.x# = 0.666667 : vt.y# =  0.000000 : textures.insert(vt)
	vt.x# = 0.666667 : vt.y# = 0.333333 : textures.insert(vt)
	vt.x# = 0.333333 : vt.y# =  0.000000 : textures.insert(vt)
	vt.x# = 0.666667 : vt.y# =  0.000000 : textures.insert(vt)
	vt.x# = 0.333333 : vt.y# = 0.333333 : textures.insert(vt)
	vt.x# =  0.331333 : vt.y# =  1.000000 : textures.insert(vt)
	vt.x# = 0.000000 : vt.y# =  0.668667 : textures.insert(vt)
	vt.x# = 0.331333 : vt.y# =  0.668667 : textures.insert(vt)
	vt.x# = 0.000000 : vt.y# =  1.000000 : textures.insert(vt)
	vt.x# = 0.000000 : vt.y# =  0.668667 : textures.insert(vt)
	vt.x# =  0.331333 : vt.y# =  1.000000 : textures.insert(vt)
	vt.x# = 1.000000 : vt.y# =  0.333333 : textures.insert(vt)
	vt.x# = 0.666667 : vt.y# =  0.666667 : textures.insert(vt)
	vt.x# = 0.666667 : vt.y# = 0.333333 : textures.insert(vt)
	vt.x# = 1.000000 : vt.y# =  0.666667 : textures.insert(vt)
	vt.x# = 0.666667 : vt.y# =  0.666667 : textures.insert(vt)
	vt.x# = 1.000000 : vt.y# =  0.333333 : textures.insert(vt)
	vt.x# = 0.666667 : vt.y# =  0.666667 : textures.insert(vt)
	vt.x# = 0.333333 : vt.y# =  0.666667 : textures.insert(vt)
	vt.x# = 0.333333 : vt.y# = 0.333333 : textures.insert(vt)
	vt.x# = 0.666667 : vt.y# = 0.333333 : textures.insert(vt)
	vt.x# = 0.666667 : vt.y# =  0.666667 : textures.insert(vt)
	vt.x# = 0.333333 : vt.y# = 0.333333 : textures.insert(vt)
	vt.x# = 0.333333 : vt.y# =  1.000000 : textures.insert(vt)
	vt.x# = 0.666667 : vt.y# =  0.666667 : textures.insert(vt)
	vt.x# = 0.666667 : vt.y# =  1.000000 : textures.insert(vt)
	vt.x# = 0.333333 : vt.y# =  1.000000 : textures.insert(vt)
	vt.x# = 0.333333 : vt.y# =  0.666667 : textures.insert(vt)
	vt.x# = 0.666667 : vt.y# =  0.666667 : textures.insert(vt)
	vt.x# = 0.333333 : vt.y# = 0.333333 : textures.insert(vt)
	vt.x# = 0.333333 : vt.y# =  0.666667 : textures.insert(vt)
	vt.x# = 0.000000 : vt.y# =  0.666667 : textures.insert(vt)
	vt.x# = 0.333333 : vt.y# = 0.333333 : textures.insert(vt)
	vt.x# = 0.000000 : vt.y# =  0.666667 : textures.insert(vt)
	vt.x# = 0.000000 : vt.y# = 0.333333 : textures.insert(vt)


/*
1	vt.x# = 0.666667 : vt.y# = 0.333333 : textures.insert(vt)
2	vt.x# = 0.333333 : vt.y# = 0.333333 : textures.insert(vt)
3	vt.x# = 0.000000 : vt.y# = 0.333333 : textures.insert(vt)
4	vt.x# =  0.331333 : vt.y# =  1.000000 : textures.insert(vt)
5	vt.x# = 0.331333 : vt.y# =  0.668667 : textures.insert(vt)
6	vt.x# = 0.000000 : vt.y# =  0.668667 : textures.insert(vt)
7	vt.x# = 0.666667 : vt.y# =  0.666667 : textures.insert(vt)
8	vt.x# = 0.333333 : vt.y# =  0.666667 : textures.insert(vt)
9	vt.x# = 0.000000 : vt.y# =  1.000000 : textures.insert(vt)
10	vt.x# = 0.333333 : vt.y# =  0.000000 : textures.insert(vt)
11	vt.x# = 0.666667 : vt.y# =  0.000000 : textures.insert(vt)
12	vt.x# = 1.000000 : vt.y# =  0.333333 : textures.insert(vt)
13	vt.x# = 0.666667 : vt.y# =  1.000000 : textures.insert(vt)
14	vt.x# = 1.000000 : vt.y# =  0.666667 : textures.insert(vt)
15	vt.x# = 0.000000 : vt.y# =  0.666667 : textures.insert(vt)
16	vt.x# = 0.333333 : vt.y# =  1.000000 : textures.insert(vt)


face data
g Default
s 1
usemtl Cube
f 2/2/2 6/11/6 5/1/5
f 3/10/3 6/11/6 2/2/2
f 6/4/6 4/6/4 8/5/8
f 3/9/3 4/6/4 6/4/6
f 6/12/6 7/7/7 5/1/5
f 8/14/8 7/7/7 6/12/6
f 7/7/7 1/8/1 2/2/2
f 5/1/5 7/7/7 2/2/2
f 4/16/4 7/7/7 8/13/8
f 4/16/4 1/8/1 7/7/7
f 2/2/2 1/8/1 4/15/4
f 2/2/2 4/15/4 3/3/3


*/

endfunction

// Project: morph2d 
// Created: 2018-12-22
 
// show all errors
SetErrorMode(2)
 
#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0
 
// set window properties
SetWindowTitle( "morphbones" )
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

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 _3DVector
	x#
	y#
	z#
	color
endtype
type _UVVector
	U#
	V#
endtype

type _FaceVector
	vindex
	tindex
	nindex
endtype

type _modelinfo
	name$ as string
	vertices as _3DVector[]
	normals as _3DVector[]
	Textures as _UVVector[]
	Faces as _FaceVector
endtype
global objects as _modelinfo[]

 
type _texturevector
	x#
	y#
endtype


type _vector
	fromx#
	fromy#
	tox#
	toy#
	color
	time#
	dectime
endtype
global bones as _vector[]

global textures as _texturevector[]

addtexturecoords()


textids as integer[100]
textureid=0
scale#=300.0
		
for textureid = 0 to textures.length -1 step 3
	
	addbone(textures[textureid].x#*scale#,textures[textureid].y#*scale#,textures[textureid+1].x#*scale#,textures[textureid+1].y#*scale#)
	textids[textureid]=CreateText(str(textureid))
	SetTextSize(textids[textureid],16)
	

	addbone(textures[textureid+1].x#*scale#,textures[textureid+1].y#*scale#,textures[textureid+2].x#*scale#,textures[textureid+2].y#*scale#)
	textids[textureid+1]=CreateText(str(textureid+1))
	SetTextSize(textids[textureid+1],16)
	
	addbone(textures[textureid+2].x#*scale#,textures[textureid+2].y#*scale#,textures[textureid].x#*scale#,textures[textureid].y#*scale#)
	textids[textureid+2]=CreateText(str(textureid+2))
	SetTextSize(textids[textureid+2],16)
	
	
	
next


cube=AGM_LoadObject("bannertowerGreen.obj")
SetObjectScale(cube,10,10,10)

SetObjectPosition(cube,0,-5,0)
cubemesh = CreateMemblockFromObjectMesh(cube,1)


vertsamount=textures.length-2

do
	print(GetMemblockInt(cube,0))
	
//	RotateObjectLocalX(cube,.01)
	RotateObjectLocalY(cube,.1)
	//RotateObjectLocalZ(cube,.01)
/*	
	originx=screenwidth/4
	originy=screenheight/3
	SetSpritePosition(img,originx,originy)


	
	for i=0 to vertsamount

		for o=0 to 2
			SetTextPosition(textids[i+o],originx+bones[i+o].fromx#-20,originy+bones[i+o].fromy#-20)
			SetTextString(textids[i+o],str(bones[i+o].fromx#/scale#))
		
			for c=-2 to 2
				DrawLine(originx+bones[i+o].fromx#+c,originy+bones[i+o].fromy#+c,originx+bones[i+o].tox#+c,originy+bones[i+o].toy#+c,   MakeColor(255,0,0),MakeColor(255,0,0))
			next

		if getpointerx()>originx+bones[i+o].fromx#-15 and getpointerx()<originx+bones[i+o].fromx#+15 and getpointery()>originy+bones[i+o].fromy#-15 and getpointery()<originy+bones[i+o].fromy#+15 
			DrawEllipse(originx+bones[i+o].fromx#,originy+bones[i+o].fromy#,5,5,MakeColor(255,0,0),MakeColor(255,0,0),1)
		
			if GetRawMouseLeftState()
				
				if o=0 
					bones[i+o].fromx# = GetPointerX()-originx
					bones[i+o].fromy# = GetPointerY()-originy
					bones[i+o+2].tox# = GetPointerX()-originx
					bones[i+o+2].toy# = GetPointerY()-originy

				endif

				if o=1
					bones[i+o].fromx# = GetPointerX()-originx
					bones[i+o].fromy# = GetPointerY()-originy
					bones[i+o-1].tox# = GetPointerX()-originx
					bones[i+o-1].toy# = GetPointerY()-originy
	
				endif

				if o=2
					bones[i+o].fromx# = GetPointerX()-originx
					bones[i+o].fromy# = GetPointerY()-originy
					bones[i+o-1].tox# = GetPointerX()-originx
					bones[i+o-1].toy# = GetPointerY()-originy

				endif



				applytexture(cube,cubemesh, scale#)


			endif


		else
			DrawEllipse(originx+bones[i+o].fromx#-5,originy+bones[i+o].fromy#-5,5,5,MakeColor(255,255,255),MakeColor(255,255,255),1)
		endif
		next
		
		
	next
	
	
	
	SetObjectImage(cube,img,0)

	
*/
    
    
    Print( ScreenFPS() )
    Sync()
loop
 
 
function applytexture(objid, mesh, scale#)
	b=0
	for v=0 to GetMemblockInt(mesh,0)-1

	
		SetMeshMemblockVertexUV(mesh,v,bones[b].fromx#/scale#,bones[b].fromy#/scale#)

		if b<=textures.length-1 then inc b
		
		// for the moment just do once face and repeat all over
		
	next

	SetObjectMeshFromMemblock(objid,1,mesh)
endfunction
 
function LerpX(oldx#,newx#,time#)
     
    x# = oldx# + (newx# - oldx#) * time#
     
endfunction x#
 
function LerpY(oldy#,newy#,time#)
     
    y# = oldy# + (newy# - oldy#) * time#
     
endfunction y#


//px#, py# = pivot or static joint
//x1#, y1# - start joint
//x2#, y2# - end joint
// color - color of joint+


function addbone(x1#, y1#, x2# , y2#) 
// its the frst one so join it to its pivot
	vb as _vector
	
	vb.fromx# = x1#
	vb.fromy# = y1#
	
	vb.tox# = x2#
	vb.toy# = y2#
	
	
	bones.insert(vb)
endfunction


function addtexturecoords()
	vt as _texturevector



/*
Vector2[] uvs = {
			new Vector2(0, 0.66f),
			new Vector2(0.25f, 0.66f),
			new Vector2(0, 0.33f),
			new Vector2(0.25f, 0.33f),

			new Vector2(0.5f, 0.66f),
			new Vector2(0.5f, 0.33f),
			new Vector2(0.75f, 0.66f),
			new Vector2(0.75f, 0.33f),

			new Vector2(1, 0.66f),
			new Vector2(1, 0.33f),

			new Vector2(0.25f, 1),
			new Vector2(0.5f, 1),

			new Vector2(0.25f, 0),
			new Vector2(0.5f, 0),
};
*/




	vt.x# = 0.333333 : vt.y# = 0.333333 : textures.insert(vt)
	vt.x# = 0.666667 : vt.y# =  0.000000 : textures.insert(vt)
	vt.x# = 0.666667 : vt.y# = 0.333333 : textures.insert(vt)
	vt.x# = 0.333333 : vt.y# =  0.000000 : textures.insert(vt)
	vt.x# = 0.666667 : vt.y# =  0.000000 : textures.insert(vt)
	vt.x# = 0.333333 : vt.y# = 0.333333 : textures.insert(vt)
	vt.x# =  0.331333 : vt.y# =  1.000000 : textures.insert(vt)
	vt.x# = 0.000000 : vt.y# =  0.668667 : textures.insert(vt)
	vt.x# = 0.331333 : vt.y# =  0.668667 : textures.insert(vt)
	vt.x# = 0.000000 : vt.y# =  1.000000 : textures.insert(vt)
	vt.x# = 0.000000 : vt.y# =  0.668667 : textures.insert(vt)
	vt.x# =  0.331333 : vt.y# =  1.000000 : textures.insert(vt)
	vt.x# = 1.000000 : vt.y# =  0.333333 : textures.insert(vt)
	vt.x# = 0.666667 : vt.y# =  0.666667 : textures.insert(vt)
	vt.x# = 0.666667 : vt.y# = 0.333333 : textures.insert(vt)
	vt.x# = 1.000000 : vt.y# =  0.666667 : textures.insert(vt)
	vt.x# = 0.666667 : vt.y# =  0.666667 : textures.insert(vt)
	vt.x# = 1.000000 : vt.y# =  0.333333 : textures.insert(vt)
	vt.x# = 0.666667 : vt.y# =  0.666667 : textures.insert(vt)
	vt.x# = 0.333333 : vt.y# =  0.666667 : textures.insert(vt)
	vt.x# = 0.333333 : vt.y# = 0.333333 : textures.insert(vt)
	vt.x# = 0.666667 : vt.y# = 0.333333 : textures.insert(vt)
	vt.x# = 0.666667 : vt.y# =  0.666667 : textures.insert(vt)
	vt.x# = 0.333333 : vt.y# = 0.333333 : textures.insert(vt)
	vt.x# = 0.333333 : vt.y# =  1.000000 : textures.insert(vt)
	vt.x# = 0.666667 : vt.y# =  0.666667 : textures.insert(vt)
	vt.x# = 0.666667 : vt.y# =  1.000000 : textures.insert(vt)
	vt.x# = 0.333333 : vt.y# =  1.000000 : textures.insert(vt)
	vt.x# = 0.333333 : vt.y# =  0.666667 : textures.insert(vt)
	vt.x# = 0.666667 : vt.y# =  0.666667 : textures.insert(vt)
	vt.x# = 0.333333 : vt.y# = 0.333333 : textures.insert(vt)
	vt.x# = 0.333333 : vt.y# =  0.666667 : textures.insert(vt)
	vt.x# = 0.000000 : vt.y# =  0.666667 : textures.insert(vt)
	vt.x# = 0.333333 : vt.y# = 0.333333 : textures.insert(vt)
	vt.x# = 0.000000 : vt.y# =  0.666667 : textures.insert(vt)
	vt.x# = 0.000000 : vt.y# = 0.333333 : textures.insert(vt)


/*
1	vt.x# = 0.666667 : vt.y# = 0.333333 : textures.insert(vt)
2	vt.x# = 0.333333 : vt.y# = 0.333333 : textures.insert(vt)
3	vt.x# = 0.000000 : vt.y# = 0.333333 : textures.insert(vt)
4	vt.x# =  0.331333 : vt.y# =  1.000000 : textures.insert(vt)
5	vt.x# = 0.331333 : vt.y# =  0.668667 : textures.insert(vt)
6	vt.x# = 0.000000 : vt.y# =  0.668667 : textures.insert(vt)
7	vt.x# = 0.666667 : vt.y# =  0.666667 : textures.insert(vt)
8	vt.x# = 0.333333 : vt.y# =  0.666667 : textures.insert(vt)
9	vt.x# = 0.000000 : vt.y# =  1.000000 : textures.insert(vt)
10	vt.x# = 0.333333 : vt.y# =  0.000000 : textures.insert(vt)
11	vt.x# = 0.666667 : vt.y# =  0.000000 : textures.insert(vt)
12	vt.x# = 1.000000 : vt.y# =  0.333333 : textures.insert(vt)
13	vt.x# = 0.666667 : vt.y# =  1.000000 : textures.insert(vt)
14	vt.x# = 1.000000 : vt.y# =  0.666667 : textures.insert(vt)
15	vt.x# = 0.000000 : vt.y# =  0.666667 : textures.insert(vt)
16	vt.x# = 0.333333 : vt.y# =  1.000000 : textures.insert(vt)


face data
g Default
s 1
usemtl Cube
f 2/2/2 6/11/6 5/1/5
f 3/10/3 6/11/6 2/2/2
f 6/4/6 4/6/4 8/5/8
f 3/9/3 4/6/4 6/4/6
f 6/12/6 7/7/7 5/1/5
f 8/14/8 7/7/7 6/12/6
f 7/7/7 1/8/1 2/2/2
f 5/1/5 7/7/7 2/2/2
f 4/16/4 7/7/7 8/13/8
f 4/16/4 1/8/1 7/7/7
f 2/2/2 1/8/1 4/15/4
f 2/2/2 4/15/4 3/3/3


*/

endfunction



function AGM_loadobject(file$)
	model as _modelinfo
	verts as _3DVector
	texts as _UVVector
	
	fr = OpenToRead(file$)
	
	groupnumber=0
	
	
	
	while not FileEOF(fr)
//		currentcolor=MakeColor(255,255,255)
		line$=ReadLine(fr)
		if (mid(line$,1,6)="mtllib") 
			// load in a material file
			mat$ = mid(line$,8,len(line$))
			
		endif
		
		
		if (mid(line$,1,2)="g " )
			// found a group so next find the vertices/normals/textures for this group
			model.name$=line$
			objects.insert(model)
		endif
		if (mid(line$,1,2)="v ")
				
			line$=mid(line$,3,len(line$))
			verts.x# = ValFloat(GetStringToken(line$," ",1))
			verts.y# = ValFloat(GetStringToken(line$," ",2))
			verts.z# = ValFloat(GetStringToken(line$," ",3))
			objects[groupnumber].vertices.insert(verts)

			
		endif

		if (mid(line$,1,3)="vn ")
				
			line$=mid(line$,4,len(line$))
			verts.x# = ValFloat(GetStringToken(line$," ",1))
			verts.y# = ValFloat(GetStringToken(line$," ",2))
			verts.z# = ValFloat(GetStringToken(line$," ",3))
			objects[groupnumber].normals.insert(verts)

			
		endif


		if (mid(line$,1,3)="vt ")
				
			line$=mid(line$,4,len(line$))
			texts.U# = ValFloat(GetStringToken(line$," ",1))
			texts.V# = ValFloat(GetStringToken(line$," ",2))
			objects[groupnumber].Textures.insert(texts)
		endif

		if (mid(line$,1,7)="usemtl ")
			line$=mid(line$,7,len(line$))
				
			// read the material file to find the corresponding line in the MTL file
			matf = OpenToRead(mat$)
			found=0
			
			while not FileEOF(matf) or found<>2
// KA - Ambient
// KD - Diffuse
// KS - Specular
			
				matline$=ReadLine(matf)
				
				if matline$ = "newmtl"+line$

					found=1
				endif
				if found=1 and mid(matline$,1,2)="Kd"
					matline$=mid(matline$,3,len(matline$))
					print(matline$)
					red# = ValFloat(GetStringToken(matline$," ",1)) * 255.0
					green# = ValFloat(GetStringToken(matline$," ",2)) * 255.0
					blue# = ValFloat(GetStringToken(matline$," ",3))  * 255.0
					currentcolor=MakeColor(red#,green#,blue#)
					found=2
					
				endif
				
				
			endwhile
			
			CloseFile(matf)
			
		endif


		if (mid(line$,1,2)="f ")
			line$=mid(line$,3,len(line$))
			for c=1 to 3
				vertice$=GetStringToken(line$," ",c)
				vertindex = val(GetStringToken(vertice$,"/",1))-1
				textindex = val(GetStringToken(vertice$,"/",2))-1
				normindex = val(GetStringToken(vertice$,"/",3))-1
			
				AddVertex(MeshID, objects[groupnumber].vertices[vertindex].x#,objects[groupnumber].vertices[vertindex].y#,objects[groupnumber].vertices[vertindex].z#, objects[0].normals[normindex].x#, objects[0].normals[normindex].y#, objects[0].normals[normindex].z#, objects[groupnumber].Textures[textindex].U#, objects[groupnumber].Textures[textindex].V#, currentcolor)
				
			next
			
		
		endif
		

	endwhile

	obj = CreateObjectFromMeshWithUVTexturingandColor(meshid,LoadImage("texture.png"))
	meshid.VertexList.length=-1
	meshid.TriangleList.length=-1
	
	CloseFile(fr)
endfunction obj


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 CreateObjectFromMeshWithUVTexturingandColor(m ref as mesh, texture)
    DeleteMemblock(memblock)
    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
    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 debug(str$)

print (str$)
sync()
sleep(3000)
endfunction

Function CreateObjectFromMeshWithUVTexturingandColor(m ref as mesh, diffuse,ambient,specular)
    DeleteMemblock(memblock)
    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
      
    DeleteObject(id)
    id = CreateObjectFromMeshMemblock(memblock)
    
    SetObjectImage(id,diffuse,0)

        meshmemory = memblock
endfunction id

vt -8.692155E-07 19.68504 
vt -8.692155E-07 36.61417 
vt 2.511811 19.68504 
vt 2.511811 39.37008 
vt -36.85827 39.37008 
vt -34.34646 36.61417 
vt -36.85827 19.68504 
vt -34.34646 19.68504 
vt -1.255906 19.68504 
vt -33.09055 19.68504 
vt -1.255906 35.35827 
vt -33.09055 35.35827 
vt 36.85827 19.68504 
vt 34.34646 19.68504 
vt 36.85827 39.37008 
vt 34.34646 36.61417 
vt 8.713964E-07 36.61417 
vt -2.511811 39.37008 
vt -2.511811 19.68504 
vt 8.713965E-07 19.68504 
vt 1.255906 19.68504 
vt 1.255906 35.35827 
vt 33.09055 19.68504 
vt 33.09055 35.35827 
vt 1.574803 39.37008 
vt 1.574803 19.68504 
vt 0 39.37008 
vt 0 19.68504 
vt -2.511811 -1.574803 
vt -2.511811 0 
vt 36.85827 -1.574803 
vt 36.85827 0 
vt 2.511811 -3.327876E-22 
vt 2.511811 -1.574803 
vt -8.692155E-07 -3.327876E-22 
vt -36.85827 -1.574803 
vt -1.255906 -3.327876E-22 
vt -33.09055 -3.327876E-22 
vt -34.34646 -3.327876E-22 
vt -36.85827 -3.327876E-22 
vt -1.574803 19.68504 
vt -1.574803 39.37008 
vt -2.511811 11.17323 
vt -2.511811 12.74803 
vt 36.85827 11.17323 
vt 36.85827 12.74803 
vt -11.17323 39.37008 
vt -11.17323 19.68504 
vt -12.74803 39.37008 
vt -12.74803 19.68504 

// Project: morph2d 
// Created: 2018-12-22
 
// show all errors
SetErrorMode(2)
 
#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0
 
// set window properties
SetWindowTitle( "morphbones" )
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 map_kd_image
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 _3DVector
	x#
	y#
	z#
	color
endtype
type _UVVector
	U#
	V#
endtype

type _FaceVector
	vindex
	tindex
	nindex
endtype

type _modelinfo
	name$ as string
	vertices as _3DVector[]
	normals as _3DVector[]
	Textures as _UVVector[]
	Faces as _FaceVector
endtype
global objects as _modelinfo[]

 
type _texturevector
	x#
	y#
endtype


type _vector
	fromx#
	fromy#
	tox#
	toy#
	color
	time#
	dectime
endtype
global bones as _vector[]

global textures as _texturevector[]


cube=AGM_LoadObject("cube.obj") 

SetObjectScale(cube,5,5,5)

SetObjectPosition(cube,0,-5,0)
vertsamount=textures.length-2

SetSkyBoxVisible(1)
SetSkyBoxSunColor(0,0,255)
SetSunActive(1)
SetSunColor(0,0,255)

do
	RotateObjectLocalY(cube,.1)
    
    Print( ScreenFPS() )
    Sync()
loop
 
function AGM_loadobject(file$)
	model as _modelinfo
	verts as _3DVector
	texts as _UVVector
	
	fr = OpenToRead(file$)
	
	groupnumber=0
	
			model.name$=line$
			objects.insert(model)
	
	
	while not FileEOF(fr)
//		currentcolor=MakeColor(255,255,255)
		line$=ReadLine(fr)
		if (mid(line$,1,6)="mtllib") 
			// load in a material file
			mat$ = mid(line$,8,len(line$))
			
		endif
		
		
		if (mid(line$,1,2)="g " )
			// found a group so next find the vertices/normals/textures for this group
		endif
		if (mid(line$,1,2)="v ")
				
			line$=mid(line$,3,len(line$))
			verts.x# = ValFloat(GetStringToken(line$," ",1))
			verts.y# = ValFloat(GetStringToken(line$," ",2))
			verts.z# = ValFloat(GetStringToken(line$," ",3))
			objects[groupnumber].vertices.insert(verts)

			
		endif

		if (mid(line$,1,3)="vn ")
				
			line$=mid(line$,4,len(line$))
			verts.x# = ValFloat(GetStringToken(line$," ",1))
			verts.y# = ValFloat(GetStringToken(line$," ",2))-1
			verts.z# = ValFloat(GetStringToken(line$," ",3))
			objects[groupnumber].normals.insert(verts)

			
		endif


		if (mid(line$,1,3)="vt ")
				
			line$=mid(line$,4,len(line$))
			texts.U# = ValFloat(GetStringToken(line$," ",1))
			texts.V# = ValFloat(GetStringToken(line$," ",2))
			objects[groupnumber].Textures.insert(texts)
		endif

		if (mid(line$,1,7)="usemtl ")
			line$=mid(line$,7,len(line$))
			// read the material file to find the corresponding line in the MTL file
			matf = OpenToRead(mat$)
			found=0
			while not FileEOF(matf) or found<>1 
// KA - Ambient
// KD - Diffuse
// KS - Specular
			
				matline$=ReadLine(matf)
				
				if matline$ = "newmtl"+line$
					repeat
						
						matline$=ReadLine(matf)
				
						if  mid(matline$,1,2)="Kd"
							matline$=mid(matline$,3,len(matline$))
							red# = ValFloat(GetStringToken(matline$," ",1)) * 255.0
							green# = ValFloat(GetStringToken(matline$," ",2)) * 255.0
							blue# = ValFloat(GetStringToken(matline$," ",3))  * 255.0
							currentcolor=MakeColor(red#,green#,blue#)
					
						endif
						if  mid(matline$,1,7)="map_Kd "
					
							matline$=mid(matline$,8,len(matline$)-1)
							matline$=ReplaceString(matline$,"/","\",1)
							matline$="\media\" + matline$
							map_kd_image = LoadImage(mid(matline$,1,len(matline$)-1))
//							map_kd_image=0
							currentcolor=MakeColor(255,255,255)
							
						endif

						if  mid(matline$,1,7)="map_Ka "
					
							matline$=mid(matline$,8,len(matline$)-1)
							matline$=ReplaceString(matline$,"/","\",1)
							matline$="\media\" + matline$
							map_ka_image = LoadImage(mid(matline$,1,len(matline$)-1))
	//						map_kd_image=0
	
						endif

						if  mid(matline$,1,7)="map_Ks "
					
							matline$=mid(matline$,8,len(matline$)-1)
							matline$=ReplaceString(matline$,"/","\",1)
							matline$="\media\" + matline$
							map_ks_image = LoadImage(mid(matline$,1,len(matline$)-1))
						endif


					until matline$=""

					found=1
				endif
				
			endwhile
			
			CloseFile(matf)


			
		endif

// load the faces data normally straight after the usemtl
			if (mid(line$,1,2)="f ")
				line$=mid(line$,3,len(line$))
				if GetStringToken(line$," ",4)<>"" 
					// this is a polygon structure	
					polys_vert as integer[4]
					polys_text as integer[4]
					polys_normals as integer[4]

					for c=1 to 4
						vertice$=GetStringToken(line$," ",c)
						polys_vert[c] = val(GetStringToken(vertice$,"/",1))-1
						polys_text[c] = val(GetStringToken(vertice$,"/",2))-1
						polys_normals[c] = val(GetStringToken(vertice$,"/",3))-1
					next
					
						if normindex<0 
							normindex=textindex
							AddVertex(MeshID, objects[groupnumber].vertices[vertindex].x#,objects[groupnumber].vertices[vertindex].y#,objects[groupnumber].vertices[vertindex].z#, objects[0].normals[normindex].x#, objects[0].normals[normindex].y#, objects[0].normals[normindex].z#, objects[groupnumber].Textures[textindex].U#, objects[groupnumber].Textures[textindex].V#, currentcolor)
						else
							AddVertex(MeshID, objects[0].vertices[polys_vert[1]].x#,objects[0].vertices[polys_vert[1]].y#,objects[0].vertices[polys_vert[1]].z#, objects[0].normals[polys_normals[1]].x#, objects[0].normals[polys_normals[1]].y#, objects[0].normals[polys_normals[1]].z#, objects[groupnumber].Textures[polys_text[1]].U#, objects[groupnumber].Textures[polys_text[1]].V#, currentcolor)
							AddVertex(MeshID, objects[0].vertices[polys_vert[3]].x#,objects[0].vertices[polys_vert[3]].y#,objects[0].vertices[polys_vert[3]].z#, objects[0].normals[polys_normals[3]].x#, objects[0].normals[polys_normals[3]].y#, objects[0].normals[polys_normals[3]].z#, objects[groupnumber].Textures[polys_text[3]].U#, objects[groupnumber].Textures[polys_text[3]].V#, currentcolor)
							AddVertex(MeshID, objects[0].vertices[polys_vert[2]].x#,objects[0].vertices[polys_vert[2]].y#,objects[0].vertices[polys_vert[2]].z#, objects[0].normals[polys_normals[2]].x#, objects[0].normals[polys_normals[2]].y#, objects[0].normals[polys_normals[2]].z#, objects[groupnumber].Textures[polys_text[2]].U#, objects[groupnumber].Textures[polys_text[2]].V#, currentcolor)

							AddVertex(MeshID, objects[0].vertices[polys_vert[3]].x#,objects[0].vertices[polys_vert[3]].y#,objects[0].vertices[polys_vert[3]].z#, objects[0].normals[polys_normals[3]].x#, objects[0].normals[polys_normals[3]].y#, objects[0].normals[polys_normals[3]].z#, objects[groupnumber].Textures[polys_text[3]].U#, objects[groupnumber].Textures[polys_text[3]].V#, currentcolor)
							AddVertex(MeshID, objects[0].vertices[polys_vert[1]].x#,objects[0].vertices[polys_vert[1]].y#,objects[0].vertices[polys_vert[1]].z#, objects[0].normals[polys_normals[1]].x#, objects[0].normals[polys_normals[1]].y#, objects[0].normals[polys_normals[1]].z#, objects[groupnumber].Textures[polys_text[1]].U#, objects[groupnumber].Textures[polys_text[1]].V#, currentcolor)
							AddVertex(MeshID, objects[0].vertices[polys_vert[4]].x#,objects[0].vertices[polys_vert[4]].y#,objects[0].vertices[polys_vert[4]].z#, objects[0].normals[polys_normals[4]].x#, objects[0].normals[polys_normals[4]].y#, objects[0].normals[polys_normals[4]].z#, objects[groupnumber].Textures[polys_text[4]].U#, objects[groupnumber].Textures[polys_text[4]].V#, currentcolor)

							//AddVertex(MeshID, objects[0].vertices[vertindex].x#,objects[0].vertices[vertindex].y#,objects[0].vertices[vertindex].z#, objects[0].normals[normindex].x#, objects[0].normals[normindex].y#, objects[0].normals[normindex].z#, objects[groupnumber].Textures[textindex].U#, objects[groupnumber].Textures[textindex].V#, currentcolor)
						endif
				else
					// triangle structure
					for c=1 to 3
						vertice$=GetStringToken(line$," ",c)
						vertindex = val(GetStringToken(vertice$,"/",1))-1
						textindex = val(GetStringToken(vertice$,"/",2))-1
						normindex = val(GetStringToken(vertice$,"/",3))-1
						if normindex<0 
							normindex=textindex
							AddVertex(MeshID, objects[groupnumber].vertices[vertindex].x#,objects[groupnumber].vertices[vertindex].y#,objects[groupnumber].vertices[vertindex].z#, objects[0].normals[normindex].x#, objects[0].normals[normindex].y#, objects[0].normals[normindex].z#, objects[groupnumber].Textures[textindex].U#, objects[groupnumber].Textures[textindex].V#, currentcolor)
						else
							AddVertex(MeshID, objects[0].vertices[vertindex].x#,objects[0].vertices[vertindex].y#,objects[0].vertices[vertindex].z#, objects[0].normals[normindex].x#, objects[0].normals[normindex].y#, objects[0].normals[normindex].z#, objects[groupnumber].Textures[textindex].U#, objects[groupnumber].Textures[textindex].V#, currentcolor)
						endif
					next
				endif
			endif

		

	endwhile

	obj = CreateObjectFromMeshWithUVTexturingandColor(meshid,map_kd_image,map_ka_image,map_ks_image)
	SetObjectColor(obj,255,255,255,255)
	//setObjectColorEmissive(obj,100,100,100)
	meshid.VertexList.length=-1
	meshid.TriangleList.length=-1
	
	CloseFile(fr)
endfunction obj


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 CreateObjectFromMeshWithUVTexturingandColor(m ref as mesh, diffuse,ambient,specular)
    DeleteMemblock(memblock)
    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
      
    DeleteObject(id)
    id = CreateObjectFromMeshMemblock(memblock)
    
    // diffuse
    SetObjectImage(id,diffuse,0)
	// normal / ambient
//	SetObjectImage(id,ambient,1)
	// specular
//	SetObjectImage(id,specular,2)
	
	

    
  
//    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 debug(str$)

print (str$)
sync()
sleep(3000)
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

mtllib cube.mtl
g Cube
v 1.000000 -1.000000 -1.000000
v 1.000000 -1.000000 1.000000
v -1.000000 -1.000000 1.000000
v -1.000000 -1.000000 -1.000000
v 1.000000 1.000000 -0.999999
v 0.999999 1.000000 1.000001
v -1.000000 1.000000 1.000000
v -1.000000 1.000000 -1.000000
vn 0.0000 -1.0000 0.0000
vn 0.0000 1.0000 0.0000
vn 1.0000 0.0000 0.0000
vn -0.0000 -0.0000 1.0000
vn -1.0000 -0.0000 -0.0000
vn 0.0000 0.0000 -1.0000

vt 1 0
vt 1 1
vt 0 1
vt 0 0
vt 0 1
vt 1 1

usemtl Material
s off
usemtl white
f 1/1/1 2/2/1 3/3/1 4/4/1

usemtl blue
f 5/1/2 8/2/2 7/3/2 6/4/2

usemtl green
f 1/1/3 5/2/3 6/3/3 2/4/3

usemtl white
f 2/1/4 6/2/4 7/3/4 3/4/4
f 3/1/5 7/2/5 8/3/5 4/4/5

usemtl red
f 5/1/6 1/2/6 4/3/6 8/4/6

# Blender MTL File: 'None'
# Material Count: 1

newmtl Material
Ka 1.000000 1.000000 1.000000
Kd 1 0 1
Ks 0.500000 0.500000 0.500000
map_Kd checkers.png 

newmtl red
Kd 1 0 0 

newmtl green
Kd 0 1 0 

newmtl blue
Kd 0 0 1 

newmtl white
Kd 1 1 1