Line data    Source code

       1             : //***********************************************
       2             : // Check precedence of chords against single note lines 
       3             : //***********************************************
       4             : 
       5           2 : PPG_CS_PROCESS_STRING(  "A B C c b a", 
       6             :                         PPG_CS_EXPECT_EMPTY_FLUSH
       7             :                         PPG_CS_EXPECT_NO_EXCEPTIONS
       8             :                         PPG_CS_EXPECT_ACTION_SERIES(
       9             :                            PPG_CS_A(Chord_1)
      10             :                         )
      11             : );
      12             : 
      13             : //***********************************************
      14             : // Check precedence of single note lines against
      15             : // clusters
      16             : //***********************************************
      17             :    
      18           2 : PPG_CS_PROCESS_STRING(  "D E F e f d", 
      19             :                         PPG_CS_EXPECT_EMPTY_FLUSH
      20             :                         PPG_CS_EXPECT_NO_EXCEPTIONS
      21             :                         PPG_CS_EXPECT_ACTION_SERIES(
      22             :                            PPG_CS_A(Single_Note_Line_4)
      23             :                         )
      24             : );
      25             :    
      26             : //***********************************************
      27             : // Check precedence of chords against
      28             : // clusters
      29             : //***********************************************
      30             :    
      31           2 : PPG_CS_PROCESS_STRING(  "X Y Z y x z", 
      32             :                         PPG_CS_EXPECT_EMPTY_FLUSH
      33             :                         PPG_CS_EXPECT_NO_EXCEPTIONS
      34             :                         PPG_CS_EXPECT_ACTION_SERIES(
      35             :                            PPG_CS_A(Chord_2)
      36             :                         )
      37             : ); 
      38             : 
      39             : //***********************************************
      40             : // Check precedence of clusters against
      41             : // chords if the cluster is associated with a higher layer
      42             : //***********************************************
      43             : 
      44           2 : ppg_global_set_layer(ppg_cs_layer_1);
      45             : 
      46             : // Allow to release keys and then repress them 
      47             : //
      48           2 : PPG_CS_PROCESS_STRING(  "M N O m n o", 
      49             :                         PPG_CS_EXPECT_EMPTY_FLUSH
      50             :                         PPG_CS_EXPECT_NO_EXCEPTIONS
      51             :                         PPG_CS_EXPECT_ACTION_SERIES(
      52             :                            PPG_CS_A(Cluster_3)
      53             :                         )
      54             : );