axmol/cocos2dx/tileMap_parallax_nodes/CCTMXLayer.cpp

/****************************************************************************
Copyright (c) 2010 cocos2d-x.org

http://www.cocos2d-x.org

Permission is hereby granted, free of charge, to any person obtaining a copy
of this software and associated documentation files (the "Software"), to deal
in the Software without restriction, including without limitation the rights
to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
copies of the Software, and to permit persons to whom the Software is
furnished to do so, subject to the following conditions:

The above copyright notice and this permission notice shall be included in
all copies or substantial portions of the Software.

THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
THE SOFTWARE.
****************************************************************************/
#include "CCTMXLayer.h"
#include "CCTMXXMLParser.h"
#include "CCTMXTiledMap.h"
#include "CCSprite.h"
#include "CCTextureCache.h"
#include "CGPointExtension.h"

namespace cocos2d {


	// CCTMXLayer - init & alloc & dealloc
	CCTMXLayer * CCTMXLayer::layerWithTilesetInfo(CCTMXTilesetInfo *tilesetInfo, CCTMXLayerInfo *layerInfo, CCTMXMapInfo *mapInfo)
	{
		CCTMXLayer *pRet = new CCTMXLayer();
		if (pRet->initWithTilesetInfo(tilesetInfo, layerInfo, mapInfo))
		{
			pRet->autorelease();
			return pRet;
		}
		return NULL;
	}
	bool CCTMXLayer::initWithTilesetInfo(CCTMXTilesetInfo *tilesetInfo, CCTMXLayerInfo *layerInfo, CCTMXMapInfo *mapInfo)
	{	
		// XXX: is 35% a good estimate ?
		CGSize size = layerInfo->m_tLayerSize;
		float totalNumberOfTiles = size.width * size.height;
		float capacity = totalNumberOfTiles * 0.35f + 1; // 35 percent is occupied ?

		CCTexture2D *texture = NULL;
		if( tilesetInfo )
		{
			texture = CCTextureCache::sharedTextureCache()->addImage(tilesetInfo->m_sSourceImage.c_str());
		}

		if (__super::initWithTexture(texture, (unsigned int)capacity))
		{
			// layerInfo
			m_sLayerName = layerInfo->m_sName;
			m_tLayerSize = layerInfo->m_tLayerSize;
			m_pTiles = layerInfo->m_pTiles;
			m_uMinGID = layerInfo->m_uMinGID;
			m_uMaxGID = layerInfo->m_uMaxGID;
			m_cOpacity = layerInfo->m_cOpacity;
			if (!layerInfo->m_pProperties && layerInfo->m_pProperties->size()>0)
			{
				StringToStringDictionary::iterator it;
				for (it = layerInfo->m_pProperties->begin(); it != layerInfo->m_pProperties->end(); ++it)
				{
					m_pProperties->insert(*it);
				}
			}

			// tilesetInfo
			m_pTileSet = tilesetInfo;

			// mapInfo
			m_tMapTileSize = mapInfo->getTileSize();
			m_nLayerOrientation = mapInfo->getOrientation();

			// offset (after layer orientation is set);
			CGPoint offset = this->calculateLayerOffset(layerInfo->m_tOffset);
			this->setPosition(offset);

			m_pAtlasIndexArray = ccCArrayNew((unsigned int)totalNumberOfTiles);

			this->setContentSize(CGSizeMake(m_tLayerSize.width * m_tMapTileSize.width, m_tLayerSize.height * m_tMapTileSize.height));

			m_bUseAutomaticVertexZ = false;
			m_nVertexZvalue = 0;
			m_fAlphaFuncValue = 0;
			return true;
		}
		return false;
	}
	CCTMXLayer::CCTMXLayer()
		:m_pTiles(NULL)
		,m_pTileSet(NULL)
		,m_pProperties(NULL)
		,m_pReusedTile(NULL)
		,m_pAtlasIndexArray(NULL)
	{}
	CCTMXLayer::~CCTMXLayer()
	{
		CCX_SAFE_RELEASE(m_pTileSet);
		CCX_SAFE_RELEASE(m_pReusedTile);
		if (m_pProperties)
		{
			m_pProperties->clear();
			delete m_pProperties;
		}

		if( m_pAtlasIndexArray )
		{
			ccCArrayFree(m_pAtlasIndexArray);
			m_pAtlasIndexArray = NULL;
		}

		if( m_pTiles )
		{
			delete [] m_pTiles;
			m_pTiles = NULL;
		}
	}
	void CCTMXLayer::releaseMap()
	{
		if( m_pTiles )
		{
			delete [] m_pTiles;
			m_pTiles = NULL;
		}

		if( m_pAtlasIndexArray )
		{
			ccCArrayFree(m_pAtlasIndexArray);
			m_pAtlasIndexArray = NULL;
		}
	}

