Source Code

\documentclass[dvips]{article}     \usepackage[sven]{tex4ht}
 %\usepackage[dvips]{color}
 \usepackage{psboxit}
 \usepackage{german}
 \usepackage{a4}
 \parskip0.6\baselineskip
 \parindent0pt
 \usepackage{rcs}
 \RCS$Id: planung.tex,v 1.3 2001/02/05 17:15:24 utcke Exp utcke $
 \RCS$Date: 2001/02/05 17:15:24 $
 \usepackage{fancyheadings}
 \pagestyle{fancyplain}
 %\addtolength{\headwidth}{\marginparsep}
 %\addtolength{\headwidth}{\marginparwidth}
 \addtolength{\headheight}{3pt}
 \addtolength{\headsep}{10pt}
 \addtolength{\textheight}{-13pt}
 %\renewcommand{\sectionmark}[1]{\markboth{#1}{#1}} % remember chapter title
 \renewcommand{\sectionmark}[1]{\markboth{#1}{#1}} % remember chapter title
 \renewcommand{\subsectionmark}[1]{\markright{\thesubsection\ #1}} % section number and title
 \lhead[\fancyplain{}{\sl\thepage\/}]{\fancyplain{}{\sl\rightmark}}
 \rhead[\fancyplain{}{\sl\leftmark}]{\fancyplain{}{\sl\thepage\/}}
 \lfoot{}
 \cfoot{\RCSId}
 \rfoot{}
 
 \usepackage{TeXProject}
 
 % Print something using Format #3 if #1<#2
 \newcommand{\BeforeFormat}[3]{
   \let\fm=\relax
   \ifnum #1 < #2 \let\fm=#3 \fi\fm
 }
 
 \newcommand{\describeproject}[1]{
   \newpage
   \filtercommand\name{#1}\subsection{\putcommand}
   \begin{description}
     \rapply{#1,\Milestonechild,\Projectchild,\Taskchild}
   \end{description}
   }
 \newcommand{\Milestonechild}[5]{\child{#1}{#4}}
 \newcommand{\Projectchild}[5]{\child{#1}{#4}}
 \newcommand{\Taskchild}[7]{\child{#1}{#6}}
 \newcommand{\child}[2]{\ifnum 1=\depth
   \setnumericdate\Start{#1,start}
   \setnumericdate\Finish{#1,finish}
   \ifnum\Finish<\Current\let\fm=\sl\let\ft=\sl
   \else\ifnum\Start<\Current\let\fm=\bf\let\ft=\rm
   \else\let\fm=\rm\let\ft=\rm
   \fi\fi
 \item[{\fm #1:}]\ft\annotation{#1}: \contributions{#1},
   \dependents{#1}
 \fi}
 
 
 \def\dependents#1{%
   \sapply{d,before,{#1}}%
   \loop
   \sapply{new,before,d}%
   \sapply{new,subtract,new,d}%
   \ifnum \breadth>0
   \sapply{d,merge,d,new}%
   \repeat
   \sapply{d,sort,d}%
   \ifnum \breadth>0
   [\sapply{d,{\ifnum\breadth>1, \fi}}]%
   \fi
   }
 
 \begin{document}
 \PScommands
 \newproject
 
 \defproject{haus}               % Tag
 {Haus}                          % Name
 {kg,eg,og}                      % Members
 {}                              % Dependencies
 {Haus renovieren}               % Description
 
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %                                                                      %
 %                                Keller                                %
 %                                                                      %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
 \defproject{kg}                 % Tag
 {Keller}                        % Name
 {hk,kg.h,kg.b,kg.w,kg.g,kg.f,kg.so} % Members
 {}                              % Dependencies
 {Keller renovieren}             % Description
 
 %'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 %                          Hauswirtschaftsraum                         %
 %.......................................................................
 
 \defproject{kg.h}
 {Hauswirtschaftsraum}
 {kg.h.1,kg.h.2,kg.h.3,kg.h.h}
 {}
 {Hauswirtschaftsraum renovieren}
 
 \deftask{kg.h.1}{Schrank}{20/01/01}{21/01/01}{Sven:1}  {}      {Schrank um Gasz"ahler abbauen}
 \deftask{kg.h.2}{Brett}  {20/01/01}{21/01/01}{Sven:0.3}{kg.h.1}{Brett unter der Decke abbauen}
 \deftask{kg.h.3}{T"ur}   {1/3/1}   {31/12/01}{Sven:3}  {}      {T"ur zum Eiskeller aufarbeiten}
 \deftask{kg.h.h}{Heizung}{29/01/01}{16/02/01}{Profi:2} {kg.h.2}{Heizung einbauen}
 
 %'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 %                            Heizungskeller                            %
 %.......................................................................
 
 \defproject{hk}
 {Heizungskeller}
 {hk.4,hk.8,hk.9,hk.10,hk.11,hk.12,hk.5,hk.6,hk.7,hk.13,hk.15,hk.16,hk.17,hk.18,hk.19,hk.20,hk.21,hk.22,hk.23,hk.24,hk.25,hk.26,hk.27,hk.28,hk.29,hk.30,hk.31,hk.32,hk.33}
 {}
 {Heizungskeller renovieren}
 
 \deftask{hk.4} {Geschirr}                  {20/01/01}{21/01/01}{Gabi:3}             {}                 {Geschirr ausr"aumen}
 \deftask{hk.8} {Decke ab}                  {21/01/01}{22/01/01}{Sven:1.0}           {hk.9}             {Je 3 Bretter von jeder Seite der Decke entfernen}
 \deftask{hk.9} {Ver\-klei\-dung}               {20/01/01}{21/01/01}{Sven:0.5,Gabi:0.2}  {}                 {Verkleidung Oberhalb der Oberschr"anke entfernen}
 \deftask{hk.10}{Ober\-schr"anke rechts}    {20/01/01}{21/01/01}{Sven:0.5}           {hk.9,hk.4}        {Oberschr"anke rechts abnehmen}
 \deftask{hk.11}{Unter\-schr"anke links}    {20/01/01}{21/01/01}{Sven:0.15,Gabi:0.25}{hk.4}             {Unterschr"anke um die Heizung entfernen} % G 0.25, S 0.15
 \deftask{hk.12}{Unter\-schr"anke rechts}   {01/03/01}{31/12/01}{Sven:3,Gabi:3}      {hk.4}             {Unterschr"anke unter dem Fenster entfernen} % S 0.25
 \deftask{hk.5} {Wand}                      {01/03/01}{31/12/01}{Sven:5,Gabi:5}      {hk.12}            {Wand trockenlegen, tapezieren und malen}
 \deftask{hk.6} {einbauen}                  {01/03/01}{31/12/01}{Sven:8,Gabi:8}      {hk.5}             {Unterschr"anke wieder einbauen}
 \deftask{hk.7} {Sperr\-m"ull}                {01/03/01}{31/12/01}{Sven:0.5,Gabi:0.5}  {hk.12}            {Sperrm"ull f"ur die K"uhlschr"anke}
 \deftask{hk.15}{Tapeten entfernen}         {01/03/01}{31/12/01}{Gabi:2}             {hk.19}            {Tapeten entfernen}
 \deftask{hk.16}{Decke an}                  {01/03/01}{31/12/01}{Sven:1,Gabi:3}      {hk.13}            {Decke anbringen und streichen}
 \deftask{hk.17}{Streichen}                 {01/03/01}{31/12/01}{Gabi:2}             {hk.18}            {W"ande streichen}
 \deftask{hk.18}{Verputzen}                 {01/03/01}{31/12/01}{Sven:3}             {hk.15}            {W"ande stellenweise neu verputzen}
 \deftask{hk.19}{Oberschr"anke links}       {01/03/01}{31/12/01}{Sven:0.2,Gabi:1}    {}                 {Oberschr"anke "uber dem Herd abnehmen}
 \deftask{hk.20}{Arbeitsplatte}             {01/03/01}{31/12/01}{Sven:3,Gabi:1}      {hk.6}             {Neue Arbeitsplatte einbauen}
 \deftask{hk.21}{Fliesen links reinigen}    {3/2/1}   {4/2/1}   {Gabi:2}             {hk.11}            {Fliesen an der Wand zum Schornstein und zum Hof reinigen}
 \deftask{hk.22}{Fliesen links vorstreichen}{3/2/1}   {4/2/1}   {Gabi:3}             {hk.21}            {Fliesen an der Wand zum Schornstein und zum Hof vorstreichen}
 \deftask{hk.23}{Fliesen links streichen}   {4/2/1}   {5/2/1}   {Gabi:2}             {hk.22}            {Fliesen an der Wand zum Schornstein und zum Hof, erster Anstrich}
 \deftask{hk.24}{Fliesen streichen}         {1/3/1}   {31/12/1} {Gabi:10}            {hk.23,hk.10,hk.12}{Alle Fliesen wei"s und Grau streichen}
 \deftask{hk.13}{Sanit"ar}                  {5/2/1}   {28/02/01}{Profi:6}            {hk.10,hk.8}       {Wasser und Abwasser f"ur unten, oben und Waschmaschine}
 \deftask{hk.25}{Kessel}                    {5/2/1}   {28/2/1}  {Profi:3}            {hk.23}            {Kessel an der Wand montieren}
 \deftask{hk.26}{Wasserspeicher}            {13/2/1}  {28/2/1}  {Profi:3}            {hk.23,hk.32}      {Wasserspeicher aufstellen}
 \deftask{hk.27}{Heiz\-k"or\-per}           {5/2/1}   {16/2/1}  {Profi:2}            {hk.23}            {Heizk"orper montieren}
 \deftask{hk.28}{Gasanschlu"s}              {12/2/1}  {13/2/1}  {Profi:2}            {hk.8}             {Gasanschlu"s neu legen}
 \deftask{hk.29}{Wasseranschlu"s}           {12/2/1}  {16/2/1}  {Profi:5}            {hk.8,hk.33}       {Wasseranschlu"s neu legen}
 \deftask{hk.30}{Heizungsanschlu"s}         {12/2/1}  {16/2/1}  {Profi:2}            {hk.8}             {Vor- und R"ucklauf neu legen}
 \deftask{hk.31}{Solaranschlu"s}            {16/2/1}  {28/2/1}  {Profi:2}            {hk.8}             {Solarkreislauf neu legen}
 \deftask{hk.32}{Sockel}                    {12/2/1}  {13/2/1}  {Sven:1.5}           {}                 {Ein St"uck vom Sockel f"ur den Warmwasserspeicher entfernen}
 \deftask{hk.33}{Loch Arbeitsplatte}        {12/2/01} {13/2/01} {Sven:0.5}           {}                 {Loch in die alte Arbeitsplatte schneiden}
 
 %'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 %                            Billiardraum                              %
 %.......................................................................
 
 \defproject{kg.b}
 {Billiardraum}
 {kg.b.1,kg.b.2,kg.b.3,kg.b.4,kg.b.5,kg.b.6,kg.b.7,kg.b.8,kg.b.9,kg.b.10,kg.b.11,kg.b.12,kg.b.h}
 {}
 {Billiardraum renovieren}
 
 \deftask{kg.b.1} {M"obel entfernen}{07/01/01}{08/01/01}{Gabi:1.5,Corinna:1.5,Markus:1.5}{}                    {M"obel in die Schlachterei tragen}
 \deftask{kg.b.2} {Rostschutz}      {01/03/01}{31/12/01}{Sven:3,Gabi:3}                  {}                    {Rostschutz auf Tr"ager auftragen}
 \deftask{kg.b.3} {Strom planen}    {27/01/01}{31/12/01}{Sven:3}                         {}                    {Strom planen}
 \deftask{kg.b.4} {Kabel}           {1/3/01}  {31/12/01}{Sven:8}                         {kg.b.3,kg.b.12}      {Stromkabel verlegen}
 \deftask{kg.b.5} {Wand}            {01/03/01}{31/12/01}{Sven:16,Gabi:16}                {kg.b.8,kg.b.4,kg.b.9}{Wand t"afeln / tapezieren / streichen}
 \deftask{kg.b.6} {Tisch}           {01/03/01}{31/12/01}{Sven:2}                         {kg.b.8}              {Billiardtisch kaufen und aufstellen}
 \deftask{kg.b.7} {Lampe}           {01/03/01}{31/12/01}{Sven:2}                         {kg.b.6}              {Lampe f"ur Billiardtisch kaufen und aufh"angen}
 \deftask{kg.b.8} {Boden}           {01/03/01}{31/12/01}{Profi:2}                        {}                    {Poden polieren}
 \deftask{kg.b.9} {Decke}           {01/03/01}{31/12/01}{Profi:2}                        {kg.b.2}              {Decke verputzen}
 \deftask{kg.b.10}{Schiebet"ur}     {01/03/01}{31/12/01}{Sven:10}                        {}                    {Schiebet"ur zur Goldschmiede-Werkstatt aufarbeiten}
 \deftask{kg.b.11}{Kellert"ur}      {01/03/01}{31/12/01}{Sven:10}                        {}                    {Kellert"ur nach dr"au"sen aufarbeiten}
 \deftask{kg.b.12}{Kabel entfernen} {10/02/01}{31/12/01}{Sven:4}                         {}                    {Stromkabel entfernen} %Sven 1
 \deftask{kg.b.h} {Heizung}         {29/01/01}{16/02/01}{Profi:5}                        {kg.b.1}              {Heizung einbauen}
 
 %'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 %                       Goldschmiede-Werkstatt                         %
 %.......................................................................
 
 \defproject{kg.w}
 {Goldschmiede-Werkstatt}
 {kg.w.1,kg.w.2,kg.w.3,kg.w.4,kg.w.5,kg.w.6,kg.w.7,kg.w.h}
 {}
 {Goldschmiede-Werkstatt renovieren}
 
 \deftask{kg.w.1}{Strom planen}  {1/2/1}{5/2/1}  {Sven:3}          {}      {Strom planen}
 \deftask{kg.w.2}{Kabel}         {3/2/1}{31/12/1}{Sven:8}          {kg.w.1}{Kabel verlegen} % 2
 \deftask{kg.w.3}{Fenster}       {1/4/1}{31/12/1}{Profi:10}        {}      {Neues Fenster einbauen}
 \deftask{kg.w.4}{T"ur}          {1/4/1}{31/12/1}{Profi:10,Sven:10}{}      {Neue T"ur einbauen oder vorhandene aufarbeiten}
 \deftask{kg.w.5}{Fliesen}       {1/4/1}{31/12/1}{Gabi:12}         {}      {Fliesen streichen}
 \deftask{kg.w.6}{T"urrahmen}    {1/4/1}{31/12/1}{Sven:6}          {}      {T"urrahmen zum Flur aufarbeiten}
 \deftask{kg.w.7}{Wand streichen}{1/4/1}{31/12/1}{Sven:6,Gabi:6}   {}      {Wand neu streichen}
 \deftask{kg.w.h}{Heizung}       {19/2/1}{28/2/1} {Profi:2}         {kg.w.2}      {Heizung einbauen}
 
 %'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 %                        Gang zum Fittnessraum                         %
 %.......................................................................
 
 \defproject{kg.g}
 {Gang}
 {kg.g.1,kg.g.2,kg.g.3,kg.g.4,kg.g.5,kg.g.6,kg.g.7,kg.g.8,kg.g.h,kg.g.s}
 {}
 {Gang zum Fittnessraum renovieren}
 
 \deftask{kg.g.1}{Strom planen}     {1/2/1}{5/2/1}  {Sven:3}       {}      {Strom planen}
 \deftask{kg.g.2}{Kabel}            {3/2/1}{5/2/1}  {Sven:5}       {kg.g.1}{Kabel verlegen} % 2
 \deftask{kg.g.3}{Fliesen}          {1/4/1}{31/12/1}{Gabi:12}      {}      {Fliesen streichen}
 \deftask{kg.g.4}{Fenster schleifen}{1/4/1}{31/12/1}{Sven:3,Gabi:3}{}      {Fenster abschleifen und abbrennen}
 \deftask{kg.g.5}{Fenster streichen}{1/4/1}{31/12/1}{Sven:2,Gabi:2}{kg.g.4}{Fenster streichen}
 \deftask{kg.g.6}{Wand streichen}   {1/4/1}{31/12/1}{Gabi:12}      {}      {Wand streichen}
 \deftask{kg.g.7}{T"ur verkaufen}   {1/4/1}{31/12/1}{Gabi:2}       {}      {K"uhlraum-T"ur 1 verkaufen}
 \deftask{kg.g.8}{T"ur aufarbeiten} {1/4/1}{31/12/1}{Sven:20}      {}      {K"uhlraum-T"ur 2 aufarbeiten}
 \deftask{kg.g.h}{Heizung}          {5/2/1}{16/2/1} {Profi:2}      {kg.g.2}{Heizung einbauen}
 \deftask{kg.g.s}{Sanit"ar}         {5/2/1}{28/2/1} {Profi:2}      {kg.g.2}{Sanit"ar-Leitungen verlegen}
 
 %'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 %                             Fitnessraum                              %
 %.......................................................................
 
 \defproject{kg.f}
 {Fitnessraum}
 {kg.f.1,kg.f.2,kg.f.3,kg.f.h,kg.f.5,kg.f.6,kg.f.7,kg.f.8,kg.f.9,kg.f.10,kg.f.11,kg.f.12,kg.f.13,kg.f.14,kg.f.15}
 {}
 {Fitnessraum renovieren}
 
 \deftask{kg.f.1} {Fliesen}               {01/03/01}{31/12/01}{Gabi:10}               {kg.f.3,kg.f.6}        {Fliesen streichen}
 \deftask{kg.f.2} {M"obel entfernen}      {07/01/01}{08/01/01}{Gabi:1.75,Andreas:1.75}{}                     {M"obel in die Schlachterei tragen}
 \deftask{kg.f.3} {Loch zumauern}         {01/03/01}{31/12/01}{Profi:2}               {kg.f.2}               {Loch in der Wand zumauern}
 \deftask{kg.f.5} {Teppich}               {01/03/01}{31/12/01}{Gabi:2,Sven:2}         {kg.f.6}               {Teppich}
 \deftask{kg.f.6} {Sockel}                {01/03/01}{31/12/01}{Gabi:5,Sven:5}         {}