Sorry your browser is not supported!

	//Load images and editor sprites
	Asset.TileMap.Length = TotalTiles
	for i = 1 to TotalTiles
		Asset.TileMap[i].ImageID = LoadSubImage(TileImageID, "img"+str(i))
		//==========
		//IMGload = LoadSubImage(TileImageID, "img"+str(i))
		//Asset.TileMap[i].ImageID = CopyImage(IMGload,0,0,GetImageWidth(IMGload),GetImageHeight(IMGload))
		//DeleteImage(IMGload)
		//==========
		Asset.TileMap[i].ToolBoxIndex = i
		Asset.TileMap[i].ToolBoxSprite = CreateSprite(Asset.TileMap[i].ImageID)
		SetSpriteVisible(Asset.TileMap[i].ToolBoxSprite,0)
		SetSpriteSize(Asset.TileMap[i].ToolBoxSprite,64,64)
		SetSpriteDepth(Asset.TileMap[i].ToolBoxSprite,0)
		FixSpriteToScreen(Asset.TileMap[i].ToolBoxSprite,1)
	next

Function Draw_TileMap_Pen()
	
	//When Viewport is moused over and left mouse is held
	If Input.LeftMouseState = 1
		
		//Check if tile already exists in draw space
		for i = 0 to DrawSpace.TileMap.Length 
			If DrawSpace.TileMap[i].GridX = GetRawMouseGridX() and DrawSpace.TileMap[i].GridY = GetRawMouseGridY() and DrawSpace.TileMap[i].Layer = Editor.ActiveLayer
				If DrawSpace.TileMap[i].TileID = 0
					DataExists = 0
				Else
					DataExists = 1
					DataLocation = i
					Exit
				EndIf

			EndIf
		next i
		
		//Draw
		If DataExists = 0
			//Write meta data
			DrawSpace.TileMap.Length = DrawSpace.TileMap.Length + 1
			DrawSpace.TileMap[DrawSpace.TileMap.Length].GridX = GetRawMouseGridX()
			DrawSpace.TileMap[DrawSpace.TileMap.Length].GridY = GetRawMouseGridY()
			DrawSpace.TileMap[DrawSpace.TileMap.Length].Layer = Editor.ActiveLayer
			DrawSpace.TileMap[DrawSpace.TileMap.Length].Index = Editor.SelectedIndex
			
			//CreateSprite
			DrawX = DrawSpace.TileMap[DrawSpace.TileMap.Length].GridX * SYS_Properties.GridScale * SYS_Properties.GridSize
			DrawY = DrawSpace.TileMap[DrawSpace.TileMap.Length].GridY * SYS_Properties.GridScale * SYS_Properties.GridSize
			DrawSpace.TileMap[DrawSpace.TileMap.Length].TileID = CreateSprite(Asset.TileMap[Editor.SelectedIndex].ImageID)
			SetSpriteSize(DrawSpace.TileMap[DrawSpace.TileMap.Length].TileID , SYS_Properties.GridScale * SYS_Properties.GridSize , SYS_Properties.GridScale * SYS_Properties.GridSize)
			SetSpriteDepth(DrawSpace.TileMap[DrawSpace.TileMap.Length].TileID, 9901 - DrawSpace.TileMap[DrawSpace.TileMap.Length].Layer)
			SetSpritePosition(DrawSpace.TileMap[DrawSpace.TileMap.Length].TileID,DrawX,DrawY)
			SetSpriteUVBorder(DrawSpace.TileMap[DrawSpace.TileMap.Length].TileID,0)

		ElseIf DataExists = 1
			//Update meta data
			DrawSpace.TileMap[DataLocation].GridX = GetRawMouseGridX()
			DrawSpace.TileMap[DataLocation].GridY = GetRawMouseGridY()
			DrawSpace.TileMap[DataLocation].Layer = Editor.ActiveLayer
			DrawSpace.TileMap[DataLocation].Index = Editor.SelectedIndex
			
			SetSpriteImage(DrawSpace.TileMap[DataLocation].TileID, Asset.TileMap[Editor.SelectedIndex].ImageID)
			SetSpriteUVBorder(DrawSpace.TileMap[DataLocation].TileID,0)
		EndIf
	EndIf
	
