Mojo2 is out! [MONKEYNEWS]

	Function LoadFrames:Image[] (path:String, numFrames:Int, cellWidth:Int, cellHeight:Int, padded:Bool = False, xhandle:Float = 0.5, yhandle:Float = 0.5, flags:Int = Image.Filter | Image.Mipmap, shader:Shader = Null)
	
		Local material:=.Material.Load( path,flags|Texture.ClampST,shader )
		If Not material Return[]
		
		If cellWidth * cellHeight * numFrames > material.Width * material.Height Return[]
		
		Local frames:= New Image[numFrames]
		
		If cellHeight = material.Height
			Local x:=0,width:=cellWidth
			If padded x += 1; width -= 2
			
			For Local i:=0 Until numFrames
				frames[i] = New Image(material, i * cellWidth + x, 0, width, cellHeight, xhandle, yhandle)
			Next
		Else
			Local x:= 0, width:= cellWidth, y:= 0, height:= cellHeight
			Local columns:= material.Width / width
			If padded
				x += 1
				y += 1
				width -= 2
				height -= 2
			End If
			
			For Local i:=0 Until numFrames
				Local fx:Int = i Mod columns * cellWidth
				Local fy:Int = i / columns * cellHeight
				frames[i] = New Image(material, fx + x, fy + y, width, height, xhandle, yhandle)
			Next
		EndIf
		
		Return frames
		
	End

canvas.DrawRect(0, 0, 100, 100)

'I use
canvas.DrawImage(img, 0, 0)

canvas.Flush()

Method OnRender()
		
		Local start = Millisecs()
		'render to image...
		For Local x:=0 Until 16
			For Local y:=0 Until 16
				If (x~y)&1
					icanvas.SetColor Sin( Millisecs*.1 )*.5+.5,Cos( Millisecs*.1 )*.5+.5,.5
				Else
					icanvas.SetColor 1,1,0
				Endif
				icanvas.DrawRect x*16,y*16,16,16 '<<<<< replacing this with DrawImage
			Next
		Next
		icanvas.Flush
		Print Millisecs() -start
		
		'render to main canvas...
		canvas.Clear
		canvas.DrawImage image,MouseX,MouseY
		canvas.Flush
	End

Method OnCreate()
   ...
   Local image:=LoadImage(...)
   canvas.DrawImage image...
End

Method OnCreate()
   ...
   image=LoadImage(...)
End

Method OnUpdate()   'or OnRender
   If image.Loading Return
   ...safe to use image now...
   canvas.DrawImage image...
End

#GLFW_USE_MINGW=True

#GLFW_WINDOW_TITLE="Monkey Game"
#GLFW_WINDOW_WIDTH=640
#GLFW_WINDOW_HEIGHT=480
#GLFW_WINDOW_SAMPLES=0
#GLFW_WINDOW_RESIZABLE=False
#GLFW_WINDOW_DECORATED=True
#GLFW_WINDOW_FLOATING=False
#GLFW_WINDOW_FULLSCREEN=False

#GLFW_SWAP_INTERVAL=-1

#OPENGL_GLES20_ENABLED=False
#OPENGL_DEPTH_BUFFER_ENABLED=False

#MOJO_AUTO_SUSPEND_ENABLED=True
#MOJO_IMAGE_FILTERING_ENABLED=True

#TEXT_FILES="*.txt|*.xml|*.json|*.glsl"
#IMAGE_FILES="*.png|*.jpg"
#SOUND_FILES="*.wav|*.ogg"
#MUSIC_FILES="*.wav|*.ogg"
#BINARY_FILES="*.bin|*.dat"

TEXT_FILES="*.txt|*.xml|*.json|*.glsl"

'From this
#GLFW_WINDOW_WIDTH=640
#GLFW_WINDOW_HEIGHT=480

'To this

#GLFW_WINDOW_WIDTH=1280
#GLFW_WINDOW_HEIGHT=720

#GLFW_WINDOW_WIDTH=
#GLFW_WINDOW_HEIGHT=

#GLFW_WINDOW_RESIZABLE=True
#GLFW_WINDOW_RENDER_WHILE_RESIZING=True

	
	Method DrawPrimitives:Void(order:Int, vertices:Float[], texcoords:Float[], image:Image)
		Local material:= image._material
		Local count:=vertices.Length/2/order
		If count<1 Or count*order>MAX_VERTICES Return
		
		Local p:=0
		For Local i:=0 Until count
			BeginPrim material,order
			For Local j:=0 Until order
				PrimVert vertices[p], vertices[p + 1], texcoords[p]/image._width, texcoords[p + 1]/image._height
				p+=2
			Next
		Next
	End

	canvas.SetAlpha 0.25
	canvas.RenderDrawListEx drawList,MouseX,MouseY,Millisecs*.01
	canvas.SetAlpha 1
	canvas.RenderDrawListEx drawList,MouseX,MouseY,Millisecs*.02

In src/trans/builders directory
	glfw.monkey modifications in GCC section:
		Delete
			Local ccpots:=""
	Replace with:
		Local OPTS:="",LIBS:=""
		Local cc_opts:=GetConfigVar( "CC_OPTS" )
		If cc_opts OPTS+=" "+cc_opts.Replace( ";"," " )			
		Local cc_libs:=GetConfigVar( "CC_LIBS" )
		If cc_libs LIBS+=" "+cc_libs.Replace( ";"," " )
	Change:
		ccopts+=" -O0"
		ccopts+=" -O3 -DNDEBUG"
		Execute cmd+" CCOPTS=~q"+ccopts+"~q OUT=~q"+casedConfig+"/MonkeyGame~q"
	To:
		OPTS+=" -O0"
		OPTS+=" -O3 -DNDEBUG"
		Execute cmd+" CCOPTS=~q"+OPTS+"~q CCLIBS=~q"+LIBS+"~q OUT=~q"+casedConfig+"/MonkeyGame~q"
In targets/glfw/gcc_linux/Makefile and targets/glfw3/gcc_linux/Makefile
	Append $(CCLIBS) to LDLIBS. Note that this must be placed last. Libaries need to be linked in the correct order

image[0] = Image.Load(url+".png",0,0)
If image[0] = Null image[0] = Image.Load(url+"_0.png",0,0)

Method OnUpdate()
'NUM_LIGHTS changed to a global

	If KeyHit(KEY_A)=True
		NUM_LIGHTS=NUM_LIGHTS+1
		Self.lights=New MyLight[NUM_LIGHTS]
		For Local iz:Int=0 To NUM_LIGHTS-1
			lights[iz]=New MyLight
		Next
		Print NUM_LIGHTS
	Endif	
End Method

Class Test
Field _renderer:Renderer
End Class

Class Test
Field _renderer:Renderer=New Renderer
End Class