; Wed Sep 25 12:35:44 MST 2002
; 
;+ (version "1.8")
;+ (build "Build 954")


(defclass :CLIPS_TOP_LEVEL_SLOT_CLASS
	(is-a USER)
	(role concrete)
	(single-slot temporal_displacement
;+		(comment "A specification of the difference in timing between the members of the pair.")
		(type INSTANCE)
;+		(allowed-classes)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot lead_part
;+		(comment "The first member of the pair to move.")
		(type INSTANCE)
;+		(allowed-classes Anatomical_part)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot preceeds
;+		(comment "Specifies a temporal object that preceeds this one in a sequence.")
		(type INSTANCE)
;+		(allowed-classes Mounting)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Body_movement "Movement that involves the whole body."
	(is-a Action)
	(role concrete))

(defclass Body_rotation "A rotation, usually requires several leg motions - very rapid."
	(is-a Body_movement)
	(role concrete))

(defclass Locomotion "Bodily displacement, usually involving propulsion by the legs (e.g., walking or jumping)"
	(is-a Body_movement)
	(role concrete))

(defclass Jump "A primarily vertical motion, characteristic of salticidae."
	(is-a Locomotion)
	(role concrete))

(defclass Approach_step "A single or one of a group of steps forward during an approach display."
	(is-a Locomotion)
	(role abstract)
	(single-slot part_of
		(type INSTANCE)
;+		(allowed-classes Indexed_temporal_entity)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Second_leg_approach "An approach step taken by one of the second legs.  "
	(is-a Approach_step)
	(role concrete)
	(single-slot contained_in
;+		(comment "Containment entails that the extent (either spatial or temporal) of the source is bounded by the extent of the source.  It is weaker than part_of and should be used for temporal cases where part_of is uncertain.")
		(type INSTANCE)
;+		(allowed-classes First_Third_leg_display Final_approach)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
		(type INSTANCE)
;+		(allowed-classes First_Third_leg_display)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot instrument
;+		(comment "Currently intended as the body part involved with the action, if such can be identified.  Could also refer to an external object such as a stick.")
		(type INSTANCE)
;+		(allowed-classes Second_leg)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Fourth_leg_approach "An approach step made by one of the fourth legs during an approach phase - generally the first/third leg display."
	(is-a Approach_step)
	(role concrete)
	(single-slot contained_in
;+		(comment "Containment entails that the extent (either spatial or temporal) of the source is bounded by the extent of the source.  It is weaker than part_of and should be used for temporal cases where part_of is uncertain.")
		(type INSTANCE)
;+		(allowed-classes First_Third_leg_display)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot part_of
		(type INSTANCE)
;+		(allowed-classes First_Third_leg_display)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Currently intended as the body part involved with the action, if such can be identified.  Could also refer to an external object such as a stick.")
		(type INSTANCE)
;+		(allowed-classes Fourth_leg)
		(create-accessor read-write)))

(defclass Third_leg_approach "Approach steps with third leg seem only to occur in final approach"
	(is-a Approach_step)
	(role concrete)
	(single-slot contained_in
;+		(comment "Containment entails that the extent (either spatial or temporal) of the source is bounded by the extent of the source.  It is weaker than part_of and should be used for temporal cases where part_of is uncertain.")
		(type INSTANCE)
;+		(allowed-classes First_Third_leg_display)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Currently intended as the body part involved with the action, if such can be identified.  Could also refer to an external object such as a stick.")
		(type INSTANCE)
;+		(allowed-classes Third_leg)
		(create-accessor read-write)))

(defclass Walk "Locomotion involving multiple steps - this is used for unresolved bouts of \"walking\" steps."
	(is-a Locomotion)
	(role concrete))

(defclass Forward_walk "Walking in a (more or less) forward direction"
	(is-a Walk)
	(role concrete))

(defclass Backward_walk "Walking in more or less a backwards direction."
	(is-a Walk)
	(role concrete))

(defclass Sidling_walk "Sideways locomotion."
	(is-a Walk)
	(role concrete)
	(single-slot part_of
		(type INSTANCE)
;+		(allowed-classes Sidling_display)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Body_elevation_change "Change in how high the body is held above the substrate."
	(is-a Body_movement)
	(role concrete))

(defclass Body_lift "Increase in body elevation - not a pitch change."
	(is-a Body_elevation_change)
	(role concrete))

(defclass Body_drop "Decrease in body elevation - not a pitch change."
	(is-a Body_elevation_change)
	(role concrete))

(defclass Resettle "A small change in body posture, usually elevation or yaw after a locomotion bout."
	(is-a Body_movement)
	(role concrete))

(defclass Body_pitch_change "Change in angle of body major axis to the substrate."
	(is-a Body_movement)
	(role concrete))

(defclass Front_tilt_up "Increase in angle to substrate.  (Should explicitly reference the appropriate coordinate system)."
	(is-a Body_pitch_change)
	(role concrete))

(defclass Front_tilt_down "Increase in angle to substrate.  (Should explicitly reference the appropriate coordinate system)."
	(is-a Body_pitch_change)
	(role concrete))

(defclass Sidling_reversal "A change in direction of sidling locomotion without an identifiable pause."
	(is-a Body_movement)
	(role concrete)
	(single-slot part_of
		(type INSTANCE)
;+		(allowed-classes Sidling_display Sidling_walk)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Leg_motion "General class of motions more or less strictly involving the legs."
	(is-a Action)
	(role concrete))

(defclass Leg_lift "An increase in the elevation of the end of the leg."
	(is-a Leg_motion)
	(role concrete))

(defclass Single_leg_lift "Lifting one leg (as opposed to a pair or group)."
	(is-a Leg_lift)
	(role concrete))

(defclass Third_leg_lift "Lifting one of the third legs."
	(is-a Single_leg_lift)
	(role concrete)
	(multislot instrument
;+		(comment "Currently intended as the body part involved with the action, if such can be identified.  Could also refer to an external object such as a stick.")
		(type INSTANCE)
;+		(allowed-classes Third_leg)
		(create-accessor read-write)))

(defclass Multiple_leg_lift "Lifting a pair of legs and another (third) leg."
	(is-a Leg_lift)
	(role concrete))

(defclass Palpi_and_single_first_leg_lift "Both palpi and one of the first pair of legs are lifted."
	(is-a Multiple_leg_lift)
	(role concrete)
	(multislot instrument
;+		(comment "Currently intended as the body part involved with the action, if such can be identified.  Could also refer to an external object such as a stick.")
		(type INSTANCE)
;+		(allowed-classes Pedipalp First_leg)
		(cardinality 3 4)
		(create-accessor read-write)))

(defclass Tickling_action "Motions of the first legs and palpi related to copulation and possibly stimulation of the female."
	(is-a Leg_motion)
	(role concrete))

(defclass First_leg_grasping "The tip (toe) of the first leg is dragged across the side of the female."
	(is-a Tickling_action)
	(role concrete)
	(single-slot part_of
		(type INSTANCE)
;+		(allowed-classes Tickling)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Currently intended as the body part involved with the action, if such can be identified.  Could also refer to an external object such as a stick.")
		(type INSTANCE)
;+		(allowed-classes First_leg)
		(cardinality 1 2)
		(create-accessor read-write)))

(defclass Palp_proding "Assumed to be partially copulatory."
	(is-a Tickling_action)
	(role concrete)
	(single-slot part_of
		(type INSTANCE)
;+		(allowed-classes Tickling)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Currently intended as the body part involved with the action, if such can be identified.  Could also refer to an external object such as a stick.")
		(type INSTANCE)
;+		(allowed-classes Pedipalp)
		(cardinality 1 2)
		(create-accessor read-write)))

(defclass Fourth_leg_kick "Kicking action of the fourth leg, usually just the tarsus.  Often in a lateral direction to rotate while on female."
	(is-a Leg_motion)
	(role concrete)
	(multislot instrument
;+		(comment "Currently intended as the body part involved with the action, if such can be identified.  Could also refer to an external object such as a stick.")
		(type INSTANCE)
;+		(allowed-classes Physical_object Fourth_leg)
		(cardinality 1 2)
		(create-accessor read-write)))

(defclass Leg_drop "A leg is lowered from the raised position, not necessary to the ground, look at the result."
	(is-a Leg_motion)
	(role concrete))

(defclass Courtship_sequence "The top level of the courtship sequence - the focus of this ontology."
	(is-a Action)
	(role concrete)
	(multislot parts
		(type INSTANCE)
;+		(allowed-classes Sidling_display First_Third_leg_display Final_approach Mounting)
		(create-accessor read-write))
	(single-slot part_of
		(type INSTANCE)
;+		(allowed-classes)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Final_approach "This stage begins at the transition from 1st leg flicks to full waves, includes raising and approaching the female and ends when the male's weight is supported by the female."
	(is-a Action)
	(role concrete)
	(single-slot part_of
		(type INSTANCE)
;+		(allowed-classes Courtship_sequence)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot preceeds
;+		(comment "Specifies a temporal object that preceeds this one in a sequence.")
		(type INSTANCE)
;+		(allowed-classes Mounting)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot follows
;+		(comment "Specifies a temporal object that follows this one in a sequence")
		(type INSTANCE)
;+		(allowed-classes First_Third_leg_display)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Rotation_on_female "While on top of the female, the male turns so his front end is above one of the sides of the female.  This is usually accomplished with a mix of first leg actions and fourth leg kicks."
	(is-a Action)
	(role concrete))

(defclass Tickling "A set of first leg and palp motions involving contact with the side of the female's abdomen."
	(is-a Action)
	(role concrete)
	(multislot parts
		(type INSTANCE)
;+		(allowed-classes Tickling_action)
		(create-accessor read-write))
	(multislot contains
;+		(comment "Containment entails that the extent (either spatial or temporal) of the source is bounded by the extent of the source.  It is weaker than parts and should be used for temporal cases where parts is uncertain.")
		(type INSTANCE)
;+		(allowed-classes Indexed_temporal_entity)
		(create-accessor read-write)))

(defclass First_Third_leg_display "The main portion of the sequence - the male approaches the female while engaging in first pair slow motions, abdominal shakes, and bouts of third leg waves.  Approach steps occur during or close to third leg waves."
	(is-a Action)
	(role concrete)
	(single-slot part_of
		(type INSTANCE)
;+		(allowed-classes Courtship_sequence)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot preceeds
;+		(comment "Specifies a temporal object that preceeds this one in a sequence.")
		(type INSTANCE)
;+		(allowed-classes Final_approach)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot follows
;+		(comment "Specifies a temporal object that follows this one in a sequence")
		(type INSTANCE)
;+		(allowed-classes Sidling_display)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Sidling_display "The initial portion of the sequence - the male performs bouts of sideways locomotions, usually with the first pair raised and palp waving.  These bouts are interspersed with pauses and reversals."
	(is-a Action)
	(role concrete)
	(single-slot part_of
		(type INSTANCE)
;+		(allowed-classes Courtship_sequence)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot preceeds
;+		(comment "Specifies a temporal object that preceeds this one in a sequence.")
		(type INSTANCE)
;+		(allowed-classes First_Third_leg_display)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Mounting "The final phase of the sequence, which starts when the female is supporting the male's weight.  It consists of rotation on female events and bouts of tickling."
	(is-a Action)
	(role concrete)
	(multislot parts
		(type INSTANCE)
;+		(allowed-classes Indexed_temporal_entity)
		(create-accessor read-write))
	(single-slot part_of
		(type INSTANCE)
;+		(allowed-classes Courtship_sequence)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot follows
;+		(comment "Specifies a temporal object that follows this one in a sequence")
		(type INSTANCE)
;+		(allowed-classes Final_approach)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Paired_action "A class of actions involving a pair of body parts.  It includes fields for specifying any temporal delay."
	(is-a Action)
	(role concrete)
	(single-slot lead_part
;+		(comment "The first member of the pair to move.")
		(type INSTANCE)
;+		(allowed-classes Anatomical_part)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot temporal_displacement
;+		(comment "A specification of the difference in timing between the members of the pair.")
		(type INSTANCE)
;+		(allowed-classes)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Paired_leg_lift "Lifting a matched pair of legs."
	(is-a Leg_lift Paired_action)
	(role concrete))

(defclass Third_pair_lift "Lifting the third pair together - could be part of the third pair waving display - though these are not usually synched."
	(is-a Paired_leg_lift)
	(role concrete)
	(multislot instrument
;+		(comment "Currently intended as the body part involved with the action, if such can be identified.  Could also refer to an external object such as a stick.")
		(type INSTANCE)
;+		(allowed-classes Third_leg)
		(cardinality 2 2)
		(create-accessor read-write)))

(defclass First_pair_lift "The first pair is lifted, more or less simultaneously."
	(is-a Paired_leg_lift)
	(role concrete)
	(multislot instrument
;+		(comment "Currently intended as the body part involved with the action, if such can be identified.  Could also refer to an external object such as a stick.")
		(type INSTANCE)
;+		(allowed-classes First_leg)
		(cardinality 2 2)
		(create-accessor read-write)))

(defclass Draw_in_palpi "The palpi, previously extended are drawn up and towards the face."
	(is-a Paired_leg_lift)
	(role concrete)
	(multislot instrument
;+		(comment "Currently intended as the body part involved with the action, if such can be identified.  Could also refer to an external object such as a stick.")
		(type INSTANCE)
;+		(allowed-classes Pedipalp)
		(cardinality 2 2)
		(create-accessor read-write)))

(defclass First_pair_flick "The distal segments of the first legs, starting from above eye level, are sharply brought down, then up."
	(is-a Leg_motion Paired_action)
	(role concrete)
	(multislot instrument
;+		(comment "Currently intended as the body part involved with the action, if such can be identified.  Could also refer to an external object such as a stick.")
		(type INSTANCE)
;+		(allowed-classes First_leg)
		(cardinality 1 2)
		(create-accessor read-write)))

(defclass First_pair_full_wave "All of the first legs are involved with up/down cycles.  May be down/up, out of phase with the other leg."
	(is-a Leg_motion Paired_action)
	(role concrete)
	(multislot instrument
;+		(comment "Currently intended as the body part involved with the action, if such can be identified.  Could also refer to an external object such as a stick.")
		(type INSTANCE)
;+		(allowed-classes First_leg)
		(cardinality 1 2)
		(create-accessor read-write)))

(defclass Third_pair_extend "Starting from the lifted position, the third legs are extended away from the body.  In H. californicus, the extension is relatively extreme."
	(is-a Leg_motion Paired_action)
	(role concrete))

(defclass Third_pair_drop
	(is-a Leg_drop Paired_action)
	(role concrete)
	(multislot result
;+		(comment "The outcome of an action or event.")
		(type INSTANCE)
;+		(allowed-classes State Third_leg_dangling)
		(create-accessor read-write)))

(defclass Stationary_palp_waving "A pause in locomotion, while the palps continue to move."
	(is-a Repeating_action)
	(role concrete))

(defclass Shake_abdomen "Vertical motions of the abdomen, of various types, each type characterized by amplitude and in many cases frequency."
	(is-a Action Repeating_action)
	(role concrete)
	(single-slot instrument
;+		(comment "Currently intended as the body part involved with the action, if such can be identified.  Could also refer to an external object such as a stick.")
		(type INSTANCE)
;+		(allowed-classes Abdomen)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Small_shake "Small amplitude (< 1mm ??) often with a characteristic frequency of about 10Hz.  Usually seen in first/third leg display during periods without third leg waves - gradually starts up once the third legs settle and abruptly switches to large amplitude shakes when the third pair is raised."
	(is-a Shake_abdomen)
	(role concrete)
	(single-slot instrument
;+		(comment "Currently intended as the body part involved with the action, if such can be identified.  Could also refer to an external object such as a stick.")
		(type INSTANCE)
;+		(allowed-classes Abdomen)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Large_shake "Larger amplitude and lower frequency than small shakes.  Often seen during third leg wave sequences."
	(is-a Shake_abdomen)
	(role concrete)
	(single-slot contained_in
;+		(comment "Containment entails that the extent (either spatial or temporal) of the source is bounded by the extent of the source.  It is weaker than part_of and should be used for temporal cases where part_of is uncertain.")
		(type INSTANCE)
;+		(allowed-classes Indexed_temporal_entity)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Third_pair_wave "The entire bout of third leg lifting, extending and dropping.  Usually ends with third legs in \"dangling\" position."
	(is-a Leg_motion Repeating_action Paired_action)
	(role concrete)
	(multislot parts
		(type INSTANCE)
;+		(allowed-classes Third_pair_lift Third_pair_extend Third_pair_drop)
		(create-accessor read-write))
	(multislot instrument
;+		(comment "Currently intended as the body part involved with the action, if such can be identified.  Could also refer to an external object such as a stick.")
		(type INSTANCE)
;+		(allowed-classes Third_leg)
		(create-accessor read-write)))

(defclass Palp_wave "The palps are waved, mostly in a vertical plane, some anterior/posterior motion as well.  The phase relationship tends to drift."
	(is-a Leg_motion Repeating_action Paired_action)
	(role concrete)
	(multislot instrument
;+		(comment "Currently intended as the body part involved with the action, if such can be identified.  Could also refer to an external object such as a stick.")
		(type INSTANCE)
;+		(allowed-classes Pedipalp)
		(cardinality 1 2)
		(create-accessor read-write)))

(defclass First_leg_slow_sweep "One (or both) first legs are slowly swept in a diagonal path from high and close to the dorsal-ventral plane to a lower and more distal position.  The rate tends to be slow."
	(is-a Leg_motion Repeating_action)
	(role concrete)
	(multislot instrument
;+		(comment "Currently intended as the body part involved with the action, if such can be identified.  Could also refer to an external object such as a stick.")
		(type INSTANCE)
;+		(allowed-classes First_leg)
		(cardinality 1 ?VARIABLE)
		(create-accessor read-write)))

(defclass First_pair_slow_sweep "Both first legs are sweeping - usually antiparallel."
	(is-a First_leg_slow_sweep Paired_action)
	(role concrete)
	(multislot instrument
;+		(comment "Currently intended as the body part involved with the action, if such can be identified.  Could also refer to an external object such as a stick.")
		(type INSTANCE)
;+		(allowed-classes First_leg)
		(cardinality 2 2)
		(create-accessor read-write)))

(defclass First_pair_apart "The first legs are moving apart - down and away from the center plane."
	(is-a First_pair_slow_sweep)
	(role concrete))

(defclass First_pair_together "The first leg is moving together - up and toward the center plane."
	(is-a First_pair_slow_sweep)
	(role concrete))

(defclass First_leg_on_substrate
	(is-a First_leg_position)
	(role concrete))

(defclass First_leg_low "This is below the level of the face."
	(is-a First_leg_position)
	(role concrete))

(defclass First_leg_middle "The toe is at about the same level as the face."
	(is-a First_leg_position)
	(role concrete))

(defclass First_leg_high "The toe is above the level of the face."
	(is-a First_leg_position)
	(role concrete))

(defclass First_leg_quantitative "An elevation value is specified."
	(is-a First_leg_position)
	(role concrete))

(defclass Third_leg_position "A class of states with conditions defined by the location of the third leg in body or substrate centric coordinates."
	(is-a Leg_position)
	(role concrete))

(defclass Third_leg_dangling "The tarsi of the third leg is allowed to hang down freely, not contacting the substrate."
	(is-a Third_leg_position)
	(role concrete))