EndFunction

Setvirtualresolution(640,480)
atlasMap=createTexture()
imga=loadimage("subimages.png")
dim images[3]
for num = 0 to 3
	images[num]=LoadSubImage(imga,"img"+str(num))
next num
for y = 0 to 19
	For x = 0 to 19
		spr=createSprite(images[random(1,4)-1])
		SetSpriteSize(spr,32,32)
		SetSpritePosition(spr,x*32,y*32)
	next x
next y		
Do

    sync()  
Loop

function createTexture()
file = OpenToWrite("subimages subimages.txt")
img=0
ClearScreen()
Render()
For width = 0 to 128 step 32
	color=MakeColor(Random(1,255),Random(1,255),Random(1,255))
	DrawBox(width,0,width+32,32,color,color,color,color,1)
    WriteLine(file,"img"+str(img)+":"+str(width)+":0:32:32")
    inc img
next width
Swap()
ID=getimage(0,0,width-32,32)
CloseFile(file)
SaveImage(ID,"subimages.png")
endfunction ID

Setvirtualresolution(640,480)
SetDefaultMagFilter(0)
SetDefaultMinFilter(0)
SetViewZoomMode(1)
SetWindowSize(640, 480, 0)
UseNewDefaultFonts(1)

Global AGK_GLOBALS as AGKGlobalType
Type AGKGlobalType
	PanVpMemMouseX as integer
	PanVpMemMouseY as integer
	PanVpMemOffsetX as integer
	PanVpMemOffsetY as integer
EndType

imga=loadimage("texture.png")
dim images[8]
for num = 0 to 8
	images[num]=LoadSubImage(imga,"img"+str(num))
next num
for y = 0 to 19
	For x = 0 to 19
		spr=createSprite(images[4])
		SetSpriteSize(spr,16*4,16*4)
		SetSpritePosition(spr,x*16*4,y*16*4)
		SetSpriteUVBorder(spr,0)
	next x
next y		

Do
	ZoomViewport(0.25)
	PanViewport(1)
	print("Zoom: " + str(GetViewZoom()))
    sync()  
Loop

Function ZoomViewport(Rate#)
	//Must set mode before use
	If GetRawMouseWheelDelta() > 0 And GetViewZoom() <> 10
		SetViewZoom(GetViewZoom() + Rate#)
	Elseif GetRawMouseWheelDelta() < 0 And GetViewZoom() <> 0.25
		SetViewZoom(GetViewZoom() - Rate#)
	EndIf
	If GetViewZoom() < 0.1 And GetViewZoom() > -0.1 Then SetViewZoom(1)
EndFunction

Function PanViewport(Speed#)
	
	//Get previous position of mouse and offset
	If GetRawMouseRightPressed() = 1
		AGK_GLOBALS.PanVpMemOffsetX = GetViewOffsetX()
		AGK_GLOBALS.PanVpMemOffsetY = GetViewOffsetY()
		AGK_GLOBALS.PanVpMemMouseX = ScreentoWorldX(getRawMouseX())
		AGK_GLOBALS.PanVpMemMouseY = ScreentoWorldY(getRawMouseY())
	EndIf

	//Pan Viewport
	If GetRawMouseRightState() = 1
		If AGK_GLOBALS.PanVpMemMouseX <> ScreentoWorldX(getRawMouseX()) Then OffsetX = AGK_GLOBALS.PanVpMemMouseX - ScreentoWorldX(getRawMouseX())
		If AGK_GLOBALS.PanVpMemMouseY <> ScreentoWorldY(getRawMouseY()) Then OffsetY = AGK_GLOBALS.PanVpMemMouseY - ScreentoWorldY(getRawMouseY())
		SetViewOffset(GetViewOffsetX() + OffsetX,GetViewOffsetY() + OffsetY)
	EndIf

EndFunction