summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/context/third/construction-plan/t-construction-plan.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/context/third/construction-plan/t-construction-plan.tex')
-rw-r--r--Master/texmf-dist/tex/context/third/construction-plan/t-construction-plan.tex153
1 files changed, 0 insertions, 153 deletions
diff --git a/Master/texmf-dist/tex/context/third/construction-plan/t-construction-plan.tex b/Master/texmf-dist/tex/context/third/construction-plan/t-construction-plan.tex
deleted file mode 100644
index b8dd9bea556..00000000000
--- a/Master/texmf-dist/tex/context/third/construction-plan/t-construction-plan.tex
+++ /dev/null
@@ -1,153 +0,0 @@
-%D \enableregime[utf]
-%D \module
-%D [ file=t-construction-plan,
-%D version=2006.09.12,
-%D title=\CONTEXT\ User Module,
-%D subtitle=Construction plans,
-%D author=Peter Münster,
-%D date=\currentdate,
-%D copyright={Peter Münster}]
-%C This module is copyrighted by Peter Münster.
-%C Please send any comments to pmrb at free.fr.
-
-% This program is free software; you can redistribute it and/or
-% modify it under the terms of the GNU General Public License
-% as published by the Free Software Foundation; either version 2
-% of the License, or (at your option) any later version.
-
-% This program is distributed in the hope that it will be useful,
-% but without any warranty; without even the implied warranty of
-% merchantability or fitness for a particular purpose. See the
-% GNU General Public License for more details.
-
-\writestatus{loading}{Typesetting construction plans}
-
-\unprotect
-
-%D We need a lot of space.
-\setuplayout[header=0pt,footer=0pt,backspace=2cm,width=middle,
- topspace=1cm,height=middle]
-
-%D Doing pagenumbering on our own.
-\setuppagenumbering[state=stop]
-
-%D \enableregime[utf]
-%D \macros
-%D {setupPlan}
-%D
-%D Setting up some values.
-%D
-%D Default setup:
-%D
-%D \starttyping
-%D \setupPlan[Paper=A3,Project=,Author=,Prec=10]
-%D \stoptyping
-%D
-%D Example:
-%D
-%D \starttyping
-%D \setupPlan[Paper=A3,Project=My garage,Author=Peter Münster,
-%D Prec=Precision factor for figure width]
-%D \stoptyping
-\def\setupPlan[#1]{\getparameters[Cp][#1]}
-\setupPlan[Paper=A4,Project=,Author=,Date=,Prec=10]
-
-%D Support for more than one language!
-\setuplabeltext[fr][project=Projet,author=Auteur,date=Date,scale=\'Echelle]
-\setuplabeltext[en][project=Project,author=Author,date=Date,scale=Scale]
-\setuplabeltext[de][project=Projekt,author=Autor,date=Datum,scale=Ma\ssharp
- stab]
-
-%D \macros
-%D {Plan}
-%D
-%D Makes a page with a plan and some comments below it.
-%D
-%D Example:
-%D
-%D \starttyping
-%D \Plan[Prefix=file prefix,Scale=scale of figure,mm=width of figure in mm,
-%D Title=title of plan]
-%D \stoptyping
-%D
-%D If you want to include the file \type{plan-20000.eps} you have to use
-%D \type{Prefix=plan,mm=20000}.
-%D
-%D Sample document:
-%D
-%D \starttyping
-%D \usemodule[construction-plan]
-%D \mainlanguage[fr] % or better: \usemodule[french]
-%D \starttext
-%D \Plan[Prefix=situ,Scale=2000,mm=351000,Title=Plan de situation]
-%D \Plan[Prefix=masse,Scale=400,mm=66000,Title=Plan de masse]
-%D \Plan[Prefix=nord,Scale=100,mm=20906,Title=Façade nord]
-%D \Plan[Prefix=sud,mm=18900,Title=Façade sud]
-%D \Plan[Prefix=west,mm=23390,Title=Pignon ouest]
-%D \Plan[Prefix=ost,mm=23513,Title=Pignon est]
-%D \Plan[Prefix=rdc,mm=18456,Title=Rez-de-chaussée]
-%D \Plan[Prefix=etage,mm=16695,Title=Étage]
-%D \Plan[Prefix=haus1,Scale=150,mm=30000,Title=Simulation 1]
-%D \Plan[Prefix=haus2,Scale=100,mm=20000,Title=Simulation 2]
-%D \stoptext
-%D \stoptyping
-
-\def\@BottomLine{{\tx\doifsomething\CpProject{%
- \labeltext{project}: \CpProject, }%
- \doifsomething\CpAuthor{\labeltext{author}: \CpAuthor, }%
- \labeltext{date}: \doifelsenothing\CpDate\currentdate\CpDate}\hfill}
-
-\newdimen\CpWidth \newdimen\CpHeight
-\def\Plan[#1]{%
- \getparameters[Cp][#1]
- \CpWidth=\dimexpr(\the\numexpr(\CpPrec*\Cpmm/\CpScale)mm/\CpPrec)
- \def\CpFig{\externalfigure[\CpPrefix-\Cpmm][width=\the\CpWidth]}%
- \setbox\scratchbox\hbox{\CpFig}\CpHeight=\ht\scratchbox
- \ifdim\CpWidth>1.2\CpHeight
- \setuppapersize[\CpPaper,landscape,rotated][\CpPaper]
- \else
- \setuppapersize[\CpPaper][\CpPaper]
- \fi
- \startstandardmakeup
- \midaligned{\CpFig}\vfil\@BottomLine
- \framed[align=lohi,offset=2ex]{{\bfc\CpTitle}\blank
- \labeltext{scale}: 1/\CpScale\quad\hfill(\currentpage/\lastpage)}%
- \vskip0pt plus -1fil
- \stopstandardmakeup}
-
-%D \macros
-%D {NoPlan}
-%D
-%D Makes a page with some content and some comments below it.
-%D
-%D Example:
-%D
-%D \starttyping
-%D \NoPlan[Title=Some notes]{Here are some notes about the plans.}
-%D \stoptyping
-
-\long\def\NoPlan[#1]#2{%
- \getparameters[Cp][#1]
- \setuppapersize[\CpPaper][\CpPaper]
- \startstandardmakeup
- #2\vfil\@BottomLine
- \framed[align=lohi,offset=2ex]{{\bfc\CpTitle}\blank
- (\currentpage/\lastpage)}\vskip0pt plus -1fil
- \stopstandardmakeup}
-
-\protect
-
-\doifnotmode{demo}{\endinput}
-
-%D Usage example:
-\usemodule[construction-plan]
-\mainlanguage[de]
-\enableregime[il1]
-\setupPlan[Paper=A3,Project=Mein Haus,Prec=15]
-\starttext
-\Plan[Prefix=unten,Scale=100,mm=21478,Title=Erdgeschoß]
-\Plan[Prefix=oben,mm=21345,Title=Obergeschoß]
-\Plan[Prefix=simulation,Scale=250,mm=80000,Title=Simulation]
-\NoPlan[Title=Notizen,Paper=A4]{\tfb\setupinterlinespace
- Einige Notizen, die das Bauvorhaben beschreiben...}
-\stoptext