% Visible speech vowels. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% for opcl=0,1: for bar=0,1: for hor=1,2,3: beginchar(incr ccode,3/2curve#+ if hor=3: 2 fi vowel_curl#+2sidebar#, loop_h#+vowel_asc#,0); if hor=3: fix_width; fi x.stem=if hor=3: 1/2[lside,rside] elseif hor=1: lside+full_serif else: rside-full_serif fi; vowelstem; pickup serifpen; bot y.stem=0; serifize(y.stem); if bar=1: roundingbar; fi if opcl=0: widecurl else: closebulb fi ((x.stem,loop_h),1,if hor=1: 1 else: -1 fi); if hor=3: if opcl=0: widecurl else: closebulb fi((x.stem,loop_h),1,1); fi endchar; endfor;endfor; for bar=0,1: for hor=1,2,3: beginchar(incr ccode, 3/2curve#+ if hor=3: 2 fi vowel_curl#+2sidebar#, loop_h#,vowel_d#); if hor=3: fix_width; fi x.stem=if hor=3: 1/2[lside,rside] elseif hor=1: lside+full_serif else: rside-full_serif fi; vowelstem; pickup serifpen; top y.stem=h; serifize(y.stem); if bar=1: roundingbar; fi if opcl=0: widecurl else: closebulb fi((x.stem,0),-1,if hor=1: 1 else: -1 fi); if hor=3: if opcl=0: widecurl else: closebulb fi((x.stem,0),-1,1); fi endchar; endfor;endfor; for bar=0,1: for hor=1,2,3: beginchar(incr ccode, 3/2curve#+ if hor=3: 2 fi vowel_curl#+2sidebar#, loop_h#+vowel_asc#,vowel_d#); if hor=3: fix_width; fi x.stem=if hor=3: 1/2[lside,rside] elseif hor=1: lside+full_serif else: rside-full_serif fi; vowelstem; if bar=1: roundingbar; fi if opcl=0: widecurl else: closebulb fi ((x.stem,loop_h),1,if hor=1: 1 else: -1 fi); if opcl=0: widecurl else: closebulb fi((x.stem,0),-1,if hor=2: -1 else: 1 fi); endchar; endfor;endfor; endfor;