☰

扩大的视野

tag-icon • tag-icon graphics
扩大的视野

我提出问题的依据：如何制作或添加包或功能的选项

是否可以像这样在圆圈里写数字？：

例子

下面是一个最简单的例子，展示了上述内容没有编号：

\documentclass{article}
\usepackage{piano}
\begin{document}

\keyboard[Co][Eo][Gso][Ct][Et]

\end{document}

答案1

这是的修改版本piano.sty，它还添加了您要求的功能。

语法也改变了，但我相信这比添加一堆可选参数更好。

xpiano.sty

\ProvidesPackage{xpiano}[2015/05/21 from piano.sty by Émile Daneault]
\RequirePackage{xcolor}
\usepackage{xparse}

\definecolor{pianodefault}{RGB}{255,127,0}

\ExplSyntaxOn
\NewDocumentCommand{\keyboard}{ m }
 {
  \piano_keyboard:n { #1 }
 }

\keys_define:nn { piano }
 {
  numbers .bool_set:N = \l_piano_numbers_bool,
  color   .tl_set:N  = \l_piano_color_tl,
  one     .tl_set:N  = \l_piano_one_tl,
  two     .tl_set:N  = \l_piano_two_tl,
  three   .tl_set:N  = \l_piano_three_tl,
  four    .tl_set:N  = \l_piano_four_tl,
  five    .tl_set:N  = \l_piano_five_tl,
  six     .tl_set:N  = \l_piano_six_tl,
  seven   .tl_set:N  = \l_piano_seven_tl,
  numbers .initial:n = false,
  color   .initial:n = {pianodefault},
  one     .initial:n = {},
  two     .initial:n = {},
  three   .initial:n = {},
  four    .initial:n = {},
  five    .initial:n = {},
  six     .initial:n = {},
  seven   .initial:n = {},
 }

\cs_new_protected:Npn \piano_keyboard:n #1
 {
  \group_begin:
  \keys_set:nn { piano } { #1 }
  %% Clavier 2 octaves
  \setlength{\unitlength}{0.5cm}
  \begin{picture}(15,4.5)
  %Touches blanches
  \multiput(0,0)(1,0){14}{\line(0,1){4}}

  %Contour
  \put(0,0){\line(0,1){4}}
  \put(0,0){\line(1,0){14}}
  \put(14,0){\line(0,1){4}}
  \put(0,4){\line(1,0){14}}

  %Touches noires
  \linethickness{3mm}
  \multiput(1,4)(1,0){2}{\line(0,-1){3}}
  \multiput(4,4)(1,0){3}{\line(0,-1){3}}
  \multiput(8,4)(1,0){2}{\line(0,-1){3}}
  \multiput(11,4)(1,0){3}{\line(0,-1){3}}
  %Rond de note
  \color{\l_piano_color_tl}
  \__piano_do_key:N \l_piano_one_tl
  \__piano_do_key:N \l_piano_two_tl
  \__piano_do_key:N \l_piano_three_tl
  \__piano_do_key:N \l_piano_four_tl
  \__piano_do_key:N \l_piano_five_tl
  \__piano_do_key:N \l_piano_six_tl
  \__piano_do_key:N \l_piano_seven_tl

  \end{picture}
  \group_end:
 }

\cs_new_protected:Npn \__piano_add_note:nn #1 #2
 {
  \put(#2){\circle*{0.5}}
  \bool_if:NT \l_piano_numbers_bool
   {
    \put(#2){\makebox(0,0){\color{black}\tiny#1}}
   }
 }

\cs_new_protected:Npn \__piano_do_key:N #1
 {
  \str_case:Vn #1
   {
    {}{}% initial case
    {Co}{\__piano_add_note:nn {0}{0.5,0.5}}
    {Do}{\__piano_add_note:nn {2}{1.5,0.5}}
    {Eo}{\__piano_add_note:nn {4}{2.5,0.5}}
    {Fo}{\__piano_add_note:nn {5}{3.5,0.5}}
    {Go}{\__piano_add_note:nn {7}{4.5,0.5}}
    {Ao}{\__piano_add_note:nn {9}{5.5,0.5}}
    {Bo}{\__piano_add_note:nn {11}{6.5,0.5}}
    {Ct}{\__piano_add_note:nn {0}{7.5,0.5}}
    {Dt}{\__piano_add_note:nn {2}{8.5,0.5}}
    {Et}{\__piano_add_note:nn {4}{9.5,0.5}}
    {Ft}{\__piano_add_note:nn {5}{10.5,0.5}}
    {Gt}{\__piano_add_note:nn {7}{11.5,0.5}}
    {At}{\__piano_add_note:nn {9}{12.5,0.5}}
    {Bt}{\__piano_add_note:nn {11}{13.5,0.5}}
    {Cso}{\__piano_add_note:nn {1}{1,1.5}}
    {Dso}{\__piano_add_note:nn {3}{2,1.5}}
    {Fso}{\__piano_add_note:nn {6}{4,1.5}}
    {Gso}{\__piano_add_note:nn {8}{5,1.5}}
    {Aso}{\__piano_add_note:nn {10}{6,1.5}}
    {Cst}{\__piano_add_note:nn {1}{8,1.5}}
    {Dst}{\__piano_add_note:nn {3}{9,1.5}}
    {Fst}{\__piano_add_note:nn {6}{11,1.5}}
    {Gst}{\__piano_add_note:nn {8}{12,1.5}}
    {Ast}{\__piano_add_note:nn {10}{13,1.5}}
   }
 }

\cs_generate_variant:Nn \str_case:nn { V }
\ExplSyntaxOff

测试文件

\documentclass{article}
\usepackage{xpiano}

\definecolor{pianoyellow}{RGB}{127,127,0}

\begin{document}
\keyboard{
  numbers,
  color=red!20,
  one=Co,
  two=Eo,
  three=Gso,
  four=Bo,
  five=Ct
}

\bigskip

\keyboard{
  color=red!20,
  one=Co,
  two=Eo,
  three=Gso,
  four=Bo,
  five=Ct
}

\bigskip

\keyboard{
  one=Cso,
  two=Fso,
}

\bigskip

\keyboard{
  color=pianoyellow,
  one=Cso,
  two=Fso,
}

\end{document}

输出

在此处输入图片描述

扩大的视野

已添加font、size和键。 的默认值为 0.5cm（与原版相同）。 的默认值为。指定单个八度（从 C 到 B）。singlesizefont\tinysingle

也ext可以使用，这会在最右边添加一个 C，但可能只有与 一起使用才有意义single，因为双八度的音符没有名称（但可以添加）。

最后height可以设置；默认值是4，也就是按键宽度的四倍。

在这个版本中，B 调和 B 调不再是 10 和 11，吨和埃生成。命令\keyboardsetup允许设置与生成注释无关的参数值（尊重分组）。因此，您可以在序言中设置类似

\keyboardsetup{
  single,
  size=2cm,
  numbers
}

所有\keyboard命令都将使用这些值，并且不需要指定它们。

xpiano.sty

\ProvidesPackage{xpiano}[2015/05/21 from piano.sty by Émile Daneault]
\RequirePackage{xcolor}
\RequirePackage{xparse}

\definecolor{pianodefault}{RGB}{255,127,0}

\ExplSyntaxOn
\NewDocumentCommand{\keyboard}{ m }
 {
  \piano_keyboard:n { #1 }
 }
\NewDocumentCommand{\keyboardsetup}{ m }
 {
  \keys_set:nn { piano } { #1 }
 }

\keys_define:nn { piano }
 {
  font    .tl_set:N   = \l_piano_fontsize_tl,
  single  .bool_set:N = \l_piano_single_bool,
  ext     .bool_set:N = \l_piano_ext_bool,
  size    .dim_set:N  = \l_piano_size_dim,
  height  .tl_set:N   = \l_piano_height_tl,
  numbers .bool_set:N = \l_piano_numbers_bool,
  color   .tl_set:N   = \l_piano_color_tl,
  one     .tl_set:N   = \l_piano_one_tl,
  two     .tl_set:N   = \l_piano_two_tl,
  three   .tl_set:N   = \l_piano_three_tl,
  four    .tl_set:N   = \l_piano_four_tl,
  five    .tl_set:N   = \l_piano_five_tl,
  six     .tl_set:N   = \l_piano_six_tl,
  seven   .tl_set:N   = \l_piano_seven_tl,
  font    .initial:n  = \tiny,
  single  .initial:n  = false,
  single  .default:n  = true,
  ext     .initial:n  = false,
  ext     .default:n  = true,
  size    .initial:n  = 0.5cm,
  height  .initial:n  = 4,
  numbers .initial:n  = false,
  numbers .default:n  = true,
  color   .initial:n  = {pianodefault},
  one     .initial:n  = {},
  two     .initial:n  = {},
  three   .initial:n  = {},
  four    .initial:n  = {},
  five    .initial:n  = {},
  six     .initial:n  = {},
  seven   .initial:n  = {},
 }

\tl_new:N \l__piano_width_tl

\cs_new_protected:Npn \piano_keyboard:n #1
 {
  \group_begin:
  \keys_set:nn { piano } { #1 }
  \bool_if:NTF \l_piano_ext_bool
   {
    \tl_set:Nx \l__piano_width_tl
     {
      \bool_if:NTF \l_piano_single_bool { 8 } { 15 }
     }
   }
   {
    \tl_set:Nx \l__piano_width_tl
     {
      \bool_if:NTF \l_piano_single_bool { 7 } { 14 }
     }
   }

  %% Clavier 2 octaves
  \setlength{\unitlength}{\l_piano_size_dim}
  \begin{picture}(\l__piano_width_tl,\l_piano_height_tl)
  %Touches blanches
  \multiput(0,0)(1,0){\l__piano_width_tl}{\line(0,1){\l_piano_height_tl}}

  %Contour
  \put(0,0){\line(0,1){\l_piano_height_tl}}
  \put(0,0){\line(1,0){\l__piano_width_tl}}
  \put(\l__piano_width_tl,0){\line(0,1){\l_piano_height_tl}}
  \put(0,\l_piano_height_tl){\line(1,0){\l__piano_width_tl}}

  %Touches noires
  \linethickness{.6\l_piano_size_dim}
  \multiput(1,\l_piano_height_tl)(1,0){2}{\line(0,-1){\fp_eval:n {0.67*\l_piano_height_tl}}}
  \multiput(4,\l_piano_height_tl)(1,0){3}{\line(0,-1){\fp_eval:n {0.67*\l_piano_height_tl}}}
  \bool_if:NF \l_piano_single_bool
   {
    \multiput(8,\l_piano_height_tl)(1,0){2}{\line(0,-1){\fp_eval:n {0.67*\l_piano_height_tl}}}
    \multiput(11,\l_piano_height_tl)(1,0){3}{\line(0,-1){\fp_eval:n {0.67*\l_piano_height_tl}}}
   }
  %Rond de note
  \color{\l_piano_color_tl}
  \__piano_do_key:N \l_piano_one_tl
  \__piano_do_key:N \l_piano_two_tl
  \__piano_do_key:N \l_piano_three_tl
  \__piano_do_key:N \l_piano_four_tl
  \__piano_do_key:N \l_piano_five_tl
  \__piano_do_key:N \l_piano_six_tl
  \__piano_do_key:N \l_piano_seven_tl

  \end{picture}
  \group_end:
 }

\cs_new_protected:Npn \__piano_add_note:nn #1 #2
 {
  \put(#2){\circle*{0.5}}
  \bool_if:NT \l_piano_numbers_bool
   {
    \put(#2){\makebox(0,0){\color{black}\l_piano_fontsize_tl #1}}
   }
 }

\cs_new_protected:Npn \__piano_do_key:N #1
 {
  \str_case:Vn #1
   {
    {}{}% initial case
    {Co}{\__piano_add_note:nn {0}{0.5,0.5}}
    {Do}{\__piano_add_note:nn {2}{1.5,0.5}}
    {Eo}{\__piano_add_note:nn {4}{2.5,0.5}}
    {Fo}{\__piano_add_note:nn {5}{3.5,0.5}}
    {Go}{\__piano_add_note:nn {7}{4.5,0.5}}
    {Ao}{\__piano_add_note:nn {9}{5.5,0.5}}
    {Bo}{\__piano_add_note:nn {$e$}{6.5,0.5}}
    {Ct}{\__piano_add_note:nn {0}{7.5,0.5}}
    {Dt}{\__piano_add_note:nn {2}{8.5,0.5}}
    {Et}{\__piano_add_note:nn {4}{9.5,0.5}}
    {Ft}{\__piano_add_note:nn {5}{10.5,0.5}}
    {Gt}{\__piano_add_note:nn {7}{11.5,0.5}}
    {At}{\__piano_add_note:nn {9}{12.5,0.5}}
    {Bt}{\__piano_add_note:nn {$e$}{13.5,0.5}}
    {Cso}{\__piano_add_note:nn {1}{1,\fp_eval:n {0.5+0.33*\l_piano_height_tl}}}
    {Dso}{\__piano_add_note:nn {3}{2,\fp_eval:n {0.5+0.33*\l_piano_height_tl}}}
    {Fso}{\__piano_add_note:nn {6}{4,\fp_eval:n {0.5+0.33*\l_piano_height_tl}}}
    {Gso}{\__piano_add_note:nn {8}{5,\fp_eval:n {0.5+0.33*\l_piano_height_tl}}}
    {Aso}{\__piano_add_note:nn {$t$}{6,\fp_eval:n {0.5+0.33*\l_piano_height_tl}}}
    {Cst}{\__piano_add_note:nn {1}{8,\fp_eval:n {0.5+0.33*\l_piano_height_tl}}}
    {Dst}{\__piano_add_note:nn {3}{9,\fp_eval:n {0.5+0.33*\l_piano_height_tl}}}
    {Fst}{\__piano_add_note:nn {6}{11,\fp_eval:n {0.5+0.33*\l_piano_height_tl}}}
    {Gst}{\__piano_add_note:nn {8}{12,\fp_eval:n {0.5+0.33*\l_piano_height_tl}}}
    {Ast}{\__piano_add_note:nn {$t$}{13,\fp_eval:n {0.5+0.33*\l_piano_height_tl}}}
   }
 }

\cs_generate_variant:Nn \str_case:nn { V }
\ExplSyntaxOff

测试文件

\documentclass{article}
\usepackage{xpiano}

\definecolor{pianoyellow}{RGB}{127,127,0}

\begin{document}

\setlength{\unitlength}{2pt}

\keyboard{
  numbers,
  height=3,
  color=red!20,
  one=Co,
  two=Eo,
  three=Gso,
  four=Bo,
  five=Ct
}

\bigskip

\keyboard{
  ext,
  color=red!20,
  one=Co,
  two=Eo,
  three=Gso,
  four=Bo,
  five=Ct
}

\bigskip

\keyboard{
  single,
  ext,
  height=3,
  numbers,
  font=\small,
  size=1cm,
  one=Cso,
  two=Fso,
  three=Aso,
  four=Ct,
}

\bigskip

\keyboard{
  color=pianoyellow,
  one=Cso,
  two=Fso,
}

\end{document}

输出

在此处输入图片描述

相关内容