	// CCTMXLayer - setup Tiles
	void CCTMXLayer::setupTiles()
	{	
		// Optimization: quick hack that sets the image size on the tileset
		m_pTileSet->m_tImageSize = m_pobTextureAtlas->getTexture()->getContentSize();

		// By default all the tiles are aliased
		// pros:
		//  - easier to render
		// cons:
		//  - difficult to scale / rotate / etc.
		m_pobTextureAtlas->getTexture()->setAliasTexParameters();

//		CFByteOrder o = CFByteOrderGetCurrent();

		// Parse cocos2d properties
		this->parseInternalProperties();

		for( unsigned int y=0; y < m_tLayerSize.height; y++ ) 
		{
			for( unsigned int x=0; x < m_tLayerSize.width; x++ ) 
			{
				unsigned int pos = x + (unsigned int)m_tLayerSize.width * y;
				unsigned int gid = m_pTiles[ pos ];

				// gid are stored in little endian.
				// if host is big endian, then swap
				//if( o == CFByteOrderBigEndian )
				//	gid = CFSwapInt32( gid );
				/* We support little endian.*/

				// XXX: gid == 0 --> empty tile
				if( gid != 0 ) 
				{
					this->appendTileForGID(gid, ccp((float)x, (float)y));

					// Optimization: update min and max GID rendered by the layer
					m_uMinGID = MIN(gid, m_uMinGID);
					m_uMaxGID = MAX(gid, m_uMaxGID);
				}
			}
		}

		NSAssert( m_uMaxGID >= m_pTileSet->m_uFirstGid &&
			m_uMinGID >= m_pTileSet->m_uFirstGid, "TMX: Only 1 tilset per layer is supported");	
	}

	// CCTMXLayer - Properties
	const char *CCTMXLayer::propertyNamed(const char *propertyName)
	{
		return valueForKey(propertyName, m_pProperties);
	}
	void CCTMXLayer::parseInternalProperties()
	{
		// if cc_vertex=automatic, then tiles will be rendered using vertexz

		std::string vertexz = propertyNamed("cc_vertexz");
		if( vertexz != "" )
		{
			if( vertexz == "automatic" )
			{
				m_bUseAutomaticVertexZ = true;
			}
			else
			{
				m_nVertexZvalue = atoi(vertexz.c_str());
			}
		}

		std::string alphaFuncVal = propertyNamed("cc_alpha_func");
		m_fAlphaFuncValue = (float)atof(alphaFuncVal.c_str());
	}

	// CCTMXLayer - obtaining tiles/gids
	CCSprite * CCTMXLayer::tileAt(CGPoint pos)
	{
		NSAssert( pos.x < m_tLayerSize.width && pos.y < m_tLayerSize.height && pos.x >=0 && pos.y >=0, "TMXLayer: invalid position");
		NSAssert( m_pTiles && m_pAtlasIndexArray, "TMXLayer: the tiles map has been released");

		CCSprite *tile = NULL;
		unsigned int gid = this->tileGIDAt(pos);

		// if GID == 0, then no tile is present
		if( gid ) 
		{
			int z = (int)(pos.x + pos.y * m_tLayerSize.width);
			tile = (CCSprite*) this->getChildByTag(z);

			// tile not created yet. create it
			if( ! tile ) 
			{
				CGRect rect = m_pTileSet->rectForGID(gid);
				tile = new CCSprite();
				tile->initWithSpriteSheet(this, rect);
				tile->setPosition(positionAt(pos));
				tile->setVertexZ((float)vertexZForPos(pos));
				tile->setAnchorPoint(CGPointZero);
				tile->setOpacity(m_cOpacity);

				unsigned int indexForZ = atlasIndexForExistantZ(z);
				this->addSpriteWithoutQuad(tile, indexForZ, z);
				tile->release();
			}
		}
		return tile;
	}
	unsigned int CCTMXLayer::tileGIDAt(CGPoint pos)
	{
		NSAssert( pos.x < m_tLayerSize.width && pos.y < m_tLayerSize.height && pos.x >=0 && pos.y >=0, "TMXLayer: invalid position");
		NSAssert( m_pTiles && m_pAtlasIndexArray, "TMXLayer: the tiles map has been released");

		int idx = (int)(pos.x + pos.y * m_tLayerSize.width);
		return m_pTiles[ idx ];
	}

