add distinction between Attributive vs Predicative (esp for colours)

src/chinese/ResChi.gf

@@ -99,7 +99,6 @@ param
     AdjPlace = Attr | Pred ; -- a green cat / the cat is green colour
 
 -- parts of speech
-
 oper
 
   VP = {
@@ -134,6 +133,16 @@ oper
     _ => mkAdj s False
     } ;
 
+  colourAdj : Str -> Adj = \s -> {
+    s = table {
+      Attr => word s ;
+      Pred => word s ++ "色"
+    };
+    monoSyl = case s of {
+      ? => True ;
+      _ => False }
+    };
+
   copula : Verb = mkVerb "是" [] [] [] [] "不" ;
   hen_copula : Verb =
     {s = hen_s ; sn = [] ; pp = [] ; ds = [] ; dp = [] ; ep = [] ; neg = "不"} ; ---