(clear-all)

(define-model peck-test
    (install-device (open-exp-window "" :visible nil))
  
  (chunk-type g state)
  
  (goal-focus-fct (car (define-chunks (isa g))))
  
  
  (p press-r
     =goal>
       isa g
       state nil
     ?manual>
       state free
     ==>
     +manual>
       isa press-key
       key "r"
     =goal>
       state 1)
       
    (p press-t
     =goal>   
       isa g
       state 1
     ?manual>
       preparation free
     ==>
     +manual>
       isa press-key
       key "t"
     =goal>
       state 2)
  
  (p clear-motor
     "remove the previous features to ensure a fair test"
     =goal>   
       isa g
       state 2
     ?manual>
       state free
     ==>
     +manual>
       isa clear
     =goal>
       state 3)
  
  (p peck-r
     =goal>   
       isa g
       state 3
     ?manual>
       state free
     ==>
     +manual>
       isa peck
       hand left
       finger index
       r 1
       theta -1.6
     =goal>
       state 4)
       
    (p peck-t
     =goal>   
       isa g
       state 4
     ?manual>
       preparation free
     ==>
     +manual>
       isa peck
       hand left
       finger index
       r 1
       theta 0
     =goal>
       state 5))


#| example run
> CG-USER(567): (run 10)
     0.000   GOAL                   SET-BUFFER-CHUNK GOAL G0 REQUESTED NIL 
     0.000   PROCEDURAL             CONFLICT-RESOLUTION 
     0.050   PROCEDURAL             PRODUCTION-FIRED PRESS-R 
     0.050   PROCEDURAL             CLEAR-BUFFER MANUAL 
     0.050   MOTOR                  PRESS-KEY r 
     0.050   PROCEDURAL             CONFLICT-RESOLUTION 
     0.300   PROCEDURAL             CONFLICT-RESOLUTION 
     0.350   PROCEDURAL             PRODUCTION-FIRED PRESS-T 
     0.350   PROCEDURAL             CLEAR-BUFFER MANUAL 
     0.350   MOTOR                  PRESS-KEY t 
     0.350   PROCEDURAL             CONFLICT-RESOLUTION 
     0.450   MOTOR                  OUTPUT-KEY #(4 3) 
     0.450   PROCEDURAL             CONFLICT-RESOLUTION 
     0.600   PROCEDURAL             CONFLICT-RESOLUTION 
     0.650   PROCEDURAL             CONFLICT-RESOLUTION 
     0.750   MOTOR                  OUTPUT-KEY #(5 3) 
     0.750   PROCEDURAL             CONFLICT-RESOLUTION 
     0.900   PROCEDURAL             CONFLICT-RESOLUTION 
     0.950   PROCEDURAL             PRODUCTION-FIRED CLEAR-MOTOR 
     0.950   PROCEDURAL             CLEAR-BUFFER MANUAL 
     0.950   MOTOR                  CLEAR 
     0.950   PROCEDURAL             CONFLICT-RESOLUTION 
     1.000   PROCEDURAL             CONFLICT-RESOLUTION 
     1.050   PROCEDURAL             PRODUCTION-FIRED PECK-R 
     1.050   PROCEDURAL             CLEAR-BUFFER MANUAL 
     1.050   MOTOR                  PECK HAND LEFT FINGER INDEX R 1 THETA -1.6 
     1.050   PROCEDURAL             CONFLICT-RESOLUTION 
     1.300   PROCEDURAL             CONFLICT-RESOLUTION 
     1.350   PROCEDURAL             PRODUCTION-FIRED PECK-T 
     1.350   PROCEDURAL             CLEAR-BUFFER MANUAL 
     1.350   MOTOR                  PECK HAND LEFT FINGER INDEX R 1 THETA 0 
     1.350   PROCEDURAL             CONFLICT-RESOLUTION 
     1.400   PROCEDURAL             CONFLICT-RESOLUTION 
     1.450   MOTOR                  OUTPUT-KEY #(4 3) 
     1.450   PROCEDURAL             CONFLICT-RESOLUTION 
     1.500   PROCEDURAL             CONFLICT-RESOLUTION 
     1.550   PROCEDURAL             CONFLICT-RESOLUTION 
     1.650   MOTOR                  OUTPUT-KEY #(5 3) 
     1.650   PROCEDURAL             CONFLICT-RESOLUTION 
     1.700   PROCEDURAL             CONFLICT-RESOLUTION 
     1.700   ------                 Stopped because no events left to process 
1.7
85
NIL
|#