// 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);
		create resident number: 100 {
    		location <- any_location_in(one_of(list<bati>(bati)));
    	}
	}
}

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

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

species resident {
    rgb color <- #blue;
    aspect base {
    draw circle(20) 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 ;
			species resident aspect: base;
		}
	}
}