mode_setup;
 em#:=10pt#; cap#:=7pt#;
 thin#:=1/3pt#; thick#:=5/6pt#;
 o#:=1/5pt#;
 define_pixels(em,cap);
 define_blacker_pixels(thin,thick);
 define_corrected_pixels(o);
 curve_sidebar=round 1/18em;
 beginchar("S",5/9em#,cap#,0); "The letter S";
   alpha=50; beta=80; gamma=20+180;
   penpos1(.8thick, alpha);
   penpos7(.8thick, alpha);

   penpos2(.1[thin,thick], beta);
   penpos6(thin, beta);

   penpos4(.8thick, beta+180);

   penpos3(.5[thin,thick], gamma);
   penpos5(.4[thin,thick], gamma);

   x1=x5; x5r=w-x3l=curve_sidebar; x7=x3;
   x2=w-x6=.5w; ;x4=.5w;

   y4=.5h;
   y2l=-o;
   y6r=h+o;
   y1=h-y7=.2h; y3=h-y5=.3h;

   %penstroke z1e..z2e..z3e{up}..z4e..{up}z5e..z6e..z7e;
   penstroke z1e..z2e..z3e..z4e..z5e..z6e..z7e;
   penlabels(1,2,3,4,5,6,7);
 endchar;