	// CCTMXLayer - adding helper methods
	CCSprite * CCTMXLayer::insertTileForGID(unsigned int gid, CGPoint pos)
	{
		CGRect rect = m_pTileSet->rectForGID(gid);

		int z = (int)(pos.x + pos.y * m_tLayerSize.width);

		if( ! m_pReusedTile )
		{
			m_pReusedTile = new CCSprite();
			m_pReusedTile->initWithSpriteSheet(this, rect);
		}
		else
		{
			m_pReusedTile->initWithSpriteSheet(this, rect);
		}
		m_pReusedTile->setPosition(positionAt(pos));
		m_pReusedTile->setVertexZ((float)vertexZForPos(pos));
		m_pReusedTile->setAnchorPoint(CGPointZero);
		m_pReusedTile->setOpacity(m_cOpacity);

		// get atlas index
		unsigned int indexForZ = atlasIndexForNewZ(z);

		// Optimization: add the quad without adding a child
		this->addQuadFromSprite(m_pReusedTile, indexForZ);

		// insert it into the local atlasindex array
		ccCArrayInsertValueAtIndex(m_pAtlasIndexArray, (void*)z, indexForZ);

		// update possible children
		if (m_pChildren && m_pChildren->count()>0)
		{
			NSMutableArray<CCNode*>::NSMutableArrayIterator it;
			CCSprite *pSprite = NULL;
			for (it = m_pChildren->begin(); it != m_pChildren->end(); ++it)
			{
				pSprite = (CCSprite*)(*it);
				if (pSprite)
				{
					unsigned int ai = pSprite->getAtlasIndex();
					if ( ai >= indexForZ )
					{
						pSprite->setAtlasIndex(ai+1);
					}
				}
			}
		}
		m_pTiles[z] = gid;
		return m_pReusedTile;
	}
	CCSprite * CCTMXLayer::updateTileForGID(unsigned int gid, CGPoint pos)	
	{
		CGRect rect = m_pTileSet->rectForGID(gid);
		int z = (int)(pos.x + pos.y * m_tLayerSize.width);

		if( ! m_pReusedTile )
		{
			m_pReusedTile = new CCSprite();
			m_pReusedTile->initWithSpriteSheet(this, rect);
		}
		else
		{
			m_pReusedTile->initWithSpriteSheet(this, rect);
		}
		
		m_pReusedTile->setPosition(positionAt(pos));
		m_pReusedTile->setVertexZ((float)vertexZForPos(pos));
		m_pReusedTile->setAnchorPoint(CGPointZero);
		m_pReusedTile->setOpacity(m_cOpacity);

		// get atlas index
		unsigned int indexForZ = atlasIndexForExistantZ(z);
		m_pReusedTile->setAtlasIndex(indexForZ);
		m_pReusedTile->updateTransform();
		m_pTiles[z] = gid;

		return m_pReusedTile;
	}

	// used only when parsing the map. useless after the map was parsed
	// since lot's of assumptions are no longer true
	CCSprite * CCTMXLayer::appendTileForGID(unsigned int gid, CGPoint pos)
	{
		CGRect rect = m_pTileSet->rectForGID(gid);

		int z = (int)(pos.x + pos.y * m_tLayerSize.width);

		if( ! m_pReusedTile )
		{
			m_pReusedTile = new CCSprite();
			m_pReusedTile->initWithSpriteSheet(this, rect);
		}
		else
		{
			m_pReusedTile->initWithSpriteSheet(this, rect);
		}
		
		m_pReusedTile->setPosition(positionAt(pos));
		m_pReusedTile->setVertexZ((float)vertexZForPos(pos));
		m_pReusedTile->setAnchorPoint(CGPointZero);
		m_pReusedTile->setOpacity(m_cOpacity);

		// optimization:
		// The difference between appendTileForGID and insertTileforGID is that append is faster, since
		// it appends the tile at the end of the texture atlas
		unsigned int indexForZ = m_pAtlasIndexArray->num;

		// don't add it using the "standard" way.
		addQuadFromSprite(m_pReusedTile, indexForZ);

		// append should be after addQuadFromSprite since it modifies the quantity values
		ccCArrayInsertValueAtIndex(m_pAtlasIndexArray, (void*)z, indexForZ);

		return m_pReusedTile;
	}

