5 fet_begingroup("floogbars")
7 save flag_angle, flare;
8 save hip_thickness, hip_depth, hip_width;
9 save foot_thickness, foot_depth, foot_width;
13 hip_thickness# = stafflinethickness#;
14 foot_thickness# = blot_diameter#;
15 flare# = 1.0 interline#;
17 hip_depth# = 15/7 interline#;
18 hip_width# = 8/7 interline# + hip_thickness# /2 + stemthickness#/2;
20 foot_depth# = flare# + 15/7 interline#;
21 foot_width# = .885 hip_width#;
25 hip_depth, hip_width, hip_thickness,
26 foot_depth, foot_width, foot_thickness
33 % Inspired by Adobe Sonata,
34 % for example, see POSTSCRIPT Language -- program design,
40 penpos0(stemthickness, 0);
42 penpos2(hip_thickness, 0);
43 penpos3(foot_thickness, 0) ;
44 penpos4(stemthickness, 0);
48 z2 = (hip_width, -hip_depth);
49 z3 = (foot_width, -foot_depth);
52 save bot_dir, bot_path;
55 bot_path := z2{down} .. z3;
56 bot_dir := direction 1 of bot_path;
58 fill z1l{dir -flag_angle} .. z2l{down} ..
59 z3l{bot_dir} .. z3r{-bot_dir} ..
61 z0l{down} -- z4l -- cycle;
68 fet_beginchar("8th Flag (up)", "3u", "eighthflag")
69 set_char_box(stemthickness# /2, hip_width# + hip_thickness#/2,
70 foot_depth# + foot_thickness#/2, stemthickness#/2)
73 penlabels(0, 1, 2, 3, 4);
76 fet_beginchar("8th Flag (down)", "3d", "deighthflag")
77 set_char_box(stemthickness# /2, hip_width# + hip_thickness#/2,
78 foot_depth# + foot_thickness#/2, stemthickness#/2)
84 fet_endgroup("floogbars")