- save hair, bulb_rad, left_fatness;
-
-
- hair# := stafflinethickness#;
- bulb_rad# := 0.4 interline#;
- define_pixels(hair, bulb_rad);
- left_fatness = 0.55;
-
- x1r = x5r;
- y1r = .45 interline;
- z2 = (0, interline);
- z3r = (-left_width, 0);
- z4 = (0, -interline);
- z5r = (right_width - stafflinethickness, -0.4 interline);
-
- penpos1(hair, 0);
- penpos2(stafflinethickness, 90);
- penpos3(left_fatness * interline, 180);
- penpos4(stafflinethickness, -90);
- penpos5(hair, -5);
-
- draw_bulb(-1, z1l, z1r, bulb_rad, .8);
-
- fill z1l{up} .. z2l{left} .. z3l{down} .. z4l{right} ..
- simple_serif(z5l, z5r, -90) ..
- z4r{left} .. z3r{up} .. z2r{right} .. z1r -- cycle;
-
-% labels(1,2,3,4,5);
- penlabels(1,2,3,4,5);
-enddef;
+ save hair, bulb_rad, left_fatness;
+ save left_width, right_width;
+ save width, lower_offset;