	// CCTMXLayer - atlasIndex and Z
	int compareInts(const void * a, const void * b)
	{
		return ( *(int*)a - *(int*)b );
	}
	unsigned int CCTMXLayer::atlasIndexForExistantZ(unsigned int z)
	{
		int key=z;
		int *item = (int*)bsearch((void*)&key, (void*)&m_pAtlasIndexArray->arr[0], m_pAtlasIndexArray->num, sizeof(void*), compareInts);

		NSAssert( item, "TMX atlas index not found. Shall not happen");

		int index = ((int)item - (int)m_pAtlasIndexArray->arr) / sizeof(void*);
		return index;
	}
	unsigned int CCTMXLayer::atlasIndexForNewZ(int z)
	{
		// XXX: This can be improved with a sort of binary search
		unsigned int i=0;
		for( i=0; i< m_pAtlasIndexArray->num ; i++) 
		{
			int val = (int) m_pAtlasIndexArray->arr[i];
			if( z < val )
				break;
		}	
		return i;
	}

	// CCTMXLayer - adding / remove tiles
	void CCTMXLayer::setTileGID(unsigned int gid, CGPoint pos)
	{
		NSAssert( pos.x < m_tLayerSize.width && pos.y < m_tLayerSize.height && pos.x >=0 && pos.y >=0, "TMXLayer: invalid position");
		NSAssert( m_pTiles && m_pAtlasIndexArray, "TMXLayer: the tiles map has been released");

		unsigned int currentGID = tileGIDAt(pos);

		if( currentGID != gid ) 
		{
			// setting gid=0 is equal to remove the tile
			if( gid == 0 )
			{
				removeTileAt(pos);
			}

			// empty tile. create a new one
			else if( currentGID == 0 )
			{
				insertTileForGID(gid, pos);
			}

			// modifying an existing tile with a non-empty tile
			else 
			{
				unsigned int z = (unsigned int)(pos.x + pos.y * m_tLayerSize.width);
				CCSprite *sprite = (CCSprite*)getChildByTag(z);
				if( sprite )
				{
					CGRect rect = m_pTileSet->rectForGID(gid);
					sprite->setTextureRect(rect);
					m_pTiles[z] = gid;
				} 
				else 
				{
					updateTileForGID(gid, pos);
				}
			}
		}
	}
	CCNode * CCTMXLayer::addChild(CCNode * child, int zOrder, int tag)
	{
		NSAssert(0, "addChild: is not supported on CCTMXLayer. Instead use setTileGID:at:/tileAt:");
		return NULL;
	}
	void CCTMXLayer::removeChild(CCNode* node, bool cleanup)
	{
		CCSprite *sprite = (CCSprite*)node;
		// allows removing nil objects
		if( ! sprite )
			return;

		NSAssert( m_pChildren->containsObject(sprite), "Tile does not belong to TMXLayer");

		unsigned int atlasIndex = sprite->getAtlasIndex();
		unsigned int zz = (unsigned int) m_pAtlasIndexArray->arr[atlasIndex];
		m_pTiles[zz] = 0;
		ccCArrayRemoveValueAtIndex(m_pAtlasIndexArray, atlasIndex);
		__super::removeChild(sprite, cleanup);
	}
	void CCTMXLayer::removeTileAt(CGPoint pos)
	{
		NSAssert( pos.x < m_tLayerSize.width && pos.y < m_tLayerSize.height && pos.x >=0 && pos.y >=0, "TMXLayer: invalid position");
		NSAssert( m_pTiles && m_pAtlasIndexArray, "TMXLayer: the tiles map has been released");

		unsigned int gid = tileGIDAt(pos);

		if( gid ) 
		{
			unsigned int z = (unsigned int)(pos.x + pos.y * m_tLayerSize.width);
			unsigned atlasIndex = atlasIndexForExistantZ(z);

			// remove tile from GID map
			m_pTiles[z] = 0;

			// remove tile from atlas position array
			ccCArrayRemoveValueAtIndex(m_pAtlasIndexArray, atlasIndex);

			// remove it from sprites and/or texture atlas
			CCSprite *sprite = (CCSprite*)getChildByTag(z);
			if( sprite )
			{
				__super::removeChild(sprite, true);
			}
			else 
			{
				m_pobTextureAtlas->removeQuadAtIndex(atlasIndex);

				// update possible children
				if (m_pChildren && m_pChildren->count()>0)
				{
					NSMutableArray<CCNode*>::NSMutableArrayIterator it;
					CCSprite *pSprite = NULL;
					for (it = m_pChildren->begin(); it != m_pChildren->end(); ++it)
					{
						pSprite = (CCSprite*)(*it);
						if (pSprite)
						{
							unsigned int ai = pSprite->getAtlasIndex();
							if ( ai >= atlasIndex )
							{
								pSprite->setAtlasIndex(ai-1);
							}
						}
					}
				}
			}
		}
	}

