// Nom du modèle
model trafic

// Méthode globale définissant l'environnement.
global {
	file shp_bati <- file("../includes/bati.shp");
	file shp_rue <- file("../includes/rues_vm.shp");
	geometry shape <- envelope(shp_rue);
	graph reseau;

	init {
		create bati from: shp_bati;
		create rue from: shp_rue ;
		reseau <- as_edge_graph(shp_rue);
	}
}

// Agent "bati"
species bati {
	aspect base {
		draw shape color: #red ;
	}
}

// Agent "rue"
species rue  {
	rgb color <- #black ;
	aspect base {
		draw shape color: color ;
	}
}

// Définition de la simulaiton et de ses affichages
experiment trafic type: gui {
	output {
		display ville_marie type:opengl {
			species bati aspect: base ;
			species rue aspect: base ;
		}
	}
}