package oving3;

import acm.program.ConsoleProgram;

public class Kongefamilien extends ConsoleProgram{

	Person Harald, Sonja, Martha, Ari, Haakon, MetteMarit, Ingrid, Sverre, Maud,  Leah, Emma;

	public void init(){
		Harald = new Person();
		Sonja = new Person();
	    Martha = new Person();
		Ari = new Person();
		Haakon = new Person();
		MetteMarit = new Person();
		Ingrid = new Person();
		Sverre = new Person();
		Maud = new Person();
		Leah = new Person();
		Emma = new Person();
	}
	public void run(){
		createRoyalFamily();

		println(Harald + "\n");
		println(Sonja + "\n");
    	println(Martha + "\n");
		println(Ari + "\n");
		println(Haakon + "\n");
		println(MetteMarit + "\n");
		println(Ingrid + "\n");
		println(Sverre + "\n");
		println(Maud + "\n");
		println(Leah + "\n");
		println(Emma + "\n");
	}
	public void createRoyalFamily(){
		Harald.name = "Harald";
		Sonja.name = "Sonja";
	    Martha.name ="Martha";
		Ari.name = "Ari";
		Haakon.name ="Haakon";
		MetteMarit.name = "Mette-Marit";
		Ingrid.name ="Ingrid-Alexandra";
		Sverre.name = "Sverre";
		Maud.name = "Maud";
		Leah.name = "Leah";
		Emma.name = "Emma";

		Haakon.father = Harald;
		Martha.father = Harald;
		Haakon.mother = Sonja;
		Martha.mother = Sonja;
		Leah.mother = Martha;
		Maud.mother = Martha;
		Emma.mother = Martha;
		Leah.father = Ari;
		Maud.father = Ari;
		Emma.father = Ari;
		Sverre.father = Haakon;
		Ingrid.father = Haakon;
		Sverre.mother = MetteMarit;
		Ingrid.mother = MetteMarit;

		Harald.children.add(Haakon);
		Harald.children.add(Martha);
		Sonja.children.add(Martha);
		Sonja.children.add(Haakon);
		Haakon.children.add(Ingrid);
		Haakon.children.add(Sverre);
		MetteMarit.children.add(Ingrid);
		MetteMarit.children.add(Sverre);
		Ari.children.add(Leah);
		Ari.children.add(Maud);
		Ari.children.add(Emma);
		Martha.children.add(Leah);
		Martha.children.add(Maud);
		Martha.children.add(Emma);

	}
}

/*
 * @startuml
 * object Kongefamilien
 *
 * object Harald
 * object Sonja
 * object Martha
 * object Ari
 * object Haakon
 * object "Mette-Marit" as MetteMarit
 * object "Ingrid Alexandra" as Ingrid
 * object "Sverre Magnus" as Sverre
 * object "Maud Angelica" as Maud
 * object "Leah Isadora" as Leah
 * object "Emma Tallulah" as Emma
 *
 * Harald --> "children" Haakon
 * Harald --> "children" Martha
 * Sonja --> "children" Haakon
 * Sonja --> "children" Martha
 *
 * Haakon --> "children" Ingrid
 * Haakon --> "children" Sverre
 * MetteMarit --> "children" Ingrid
 * MetteMarit --> "children" Sverre
 *
 * Martha --> "children" Maud
 * Martha --> "children" Leah
 * Martha --> "children" Emma
 * Ari --> "children" Maud
 * Ari --> "children" Leah
 * Ari --> "children" Emma
 *
 * Kongefamilien --> "harald" Harald
 * Kongefamilien --> "sonja" Sonja
 * Kongefamilien --> "martha" Martha
 * Kongefamilien --> "ari" Ari
 * Kongefamilien --> "haakon" Haakon
 * Kongefamilien --> "metteMarit" MetteMarit
 * Kongefamilien --> "ingrid" Ingrid
 * Kongefamilien --> "sverre" Sverre
 * Kongefamilien --> "maud" Maud
 * Kongefamilien --> "leah" Leah
 * Kongefamilien --> "emma" Emma
 *
 * @enduml
 */