10.10.2003

Das Makro erzeugt ein Raster (Karopapier), in dem in richtiger Höhe der Text gesetzt wird.

Autor: Martin Buchmann gepostet in die DaTeX-Liste

 

\documentclass{article}
\usepackage{calc,multido}
\usepackage{pstricks}

\makeatletter

\newcommand\grid[2]{{%
  \newdimen\xMax \xMax=#2%
  \newdimen\yMax \yMax=#1%
  \newcount\xLines
  \newcount\yLines
  \newdimen\dx \dx=0.5cm \xLines=\xMax \divide\xLines by \dx%
  \newdimen\dy \dy=0.5cm \yLines=\yMax \divide\yLines by \dy%
  \psset{unit=1pt, linecolor=yellow}%
  \advance\xLines by 1%
  \advance\yLines by 1%
  \yMax=\dy \multiply\yMax by \yLines
  \xMax=\dx \multiply\xMax by \xLines
  \advance\xLines by 1%
  \advance\yLines by 1%
  \multido{\rA=0+\strip@pt\dx}{\xLines}{\psline(\rA,0)%
     (\rA,\yMax)}%
  \multido{\rA=0+\strip@pt\dy}{\yLines}{\psline(0,\rA)%
     (\xMax,\rA)}%
}}
\makeatother

\newsavebox\gridbox
\newlength\gridhoehe
\newlength\gridbreite
\newlength\boxbreite
\newcounter{temp}
\newenvironment{dogrid}[1][\linewidth]
{\setlength{\boxbreite}{#1}%
  \begin{lrbox}{\gridbox}\begin{minipage}{\boxbreite}%
  \setlength{\baselineskip}{0.5cm}%
}%
{\end{minipage}\end{lrbox}%
\setlength{\gridhoehe}{\ht\gridbox+\dp\gridbox}%
\setlength{\gridbreite}{\wd\gridbox}%
\noindent%
\raisebox{-\dp\gridbox}{\grid{\gridhoehe}{\gridbreite}}
\usebox{\gridbox}%
}
\begin{document}

\begin{dogrid}
Test Test Test Test Test Test Test Test Test Test Test Test
Test Test Test Test Test Test Test Test Test Test Test Test
Test Test Test Test Test Test Test Test Test Test Test Test
Test Test Test Test Test Test Test Test Test Test Test Test
\end{dogrid}

\end{document}

 

 

Haben Sie noch weiterführende Fragen, so senden Sie bitte eine Email an latex-service.


Loading...