[cstex] Pomoc s boxem

[Robert Marik]

Pekne poledne, dalo by se treba ulozit definici do boxu a potom
poskladat hlavicku, svislou caru a text definice.

Zkusil jsem neco nabusit, urcite by se dal kod
procistit,optimalizovat, vylepsit, nemichat plain a LaTeX apod. Ale
funguje  a muze to byt odrazovy mustek k vlastnimu vylepseni
(optimalne po precteni kapitoly jak TeX pracuje s boxy a linkami treba
v TeXbooku naruby).

Kod nize ale pro jistotu a kvuli lamani radku v ruznych postovnich
klientech i na http://user.mendelu.cz/marik/temp/strmiska.tex

S pozdravem R. Marik

-------------------------------------------------------------------------

\documentclass{report}
\usepackage{lipsum}
\usepackage{amsmath,xcolor}
\usepackage[czech]{babel}
\usepackage[T1]{fontenc}
\usepackage[latin2]{inputenc}


\colorlet{vnitrek}{red!50}
\colorlet{okraj}{red!90}
\colorlet{barvatextu}{white}


\newdimen\sirka
\newdimen\okraj \okraj=10pt
\newdimen\sirkaB \sirkaB=3pt
\sirka=\linewidth

\fboxrule=4pt

\advance\sirka by -2\okraj
%\advance\sirka by -2\fboxrule
\advance\sirka by -\sirkaB


\newcounter{definice}[section]
\def\thedefinice{\thesection.\arabic{definice}}
\newbox\definicebox

\newenvironment{definice}{\par\medskip\refstepcounter{definice}%
\setbox\definicebox=\vbox
\bgroup\fboxsep\okraj
\vbox\bgroup\kern
5pt\begin{minipage}{\sirka}}{\end{minipage}\vspace*{5pt}\egroup\egroup

\vbox{%
\lineskip=0pt\hbox{\colorbox{okraj}{\quad\textsf{\color{barvatextu}\footnotesize\bfseries
DEFINICE \thedefinice\quad}}}% nadpis
\hbox{{\color{okraj}\vrule height \ht\definicebox depth
\dp\definicebox width \sirkaB}% levy kraj
\hbox to 0 pt{\color{vnitrek}\vrule height\ht\definicebox
depth\dp\definicebox width\wd\definicebox \hss}%barva pod definici
\box\definicebox
}
}
\par\medskip
}


\begin{document}


\chapter{Diferenciální rovnice}
\section{Elementární diferenciální rovnice}
\lipsum[1]

\begin{definice}
  Rovnice
  \begin{equation}
    \label{eq:sep}
    y'=f(x)
  \end{equation}
  se spojitou funkcí $f$ je rovnice \textbf{pøímo integrovatelná}.
\end{definice}

\lipsum[2]

\begin{definice}
  Rovnice
  \begin{equation}
    \label{eq:sep}
    y'=f(x)g(y)
  \end{equation}
  se spojitou funkcí $f$ je rovnice \textbf{\dots}.
\end{definice}


\end{document}


-----
-----

2015-03-09 21:45 GMT+01:00 Martin Strmiska <martinstrmiska at me.com>:
> Dobrý večer,
> jak udělám následující box?
>
> https://www.dropbox.com/s/jzakna3vf1qo6fg/xxx.tiff?dl=0
>
> Díky moc, za pomoc. :)
> _______________________________________________
> csTeX mailing list
> csTeX at cs.felk.cvut.cz
> https://lists.felk.cvut.cz/mailman/listinfo/cstex