ipa: ɲ (vcd pal nas).

phsource/ph_ipa

     FMT(n/nr_)
   ENDIF
 endphoneme
+
+phoneme J
+  vcd pal nas
+  ipa ɲ
+  Vowelout f1=3 f2=2500 300 500  f3=100 80  len=45 brk rate
+  lengthmod 4
+
+  IF KlattSynth THEN
+    VowelStart(klatt/n^@)
+    FMT(klatt/n^)
+  ENDIF
+
+  NextVowelStarts
+    VowelStart(n^/n^@)
+    VowelStart(n^/n^a)
+    VowelStart(n^/n^e)
+    VowelStart(n^/n^i)
+    VowelStart(n^/n^o)
+    VowelStart(n^/n^u)
+  EndSwitch
+
+  IF prevPh(isPause) THEN
+    FMT(n^/_n^)
+  ELIF nextPh(isNotVowel) THEN
+    IF nextPhW(J) THEN
+      length 75
+    ELIF prevPhW(J) THEN
+      length 100
+    ENDIF
+    FMT(n^/n^_)
+  ENDIF
+endphoneme

phsource/phonemes

 // NASAL CONSONANTS
 //*******************************************************************
 
-
 phoneme m
   import_phoneme ipa/m
 endphoneme
 
-
 phoneme n
   import_phoneme ipa/n
 endphoneme
 
-
 phoneme n.
   import_phoneme ipa/n`
 endphoneme
 
-
 phoneme n^ // Spanish **ñ**
-  vcd pal nas pzd
-  ipa ɲ
-  Vowelout f1=3 f2=2500 300 500  f3=100 80  len=45 brk rate
-  lengthmod 4
-
-  IF KlattSynth THEN
-    VowelStart(klatt/n^@)
-    FMT(klatt/n^)
-  ENDIF
-
-  NextVowelStarts
-    VowelStart(n^/n^@)
-    VowelStart(n^/n^a)
-    VowelStart(n^/n^e)
-    VowelStart(n^/n^i)
-    VowelStart(n^/n^o)
-    VowelStart(n^/n^u)
-  EndSwitch
-
-  IF prevPh(isPause) THEN
-    FMT(n^/_n^)
-  ELIF nextPh(isNotVowel) THEN
-    IF nextPhW(n^) THEN
-      length 75
-    ELIF prevPhW(n^) THEN
-      length 100
-    ENDIF
-    FMT(n^/n^_)
-  ENDIF
+  import_phoneme ipa/J
 endphoneme