مشکل در شماره دار کردن ابیات یک شعر

Question

با عرض سلام و خسته نباشید.
از کد زیر برای شمار دار کردن ابیات یک شعر استفاده می کنم:

 \newcount\LineNumber \newcount\templinenumber
  \newdimen\linenumberskip \linenumberskip=-0.75em
   \chardef\linestep=1
    \def\poemlinenumber{%
\advance\LineNumber1
\templinenumber=\LineNumber
\computelinenumber
}
\def\computelinenumber{%
\ifnum\templinenumber>\linestep
\advance\templinenumber-\linestep
\expandafter\computelinenumber
\else
\ifnum\templinenumber=\linestep
\leavevmode\rlap{\kern\linenumberskip\footnotesize\the\LineNumber}%
\fi
\fi
    }
   \newenvironment{numberedtraditionalpoem}
   {\everypar{\poemlinenumber}
\begin{traditionalpoem}}
    {\end{traditionalpoem}}

همه چیز خوب پیش می رود و ابیات شماره دار می شوند اما مشکل زمانی ایجاد می شود که جملاتی بین ابیات قرار می دهم و آن جملات هم مثل ابیات شماره گذاری می شوند.
حال سوال اینجاست که چگونه از شماره خوردن جملات جلوگیری کنم به طوری که فقط ابیات شماره گذاری شوند؟
خواهشمندم راهنمایی نمایید.
با سپاس ایام بکام.

Answer 1

وقتی من فایل شما رو اجرا می‌کنم، این خروجی است که من می‌گیرم:

بنابراین ادعای شما:

همه چیز خوب پیش می رود و ابیات شماره دار می شوند اما مشکل زمانی ایجاد می شود که جملاتی بین ابیات قرار می دهم و آن جملات هم مثل ابیات شماره گذاری می شوند.

کاملاً نادرست است. اما در مورد پرسش شما:

چگونه از شماره خوردن جملات جلوگیری کنم به طوری که فقط ابیات شماره گذاری شوند؟

نخست اینکه شما متن را بصورت کاملاً نادرست و ناشیانه در محیط شعر بین ابیات شعر قرار می‌دهید. در پاسخ زیر متنی که بین ابیات شعر و در محیط شعر قرار دارد با استفاده از دستور \interpoemtext قرار داده‌ می‌شود:

\documentclass[a4paper,12pt]{article}
\usepackage[colorlinks=true]{hyperref}
\usepackage{xepersian}
\settextfont[Scale=1.2]{Yas}
\usepackage{bidipoem}
\renewcommand\poemcolsepskip{1cm}
\newcount\LineNumber \newcount\templinenumber
\newdimen\linenumberskip \linenumberskip=-0.75em
\chardef\linestep=1
\def\poemlinenumber{%
	\advance\LineNumber1
	\templinenumber=\LineNumber
	\computelinenumber
}
\def\computelinenumber{%
	\ifnum\templinenumber>\linestep
	\advance\templinenumber-\linestep
	\expandafter\computelinenumber
	\else
	\ifnum\templinenumber=\linestep
	\leavevmode\rlap{\kern\linenumberskip\footnotesize\the\LineNumber}%
	\fi
	\fi
}
\newenvironment{numberedtraditionalpoem}
{\everypar{\poemlinenumber}
	\begin{traditionalpoem}}
{\end{traditionalpoem}}
\makeatletter
\newbox\interpoemtext@box
\newcommand{\interpoemtext}{\PackageError{bidipoem}{Invalid use of \string\interpoemtext}\@eha}
\def\interpoemtext@{%
  \def\interpoemtext##1{%
    \ifvmode\else\\\@empty\fi
    \noalign{%
      \penalty\postdisplaypenalty\vskip\belowdisplayskip
      \setbox\interpoemtext@box\vbox{\normalbaselines
      \everypar{}
       \parfillskip=0pt plus 1fil
        \ifdim\linewidth=\columnwidth
        \else \parshape\@ne \@totalleftmargin \linewidth
        \fi
        \noindent##1\par}%
        \unvbox\interpoemtext@box%
      \penalty\predisplaypenalty\vskip\abovedisplayskip%
    }%
}}
\bidi@preto{\@traditionalpoem}{\interpoemtext@}
\makeatother
\begin{document}
\begin{numberedtraditionalpoem}
ازدست و زبان که برآید & کزعهده ی شکرش بدرآید\\
\interpoemtext{%
ین یک متن آزمایشی است.این یک متن آزمایشی است.این یک متن آزمایشی است.این یک متن آزمایشی است.%
}
ازدست و زبان که برآید & کزعهده ی شکرش بدرآید
\end{numberedtraditionalpoem}

\end{document}

که خروجی آن به شکل زیر خواهد بود:

که همان خروجی خواهد بود که شما می‌خواهید.

نکته: در این پاسخ، پاسخ موجود در این پرسش و پاسخ کمی تغییر داده شده است.

Comments

سرور کارن پهلو:
از پاسخ بسیار حکیمانه‌ي شما کمال تشکر را دارم.

پی نوشت:اگر شما متن اضافه شده توسط بنده را حذف می کردید. خروجی صحیح بود اما وقتی بنده به صورت کاملا ناشیانه متن را بین ابیات قرار دادم با همان خروجی مشکل دار مواجه شدم.
با سپاسی مجدد از شما سرور کارن پهلو

نظر داد 17 مهر 1394

توسط ata hoseini (11 امتیاز)