home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / open / brain.lzh / MAPFILE.PAS < prev    next >
Pascal/Delphi Source File  |  1986-01-02  |  15KB  |  294 lines
  1. const               {include file: MapData}
  2. {written by W. Jeffrey Wilson & lynne ostergren,
  3.             Department of Psychological Sciences,
  4.             Indiana University - Purdue University at Fort Wayne,
  5.             2101 Coliseum Boulevard East,
  6.             Fort Wayne, IN  46805.
  7. copyright, 1985 by Purdue Research Foundation, West Lafayette, Indiana 47907.
  8.                     All Rights Reserved.  Unmodified copies of this program
  9.                     may be freely distributed.  Each copy must contain this
  10.                     notice.}
  11.  
  12.    Room : RoomArray =(
  13.    (Name:'Lateral Ventricle';
  14.     AdjRoom:(CingulateGyrus,NoWhere,NoWhere,ThirdVentricle,NoWhere,NoWhere);
  15.     Item : (False,False,False,False,False,False,False,False,False,False,
  16.             False,False,False,False,False,False,False,False,False);
  17.     Visited: False),
  18.    (Name:'Third Ventricle';
  19.     AdjRoom:(NoWhere,MammillaryBody,Thalamus,NoWhere,NoWhere,CerebralAqueduct);
  20.     Item:(False,False,False,False,False,False,False,False,False,False,
  21.     False,False,False,False,False,False,False,False,False);
  22.     Visited: False),
  23.    (Name:'Cerebral Aqueduct';
  24.     AdjRoom:(PeriAqueductalGray,PeriAqueductalGray,PeriaqueductalGray,PeriaqueductalGray,NoWhere,FourthVentricle);
  25.     Item:(False,False,False,False,False,False,False,False,False,False,
  26.           False,False,False,False,False,False,False,False,False);
  27.     Visited: False),
  28.    (Name:'Fourth Ventricle';
  29.     AdjRoom:(Cerebellum,Medulla,LateralLemniscus,NoWhere,NoWhere,Foramen);
  30.     Item:(False,False,False,False,False,False,False,False,False,False,
  31.           False,False,False,False,False,False,False,False,False);
  32.     Visited: False),
  33.    (Name:'Foramen of Magendie';
  34.     AdjRoom:(NoWhere,NoWhere,NoWhere,NoWhere,NoWhere,Subarachnoid);
  35.     Item:(False,False,False,False,False,False,False,False,False,False,
  36.           False,False,False,False,False,False,False,False,False);
  37.     Visited: False),
  38.    (Name:'Subarachnoid Space';
  39.     AdjRoom:(NoWhere,NoWhere,NoWhere,NoWhere,NoWhere,NoWhere);
  40.     Item:(False,False,False,False,False,False,False,False,False,False,
  41.           False,False,False,False,False,False,False,False,False);
  42.     Visited: False),
  43.    (Name:'Head of the Caudate Nucleus';
  44.     AdjRoom:(NoWhere,NoWhere,NoWhere,NoWhere,NoWhere,CaudateTail);
  45.     Item:(False,False,True,False,False,False,False,False,False,False,
  46.           False,False,False,False,False,False,False,False,False);
  47.     Visited: False),
  48.    (Name:'Tail of the Caudate Nucleus';
  49.     AdjRoom:(Amygdala,Amygdala,Amygdala,Amygdala,Amygdala,Amygdala);
  50.     Item:(False,False,False,False,False,False,False,False,False,False,
  51.           False,False,False,False,False,False,False,False,False);
  52.     Visited: False),
  53.     (Name:'Putamen';
  54.     AdjRoom:(InternalCapsule,NoWhere,NoWhere,Pallidum,NoWhere,NoWhere);
  55.     Item:(False,False,False,False,False,False,False,False,False,False,
  56.           False,False,False,False,False,False,False,False,False);
  57.     Visited: False),
  58.     (Name:'Globus Pallidus';
  59.     AdjRoom:(InternalCapsule,NoWhere,Putamen,Accumbens,NoWhere,NoWhere);
  60.     Item:(False,False,False,False,True,False,False,False,False,False,
  61.           False,False,False,False,False,False,False,False,False);
  62.     Visited: False),
  63.     (Name:'Substantia Nigra';
  64.     AdjRoom:(PeriAqueductalGray,CerebralPeduncle,NoWhere,NoWhere,NigrostriatalBundle,NoWhere);
  65.     Item:(True,False,False,False,False,False,False,False,False,False,
  66.           False,False,False,False,False,False,False,False,False);
  67.     Visited: False),
  68.     (Name:'Internal Capsule';
  69.     AdjRoom:(MotorStrip,Pallidum,Putamen,NoWhere,NoWhere,CerebralPeduncle);
  70.     Item:(False,False,False,False,False,False,False,False,False,False,
  71.           False,False,False,False,False,False,False,False,False);
  72.     Visited: False),
  73.     (Name:'Cerebral Peduncle';
  74.     AdjRoom:(Nigra,NoWhere,NoWhere,NoWhere,InternalCapsule,Pons);
  75.     Item:(False,False,False,False,False,False,False,False,False,False,
  76.           False,False,False,False,True,False,False,False,False);
  77.     Visited: False),
  78.     (Name:'Nigrostriatal Bundle';
  79.     AdjRoom:(NoWhere,NoWhere,NoWhere,NoWhere,NotYet,Nigra);
  80.     Item:(False,False,False,False,False,False,False,False,False,False,
  81.           False,False,False,False,False,False,False,False,False);
  82.     Visited: False),
  83.    (Name:'Thalamus';
  84.     AdjRoom:(NoWhere,LHA,LateralGeniculate,ThirdVentricle,NoWhere,MedialGeniculate);
  85.     Item:(False,False,False,False,False,False,False,False,True,False,
  86.           False,False,False,False,False,False,False,False,False);
  87.     Visited: False),
  88.    (Name:'Pons';
  89.     AdjRoom:(VentralNoradBundle,NoWhere,NoWhere,Raphe,CerebralPeduncle,Medulla);
  90.     Item:(False,True,False,False,False,False,False,False,False,False,
  91.           False,False,False,False,False,False,False,False,False);
  92.     Visited: False),
  93.    (Name:'Medulla';
  94.     AdjRoom:(FourthVentricle,NoWhere,NoWhere,Raphe,Pons,Pyramids);
  95.     Item:(False,False,False,False,False,False,False,False,False,False,
  96.           False,False,False,False,False,False,False,False,False);
  97.     Visited: False),
  98.    (Name:'Raphe Nuclei';
  99.     AdjRoom:(NoWhere,NoWhere,Medulla,NoWhere,PeriAqueductalGray,NoWhere);
  100.     Item:(False,False,False,True,False,False,False,False,False,False,
  101.           False,False,False,False,False,False,False,False,False);
  102.     Visited: False),
  103.    (Name:'Lateral Lemniscus';
  104.     AdjRoom:(NoWhere,NoWhere,NoWhere,FourthVentricle,InferiorColliculus,TrapezoidBody);
  105.     Item:(False,False,False,False,False,False,False,False,False,False,
  106.           False,False,False,False,False,False,False,False,False);
  107.     Visited: False),
  108.    (Name:'Ventral Noradrenergic Bundle';
  109.     AdjRoom:(NoWhere,NoWhere,NoWhere,NoWhere,NotYet,Pons);
  110.     Item:(False,False,False,False,False,False,False,False,False,False,
  111.           False,False,False,False,False,False,False,False,False);
  112.     Visited: False),
  113.    (Name:'Inferior Colliculus';
  114.     AdjRoom:(NoWhere,PeriAqueductalGray,NoWhere,NoWhere,MedialGeniculate,LateralLemniscus);
  115.     Item:(False,False,False,False,False,False,False,False,False,False,
  116.           False,False,False,False,False,False,False,False,False);
  117.     Visited: False),
  118.    (Name:'Medial Geniculate Nucleus';
  119.     AdjRoom:(NoWhere,NoWhere,AuditoryCx,NoWhere,Thalamus,InferiorColliculus);
  120.     Item:(False,False,False,False,False,False,False,False,False,False,
  121.           False,False,False,False,False,False,False,False,False);
  122.     Visited: False),
  123.    (Name:'Trapezoid Body';
  124.     AdjRoom:(Question,Question,Question,Question,Question,Question);
  125.     Item:(False,False,False,False,False,False,False,False,False,False,
  126.           False,False,False,False,False,False,False,False,False);
  127.     Visited: False),
  128.    (Name:'PeriAqueductal Grey Matter';
  129.     AdjRoom:(InferiorColliculus,Nigra,NoWhere,CerebralAqueduct,SuperiorColliculus,Raphe);
  130.     Item:(False,False,False,False,False,False,False,False,False,False,
  131.           False,False,False,False,False,False,False,False,False);
  132.     Visited: False),
  133.    (Name:'Auditory Cortex';
  134.     AdjRoom:(Brocas,NoWhere,NoWhere,MedialGeniculate,AssocCx,Wernickes);
  135.     Item:(False,False,False,False,False,False,False,False,False,False,
  136.           False,False,False,False,False,False,False,False,False);
  137.     Visited: False),
  138.    (Name:'Suprachiasmatic Nucleus';
  139.     AdjRoom:(NoWhere,OpticChiasm,NoWhere,NoWhere,NoWhere,NoWhere);
  140.     Item:(False,False,False,False,False,True,False,False,False,False,
  141.           False,False,False,False,False,False,False,False,False);
  142.     Visited: False),
  143.    (Name:'Pituitary Gland';
  144.     AdjRoom:(Question,Question,Question,Question,Question,Question);
  145.     Item:(False,False,False,False,False,False,False,False,False,False,
  146.           False,False,False,False,False,True,False,False,False);
  147.     Visited: False),
  148.    (Name:'Pyramids';
  149.     AdjRoom:(Question,Question,Question,Question,Question,Question);
  150.     Item:(False,False,False,False,False,False,False,False,False,False,
  151.           False,False,False,False,False,False,True,False,False);
  152.     Visited: False),
  153.    (Name:'Cingulate Gyrus';
  154.     AdjRoom:(MotorStrip,LateralVentricle,SensoryStrip,NoWhere,FrontalLobe,NoWhere);
  155.     Item:(False,False,False,False,False,False,False,False,False,False,
  156.           False,False,False,False,False,False,False,False,False);
  157.     Visited: False),
  158.    (Name:'Optic Tract';
  159.     AdjRoom:(NoWhere,SuperiorColliculus,NoWhere,NoWhere,OpticChiasm,LateralGeniculate);
  160.     Item:(False,False,False,False,False,False,False,False,False,False,
  161.           False,False,False,False,False,False,False,False,False);
  162.     Visited: False),
  163.    (Name:'Optic Chiasm';
  164.     AdjRoom:(SuprachiasmNuc,NoWhere,NoWhere,NoWhere,NoWhere,OpticTract);
  165.     Item:(False,False,False,False,False,False,False,False,False,False,
  166.           False,False,False,False,False,False,False,False,False);
  167.     Visited: False),
  168.    (Name:'Lateral Geniculate Nucleus';
  169.     AdjRoom:(NoWhere,SuperiorColliculus,NoWhere,Thalamus,OpticTract,OpticRadiation);
  170.     Item:(False,False,False,False,False,False,False,False,False,False,
  171.           False,False,False,False,False,False,False,False,False);
  172.     Visited: False),
  173.    (Name:'Superior Colliculus';
  174.     AdjRoom:(LateralGeniculate,PeriAqueductalGray,NoWhere,NoWhere,OpticTract,NoWhere);
  175.     Item:(False,False,False,False,False,False,False,False,False,False,
  176.           False,False,False,False,False,False,False,False,False);
  177.     Visited: False),
  178.    (Name:'Optic Radiation';
  179.     AdjRoom:(NoWhere,NoWhere,NoWhere,NoWhere,NoWhere,VisualCx);
  180.     Item:(False,False,False,False,False,False,False,False,False,False,
  181.           False,False,False,False,False,False,False,False,False);
  182.     Visited: False),
  183.    (Name:'Visual Cortex';
  184.     AdjRoom:(Question,Question,Question,Question,Question,Question);
  185.     Item:(False,False,False,False,False,False,False,False,False,False,
  186.           False,False,False,False,False,False,False,False,False);
  187.     Visited: False),
  188.    (Name:'Amygdala';
  189.     AdjRoom:(NoWhere,NoWhere,NoWhere,Question,NoWhere,Question);
  190.     Item:(False,False,False,False,False,False,False,False,False,False,
  191.           False,False,False,False,False,False,False,False,False);
  192.     Visited: False),
  193.    (Name:'Septum';
  194.     AdjRoom:(Fornix,NoWhere,NotYet,NoWhere,NoWhere,MammillaryBody);
  195.     Item:(False,False,False,False,False,False,False,False,False,False,
  196.           False,False,False,False,False,False,False,True,False);
  197.     Visited: False),
  198.    (Name:'Mammillary Body';
  199.     AdjRoom:(Fornix,NoWhere,NoWhere,LHA,Septum,NoWhere);
  200.     Item:(False,False,False,False,False,False,False,False,False,False,
  201.           False,False,False,False,False,False,False,False,False);
  202.     Visited: False),
  203.    (Name:'Hippocampus';
  204.     AdjRoom:(NoWhere,NoWhere,NoWhere,Fornix,NotYet,NoWhere);
  205.     Item:(False,False,False,False,False,False,False,True,False,False,
  206.           False,False,False,False,False,False,False,False,False);
  207.     Visited: False),
  208.    (Name:'Fornix';
  209.     AdjRoom:(NoWhere,MammillaryBody,Hippocampus,NoWhere,Septum,NoWhere);
  210.     Item:(False,False,False,False,False,False,False,False,False,False,
  211.           False,False,False,False,False,False,False,False,False);
  212.     Visited: False),
  213.    (Name:'Ventromedial Nucleus of the Hypothalamus';
  214.     AdjRoom:(NoWhere,Pituitary,LHA,NoWhere,NoWhere,NoWhere);
  215.     Item:(False,False,False,False,False,False,True,False,False,False,
  216.           False,False,False,False,False,False,False,False,False);
  217.     Visited: False),
  218.    (Name:'Lateral Hypothalamic Area';
  219.     AdjRoom:(Thalamus,NoWhere,NoWhere,VMN,NoWhere,MammillaryBody);
  220.     Item:(False,False,False,False,False,False,False,False,False,False,
  221.           False,False,False,False,False,False,False,False,False);
  222.     Visited: False),
  223.    (Name:'Sensory Strip';
  224.     AdjRoom:(NoWhere,NoWhere,NoWhere,CingulateGyrus,MotorStrip,AssocCx);
  225.     Item:(False,False,False,False,False,False,False,False,False,False,
  226.           False,False,False,False,False,False,False,False,False);
  227.     Visited: False),
  228.    (Name:'Motor Strip';
  229.     AdjRoom:(NoWhere,InternalCapsule,Brocas,CingulateGyrus,FrontalLobe,SensoryStrip);
  230.     Item:(False,False,False,False,False,False,False,False,False,False,
  231.           False,True,False,False,False,False,False,False,False);
  232.     Visited: False),
  233.    (Name:'Frontal Lobe';
  234.     AdjRoom:(NoWhere,NoWhere,NoWhere,CingulateGyrus,NoWhere,MotorStrip);
  235.     Item:(False,False,False,False,False,False,False,False,False,False,
  236.           False,False,False,False,False,False,False,False,False);
  237.     Visited: False),
  238.    (Name:'Broca`s Area';
  239.     AdjRoom:(NoWhere,AuditoryCx,NoWhere,MotorStrip,NoWhere,Wernickes);
  240.     Item:(False,False,False,False,False,False,False,False,False,False,
  241.           False,False,False,False,False,False,False,False,False);
  242.     Visited: False),
  243.    (Name:'Wernicke`s Area';
  244.     AdjRoom:(Brocas,NoWhere,NoWhere,NoWhere,AuditoryCx,NoWhere);
  245.     Item:(False,False,False,False,False,False,False,False,False,True,
  246.           False,False,False,False,False,False,False,False,False);
  247.     Visited: False),
  248.    (Name:'Association Cortex';
  249.     AdjRoom:(Assoc1,Assoc2,Assoc3,Assoc5,Assoc1,Assoc2);
  250.     Item:(False,False,False,False,False,False,False,False,False,False,
  251.           False,False,False,False,False,False,False,False,False);
  252.     Visited: False),
  253.    (Name:'Nucleus Accumbens';
  254.     AdjRoom:(NoWhere,NoWhere,Pallidum,NoWhere,NoWhere,NoWhere);
  255.     Item:(False,False,False,False,False,False,False,False,False,False,
  256.           False,False,False,False,False,False,False,False,False);
  257.     Visited: False),
  258.    (Name:'Cerebellum';
  259.     AdjRoom:(NoWhere,FourthVentricle,NoWhere,NoWhere,NoWhere,NoWhere);
  260.     Item:(False,False,False,False,False,False,False,False,False,False,
  261.           True,False,False,False,False,False,False,False,False);
  262.     Visited: False),
  263.    (Name:'Association Cortex';
  264.     AdjRoom:(Assoc2,Assoc3,Assoc4,Assoc5,Assoc2,Assoc3);
  265.     Item:(False,False,False,False,False,False,False,False,False,False,
  266.           False,False,False,False,False,False,False,False,False);
  267.     Visited: False),
  268.    (Name:'Association Cortex';
  269.     AdjRoom:(Assoc3,Assoc4,Assoc5,Assoc1,Assoc3,Assoc4);
  270.     Item:(False,False,False,False,False,False,False,False,False,False,
  271.           False,False,False,False,False,False,False,False,False);
  272.     Visited: False),
  273.    (Name:'Association Cortex';
  274.     AdjRoom:(Assoc4,Assoc5,Assoc1,Assoc2,Assoc4,Assoc5);
  275.     Item:(False,False,False,False,False,False,False,False,False,False,
  276.           False,False,False,False,False,False,False,False,False);
  277.     Visited: False),
  278.    (Name:'Association Cortex';
  279.     AdjRoom:(Assoc5,Assoc1,Assoc2,Assoc3,Assoc5,Assoc1);
  280.     Item:(False,False,False,False,False,False,False,False,False,False,
  281.           False,False,False,False,False,False,False,False,False);
  282.     Visited: False),
  283.   (Name:'Association Cortex';
  284.     AdjRoom:(Assoc1,Assoc2,Assoc3,Assoc4,Assoc1,Assoc2);
  285.     Item:(False,False,False,False,False,False,False,False,False,False,
  286.           False,False,False,False,False,False,False,False,False);
  287.     Visited: False));
  288. {  (Name:'';
  289.     AdjRoom:(NoWhere,NoWhere,NoWhere,NoWhere,NoWhere,NoWhere);
  290.     Item:(False,False,False,False,False,False,False,False,False,False,
  291.           False,False,False,False,False,False,False,False,False);
  292.     Visited: False),  }
  293.  
  294.