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