gera :: Int -> Int -> Int -> Mapa
gera npistas comprimento semente | npistas == 0 = []
                                 | otherwise = (gera (npistas-1) comprimento semente) ++
                                               [geraPista [Recta Terra 0] comprimento (segmentoLista (npistas - 1) ranporpista listaderan)]
                                  where
                                        ranporpista = (comprimento - 1) * 2
                                        ranagerar = ((npistas * comprimento) - npistas) * 2
                                        listaderan = geraAleatorios ranagerar semente

--segmentoLista devolve um segmento de uma lista  dividida em n segmentos
--Os segmentos começam em 0 (logo o primeiro segmento de uma lista é o
--segmento 0).
segmentoLista :: Int -> Int -> [a] -> [a]
segmentoLista segmento tamanhosegmento lista = take tamanhosegmento (drop (tamanhosegmento * segmento) lista)