-
-
-fet_beginchar ("open", "open.01");
- set_char_box (staff_space#, 1.6 linethickness# / 2,
- 0.5 staff_space#, 0.5 staff_space#);
- set_arrow_paths (staff_space, 0.5 staff_space,
- 1.0, 1.6 linethickness);
- fill open_path;
- open_path := open_path yscaled -1;
- fill open_path;
-
- penlabels (1, 2, 3);
- penlabels (4, 5, 6);
-fet_endchar;
-
-
-fet_beginchar ("open", "open.0M1");
- set_char_box (1.6 linethickness# / 2, staff_space#,
- 0.5 staff_space#, 0.5 staff_space#);
- set_arrow_paths (staff_space, 0.5 staff_space,
- 1.0, 1.6 linethickness);
- fill open_path;
- open_path := open_path yscaled -1;
- fill open_path;
- currentpicture := currentpicture xscaled -1;
-fet_endchar;
-
-
-fet_beginchar ("open", "open.11");
- set_char_box (.5 staff_space#, .5 staff_space#,
- 1.0 staff_space#, 1.6 linethickness# / 2);
- set_arrow_paths (staff_space, 0.5 staff_space,
- 1.0, 1.6 linethickness);
- fill open_path;
- open_path := open_path yscaled -1;
- fill open_path;
- currentpicture := currentpicture rotated 90;
-fet_endchar;
-
-
-fet_beginchar ("open", "open.1M1");
- set_char_box (.5 staff_space#, .5 staff_space#,
- 1.6 linethickness# / 2, 1.0 staff_space#);
- set_arrow_paths (staff_space, 0.5 staff_space,
- 1.0, 1.6 linethickness);
- fill open_path;
- open_path := open_path yscaled -1;
- fill open_path;
- currentpicture := currentpicture rotated 90;
- currentpicture := currentpicture yscaled -1;
-fet_endchar;
-
-
-fet_beginchar ("close", "close.01");
- set_char_box (staff_space#, 0, 0.5 staff_space#, 0.5 staff_space#);
- set_arrow_paths (staff_space, 0.5 staff_space, 1.5, blot_diameter);
- fill close_path;
- close_path := close_path yscaled -1;
- fill close_path;
-fet_endchar;
-
-
-fet_beginchar ("close", "close.0M1");
- set_char_box (0, staff_space#, 0.5 staff_space#, 0.5 staff_space#);
- set_arrow_paths (staff_space, 0.5 staff_space, 1.5, blot_diameter);
- fill close_path;
- close_path := close_path yscaled -1;
- fill close_path;
- currentpicture := currentpicture xscaled -1;
-fet_endchar;
-
-
-fet_beginchar ("close", "close.11");
- set_char_box (.5 staff_space#, .5 staff_space#,
- 1.0 staff_space#, 0.0 staff_space#);
- set_arrow_paths (staff_space, 0.5 staff_space, 1.5, blot_diameter);
- fill close_path;
- close_path := close_path yscaled -1;
- fill close_path;
- currentpicture := currentpicture rotated 90;
-fet_endchar;
-
-
-fet_beginchar ("close", "close.1M1");
- set_char_box (.5 staff_space#, .5 staff_space#,
- 0.0 staff_space#, 1.0 staff_space#);
- set_arrow_paths (staff_space, 0.5 staff_space, 1.5, blot_diameter);
- fill close_path;
- close_path := close_path yscaled -1;
- fill close_path;
- currentpicture := currentpicture rotated -90;
-fet_endchar;
-
-
-fet_endgroup ("arrowheads");