#include "debug.hh"
#include "my-lily-parser.hh"
+static bool version_ignore_b = false;
Sources* source_l_g = 0;
bool only_midi = false;
-bool version_ignore_b_ = false;
+bool experimental_features_global_b = false;
int exit_status_i_;
void destill_inname (String &name_str_r);
{1, "output", 'o'},
{0, "warranty", 'w'},
{0, "help", 'h'},
+ {0, "test", 't'},
{0, "debug", 'd'},
{1, "init", 'i'},
{1, "include", 'I'},
" -h, --help this help\n"
" -w, --warranty show warranty and copyright\n"
" -o, --output=FILE set FILE as default output\n"
+ " -t, --test switch on experimental features\n"
" -M, --midi produce midi output only\n"
" -V, --ignore-version ignore mudela version\n"
"\n"
source_l_g->set_path (&path);
{
My_lily_parser parser (source_l_g);
- parser.set_version_check (version_ignore_b_);
+ parser.set_version_check (version_ignore_b);
parser.parse_file (init_str, file_str);
exit_status_i_ |= parser.error_level_i_;
}
{
switch (opt->shortname)
{
+ case 't':
+ experimental_features_global_b = true;
+ break;
case 'o':
set_default_output (oparser.optional_argument_ch_C_);
break;
exit (0);
break;
case 'V':
- version_ignore_b_ = true;
+ version_ignore_b = true;
break;
case 'd':
set_debug (true);
% part of LilyPond's pretty-but-neat music font
fet_begingroup("nummer")
+code := 47;
define_pixels(height,thick,norm,thin,hair);
foot_top#:=2thin#;
penpos5(norm-hair,180);
z5r=(0,y1);
penpos6(hair,90);
- z6r=(w-norm,h);
+ z6r=(w-norm-hair,h);
penpos7(norm-hair,180);
z7r=(0,h/2);
penpos10(norm-hair,180);
penpos6(thin,90);
z6r=(w/2-thin-hair,h);
penlabels(4,5,6);
- fill z1l{dir(beta)}..z4l{dir(15)}..z5r{up}..z6r{left}
+ fill z1l{dir(beta)}..z4l{dir(15)}..z5r{up}..
+ tension 0.9 ..
+ z6r{left}
..z6l{right}..z5l{down}..z4r{dir(180+15)}
..{dir(180+beta)}z1r..cycle;
draw_flare(z6r,180,90,thin,thick);
save beta; beta=alpha-15;
z1=(w/2,h/2+hair);
penpos2(hair,90+180+beta);
- z2=(w/4,h/2+thin);
- z3=(0,h/4+thin/2);
+ z2=(w/3,h/2+thin);
+ penpos3(thin+hair,0);
+ z3l=(0,h/4+thin/2);
penpos4(hair,90);
z4l=(x1,0);
penpos5(norm,90+90+alpha);
z6=z1+w/4*dir(90+alpha);
penpos7(hair,90);
z7r=(x1,h);
- z8=(w-hair,3/4h+thin/2);
+ penpos8(thin+hair,0);
+ z8r=(w-hair,3/4h+thin/2);
penpos9(hair,90+180+beta);
- z9=(3/4w,h/2);
+ z9=(2/3w,h/2);
penlabels(1,2,3,4,5,6,7,8,9);
save t; t=0.85;
- fill z2r{dir(180+beta)}..tension t..z4r{right}..z5r{dir(90+alpha)}..z6r{dir(90+alpha)}..tension t..z7r{right}..z8{down}..z9r{dir(180+beta)}..z9l{dir(beta)}..tension t..z7l{left}..z6l{dir(alpha-90)}..z5l{dir(alpha-90)}..tension t..z4l{left}..z3{up}..z2l{dir(beta)}..cycle;
+ fill z2r{dir(180+beta)}..z3r{down}..z4r{right}
+ ..z5r{dir(90+alpha)}..z6r{dir(90+alpha)}
+ ..tension t..z7r{right}..z8r{down}..z9r{dir(180+beta)}
+ ..z9l{dir(beta)}..z8l{up}..z7l{left}..z6l{dir(alpha-90)}
+ ..z5l{dir(alpha-90)}..tension t..z4l{left}..z3l{up}
+ ..z2l{dir(beta)}..cycle;
fet_endchar;
fet_beginchar("Numeral 9", "9", "nine")