	//CCTMXLayer - obtaining positions, offset
	CGPoint CCTMXLayer::calculateLayerOffset(CGPoint pos)
	{
		CGPoint ret = CGPointZero;
		switch( m_nLayerOrientation ) 
		{
		case CCTMXOrientationOrtho:
			ret = ccp( pos.x * m_tMapTileSize.width, -pos.y *m_tMapTileSize.height);
			break;
		case CCTMXOrientationIso:
			ret = ccp( (m_tMapTileSize.width /2) * (pos.x - pos.y),
				(m_tMapTileSize.height /2 ) * (-pos.x - pos.y) );
			break;
		case CCTMXOrientationHex:
			NSAssert(CGPoint::CGPointEqualToPoint(pos, CGPointZero), "offset for hexagonal map not implemented yet");
			break;
		}
		return ret;	
	}
	CGPoint CCTMXLayer::positionAt(CGPoint pos)
	{
		CGPoint ret = CGPointZero;
		switch( m_nLayerOrientation )
		{
		case CCTMXOrientationOrtho:
			ret = positionForOrthoAt(pos);
			break;
		case CCTMXOrientationIso:
			ret = positionForIsoAt(pos);
			break;
		case CCTMXOrientationHex:
			ret = positionForHexAt(pos);
			break;
		}
		return ret;
	}
	CGPoint CCTMXLayer::positionForOrthoAt(CGPoint pos)
	{
		float x = pos.x * m_tMapTileSize.width + 0.49f;
		float y = (m_tLayerSize.height - pos.y - 1) * m_tMapTileSize.height + 0.49f;
		return ccp(x,y);
	}
	CGPoint CCTMXLayer::positionForIsoAt(CGPoint pos)
	{
		float x = m_tMapTileSize.width /2 * ( m_tLayerSize.width + pos.x - pos.y - 1) + 0.49f;
		float y = m_tMapTileSize.height /2 * (( m_tLayerSize.height * 2 - pos.x - pos.y) - 2) + 0.49f;	
		return ccp(x, y);
	}
	CGPoint CCTMXLayer::positionForHexAt(CGPoint pos)
	{
		float diffY = 0;
		if( (int)pos.x % 2 == 1 )
			diffY = -m_tMapTileSize.height/2 ;

		float x =  pos.x * m_tMapTileSize.width*3/4 + 0.49f;
		float y =  (m_tLayerSize.height - pos.y - 1) * m_tMapTileSize.height + diffY + 0.49f;
		return ccp(x,y);
	}
	int CCTMXLayer::vertexZForPos(CGPoint pos)
	{
		int ret = 0;
		unsigned int maxVal = 0;
		if( m_bUseAutomaticVertexZ )
		{
			switch( m_nLayerOrientation ) 
			{
			case CCTMXOrientationIso:
				maxVal = (unsigned int)(m_tLayerSize.width + m_tLayerSize.height);
				ret = (int)(-(maxVal - (pos.x + pos.y)));
				break;
			case CCTMXOrientationOrtho:
				ret = (int)(-(m_tLayerSize.height-pos.y));
				break;
			case CCTMXOrientationHex:
				NSAssert(0, "TMX Hexa zOrder not supported");
				break;
			default:
				NSAssert(0, "TMX invalid value");
				break;
			}
		} 
		else
		{
			ret = m_nVertexZvalue;
		}
		return ret;
	}

	// CCTMXLayer - draw
	void CCTMXLayer::draw()
	{
		if( m_bUseAutomaticVertexZ )
		{
			glEnable(GL_ALPHA_TEST);
			glAlphaFunc(GL_GREATER, m_fAlphaFuncValue);
		}

		__super::draw();

		if( m_bUseAutomaticVertexZ )
		{
			glDisable(GL_ALPHA_TEST);
		}
	}


}// namespace cocos2d