separateAsteroid :: GameObject -> [GameObject]
separateAsteroid asteroid = [ createGameObjectImgObject (x' + 50 , y' + 50) (80,80) (rotate 15 asteroidSmallImage)
                            , createGameObjectImgObject (x' + 50 , y' - 50) (80,80) (rotate 345 asteroidSmallImage)
                            , createGameObjectImgObject (x' - 50 , y' + 50) (80,80) (rotate 345 asteroidSmallImage)
                            , createGameObjectImgObject (x' - 50 , y' - 50) (80,80) (rotate 15 asteroidSmallImage)
                            ] where (x', y') =  getGameObjectCoordinates asteroid
separateAsteroid :: GameObject -> [GameObject]
separateAsteroid asteroid = [ createGameObjectImgObject (x' + 50 , y' + 50) (80,80) (rotate 15 asteroidSmallImage)
                            , createGameObjectImgObject (x' + 50 , y' - 50) (80,80) (rotate 345 asteroidSmallImage)
                            , createGameObjectImgObject (x' - 50 , y' + 50) (80,80) (rotate 345 asteroidSmallImage)
                            , createGameObjectImgObject (x' - 50 , y' - 50) (80,80) (rotate 15 asteroidSmallImage)
                            ] where (x', y') =  getGameObjectCoordinates asteroid
separateAsteroid asteroid = [ createGameObjectImgObject (x' + 50 , y' + 50) (80,80) (rotate 15 asteroidSmallImage)
                            , createGameObjectImgObject (x' + 50 , y' - 50) (80,80) (rotate 345 asteroidSmallImage)
                            , createGameObjectImgObject (x' - 50 , y' + 50) (80,80) (rotate 345 asteroidSmallImage)
                            , createGameObjectImgObject (x' - 50 , y' - 50) (80,80) (rotate 15 asteroidSmallImage)
                            ] where (x', y') =  getGameObjectCoordinates asteroid