beginchar(oct"060",.8em#,.7cap#,dth#); "Gorgon*Xamilis*Diplis"; z0 = (.4w,-.3h); addto currentpicture also GOPGON shifted (.45w,.3h); addto currentpicture also XAMHLH; pickup pencircle scaled pt; drawdot z0; drawdot z0 shifted (.2w,0); endchar;